path: root/new_schofield.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    939814,      18035]
NotebookOptionsPosition[    918520,      17694]
NotebookOutlinePosition[    918915,      17710]
CellTagsIndexPosition[    918872,      17707]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Get", "[", 
  "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, {
  3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 
  3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],

Cell[CellGroupData[{

Cell["Definitions", "Section",
 CellChangeTimes->{{3.817119832436002*^9, 
  3.817119834596055*^9}},ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-\
ec66b9fbf698"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"h1", "=", 
   RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F1", "=", 
   RowBox[{"RF", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{"eq", "[", 
     RowBox[{"F1", ",", "h1"}], "]"}], "[", "1", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
   3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, 
   3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
   3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, 
   3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
   3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
   3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, 
   3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
   3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, 
   3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
   3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581712240638*^9, 
   3.817581717799356*^9}, {3.8175852594077063`*^9, 3.817585266989357*^9}, {
   3.817625116141048*^9, 3.817625146387568*^9}, {3.817625823896328*^9, 
   3.81762584825317*^9}, {3.817626018033968*^9, 3.8176260183177137`*^9}, {
   3.817663520836796*^9, 3.817663527972684*^9}, {3.817663582652149*^9, 
   3.817663582839945*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]c1", "=", "1.2"}], ";"}]], "Input",
 CellChangeTimes->{{3.817585268393762*^9, 3.817585293317271*^9}, {
   3.817585486091017*^9, 3.817585494971346*^9}, {3.817585564983135*^9, 
   3.817585565747403*^9}, {3.817613382923294*^9, 3.817613383138185*^9}, {
   3.817613792996088*^9, 3.8176137947992983`*^9}, {3.8176138325298033`*^9, 
   3.817613832689768*^9}, {3.817613945403081*^9, 3.8176139460305977`*^9}, {
   3.817616912295125*^9, 3.8176169290794497`*^9}, {3.8176186151558523`*^9, 
   3.817618619104945*^9}, {3.817619090418564*^9, 3.81761910673524*^9}, 
   3.817619253736672*^9, {3.8176193746564007`*^9, 3.817619374732581*^9}, {
   3.817619426379078*^9, 3.817619430415657*^9}, {3.817619495695971*^9, 
   3.8176194979719963`*^9}, {3.81761962610084*^9, 3.81761962629879*^9}, {
   3.817619675607584*^9, 3.8176196962814493`*^9}, 3.817619789430169*^9, 
   3.817619991910288*^9, {3.8176200580506697`*^9, 3.8176200588070917`*^9}, {
   3.817620109806219*^9, 3.8176201102512617`*^9}, {3.8176207225281963`*^9, 
   3.81762072275283*^9}, {3.817625744386352*^9, 3.817625748424838*^9}, {
   3.817625808751005*^9, 3.817625809099471*^9}, {3.8176290646805687`*^9, 
   3.817629065099968*^9}, 3.817629131750176*^9, {3.817629190325059*^9, 
   3.817629190809897*^9}, {3.817629497269574*^9, 3.817629497707655*^9}, {
   3.817629563603163*^9, 3.817629563901677*^9}, {3.817637457431973*^9, 
   3.817637458007321*^9}, {3.817639806034833*^9, 3.81763983029615*^9}, {
   3.8176404653824*^9, 3.817640484337888*^9}, {3.817640545505579*^9, 
   3.817640547534202*^9}, {3.817640702610136*^9, 3.817640702917857*^9}, {
   3.8176411385765676`*^9, 3.81764115635804*^9}, {3.8176635991713743`*^9, 
   3.817663599392414*^9}, {3.8176641062045927`*^9, 3.817664108809791*^9}, {
   3.8176642725583572`*^9, 3.817664273275118*^9}, {3.817664462392371*^9, 
   3.81766446250115*^9}, {3.817664613433975*^9, 3.817664613564913*^9}, {
   3.817664802762989*^9, 3.81766483117656*^9}, {3.817664863597609*^9, 
   3.8176648843718557`*^9}, {3.817664977236157*^9, 3.817665003913262*^9}, 
   3.8176650486087637`*^9, {3.817666520433958*^9, 3.81766652831031*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"b0293560-4bfa-4de2-84b0-335927f7dbea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol1", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"eq1", "/.", 
     RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"A", ",", 
        RowBox[{"RandomReal", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "0", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "0", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "1", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "2", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "500"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
   3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, 
   3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
   3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
   3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, 
   3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
   3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, 
   3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
   3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, 
   3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
   3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, 
   3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
   3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, 
   3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
   3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, 
   3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
   3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, 
   3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
   3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, 
   3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, 
   3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
   3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, 
   3.817581526654297*^9}, {3.81758529416886*^9, 3.817585296714147*^9}, {
   3.817585561197172*^9, 3.817585562026663*^9}, {3.817618621207481*^9, 
   3.817618624394899*^9}, {3.817619444974866*^9, 3.817619445137411*^9}, {
   3.817619996280697*^9, 3.817620100970377*^9}, {3.8176203511794863`*^9, 
   3.817620366471381*^9}, {3.817625755050593*^9, 3.817625785196938*^9}, {
   3.817625855158732*^9, 3.817625933259389*^9}, {3.817626021714408*^9, 
   3.8176260359581003`*^9}, {3.8176261569605293`*^9, 3.817626157278273*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "\[Rule]", 
    RowBox[{"-", "4.704112966196344`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.10599424935557819`"}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "3.0139824654804324`"}]}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "0.9956839089360535`"}]}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "2", "]"}], "\[Rule]", 
    RowBox[{"-", "0.04568459097897419`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.817561286441853*^9, 3.817561420490069*^9, 3.817561452135456*^9, {
   3.817561512454604*^9, 3.817561517595207*^9}, 3.817561585719215*^9, 
   3.817563004628446*^9, 3.817563182856628*^9, 3.817563228472159*^9, {
   3.817563534906947*^9, 3.817563573064754*^9}, {3.817563797249289*^9, 
   3.817563825598139*^9}, {3.817563996789044*^9, 3.817564046321703*^9}, {
   3.817564078153729*^9, 3.817564103465789*^9}, 3.817564181902115*^9, 
   3.817564233365617*^9, {3.817564277720583*^9, 3.8175642801348143`*^9}, 
   3.817564315116712*^9, 3.8175645338256474`*^9, {3.817564627325935*^9, 
   3.8175646522898493`*^9}, {3.817564705276019*^9, 3.817564735465515*^9}, {
   3.817564839073145*^9, 3.817564850280691*^9}, 3.817564889679229*^9, {
   3.817564994846734*^9, 3.817565091817582*^9}, 3.817565231749591*^9, {
   3.817565295003468*^9, 3.817565428068199*^9}, 3.817565500042843*^9, {
   3.817565636029861*^9, 3.81756564530912*^9}, 3.817565735768449*^9, {
   3.817566053734901*^9, 3.8175660860827293`*^9}, 3.817566141015539*^9, 
   3.8175662848590927`*^9, 3.817566325612877*^9, {3.817566873920313*^9, 
   3.817566888279759*^9}, 3.8175669368598824`*^9, 3.8175676424929543`*^9, 
   3.817567784807679*^9, 3.817569665139393*^9, 3.81757954674091*^9, 
   3.81757967210157*^9, {3.817579713138091*^9, 3.817579777361397*^9}, 
   3.817579821306189*^9, 3.8175810242250967`*^9, {3.81758111825353*^9, 
   3.817581144262869*^9}, {3.817581181116104*^9, 3.8175811880013027`*^9}, {
   3.8175812210575027`*^9, 3.817581247862958*^9}, {3.81758129685359*^9, 
   3.8175813628876057`*^9}, {3.8175813942271137`*^9, 3.817581435480754*^9}, {
   3.817581471263382*^9, 3.817581496713935*^9}, 3.817581543505228*^9, 
   3.817581753404653*^9, 3.817582064358006*^9, 3.8175852248573008`*^9, {
   3.817585283585939*^9, 3.8175852999095488`*^9}, {3.817585487301776*^9, 
   3.817585502087878*^9}, 3.8175855671904163`*^9, 3.817613385098051*^9, {
   3.817613796159917*^9, 3.817613803142503*^9}, 3.8176138343071117`*^9, {
   3.8176139473966227`*^9, 3.817613949416984*^9}, {3.817616913905779*^9, 
   3.817616930282693*^9}, 3.8176186258104343`*^9, 3.81761872710673*^9, {
   3.817619101977674*^9, 3.817619107965846*^9}, 3.817619255028962*^9, 
   3.8176193759050617`*^9, {3.817619431498866*^9, 3.817619449292502*^9}, 
   3.817619499053896*^9, {3.817619627402491*^9, 3.817619631209499*^9}, {
   3.8176196774271812`*^9, 3.8176196990743523`*^9}, 3.817619790930694*^9, {
   3.817620004685841*^9, 3.8176201113198757`*^9}, {3.8176203674921637`*^9, 
   3.8176203774276752`*^9}, {3.817620724033588*^9, 3.817620733528399*^9}, {
   3.817625777669826*^9, 3.817625820443478*^9}, {3.817625892508223*^9, 
   3.81762593562003*^9}, {3.817626153175129*^9, 3.817626158370763*^9}, {
   3.817629070037771*^9, 3.817629090362233*^9}, 3.817629133150034*^9, 
   3.817629194401656*^9, {3.817629503724696*^9, 3.817629507102276*^9}, {
   3.817629568997431*^9, 3.817629573075118*^9}, 3.817637461057411*^9, {
   3.817639795406546*^9, 3.817639831570113*^9}, {3.8176404678175488`*^9, 
   3.817640566074553*^9}, {3.817640674521316*^9, 3.817640706720207*^9}, {
   3.8176411402417173`*^9, 3.817641207390697*^9}, 3.8176636123222113`*^9, 
   3.817664109962291*^9, 3.817664274608094*^9, 3.817664463710967*^9, 
   3.8176646147589073`*^9, 3.817664804500786*^9, 3.817664837913732*^9, 
   3.817664888223516*^9, {3.817664979000359*^9, 3.817665005249496*^9}, 
   3.817665050841535*^9, 3.817666529326723*^9, 3.817707205358016*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"f676952c-992f-4ebe-a4d1-30e21dd4d0ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RF", "[", "2", "]"}], "[", "\[Theta]", "]"}], "/.", 
       RowBox[{"B", "->", 
        RowBox[{"ruleB", "[", "g1", "]"}]}]}], "/.", "sol1"}], "/.", 
     RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", 
     RowBox[{"-", "\[Theta]c1"}], ",", "\[Theta]c1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8176233124650707`*^9, 3.817623348286018*^9}, {
  3.817623414269414*^9, 3.817623458216208*^9}, {3.817623857421668*^9, 
  3.817623947337986*^9}, {3.8176244336335487`*^9, 3.8176244577469254`*^9}, {
  3.817624497193656*^9, 3.817624500892652*^9}, {3.817624532809559*^9, 
  3.817624535743273*^9}, {3.817624582381755*^9, 3.817624593129384*^9}, {
  3.817624645730153*^9, 3.817624809282262*^9}, {3.817626169490147*^9, 
  3.8176262061761208`*^9}, {3.8176374709933147`*^9, 3.817637472394459*^9}, {
  3.8176405306118803`*^9, 3.81764053152619*^9}, {3.8176407139007196`*^9, 
  3.817640715271174*^9}, {3.817663620966742*^9, 3.8176636222101192`*^9}, {
  3.817666515543281*^9, 3.817666525799995*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"a4f082dc-c86b-4fae-a5ca-c1981cd9d9cf"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"17851.66136326923`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 154, 144, 
   25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817666517288512*^9, 3.817666530774806*^9}, 
   3.817707207513198*^9},
 CellLabel->
  "During evaluation of \
In[154]:=",ExpressionUUID->"36ce886b-a17b-4e11-a0fa-9283b3f2481b"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw12nk01N//B/CJEllCPsgehZSIFJFBiDZrRRGJQkglayKiLNl3Zt5KKCFb
QpoXWcteisiSyh6SULbva875/f7hPM7zdV/vO/fe93vGHNtsrhrbMZBIJCn8
Qf8taM4uqaj4G0h6zInHR0JAS+65kZw8+uCZGtYDoeC4wch3lyw6vVptX1Ao
lBXGdUpIobOe71XaFgamm4QCeQTRe/b9TDAJh/BXMoN/GNBfpMesH0XAqrBe
Stn7WbThM2b3aNgxN1ZX0oYuaxKMSIiG4+/CfhU0o892uQ2URkOKe5ve03q0
1ujQ8Hw0HGg7vZBcgdarz450iwFXfztTn0fow+eP+V2Kha9DARzq19HZtGl3
yXiYkuQ5+dcFvVdZRupwPPxzzHxQcgX97FznI6t44PndwLbLDp0wFbSSGA96
jOys/GboU/05R5gS4LlE4sbZQ+gtWzfZf06AysvSR/IOonljuadmE6DxWXmw
/QG082DcYbZEGFL8smFAHq25tGSpngi82tvWN0ugrVh/n05PBF/bZ6QsFvQm
TpMH55Ig9ImaxgUmNKfib8nrSZAw2eInxIh+EVoWez8JCtxmVmOWfwFpeS56
pCQJvt9VWvGbRn9rvnebNRmOZcJf84/oauJ1UkEybB3+MMv+EA22X0d7U0CA
JT2TREU7NOZKTaaA0G4ns98p6OBDv7SXU0D0+npadxxaoMpXUCgVdqzuC8m4
j97gWKd2NhX28iaIqriitd96uLangoKKzftdzuiQoJNP+lNhn8WeIBFH9FD1
eNVkKhx4VD/OaItuLCDFM6fBoT0LL1rPoPloN5rV00Bf1+y4LRn97rJHQmYa
HHXYvnZaDd0d9GG8MA2Oh88U6qugj67nFaelgcH7+3xyiuigD+0qn9Lg1Pny
ob+S6CmRJ1wbKHDBXcArkgO9R77ktiUFvLK+ZFb0zQBp1uH2jn8U4OkWza3s
QRc/oQ4zUKGA5WIRrQudL+gayUqFUacx2psOdItEdJIQFcwU57ve1aG75/PD
DlFhf9XmTb156NPfedh8qPD+lzFnXw76F/990wAquEgk8A5ko61i9YNDqJAV
LCTx7SH6U6tAViIV/juxU20iHs358snnIirMfdZyWfJFf0/N3/GDClGswW4r
3uhMSQ+OCSrsPvTWe80DrTmyeWiGChfTDe4xXkdv2bT56DJe/5JFOusl9JDH
W1FuAlySiCz2i/TrrUu5wEfApndDuZut0R5HZiOECNCSdSjfchb9ey02V5KA
wt833wueRAd3sc2rEHB8R3m38DG0SFJ4gjoBo6eX+0X16K/viY7EYQLEKgIm
JLTQdW0V644TEOUfuX73frTeB/aPFnh99qf71URmwL9sZXbEm4CZ3F7DFQE0
Q85D4jYB145zXKHxof32pWoGEOAWdoPQ4EK/ZO7SDiHAh0WdWWc9evmy9rEE
ApafuIozrUM3hAmbJaOjdL0ilqbBn/aLwzCNAIbNXEMxU9O4PmLEukcEbGbN
Kk7txNztqJxLLgHcR1lHhVsxfxIU9CmfAN4QV6H0BswTblbIFBIgtFE16HEF
5lV52xJfECCqm14uWYLmMbr7/CUB4kEbpp7koVOtJEvKCZBmbD+dl47jd566
H/CagF1aSmFyKeitDR7HgYA9d1KgMBatXbGBsZoApTVb6dJgHP9D7Nz+WgKU
1d9ZKPuj7U2MiusIUPOVi67wwvqwoMPCDbg/S3//0pww9zDxLHtLgM5Bqz2a
lzCvGB4de0eAnletTY0Vuse+kLkZ96tsZ6KOOdZrJI3ytBBgsBDR1GCMZhDM
5GglwHj/3Jr+cazn81v5gz5903xfsw7a5iBzUxsB5iU0+5NkrP+c0/ugnQCL
3xKUdmXMM3kj1DsIsFII6TBWQGvmKvWhba5Nbfi4C50WMOrwnoBLBSYHz+xA
KyZXfkc7TJe5fBbBfgrdDSc+EOC0RyTjHD86jlMsE+3qHNjVx0Wf73LPOPpG
7iirNStaUp1DtJMA94kTGkPr0edt2jTRXjLFbrarU3j/9yuaoG858D8dXpgC
/zxOI7r9n/j22f9C12qqaaEDR4a4JsbR3hmbxNDBknq6zt/RtkYdk3i9ULs8
7+k+7LdkmPkE/eAx9/NrXeis6FQTdNQ3j2+/29H9k40/8fXEivfxub9DH5PU
8kAnXNA6vliD7p4QnMH1SE7P9vd+jf2/fHQ0Q6cNsL1YLsVc9vLhAlxPQuT6
2O0CtDJ7xQKu9yPLLuF1OVi/XezbHvTT3ofBGyiYewVSnHD/ErpvPZxPQH+4
4XUX9zfg45nKkSj0hSOXI5oIONvGPvv2LlrCutwTz4du8yjbq9to8tAh80YC
FN/WSOV6Yv+gap7deJ7YarwsI5zQRZf+PsHztwimnn6XsL76p6RJDQE/KuVi
Xa0xdzYdnsbzSiv90Whsirldqvk6PM+uOUb7+NTQZ6rqg8rwfGTvNmDej/XP
rJTrSwnQf7zR8a8c5kMcZX9L8H6hviZ6JTDnSRM5iPdXZ/RO1nRW+nzU5cWf
ElAVsV4yegPW90VVLGcRkBc2oBGw9hNIA15N7x7jfgXFu9v+Ru/XrtRMJ+CA
17oh6d6f4L+Z/2YaPg+2u39Z3voR83Vf23jiCOC88ZKPtQ29qC55JxqfV07O
J36+QUcprimFE5Bi/bmsMAfH+1v+4rpDwOqRwsiD3phnjO4g7AkY1w7P2eWG
+VBUj6UdAV2al+uEXDC3zXfksiGgQFV4afUC5oS3yZlzeP7lQi7V6GPuOANW
Jwio471w6PhWtJVuuoscAb7TAv6vuNE7pJ7u3oX3f2PnGxk29MTW+H583mZ6
6emxrE2Cf5bGGRERAoK+yJnUf0d/NdXbzIb3+6NVe40CdJd8Qy2+H9TJpsXt
OzIJpEFp0/EoKvgyne7K0ECX/eE9HEYFpYHNAlsOYv3M7ezoICpkRgUSv3Zj
rqlyhdObCkG/HXPyuTF3smRLsKGCTrlKlXT/BJBYr5Ba92J/7a4JoZsTuF/3
Dhu+pUDRQb+POS7oTdm+lDcUoMpLgbI9uqwhaOgVBTyFPGJMz6Gjdsmb5lNA
Zo5XJVwT+6kNqXbFUCAq43TwEjs628r30lkKnGP4JNaTNY7vx81f/n5Lg1/Q
eSqxewzvd7NQk2+p4PRC07LpzCj4q0glUZqT4R3FziKkdBj87YYtHY0SwYP0
d5G09wc+nzfKsvyIA8OCLUbixd+AtMbWWe4bA2wmP9JbeIbw/ImyuH+MBD5X
yQiFmEEgiYH+V/kwYCcdGtbq78PPJ7HlC1eC4XCFqpRbdg+QhMYoJVsCgM9h
awb/ky4gyTuOelbdguIVW46Oy51A4tCJYYu9CT+DI0uWz3cAKSnlbJjnVXg6
+qPooxH6i1Zspf5VsDuqVpivjd6e0cQheBX62MfyrGXQuS2mvDQXaInTyq79
047Pi1WPog0ukPfoT3J4OFqv5eL2VCfoufVyVdmtDUjNc878Aw7QO2EQ5ynT
jOf516hHsy1Ibn+xO5MTvX2F9DbLFlwtBOo65ptw/z+rqN6xBaaW739katBO
uaKB+21BPt/rTN85es68/+GjixDsmiGg9eAdkPZJnRS4YwMKf+bTWWcagWTN
zCt8xhp8ZS1UlD+hOYedU5SsodGuusO2Ei1220GFxxosP4Ux0O6j0ytelGVY
wf2XYrau2+j17kLOlPPQ73VU6qNxA/a72HybYgEhq5Q86os6IDGzEO7tZuC5
p2cgmIJOty37kGwG9ud5ua8GoV2fizpdNAM9WoQ7+RS67O7kyYUzwHTbjzw4
V4vr9Yatb9sZuLti3bFtH9rf/bVowCm4vSzx53HRG1yfS9LWV43BZbe11IMU
tHSbrbyGMZy3SDO/GYDuzg1S4zKGQ5U8NB1jdFJvEHOJESz7bLg3/Ksa5yc4
f3XZELyWhvml96I5rS6S9hrAyJyJ12krwNf/Uy9wSR/EFWuE+HfRfTMrMFMf
zl9TqPo8TwMSSXiRy1AfPv3k3GgZgR48ktqdpQf1wy1xF1+/BpJh1UeOc0fg
cfeRAlfBSqy/GSrZrw2DvC9NFEZeAal9VW5TtDYInZJc+F2EJnEb3tLWhtiO
9eoeR9Hp8qJseYch4F11k69XBZ7/4x09d7XgQqXqSGhXGZAKZDlVDTQg7V9O
6PEMtFjrGAurBnQrC+zhuIqu0rVviyCD4YtFt2gmdHq8U3qgOmjkv2BIUnqJ
++Vk/sxbDUTS5UQyY1/g/LeKuVKVoTdQ4hQYFKH5f7K83gvWhRq7F0XQYudo
IlZ7YbjfknHvVCHOV33zHoa9MKuSVPgoHF21wVDtmDwwz7BxBL8twP3abyL/
XhacyiYfJAfno/8+zs6WBs8tUmqsO9BVP+ykWaUh0OXC+K2aPPrnL27CVQpS
tn/StSbR3WXroikJDVGwJun9DK/3zzThnwSIO8RcK3F+gt6jtjtBFPbUNotK
stH9fWo+VQRURDe2JuZk4/WO/c3PFAbDjz4yPiNZmG9zGKkVBF9Nu2+aFzIx
1/jpo8AP99OI6OK1x+gTScVn+CBu4TN5BxVNYjr42Z8XcvJOpjH3ZqB9cqb6
eaB7q/KpNtNHaIdd2u+44LvbdUbN3w/p8/H+ycEF0225hUXRaP+3ekFnOIEp
eBtHQms65qZH1o2xw6Xv/0WU43OcRGIfNHjFDL4poeNpLRR0CzwI3Ahxhmu6
/pvoVgh+asIE1ZWja7p3U9Exsj6s60Eo/tW1To8k9HnRLcVrtMZfv5+FlyWi
Z4K5mlZoN0/uHtb+m4BO85efXaK1bqScfeEdjxaoaXdepHnbfoxzfhWHdj9l
/GaeJlnN3rZjORZdyvZnxx+an/ftwwn4XCWRzK5SBWZpu7tKfU/SotFqZzOf
zdC6FadfMq1FoY+/T02col3oAbMpUiS6u5H5xhitIla+5XzAA/Qg2w6OERr3
iYeabYzh6LtXgxq+02ohQKaAKQTdeGxL/CBN2Os3Vez+PTTzwQDjPpq7gu2W
aJZgdLrH5Zefaa0TnffWhd1FF6R+MvtEk8rUWb7GFoi2n2zb/4Hmf77UdejB
HfRojolRO62bT+qH8WZ/+nipWsMmms0jueLgbb7oqsp5j3oaz39caZe3e6M1
vMn8b2j192bv6kl50OfrfuhiJc3j3wfnnTJu9Dxj5/0XNGnnF6c3yV5D+2++
r/6cVgKyfp+snOj9NASMMml8mTOGSXaX0CTj/6JSaN6hxeJnr1jTXX75QTit
YmBy9MCQKd3h2vweNNKpH/wevZp02/cNGdLaT6n5M+2XJqP9zTaJ0kb9GM29
50/QPadUd5m258/S/fLps3QnbNgfSNv336tZgesX6f4jzBRH65BbFDN3cqC7
cEnoIc3lqJJB4qWraP8/uoI5tGCFcppjwXW0NdPi7SJaJ3R9DMm7iR5k8Rkq
o4mfmJ98kuOJ5iTxClXRrvXwrG/M9kEbSm/QqKVVXVYUHHl8m94/e1NfI+3e
P+mtjB3+9P5Ckr9baHs0yx7HGASgNSJ3VXfQPt07Ii/eGoh2TTtZ10nb/t+l
I5pNweiCc4qBvbSmc3/et+vfp1/vzpzaAO36o7vnrRtD0N/DieSvtGq5jJt+
deHoypyX4z9o9u4K6zZrR6DVxHM0Rmmcr6vDqW8i0abEYMk4TW7HTEe/VTRa
vpd/cZoW0PgyUVI0Bs3L++DiL9qnK36WLv10x5jI9czSbhdxjK1YxNH7cXfP
/aE1k2VJwmcT0Qf/lg4s0/Idtr4jdiahbZTLx1ZpUbEb4sT/0n3BvzaABCYj
fVLSSSlovj165QzQExFhoPiJgn7CLRS9ESrLvLeWZlLRO40M+5iBMnTpm/JN
At3u5KiwCeRTCVXR0HR6/5cGC2wwN+XRtn3nI/ShSz9vcsEPRpd9w1F03+Cl
kLnhE79tcvYi3V92APsWeKlleFGmMQN9kfvsSx7wTpBekLucSSb5h/WMkvlh
nfpnEdXMJ2g4tGuLGMwatwUusz0lk6qcf0alisHQ5brR1250J2+Rk9wGtdGF
RRraOdjv9gMeLXG4/yNEV/fbM3RgYUDcduB4cNDFaNtzMknjdEd/xk5YfSj/
gTsE7Z+wrc5ABqZLJZU7Z9BVI/NDKzJg78pyZ5d1ATpystZ6NxxN+XM0X64Q
bSMgpikHHFMt/cWtRWSS2FQFV6kCqLGkWgqvoTX+bWngVYQr2+2/BMsVk0np
mcw3PBWh8SxDj3lUMf08ZuSr74OAhv0f14xKyKRBo/ziT0qwkE40Hfv4AvsX
mf7cpwKDJtfKvvWW4fzaN06ZagDHVfUDJ9jKyaSZdu+ncRpwKJS1tFQNrbFE
DHRqQEpVZnEIhW7z8VenNcFUtidfzqqCTGr3HFC01oK3TIczfYZekUlR2ZJC
odpQVM4Ts2WMRiZZu8Y+UtGHu/PjHWHCgPPzzTwRqQ+nFau51hujCzTG7v3Q
h6Vc5+i5CrR89tensUdB3PBio6NuFb4+nbhH88fA8XBlwzH+anw9pRXnu07C
v50u9eyVb3D+EuL9d4zhop75sP4ntLWKOeWFMTRf0mYKnkHft76XMWYM1AwB
3dXtNWRSo0HRXWMT0BJuqJt6gC7LfpQsZQphnGJ1bVa1ZJL9qVbmgVMgtNBR
E81YTyYx8zp0BJhDUfp6PRNhdPuhXXo0c9A/eqCZ5wA9H4xl+GcO7pS0zkRH
9JNcda3rZ6Ht8OUflA70zKbDk3bnICBqmSmHaCCTkjhlf5hbwshOqaNvVN9i
rjooVGENRRa32mdvNOP1FaMuKtvBY47uisUwdG2rxfA5O4ivUsxczUDr8VYH
+dmB5/YJr02d6KoNWgINdnBo0lxCfF8LmcS/9Dr5zCVo9DngbjSHDv9oOu17
GfpTZgUL3NrIpONDLZ/x83OQU0lx6cEOMsm1JaZmwQXGays3W9/qJJPmXvZG
vL4JhdLD8gnBXWTS+aAby9duwbZZUq/nnR4yadGoL2/oDrz7mBd/5HUfmVTD
t5Z+KBiuDL0O7bAeJJO4GCOX00KBfeSn8U3GITJpYemGMBEJ1tfyfa1Cv5FJ
vWZrGmoxcD9/ZJJg+UEm0e4kZmTGQfOig+3pp8NkUuXR4mK1RKhuvKVuIjuK
82E/IRCRDO8zu8XqO8bI/g67t7r2pAL34g0dlW60owzH56FUMDq62TG3H71R
z11tIhXap3SKYybGyKSPl71ml1Kh7UCxjtWGcbL/pglVAeE0aH77wHFReZxM
4ivZang+Dep+apXIpGPenBDO8SUN1mv0d1Oy0H6H44rw7zHtGK8Vzjysr/V5
azCRBrX7C3QXytG7jaJv/kuDN37Cn2s+oHdk2DnzU4DGtbhisXGCTOKO91hv
QoEypbwjkS4TZP+Tnm/98e9Fjnfvg2Ld0FcYmqobKWB3frEm0RtdMEldaqUA
973DGunBOP6wXYJ5LwWudH9WLqSiF6LzXv+mgIgPk8yHVqz/O50rLEGFu1VW
bHxyk2R/zdtRcz5U6DENOiqoNEkmcbJtUbtDhb1jOfdFVdG5zwR8gqnQzzW/
XvoI1g8thA/g56wDF8NXlK0wH/Cs18ikwviG8qmzkZh/v1N4tpkKBse4O6jT
6DVBh9QtBPQwmo9sn0ePfdvOy0+AbSWxkrOM442uywcJEeAtKyvzkuUn2b+7
YYG8g4CszXqBbRI/ySRfyVDJ/QQsf/BVIpmhCzKIp6cIuBdeeyz4PNb7Peq4
YE4Atw6rDZsd+lGJAbslAVKlSRH817E+98fkIVsCjJOKR+TD0XLBHYzXCXhi
MZZ8oQrtdkd1SxgBiv/JF4zU4/iW9l2LDwigtbjXO7egZbJN2qII+KC+/rdX
D9Z/MWMwTSBgVUz0eMwc5pp9QyXpBIR8trPhX8LcciZhZwYBPDG5ntR1U2R/
jbBfkZkEyDAezMzhQO9yN9ybQ8CpH6arb6TRgg3PaosIGKSk8ujLTZFJJlph
tSUEOJ4ekmlTwlwx0udFKQH+DVfP9GqhbYy1HCsIYPUvdb6gj/XJ12ZlKwlI
UF4JHDFA85RcGnpNQO7T0ILfFlgfvfWkcDUBB2w66r0uYk7VScl4Q8AbAf6+
NQfMu7MsBGoJ6ArLZGHzQPup/umuJ8BGe1I0xhc925kh1kjA5LLCfv676BtX
vczeEsDgUmWzPRpNi9RPaiLgsX10jGoi9p/g4ItsJkDnos0bYwo6w7vNo4WA
YUvFWYcMrD+mb2PcSsB9s/Xid56iOb/SRNpwfUw+GiU9R48ldn5BN53IuvP8
BfpmcUx4OwFOeh6F9a/QE/ajsh0EcBzW+9pXjf2Z+2qr0AWHtnL9acB8TYJP
5z0BRsrjGmytmFtotlagZxVeuUp0ov9Ifd72gYA42fD0gz3o7nJJb/R+act2
o0Ecr9CYWYPuEt9DchjGXGuLziraU3hNzn8SrXT0985OAgT4260SZ9GSrIQu
upL7YWT+Inp5aL8p2pL9OtStYj/DE0+N0asbD09/WT9NJrmUfKd//5rOwCM6
t2ma7C9+rWsbWmvl+0lWLnT1u6uzeL1vCy9ui/Ohl+ZTi9F3Z4PzVYRx/Iet
R+3Qkj/P9BtKoP107DeiG0ekOex3om28vyfTvy8e+nvITw49kZUrhN7U9845
QQn7eWbnR+J65XalUvJUMTfR7Z7F9T353qmlVhPzO6p8uuiZ5kMrvUfQbbvN
Q3A/FN8MWGwyxfo69bQB3M/OyoLwbWcxzzzpOYv77f7yTqWyNXpcmf0PnoeK
XAmhy070+eXxvn1L/35z7tjt65hzRNul4HlaeVjnE++J+fF14ucaCNBIvNxb
cxfzUvvEHDyPQ9HKrL2hmO8Wk1GpISAwnEV1Noqef+8rxfNcf+dZihgF3U4+
50cj4LjTtLnvC/TtlDCtlwRMXaoKiXuF7qVu0HtBQOSF6PJn1divnWG9WjEB
708rbu1pwfzEf+rT+QSYaXp07x9GOwq6+eP9+k9Vj/nkJJqw7l94REDq/q3K
drPoBe1dlni/9+96lRi7iv3e+Ar8SiFAIcxvlyfrDJnEupFFLZKA0b8zV904
0OIneeXDCSDsbUpcuWbI/rIUAe4QAth0dQ458KFZxMqIALw/SKwGZyXQiR85
B9wISLt6K/a0JI53ZnqocY0Ak/6fXcY7MV+BoEhnAqpetVsfk8O8cu3vnB0B
ye4J19VU0cG2Ol/w+Wj4Y+NLZXW02zaFLCMCmEy9lvZpos+kNVmcIOD6Xou7
skfQX488j9TG9ZvcliBigjZd7GNRIIBkk1dOuoJWti1SYyGgtF1kddkZbQb7
GxgJcCZHaf11Rb/y2HhoFd8/hG40/XJHPyxRGJ+lQkmXct9QAJpjZZdeLxUu
n6gl1aXQ+2crrWZTQaRSSaeagr63IUXhIRU6ZbJDXqejK069N0yhggZzKHdp
FrpA0fJoOBUEagy2ZxehGaZk5K5SoVW590jIO/Q8e/1TeSpQVSw961vQjky1
r6SocPXgwBPGDjQLT3OhCBU41b6x3O5Cvxhz02ejggl5oun6d3QUq7fEMAW6
dZYMLFbRqgUGtnEUeKrr65+87hc+TwvnskIo4H1kreDTenTeqnfTbQoI6jNy
G7GilT1Sy+0pcP44a6cOP/r+l72SqhT4ZixoJqeAnhg5KdaTBiUmlPtOSuh3
DW+vtqTBXVPR8qfKaMstHdSqNJA8LSGwnYx2UhlLyUoDe/NdX/iPo2sWZpmu
pcGUlao1wyX0RVersLVUWHQ6Z/8xGb1b/4w4Qyp0Rjza0ZuGtm/WVZlNgYKC
saFBAu3SbCM3lAL2cx6Wk5loE5ewsuoU6PaJM2YsQlv/F3jQLwXKQlvU9r5D
RxmH9/5OBq8nZK4H/9DLrXk+b5Lg9Lvg1pgVtJv+1d35SaAw2RKWRJrF56fF
6ZfJSTAuZ8H0mAmdLDV81jUJzr70XKrgRtftUuoUTIKD9YU/RmXQ6wc57K8k
wr9vEhXa59D93VeaJuKhNeTDjcfn0SYxya5t8ZAhFyi73gbNoLtzoCgejvsM
pdfY0+uLj/F5xQOV++E9LXe0zYcHEwzxoKUpckojGi10cv4raxyEUvlnVBvQ
qY5+PTPRcF678WnqO7Tqsvt/LdGgOO5xcakFzaX8avPTaPii1PWpohO9YwE0
rKNhT0v8a5UhtL95YWhTFLxf4g47sIIeVjreJRMJWQ/faCeSfuP76fl9Az0R
4HPk+uo8I5r5ab15aARsj+24VroJbfO5PGPkAbjLRJkp8aOXs/a6pYbD0XYy
d7wgmlbe/E83HETdp5vmRNCDRfd+/gqDxuqT5JId6KKphS26YUC5vLq4ZSea
gXleZzoUrrPnF93YjXZ6kjmYGAq6xZZOH+TQ7Rn74jVC4f/+v4T8//9f8j9z
boWQ
       "]]},
     Annotation[#, "Charting`Private`Tag$121137#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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->{{-1.2, 1.2}, {-0.031083408212676744`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.81762333834346*^9, 3.8176233497856483`*^9}, {
   3.817623416062337*^9, 3.81762345918757*^9}, {3.817623881680962*^9, 
   3.817623949604845*^9}, {3.817624440474684*^9, 3.8176244586045856`*^9}, {
   3.817624497853997*^9, 3.8176245014514923`*^9}, 3.817624537275628*^9, {
   3.817624585218245*^9, 3.817624594015519*^9}, {3.8176246351419277`*^9, 
   3.8176248099871397`*^9}, {3.817626201171485*^9, 3.817626207195038*^9}, 
   3.817629092963571*^9, 3.817629135304832*^9, 3.817629511298234*^9, 
   3.817629576664672*^9, {3.8176374666375017`*^9, 3.817637473634259*^9}, 
   3.817639798078849*^9, 3.817639833944018*^9, 3.817640490911343*^9, {
   3.817640528768524*^9, 3.817640532508259*^9}, {3.817640698745162*^9, 
   3.817640716239604*^9}, {3.8176411418589973`*^9, 3.81764114787577*^9}, {
   3.817663615159411*^9, 3.817663623606195*^9}, 3.817664111761855*^9, 
   3.817664276359878*^9, 3.817664465371686*^9, 3.8176646170967903`*^9, {
   3.817666511582511*^9, 3.817666531246264*^9}, 3.81770720809378*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"790a1b14-2979-49a3-9e30-5d496c64e79a"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"h2", "=", 
   RowBox[{"h", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F2", "=", 
   RowBox[{"RF", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"eq", "[", 
     RowBox[{"F2", ",", "h2"}], "]"}], "[", "2", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
   3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, 
   3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
   3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, 
   3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
   3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
   3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, 
   3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
   3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, 
   3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
   3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, 
   3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
   3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, 
   3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
   3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, 
   3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
   3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, 
   3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, {
   3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9, 
   3.8176660163975077`*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"eq2", "/.", 
     RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"A", ",", 
        RowBox[{"A", "/.", "sol1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "0", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "/.", "sol1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "0", "]"}], ",", 
        RowBox[{
         RowBox[{"FC", "[", "0", "]"}], "/.", "sol1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "1", "]"}], ",", 
        RowBox[{
         RowBox[{"FC", "[", "1", "]"}], "/.", "sol1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "2", "]"}], ",", 
        RowBox[{
         RowBox[{"FC", "[", "2", "]"}], "/.", "sol1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "1", "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "2", "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "3", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "10000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
   3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, 
   3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
   3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
   3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, 
   3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
   3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, 
   3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
   3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, 
   3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
   3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, 
   3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
   3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, 
   3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
   3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, 
   3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
   3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, 
   3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
   3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, 
   3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, 
   3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
   3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, 
   3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
   3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, 
   3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
   3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, 
   3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
   3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, 
   3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
   3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, 
   3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
   3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, 
   3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
   3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, 
   3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, 
   3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
   3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, 
   3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
   3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, 
   3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
   3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, 
   3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
   3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, 
   3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, {
   3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, 
   3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, {
   3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, 
   3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, {
   3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, 
   3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, {
   3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, 
   3.817666542789474*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "\[Rule]", 
    RowBox[{"-", "0.0002788135841983469`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.3828625584477164`"}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "0", "]"}], "\[Rule]", "0.0003354084116184048`"}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "0.3498228420875202`"}]}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "2", "]"}], "\[Rule]", "0.23702958720320444`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "0.025660834842616474`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0008664997125686273`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "3", "]"}], "\[Rule]", 
    RowBox[{"-", "0.00004770629388813386`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.817582243098262*^9, {3.817582385638481*^9, 3.817582397851478*^9}, {
   3.817582440404005*^9, 3.8175824479120073`*^9}, {3.8175825951659813`*^9, 
   3.817582624284917*^9}, {3.817582771007656*^9, 3.817582790104224*^9}, {
   3.81758295912363*^9, 3.8175829694259653`*^9}, {3.817583027875955*^9, 
   3.817583190779282*^9}, 3.817584063702273*^9, 3.817584867935519*^9, {
   3.8175849339417667`*^9, 3.817584980641724*^9}, 3.817585038615395*^9, 
   3.817585139927609*^9, 3.8175851869224243`*^9, 3.817585430610086*^9, 
   3.817585477765168*^9, 3.8175855203843403`*^9, 3.8175855792410593`*^9, 
   3.817613703655264*^9, {3.817613820666153*^9, 3.817613850447565*^9}, 
   3.817613970041641*^9, {3.817616894358282*^9, 3.817616938169628*^9}, 
   3.817618971174425*^9, 3.8176190263238583`*^9, {3.817619068552326*^9, 
   3.817619077160112*^9}, {3.81761912964554*^9, 3.817619175572*^9}, 
   3.8176192081695538`*^9, {3.817619251398644*^9, 3.8176192611467113`*^9}, {
   3.817619296755875*^9, 3.8176193494538918`*^9}, {3.817619385600893*^9, 
   3.817619417396243*^9}, 3.817619473822008*^9, 3.817619517658676*^9, {
   3.817619647045698*^9, 3.817619702143152*^9}, {3.817619744218728*^9, 
   3.81761983514673*^9}, {3.8176206689279957`*^9, 3.817620689262381*^9}, {
   3.817620739706464*^9, 3.817620790926754*^9}, 3.8176208714846783`*^9, 
   3.817626520486795*^9, 3.817627350228532*^9, 3.8176277415834227`*^9, {
   3.8176291050494337`*^9, 3.81762916583361*^9}, 3.81762919776195*^9, {
   3.817629413613976*^9, 3.81762948905116*^9}, {3.817629524644546*^9, 
   3.81762958732838*^9}, {3.8176374819742413`*^9, 3.8176375106923237`*^9}, {
   3.817640096850602*^9, 3.817640121730076*^9}, 3.817640151968046*^9, {
   3.817640182770095*^9, 3.817640187935651*^9}, {3.817640906566828*^9, 
   3.817640920542989*^9}, {3.817640970056382*^9, 3.8176410191014643`*^9}, {
   3.8176411254021797`*^9, 3.817641132552412*^9}, 3.817663859128675*^9, 
   3.81766409610642*^9, 3.817664145086022*^9, {3.817664185171232*^9, 
   3.817664200765719*^9}, 3.8176642675306892`*^9, 3.81766430138046*^9, {
   3.8176643315114822`*^9, 3.817664370422*^9}, {3.817664458382655*^9, 
   3.817664488432055*^9}, 3.81766452015694*^9, 3.817664552319276*^9, 
   3.817664596918642*^9, {3.8176646320970383`*^9, 3.81766466707036*^9}, {
   3.817664773532157*^9, 3.817664900143231*^9}, {3.8176649709901123`*^9, 
   3.817665017377138*^9}, 3.81766506372715*^9, 3.817665098250661*^9, 
   3.817665165135291*^9, 3.817665295970982*^9, 3.817665563376853*^9, 
   3.817665956408876*^9, 3.817666446270624*^9, {3.817666535892387*^9, 
   3.817666551982074*^9}},
 CellLabel->
  "Out[107]=",ExpressionUUID->"b0bec539-56ed-4897-b80b-cd8dfd2677e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"h2", "[", "\[Theta]", "]"}], "/.", "sol2"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "\[Theta]c1"}], ",", "\[Theta]c1"}], "}"}]}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"F2", "[", "\[Theta]", "]"}], "/.", 
         RowBox[{"B", "\[Rule]", 
          RowBox[{"ruleB", "[", "h2", "]"}]}]}], "/.", "sol2"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "\[Theta]c1"}], ",", "\[Theta]c1"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8175672854849167`*^9, 3.8175673108365*^9}, {
  3.817567343605356*^9, 3.817567515945986*^9}, {3.817567689779602*^9, 
  3.8175677001061993`*^9}, {3.817567852209393*^9, 3.8175678553653107`*^9}, {
  3.817569677608418*^9, 3.8175696880410147`*^9}, {3.817581502775428*^9, 
  3.817581583359663*^9}, {3.817582250277421*^9, 3.817582268443882*^9}, {
  3.8176137509420633`*^9, 3.817613772032806*^9}, {3.817616947220008*^9, 
  3.817616967115974*^9}, {3.8176195353257837`*^9, 3.817619546043696*^9}, {
  3.817627764775979*^9, 3.8176278238158283`*^9}, {3.817629596792068*^9, 
  3.817629639260833*^9}, {3.817666456802641*^9, 3.8176664741498337`*^9}, {
  3.817667652558447*^9, 3.81766766911417*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"48ef1564-45f8-4d3a-b3bc-835e87c4b434"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"5449.6971089453045`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 132, 142, 
   25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817667666243705*^9, 3.817667670105051*^9}},
 CellLabel->
  "During evaluation of \
In[132]:=",ExpressionUUID->"b51d87d3-de21-4502-b43b-5a537a1c6dc1"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwt2Xs0lN/XAHAqKiGXIipfpVRyKbqgshERQoluRJKEFKISRUVFpZBcIily
C6kk0sbMIwkRcr/OPDOMa6hU4j2/td6/Zn3WmnXOPufsvc9Z61nheGbfiVl8
fHyf+Pn4/ve79JCIoobGOBZUcLJPGTl+0FfL2au2YRxddQ5XCpbqoqvA3oD1
KuOo/+raaa9iSyx4GdWgsGYcd8ZAW2C+A+4XWnZt0dJx7EwsdylMO4u3i5S6
f8wax9NpSid17wTi9HLjuIKvYxi4LC3YxeYe9vReFdXxGsPp7pVh678+RhlO
/ZjIk+8YP+xU7quTgxdT21MKO0YxxvrPVg/6DXqIpG/ZLjeKV83OKElsL8LR
rDbLf7KjWBlsauG/twg9zUTdPkiPoteGI6lNzkV4Lsz7sa74KDK9j30/dr8I
L83XmWc4ZxSTMvasoegiXLgg9VV8wwjSv6zOfwx7j/p/f//+4D6CpSonf5ZX
FWN625MQgYRhPHdSb8sN8RKMbvZ/8jN6GDM89vrXyZTg1cYD77n3hnHFu9OX
F68swcNfRMY+XR9G49MZ70LVS1CYcdHurvsw8grt5ZWsSvBsxt5N0tuHsb9N
YO+OyBLcepG/d23bEHITEh0KRUtxlW/7lEzjEBbXfb6/Q6oUxbzfSi/4MoQr
bMOiC5eXYp/76T1DZUNorUstT1YuxTiHloKXGUOokG6uucakFKeNXoZr+w1h
dfsvI6HrpUhJHdthJjOEt0yOq2uNl2LAiGxgkcQQBtvffnrzTylurmgoUxIe
QmGRuO+1/GWYctHYeP7MICY6nFxrJlaGwe1qVuXsQZzzdGrZkHIZGiZPu+jm
DuKuE31zWp3KkFJ5FLXJaBCLxy/8cf5ShgGCNk1PdQfxs9dZ/obGMtzctVBW
UnsQbzevEdRuJ+Pfu/b4u/IgSixbIPK9j4w/7pqRLTGIFtx1qgtmMdDwnVbJ
2s4BtL63JXNUnYGUQdPAMp8BrGuPXngznIF52lcaMzwG8GOk+tRUFAMTN6xB
TZcBjH4daOwWx8ALy85H7D8ygJ/X2M7ZlMJApQkprdt6A6j2XFvRt5CB957a
hPwVGcBG4wX/ilkMPDLrm3xrKg+TXQNsj29kovFkgJBLEg/9LqvtFtzCxE3D
qyd+xPLQ8+rFt8naTBRt9fkofoeHkhlrl1fsZGLJy8Ueu715eMdpz3rKmomK
x6yLCoCHzMSYXbcuMPE7Nlg/bO7H8vMj6/TeMbHce2x11Nd+nP4QmdbwnomP
1oj9vFfVjx/x8GPHEjJ/uGl0aEk/6v76MXn6IxOTjpZ9C0jrx2zHMR/9RiZa
/ss54HShH+fq2zqxRsh8L6vXHPPqxww/wXq5cSZOOQ38snPvR6bh9Yr9P5mY
VqUYc8ChH+tdc0xzp5g4E5/QbGLcj/qRjKrV8ynM1g47tHFJPz5WzQ5dsILC
68Np61Ql+jHkhcG3EQUKDyeX/1YS7seIq4lvaxQpFBSaFbeKrx9j0x3AX5nC
oy0XWqX7+nBpR1hA9FYKRS44H5l+24cadO7NCjMK3d/o2X0+0Ifa8edvrvOm
UNRQx3rX3j6cKVJXiPChMKdBe0+pSR9mmwlcnzhP4di4xo63O/rQp4t+lOpP
4QV1xeVPFfrw++Ij5iXBJL4coQ6/ES5yhI98rIymUBHmNv7o42Jm9sTB2hgK
P9bMrj7by0UVrSTmlzgKhYan3js3clFTZKva+0QK7ymPPNpXxEXfX0XnTFMp
jE+vt1W6wUX0nGg3eE3hdq3a/SmBXIy9ff153xsKOyuqzOT9uCgue84h5C2F
8n3UdqnTXAzacC85p5DCVMWCZbOsyPxZz8LelVBonP96UYAZF92uSJFyobDf
8KXwpCEXzQ+rGMUxKFQ+kTE1pMnFEH5vnmM5hXlPH7W3yHGRV3NHPOszhfs1
Yhv2L+Gi+jFr25EqCn+UPaj6Is7FzqGlGco1FGr23n1PzeFi6Hiz1YNaCj/I
Bz16yeNg3a5bc/5rpNAhNyBKmc1BFeHiMPVvFPLr+t1+3sHBOZN28rpNFBrY
e/sn1HIwb9+q87tbKKxMOGF7K5+Dy0UCZxZ1UGg90KTtncvBS6rs5Tzibk0T
GbsMDm6d5yJV2EniqVf9tiGRg6YCsnEm3RQGrnjyWjaGgzssPdYs6CH7fUYy
ck4EB9OSVSPLieWFJi2agzm4dJe+kCqLwowDrqplVzgomVws3Uq8OaVdOOsi
B/ct/TE3iE2hiW7ppyunOWghMRCFNIU+vqE711hz8P53/SszXAr5mFMrxC04
uMlzqORqH4Wh4mf4/hpzcHHQzBBfP4VJWVbFNds5mBHwWnSYWOkPFV+whYO1
i4Pn2PEofGOk6Ze8gYMzUUt45cSVvcu2+q7i4E01zs2wAbL+DeGLHeQ4uLfe
woBD3B3AP7F7CQd7PNrGtw1S6PrZ+6uGBAcXHXkSc5v4xxJO7nJhDq5XLtRo
Jg50Phg+V5Ds70udcrkhsh+vK09/n6Ex6KfRXgfiB/w7zNp+0/hUd6TxEbG8
RY4SNU7jPnFz6wbizEcr5ucM0UivulwrOEzhFl4kN4ZLY7lXrPEm4pKtguVX
e2h0VCn8YEtsGnzhmXsbjSvK/mgEEn/7yrtq00jj/haf9ERiB3m7Y7pfaFxn
s0u+gHjg9BdQ+kRjss2N2Cpi3yI9uUUMGq9p7JdqJ+af/3rq33sadwVWPOQQ
37ZRbOPm07h4Ad9/g8RSz2Le1eXSmNMu9eJ/fvJdKKYog8bTmut29hErQ4Bv
yjMa/3tk1dtJnH97ZH94Io2LSvLCaon1Wo9pXIyhUfDhcd1i4qo1DeLHI2ic
ZX6NP4X4gM+uUbPbNLqaqdXeIO4tK6jZEkIjSyP4xQlid7H1L+QDadzZnRyn
Q/zLLiFMyI/GsJOpMRLEVzMXuk5401gnk53WQ/ZT+HeQcedpGg2Cmj9nEj/c
NaFYcZLGeY4Gsz2JV0Y5C+Qdo1GrUMxyI3FWTzMr/giNLaW2rwbJeW5VMy0L
tqaR4hmpPiU2q1S7cmg3jd9u+p3hJ26STrbbuZNGv1mzNNNJvjieWLRdZQeN
pqlpy8yIz/P9nuTbSOYfadS5RvJti9uhy/PX01jbYJouQ/yz8d1sidU0Cmn+
csok+Xou009UQYZGyRsbG0pIfm+SaotcL0nj1OXeWwbE44HbZDaJ0PhSWOQB
g9SDl82UgiE/jX92Lc59xaFQvdQ2fc9fNiqnSpWtIv6+vljV5gcb9/C1qNwn
9XSW/7LWyX42Vu/hSdmSevPImjG/VcfGx87mewpJvapKOzTc/8zGM4YnTAWJ
h4JKDsVRbLzEbMzcQ+rd/UCQU+Y7NoY2S8bUkH5watZsv+onbLTcorc9to1C
p4OCKeJebIw6MJayr4HCVQxnJVl3Nmpt9jG1rqeQpfIxZ6UzGwUWZzhZfSX7
NftmocZhNmYL3PipR/qZffb8Wmt9Er9kSn4f6YeH54j8jZUg8es0JtiRfip7
5nRgsjAbDY9X8y8ppbClpVogU5CNlMvsgWqk8GDOXbH3f1i4fk7kXuViUs+H
xRQ7e1moIL3x7ivSvy1zJfeufMXCj0siiwczKWz7uW86LYuF6XsEhHUyKHTe
EZGplsrCLyt814WmUehfKSa4I5aF4gpzmyRSKExjixQduMLCxFmdqzgJFM4s
mbf6jikLL9VOfX5wl/Qje6OvkoYsrOYbfRN1m8JFqSFX4nRYWMSpCb4bSvqR
hkDr840s1Pda1OEVQqHNnlnhZdIs9ChQiZgOIPdx0NTkL1Yv3jw7eljBnUKt
im2plzt68WHh5r11pyhkil6yEmjqRbfGhwZ+Jylsjf/9QqKyF7PGb6wtdiT3
c/5PR5XcXlz6bEpk7iEK7XijVY7+vWh5RPNhlgGpBys6qXpRLxpaXR81XkL6
1YG4TQzRXrSVSawPW0zhxBGLioJ5vTigVHK1UoLCDqd3I0+nevDtv4nd20RI
fL53dPzYPbg0VSKRx0+hRdzmdsXXPRhrb3Q6iMfEiJ5g6UCrHuy2Z6jHFDBR
kKOd6bOnBy86z4zZvGGiH29Ex82oB48LHE0Vz2Oi4/ghZ5ttPbioymvAL5OJ
GgKqb5QVenADf6T48kQmNqz9tq9lrBuTkxawkq4yUfqs4l31iG70CrawyDFm
oo1l4e7UsG60lN05P9GAidEbzAVkg7tRUaNV7aYuE6W++/jzX+jGnJlDn8w1
mbjYi3KttetGF9Erh1PWMFHynJORx7pu1OWttLsowES5UQP+/UFdGHjrrmpF
MQNF+HZw9Ds7MLR6u5ztCgb+/KObebKuA/kfe/0wWcbAzh8GZ28zO1B9Rqti
szQDcwfM/jRmdKDdU6bzjDAD9zfZip4634FxoR9fOU6WYVy2/5ZwsQ6cjJEf
dq0pw7V270Pa9NvRVzh3/Pb5MtxZuG3NueetqLdM3vnsh1KUPiXzdElaE8ZP
qTsIQwm++uckWneyAVe+ys9mNr/HoZDw11NH61D20sMbS+TeYduARdQFpSoU
PPjHy6z8Nd6aTniRSN4xcQ8Hw+7p5yJ3wuqijT2i/uK3J27hc2y7pmCNFnm4
Yq+Oo/RIPC57UOTZcD4G9cQKju0uvIpVoMK3/PBDOHWx2/5jVxCIDld3vqrJ
g2djb+aq5TyCvHeLIiT7P8Dabw8j57s8h2W/6hj3Z5eD3H8Zkbv9ciHP1r92
zLsKJjaYNphPvoZg99ev8rXrwCtvW9OHEfJSZr5f6ODfABUtj/7+G30PL9dy
NkSHNEFe/W6FHSolsGKMr+1CUCvUWNwTj88qhdyUgcUud1thQea45cu8UtA5
9M3yQHwrsMxU+xgFpWBbklm++U0r3Bq6L93JLIXouzZ5Y32tYCnz25TTXgrC
67NuuVu2we0Ty+INhMvg5/EDmg7/tcNOhegjKi5lUNn44oFRcQfw1y+02r+I
ASEiL2Yf+tQBlzpm/VoqwwB9wyxP18YOGFBKEe9ezoCi1xl77gx1QMCn8hS7
NQzIinwuUL+8E07kbVytqs2AO3uf+By93Am8isqjCvYMsKyOsvaBLug//z7f
OpUBwgJRjBDTLvgnND83PYMBFdsjN8Yc6AJRjZqfv7MZoJd1X6ToTBdYXUk9
Gf6WAephdym+pC64ufxb3p0KBoSuYsru4uuG642/6r71M8Cttzi0zqEbkt84
74tYx4TLyZ0ytie7YfaT9H0lKky45ziTxjndDTbTXyr7NzIhv1f341+/bni3
+NgyNW0m8LEYsxUfdEOTd7P0NRMmRLE++ft96oYlPIEFFq5MeM9u9FBQ74HH
ITfL3VKZUPPs578Xmj0greyZLZDBhB4n6Tua0AOZfMFtcS+YIEgfzNxj1gP+
9dzp/NdMsKTbuOedeyDtRpFOfhkT2HSPQ1VcD1zQu2TwpYMJItyhfT6ze8H5
O/O6gxgFW/pj/t6b3ws6snPtVSQpcBjY+SxrYS84fNk5/GMxBXkjsT9YS3uh
Li1T0W8pBQcnDWP2beqF3Oqt7eaKFCTPT+xQO9ELcz7N6K/dRsHnBbtDTN16
YY//hqacHRRMiEyonvTsBZXVHsIauhQYSZgEJgb0whO+ZdbKhhQMyv5cKRLd
CzPtidt55iQeZXMXXnkvqB1tsIg4RoG96m8xwepeOKOU6FB/nIKbG569W1Hf
C6VaRdMLnSlo2/RH6FBXLxxhze285EpB4I7UFx9/9UKh3jNBOW8Sj/n02LO1
LDh36Ohw6DWyPs/sAPtQFuzt8Y2eTqJgv43bFdt7LIjcKncjNZmC3dvWBh2K
ZoFuPZ+wyTMK1AWSr1sls+CB8Vj1tecUCMQ+CDMqZEGDJk+i7AUFGSX+sWo8
FsgPTjxzeUdBYopWvPIoCxZbSuz7VEhBZOjPR+t+ssAv0y1o9XsK/PefTVKY
xQbP04ccaz9QYNF3/Lm0LBtaD3WKjDLIfi00fTOzmw018fISNtUU9E3MfTtl
wYZZRjp2HjUUdLQwC35bs2Gk/vOSq18oKH+q8378GBuCn1S2x9dRELtVncG9
yAbFJo+LMY0U3F02wmRfYcPC0RXrbn+j4Cp/VnlPMBvGrLx0LzVR4P55dWXb
fTZ8iwh+YtpCgY69TN2XdDZwrhWJvmkn6zf49rUqhw3iyxPar3VQsGZdZMOn
N2zovGYz37yTArFx4WZGKRui2N/9GrooYIXwdb1tYcPjTJ2k9F4Kmt2Ku193
saHkt+UuKxYFVZZ+vS9pNhytvKo/SZwvO0FnfmfD5+JBzU00Od9s7uDj+TRs
+s9/xptLwcu3VLmcGA3iBrTG7D4KWkueJiVI0dDquLfnNrFyvf3+eAUarlXn
PAnvp8C6fYeqrBINyV49L+fxKLhML50Xu4GGA8yozf7Etb+aiqJ30KC1b1bE
vgEKfvPlP1hsQMOSbdMn3xCvFIo6E2VCg4jSTKbEIAWmkl67JffSIJObautK
fG6ZpULEARqm0qIvvCdOWK36T+woDUe2eU7PGyLnoSrcFO5EQ1lz86AF8ehW
Xq6oGw2446z+fWIZvYrQO540THi2/qsi1jdJdRK+QMOqisLls4fJeVhd1wm7
TINR5+skDeIHto5LhIJpSElwDz5K/OGE7tjNMBqatEMqrxFzPeSq5kbQwNuc
6vGUWOzCVEpIDA3Ohz3Pkvc/aAW1XhF4TIy3a+qIHUMLDl1PoSH1Y8KNbuKw
yGiN2Vk0xK0wiesnfv3onMjVPBr8Pm4VGCLuSNnH5XtH1jcj/JFHLJizofQK
0qB55GxnL7FagWj8NEWD2Lt5Jo3EB0sHzwVUkXj0A+aVEQdVVppPfSXr9fBZ
kk6cUZ+29lILDXdmYi6EEte3h8z600XDwdn31jgTT9FO7Rc4NFg2zlq1nXj1
iH7+r0Ea2pbFuQsTm0/K3/Mdp6GlenrmG9m/8/wzp378piFvbWt7PHGSUMfO
c3wcOF/YyH+EeGxZ7C9PEQ6c2tIoV0HOa6ni+bpRSQ44F6os8iU2ULPOPCPL
AfF0CzM54mg9cfvTazigZfzoih3JBzQZ0RxU4cCuP8svTJD86bOqlnDbxAED
WensYOJtzrfKXfQ4cGJSvjqa5J/TmZNJXCMOSK4MeyVFfPeCoZ+zOQdY9/77
eo/ka3cov6rTETLeqYC8/+X3/KiuuaxjHLiTkezZziH1llDcc8yFA6Hd6ceB
+HrOxQf2PiTejTJt42wKXhQcONN5iQPHIrrsDIm/lW7ebXeVA67nDETvk3pa
2/B96nA4B3Ykp49JkfqrmjzlZJPOgSRR9ZR2Uq/CBl8POOdwILAs016U2Cxc
29T3DQeCDVjT2qS+P69eoB5dygHGN3Pu9TYKKvdlzTS2cGCb7iX9NtIvhBIX
jdNdHNCsNRBgk35i0u/P+UFzAG8efMYl/abyyp7qxWMcsJZc591VT8GnrOE4
ayEuWCwW3HKf9Kt5kzZ3T4hxwa0qv/gs6WfGOzHIR4oLH+btkTEl/a6iJdzl
wUou2GlNGY1WEgtu3NKozYW8uo3OUxSpLwfvuv1uXLj+XKFYtojkY1Yb08mT
C7+/mwg+J/1316+dBefOcyGfVSShWkD+f2fR46hrXKiTtfVUfkMBVfjGvSGe
C601VWt52RQwF03O3V/FheeRo3EuTyiY4+Dw9/hXLpw6EZeQ9JjkR2bFsHcz
F1BFzao+gQKGXmxjJJsLgSeE6tfGUVDmof20fooLnENK86MiKCit8NexUumD
Xw/H3V2vkvtMU1CI1uiDIznnE/4LJPn/PLzRV7sPSryNg2oCKIgISXaPM+qD
mGvv7GQukvwxqIjrOdYH+moWu46fIesrkfx1JroPRifEisoPU+CnllDGn9AH
VW5nb0odpGA4UfFu5FMyPrd/wt6agqYArdVvc/tAUlUptcuCgrRt9lbTlX2Q
PTq0K8KAnNfbjJzbM31gZCnhxlAm/URx0yU5wX5wu/0yKmsdyb/o4l25wv0Q
nBa+O5zc70t9ajvqZfrJupZb6smT+1r954Klm/qhR0gp+wB5L9zN1nNJd+mH
o+dOPTKbZMLXlGb58rp+sPQT+WhezASJSW9DreZ+6HhoZ3jxHRP2mix0zers
h+02R08kvGFC7bDhq4iBfuD7NRH8lbxnvmx9ZWgvwINP8+SVRhOYUPXpjuuk
Jg/e91fNmfRnAjWk/1opiQejpn1G6luYMEe3szkhlQeqh1d8u0veWwYRF/+J
veCB0ER5L1uZCcwtubt+veNBc4aAd4ACE8quLG9h1POAqbB6r4MYEz6IT/6z
nTsANlXPJQf7GFCw+YVRuMcAOLCP6y16wADRyq/BkecG4FFf45OpcAacODrJ
eOg3AKOnL27rCmWAxI2dukkhA9Bu+VMqMpC8D5tbNF8mDoC5PRx448YAuUuC
SvU1A3BoJk2PpcuA6yX2wtJqg/DCyH20k1MGFqYSdYkjg1C9jVqzdkUZtM4+
xF31cxBET2f7CcmWgdP7x/8ypgbBspOmaIky8FNRUXo7fwhMvE30bswpg9SF
xte+KAyB7rBprg+3FKbqAzbzHRyCDG/fyJnMUkiz7Y89VjIE6ZstnpWolcIs
jxLHVfeHQT/8eXvZihJ45nI/YtvDYdizaqGRt0wJGB53LNuXMAxsN2Pb5eIl
cPPgnJVB6cMQnLvr+lG+EhDdadzTUToMnc/13NcVI8guqbV/ODYM2+57zjzW
QNAo67IV2j8CpRF4+I/UB/KevrL+woJReBR7RFDqbRHUaLYZ3aocBVdebELi
+XyYdD/i0hj7HarVD6hOvM+BPyyFQoMjY3D51D2NqdwnUHOr3vvZ0THwkC7s
dPV4Ak/VrqnMcRwDdnpdzNv1T8DsUm8Sw2UMjKM/bRhISYJEiSc39H3HYOvT
W44+Gx+Dvp6cte79MfitZyE8NhIHoYlLRrd9HAMc1R/4qBUBRw0q0uMrxyB9
55+78ln3QYN3/vjf6jEYXiJSsUnuPrRvbvpW2DAGp4aBF85/D1SrHxRr9Y7B
ded1M/KhYfD1r0TY1n9j0O/A4j9z+SqkPikzeMg3DuwhSYPww0Fwychr+ufs
caDqPTcpbgmEVZF1nvlC4/Dq1MHZZ5suga/SvYObl4yD1sWtfxuSvMCkFiQe
LB2HlKDpksuWZ+E/35HPE3Lj4LdKu0Vp2g0qSs3h9epxmL/gqa9EniMknJye
lFw3DnN85AVjxW3BSyQ7z1t5HFblH/2Chftg1ys793q1cRBI+vifOurD/39/
hP///qjzf/1IiY0=
           "]]},
         Annotation[#, "Charting`Private`Tag$15177#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5, 0.49999999999994316`}, {0.5000000000000284, 
       0.5000000000000284}},
      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->{{-1.2, 1.2}, {-0.1713538975870725, 0.17135393862514176`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {159.94490842698488, -97.50736892665738},
      ImageScaled[{0.5, 0.5}], {299.89670330059664, 185.72832176506168}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJw12nc8Vf//AHArZaUkhMgIKVRSonqTmYYoSsOoRFb2jIRssrKyChkle3Nf
x5bMIqtUyrqD68rM+J7P4/H7/XPv4/m4933Oeb/er/frvM/7cUTuPdY3Z6Cj
o7PEP/77FjDikJCXXwBBzYdeV6dC4LxcoZ7c0QVIeviFg8AfBlbb9LwPyyyA
5el9CgqXw6GqOK5fTHIBNNw8KlQLI+E6q6A/t8ACeGdNDM6WRkN4rfTPRYYF
6LPZaVhtEA+b+7WTqz7TQM6nqPUiSoeDf2daynpo0D+UGLb4MR0udYTNF3XS
QFe4fo5bOgOSXXu081ppoPfc3SWpNANO9RguJ9XQQEHuWttE02uw9zW/7vWG
BkKUf/bpw5nwa9xv5zlHGoweswpUGMmBWQnuK6t2NDhxbfZ+wv5cWLPKjiiz
psGPn7qxlaa5wL3Qxn7YnAZOMqNG8pO5oM3IwcZ3kwaNLpezBGbzoFAsYTvt
LA1+K57d1T7/DrwfvKN7y0IDP6neS4YfCyE094yKGTMNKmP7391hKIJ4ctdT
QUYaBNQpCM0JF0GRM3UzZn0ePnIU0VfeKoI/AQobT+fmwXhu9kJ/dxFczIZV
o4F5mHUqY9UrLoZ9k19oHK/n4WTSkmiZSSnws2Rk06XNA1WAxW7KrRQEj9jc
XEieh23xXKL0UaUg7MhEGIqbB+yAz/wUlMLBzRMhmcHzwOvt+iBAqAyO8cQL
n7afh4D6dB2GwTK4oHnz0gM0D79NhY+ZKFSAziPxLcMz87D5iWnLWacCLoVT
iy+cnge9iyMvHU0qQPdzMK+c/DwcDuy/cDCkAgyMq8dXJeZBs2TPv0ejFWDm
yu/xYuc8SESOr3t4VYLH22/ZNd+pIMR2l7iVVwXcQ8Lv60ao8H7P1O/22ioo
YrlfQhikQtD3uV9eXVUwbTNDaOyjwi/92D0Z1Cq4Kb802NFCheRhA/NxhWo4
iXGyjhZQIelBks+Numr4O3ze7p83FRraQ1kuVNdAFFug84YnFWaYiaPm7TVw
5OxHzy03/PyUPVTbwRq4n6EbxOhIhZfGa0wqizXw+eGdDLaHVLhwcvcCWa4W
ihdcPgtcoQKbyQsrx9e1YMeRd/KMEBWsk6ZrHrvUAfX96NUNfiosXI38x+tf
Bw6XdloTeKmQwJGrmhdVB85hTukqu6mQOyLIGfSuDrxYzu3QYKIC/1Ir07Gf
dcDJ9rb0Vf8cHHGYoLugUQ9cOmzT+7vn4O6jmCtBevXAE2IvmNE2B7Wqhx8U
3q0Hwe3Kz7Nq5qDG3ZK33qUepBh7DQsy5mB7pM9cT1Y9nP+3ukqwmYOn4DTz
fbMeNJRMZFUfzsEI/wkjAgsBtD2a7zWZzIFN6vjVEG4C6C5HfmrTx48XXbb9
xyEC3FkQS+1VnIOClos/Q68RwJV0WWWcaQ7yjhxLm31DgLzR14HbUmehj3P1
s+JxgPihJ6+X4mfhA92U1t/TAH4DN+qmomZB9tkpvTRVgFs9HLSPAbNwbw00
CVcB2Js87kbazMJLgnqLrB2Afb7eCd4zs+CX9F57JBvgTs4R3R0nZ6HF3cTG
/z3AhaztVqtysxDk+KpGoBRANK0+fVRsFmLXl/7twwD6ow+xZbDNgkBbF8+V
YYBTHvTjUqMUyJUuMb/ChIG467f1fQMU4CoS8RDajsEup0peth4K9GyuWk+y
YHh+2V6mNFKA5eZlBmNODJJNh6uK8yngcfGgIxk/waZW8QslTwrkaNSZhspg
QFQPzz/sTIH8NKboETkMBlUtWgTtKDA/Q5wRPY5BkfL+f5tmFGCbr5dMOYnB
PbmQh00X8PY5z/SPIQxaeMzOXtpHgZKLkUbEKxh4z/H71nJRgFJBFZi8ioFC
e3+jNDsFPnzevTmkj0G2h7Y2yxYZJHebK2YZYvD8m9y11j9kCD41It53F4Oz
5TMvFcbIEFjdEhBogsFiROZQ1iAZrAxXjsmbYWCOeI39O8gQkTwW6vgAA403
m5YqRWSgnNw3EGKFwYZn1bvCPDK0PS06u2aNQfk1x1mhTDKsDzQfuGeLwcFt
k04bL8kwIDllw2ePwTbLLp8aLzJEZ92uEXbBoF4lqOGQCxl6M2TiLrli4LJP
lSnJjgwEMdO9Dm4YTHSUhbiZkeHQJhJ/7YH3XyYl7oQW7tQ9u9K88f4zGw5m
qpDhmo1AQ7AP3v8fnPx7lMiAGrg1rZ/i/Y/yT58/QgabLbZx3mcYPi/OjptK
kMGoWIhpHPfe88vivcJksPC8tCvLD4/PglX+By4yrJVzb3AG4PHpFKfsZydD
yevq6Wrci1ljchHbyDAbH9l/+zkeH0P9cusVEmzc62kMCsRgvxz7ysg8CTzv
K/fuDsJgYHurkg6JBB+xwYVY3BrVpzGpMRI0VMbG+gbj8YteYEgcJIHb4Tx+
Eu5yqwKN7X0kECga6bocgoGtmkWwawcJulbTS3JxHxQU+TTRRAKC4+Puf7i/
/x3hMKgngbgyQUIrFIOXXXFXmytIcO4QXUMo7stvr8TKF5HA8GPOm1bc257u
+PomD29/V6JvDXf9jUY+rkwS9I6R9CTD8PgffXL7WQoJ5tceSl/CLcNyMo36
kgTPebaZPsI98Wvup8kLEtBdOr7igzu1Jk+sJ5gEX62NVsJxG8Tef3jOjwT+
67/NY3Fz2OzPK/AiQaiSkmYM7hb1QZKgCwmc+ZrSQnCXKD0dyLcjwR334D4P
3GlHJUHRkgTWe7067+EOk+jJbTUjwanl0jh13O6CbjHXb5OgkqYjJ4z7AZfw
k/HrJLiZb/iahvdHb0ebuf0VEixHkOcIuM9t2uluapFgaOTAgQDc0n95Toer
kqD8FfOp87h5iQRRfmUSlOQWnl7F48n08yF77gkSmOUckcnDTR3YuaQgi8eL
NYJH/794f6r40SRJAoU9P9YW8PHqaDD+qCdCgvRuuR+RuCsqmUt/8JMA8YW1
i+KOyjQM/MdBAuXWUIICPv7eSZuPQ7bj/qMyUIbni9WLt0a89CTIZzy4TQa3
mtfSEfm/RMiKiGjegefXUYc0ngYKEYT28xvb4PknaKFJpztFhD/Lf8Q/+mOw
pB//xWqECJXvFa/Y4fk7rn2ufuULEVZ4sJoKPL97zk2+DewiwjzZz3LFF8Pr
2knPNxjevif/lQU+P24zfD0w8pYIVmy9pEUvDLRXvFktM4gg2hNE2YH7xOzB
v4tJRKhqVL651xODnSMubbsj8OsZMXvC744BVrzX7oITEcQEp0K+OmFQkFN/
Y9CGCLf3fLxb7ojXw1RzVfOHRBi+IdAY4YCBU0g59zMjIjTuLdM9/BgDCTOD
2ipEhHN2xO38eD3Zc2MjS/M0ETaUwqZbLDGgu5wd2X+cCPs+NflaW2AwrLho
Rj1IhFxZD1ImXo/Cd73cIcVOhF5M8HiHMQbz0G+QMDQDBWPxDVQ9DFqdaAfj
Ps/A5x79HTfx+pgiuWspqnMGsg/l8tfg9VP7xcX4UGwG9niXFNtdxCDDuPGr
d+4M/HjDz5OsjsHVjcIbD9xnYFJqSmBDAb/e4i5JM8cZmKKmUbhOYLD+gLR8
12YGfgX2t4vh9Tu3UyLxhukMpLpzvTspi8HWq9QhHe0ZMJPhCxWRwOCDUpjR
Mb4ZYJjQZOHci0HAbO4hWa4Z2PvO6ewgFwa33rSuSrPPQKsXf1XyLgyYWRmS
xelm4H7k4os97BgYD7uP8E5PQ9Z0iHwXAz6/3B/e3qycBnN1olTbGIBNuerd
TzemQYaTHbMNBdipcc5AU28agOXKZ/MAgMJ+pcsNOtNgzX391zUfANqC/NnK
s9OAtu0R4HIEcD8usT9TbBo2otIY+IwAAgpZv3vOTYH/s6YmvYMAr/K+3JEO
moJnffpJ9RUE6Eg1vxNSMQmisccLHaEeDEiDSk5Fk/B5ZCWdUFkPPxV19t3N
n4RCQls3Y1E9LH6R/Xo0bRKwjd8Mnhn1cIB1RXfo+SScFrQJ43lWDy6uoWqS
BpMwkSalw6OK/65bKN2yMAEjj2q9zerqwI1udYXu2ATE+cq55+LrqatFe/RE
S39D+g11eT9UDezXJjK6uMeBf05E/aRtBfDaS0Qej/kJ3NWJzHzvSoGD7uzk
+bHvUKzwk/tLZhGo1ShLOueMwI8z+1tKHr8D3kf7MvlyByF2QV6W7fRbKN14
sLPPoh9u0e08qLacAZTAF2Xrxn2AGSWrHOVNgrzpiZIBvT6wij9FVVpIBHOd
M8Uf1PtAqHrsz62eRPjOMVNgKt0HtvZ/vowEJUJX3Pmc5sVeeHOgTv3bagIU
vFlMCg/vhU9dq7Lzv+Jh5EnlpqJzD6SOyc0RGuNglKQb5y7dCcoiTNfffowC
CfHyI9m7OqH2wCD933dRYH+Hv6Vv6RPcNvx92CgyCpi7/ixKN30C+oGnQlbX
ouDoB48b329/Ak5DOVXd+hcQaJ/Jfz6iA9YIe4VOLETA8cWlDDZqOwgHrGWo
+4eCt8yd04pf2yHRgCQ5eTkU2s0b+h7UtYP/+x0HqvlC4e7XMAZCcDtkVX8u
WPgQAsGVBx7Yi7RD7q9C1frvwTDmoSM5oN8GMa4xAiXqQRCymVqQVt4ClHfR
0qmKAeAuO/IjMLUFOslTE+XsAWBpzMP1+HkL1Cxbhf376Q/ahEhXZNACVCON
jxyh/sDs8xT9/NsMFxdPe+mO+UHAhmmfyIlmqCpL+aH/4hn4rIstZpU0wrDR
l04TSR+wO2IqGZHcCEdFa/XWR7zB+E6KkYtfIwSUClQtRnrD2TpugoZ+I3zP
VfPfWn4C617bgibnG0DZssjPodsLPP5N8kkdawA5rz3nx8M9YOrvNQ9DEwA+
Vr2skKsuICrfJMh3GIDB1F7mKasLGDscx4aXCLB9tmzhT7MzfKXs2n43kgDn
U7IS6JWdoXWyK+5+fT2sJ27vf3bECbKGtIrsBeogaStcr0TcAX7yVF47PlUL
6pwaiRUT9iBoILG8UFILOmc/hBzJsYfYPqZzbjq1cPi5faPtYXvw62j45O1R
A7tvfKp84WgHZnXKU6GDVdBmtWU43G8FKWv5oZcy8eeeYWqJtLkVDCnyy+58
XAX3gkJmzZYewdXyFedo5irIYlNI8RN4BCofyhkSFSqBlG7+J8reAoQy5ISy
Y8thxd63gk7zAYz6ixmAbgkw8Kw+O37uLpgWqxxZESoBGRrqrs+8A5NjdxmP
zRbDTgcDrl+sd4B2OrH4TXgx5HFuO0X9fgt2UNl3Bn4sAplV9U8KCTfBpooc
kRT4AVJM8/T9Da+D+x7JM2wHP0Ccir3hm4Fr4G9nRnzSVACZ/jB72/AaJIt/
1TSlKwDp67ec0u/oQ1sUbEl4voNjIje7rZ9cBdFHMQ5ltrnQKaQUac+lA7LN
ncIS7LnQeNP+kaj6BTgtvL07IT8Hru/zKebw0IarA17SXlNv4Snycosma4K3
qvlvVbNs2OisPXp9TQ2CU9KjS7ey4OSbgz2DGmoQtzyMDqZlAYo7lBEfdx7y
C66k7BjNhCXN7PxWZVUY2qdo0HP9Ddz+aImRzM7CH2dHRtWF18BcOHas+MgZ
mOt5X1wS/Rq04k/to24oAXOgyM747gx8PexYMFqqCA//7I2sjkqDkbn3yk62
J8A7OZSY0pUK07OXqjls5CHu6pamL2sq6Ojnnhd3OA4NddNbmgGvYHfftvTW
yKMg+LLWod8tEeaahVV65aShfX7hXXhVAmwOili1pUiBy5Ujk+qr8WD5pjjh
NI8kdG9PvVXu+RIeGB4oj5IVB88HA3G2tXFgNPLXzbVLFCQaOHoOrsdCqM75
P0PuIvDU00ct3jsGPCvv20sT98ORwQrvK4Ro0BQZfP8jTACG5OcqmbeiQL80
mSdacx+YjcDNWboXcH2n3SaReS/UxB7tMvaLAHEatSiOfQ9wXX6t2sMYjrfL
Xz1zeDc0g590EXMI8BE1+3gs2GC/x0LageAgMGVS2GuutANcjz/YE80SCNq7
bZzL0DboJvUH0YcFgH28TNs2NwaQzNZYd2D3B5UjfIWl2BbB17jCfjziGWTs
/9p4b3mNMMQrOaHP6QumKxvi/DFLhHtv5EoDRbzB930y92gUjcC9d3eKhbgn
+GqXWF6eohBag2gB2pJu8NN/19515ymC29oX20PSzkDXcoyhueMXQcq23JBV
xgFUbN3iL/cNE8pA5ulXExtQmZXLvpjaR+DNpl5NNH8Ivrd6t7MstBA8Q0tF
b1mbAl0Hu/50QiWh5gd5+tT4daA7b6JstzeTQGcwwec2qgp0P7UmJKa9CL0G
Z3yZT0ohOjqxhTNvLxCmnzIaeS5dRnSm9Q2GWbEE2cV/wdVztxBdsLx7NX5X
PbG3lsbveB/5RiWo9IRhhD65lQNGNo+QrzY752HtToKdjoJuwsPHSKV2UOlp
zAAh8Hg1warIEamkEdNEo8cI/TA4EFLggnzN3WM3X/whiF5eIufmu6OMXfrE
5+lEgsMIN1N7jheyT9rdHVNLJWAW8gJTWT7ogL7UN9uwv4SgNal9jH2+6Gdc
A+s1WCHIqlZlxej6oavYFynVGxuEr0FaR0W7/ZH7Sy/nV4foQXzvQy3VT4GI
7slmS1ItM3y6vfi590IwCl4QzHzVwwKObwKMTdtD0I6ENKm0vRzQIJfp8rQl
HDmb7yrrFeACS9fj9JzqkeiO2uGdvSzcsKu+ITyt8QXS/v2+omsXD8gdpPaN
mUQjRQbe9IZH/ODXXpkgIRyDZFmNMytqBfHnlKd37cZiUOhEu0+OhDD4lOyc
2bgTh7ZdHF+rExOFTiRDt/9WAhLyFfd4OCIJHx7t60g/lIiUDpnMPw85BFGx
2+JEVxMRx++1awZah+Ha1HdJqcRk1LX+7yn9nCyMREbqyn9NRdTiL2vn3OSh
rspzX0V2GlpCUyXPQ05A6vjD34ou6YjTa6VNJFMBjr5KVxYOzUBv/+hF3iSf
gr+zbj3ih94g61L2nPKvZ2CC0e7EZNQb9NvXyilF7Bx85XuQlLPyBrE/t7QY
cENQef7qfen2TCQ67bq5X0AVPOOlluUsspHX+eRHFtvUgf7csJBydi7aTrt8
/3KIDtD0e/zX2fNQ25NXhSesLsK4Rct0vXMe0m99NYtduQTN0cUlKur5SCDJ
aXeb6BUIngjR1Pz9DmUZeaWr/LsKOyOU7PRECpG9xyfiMQkD2Hx99AtXSCEK
O3vjZ3WpAcxVSCj2UwsRj6D/691qhmBpz/LssGkRYtjW2yJncQN0khd1PsgV
I/pzj2VEWoxg52zXWGl3CYozfin7btAYzrC8urt/qwR9EFTlzHE1AWtxy2+B
cqVIMidzI4nNFNpvMYwYRZWiWGVnQd8PpuDXdnJgS68MFfkEB3zYMIPljPRP
FwfKUc6XMwo+DQ/g5zWHqt+jVejRr82XsmNWsPPxuVOX2auRoZzX0TBNazgb
ylZRcaYa6V0UprwvtIZkLLs0JLUa8V8YuIoCbOC6zMgHOZMadNzt3dWUk3bw
kVkt22u8FjWcZnbk+GkPJdXcMXtmCMi1L2EotcQZApaIfWH7AQ0/zy+1WHEG
Q/mG3Uz6gKS3nD69OecC/97bRv+tATR/XkrXphNfT1y9326liaGHbxioFyiu
YKVW13aRrwGF7li7sU/dA9YO2bVy1DWi2yWKhlc0fOC+ttHkha+NyGJ8XYMj
yQc6H6ozB1IbUbLZ1h4lig+kZfJrboo3IYUnMv3f4p/C+f1tLbMRTajHdV/P
azdfCNt1oKXHpBlVUzi7zo48A8HlvqZoxlZk6G79cLQtAEoymLSv7W9Fvkfi
+uKXA+CCzqlO7lOtyMnCR+W55HNwTU3pT7BqRRHKbVNrQc+hR81iIrWvFSU/
vhimdTEQ/KLWmfPT29DFuSemN0aDYOqQpE6j8ke0Vfbz8OCBMCi586SX5tSJ
Cn7Q5jKFoiFr51DNSlgnkn44+yReKRpeYvLZm5mdaP77vaOphtHgLk7yYO3v
REaCWtOTkdFwlmwkJnqiC/V7386zoouBdq9Trnp/u9CVZFrT4akYGEumCRQ5
96AATUsPg6Y4eG5TVlqh1Ie6/czEFMsSgdhcx2n6pB+5mNV8WuJ5DcVSk0fj
AwfR+XhZ+gS6tyBCoxt1fzaC2u/yt/w7/A46BgpeatV/R3f+7DBzeF4E1uP1
oX2mPxHPnskDvbr488QURd+FcRwd3D53YduVCjB1+OBtEvob/bod9fjjWhUE
f5gip7NMoCffmAPI5rVQXNnSKrRrAsWNYgoDj2thBMvMSOWZQLevNutUedTC
kS8m11+JTaDo1Rc+thG10Ls8WBt/dgIRPFiPxJbVwj7V9tAIhwn0MXU+vJm+
DvK/5Ep5DU+gX9cWbgQm1MGXb4EMaz8mUHVvddW7jDpYn3jwzX1yAnVkGbp1
5NXBlZUDUa4LE6jlJpAXauuAJpi07MAxif6VuXYv/qgD5YchrZaqk0j/cSHP
B4l66Fx59MAwbxItXBTwK/9QD+zqn288LJxEqdmn0h9V1MOlF0oXXcsnUZOi
JgsvoR4+HWQ7Ht8wib68FMm921UPHfrvtwaGJ5Emre5iEqkePr6fTTZgnUIV
d+v/NUkQoNXUqe+69RTqeSojUZ5AAOb3o80PHKbQquIl0edpBNBcVqtydptC
292Ygy5n4/+P4E6P859Cbawatm0lBGipKbfpfzWFXutq/jLuIkAz98r2651T
iEdnFxMPPUBD+5Nz12SmUasVa5XDPYCTisysE/LTyNnULKHOEiA/58WAq9I0
+vx7yHXDDiAm8I1NstY0irzNtMvMC+CBenvyL7Np1F9bmf4hFoAZ27P8OH4a
SXU96rnVCOApl9pInzqN1Mu55OnbAWbTJCJjM6dRu7HARkoXwKD36YOVRdNo
Vf1ZatkQQK6yybXNjmlEqfPfujcLoFOZXxi+NY0ytZ7/GGbDgCBxwkuIeQZN
qnb8M9iJwfH4es0i9hkk2rrHu3MXBgIuvd+/7JtBmjfXk3P3YkA+vsQmcGIG
xRd/rhYUxiDyg6plnuUMovR3H6EexYBB6JO88uMZRJ0X1Nolj4FrxPWtTpcZ
tHl91VVaAQMTG4t4qt8MkhXSZ7x8GoOj0hHNp1JnkGfRnKqOKgafs4cOtPbN
oC8565QDVzHgWnHSOD00g85bulAG9TDQ0+G0ej82gzLV7EnB1zDondUojSHN
IMvetz1Dhhj0nCrVMNlGRLpvKcVydzHYGXrF6jMbERWxGgpVGGNw5dtMpAYX
Ed25HX/vpCkG3b4Hhg4LE9GV4eMm4vcx6PwYYbWiSES2H7Iyyi0xYBc89MIa
ERFJLU2N1QqDi3bNpWMaRGRd555w0xqDDq5/6836RLROd+7cuC0G7bctX0Tb
EFGWWutmriMGOz4wljE5EZFqc1h6hxMGWnTpQ24eROSjPvtxwhmD1qwBEeNA
Igp41pezww2DFsr5MukMIjIywTa2PDFgUhkbSn1LRHoVB80oXhiox3hs7Cog
IvqrCRL9TzBoPlmkuVxNRKmCWFOED/7/kIvWVhjuyoBo06cYqI1OvvjeSkRP
zO0Ljvhi0Ph0/3DTFyIixHXUFj3Dx+tz1cbJESIS/30my9IPA1Xx66L5P4no
0dj31n3+GGDtodZRFCIyUXn71iIAAzoBiSjGv0TEPNxmxPQcA2TbUOa6RkTu
fuzyybgJu1c27mwnodCTk2rFgRhs3o8V7eUgIeEha4fjQRicrZDVUuMmIduq
xaL3uJ/s6LCu4CehZ6IeG8LBGNTdMo86JEJC7LJEvXDc6+/pylMkScgMlPPm
cZ/ZejXMKUtCdkEmm7oheHu9U5t+J0iol1HzUg7u2szPoktKJIT5jEUs415b
tNV6pEpC/Jy8BJVQDJS0WWy+aZGQaeK3QT/cnslZUbpXSKiig/9rPe4aMipv
vE5CRNG60nnca+dGhxVuk5AFMc9aKAyD09Gum7lmJKR2qnNF7b/94d+7xQQt
SUiRzGL43/5xlUKB1gs7Enpbpe3z3/7yzo7Pz2OdSeh+YmxcMG5z45WmBE8S
2uDovBONu462nyHFl4TIfzo+/7d/zRWkppIRSELrWxa0F7gtBR75ZIWT0Ckj
z8rnuAmFkXW5MSREox/a74KbW71s7X0iCbWJGooY47YeGlYsTiOh+H/t9Sq4
G222XMuzSCjsN+OcIG4++oPl1fkkxH1huOi//Wu7lzoL9UUkRCrm32rA3XzI
/lhjBQlx1iYO/Lefz094+bi1joQ+8YkdvYzbQb+2oKORhIrjg1lZcLdP/iR1
t5NQGm+CKQGPt5AXs/SXbhIqfykga4vbmfOI5WA/Hj/Rcbu9uD9l6r0dHSEh
68lyoUp8PN07U0T/TJJQ/eGCmkk8H7pNG02nyXj/HO+lOeMWX5xKI9NISNtb
++c/PJ/69ssLLG6S0G0LzHYJzzepkptGq0xkdKvtW9Ej3D6aPgkbrGS0Tjyn
+hXPV+nHH/cw85LRhvcPxVd4PgdgJuy8cmQUMv+OvR+fDyPXn+sIKJDRISKP
2m7cx2byg4WVyWh+W2uWFj5/xnYvMUlpkVFs9NhQujcGp+6HbyiakFH9E63w
DQ+8/i0XK581J6P9j6WyGXH/CRv0ULXGz1e5u43BHYOoMtGlC25ktCzSzU12
wYC4rXr21gsyIqs6mFg5YKCSPHbE5CUZyR0V0la0xyBelsn6/isy+vzkLu+W
HT5/b+hOWeeQ0X2q5k03GwxScid+PAEyqnv5hLjbAgPdi1x9aXNkZMxz3J90
C+8Po9GU+BIZiW9fmBYxwuBBXfpG/joZdZ1/l6l7A893GRnpShYKWgvOo4/G
6+dbTm3/HjEKKvSSbcq/iPe/PTLJQJqCcqoZT7y6gOen70Dh6FEKorlsdfpp
4fGfv/dt6iwFhR0kmp5Sw+fnF28FupsUpCLT7KighEFQePPFQGMK8lzkCBo7
heezBts9dnMKSmK7G++D13/JisRIPkcKIr+79yITv1/oJ5ZOHQ2noC456Uu+
Ehjk3plJMsMoSHnUZ/Epfv+R33u0aKqVgl7uauWM58Dzv8u11baLgj6x//j4
hhWDL+eYFjxGKEjDP4I5gwmvNweEL8X8paCnj6Po9akABhPXNxulZtHhpunB
HzUADHbYPfHoWaTy156opwqQZRkdo5wwiy43JOemnAbQuH+vUT91FuncIHYM
HAMIvskk+ixvFh31jd27RxRgp5r2r+8Ns2jkQU95FX6/5+frNUmgzSI+o6ri
nHoCyDf+uMN6fQ6pWQcW90oSoL+uKFzk1hw6R7h6cmA/AVwrn9Upms6hv+j+
dOseAtS8FxO0sJlD8be2FThs1YNKgsVoU8AcSl3Sz/o9gK93bOaMvMvnUEuD
Z/bRp/VwPOzpYXc2KvrYIWJ2qKkOplepj513UtFUqzj9VkUdpFveK7PfTUVX
CkVvNuTXAbumxtlHvFR06jP3NvaYOpikY9O9JUZFwkXxV6tM6iDJNd7xjDIV
xUjZGj5YrgW6ewXVdNZUtKQ3w9jGWwsVvUKb67ZUtJu3fv0ASy3Yoqjzq/ZU
tJl41+PhWg2MCDp9mnelIo0ThwZLv9VA2aDi93E/KlJYDuS+kVEDFpeb6VqS
8eNd9uCoFKuBbsVRrZAOKor6PHA9kb8a0k7fdW/toiJ3tdS1r9ur4bHSj1zG
PipacQvZtf63Cnad+c3iM0hFY3act1a7q+AaIn1y/IOf/yATHTyrgiGNf7p3
NqkoMfWQg/V4JfzWF7gpd3wedZs/UZh7UQFl11KDbRTmUcCVCMHfHhUQcF24
Ok9xHmWe5B+uvV8BEoZi/OJoHplxF6UJnKoAS6PD3/guzaNzTk/mYr6Vw6yJ
sinDw3lU0S521kC0HFZsblsOJM0jer688s7EUuiPfHNwNGUe/Q1dEljxLYWi
opnxn+nzKIsaaMv6qBQs/7rdJWfPo+0jyjm/FUthyCtOn7FkHkVeENK0GCyB
qtCuM8c65hHbMH15HmcJeOSi3RFr86iEQt7VY1MEhh2B3TEb84iUZt3TqFcE
x8ldYYl0NPSdg0Uw5WQREOXuMGcx09AeLgaLza1CuFXp/q+Gi4b8/upcYhcr
BKXW4olpaRp6mxvcz29SAGu/xWrUb9OQhiImaPEhD7pDvjhlGdNQuYkEz2Or
PMiU85dhukdDXL+K3x2TyINLXuMZTZY0tOMhRWYyJRfSuF4HnXelIcXn7w6w
BOXAeVUhA5VoGmqkhCsJXMmG0DQ+qnIbDdno3F+MeZsBxurtea86aIh3S9+o
2CgD5Ilu9/910VDkd6sHgewZ8E1h8GtNPw0xBjH8zBlPA9mul/Wnx2nocqpC
Bc0uBT7/4wo7tUFDm0wvm95YJ8Db143qCXQLyDN7wCC+PR68tBw3lxgX0Ole
6tEF8XgQj+1zqGBdQCrT44Sp0ThwlY66qcC3gOiX08TKz8eATi/ieimwgCY4
piZJydEg7Dr36a/QAtrHrk8OoUVBe8MVVHYQP37BT8dF9AJSLTZX9hxaQPVL
CxtJpAhw5PhQ4nRkAcXlv2Viiw8HzdK7Nl/kFpBDQwqTNgqD/3vfDP3/+2b/
A0Rp/r8=
           "]]},
         Annotation[#, "Charting`Private`Tag$15219#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5, 0.5}, {0.5000000000000284, 0.5000000000000284}},
      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->{{-1.2, 1.2}, {-0.12925956528287175`, 0.}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {479.8347252809547, -97.50736892665738},
      ImageScaled[{0.5, 0.5}], {299.8967033005967, 185.72832176506168}]}, {}},
  
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 639.7796337079396}, {-195.01473785331476`, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.8175673122534857`*^9, {3.8175674402281427`*^9, 3.817567489380693*^9}, 
   3.817567520221552*^9, 3.817567705671341*^9, 3.817567793079455*^9, 
   3.817567857173483*^9, 3.817569690002346*^9, {3.817581574147563*^9, 
   3.81758158515839*^9}, 3.817582270590219*^9, {3.817582390618846*^9, 
   3.817582400806323*^9}, 3.817582450685178*^9, 3.817582634245347*^9, 
   3.817582776393298*^9, {3.817582962930173*^9, 3.817582972201144*^9}, {
   3.8175830310073977`*^9, 3.81758319355462*^9}, 3.817584882023147*^9, 
   3.81758498666595*^9, 3.817585045390573*^9, 3.817585149785573*^9, 
   3.817585439738227*^9, 3.817585525878573*^9, 3.817585585204454*^9, {
   3.8176137655148363`*^9, 3.817613774145886*^9}, 3.8176139295702887`*^9, 
   3.8176141329700117`*^9, {3.817616943087964*^9, 3.817616969451852*^9}, 
   3.8176192172908077`*^9, 3.81761927371955*^9, 3.817619365966529*^9, 
   3.817619480892799*^9, {3.817619523373876*^9, 3.817619547918648*^9}, {
   3.817627771060638*^9, 3.817627777110018*^9}, {3.817627809877636*^9, 
   3.8176278273754797`*^9}, 3.817629121373373*^9, 3.817629171350617*^9, 
   3.81762920273244*^9, {3.817629594110446*^9, 3.8176296424131317`*^9}, {
   3.817637486886181*^9, 3.817637516006345*^9}, {3.817640106937131*^9, 
   3.817640125681921*^9}, 3.817640193215719*^9, {3.817666455601337*^9, 
   3.817666477542403*^9}, 3.81766655795111*^9, {3.817667657897683*^9, 
   3.8176676742443247`*^9}},
 CellLabel->"Out[132]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQl4VdW1/3lcAkrbZ/tqB+2gra2tdrCDQ1tttdaq73V8HV77OqHVKqgg
4lhnVERFQBxRcVYUVBCRSUDmeQ6QQAhDCIGQhATIRJj2f/32Wb99973se24I
6fT9X74vaM6wz9prr73mtfZPLr6u2196XHxd90suPv6C3hf36tb9kmuPP//q
3nIp9W9RlDo+iqL9x0f4fyP/q/9k/ZyAfw66/P/t1YX4T8pcdtll9mo/ezX9
N/6a7z2Zdevw3rHX/2ajt/M7/yActd87F9v/fNDU7mo2S1ZXmjEzS80zbxea
/i8vMLc/Ncvc8Og0c+3gqea6h6eam5+YYfo+N9c8+voS89qkYjNtySZTurnO
7Nm7/3e5Pl1g/7eLaW7ZZ2YXbjZPvbXc3PH0LHOtjHfjY9PN/S/NNyMmrzYl
m2rNgQMHbnJIvdG9uNfMWVFhgeozdLYFBED1e2GeBWJ12XZzwJgL4+n80f6n
o/3cglVbzdDRy03vh947yvypz9iowFx89zg7yIgpq+2L+/YfiP4nF+gpvdG0
e68ZLiBe1m9idIQdKGWuf2SanT4GuCEwwPV6rU7Q+uK4leYv905w794k056/
agugjs6Pwf6dgi2XzKr1NebxN5aaS/tO6Gjf+HfTc8Bk0/+VBeblCavMhHnr
zZzCCrtYK0qrzfK1VXa09xaVmTenrrEIxhTd6x3Nlf0nmeffWRHj2JhfOhxb
WDvYb7/PFJZWmR7yIXnH/l5+30SL9KmLy8ySNdvsR94W6rj3+bkyiXgqf318
uiktr7MjXBdAw7V6TdBkxs1ZZy4VNHSw73Y23R941zwxcqmZtGCjWSyTwXK9
M3udue/FeW78B2XSdfW77Sjnxaj6rQ4pRGemyJyFFvTxeKJPy/wB6o6G3R+w
jxaY/QcOmLLKnWbivA1mwLCF5pK+490XsBhTFpaZ3Xv2Rf+dixIEWqwMZk/s
4FMkgE76zK7GFvPGe2vMn+8Zb5/petc4M3JqCejaYcIfu7e+h72HfcWxb1QC
Ebh17E5mh2ABa8hnejw42azbXKdIIQ3v3bffTF64EQSjeO5oaR70BLqSEY9W
UmvZG++QQa8tAqAdFB9Y9ddld8hcop8FYD6g8OC/IGzCg2Fko3TR29t3NltU
u9uvLsSe7B0Y8Rp9ZX3FDjsrvvLOrFJgt4suIsis58Ap9paQEaYT/SCe/a8V
j8tKtlnW4FPwqGkldi7H6pd3NrSYt6avBaVHnPNl/SbYrSPwRz/JOecCy244
Np7HBn6/h49xc9abrnofPK6hac81geF66XAr1lWDL9jHew2aAhKNSLIgpVuf
nBnPtu8Es7a8Njo3nu0vdbZgLQ+PWOwgwiwwM0Fz9GmPHmYsKwcHd7O94oFJ
lkZAuT8KgLdfCQT7kmOPmVX6QYUMbIIEfsuQGaa+qUVnlDnM1fo8+BOfB1/C
Yhyl98DbgShuqKraxuj78Sy5F4FXsLtu97/rZgCuhHXEE5/R58Bhpi8tB4m4
54BAQZx94j8DIO7Tma4pq7W7BGC8MrHoPxQ6ECSQyuUUaHVWmcP01OdXb9wO
1mKfh3RqEZbyIb0npCAyY6q9BzEquy86J57pz5WCgAzsU+IcIkY49on6RfA7
MCDBpZvgC2NX2tfwxAX41wK2V78pK2Ou1h0DcQ429GG9J6zD0R6YLIihpxuh
hz61uarebiI8JWzfzujDirTK7Q2WMnFPGJNO5mc6GbwJNsbJQHLJDE7S29U7
mixL4O3eg98D+i4IYHevfg9KBx696sFJmNlH9PJK2UQX3RWv3UvjV/UMjHCV
t6fwIa4BtjuHWVi01QEjQ54dz+an+ibuElvYPkLT0Vd0KouKt1ratQxffocL
kxBsnqi36+vrzZAhQ0yPHj3MNddcY4YPH27279/fQUd++eWXzYMPPkhYzezZ
s+WqQC/aws6dO+210aNHm5tuuslcccUV5rrrrjOPPfaYqaioKAhMdY9OZ1Fx
pZuOMMqP6eUZskF4WfSFHoERrlTAsJ/6Ph/LJKgfwtAjDvP4mzGVQocTkvhe
jKwf64yxYyHH+SFokfL2KUSIUCXXEr93PTPH1Oxo+jxudzCDBw+WDzQ0NJht
27aZW2+91bz11lsxso4wixcvNtOmTXPIEjyaPXv2mOXLl2MOHfBH/Gxn++zm
zZtNU1OTHeqZZ56xyJOh5QMHz7tF5wbFEcwYoD07pvAYvfzqu0X2EtiE8IWr
cmKuoyUAPirb7ON6GfMmnchoirQfEWmiogj5OqwAxbJfvu7hFNoGNxx0p2Ul
VZ9QMFpaWszWrVvxK3/h3wJTVVVl4aqpqbFglpeXRx30+VmzRAG/9lpFVXxt
5cqVnI67BgSDcJcuXZqINAhD8nDZVccoDUHvuldpCLSCDfdjvTdv3jxz8803
W6K+5557zLp16xx4IHx8Zs2aNe7ac889Z69ha3Sw/6bMbbfdZuGQZddNkzLd
unVz4KUCIF+hIBeKWCKyRY08Vi/PXVlhL4GllG/b9d14lf5LlwGbgsTvKQGn
6u1spgc9SnBwjIJRUlJiWYD8yl/4t8D06dPHwrVs2TILOng0p7xp0yYLel1d
XeIqYQtceeWV2AbBVdqtc4MifalysamLN31CL0OzBFPD5SdHLYsp8n2mtLTU
Lg4gwxcmTJhgevXqZRkafpqbm83rr78OOlOIBT/79tln33jjDdO/f3/7/3v3
7uWE3nzzTXPjjTeaLVu2RHazQkPZuzdxvborvYg677bPE7IE0L24aNgd94rA
tYLulQW6aP+pb0IH8mWNML7oDAUYu/0Jb0FjNXXv8QrI3Llz7YrhL06iurra
AohdFlqVlK4N9uOKFSss8xHiNo888oj561//CrzFq2QptkmnQNUecklI5pMB
KhVl/Vz9AtYgc7/LMu7YYTGGjfL4448TXDAW4Hzq1KnCQdProELHEcy4cePs
c5WVlW5a/jp0U2wC1wOGLXBSG0oRod1UuctBK9L8rHgdLtQ3sXkeEiuBlpFs
tejbug4Y9d35G5wkBxpEKByngLRld6R0aAgC7A4wGzAM4Ed4Ykh6Nus8ttY0
OEjEpvi0Xqa5A+Yr6uf3PcxlbuuOVqzj5+677zZjx44lYUNyv/TSS0ohBy8G
gZLFssJKBJgagKHF6GhFAtFZurmOgA4ZucyJVsHsmfE6XOCtwyOvL3ZsTugq
OkvvwUakwgdfQNnWnc6WoCARxLtFmDFjRqIg4cSxCMqtHRWGMA9/gAc5JyRK
hrnmoVhzk0eoy2NJ33vvPfsXIXr22WfNU089lRPFRCcg7927t2VfFu12O/5F
PwiLnHgQLn6cXobO21UJQ1CliD2fW0O2GrwP1ARB4N/Te1uq653uiYGLN25X
xHaCzmMGDRpkdu3aBdZopyVaTyf9KPC5YMECq/kIiNywRCnYKJkp+C9RGmKm
TW4ejW4eRRtqjtfLMEi5f+X/L9QRlIgz0JyPknkNS4FnjcdqfIguI+7kP4OH
x8wBLhlh2hG5sAglex2OoQyUQy1LW+Ri/Z2jo0FYQO3EZdieoqNHn1Js51DI
iW1g+v7777e3s7CdrX6Ao7cG28+OiXl7n2dmY56f0cvcpXBoijl4geIN/Ekx
Zn/yMXBiGjwDVkIyptOWDihUjGNCUyEESt9FaXndd2I8/1DvwkNGPE+ct+Fc
xTM8o7IqjgeJVqErlPntRh0GFhh9AUvWbPusXoYt3/3+d7nbiAlqIMA9tI13
3nmHGkjE5RJ7yar/oEXBSEdd5BdeeMEUFRVZTXLjxo3mjjvuMEOHDg0xfW55
X/F/fuyKE/TRwcNjTinEGSlSztM34G7iLho2seg8RQr0DfJX/Ipci9+03yUq
Rs9Y63x9ssQn6OXpaqHBeBD9kzwb2vItt9xi0dG3b1+rLXfWV0aNGmXuuusu
0717dx8FuAztErLvhhtusCJJjKEkFHA3gfPL0hImuPhJMdtqG2OZrb63AkDp
vCRwR0FG/1DvwQDg7sXv5IUbVeRnAtCgXwLqeqoLWkjuczoMmANt0Xues5JB
Yc4c5lIdBsyW/pw5hRWf10ex/3StFIqIhAz3DCwU2qtwdBD32IDwOHESUxeX
Rd9KmAQ8t7E/biKI6vN6GcYBN9jcFRVJ8FO/uvtZO1eOgCiI1T9kqwjDiGFQ
f1mM6wdemh8v4IOT4R50KrAvmfAreoOqwKEppNyeFo0n+oIjjtgCxh6Rr18a
eP0SfRRhCRLMhi07TvRWl9t8duHmDPg7Wsc5KV/40o8CJITxZi4rj04PfLte
h4Fo4zQF5YQenIrmg2w9C70d4M/6ALQiRDPwwNOjl39RP0FjXswLXXR122H7
V/mE/RMPYJoUXeOZRqflBDhljURVeaKTdGi6XkFCwjMvCbxOuBGdwaPwDMiS
f9HbAgRO9my82NHZCiO88zT5Hntjid1Q9HVZG1fdkFZNX1ERnerQtUvHxyzp
WxRqIuB4mR74l8avCgF+sT4Kfsu9Litysj4KzU/lgJKo06GsO0HNPHwEju6f
e1DTqwSltrC0Kvpm4OuEnyQKf63Qxsl6mX4zEGFVbeOfE+AnAwez3L1nH0eg
So5QhQB8uj+Fjmas+sUwvujWv/Cg594FL90oavc3ckKfcqqD/Df6kg4NJgn/
uprxIdAv0kfhiqJ2K2yWI8CTTAeTqH8K+nf1Lvg8Zfe4Oet/paDL1J0LH6io
3tEUfT3w7Z06DFR5iguxbr+sl2F4kOK21DRcnAA9tySi0oK4L+uj9MsIn1MG
4awaMJ7bNJgCOQIR9Wu9B1URI1HxbGjeE30tAX6qT2Am8vWv6KOkS9k5UQj4
rvo6nC3E8azlm7+ilxFfpWkg0J7mw592rwFvVXWNv1HQBU/WFuW0oDOfkhP0
lNsfz7+zIvqqDo3QBzmVrPBFCaDDhU8sCWUTdJ+rL1ldqaCfqXcRZ6ApLVvj
fxV0RKJJTGA2WBELkv30Dn0ZtEWHlRAI54ZYhmobMVHYl/6kLyEsxqHFtOVL
lOBCJsqOVZ0rsJGVG5VpDXx1oeWGDMhjuSm1X5tU/NUAfggt5T4CFEIZp3gY
ICeWfd01MAJBpwP41iEzgRGOQEEDaSDYPtWHPi03EZ+oq9/9B72MNAF+VsTJ
V3ICnkkX3Lp0mAk+ohDIzLOo9bAtVtbXPKIgh1m+tkpB/rbeBSuhfiYKL6dP
AgO+l67Z9uXAZ+v0USwZucjKddVf18uI2HHS8pE/JQD+yoRYnYHMF1xz3pTc
z44pjBTqbymZQImidEJ474BbuVg0DVSUYd6yNZUxh+GH6WBVOdm+Qivk9ZQB
4Osh4Lm4UFe5Meat3PINj1hJgQLRN334O9oEEcqerTUNFynoYMggOBojcNKf
nBP09EYSGaMSNs29sdNFAPwxAXSKTQRDBUaCjq3O2KnwJAX9DL0Lu5E8Rpjh
nxX06romp8bAswguYjUR++lafRnrxrwCIVHCDHlJH4FQXgjm3+ujSJWg8jhl
Udmp3CPqzBSzKcoCWMjHzVJolYox8ESLcdS0kpMC3yTUZBtYLRHMp+plMhms
vojxP7jZElauMuAVuAkr1RLhc4T1dH0Du5FACQOnMTh+bpqByOUj7eV2iWfi
JxD+CVmmtXoNWTQABC6g0xRA7DmG1EdNL/lD4PXfBR4VAuQICIh4SvI3MvGC
sLh+E8TyF50h6IZuSnBk0bRjv0w7Bi8TYi9B3w7RdKfqf8L83TQyCGLPvt8n
oIn8Q4mLZhZVJxEjqpW6NXBqW2zpXa44Ak/hWzc8PNlsKNsMt/phxyUZW9EY
h8Ol7yML4We7ggvFl9Jc1o0ogjQhh5BJhlD0v/ooVp9YFq5BI5pCeMCwhUQR
dyxgYyaP8MzuehkZEFiSi2550XS/okfHdogH0geZz18b8lUSQ4x/9n7oPcyV
/GyMZr7BhS3y6kxd58MP4h7pgrhcR/g24Zi/6qqrzKOPPoq4VhRiDVyR4o3b
fdlDiKFh0i52gXS3KKJ627tQXWp2NDEoXLShxmmrb88s5WfbHgbMH6Owz1kO
Wa1/P6WOmudEHaPsbmzeY5kNrs9ZURHrfn+DGG0nM378eOtGRiCisbHRPPHE
E/CH516BlMvzE93JAQyLlgALk1D0U/ZCoNLXOmLy6qv0MjJEuZSry7ZzJ/+9
90KNgoO9zoTYRcWV1F7pJbVaujHUHNsxJks2h3Dx5MmT3fYA6wSgFRUVQTb3
W4UQEp1yrWzrTnpcmSwoGI+yFmTMrHh/Q5sSBZAZU35UBt4e5O4RY20PBybH
OEIT44rIZJyXQMDkisAIoT1RuLaKK9KOgVlOENlEAGzt2rUOET179jTz58/P
SU5MWOa+fuDl+Wq8pZxwFkWUS0KNGDovTah3529gkmGDcILeGgqFhoJNwVB3
WwKJyWGW3IuRstmu1vXw3FwX9EG6vdpHztHfligtn6utrbXfRiCcuAV3mj59
ehrflnv+WicJ1yZpQRgPrWRR75yiIlrA1zJxzcg+dEQxXa/Wywh8cKx3ZpUS
zYcWQSzQhQuFcEJcleil+il2gvOmbPGCdGLrMgrRlgDt4VD0bxQchgSg6gmr
IK7BNUiiYq8ormmjI7mCSBWF8xq9THMDvF9k92cCn63WR+FcYDam2Ipn6aN0
WTz6+hIVQ4ceTPU576RJk9x70OeTOO//KGi+nBZViqDRZpb/RlnoYHxRYz3X
KLUAh5wQJCWyrG08PJVWFTraEhb6fgQrZ2VdBpqFN56hkzqMeCq0AgQRRVm3
3AWK2QMPPBCiX6LinVkZKiNRMW/lFiqYRAWdRlTZ8Lu2vPZaRQWUdioLUDXA
8Y7LSR4p2ILkjs55DXTSySG6Ol06bQirUkWFmIOKCuoSVTeECbIk6EKcwIS5
6wkTGDynW1XXeIqPjHQITohAi4liBFE9HTt7XRIS6I+WVXDBB/oAYHYItYTq
nggyCkNo4Da37P2ePsrkxhlLy9XTHNFJifIMz/V2A6nAC3jImn468M0qfRTb
mq7EdZvrCDV0RXq5RW3PDXXK5Zq+NH6VhrpSjrXDXZUBcpphILR/o1IElpec
F2uGcMCnEoCm/xw7UNb5bL2McjFcRmREaO/XgRF+pY/6ytqWmgbCzRWQ7UO4
6bP30+xECjDlA/QEzx8uP/7m0txQp5w598BL8104EwYp3UCymBZk+/av9CX6
tKC/8CVETwiKSN6v+oCmXBgRn7lZ32DgTS2ZT7rPELb+iv3RM9ZGTLEjk4Tz
PoTLX+rg1i+q0ZWla7bxdUYk5XsKW8TohZ/RJZbkLXqZrmgoYGIffiLwzW36
KHxLZPkyAsPZxRtqHOHX1e/+VQLUVKSQgCCjEWoKjedcuMZBzVsqNG5R4oUf
A5mTViuTvYD6sWMTQN+wZYezgmWbEXQwSw4zclpJCPRfeJNn9EymwfzUmcvi
LBYZhaAz0OfrZ8vXVt3m0TQ3v/Cs3FCnbBWfTl6TUNJRcJhrwkd+mQAyQ21w
csnuPtcRQlpBFNPiK5lQMzKjms7teplKCyYkyDwmAWpmBAlncFDD6d1N3dpz
CityQ53CprOPPTtmhXsd60S3dGFplYLMaC6SqrgXhJncoTQCBkfZgkgeMl0+
HvhwpfcRlt0tK9l2nj5KI7jP0NlRCO7/1tcRo+R2lzXm6zQqR04tibLgHqH5
EJoYdadHNwwBCE+3INtPElDwL35J+ACTtESy+irzL3LCmhYVKHD9oV5jwB6O
ZwWUkX7oejTQRDDdpZfpoVcC/1hO3KaQWsF10IzGdFAB8uoXbpI/18ERoiez
EeWZ6XnUnBAScyFxByhDLqqJ3a2XaY/C8ymy46MJgJL8ARRTL1dqsih2rYiB
UO0soWY6CwSqAECowa6458WyV6iZSoLN4QVd7lH6RSIPU4Ftuplc/UgC6MxN
QNY/QQdN36SqzFvT14ZA/xkfhcGg4uPtmaUsUAPjxSW4xLPgJnsCK5IZ9tXL
KA4kHYocCoG8VR+FxkMWKXi5QC8zBxO7UbD48wSoKWSBXVlaQj1sYmyvwVGn
UDNfCPO87mEXIemnl1/RN7DzRIod7QiSsPpuVgGKsCK5h3S6qHhrblhTLmwK
2mLGMQMRAlE2oMu1IgLBQrEM+ilZAGdcJ2skyNUP58RxyoXH4bxgOjmpHApO
COKfKgg1nqYkLOVC7zI3viD9Sz7caSfp0NHLI+vizxdL62Ief/JZc2mPm+1r
yAvN4R2n5/YQygSJBUa7X5tUrFiI8xQ5jW21jaEa8J/qNUY94L3i69ZpqrGU
ZSVVigWm4VXVprmxCEyLiMS4WRdrrQ56crhTx94c9XbIQd3Wuj+iAtW2+ISw
by33Srma/OGCnhAefqKzgoFHR7EYWXyd9oXoUFEGHtLiE0l/f9Vrh1PEx/Ar
bCiqblf27G0mTZ7snve9xySKfAV+W3SG8DqSKKrrmv5LLzMjVS1KSxd2AGKG
GxkLJwydmKFEQrhMMcMkUYQOKedleCLncGrnUjo0vMcX9xltrw8fMyvk7SIO
8pXUES+smAAChPKJFywDZZdM4qeBEdhngCkfSLX9EUdV9g1rTkY9ORNDTBHH
XflQHx0oX5Cqo74+fMISe+3SO0dgf3ObeV7VpNK1dOXaZv0Gm2LA3fJjvcYU
PXDX0OR/rLD4ybpiB3P+8Ph4VqXOn2nQ4DAMLgsHukvHz0cF8fyPMvUNjfYa
Aq/Y4DBh8OORQa6asaC/dote81Vazo9eZ/wKXw31liDK2FvinufmONpgRrrs
oigLCWhrgFtwBwmKiIR8QRl247nhhpvMJTc8bIeAwuL5Nx0CZOJHJsz36rRR
kCZmtVLggPmqfvDQYsR5hGInCykkG27hEfi+lyxZEloZklPGbiysILBMexMa
ysRuWi4iw/Ae/XBicCX2kPbs1dt0vXWYufTu0WbAoMHwkHKmbanWqlD4/TQV
0bTJW9F4wOOtsZ7UhphwovztbO68804rRCFrATGYBPZZmqeEsU7ZgJCi6MHE
Ot3C/YVdKNY/p2/AmUS9t2hDDRGfGG6JHbJvvPGm6XZlT3PZ5d1Nr5vuSWtF
bSvcqtBrzNITu8Upf5D1PdOJ75/TR9sY/SXZHizfO/ny3SJfozS+2Fq4cGHO
SbC1C5UYZKlxErTdVMCclLkOlM42NdKYh/Wyn7UpBtkHEhCHNjR47KHXFjnF
SbQge00MsohYa2OENndiwPt8lm8xjW369NNP222L7YAyuauvvhqRxSD5UoT7
anDl9gZizhdNtbuaFXOslPI9/WKuPaqXiQ6Y52Il2JZB9qvEF8uiR00vcTYc
HB60MkRVZjZpvmgq53SwOtDJVwfsZPH3gAEDuC1AlFCd3TBWztMmo3V0/0tp
64hRviVrtkVZqKDmpxGEGBWxgoquQZYFoCeNXbTclERsQsrwq8QWomlES74Q
aGtJBj9AHTJj8DeUcnDLfv362XdCJEPTB6orHUIyfYJL5zUCuRlIStk0YsrL
x3UUOGUZ5JmxtDyEHC6RH0ESIUF3Czo0WZv83gnp2pbkWGg2H0rrD518/cH+
QO2ePHkysUzVAfpREnbYewaGkue+ILMZJKxCscOyUH8Lbqmuf0Iv0+oEqmUL
dsmJoJRTz9Hsix7JA57LetKCjcRO/uBoThWAklIt0Qy6wRYUqZmAmXTWJhQR
+qLo5hAtKxMtcdMnbsQh9lq8rVi9NkhLGELKGxHDsByUdjrGKZmV7Z+sQ+eO
kebV1aDegS/BYYFHsKk2bNgQ0tXoRNnIDB8YmjuauGg7MlWg2KkSsXY59jZN
UG9T5ZN6Gekb5KCi9yXhg8VDI6asdviAA53ybk1ZbaiBGHnjc9q9A9US9IbT
IVC4tirKgnd65lYg46ZTANFOmaTNT0j5phZ9lvBR8DMo38M1lAyEQEx75PY6
HAkz5ev0vo2ZWZoJZdrHCZw8raPAzUZPiejPoVYO5foovLvE/taaBga7mDEM
12RD054LE0CeoslRcPeKlUaQuf+R56Egs4GBH22Qbx6lb5CrxWIO/xbYLB38
HIIJckbybVrS2SnwDz/8sOWf2ECwol999VXo2kwAYQQZv4tXV4Z6r7AAEpXs
9957rxtJNERV/bpY4+Ltt9/O91UmLCPPIxMlHV1+PlAjV1L61ZABRy2JEUSI
GrdEsYlOMpkwd/2FjpJ9DzyTokUCMMTIoDeqFDKWNtOlELcifJ9l5dDpmMO0
atUq+/cBNelba+qckXDPd0P66fuQitCf8G3haZY1imzIzihDhWtj855OgVWN
80A6WyixUlg9iA3MAs6HoqKiiF+HEYfreb7O5OfctQWxtgOk8Cep1oAMhbJb
JJVLEWGyro3TGRNq3cfVZi0L1Jq6Xc3MfNiquxW8XgzY2DeqqT2ZTtUZy8rJ
ag42tDo7Q4s/mAb3NPdTPg8qC+QOxwtLCQOfGZ4Tq83leYH/UpkVxTU3QcR7
EyJTVtF9BhY4eE6uzzAV8OD+YMnVElxhlsNBp+YK+906isPNGRm1ZN4nUmn4
OhxrLFITCshaXrQvpk0k8pvLe7BF2NlZhEnLm8/7x+U9HD8y8S7fNZdffrnt
5MX9vtxr1CUiLqTicHkhLgYOHGj/4meQawiG4y+v/5ncy5vf9KGIZdQfMUtm
UVHvQWJNaH0ZqkXUlWspCg1fp+aKfhIZ65tppDEQF1q4fG7r01r5XIzxTmb1
6tXwklgWXlhYaG6//XYo5iz8YCsJuFaF51i13E6Zq4POMVDk/e9gQyKGZIzJ
9x0mPYcWKp/pTr0Hwotljas3bmdCJQtdNKjLrRdaLgbcEfEXauZyMW0I5qYu
FztswfdGq3NteW3SiuXbJqe18jlictiwYZaDIr8UtCxC1+zevZsr5vfNfGVi
UciQau3OyvPFpLXLt8m4dqg+Jx9oaN7DtcOSMjwtgjO0dud5jzKE9/bM0t9w
HrqkaESStXbMH1NJnLR2+eIDp7XyOfI3YFLZsyv9YYYvxLqYYCHfpC/psKl9
STd06FAn6UKfYSJxLkmXy8VBNsiWimJVuIIZ5nFBZxUMMvkntDx+4KWufjdT
4Vfr5oTtJiOc6K9Qynm8xOyO2F0aDoSZM2da/YvLdIQSaA5HwxnJt6lTAFsv
vvhiRqwBGiGn8k2FwM8xh9GP/hFchSRFdeTIkfb/oV1SUW3tt1k4mlWLcoR+
IskLwwWknwLGNhcQTIKqiojf3AuYLsNBbIev++FtWVRdvU/pXb/qSPY3FxC5
8FgJoCR7AdtmQfpIzI5ZTJw40U2FrNHvUjhyWklo7Wg6lpWVWR8mkAtygenY
uZWf45plFbYcqUOHHERUKxlIQzcflguyeBr2u10oCzGTGrEUbASworSaLzHa
uGJddZSxPGnVtf/LC6JhiuCpi+NUd22jZufhOVLIX9GhkXWkftHEzoYWkouP
TMKITqVWiRg8FSyGMLIviVi8hJGdUWHMMDd77oqKYd4OZKY+EtX222Iu+WSZ
9x59UDIPvwqZziDZDiFYz/UepWdwzMxSntPCVDCkI2XBSlUWnvuWvfteVVgR
q+fCyAwtndDXQ08tQBUuwnpyJllB2RI8/SABTHpBMMKO+t0E0zc8M8BMkxZm
MFxHYbYmVFX5Srk+ypRMwYPr6YBUcXIMIarcsKW7LT3y+mL3Ok1a5P3L1OLA
ccSWyraTkqrLRRtqhisKsZpsOYEPwUu7ST/CDgfYFWxlQGUVrCoE4PcDc1m5
rvr3Dop9jqtV1TVmwcgSaG1UNUIvwwEL2YbvzFxWPlI/ixkd0M+yvpL1pMhv
YnsP5gNq2vu5CVBPmJtBHZw0ffOIKWWAnLJnBeEWGvi9oaPg7CCMjpwhUWLf
1Ech16APwftKeFkGgHQKwutvj9Ez1obgPcd7lDqcbDo2DPE9qArv0fGbMkgv
/MPMZjjp6RHdUl3PTjS+ss70fwsBP1zklRIIZ+KHR2iNCbI5sxAF8G3GoOEB
JZlTCl0LBZr+Nd7taK+R0oVuWjvkv+KUu+iU4RzHdSTtyjKzho61QaAVYTek
Md9+X1ZS9f3AwOfoNabFPPbGEteDiLzi1iEzQ6T2r4K7w3/XRsRdQ18oJWiX
FApB/vPBfjj0FkeDcB3pbWSorF9AmU9XvUYfA7TzEJmdbf+NI3rUbIo3bmcP
MMb/IM6EGcaJIsGesSEb+nxvkVCewf6Sz49dEYVsgtAYPK8DzaW8WBLnzOgT
tkdXfZRREA1afkahaKfMN8Zh4BqFxwK377vvPthKwYREYpiR9ZtitwAxjBBe
1/S82oTh9LVFxZXuNCJo0HwuJEhzYztdtAtFj93QqF8gcYKNCelxhEERh4ba
P+MNNun1119vDTwcT/Huu+/abKt0FmnIxood3nTxi4lAkFlWsXh1pSY+6UGN
nf1RXIEYtJQ9e/erKZMZSxNVgcih0oJYMDtjuhSLB20VHEuP/sa5afhBkqBg
kL4eOEvh24n/yo0xvxZPGCkxxhooqFQ+xhioBO9g3dyIKauJKbpmwFZ2NbYw
8gKtm9qxiEciq8UrvhMkElntnpLWKSO/CPQEp34WsoDPZGSlG0LAo84Wo6wz
RvQ/g7aOyKAt/MzQmkwo98JlX9ERePAIIjcMZqAolg4PIUV+jIY2XJDH6bW2
p6O9LyMdjQmO2HcIc3Mfg9m5VD3L2NkLwy/sEwZMIFl6mk4zVIwceRBGsLOY
fo+EcpyBxtVE9gKpY1HxVu46Rq1QmMQOzH7SQUV1PX1+bc9I65JBMfCegbuN
GDHC9iMAJwL7F8mRGGVSygBDJaRs5I6Y24HMs36zRungIZl6o9g8hJwGNbyd
wmiIHWYVoayDrZ8ZdULMIUZN+2WiwQcqezOU2MNWGH7ut+wAYgL6MNds+87m
BEyweIRlfeAkIjZf1Jv0+aB8g/2m2WkdGbfs/EiMwV0nnOdTionDzjrrZNav
X2+rweCx2759u22Zs3LlyhBtEClzMxvJc6moLa1cVx3lxUjc85Qt9ZFkDAJ+
Xr+QlbxKzPBxxAuJGT/OLzbrp3X0NqSdETCE5ZBqBt80kCn8KKgoMZLADOlX
JhZFbGtPssXhDQedic1SGri9XEb0wjJOnhUx8PrLNiNXBbuht7ZkUy2/RIUS
DOu7ASjP9D7m6aN8XVRbR4AJi1ago6RTkSdikZ71YKOSIVNmWzC/8qChaQ/P
J8gqgDwrJ9TpmmokK/LIA24lXMsLcmZNG0s7n1FIfLehiHzSGT0mVz04Sc89
SSsV8BeGIGb3InjNvCxeAs2wEWoBEoDupKOs83MPV1Q8o48+rXkS8PKxNSvr
elF2fpm+Th8symrFkDnTkR6hpINbi4HZtBX8mgu2e8++z+YGlG1u2MMJwk4w
yEQ/32HgGjinXF8MtCEgrH5CrdBO6PwXNmrzS7dGTivhCOAkXiF4K6CG8ka9
WiwxQs02ENDCZVBCzZYi4+eujy7XRxlFQssvmcF3EqAu9dKXanc1X66Pkibn
rdwS+SCn0gGtdBsQ1SPY85FV6bCmGXMlDpHqTij9FJzC0qrcUKb94VDkuuk1
Z0FNL4kSsHqkfo2ZxbAfZLsP0ctlXk6ubH1Gn6w7sw8rJBr5TcbXBgxbEIXg
ZZjYdwCIxOHrZIfwarYCZPil2Q7gyVHLhuij9EKgyojhKz9IIVuGZ6j5xrtM
I2QIE+RRWsKiFjVBpncMZdAJINNz53fAkbVm3j/8FdxxYlWTKlhHceNj0/Xs
ynRmrijkQcOdaYBYIYrWKYvK2Hp2XaYa+JncINO/SnSqw4vHeTG+owm6BJnN
JJHSz86qTAoAZxUOGzo/h1CzcEwfJdS+yla3q7kVUFsP0ECXcsdqnANeM2jh
AuxyTNaMWnhC7Rd7TV640UJtv8U0Wh64gYjElXqN1e8ihCIfSvvi+3XkpWr5
4nfFuupH9DJb/Wt3A8LGBYfexGNms9w7oeN82N94nXeAU1VtIwHFUUq4jFO7
EtD5AR2FYTAU/ci2e1gfpVkKuUogGOrEKXeEF+n0XsAtN7zpgBt6n/GkXX95
FNg4BHTI+djt10aBmEH2Aacs+thgvUwzGr9icXM1Mgi5fjcnyGAfJh1CDtlY
Ft/k6/6m8/FziGnNOdr/trW7wr8r0P7x2qvW1zykj9KjgFZO3P5+SrnQNXsD
82gHpeHQEVDEUBabJoYIA7rtKIZe11v5EnsLdPpJDXlb21LhKIWSaRBgnkIS
A/Wyr34K0yQlsC83XO0845yHUYD5hPDhC+oe6VPVeuhlhorU1X58JkpaV06f
v39oazsqEC2IZdMQFZZCtLAWRPVdooVMEKH5nvooUQWNVnTg0NlbxEyWqCFm
oF2SWqvrmrIw07pGC6HetW3ossAN5B82Jv/Ps3v98LWYdhSr1MHQ6ZlosbJM
EfveorLcaMmUalfrNTq24RxoN1I5ss1dFz6ks6JmgpkJ6fTXy37IXBima5Tr
yVE2+aVFrGVv6aPOaARncR4ihHk7QpnZCGltF4aELrMOITm6MHD+fjssUZn7
66OsORUm4zRE6iVikrjJI+3Xy5s7NfAl2tS+UO6l14h9MSKJAwrlVrRLCDSU
PZx2Cf+hc2KFmRrw9+tl32khFh11ehgQfHr7zmbOjNIYYcwQVujUqcuUxnyd
1iUK4LMQ04p2BoH+sofTzuDDCit9MfCHijZ2nz46It2r1Jm8NPmghwpEvQJb
YUtNQ+iAPSKGdpwKYSKGQhipWIqYkM4ZgxyfLkc7n93e7tUvwEXPNHkxwUjm
rCHDF3rrNe5VnOp0tA7dTtFZMifcxisbN24MMixGozAjtrOdsbSc7a8pjBXh
x3moseMcrc8hxurayBVWEBd0fGBpBS/Eha8U9tZH6Vqyffvqd8e7ps1B1E7Z
iqV9WAZIadgG2iLwAEknAiAk+okaplVCxovOQtT4aWyyQ33UZA30EX1jmNe1
rnZX8z16GW4m5oAJedI5QSYGaUck+Un4I6asZhJEu0dSCzIiqUiw7d69e5TS
6COeRa8KQWtQZ2LSD0Q7WzGMnb3uWn2UcQ9YYXmxltlCj60Z2CuS5juU8l2N
LUQdGy7jXN9r9VF6Q2Kdai+FV7vHVTOjZIh8QJ5A6cKPtx1Du5GY8xVAEaXE
HBUg9LlOwNxHdRT/kEMhYnYCte1HlIiEuOgYdanMpdUOaVktwj+kj7Y9utrl
oGYfUDtRFBzCjlU12VzY75U+fFLxdfoNloqhS0ECTj6mo1CtApvZXFXfRy8z
gIrLdbua6c72Ne5ttY3X6WXWZWjj0A/q99ortIofLBJqhiAO8hANW53Tgaft
9YkgSjzU0uVFUJwMTH0UkSJUX9zhLQFdxM+PXZEdAoIaI68TS1BhvEa0MZba
GmXN1FTJpfActFVocklSjq3Vman79Ojl2r0+ncuNlsE+fuwIzLpCAIONQ2XP
ECE+ysUi41Zi/gjC8ew4z/7B2HmCx6MUG4cRaWW4DzsItxNIhC3a6cTAr6wa
UcAqIeHMSSRyjI5CVqra+e36KOOVT3uRLLpi0buUmIBu6oIHa6s+qGvZhsgq
McDNkhcD6d7vMBcIEKLCnI8Q7afzYSAukGCHC/BNMfGiW3U0IhO7YWtNAzHB
PkXI+btRr1HE41ia0Am5ZH02p+Qu1/KDcB/w41OVOxPgPlbhRhUL+TkSuyBL
b9HnmXICPsGAL7vDjpuzToE+6LCX0NGzhJuaPeLr8ilOmyUii4q3RglAsyIA
sSp+cMaycnbs9w+wLd+267uBwW/Sa+yBiPBmCF62U4fDNB3r2MrX01hYnwQv
C1WY4mKPRa5tZKtQBnrFBk6f/yEryOIVWUEemcBqBay5iB2LTvstAsq0RKiN
oj4SUJ/GfEDtu59UGoDbjdUeYOZIL+La+kc4CK8gmH71qGwQzohi4oWxK6PQ
Qb4sMGjxWmZPXbyJrzPejgKpBLSy3A10x8bxr00qJjExLxwtg5iSxpopMcPc
AQ+U8F3jAsnQKb6El+IdngmxWggvYyPXPzItCV6Wv1Ku4HdZyTYeloK0LFKz
rDNB9vPDCDKog140WdoQyOylDvONrn7ZrBwhK7b4qXxQx5yNTgbYg8IbI2oS
dLWAXZ2t10iJ2Fo8pYKmLniTvB86cJhwMzULqBYyIdzQ+Yk7kasJcB+ncMMa
o5UAugRV02ryjzIReUXQGbrB0QcE3Z6KqUqm7KIQ6GyoDvWGdr5o17fqo1Sj
5UNRAtxsDYQdRw4wYvJqgsz8LT3klSDTsBG72skbErbVQXY0hc5IJsh0SwNG
IWyCzIDbdDErfJDtIGwOxcwOldp0vbCpW9eYg7Fag74/GBME1NceRfKFAGU3
dYRImeY4ZVHZbVkE+ObUNUm4ZaI7PkjzAPxHlOIMtzP3lgBzjneZkrZyeyOP
AWGWzUUxQ04f5kyAWSYHc1cYLAGm7o08WAW4VdHBdj+w+LM6LIiWQWboa9gm
DC/QWaMnthMlVd4RdW5q8WpSAAjDCJ0Zze7qiJ1QeRYao77IdmOIsvnI+Qce
WMwukSj3oGb16rvFDPbBq00uK4Yk60jo2UVTvDv0UXcCsVCMsPwvBj5G9NAy
wLrIehA9jBVgVEVPa+OC7XlGMbuvMh0MvwuLtjJ8TuDBUoSBEyX+2t6p1+jt
hIIZwseJOiSSi3iO3uzCzcQoC1+UDj+ZiZK/92GsMVpiHsPEWih8InEjpobA
tU/eLjYTa09cKtHIpRGPkWHCYNfYMPtC4ItEDzPjoOiK7kf0gHNd5DhXQxZ6
/j5HBZ+gSIELnJweVC3sPGJeE/PBoILKYmUXM8ONw9bxbNuNKGoII2w6jtQD
aobzV23h63Q9ojb/H0wtJypiYGlSE0aCCgrrmW3o2zPFG7ezsJrCGbFBeqtK
vUdF6J6YgBuaBNbtcOAAcZNWJDZl4+bveYAuWSBsZoarhKMwbRSbi/MXG479
BPyYLzvMs9wZka0QPsjGsALk7IuKK/k6I9Oo31J8tCpi2G6n11KRYNU1fkWP
Zmoz41NA0taaBnZ8yMp1pIeX1Yr4XVtea2nBfo5YoOPBbkJjiAVmqCDJMQsL
f9vDZb+oz/vcFCJANHdXJQITh4kCL09YxcY3/gFpgg5GBmgW6lF0nwt8lMIe
RhI557KSqrv1UVpkEGGKjJCyeZKC7vM8tA6AS+hi/QIDP9AdGpr3kI7Z7hwS
nsEgHM3gHUObBHeWjUC42Y9LcJUBtx2E3XOxDajJ4H0woq46LpyE1IHnrdzC
AlUaAMAHT49i3rWqvScEoGXXZMb31FDgfP3j0QSFn8iN6C8p6D6vQGYwfFh/
1HsQgkzktqdQG+MKbF9XTQVil/DD4cNTXcQU7eiRbetjsEfk2hwWblE7CzQg
DonD2YSkBE0tzIJuLNmpfb3Lrk9DTUMCqugm4smqOj1W3bNFJlxdolWdryMw
8wsimAFcxj6h2ohNwBK59i1tjc86hpwQ/uryKlCS2BpskWMCRNEE7tVHKSRg
gSagiq5KMSkdquaurGCvEhg/FBfj565nL0I/RTWm5C4uCLu5You5fuAY0/W2
4WbQi1MPLxAbOk4pDlri3crKSieOQ86FBs+MfntmaT99lI56QJ8XNZkuIeBC
NqB2J4qPbaQuwVpFIukaT//idvfCraZnz6s7mL90uxLceoitRGlbxDV0qlLK
HqiAFFCkuXVKwBF91GBhLXv3EUecMDZDAo54mgwEMWuzgPGK6nrXxYt7CExr
U+UutuTzFXYR6XHaSydXGwHnBB5R7ZvTal2YNZz5By0O2cXYlen4Kv2rUBrI
XkQzYhoOrRWcg+cjwuLhFJ0+DGOGlIFIYRXuwG04PLmFxswsZUf1LMbP6aN3
GPuBI1upHSiCuwtoU+U0qII5F6jQNOv5+6sQITbIUfs+PzeJLL6mQ0HM0iEI
Xau5ZZ8esBzLKioMCJBg67CXHGNIOCDgAX2e7nJw7SFPDsVUotYwk3y9ErFR
kP+ZjJZ0qivWUgzM+/VRnmWAg9MTMPJ1/Sb8nfQFYcNg1mzPTcsWmp98gc3a
GG5EgDZGRpcMQd93yDu5VO08EVTmUKG5alFRkZXtqPK+44470O8xpKlytyCI
yeD2W9PXPuAROx2FAuOxuRHyDUUIlECqM9j7QAiPF/CrMbwD/OjGhc89zqw8
Ii7s00dfHTkxW+tu5ckIOFwebYeR7oq0FXghm5qaQohgOAnSgfE1dLZCvgCx
sdtPWN7RlIAN9n6EnUOmiAArsPEzvQcHEJU16CrYl0QJDwFHxieTkFmCqtVB
oYPHGbJjvg0wuKas9kF9lKb66rLtUQLwpyqAyPAmBwWAUKp/ovcgILjbwdoF
Ne4oJPo5UNRL4P0ioaGjl4eAZ3wUpEi8vDKxaIA+yq/hdHEfeDvIaQrW7MLN
jmxgA4OH8pQ4SkZsR5FnPBGOURYEWAcECHVZybb06ekMPINKaKKjoBfHOxNQ
Sjy01UjA8uk6FBpGEGTYsQCZff8xHcIh8+ZM8HU6iMS6YfI+jX5YlWIJhFpH
HauP0hjEh0s21Q7UR+ldwVnoCaCfoaD7MRSczQEKpjxEDiudhUK5PE3NP9hp
V2PLQB0pdNxw6HBypmxAEFGsvjapeJA+ykgniiIT4P+WfnXywrRz4nmF/3y9
hy+wmgOHvIMPcBJi7znRJe8M0svF3tnDwt5C8H9cR9/v6ZkwjdCJhpOgbwQ1
KAmT+LYORTmqSo1lMed5aGVTXNS9CsbdQZFM6kHFI0upmKOs2WShg9aZQcRA
KR4VfLDUiK48kSVJwH8nADxamQMP5+o9XweFaIIrmqecgZ0A3XCZDdbnIUPZ
+QCce3eOI9eZOkfHAn7F6CIOgDMsAQhYFvcYbxJ2nDP1cxDjZO1YSjiFz/FA
IRuAMETwtELvQVEke0P2zgEHUijrscAmK5BxQzDh+bhdZHvG3g6hHO8sHRaB
Wu5w8MBttY2uDy7om55xiBC0T+JZ1qix4TYZN2d9aO7MlfWdUMhPB45HeXNv
x9DaoZbcfVdBRG4Llwfhc8hWYghqLF2T+BWu68pXD/NkmG8l3KNXw3Pt2GHF
vLbNiVEMBI0IaiGabkHi0K3FfFJ1NXzUkT3z+SF7GNwA/xMFWJ3zScB0OQiY
JUuWWAAACJKv0WtH1oUlRMiCJHriAoyCjAMq9BweVzaQo9o0NlwOK9DIa/kK
Dkn6cLHQ24W9j0Unu8smCBQ1MRjbXofJxHrFhw/Fp2X/Bm5kbta/g/2E98BM
xo0b58LtgJ8nTpAlfySAC5ZRULPHr/DUmE7ef6igdbClbAUWKpARWvDAQC4p
KYnY6hveNQyFc5tQHoH/94qTsw/2yVF/m0UubQmr8Vq+QsyzFXBIMqYqqsaf
rryMJQkjCPhF02v2SkEyfmaZRCfLvvwfBY2N35Oi5cwkbGP1BYs34BJDAy38
lU7T2OfOoYIjE5krRweQwhIqdk7Cr9DQia2Anp9/6KGHrPwzTs9LWaanh3a5
MwySaoxPySSDtgebOydVn0bp8tPvKTFgtWnmUfHcUb+b1g3SyJh2qVqL67uD
gTMLPzpZfpyTGPJHfpkD2caaEpakjBkzxkoD/MWIOtxi9GjD0YboEg/U8AmC
hwAgMZ1eBSi5UIIYFs03DcIBFQjd3XJRBr2q+Uqtv5pJHW2PvXfKVYob0rqo
FcNjR/cjIl6FpVXO24DEAapLUE0heq4JfL61J+Wc1srneOALzknG1KFoQKxC
XMp7VA8QmKT7Hop6c8teXeBQ0W2BVdCpYMKnABPsC60EiXFrnDOGbQBGD/UO
OgJEDyorWL4XIoKDq8pTflV5NhG0PckgXYSLv0InPf5AAYNDm0WalBSiINM3
izAntxQUM1GzXWFmW47aOa2VzzE2jt6k4GzwsyF0DivjC3oPSjIT0bnyLL7y
p8raCaw8U6YQm4Kf+YuthKejootVRrAJABeKsmRLs6buMHb+4WRStK3m+jz9
ImxTVnzQ8+ZqFgpsija5JLwpZVt3Rqy1O9RzfE5vxTPEG5ZeD/qMGJFHuh99
VKjzA4dnYZk/taP0eSQYZpPISa2AIbswWBREV+6RS+7naAZAud+2HBF/fTMt
l/yl4+frF+FTIIfkFm/Zs+/kHMuPwOfOhhYmWbfhsJ/TW/GMv8pQhXzC5RGg
xqSTwhDsYUgEztXqHU3RUYFJ/7s+D2WPVIteK2j13prjorNXHj0sQsF2ak/Q
yKHxwQIFE4H5yIOEcvRJUHsg5MG6QCGEJsPeTPTOo2AAGsoXdHQklZM1x8ta
DFWPVamHcODPtxLukbFjnbIJEFEgQk6mjBALS+Th6RRGEq+Jnej7FXasr2/G
oeRQ2PGXEwAhwXBhfEAwx9DCYJ9hHDRt9hcmR58Gf2EsuIw0Alx4zVH6x4bp
yJnCZPHECTou2mQxQcT6zGXZVqyr3qu3Efe6VmUtaBO55DJ07q7/8eZkPxCN
ckBjmZCbhBjsgQmIzCNR2RzMOFgF3SHwxHH6HLxhiCHDt8rn4IqBTx1P7FNI
8DePvI+9hotxLXQ8QRd9BQKXgV3461DHIvOdmBt4hk8qquvpEnBAwZ4FP8ce
YBQCtgsyB5DGxedQ7oW9gSeM7ieYQEhtoocQ7BALCvU61KGFhILcEN90QgXO
ynXVk3LPgI5wkIaez+Yggz8TOIChSgclUtlwPLKPfnj+MCs43e2o1DtR5IeT
ZggOgrtESSjFhXsGaLLHPvVLfwSBQySR44mE+fxcr4FsYCMJ3cpfGKKjVaJQ
u4qiMwGBghi+KsRMkAOX0q/BqEBrXbBhOzDBhRGP9HixPhxomBZiSYh/hawW
CkXEOpGShAo2vovEikXFsVd4Su5p/UKvYcci0wsNRzraITpbtgU/O7yWi1dX
WgsD+/CApwdi1yCpEoSG9+GWlt3eUaGAboIQHCIP9oPcJihSBYfo6nblBywr
AKlgyRHpQPkJfggvuBUEAuprkGiCg1xSHqng+7LC0VRvuna2PMwXEwC3hRUn
O6CzLh98bXgf/xWLqLMOiRQMTF24VQy7v65I0gQXLNCHYTQCTtlQgpX0AGBt
WL7puZfgt94eQ2gUU0P0E7nwgpIYnE52y4KPQkTg6xCDsmqXGuKoV9qRHPxO
nNB3pI0eoGUSCt2AZlQT4NQBxN1QhABDsFfg/X/Fg19a+27M+zpbEkNICNag
tVUEL0r2rT4g519x/qFrfmwu61bRPxGY//fuP5wc6gPXzg9cSzp8Pd+1M/55
Pp++0y/w5PzcgP7937HX/xEQtQpHJvPnhP+76l+N/u3/AWN9G3o=\
\>", "ImageResolution" -> \
96.],ExpressionUUID->"4418ccfb-99b7-488d-a161-2678f84be87f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"R", "\[Function]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"R", " ", 
            RowBox[{"t", "[", "\[Theta]", "]"}]}], ",", 
           RowBox[{
            SuperscriptBox["R", 
             RowBox[{"\[CapitalDelta]", "[", "2", "]"}]], 
            RowBox[{"h2", "[", "\[Theta]", "]"}]}]}], "}"}]}], ")"}], "/@", 
       RowBox[{"{", 
        RowBox[{"0.25", ",", "0.375", ",", "0.5", ",", "0.75", ",", "1"}], 
        "}"}]}], "/.", "sol2"}], "/.", 
     RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", 
     RowBox[{"-", "\[Theta]c1"}], ",", "\[Theta]c1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.817632402392982*^9, 3.817632515056671*^9}, {
  3.817632566288678*^9, 3.817632585257243*^9}, {3.8176665668940477`*^9, 
  3.817666597156199*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxd2nk4Vd/XAHBJZAiZK0WIRGQoMm0yFUKUKck8k1CmzMN1biglhOQrJElk
HtcdzNNtQBIylKEkyVSR9/z+ff+59/k87j5nnb3XWnuf53HY8ZqZCz0dHR0J
//jf91HbO5TVo03oZva8j2WLSRMnbTOIka0JBZUYFiks7ITSisW6Az8aUWr9
UYeDc9ww0XZ1zLy6EZ2+5an085MoBB4LKv+j1Yj0qxvcs2gKoPY5NFLEtgGF
+vz5tVymDd77h0gj9+tQpgKdVbOPOTCkfnz9nbMaSYm2FTd9c4TOgV/nM5yf
o390d5rm7/vDEt1tLcegHGQywCTIwBIKUSZENGjlizgm/Nhz5aKAs18hM6Pq
AXDdahcYOhAL9k86Q8/tTQf5uLRvFUdigbP0zs55n3QwF1kxSJCNhUTLKqaf
4hkQlfH2lYB2LNzlsxoRy8yEUfJu9NkjFvxOMj87EJQNe09cZuGviYWzf3ev
5d/Pg4jwmwk/z8bBbqpdnN7RIqid2LH93CoeMivkdjJYFQFlxp5wxSEeNnwt
G2sIRcA4uXSP0TMelC2y3/+dKQJ5L09lFBYPaUMMJIbCp/DA2Wjc4FE8TOTa
me4VegY5oilPej/FQ+n549d4WUth1WviYYxdAmTy2QiEni6FGRW5SXHXBLAt
+/DnnVsp3Glve0vxSYCLBm+83FpL4cz9hvrJWwkgrZi/xRb+AhijftQ3ZiWA
O617wmyhDJJZJh9NDiQAy73st86T5SAvzzi+dYYA/c2y/0Wvl4NUQfa+sHME
CHXX13i4pwKe5/wIWDIhwC2VHZ/rTlfATudWjGpLgLNvcsfqUytA8strW9ab
BBjuisYomq9AyEG/VuQpAehmZ6iLWZWwGuTHHLIzEXx/fHV0Ka+E4QxrbHN3
IrTf9H891FYJ3Y9MTYPZE+EQPRt/yVIlTB9PrrPalwiZrB5mXHpVcNTLiq9Z
JhHi5ruj539UgXSyriSvVSI4vzlOfYVqwOztqzeshYnA2HJO46B5DaQtnEs0
epYI0vdyFGNda2BfmNDzhBeJsPvnzD2t5Bp4Qfh4erY6Eegwdr7EkRqgzfx7
aN2eCCuHn51SC6yFSB1xa4aZRFheZ53ULKgDl9/rsSHCGGgOMlD319ZBqNqV
yXlRDHiyFIWXuupAN0+t31wCA4MRZaPkH3UwRvpswyODwYbigGeqSj0EXtC/
elYVAxtzCwqJVg8Tu19yhl/EQEYxcaRxrQEONk4xHY7Bx5fSv7/D0giBv0+d
/xeHQfuKUazdoUYwCGSXGiBg8HbN9Ns33UZYd5Cu8UjGQA/4frenNYJuV4SC
WiYG+Q4PWSPkmiCHN4svqhSDu584d23pNAHJtP/BbBkGo8etym5aNcHUsn6b
fgUGSaoWnDaRTfAonll1uRoDnQOcXJO9TSB1rP/5jxY8voVQtiXXZvjmMPUr
mYbB0rUf9PtDm+HHm22p6DcYsLQqPNNIboadOQRpn3cY2I1J7QqubIbrYwtJ
su8xsB348KdkuxmEGsirV8YxoP/Ye62EqwUurExl80/g41/dSSs40gJaTwv5
uicxkH4T9z3RsAVsVeTv7vuCQe876bG9GS3wItWvxfEbfr0rua9nnrWAo9sT
xekFfL5qPwXUNLXAA9aO27aLGGiMvunSnWqBJ6kc06d/YhD1NaBS7DjAYwt6
h8dr+HqsOR2hIQBzEi/L7DoGr9+J6geaAZAuR+dJ/MYg/R9XVlkQgNpKdvb9
vxiECrwMnyYDRB++s8ZHR4SNx+fnj74DeFk27cazgwhvH96q9PgMkLe0Vc9K
TwTj5bYK350kePksd9fcTiJoflN62H6EBF+N7ewsmYjgv3G2y0KGBPdmn/8W
3U2E1xr5xZ9PkeBI+WbkV9x8Qcdv/NYnQcVkj5kLCxH6HxTpMnmSoGFc+iTX
HiL4ev/+EedPgov7co3KcGvcSjtHF0YC7RkHax12IrjqP2FZuk2CAHl2KzsO
IpDo+f2d00iwYzLZaAr32fW3iUM5JLCPSlG15yTC1G3R1soXJIjY1GY32EuE
Fam6uUM1JKCieyvVuBV3PWgitJCgUzNt5AAXEfL5G9BiOwnSnDLIYbiRk4S/
GY0Eb83mSwZxM8+Nmle9J0HZ9vsMSW4i0BeNfOaeIMGH/yqwINySj4SPXJ8j
gWdtazTgjugr4+ldIsEYg330Dh4i0CnFV4r9JsHftLeYOu6KD092hO0gQ1ud
V04A7tRqlu1+ZjJcYwpreII7t7v+uTAXGS7amX7pw/1BoILJbz8Z3k2oHlrG
rZO3xNUsQgaHjWRXTl4ifLQP7mOSIoPBxQw4ijvP5qySqQIZ3swXH1PFnZZs
b5quSgaGFe5n+rhrfpMERrTJUP1LUs0Y9+7HHncPGJHB96Xal/85Idym1uYi
Ga4q5Baewy3/4H5yhi0ZtN/kRWjg3jPDw/3WmQwuwhnXj+Pm8xvXZ/EhQ8zW
u0g+3EYKS1KaN8hAIpaU/MbjLZc1gIBwMuTK+v4a+l/8Lgs7CuPJMJLpf7kM
N+PA0K93yWTwr2P9HIl7JYz5AV06GVLaklMMcXNdiftyLJcMXmrnbffitgvS
/2JWRAaT8VzjN/h8D3ebpQWXkSG04r3rbdyRlkXL2TVkENxxvgjhtjh4hq65
hQxqVy6yL+LraSMo3vyxnQzPsrTz0nF/b2vX4XpPBkNnef0hPD/C/GI5jn0i
A/Zz3M4Ht/LFRAzNkkHAsa/wH55fah2et53WyfB7oredA7fpsZH4c9tkEFqW
VrqH5+Mm6zO940wUOPloiZcD9yFDlwOLfBRw06wS3cDz+26xmWzPIQrEPVC/
5Iw7J+4xc5E4BQI01P90s+H3r7Pce+kUBTh/Vz0hsBLhPCdVQ1KDAjJ2dSVj
eP3UzSTL/9WlwHzz2WMyuC9xnPHJvESBxVbJzBa83kpNxGTrAikQu6PU7NEu
vJ5ybt8JvUUB9wcDWh0MRHBzM6tRiaPAnCS18htez9Eh/yyq7lMAu8l9RAyv
94Gk15+TXlHAR/Cmg/k/DMT6FYLVGyjwKZJCvLCFAWvK2ptvZArc9D+oZbCJ
wRMsa1jrDQWeTEnYSP3BYPGarfy7HxRov9HgULqKwWZh48b1dQrQSRbyR67g
v7cJjWffpkCmy5qz0S8MahDfsiY7FQp3bXUPLWGwtdHBf1uaCvtZN+dK8P5I
d5T7QZU7FUQ87t29gPdXor4nWdaPClnyPNb9eP8t+yJcVRxEhZCzI326Yxg0
PSpduJ9AhQGuALLYCAZrm+olJgVU+GqXv5qP9/OJoLOWtp+o0FvEV/9fGwZ8
V8MfmM9Swcj/EPE/KgZ+moInz/6gglb7S5lsMgYZPzMyJbepkPf01O+wZgxK
9xCWeg+1gslTW+qvKvz60jqfH1xphYxx02fN+Xh8NQKnnVxaIThhO+JyHr6f
qVj+OO7TCrJ6Ydq/HmEgdYIrqvFWK+zgqHnM+RCD5sFI+drsVnALMx6kv4PB
NpPKxxMfWqHYlFTTHoLBskKZ3sBEKyxceqnPEITPv00S9425Vhj8sj2lGojB
y7SEN2XrrVBVVo0e+mLQQvUfp+drg9hbvBQ2Jwz+7D6mdtysDSS2q/2GDTCY
k+Vhut3ZBkNEzhp2PgxUhMqDrtDawFrK92cvF77/swXmHR9qgzJXdDyBAwP7
8YD9HdNtcJ5j+/n8bgwcXczLx/+1QUqE6WLgX/z8sZXqlKfYDryfp7sefUoE
mtmeOZ/cdohd7tulXZAIJ38VX1kvaAdfZ4ZDznmJIJbqfTvieTvsoMq4ROUk
Qk6bF0dCXTvoimgklKTh5xNOg/qQt+3QVuCl1haXCBpyCWm/dnXAWa4RCq9z
IphlbrrLeXUAJXXfveNCiaA2zC21cb0DLHN+6lvuT4RYgWOoKbgD9kz3JIXx
JsKJLPMragkd8N5MrKeSNREY8rOuC/7XAVyKZJPpdQLcpW78vjzUAUvDUWKa
NAKcNl7FhjU6wcmkw+NfCAHYsxZun9PtBJW+wOrwQAK+L019qjXsBJugh33r
vgTojewNT7LqhL+9zF6jTgS4VHs/lde/Ew67TNx1O08AQ+VlgacFndCweECN
IESAzugfRR1MXbBcPtT0GxIgtZjRun1PF5SpZBz5VZ8Aq3UbNyjcXbAoat4x
W5kAyek+S6+EusDbRbGZ8jQB6HSzZgOVuqDr7vcidCcB1ny3x2+5dsHt7hRe
yysJILi+8TOH0gWij8cSmNfiQeeCz/bZzi6ILfas8PkRD4wPmoKW+7pgNkb0
Qt9cPNh++Fas/qELZAvL1iM+xoPRpeQ91T+6oC/hAl8pKR5O7x/9JCHYDfoN
VG1ZYjyYDBcXHwzohpyrpxpn9sWDce7y6P7gbtDkrFxU5o6Hsp0Kb3nDu2Ho
3EcnAls83C3N2GYgdMP8Pp99+7bjYPTmkktnVjccGbYY4/gcB4++f7KfJncD
pfeduNGLOKhxquHwZO+B/UWPm1nU46Cfd8BRiLsHdA25T8ydjAN9t7mbb/l7
QGk6mI8iEwe2cyuTcod7oDPFR9dLOA7YnR5RBxV6gE7KxOr+zjjIVJGurrDq
AbdbLNWqXbGg5691oSGvByq69b02LsQCZWoumVDYA9EKRm7Uc7GQuXlA3Kyk
BxavHg0gasWCmfQRj0+VPRDw5j6FTS4WNsOop0faeyD2/I2QKY5YODYqu+vC
Qg/wbdFxDfTGwNfHHTraJ3tBZHHg/Lh2DOSrfl5uPN0LM22f1WVVY6AqKmlT
TqMXdk8mR96Sj4EvjFEifPq9YGz3c5v1cAxE7PxV12LVC3KVizLbW9GQ2Lyb
MzWsF34yLPIq10YD/clfrirQC2WYwX16iWiQJmr94afi470HCeGHokH8o7rm
r/ZeSFlWjF7ljYYEP83P+f29cFocYaMM0fDP3SdpZqwXEgPFDhGmovA8cr2y
/bcXxt+0D5s8ioK+xsEdQaf6AHw54hs5o+ATcfori0ofsAaLOI4wRQHp0uOE
HPU+ECN4ri5sRcKPceGhOp0+UIzz6zYaiQRGMBwcNOuD3ursx933IoGjRvPi
f759MLtraoNMHwkpkU8vRhT0wWhaO6F2PBxous6j7MV98GHBw4HUHQ4iD0+U
5zzvg4RKJXVqTTj8nllXLX/VB5V8K2y1KeHgL6T1uYbUh/cz70RLjXC4v7Ml
6MxoH1glX+iNzLkFiZkOJWZ7+6GUMhuZdDEMZuk4q5J4+uGmEYfsOAoDy7U+
5lb+ftgZzuh7TCoMvBKDHx471A/BfdIvXu0IgyvnEs+9P9YPqs5zpTFloeCj
cW+hTLsfHP8QMsSYQkF71UTDMqAflDlLze9UBUP5ETbr4zf7IX93N9fjx8Gw
GE8bpgvph0M3iAdLiMEwOejFlBfRj8c9L/7KPhhyK/8IA9YP1+/MRRLZgiHA
9bpu1ON+4G7kpLd3CoKUZxRz9q5+eKnizta05yYoDzhzpPbgz7NQGaa+cQOq
ZNhP7O3vh84XnS0NUzfgcMDNPOZ3/XDPxuFNce0NGDj9SP3jaD88tp99bO5w
A9JatD12LPWDomD949nKQEgoXIm35qFB+OOfwhIWARBR73rNiY8Gl4b5WAu1
AkCY3p7HS4AG+s9SuoWOB4Cj3NzdAEEaWHW4v2dlCIAvTCYXPcRoQP5wndhS
4Q+f0m4yzCnQ4G5igVMqmz/kyxxnkb9AA3YLEatdJD+YfR/v/MuMBntudJSL
PfeDoWqX0FcXaaCckmGsle4HVRyNw5JWNEgKbHLz9/YDb9Wmq1t2NNC0UPGv
EvCD1/4CGUreeHzz35ZvTPqCu4Py8404Giws8bYNqHuDskc6X2oCDUZCdwVM
cHiDgEb2e/FEGtiw9bfMTHoBvclDG4PbNOAs6DSfjveC2D1uztdTaXBzX6Lv
oz5POL11loAe0YAwrqZ10NYDfg5yn3+RSwPTtqs73h/3gNqweHeBPBpUqq4u
3t52B1+ZK3kz+TRQT3K7OZvvDsQT49xOxTSom94l7zrvBkFPxVlGX9GgsWTk
NPGGK/BesDsmVIXfv5XM9FfPFSgdanlXq2nAPbx2z03AFfQFF5OGa2lwe6/B
LsVGF9h2EPEsaaLBMZXsS9l0LnDY/o1CfxsNVKrfxj8nOoGyxDkGviEaXKuu
P7U3xx4O3cqRWMF9pXqwS9LPHh6igxu09/j6uND/h3Ts4SLX07yoDzR40T96
vX34KgzPfORoH8XXqyionjfEDviNul0np2gQxvqG2lp3GZyJK7ZZ0zQgndcy
KbS/DPpKRnQXPtPgociv89G7L8Ob0Vjj2i80EPD59knKygZWLHiY3edoEBcw
/9No3Qp/j2lYs/5Og/efM0t7FC1AVLYRvuPuujNv6jl6CXzb5k9GLtIgWv6t
+a64S9CpTpPM/oFfz0K//MS7i4BdaZSt/UmDXdt9V+2um8PP3xKOyss0aDv4
NW1SwByWGChatbgtjW1yHUhmUOEasbvsFw1qPvJ7WHGYgZa1QFXkKg3KrpwK
FXlhClc8l0wWca9WCi8mXzQFzq+rmTZrNJAzOWf1fd0ElE9i8tLrNOi1bY6J
emAMmX9ex1Zu0KBwuu+D52tDcI/iwTh+06CV6W32PiFD6A+MV/XAffpJwRjV
xwDsnv14yvuHBjF7CRasrOcgWetLrtlfGogW7bbw0NUDbYMj+Vm4rRumXAIy
dGHzUZXHBO53hgYMofM6ECxO1nXZpMEGXc/l8GRtULmsYVOAm5vTwyj00xmg
+8iiMIl7wC9XJVDuDKQ3pspd3KLB1+iRiKuDmuAiaGRJxH1Vzo3tgoQmKHde
0mrBHWorsydqWQPvf5aOQv9osL929OpxFTWgJhs/NMItvqh8fGtMBZ64PEgL
wn3ebb2iM/o0eK9xDrfjRr/rwLzrFFx6qSv8Dfd9v55abp+ToFXZJb1nmwYS
U3a6rzkV4QT9oy1p3KzOfx9jVfIgmgP3DHDPnpDcRlZysC9absEFN6/hpOLs
uixwVSwzR+L+cqvK7Bw6DhzSOxce4L5zbKy9KOEYsC873ivB/bbJm46uXwL2
7uTaasLd0xvoe4n3CPBf5ZTuw80nxBT11FYEhBnthD7ifqDudfa7vhBIb/wZ
mvlfPBViaQlD+0Dt5KzZEu6Jr3bkAy48YNwscn8dt/iHW7aXZ/eA890XGZu4
G+pp10MZdkJ4GcF+Gzf7+vaWtPZSSxZ/xff/+fag7tYNliGN+h5J9A93sSv5
gNvZvxqj3T8v/sFNU7eT5SPsRvS8zLIruNUmvwX8qdqLpEqu9X3DrfAtestV
nB9ZEo+cmMRd/tRoiJYhiAjVxywHcH8b5ObMYjiM6qUiz7ThvmUfFHGuWRT9
WBBZrsRtsK7RsXpDHB39zeuah1uAYhWWKyOJXEytcom4X+ytlNKelUIFy/NZ
/rg7ndU8ph/LoNlP3ZetcCfVXHdEpSfQcYG/E6q4BYk9bsTd8ojicU55E19f
o+SlLH6yIuKKdWP5gLvg7HNr64OnkPPsQF4l7t5rPakZIUqIO/XRfkfcVVTB
u7vlVZDf0MbWSdzSoDGrkqKKaK5PCplwD3Q+/eD+VQ1lus9oFeD5KNMk/6om
H6EdIxGnruGOj33C4xWpiXzSXX8o4W64T5UJPq6FTJZEyyh4vusK1HMQsTNI
5ajF1Wa8XnKMj4VhWrroKLnT0g/3lp7JV+1/uihPx/2lMO7xqFblPw16SJpV
5lYIXo/fT459sVY8i2rTB26z4vVqwxqbNyluiJZjy8Kf4fV9aWtaMmjaENVc
ru7Xwd3twRfElGeERrrPpQTg/SBF4ySNf58xevA0ObYC7x9660d7QuJNkeB8
v68KbqXVfS9fTJsiaV71etIKvl6H1N3GtS6geek8rza8HzW81Npz6t8FNGgT
rfcS72f765w0m26aoxvlLwcY8H74briolcfNAqVlwSunBRpsv6Lm7mmzQOrX
Nn/AN7y+Izrk6EUt0bHhTYLfVxo0O9Spjo9boqBiAZlXszRgvtv446qFNRo5
02RWO4mvV+SabaiOLUodzBJdmMD7j8TRUPF8W/TWrMj8EO5PUrIn+7Zt0RKb
zpvQcRqkn6TXYGm8gnIjs87wfMTjXSh7ril3FVHtKrc639GAYWUE9NkdkIH1
BeXPb2nwmvH0+OvTDkjvHp3k1hsaZGlNSlq6OCC83KWPvqbBmQob6ctNDgiY
Epoce2kQ4UXPq+npiGbPF297tNKA8YSQTFCbE6qXtcm2p+L7QbZIK23JCdGZ
Hvx+kUKDFYESniOCzuib4ftXp0g0GO7K7Gzzd0Yqcvs7xhtp8EhYr3JcyAU1
VHzkIuP76zTjd2P3EFf0PvQ/jvsVNEgwPC+HFbgij5hgimM5DZ5/T71cRHNF
X41sDP6+wM8zB8W9Bo+4IVfawhTnMxrY5/KU7XrrhtSJ55X68f3+0n3/qGJJ
D3T9/ZZ3Kn5+sK6UNmob9EKjRiWP/uDni2g7LZtfO73RbQmuQw7xNODnub95
QN4bVbHxsIvH0CDkV+YH2xRvJJ8+UXInjAZHnRbXsvV80MfCnPeTPjSIDGnq
Y6rxRbO1eVvRpjQYixNSker0Qx2D9UceGOP7C8GhcWrcD321SnlUaESD+o7G
1fRVP7SZ4nGr5SyeH/ZPYldFriODhrk1miYNKp5UxBPDr6MHe1g+XT+BPx/z
hgynvD/6XDQcVrGHBsvT3tGemQFIYmNOPoQV7xclXZZnywLQgky2mQYzDfrj
7oeKtAagLaMvPSQGGkRxeKT1/AhAKoacRUV/+0E4mC5/SS8QHTIlb6zO9cP+
hBfeMSuBKDXsDv8Tcj+8zd3e/dToJjoQPjrFD/1wsE1UntHxJpJw7uEjNvXD
KP+CkEPQTdQ+lVLnWtsPudoRyiz5N5FQfuk03Yt+sBI8O3t0/SZSk9Qersvo
h7H9klhaXhASth5VUfLqh3qBKUumpWAkU6tzn+jeDwzJMnl+O0MQ247Uko8u
/bBD+VPrIF8IUrUa5A2y74c3TD0P7quHIDuePZ/uXeqHmW9ua6PEENRMVVaz
Q/0gs1eu7olYKBr9F3VYB38/0Dn8N2D+Yhj6O+RqYcLeD0vzExUdbmHoa9YJ
AyvWfni1EHT1v9AwdHrmmq/TLjz+/05s6uWFoUfER8/sfuPvG277xmy+haEI
luqvcxN9sLdhVD8/6hbKnxnIMCrrg+DFFbHMp+EoOMguuaukD7Q8abnujeGI
Q0RxVPtpH1jahqsq0MJRbCs1/kReHxybVeitWQtHURqBu7+m9oH0ssa7m7oR
6DXj/t6xwD4ozPRrGJqMQJS5YKNO5T44+TabeZMlCr2uiPdaUuwDTR2uCzE8
USgvbXyaV64PBBvILrsORaH4p4ETVpJ9cLTYdHGHXBRyppdnhn19IPt+RHPA
IgoFJf0UYPvTCwzM9/eO/heFfvyMlXtW1wu3Vo2zPE5GI2P+ngJqVS9sxyT5
f1WPRj6/izo/lveC3/eHeu560ejrL0GRXc/w8WWmH20so9E4eYeg2sNeeMTg
TTgQEo2qyWVSqiG4w8nezE3RiPdCekO4Ui90decl3EYxyJ39hqaxQi+4PadL
LtaPQaGJczcFZXuBWDRsRTGJQeOvklcrxHvhXr2sysLVGJQ38fo0mbcXnhmr
rAhExaC9eSrjfr96wCgK9Q5ADCouy07neYG/70tt6nerxaLFk1HUiuIeqDz2
YeWSTiwaV2CpMyrogdudPebjhrGo6T77Rlh2D16vTw9/sYlF16aH3wHWA/Yz
p950B8eiV5SAP6MuPfB1UlJ4tTIWlUZRdvoI9oAStT+xQSIOyY1dOkLl7wF3
vf3XPsjEoavlKez83D0Q5Os3uHIyDtU1LCnVMfeAaMwuwcM6ccj56s2ZT2vd
cEzT2sXEPg5lzBFetb7uhoZGu+QdmXHI/w+V8XNMN1BYv9lXMMSj7fjCK4Tw
bthHQDcWWeORYbMZ/9Hgbjhwx+CEBHc82ifLWeng0w3pCS/u3T4cjx4K8SdV
W3ZDbtbAGyGNeCSseKn1k1Q36Ne/iw28GY9Mpe6d13jbBQ26gjzk6XiUIjO/
ldzbBQ+D0pWufY1HxDHWvR/bu0CLOYYq8DMe1WtUXfVp7AJOzxU2u3/x6Pee
1Fz/gi746qp7okIgAe2YCM3fvtEFxRJXmIONEpC8GQdVlL8Lkv9eygwtT0Ci
CvTMhL1dMFA/QpasSUAKvG6751i7YOk3tWagMQGVjiYoPKHrgq7XGZsHOxIQ
e8gh1X/znWCmt78vfCwBJc6+4NBv6gRV3vdHrzMT0KXs8/2iVzuBEELhELQj
IJ68qDMa1p0QMsVbquVEQL8Kj/hZmHfC84/dU47uBMRS3bYeqd8Jvw319mX6
E9DTiSt1tbKdcHeJKaovgYAyfBb/1W93QIZK/KRjGQFdsLv7H3NuBxwyjHA5
/oeA9M0kJCwyOuD1tagPR7YJqH6nKF3e3Q44UP1lXoAhEbE8PlsqFYv/vVl9
eHFPIrpWa/RdxL0DAkuWqq0PJyLla8pcqXId0N7c2Cupn4ja/zya9aK0A/nw
DvmilETEldv7wbGxHaRj7RMX7yWi4X9XhSyr2kGH9a2GXEYiGtioKlAqagcu
1RuthY8TUVI/f+Yw1g63Mu/+MyhPRJt05MNZpu3w16EpOe41Pj76P9KB0TYQ
vTMl9pQNQ/RBoeIqg23gR/b97y8HhmoPuChZ9LfBP0WGnYbcGGoNuGZDILWB
vKbltZF9GHKysyrsK2iDzHc7qI3iGGo4GGb81bsNxNxNWQgIQ5ms11ymXdpg
Yp/jEewMhuieBUqM2LWBjWL3ngRdDPkvV5WSTNvg7YV6TT9DDI0Cc9N1xTbY
CJnaxWiJoW4dhkWnv61Qfauo9aQPhmykuGuUVlohnTDG8Pkahm6QFSSZv7eC
2fDqnyR/DBltPuMsHG+Fj0mr9LQgDMWUen4mkVtB+7WPNXcMhhjW1R4nElrB
9fLqSPYDDOkNuQooRbVCIetg90oGhrhd8tWmg1vBpPiq9dksDF1INU5Q9GwF
ZVK50adcDJmKhR1qNGqFlv2LTr1PMeSueMTRam8rBBfs4s6vwxBb0gUmJpZW
MO44qpLVgKESxibfSvpW4Kx1EkpuwtCws2HcrhUqtLiQDjmRMLTWat6dMkSF
9O3wHloHhhAPK+VkNhXG5vkrSgYxdC97323SfSqUdE0JGL/H0CddV75zSVRQ
87aTXBjGkOfOhgDzcCrsj+ZDAqMY0hExPHf+KhXOrtsKnJjCn/cHt/2gCBU6
rhZYX/mOIcYihvNqB6jg+sPnRckivt5RCpt53FR4L9yStvwDQ99yDP9zYqBC
k2G5gP8yhqJCXRj7v1DAKXr/G9l1DFmd098lOk6BjzIWORc2MCSt6tZ+Y4gC
e+5mLfn8xhCV4HCHp4MC7Dw7ZdP/YqimFakpFVOAZtk5XrCNz9dzrvOheRQI
E2vuy6IjIq5qUeHGTAoUGRip3t5BRNZydHtOYRQoF2RKvryTiEr68nfs9aRA
xnzWTD0jEZ3odRU740gB8zG2olgmIqr67s583YYCTdENH/R3E1HxQ4n9nQYU
0FDKzQRmIrJ6kGJxWYoCLSWept5sRHTlz2AuTYQC9DGWj/j2ENGoLpuO1n4K
WBCSLRtw697VLRRkpsCYr/6eRXb8fnfOOiTQUWCfZfyuCA4iSgtUCf2+ToYn
IVHOTJxE1L38lVI5QwaSnrgp414iyrr9bJlrnAyBjckfwnB/ZrGMvDZIhol/
UtSvuIv9frl39ZKB7aI9qzkXEX1pingp3EqGrxbE8ircOT82zG404uM3mSs4
uImod7ejeccrMrTcQ6zOuAN3N5TzlZBhD/l2cwXu9EU6L6f/yDBLMGnfwC3f
eCrmRSYZlLUWRE/zEJGe7+W1lTtksMyjDvjjHmK61nGaQAaRV0rvC3GPE66v
hkWQYe9YieRb3PaLjlGNN8hgNRnZvY77sqq2+4Y3GWaG99Xx8RLRa1+uF/LO
ZLinNLokg7sl8bWx52UyHO45FqCJWxwLP//YjAxXGj3UDXEz+u179uYcGU4Q
t86b4HZQL3DYoUWGBm7DJ0a4T/48GCSjTAanlFpVbdwxtxPmrWTJsEAs5lXA
fY5tvC5KHL/fSqysIG4sQOxL4UF8/vaWE/7h8Z0hW/t28pChLeq+4Ajum6vh
F+dYcWs8WCjDLcKZmrFrJ369PMG1W7jP7r2vJPyHBL8sU5V0cM9txCoq/yRB
zLXLLxlw03U4pZyfI4Gp8fTlFnw+74XJ69p/IoFSTarqddyimTld4X0kyF1i
TKHg6yVCp5yR2EoCQY7/tuxxZxlTyHcbSdBvvDtrA1/vtdwnxx8+IwFL3ZwZ
N+6RvD++D/NIQGNW9k7H80cZ09yTkUEC3z66Ui7cdnse2hPjSXB3oSxzDc+/
o8+e80bdIsFJE58zdrg9pV5IBASQgF/ekg3wfLWdvuV4wYEEQbec/njh+c22
z/C2mhUJ0nsdDtSx4vN7cvfeIyYk8PfVtthiIaIVYROFRTUSvLvuzR2A1we2
NEzrVyCBZN69e0/w+sksutBVeowEuxqsj/Th9SXSzvHOXoAEZXpJkax4/fUW
hseazQKA8tSIIj0RBVNbmMSGAC5+109BeP1uri3/WmoFsAVuWR28vjMfKzKE
5wNI5bxTUP2H9591QQa7KwA/vzSJT+D9Ioa61sFiBHBJe79IA95Phgupv16p
AHyrfU2XgvcbrtJTsav8APUv9J1EV/H9pyU6WvttC5RNOj9kWMIQj8pKXA+p
BbgP3E16gfczlR7rJeOXLfBCY5+1Kd7vBGT//dNPaoEZuvMhsV8xxLL1/C+9
Xgs8uhRV+fgzvt9UZPvn1DVDpKD8nzK8v3YT0epIUTOculC/uIL337SQoU88
D5rBmW+8WHEAQ1WZYwuh1/Hfi+33+O81huTHTGc4jjXDd7rD67JdGOKM7LG4
ktUEaUsRysL1eH8W3yuTENQIw8rywzpp+H7olzRR7NQIS1KhO26n4uNdV4+3
mzTCU4+F0q4UDOWZ3324JNEITe/OxJ3A8H6r9LWSYbgBxowDWArCMeQoIrMq
qdQAS9M8YoddMNSSsPbM/Wcd/Pgrc8BDBkOb6hIN46N1IP354JOmYxjKz9N1
Memsg1PyD8J3S2BIzN0wSfhxHagL6YhhQni8dGEHY4zqIFuml0OGE0O3zD2N
zhTVwsk6if27lhJRViI2WnOpBlqMvs2MPUtElOJO02nNGnCmCZQbF+Lnh/z3
qSzSNRCaHTlTm5eIWsVcQs/R10Djev6DAPw8UnRV40tiWTV4s2y+vxOHX69i
/jA7YzXoTh9otbmSiDTbRZXkKyrhzeFvTHLMicjv1ZE3E+vlcFOP+if9HAG9
LpDnU58uh4fpryoTtQmo89DEQFp/OehdY0wJUCegmGeCcKqwHJiGPuQryhHQ
sf2C+jpm5WB7X0HOWYCArF67G7BZvoQ7p4d3BH9JQAK+DxQMqkvB+LJnkldo
AvLWFOx6bPEUWt5q7De6E4/qBmvYPCSeQuxEHWkwIR5NkCNLJTaKAK5ssVhG
xKPS3By6+IdF0PrtRIKmTzxy9qT/Cx8L4RqP51qZQTyyN4hQVrIrgO/Mw3Ub
O3FLKw0du/wfyDk+f6XkF4dISzanz3umw9Doz8tisrGIjv6L440NCxQs+C6P
Goq/n/2aPOH88yG68+2o63htKAo+/cfT6UsJuu80Miv8yR+Vpp9NSVKvQte6
ZlZmmV2QEa/wfIJtFQp5U4FaGpyRUQXrakJYFfqsYXXc28sZWWkJCWfWVyFV
3ZgZ414ndJesRP13shqdufwxXjbJEZWfkVEfk61Bx50/Sl9msEc5+nJ0nyTq
kLK0SkBa6SVkez0p/I5+HWpNVa8XYriEAuv+Ptd1q0MY8Um+9eWLqC6XT5Ba
VIfUXmNGH3abI+ce9XP04vUoEnkHM9mbIvfCC+9TjzSg3nv7VU/900V1BYsu
j3QbEMNpxteCT3SQPflxYZlLA8qbzeG319dGJDMN5anCBuS6zJW9mayJige9
S5LFG9HJ/CtrAhKnUCuUkNv1GtG15hCbl64KSLFjE9vl1ojkpDbT/xWcQGIy
Y8fTnjYi13rT4hRVcZST7MX8uaMRLTzacI4uF0Z+LOzpp+cakXWv1L1uXT5U
UND6Lm13E3KS7emeM2BE/+//fdX+Dz2dKuA=
       "]]},
     Annotation[#, "Charting`Private`Tag$13125#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxd2nc4le//APASikQpHw1KIoWkJSt3CCW7zAhFIpE9spKVvcd5hGSEBtmS
t805xz6cg2QVkdFSQul3f//9/cP1uh7Pet/vcT/X5eANRz1rpg0bNtTjH//7
vT94TrdqfwvKLF9lFV2xqNUg/g4xs7Ugze7oCVEtHlBkKaVc/dGMju03+Ue9
JAy3+zdPr7c1o493xLI5Fc8Aw9yY2cepGYWGJocmHVeBY2LpY3tamtCFIY+Z
Ag596E3I2v7RoRH1f9GqXmi1ghDjS9VWaYD2lwdc/CTnCslj7t5OEWXIaOe9
9bX3D6Hs/JGSR8a5yKqkTDh/MAKy3uR/yWx0RyxiGSf1deMgcvjwaye1LFCy
kdE0dEyEMO//+JYjs4BHvPXipFcicDQUNTr0ZcGmsw81rIMSIU+xreW02RN4
rnrm3pW0RJjf3vh0n3M2nO89oNTTmAi7ZlrrrqblwOc211GNXUkw77nNyfX9
M8hasvQ3KkkCVW61D6czikHXKbNpkZYMJ1WsmTY1FsP8U6YG2ffJIJvwgIM8
VQx2wZRC3+lkKAwom5A/VgIHPj+9OPM7Gb5kbYptelMCufHGvTr8KXBkWfWP
BuM1jFpdPnvPKgUUVy136mwph7I7Uc7f5lLge6xy/D6xcriZwuHPv5QCLUqH
/oxqlgPVqfrJ+T8pAMsjsZoJ5ZAc+1PCniMVDubL1JH5K8C89WG0kXgqRO9L
PaJwohKesc7FhNqlAte1WTlevWqQnbATujieCuXpbU5KLtXgf2JfkfSnVKjk
u/PeOrEabD0fNQsspkINY6NBEr0aWv7MlDHWUmFexqEj2aQGvGupxeP/pUHz
S6WuQ5ZvQCX6MrK4nAYBJsPCt26/haofigcOvEwDYRuLXalhb4Ep4UISc1ka
HH1dJN347C3kVQmQJ6rT4NimeMF/M29hvWPK8WFLGljFPb6/z7YOft+VH785
kgaq14uVRm0AJo9dDiRtIcFWsxvcra/qQdvzacKMCQmCtCoX9evqQbjmxpCr
OQme3HWzmeyoh+Sjwf+t3iRB6+ljEt9m66FXOPn+F3sS1E+Hb58+1ADmmvY7
QvxI4DG0fuRYSgNIpXE53cwiwa+V9meS9xuBaWRI5tMoCb5mKnNffdQI5R9f
FCdOkiDGRWS3a0ojzDXFX5CbJkHVU9GVgtJG6Ek2bndZIEGNyIHtC3ON8Lnb
3TJ+DT9fXX1cz7UmuHOz41PIfwQIikx/4JBphrWbU036agRIb1SamFNrhq0e
5xas1QlIrPSabDVohm9FEWIOmgTsr/b5es+1Gep9jBZuXSHAlatXNulVMxQd
WihZuU6ALFtp2H7hFnB2FMvOdSXgeX5H09tTLcAfPj141oMAa8FGJmOlFpjm
3KDQ6EVAwfPzkQ/NWyB9piIN/Ahw2RXZ+SytBdzmDjebhuHnO2HKdnpbK3zu
36glSCJgKeFUYMK+VnifWCcmnU7AFtr0+uLRVhguLNJVzSCAdXp8E0m1Fbhy
0nwuZxOgYn5Ivt6/FUL2O/qsFBCglDNE+xfVCn6bDci9RQSEtdxxlEtvhRJ7
3zvZLwiYSD/0Oq8KH3fmrxAvIWAoY8Ja81sr5Hvlx09VEsDS6s53918rVPgk
VgZUE+BJ/kQP29YGvpvnFXa9IUDC2syw7Ggb6Ft43BeqI2D8S3LIO8s28NG4
PjzbhOOzwm76zrENSLNr5y+2EDAyanKG4dsGdX1qvJmtBHxViP7RmNYGV5kT
90iRCTDVU86w622DssSKp2xdBKyeXX15fbQNlLf9LNrdTcB1l8eq2nNt4Kl9
+sjBHgLH7Rn7YZZ2aFwXDdzfh+8/TpsqkG4HtQClScoAAUWuC8cCVdrB9ElX
cS4dr/f1H38M9NqBZ1lr3YtBwJOTzcd/3WmH+PyifVxDBJSPe82wZ7ZD7DPL
kLl3BOQK/rJpK2qH7xN7XOJHCDCrue4QUNUOl8c7Zk++J2DP3BLXTG87HOR7
7m0xSoBAkGBR8mg7VMQ8TlnAnneW71Scawf907suuI4RQNM9kxfFTAZ92K/r
ME7AouIuM4kdZLgt6102gd0VOkai8pOhmevzc60JnB+HUsytRcnQ3tonV449
ukuuaE2KDDdOpt3gmSSA05TqG61Mhol72YKO2JtW1Bj8OmTYOH/FtxG7bq64
ssCUDC1GO125PhBw7jTrgZO2ZPCpVN1igB3Qp7at0o0MpCtX5ZKxw1vdAqUD
yVDelM3Zg22yPdavIpoMjrOpDzd9JGDhVfLGEwQZnL89JiSxVXMfbX2WTwaV
K3uMDLFvfb2dvq+MDDd7nWs8sC/GnS6LqCfDqid3cxz219B5vd8dZGDLtnDP
xb7eH+tpOUQGiS8tfa+x49wPCrdNkSFfs2i4GjvSIcPo6HcynP/pFVODfal2
886wdTKcu018L8Ommptd/cBOAVUXL5YC7F3GmXxyvBS4ecyPnIx98FnnnZhD
FBhb3nneD/u7xozi+HEKqPjl2pljh6l9yTgmTwGlisfqstjTKZOBHhcpkDRm
M8GJzabQuPD2KgXYgxwl3+N4LMpEj22wpICVh4BMLjYRoWp0/i6+HmP6zy3s
bafmDH28KHBo63FfQewLkj6jZcEUkG22fsPA66HwcGVuNo4Cvn+Xq0KwN4rf
DNiXQYH7a3oex7FDRauJS4UU0Nf4uNyL1/vjEVEbohE/T7SlCjN21REVXuii
gM9WUZ5EnC9X/TS0xoYpIP594jk/9rCogC7PDwosyYzI7Mf55onaLi6uU2Bu
0OpHCs7H1bi/s03sVLisaFG1FfvFV96j1oJU2Lm6124C5/fgn7VWSQkqlFfF
Gitjf1Z15FyRoQIv/7RxJq6HqsRNJH9dKlCSM+NVhnE/TBUaPWdGhdxTtZ0x
uH52DfdTf9+mgkzw0QP9gwRs4P3w1CqAClpSduyXcb0FelSo7npFBZW1t0e+
03A92ekyKmuooJCYKr8Ney9xf4dRKxViw147CeJ6VqrwDYx+TwXPNgEVOVzv
CjRpQ9rWDtBdN6k83EGAVLnmaVPeDnDZ8HSNm0rA9oFvNROCHbDryVH7FdxP
XLs+NU/KdMAJNQ9GWRsBU/nh1FqbDojQbvw71Yjj4bnnp6hLB0hmFVGeNuB+
G3q2PcmvAw7pfOi6Vo/z0fzgHcukDpiJpATWvCXA52fR057GDqhcN4eTVfj9
atPHOPk74VpVVRPXcwK07xzIVjvSCUvXo547FRIQbHSC0/dUJ8xObvjQ+YwA
0jzTh/eXOkHVz1LBLZcApzVTfw/3Tji9bEn3x/28p3Q+kL27E1pEV1uDY3B/
4pS3+DvcCTapHBw3ogh4ZlGoPT/dCfW+vyvORhBw4/MHq7r1TvBtTlfpDsHx
TaTcPiXRBarsc56vfPH1lW/RLSK7wH/6WvcZOwK6d+QO7ErtAgfSOY0CGwJs
GUyfmp92wdk3Ahr/WRNw/uK+83vedIGskOLIiDkB6fVAjZ/tgijCwIlPn4D1
rYyLZJVuME3S2mqjQMCcJoudgm43zDxjS3KRw/EP1Xv8yrQbtmReAC9pPJ/G
LsmGuHTDT7/cP84nCXgs/FyT+Uk38L/Ypb3nMAEe29Cw8lo3GP6k/JDiwPV1
SFvltkEPtHWNGDTRSGDP27wn5FoPHGC8KFPrIQEXm6F0tkUP7GoQqmntIEH7
NP3KgF0PFC2KN5a1kIA9UoFZxL8H1iV6v+lU4v2H7wt1z/wemK0OPRqRRoJ9
62wOfb964ILwycEdeP9yu0IhpHqtB04lbxBb1CfBO/u4mYwNvRBod9ywRZcE
Z/pjI6zYe6H61k9Fq0skqIhcVn/H3ws7xg5GWUmTYDHH6pX7hV7oCKw2ucdD
AgXnt5zWsb0wmfDxI1Dx/mpSS8A7qRfG0zkLE1rT4Ea8+fEoUi/syox6bNmQ
Bjml6yovcnrhKPMr3nm8JXi4ckp/oKoXngzHxL15kgbP473Xmsd7wXhBx1rV
PQ2KVj1sBI/3gXw2z+yefWkQ7vLtyPKpPnD2vnLvLE8avBb//Iks3Qergpk2
2lxpMGRufN1WqQ+yjhW9dNiE94dkiWOx+n3wrqp80G4uFaQLy/V87/dB9+Mw
h2s1qWDw5NTbgZY+WN+957z41VS4u97ceJXSB1x1+Wk1mqlQFe492NvVB2ds
dRjKaqnwWVLvdCujD7za51jVZFOhvrT0RcpsH0jxnnPcLoCvn4Dy33PQwMah
SqjkcwroV3uX/9SlwewMz2lpnxT48ScOpAxo8HWM8eOwWwo0O3YOuZnQ4GTx
jsHtDinA8qFYYfEGDb49ZvuPbp4CK/+OUtpcaHD0y0TWYeUUKNo59Yk/iQb3
KuqqJ7akgFy2n4IBnQYRK2aKXbHJUPOrXHjXMA36uMcpBY+SoVEpz6znPQ1K
dkRceRCYDPYNJaA8RYObHmy2Qq7JIGzsqvHfEg0UPjnRZA2TQep7fpjdjn7Y
9I7OV8iXDO2U9ohu9X6gvzFRyshJwvPxQLihVj+UEG5f/6QngZumxNB73X7w
3OxLM0xKApWXHrZTRv2gEM2DmEKSQJ29Qm/8Vj9oCNPeHbVJgu9iE2rBgf2w
wVw+v+VIEpTxfKuNqOqHpjxre7mCROAudCgUru0HFuOSFNesRHD+m5j+Fvph
4sNIZEFKIihMvIv+1NoPRn6x71lDEuFvul7RoYF+aGF5oh9zIxEEpj40yX/r
h7VfQ+FDexPha2WSy3eRAVgJzLl9IywBasTFfmmIDUBVeiLXHv8ECLWw9c2V
GABHw4pWqlsCiLOMp+mcGQBOQRsH4ZsJkKFUwR6jNAAP610nCs4lwOFo1o7n
pgNwTjlbdeVbPDTaSOGBOwDzJiukBsN4eCJSsqYbj89v+yyZqxUPplYS96SS
BmDycXVysEo8WF2VFFslDYBd1pkh+VPxUMepN2ufNwBFFWn2wZzxkDLPEfKv
dgBmOw9aBzTHwbCGheLQzABESB63FpWIA5FnopJhcwPgUujhXyQUBzoBy1Zn
FgeA/HtnztF9cXAqPzUr/McAnJHO2sm/JQ4udP82F1gfAKdRDxifiIWIMMl/
v7npkJy6Z3okMRYKM33huhwd9M7HFdl9i4Frpy8Lb1Wgg0G8G3X7SAwMOwsF
lZ+nw7by7Q+LW2NAbmFFnFkVH5dS7RghYiCZISn2SIcOmj9q1WdVYuBlYNfQ
CWs67BNy2ENPjYZbJ8n//kbSIcF0L5+AbBS82MARahtDBxeh09eYhKKgwdNk
My2ODp1xfuTRbVGgc2vvj8xkOlCuFqqGTEQC69nDHgez6CBZH3cxNiwS+l7e
PdH0mg67l1WSEgci4PvyG4cHdDpcPWJc6X8nHC7wkZmyB+mwc37KeZ9+ODjn
ENn1w3RQOuF/+LVCONiOx7L8HqWDG89aaM+OcKhgrTXS/oSft/hgaW/lI6Bz
8JzOWqbDp1rNp7NMj0D0X28d5T8GqJxxbYhJCgXRzAjq890M2DpTo5HgFwqb
n7J/jNzLgIqyfMt4m1AwphtJq+1nABtrpexDmVAwnzvjkCPMAH6zuKOS70Pg
S9d3zo2nGfCZsXe15lAICPl4CClrM6B7wsip7EUQ7N8alUDRYcDebrW/LSlB
kLrxoraOHgOeblE93P8gCNiFXz430GfAwkeT69P6QTCvIvdP6xoDZOyMuif/
PoT8L0abFm8x4Nve178VNB/C6uST0CkfBnB/3hyXMfsAFiytIqT8GBDccWFN
nfYALC52vAv2xw4S916qfQBtlyNvHAhkQJrsSrNC7AOIE+/crBDKAHtfz+Vi
qQfAZ6BXcjSOAdpVG3ZzPQwAzkt2ATVPGVA3U7o37ZQffO762jOfw4Czgzt1
XJn8IN6h7CB/HgP8TuQ3Xer1BaW1700ezxjg3toU8cHBFwTVNbfyvGBAyO9b
z2kFPjD31j33SzkDdNonE1/uvw9u410rGytx/Lv6xU8ueAOZz0qLu4oB1H0R
6cVvvKFvUuW3eA0D8t++Ppph5A23c6a11OsY8Onxhi3n4r0g7W/6ZuFWBlhq
synEM3tCT22rOW/b/45X0Nr6PKAv6VjV5nYG3Av9N/w7ywPOJL22nSQzYOfw
pJXmOQ/wJ6d1+3cy4Gu+i0uDmzvs2fI+z6SfAXG12TPvp1zB7r3Uw9hxBhg6
LeaKNTnBf2bl/GcnGEB/fElCOtEJSr/wrL7Dbqs7SFG0dgLQ9PUU+MCAQ+al
1zQ2O4HgwseIxCkGKPBqNqLL92BHNe+2o58ZYFCXvqqRexeoNpUtpdhUe6dB
LrW74HZUpl5+jgETr0oGO2fs4fHUpPeleQZItxn7y4nbw1nFblatRQaEmiXz
j722g4TgrV6bvuP8+/XBQh9swORmh7YzttFqaXOvhQ1wX3W8PYbte4ZQVWey
AQOHa+ZlPxhQtPnJh+Mqt0AkpOPmpZ8M4Pt8XK6bYgVua48vFWKLil2/KGFv
BWUPdZ3YfuF8D4v49mibFbB0Xg9pxJbNHTY4q3MTvilxtx34jdfXctdh+wFL
aNVeeuOMranP3FHibgmRjlXfm7D33pyKWOK1hM+fpoUtVxiw3ds91cnEAr6/
GckOWWXAK777cil1ZqBl0Z1HxS59Jp+6vMEMSLw585xrDIgpGBC6omwKrPDj
XCw2QyTq8p82ExD9Jrbs+4cB8928int7DeH1MrFSir2kthi9g9cQfN3VtGew
V+OFJVjMDGB4RGfp8l8GTAe4MiZmroJ980vl+9hsnnN8VImrcF7o4vQz7JVP
D0RLXK9AscYx4X/YJl6du1w36IEGj1eDyDoDhnk+iOuq6oKowYYSLey0/UMP
xSJ14MX5hkcp2KoZupTi41qg93nVuRo7Y6RN3+CNBshy3Hs19D9TgzSWVS9D
bxWHIM8/BpTPm9iKX78IAcqnjSSxT5RIszbMqoKTasrEJexulek1XTcVyGk4
U2eJ/cyyNXhswwXYW8616IG94YPcmG2kEtAEhJ0isTM7CpS/8SpCF7O7Wia2
dsj0yJwqgq2WTE7F2F92LZ/5aiYP4WcoC4A9zaLB9tVVBjQDO992YndpPu+c
i5ACXTWOiSHs11xjKx+yT0FqUIjhx/8dTyliHqqWhIOy8gcXsG88f01OfiIG
CzbHFJaw51+bC3p0C8PqNpOXK9iNwu82Pls9AJfFG53+Yt8JZeSaGuyC0Ubr
sH/Y0rfzefmsNkJZ74Xv/zPtWFgYV/wnBaqR+at17OQYhznBY9uQsFE5rGGL
V//LG5Xdixq7VQ8tY5OjpvoTvgiiLFzZX7HVJX11yxuOoAYRvo8z2O7mle/6
EiSQ8BYLxTHsr05MTT9PnkRUi7FvNOxv1++c+LfvDCo9QfrZii22W1uJhUUa
jXrHalRhR1tP+21elEUa8o2/8rE/y9rdY2GcQ2tux5eSsFNH2XT+mZ9HCyKD
FwL/d/xQ9GWvfkUkqFc7Y4+9pfq649eLykiP66zoOWzfPCOlgROqSCu7s00Q
21G51lspTw1FvMisYsUuqRtfKNp7CXWJ/0og43x5+WQy2XmTBurP8vZ7hn0n
f02/20MT7YuSrQ3G7ujQuCEyr4Wcu+xPyP0vPz3CZK0+66AHh8Zu78TuTbcI
DMvRRX1fI3/M4nx+JcC9WnBdD8ktkZjiscM+I6aPfVeQeEbA5i5cL1EvgqRO
vDFAo7F0xUTsKzwVbczBhsjzVPRDI2wFYmKRpmWELMME+d/hepQeirKxmjRG
bE5jz9px/VpM735/ic0M/ZpU2u+PHei2/PtnnxlqZ95CnML2CMi5n55+HQkZ
VRYm435wpH6ec57XAhWfKxRUwf2C6eatQaYiSzQgsY82t4z7ow2/Yz3XDTTR
vRAei52q9uqJt+sN9Opg1fZ+3I+ks7OiP567iQSYJ1yVcf8y9XR0i+yxQkbN
DzObvuH+qMI9te+nDfpSytWqjh01y2JMMr6NHK78/dH9lQHbZsZkdtXdRgLZ
f637vzAApcb9WgmxRcZ+8dktC7g/nmZWj9h9Bwmd3OZ3aZYBBE8LpUzWAR0T
KNtbMsOAS+63JCYyHND+utq6/7D19M/2bN7kiMrYfvCNTOP5Q2kKVKY6ooqx
Hye0PzIgR4vrUvWLe4g7VLWOPsqA2U+9NtrnnNFvpnOiYthsQ1Yso3ecUdnd
+lHf9ww4ELMnw5bkjMq5HA7uH2HATPXpbI9lZ9QdbLVNfQjP3386+x1KXNBd
2Tp/bRoDjp1JOF4n5IaoTx+6hvUxIEggaHr3FTe04c9ACfQyYDl8iP/eAzf0
1fMg69EeBp5Tm7/sHHVD8zlXeD51MIDVk35BMsUdabQIdW3H89Xw4we28i2e
6CBf9WWJFgYU9Icf75fyRN2WwzvUm3E9sTNd+2LliYqrmzx8Ghnwz6IxZ0+D
J4okThR24HmdXy5/7JyXF3op4l2wF8/70uNqFtUz3ijJsm7HXbx/kA6Npeg0
+6LcavRLLpcBcHJFr/SnL3r2OIq+Be83DGK1uLaL+KFQtpjw9Cd4PyIz9afy
kR/Ku3ekvigdz4eJEaJeyx9Z+ZRb2sbjflxpf4Z+JwAtPJL2s8T7o9ukcSn9
7w+QvsXlkS/eDOANOnw1iz0QFTeKSvl44f3D4OWvnwQD0Tkx7ffR7gzI7n8f
Z38lEFVFSKwQ93D/uEL+rl4WiCTD1Wz0rRjAs6n0m6HbQyTmO8mnoo73V7y/
+eOWghB/jcQ06SID/hZwuP3YGoxO3Fx6u6iK53kbha57KBjVrcylxirj9aJx
PWPSC0b20pF/auUZQGG6znT6VTD670+sd5UEvv9KA9F7OwS9SC/Sld2B49VU
ThocDEX9ZsKfdbnwvNg541X6JRTxR+yOs9mG8z08uu8RaxjaJXqHPYoNx89Q
YPTI6TCU4tVQWL+RAfG5MHY8JgwtXD+ZTflGB8XK5VSzC4/QoJKwvW0PHUZU
AnR2F4WjG49cFm266CCy56/XMIQjcv08WHXg7wGeq1Kp/eFInMlCx7idDvZC
f4xY18ORavclEYl6Olw/eGL8uU4E6ooXfRHyig4TIm9bD/yMQMIgsOcH/j7g
Mn358KFsFJI/2BnwJpwON446/inWikKSrjlnA8PoIDVBTRi6EYWK5mnx7EF0
WEse4+KLiEK/RKT+sd7H9z8mOmj9LgqNtm0ufnmbDmyig/5s96PR6vMxp2ol
fNxhes6jIgaRhlhFefH3zGyZ5b1n1BgUsUdkyvkcHQT3PnjVNx6DbtD0rISk
6aBw6KVwOEssGpcwDHE8hq8XVFqbezwW8QXvNM7jpQPH+QCG0sNYFP/SRCb5
8wDwGs2TmY/EIVOVHJ2yTwOQKXRB/fTJOOT5Zdqu5+MADMFGcwv5OJTja/iM
aWwAHjxPl3+pE4eoD6ZUtWkDcCl1LEzAKw4ZHy3nfvQGf08259qZkeOQy0/B
Kb/wAQh0vh58xCYeeeumvokPHYBu3mSn8/fiEbecLz0naAB2C7MK6XvFo68V
SUNNfgPQ8kCp3zUiHt3S3ciz4DwAcbN7jke9ikcXdzRZzJsMQM+e41ICy/Go
p/br5YyjA/CyUa+38WEC6qIYFnsfHgB292PrjpEJyPSWhLH+oQH4pHGock9S
AjqsKurJwo+/V4+LtN7IS0Cez0zndLYPQLralsPU9gS07XdRXuKvflD66G38
gyMRrTcu3etu6Ie0wS2rifGJyPlIll5wXT/MFv6oyCMloum8zeEyb/rBpFZh
riw7EXUusq+ml/XDdRO50tbXiSihcHJUO78fFgMgDvoSEWsf/Y11ZD9MS27Y
wcKdhB6M9zbq6vdDv/8xS1pUEpqy3mDap9sP+cKzlHtJSUiNeU5dV6sf3JYC
3NkfJyH2yKWj6mr98MIlM/Lk8yQU0TY4LyLTD1O8e0P0KUnIaXEqOIGvHx44
PZWdYklG9DVuFrFJGgwM9/IKeCcjfyH5EOFRGvC/o7S9f5CMfm/z27F/mAYq
eVK9yY+S0ZVDGqpsfTSgpTLPrKYmo1LDHUfbG2jQ7zj0ObwyGe3+hGifsmig
fkfSqf1HMvLJOlbz0owG+/qG5wpvp6DPkw5+dsY0IJcaQbdjCjoy3a4hpE+D
usGSgi/uKWjr8bbN8Ro0uMsorREITkH3KfO/9OVoIO0mlaj2JAVtPDJS7b+b
BuLm24zyBlNQnu/lPpPePjjOZteWppyKTPIaVIU7+wBVtS++uJSKprU1WRfb
+yCDTkt+q52KHgjn3vKu7wPtUP0b3ddSEWXY4Lnfqz7wkHpfVeuSivLuNl4+
E9UHpWrXf9Rmp6KA0zXDJmp9MDC5Veji31TE5TlesqjUB9+6jE6SmdKQuzxf
f4BCH5g5zkSqbElD7Wr9K5ln+mBfkY6A5M405HtblUI+1AfT/zHiO46koRN9
J/2p/3ohWnWD/MEraeitqrhMaEUvXJ5UviqRk4bKfc0eB5T0wrr/F17/gjRE
Vdq7wfN5L9x+obCb8jINXfSQarDIxuc/zWnVqk5DCY9WTuyN7gWlF4VPuLvS
kN2Vwk5x615wVg0ID/yVhnb5VCz07OiF4KZy1p9KJBTtbnwonKMXbqW+dnmk
RkKC/0INFTfj65v3jfBqkFBmTeibgj89kDjsTwjqk9Ds8A7nG596oJO/Pf7L
LRJ6W6+T5lLbA8/UyEXWj0joxkGvnl3WPeAX7/6yjExCSkPv0ufMe2BZ/qD+
hU4SIvdHFNSb9ECkkUBIVw8J0ZJpD611ekA4uC6gj0FCFFUmeZJcD9garxWl
TpGQhsFIzasdPaC7Xc+DbwOBXl/cGWnH0QMZL4eYr24iUL1fyuNDm3tgkWG2
KYSVQEV3uDYdXOmGBCqn5hAHgSiZnKTCrm6485L1k/weAh23YZ3i8eqGkI9N
A78kCbS5gS/uikM3WPqkVPSfIpBkdufbqJvdcKRS98tzKQI5r66nLmt2g9Pb
czc05AnUxJRl8ESwG/xMTQXV1AgU4vxuUYPaBcXztFeipgSyVSTl6NV3gQNH
xNUX1wmUnvJj+Gp5FzBxGEiLWhJodciNrJXZBVPKfyq4bxHIs6LqxW6XLuCG
29YZjvjvu84mMO/tgr326RKZDwjErbcazs7VBXorrFdqHhLoH9vew9uYu+BA
usBgdzCBLvA6qW5Z7ITfG56szz4ikFO+73F6QyeU3nmaOBxHoOsZ25/23O6E
Tuu5p0VZBLpmm9eTZdYJ7NUXReyzCdR1O+3JXb1OeDbgtHQ4h0AHWFKO/ZXr
BHk3j1sR+QS6Vfp14QdnJ1DfRT/geonfd5p/+/myDngRXG2wqYZAbCshLsPP
OsCTq7bD5g2BNp3X9HZ63AHvZWbcWmsJZHHnm1NSSAekTfObOgNer7OpbOVG
HUAYF+sENROIefFz6GnNDrhLeyVd00KgxkFSQbEiPj856+LnVgLlXOZmZIh2
QHxd3bA0mUA78s2H9f5QQThsKCumk0B8G9NdKr9SIdJF80lyF4GImDPFu6eo
cHY1vC6lm0Cs6gE7ezupsG+Ndimsl0D+p10D92RSwfhus4/gAIEuniRJ3Uyg
wpt/BfKr2NFW/NEFoVQ4r6bE2UEnkM8tORHxe1SYC2KeMBvEzzs+sJFNkQq5
7if2y74jUOTyeYezp6ngeGdQ/is25Tb3tKUIFaIo/65kjhDottHMcuE2KggV
dVrNvCdQO30+jryBCobsSyaBowQafWl49uMPCnjHkJR4xnB+2lvkbBumQDLj
zpjwOIFsdNfv8HVSIODunrin2AaxTEikngKO3RrH9k4Q6M+Ru/wSpRSQvXrx
9SNso30Km0/kUaC7RGv/d2w7G7c/x9MoYPg32/HKJIFObtv5VzSSAvJFYTkv
sF9y8LIJ+lNAM0b5zYYPBJqwfiDA40yBnhHe1xrY1N16yszWFMg8rB4ah20r
/MjpiyEFzpofkOnGbog4XERXp0Dv4EgLy0cCdV4W/Vp9jgI+Ku1iZ7BjrRPP
p0lSQKpSxNYMe8uQVbrrIQqsZir6+GFL5xGbNP6jwMde05up2Pyd0u4H2Cgg
51/PV4RdrSm/tLhGhkjZsrwKbLYjeb41i2Ro/+X/rwab29SdO3CCDPqb7YWr
sHtmn79W6SeDkEDDfy+xlXsvXWdpIwNZv703HduBW5OnoZoMyfzUq0HYWi8q
GJ7PyZCruTPDCvvDk5Bc8UwybOGfKzqHfeJrrd9IHBnqDz324cI+lWp8MyyI
DPMmrpzD+P3n00yvSHqQYYiv1vwxtunPFq1+WzJwCNc7GGMHFCbpu5qSwSW2
Q4YT+1o11Wa7Nhls3x+DNzj+pz/avZQ/TYZdfwW/b8A+taF/suMwGe6X6aan
4vX75PZU0HgPGdb/27p6BNvJwa3Zer0deoYNyadwPqh98zg8/bUdPh5/dPYl
zp/+zvGEGx/agcL7QO8g9rbEqVjt9naIBuawbzj/an0fCNTXtANv8IlMLewD
DQ/fiL9oh7mZW6Y5OF/Z9d/sXI1rh/q+E40yOJ/jc7/2mAS1w16XOzZewzi+
2pFple7tUDr9s6hkCMez5JeG9bV22Fd7iYNj8H/9pOVshWY79GvXCEkwCPTR
a/XYpvP4enspAxdxPZ0qSJGPE2qHwr971mz6CWQsnzHpu9AGSpq0Q5o9BCJx
d7MQ4224f633qOL6PSfzq6KM1gZ53EX/ZHB9v/YQaXpf3QYTOsIjHB24/1Xz
PGQNaYOsyKU7Vm0EyuZe4dni1QbU4YB/R3H/uFHbJ8Vq3wa6u7vZZnG/4dxo
K/hbtw1Yzhn6Xmkk0E7tg09e87fBo5lXNUO4X8WIVT5N3d4GzIYfRu1wP7M3
Uj59f1Mb8JwUd/xZTSC9pwr/zsy2Am/Gi65fFbie/9bLB5a1wqVTGlaFxQSy
blnSd1Nvha0FIw003F93P/tyVuhcK8w8Tdqyhvvv8Xfj+d3HW8Gn5ULevkwC
hZ7MO8HH0wqSFy5OXCQINJ1bOx8x1gIWry6euJJAII3M3RtbXVrAOOwKz+FA
HP+RyOyctGY49JE6+sYEz6erts/qwpuBwzkprdeQQHkcntn995vhxyFH3bGr
BKpSEHdZMmsGr8DhkkktAgUWfAnZJNgMcYevb3mkhPtV2qSHeUETVHDMPdU7
guMz5enPWd4I0wm2dl0LJOTr8Hhrfm4jvJ1kfzE+S0Le0ksRcsmNsCLSUf0Z
z+d90dK2Rh6NINh3V2z6PQlxnOdLtpRphB9rAcreeN4/rtOuLqltgF6vpc88
RSTkethG+FJ9PaRs69DabkFC8X7JPoXF9aDznvc/yWt4/1FjubD5ST0s1HE2
qxmQUMI76r7KB/Vwtudi13W8H6ltWyyaVqoHMe2drmLSJGQTPnqS5xGAWWNE
2zlOErIoKNejPnoL+1keVMmXpaFnEVUyvS7VIJaUet/gUyqSXr785N3VajjT
05Q+Mp6KxCV00NiZavC5o2p9bTgVKa8X7u9broKgoi0zSp2pCIkU2t26XwXv
ZROTq1+nIiU8oC89qISxOLeCCz6pKJ67OG85tBy2HddQobClIl3JAfpyQAnE
2OnfMuZMQeoCj8jRZiXw97xGqQZLCrrda97AL1sCT1yCuM7+SUYbPdzqD/0o
hgvJxV+/ziYjarfin26rYljfOHhypTkZxTq+7deLegnx1ksZJl7YjXqK9VsK
4ZzXbxejd0ko9jTzXHV3FmxKCYr78zARBTSIsRvJWiJNH/br0ZlxaMS9QGir
21Nkp5WhGh8fifYWycWyi5chv70Hgu5IBCGmSfsBPdM6FEeTv1zq746+Hyg2
o4TXIcU9tnu2imE/inNUr65DGvOX356luyHmSQlJq/8Ayaw2eHOJuyGjbJrQ
eg8gtZgBn6oBF8T8enJh6mk9ajFmO7oo4ITKfwqd/8TfiHx0BpkKj9kgFv2j
GUVnGhFnmvrVIK9byJDy57yrZiNaKop7urnFGrEvb9fn9m1EkeoKImzXrFCE
0WLFg5FGNPEz+sxyoCXilPe1PJbehFh+mgv/CjJE4WvOHFJlTWhc37O3ZYcB
2tJ79o9SRxNKGRocnn58FW2vkyi0/dOEjsqgMb4yXaSQ1Ys+mzajv7Lf1V8V
qyEa1/kdPG7NaCmixeoGXEA2Sb4iF6Ka0W9zp+zKDkVETFoLvnrbjAjb336x
rWfRmcLtm+cGmhF7peoS69AJ1B8aLim22IwUtTrlA3tF0P37tAxH1hZko89n
tUbnRf/v/33l/w+vow4j
       "]]},
     Annotation[#, "Charting`Private`Tag$13125#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxd2nk4lN/bAHBJiWyh9C2JslVEqUg4CVnShiRFsiVlV0T2LUX27LLMzINk
S5ao206EGfsyZpRIWgghKe/5/fv+w/W55jnLc8593+fMdY2YpZOBDSsLC0st
/vO//9LXoup/Sb9HGxrWGY/vdKjh61r12Mj1HoXI3h/4rLkHCkp+VO6caUcb
7tnaSasfhrGm66OGr9qRQFnTx7zjp8B9v0fxino72ibIpVK43wBUPnn57bnW
hnLyzeJruCzhzo7+2uG4VlTh9NVzluoCbDEj1O98TWgBjs9XXQmA1t75s4nW
1eiE40e2QxwxMMvyWN3SowDljm/ybxhLBP/zj1CfiS+q3xgbvv1lOvB1KiQl
lpHh2nGeO30hWWCR0+qlu4UCyilaLcwnWcBXELX+iwMFzEvMzo4nZsHDy2Xs
PyUJKJi4ONqXlwXR20yGxZNyIWeP7p5bHVngfJQjb6fHc9h12umnjkA26PzZ
tJgdVwxXzw6ozCdnw6YG8+DT0uVAc1t3TjQuB5JKDq1nMymHd01Rov+l5sCy
4+Xq8rBy8Mkh7efMyQEl49SBP5PlMI0avvSW5kB8P1stG7kCYnnjD3N358BY
hvmFLburIK3s4wQHLwkKzso6bd1cA+nSizkngkiQtM10u9fxGrjuc+aJ6iMS
XCscWum5WQNxv/70KMaQwEiPdvtmYw2MPGS7t/UZCWSOZP/l8nkDWeWTR+6+
JoFdV9uYwbe3IOYwnNkyQwLO2NRu6w+14CagbF5rRIbON3JZAUu1YLcjt+ql
KRm87LTVkrnrgKGoPvLMggwPlNd9qjxeB9sXH9y1vEMGHVrGaFVMHdwU/SIR
E0SGwXcB4fUn62Fjh/q9hGIysHyebPiR0gDT1wcm1DdQwHFm2tKmuAFO/fcc
XeCkQPM9V2p/UwNo0TKDL/NSQISVSyh/tgG+Nub1XviPAkmbbxnwn26E2XG9
wh8yFAj+0hbwZaYRym82XRw0oIA1TbahFDWD/LbgmtvJFNj4Vldtl2EzdHCp
CxmkU0AmNu1IkG0z6Mv8uXU4iwKbfk7Gqkc2Q9INiz9juRRgCefZ9nC4GQZk
qF9+VVBgQSzvmIp7C+hoHulb66XA3NLmDydJraCenTOfwknAyT62hh0VrbBL
YwHVcxMgmHJEdPZdK6SJxpDG+QjQG1bSj5xpBYZx+2tBIQKWj/Taxyi/g5Iv
/EryewkwNTSur+16B89Njc3OKhNw8MjD4erFNpjdV50qZY3bF7AORHG2A31C
e0OrLQHNC/pB5iLtUK+UR7pxi4DuxQtfv2q1Ay374iN/RwJOw7bfzfHtcCpS
QsjBk4DsG8mbfQ+9hx8lNjdZHxMQzeTb8FfzPbBu2Uc7FkkAXdak8J7Je1iz
eRRqHUVAxAljPlO/93C8kjz0PI4AzZ18/B/ev4d2hTbt6VQ8v29eXLO2HTBw
TP++1HMCZp1mWHd4dQB9W8ipnwUEcDYq5KlFdoDLBz+HskICzEcPbPB82QFW
9y/8kCwl4Frv0Er+WgdM84XW11QSwDry3imfvxPC5BZqL77G7Uuj4kkSnRDX
cVlmrJoAGVrw94dnOoHn+7PzX94S8L5HZnRLYicMf8ybKWjE/ZllUCfzOmGh
QtGHuxmvVwXTrbymE370sQXdbCFAjU57p/WxE2IsNv1lbyPAf9rtpbhsF1wV
8+xe6cT7sWgl0YW6QECzTleKSgC1Z6+2u0EXRIblaZ6lEfD0H39KoUcXpI9x
t4f0EOC1vchnvK4LJLmPncobwO2fnf0i3dMFtJNEfswg3o/kBy9vfeoCnX+z
d92HCDg311TiuJ4KoyU1x/eN4Hj5qpjcLEGF8jyOxPMMAlyXdd4ZH6TCGCe/
4mYmHl8tO/fTMSr4MYw16rC3ecje/a1NBeOX+mThDwR0JlC02O2p0HR6qSh6
nADHO79ngl2p0JA90737E37fB/G6LN64/8ak23nYtto5nLOPqfDLrIa1YIKA
WlYhV+t4Knz6/XS9xCQBOkvdD/vTqDBH+uibhP3x8d7Gly+ocEo1+ovjZwIW
DlROiZRTQf+y0QgN+8iGhJqwt1T4OnRWX24Kx5fQa/SjmQrpPoWqYdjISsrV
oIsKpBO5xUPYHFN0w7IBKkyfdaBIfsH7TRn+JDBGhY1y8qKO2PvSRSVcpqiw
I2Xv7mJs345CwfezVBh65EX6hs2iGPJS/DcVbqraleydJqBkKGed9zoaXDoo
qn0JO+YV51onBw0e7+i3DcDOaKt6LspPA/21N1tysYe2l7A776AB1w4u3XfY
mpmz/G/20CBwaoF7AnvEwrOD/QAN3KVf3PiDnWmqo3hBgQZdA7e0uL4SEB9p
ceHpCfz8EYvXQtjlv2u3D2vQwLmmqW4X9qZnt6J36tPAVZZ6TQQ71Me0wtSI
BsohryL+wz6cEBeZeI0G6usKDHixuScFBbqtadAmMl20hsfb5szQ5nSgQWsK
hTyNra8we+DkXRp0u2w/SsUultMDNx8abB27d734f/O3+baOHEIDzRu/JR5j
b+ztn++JpEFU8UC4BfaCN0cCy1MaRLbqRshj85sFT+zPoMHx8bCDf/B6mnto
TxhQaNB3v82lFnuwzSDes5AGnzT1Lvtj+12mzKWW02CvyskxZWzjXadY3ryl
we2nE9yzeD9NhSXfjDTToOid24dn2N+bmjX5B2jwu+OQ3wyOD2/nIN79TPx+
TX1norCVjB6Go894/p/0GvZhq7TYP7ZaosFwfFzFORxvF/YPh+iu0aBx19u4
ERyfq5vzTsuyd4OjdIaRFbbIGZudP7Z1g2GseLgVjufoXAO5dpFuiLklsjaC
4z8t+BkHRbIb3Erdzc9je1de3nLpWDdwrh8blfxIwFm+BrV9at3gc16P5THO
n8rJyMN/tLrhz9NqvukxAi7xnnJIutQNqtstWJJxvhWcF5erdO+GbjfPE6/p
OJ/SHkd5PeiGsKdjP37h/L1506BcObgbPEKLkmWwA+7/My6L64bG+aPDj3C+
90ZQP0WUdsMdH4bU5n4CxDsVPFVfd8PGBfcKkT4CNj9ZpH2t64ZInTFt2V4C
csJTBtVp+H1aZ51OdBPww+na4Z6ZbrDeL/5vJ65Pq+TqZZelbuDlfPyKvQM/
b+oVwrOGP1895fGjHccj2jZ3kqcHjCzsRF68I+DvcovQY5keqDCdEJ7B9ZFF
WiChzK4HsneqT4bi+vpI275OzrkHAjR+0vZWEVA4IVqW69EDA1OCI9UVBNSk
F3yLC+0BHWao3mgZAYurqvnnST3w9Vc3TOB6Puahc/kaswfeHy7g58nG8Xvd
J8Hwcw84iXPZKmUS4HxS+KjOTA8sEWJ8ZhkEJP5MTNq31gPcyyTHhBS8vtxh
s+9FeuGSSrZ/fSzuX0bzU4JZLxgl/mfMG4jnV779uJVNL9jZ/+xi+uHzTPny
jKxDL+hu96vK9yHggDy/f/WDXrx+Gz/K3SfgTZ/f4YrUXtDaRC9bciJgjV15
RH6oF644XW7wvUbAnELh6d6xXiitHvq1eAWvv2mEwN2pXogyuVZy6zIBRfGh
tMKlXkiUgHdqBgS8bXBlsG7rA4pFXAGhTcDKpv0qsgZ9YP1CMvPuIQKm5ATZ
H7f2wb+ME97c6whQ3l3sYdbVB8VTOV/4/lFAkMs9U7a/DxwMSut5/1DAguG2
o2W8D2zDOV6vLVDA0sawmPGvD/xPkD/mTuH7x98Yq8wj/eDLbqYp1kWBLgPu
KYeMfrCem0l5mUSBo/O5Zkukfkhe/DArmUAB8Zg7j32f98MGexF6QgwF0ppu
84ZW9oMrDHrYPsL3Ez69qvvd/bBXjXu625sCaodC4+c3DMDdwu+fh8woYJC0
anfo9gDQ9xW15IlQQGVQ4MCyywDkT97RUN5BgaDt+1GN5wC0vXpX17SVAvIp
hmYqoQPQPXe1o4OLAmzZKS7CWQNQnEa7kL1ChuiG5d9X+wfA6PKlGPM+Mhw/
9yt8UG0QtlB26cqHkYEn5dtjXa1BGLn7wE88kAwakx+ZFWcG4Udg36yADxne
+733iTAZhGn2uMefXMlwqSIuZqvrIFwb5O/RNyfDGaW57QRpEGSyS4+fOEKG
1oAZSgv7EOyaWvuRSidBTO7GK83cQ6Aztfv61gES/KpcvlsvMATsZTUOj2gk
iHzqMFu6ewi2m2k53GwmAYtWymd3xSGYNoiQ+F5EgkXHNcYD2yFQfurxRzqQ
BMJLyz/T6vHzAqn6jntJoHnRYU2nFfdn7fPBfBcJNibUeMx1DIHVTh79M0L4
vj30NVd1aAiKH8nlCW0mgf6lSO5XM0NwYZ18me9cDhzfQWdKCQ+DZ0JzXFht
DpwfzM3d5TYMIfsvVkVfyYFzGXP0HZ7DUKkz0OtsmAOF6xW6t/oMg/Sj2ICz
Z3MguiBxjS1sGNY/tIxfPZkD9HuzNq0pw8DlG9ZySDoH0r8zLcbrhuHMsBn5
969sKLcq57XnGQFvtu8GHFHZ0Lm113K3wAiYW2w1932YDdo3p+51C42A0PZI
6dmAbLg2tfDhkNgIsHYrrmtzzwYeq/SGPoURoPPvnjY2zYYkZZlXJSYjsKbY
w+wXz4bTruoXX2eOQC1TK+p+RRbUf5yKDCOPwIiX79e5oixIWt0paZA/Appi
J57b5WaBgYzELebLEbCse3tNNzkLVr0bjg83j0C4tkMN0ysL9tPlNlz8NgJD
vr/4LVWzYPpZi6bGUToYL37Wa4NMyD7xaa76OB3Ix8/U9FRkQpl/xOohNTqc
+urbMVSUCRMb/fds06bDDpPv/SPPMsF3/XzlWxM6KPhsqq7wy4SHbzbxxXjT
QXvDqAtVLRNYj87bKgMdjio9HpO4+wxkHqmvCDXQQae0rTvE5hlIjqienG+m
Q0jwjbNjl55BqPPJT9mddBDO5pkKPvYM/tk5REyO0mHbcDNn5FIGvIu2NVv7
QwcS+NelemZAR3XfOo9jo6DTE8RsvZcOzEfj05zKoyAzse+bn2061F56Fpqm
OgrtnvYTh4zTYYYh2l+pOQp8MYb5oUfTYSOc6eszGAUn77998/NpwFt+0ijL
cRSORR/yYDqlwRM/wsiXNAoiW7as47dOhS4tazpP7iiImonyNlxMhT3J8sVp
z0fBwp7IcESp8Hty6URx6SjYVGgbvNqRCq671T+V146C434en3W0FIhb/9bj
FH0URp9E305SSYGHSTfyDbYwcD478Y/yJsNnFr6yCEEGqJ2p3je5mgSXFzs4
GoUYkFlkqTn9JQluP/RM3i/CAMY4f/x4QxKY6T7UHdjPgL9Fh3hTPZLAQS32
W6EGA74d4GYXYySCxq/zapfdGKAntS6TTDyFYgmuK7L3GND0n+pJ1/in8COk
a5DlPgMc0/iilQOewoe+2+yZvgy4dp3r3FvTp5DxckUUwhnwvEKrOJb7KbjZ
umj5P2MAc3nmrqtrAjzJqzfkeccAfo/fBvuOx4NSrzVvTDsDBhoF3dwk4qHs
II/8lk4GqLtlQdWWeBBzu5fJ0cOAMoHK78rTcdB7PF11hM6ATdYhm/lS4yD+
rcatdbMMsL6WVr1pNRZCyQshVwSZMKmVevN8dQz4Vtk6WW1jQkuFGE9AbgyI
sloI3t7OhFp5jY6ihBiwPDQV7SbMBK0YsWw25xiYYD9vdEucCQ87R9Yei8cA
M/4e25QCEz4FyJsIRkZD9kFZzsMXmSBYEdirUfkEPg+EWM8bMIFbUbzkd8wT
6H9l41VqxISxtp0R+befQBlv9eA+EybEHKwz/ivyBO6cqLn+15wJNYGjczdD
IoHquj1R8Q4THsmMTBpfjAC7G0rPl4OZ4PVMtKN1IhyUbj3dFhPKhDjnA0xS
dThsV0sdkHyI3e+87kFMOLCeTzbVe8yEYXJU4k7VcAjivmntEsME+bpbs6Lx
D+H4X50wlM6EDUrvws6oh8HPPoGzLzKYYL3S6EnfFgYV3iF22zOZ8Lot76/d
t1BwPGiWOZnNBLvaPZ/cE0PhkTxDwCqXCSZHIjivfA8BD0KSk17KBLmcjvkr
ScGw9aL5/t1lTHhww5kl1yEY6ltUMq+/YsLils/ic6eCQVv4R8RgBRPOJhv0
e30PgrUbe+zza5hw75tqvfmpIBCzoCl0NjHBJWd6yeNrAChJ6bJt62fCnmjz
G4b3fEHkQZrUAjbv5OzBTglfSEa7lrsGmDCf2LOs0ecDRvxEpv8QE/R77StE
j/jA4OQIbzOdCR+G+a9k/vQGIf022w8fmVD+Pm654fZ9sH60cC1lnAndg8sj
Czvug7aiPsvFT0wQfqMXJ9bmCTR60LmKCSZ8scx56SjtCQvGghx2U0xQ4a44
MvTpHjixv1688p0JA5EeG/5cc4e9ctXwHfuB7O/7M5vdwbHpy1G/H0zw7Dua
MvbaDVpVu/alzuD9zhwSqNruBuFm1XIVP5ngfYJso9nrAj9/S1kqzTHh1Y7B
kt1BLjDLVq9egZ2VUrN1+ZALlNj6biqcZ0Kie5JpZpQzqF/ZXub3C+/X2X3k
zARHMLOfPf8DW+JScsGBeQfgm/6VZLrIBAvR29UlFxxA6Wj4YZklJlykK14t
2nwHklaoQS+X8fvopCe6BdwCO3/BcN7fTJgRV+8cYthBp3vIiVvYl7cZfTqh
YgfmeTPE1hUcn1W0HQuLthCpPpFh8IcJ65v9yIp3rEFDTyI7BXvX8euDJe+t
YDW97NYY9pLqwkdpWSvwlKzTslllwv5vfBPcP26A8lU1UxL2o/EA3gfnbgDL
CKfCB2y3jd4enwst4Gl1zCGjv0xYS3vZfodpDjbC+pcfYf96YKh2JNMMlFov
qb/FbhwuWFq0uIbr32XL3f+YcCxDkdPp4xVoiDyXrI+N9NA78RwTyLFJiPfA
vr5akNJvdRnuLPINNmM7/7M7KTdhBJeKtES/Yj9bfeLVTzYE9ZfvZLjXmNBj
0hbrZWsA8qzpf2Wwb+mw1+yUugh70yBWDztP09rAves8/Bdw6JvN/1zluKPg
wlngL5nj8MN23MZ+jEnTA16Z9d8SsAUqNm7mMdQBnjnL2HzsQmntNaVeLdiy
nv9vDXa5eLanxSUNELrOJ9OBHRDxkx7cfxJEN5rvHsE2fycifrZIBWSWV/on
sRWznv95XKIIKkc/G8xiEzvVuFpeHoZzb/bELWHzvN2q8e/2AbCOfpG4ip11
M5LH3lkMfArDLNawdekKuvo93JAiVPL9fxYM5e6WPragVtW+D/3DrlO7BVVs
/yF620+jFexvU1mUOR9JxLqVQ24BW47edbteRR4dyHfq+IpNl8/+/lD5KLr8
SEL+A/Y+ZQFufSVlFPZq/+VebB9bx3+cxxCqOuB3qgmbL3/N6+N/p9DMtz1z
L7Glvm+Kr0nSRNK/t9pmYitw3LeOE9JGNhdMMh5h35O/F2r7VBeR5r6kuGJf
B8n4o1v10Wdm21UTbH71EimW+HNIdvufsRPYf49nfLcMv4Dqb+kqreL9vRTg
GSK6yRDxB93kHMI+F1g26qVthKw/92a+xE4MRSu00EtIICZ9hyV2RHNs2d0N
Jsi5f/nvUWxfn6BvdZpXUJdtDpkdm3ZYcBdnsClKsptUJ+F4LPKyS4tkNUPr
hn2POWFH/r4U0qpujhye2s4oYrMbKab+87+Ozs/uLazH8b7j49a6F2sWSFna
+PobnC8+Y1mXvvhYIem61svO2Peli0d/77dGmZp2RaLYfgL1aRsHrZHM5oMP
7uN8rDo9pyp42BZVPO19vBnna+exFN/VCTs0F1Tok4fz+73BsPzX2Fuo/Oqr
Tk3sJ2WS2/qQPRpu033ihutBq9j3peTk2yiBiAwqwfWj2N3n0Sd9RyT8pdNR
Gdt+wF4777cjktmqWlW7wISt530U7ChO6ItM5u0mXI++VcRsnvZzRn2mAaeL
cD1b+xeA5Idc0N3iol42XA8NHExeCj12R/EpUGr1Dc9vyeyHxgd3pOq0OgNf
mZDyS1b1juJdtH9wNcx5mgm7Z9T7isfvIo/c7QdLPzPBQ6tfepOKBxo+VWNQ
8YEJKx/PH/jw9T6K6UvZ+22MCaJio+wt6l6o24BiKIJdkZi1QCR6oVkuTZoX
gwnBn+ffmGp4owy/lFOCI0zI5W3RDUx5gBrMX/5t7cHnvY6JULu2H9K7clHp
UzcTrFrkjXIS/dDpWJZ9f2lM6LCKt7r32Q/hdJeRpuL6vZhvGarhj4A9tMby
Pd6fC7tjVz/6o89nc9duNTKhKVzW1lIsEFXJmaZaNDBBbd5+/R7dQMRyYdd3
o3pcD+8UZjKcA9HXMwOlx2px/p9brT1XG4iUD+1oYVQzIaSzYIzjehB6XTLC
X4fP1+O+WfSJ1GA04JXFG1fCBNnGKhvXhmB0K9Cz3rIY19uu6pA/08FoWt9U
788LJryxPeG8XjkE2XZ9+8iXx4QX49aKXwZCkOqjs4qd+LwPrWinbhQIQy4D
f+/E4PvDRKik/rXQcETXz09fwfeLgw4uB14Vh6PHUvwiN0KYELZNip9jJByV
cQnySAbiejEX0Jsl9wgdfjqWH+XNBNXqLo2ng4/QCDlt4IMDE7bYBgUH7YtA
nysy/wZcwOf5lNjVoy1PUEtflUTCObxf3n85mLNP0LTJk3SyPhNkpnXLA3dE
odUntx681cH3gzTOyQqHKKT3emqx6yQTdspwmH3jiEYJ3JxMF3kmnLiq5XWv
KBp9ogx6l3AzIcGJOs6/HIOklqcO39+Mzz/r3WKiXLHo28FUAzUOPB8//9/7
RGPRX/2J9lo2JujYjN5W0IlFymf4KJQ/DCiNffdFOCkWiVyoW/41xYCg1+jD
acU4FOMdJZRTx4DJDau+I67xaKcP/aMQMODAh+hY99B4JGXdvu1RDQNc/71s
5EiJR80fn1TaVuD27mJ3pevi0e7sgnGWFwywZW5OOcabgFT2aQxWJjLgfvb1
6Nj8BCR6ha6seBs/b8UvfJDxFB2s0Ix7ZMeA/gCFxZWZp4hrXUz+iA0D2M/l
szWuS0QnTPq2elgwQNZle6meRCIyF+Rmxl7Cn/P5LO27k4jeNCipmCNszQMu
sr8TEf2fv5gm/n6gbfjw/GG+ZPSn39b4PA8DGhrc8vzEktF0iryeyWYGBNxh
7209nIyOTzo5Wm1gQPzqmyfnLiWj9Efpeea/R4HUFa0hlZKMfDlfTU+NjUIl
/eUC594UlD3Zm6hfOAp3RK53hhxKRZ4e5pHv8kfhy80A3RKNVMS75whdgxiF
usc81gOXUlFQY0OIfOYoGHm/uinglYr81dw3Tcfg7zdlpif06lMRdeOO96Pu
o6Cpt5NSdDEN1U956rcqjYJKUcE+tTvpiFoScnv2yChUWYSvvvJJR5nxjPGt
h0bh2v66n1JR6SiEcB8z2TcKrw3LFFZK0pE162EO+G8UYlKHcy8vpSOPiJ/b
uVbo8OR2zdycfwaa+Rl0KK+SDgm6Z6ajop6hc0LtpIYyOhh93KYp/ewZcvhN
aR0ppkNHYNHW6sJnaHpeeM+GPDr8l1EvQO14hhh164RVkunQt/QtZmRDJnpV
V3jgxH062JT/vn1CIxNtvfj0tY8iHW4vWlzvqc5Edjx3T55ToEOTrPZ6zYZM
5PVw6p6wHB1ONqmVlLRlIkZp5K8SSTqs2shLBA9loswx6vG6rXRQM36nvmEp
E23JVGY4z4+AhDB5/t6hLJRbmPpU8MUIHLk178RNykI/jvo3lOSOQPT3uLbl
/CzEUOCs1CeNQIeC364PJVmoJo5n2Tt1BA4ouFByIQs5jQ/2QPgIpDXbCQuM
ZKHSercVus0IiNieNjbako0K/OvXOwiPQJvYzC8f72x0aPSSRIPQCPgdl4jZ
EJiNrhc/4RESGIG3V+sXwx9mo8rXs4qVHCNgQPLdGZ6Qjayv35tkLg4DOUAs
x6IoGyVOhZU2UochtCnljtvHbOS60rDxU+AwCIrore46nYPWQshmYT7DoGl5
TrNOPwedeWMgJO05DL/2O0VZGOag/+T4Xt5wGIaA7f1ScRY5KHm3UMSry8Pg
UDV/sNUrB4keudTIPDAMET9n2ZwLc9CFA7Fn1bqHwKnwwPl8fhJ6cvDL38j3
Q8BaaR3Utp2EHo1u3jLSPAStkpkBkyIkVKVWdt2hegiGrDn6thwgod/cMRmu
pCF4xy1KOapBQuvGvLLX7g7BwOnvNsWuJHTYgLdhr9AQOASqcNl2ktBeBVaO
sC1D8C/1t1NaDwkpbL25aWrzEAiP3F3uHCShAnqoQg7LEKA6VlfpcRLiuS9y
4t+XQUioG2QWLJHQw88veLVrBqH3gLn9ym4yupR6tnPv9UFYZ33TKsOBjAQz
/U+pXRmElkx/krErGc2TJZyNDQeBxf7mKKcHGXG+alry0x6EI4GbD930JyNi
zKyyQm4QWOWqlGZiySjR4ce/qrUB2HgsM/ZEBRldNI/O4sgYgGNim+qrV8lI
20BKyjhxAGLqtVL01lFQ1fq9LJnRAyCx42ZA7wYK4nymU3AgaADWvzS9O8RD
QU4V+t/32A2AXINKAyFKQUpOSvwxhwbgaEGwi5EGBTWvpH++Xd8PS6zfVz4E
UxB/xvshy+p+MOhwN+x6SEGD/67vvlzWDyOj0UEVERTUu1xGUqT0A3AUWnnG
U1BEp1DSYHg/8PuT56tzKGiVpU4s5UI/pKRW9urU4fYBWbU76X0QtzWi2mGZ
glg9vCSV+/pAYp2Jh/cfCqrYaaNo3NkH3YcowcH/KKjRzck0rLYPjikaPXnI
RiArcxNyB6kP2Hs6FU34CPR6l/e56Tt98LbrVamgFIGSNjvZjNv0wVSO+Xj/
PgKx5LlLDZv3QY195/l4GQK5zpUV1F7og/4Xqf0shwlEB44alyN9sNlf6l6m
CoHaNNl+WP3phSsNsV3LFwhkekCgXHGhF9qdOHc6GhLobp3CPo7vvfDVoDmC
cYlA+qt5fGRGL2waLxktNiVQYIH9p9q6XjjVvci705pAbEsqzx6G9YLhnq+P
2e4R6HS/7XZF/174Z1+WesCTQAI22Srjnr3QVedZc9aLQBdjzoUese+F4dO5
B4J8CXRB3FukWr8XTiAitTSUQHZHJCxNtvRCVDJn6p6nBOKKuMjOztkLpNa7
07OJBMrfWOP4krUXpI6+uPk6mUCD1meCNyz0wEmn2Em1dAItNhq2PenvAWmB
tz3cJAIhwc31R1N7oIsaYVJfTKDY1P8e18b1QMES+nmqlEBMLdttuhE90Myz
m/T2JYHs1792M/TpgePx/oZEOYE095zRPXu9B759ripXrcHvOyNg0benB36f
2uDn00ygjRS2syo7e2CPUbp0UQuBWP0VVjMFesBsfHlwpJVAX9POZFmx9YCn
kLSuZDuB/L1sNnZOdINQcKmWXxeBTHS1N+xldAM/Ubw+nEogmRM3m+/2d8Mn
rZ63kTQCNYTdiBJs6QarktdSD3sIVN6IVBRzu+H3aFT2yQG8Xs/5z3pldoPS
D1npPYME4n+1V7Q6qRuWaq9n/cO+coiF+1h4N/TEv76VO4zXryN73Rb7btAf
X5WHUQLJv7cVP2XZDSaWnw95MghU9t2Ow8W0Gx6eGxeWYRIoN1lqR6teN8hF
GRQEj+H5JjwxvnqgG+z1f0YtfySQ2UpfRteeboh87/c6fhzHmxaXpvqOblDn
YmHs/0QgrWgtsjBHN8SY9nBoTeDxonRuhLJ0Q/4fCd532PHuyl7fl2jgEXCL
XXsSx+fcdP3LSRq405va5D8TKOVx3hw/gwauHWOxadifOC/7OfXR4OvwrDbr
FJ6f87zdu/c0uMjwmLqBPVHjWyTaSINM1mXXauy0mWWDu9U0eNA4P8HzhUDv
N1katpTSQGnuO7qG7b7pdfG2fBosPL/ll4P99AfLbassGuRbTWd/wj5cfSzw
RRINzo7O5+6exvHteHVxIYoGHQc5o42w+9mdWo6H0UCxtsQ4CJsR5vLL25cG
cMbpz3Nsix+W/tV3aTA52vKgE/vqCQ275Ts0cOo7OTSNTXXkf3HYmgaJ49d5
130l0NuH1HP2V2nAyfV81xZsyXCfs88MaMBOzmXdib3R+b88mi4NnC8za0Sw
b6iSbqxTpwFDpF9PGPvoz10eB5VoUKUr+FwAO/Bx6BcTORqcuC9GZ8PW5WJU
+kvSICMrhD6Dxw93E58g76IBP+e7/F7sU3VXHFsFaTCr7671EvveLx+jqc00
KLzM9/wx9h6+mMQN62nAc1ty2AxbZ0ucougKFXbvPEnbhz21HHRE6ScVjM5/
fjKD14+lxerJ2Skq5JyibCnCjvU+rGXBpEJ0ELuJHfbepLR3Ph1UcGqj72vF
+7WHRSnxYSMVBqNuljpip5yrr4uupsIPsfplHuzFjBzZ5Dwq1DUJVangeBjO
XHFMzqSCyzEZ+TYcP0rhJ7kTE6nQe0jj+kVsc+5ki0cheHzxIqY+jjfpvOdb
/R9Q4bOw6ME6HJ/2B15IublR4UVW+0E57GvjDywv3qDC+Dy3+v/im+u/M49V
TKjgadtw3hD76NFNWyTOU2FD8Sxn7gcCLYieV/ihQgXBinl/NZwf4bODXZ0K
VLhfO63kj/MniXLxXcF+KrxVSkusxvm1p5m3x2I79it3jd04/96TfYIMPneB
sM6KTMoQgTwb3rKL93fBpiOqKlU4f1cX5+ZnG7sgtv1bVTfO96RnR9h8srtA
5Ofcn4U+HA9LwmzmZl3guXbeaxHXi8CGxRZO/S74bf+cPoXrySC5Yb5UuQs6
N6mQ+nC94S84FvRLCPe3bGOe0UGgxrcBARrdnZD+vs38G65XgsoLwe21nUAX
r2krwfVMuf3K7LmiTpCNr451wfVuu9y/f9oRnSDJZXx4rIFAnH+f/2E93Qne
u8Si77/F+V+S6ppW2QEfX0u2puL62vYI/RqmdICKetudjSU43+/3MwUTOoBV
9vrV20W43iSNfvNy6YDnIswt4gU430YvTPLu7wBTh57GC2QC8fm1G5ulvAfj
RF2dp/g8sJfccjDUox0S5Lava3PH6+EcMZZr1Q6Zr4y26rni9ra/ZJvPt4Nv
yWe9BicCZRpGJ89KtUMrESyYZY/rl+L0S7bBNnjrP7jCYUEgyz0Hf+1TbIPX
K9zMKF2cf6GLeXY/W2HDqRuulkJ4/VWlXjPorUCj39nEJkig7Ewtm/OtrTAo
IBafgc9ncbszEaLPWkGpVDLsLQeeL4v3rkD9VuC4plCeh8/7B4b2+qcoLfDm
7y9uGQYFpTwMp5dfaoZELyWbgXQKqs9tvTB+shni+aR58pLx/SF7IIZTphlO
cyk3uSXg+4G4jZcuazN89xkzWcD3Ecp1tYmHhU1w4TbnQpY37q/kixjPxibQ
5k358uIyBZ1s3qt4uKQBlgbGLf05Kci5VII2tlQLzBF3vQ5TMqKSDm9THa+F
sJathegSGbWKjPXGd9bCmj5f0/PzZBSYJwzHyLWgZGvD4aJJRvt3CGtrGtTC
fr9JWpEsGZlQ7fS4LgP0F04l/P1HQtsdExT0XtXAm0Tupz1pJHTnpPC7Z8YV
4DVx551iUw6q7CvnuiVVARoip1TuvslBY3V+BVLL5cCoCmR7/ioHFWSksYQk
l8OTq7+i18g5yNqe9Q+MvIJDHwK89UNzkIWer5KieRlMHUsl3LWwZRT7918t
gUCK9cLim2xUO2t6/Kw9BRI1Jf3CE7MQC+uE5d1lW7S/S8EKHc9A1PkP8tY/
89Ax9sQ5Of8k5Hl8xd5q4jUSSTm9bf+5GFTwVOdJhGoj8pB49H5CLwjpbxX9
EnqtEU2P7uI7x4pdsvlXqHcj+jMlfSGmKhCZqO8WTapqRCTnnupcqUAUXafY
8O9oE/p7QOnvDtYAVHzqoOqoXDM6+iN4xzYLH5SmfYiFKdWKZOlNS1vG3NA1
lwifKO1WNJRhfDtJyw25V/55rnWzFb3sXDnVm++KKjO2CTdQWtF5Bhv3HXcX
ZN2uqssq+Q4RBVESipsckR354kCMRBsymjtx8ft+a1RJ+mGTrtWGbrGklmV/
s0QWdc/IhTZtqCLwokn9ixuo1kBN6SO5DYkPbPT3v2aOcvvu5EdKtqO7W5VM
b18wQo2QX9d8uh3xyh697tl2ER1pWQ3fcLMddXZpt5SGnkPiB0dl44l2dP/c
5ssHrTRRWuRtjk8t7ajjwU/VrlQ15MzJ8/T4VDv6EFncFX3nCCKRGnviN71H
jpXb9E65iKP/93tflf8DZ4oZrA==
       "]]},
     Annotation[#, "Charting`Private`Tag$13125#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxd2nc4le//AHClFAlpF58ispVoGd0io7KzI4SMihCizIaZzFIk2XuP8whv
VITseY59OOcoI6VIid/9/ff3D9fr8lzPuO/3uq8L33VnPduNTExMdfjH/37/
93hGl/RfH6pp/b3IxedXrZHwj7yJtQ8pdOyx9A2RhvObS1v0F3uRV/p70weP
lcG+dwt9rakX/StpLLjncwUGLEw2PXDpRZniO3tdb1uDhFji2P6PPejhbJPw
bU036IpJ5ppy6kZzrqYp3tsfwhOTi4TNyw7kfMeGY+1pNDwf8/B2CfuAzNMU
lUdPp0CZonBxiEk5SlZ5Pc0Ukg3J7zK/vWl4gtSjHmZ/aCiEcMrREhe1Ivi5
pUhSpKYEgr338CyHF8Eje3aR3sYSYK/PbXDqLgLv4alez84SyDjf9FHGvBi+
BFtfyJ4sgVmuhtSDriWg48X7qoy1FHZNN9bqvywDxahPI7f1S2H23naXuyMk
SLr4pv7OVCmocqtNyiTVwf7d3vPT82VwQsV2I3NDHRj807RxXi4D2ZgA9mZa
HTwVswyaWy+DHP+yCXmJeiDbz5M7ucrhWzJz5Pt39ZDeGdslfaIchJdVVzUG
GqCZOWbnLbdyOP/HaqfO1o/A7vtDoeBbOfyIVI4+KPYRemPqs8SXy+Gj0pHV
Uc2PkHP4MCNlrRxgeThSM+Yj2Bu6TXpsrwC+zLO1zbyNsEaMr1aLVkDEwXjh
c1JN4NBX1dRgXQGcV7/I7dVrBuc8m/s1HRVQntjkouTWDEjscuSB/gqo5Lk5
YhvbDIMdf746D1dA1cAGw7j+ZtDUifBg/lIBs2edPj83bYGx2ZCt7Rsq4UOB
UvsRq1YQHUAiP6Qqwd+UInjDvg3u7h/85xteCYJ2lrvig9vAuctanBFVCSIl
uWcastqgylDxk9qLSpBgjuZfn26DrYeWNX68rQSbqNf3Dzq0g+5oXf5sRSWo
XitSGrXrgLdSp754jlXCNvPr3I2FndDfG4m+i5LgkVblvEFtJ0xHc0zxHCPB
29vudtTPncDMbrVbSZoEjTISkt+/dEKa+gd+LzkS1NFDuehHusCyQ5/l1WUS
eJLXhCVedIFQ8d7xTEcSLK18yjp+vxt4K1gd/qaSYOGNMrd+SDeUH0msNs0k
wTM3oX13X3SDvH0klOaQgJQqupJd2g1qssyDesUkqBI6xDU30w1vZCddVGrx
+9XWRXVe7QH3Gubz//pJwC9En2Q/2wufRpT3AjMBZzYoTcyo9YJnZoRYBAsB
sZVe1EbDXiD92/bPgJWA/4gHC3fu9kKl2Y2RDg4C7nJ2ycYV9oJinlD1rf0E
yLKWBv8n2Acz9mGnNSQIyMv8/L5Gug946LJtmccIsOVv2Gii1AdT1g6nV6UI
yM5TDH9o0Qe05iPPnp0iwG1XeFvWyz5wvaDqbokI4JcyY5XZ3g+Kqefs8rQJ
+BkjHRhzsB8uq/z4FadLwNYe+tq8SD/sluu+c+8KASz0ceZXqv1Q/JxTStiI
ABWLI/J1fv1wns9ys/Q1ApTSyD3rT/shpf/KoSkLAoI/3nSWS+yHuXtOUhFW
BEwkHinJIPVD5zjPhTYbAshJE7aa3/uB61GU5rIjAZsbPXhur/dDpOac3p1b
BNxrZvQHbx8AWbNAM+ptAiRtzY3KRAaA28s+sPgOAePfnj8ZshqAVwk5yqvu
eH1W2MyGnAdAZOpKnIInAcOjpicHfAbA3dJy2fMeAQvnIhYbXg6AzGTtjwFv
Asz0lJMcuwZglcvx+wU/Av6c/lNwbXQApr5tu6/gT8A1t9eq2jMD4Ovyifl4
AAHuM1lsRzcPQoZQzF7mh/j54z207DODUHo17KbVEwJy785JBKoMwrIZzw7R
ILzf1xZXDfUGoQ26YRb77YkPx5ZuDoKKUpWCZQgB5eNe02xvBiGWaBtdDyMg
nX/Jril3ELxMJxbiwwkwr7rm5E8aBJOcU3vEnxKwf+Yn53QXfn4+8UYxgoDD
j/hzn48OQlyVC0sD9qyrfNv5mUGwF/F/rPCMgB7dkxlPN5Fhfriyiz+SgPnz
u8wld5DBJvP223Ds9qCxV628ZDgyFh2xgO125IWFrSgZrt91eqUVRcDoLrnc
v6fIkJyo1piBzWHW6hOhTIaAbtudK9jMK2oDvDpk+NzH9VAlmoDamaLKbDMy
GOVG7gnHVpBhOXTCgQz/EiU6PmP7d6ttr3QnQ/DZ4wVbYggIbXQPPBNIhlT9
iTJ5bFOuSN+KCDK0sYRO3cSeK3y+QSqBDDr5bufisFXTQ7ZlZZKB/yvjPQn7
xoJ94sEyMnxLPe7Rj60eJVMWVkcG6uZ4w3nshaBZvd+fyfDJz/4GUyzez97I
e1ZkMvR/nM1gx47y4BNsopGhpNN5/07scKckY5EfZDAbkYf/+WL1lp3Ba2QQ
uP3mJQd2q4W5/iQbBZ6qTGYzY+8yecMjt5cC2nf0v//Az+PLarv57AgF5OSQ
yzD2D43p8+PHKHD2zIJoHXaw2rckCXkKiCiUHUrCpr+gBnqqU2DEelDHA5v1
XMNcjT4F2NhyQB17/mzEGJMVBc50edzejZ0QpmqseJsCJUnhV4fxem6XnjF6
4EUB54SzYa+xLxx/MFr2mALcMp//GWOfe7gy8yWKAr37Yso4sDeIW/sfTMLX
K4wU1eL9CxIlEi7mUGAXeWXRHntKWNQuoYECp1Knr+TheCAJq+yFdgoMRpq6
qWDr+2pojVEo8M5tdHQQxxdF9LDu7kUKVHlfezOP4+8ealKfX6OAleSgjxv2
n6h/X96zDUHhew36Dxy/+Qt7RWz5h2D613+mEzi+B1f/Nh6XHIJH11bsdLC/
qjpzrJwdAlbFT5uqcD6QYplf+ekOwa5ctPAgFNfDeIFRBfMhYJq7cb4f588u
Sm/rb/sheLrP/6goNtPeyVQb/yEYUQwursf5FuhZobqrcAj2tf6bK3yE88lR
d6CyagioyXUbRnH+Hki4v8O4cQj21t0vZcFWqvAJjBgZgmfR1F9qON/P9Zwx
6tk2DG+Hy/eH+hBwqlxTxmzvMORkPlB8+oAArr7vVRP8w+BlpMsZdh+/Xzvj
A/XsMJSVSOd4eBFAywxtrbYbhpvZ+r+34/r0597+X6Juw/DpwoaHdDdcb4NO
f4rzHYZYv3EgXHE8WvDdtIobholMTQMdXN8e/MpN7WwYhuiCZ9znbuLvq04c
4+AdAZ61kZ88lgRo3zyUoiY8AtOKI3Jvcf19bCzF4SM9AjsePb542JyAV7Mb
J0cujoDB+6UaDlMCXP6a+Xl6jIDhHpdj+bied5bOBrJ1jABfoYThdxVcnzjk
Lf9RRsCvgcL1V5mALMsc7Vn6CBwby6xZO0/A9a+TNrVrI6CvoP5zUQGvb2yL
vbTkKMzZKWx6fhLfX/lGv2X4KBzKHhOoOkJAx470vl3xo+CeltVszUeAw8BG
xofUUeg+onV/yyECFNUPKu5/Nwrnyqa3KRwgILEOWqO/jEJHzMMdVlwErG0b
UG9WGYMZcoRwxF8SzGhudjynOwZW4pG25N8k4ArSe11oNgZynV4t/y2RgGXs
ouwTtzGoLu/hjl8gwWvBPM1Nb8fg/mu9tgs03P+3I4ry3zFYQ0z2wW0kmD+i
rWJvOA55uqunP7wkwa29H/Y/uToOnCtaz6Ofk4CT1ehMiuU4zPQNbjeLIcEn
ev+VPsdxeL31jNZ4OAnYws9tEsJ7t5hDyBX44fnDJ//SvcxxqLkmucXKhgQH
11idupfGwas7yFAczy/2FeeeEH/HoV0dJVoeJcHQrajpJKYJqJ5oEo7kJ8HJ
3sgwG7YJCDzPwTNxgAQV4cuXhngnII73U8ylbfh902wKPS5MgIv1jW0KM5Vw
zrWGwzZyAoyE9ynlZOL5iqp12DtuAqSfHfo2k1IJ16Mtjj19NQFCw/+pCidV
Qlrpmkp+2gSsJD5YiYythIcr0gZ9pAno7Nyawx9QCXnR3n8/jE+AwuEffeom
lZD7x9OO/xgVDn889ih/cyWEun0XXpamgqaC1U51pkooEf/KaD5DBer2juCR
PxVAtjC55qBEhcimPxIr3yrAv1lSItKACuxyY88XyRVwJqdcz+c+FXYzC0Qs
5VWA4Vvpmr6PVFA7+dVbSbsCbq99aNBvoYIGS3CtycUKIIV6D3a1U+FY9We9
W8oV8PW4nkzjABUuiLy++/B0BdSVlua/+EKF9brMTq9D+P4xKHOEfRK8I189
Dp4vBwPCu/yX7iTu5webZUPKYXE1Ck4ZTkKb1q9iCCyHD85tZHfTSfjddv+o
4oNy2DxZdG7++iRQopiqpJ3LYWVdpKXJbRISa7cCTb8ccnfSGLxxk8DF10H1
OFQOcim+5wz7J8E9YTzHtLgMqpbKBXdRJsFxNfdXW04ZNChlmHeOTMLbDYWx
CmllcKu+GJRpk/C++X7fjhdlIGhyV2PPz0mYkNn3NOJBGZz6kRnsuGMKmJ8J
iFNUy+BTy6ewjktTwG6ssvBhsBT3x0OhRlpToNfuW/2xqxTcNSXJI7pTYCen
wPG+pRRUCjwdaMZTUH3BR720uhQusVXojd+YAv1uf2XH5FL4ITah9jhwCjY8
bSuUtiuFst3fq8NIU3C0SvEy+lEC3DlOOYLVU2CaRV048bUEXP/FJtbAFID+
GMFPLYFzE0MRjMYpYJGdrVnqKsF9XS/3SN8UxHZ4NN4pLoHDtMn38t+nYPHM
9oQC5xJYqIxz+yFEA6Ppt44WX4qhSlxsSUOMBhTndcuh8WIIsnTwSZekQZGj
9Lsrg8Ugvnn8pc5JGvyVk0s921QMSUoVbM+UaCDsmehNSSuGoxEsn/PMaHC5
rXe7q0UxNNidwg2XBtvmjVm34HPfW6Hiv7rRNHz+YZbJay4CMxvJO6fiaKAY
ru6qVV8ENvrHxf68okHk90vHQ4uKoJZD78utDBrUkGfGRyOK4MUs+5P1ahp8
rugIXbtUBBQNy/PkaRrwvzngphJYCEJZoseDZ2jwfdt20aE7haDjv2xzcp4G
nq9vut20KATpzPjk0EUa1F2ntdyXL4QLHb8tDq/RYGMb/8zVpQIICz6+/pub
DqnftaZ4HAog540PXJOjQ5KV93XiUj5clbksuO0cHb4LpggJns4HiqvAo3JF
OhT1pLKHHckHubkV8U2qdIg94KemspoHzweOi4Xo0EFas2DFLT8PCgLbyVK2
dKgtqNlfy5EHN040r/8Lp4Nj2YnMI205kM/EHuTwjA5aTy3bhkg5UH/PdEtP
FB1EarSTItJyQOfGgcU3z+lAXqPqTt3PAZbTRz35kukgf4jZW0c0B7oLbku9
L6HDsXj15GNPsuHH8jungH46XEl0mxKSzYILPM0bUwbpsIPnotUbwSxwTUtI
qaPQoVmU6zz3jixwGI/c/HuUDgYWu2W/MjKhgqXaWJuB7ej9xDouE/rZd8sk
L9NByMtOwu9bBoiud9W27GFAWk8BzTM5HUTfhLXm7WPAkd7mHuuwdNiSyjYV
foABmrdNcy57pINJv/EZtf8YEN6cwMepkQ4WMyed0gQZMJdCz7ddToNv7T84
Nsgw4O2+4Gl9zTQQeOApoKzNAOebm9RNllLgv21PY1p0GJB5b1u7PDUF4jeo
a+vo4b/n7j7L254CbIIFeYYGDNA+MNHam54Csypy61pXGeDCc/DCIYMUyPxm
zDx/gwGtN5p8BErfwh/q2yDaAwaYzdlxb72dDHNWNmGnfBlwz9p7KMI4GSzV
Pw899mOAovy5Ze4LydB0Ofz6oUAG3L8ZL7PzYDJEibdtORfEAL/sVM3pqDfA
Y6hXLBLFAONKkQF39STguOjoX5WKvz/Uj2e6OAG+ti90zqYxoPFyoNfAowSI
dirj481gwM2zbM/qjRJA6e+P955ZDIhQ7Gd58u8V8F/S3LY7nwF2ApmHutRf
wUyNR/q3cgZI79fL9hyNB/fx9pUNlQzIV7hbsKc4Hpp5bLS4SQxYS5z7XfQw
HrqpKr/FqxiQUHYkYEA4HuzT6FqXahkw22lqMOf6Al7+S9wi2MiA3k3575VZ
nkNndaPF3iYGFLOuoYTBOOiOkyBt+cSAop+kiPmcODgZV+JAbcb7p0I0BmvH
gV/zyw6/NgYsxLHGh8fHwv6tIxmmvQz4q9/iRRaJAceRUw8jxxkg/Np1Z+PF
SNhjXs57eoIBt603SJD+w2f2b7v/DGGHupoc12Y8A9D0uXd4kgEc4jpM/2Sf
Af/cVFgsjQHqSw11B6hPYQexd7vIVwa8Cwm0uHksDFrtKj+WYpfnywQxkUPB
XeRsnfwM3u/jpWeiAkPhNY3qfXGWAS0D9a7pfSFw+nwHi9Y8Xq+c6f5X94Mh
5vE2L+YfDHCT37v2sfExmFp/1nbFPjwg+fjAncfAre9sP4Ytenrowc39j8HQ
6apF2SID5pNyljfeegRCTz5bX/zFAMLpdCHrjofg/vf1xRzs/fZbtJWrAqHs
oa4L6xIDOufGu72sA2Fz27UnDdgHR27XjZQHwHcl7qZDvxkg332kKdDUHxq1
f75zxbbOdzuYzuwP4c6kH++xjyk8jwgx8YOvDLqg1QoDfLzTan//84Ef74ZT
nvxhwPtPApcSVe+DlmVHRit2G/toDBHvDa/2ps1y/GXAiG2JW/dXL2CBRYVI
7A6HUw7LEfdA9LvYss8qA/oEffR3DLhDyXLCSik2h3H0JS9xd/DxUNOexjY7
fWF8JOAuUIZ1fl7+x4CUX5ZGr8Xd4NaHAuX72GfzFZx/B7iCooA6PQu7tO5V
jM6ACxRpSAiuY7cLv3P6HXAHNHZ71QutYX+iVkYWOIOoIVOxFvbniIOPxUyc
IF+xPuQFtuHxui69gpug9/WPK4H9Mmtn7ZixI8iy3ykkY4ulbfS0Z3aALhI7
/+51Boz6PxJ2Mr4B/soyxsexA/2YImY22oKL6ouJi9ipp7++tM23hrT6k7VW
2J8TKwKHja7DgXLOeU9sl0aKr85GK+g5LOgSjr156EXIQxMLaN/kofYGm6l3
bbdVgRlss9roUoS9zaqPU5bZFEJPtswBdv0blikOYyPQDGyracOWHPFZH8vT
B1019gky9qaoox35G/Qg/tEToyls6+JBv+95WsAnK88397/70dx9Ag0v4jld
4txP7HiX1TucTBfgz3bTghXsXrdg+xNXFOCyeIPLP+x3oZeUzmecgNEG2+B1
7JKimjAZ2iEo67rw43/mZP/AofR6M2o1tihc+9/6RBN3ZOtFkaBxOfzFzvo7
yx65/Qxq6FA9soytbzn7GJmfR8mwk7KAfWOpUrGsVBXVC/FMTWPPX9xgLsim
gQS3Wp4fwz6ido/pYpEOarUc+96DvbzLKPvB1SuoVOrVr0ZsCUsp+XwWQzTq
HalBwh54fVCDUmyMNOQbljKxz9wUvcVsfhX9dT/2Mw67KNr1mPDWa2hOaPBC
IPaF4Ee70kwsEb9e9fQt7KWwDR5ShVZIj/O0qAJ2zJjcU2VTG6SV0tbEj/12
A2d/U6EtCst/Q2LBjoqCbPXNdqhdfCmm+X/xdZ6+FxU5oN5kb98s7OU7bipl
m2+ig09lqx9jJxxnFxC8egu5tt+SksOuCI88sLLZGQUcGbPfiX3VqoWaL3EH
dS+EL37B8Rw3/jXVbPAOkvv5amM0dtbE4dViCVcknuS/pR3nS0gjD9vZwbto
NLL/fCz2PyVde40od3RPOuKhMXb8rYtVVy95IKtgft4hnI/Vb/wLbld7IlaX
saxPOH+3Svxhu5rsjZaoSv/5YQ+py8peMrmPPm3amiCNLTIppybD/QAJGFfm
PMf1wOJKkPPvhz6oSCGHXwXXC/NsmedJ0v6oT/Jgz8wyA3JGnGrXn/mjiY65
0EjsJouoFvNZf1TIR+LqxfXIY9uei1zpAejwpom7yrh+iX/o/62x5yEy/vDw
zfvvDDz3xn7f/fsx+lbK2XgJm+zsI6Og/wQ5Xfm32LHAgIxXviqWRU/Q4ZR/
tr3fcD4cuxb+0j4ImfhGp3ycY0BtanpT/2AwEjix3ffiF1y/BIiPt0hhSOJw
2YHiaVz/nb82qe8KR//VVtfuwX6u9Trw0J1wVMa6yDNMZ8AMn9hwtdBTVDG2
KKU9hfv3IyfZ8ucRiDtItbZ/FMf3WZvqRiIS/d6oICqGrST1TOjeVCQqu103
6jOC68GWDe1HOaNQOacT33/DDDjBFV103yYKdTy22X6JjOsd57UtzJzR6LZs
rZ92DwP46ot7AqxjUGvqw7vB3Qww0FvOYI6IQUyrfcXQheP3ytKFQFIMWrjH
xyLSyQDL0xs/um+PRbNpV3YzPjOAe+ER18nKWKTxUaCdC/fXSHO9Qg6254iP
h7gs+ZEBAZzfqCYyz1GHFWXHpQ94PW6M3Hl77TkqIt57PmhgwOmyV36Cpc9R
eIJUzmfcr1kFdqYxmb1ABULe2Qdwv3eh2dFW8+JRnFXtjtt4flCyDD81fDkB
pRNoSS6dAa8vB3gKeiWgrNdP+7fieUNi4zM7h4wEFMT6LDTxLQOCj+pLTTAl
oow7wnW5iQx4NXbc9Vl5IrJ5UG7lEI3nkzMhY6O8SWgu5IyvFZ6P8kLq4za7
JyMDy8vD37wZwONHhGiEJaOiBtFTD7wY8OgAi1rk22SkIKY9EuGB1w9NbONo
T0akMMmVhDt4Hph9pEQ9+hYdD1WzM7DB/f/1hYdfBt4iMR8qj8olBjSrXDPV
P52KeKsk6a/UcX1MniR/1EhFUtY/a+ZVGXBuXJwkfT0V1a7MxEcqM8Bm1cR/
09NUdOtM+Gq1PAMEGnRbvKipaM9qpDdJEtcryR9JheFpKD8xV1d2BwMmVySF
xEbTUa+54FddTgYkG/PcPryYjnjD9kXZbcf9wT09fMfWDLRL9CbbU1acnzWL
agypDPTCqz6nbgOez5wd5SwfZ6C5aydSWr7TIYvzk/sjsUw0qCR4y6ETz/MU
zQted7PQ9RC3ebt2OlSy/bEIDMpCzXWzYPOZDspG4beCXmUh8Y2WOiaf8Pyd
teny47ospNpxUUiyjg7nhUigzZ6N2qNF858U0kFl9EYiT2o2EoTD+xfx+WAP
o6rdty0HyfO1+b8LpYOs4GTk+lgOOn437XRgMB0YO0zI93/koNzZnmi2R3SI
3jL97cbeXLQkdGqd5T4dWk6W9bNY5aLRpi1FBfZ0eCJWl+a4mIv+5I25EEp0
MDW5eTB3Vz56RWYR3YvPM6MHrznsF85HYfuFaK4K+PyxJrUcIJePrvfo2Qic
oYOhQkn9+ev5aFzS6ImzBB0CIl4m3i/MRzyPd5pk7KUDPJKEXvUCFF1gevb5
Vxr4ndFyWfcoRGYqaTplDBosiTG/yQ8pRPe+0R07p2hg+njoiUFiIUrzMcra
OEaDD5b6d6PrC1FrAE1Vu4cGQi82i4xvLkImIuXcIe9o4NFjK3dXuwi5/eKn
+YbSYCK/ruzoeBHy1o1/Fx1EA7JL/k2f6SLELefTn/aIBlFzVyW6ForQQkUc
+b0vDQ7IaLQ4byhGN3Q37J5zpcFifZpcCH8xUt/x3nLWlAYzf9Yfi9kUo87q
hctJIjQ4w72Vk59WjNpbjIq8j9IgzTGTumeuGJndkDQxOEKDg8s1YVt/FaOj
qqL3NvPS4ONCkRF1Uwm6l2U2o8NFg2Af4yxngRK0/XduRuzSFLzJ9q76dr0E
rTX8vNNRPwXUMfV93iMlyFU4We9x7RQYyoVeH58qQfSMLaFn303BZxNFZ+XZ
EtQ2z/YnsWwKNCPGmtf/lKCYHOqoduYU/MhvMNbdV4pYuvvf2YZPwX4ts0eG
eqUoYLyrQddgCkwjYvRH35cimi2TWbfuFHCySC+SW0qR2qaZS7paUzB5WuZI
d1cpYgv/KXJJbQpuOSpLkcZKUVjT4KzQWXz9yg+K6d9S5DJPexzDMwXVzFu4
VqTKUP9f7s1i1EmwP5RlE5FYhvwE5J8Ijk6Cxe3mhMzUMvR7u++O/yiTMMgn
8aw6pwxdOaKhyto9Ccr921LJpDJUarRD5FP9JPyMtr443luG9jFQDyN5Evz/
8k3yspejB8kSVQXmk/Dg4/yMhmc5+kp18nU0mQQR+5tLZJ9yJEz/pCFgMAkb
Wvb7X39UjrYda9oSrTEJ/8S8WG9ElaP7LbNLBnKT0KygCadyy9EG4WHCb98k
JG+05/o3Uo4yfC53m3ZRocJqjJdLsQKZZtSrCrZR4W14CW+qSgWia2uyzH+i
Aqdx3T+pyxUoQDD9hncdFYhTvsbKhhWohWKY51tIBWMLSS2ZWxUo43bD5ZNP
qbD423ha80UF8pepopiqUcGxN07X4GsF4rw3XjyvRAXpXOK21bcK5CHP0+t/
jgrhm7fKOvysQJ/UelfenKTCHbFjIzfXKpCPvWpL8xF8feDaEQXuSiTVfcKv
dX0CXAaZ7DjOVqIaVfGzQRUTcNDqj53Vw0pU7mP+2r94Aj6qhcidD65ErUoH
mO7lTcDRIsnGg08rkbrnqXrLlAnQ6VNdqXteiWJCVqQORExA07R/Smt2JXK8
ktMmbjsBaz/zLcfbK9GuBxVznTsmYLDF68WfXSQU4WFyJJR9AhTiVsol9pMQ
/3qQ0fktE1BV66BzlZeE3lQFvcteHQe7nubv6YIk9IWyw/U6YxxS/lmU/j5J
QjV1Oi/dqsfhjlnsy2gDErrO59W5y3Ycqg4porBIElIiDyXOWIyD8N398h0x
JNTcG5ZdZzoOJl5qpzlekFDP856HtjrjIOfWyu/zmoRaVDfKv5Ibh62y6en/
5ZCQhuFwVeGOcbj6/ecu5wYSKlHfGe7IPg783x6oX/9IQnW+L14f2TIOtcd4
rHU+kVDuTU5mvpUxaDImq/G24/u94XiV0z4GZdlfMrzIJHTMjoW222sMVpc2
ecl9I6Et9TxRV5zGgEtaxGX4OwkdT2mreWo9Bowm67P3fpKQ65+1+GXNMVDn
s5FJXiGh9xuTDd/yj8HK3vi8YmYCPXEdmtdoHYVzNz7fIO8hkMP5V2l6daPA
nnap/Oh+AiW+WKTol4/CAvVgjdNBAv0huzdrvRmFPG7OxflDBLpXQcrf5zYK
nVW5nYXC+Pr20zGbDoxCYpPw3hNnCcSt9yeUjXMUdlvfeXBYjkDrrAeObt80
CuoSwwSrAoEu7HVR3To/AvmmlMrPigRyyfQ51l8/AixGsQm71Al0LYkrtdN+
BMbLKEM5BgS66pDRmWw+Ap825QuqGhGo3f7l29t6IxD4MOPEsDGBDm1+IfFP
bgRM5gcif18l0I3ShblFjhFwqoSzP6zw99JxWpUNwyxTw4HpWwRiXXniRska
humW7X8lnQjErKjp7fJ6GGT9IOSOM4Esb353iXsyDIPPxfMnXQhUdzqetdx4
GJ6a8U+HeBBo0/zXIBnNYUjJjdyb4UmghsFX2UXnhyHqx4GZ6nsESrvMPZAk
OgzXf133ongTaEemBUVvdQjWuGY4+nwJxLMh0a1yYQhyy63kGv0IlPDsZNE+
2hDYZBAbSvwJxHLJf2dX2xA4pv809AokkJ/M3cD9b4agR3h5vfExgdRPvDpl
HTMEqRH9A+FPCBRhwxuRHTQE5r9vIs0gAj24ISckfmcIzFozSTXB+H3H+zaw
nh+CsKKVY+ZhBApfVnQ6LTMEYi38UpvCCdRiz023EhoCvmNH69Kw7Y2nl3O2
D8FwulZA91MCfeqfjWpmGoIHvxSKLCIINFpgdHpqkQKX2RNv0LGP3bJM206h
wLWP8tbjzwhkp7t2k6eNAkNXNTKuRBLIMHIjEqqjgGCKjWMd9qrwbV7JUgps
mZ3NPxpFIOOD57ZIZVDg3pSG8xNsRzv31WMvKdD4dDZvDPvE9p3/RMMpEH9e
xvZENIEK2Pey8vtRgLs4/Lkv9oRtwOHdrvh5U9fQB+zWfXrKm2wpoKqw6xpz
DI5vwRCXb0YUMHLd810Ouz7saG7/JQoMx3Qs3cZuuyy6QChQ4CFrzu2X2JG2
sYovj1NgOZpLvxZ7K9km8e4RCkypOWUNY5/JSGDW2EOB/+IlHX5i87ad8TjE
SoGcyzWxm2MJRGjK/5z/S4a+wCciXNiswhk+VfNk0KxYEtyFzW3mwR04QQbZ
Su/gHdidX/JKVHrJoFrop70VW7nr4rXNTWQgDrt5/cb3d+LW3F1PkCGe3rCJ
iq2VXzFwL48MSTIj3z5gT759ki7+hgzeL46ffYsttVDtOxxFBtJPsTEPbOl4
E+vgR2T4HXpuXAV79qXZleOeZPjxfUCWA9vs10etXgcyhB+wn+vA6+efE2dw
14wMS1oWS6HYV4lWOy5tMtSckNRH2DJTjgXyMmSoN9i7NRbvjzRTL/XzUTI8
S9h1VQab4Z7Kb7KfDCxJhatteL9dnNw/2K4NArkuWHAOx4fad8+j9IVBGCvP
y3bF7m0bj7k+OQibdsh6fMfxtD2WFqn9aRCMAyypFBx/1T4Bh+uqBmFIjuqr
gn2o/uE78fxBUM9MMs/G8cpm8G7nn6hBeFSTOGSG4zs6faHT9NEgTI43e+aF
4vXVDn9Z6TEIfhlbdX6F4PUsXtKwvToI3N/iClyD/1dPPp6u0BwE17puqUyc
P1NefySYFQeBtevf116cX9LZL+SjBAah7OT674M4/0zkk6g+cwMgnk03Ng4g
0Cvujs0J4wOQz5fRaofzV+HsUkVZzwDY7qFedMH5XeIp9H6EGIAxjVFrVx9c
/4jdD1meDADfHosZcS8CpXCv7N7qNQACJZ4v2HH9uF7dfYrl1gAYREqp0HG9
4djgwP9bFz8vIzk56C6BdmrzvS3hHQCNmMMnA3G9eiZWmRrPNQDPS361SuF6
dstYWeY+8wAMmKaYDuF6p5d6bv3kl36cfymmPI44n//VyQeW9UPz2vH3BjYE
sv3408D9Uj8E5q0eTcf1dV/Wt9MCCv2wNyAzexHX32ND45kdx/ph2rKVS16f
QEEnMqR4dveDn2lRUJUOgejp1bNhY32wL8B86fZFAmm82beh0a0PrDektObj
ftA5HJ6S9rIXfFUDtoTsJpCrvkNWbWgvzL9XKRnmJlAG+72U3vu9QI7V2yTC
RSDSOXG3n+a9ICtrGJ/LRqDA7G9PmPl7QX062tB4HffHl1RPi+we+BIeP6HF
ICEO2j0/jvJuYOuw/ZleTEI+Tq+3ZaZ3Q1nL98JtBSTkfeZnmNzzbrgrwzXl
gPvzwYgzDsae3bDHUb2IM5WE2BV5nlud7QbIfFnEFEtCr2u1ieLqLshnL9jh
eZeE7h61E7xY1wnNxS6uucdIKNr3+YOcok44nJzVfUIMzx9VVnNb3nbCsZSk
jyVHSShmqPVgZUAn5J8Nv5aI55HqpvlculInbM2YOL1nGwnZhY6e2B3SAWHh
xrapU5XIMrtcrzWkDcR4xzIORFeirDDS2S63ZsjQ0WWc7K9AZ5Yvvx3Sbwb+
OOm3Kp0VSFxSB42dbAbqw4dJWi0VSHkt57/u5U/QbehroVFbgZBQjuON+5+g
KNppbCm9AinhBn0xoAnUFwtWWe5WoGjuoozloI/Am2k9zb6tAuke7+tf9q+H
b31RNt4C5ejS4ZDmCPN60BU1/y3BU47suyzqeWXroezdNRPyTjy/errXHVms
g0gxO9+9zOWoteP8aodNHagTRjJSE2Uo0rmmV+9pLXx+7aVNTsBu0Dtft7UK
BHRbjH6yYctsmiE6iqDR70Dr3s4S5F8vxmYs64Jmbh3w5RUpQsMe2QLb3EtR
fI1fn490DjqQKxfJJv4B5a/HfUwOSEEbqbf69MzakYO5tUDu21j041CReUto
Oxormclg1ccOiXK+RLSj7LTLsYossWgTVfK4zZ4OdNSWO/20YwwyTukRWOvs
QJ4B1QaXjkejTSXUOVpqJ+LbKXtj3eEZKv8loMjg7Ua8sTezpM4/RpsNRJJy
T3ajkK6UiPWER8ioZVXxrmY32mhgkuuz9BCxLXMZcPt0ox8Sce6hOYEozHi+
ImC4GzGZPGqlcfgjDnkfK4nEHsTp+GX1XJQ7Cv3ryn6qrAdVnYi6PCJ/F23t
Or2q9LkHGUj9dR9iuCKuWskch9UedN2CQ25Z7g46l9yFvpr1otf79hw1ImxR
D6fijt3uvWh5hBT/jMUa2cX5CF142ouM43POBOlZogSqLX9hTS86+T7Uy67N
AJ3M4doy09eL7ng9Xus010G9QaHHxeZ70eWk0YI7Ayro/v2eJGeWPhS+/jXM
ffgk+n//7yv/f5B+QxQ=
       "]]},
     Annotation[#, "Charting`Private`Tag$13125#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxd2nk8VN/7AHBJyVYoSyVJi8oWKls5KUIk6SNRJCGRKBWJKNnJEhFZQ0hC
9u0ZM3NpkSVr1pmxM4xokfV3vv/+/jGv92vuvXPuc57nOee8XnZZOxvbsrOx
sZHwn/997r8STv69vxfd1uQzuVkQXMXftOS2nrcXOaa//1JNOgG5BdNl21k9
iEJkL52tNgIacbXvQnEPYv75VnC7xAruHXTLX9DsQd7cnNcLslzg2JCHt+SV
bpTfhubUw3zg1rYOUveLLrS1Kcnc7mIEcET2NE/xt6NDv796HfieDJ/a5s7G
2nxFAzuCBu5rfIAZthBNa7cqlNCws9VpuBh8zgWj9kvPEd9wZKvAsUrgb1SK
iy0qBu21KoIBAiSwevPJQ0+gBHg1rl9q2UoC/tzwteNOJTBXFm8uJEmCQNMi
zp/7SiGVyvcyWJEEEcKXuvfElUFNgvzygQskcDnClb3drRLOquTJHX9BAt3F
DX/S8OepkN+oYmMtbKBYPju9vw6UPfmEVOdqIa5AYS3HpTrYc+CCf+BCLczf
Nq0sCaiDeAevtuY1ZFC5mNC5OFIHcz98eQz4yRDdwUHiyKiHu7tD2KZkyEBL
sjQS2PkZcg+Zj/+wIUPuWVlnIZ4GiDyeR7NrIkOcsLmoh2oD8LfUjra2k+FK
3o+F1hsNwKsTw1TtJcN/Z1ocb1AbwCYpf25mjAwyh9OWeb2+QYglEuJhp4B9
0xeaMbMRBPdKv5hRpAB3VMJ3G3ozLLic/hcQToHGavnUJ3+bwVBxeXgpmgIe
9joar/haQMPMTtExngKeamuGylRbYPGr27RSBgV0W5L6yiNbwFqEzP+gggJd
n58EkU98hzjfm2PVgxRgGx2hTMe3gvCin951BSrcZk1Y2+a3gki48dH1R6lQ
9+BucwfRCi0bS9PT1Kggzs4rkjPTCmUSCdyfTlEhjuemseDpNkjyOLCVMKHC
s/EvT8ZZbfB3h86RIHcq2LTIUgpRB7DfRNs0y6mwvkZPY8eFDohgLMa1VVFB
Jur1YV+7DigQ6Am3JlFhw8+RKM2wDmC+yhx3qqcCW9BG4cDuDmA8WHvjZDsV
fu3KPnrsXie4u8teHGRRYfYvD/1EeheUJC158ewi4EQ7B2VbaRc4NeZ8Zu0m
YEv8YYmZz12gYCT2rnEfAWe6VQzCWF2gQ+VT8pQhYP5wm0Ok2g8wtoq981KZ
APMLF8mkph9w8q671ycDAuQOB3ZX/umGHJGixwdc8f257J3h3D2Qbhq4Neo+
AXW/DHwtxXsglP2exy83Ar7/MZqc1O6Bygr/F5meBJwG4X910T0wunpVm+RH
QNq1VzyPFXrhuqQUfHlJQMQA/7plrV74HvXDqDmOgF7ZS3kPLvXC5EhiVVM8
AaHqF/nNvXthVMNOqiqJAK3t/IL0hl7onTvrpJ+Jx8f04J2x64M2Pv0OrSIC
ZpxZ7Ns8+uBpxlzKWDEB3FSlbI2wPsjIWTTzLyXAsk96nfvHPhhL0X39oYKA
K20/FnJW+yA5qcavnEQAe0+Dc45gP3yl6o7KkPH9heHR6Xv7gTHlphlPIUCm
5dlUoH4/jO2aHrKuI6ChVaZPILYfTL7c5M39ip9nkdQ8kt0PZ/z1TFkNOF6l
A64lVf3gqLw/Q6aRAI3els/ajH7QeCB0LqaZAJ8J1497ZAcAlvay7WzH8/Hn
+t4mNABVtXcCFDsIaG7drXPPeABYbw+Knegk4OWKYHye2wA8HJVw1ftBgIfo
B6/B2gHgleld3NKH708+O76/dQBcwy5um8D+/srz482hAYhJmxGs6CfAcJYo
uL2WBgEbml6eoeF8mVR+VbeXBmcHz3HKDRJwd17380U5Guwwp2/pxm7WSMsa
OkqDkHG5dU+GCBB2k73/T4cGvStGUTBMQGNMpjanAw3SGGxeq6ME3L71j/Xs
Lg3yTGtrno7h9/WM1mN7RIOTl8Yn2cYJsNN5wz0TQoPd+7/wTmOT2EXu2kTT
gJGWz24xQYDu3++BHa9pMLtqNlaHzQjZTf34ngabdS8EhEwS8Eu6bEy8hAbh
ld9PjmAfXhdTFVBDg62S92bVmTi/RCrQdB0NQtvOxYZio+tSd42baLDvxmPF
Lmyusd4LRZ00cM0WJcSn8Hxndg9tptFAL1PZyAr7QKLE3jtjNMh/86vtNfbj
b3lbGmZoMCx58782bDZlv497/tHgOC2vaf00AQU/3qx5tIYOEq0DOoexI4u5
Vxu56DAvK1xzBTvpS/k7CUE6KFjeUvLB/iFawOmyjQ5CvMtZSdhaKTOC1ZJ0
6N42uLMMu8fK/RunNB3cslRfNWCnmOsqGynRoYhPTLgXOzrMyuilOh14+jNi
R7BL/pFEu0/RIWV0VpyJvSH5ZsR2AzooK+18/z/7e5mXmv9Hhz0cOqfGsBVj
XoTFXqGDapc/ox+bb2TLZtxggXpjMaQZW9ilX4fbiQ7uGbUnqrENlGakT9yn
w42aP2sysPPlz4CrFx1+bS1rDvjf+G2ZazL86FBltjvPFnt9W8dcaxgdYs0u
Jmhg/3rEFcP2kg7+8s6vBLEFLZ4NH0yiQ6p0aDYdx9PSTWfYOJMOG7u+NrzD
7vpiHO2eh58/b8BxB9vbNHM2oYQOd0LlzitgX9xxkq26hg7PvoQXMfF8movt
q+6powPX3gj5N9hTRJ2WYCcdykSmXNZgP3Lx3XRwgA5XioJUs3G+qPwXGIRG
6WD8QFvcAPtYvUPI9b90+MN8fcIX55vRwW4/vVU6rHWXercVe4kn+7QsJwM2
eo7avcP5Kq5vu31amAGJK2c6SDi/I7KM5b+KM0AliD9UC/v1s2SuzH0MYKaf
i6XgenhUZipgcpQBW6Z8Cj+OEHCWn6JxQIMBuxpeUvdgl42EKS5qM8Am1elQ
JK4nk00nneJMGLDY8XbrFVxvuef2yJfdY4BMgIVRBR3X0+uQcA9PBsxDoOF6
7Bs3jEvUnjEARfN9OIvr+cnDlYtFLxjgr3UvoRHXe1to81BoIQMiUmfRqx4C
9jQquR+vYEDl3n3OpG4CeJ7/aZmsZYDfwiWuQdxP3gTFd2m2MGBZf7Pvti4C
pp2vKLayGLDSo5Vj3IbjkVE5f+cvA47U95wzacXXm3v4bVxlQP2HPTcvfMf5
iIRnT2wchMA3BxY1cX9bnq8XCZEZBEev2Mox3B/Z9m+OKbIfBD0zuzcWuL8G
6zjUyrsMQpDGXU7RWgLyhiWKstwGwWW1cuYbEFCVmMt84T8I/GtdTWWqCfiz
dDznXPogrMu9Gv0R93Oam67plYFB+DttQWW+w/l71SvmwuggMI4NC2rkEOBy
QuyILmsQdPY4HgrOIiD2Z2zcgdVByFHb1y+YgePLFzDTID4E3StGMiOJ+Pky
WkMxFkMQ9li4LeY5Hl+JqOp12yFodRCviQ7F65maKUvWCV+/XvD582ACpA8J
+lR6DsEy02f4rj8B1e3eiqUJQ/AnlRm/4kXAKqdaz6EfQ7AodsFm9y0CZpXy
TrfRhqCNmmvechPH3zx08/2xIfBT3m3ocYOAD9H+LXl/h6B0Tl2x2pqAGsrd
fnbhYWiMWyPKaUbAwoaDx2SNh8Fze39qrhYBY/JbOEM+DUO+9I0lXVEC1Hbm
u1k0DYPsiRcDIUJ4/ee9lyLbMQz0+PrnXwQJsOp33VY/OAy7ZyQuqvMRYG17
Ib9/ZRhELANyJtbg/rEceT3l8AiEpRt4PJmgQpMx35hT0gjcIQ2fiCujwpG5
LIu/6SOg46i0xrSYCnsib4U8fjcCAtlvigQKqfCacNzkXzYCVok9/zze4f0J
/5nyh99HYN+UpsSOJCpoKPhHz60bhcka7dmUp1QwjluyV3AcBfqfhKsfdKlw
rGuz9PydUWBnpW5N0qKCr+hBVOU+Ch9t9E8EnqDCofgLFsf8RyGlk/XDUIUK
HGnxd8RS8f3DFo4ZUlSIoMz/u9wxCt3BUbcfrqOCquHvoC6NMRjt26b5qZoC
G+OZIXraY8CWzJ0nVU6BUyOMgVL9MRB9o1/5tIgCDd4NXqGXxmCMW6da+h0F
TEpfRArdxfbuDNWLo4C+yqzo2/QxsGwifyq+Q4FPT1iZ9ZzjwNczrXhlFwUi
s9ab1fGNQ6X4EW59MQr8Lpu/T948DsUTvH1HRCgQ9tJppnDnOMhcKHu0yov3
n9rxo/eUx6Hv/tIn63ky/Lm92u9pNw5AdKx1bCSD2N/5n6/J4/CPdp07zI0M
WuedVnU/jUPBymHrlTtkWB9T5Tb7bRxMQg+POd7C++0fk1nHf4wDz/xOP/Vr
ZDAwCeMrZo0DP7+5/PszZFDd1jsgJTYBimzh73rEyHCuKytrh+sElGVUPnap
qQXDpNnebe4TsOvd0crvZbWQt1bpu5DXBDR6d7QofKyFiNzYVY6ACahcoEaN
vK2F3gcztp/iJ8CzWSrwYGQtJE4NWA3WToC4etONHddroeR6ySaHjZPwTEpd
pYyjFhqF2qx3bp4Ey7W7dMpWSKBzY+zBd5FJ+Ghx17x4ngRXxn7RFXZNgodP
9otMJgk2Xk+ktCtNQtrLvPu2bSSIU5MpLrg0CQvcuZIX35Dg9F3N8xUpk3Dh
sJAnLyIBmTEWFpAxCUP7w2CvCr5+afs+45xJ8E8/9VFdgQTGMntvDnychGg5
/UKL3SRYekRR7a6bBD+1UQ0PThIc7JVfd545CeefzEnJJQFMJNdrnTrChK22
NgGdpTWQpj40W6nKhPKd7g3HsmugyCd0SUGDCTUWybSE+BoYXu8jKazDhNUI
gWc6XjXweO1cWc0lJnzQ/itqcrIGAqs38Ec+YkJIiUOAwddqYD8yZ6cGTFDp
JDGpXVUgE6y5IEJhQk88W6/LlyrY13P8xFwdE4SVyfUiVVXg73JiKK2RCTxX
1VMuJlfBir1T6EgfE2Q27c2Is62CzxF2FquLTLC8HeVz6GclfKtsX+N2dAo6
d/nFUjgqYSB4cIJbbQreaJRmtP2uAJJJsv/r41OgL3qFlz5SAax+iY4yrSno
bQ6envxUAetBv73deAoOMq+ZfgmtgE0lJ/5LvT0Ft3jbT+ZuroDn3m//e5w+
BZ90P3wRFS+HJm2b3o1ZUxAmva3LkK8cJF8dyn/9bgpYZuU93ktl8G/kr3p+
4RREcti3fe8ug7s7NYdKSFPwMdNi7lhsGbxYW+N2sncKarm0pPZuKoPAuGs5
xgLTYBSafOfqYgmMsvEXhW6ZBoGzbA8Xx0vA9M83LqrINJzRKZiK6ioBx0D3
VwfFp2HWa162qLgELPQC9ToPToPvtx93Sc4l4KQRxcw7NQ2OU2n/rR0shlO/
z2mYuk7DBFtWhUFdEeTv5TWTfTANT368O1dQVATTfk1dbA+n4f6LGZbAmyKg
tztypjyehg1qPlb13kWQ9HFBAoKmoSTvte1a1SJwtbuj7ZM8DQ0SsTspOR/h
eTb5wsbP0/Bay+KyR0ghqLTZbIr8Og39n5a1bjwshCK5jYcEGqfhhv6VXKMb
hbDL9UEKV+s0SHz4wL71VCG0qSYe7+nF42k/oeizUADRNadurpmZxue2g+R3
9gXgn/HLz2wLCy5aH+qMOJkPj8vtnK8LsyApiJPfWCEfJNittjiKsmBjnEwy
v0Q+WCuMRbiKseDW2qNxPIsfYJjz3H8397Agp/aCbarLBxiIfsAxpsSCxNS5
gA7zPEiTk+VWPM8CS8kHAhHSuTDa6WczZ8yCPUfq3Vw35EJHsa1H4X8s+Pr9
22nj4XdQtKmy68AlFhyICjvKnvwObqlXXV22xM8bGVgjI/gOmu+KxirfYoFu
GMkl92822F9TeTf/jAU78nXWBMNbULn5UjjSnwVe+4RuD8e9BVGNhM59gSxY
fsz237G7b4H93CvzMyEsqNc0z+7d8xZ8+W7Y3IlkwdQlvbNjQZmguqwbgBJZ
8OvQf1sUL2TAz/bNZ98nseBP2cXXujIZUPrIz140hQXjdcrCl9dlwG05i5SR
NBY03vu27FqaDsGH+jdfz2KBD0+P84Pt6eD2dh93byELwt9+86Qy0kDovOXB
nUUsoMeUvk+sTANy/bGUq8UscBRy13ONTgMdsenQrlIWPCPVDmw+nQar1yQd
cqpYYLrV9rJ0dirssmpRaiRYIC81I1dxOwVUpPQ4hDtYkMuVkSLKSgBxz9dS
v7CVOUU0TmYkwCu0Y76pkwUfm66fvHE5Af4TfJvi84MF+fW/89/Ux0PXSM+m
ul48/2oD3qPJr0DE4IsdnYG/PxtZlHEuFmyCf12JH2RBRbtBcMi6WNBRNmA7
P8QCyfD4UKfKl9DS62tYOsyC7bzXdPdJvYRfF7dw2Y/h+Em0/nFciQZnzoo/
ZlMsfM5KXnMhNwp2y1fCFPaGMM9ba6yj4DYxfsR7mgXPT7R8zhWJgk/Hmw4k
sFgQQrEMW3gaCUEWlfKlP1lguz0wytUsAn7+k7JWmWXBeVrCJPemCJjhIGuW
YgtynzuMgsKhwO7xhrw5FnA8MDZ+evU5aJqJFnn/ZoHqOfr3Bp5QsHCYOTeN
PfS+PLL1QQjwT/yOM//Dgi3CL2rb6cGgciRIUeYvzqcBk86G0iCIW2j2/TjP
gskyn4jA6wFg77MlaNM/FkRrEaFOjf543v3Ub2I/Lz1AMlT1B8ts1luhBRzP
M7by6zf5QZjmcJLxIgvM0ZFh/YqncOrM3rR47D/vb7qt3f8UlhKLbtKw527c
3FMW8wTc99Vq2y6xwOjcAZmtd3xA7bKGeTq28AFFx5Bqb2Dr4VaiY7/IsLs9
EPcYXlZGKvy3jPPBKpzt4TlPsBUzMA3Gzk0cYtYcfAQqn0w0a7Br6o2esa33
wP3P1HrnCgsi+BWd3arcgBJm+MoA+2kll8T72AfwxjYm2g1b6Ub10YG79+HW
H/6uOuzo995GqgdcweSDtsQk9i3x2fxrHHdB8+NnGb5VXK8qGxQDBlzgEHvi
sgx2rPsYx3/3nWH3a4g6g31cuCU1WtoJtj5RYNpi656Sj2umO4BgwSyXN/aK
nL32hjh72CSzlhmDXaZKX3/M0A42zlpH5WCXz6yq3uKwAYG1gstV2L+5Dh57
VXENRK7yy3zDpkFwuz/dEiTWW+7swRbucT7dcdYcZOYXOkawc180+e2qMIFj
R0aNZ7A/6TwwvLnvPBhWS774i31vwarkyl49sIl4H7uE/dhGOoFYROCVF2C1
im1SFWH1ykwa4kUKpv7nhG9NaeWBgqj86wG0gh1l8JK6/+dR1Pvl538L2ELl
QlWbUrQQuxCX/C9s1wMSDQH1Z5F0jvO3SWyFYPvnXm4XkGnw3kN07JRMHbHD
PJdQQPFB0zbsk39pbSNJV1C5tPdJAjtuW9HjM6+sEIspOfsRezgzcEp80Brt
/ydkl4LteyTQbEbGFtkaXUoKxh5fNrCteXADpc+Ox9/FPmx552Mg6SYaHfhy
+RK2+UD4iCH3LSQrukhTxzZVPZXK/99tRL6pp7KE55chO5FAdr2DBH1vcP/A
vml8Lzch7i6yGW1L+Yi9036VuFPtijZHJm6zxg4zNDLbwvkAuXTMLx/BlnEu
vE+TdkNNdm8yOLF/7TGkZRm5ozj7Ec10nI8RhbeGZeM90Jrux0edsctkwiQn
ah4hp5d2LGXsiWeSc6mDnujczO48Ms7394rjL9bKeiO1/RevVuN66RAz6qUO
PEH7az+ZumCvVAfruz9+ilK07D9IYHNyHDm5f4cvkuGR83yI63F0+o2hl/kz
VPqyLYTnf/V7zD91vs0fzfrmeWXj+qZTO7nCXANQyeXiRi1s/c1HeHYIBqLu
L3rPXXE/YKoOX5M/F4Ri3ob5FuD+Uds7JrbtcwgSG2+8rYY9JW/DE3gjFMkI
HS8n/WLBCfQyfWZdGBqXSXEkcD9KkPx3teDkc9Ru/uT0B9zPNKWte/9YRKD7
+R/aOHA/NGEO/UzoiELR8VB4nckCAd/5U6l7X6DjzvjlJ1nwbVZuOe3eC3Sw
aynAZYIFhy553kwQjEZuWaJyhaM4X7iYgZaGMaj7ZJVxKZ0FFsPX+iWIWBTZ
Hr+bSWOBweqO7OHNcei7ceYFcWzjkV/MDOs4NMOr1eLRzwKzSfd0UbZXKMk7
/uSWHryey0coEmrxiGL5cflTKwuWhJ59lv3wGp0xO68y9J0FxTJmkbbzr9Hp
KLYDyy0sKDCsfBWnmYhwucvsb2ZB17V+9ZnWRASc/lXWDXg/MVPgajOfhEbP
Zq3epLJAb5+LgHRKCiqXN0+wouD4OJD3JlFTEJvRjqn/yCxIG+98uHE8BU3q
dxYeJbFgL9uhzyMKqUhNYVt9fyULfsS2Xr5PSUUVBT2CtXh93Wh2jmfdSBrq
9Ejd9KKABUcHSLp63G/QzafuZOt8Flx7HWUbLPcGTRiYn1l8j+u9+eTetW5v
kF0Tk8GfjdebDuMtjZzp6HjwWeVGvN73y0Y7UfdnoDudy7ci8f5hka3/7wb7
t6jXICdxAe8vdnEGiPQ/f4tCpATFr/nhermompVX/BYV8W7ZuO8pXh+nZFY0
12YhxZe0nPBHLKDE+GYeSspCPRmvO+lOLGhftVKXas1Go6Upy0+MWNAzpyWi
pZqL6tvL98YY4v5GVEa4X81FE5eeJ2YY4HgfNAl465eLlp7f9KzRxdcn+n37
1ZKLzlSM/Wk6wYKgCM5xfYf3KIaPe+DOIRa4zDFKhl/loaHMrkcFfCzQsgjV
1fPIR1LzY4oPeVhQMiHqmRuaj5hyCcYaXCwoLG+P4k3OR8sGw19JHHi/thh+
mULJR2r6/JmZi3g/eXrgNzdfARI3qp3/PTYNQ55HZFeTClDko3CRN7XTUJnL
m2NNKkTbvXoZIjANbFGLppe/FyIpm6/CwVV4v2zHfGA0VIjqGM/L7Eqn4drP
V//kN3xEO9NyB9neT0Na0Ks8yrmP6NiBU11lsdPg/sGlUq3/I5Iw61VTdpwG
McrXUMP5IiRXqvUi2H4a4hUylVI3FCPeNZE5PbbTcF7j0dUZ0WKkfqldyM1q
Guz+S1J7plqMLLfwDUSZTMMt1ci8Jx7FqJqicswSTUPOzj88LYvFqHfFZ5cW
Ph80OWclvF8sQYsddhfPbZyGx9GGpiE8pWgi/tCZSzzTcKUi4Jjt9lKkOuJ8
+/q6aWCYnHfnUy9FicGJ2Zb/puBrcrKtvEcpesxdPDFGmwKIz4kv+VuK0kba
Yg3ypmC7DfNFDasMubtZhn3OmYL90ofX2LOVo02Sh3tPvZ2Cq2xSPrwC5ciX
SvE7lILPWxFv008rliMfjXsbJiKnwFvSdLf3vXLUvH5bQ9+9KegKtf2+/Lcc
kcfcDT6pTEGyllCf6GIFai7wc5w5PAW5b06F7OCpRCnR/YNCClNw3fN2l9j2
SuT39h7t0oEpuHb1gSaPeiWyYVfkgq1TkGgSOJHpUYncQn+K8i7g8+TQ3Ucd
85WI9dNXIbuMCYpvS6uXZ6qQocjXdEoRE8Y2ytacWa1CTv8yP/XkM2G70793
UXzVaGJOTHJdNhPy27drbT5Yjfpr14gde8UEqdUjwp3W1ai4Nk9a/SETfjcv
gl1rNRI6/7LCSxlbWmd/VH4Nst94/4ShEhN2xzvpKtfUII/AsQdi8kwwNvBf
6Phag/oLw34X7GPCVRNFrvWjNSiF1qxaK8QE5aVlH8kdgARS1Ppd5iZhVtfn
qnEgoKy8hJdb3k/Cc3FtzuOyJDR9xIdSkDUJlmJsljFKJNSvxF1mkD4JFIMb
UxOqJFT1YuP8o4RJCOOYyQ87TULOg12tEDQJK3/GMwquklAh2XWh13YSPAPo
O+9GklCuD3mtk9gkmHT77WiYJSGFPpO9FJFJSPaRWfo0T0JX859vFNk8CW4Z
DuPkFRIqq5hRLuOaBIa968R77lpkc/XByMCfCeAT229tJVmLYscCCqnNE/Cz
S5jj6PladHeBsn7o6QQEbP48H59bi1b9MiwCvCagVU9dpaCwFulXG4vsd5+A
W9+eNVHKatFWef6P15wmIE97/WoftRa92ikSWmw6AUsu2UojvbVI4rAJdUB6
AoglbV8tXjIyko46q/F9HASOlmrJ2pPRc7nx5bCGcTCdv3L+qxMZBffxCPTU
YUt5PbF1JaNyjaKrTpXjsPNOnvbzx2T0jy8y6W76ODgFOR4qiCajNTSPtNX7
45A0kb9HnURGisabKLtFxkE7VUnjvy0UtFuJnStAYBzkBY8ytm+lICWhGxvG
eMah9Ovo0sAOCsrt9Vd6wzYOLhf2R1pIUdDGh+LqK+Nj4Gjcwi+nRkGBo+83
6VSNwbM3o2d2X6Ugk4Szjbuv4u+XOt+YZFLQlhSfkxpmY/Ay+3Bidg4FzWXs
dbl4YQzO/uQa+pdHQdzFxF9vnTGICWM3CS+loLc0i7JS+THw3OiaEvaJgmKd
plfKV0fhV4wIqWOcgs5bRqRyJY2ChkqEZtQBKtIxlpK6GDsKXJeGNUmyVFS+
djdbSsQoHJ3ZUTGuQEXcybq50r6jEB3RyiOvRkXOpQZTkvaj8OFsNKfvGSpS
cVYRjFQYBflik0VDByqqW0gcdSSPwOUFjjLHTCoSTGr4YV05AkopbCnrcqio
a+XqTtOiEbj/SOpb/HsqapsvSlfOHIGg2/kzJUVUFNooEtcVNAKf85oPlZCp
aImtdle80QiszTuo3NSH73+SStreOwxRL9+7W/ETiN3NY59a+zDsUGG/ILuZ
QKXbbZUvNg6DieN5xm8hAlFdnc0DSMOw9Xz/No/tBLpueSnjW/owSDUVNRvu
I1DFjkeGE7eG4cBjQZX96gSK43G2HbQdht+rJg0fjhOILfueVLflMOR7Zq5R
OkGgu7NFuSSjYfixyeOMjDaBeoGr6s7hYXBL0FWcMCTQFy2O6euLQzD0UPh0
1DUCmUtvLlH+NQTxN+cutl4n0P1apQNcU0OQk7r79yY7AhksZfNn9A9BXO7L
tkcOBHqa6zBEqh2Cb7w+yztcCcTx91hyYMAQoD3tw8G+BDrdYSeq7DOEz6Pq
qs/8CLTZNu3YoPsQhHg7r38YQKDzkYb+hx2G4M2Dm1wmIQQy2vNIvNJgCOyS
y8I7oghkf3iv9SUB7Bip8JUUAvGGnufk5B6Cf8YM78w0AuWsr7r9kX0Ipsy7
OM6kE6jLRv/Zul+DUFg6U+f7lkB/qBe+PO8YBN3Co7zk9wRCW3jIRxIG4fSN
/iT7cgJFJWwNIb0YhPgnmww+VxBoQNtOWC8UXx/n+WhvFYEc1la4XvAaBP+B
yCvNNQTSktTXO3t1EAwE7DbMUPD7sjZbtUsOgsUnHb6L3wi0PpPj7LHtgyDm
/vDS7UY83z5KSymbB+HOxu1bnjYRaPK1fup1jkGwWdbsSmghkI+H7frGYQYM
fDh6P66dQJf0dNbt7meA0K/lPaEdBJJRv1F3v4MBYoHWxx51EogScC18Sz0D
Ko8kJer/IFAJFR1TzmIAr8ZenuJeHK93gmc9UhjAd2D7D98+AgkW75aojGOA
x8jYOsN+ApkpsPEdDWJAN/t7t7YBHL9vaWsEHBiQ4aGfmM0g0KEGuz0nrRkw
eeLuqQuDBCqasue6Y84A1+dlaB4765XUtk9nGLAapH/08DAeb8zzi5elGUA+
LLvsOkogi4X2pCZJBoiX5iqsHcP5ps2rpbmNAQsq8gOh2NoR2hliXAzw9qhI
Dh/Hvxeue82fjQEOL9jzN0wQKPqemsfUXzo8tGxQ8sT+MjtB/jhCh0qWXYTx
JIHiQ7JnBfvpkGD90K4Ye4jb1Nu5nQ7i9IgcQSYen8uc/ecGOpxYMrzsgD1c
9fiDBJUO1HATtyrs16x54/uVdDAgn17eMEWghg3WF+oL6WC9jpg8h31vQ0W+
cA4dXgq5akZiv5xmc7yeSocnC3NLDdiKlUefvo+jA3P9pNjaaZzfty//+RVO
h8auxWQl7A5O53rVADrcNPvyzBK7P+DO70eP6WBavfDZF9tq2tqn8j4dMp8p
3H6DfVn9lP38LTr88NjsUo3dfFvwvaINHfhKtRtbsGsCmw0dLtNhJcEpgIa9
L8jrbLIxHbZ3HYofx17vsjW7RQ/Hw/bIuinsa8fTr63RpENU8K76CewjP3e4
yanQYbkroZ+B/TTEf/ySPB3a5fTPtGPr8faX+eyjw76Sjg1k7CDXPcMZO+gg
NDwsmo19stbs9qctdOB8LPEwGPvBb6//xnjoEB8ut98OW5I/MnbdWjp8uVe2
5xi2rsALZYkFGiy02TnxYo/N+x5W+UmDdekMtk4cP7b668/PjtHATLK9LwE7
6pGittUADdj7RtkvY++Oe/3Z6xsN/lYISXzC8yXJphIbSKUBv7uf0APseENy
bUQlDY5l1JwVx/6T9Eb2VTYNQlpUn1jgfOhOWbj9KoUGGt+/P/yF80cl6ARf
bCwNNE8PfvDDtuR7ZRXsR4PQ3u1NL3H+7c9+J+TjSYPLDonFwtgO0u+lXF1p
kH5Sry0C5+uVQU/r89dowL3SXvS//Obdqh9y7BINOssE7/WO4Pge2SCw9xwN
Pjgp2CHsXxLnlKaP0UC9oalvbgjHc6arqVGJBjxV7620seMyz3/OPUgDNcWD
ApG4niTrNrVaidLAMK7mtzCuv4YML1/j0QEgF2Vk9eJ6dafUcO7pGICc0CPX
N2Iv/Zmdm6EOgJGyL7s6ru+45MMcXmkDkLB/++SzHpwPf8U4LC0GYF9Ayuke
3C+eUv7UcxsMQM9VH64h3E+6MihzhWr4ebY5WaO43wjmHvX9LTIAD+Peug20
4vWn5smTU9/7IWxXv1ok7ldb1H49+0rqhy/aGWQX3M/UvprNGH7oh7q58+L6
uN+Jyq+s6IT2g4mQ3NmZLwTiXn63yH66H2qIasclAtd/QcLd12V98PmNDWVb
Ja7nYPS7O7MPnN+k8b7F/Tf6YcfAlpg+6DY8uFWuDPebuD6mx50++Lh+3k2m
GNdbn9HIpoN9UPiTIj+RRyB+768XLeJ7wepfUpp9Kp6vfQJy/m49MNy0+YHD
UxwPl1Ba1vUeoG8vyNzpg++3+y1bd64H/m5NCG70IlDKhYhXM1I94JKrcWPr
Q9y/lCc+cnR1w5l4VaPrzgSylpT7fUC5Gxo76og6c1x//n+y7X92AQ/N2o0i
g+N/XKqiv7cL5H9uT809QKC0FG3bc5+6QGV088VwvD7vsdcPlUjuAr4v7Vc0
JfB42R7teGrQBcoNepWmeL33vOBgcDKzE9akmOUYzFNRfGBQb4lJB/hvTesw
rKYictYno8ETHRAqzWvysBzvH9I6I7llOmCBse9+YjEVUffYeuixd0CU78+Y
73g/knlVYzgwrx2Kvj5Tm0nEzysY37VxfTv8nWUXnvekohN1u5UVC1qhUYNq
rniUilwK97bQ/jZDb0uc6ZYYCmpOVxQ+PtgMzpv3lC2FU9AncVpbdGMzNP2g
nR8IpqCn2WJwNKMZuvQiZF/4UNDBbWI6WsbNEJKkcbvYkYIuNduf4TVtgkMe
rmaDJyhI9HaM0pniBpCdbuIaGCGjWyfEPidfrIfXX2y19u8io7L2Et6bUvWw
fM4xlnsbGdFqvXOl5uvAYiswhgXJKDfpNZvfqzp45nDFMoCDjGwc2BehhwDP
sKZv90drkdWZxyrKllSQk+gvWH2HLaPccfByLSiMPqGS5GsRacZc9axDCYgn
P2Kj7CIhNvZh6/vzD1BHaP9l4dJK1DxHP2TzsxwxxrjWJLuVIHfVBYfrw1/Q
ZIjYlt9VH1DuS93nocfbUEN2ydHl/FRkICQx7n+lDbWd0ul2vI1dwPPb/1Eb
eu1fHVomnYouae6UiCtvQzQxcyFmRgqKqFWmrBxpRwGublMPFJJR/km5433y
HWg1slpkjhWPXusosA1IdSGYOTlZrxqFrtwJ9QrX6UL+a0u8JHIj0b2yxXfa
N7qQ97RrxmHxSFSWJCxGyexCdhNf0sPXRCCbr8f12Pf9QOVP0OjO4BBkn3G+
M3JvNzJzKv586/FTVJY+bZuo3Y1Euk+Phpo/QVa1yRl5tt3oq/hQ4e6jPohk
rKHCyOhGY+Z3bjl0PkJZ7bdywvb1oGTBaNXGlLuICjm1dad7UIosR5GbkQs6
XL8UtO5GD+rRE9gvtuKI9sj1yUa/xY54HMNeaI1ehzlyDdX3oFlfXUF3gSvI
hXvjS9WxHrSOPJGVWGGM0tOprdEbepH9gzDHyZqT6P/9v++x/wPAYZFK
       "]]},
     Annotation[#, "Charting`Private`Tag$13125#5"]& ]}, {}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{-0.9999999658982575, 
   0.43999999999999995`}, {-0.17135389760223926`, 0.17135393862080836`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.817632448065246*^9, {3.817632480017908*^9, 3.817632515983914*^9}, {
   3.8176325673566847`*^9, 3.817632586442404*^9}, 3.817640197146964*^9, {
   3.817666564989592*^9, 3.817666601422195*^9}},
 CellLabel->"Out[113]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJy9nQec1tWV959lhiYaNTHFJPsm2c1ukn3zZjfVmKYpxsSoie4mMTGJURHp
ICCKICBI77333tvQYYbey9A7DDPDDEzvfea853v+9/7nGRzAGDd8PgPD8/zL
veee8zv1nvvUi11avtLuxS6tXn7x8493erFjy1Yvd/78zzt00o9i/ikS+aek
SCTy+ucj/C76q/vL/lzlL/efx/irgbRo0WJy1Kc/s99j+Fjcn8jf/H1M1FNH
2T/3SFVVtZSWVkhRYZnk55ZITmaRZFwvkPSUPElNypHky9ly5WKmXD6XIRfP
3pALZ65HGsi5U+mRhnLuZLqcOZEW/pw9kea+u1fOn74uF8/ckEt635ULmXL1
cpakXMmWa8m5cv1anmTqO3KyiiRP31lUUGZjqKyoEqmRyLBbT6aX/fNRqamp
kdLiChvutas59qoTR1Lk0J4rsif+gsSvOy3rlx2TlfMPy+IZ+2XuxN0yfdR2
mTB4q4x6d5MM67leBr4V90UZ8OaayMdlQLc1MuTtdTKizwYZO2CzTBqWIDNG
75C5k3bb7SvmHZK4JYmyafUJ2b7xrOzdflGO7EuSk0dT5YLOFCplpBdIQV6p
lJdX2iy63XoWr9s/zezS7IxCSbqUZY/av+OSxK89LasXHZEFU/bK1JHbZLSO
dmC3OAapQ23G7zK4x1oZ3mu9jOyzUcb03yzjBmyR8YO2yqSh8Tb0KcO3ca8u
0bRR2yN3y9QR22Ty8OBzvp84JN6uZ6qj+22yafO8wd3X8vxP2as+AoFkZN+N
dvmscTuNEgxt8+qTsnPLOTmyN8nWnbXNvFEgxUXlUlNd0/ZmXmtn/zSR0pIK
SU/NkzPH04yCG1edkCWzDjBIGdF7w9322gdsMUa8s0EmDNkqM8bskEXT99k6
rl9x3KizO/68HNp9RY4fSobljMVgrXRlK6gJG5foUCrKq6S6uuaz9vZPSHVV
jRG8GE7PK5HcrGLjdDiSBYC7GdkxfSxstDfhgmzbeMbWfK2u/fK5h2TBtH1G
CYg5RgmnPHOvjfpuGzXE4ivYBpZhgnAjI2WU19Pyjdl1VC/emjvsg0hjKS+r
lLSUXDl5JFV2bj4nqxYekZn6cqVNpGnUW1lFPoeU8PyOzcHSnFXxhC5ZShNb
mpoaAxdd2arKapN4yIX4XNK5w4AHd1+W7ZvOyiYd+MoFh2XB1L22OjCZMkew
QnfZW+FLRIS3btCV2bX1vBw7mGxAATOUlVU+bG9rJIWFhTJx4kRp166dvPba
a7Jo0SIlQXUD+7qhzJ07V4YOHerJILt379ZPlTDKMvn5+fbZkSNHpFevXtKm
TRvp0KGDDBw4UI4dO9bw1lT8q3s5oALTHT+cYtwDN6m8NLGpNDUgmDZyuyyZ
ecBmvU/58vSxa4Z9SLMuVeTP9qi7kWopK6003EpVqp0/lS6JB64aQ8IlK5RD
ABrkZWjPdc3cK5AsJG+hvnnd0mOyS0WH0VxVpsvNKQaCI/8VoP6oUaMisVJU
VCQ3btyQHj16yMqVKxs48Tl8+LBs27YtpJOSUCoqKqADBGjAfxoEz7lw4YKS
kOdAwI0bN0rLli3l/Pnz+vSbhPN5RyddLxNkMAhOg48VCxrZJJoYOk7X5UYQ
4RAmAI2QJqXLa/aUu0zAwGSedEoZCnJuWXPSSDNnwm7j1UFvxTV1pIGR4C2+
All4MkyU5EijMhv5PI9uJOnp6Tr4qqoqycrKsgVPSUlp4NZ/165d0rlzZyc4
wWcnT570fKHjDz4bOXKkcV/wv1vyzu8cTXTxDVWAA4YHduqQG9roGxtNEIE1
i4/aREEQ9JkKWuQdRxDFQynML5U0RRkE8uCuy7I17pSsUDrOGr/LZq+PbOLI
DLqPH7hF5k/eI2uXJhprnU68ZupY9d2n3JhZeiRJf5Qowd+ZmZmSmJhoK60j
8KRJTk62Kebm5t6WNEjg4sWL70SaZ53QstDYBegBVNXQt9dFAro0AsvtswRV
wmdUlrKVIZQOI+3WpgY+8Ai3Jx68Kjt00aGu8UdAjkgTR2I0E9i2WjkSDAQL
AWzF98iDbpR79+41YvA/P2uIwejhmvpmHeMxtrxc9u3bJ2lpaZKamirLli2T
1q1bS1JSUiAqsdwyKZj7027uTAAOxRJgDZWh9eJg7qjmOYoBW9eeklOJqaZl
VD6mOVpzK+QAJQ/vvWKXLZt90EBWoSictqo/ngxnwQKouRvp+VJZWa3GTzCB
qLWOvN/FjnGMDSLzGQjTrVs3GT16NJhxGzh9ws0dDERrHFA+BkpVBtzcG9pi
LdXJIAvgo042ssgzmd6HxklJyjZ1iGZFRU4PJt7YTRxAwEZbPHO/oTVgAMyo
6QAA2+i8/Otkw4nv2LHjtgDgOdpPXGEx5Px6Zvu4/RNrNkOSsikWjw7LT3SY
IvpS1XsIM2YfSxAXNdFC1fGYhHB3wvrTtsLg6aDucX6iqM95KuSoTrTulfMZ
pm+wHBu5VVJtICNGjJCCggJj0Lfeegt90MgNjvkdOHDAdILOIfamKSqZIqYT
9LPKyspwikaKaA3wM/c8ZS4z22E6FeEYN1mWZObYnSamrB6YnOAIDUAiytjA
WHTYyNhHw3uvjwQzvceINXvCLjNNbKZKT4wgI1T9lkHET5HpDRo0yL6vZ4rY
COYq6WdcUmeK9a/sj/3K6sgvK83jdLI6wmCysahtWT7noKk3VW37PUO5RYUX
DqsywLAD4RS93TwbGfej/TeuPGHmV7KaXsq2n771WB5xX2EWwmGj+m6M+IHw
NMam/hYLc8KxBFoagw3O2qJqBINUB+HHgHpFdJAuMCM329DngZuX/AfuzXhd
wJBKYfhmRXKDY7SZrvVF92aMd6xJ3B6mCMgplzRyb9YVl3mT9piyP6HEQyz0
7ntvPfvvua9QbdjXQ3qsdWOIkYU6LdReRUVVJDVqDbDbsVWxzbFEcHhQFw2j
0BdeXb/8mA0UVaHPuOvWo3jIfYWeVs8VJRSOAhdpt5q1KpeRbEcGjHLIgAMC
twPciv9+AOhvbD30FZYUakIp1/DmBfi2ey3WKcyiJmP4WhaQSYIqRe616A0s
EcxNqD9blYMulKc+I12mbIsRDscUqMWhL5savOybUS8DtxV7VGyCl7Ha2L0q
xZEb7mV/p70OKbNuFEr8pgPyZte3peWrLaVN647S/bXxnkwsBOZwwoYzZiGA
ITrdCcF4v+7Gy6Shs7qo4XhxeZmlGkORTK77sIxmda1LS0tNiaxevdoMg1Mn
T6kx0EY2rd9l6IePYAaKjcTurtUHwAEGAVCoyBEZE8zlPz0gKfdiD+hKhXMh
ELFvx0Uc1cg1rvs7rVwPe7og0qlTJ0NSf++0adNsTSU0khqa7c69SBP26MSh
8ZFGbkoTlKPwAOEXAAfLY3gwpa+5AWDSwod6g/1gtODtMp0g+PEZqSlXbzc3
Q6quXZbKi8el4sReKT+wWcq2r5TSjfOkZM00KV4yWormDJLC6X2kYOJbUjCq
k+QPbSP5A1+RvHdflNxef5Tc7r+V3G7PSs7rT0tO519JTsfHJbv9zyS77U8k
u82PJbv1I0q37FY/inxO/34k+Iwfrmn/mOS89ku7L/eN39hzcnv8XvJ6/8me
nz9Q7YGhbaVgdGcpGP+mFE7tJUWzBkjRguFSvHScjbF003wp3b5CyvZtkPKj
26Xi9AGpvHxSqtKuSHWOymopQFsTLveHaKD7VUUKhw8fHrWCMbJ582Zj+Nrr
mkaDnP0BsTBG9u+8ZKs8buCWEC/VIDG8xHvF/8ezVU4dFCz0V91ClxSXyzrV
3n6hCRPhw6j2iHSwa/CNa6Q6X/nk6lkpP7ZLynaulpK1M6Ro/lApnNhd8oe0
ltyef7BFyG75gx9K1kvfjtwnWS8/pOv0aLA2+jVrzvoXTulltxavnCylmxdI
2Z61UnF8d0DzGylSU1LIK7/sZv7BXYAYmTVrlkyYMKHOvUhQly5daq8zN6Ch
kxusF3x/0AtHTe1XR9GGhk/EyXDysS8wXPsF5PyPKChAuaHuPRRgTZqroFe0
dAup+KdzTTaZKd22zHixcFIPyRvwiuR0fVqyWnxPzSvo+CnJav6Q8Xnum89I
3jt/lvxBLQM66vVFM/tJ0bwhUrx8gpTETZeSDXOldOsiKduxKuDng1ukPHGH
vQe+rjh3RCovHJPKSyek8sppqUw600DX9ZyKFqurv9X+JJ3RJTkVXKq3VJw7
qo84KBWn9hkXlB/ZZo8v27NOOWKVlMYvNVEqWTvThlO8aFSt6E/opkN+zYZu
Yq8ib9yiYqxsErnfpnqPTTWn489NhPMHvWoiWzRnYMAq+vzyw/FSef6oVF1P
DsXys470H9xner/yV9fICAyPRqYSsYhQ30gSAVk1FTzTEFfA2MMSQMtjYvcO
mOYr7gn4TjCJl0EsPTUSmtvXTQLxUxyqOLVf13axFM0dIvnD2gZ88vJDTR3t
VPKURZ6VvP7NpWDcG0a3klVTlG5LbJ0M1pLPB5BWVmK0Cyyk++0VNeWlKuXZ
Sturxhq8rvzQVmMl4Lx4xURjtcIpPaVgZEfJ6/tXex8wnfXydxy7NpPsV79v
Q2OdC8Z0CcahMMtzTMx1DDWFufZ+7+/+PW4f8gw+RGvEqVOnhhqxvrW710k7
+IkZt0e1JN4t1ojHTyJA3tsnEo59quLdPVi7L7u1w5JWYQ/XDhtZlaSPUEJo
BKh023IjBBioTN/YaHUXdJOcLk+amiqc2ttojCpCXFGrDgr/2wOxah5Ih2ZC
DBBBLjcwVo0GIoRg3PHnd/u3tPieKVfjDFXCxYtGGvCyugwOjtBHe4b+IK5p
49DAWr58uf2OEUZE9/Tp01GByY+5d4CThNMwEFE3OJHqJHihIf6OY40FhZ2P
0LwREP7f3RNw3/G/PeGJLKQm5fzZv0ABFgQrTVgmhdPekdy3n0NYGhlJGpvN
kD+4pdkCgBaABuPXVJY7jG5m1K7OyzKGrTi5T8p2r5WSdbNVdw0zQAOrsTmU
4SGyPrdpAGBdnrLvWI3ipWNt7bnfnl9R7pj0lqb4Lfxjr6CuXr0qAwYMsEgW
K6OGY6S+2M6n3PXQiRg5ru2aRUdxq0KFhoOAbUugD/cX6y4QuMi/uUFiR+L5
ejLj/JSXV/7RPb2mrNiAAsCHiRWE9FNo0ciAIK//y8b3LEPlhUSpKS7o5tET
zCkuMD6H37EqildOksKZ70r+8Pa2YootAWWb2Irl9XvJUXVcQFXERFWBej8P
1kOCf3aDJJlIigYTnrhMdFxL/TuLahCQIkCi9pCzeyJfdLeTzlTDKjSPjh1K
jjznvlPymiSioJhrVvPv6qOj5q8giGSW7V0vVelJOunqgc4EQH8Fc99jQly8
fLxhq5kAignoxSaerQwnnjKdCDcbnqp6x2SqKco3LL0/FLIvuMGR/yVWR/QG
/4bkUkMXCUBLbVh53PwW9YHbBFP+V3cncRy8fqaMLKricoHzWFsz3o0I6PoE
s20o2e1+KgVjXzdVwbB0TSLj3FQRxupMdfnPHJKyXWuMWkwDc4Bp1U61sZkE
eX1fMFKUrJ4q5fs3mTminIZMvmeR/81zYk2ghgl54NyoMxfyOS40vI+KJsBJ
IC5QIpF/cbcTv2dxmTFx/8KCssj/+Bkr5GKk4bjoAsf4GavChVFtxooRuraR
WV5nm32XEuhs5dTixaNNKef1fh6b2E82p/MTAQzNHmCPMRhSs1DZKhJbz2S/
4tlO4ZMcCtEYbA41MsLJoo0Ic+HdIfhkuV4KJusZg/ARCWAmi/yrGnTB/1jz
6mx5VcWHk401jsSaQ+QUxJb6eXrXQA3Est1xUrxsvM0TDaT839iRSh8kuW/9
j7lh2IXK78HMvuZGBMywBKhP8sIDw7B7Q0vjETQiWI6zU1lRFflLMKHPu9uR
3EFuQljoRKefcfSrSrlgJpMyViScTddfG4igIXQK68LZKOJnpZmJa5aWein5
w9vZ5cqjDZ00WgT2pW/jmEpen78YJCGR5YcTDORZva9GWRj4CmS/iKERCfMT
g99IjOBrYEeU6TIEwKrmeHA78XG9xSa2iIlVVUd+7SaGfsJfVVAIJ4YUop8w
3HViC26vaho4KL456oMskS0h0NC2bVsZO3as5OXlBZffXW/CNvHIYUWzS0aD
knWz1Orva/aG0qqxl+wW3zd/38ilvgrWCzKiI3H+k4MsnfPebRctVjai94aQ
XHAsiRNgHG1F2CIApcj/cbdjUnhrjEu55GlPLhVJ/JTcbs86csWYsYRtrN9F
LD1224jTXe+JOK1fv17efPNNM5OKi4vN11Sd/TdkavUC/F+YEWMZgxo09HYK
GIPPh88MWcsTdxqSgjVfjkI+EkhoeAKn6qbWspjyznyVcGI3hHoAg0DSQ+1I
aoDsLzSbODTevNqnPM1UIBie2vNqtgQ0y275Q0MCVWeReVz3N0S2AkOlseWl
tmzZEtIxIyPDbrt27ZrLD9w5n+sNTwAL3xU/FHML1xizDJ+klow/DCRVbeyS
DXPMD6nOTje9+e9RmErNCHkMvDHyHNFJITQomAqp8TEDvop8zA0NN8TnLYKV
vTuscMCU4zuCsZAZid6yaZvZb9hx7777rly6dOk/3o+0NnuPtJaVlcn8+fOl
a9euJpI8de3atTbIux2R8PuJiQFbBl1tHjWeU9UW+YQjQFJSkvTv399GxAJh
WXrCv/322xY6FakNMa5bt87eyTCBgIsXL4Zy/H6f5ZUcguWyPJGPu89qQOMa
ta+qy6n10L+JvVXa5xLYFfYucrw3UTIcIysA5c+dO2e0UufFxbNjvMNfZxwf
MLbnby8pKbHPkHw/3fbt28v+/fuj+P/OCfkwtqA+OTrKVCsmhCpl9eQaewsT
BaQgWzR3sJmQoL7e8sAHIIzCvSNMQ4mLi7MAMLFjqoSidRboCsgc3X/V579d
BKbR7dVGTCgF0YTo3bu3ASP/+0y0QMXeNpoP7adOnl3rda/fa7Nkmbhnw4YN
0rFjRyQpsJlui+vN3oPriFOfPn0Ml5iVsrY9Dza+y+NOYZ7BsheprFceNvxR
+zjySXfNe7IOp06FTrF/N2Plc/+Hcbz++utAqOV2N23aZDwEn335fT83ts5z
VTfFSE5Ojg5sx47ttjjJaWflWuYJuZqxV85f2yQnkpbJ4YtzZM+Z8bL95FDZ
nNhH1h16U1buay9Ld78qC3b8WeZue05mbv2NTNv0hEze+HOZsP5RGbv2+zJm
zUMycvU3I/fIiFVfV3bQ32W0fjY27nsyft0PZeL6n8iUjY/LtM2/svvHLfmD
SlMLGbeguSzZ2UpGTGknbdq1lLh9vSXh+CBJSBwpYyb3lIRDU+TYlSVy/NJq
6Tewp/Qf1FuS0g7LjZwLkluQJqXlastLzT2Ome4UKfZSqoSwz1JTU5303WVa
fPv27Uat2xSO1NaN3OuZXj1g/B1zXxeNNI9AjeVGTkQJghPtJE6OAsfbq87L
+ojdfa8x1i0Y14bCQi9ZssQYkT/Xr1+XN954w8Q1xgoAmpqgRP8htUb9GWkt
4iq1JSyx5seSkKXWpjC/9EE3idvZMXoX4sYo+KPiEGusFAC5ChGBIi+85qEF
BkEjMwii/7joXax7aUVFlXlmCDAe24wZM2T8+PF+5ZA7ppqQkBA4Ln+znRFj
MowqjOaIcePGmQoV8QVSjcysIu3kZRnftjr7+v3uFhhC323vj7G/G4YrcqeE
XDTSQazooZCG4H7+9zn3GSt/87sURG/xrnvDd1VUFktWwUW5fH2nyvJy2Xt2
ogxSU6hV6xbSuu0r+vOytGxtBrm0avOS9J3yqLpPyKuqoyXflkHzHuZH/8ff
sTJk8Xf4Vl7v86x07vnbBu7S4Su/Lq3b/1V6jn6cugj9LFaGL/+GdOrxO+n4
5nMybPm3gkvvNxQAIaZvflLmbfuDLNn9iqw50Fk2He0tO04Ol/3np6p0L5az
qRskKWOP3Mg9LfnF1+TQ4X23DeTfWtk2jVa2tyqEqjda9gkvzSVFlugw729m
P4tEqA3upZncBKF3dDFOMh6PensBGzX2HBwyfDQLe7MWzmVES5cudaokcBJx
AAk1UzRF2YOX2MnDEqwkBe+4tLji4+5Vt7OgPYG8jseMaWB/xxhhgX+1QLzM
+gqK99o+jQw+byPCBA4tPdxng2US+/bti7x5kwZRmzNnTh3+/oAWlvccZs6c
aaKEiAAE2C8Apt7usgSNLCgHFHtpJvZdcWKvt9TVAQtHEONG8M47VtTpE0F+
AtE5IE9VdPKrr76KMIe2G4IM/kRPFPO47muaetyRBQvmycDBfeV0SpzsPjPO
FO2giX+Vdp1epNZOxefz0mfSj6X968+bxCGIfSb91ASY31GsKNQ5Cb+Vxbte
llX7O8qGI29L/PEBsuv0aNl/bqocuTRPjqtS5x3nr21WYNghyZn7JTXriKTn
nJAbeWcMMLILr0huUbKKXqoUlKRLYcl1KSrNiJGisiwlaWHpDfuoQH+4hEuX
rZynRG+vTNWhY3v+ahd5QCZMGSaX0rdLj55dZeaCEXLy6kpJvLxQDl2cJe8O
6ipDx7wp204MCQ2LVfs7qGHRwgyLWfH/rfP5pbzR5znp8MYfZejSb91rZLhX
Bi/8rjHByEVP2XS5ZdycDtK+QyvDOOyDC2lb5Vr2URtbeWWRCYcunUOPxmbx
OeGogwy3qhT8TMhI1ZZrKdu/0Uy7/BEdiEN7NCCgYc75jL5SumWRAUdNSaFn
CicMdRA/WiJ8oB8xRVFhdCr33+0+Rp7IOxGlnTQ03hvglOwRoGQXDJWmxOzv
uyUi1nU//GfIIKNDaPzI6rHEvSMWnXXzJCVgR0Ed0n90X5LRDV8jPj4+fM30
6dNl8uSgKupL7rM72WgNHWlwaufNm2eSxndYt+pAeBEnCJ0/pFUo4hjiaon5
XPCd8v6BLDcxW4enY2/jsnoTDFdUbZx/dZNFBi6mxxu/rd7/mtmxXfuaXtQH
w6cfkd7jHpPW7V408Ry15ttmIyOa6w+/pdpuhAwa3l3mKCghggm74vQVbaWq
uuIrbnSOdnVGHE2/YOL3m0pB5ffvr8qp8LpJL9KMAsWMR+IPXpipKDBGthx7
V+IOdjXzHQU8ddMvZNzaH0QCBd1IOnV/Tl576zlV/9+Rgar+23Z8Qd4a/GSg
1ptJzxFPSdsOL8vklX+WxdvaSe/+HeTtdzqZzoYal1ICfy4j88YdilG/4Fat
uiDHIuKEYIjvEyXOav7dRi5KTJiVIBix1G5dOsnW9XH18pLPBuPMwbYK2k4E
Yq3Olqg4ha5jB2wO0zzd4yyNRZ05MWQCxL7m+L3uQEy0OxDxyg6HDGSBafjj
JOazdxYWArw+R0m5AH8cOkTq05VeWO5U0uCVIk4Kxji5QZQi7ixChpnu84ak
9i0J6iSmbNcaFza9c/mDD7WBG3grhC5ALLCFyI8q4TBiTXQmI++sHL00X629
LviJTqU1lTcH/Fo6vfVHw/F1h7qZrzl3yUh5s9vrJmN6r3tXQ8NoqA12u+hQ
WGVzJ2T1mA43spJqKEUCJ/EBiygVl2VJcvpJGTF6oLRp21p1SRsZNVHV57FB
Ni50zOz435rfOmLVN0ym+bfboKdUxl+Slq2aS+e3fydDF3+nQZQJXbdsuYm0
bvOqPnKAGbqnklebq51dcMmxR82XPJZVlgcBzF1rLHZPVixMrDWWXq/8WZY0
f8qsGFIr1NeMGfiuzJkxzYXAzE0I6yc+6gho1fyZRVYryxad6LAwtQ2kVMgM
Es8kiuOJ9v5iWEGUCJyNEoVIHVloEi0L9gePz6cVjx1K9uKB2czy+T/RZrOv
ArtThYg36hcsWOBN8PA6gpTezYrxbFqUb1VGPhiquju03O5UUeLfRZGE9yQ/
5wSltDxPzqSsNTZS9gk4v7FpgzUHOsm+c5PNSNqSEHfbV3jbgFQLwcJDhw4h
AUG2EoO9RmqqyqS6PF+qSrKkqihNKguSpTLvslTknJNpE0fKmBEDG0h55nF9
clnGMen6eifZsmZeJPismZRnndSf03Z5Re4Fu5VH8KiqkkyZMH6MTJ86WfGq
0tUSNDPZRnYy888bMzPRQxdnm35DzyE3M7c+Y0rmLpv5XbZomKvEffAAMVOR
e3xUlBYKrLKq9IuOFyyhmH3ditZIExPNn9T6eRnxyu9dBqKJZOqavd7iRYlr
/oQVxeGtl6yfbelltb/88uAp+2X/eIhONVaST8EkiULK+7ynxW5Z1AZ729S8
aeRG5IzJkDujjEm3TA0NGImwnjlz5mZZ8OHMm8pmfGiFTTCIA3tGqqqqvUj4
uBDIRwwIYasT0LxTnU5j2bp1q7GYVwqwEMqE7U9eCqSywkqSTApa/QgYcjnV
2xf0+F0sly9fNm8SwzE7O9tUqU70QTc5bPFTyatk2Z5WMmr1twJTqSG/mtWP
p4JXUlKeG3k/ZUQeobADmDgqIUC7+y1ThSRU5JyV0mt7pPhSnBSenit5R8ZI
zt53JWvHG5K5pbXcWPcXSV/1rKQtfVyuLfyRpMz5liTP+A+5OvXf9O1Xp35R
/9498pvSquUrsnHI9+TCpC/JvD4/k/atX5IzE79CAY5e8zk5NOY/ZXqvX8je
Ud+Q0xO+IpuHqv2kamFl/x9xhVyd9u+SPPP/6fO/KanzH5Zri36s7/yFvft6
3HNyY8NLNp6s7V0le7eaQgcG6VjHSsGJaVJ4dpGNvyRlm5RdP2xzqixMNWlX
sXeGy11SUVUiOYVJalIeMFE8eGGGhU9Ruwt3/MXsPSO7JWEDFTxx/Y/NFly9
v5MknBhsIV+8Q2xIdfhMBX/+Jibcv2yu5CwdL8u6t5EOrzaXqy897Ip8Gsu2
Tn+QtX06yZWlUyTryC5Zu3qVtGrVCoaMfNpLR1WNJXXZb4ERpsZYKHS4MphH
VOGpUeZrowhIAtvYXPA3qYTBgwc3cYzFxz179jSWrzXBvKjdVDnl8ZVUBqK2
afWJ0MogzNu9e3ebZr9+/SxFcoc0nOd9ZJ7IMJoKDiUjrt5NrBtE0cIRoa1V
eemErzOpr3yriftONa4MGTLEnoawq83rMglqpCpMbj3Wn3C7czlidX1/afbF
lRu7CP81vc0rvKHAnBAvRCeI+zQ10YG9SlN3SeGZ+caKmfEd5fqa30nqgh/K
1elfUvyE7R/gdxMXWHvd0J/IG+1fkFbKEr06/0n2jnvExCll9jf05+uSPOtr
dl3yjK/KmUlfk3Hdn5bX2/1FWrdsLm+2/5Ms6vuTB+2x99rlSGPasl+pdPxB
Mja9apKRs6+/5B8dZ5JcfGmNDnEn6ksVVYpUV1jw32HRXaacwGXCiKjYxCuL
DGFQTIt2vmjSMHL1N5sa8ZpYzmKW6qoVe9ta2AQ9RhyBsEhZRcGnndp4D4Oo
TFAvSfECFVuE+ynOZpmPvvwoeko6tXhJ2rZoLn1aKFFe/6M5p6WbF1qRTE1Z
iXOvYy3sx5YSwnsThzgPv6lV5VH7wPaYrBsFxmSsGUCLmUTUwq8neoFJRymc
T7mns5vdF/mkX8v7hfuYnRqUk5kPsHP1E+5BuUVXZa36imrmOv8w1sxfArXX
c09C6X9xjF9TUSxl6fsNqrK2dZH0FU+zxk2jWCR1/vckbfmTcmP9C8pKHRTh
eknuQTVtj01WFlsgRRdXScnVrYbU5RmJAcLlJ6nxkS7VpTm2tjXVFbw1cOw+
bVyKycPbq8vyFOwzjGsDk+esPuaYjuqglKaoQknaJMUX1xiQFpycJfmJEyXv
0HBTBNk7uxt3Z2x6RW6s/ZOkr3xGri15TFLnfVdn8X/vt1ncI8nTv2yzSGcW
qjMyEzrq7X0DbtQZQPSy6welQl/PcOBEH4TGxSCSRqQNXD5wfprKbj9jtdnx
/2PmkWfD8eseMTwGs3ecGmnO9ZUbu03eK6vLw0gUZlFWmpXskrdnT4v6CA2j
s0zqTFNUR+ia+m3V7Z92a06pGG4AJbXDe62PTgaxc5MoU2mJC0WE/ENNlY/t
qrnpt80yEqt0VP7JH9L6l45/qnS19pydQOgj4n2ihTv/qiIVDz3C0rOaqnKT
4tz9A5Vxfo2e1PFD86ZK7++r9P/RJD/vyGgpPLfEQAnz1NP4h/ace4074BRM
VkxZ0/lXNuo9iyX/+BTltqGSvauHZG5tH+j8lb8xHaxIo1ih7/M1GihrW2xF
OnghY2Nzyd7RzdgV3im+vNa4vSL3EmzZwEbRRCEi36DiQtoWi3CCwyv2tjHz
d/Sah5q45cVrxPYnBEM4BpS5mJ5gbqAu74NRy1uVkWq1SGyZIrQVtbwWaOz3
knmHlnbQS/WW6BJf9i1SY8aGetIHfocvmxapbyVST06/prrGlUxGfMOBbS46
odwR8ShBvYjXXlU3Un7hxllSnqOWxQvOIf66zN/+J7j8C543lE9K0/YqKnSW
lFn/GWvr2ohfTdRy9w+QovPLFMFPqNNbEpgZD+CnSlFphaRlFcn55Bw5cva6
7ExMkU37r8iqHRdk0eYzMnPtCZm0IlHGLjkiIxYclMFz9ku/mXul99Td8vak
nfLWhB3yxrjt0nXstgbSZXSCWv8j49V57DQqnv/aj34nb+o13cZvlx56T68p
u6TPtD3Sb8ZeGTh7nwyZd0BGLTos45celSkrj8n0NSdk7oZTsmjLWVmx7bzE
7b4kmw8kyfajKbL35DU5cu6GnLqcJRdTciU1o1Cy8kqkqKhUygozjGVL0/Yp
96xzZuhoydnTO2BHJYXFm+Y9dI9R6KOmJq8t/plxvyENeu/4VAMxmK8y/4pa
f4XE5S3QTUx/39lJsvFITwsyotuU1RpHcR3GAf5YwHWzLGJHuL+yquyT0Vx3
I9nC25grVB5nt/xhQ1/fqmqNghOqcKlfp7DBgwPBaVqp0MciDLPF2g4pGozQ
rqmosOxf6jLaErfHRe1Ax2gxFju3jOvozhHPZWWK/uCk5zJC/DrYL7hbMIuB
ZUjXwP5uCHKrOd3GaA3tqY8LoltNFJpqbH1YsxXbz8vE5YnGO51HJchL767/
jvzlnbWRT/CrtBq8CcaRHhN3GlsMV1absOyosR9LtmbnRdmy/7LsP3pKThzd
JxcTN0jq0cWScWiSZO8baMh1Y8OLimxPmdV/ddqXmnkTZ9Z/qXnzS/safMk7
PMr0E/qqVP3wnNyzkqTAn3h5kaVJqLvAZwZQm7goAsvMmm5O7GtIgpmDA1Ct
PvrH/aJSkX71nBUss/Uqt8fv0Pd+UXO7/bdtgmQ3FUEnKh99AZivgGNzM8by
4O5ra+30MTts57l1Caiu+T91V3bKiG22snQJ8ytLbbMZGXvWhbCy4XCPcFXT
co75FVWtYGBdu6Ixkrm5tZoI8RZ/+Jy7/Xp2sSECq/dyv/VNbOU+Jn/ts07a
DNlswv2OAsKw+QcMKKavOS7zNp6WpfHnbOU27LssWw9dlR0qwHuOX5P9p9Lk
4Ol0E+RjFzLk+IUMff3JS5mRf5YTlzL5zX74Xb+TxPM37NpDZ67LgVPpxlC7
jqXKtiPJsuVgkmzcd0XWKkgwRN65YNMZmb3upExbfdyYbvTiwzJUQaa/Dr/n
5F0GRHAbXKfcF2nGfEwvNbKZ3cskpf3wrQZvTHrUwgMya8V2Wa1mX8L6+XJw
43g5tVGt0vVdJHnNi5K67GmFlYfNm73LWzKKLWlLf25aEC8YQ6jgzELJuLRS
Ll5eJkcvzY1iuGeM4TyQkMKHCflu+8lhcvzKUknJOmSeoq7ax7xSJ2t++oBV
9VLindPx8UiIIlTJD3zFUuZUK1fnZzuGi7UuXnR32xRtAMfaZmNqzGjUoCjy
mbq8NtLV9yZfzg57eRDN8+qqOifDf4wR5uO3in/eB8s7PDLw0fUHNqsqSnM+
b4yUV1bZWkH/GPu7qbyg/PWGKo9Riw6ZMkg4nGz8kKLGeUGxNd9y+9o/amBT
rMosm75AmYVy+Vqe8RB8Bt/BIyu3X1DeOB2ExpRPh8w9YIoMBQUfv9h33X32
6ruk1cD10mvsChk3dbYsnDNeNi3oL3sXd5Xji5vL+YXPyJU5P1CQ+XKw1s3M
/QJ7Mja3lOy978i1I8Pl/PHRcvjEcIk/3FNWqBkyfctTVqzV2IEKBVpEY5BN
LFUsGgJ8aqIEe0q8+ZmdbvaJaQo1RtQoaRgmbp62AieSoGwoq7p22eFRrBUJ
UpmMR6OeTYgnY3dYgRJ+f+aNgk/WXWNf8n49LT9cYxKxfo11PI+7S6keYX3H
xD3stq/EGBlY3KyETm6DR2MTSqWp/SB4a3ZdlIupuaoPqyP1dViM8Yam/lNW
UWULyoKfUQA8dCbdhB5hX6wMAdAg3Ag2otp+2JZagdZVfOGdOGn97gLpNmCC
bF8/WwpOzVYve7CO7zX1sp8z11cN4WAVLRpg9nR2wWUzFsnnbTr6jnmx6pM1
ceY1br8frZdEAnq233DzAtvql9PlKVcEHWObjfz1fnUo/mZ7wuY1J0kyN3Rb
ltmR6i8NqkkjAUHCHIf9ZqmMfwq+9x5pNA3vjvqM5VQjtc5n9V33t37WzENA
YV64MaM6N+N/6zX5JWn2OSynvs37vd3Hm3IVfEPoUUOvqvh6pL4C4FsPIfhs
vBol8Fasg6juE3cYlKB2sE9PXMyUa5mFZlfXBMsW+cjfNP1PvKfZAM8pVcTO
Vea4nl0kSen5clalAZWIOkUFomaBSD9G1B02NqoZqQi1dvBKJ5BKmEBQXlF9
99bIFTJq8jyZO2uCrJs/SHYt6iaJi1va9Zfn/USuzvhqCHez1YxY9oR9RRA1
XeHu4vExknhylGw/0ktW7Wkjs+KfNZXWyKk0rlWsMKebJA05fTCEsJHCXuN6
COLjc6pZbAe6eWgDW7hqaQeBnX9lAmdxnvNH2RBW7w6ugLiNws9oaEn9BLsL
hnh4bGStZwiLIpuWoAvWsL4lDN7yvuTvzLFrH7r8RX+G7JXv3/S/9I7YUPD4
uZ57qr7tgLcWvhgzjbN3vhVlZsaqQ9bWTHC+uwWBm920ZPip+BHvztgDygf8
/ABa2y4xW837DssD3wFtvzwhcCGxAOLVCsVy3HfSWaDq8nIvYou1oG5lrJy5
khX5jHmYZoBezDAj1RugGK/cwmMwSPBMN+y9LKtVAvFWF289K/M2nJaZcSdk
snqz6Kdh8w/KgFn7zNjg3s7qFbcbukWa99ugOgoBfK9oelOU6bUdutm87L7T
95iRPWP5Trt267qFcmDjZDm5aaBc3PCmXF3TQlKWPyMp84PocRDgud+u9ehn
cRf12q4t/ql6xM9bzICgTcGpuZJxcYVcvrxcjl2ab0ExMqeB3H430vimyAq5
pfjjA81vorbGJdfvqWchw9xvWYkFOMgZklFX2Q037RqUtHAbl9XSweKpzrlR
n3Td5ZgLHUqLN76bMnybt3BoDUpfWTJ8hQVl9VWd3ppZQ0vIi+7u+PORh2/z
CFw9C8kNry2TqK+kjbgVkOjFiLJ/Jden6rnFV6zihYGy0f42MX7SV4RCicAS
FPP+tlpUclUxC52wLOGcOdDogI4jtuKqNaiHyb5ufzeBCaXFgI3SQX0e780R
6hmz5LBMXXUsiNk1k12Hz0ri0QNy/uhWST66XK4fniZZ+4dZbJfUQfqq/7Z4
XvL0r0S8/20hliWPqRv0Z3PT0cRkO5hdaeZJ9b9PS1LGbksbsP+B8kQINXrN
d0L/e9KGn1r4i7CLN5WzCi4QU6m3qvgeT0fqCK9dsu2HRbP62y7IcD9pQ6vs
MPMZ3cHGzcqKiI/R0D2LVoQkq6nagBda+O5Usdbeli4I1PtXV93slvu6o+Vz
oiJ7Zw/XF9kjrY8XEB3ZS8s5Xieyl7rLLNbkWV+rE9lb/4IZs8SqyrPPEKQP
I3vqNuAgEX056+xmrJP1ilPAIc45UTZgksgbjlB/xSe4BQcZKMVWxzHyQb0G
8FEDC+99KQzvvT5mmwETN7ztQnuAFA8bPHe/hQwBQDw7vHG88oWbz9ggLDKg
A/KYDB6Dw4QiMXEIOuQVFEtJQZaUK6sT9S9O2iiFZxdKfuL4ILus4EVgx8J6
879PiiwILRPbm/FVizxj6GdubRdkEY5NkqILK6T02u4gul2eZytAFhZjBOYi
yEPYmPJ59dc8D07e8DNZvOsldQh6WWERRX8EossriyLRgT0rosBYoW51cEv2
ioUueZtHbecrm7W9S+4De3QNpPc7DbnHD9oaglnvAMzoTViQX1onsBdrDZNu
lSro+9cgvjeyY3SqYPfpsaSmw1QBlSGX0rdZ+rk2VVCmqnm75OzrZ04tQY0g
/Y79928m4QRMLZp2ZKyFlkkDWKS+vACeDbIF9wUbu8vzLWEEjxJTJUnELQUn
pgfh2b19cBgtAQCAoJjI3uurgtTWg+/RXyT5yRv5VJfpsP0DLAFhy2vJi4tB
4l6Cuj9qInCvcewo0SYJD9ZQb4YP29StM+XdS3Y1N8fvwPnphjUZ+edI9Eai
0wZmlOoi0jrG6pM7/DzMCjX/rm36pMkJ0GO7FWqqfdqASkRSArTcYxs6e+7r
NAYd5xqDXrGQX920QcApYX4xtTa/eOFYbY3hjlU+v0iZD5s/mJzPL7KFDPXO
tKLyiyT/WEeoyIKQFFYkDxbhY4E8LXzEKikyNrxsRCe0nnd4RN3qCQX2svQD
li9mEVj7quIMyyTVVJZYJUVQPfKgSy6WB8nF0hy97oZllrivPOuUVWEgqyXJ
CZYQMr45NcfkGN4hm4UDQjo0Y3OrqCqTn1sWUXEycr/z7q9O+1LANKpSMXzA
BPKjRKUKTs0OdFyMFbMQF2WAQQVDU0txFzmYoGiD4g1Cd9hH87b/kd02YWJx
3NofyNyE31u9MtdQj0m8ONBXpZ91TEADv7DWit2lHR+P+HpcdlGzWZ9gAmnj
mvKyiE8pUmeLZUOcTsX+5hoqGs4VF5W7lKJvzsJOdNglft3pyC/dg+iOYvyi
zFp56cSv3KWkKkBARMLXO2DuMRXKxsKSsaZGpcr8q4YVFllRCSQXYFaAEl8J
Tlra7BYry6F+QZmIiLzaMUrdlDnf0pekznvIFkZ/3GeNDADCWga9h0yhAsJn
o4wK4vxUE1EuAXbAsjl7+liAnwSi5bpTtlmCmhy3ZTJrfB/coJbPnCedMZlf
LDL2hFAoByyC/2qENHUFPOyrnGl1C22sIOTQhZnGC/ivFB/WWmINrXsRLUVo
A0YhXc5rv4w0iorZ+XJS+l3UFOWHhQnUabK3gM5MU0dsi+5XwRJa1WhaUDX6
1egVri1nIxGk9sgv3EAIS7FR2VdbVqVciDzpbiHbc/LqCktsqJ4Li8TWfNsS
yGgKyKKGqysGvc9WnBpF6hdJJkNiSA3Jc/a8E4jhphZWSkKSmdRaIIb/BZL8
s63eJ/jVLJiUud8xREFaKWa4vub3BudEUVlNUhMwFZJOVi6oYFhdizA6DNAC
5KiprgxM8mZYhZJXlGJlAOdSN5q0Uk7B5heSdjO2PI1HY/LuV5f9cuyyRSNQ
lULoD4MgLTvRkn/R+pG+KzQyID9H2XxO5ydqV5di4bFdrTOY5e4K8yJe5LHK
aAxj27t1OQf3qE3z0K2OdsVE5SvKq/6r7urSGB63hhU+cSTll/6BhblBmsmq
CB/Bt3LdEWItY3w6eY3Vloxf96OGbusBQWi2JqDZ2LHI7iJd1m840rHAQaFH
LiGyoNAj/4rZSlbsQfGq4np5RiI+zY2jam3Z/zNPuKLWs2YGIG8B7t+orStR
nNcXfNK9CkxFbsjIB4V064KVUsVESBz/kmTk+HWPBDWtAUA3DotZkVVkNunG
HovYoqC/GK2gFWFtmdZMtwZJ4ebghtb7iI/Im1hjncLcsC0H5gItO9lov6JO
V48gQUJJN/2M8nNLvhWskodmWvOzQjRQVh3vVwkw8KvEXnU2APwmZIlqAio2
cSoD1dEJA2Yokvnbn5f1h7tbzpncc8CObA10venusaIXFhtFT4qafDM1vqww
/hS3L9/b2rgbxY/118ztNMGXn6R2LTE5Uk3krKmUBhaQ/cz8C96vj/iqeSCF
1j7WPYV912rQZrd/rJa0T7q9JNODPdcFOWEakU5+7BGJq7tHBHijPRh9hnyp
xEN1SUtcfKjzwnRhnnBjIf1E1X64G0md8Zqy4mf9UHUtSUVhwu0+M9amOGXT
L5q42VOJNmPLrw0A4bidp0aZZXg2db2kZB40xQBlkf2gsfa9akOXq8OQbWVb
ID+cS/Uam+5YRJgS7UDx2/I9rW0BUSQqguH2H7YsdOn1W9tUyI5gdmeMWPmN
4OuPyhvvPiMdu/0h9AhHrfmO9Br2nLRp94ptKu7VXxfq0EgLvDCzrTtWyNs9
u7+fY1z8fiBi9rQUpfUVrVnML37l4XANOz8R7geyji35OS5PF2uH3nCiDz32
J9azO27taWv5RpPx7wdr6JUbR+h4FVVSXO7XkPZA9HsKN42qbFac2v97+7qx
me3qDyuBV9neqriDrxu7jl/3Q8UeKPZJy6QBbHzOYmKW4aZRk8u649UdvbzA
FglQR0RgbxYvLeeYuXG4Bjl1dmReZ2uMLhrbMWNs0UvKc/nXffZZUwy2PbMk
TfL0Hu6HadiGg6mIOBIaI2HEO3k3mExdxeGLc21clOSjnKhTA9UYO9BHuIPt
OtOUeVBOan7c7xikU4/npMvbf5LpG34ns9Y1l9e6tJSRk7vao5jmms3TZWXc
LANFEHb9+nV/Z7OkOvsy05Os27R1HMNw7fxE2HNB0c2q4ab0soa4bDlT+fex
DAojKbuk19i0kdt9Rzxau5OIPhdstH6kLtdYswLXBHDVwiNPupFQBurLP03y
1VxWj+x5r8dU8ssqCmxVqXSH4nACW+BX7mtnnDJ542OWoHjEyHqf4S3FO3MS
fmdmAgY8AScsX/CXPbVUFaI2WV1WPO16sCnsH9B2KXqnPB0daS9LTItOh1E7
5SEKkEwMlcaZ1iCvssKn4CEnR8dRe0Z5Gqegee1Ge3LOUmIfRmFB2U+Dhfis
Wwi65/u2L6cTrz3ppsbWwsLJb9c2OGrxfWONmpLCyMvhwGvM2sQosz2TqrEx
zKhqQE1haiKrUBtfFRMbF5xYGO45so3qooZegdSAW1cu2Kn8mZu6nvzINBoV
O9zGBmcWmxQu0IAKWHvoDX1VL8NpRI/ySew9ABXxpHSSXTYMFeuEXdjAEHrA
h7fvtEPww25MdJ9f/cryQPvu22C9P4PeZc/4flu+6wkZMUxQnBACFfTb8j0m
afVGNRHdtOmMF11thBtJHRnuRF5OcRBQcqZRrO2IZvnpypWVUfiUYwG2/9iO
0rDH1Y8tKoJn86a7FUOH+FOl6s+KqpKGZq3F4k3aR3ylhozflPsPbSjT1E2j
puIm0qqBSNVWbVu4RjY1imroa0i7/aDxU1nYC7M6sPA5rIeDfIbedJAP7SGp
yeAkB5y4J6Lp29DOkrA2FEpjGrTQCz7sCKfQy0ZFdTDCjnC47oyk6npyZOnf
zZgfvIlHbL0UHF8PBRsHOuLt5wIOVfcYIK/OTHtPRziOu6MQn9Lp6GaE7H2n
ISMdijnzMqojnPe+qbrGyICMxNfqNCNU65WFy33jN5GwGeGwtjYM2kd6/H1/
2x6b3W6TWh0y1nY8CDLhQfO8c7WkQo4DUoWUavG9QJvSwYiGrIfjrRaHYX45
ilIcRUiR+aoFR+wUkjotCDGrt563XUD0cnYtCD/nbgcGBruSHxLhXFLb5bLK
knB5/ZuHlEK50EaU7WoLHSLddjfcLTcUeZq+92ClRlKptLEermp6EgKj6WH+
0DbGc377U52elupqRLcA9b3wKM/mrEf2HHKQy8i+tRtxfU9LSiutp6Xaq66n
pe9tiqni46xwIS1AfW9Tlo7esdltHo34FqAcgQHsIQHKlnMdAW67m6lp2Lvt
po0moQebc3RXkIDX97C3xYGse2tUT1Ryp72fN10cNvmkRXN1ddgTlbI/O19u
c+35ciFBusVZN0oOQCIIEdUT1cc9aFnMZdYTVdGNDhi13WtLrdcy+yOUh6P7
vWLcU6SoNF7mgUL9NqqlzIdUkgEGBMw5a6Sx22xqrZe7Pm3SCchR48ZkrQtn
dXXYwFb9ESxHQmacuhHdwJZqNjQc9fmE1ZiTa2Dr7SH6oNOjwNoPj93BMRRh
+2EcdzZ1mIfp59TQeloS1KN9eRDZr6ltP6xCYw2Xdb7WW3rJGDtLgW4l2W1/
ErYf7vi4qRGKsOlsbtyrj6JLea3VXafpcHZt0+HJUU2H0SqUd+/1x8Mpk7qm
w17fU8riO4Zw0s716J7ShbmmVQhIZrd+JOwpTQX62K42RdvSUlVZ21OalE5e
pgWmQS/rgT+znzVptvafzaN7Sj8aNuol0G2ts/V5GIe37SmtepRA5yHXWXVM
VE9pNs9gogB5FE2jAFxPad84nI3GnOXgW34eP5xS2zhc3U1qENDwliPT4YaN
wymZHfSqQRzQ57Z7hI3Dy0oMY1hcO4pl1WSLOFjnf/rHtvjeTY3Dnwwah+s1
YeNw2v7n59Q2Dq/XQw+aw3LYGf1jUXfDe/njUGKt6Bv3m1h/fm6JayHuG8dz
kMqcqMbx7BSIbhxPybACq21m4lCEFt+PhNtdaGs54BU7bYJTIxisXv+Wnz+N
01UB2fx3xxnukuLCC7S+0+1+GvFd4zmcAqaHi+zYA5UjXov3qDbsgyGTh73i
SyoMd0ido7RrrdKgiQiHItF6B1TmnCrXKz76VAJqKf2saair8vBnP2taPVCe
qSACQqqqjfj2yNYLXJnXmnluXRQcGcDKK9PXOZKAMzoU2wnaA1w0U8HLssMf
Bre0PtvZrR6pPZJAbXGeTc0uO+Wt/7Y+n6yPncWhQvCFeljgU25KCAEt8LHF
OXvNav27rYlujctxX6h3ToZFg7kzBPwZGewk84YQPwQo9bLwjAxdz6Dn2qKg
5xqeZKtHGkcfqaD4zZ4oY2G11mB75m/LWFbsoPKe4EyBkkLTOAADiVEyn3Re
ZPlpOoNqCA7IeNwswmb+lIzmjk6cW8L5KQuGW/SAIANJTRLqur6+NeuHcPAx
f+pplFufaetbuha644nwm0nFDOtVezwRThNRYRoYc9IM8Ut3aEZ40ozeviTq
pBkiGqqRmjt9aJianR4cSaCYi1TBUoogjp3uNtcDCzE8nkeFFAlEzWAaUl+C
DkFrKbsHNUv3mcFLuA+OZt9JxdlD1nURDqbuBVi286Sm9ApOl+n/cnBKEKvU
/Lt1DpfhfI2+L9iBQkQe7HCghGVmaoDqaAXMDauJ/tCOkLt909VabemPlsHI
ATlxEFiVcQNqj+bCnMPBQpw4ktwdzeWOlok+S4qNVET+/VlSGIDqENsV/iwp
bHjwECcbfEPAzZJRRrZNOKpaAvp9IqDfa7+wFUTtoDOw+e1cNA5aUiGxs6TW
zrRlwUehsTZCYAc+6TsIp7HKVuYanCMVnCEVI1WpFw2b9F8dMn9/1v4fninF
kVPcwnFxnCfFoxTn4ASMD3aiAeksJ3BAhR7qDfsFRgMewDmGDFYal6gso/Bz
Ovwc1RceJfWyOzVLmchOHlMNYNzCETtKJTsS6dzR4FSW4Jid8CipqO6ikfri
aX/PAX13OkrKoFZ5ggIceGTgW3HRJgfn6sJSsBbBbXeUVHicm5qhHF0ZHuem
Zgf1YWWllbXHuflzbZLOmBKwE4TULoDAKAgkG9eYE1dULf/ICHqvaWXYCYLa
0XrD25tPiFsEyxDEJ9IH5hIYtOPzCnJMFH0Xn3/0GV2+P8vtYHO4O+ARF4xr
ML3dqW7+NETcVqxyT1WsXWIr6LogsvTpQPWUFZuaQAzsfCYOy1NrC3aGlQ3k
VFUjaeQ7wE/ADtUGK2OpQHmk005D5GRDOw3xMXfq4aMNcE5iWRf7LfLPtUci
tvup9SfN6fSEQaQdh8jRiuqeYvySfwfMKRIiIoIcYfjb8XEqX+hVbAkCuraO
h7aajg029FyyiQWCUh2erPqPOZvPxYtDNFURiD7o0NBUXUZsUY6fJmSjDOYO
OvSnNuLggqaq8kI0RWMeUK8cQcr6B7Co725CHp17icGRhLxJztHKpHwJGBAa
YXjufM7o41M5jCD6nEFas3OQGeG6jJuQ7MM5WK2xothkGTZ0lJ3PEXVIr62S
twipFWT7aD0npvrTaiEAruKoqNNqOeaFlExuTnF4Wu3fdhRZMPDgmO7r6TnS
scNrMmr4VFkwbZf06zFLXn21lfTsPN3G6cuscGaJXLHc7oja6PN7WSGOdfXn
92I84cJzeZob5G0jKw/c3I3G3sg8iQj4ZmjvdJkr7Vq/Ia+2aCmtW9lxusac
uFzgEh0a2EjXIjz310sgZ11z4OSscTvDQdJmkOIOzjAKzzZWigNjHI+E885+
XvVt/JGwE4fEm5WCn0eGBRC8zYnx0ec7w8CUkPiSZEIzbPYjO6vuY/QRz4X5
pZaVZenp+E21SfQRzzhY7HxBg2HFIvFlZZWmHus94rq4woqjp47YFvFHXOOP
cD/hBiWOP+IaxYh7woICFDcdcU1ggl7ptGKhxhX7WWXsNkdc/8jxIPOCDKQO
1VLzw8DfobcG062qPeObli8caGdnfCsTICe60P6M7zH9N1tfPjwkVjU74MwH
bj2M8MxzdTzxWzmfTScTUkOFCryk37uS4ICnRnG5IQsFJESs4DOF1DrHnU+6
6bjz4qCdSL2ny6ukoDp5+XB/4LrrPaH+MgUVHD6DQ5Lg2AE4xpCFPiyhXxMA
LRhGY1sUilAJHQDTbLIoDE6XD3v11UOScMOo29vIykzwpcyBvr85ARIXhRzU
eFDyiipB9iDf1JHbiOD4gSnj2MTopI8dwLHcRPtBBR9w/hD8w/rOWbpFRYWb
+hPu6T5zYTv5lZ+iT/Bg//Qyfz5YSnAg6aKo+dPZF95g/kA4mgj1qqzUxM1f
fRl7LEcLAyhs4vULY9VvH5bX9f7KAtzkn3aTr7w5txyGYhtZ8Q7Ai01MR3XK
WHXU09zAQFMWktspvEIOgUVKSpQb/fwRbp68etERa6yCqJIEIhJ985Gmf4sP
4Rvc3SkH7yb8rJuwQqTJERNGhlhtD6mcQw6iwMlnnRZRNh1ptza1JCwTZv8I
iolkLOJGwobUH7TzswYVbNYLg1mTn6dOigOjfIXvB7Ge/KzvlHt2s/6dmzVD
5/UoCnJOE4ZsjTRyQwX2MNhBYNAF5CjIt6WOWKN36xdWY7KODMAKXAcWIu9M
k3MPVTkFs29iVg58D/dAIUCNTIRRoLjC9w/44BZx49uliSO1eeJJARmedzhD
wJLp3WSRhZRQtJvpWJVCf1iVGbNonRwlMK7hC1CPRARYSwEV4W2mS0GG2gpN
XX8yKAFxQEDeiCwRBccuouEsvZXfbwfjW5Oj0a1Sv7eBPx9RJPZiWvZAoGUR
gLH9NzdxEwC+kWi0AHkmVv6cqi/oQoQMPRXkZ5oZbThVjgQe+hXXHNuKxzJ5
BAUzhsB4M/d8aE41EckpQjywCq4H9gfCRnLEuyV/j4F+pzb2jiot3IOoe0IN
h4pNgQ1rC2c4WNu77RBFuJwwN0qCUgvY5qhSkjAu95MD4lkqTI/Zoz9igQsY
ES6i8ACGpD0QyoHAMNQCNggUI5dAi+LpPfbWu8xzYSSYIRinlOixKRq9yu5n
tpro277rlveDHFBcX4r3Vu3KHd3aOow0pajmI3NH4vGxABYmM3l4gvWQvdtm
8oDRj9lwagf2JIYwYoRdiTKFdSAK9hgWE4qG5zJLooCAFLNFh6nMBAGpT9gQ
4ES+QtHCReh3aI3UInqgO1wG4dD7bN0BzyAonApxyWgQvyf/phx7n426mQkE
uIHyQCgwxtAESDWrDvOjKTEVfhIlne//9OKbF6FF2CY7xp/7difcD6ICdxst
YD/mD5/BziwJZevME8SC/KgrhaqPO6FkZTAo0d24VnA5jhIZGi7Hh2gAF+rb
AQccJP3Rz/j7bvPR4VFMQYQbocdrwlmHnChans07FCwftNfeYx4e+MnjgCHc
HsxqWBzcIXnGLMgVsvhgQ9tbE6GX/XO/GSrwJAYsDMAqQQiMOhYeYuAFIcNY
amA1C89o4U9S7v/ueVa9LoxiMJ0ZsaeU67mP+zk5lyGTEsM/JBtKax4gk5oF
fCUwAW9MgaDbzXIU2Br3msKFr7mOqQIWLCKWE2jNPHge5MAHJXbAO1Q5KzHU
Bda/UV+oKP7XwP6+19LuXMsJOphBlBYAtbi7QDoZXFx8xsh7cQVxh9FJw25N
avtPfZ1h3vN99GTf/123+d5gtcHNT70a/B75p/8PkXDgLQ==\
\>", "ImageResolution" -> \
96.],ExpressionUUID->"1387cad6-2910-4d95-bb16-fccb91fd6a76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"t", "[", "\[Theta]", "]"}], 
           SuperscriptBox[
            RowBox[{"h2", "[", "\[Theta]", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "/", 
             RowBox[{"\[CapitalDelta]", "[", "2", "]"}]}]]}], ",", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"h2", "[", "\[Theta]", "]"}], 
            RowBox[{
             RowBox[{"-", "2"}], "/", 
             RowBox[{"\[CapitalDelta]", "[", "2", "]"}]}]], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"F2", "[", "\[Theta]", "]"}], "-", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"t", "[", "\[Theta]", "]"}], "2"], 
               RowBox[{"8", "\[Pi]"}]], 
              RowBox[{"Log", "[", 
               SuperscriptBox[
                RowBox[{"t", "[", "\[Theta]", "]"}], "2"], "]"}]}]}], 
            ")"}]}]}], "}"}], "/.", 
        RowBox[{"B", "\[Rule]", 
         RowBox[{"ruleB", "[", "h2", "]"}]}]}], "/.", "sol2"}], "/.", 
      RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "0.001", ",", 
       RowBox[{"\[Theta]c1", "-", "0.001"}], ",", "0.001"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8176326022950163`*^9, 3.8176326467232037`*^9}, {
  3.817632683971553*^9, 3.817632789027328*^9}, {3.81763283674572*^9, 
  3.8176328368685007`*^9}, {3.817632877796402*^9, 3.817632918098442*^9}, {
  3.8176329487995663`*^9, 3.8176329657972403`*^9}, {3.817633013987247*^9, 
  3.817633015478447*^9}, {3.817633052086051*^9, 3.81763311811401*^9}, {
  3.817666615617567*^9, 3.817666635940769*^9}, {3.8176667213758173`*^9, 
  3.817666760396441*^9}, {3.8176668540479193`*^9, 3.817666907718935*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwVV3c4kG8XtvcmqxJKUiqppCEZlSINSUlIRtGQQkZL1g9Fg8yyQsgIScb9
mMnee++99/x8f73Xud4z7nOe93nPfYsYPLpiREVBQdFPTUHx/2dg68+08IBL
5MS5IKb4dxo4dublxJ3pMwScD+75xhrgKe3FE1X2isR5TtwpWskM9FablWVT
5UnN5RLD9JrHGNUINZDedYLMTrjQx81aYqZ3rkvO4yhxrxAXdmewxVCEbBel
6xGSxXqltp79BY4LhdG2DR4mt81DimLpXiP1VNBzhU+HCJ9/ppAU5RsUH5en
uvr0ILn46uLh+XlHSIlMPnz0XJqUZ5iH3h12xvWOEqv0iAOE9V9bWn2zK3oW
Vk9XD0oRPWPX5//9c0PsSyvfOQUpovSrbT012QOe1x1GOLT2Ez611n+fgt7B
7cu231Zn95HbR0UviCl6QZy2Z+/PS3vJcqf9jZeH3uPALQEF2UeSRKX57PCA
2AecdC/L2xW8h/QXH3c25/2IbeWHDot37iY3Any2bqf7hMrwiFk5qd3E6bXD
ZZbZT+hY1movdJcgpOJzsEy3N1puj9EZTe0ilmpHvGIqfHD9ddW5HoNdxDUp
u/RJ5mcY+paFKbWIkzGVfec/f/fFG9UzvmG3xMlVux2Xt3r74WyDzF7Fvp1E
MOlZIMsrfzD5mwlYWe4kGf/SDM1MA2CkK9gRzbSThEhrPZK/GgibHX+/3fom
RmbVigXfyQUhO5j7s+BpMRKVuO2ezs4vOCFpmWs7uIMs3+FgjGf7iuwrSVdF
P+wgZV20um5zXxHTd5QTJ3cQyqr/lBYfBsN8ZO9m+vHtRF7R66dlVzC8Luzp
TA3dTqLYJC9laIYgBvVHvG9sJw7GL+vKCkPwQPSY913u7WRtsa0/7ngo7CXE
7lJUiJK3ipkcunGhYFTid9nvKUpO+Bj8axUOw9OF6p8ll0TJTpdn1vs/hmHX
Lw+JnzyiJJPt4aOrtOHgGTugktkkQj4qpc1esA6H8OP4I2WhIsQ6akl+62A4
PB/dC/97X4Rc+kBrlav9DTUnn794JytCOn5U/FQo+Qa+U2+zGelEiMSZy7R+
chHwSWdXEq0VJuveSo+L4iLQpqngnPNNmGzZ0TVety0Smp9WP9VZC5N/Q2/N
4RWJNfqWFlVVYRJZc7fRkTIKNgcZODiFhcmJkW76XRZRkOtN55Ic2UbiHypW
fu+KgoLVP+PP/tvI7gouamaN76jnDu8+q7qNCMZ8uaOW+x2WV94Jbl8TIsTw
ys+HB6PhxcepyJEkRHgubY2yCIvGO8FhnoV7QuTuXNH8de4YmNluTc4TFSLZ
wtfURd/EYEgpy/1261YStENGo3wqBmoflI+l+20lkqsRUfoGsfipxGwLra2E
x3NkuK4yFq5nyllu8W0ltm7vU6QVfqDJfjbqTcMWsl8u1O9pwg/oyZsObA/Y
QoSiusWDtsXhVNmk7H69LeTmTvqR2HdxiP2UX/p5xxYS3NP0IHw1Dra7dD9c
Gt5MPt6zPuB4Px5eFheELiRtJjLGpqlqzfHgf8Me/dp+M5F8/ejk+o4E0Kum
03Sf2UwUBjpX1XQSENnwws2YazOZU7Wu9fyYALrKms1U7YJEkXXb+t+iBPBk
GWyKjRUkzis6SbOUiThu/ljlpp0gWTK7LiFwNBHSu6em6VQFyYT5kI+0eSL2
BtBkRWwWJPp3YqQUIxMhUDv1Q3pUgEx8W5dQaUvEZUu/nWEQIP1521OUN/0E
//aDnRMfBMj12SPUsmo/8Vj75QCPiQCxXTuvLPrmJ7qOyH1iOCFA6nwNI6n/
/IRB2LRjPqcAqT3rqd0y8ROvKimCTw/wk5d/Ot1ixZNAHzDM/Ab8ZCTFxfCp
bhJuRE5KPvvMT0y8i7gOeSchqaY0ZJs5P7l5W4AMFychPu7nqafn+ImhK4dP
AFUymIQseR5v5ycZx15nKh1Nxu7y7huca3yEzeKZbs+jZNzgU3l+qXHDjjwd
/DwiGdcNWfl3p/CRwWOvv7O3JuPZS48xv/d8JMiXK9ifOwUcYgujAQ/5iBWn
zHeh8ylgD7+7W1KNj9jaOAwGvEpBiAlN65ndfOSm85gjV2oKTlgrGQww8BHr
mdovDqMpeL9NTZZ1gJfkP127MbL9F14Lmqwm/uUlYcaBDRe1f4E59r+H1ZG8
5J2+1okfXr+QfnbG6KErL3nzn3oEzd9f2P+gp/HlPV7Smb/lyLXVX6h0uN5M
o8pLitNa2EIPpmLQo+fTkiQvCQiTvDBwLxURST7ndNl5yRS7NKdEcCpOfxnS
2Du1idy+G2RjWJeKlj9FO4xqN5Fl/R/h/iy/keT/RZE6bRO5piSdUKz4G6z+
Riq0QZvIK8H3afPPfmOUr7Xn7utN5FZ2QatQ/G/c8kxs3GO8iRhVmx5V6P0N
5fG0JVXVTSTP4eeA7uY09Pme2PtXahMZ03hC/+xyGg5Yy5kE8G4iOkQs0cMl
DZuja+IKVniIcnY/RVBmGrTOvxU4281DCpVecn6fTsPRyuJiwSIesuSss5og
8Qc6v48vyCfykN1GgW3Jen9wZ1ipPdmXh7j/x1Se7P0Hr2Nfl1m/4iHt77cP
JBT/wYsP54Rd7vKQECE+pe+U6Xirtu945yUeYlL5byHoSDq4Wz3eOx7lIZLH
6kU8H6QjiVIo5JEoD/FM/lhnH5aOA288poKZecjsYbb9Jo3pqN3DIcA3y03M
WLiU1NkzwCzO+rOijZuoee7aLX06A+ZeqYYlhdxEL8d/mcsuAxQrfzoZkrhJ
/bBF2URCBjbn9XY5BnET760v0or7MiAyWr9b3pWb7Pl5oTpsSyaOPE5xlHnC
TV5lyUrbXMmE7L/m3Hu63GTV+taIqmsmzrv559af4yYMXqF8W7IysTY5Zvzy
MDfZ7/T73+B0Jr6fUPTVE+EmUkOC/CkSWWAI333OmpWbHA/j5H+hl4Xc3n0W
+YtcxE/wZ5uydxaeHvTgOtfHRZ6YdbxiLM6CxKO1/ZTVXGTE8RJ3CQVwxM+t
bgRchF3ZJdpDBjDRVOVn/sFF8pybtVXvA5SP5Flv+nMRcthaliEUeKssWN3s
wkVeqVzXyq0HJGh533pYbuTviDLKoiP4Ef33zv07XETqEt1VfxGC2sAZR9vL
XOSWmeMryxMEz4bubf8lz0WaeMpnLmoRKNHXWgnt4yIe7i/+SFgQpK4Epf/c
wkVEGviaqd4S2K3lSFswcxF+WVb95kiCv1dSRHSWOMmcU9aVpBwC0VdHqh4N
cpKILzYZbq0EbT9PfIht4CRaebYRtxcIVtX+JXEWcpK4tREBWe5sbP1U4/El
lZP8fDa0jW1fNi483mN9JZKTKLXYZ3erZOPPkasVkp85iVBMEH3anQ1/kyeL
ki6cpMtbZvnti2wU6B3QumLNScoqRL4Z+GXDci34cqAJJzEz3s12JDkbr3jF
rzJd5yRHXVnkmcuz8TrboDRAhZPcbbU81T6YjXk73v2XjnISp3LazUk0OYim
4xrbuZuTfKm9UO+8LQfHabc6bNvMSdQzK59rH8uB7JUuo6MsnERxip5vn2YO
+ilbeJ+ucpC53BsxlOY5KGQ5tal8jIN0ft+uVOuWA4eA0e5zHRyE3TmlL+pb
DijGtBl6KjnI7r4rX+xJDkrr3zAF5W7EKx60uNScA8GShqdPUzhI6EkH0x1z
OaB5uq/mXiQHudap57nAkYuWfz9S7f04SHhNx0DJnlx8S85LiHXnIF+D2F6G
nMlFvRCfxuJzDvKptv+G1e1c8DmaHzIw5yA+t/Vfq9rn4s5kykifAQcZj7q9
Kvw5F55PGja5aHIQnqKi2rnEXEhN/FVVVOEgbWXmXKUluZgzNJbkP85BbrQL
pYf152LpPzsthn0cxPeJT70tVR40q6MecolwEE9Hz0dXtuYhvezWJhkeDlKb
/tttt2weShtLJizoOYhOaKoUtUYeJHTIxfez7MSkbNe9lgd5UHqpW/CghZ2c
5wg+/ss1D311A362uezE/ktUvFdYHvp7aUVTo9nJ11P5JWZZeYh5Y5sm+oGd
/LMx9z/bmIfQed6sDBt20pS4RXjHTB6SvoZ7Od5mJ9t0DxlRsucjYUvNJ5tz
7IReQvBxu0Q+YikkDwQcYCfyAhKqWcr5cF+aLxsQYCcFqclLQXr5KLKVbbpN
xU7iDjO6vLDNh2Xph2zaYTaS5GU2r+edD+dvCnPV1WzEMlVAQzEhH8Wb6EaK
M9hIS+z5ELHifIxP8wuMfmMjddH7Bhn78iEYumVOxpONuCmPHxinKMDgcfa1
qGdsBC7xDrWbC2C1XS5O0YCNlG/16MqQKYDX8EFnajU20mkWcP3b5QLMBaTQ
Dx9mI+E/R4ff3S9Ai1rsr4VtbOTF3rdhNi4FWOIVEpBkYiPsB144G4UWwFRT
JNVxhpXInkPAlcwCzMtUClK1s5Lka+eGTjUUQDxQsSLsHyvhi2W3kZouQLW8
jdG9ZFZyYDfFRRG2v5gWv2V65SsrkdahfsIt8Rf3dBLMdd1Yyc6PK8N0yn/x
pZOG5a0lK1mjKCLLun+xPPOzslWflahUKy9M2vyF/H/l1y+psZIjFxT8Bj/9
xSeK7cd6jrCSD53vorvi/6JPVJjDbzsrKVRdkG4t+ou76s1WD9lZCf13paON
vX/h20HJYrjMQmK8pPPqKApxoa7yoU0/CzGQdGiq3VyIpmDOU3HVLKTm4rBD
nUwhBPcziFIRFsLnJZrXcLkQz3dZ/n4ay0KctRvCW+4XgufGf1G0fizEkzlt
T5dLIfLU2n2TnTbiaR7oDYYW4hP/0wOvLViIeK7vmanMQny5FLzZTI+F7J9p
6V9pKMQDCU4qCzUW8p973TnGmUL45WZ7eR9lIYv1Qk/42P9BJnjmae1OFlL9
WdVUfPc/aMrtvXWAh4VYsI4fPnr6H+gbJRajKFmIHLdvi5r+PxzUbl08Ps5M
9PdXGRrY/UP3rXucQy3M5EykWK2Nzz9cuMs//bOImZR94Dv0MfEfrsle1/D5
zUwOj0u4xpX8Q/uJ5P6PEcwkKbG5vrj/HzJ2VxjHfGImbY1REsNURfj008C1
xYGZNL1hcmQRKkK+phSt+GNmcnTJanT/0SLo3qD77KbHTFz+3r6vebUI7+pS
FujUmUnt3+P0zx8VIaCfrS/gBDOpOvokL8KtCJ8nmjef28NMUsqfRFd9K4I2
dasWmyAzYSQRoMguQtCt3OvDDMxEoM6C6UBLEUYp9ra1zzORSw4n3t+ZL4LT
neCo4T4mcnDISNuXqxjvj7rasNUxkVsL6vfL9xZD5Np+bpV8JiJ0X7OU4Vwx
DoRlyPomM5HxgZo3yobFOCy1P24tjIkU0Yr7OLwsRsg1bVm7j0zkmE4YU65/
MTKnOwNZ3zARzc9f+2l/FeNqqkxoigUTMXJ4dFC1shjfnT+wPzFgIs58RjMf
Ropxdnom9vQVJkL1rkKqlb4ENPnblPYqMhG3uxTjEttL0OjzMUBCmolov1E4
bHOyBNucPV4dE93wF21nLL5RgrfTaxl6XEzkwKrok22WJfin+WmLHxUTOX1J
09rKqwR1W6LM+qYYyQbX2FIRUwK5CGXrs92MJEbi6z3JvyVQUhBmzahmJHck
Txm6d5WAQsl/WSmPkdD96eIaXS1BmcRvzvZkRkJrUGh3WaAU2eWi295+YyRr
jge+/T5UisqY7TMXfBjJ6du3vEUvleKiSOhtERdGorPN7YqnWSlUW4WP0j9j
JOptM11rzqVIVEhXW7/LSLrQqPY4tBTvW0UfMWozksCZJz59maXwmQp8IqbK
SDr+rubrNpaCjp5in8YJRhIUk9DZOFOKg46JFh/2MpItyvnjWhxl4Lodxtst
xEiinjyZa9hTBpeGy+PKHIxkwWhqWedsGbT3ZFelUjKSuIBndD0GZdB5YPf5
+DQDcZs9vuXhizIE3nrHU9HDQJLxWGnZrwwXz/0nYlnHQH5lqDu4p5Th1qKt
z+5CBuInRd8uVFmG9e/jqhNpDCRhuEwvZaQMASzjggUxDOSBZiPTRYZyqGss
tcQEMRB+6xt9w9vLwXuG6X6IJwMxoHNYcJcvx93bb0MjXjOQ1UdOZ/ffLMff
VaOb6U8YyFSnd2OtVTnevhp43G7EQLiv9Sa//FAORe/GbK7rDGRv4Ld2ybjy
DT1+X1zzPAORM2TQb/1Xji+bFF5GnNjoR0X+xPvecoT/NIig289Amofl5MIp
KqA9edrWUoSBqJVbe71mq4CJ7t+GKW4GwifQ56+/pQI6VRLBL+gYSGJgiJ7C
7goc7+aJ51+kJ0bHczu3y1bgzK2PPWSYnggP3tnBcKYCLLmcwtZt9EQ1MXD3
mEYF9Gp0FI5X0hObdOf52tsVUNgSvIs1j57sv3T8HR5V4JmT4a+RX/TkQ2v1
ZPTzCmTPvitu/E5POFbuifm6V+DmuO65mkB6smLBJ+niV4EV2QecLZ705JDc
HMOzyAq0ukfTTjrQk4i3wjBNqUD5WV0Gbit60lGdcFkvtwKye8VWFO7RE2+S
natZWYH+LRO5z3XoCc/5h/zq7RV43EqlVHCRnuQkVF5RGd3A1zels1mJnri9
obdSXq7A7P6IWXsZenIsfI+TImMlNjNdmRySoCfjqtpvFPkqIThnc8hoKz15
yJ7wRFmsEmddxsKGOeiJRfe5GyoHK1F3tmTHCxp6wiBy+oi6QiUaQm0DtyzQ
kdz/wHHtYiU6q6InCobpCK9a/YDerUo8q71G/7ydjrymj8kxM6sE6x1ScLKa
jpRX3AixsanE8+FHm1j+0pFzMtSu/7lUgvLzwaaeP3SkQ+mvTYB3JR6qCq0U
xtGRKy4FNvFhlYhIcTb4HUpHdHhE3fMTN/Bp0c3+9KEj+a7LCa2oxE3fZwG/
3eiIE4fl2HxpJbhaF+X+vaAj1fcSz/C0VELna19ejwUdOTJYnSE9VAldjyZ+
ZhM64vuc4qrGQiW+fYsXPXGTjsgl32S3oqsCr/HzYuuLdKQ1g2nKn6cKxkOf
VzKV6Ijng4Pr2aJVOLDV8yub7EY/Z1aODktV4VXf3i/3JOmItbXHN175KvzR
tekqE6YjcR3Mp5UvVGGYJuHayU10pEogbPPTm1XQXFDpTWWkI8+e2klG3KvC
kcPTz46v0RJFCtg2WVchtebTSuEULSl+58vI6VyFyYvnb+r30xKf1IMt5z5V
YS7f6BVlCy2pas6YdQytQofyQ63YClpydfftGzkJVSCbtpXo59OS22HqTFSo
giWzSZHQH1riuCWZWbm0Cgo1Jif74miJqXK2vmtzFWTVLXlSw2hJTEQES/lg
FdTbeI6+96UlX+K9ufgXqiBctOL79C0t2ZlALO/QVePUJ26R2w60xKpT+2gi
TzX23XyUdc2alrTf9dWn3F6NtGOaupr3aYnXzbgxjQPVGIqXHdO5TUsMc6r6
ouSrob7+5+aDa7TkXdAJNQr1agQHRX9yVt3AM7BdVFunGo3+VC5Rp2jJiaBs
s1+m1TBjHxKuPkxLmn9flNxkU40e96RLdHtoid1JRhMrl2p8cGuhURSmJTeP
797W5F2Nt90sks6baMnzonGtU+HViFDkTali2qjP78vz/Wc1Qr9OvxOnoCV/
jA2u82RXQ/t3YZTjLA2h5fDc6VBejRmPzsnBIRpi4q7nMNVaDZa2xBtaHTTk
oDnvI6ORanTG1pSX1NKQXzbz401L1VDJZFY+X0xDqt3OMmgw1uCbgHxEOaEh
KYlq6aV8NQjxte/T+UVDbPeos6jurEG24fzMZAwN6TL5tFZ0qAZRTvQ570Jo
yDjLPe8LSjU4ZyZx8uBnGuK/xFtTdbkGH21Xb7R70JBH6kOZ2vo1oA48S/fR
gYacNJG61vuwBlnFYwfVn9GQzIEjwRbPa3A1ZqWa4yENOYZLX6k8arBlU1B9
0x0aIr695Jq3fw0kE7dKxd6gIYOBK/92f69BrvtomeNFGnKZQWYlJ7UG138E
fjM8TUN0fUsnbhXUgCu5+ZvqcRrS0yQQs1xTg8yHdtlHD9CQzRkW+wK7ayBu
c39onzgNuel24IX8VA2omrK49mylIX8WE4J6KWrBEBoiuY+bhoSLX/B6x14L
Hw+D3bKMNCToy50bx4Rq8TnkwZrKOjXJuaGxMiBZi/wGtQD9WWriU2hv73+8
FgeyIqdfDFMT9yqFVvXzteDnV1oK66QmqU20onQ3arHwliK0vJ6aPM3dq05M
atFxqa2VsoyacE9tM3puVQuK/LngY3nUxOKKsqmcUy1uSb5qs/lDTVK0aW5T
fKoFrpT8hwRqMsBWrFYQWovMYyo+zJHU5AcN7QHPxFrMF9vN3wqiJh3Gwpw3
SS10HRhDfn2kJhcWPSYkymuRLBTnvMmNmlzbklG13FqLGa1TgbavqElQhXB6
xUgtVt4m1PZaURPyZ/+PqOUN/M8ZxLUeUJPlnXqxb5jqkDxl6lh2h5rUsYhn
3BaoA/Ub7i5VbWoyzkXZobirDhHy1w6VX6ImHz/c3Sx+pA4XHn19dP0sNbEM
aHrMdqYON888ce2Xoya287V9C1fr8Dj4wRP7Q9Tk6r7m53136tD9R0GMbw81
Of/f/WP1FnWQnkj7kCqykZ+XTbj4dR3OPU1NuMVPTdriTkvneNUhj1P6KSM7
NTGf9X+a8bUOS/1Hqv7QUpPXep+H0uLqMC0xiscrVOSgTMHnP5l1kGxzl943
TUUi/ZNfZpXUQfXrnW0Tg1QE/01+y2+ug82tRrvUDioy287KVjFUhzRhEznH
eirCeiswvXWxDqPFATeulVGRocgDP8cY6pHUIViwN5+KXL5iOEvFX49ZpcBn
TBlUJKOlxFVQvB561CPGIz+piOQfWvPDMvW4u3nIufo7FRnRiInTOF2Poyfd
yhBMRZ6w6qhYXq2HfED1wcTPG/4qv0/536mHdWRHbOQ7KqJvYhCQY1GPJ31t
+8OcqMhC9drNsdf1WE5iSwqzpyJ3KQ45b31fj9dsuZLfn1CR9/ejt14KroeA
we2PSaZU5NN3lp3O8fU4fvV2a85tKpJ6iz4MWfXg9lKjrL9ORbRVzvmulNbD
9WPW7PhFKlJ6+g2jXGs9auwNE1nPUhFljbtLr0bq8bdhZbfUSSpS8OHHw8Ll
eoQ81rqhdZiKbLrIZMrN3ABXIc2DbySpSMT6kYnbgg3w/tgfn7SdinxWm6JJ
lmjAM2nOggFBKvKNaz6G8WgDopt77otyURERE7pBA5UGHCVOAfqMVIQ6sAvQ
aoDIIfFzYRRUpFbp0iFhkwZsf83yYGiekqQc5j3vaNUApT+ua4fHKYnt+1Wa
EacG/PBcm3HqoyR+uZV3tbwbcGp7x9mmVkqi9p++TUH4Br7WuDHpWkriNmNz
7GhyA84pLXd4llASJfOJ+PjcDXzFhryTuRt2nm+rRHUDClP8nK+lUxIbgfN/
I7saENN5TYL8pCQzq63mElMNyPtmMrc3mpII3JNqi6NsxEDkt96vIZQkFdu4
ZTkb8SJlYWyTHyVRaPDgzhduhGngNSYvL0oyuKbdrSnVCEOa3P1srpSkZvGR
85B8I+JVLmp5vaQkF1iTKd5cbMS9K4I2vNaUZHWd89o2vUaIPrn0NvghJRHc
Zu2Gh42Yk9/jsc+YkqQrVofcedEIzgeTD8gtSrJQyR/M/K4Rn77P7b6mSUku
/T3xX2pQI0bsAtLH1ShJU7LMbZMfjXAXusD/VpmShBRSSG7ObATjLaej+05Q
kr6Kz6NVJY2IfFzEV32QkjieWv7+rqURst1xMXZ7KIncwb1G6iONMLlTOSq+
nZJstZDezrXSiNs/WurqBSlJgzXXQCNzE1oNXfTcuSiJuGV96rfNTbCb/fhK
kWnjPDTf+VjuaYKTRYX0KiUluZFzxvXc8SawW/M+Sl+kINkS3O9FVJtgRKe6
7/kkBckjDCmr2k2ovq97T3GQgrS4yi+0mjahQlhNgLmTgmhcrdLNsW2Cebjg
kfoGCpJW1DYS7daEPSbN6REVFMT4gVPEZ/8mMERFB9sUUhC+wEFP1+gmrGnF
t10kFMTC78CP53+aULAi+EjiNwUJ93Smsi5qQuNHCVW6BAoy/Inn09OmJvRY
itzvi6Qg6glMxlZDTdA9plH87ysF2dXmb2+/1IT3AQIGCZ8pSA/PUrMzUzMa
tRsl/D0pSPA5fVdvwWbsF6Pc4uKygf8pg3PU7mZQPmOUtn5JQRQ+b3wMx5px
1fmpkak1BTmfJeDcfL4ZIkJl8fqPKMgmRob3y9rNYH0Xw6RtQkF4fiiubTNr
hrp7zKNrehRkfYm7SsWuGf18Vg2aWhTE6s4/Div3Zgjeyzh5/SIFWbRLyooM
aMauMtnAW2cpSCr1zo7WmGac+xw3ZCRPscFnrG34M5rRsTK4/fERCnJWldpT
q6QZ1PRE4eV+CtLsJCYW0NIMCUu2k17iFIRlv/yp7pFmiEWkc4VvoyCMwsk9
+1ebof3qV9ofPgpy2GaY9zVrC3Zpz0nWsG/MK/Jic93WFnh32RpP0FMQubvq
Mgf2teAwk5o+OwUF0a+4Lul1sgWuDdO7DCbWYXqxO3tavQWU5keXojvW4Zti
tHxTrwXGh77vWqxYR4bszdbCRy2Yu/AxSi17HU9tFO8fe9UCRxeth98S13HM
NSg2wasF/aJGD6lD15E4NBm6J6QFv38cCzL+sI4/wYUaMYkt+FhnNF7msI4S
ibjc/TktCFZ8c+PEk3WIuEnP/65qQfidkxVxd9bBcmlw6kx3C1TUL6vsvLqO
I3730hunW7Dk5fgrVHkdNPzqmo9pWkHDHM++4/A6GvgP57NuagV9XopKtNg6
3FwIe7xYK2Zz3a8d5l1HxYz3UU2ZVhwbPrAvn24dbwJ0z1KcbYV+8a+8G/Nr
UDf+K5egtZHvlQz7dP8aBmZeiRjdbcV21yaq9w1rKA2RnxeyaUXm18ZPB/+t
IdglPbf1v1bU+ln/aUpbA5wT3EP8W5FxjPaec/QaOs63aZjGtCKNq8NbJmAN
8ZcYRGQzWkF5w0Jm2H0NGsOz80ylG/Zf6VPh9ms4eN6itau1FWNPwqNuP1hD
+Au1Ooy1IivhmtF23TW4vNbqD1lvxdWeHrNB9TXwHTXd9B9HGyjuziUmya8h
7oWekaVIGy4bntzrILXhv4O3xVi6DfJxdtVXRdbguWz+4pZSG2zDn/nv4VrD
hcZrl29cbQMfK/MzOuo1hAb9vKFt1Aa/aW6D3ulVVMo+CdS3agOPy0v1wp5V
6Ca6C913aQMWlA/G166Cevd0j71vGyK1jen8C1YR3h8+8+F7G0pfTGS6pq7C
VCv4StyfNlysW7poF7WKZJ5B6vLiNmy/HPnzsd8qFMadWWdb2pAkJ9pi5raK
fZNOT4XH2sAsEZpzz24Vh43m5C6vt2ETTHTM7q+ioGXkoQtHO0RjMr+a31rF
MRkHllyRdvx4tuBgo74K+rDqzTQH22H41GrFSX4VNHFUoeeV23Hn7VcqH6lV
/FE4HO6j2Q4fmV737yKr+BrnLT5g3A5nlZx3hGsVzxKvHJB/1o4d3X8om6lX
UWLztSDgv3ZQXdJpXphZAVdC0siqfztce05wCfatwNi+OMooth1BPcuBJ+tX
UO0hTlGd2Q4NIwUL48INezPrwunydvTsz3J9n7aC4bl876yOdlSG76lH9Aqk
nILbTky1Q+6r6tXJgI33ffNmHZQdeH59YE7s7QpM4aT0jakDRao1KbderKB4
MXLhPncHpAWHXHwfraBiK/u7I1s6EP+QxbBOfwVfOB7S0Yp1wLpLTIHvygr2
89sa1u7twM3OXbw3lVbwrW0oOkqmAxskuynk0Ar+WNq2vJDvwI3vzW+GxVYg
od27rKXSAQELHyZZvhXssB5iPnS5Aw89Lxm5MKzgr4QqO7d2B15Mi7g3Li7D
Q7mYYdZgA2+2xJN9w8uo4jqw3GjWgRMH3/E4tyxDT+f0YPbTDiy8sDfuKF1G
093q2tjnHbiWuUtfDsvQpf6e6+/cAb3y0oXAhGXwvvBJcffsQJXyD/H1kGUk
pjyMe+m7UU+RvefOx+UNnUKfaBXSAXJXUazYcRkMfkeIeXQHZP4EdB2yWoZn
dVPbg6QO2DhYcYeYLKN/vJT9YUYHxOQOxbPfWMZ0yoTm4/wOlNmf+PHq/DKY
34klW5d1QLlqhWbm+DI+O17e+7q+A+VJAz/u7V1G8wWdvLcdHfhlaPO1U2gZ
keek7IMGO5DdsrfyJscGXpc/WglTHWiPdzvWQLkM7cKhGwXLHWCcE6i+Nr2E
l85JTu00nWA/aPahvmcJp2YZ25ZZO/H7JLe5dt0Syun6jDbzdSJbMvZO+98l
pD1SFD4p3Amlw7WGxmlLSInewmEo0YmhQGmz8eglvF15KvtWuhOmQQ8e2gYu
bewx9cC0450QUT9kTP9uCT8p408OKnfik8fR8z4vl8Bw9avoFvVOqPce4hJ/
vAQp6j2qV7Q6EW7flZJmsATW1/rp7vqd8Jmn2qt+dQnHRC5bFd7bqGd481HP
6SXQbOV8yfCkEzt3pjy1P7IEi8+pDar2nShvaD3EK7GESyG6zh+cOjf0R2Rk
ouASTsttd29514mVPf156ixLaLwjNiTh2wkBE2vH0dVF+NK7RtiGdCIr4HDb
2/FF7BN4nFsW3YlYeeqi/Z2LeOnOqLwzuRMXn+fLV1ctolvr+Z7XmZ0w2Gp0
5FneIuQclu3bCzqRb14WJfRrEQe2/jquUNEJ2WOT7gWRi9BW7zKNaOyEli9p
eOS3iA9XfrOyd3fCflzaRdB9ESwOT8TtRjpRWK3gWWC/iLyrV9KHZjshNj04
8OThIr4a+5TcWu+E9fpuD1H9RdTbOerWMHThty/946rLi5BxMnyqztWFA0ec
PN8oLcI6/DVnyeYupG+KbT98eBHhUruPXhDrAvsWlxuDOxdh+Cd+rHJfF7b+
2z4bxL8IGw6Tw9qyXXi89UO0BtMiWJWjOPoUuhDg1POYaWUBR3+UvbFU7UJk
3n6lnNEFGI/LfmDQ7EJYmxuvXfsC/q6qyH/V7cImavaeQ5ULaN1m+O7o3S74
WteHjecsoHd2yqH+cRcsHCjVY5IXYPv8trCNXRdENGObTCIWsLJpm6mQUxe4
5xcUxHw36jl9ufP3XReOSDHZd/+3gIFlTY6nvl3IekLzOtRuAdqCeLIjtAuk
iPWcwYMFUMxee98Q04XlrAslonoL4Bb4ct8rpQv2p0epei4t4Mh7fkY1dMH8
O2/vN8UFiA1dMGX+14USq1nTu4c28h3597Gsqgs7jH557Nm5gAw+gf+8W7qg
peiiOM63gNt/yi/o93VBr9XHMYlxAQrdDr37JrrAOsmj+mx5HpPjxRqUS12o
ZpN+Jzc6D6OWs4H11N2w+m/bGer2eZCzn3MSWbvRpMdu9q9iHgI2ukWefN0o
FD8065kzj1OGp1Mfi3Tj7QJpuZY8j7C4eQ+tPd1o0BwUEIrY8E/ecVHhcDcu
CHaG936eB9xfUu6X74a6QYvlj//mUcOCSOFz3fhixe5kabcRXx10mlejG3Sp
cUVyD+ahf6apjf1WNyicxk7S6c1jk7+MNatJN87to24quzSPz/XPuNgfd+NF
vfCnz4rzMOkwTeax60aksZ2R/qF5pD1p0hdy6kbqgzNnJHbO4+ZBv82Snt1g
25Syb4pvHulR9gNyft1Ypl3iTWecR9c53WKNsG4wap6df7M8B8sXmwsf/OiG
7f2yv2qjc8gM9+5yT+3G+zm82tQ+h0jen0Jx2d3o/asq2FYxh9Z92q9qirvx
4V+wR0TOHHIv2DGv13bDoXuk/GHyHHza6PL2dnTDrk+nRSZiDuY6Uz/0hzb6
sdoSvfZ5Dg+0jpR+nulG1rTmgYL/5vDHplqseq0bv4ylTd/azSHGozCdi7EH
SyaNalcfzKHv+ZaP17h7sIf5caWg3hyeGjbGf9nag2eFWyc6Ls2h14mVd1i8
B0+MqUIiFOdgd7P433HpHgR3y7eYHZqD3GeJcq8TPRDXn/WT2jkHSQml3UNn
eiBPf6pqhm8OJspH2s9e7kH8wrHnvxnncM5QYur7zR5ISq9/sFueRdhlBRMO
4x58eBbGfHJ0FhXiMYp25j0QUTjRvt42C0rtz65Dtj344t9Mm10xi1O/j8np
OvVAlfe99eucWeQ+LTOs8+xBR8I9SYXkDX8JL2oN/x7opz/aQhExi86m7K01
4T2oz42Wz/o8iwnK6NQb8T1Yfr7tnd1/s3Dz+FjbndaDXzHl60fsZrHQU2pn
kdeDMNo/HtP3Z/F7LjaOtrwHF7c3ScbpzuLtwf8sghp74HBnV4PJpVnE+qL4
aE8PbtT4OQsrzmImKTGraawHhzcLSzUcnAXd9/yLrxZ7kKLzveSd2Czuyxi/
2U3TC/0dwleV+WaR9odKt5Ftw1Yzy1pgmEXKUfYeD4FeDPc8oI5dmsH92zSC
p3f0Inkz/WbdkRmc99SjodrfC4ntXKtsbTOQrw2NzD3aCw8B45Cs8hkUrF1l
cFPu3biXtev3s2dA6UO5R/NiL7gvS3EIJs0gbkCWR0y7F1Su8kX54TO4xOpV
uGjYizjjf2LmPjPgGwhWq37UixuSnoICrjMY3s/0LdG2F3/NLgQTmxnoPXlU
98mpF9cn0+OMzWYQvdWm196rF2tRb+WYb83gnV1N3b2AXsy9MVeOU5+BHDkY
fzOiF/d0WdMvnprBGSb1J1cSe9HUQ+83fmAGOnfbxdUzemFgs1b7dvsMdrVF
Var/7UU1v9u93ZtmIH7P3PJqVS/ey59UzaebgQotJb9eay+0y6IsdBemgcTd
WQ8HeoGxy/Wzg9MIt8y5/2a6Fx/m083dm6fx1TB0V9BaLxYu3ZHZVjoNq7Dv
c+mMfXhwPWtbYtY0Qu5nNLfz9MFZWW6HQsI0qnjyWhiE+/CU4fzx8pBp6LLH
r8ns6cP9Iyo6Nz9OI3nK/IypTB8y+z+96HWcxk97qrRQhT4Uejv7PbCaxpzP
7Zsdan34RvcgfNpkGsI330tvv96HmN3vfaxvTIOKz1/J7E4fotYPmSyen0bG
pf8+/n7Yh1GLj6w2J6bRU/RYnNm2D1xKHa/m9k7D2NWM5o5TH152nv39eNs0
PCs+7idefcjXGI8e4phGgzRrnGhgH4J4Zi7epprGH7d1R7fIPuTOmH2pnZ6C
MbVv2vzPPlgvG7492zuFG5sZL5tm9aH0TC93at0UliLdLnX960Pc8NCuHYVT
WGi4kalX2wf/WrPcd2lTyD2eFtjV0QehCM2muegNO2ti2nSkDwyf3hrqBE7B
NflC4cJ8HzTPT1zH2ym01Ilu86DuR27B5bhtL6eQd65wdQd7P6Rln998bj6F
a18C7uUK9iO85ZBWw+0pWNWum5js7Mdi2wFfKY0peBncWuOQ7sf1Qzs2OStP
YX6vqDSR68dpm595DYencPdzNoPluX48LbMJ2iU+hVPPkl32a/ZDKoXVx5J/
CsFiNsnj+v1wHp4PB+NG/xYfP6Xc7weDym9CtzwJjkSPva+f9UPJO6/9/Mgk
rqdMO15x7EfdfdcF99ZJdNbqBEt49UOGy4iyqGwStqO3negC+8F2IXGChkzC
VCf06GDkRrxSWsaJxI33jLk5lUn9CLmSdfNx6CTKDB7uJOiHwNBcbujHSYTp
XjVNLu5HssG74QrHSWTb7f4UV98PiobwwmXLSXRkx3yP6+7HCYqLl7ebTOJ3
tm9C8ng/6Gl87M5en8Twp9Q4styPSE1rubvnJpHZWv29in4AIy49Hk7HJuFQ
kBU5xD2A2B25el/3TGKO4mIcg/AAsh1GYlK2TGJzvn6upOQAIgL2mhSyTmJX
Re3INdkB+HSccalfm8CUgbeUi/IAzrCPUHaPT+DAKY9PmZcGwE+XVzLUMQGf
6FihJZ0BDH2+2zpWOYE7BmM1J+4N4JaescR4zgTmQtUznSwHEPz+RMRw0gTa
t1W01rweQFmFzrme8AmA0u7E7ncDyFjdzdDoPYHSLp12J/8BqDCu1v9zngBD
sWtJf8QApPIF435ZT4Bfko/pUtIANJIzX369O4GeFrEvWRjAsyYORccbE4jl
aXh3sGQAL9ylhgzPT6Db6FpXXMMA2I/tfqBwfAKRv8u+SPUOIPn0CgQkJ5Cj
/LTo9+QAdAu960e3TEDX/aXZ2bUBmN6pi8pknYDUpX2uLUyDaOHbcplrdRza
H3J3PuMbhOiPRZ/gtnGUObpcENwxCEOnbyw7yTh2Ov+lypUaxCijXkBoyDj2
8tepWcgN4lmosiTvm3GU1DFJ7zo/iNKzGlGvDMcR8jDnd8+1QVBvMl7oPD2O
vx90+yPvDMKt/jDtMfFx2E6dzntsvuEfdD3VlWEczXt7NBWfD8JBWWG+dHAM
+kXfQwXcBvGGSv4HY/EYHHayJM77DOLhtH328dgxrN13cmkJG0RQMOUWw7dj
uOLySbIwYRA1rnHhDg/HEM+eGfEncxAWEfJKny+OQVXRZSWpaBBUM+fbQ6TG
0Dz68lBy/SDujsvrh3KOIeKOrGZ6z4b/ZpMfvlOjcDM+Y/RvchCNLzt/OFaP
wk9A2axtbRAh4lEqxsmj+DZa/mCJeQgtQe6Gct6juPLO48lWgaENPXhwgNFq
FNRlwm/O7hyC0Jutf4qvjeLs+yNhzw4OgaYmiDgcGYVM2sumhFND+Bne2rmP
fxSDLLH7Jy4MoZ6nmbpiYQSyok++y9wcQoPHXRbjxhGonPZUd7w7BKN9kp0T
aSPQ1MsSa7Qcwi6lrybm/iPQbck+fPjNEF59Z3XqsR1Bk6euk6/XELTkvYUu
3ByBqq/OZuovQ6BSFROIPj6CIgWXtacxQ9ja9fzG8uYR3OuPPTz2ewjG6vvz
Tq0M42n1l78PC4bw1NxPzrZlGMZCB9LnqodgITz8PTJjGBkex/icO4fw3kNk
tDBwGDZmn7q2jG/g86YfbrUfhoaZ4I70lY16uw679OkMw9Y2ukufaRjd3mzf
uk4MQyBohxgb/zDuD+WKV20Zxqk806kcsWHsPXlpKnkj7kGY/uWXB4eRSW/T
79aygcNxWEVJYRjipqWDGhlD6BSYame7OIzeV9+a2QOHEHJRZ2vXRp1r30W+
ZtkNYbcgN0Om6TCi/knw6m/M0U+JIvLrs2Ec9b4vOnNsYy5H2CjdnIexu0z3
m63gEHyKxbfafxrGI8djr6YXByHBKEtlFTqMTVfWPuo2DkJ4UiLVOmEY8Z/u
Z6f/HoTHqQHF11nDoAhnGmTyHQS/9K3YDyXDSKYVHla1HoS2nMVSTNMw9n9J
iXyxcQ9EatgPlQ4M43bbp7XQw4OQ3LpVf25uGJ5jZ8p/8wwiKfalkzjtCCZr
uRcxPQCtY5tj9LlHcPIr5c3fVQP4cLWyPkRkBKM21dUhiQPw5nzNNbx/BKcb
GBTtvQaglElncOLkCGb/a3lz9tEALB2Pl3qrjcCqWsmaWn0AZltntee1R1D4
enQxfuO/KPaAluv2vRGQpVODaswDeCdxbLHKegT5526JNg32I+qZDt8F5xHU
7OJ30Crc2AseUk/KP42gjna1Jy+iH/uOWXJrh41AiEZNXNRpYy+9714bSRzB
tqWFHY/u9GPJdN8JVzKCTWbRaTEK/TgyT1m1p3wE/+x/k/pt/XA7S/23vnUE
Owb3bJpe7QOpLhfxGBlB2HDG+9XmPqgurwyoLI/g4+4qjvm0Phxy4NvOxjSK
zoCX99s/b/AIxrC65o17E23k9OKX5cbefyPA9FN8FNx/1IXtNfpQHDqU6yUz
isq4id1SBzbileyYnp0eRQa7hHUVWx/SK3b0mFwdxYDkrVaDkV7IRxzS0r8z
itAw38Od/3rRbzJ877bFKBJEPbQuRPaiRcte1Oz1KAwkPAQjHXsxFs7i8txr
FF7Znppjt3thnPQzyPfrKK4d2t8uKt+LE3qW9zPiRmGbFvpWeUsvNsmqLg5k
juKiSLaMxgYvNvwlcF6odBS7bNbi1et6cPdesqFOyyjWv5uWyST14JBQi3rY
8ChMOROMmb16MLcmxza9NApfHq4LJfd78DHaIkqVaQy6P8w0bc5t8G7lVdEf
AmPgnNyrwbWzB7dtz7/hkxjDnve6Ap+peuDkFF/mJjsGc00fW/r2bhhtvcdE
rzKGDM91lTvp3Thr5H/cQ2sMzP9dvRb9uRsmZaomgiZjSOxvfdLypBt3J+59
SLQaQyHbY4vFi91Q1crLvuw8hqdWD0UpJbvhfYZlacl7DH0r0Jim74b842r5
H9/GICVVX1ve3YXub26f76aMQc8rxtpnQ5evP3xFuzd/DFxFv+nPBnRtzL/9
7VLNGPYOrmh0WnVBdPnHocqeMbi/mZMwutKFD2ZFqwkzY/BsDr1WtbcLyXHD
I34049BfsovYxdiFVK8vtB484wjKtuo16emEn7yyqsuOcejNULR7ohMFLhzZ
7ofGYX5k/Vawfyf2UTCY+imPQ5OhWNLPshO3xdZUEq6OY3eM1CbbS51QMvio
X7Gxx5jZH3Qo7umEMd3BpMWn48iJ2qM1TduJyl2cSpJO44hXclRw7+iAndUu
rrve4/AoXDBmSu+A+fAR0R/fxjG6aPHO3LsD163I0+WUcRzeqfgi81EHHByp
mDUKxpFdxr8yca4Dx6yWe5PqxnFQmamUaUcH6JcM6IT6x5H7kMNs00o70i9E
3X8/P45fz8lUR3w7tvy0ZqGnmYBWiEWq9Z12mM87055nmYCqvujJRt52PNmh
HPKeZwLpX54w0Ra1oUfkbHvrBg+4rPLjy5J9G7wGl7P2iU3AtSPJLm1/G44U
B8s77p1A8AK1iEJXK3y+Kuu3HZ4Ak3ssy/tPrageyNsmd3ICHMfPpUedacX9
9mL74DMTKHi2Eumy0AI30zJLhosTmHG5p7Y3ugVbqJkYLbUmsHAvTtjvZgt2
vHI41Kc3gevfbwUUsbSgtHh99uYGzymge3YgO7MZei+ZVevMJxBPZ3zN/mEz
LIzGpDRtJuCuO2m3LNQMdPwIb3g9ATWFk1wny5vAK8MYpu82AT63PBell00w
/m21a/TDBLzyVM4x729Ceo3wgRcBG/k4a7M/tTViaqXrN/cGL/s4kKjd/rYR
vI/OpP+IncDFn7p2QycakVT/4qBaygZvk3f7L2W4AZUlxlvGMycQxs88KO/f
gNxt9uY+BRPoCK1fdlVpgCR1i4Ri+QTkRNZEvObqMU4lrzhVP4GzroFpV8Pr
oVI88zNig0e67moQqrtcj9MZ7U/1BifAuLc2hnu9Dp5nzF9tmZrA8siP3yyx
dZBhCy5tXZqABbtpALleB5qKEY0w6kmwvZqN3EdbBydaDaYHLJOwPMgndS2x
FuFKKv3HNk1C/I/JG5lbtQi8mNLBIjQJlpCz42UMtTjXOz7ctXMSH4Jqs4SS
a9AhkbyasX+DJzv2HBPTq4Fi/lamANlJfGSZ/N7JWIO9gcE0zxUm4XWF75JG
cjWMd1B2GJyfxC9Jhkc2utWgVFN7p6YxibwTa6c1GKqRNlxGcUxnEtSFPzk7
EqvAlcGya4/RJLguX2HZdrMKfbm/prc9nMSmKfMH7DRV4JMJucJvPYnXlmv3
EmIrYZP0W5rn1SR2SB47RKlZicc9c6+4/5uE+ouIZYrVCvToXJPg/TAJG5mV
kbjwCvil5/NuCZhE6put0kxqFdCfETgoFj6JSQPOnu195Vj8uW584Mckwnd6
h7gdLAdFzrDfqV+TeK/c2XbmVRki9Jh+XsEkVD7O1l8rKYWD8d5PJoWTqM32
y/nNV4p7+9K2v6ycBGOYfJmpQQl203op+jVNQuBfz3az2GK83LxSkdI9uXEf
p3tTZ4ugkfn5R82GjjoQJSp18WQR3kYeTJmd3dBFdZp8+53/IfxMeg7/+iRy
rtt91ywtBGcob7wcwxRiLU1HCXcheuMZLxtyTqHLinQ9vPEX44TjuYfgFPIn
M17f+lKAP9+P0v7aPoW3MlvT3bry4SK3+LtDcgpyHXPWM2L5YPiyYsgiM4XA
F+/9fO/m4XjpbJWs/BS4rsovPo3Oxdlqg39GKlPYKnz4rstwDv5+V2f+eHkK
TeP68aV7cqA6w3SdaG/YI/Kep82yoXKz03T0zhT0tidh5DvBya3pSwIPpsD3
KKL9dTnwgi8z7bTVFLqpnd1fnstC/da6q+YbOleEjyqzNDsDRSMnnvi5TsE/
61GAiWw6PFWbUsj7KcRoCB5X+ZEGoxX/X73+U2g/1h5oKvwb4iVh9AzhG/lF
/v749/4XkhT1pcV/TKHNP/CMPmUK7gzc/qX4awoenK/2SDxKQqgRFYM2ppA6
8Ix5W3MiXqinvLu/oduFC6hfnTidgGHhsVCbyin8Kj4usKD9A1vGHru/appC
YYH/iQTxaISW1dm86t7Q5RlqvD4TEQiMLnN6NjIFlwK/7V9SwuDi7hthMjsF
+8W+xAyrYCR/t/iutjaFeLUb6cUm/hvnWyO6k34aswtFopubPmJJJ1xzin0a
YvqNnF9c3aDftpcmnn8a/t1PKo762W7wQmmqGyLT+B/esTLP
      "]], 
     LineBox[CompressedData["
1:eJwVlHc0140Xx2VEKUUZUWbKiIbiobgfo6UUSulJWdE0GpSohJSUZDSUnjw0
5CmRrOQaGWWljFLZe/NZ3+/XFz+/P+65f7zvued1zuvcq+LiZesmKCAgUDZT
/+8yPy9H/8i9CD/2LdE/sI7Ee3cFz/+uuAlxbuIxb4xIZB8NM0XqMUDt3lA3
Ykbibfuay7uH48DaTT1FaQeJRjKiOY0tT6H1+4Yx2EOi2N3yc9M7k8Cl6Ka4
7UESM3KCjF/nvwCdG8Zy+11JvNTSEj+yPgUuH9siYn2SxDdhP5zrU9/A47uD
8cZnSYzyXlqZKZsG+a57o5X9Sbz6RO5Lx890EPXaGsQNInFU0++835MM0P1g
yZbfnOF98+rTFbdMuGoef/pOFImt1uWlU7rZsKrXz80qjsSSUwHZU7wcWJtX
byz0L4knhnt41z9/gJAUPJSWTOKzoEiZxLiPoHXgoop9GontI3Z59p4Iz047
t7DZMzwuBh32/xbApdfPeyMLSJT7O/Pxr4hCGDs6EqZWTmLY0STVnIAi2Ovw
U/xtDYkwvVGNOVkM3pdOvtNvJJHDCXa97/AJfFJ9i7KaSew4044Ju0pA07bv
vF43ibrmGavkzUphuEd24ashEi00+jJFDMpgMoX/SYEmUaojKeS4TjkE3Paq
vsEnceRoV72l+mdw/7jfZUyIwobDuiKpil/AvrQxw06cwlYFoxuPllTAF/Yc
570Uhdk2b0elZSrBu8rosJQ8hWeS2wfVFldB1p8m6ZMqFA6E3tlWsagaAko+
WxVoUJisnTIkKV0DmmcP6EmtoZAsuD8+Jf4VlFfUjjsZUKjsxk2xjPgK+48H
Z/1nQuGaj0VbvSRrwXlrewq9mcKbpeETXrG1sGzwLnejFYXxleskrOW/QVG7
3+creykU4u/7IfX0G+jI1psXHqRwl1bjpw8rvoNaPhEp4EqhJH+vza4338HR
7Eu98QkKxx7mSVTr18FNG76R32kKecq1CSYFdfBaeaAr/QKF62fnFyda1gMx
Cfz+KxTmP35tNquhHrYZWySqXKfQYuKI4EGXBjj+z8D0voiZfb5d/IyRBojT
bNYPj6XwFrXIfNHlRrCIuXoq/zGFslbuk37zf4CLlWDJaCKFH+fdPzUU/wNA
yeGIagqF6dWO/adX/4QlIS6ee9Ip5F4z6hcv+glr3pbPDsmZySc0eWjXBM//
1rTJKKDwd1NYcVR/E7jvlDjdWUZhWly3eFjgLzicx4YtrqGw8OWf9y9kf0PF
FVe0aKAwd9XsIjL1N1gvrlvv84fCiq/tu89s/wORYY3zn3dSeJj8/USj8w8w
uyU8GwcodM/evmBpYDM4jK31m0PO+D3hp2a7rAWsshX2bOJRaPCmNvDrhxao
tqxQ8p5F47pgvwvVOq2QsMlD6JkYjXOW+qQdvtwKm+KdVX8toLFOwoB5VNMK
VdfMEqRkaUw0j3ULU2mD4lf9STsUabQ+Mk9P61wbSNL+tqHqNDrbnn1xtawN
qla41xStotFVPVMlWqEd/ovwMJ21nsZZ0g9lXbzbwbM6rdp0I4066cEy4yXt
cDkrIz7EjEaVlr2ftiztAK6pc/3n7TTKMdDqerYDhBKk4iVtaHwb987cqqID
RP0eLXWwp/HWe8uO2cs7YdZGq4BkRxpjlpfXxFzqBNnk6U6uO43GqcsMJho7
QfuGXKCVJ40vfl12M9Hrgs9B0eeTfGh8vDmw1OVOFyiYzmWmAmgM0bDoPjU4
k+fmrTgUQmP/t4wzzpbd0Fb6cAOG02hVUbVpc3I3OA5v3a0eTeNqH8pw2Zwe
CAnVTbgTR2OJnPO14eM98FT2yoGpBBp9/3ronF/RA++k4cXpZBqlN/ANo3R7
4feoTW7fWxr373RN8orqhfig4GL3bBpLpRtcHNheKG+OonqRxunUvW6HD/WB
eIRxoHcZjWx/doX/pz6wN9wRN1k946cytSd3VT/0VD48H9lA44LhShPVe/2Q
I6+1S7OZxk7jnFvZAgNQJ6xjV95Fo1L75ZKQUwNgYyBZ4jE040eAko34OQAJ
/ncbl9A0JhzZMvpr6yBopRaXVfJpDJd9xfPJGgRrd41vocIMSq/UWXFEYwjC
tn1Yv20eg+XC7168iRuCttXCqyUXM2gvLT95SGIYZJZoCrYrMPjaIGL0YvAw
/B4TGMtVY5DZIv5YgjcM8ntWEo+1GVT8JuWhemYEqvUl9UP1GNQNe6BRMDAC
YbmqCn4bGZx7N4a9oDcKgtMlhj7mDCp0v1BuOz0KywyDmy/uYDDZUklQMW0U
uKLy9jf3MGhj4Wi+YWwU1FY8ZhMPMpi0T7941box4NwOW1juymBRQVLc3HNj
4Ko1zGFOMrgh8KtSfeYYxK6+OmftOQYjejT6onhjcM+wNN43gMGugx+/WsI4
iNqsWVwewqCIagUrdG0ctDlbqtVvM7j0QuiXkopx6HOvWhMZy2DgP2rCDxaR
IKY4mCj6hMHQtuXvghxI4E46RN96zmCnDGkc8ZyEIck4T6VUBrlZpUeLx0gg
zRYkF2Qx2L2o107bhILMVbtzvQsYfNtnFVsTTkGDzQ7FNZ8Z3Lb/X+XcJgqy
yDt207UMejRkutNaNNxpDO5qbmLQqt3b5lYADQ8s/7Ov6WCQX2dodbOGhqk8
2qR2kMFjzyatJ9QYCLebpdtFMyjnVNI94MfA9t7zheLTDObHTKw/XstAXonL
o81iLBqdOSF2VYuF8fabR6IlWXQUEWkxvcaCXl9zJS3Pog8VQea2sRD6uTXc
YzmLMcRflnzggOZVBecJHRbTBDbnyzzlQF11wuKnBixKfv+1cKkgFwZS7p13
MGWxukmOq+jOBTvfgiNrd7CY+DZ0g14lF3qqVxYq2bFokqb6j8d6HkxZFwdo
OLLY9VrGpPMJD9zd10bvPM7iHJP9Tm/EJ6Dz36vzbp9lsW/sYHrnxQm4vmnB
VP8lFvsDdf5OGJyAKnfP8KM3WCyi50sLOPPB+Y5nj1A0i+aDovaKP/iwPVfP
rjCenbnnvLMKtpPwKOS4ZsJLFl9af/8gVzMJbS+jKpLesXhm+5V0w91TMElc
yKrKZ7G85sFfSd+mgO+Vd3nZFxaTFnUWBR6Yhq0JMV9i61nsVdeN5XVMQ8DS
t4f+amOxxVtIUNlQgJhwtJYRHWIxRWrqsGmQAKHv93BUiMtic2KqRECVAGF+
TWXOWhEOnnLqLByUn0VMxpT9EynJwa/3nZzST8wiIvx/yasrcnA//dBsOG8W
cT8yYe6YFgeddSrPfJIUJOQNQYc14OCue+HMweOChJ2u0lmjzRxs1dBRbSkW
JG6ItAjl23Kw88Ej1l9FiFAIbzK/5sTBfpsrUUeChIj8NR5N0Z4cDHk/lVjT
LUR0W8zOGQrg4P0DtQLcXcLEa6l1avfDZ+alxi1UPwgTlc8KsmLiOHgiZSQy
WluEmJy30X8gmYN5Ch/dHj8VIcS4bR1PcziYnctPipGfTVwXvtST+5mDx4xX
fvzzcDah7GsjTjTN8Jlmzu1UFCX0v77yNRjgYNq+Qj/lV6KElNYFsWQ+B8ef
efjKbxIjYnOfesdLcPHoKjeTE/ViBG3bZKWowkVthahXH3znEPffCdjor+di
q7PInVrluYRP/pqjY1u56L+jqTGsbi5x1NBi0MGBi5GhbGx7lDixdHFRz/XT
XHxpNgcEDs0j5HzZfcHXuWir0Xxxw/r5RHx+2XWXJ1xM3rONM09eglC/PnRj
YyYXnZykx+wWLiD4w2KZK2u46BWvrhY3byEhYLjymEUfF3NpKYx7tJDQOlHU
8E6Yh8tkkk0y9SWJkMJFRk9UeOh2d4d9RYsk4fT+2xY9godmDwIOrHwoRXj7
Bq34z4mHKhWnrZPdFhF3VBKVdwXz0DPvfQ+5bTHxQCzJwvMlD71Si6veb5Um
nDN+3/X9ysPnp3hl0sdkiGGBnceGJngYvUnO+EC6LJF+fs+9QO0JVKT7nw+v
XUKYd3Xtk3GawMa9xo7arDzRtDfvem/cBLbvVN7uKL+MkH+gdS79zwS+sQ7U
f16oRCRULakU1OZjh2/A5nP3VIhmE/+TTaF8/GV68VFDrxqxMbhWSZDDx/l1
rkX3Zn77xPQmT6fwSXTNKlJvW6JDSK3eM/fC4SlcNkcl74bmBqInI9B/9bdp
/B9w77lF
      "]]}}, {{}, {}}},
  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->{{-66.43192903964376, 
    21.162242658677417`}, {-1.988814814026506, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.817637498101*^9, 3.817637523899531*^9}, 
   3.817640201425125*^9, 3.8176403703128757`*^9, 3.8176666395171747`*^9, {
   3.817666742407874*^9, 3.817666765580124*^9}, {3.817666863393943*^9, 
   3.817666920031568*^9}},
 CellLabel->
  "Out[120]=",ExpressionUUID->"348377e3-5d2e-45e0-83a1-0bb162fca9ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"h2", "[", "\[Theta]", "]"}], 
            SuperscriptBox[
             RowBox[{"t", "[", "\[Theta]", "]"}], 
             RowBox[{"-", 
              RowBox[{"\[CapitalDelta]", "[", "2", "]"}]}]]}], ",", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Transpose", "[", 
                 RowBox[{"Inverse", "[", 
                  RowBox[{
                   RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"R", " ", 
                    RowBox[{"t", "[", "\[Theta]p", "]"}]}], ",", 
                    RowBox[{
                    SuperscriptBox["R", 
                    RowBox[{"\[CapitalDelta]", "[", "2", "]"}]], 
                    RowBox[{"h2", "[", "\[Theta]p", "]"}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"R", ",", "\[Theta]p"}], "}"}], "}"}]}], "]"}], "/.", 
                   RowBox[{"\[Theta]p", "\[Rule]", "\[Theta]"}]}], "]"}], 
                 "]"}], ".", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["R", "2"], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"F2", "[", "\[Theta]p", "]"}], "+", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"t", "[", "\[Theta]p", "]"}], "2"], 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    SuperscriptBox["R", "2"], "]"}], "/", 
                    RowBox[{"(", 
                    RowBox[{"8", "\[Pi]"}], ")"}]}]}]}], ")"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"R", ",", "\[Theta]p"}], "}"}], "}"}]}], "]"}], "/.", 
                  RowBox[{"\[Theta]p", "\[Rule]", "\[Theta]"}]}], ")"}]}], 
               ")"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "/", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"R", " ", 
               RowBox[{"t", "[", "\[Theta]", "]"}]}], ")"}], 
             RowBox[{"1", "/", "8"}]]}]}], "}"}], "/.", 
         RowBox[{"B", "\[Rule]", 
          RowBox[{"ruleB", "[", "h2", "]"}]}]}], "/.", "sol2"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], "/.", 
      RowBox[{"R", "\[Rule]", "1"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "1", ",", "\[Theta]c1", ",", "0.01"}], "}"}]}],
     "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8176326022950163`*^9, 3.8176326467232037`*^9}, {
  3.817632683971553*^9, 3.817632789027328*^9}, {3.81763283674572*^9, 
  3.8176328368685007`*^9}, {3.817632877796402*^9, 3.817632918098442*^9}, {
  3.8176329487995663`*^9, 3.8176329657972403`*^9}, {3.817633013987247*^9, 
  3.817633015478447*^9}, {3.817633052086051*^9, 3.81763311811401*^9}, {
  3.817637857064962*^9, 3.81763799340449*^9}, {3.817638044949687*^9, 
  3.817638084808195*^9}, {3.817638153127841*^9, 3.817638168358132*^9}, {
  3.817638399473373*^9, 3.817638412536726*^9}, {3.81763844666143*^9, 
  3.8176384666464853`*^9}, {3.817638593096958*^9, 3.817638600437099*^9}, {
  3.817638794437633*^9, 3.817638799137588*^9}, {3.81766678228234*^9, 
  3.817666782527095*^9}, {3.817666937000008*^9, 3.817667042110792*^9}, {
  3.817667191974594*^9, 3.817667193333255*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0.`\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 126, 106, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.817667193780019*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"216842f7-6b1f-4b0e-80ad-7561735930ba"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"", 2, 126, 107, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.8176671938444023`*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"19c5d1c8-bbcd-4f5b-83f4-3116397aae1d"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"", 2, 126, 108, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.817667194427414*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"bf3fa7a1-a10c-4f34-b799-15feb6fd9a94"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 126, 109, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.817667194492173*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"8301d9c6-5667-4e0e-babc-34891d14958b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \
\\!\\(\\*SuperscriptBox[\\\"\[ExponentialE]\\\", \\\"ComplexInfinity\\\"]\\) \
encountered.\"", 2, 126, 110, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.8176671945907*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"ccae7427-68ca-4f65-9f6d-4dd2dc4b639d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \
\\!\\(\\*SuperscriptBox[\\\"\[ExponentialE]\\\", \\\"ComplexInfinity\\\"]\\) \
encountered.\"", 2, 126, 111, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.81766719464719*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"cfcfd305-6369-4d0d-ab91-323656281a2e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \
\\!\\(\\*SuperscriptBox[\\\"\[ExponentialE]\\\", \\\"ComplexInfinity\\\"]\\) \
encountered.\"", 2, 126, 112, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.817667194702935*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"ddee7f30-4b8d-49f3-a238-e8df9057bfed"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 126, 113, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, 3.81764020582121*^9, 
   3.817640383596977*^9, {3.817667009401268*^9, 3.8176670429767323`*^9}, 
   3.817667194761594*^9},
 CellLabel->
  "During evaluation of \
In[126]:=",ExpressionUUID->"456dde30-b84b-4cba-9cea-4c2b7080bc35"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAXyvpKMz9Y0C3QrnA1uv8P4duXZXX
ukRATsZLEVmq+j/FNok+tV8yQAOXrRW2e/k/7JgdMwI9JEDgdVDnWrb4P/OO
+rInDxlAj0txbxUo+D8Z7FlFLawQQCQ4FoVhu/c/1pSFi4JEB0CwfSt4G2X3
PyVK9yBJxgBA0W4S7MYe9z/hq0CKo7z4P+NUHMNL5PY/oJ6RF3OD8j+aBFX0
67L2P4wniWVN9Os/raIla7uI9j8DwhD7ZSvlP/Acw5pUZPY/Sy3Y1o353z/S
YpwBrET2PyVjsO366tc/RZN7kfQo9j+E8fo0go/RP/XATtiNEPY/VdhPqeb1
yD+Yob8N+Pr1PzvEy3qJwMA/ayjL08vn9T8MgJn33R20PzdIJ1y01vU/VAtC
Nc44oj9iCJYia8f1P7PGnD4=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.3363866177721921`},
  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, 25.0053870624539}, {1.3363866177721921`, 
    1.8075778511303449`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.817637498101*^9, 3.817637523899531*^9}, 
   3.8176379865886707`*^9, {3.817638080223015*^9, 3.817638097089458*^9}, {
   3.817638411035137*^9, 3.817638418380022*^9}, {3.817638453141902*^9, 
   3.817638469864127*^9}, 3.817638603759224*^9, 3.817638801668243*^9, 
   3.8176402094564*^9, 3.817640385397132*^9, {3.817667011743911*^9, 
   3.8176670445182667`*^9}, 3.817667195320567*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"f0d61600-5eb6-4f8a-9c60-ac80b53c708a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"h2", "[", "\[Theta]", "]"}], 
             SuperscriptBox[
              RowBox[{"t", "[", "\[Theta]", "]"}], 
              RowBox[{"-", 
               RowBox[{"\[CapitalDelta]", "[", "2", "]"}]}]]}], ",", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Transpose", "[", 
                  RowBox[{"Inverse", "[", 
                   RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"R", " ", 
                    RowBox[{"t", "[", "\[Theta]p", "]"}]}], ",", 
                    RowBox[{
                    SuperscriptBox["R", 
                    RowBox[{"\[CapitalDelta]", "[", "2", "]"}]], 
                    RowBox[{"h2", "[", "\[Theta]p", "]"}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"R", ",", "\[Theta]p"}], "}"}], "}"}]}], "]"}], 
                   "]"}], "]"}], ".", 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Transpose", "[", 
                    RowBox[{"Inverse", "[", 
                    RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"R", " ", 
                    RowBox[{"t", "[", "\[Theta]p", "]"}]}], ",", 
                    RowBox[{
                    SuperscriptBox["R", 
                    RowBox[{"\[CapitalDelta]", "[", "2", "]"}]], 
                    RowBox[{"h2", "[", "\[Theta]p", "]"}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"R", ",", "\[Theta]p"}], "}"}], "}"}]}], "]"}], 
                    "]"}], "]"}], ".", 
                    RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["R", "2"], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"F2", "[", "\[Theta]p", "]"}], "+", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"t", "[", "\[Theta]p", "]"}], "2"], 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    SuperscriptBox["R", "2"], "]"}], "/", 
                    RowBox[{"(", 
                    RowBox[{"8", "\[Pi]"}], ")"}]}]}]}], ")"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"R", ",", "\[Theta]p"}], "}"}], "}"}]}], "]"}]}], 
                    ")"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"R", ",", "\[Theta]p"}], "}"}], "}"}]}], "]"}]}], 
                ")"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"R", " ", 
                RowBox[{"t", "[", "\[Theta]p", "]"}]}], ")"}], 
              RowBox[{"7", "/", "4"}]]}]}], "}"}], "/.", 
          RowBox[{"\[Theta]p", "\[Rule]", "\[Theta]"}]}], "/.", 
         RowBox[{"B", "\[Rule]", 
          RowBox[{"ruleB", "[", "h2", "]"}]}]}], "/.", "sol2"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], "/.", 
      RowBox[{"R", "\[Rule]", "1"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "1", ",", "\[Theta]c1", ",", "0.01"}], "}"}]}],
     "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8176326022950163`*^9, 3.8176326467232037`*^9}, {
   3.817632683971553*^9, 3.817632789027328*^9}, {3.81763283674572*^9, 
   3.8176328368685007`*^9}, {3.817632877796402*^9, 3.817632918098442*^9}, {
   3.8176329487995663`*^9, 3.8176329657972403`*^9}, {3.817633013987247*^9, 
   3.817633015478447*^9}, {3.817633052086051*^9, 3.81763311811401*^9}, {
   3.817637857064962*^9, 3.81763799340449*^9}, {3.817638044949687*^9, 
   3.817638084808195*^9}, {3.817638153127841*^9, 3.817638168358132*^9}, {
   3.817638399473373*^9, 3.817638412536726*^9}, {3.81763844666143*^9, 
   3.8176384666464853`*^9}, {3.817638593096958*^9, 3.817638600437099*^9}, {
   3.817638794437633*^9, 3.817638799137588*^9}, {3.817638894386457*^9, 
   3.817638959881351*^9}, {3.81763900605718*^9, 3.817639007860661*^9}, 
   3.8176391897006083`*^9, {3.817639366190852*^9, 3.817639373670949*^9}, {
   3.817639408490509*^9, 3.817639409929799*^9}, {3.817639455026854*^9, 
   3.817639465324203*^9}, {3.817640238475677*^9, 3.8176402389305267`*^9}, {
   3.817640391548546*^9, 3.817640391871228*^9}, {3.8176672347145987`*^9, 
   3.817667293531107*^9}, {3.817667331524941*^9, 3.817667335774218*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0.`\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 129, 130, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.817667336609736*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"b34a59d2-df83-4bcc-8877-f7287b9c6b63"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"", 2, 129, 131, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.8176673396722183`*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"f90bbc2c-a921-4f2e-80fc-1fe79d36f5ed"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \
\\!\\(\\*SuperscriptBox[\\\"\[ExponentialE]\\\", \\\"ComplexInfinity\\\"]\\) \
encountered.\"", 2, 129, 132, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.817667339725185*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"0c5f9a46-bb7f-4f2b-873b-5f8374387e5b"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"", 2, 129, 133, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.817667339779063*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"9152de73-1d17-4288-821f-53b3ff3cd6a3"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 129, 134, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.8176673398380413`*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"da8de725-4d35-4371-8f8b-200846f7fadc"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \
\\!\\(\\*SuperscriptBox[\\\"\[ExponentialE]\\\", \\\"ComplexInfinity\\\"]\\) \
encountered.\"", 2, 129, 135, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.817667339891858*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"77c72bca-73bf-4da0-8420-b2d771db650c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity", "indet", 
   "\"Indeterminate expression \
\\!\\(\\*SuperscriptBox[\\\"\[ExponentialE]\\\", \\\"ComplexInfinity\\\"]\\) \
encountered.\"", 2, 129, 136, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.817667339978014*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"0ab865cc-63da-43d9-be96-488dae3c11a7"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 129, 137, 25019439459511732134, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817638449730116*^9, 3.817638467379733*^9}, 
   3.817638601228196*^9, 3.817638799584732*^9, {3.8176389311200447`*^9, 
   3.817638961027931*^9}, 3.8176393754003963`*^9, {3.8176394554804564`*^9, 
   3.817639466763811*^9}, {3.8176402126638117`*^9, 3.817640239353836*^9}, 
   3.817640392303451*^9, {3.817667279098195*^9, 3.817667294232696*^9}, 
   3.817667340071809*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"d6d0804b-e464-4f31-9989-db903712ce18"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAXyvpKMz9Y0DTbqmRxAFHP4duXZXX
ukRAO6YZ8mUCYz/FNok+tV8yQAsGLqnC/HI/7JgdMwI9JEDfJY01st1+P/OO
+rInDxlAm9WAac1ohj8Z7FlFLawQQGJo6wwlTI4/1pSFi4JEB0B9iR9ISX+T
PyVK9yBJxgBAmoJLhfc0mD/hq0CKo7z4P+dDMRynPZ0/oJ6RF3OD8j/dLgSX
nEihP4wniWVN9Os/x4zHOl4UpD8DwhD7ZSvlP2+323gr/6Y/Sy3Y1o353z+f
1U1+nwaqPyVjsO366tc/Mw8Nk+EorT+E8fo0go/RP0iJ88FYMrA/VdhPqeb1
yD++YNy8v9yxPzvEy3qJwMA/5XpMo8qTsz8MgJn33R20P14+RbouWLU/VAtC
Nc44oj8zvgeScSu3P3GfkeQ=
      "]]}}, {{}, {}}},
  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, 25.0053870624539}, {0, 0.09050664725486328}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.817637498101*^9, 3.817637523899531*^9}, 
   3.8176379865886707`*^9, {3.817638080223015*^9, 3.817638097089458*^9}, {
   3.817638411035137*^9, 3.817638418380022*^9}, {3.817638453141902*^9, 
   3.817638469864127*^9}, 3.817638603759224*^9, 3.817638801668243*^9, {
   3.817638950488543*^9, 3.8176389801125393`*^9}, 3.817639384560536*^9, {
   3.8176394648201838`*^9, 3.817639475564313*^9}, {3.817640221335127*^9, 
   3.817640248053196*^9}, 3.817640401002247*^9, {3.81766728274492*^9, 
   3.817667297661644*^9}, 3.8176673405798473`*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"1007ec09-f8b7-4f86-9778-7ddc0fddb31f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g3", "=", 
   RowBox[{"g", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F3", "=", 
   RowBox[{"RF", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"eq", "[", 
     RowBox[{"F3", ",", "g3"}], "]"}], "[", "3", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
   3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, 
   3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
   3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, 
   3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
   3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
   3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, 
   3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
   3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, 
   3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
   3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, 
   3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
   3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, 
   3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
   3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, 
   3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, {
   3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, 
   3.817626282042306*^9}, {3.817627870666265*^9, 3.817627904779098*^9}, {
   3.817629704809123*^9, 3.8176297360288*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.817632399208988*^9, 3.817637443451262*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"0e837164-3793-49da-bdd0-d4f51cfcde79"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol3", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{"eq3", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"A", ",", 
        RowBox[{"A", "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "0", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "0", "]"}], ",", 
        RowBox[{
         RowBox[{"FC", "[", "0", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "1", "]"}], ",", 
        RowBox[{
         RowBox[{"FC", "[", "1", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FC", "[", "2", "]"}], ",", 
        RowBox[{
         RowBox[{"FC", "[", "2", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "1", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "1", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "2", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "2", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]c", ",", 
        RowBox[{"\[Theta]c", "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "3", "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "500"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
   3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, 
   3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
   3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
   3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, 
   3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
   3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, 
   3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
   3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, 
   3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
   3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, 
   3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
   3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, 
   3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
   3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, 
   3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
   3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, 
   3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
   3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, 
   3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, 
   3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
   3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, 
   3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
   3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, 
   3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
   3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, 
   3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
   3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, 
   3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, {
   3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, 
   3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, {
   3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, 
   3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, {
   3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, 
   3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, 
   3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, {
   3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, 
   3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, {
   3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, 
   3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, {
   3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, 
   3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, {
   3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817627920512431*^9, 
   3.817627961648692*^9}, {3.8176289379929667`*^9, 3.8176289382553997`*^9}, {
   3.817628977854362*^9, 3.817628981182324*^9}, 3.81762904026398*^9, {
   3.817629751676261*^9, 
   3.8176297825415983`*^9}},ExpressionUUID->"396a3ca5-637b-4194-943d-\
7ec379bcf47e"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "cvmit", 
   "\"Failed to converge to the requested accuracy or precision within \\!\\(\
\\*RowBox[{\\\"500\\\"}]\\) iterations.\"", 2, 81, 32, 25019190250911170972, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.817628956297529*^9, 3.817629002758065*^9, 
  3.817629055942992*^9},
 CellLabel->
  "During evaluation of \
In[81]:=",ExpressionUUID->"9a92db76-2a3a-4c87-9b65-03195ab7f92a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "\[Rule]", 
    RowBox[{"-", "42.9483737001412`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "2.867404604750972`"}]}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "0", "]"}], "\[Rule]", "19.25519435922342`"}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "1", "]"}], "\[Rule]", "84.12814075220349`"}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "2", "]"}], "\[Rule]", 
    RowBox[{"-", "144.60347357786114`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "43.371259927071165`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "98.30234397173395`"}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "3", "]"}], "\[Rule]", "142.15608968941217`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "3", "]"}], "\[Rule]", 
    RowBox[{"-", "51.32768903768098`"}]}], ",", 
   RowBox[{
    RowBox[{"FC", "[", "4", "]"}], "\[Rule]", 
    RowBox[{"-", "43.63797646409232`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.817582243098262*^9, {3.817582385638481*^9, 3.817582397851478*^9}, {
   3.817582440404005*^9, 3.8175824479120073`*^9}, {3.8175825951659813`*^9, 
   3.817582624284917*^9}, {3.817582771007656*^9, 3.817582790104224*^9}, {
   3.81758295912363*^9, 3.8175829694259653`*^9}, {3.817583027875955*^9, 
   3.817583190779282*^9}, 3.817584063702273*^9, 3.817584867935519*^9, {
   3.8175849339417667`*^9, 3.817584980641724*^9}, 3.817585038615395*^9, 
   3.817585139927609*^9, 3.8175851869224243`*^9, 3.817585430610086*^9, 
   3.817585477765168*^9, 3.8175855203843403`*^9, 3.8175855792410593`*^9, 
   3.817613703655264*^9, {3.817613820666153*^9, 3.817613850447565*^9}, 
   3.817613970041641*^9, {3.817616894358282*^9, 3.817616938169628*^9}, 
   3.817618971174425*^9, 3.8176190263238583`*^9, {3.817619068552326*^9, 
   3.817619077160112*^9}, {3.81761912964554*^9, 3.817619175572*^9}, 
   3.8176192081695538`*^9, {3.817619251398644*^9, 3.8176192611467113`*^9}, {
   3.817619296755875*^9, 3.8176193494538918`*^9}, {3.817619385600893*^9, 
   3.817619417396243*^9}, 3.817619473822008*^9, 3.817619517658676*^9, {
   3.817619647045698*^9, 3.817619702143152*^9}, {3.817619744218728*^9, 
   3.81761983514673*^9}, {3.8176206689279957`*^9, 3.817620689262381*^9}, {
   3.817620739706464*^9, 3.817620790926754*^9}, 3.8176208714846783`*^9, 
   3.817626520486795*^9, 3.817627350228532*^9, 3.8176277415834227`*^9, 
   3.817628956472193*^9, 3.817629002825632*^9, 3.817629056020689*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"e97932be-a01b-4712-8761-1702066ed336"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"g2", "[", "\[Theta]", "]"}], "/.", "sol2"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]c1"}], "}"}]}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"F2", "[", "\[Theta]", "]"}], "/.", 
         RowBox[{"B", "\[Rule]", 
          RowBox[{"ruleB", "[", "g2", "]"}]}]}], "/.", "sol2"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]c1"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8175672854849167`*^9, 3.8175673108365*^9}, {
  3.817567343605356*^9, 3.817567515945986*^9}, {3.817567689779602*^9, 
  3.8175677001061993`*^9}, {3.817567852209393*^9, 3.8175678553653107`*^9}, {
  3.817569677608418*^9, 3.8175696880410147`*^9}, {3.817581502775428*^9, 
  3.817581583359663*^9}, {3.817582250277421*^9, 3.817582268443882*^9}, {
  3.8176137509420633`*^9, 3.817613772032806*^9}, {3.817616947220008*^9, 
  3.817616967115974*^9}, {3.8176195353257837`*^9, 3.817619546043696*^9}, {
  3.817627764775979*^9, 3.8176278238158283`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VG0bAHDbzClJ8pZQlkKvLUoowv2kQpRkqci+lpSQkIqilxRZI2uh
EoUKlaUsUySEkew1M2cGkRkULdL3fH/N9bvmOuc85z73tt7d39pLgI+Pbz0/
H9//f78Laj8wFDhsVD0jxlfpHmykmrI2W3WtDjQpXR1ZzLGBRnQ7fUF6D+zf
0Ob/IccDEtLd09jSdjC1/KXP65wg+Na4a9WAtBe8NeiW78yJgvtHKmx6pINh
Y9ah0/K5KRBZ4BfUJX0F2OWNlmfyCuBri5lgp3Qa7K1PaXlX+BR8t+leWbp4
F+gzoQxKEg2k+p2GLQ6Vw/tzHvlezR3gvaR5tD65ElbnvGv+G90D6WzNFXRU
Ax5d235V7RoAe4u3zV9N6iE3+pb7mZ5P0Hfu3E20sQncrXPdfoqyYB9r0VH1
x2swCIgeKdrLgUodPqsbt1ogb9zP6pX/OIi5XOpqDHoH217adrrxfwXXwIiI
AJkO+C5xM2zAkAfWLkXJg46dMG254aKX4Ax85XU+9Grugkj/CM0C/m9weX6b
0yMpOujl+Flrff0OieMjto6xPXC4orL8pNgPkAz1bznE+wAq1nuqhHR+QVa4
Ubco+gjrF4fPW+xYgHTf/QoaD/ugK6czfvPpRUjoyBRexjcALUPtEfeM+NAf
GWW9A6cH4WyH7fLfh/gRZ2kea6R/CM64qWy65y6AWn1tFdXVRkBg6+djbtaC
6N9nex9+zvgEWvx9I8WmQghqjbxUQj7D7S0BggfWUpDyif1asbIM2LddhrHQ
S0HVSmLnndczwHv9j9Ff/RS0/3P3a21FBrjcvbxjfoiCAu2O2DNUGODkbUT7
wqSgOvCI1NdhwP0PZw3rpijIelVYx6QFA/arL+sTpVJReF2h78EwBog0yc45
bqWijhUL+dI9DKCJz631iaUic9MJn/peBqxsf+9Ei6Oi5osD6t79DNjlYjgq
F09F9V+fVz0eYcBwmHF7VxIVPXkX3Go2zgB18YU2+SwqSo/hTp9dZIBYTBLd
9xEVuf5lIroyE7aQu5qKOqloSLebEqbGBAk9UaP2biqyP9XQKqvBBCedXyxu
DxVZD+fZ+m5lwt6tjx5p9lPR7hrHY/xGTLD6Wyd3i0FFyiG9NzRtmNCnQHsu
PkNF01NvR65dYELn2prUzJUE2n3PNNA3kglpdtrJJf8QKMPpNWVvFBMqq1+b
Vq8mELTVq1OvMkG882VvpxSB4h88OxeZyoQDO2Y9mesJpOJ5VyK4hAnKb7XM
b24hkFt/pKVzPxNSvGwj9A4QqCJxkWEwxAQph4yjf60ItMTsfPDaT0x4NlLR
1mhNoLKqkOw+Ej9Pet1x40ME+pNy6os1jwkBERp+ik4EumXp+J8pwQIriVNF
gb4E6mra9nKzDgsO7XU/uTmKQM6Wj8b4t7OAdeTVQl40gb70bfiHrs8C7bua
Esv/I5DA1PJjwYgFdjEmrE+xBNKWJFdWW7BAR35Xq08Cfl+/RK9d7izY4To3
8TeDQIrzlMRVXiyYHCooNM0k0ONL4dVsHxbQxoI+Xs8iUOtN7xWxJ1mQkxJ7
f0UugRbqDV60hbJgZ8HXD3P5BHJdPS5y6AYLbrzvv2H+kECTec7b/k1mQUY5
7czxRwQKU+1x+5HKgnsflWhXSgmUDK+qMjNZ4Dx2PLeqnEC042mun+7i89oy
lX5WEOjflzsrjtWyYHHVcBFfHY6n2bMRvVcsCEzwa/iOjejqS5c1suCK80qd
sZcEOjK2xvlRMwuMGtpVXtcTKE58ipjpZkGMUIyGC41AU96ZR8PHWeAYUNcl
/o5AnqcM+NdNskBKYzz/PfZg8Mi92ikWKPxSkI5rI1BL9IaZP7MsEPFtnJ9v
J9Cd/OLYyEX8/4EUh2edBJIs3qexnp+Er9YbTd26CJTweIreIEjC3eo39CXd
BDpXryUnuJSE36LarVZ0AtmOVFde+YcE444pCdoHHE+249GNEiQsXSrFdegl
0M6vi3zNkiTI57m6cbE1Foz3LZElYVrPbuXKPpw/0u+Yccok6A7ujNs2QKAa
u8EViYYkaGhfNxAbIZCW04XKzYiEgKxnzpHYRZ5yR7uMSSgYPrxiCjs1yOOe
uBkJQ4fXSDV+ItCppAmDNGsSOgz/q97HIBCZEc/UsSPhV6C5wQPso7c1Y3sP
k3DAs81EkEkgs7Ig+honEqRGt86WYW9o/30804cEowNtaRMsnE89OSt2+JLw
Q+zZXm2SQCuGoHLQj4R2Wm3kOeyFL1F8MoH4vO37g/9iB84o3as7Q4K3w5kt
RmwCjf1stnAOIeGlxeTJc9gfloik550nQfissNcE9j6xUgMUQUJ0iqWsPIdA
jWusmJ8vkTA1Imdnjb1dbibmUjSOp0LHksvYpRtTN22IIeHzpQfby7AVNXTp
jVdJWB0sQPZjZ+n0hXpcJ0G7Q0VYYJRAsbvX0QqTSNj/RJlmjt37bt/2i6kk
6N/R/HkSW8HmwsPD6SQsuaumnYB9euCR/JZMEpIz4EwJ9ku3kVThHBK86AnP
X2MvGxddSuaRoKdqyDeMfeQ0XKjLJyGSe8p8GvvevP/0zbskfJs1uykwRqDZ
i7e9TheRIBHDY4phI2pX/94SEupCrmmuw06I57dUKCXh9ioUrog9uEqrcaGc
BKa6zmsVbOVsd93epySkiCWLqGOfVUgpLqsiYW/SRSs17KbiJtmrL0hIE1BI
/BdbTOtbsnstCSX6Ra3y2M4vFAmDV/h7JW/7K4FdguzCVzeS8H30l7ow9o/m
K9wpGgm7s9bZ/MLnNzlQ5dHSTEJecvPpUeyUXs7HO604nnr/XunC/uy0Zl94
OwnLI31uPMfWYJvW23aSkDRSkZCNHe4Xqq1BJ0HaxuDyBeyW2aIiopeEMA+1
40exJcL71zH6SLguU26si+0hIJxUPUjC6zU/l4til1/Vp6SOkFAWoNPKxN9z
UexE2EkGCTd7Us9WYFtkZH01IUmYDTIVj8LOkGtzkx/F+SR6MdsSe6vGJnP6
JAnDpEHYEM6vyEqnlw+5OP72Kq252B0GCVr/zZCgtN2d6ox9zIIrrfeDBNVn
MYZ0nL9V3XI3xH+TsPH3kO5VbEEHK8HJPySozR6QNMDOPfZ4IleQDRYB3okZ
uD4muAyXUCob+qRClIyxt4eI9xxcyobQ2oi8MVxP9CtBtUIr2HA6xB7UsZcU
6MT7SrNhvDhQMuEzgQ6pevPvlmGDiVjUK1nsgsc3g2Xk2eB6+eieh7iejern
nTqV2MAuOfylDtd70PALDd0t+P6yu6NrhghU7/klf4U2G2b7D4tsxRadlF4z
rssGTweVk/cHcb/4Ff43y4ANrTPLqv7D/WVkjVEnvxkbfMplrORw/1m9LutV
sTkbhCv2e8V+xPUo/6PUZj8b6ku+V07hflWj/CT+rjUbYh4dJJ7i/paht9Fi
rxMb7mzqtpfG/c/mqOibxEA2PP1gYeCB+2mcy4lKvWA2TPhsb8rD/bbRo6WQ
GcIG449e5/txP97sdzlK+wIbFl+ZRO1uxee9MIf6YthQIZxG//EG50vuSI1c
DhvUNR8LDrwi0N/8HSUteWxo6c/zG8fzQPd+RmZAPhuqTCX//n9e3C2zDmu6
zwb9trhcai2BLte/0fV5wgax6u7nlOcEMmSWPi5tZoNIT9LouTICPVGKuG84
g+O9O6nMMBv3uz/0Tf3f8PUPghjzeD4m9yhXnJlnQ568gHnZLRzvqO76kgU2
2Lw6Xrc6Hc9bhtKAFMGByN3+6xuScL5kt4nMreXAloCwyCQ8n6v/kQ4s3cOB
ttTBltWnCKQ6cerHXjMOOG5oFjrrR6DMxqaLbHMOqMnf8aXj+R8ecPLaOisO
5FHKnlzxIZDB+/rCOAcOpL3RU21xxf0nzuejtz8H/tL1j9PwftHEX2kgd4sD
tlEmfenaBBK2z0iazeLA1EcllwAtAlmXh3OaczmQqD542XQzrldn48TThRy4
vMYub1wN9+ua96yGMg6c7E/dQFHA8Tz7Jc7zDQesnz6m3BIjUPEXuf4Hsxzw
/S4irDWO96udghoX5/B5DA9czeVQ0fZbnMvWPzkw25CURZB4PzR9pP57kQO1
6utC349QEVmoH7lPeBQKV+YK6+J9TsbF7l+u/CgU7Tzg4fySihLpccHalqPQ
Y/opRjqRihruZ+7psxqF5YKV9/fh/XImvHj1eZtRWFk/9SYc7592iq2VTUdG
gZKgJtgVTUXSwUvnrD1G4e273acPh1FRgUTs2YDQUfi4J2hZjxsVVdlfCSnN
H4UzDovktc1UNPgpIkx5fhQ8fheMfadRELlVVpLyaxQKVjEXpRsoaDKmtoqx
MArLCJ8EgzoKWtD8OZspMAZjiSyp4EoKWhcZeGq56Bj8PGo8WnOXghzlvTxm
FMcgdawq+vYVChpxNd9faz0GCi2zR5qNKYjJWLXeqnQMGFk6NtlPhFDPk0/6
C+VjsLQ7XEyrVAi9iSq2LXo6BkcoYW20B0KoWAnF8r0Ygy0V+saM20Io8PgJ
bnnTGOyyuLZ5LkEICU431K3sHwP+gXthib5CSJHP34EuOA4mqwlKnJwQ8pZ9
m3LIfhzGwqcVyyIFkbJKIE2A/wuIG2Xr7lEWQPdUajKYVV+g3shkuiGaD93x
VNh+x3UC6Mze4Eulf8A+TS08RXIScuUMnx9p+QmWqcrn1dongTiabhNM+w71
7bvN8oO/gvhHm2Ll6WngLvA936c+BTcUn4z73p2ALO+hmQ+9U3D4gkz97C48
x3MfTghd5EJ01/BTVe1B0HeRPTsQyYX23s7Ymj8DMC2XyFcexQXNJWnZJ5sH
wPlO0OqjV7lwWNzeUffoAGwv1IfHqVzwex1h4hrdD18ftCQ7lXBByvNchMnw
RzhUSepV9XFBYkWK5nhxD4icPUS7NsiFtXYqLaJhPdCk22LpNsIFS5fwOkfT
Htj8vMRDhORCvPhUcSBJh2U1gfHuXC5U53wQi5eng6tr5GlCkAf+cZ6h5be7
YJW3KO2pFA+0NN9XPo9uBzJ62IS6lgfZT3ZM8ba0Q0XBw7dH1vFgYd6k7vyn
NrBjmL//I8sDo2sKtYk72uCmY8yAqSIP5saMUyrnW0HShm96UIMHNU94IpaR
LbAOzcgI7ebBxheMotsfmmDSueH2oT08cOCZN61JaILaC4kKD0x4sGUmm8Y1
aQKnGg0Vy708WFuSq0170Qi5uie0Myzx/TpmmMKFDSC/iTRXt+fBph823xgS
r0BJujfE9hQPJvc8rPI/+AyezIjbd/jzQPMTvfBFRxUYvTugbxbAg1iZ0+mS
+6vgyPm3CzvO8MBrRXah9P5KuD5Se0nhHA+qGd3IxuEpfMsvuDZzhQet0nO9
/nZlcCn8s59fDA/4gsTO9AeVgqitjCUnlgeSQtvSbqY+AmVKutjANR5kWlC/
rx4uAUefuLSGJB4425LBQXFFQFMLyEvM4UG6qkMhn30+HBQqjRTOw9erhycz
c+7AyNAXt+jbPPhjK/vNmH0bfsR7KoYW8OCfXZ8EVs3ngjrv8AOXB/h96i6a
LVy/BS9aUuP6i3ngKblhyU7IAJM7XSdsHvJg/rJ3dencTXC1ttAwLeOBK3lB
Z21wKqRWGD3VqMTfp2xT6wO3G7A+Pjy1qIoHYWpc4rdUPJR6PQ/e8Bzbw6Zx
figOWiS0tkvU8OChec6EfNR/sBCqVPenngcnzLp0Puefh6sH3XNDGnnwzWeN
QVV9KEio5kVMN/Fg58/SwFvfzsDmQUlj9hsehFAlx98YnoC6p3YKLi08KNj2
qp6n6gnm15OF+t/ywPpLwdzAVQfo9XzPtn7Hg+jCtMFHmubgYSjS3NaGz7M5
NF9P9bjR/wBE/bQ/
           "]]},
         Annotation[#, "Charting`Private`Tag$20069#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{11.532844387755102`, 0.4999999999998863}, {
       4.997223543150454, 0.5000000000000426}},
      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->{{0, 1.05}, {0., 2.9883652669978544`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {161.0393860624662, -96.9918078848933}, 
     ImageScaled[{0.5, 0.5}], {302.0639437331956, 184.7463007331301}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8FP8fB/B1pJIYOSqVFEXuJCnHW5eQVK74opIjpAMhObuQK+SIKEdy
C7lCPp8iRCJKrrA7a1WO3SiVpN/89p95PB87OzPvnc/n/X5tOnPR1ImbRqN5
ctFo/z/+4FHP1+E+oUv7/8ec/7n83XVp8ut2Ak1v0KtXtbnhpV5G8oLEQaCF
Y8ZlVVYDu1qN7pB3FGhyRhV2c78aYpLPJI5JWAAtxstoryofkulR2JNi/x/Q
VrXH5lsIozrBH8PGeaeAlmphsH1uDdq2ZWRviO8ZCNkbaDW4IIW+v9wvOiDh
BCHBGrrrVbcidDqPtaPhLITs9EsYEFVEEYsCz6Lt3QCnW+EIi+3IMs0jcpz3
PNB6DJc6/1ZHm/b02u3Nuwg0d6F7iz800dy5Dfc6tnhAyLGOYbPDOmio9ui1
q76eICXmnF6+oIdyrSrM3kt4Q8irp9VDKvooKpelfc3dB0I+bXX4u8IQec6t
2arc4As0hZvJV0WNkW5C4K8w+6sw6mToesDiOJIhn9DVn/rDsfwgT4H1Zmi5
GqONzhsINH1GO9dvc/S+Uz9dKy8YiPCEE14/rJDdHe393wNCICSXf25a1AZ1
VX2obttyDVQ3L9YnGdmhyiXLMn19r8MoV0G9+sJpFJLt7vVO4haEnzH4sUzF
Gc22Lfmc23gL7t3cHOeZfBY5zzywDXIPBakrF95w+F3R4b3vDio0hEGXqIeB
vIg7Eh/ZueaWfQQs02KGHjT3QLf5OqNs+CNBwHBFxWt1T7Sg5MKl9jQSEiKl
9n+U8EKMgNSvw7zR8L2ITYv5eRkVS/yr18y7A4p3ZaSdZ68gYtObe2FyseAy
eyp6O+0qel2xpmcmIBYS2Kc0b63yR9pDZYdeb4kDuc0DpU2HAtFmBaaqj288
MDW5uo7Oh6CpVgOeLolEeGP4RatTIRTdPOEkZOGTCLSBYqW7U6FoPevauoF3
iTAqsqU8sTwMGfPU7WCGJ0GQm82khf5tVKCj5PhrLhleTu45gRKikHO58Cup
nlTgLbEfjWDFoUU95Xc5yvehnbZqzso+HiV2Gn2Sj7gPN2+dlX31KR41Td74
ob43DYYGPof5Dt5F0rJzWwyfpMPzifWf9n5NRJwj5xtrDmaAHFL5aGWRirQT
/Q39vTLAPHdq3eKXVBQ+dLtTJzMD7vuNL9ULuY82nns8+HIhA8qdOy6klKUh
k/CR2TdPM+GvYUHKQ9mHqPjlcRn6pmywjTFqvKSahdx2adxavpgDJU4Z26t5
8pDFEYGGRrnHUKBSwRS2z0N6Doy5QLPHYMHLGZBEeUj8TozLTN5jqCVarY4G
5qNGFuvwoFkuBH4JWrGcuxCtT0peVZyfB7Vdr691K5agt99/PTxmUQiPzFK/
5d0oR8/4O/v4QwrBXdR38tzzcvRIKkf4VUEhRHgqCYX9LEdXjY/f2E0rguWh
Pvmv3J8i2Uf5zpsLi+CA3QstB5sKFGL2n9J3WgksNAotrjasQmv77T4dtiwF
bR9+/63Otag3MKxM51wpMD8rtVzPr0UJm8tuqYSUgj5PfaHaVC0SdOdVFiko
hcmgHaujvesQ97+CoIG/pVD9PtdRIaIeTcr82uiaUwZZ9/MlljQ2IHwp/kzo
93JoVtfU83z2AjkvaxnH8ZXQqxMjcJnZjAYLHVX98ithWDJlYatoCzp2lNtv
O66Es1Ju3ssPtKDdSTr8WVOVgJs+jdo+akECMhWKNwyqoHVX7TPts62oHDI9
Di5WwXRul1L/j9do0cf/z2vXGmjQlNA31OhAyWMqQj16deD0QdaWb1M3sr20
fftSyzpYdJvneqrdjaT+qJlpnasDqwUTOy+rbpRHaCRnJ9aBL1qUVontRrVa
2hsvf60D/R3mgfG0HjQcZ6AillAPkiltFbxjPUhG1/7oifHnwG0VqedX/wFZ
H37dMqWPIc292DD/UT/qu3o1SW9rIwQY2208FEVHxuSirfyvV3Ds2d8bSh0s
VLmTduxOSitoOXCPKe+YRMSpa+9eerVDQ3/ZkpID39Bpz+Bgjw1v4bLm8cvi
7t+R6am8+EHbLjDcvVKlveAnmuJ0FTm1vAMDxW9+SaZ/0PWfu+yK1/YA1zeR
6J7uRRT7ZdjcNvw96By7E7zfkguvuXKx1ZLzAb7KeSTEavHg+/663YJ6H8HY
4VL87gVenOx2RFq5qA9C+aZU6vv4cMzbVP4VtAEwtpranRK6DP/dILf76KVB
mNl/5LfQPn7MWv6QHO4fAi/bQPHmvhW4zc1cRlFhGJSUI8f1dq7EstWGRaP3
RoDnc4NQdZggVgx9eVnjwQjIJK04ZRoliNUstHSiskdA/ZWN9ESsINaeVXy7
q2QETOV8+cRSBbGpCsGJaRwBm9P14kZFgjggt3eHzvQIOPNettfsEsRf2ss+
vdk0CmtZoc83iAthqNd12uY7CsYFzhc6UoTw/JznaLPfKLj8d+F8froQrtqe
a+MYMAqRSh1V1zOFsHKukOnDa6PAeRIho5QvhNfHj+qKRY0Ci5t91L6G+v3Z
62u4Mkfh00gen36vEK4QaW7vaxuF9l5Fnr9LCXzJZF7fp2MUbn/JL2tYTmCF
28ovRbpGIWZd2I+gFQTOWkyqMfkwCtu5vLT+CBI47svZnKaRURiYiitniBH4
AloeXPp9FFR0gxnu0gSWO3dELVySDg7S3nNuOgSu3UIEnNxEh1Sq40gBgY+M
dr9Sl6HDBO8D1/d6BPa0sLKmb6PD+qgP4xoHCPwcHEL27KRDo+mDGZYRgU1F
/d5OHqZDUU9Fw8wJAvs/f+R23I8O7O/rZCsvEVjwytkK2QA6FIiE8Kt5EjhD
TX7xbxAdXqX1SxZ7Ebg590lcwU06yKdu70v3ITARX1vDE0sHv3FmoGsAgR85
d/FVPabDO3b12vwwAr8VWsiSeE+HrzOnm16lEdjo0MRZ3EsHDa7p/TPpBG4J
GlB07qfDmkeKmzY8JDCeqqkqG6bDMP+K2fOZBC5v924z+EIHdYuLn//kEDg5
jP3NZ5Gq5+3jutYSAp/+x9DrkWOAXIqopDQi8JBG9xI/BQbcEOG7JYEJbH3h
RZukMgMWdP20iRdU/Z8emrvtYMCjxSP3514S+ECdrQuXLgOupz5c+aSZ+r99
e++omDHAKWrD+bcdBP42/Xo4MpABglPjTk0D1PmPD3m6hTCg0/WMSuIgge/Z
vVpieIMBOUYJbIchAsMbrMh3mwHeUnqmfz4RODq/+mpIAgO6emvuCtMJvM0x
R9y7kAFa660zBlkEDlgnXWBWwoAPQX/SI8cJ3NWdoaNWxgBPxyWRuz8T2Hdv
miO7igErNoRvv/OFwK8k75a7vmTAbdHP2ZsmCWzfH2Jysp8BaU276hkcAlfE
LtK1hxhwbWWxv8c3Ai8zCPBeN8KAIotE6UXKT6p80/qYDLgaLaggPEvgv3cv
fDXlUN9zsQQkfxD42OHJwO2zDJBfvYM3jfIjbjdhYo4BQ3Jpo6vnCHzYw0mz
4w8DZPo3HFr+k8ApJrahh5aS8LTcG3X/IvDkkoG1W/lJkDym8R5+E1jv+Yli
3pUkbJvqaSugPK5g9v7FKhI6R1baXp0n8M7lRpu1JUloUHXhoS0QOBy3VEps
IuFf/u91tpSHfA8a/pYm4XX8XpEqyjdYepeqtpFg/sIlzeEvgd817mpQ3UmC
cLOlYM4igU+aFH/m0iQhL2B7zTTlr32bRXr2kKC7Ofq4xj8Cc0+vdPHWI6H8
jO1xRDnmyo14/f0klAasq6bRhPE6nt/1q/VJMLo5w69HWX0NU7j2MAm+Ljf8
ayjjLGvtSBMS2NWRyd8oH1HqdLY9ToLcoEGGHJcwdt5XW7doSULhves+sZRn
3qiwOq1JuP7w2P4XlINP5BCZtiQkmfn8YVO+5x7rtP8MCXW1FxUPcQtjmZ9L
YkWdSJjtT350kXLZNf/asbMkrAzGfEmUdQW+MavcSAh6l2BaS7ktyVko/DwJ
d6xx2BBly01Du60vkZBJY+csUCYLjzvKe1H1CHcUSfAI4wWs/ezNFRJ2XjPy
OkY5/HA5me5Pwj27A2oulMV6ZQUvBpGw50FWXyDlrNPpmnrXSKjxEXGOo6w8
scpB+CYJooEHB7Io13qHRzNCSRjOH1cvp3yItlj99DYJdlb53ojy+wgvxs0o
Etr196S1UT4t9kXA8g4JAUlGeT2UJx+e3CUbT4LAm4iUAcp+8u/tfyWQkNJZ
eHGEMl+lYdTrZBKmJk/KMyjHA6pKTSWhuMfi9f8t2aZOP5dOQmTyPmM65ULz
ghU6GSRcLP1Y/omy5shGDcFsEmrnWxY+Um5yTTw9kkOCdXXzti7Kx77zR5bm
UfVEhe1upvwpKKTyWiEJ+TcaFGopuy2fGzEtIYFbUIpWRHnu7jl+mTISXGn2
VfcpX5ekq/94SkJZoobJbcqC+ZanmqtIuHDBsuUy5dQdb24nPyNBKs5n00nK
sg17K1zqSXByO2J7kHKFQfXwbkSCfEecrzxlvR7F5StektA7M++5kvIbu6wd
Q00khPnrmUxT79Pq8+qTxS0kbL8gsbyDMtMzOjyojYQRzb3Z+ZQ9/nI/PdpB
Qn/p+fU3KUesml46002CCs/zAjXK4ukOao0fSFgVY4b4KGfL9tsm9JFQIPux
rI9aj/XaTWUaw9T1Tsep+FCedk618f9CrUdsE5pMrXfHC9pc6ydJUAueLjlJ
edB7+HH9NAlut9LmpSm33tw883eWBPvey/N51P7KzCoID1mkrid8PCmN2o9r
CoyVN3Ex4YjL3DtzyjFl0z0veJiwcoWoygrKV7HaRp7lTKiomjT2pPa3+XBt
5S0RJvTOJwjLU/u/bczWZqs4E1zf+Zv1/CHw3qlFWssaJszqGFdepay8sM94
mSQTXOI+f2yk+ssyiXZGhBwTTHf23f1/P6qzGBSK1WFC7vzE8yGqv6nZBVaq
6jHBcJvH57OU8xw32rzbx4S3zjTVb98JnODl8HiVARM60mPFFql+eSFuQjvR
lAkarj07uWYIvLnjj2vqWSbE/Xn/uGiKmgfv04W03Jjwt9E7Zi1loSGoHHRn
gsr5xNibVL9e+HqDtsGTCdvMa0nzCQJ/WCaQ/DCACYvCUS+GqX4ffmB906M4
JkxGz2slkwTubTfWDEpgwmOtmMe9DAJLmwUWnUhmwsJcdI8I5Qb74QT+dCb4
KytdDhsl8GxQhtOlPCZE14W2m1Hz5+QzmaXaiAnMOxvKQnoJXKhn4S/2kglb
uZRV0z4Q+FfLLfZ0ExO0hY5frHxP4Lu9rI+ZbdT9sKESvZvArbN5eUt7meB1
MuDRhk4C71BWMuqZZIKmHDjJtxA4pNKuoYjNhCedjN5N1Px8qx2jFjrDBMWm
53yrXxHY5TBbYvcvJuw4XpExT83bBy5lEw94xuBa/J/axw3U+8neGe0mMQaa
f2y84ysJPLxat4vLYAyypJ8HV1PzX2z9fVRgNAZWu8UEAjMIbCz1q8TsyBiE
uQs81KPyQp1ceXSO6RiIP6vre0Hli3u7tx42tBsDkevnU4uSCWxmI9gc6zkG
FgMcU+loqp4Hw3Ub08fArzYnKpHKL/+ytApbH47BXv1e1jpvAmvk3kv1yBoD
t/mIQxlU3sl5YurXmDsGHj4p67OpfHQdN2ucLR8Dz5eC4nFuBNZhlJSVtIxB
jzX9iOBJKq9sCc7VmaGeZ+dP6Zj91Pr426PU/30MfrU+ERveS+D493IVl39S
9U9sk1ak8prXjW5cuDAG0kdK4l5qE1idvmVg7VIWnI2XRH07CVyV9kZgbh0L
trNULhTIUvlPRMKz5CAL7OKDWkgqXzZyVWpvTGFBzrI9e9zihDC/9b242fss
sCEeX6+LEsKmpf6slgcs6Nqf4bosXAiPntwXe+kRC255rhFLDBLCC3Wd5Isn
LDBXNWH7nRPCGj5fIxybWfAtLknS84AQLvi6sT9/lgV37erXSM0K4tieCG91
k3EQFfqlmLBfEL/ITT3Yd2wcFC2/XlLXFcQz/gViAWbjILi4wPdOUxBbyLRV
NlqNw67VhOI/JUEs4b18ztRhHA6b/TunskYQZ4uH+3hcGYceD47l6MRKXGV9
y7ckaxySXDkl4bEr8eBIsJ/cz3FoV1e5vaFTADPoopuOlXyG2R1HR3wX+LGz
5Ou7ltZfwHf8zWn9Vcux3DbPJm6urwCnvq5S412KH2+ru8eo+gquOrDK5gEv
znSU1sw8PQFVDV+GM/dyY+tEBf+7ayYhKebk03iNf8gkQS5AoWMSWk5eod1l
/0a444BBlvcUpGahE5mCPxB7gVZjrDgNDska6yfH2ei+89DMh95pEOGN3/2W
exxdzUUlnv3T8Ke41CGGzkL/fc5yExqahsr9cW9tMQtJuLkyDOjT0DWhVSET
xEL3zs+9q5uYhqhdnqNn5sdQ0mWijJrdsLYldTT/BxPFXj9w8bw8Gwxa0wyn
fjLQzQdFE7xBbGg31U31PjWM9pyS9BkIYYOrcn2Jg9Qw+rYxllZ6gw0wUHki
mP4Jncz0ErO5zQYx14v79Bw/Ic1He6AsgQ3aw1bB0+eG0FR+a7xdIRtOoVw+
pZsDyLKSubuqjw0Xj+Sl1Pb3IgEfy6bIQTbYqAapt2T0okaNVhP7Yep57BTP
LXPpRao1hQ4CTDZ0v1G5u+3nB7SizjP6DJsNR2pHZaZWf0CnT4dcWsrDgYy9
MxZFDj1I1Fmw6elaDlQIgXjeli7EvPlJn28dB25ZXkrdMN2JKrKLXlut58D8
hezrZnGdyIJu1PlXkgMvQ78Yz/e9RUm2YQOHZDhwcHLwge75DrTGjPZtUJkD
3ZuN7H/nt6H1ejMbeA9wQMyFZfjL5xWaPPkiw/IgB9ofSEoly75C9YGx0vn6
HDj+/BJR2NeE7OqUt5kYcsBdW/bTDu0m9EDjnPo9Ew4Ie18Ofr+sEUkpMY0U
rTlwrDJNtrgGoy0Svb7mFzggXq/tpzVRg8pnVlm/vcgBuuK0VJhtDdJtP7rH
wIMDWZYKxas7q5FVwOsFrcscCBv6vVWgpgpFDddfk77KgS8RPNkOKRXoe1Z2
5MwtDoz8F2jSm1qKrvmPuruHcSAOKrQWpUqRoPkGE1Y4BwYczKQWjj1BckuS
iYFIDkjcGQgU9S1GtmcjEl/EcWC//r7fk2Q+alLweBibzoFn7q+1bfdlo+O8
JSH8Dzkww7C80X41Cw0PfbW/mcGBm0GX/ISrMtGvaEeZK9kcUNuWc0hhZwZS
5JzIP5XPgepA+7KqwlT0rDUhor+AA0Gh3HwRRilIP/PdObMiDpz62yWrxk5G
p00PKx96wgGw3vlA1CgRJVToPlWu5EDids1lxfqxaFO0f0JeFQequidGz2yL
QSVONd6bazjwWXg0xvFdJGoVV9MUr+NA0dPMDVcPhqGFK1ue/8UcSPv+Z5I3
KBDdPn7mge9LDlzezNzV4euHxOUfBn9r5IB2qUGoTIQ3Uh1cs2+smQOcX+ns
lG/n0POnFtKnWjlghX63hRU4IqOoeN7+1xyQOq40ZC5vg3odO8dM2zmA93wT
SWw2Qg46Ai1v3nCARrt3eP6pa8P/AFmPqP0=
           "]]},
         Annotation[#, "Charting`Private`Tag$20111#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{7.849808673469387, 0.49999999999994316`}, {
       4.997223543150454, 0.5000000000000426}},
      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->{{0, 1.05}, {-4.253794809211212, 0.}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {481.27664033025576, -96.9918078848933},
      ImageScaled[{0.5, 0.5}], {298.3809080189099, 184.7463007331301}]}, {}},
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 640.4745085355792}, {-193.9836157697866, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.8175673122534857`*^9, {3.8175674402281427`*^9, 3.817567489380693*^9}, 
   3.817567520221552*^9, 3.817567705671341*^9, 3.817567793079455*^9, 
   3.817567857173483*^9, 3.817569690002346*^9, {3.817581574147563*^9, 
   3.81758158515839*^9}, 3.817582270590219*^9, {3.817582390618846*^9, 
   3.817582400806323*^9}, 3.817582450685178*^9, 3.817582634245347*^9, 
   3.817582776393298*^9, {3.817582962930173*^9, 3.817582972201144*^9}, {
   3.8175830310073977`*^9, 3.81758319355462*^9}, 3.817584882023147*^9, 
   3.81758498666595*^9, 3.817585045390573*^9, 3.817585149785573*^9, 
   3.817585439738227*^9, 3.817585525878573*^9, 3.817585585204454*^9, {
   3.8176137655148363`*^9, 3.817613774145886*^9}, 3.8176139295702887`*^9, 
   3.8176141329700117`*^9, {3.817616943087964*^9, 3.817616969451852*^9}, 
   3.8176192172908077`*^9, 3.81761927371955*^9, 3.817619365966529*^9, 
   3.817619480892799*^9, {3.817619523373876*^9, 3.817619547918648*^9}, {
   3.817627771060638*^9, 3.817627777110018*^9}, {3.817627809877636*^9, 
   3.8176278273754797`*^9}},
 CellLabel->"Out[75]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQeYV9WVwF8cZjRFU3c32SQbUyzpzVSTmE2vpvfELk1BmiIIKiBNUVQU
UJCioqGIhSKISJMmUgcYGMrQGWCGoQ3D0N6e333nvLn/4b7/DGp2N9+X//cx
M9z/Leeee/o5776fX9mh+bWtruzQ4uorz/1huyvbNG9xdftzf3BDO2kqeFMU
ndEtiqKF50b8Hcuf+qPu04Mffsv/94ZfuF9N4hdffDHu2LFj3KlTp/iVV145
wzUXxoMHD44XLFjgRjRr1ixu3759dEZ80003RQXxmDFjbLLoY/mmKYjbtm0b
7927V/+X/GzVqlV89OhRb/hZ8YkTJ+Jhw4axQNytW7d427Ztbv7t27fHt9xy
i0FVVlYWd+/ePe7SpUs8cODA+PDhw9F57rtz3DJ9+/Z1UNx///1xTU2NP4X7
+9ixY/EjjzwSd+7c2bU9/fTT5ysE06ZNc6s3b948vvHGG+Phw4e7IS+99FI8
cuTIM8L7dF1+n2D0Uvfr7LiiosJ9LcDFVVVVbtYjR464rhs2bIgrKyvd36x4
3333xcePH48ucGPfnHfs8uXLwZsAkY3HefPmOcScPHkyXrFiRdyvXz83FmSs
XLnS8NijR494y5Yt7itO86mnnlI8vj0eMWKE2yWfcePGxc8995w/hft71qxZ
cf/+/d2xAR5HtnbtWt3G2W4L+/fvT2lu9+7d8aZNm9zfGVtMKPR3PiqLHPJH
jx6dzvPQQw/FS5cuLVQMjB8/3h2n7DY6P/+QhPjOjNetWwctOwj4B23ffPPN
7E6RWBQPGjSIIekUHTp0iKurqwv0azbAFPYpLi6G4M5T3ELy0tt9tWPHDuhV
j6wIeosnT56cDh01alQ8e/bsC3Q/HtrSIRn7CWFLTjGeOnVq2pWTnTFjRpHO
DkXThf+dl3+IbfXQoUNx7969jcyM5Gw0X9mx8oGshN1sNLgGv0IZjiAfffRR
MGBoZlImtA8E1q5dO9v41q1bHR/TDThuu+02aDYfrjJ24+PqIzq8adOm1iv6
eMbwsWPH+vhDeEDosq1M/OmQJkoLc+fOjSdMmODjLspCXs+ePX3kISnAJ/TN
1mFLYZMs5MGFKfIKU3S3adPGdRMYowtPA3O6j08HsOV+ntcwNusT7sMPPwzh
nqlDYAOjxo/lH1KooCIs9+zZU58KYddly5alo3LYtSA+cOAAmHFi9kJFTz4e
hZ379OnjjhuSvPXWW2H50+FRhfv1YA8hg5YCAqQkOkfO2M530aJFDkDZVPzA
Aw8AQUpYGUMNi+wXlOVgsTCeP3++a+YDCu6+++6oUL9jPxMnTnRUxazCjpGN
q68uhNxzUIkGQk0AbdeuXSH58xQSNJBpA0FpYX74G4XNM/j6kzr/9OnT3dxM
Jggr9CBG6SD2+VsgU+1xyhAjVhQN69bxb6HbFMPpjk0ivJsiDHn14IMPOlLk
e9l0Oo4tYafQjnxD9/ls+/jjjztEYeOglw00kIzNAhyCraIwxJ9JseBwc342
pbmfX34NJPqPHfhh/f7wkWOuT3lldfL9OfpF5f6aeNSU1XFJWYXiJneyge7n
2fGx4yfizTv3x/OLt8cT5qyPH3t+VTzk2eXxoPFL3e/Hp6xy7QtW7oi37joQ
Hz9xMuqWwPCBZCqZ9YP8CO3lfjsx+VW2Y1/89KzSuOfw+fFVdzwfvTW+rNsk
OZprek6J+zy6IJ48b0O8a2/1rT5mCt1szfpMpa+DReAVA+7Uld4caHvLv9r+
V9qK9OfBw7XuJDmr6/tNc32EV0Pkd6+2QaYQxU0PzBTHCYI4J76i++S4x7B5
jhRnLtkSry6riHfsORjvO3gkPlBdG1fJb/6/amNFPGPx5njkpJXxrQ+/XOCG
F8Tdhs51w2qPHo+cP2PEVOQg2L23mt4OSLpW7Dt8ZgDAf9HT/11bquL2HYYw
3FENGLs4rql1ws7ZGE5493cdz4o3iQB7cNyS+HKhHDo37T3FCa+la3dBBmdr
N4Tl/JXb4/5PLoqv7JF0ve6uafGzs9fxXSfXTYnlzBQiJOSIScWud4s7X2DS
6FMBqD//BreZtoNF2t8/w60/fkYpslTtn9z+/RTubbsPxveNXuz68w9Wmrti
W3z02Ino3doHNmLXcKnbV98X4ikLNjrp3tFHw5v9JdwHBIJfho15cY0b4r54
k0JdXXM0vvnBWa7D5HkbPxkA9U49YATGiInF8eUKat/HFsZrNle+V78WiOOp
C8oc1vm686DZfH2TD2DuxOa5Ix46DUxg6DVyAaIjOqnwCcDxnY8vdN+Nnb4m
dJR9FACGvLx8myMSuncZPAdp9AH9Gnp6YurqlOwQWLXHjnfw4HNkaid55Ojx
+KGnl7m+re5+MV6zqTI6oVAxD+0Dn1rKsiGoeuuyVQdq4n6jXnHdUY0vvboZ
MfshXWVL+QGHKb7mHERrR+2zUWZWKHtFmopqdhJ40twNtB3VTotW73Qz3jJ4
Nns0O3/AgAEW7kgjV/7svRSoxWvK45Z3Jli8f8xiZHiq4mGwMdPXuO8wBuat
2B61ywa4SIdhT7S/L+GL/n9/FbqLjii0oAiaZjqxKS5sJLR36AJAxGEy9bW9
pjgaOGm2V2G8csMeNztfj55W4gIrbbIBPlOHHRLGuFcAZVgHYWg5qOiwAgz2
73o8OdN5xdudeVfgHK6CeOjQoW4icceEwMWKlbbrrrvORVdWrVoV3EkPXROd
iQBgXrSeICN17/ZUHU6ZBHMP0+qG7G2cpcMAdeLL6x3Vg1+RLVG19ocUme6B
sUuSOZrgACRH5hxTwox89CSaJPuUZbp7p3rDPdPdLI88t8JJrU/odzW1x1Mk
ISqE/6LWHsCO2d6qnbEOjG8fnbzS7e6AYhuRCufwvYjCC3RIeXm5A9IDMA0j
+pjoptMsK90dXyPkgfh6cdGmT+s0CJiHn1me4lykXNQqG68GMEDdLgYJw7o/
Mg8ajvZrf1iGdhG+KvubxM8++6yLrfqorDf17doVcwieRm4Xr9/zWe8kR6nc
QbQB6PXZgL5Nh8EdwycWp2KsdMveqEpXWr5ut2tHwMr0BitxmLvuusv9y4D1
Vg8oVJPNLs6JqsfkOxiO77o+NAeOiq7LBvgcXX3W0q1OrKHzRcRVajP7uHHA
DPdVeeUhU1QICGbJOv2uHjBPvpBg78YBM+M9+w5HX/S+M4mOvyMSM2qZDejb
ddiGbVUp8Q+bsMLR7B7tjzxWlaXL5M7RxVvazBUOVeg7+pL3HUzFd/eNftXp
7hYeWI6B3qmd9x06Et8xPBEd3R6ZG+8VetylqNt/qNYxEAckWi0Ezy0+kU1J
UHHbkJedmP6KfgenYIzZfjFtmmejySDj4GBphrUWCARtUbn2xxmgffbSrdFF
6Z66KNzYTwaISI+vabPYiKmUFNrLA8K7PZKCnKAd0Vc7tHlnxSHHaF2EOEUr
XBSYobN2FdPIrYcEFsa7WJsPHT6a2ryvrNrZLBuU9yg2hP1SQTdaDLIToo22
aX+sZtqF6ZUIcufopKvOWLwlVUuimr+pzeWV1XFz1KgIOdFWTbOB+TcFRpjA
mQhMdo+cLCJ6i/ZHtKtBFoXiGzfrqoQiEKlwguioS7RZ9uB0Trv7XgJh19an
2/9QENASZv+CXJki2qzLmfZYLxQTAqGjrrVEHAeOF7xu33Pwv7UZtcfwu594
heO9JhsfBgyhqrFq22Bss3CZ9ufgFE/KEblz3KSryhhHZ1gigsPvaDOMZebE
hDnr8wDzPh2BGcOuru75PPbcRkOK2pIbt+8LwnGjDudsW/V70U0hVvD3tBl7
HzuMsykpq7g6geMd+m0w43lWTuKUKDq5RKKNxEF37twZkrv/qSgVqzm1viYm
Rmq0rh6JiXkcfTWlDNsA9rpZxnOWbf2BNjMI4Nv0n06Xq/wNnNOoHCWGAyfN
h6Rfnz59Qjt4v+4AKdFBPTrEMWK4VPubpkepfjUwR3sFGtFpToAQ2I+0q0kV
sT+inI0UhtJjkUU+vDxJ0Jz8gM6B32g64U6xwMQjj9Zof/xOY++v5YHcDGtk
kyDtR9osYsupSr56tWTnlbnAB/JVqYNM6qK2ttadAP2EhqI6w/KD2gtnUszS
1HbAJSxRMLF+aRfDPgh6OyPmRZtS9SE64yfavLuq2plWSAvRjFdkg64JoxR0
iMXyrETCKyoqgjbHf2l/tmgWG3JQKClapVCIae/ImKCWkGJoH221KxE1o3gR
9z/TZsxEZkaqyAyXZ9OPpm5SWNmHZsCjosDC5+oKz89PyBNXUMSaeWLofppF
7EZfDwxvo8MxkUEyAmzTzv0/12YY7x41I2Yv21oP7kCSpNFwf1hXIPqNCMbf
Wbp21woPHqQhGk+ACIF+g3bFZsGqB0aRw1ZXgn8GMpr2nop8vcwHPTM1A9St
W7d24oh/dRSVu/ZHdBqRys5a48gFP8u1K+F0wFm4akd0cSboBampNWJicfQr
nVJMkzS4IkT5twTuOmVsBS8EIzAS6Tt1QdlSbUaOgEssHWH8i9Nxhi7xgVNO
E9T9WkEZPD6JnrywsCzy16wH+ccUUcR609DZzCR0tlj7j3tprSmC6BuBOVop
JCQ9sH84pYp9h3+jzTjzNIFXYaG/ZgOTZrTkqE37IAOJGizS2TBAiXJh8sh2
Q/Bcr11RYqANC6l4w57fadf5irCBTy2N8gBzvgKDmdlNnU2Qigp6RftPVyde
rJ3om4E5rlNIYDtTV2I1/95rtiyAOOF/yQbG/G4sNhuBO4DPv8BmE4nXUbbL
EQjQ+eARojDlz7A/aDOxQJiUWQS3f65Pqh9XKOBQs6dwX/HZ5utyePoaSIi+
FQChpa61uXy/kxOt5RyFxv9Uj9aem7M+8tevN4tBgm43VQVexMOK5ml//s/R
i8MahKSFQkKsseODs1xf4f8/e4SG4oD5RG39KRuYT3jADHoq0Y89R8znsKKX
tT+8oYcWXZIitKV+a1Jddq8kWeAi8jYiz+Kf1MUxCoZoKAUHDXdijvYnwH9Z
srtk8XpzNNcti3hLfVjZzN+0K/6v0zlryqM/ZkPyKYUEOhw2oThNGwHJLF0B
T5lTd15fHIeAaaZdsaERGfwT/F/mNXMkbe99Cbr7QzY8FmSCy0wwszPgman9
zcsVPRN9OzBHU12VozW3VzTcFdqVfJw6FZEPiTvczwbWZw4swZeMyI4dd2oa
31y4KhuEOlCHPrs8utKjUQQhOlHMqd9nI8MHxiJS2JAwzHTtb0aNSCg1qAvj
Z555JlWeFBlQeBBSoNcqRHhguPWEeYT+r9KuojoSxTipOMoD5ec8EhqqRIve
JEE5TVdgBygHLBsRHAbo5s2bXQUFnyVLlrjgbwjQa3QauB4gkXfi1lytzbAR
xMkexJ3NU+RlkTZGWKoCkYMwfEH7Yz1qxCYJsdQPVCfdkp9++eUZgQWv0TaL
23BM12obIdzE3V4U5YH5Cx7MJqkQ4ETPpmp/CwiQDHEwu8C0oRLUUmSSAu4W
MOyt0JgmbC8sY6QrUJmOi37rQefY5CKFCRazIAy6Ej37vE4A02OS9RaHycI/
s2fPdkYqpVdClaGzvkq7osLhMDSjaAOTMLhhXgjqN9l4MxhRfLYZ4tYYJpO1
PwEl9chSW4AqMsrw/GP25zU+hqZNjU1ftLmFdh2hjCqWaKTQma8NP1otHn9T
3MjHjxYEaqBDWLKQJ7Ko14j5dVaXtE5UAPkOGw6pKwfzdR1y8ODBlOmozZK9
BpnO9jlvRWJ6EVyS6U0DoxXwCrEFhNUTE1ZjmAWu5pEapjjli7NyQgqBEuUQ
DF/WxbAKsZVV307UroQpzZS7WLdHCRsOBY4Fx1hWVhbc3hU69d4DSbKEmIv8
fZ12tRj9xLkbojx7s1x+3mrh3IW/oguTHbb81OR5G57zyAriRuNKl+8FZrjc
62qULR6FmdAoGAJZWNyCuF81DH2+El639Fd1ahKP5nEIgT+rc67dnIT6xGaJ
vp8H4NmqUdQDt4CMWbZPzyyNXgO0OTWzuQtbBBxPCZQgOZaV7npGuxr7irOd
wO2Em0FraTTwKI5sa21GnhBZ4Cs5oF82jjjy1Kb6AH9dF8HSZgGspnVb947X
rhAryk9MkugHgeF/8yjDwmfiOrXRrmYsiNiLFO536FeUaeN4C+xpCjpUDRpi
JZPuJZsqHdmCMNHDT2lXcw/EBssLtHEzykw2YFERdAzhRFAhx/CLXLiJqF5/
/fU5cIeKMkNwf0NXIPlv8SI59LHeQRPURsIJECHQ/1qPVBC3IhjbGTGs2GaS
WR+18XTot3SsJZWRBaL0xuhYotk0PzNrXfTDwNJ/8Y7aQtzzV263MCTWAjNy
HuLXX+qtXm8ig8PsYsxdcVFHa1dytpCcbCsvHEZbmAECUwftaoUVWFMNApGb
woM7UdZPav+N25Potxhu0Y8Cc5gTWO8wLDyOqumqVmJ5ZfXPs4G5xKM8Q+3f
p5UYHGY4kpcLwfEn72T61Z1MR+1qzvbg8cuiPEB8W2ehKgx9oGbGKO1KipKz
Fa0Y/TilKUOBEU//RNB29CDCm8JrFgb9WfbqlhJC4MMWsIc4t49rV/H0Uxfs
x4Hhf9ThxP9QrC6MdKCmk3alwoThg8YvjXwg3B6+q2Pxvp0ITPJCj3qHAkR4
YEKm2avXJRtIllpeMkWBo4JDP81GgcGBmQ4DoD/2VB0eqV2NsMdMXxP9JDDc
4jMWSiSfIIvfol2tkkDc/ygPEJaFMl8MJ0p0+gjtKra124lweBAIC1phayDK
yLHJHixfDDIwq2AJcdd/kg3H93WEyXLoWk5imHa1SImIbt1NCI461pn2yiat
iCggQpFKiEZAABub3ha5ahCY2Y27EoLgdzrcuI80j0x1q4cJygk4aEHmj+sT
5Q+1Hza1VbEINw7VZpKE4BaJK1P9NB1ny2LAQrU4wDsrDt1ej4jEPYz8NesB
b6vDTszCeRWv3zNEu1JEqAApO+UO/622mROKTWtFPic9PSEc+qNsICyTRcwb
wx/eFCHykDcRvjnNIrNCcFhwec3mSgcH1UNCRN21K1kImh+fsirKA8eP05Pc
5QQZ8b4D1bWDtasdMDr354Hhv/ZOkkAzJy7WVg9tPqEBWQ5KlMcPs+Gw9JhV
ruCGickwSLtaLp5IZjYcBa7I1MKI5nSa+B49rSTyIXAk9VOPZI2fhPoH6lji
wRZVuDSwrqU4SAtDR0RRRY721GbEaztxGIlOCVX/IHv/BgeZx251LPFgPWKj
NiMExy+9BdFvHGXplr29tavlIgmYKBCn40Y3MuluqUGSF8TkIIaSsooB2mxs
DY4E3ZemZ/ArnWuC6kGIrY9HWMhaFJS4YoncarRj3Mhcu+UGOUUMY2wdkeAW
47E8ORLhF4Hhlp/bUXHIcT48VFN7vK92tUIQ8lB54LcHVRpKr1+qq1moGiUm
IuJebYblACCRHMdD8NoMYMZCusUb9typzUhXRiMbhQW/lw2y5RjzJ9UNPU/N
WFvnr5482V8nfLUk0VhPvrBayTgEbQFaLnWL+2mbKVDCQ42As7EZdIOY/fTX
LI+40wax2QlCIkGIjZyI2UHw5DQP1Rztp82Wz0QwygrfbQjuhjPPxv2cnFXT
L15Tfrd2rbMnXlVVUIj3mZMWFs4IosJ42q85frVk5z3a1eozRPWqiZfHB254
IyZORcw7EkQzbtt90I7bfBmyOOYrrF+/3j1PWlVVFZzSVKfZfFQb99dleGYE
IYXqlA1+J3cDIWe4sdl004sYpshiSkeFBIzFIAF0IrwrCzvMJYHxIj8w7oJ5
+NzV1dWFgVVMaZhj4GIrh47Y81KW9EJp6N5CqscMiQkqpzhmkSImvkwqi0ua
8JiLhptkglwp1OWJzzqWN5vRfAY8m/u0DZV6eZLVyIHKqYLfeuRmdqnobdMG
BBHgJgS0aAY728ceeyyeNGmS/u/UHZpxYQYibqisYPLdYu7rtu5VVy2IJ4ON
vImVLYonajrWwnEi5lITBV1EgC0LMLO+CM/jEUHvQpQDtKtVqInEzAeYmcUU
9bTQCkzheTNCLF2EahLqSJBR6GJQPFTLZ8qUKcSmgqRsPqGVU6AFzSyhsP6y
xP1VFzsIoDlOK9Yn3EDQU7jhDu1KM7MIeytJF7rnv3k0lyeKkVVZotrsaMsV
a42JAWhZIRzDPACae5mywCjHAj0C2/xtYLh5FFg4xLc4ADmMgd4BIGIQNZX7
ay7x4HBE/0evn3GMaDaz5Ile0kTp5+8yV69jd+wMs9/NXx41dXXkr5sRYSA8
YlF0kfLdtKsZxiWbKhMIcrw4S3mpEzhYm0+oC4MGFI/5W9mrW4iHUkeT+oLq
27TZCqdUSodQYO5sPcfwYe1qFctPzyqN8sBh8R6jJRS0zGiu9d/1YQKeq/h9
JhB1pQyT522IhuiUmPUILjVjv5kNhEUAxd7wrSULMnBC4EjTUCE4LMphtI87
IYcxVLuahwWZ+HC4M7UQLJaPVcmJ09BFx07Rkjz5rTwTjvJwDkCIyBH9/YjX
7AH/jWwsGBxwFESE1BBf1OJOuDlMwmQyaTYodTaDGPHRcG2zB8h4GikPEBZK
J0sKFVPdXl5ZbXE3KzvDr/xjYLjVXpsPjakt5zBcm60QxEU5tKwtDIcVfhgz
I8xFCflxSIu2CK+EQLEAZG4auNqib1YOQUllHjgu11ksz8tTtLL4Tdp1ibLN
sAnFCUs7ivqOfmvJdoJVFn3kkYHL9QHutCQy79IIlTtVGj8/f2MajZZfBJJc
6G1v9Z8CM1gE2JDYO1EUj2nXgeMS8HjM0ofD7cGStwT+8K1YZnVZhUXlizUA
Sx31nwNLX+KdOAIA+ban6rCFf7lRQaOAUR4UGBB0x31gJrEV2mtXSlngEnFC
g0BYYgJUWTmTyMUntKuF1nmCKsnzpRGCli1bpvYu//TysdeSaLdyBMuCI9LF
jmurXanWV8JSORjeg0V0+iV23BP1hstZ5u6hIL799tvjkhIr4ebna8qgW5WH
PaPkKiAsuVaQUiaFIyH47VGZpAY8eaRQbPcnvaOh7BeWEPPhq7lb4A4Xve0l
vUThNBLlBjqi02ochBetbpeqJfMR/xoYbtm9E17MYMmacstr+byvcJtDS0CJ
i1ew4BqdIrcaJRIzKHRkmxxva53TVJMYyAm0jk2t5sSqDYiBjzHcCtxmBFcd
PJKUDUTv0hELFy6M77nnHu0bhjFPYtxKv8ipsQCm/N4DNddr100eg/8tMPxi
bzgbJT9bU3t8rHY1ZhH7I6oHN7siVlRbW5vCfRr58aa6sGUbEaFiqVjVhokJ
Hi8JwW3pdSskQyyu31o1zqM0pCXiThRPUn2SVtrv2uWeD3RcSEyG3KQ96dDY
VLmVMVlt4ZCEHa14yNynPo8uUB0agr8gLdUcP7M0stoAq2umLQfyJo5YKbtC
zolMseBSY/PkBjTo6amMKLaYAZ0+dba1Kgi0FWFY2Oz2pNBsvDbjIRN7xVYR
yyipbPJUmRUcGWOpKmumK5VouR6pp8sDq1vpCpETXE2kmGhxKwGx2hNql/2l
681iQHBAmOq486IQjY1cVnFoklUU2ysEh5X9+FWpYpc/q81EjWFCJhZOuigb
FCvGNibDkBJ6tkpDcYJcMyWnV2TCUZA+tocLO0HbLGyMH5AHAqtIf/KFEgtQ
wQymKtkhMT0tPbgiPUlDAelfFD92pLgWE7QZpkS/gAZBxxcbBoCVrABKvA8r
XJ2thSRPiAt5ZWD4l3Q41g2LcaCiAC0aY+Ej3A0fCLcHe24Cx8D8zoWrdlg1
GV6TFQcdqK4NrX6R0czJuos6xKyZ7E0MK+izEl/IxoKBQnETcTRMLKFPIz7z
fMigXJUHDtM97hTj2Mo3zZsTsRLlAcKqomBDNAFgi7YyR4TdQNIkRISsEzO3
0IlQDC+CldSCipUQlDxf9ClGK5RlyinazFMq8HO7xDv7fDaY9uCNFdsgg4TG
zG4w9wpT39q4KVMvdw3C9gX9hpg5W8TfEt63MmLjr1lLt0Z5ALMqJwtLD0ou
SDHHnrOFj4g/CTW4SEIo7MpHAQ6FXT+v00GedjuUUK2VZxPcBXx0n+Dxcw2D
C+dZjOnpWaVmvtvT7lwi5Bz9nMjrKRh1c39O/48MtfrxJ19YbQXu5roRzPUB
c9xoTy5CCB01jSAusjmUpIhp4nGMy7KAqLdDA8cohfCc7Ha6rST+qKWaBJuf
zUaVwYbpjFhzucVNlRZZ5Cg4VU5XTrmx4H1Wv7GnpuE3kWMztOszsxJmnrqg
LMoDW3tvFqQfilHcMAtUWSkYBZnGydy5iWGMz5RBZZ/Rrn42VYyCmdpMIAhE
8E/+/kw2eB10hCvM0+ir0KiF/bnZBah5LFuY2CBcs2aNs3S4vDkDwk9rV7Rt
mrN+dfNs7eqLzDzgmQ9v6hIPSGa0jL49ZUVsollg+Kd0uF/JIvbgHI8wwB5U
JtT2aQ8OR/NJ8CL3JgyW5GIEy+1ZdREB2OZ5QDAhpeU89uCTRR+pE/XXrzeL
QeLuudBN2z0XlrG1J7KUzJun2zAQ6lU2zdVm5iQFhVITekp6n5aD38gSAItJ
QRL2gLagxXK4ds0JrNAiMPwTOpza17RKbN9he7LOIm4U+OTsoWEHv5GVAHat
BHFHy/FMWbDRsqDrtu51LAR6RYGEtmC32JDCxI6AtTZsq/IfUWQ0u5MT/GTu
Lnwf3y4VbKgewK7lQE7YFVcitS3nBQMgzDH0xZ5pGZjhQm8Goqqqz+wRTysp
42lRhTfbt2+oGMAiuIT+MGPAw7LS3ZZkshg79TvXBUC9QIejOOz5WJEz9mgs
52tkJ950Qk55vPzGlwTcoqPw5ZElcKBQqeVAKMLCpMKIFcIIgX6+dkVwW9Gb
eJeLtXmDBmBcFsUuQ8rj6DecTLeUgRWS44eLK2+5EkjcYvSby/dfH5jBnkaG
hoiXAp89F7NE+1tuiAfDP+5Tcz4Xv2HguyqU5AYNeOE+SzBw0ISfNbLfKjCD
Pdft3xs0RJ9YskfLeQKAWDj2h8jWC334Mx39xtYAWDUk6iPZwlQUuKUFpi9K
TCJXynrypNuC9zh88gigRc3tcTB7HN/cDPhEoa7TaXaTFwYbC0OvQl4WAd+g
xk7rxNhpHQDdbtsDdwPtKbnHkqfk7D4DiKLD/emNWBd4UNSbzeBZqhflAI/Y
ShbNxV62GJ/Q5w2BGT7sEaIZBPaw80oPzZa7PZn3mmar1kSwsSgUsLqswg9x
WiRXvNY2gRnOVXhwss1wt4fRV2t/e4qQ0pg8wHRPD2u3U8+gU4ZYTNAizXrV
YwiYDykwMLTFQugOvZToNMRr2CbJHxFAeW6UttJNLhzCkEWqzVi82cJO3Ppo
kXvZfdvADHb/CCEmq7UnxIZJtVb7c3+zWmpRHmDu0KnIwNldZ5A+AsieZuPc
UW5sTfi5XWAau9YFU9fu0iHcwjSl3qnbQ3Hifn/MA8oxVS+dA0x21Du3MBjZ
lTn/4Ax9D6eLomifDjYA/Ou3cC4AYL0OpkoLakSHi3P/0WysGCgwjmkSqI/H
qs2PJpZsemrVxjRV5U/zfu1KNoVuej1ZmXa1wA0hrTzA9FZgYAULGKMFxbhJ
vT+KnLGFEmW/68bANO/TaZA4RvPYB9TkvE2n4aUXWBvI5HHjxp2hQ3wzVcva
0vfq8NYBW6KB9+p406R2lv9A8nn5hp/lv5bHPRTKu1wAljTCtm3b/Cvu6yXK
otAUWE7UvzAFofCamhp7K08g3OPQ1vWBSfG1Ldu6yDCfeuj6YPYZ9lHg0DgW
vIF4CDyYG0qsljZYTeTTTYFp3qvToFUtso2c4HmK5AzPdkuwL15UAC44IADl
49vrfllfY97ko2NTRXzqm3ze3pg3Abm/ubyI23T4kEnp1atXagoFEoXp+dkc
4hu5rAuWMP1GjhzJOxzsTT5eUMJ9tuzcGze9daSTtkiXAHr0Tq3g4d2pkFHw
T9gJrNtdy/baBkxALCgYUAy1joFp7BI6Lt+1O5Qxl3iYP7kTu8i9QorUhn14
EYwgy2IDXrXiG/nuoIwpzIJnGC/g4AP2hS3S93Y08Nqh1atXx/fee2/6Na8A
GTJkiN1X7EePzlBMcqM1qOk6YJLwb3cTHooJ97/3e2flpH8/hdS/aJooB3xh
7iKuLayF+hBT4ObACdm1idyAYxUbaBqKK9+uO+I+Uu54tQ/kK4LNLGy/WvON
eV9RA6Mh/xYtWrhXnfAhs9e3b99Gvu0IN5IrNxAKcIOcDdQQOh+T2KQCr+g8
PO7YtVd6hYQi4ZTDqYfffroqmsxq6WAaCju9C539WxqJVJMd7RSYzq7cJNpu
fjmnjmJ8R8ZxIUEEUrtpz69rNW54Ha9HyhjqnxU6BbeMcAoarLy8vIGXK/kL
syDczOtzcLOyD+pMl6jsfPeY+JrWXV1pv7f9fNLuHl2Opx/sYkdu2ORC3Y/q
dxielkYlSECdfufAXO/SnVE+bV4ORhDPY4r0fKd+jdSDMO0zc+ZMeN0Oya/x
fX1vXcoYZSoNc0EPQDHbQLK/yGk6TAS0HcfLjAsXLgydi5UPlJRujJu37qgV
d7tst3mOpL+OJHxkzhm+Bs+9yCmbr8RkxPMsO4a16qIq3kXCRS5wiIVvmoxo
zvY9B9/t0Sg2ja8fS0tLjQhDNc2v5x1ODb40CuzYG9WAR8y31FTIrmIoctNx
MAYshQPCmmZjBtMDye5v7tQ5btZttBDq5Pi2bnew+zxnkzwKcKaLl1D5hp8N
WgkGw0I4IPaGAtjGLrfk/Ihby/ddAtOeo9PCxKR27NY+pieTfjJVV00A0Jmo
6GmRQBZFCRV4W4isEa+Myuhqs4MpXp0FP3Bks2bNatRbprhSB7OTf0ixurdh
npIRKdIh7K/jzZ3jpi3bxNfe2I9QYI4Ac+Q9QBGG7kZ5IGZcuYH4x9jrSEv/
TRYU6dqbjIgIllcesjJk/xzeptOSGCZ/0lp9ZIbCRRhvdo/9Cg1DcbRiYeRR
hA/orBRek4G4Ql9ZgdvL07Hcyv2e+isrBcDhJCHY0G2BuZOo9lmOIMmXYcgY
rwM1T3QdqjlarcglEY6No3UUjrDelw35QJ2dLDKWwDU6M1YVFZ6kwOQIztFu
eE1USVMjTBe6YvuCOhFP3QIrFCk2GUq9IZe6i3ZPXkdU4J6BRZtx8d0R3QP1
++00rI5a4m705KzTSCPUizcC2YkPGrr4uJEVllb4Tw6XahwhMH1XUpE7ffwy
vAN7RZcAajKJCAiuG1d2caTIcjkS2xpJBGZEbidBorf4K7sP5I2zj2jhJImN
yekmUzRxChuCIlouJ3lMF6as1hQHHgou6IHq2n/3cXRO+vJZMjmwNTKSz2so
47SqfB7YJMwBUgQ5TRRM8ESUxr2WqveUQm0GARw38VOB3mJT67dWucmppmib
POsbJTMVOs7BAybYBCmn778hpB8n78cRmRkZjvW6D9cjUXn6q8BJo9zXkZxW
+ecwxSL6lSgU0WfudCVKyfaBkton4kkQKa4fbIA7KPaRWj9N9fVtibZOsxMc
iTl+WeWTp5R4utbQveqv521Q/3oT1z+2DYXP/xLxn8ovywPi6s2ZM+c13C3l
fv6LGv4525QaTBwgjXk9rC8OTqMq2f0MkcLnAm1v9IvUkkxTmsI0pYPpr2+4
TVPHja1SztyP+3mev2AT915iDFO4SbTZ6RYXN2qtOrPUtYZe43BK98x13rgX
o8bpp8c/W0P0pv8Br1uxtA==\
\>", "ImageResolution" -> \
96.],ExpressionUUID->"1e95a096-656a-4bd0-bdc9-09d9c739bf1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g3", "=", 
   RowBox[{
    RowBox[{"g", "[", 
     RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "5", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"eq", "[", "2", "]"}], "[", 
     RowBox[{"f", ",", "g3"}], "]"}], "[", "2", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
   3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, 
   3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, {
   3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, 
   3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, {
   3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, {
   3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, 
   3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, {
   3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, 
   3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, {
   3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, 
   3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, {
   3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, 
   3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, {
   3.817582803954041*^9, 3.817582804222094*^9}, {3.817583220813534*^9, 
   3.817583241460207*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"56a2c377-648a-4b5e-a0b8-a978c95c7038"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.817617526623535*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"1fb128c6-9917-495f-aa57-47ef430806ec"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]c3", "=", "1.1"}], ";"}]], "Input",
 CellChangeTimes->{{3.817582396116788*^9, 3.8175824049054317`*^9}, {
  3.8175824459508343`*^9, 3.817582446508223*^9}, {3.817582967426021*^9, 
  3.817582967790391*^9}, {3.817583034373005*^9, 3.8175831892051573`*^9}, {
  3.8175832454786386`*^9, 3.8175832457485743`*^9}, {3.817583916075033*^9, 
  3.817584052070888*^9}, {3.817584106508939*^9, 3.817584316547625*^9}, {
  3.817584353610593*^9, 3.817584391778722*^9}, {3.817584436606126*^9, 
  3.8175844576427193`*^9}, {3.817616997942698*^9, 
  3.817616998293277*^9}},ExpressionUUID->"01a65f9d-ccec-4ee5-a3eb-\
41b72a14e214"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol3", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"eq3", "/.", 
     RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c3"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"M0", ",", 
        RowBox[{"M0", "/.", "i3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "0", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "/.", "i3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "1", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "1", "]"}], "/.", "i3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "2", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "2", "]"}], "/.", "i3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "3", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "3", "]"}], "/.", "i3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "4", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "4", "]"}], "/.", "i3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "5", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "5", "]"}], "/.", "i3"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "500"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
   3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, 
   3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
   3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
   3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, 
   3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
   3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, 
   3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
   3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, 
   3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
   3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, 
   3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
   3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, 
   3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
   3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, 
   3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
   3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, 
   3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, {
   3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, 
   3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, 
   3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, {
   3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, 
   3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, {
   3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, 
   3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, {
   3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, 
   3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, {
   3.817583292451758*^9, 3.817583331793063*^9}, {3.817583896782114*^9, 
   3.817583910986412*^9}, {3.817584041997362*^9, 3.817584044193297*^9}, {
   3.8175840763191137`*^9, 3.817584118869596*^9}},
 CellLabel->
  "In[298]:=",ExpressionUUID->"13e955ed-c66f-412e-a56a-086a5a7c388a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"M0", "\[Rule]", "3014.019240300801`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.27741409131351474`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "1.856234758162671`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "6.954527958205154`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "3", "]"}], "\[Rule]", 
    RowBox[{"-", "10.34980326553876`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "6.847008239280345`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "5", "]"}], "\[Rule]", 
    RowBox[{"-", "1.7260540506222146`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.817582243098262*^9, {3.817582385638481*^9, 3.817582397851478*^9}, {
   3.817582440404005*^9, 3.8175824479120073`*^9}, {3.8175825951659813`*^9, 
   3.817582624284917*^9}, {3.817582771007656*^9, 3.817582790104224*^9}, {
   3.81758295912363*^9, 3.8175829694259653`*^9}, {3.817583027875955*^9, 
   3.817583190779282*^9}, {3.817583867855484*^9, 3.8175840591469297`*^9}, {
   3.8175840938584213`*^9, 3.8175843180703287`*^9}, {3.817584358052533*^9, 
   3.817584394362668*^9}, {3.817584439591468*^9, 3.81758445968953*^9}},
 CellLabel->
  "Out[298]=",ExpressionUUID->"666b440f-efe1-40df-97a3-a6ba5f6b502f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"g3", "[", "\[Theta]", "]"}], "/.", "sol3"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c3"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]c3"}], "}"}]}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"R\[ScriptCapitalM]", "[", "2", "]"}], "[", 
           RowBox[{"B", ",", "\[Theta]c3", ",", "M0"}], "]"}], "[", 
          "\[Theta]", "]"}], "/.", 
         RowBox[{"B", "->", 
          RowBox[{
           RowBox[{"ruleB", "[", "2", "]"}], "[", 
           RowBox[{"f", ",", "g3"}], "]"}]}]}], "/.", "sol3"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "\[Theta]c3"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]c3"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8175672854849167`*^9, 3.8175673108365*^9}, {
  3.817567343605356*^9, 3.817567515945986*^9}, {3.817567689779602*^9, 
  3.8175677001061993`*^9}, {3.817567852209393*^9, 3.8175678553653107`*^9}, {
  3.817569677608418*^9, 3.8175696880410147`*^9}, {3.817581502775428*^9, 
  3.817581583359663*^9}, {3.817582250277421*^9, 3.817582268443882*^9}, {
  3.8175837859410753`*^9, 3.817583808939587*^9}},
 CellLabel->
  "In[299]:=",ExpressionUUID->"cf100fe8-27c6-4a2c-b65e-370cdc76ab54"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV13c8Vf8fB/ASKSpCtO2GSlak5IVIQySSrazwlZCKhhJFKqmUkjLvteeV
UFmRvS4Z1973UsZtoKTf5/cPj+fjcs857897HXHbCycdOBYtWuRMfvz/97Gl
UwUJR8zUJWKyrIP41NRbbWuNTBRU8NHh1YTfx3X49fV6saSCLm6tqxDR+bgd
SxW+XOZROA1hHrvtwh9VEWK8mP5X/hzu5K9N+PDhCOgO4Tdn5K9g35+tnwLf
m8HLzdbkh3wgDKpCTetynVHOrihhy4fDaHKR+VycD4q16I1pOxJRdaq0weRs
MH6fSp8J/pGFI28/rwza8xS+bWeGy96+wzZ/21G+zBcYFy0q6vr+EZxDa3Ui
l72BXtOduzK8hTine/QHNrxB+m29494ShWA693p37HoD9+EOhqBhIQqyvSe/
nXyDX8k/fh5NL0ReQil/ZOQbcCjL7Mx3KoKlxoFdy2WjsIJ6tLbarRhVt9y0
A6SiIfHh7d6EwRJwO7T6ndkdgzOu7DbdqRKsDujN5N4bg6iNu68w50sw/nnu
dKJGDDbeSHy7XbgU/JmruFsNYyCs/koh9XApKozCcwcuxoCn+NbOrLRSfNSQ
6CzKjQH70zGx91c+4cz2Fcd9VWIh5xVUZBHwCQ7DFGNDxOKCVLn1fOgnWJ6l
xW3SjcXXAPXXB5I/IV3UWzDWJBYjOvLri7s+gXZybp35pVgwKoSFyjXLEPHn
a+udrFh8qunnbuAtx6rdfDXlUnGINOnMVlpbjoc79ayidsTBq7/FKkKqHNW3
GOaeCnGQmqmgORwoBx5wPefUiMNdiXSbebdy5PWeW8Qwj8Nhn6vvttPL4fX3
hvHhR3Go3yJ4LuDFZ+wa/XVN/nscqFkrBMbiP0Mu78JXlbk43FRb+tEg6zNe
P0opVfkXB7mTcwIbqj9j74qVMZK88Xh8o7cw689nZB+bkUmViIdxS4pwr3UF
ujbMZ9w6EY8OP+3PqtKVSLqu7rovIR70xK9S1XKVmFxY8kMoNR7VDWH+5mqV
2PyqroqVGY+CTcMa14wq8Xx09uztgnhE5N95/8GvEu9vm5y+UBcPy+nPmeip
RNOj+pm97Hj0njnySie8CnciywdCVShoD5ye+xJbBScl8fTc/RQ0pr80dUyv
wtpJvsFWUFA8z1oTWF6FoArBkKWHKYh+ERxa+b0K39g3l0maUmDbWHPn2Ilq
tIa6vDS8QsEw9N0Nl9dgZdNyzZAsCv4rbAjuXFODTbt4N+i/pWBazZDiIFGD
KJ6tz7jzKfiraszw2V+D3x0pHueKKVijZK4de74GG+wnOTvrKdDZ5rj2e1MN
blypc306RkENdVThRk8NrhR4ak18o8BQ2vk493gNmledY2hNU2Al4Xp7A2ct
nAQvm3fMUHBpo+fXg8q1iJKu73rPSQWF37c4LKIWDp/1uc02UbHj0T/G5oRa
3NsTI2YoRkXWSr+fibRaWF4ylTwoScVHngCZj7W1sM20nRTaTsUXzuCw4YVa
8D/8On5BiQquuWdOynZ1eDh8q5XrKBUO/Wn87TvqMZzy0q7cnQqe+e6eByr1
uGupZ8jwpCJTeFWa5sF6lC4f0hjzomL+mNuRFPN6tJpslPvjTUVYruxt33v1
yE0fDO+/RUXp/YzvUqP1qMq37y99RIUTtbekg10Phf9GZO49pmJVCV9oyEI9
jE1UY44+pcL814Wds2sacCDRT7ToORXTZ+QcarQbUL0pIsvtNRViylmtHrEN
mIjxSB9LouLzif74LekNUHuzZ4NDChWu/62+2JnfgDP//gwwUqnIi/bg02lq
AN+9+4/yMqhI5FontWJRI5obdLLU3lLxR0D+/ghXI5YtPD/6JJcKfbEj7GLe
RmzKVTg9+I6KH/t8ii+JNGJHSGLrlQIq4N5h2SvbCEH3xnKXIiqe3Jj+lK/U
iM6J2BORxVQMBS/fEbavkdRV7bmqEiqCKapzhw81glk6rCtcRkUr4+WzbKtG
FFoKbr9WSYWbjnn9nQeNaGlUOezVSOJRfOK91pNGjKmM+Vs0UZG+TzfxX3gj
rsWFJavTqZjYrXTbJ64RGdsDymebqTi/fpXy+YJGjLO17qu1UbHiGaekTHEj
iuZFvJe0U5HK94dvtLwRvutCnD8Tf+Vkss40NeKpjN05DQaJ12TJa2NmI4Tj
HWW4usn/u+QFr55oxEdVZngqcepQ+pX6742wEDSVOtFDxXjHK8PD/xpRO2Ka
cL+XCpeyS1xqwk2w+lZOa+kn+QJX9uyGJogshFy2GqAiOd+29614E8R5FC8O
EI+lG+Tv3tWEq58zt/YPUuH8cvt5Se0mrBYJ7s4apmKZkJh535EmvD4i3rBx
hJxXiLDua4Mm8P1eLxxAzPRfIi5i0YSbvluydUepCFqYW9lypgm2V5VXxRNv
85n6HerYhHl1St08sZNbdwuPZxNmu3IC4pjk+1nNJRVXmlB33NF/mjjRrjo9
4EYTDLPCv+9nUTFq+i5oIagJgddzlD8T321Ou/Q+pAkur0r5l45RsUU/3tY7
rAmnhZ+7aBE7Hnysxo4i97dpPCWTeGlh4PYMShNW7I6JGCCm7vUVdk1pgmn8
HZHV41Qconkt2Z5FrLZ3ixrxyK7/poZzmxAyaF5tR3w38Wx37IcmcGY95g4i
3iJpWm1T2oTcwdv9icSfX+u/21jZhH+9rRafiR3W6sR31DVhYefeq33EnE/3
P37eTJ7Xw0hjhjh+pYKvUUcTqi62ZfF8pUI7aNt//L1NUBG4RF9PPMQhalo3
1AQLnV7KVuKAG2t0gseawLGhZrc8sdQsr4LuVBOW5kxeVCEu8+QQ5fzVhGTN
pZf3Edt/m+Ut+UOuz1Gt+n/XCHa1/l5Mh7rsc0NlYoV9RTFKy+jo+LMmRpb4
xZlYV7dVdEhkrNklSfzv7h2VRCE6Mo3tfwsSO6Y5cQysp8OosHnlYuLa5mN1
G8TpWHJzr+sYeR7F37IvTm2lY2jEeX0jcYSYgN2jXXSI/9PclE28WPfnripF
OkbuvPYJJXY63z7LsY+Oo2MWSv8R1z99/0lNgw65wzYntYj3FLwJuXyIDkX7
B+1riCP7/Mwy9egITKiuGSbnx8HtIDV2ko4vGzjls4kbjXYUWNnQEVqxyUGD
WOXqqjvhDnRc4Os9wEH8JnraoOk/OhqirSKLSf789+3dsLY3HfQe9wUFYrrg
q0xfXzrc537zjpL827vP91peAB2C8rto4cRLA7VX73xMR93e0IEJkr/n07Z2
OYTTsUy/2usZcUszT0LUazpEOYpy9hLHiDWpCSbT4Xid6+QlUh9qBVZOv0vp
GL9Z+ahiiIq4Pg1FpSo6HusHbTIm5uGWWjjfQMfd+xF+3aT+2ozGnvZ30nFJ
VbZ/hNSn57fLRZU/6NC61/awpY+KDkHzYI4/dOxk9FodJtbYd+CU2uJm/NKz
35VP6n9l4JLxjJXNSO+J6n1M+kOiWKhw+JZmPMm7LyHWRQWf7sX+xp3NsFrg
u3W9k4rL501SeRSb8Ujr09JW0n8OFmzU8kUzGha/i7/VQUWPUdJ5B9NmjB89
mJvTSoVQYGmZYnAzlMvfNkWS/nj/z3UWR2gzAi3FJbsayPm4q6yiP2vGW1Mj
nXXEk6app91jmqEb77PyYR0V1TLPx1LzmmG0X3yrRTUVN+ud+beMku/bfM3k
2SfSj9astlyr3YLeS3Lh0TlUnAmuuTV6pAVme3ruxdJIfBbuUHINWvD9HUdn
bDbJ/9HfE8YWLVBLSE5+k0lFVP6Q32PPFhhM3brhT+aNsVVeAk9MC3Kn9Ye4
4qkoirf5Pv+3BVKybpdWPiHzsmzpr8OcX+B04vSP6lAq9g2nzYbxfIH9wTLF
QDIfc6Xn/+4UIb5znXf+Aem/1BfLrOS+QG+upqQtkNRPYtOmj7ZfcGymxtHy
Bjmv1IOHb1R8gexi85BP50i95mx9/Te0Ffn3XyUZ7ifzQzNNemd4K1iqvKPf
ValQbVBIN3/dClvp62bP95J5N3ag6F1SK3qunvveuYcKbzHjfo/SVmxudnjm
Ikfq78Et6ZHvrVAXeW4TIU2Fl0NHWr1JG3STI4+58FOxwLZW/mvZhuP/vSjb
xEfFvVtDhTvs2mDFs1GcvpLUw6vJhqALbeBtOBhxgJeKyiYutlZQGxw+BEuK
LaVio7qC8rv8NnSekNRcO09BmfD9wqiN7ciI6mmeY1JgzR6NtpNox9+qwsbR
UQrm6rT9t25rR9Sql1vaRiiQvbOgm6HYDoUAvon8IQpefPdoKjxK7HX9bGgf
2d8aTYe6vdshlavsF9BOwdLUt59jfNuR531pSXAb2QcDBZIcAtrxdYeB+ONW
ClrUa89/e9SO6Y/aGvEtFKinYWae2o73Sj9v9DRSIBC8hWfjl3bwyH8MolZR
kOrg/7WX0Y4RVa/0ikoKdDX76uP62sEOLs8cq6Dg+uzLpzu+tuNT4l4L5c9k
v3RcuWn/kg501C15N1RKQd7BH7vN5TvAkbdkccwHCk6KGgpsVumA07fY2v73
FHz7nfajX4183sKZI0UskX0u3/lwB5psnw1nkv3zgVinlo9NB5RNhDUGcymw
+Vty6sXDDqg38O+ikf21OIBXuONpB+QL/3jwEEusONW6LqIDjadEr9pnUjC0
nmnyitoBsRs7RsUyKHDZu8r0TVEHHlvb579PJftq0em1veUdcGQpv95OvFM3
pl20tgNf3kq7RKRQMHlKySymvQNTeSvoAckUeF00N4+f7oC7417LG4kUtP6O
Wz8804Hp5P28S4hVbn9jSC90IELLrfJ+AgW/Q29ZJPAwyPxIuUmlUmCxtnoD
k5+BPfZNt/cSf4gS7NomwoDxLRtqHYWCm+lUy2RJBrT2l59ZTNy3Z2rj+HYG
ojVfL4qOp0Dro2r3DjkGKiu76ZrEnLW1VmlqDGjDU+xRHAWORsKbJ7QY2KGQ
HL+PuIJh0yN7hIGfcQLnWbEUBLPY1pmnGNhqtqbrBPG4u5rotAUD/yVfvr+c
WG/2Tq+8LQPbHj4PLY+hIP1mQ5SnEwMGpxsmA4j5uNedobkxcDHpSpousXuI
rdgPLwbcXAbqVhLT16T2KV1j4Eup9am2aArCpHA2N5CB6eW5yV7Ev1KCxGce
MmDmstHvMPFpRXq/ShgDKWopDaLEeQUbYr0jyOcZbyJ+R1GwXsvBNj+agVmR
3SPtxNeq0iV+UxmgT4TmFhB3nZgd2JfGwOXqH3zRxOrtmnHXaAxYWwT+CiKO
srlv9yGfgVfnPNwuES8abZH8W8TAqc9t1xyIbd02Dx34zECsRaeEGfGnn+fi
fWsZ4BJ6ee4EsdSNLPsiOoln33b9Y8R3Of9ILepgIDwzlnGEePS+9rBGLwOW
HkKr9YgPC4ZQ/IYZyON68NOQODmizaF0nIGxgwIPLIh5JcS3LGEz0DyV0u5E
7JrkMnJwloH892a9PsT1cjnUgAUGVu5bGx9CvDvvr2M5ZydkB3tlEohDobt1
KW8n1q+gXPlEzP4cOnpodScMB0+HDBIb6TMSAkU6EeQ65MlN4pnzRdKpclMn
Aq4rbN9NLJ2iffuNZCfmr9EzThM/v+UQ6bW9Ey49NaH+xMtM7uYe3d2Jtrea
DdnEPjsSGsX2dGJrp5HbMPHYosqxX/s6YTS+2WMDOW/LViZnnUYnHLQ/MIyJ
1f1kVH30OrH/b+lEE3GGyTEjg5OdMCnTj1pD8ktsp+t5adNOiL2eLrUkXtKW
FtNk1wkewdcXfhJ7pda/T3DuhEJq2sIhkr8jfpNfblzohN2R4RWRxJU75Xlk
rnUC1TnZJ0j+q3KclFrk14k/A6onMomT2zzVW+924oh9sbcgqZ+Ht3M8bz/p
hHjj3ctDxCfbVToZSSQ+l2QvZ5H6/JRm+jMzoxNSFN6Pu0j9Kvn78AW+JfcT
/IeSRiwi+/6gYkknmr3MnfOSSL75q6feb+9EB0OT8zfpD8fNbD6f7emEP/fv
pKekfxTK3upTGeqEbuQMt3waBTEdJUJDk504JPhy5nI6qc/dOjfUuLvwdW3g
1G7Sr9o4HcMFVnah8tCzuFHiw4y7WUyBLnjeU5GKy6Zgx53K4bDNXZisjngh
nUPBFOOY/rc9XeA9V/zM9B0FZzNdnT7t74JHq+tf2TxSf3ce3n6p2YX0fAHd
5aR/vpVryNU53oUv21WCqwoouHr3pOgb+y7YrwkU8ikk/UPBbEr/aRcEuDhO
Pif9W43myIx52YXWllPWn0h/91Ly6vsR1YXDfwK3/CT9f0j5UWNEahfsBCd+
OtZQUL6/PHOkvAthbXa9/mR+3NWR9/Cd7UJctYYGpZPE47O6c9NCF8SLTp4S
7Sb1r6t3VoqrG0fCnAzf9FBw7ug5w+rV3bBuTlyW0k+e3+C1vPCObpi5++X9
I/NwudlydppVN84ZHFN88ZP0P4bw2CL7buh0L2WcnSHPYyE1YOTSjY0hlg/l
5kh+WoE+d7kb/Z5eEt1k3lbbXsrWCe3GHxMHzYucVDxw7ffsLu3G9cB0kWdC
5H30Vv73Fdt6sL1t5cYPZF946kbx0JLtwVEfk0xRsl+stXo8eUWpB8sKlcyD
DlAhsc95fECjB0xL3h9OWlQo/1g7mGfWgzXHjOzP6VFh4+RNt7/fA597MofM
z1KReUIl68NED3gtpk6Lkv1nDyR3s3/04OqKiaqtZF8q2MWXtvVPD771n/LY
84zsXzyjiU+4e5Gk0W575hXZT8ueRzuJ9UKN/37fjwSyD6r+eiR0shem3Sez
15ZSYST+1s31bS8CD/5sPv6bvD9aeR9Sed+LT8cLlQr/UuEbsX8zR0kvhPj3
SSsuTkCiYGldeG0vjK925cgsS8A8V8POT4O9eCLbEHxCOAEnL3n9XLG8D8vD
XQYuKybgt1kIzU6lD4Ph/q07PBKgPXtB9Mi+Pgzp1sTsupSAR88N78se6MNx
ytMpRZ8ESDUL2c1p9WGPwdgafb8E6Ou9Enik34fanrv/5T1OQKx6okeBQx/s
1i88tqcl4Khk6e7VYX244yplLPQ7Ad4iETx7wvswq7r8Jve/BFB5PYdNI/pg
eXS++d+SRHD8EH8VHd2HT2Ivfv5bmYiCMr+lcml9yL2wgnVAIhHbHTW79T/3
YeCyMHfGsUQsSyoOfjDbhzEplp9pbCIqZIuGua36IZVXlHXIOgnzVbfP/7Lp
h7JaI4XHPgkKDod+Dtn2w9pA4xndOYnsd3WcpU792PWu18LtUhIuL+uSvO7V
T977rql/eZCELQOzZ6fu98PVd3Le6kMSAp4p9LQX9MPwbuN93c3J0JyntCat
HcBAt05g3ddkmF00949sHEAqO8JpMyUV+nbx32ReDCKdKpA9k5AOjTXtT+xP
DmG39dyk+rFM8GnE/FTdOAzvvKsTGYZZuC60V+jMwDAq9647dR/ZaBV+Y3Zw
eBh8X49uq9HKxu51nFFbmMM4v+3Z5uWHsjGwqXH7t2/DuF7P7XxTLxtHtjrh
6tww9B0jpE+ZZUN43wuXMP4R7HUzLYn1zEaWzWxxpfoI6tadr8qOywaPrfXS
VM0RFMTtvJNFzYa9fdmxR9ojyL8jyJOelI21zqGtp46O4B3d0D46Ixu+ntu+
DpwaQeeS6JUu77Ohd8dU5K/rCNx6NBpC6NkYSc47L/9qBJl9lZK8/7IhuWSN
hNGbEWyMO/JrZjENZyw8Wr1iRiC69lFlPycNDF4Z5CWMIO79KptUHhoaXF/x
I2cEZkFNvzYK05An60vTqxvBYq6mCaedNARnH5w7928EcmIcBs9MaKjgiU67
xzGKJQnR5RvMaOC0mz+bwjWKsYT6ljcWNPgKvq2e4B1F3p6rmRFnaLjotSXy
0tpR5C9ML3V2ocFSeTn85Uexw6LmrtUNGnYV1Ae8sRuFrWvDQmg0DZ75wiPB
jqP4zv3ayy+W3E+ete4V51E8+Fsf7RZPg9a7ieUnLozCqOuQIBJpMMlZ9Wjx
tVEoC+iI52WQ66frv7R/MgqP2X/flhXSyDx6/vvEs1H48Gt9/FREw7K0HosD
L0ZR+tJV9FoJDU9S3DYLvxmFevng094yGhISQ+IqkkaxeiRt8c0aGhpj69Nk
SkaxIVtvvXA7DWtihflEysjfu5Stf9lBg3mMtfuSilHofyh6sLaThqGoCYWu
2lEUmSh9XNFDw2zkqryH7aMIzd27tnqQBvFw/dKpyVE0r1f693yCBsfnzyW7
2aMYsubb0TdJQ+qznoCqn6N4mKOZJD1Ng3KYm27sH3K/svLPKN9pOPo4pNaI
m4mhSMcZ71kSr/v1rbmbmei9fkrfdXEOrEu4roWJM3E+mfemF0cOjsyoiXpK
MZFXIc3rsyQHYnYp53bJMCEgxLv7ClcO6vcFzcbtYUI5tNBbd3kOCtyLIv32
MuH6L/G0Ak8OKNRfGjb7mahwPHBnHW8Orgs43FuvycSPSYXPXStyIDOmuf6x
HhOPJK/lKPPnQFjMp9DNgImjVg3dS1bnYLFJpq3eSSZMfiYcqSNuL9mcwm3K
xMWtiwaNBXNw9+Wf/b52TLz+ffe7snAOPBsU+iwcmWAu37ZshNiKyyVA1ZkJ
/f1FRo9FcqDk0V77w42JJ5eVg7vW5mDw8Fur/64ysX/x6+M6G8jz+H5dfOQG
Ew1/Fb5/IS7IkaRuucVE44aaMtuNOXgi9mSi/w4T/zbljrhvyoGvSdWToiDy
PGbOSmxi5weLVF7fZyLXqTfxwuYcaMy63TR9zIQNY3KRjWgOdspSJZXDmLhl
tdDfSCxi310hGM7Ei5l3Q+piOZhoOMbfEMmE+Rq5o3ziOWBw+eekRjERkXI5
2YO4fH+BaXAsEwq3vLc2EkcmbIvRSWRiaXyHp59EDoK6bXQkU0i8RL+otxBf
FAxnLUpnwkexTEJSMgdHb3IpfKAxIa3ftOstsfJbtdaXuUxkFUednCUWH794
9Uo+E5HU0mAVqRzMmgyUKhQxoZ5wWy6ZeOjBunP8pUwcezr0qpu4ofQE70QZ
Ew7hUsIrpUm8ZgMzaiqYqAzY8WYvMVW2yCipmonZwiGFM8RP7H/N3K0j1z+g
3uxPfCNiV6R9IxNOwdt844idGu01tJqZeFfxXKGI2Hhp5JBoK5Psob6TrcSS
T6pm9ncwwXUqQPErMXvTDI9pFxOiM3pV88QlSVKbvXrJ/b0PyVi2JQehe07K
hw4wEXJuyTAfsU3JTe3UYSbe2Dg5CRDLHk87Xclkgkb13ctP/Led4TI0TvKv
n8d4OXGt/TLfRZNMaJt8yf9Lvv/V1J7HG9lMPJxKcvpG7HLdLn7vTyY+aZja
tBOrLnv8zniWiYwbtMhC4mVhhdXuf5hQCXwiGk3cJvq1+8ECOZ+RhpHr/49P
yrrpxMUs6DccmTYmvqSiy1nOycIziYED24i1P3mJ9HOzcN3Nt+YXibegQazM
Xx4WTKa4XxYTDzAaDqxbxULUs/8od4izHP+e2LOahea/Lyd1iG+xZewNhVjo
vBp4eTGxga/plfMiLAgI7lTNI+e9medu8L31LOy87a/sQvxBvD+zRIyFSQe9
7iKSP/fTVpV1S7LwaLQiwI7YXFWtbW4LC36WPHYcxLMnwv/K72LBSV28WJ7k
Y0VXGb++HAv0J5sOlJJ8fu7ElnRRZEE7Re7bcWKlW8ePxqqysGSn0KAJyf8l
K65ZFaoR+8hsbSH1Qg9PdGeAhVenBiP0iN0zloQLHGLh4tj0yt2kvlJ78gdv
n2Sh4u+RFQXrc3DNZfTXm1Ms8E6Kv+MnPvpLiOe9KQsn/jjdt12XA+ZKd7nv
1iwYRHqmzZD6lzqw5Ybdfyw81X9QNiqUg++VRqE33Vj40MtIECEuNfaLe+XB
Akff6Qwt0l/OuHZVNV9hYbfOnW3BpP9EvnoirB3AwirSDHpWkvP4vZAh9ZqF
q8raxa9JPxzbudadN5qFpRbSc084c1BsIy/HjmXB93HMlD/pn27ldplFiSyk
cx1db0b6bXVoZaZ5DgvltsKGjfM03N76JCu0hoXbOvwb2WwazMxTPK7Us7CQ
USsRR/q53MMyeesmcr4F7CGDKRp62L+ydrSxIElf8yryGw37Ci2yPw+wELT5
aS0Hkwa2sTRtfo6FRud+NY4uGqoC1S8OzrOw45bZDzcGDdEFpxWr/7GQUjXj
2Ebmk75YMC2caww+afM3Xn2hIXl8gqawegyDGZKXp+ppOHs7L8dp2xgeNtpk
1hWT+ZZxLLfFZAxhn15Nm8SQeb/XYnjObAzlC+GDK6No0ClxERK1GsPqrUs6
iyJpKKDf83S2G0POAfcuoRc0xP2skF24QLwjeJ9/CA2X92snbL03hoFHwzMe
V2nYVKH24ur7MSSKmIxG6tPQbqBXEVU4hmvpqd/eHiPzt93iV1nJGNQCtAWr
D9OwdOyqMV/lGLLfXS4e1KJhakU+f3zLGDYWepZ0KdNQdnLPvbpvY9g5lmo9
solG3rN3XRUTG0fbu+v0M8xs7Fy13YRfchz60cejNgxnY/KAlMKiLePQ5Fht
QO/Phtfr9WO9O8bBLnewVOzMxg1LbvMolXE8C3ltWFaXjVBGn+pmg3Ecl6NX
SWRnI7f16dwG33FMnRB62XklG4sb5rxFusbhI8Fr/mQmCy57hsJne8bx074r
w/F7Fuiv6nM7+sfx+quYh8pkFuKd4n68Gh3HX/dlB+pHsnCY47i72PdxSN0e
3NH0JQshe6LPbef5Cg+br7O7aFnYEHnIZP/erwiiehic+C8Le5yfKtqEfQXl
lfgwpSkTutdLU7QsvyG4PaL4UW46TAw7rZuEJ7A0nVJam5ACrah7DX/6JmDH
1SETIJSImudc85cTJhGkKaEU6hiP7Ylvs/TlpmBs1SQUPxwNC03FsoywKWw9
GbjzvFIEHryX9nJkT0Ho473yj0ee4j7PPz8d/Wk07kiZzyy4h7yIrD0tBtNY
dSY58tidexiRsWfZGk5j8MezmgWDe9A6VnXilvE0jFw12jOGgzB7/6noe/Np
0BzX9RwUCILjym0f5c5N49pvT80L7nehxW84u+HWNAaEbvq3aPnDPXpJarLf
NBhlax/xrPbHG7lcG1X/aXjK5gfa9t7G3IkNFSZ3p/E3OfuNz/XbyHw8/Ozx
g2noFaVt18/zw2bBq4rcL6dRyTQq71e+hbk1cW7srGmID2x53x5/Fck+Nd6O
NHK/Xw4FyRtehWX399uMnGlYhxre6fzrg+J47fDSd9NwPiUtuMXUB3cVR4qe
fJzGzu3lc8n83hAy3L5asWoacSMbX0o/uQS5Bxm0i33TaG9usK3tcsfAZNvH
0f5pLIQrqQ+GuSPMaFGlxeA0IvLfTzged8fMesOugyPTCIwMC/O4eQGFSWxO
oa/TOChjGaRjdB7HKvaY5MxM47zqpfbvW5zhyPFh9scqNqwfVapwhpzFmvRQ
3TB+NgymHK+/5D+LMjOH54oCbJyq1P72IuwMJLJWKXmuYaNA92N6laYNemzO
XpjcwMZW6aSncs8t8JBXuTBkExsyly7a12abQ+0dz0pZUTbi/qie9aabIWJV
TrKrBBv8Xg/Xi20wxamPS0dY29joqxBRekg3Bqdzp9I9GTbM5b6GBC0zRrZQ
pv+2nWxkvvC80KJpBH5XM/Fzu9k4aLLW5GahIWrXp1oO7WGT/iMiKlF6HNc+
30rxVyHXG5ZuXLDXg4znqd8SqmxMC6f0LuU7hqCqhfCzamyEvBfX6Pc+DG1v
w+YeLTa+WKZJl1AO4rvkFglfbTa2uVrUzflrIbbht/umQ2zkdxw/w3bWxKKt
8assj7BRbGvs1R+hjgy6t9Wfo2w8i44z2P9cDda+x1Mj9NjYK1r8OitmH95/
+XWkw4CNqcvui8JYynDxq3nhbchGI+vrLsMte7B2V/SoiBEbbW6Wi+suKuJy
wJE7JiZs7LLa+YGqKQdpuc0tP0+zkSRguS8rYBdaOtkSz8zYEFvnLz+QKAMF
xcjiZks2Anl+lSyxkEZ/jzvfRWs2FgXd3B/LkkBosI61wBk2ZlsvpDlHigHK
69OyzrKxwkaE4TC6ERP9E39O2LHRGWK1LaN3LV4//HR0yp6NHO7zXPYSa6Cn
+uLlI0c2dkR1F+3LXI0/Q65MWSc2hvctcW8VXInkUE2VemcS76OPyq3OcMNM
Tfju+f9IPLo0XvrpcmAZc6xlxXk24p9HeVx+9kf93dMiyVQ3Nh6k6Jmtavuu
7ogwz2Pu5Pz1V8+EpY2prxl3KhnzYOPSaNLE2d196mXPD/AHX2Rjc4OnwL6L
jeqeWgI22y+xYby6mMPpaa66+MRIWuVlNraUUVSKP1Yc+B/8xVAl
           "]]},
         Annotation[#, "Charting`Private`Tag$26662#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{17.858577806122444`, 0.49999999999994316`}, {
       5.192699455966533, 0.5000000000000284}},
      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->{{0, 1.154}, {0., 0.07870593117729505}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {161.02493916317803, -95.0011368476809},
      ImageScaled[{0.5, 0.5}], {301.9382030546833, 180.95454637653503}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVkHk01XkYxq9RERpEtDDIvncvHZR6IkvdOqZsDRNJiBbUiEhKGGUbRVdT
3FIkqbRQqFzkRpEkZCvLJcu1/L62JDR3/njPe57nOe9zzudV8Qyw9/6FRqM5
Cub/vWMJVZKz3WWzsMbprzd4LpubPWsdnBkmuNoUNpLCMcH0cHiZKsMWJww8
NDw4tljCaAoWY+yBdihzqw1nD5IchRrm6Qex859cBzPOQTR4p535Rg9BQeJp
HoMTgiB/T+dJeiysbs2+MeTEgjteVT5OT0NDbfQzA04ayiwb6u/r3kHQ9+bB
jtI7mHV68C1u8hGKFfkLvP2PEfHJo6+y8BnsqDBjQ5si8JU4nI6Jl+CM/Gvu
fLcUa18UmubwypE7oOWZu6sCr2q6Rd6Lc2HUP+Uqn8BFa6TVazP1asy+oLUc
L6pGH+wCdy+tAS+GL77hQQ28u+9LtejWYVn5d94Erw7+1q51MQn18DnLWpxI
6uE1MiNe/uMDWHYBQWl+DZCNrag0ivuIQL3OpnShRnCy9k3MzTdiiqUe9UdE
E9QKNDPmk5vhd4oRLrXmEyrl4kuvK7SA+c7b3uJhC/bNlztdSWzFMRMFTy2d
NhQ0qfpWK7aDheTKZZXtWMRwoexSOrB6q6tXruVn/Hq2eEJC6wuUDu+ct+r+
AgeVQv8jhZ24nLXgoG/eBaZqhaF0ahfiai/IyMx2ocqA0yfi1o3n57qFZ6u6
YTGX3Zy7sgeHxoLfbjzfA5e/XKPS63vgZ+9/vMSKB7sDWSM6V3hY5eR1caN0
L7asaLnkZd8Lv/LfteXreyG5JXPKTKEPsolt1tPsPoTLmsp69PSBUuXqyhz6
iq93i47Sr31F5oChZJxmP/RL6qLZB/oh9QyTi6f6cTy+rvnpbwPQ2PaE3V4w
AMcl6b1KzQNYxC2+ORo4CJnZhXy1jEGw15avF900hPr8HU8bnYcgcbuFH/Zj
CIe+6IcpK/ORN0YPnXrDh9D77yflO/gw78ppr44bxnq/FKN9qcNQcpVpb7Ud
gW14RZ7l3hG47uwImJQdhfPudvcPcqNIknwucbBxFJbXL7z/0TUK9vTW/N5b
Y6hhLZ4LzhnDigd5Z+pNKGjfKXxkt47Cwf4M4zYWhT8tjCrzUwVaqsN3aJ6C
lfgEW0PgX/iZuuvwTwp6TY9DM9IoxJyNNB2mESz4Mgzjr1KYLJgSHRUmuJlM
v+pzg4LkNeY9spRgoNMwUPEehQxG3tzMCoKgCD2F+FcUmIt8K0UMCNy2DU8L
cSns7WU/Pm9IYLP83oeTrwW5iljmUjqB/G3dWJ83FL4rno4QNyYoeaczbvGe
wiPRTxslNxDQFLWrZ9oE92fcyuRsCBKeqwf5jFN4m9VMqbsTVCu7UU0TFLzz
Njte30ew6O/UI9ZTFG6da322cj9B+C5hb7UZClyfnDPiXgRH+rqcegTcXGa2
NPEj2CmZbuIu4Ghr0MOLEwTngz4+eSdG4Gr5Knt9CEFlq9i6TRIEvzxMkMg/
SWCeFaqlIEng+bioLfMUgZ7ZnlVtsgS1CsGhsZEEvuyky9vlCOJ9s7tpUQRZ
wq+li+UJ3paJMMOiCRTqjMWurCaosvZZczSWQOLA8h9OyoK/iSSU2ScSbKve
HsJVITjFvKtTm0QQrR85YaxK8PLjQIp1MkHZpaKALDUCMyW6culFgrlvY3wZ
DQJRYR/O+hQCUzdN3yhNgs+KhU2sVEFvhXvvuJaAKzFBeiiU4KEmy8NTh+Cw
tLds5zEKg1dN42N0CTyWuxnQhAjnP5R5rVA=
           "]]},
         Annotation[#, "Charting`Private`Tag$26704#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{17.332429846938776`, 0.5000000000000568}, {
       5.192699455966533, 0.5000000000000284}},
      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->{{0, 1.154}, {-1.0627443133427263`, 1.0987766597698887`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {482.8117435099423, -95.0011368476809}, 
     ImageScaled[{0.5, 0.5}], {301.41205509549974, 180.95454637653503}]}, {}},
  
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 643.5736086935285}, {-190.0022736953618, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.8175673122534857`*^9, {3.8175674402281427`*^9, 3.817567489380693*^9}, 
   3.817567520221552*^9, 3.817567705671341*^9, 3.817567793079455*^9, 
   3.817567857173483*^9, 3.817569690002346*^9, {3.817581574147563*^9, 
   3.81758158515839*^9}, 3.817582270590219*^9, {3.817582390618846*^9, 
   3.817582400806323*^9}, 3.817582450685178*^9, 3.817582634245347*^9, 
   3.817582776393298*^9, {3.817582962930173*^9, 3.817582972201144*^9}, {
   3.8175830310073977`*^9, 3.81758319355462*^9}, 3.817583875298687*^9, {
   3.817583922931497*^9, 3.817584004935768*^9}, {3.817584099181155*^9, 
   3.817584321798046*^9}, {3.817584372034237*^9, 3.817584397850472*^9}, {
   3.817584449443131*^9, 3.8175844632363253`*^9}},
 CellLabel->
  "Out[299]=",ExpressionUUID->"5ba21607-6804-4676-bd54-9ca50ed7e210"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"test1", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"g1", "''"}], "[", "\[Theta]", "]"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"g1", "'"}], "[", "\[Theta]", "]"}], "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]], ",", "\[Theta]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817584512468288*^9, 3.817584556777507*^9}, {
  3.8175845874229794`*^9, 3.817584598290722*^9}, {3.8175846841114597`*^9, 
  3.81758470116075*^9}, {3.817584771036125*^9, 3.817584772363957*^9}, {
  3.817585237332501*^9, 3.817585238467779*^9}, {3.8175856895510893`*^9, 
  3.8175856906752253`*^9}, {3.817613345155766*^9, 3.8176133469126177`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"b69f87e3-927b-4524-9686-1a17f2c879bb"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["\[Theta]", "2"]}], "+", 
     SuperscriptBox["\[Theta]c", "2"]}], ")"}], " ", 
   RowBox[{"gC", "[", "0", "]"}]}], 
  RowBox[{
   SuperscriptBox["\[Theta]c", "2"], " ", 
   SqrtBox[
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["\[Theta]", "2"]}], "+", 
          SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"gC", "[", "0", "]"}], "2"]}], 
      SuperscriptBox["\[Theta]c", "4"]]}]]}]]], "Output",
 CellChangeTimes->{{3.817584537926284*^9, 3.817584558482575*^9}, {
   3.817584681776753*^9, 3.817584701794977*^9}, 3.817584776620221*^9, 
   3.817585240635579*^9, 3.8175856951701927`*^9, 3.817613349497088*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"fca5aade-1849-4879-95d9-c83dd6b84d7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"test2", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"g2", "[", "\[Theta]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "0", ",", "\[Theta]c"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.817585638733982*^9, 3.817585654272316*^9}, {
  3.817585696967054*^9, 3.817585697075837*^9}},
 CellLabel->
  "In[370]:=",ExpressionUUID->"76d49acb-b5e2-4974-82cf-c376b2e9bf83"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["\[Theta]c", "2"], " ", 
   RowBox[{"gC", "[", "0", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["\[Theta]c", "4"], " ", 
   RowBox[{"gC", "[", "1", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "24"], " ", 
   SuperscriptBox["\[Theta]c", "6"], " ", 
   RowBox[{"gC", "[", "2", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "40"], " ", 
   SuperscriptBox["\[Theta]c", "8"], " ", 
   RowBox[{"gC", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.817585659088111*^9, 3.817585703537512*^9},
 CellLabel->
  "Out[370]=",ExpressionUUID->"abc7d2c8-0464-4233-a249-6655f54c6cae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"test1", "/.", 
         RowBox[{"\[Theta]", "\[Rule]", "\[Theta]c"}]}], ")"}], "-", 
       RowBox[{"(", 
        RowBox[{"test1", "/.", 
         RowBox[{"\[Theta]", "\[Rule]", "0"}]}], ")"}]}], ")"}], "/", 
     "\[Theta]c"}], ",", "\[Theta]c"}], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.817584702838284*^9, 3.817584748931059*^9}, {
  3.81758479119285*^9, 3.8175847990853453`*^9}, {3.8175856683615837`*^9, 
  3.817585674761424*^9}, {3.817613353375083*^9, 3.817613353885504*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"06ec162d-d4ce-41ef-aa36-5c655ac7865a"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"gC", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"1", "+", 
        SuperscriptBox[
         RowBox[{"gC", "[", "0", "]"}], "2"]}]]], "+", 
     FractionBox["2", 
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"gC", "[", "0", "]"}], "2"]}]}]]]}], ")"}]}], 
  SuperscriptBox["\[Theta]c", "2"]]], "Output",
 CellChangeTimes->{{3.817584717925565*^9, 3.817584749355122*^9}, {
   3.817584781653911*^9, 3.817584799951426*^9}, 3.817585243063086*^9, 
   3.817585675459407*^9, 3.81758571432295*^9, 3.817613355851296*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"4f58f171-276d-4b8b-a439-52aa6e0e19fa"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"eqLow", "[", "2", "]"}], "[", 
        RowBox[{"f", ",", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "0", "]"}]}], "]"}], 
       "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"eqHigh", "[", "2", "]"}], "[", 
        RowBox[{"f", ",", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "0", "]"}]}], "]"}], 
       "[", "1", "]"}]}], "}"}], "/.", 
    RowBox[{"rules", "[", 
     RowBox[{"f", ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "0", "]"}]}], "]"}]}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.817566966465438*^9, 3.817566988369422*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"14d51596-0d76-499e-9baa-e7be6425156e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"eq2", "/.", 
     RowBox[{"{", 
      RowBox[{"\[Theta]c", "\[Rule]", "1.3"}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"M0", ",", 
        RowBox[{"M0", "/.", "sol1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "0", "]"}], ",", "1"}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
   3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, 
   3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
   3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
   3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, 
   3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
   3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, 
   3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
   3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, 
   3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
   3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, 
   3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
   3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, 
   3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
   3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, 
   3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
   3.817567023284172*^9, 3.817567067932376*^9}, {3.817569671239231*^9, 
   3.817569671464748*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"0fdc6db7-418c-44d4-b217-8c6a47dbf54f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"M0", "\[Rule]", "2.5096411192928767`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.21232864452555533`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.817561286441853*^9, 3.817561420490069*^9, 3.817561452135456*^9, {
   3.817561512454604*^9, 3.817561517595207*^9}, 3.817561585719215*^9, 
   3.817563004628446*^9, 3.817563182856628*^9, 3.817563228472159*^9, {
   3.817563534906947*^9, 3.817563573064754*^9}, {3.817563797249289*^9, 
   3.817563825598139*^9}, {3.817563996789044*^9, 3.817564046321703*^9}, {
   3.817564078153729*^9, 3.817564103465789*^9}, 3.817564181902115*^9, 
   3.817564233365617*^9, {3.817564277720583*^9, 3.8175642801348143`*^9}, 
   3.817564315116712*^9, 3.8175645338256474`*^9, {3.817564627325935*^9, 
   3.8175646522898493`*^9}, {3.817564705276019*^9, 3.817564735465515*^9}, {
   3.817564839073145*^9, 3.817564850280691*^9}, 3.817564889679229*^9, {
   3.817564994846734*^9, 3.817565091817582*^9}, 3.817565231749591*^9, {
   3.817565295003468*^9, 3.817565428068199*^9}, 3.817565500042843*^9, {
   3.817565636029861*^9, 3.81756564530912*^9}, 3.817565735768449*^9, {
   3.817566053734901*^9, 3.8175660860827293`*^9}, 3.817566141015539*^9, 
   3.8175662848590927`*^9, 3.817566325612877*^9, {3.817566873920313*^9, 
   3.817566888279759*^9}, 3.8175669368598824`*^9, {3.817567045496682*^9, 
   3.817567071548258*^9}, 3.8175676612529373`*^9, 3.8175677905056353`*^9, 
   3.817569682355029*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"67408372-ed4a-4c44-8e4a-095d1f5a7f3d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"eqLow", "[", "2", "]"}], "[", 
        RowBox[{"f", ",", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "2", "]"}]}], "]"}], 
       "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"eqHigh", "[", "2", "]"}], "[", 
        RowBox[{"f", ",", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "2", "]"}]}], "]"}], 
       "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"eqMid", "[", "2", "]"}], "[", 
        RowBox[{"f", ",", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "2", "]"}]}], "]"}], 
       "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"eqLow", "[", "2", "]"}], "[", 
        RowBox[{"f", ",", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "2", "]"}]}], "]"}], 
       "[", "1", "]"}]}], "}"}], "/.", 
    RowBox[{"rules", "[", 
     RowBox[{"f", ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "2", "]"}]}], "]"}]}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.817566966465438*^9, 3.817566988369422*^9}, {
  3.817567083496526*^9, 3.8175671002682753`*^9}, {3.817567232980145*^9, 
  3.817567237450404*^9}, {3.817567395420353*^9, 3.8175673955203133`*^9}, {
  3.817570287418523*^9, 3.817570318305339*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"85e42c53-eadd-4f1a-85ea-31722ac3808d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqMid", "[", "2", "]"}], "[", 
   RowBox[{"f", ",", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "0", "]"}]}], "]"}], "[", 
  "0", "]"}]], "Input",
 CellChangeTimes->{{3.817578043607004*^9, 3.817578057099272*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"94b7d8f3-1de1-4724-9998-f9046cf18d08"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "15"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"2", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Theta]c"}], ")"}]}]], "]"}]}], "-", 
    RowBox[{"15", " ", "B", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"2", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Theta]c"}], ")"}]}]], "]"}]}], "-", 
    RowBox[{"15", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"17", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Theta]c"}], ")"}]}]], "]"}]}], "+", 
    RowBox[{"15", " ", "B", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"32", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Theta]c"}], ")"}]}]], "]"}]}], "-", 
    RowBox[{"15", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"2", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"B", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]}], "]"}]}], "+", 
    RowBox[{"15", " ", "B", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"2", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"B", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]}], "]"}]}], "+", 
    RowBox[{"15", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"17", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"B", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]}], "]"}]}], "-", 
    RowBox[{"15", " ", "B", " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox["1", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]], " ", "M0", " ", 
     SuperscriptBox["\[Theta]c", 
      RowBox[{"32", "/", "15"}]], " ", 
     RowBox[{"ExpIntegralEi", "[", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"B", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Theta]c"}], ")"}]}]]}], "]"}]}], "-", 
    RowBox[{"16", " ", "\[Pi]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
      RowBox[{"1", "/", "15"}]], " ", 
     SuperscriptBox[
      RowBox[{"gC", "[", "0", "]"}], 
      RowBox[{"1", "/", "15"}]], " ", 
     RowBox[{"\[CapitalPhi]", "[", "0", "]"}]}], "+", 
    RowBox[{"16", " ", "\[Pi]", " ", 
     SuperscriptBox["\[Theta]c", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
      RowBox[{"1", "/", "15"}]], " ", 
     SuperscriptBox[
      RowBox[{"gC", "[", "0", "]"}], 
      RowBox[{"1", "/", "15"}]], " ", 
     RowBox[{"\[CapitalPhi]", "[", "0", "]"}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"15", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Theta]c"}], ")"}], " ", 
    SuperscriptBox["\[Theta]c", 
     RowBox[{"2", "/", "15"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Theta]c"}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.817578074909642*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"c8797d01-60d9-4367-bada-270d874abd6f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol3", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"eq3", "/.", 
     RowBox[{"\[Theta]c", "\[Rule]", "1.3"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"M0", ",", 
        RowBox[{"M0", "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "0", "]"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "/.", "sol2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "1", "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, {
   3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, 
   3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, {
   3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, {
   3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, 
   3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, {
   3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, 
   3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, {
   3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, 
   3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, {
   3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, 
   3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, {
   3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, 
   3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, {
   3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, 
   3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, {
   3.817567023284172*^9, 3.817567067932376*^9}, {3.8175671317703943`*^9, 
   3.8175671596579437`*^9}, {3.817567241410817*^9, 3.8175672504997997`*^9}, {
   3.817568075647451*^9, 3.817568078380481*^9}, {3.817568594743252*^9, 
   3.8175686239095984`*^9}, {3.817569779755021*^9, 3.817569779981715*^9}, 
   3.817569957333053*^9, {3.81757027719392*^9, 3.817570284741372*^9}, {
   3.817570386012393*^9, 3.8175704096934767`*^9}, {3.817570564684226*^9, 
   3.817570567677744*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"f170d041-00ce-4e11-b3a8-0bd59dad2b6c"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "lstol", 
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"", 2, 113, 52, 25018801182717762080, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.8175681074212227`*^9, {3.817568602720385*^9, 3.817568624745062*^9}, 
   3.817569911216564*^9, 3.817570012763472*^9, 3.817570103749761*^9, {
   3.8175703802086477`*^9, 3.817570411997117*^9}, 3.81757046521631*^9, {
   3.8175705207912827`*^9, 3.817570554229301*^9}, 3.817570599134549*^9, 
   3.817578033326234*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"4eacc95f-2370-4f5b-b81d-114beebccca0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"M0", "\[Rule]", "26314.657975676913`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "0.26058817076147406`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "0.05055607081397803`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "2", "]"}], "\[Rule]", 
    RowBox[{"-", "0.06098078955322251`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.817561286441853*^9, 3.817561420490069*^9, 3.817561452135456*^9, {
   3.817561512454604*^9, 3.817561517595207*^9}, 3.817561585719215*^9, 
   3.817563004628446*^9, 3.817563182856628*^9, 3.817563228472159*^9, {
   3.817563534906947*^9, 3.817563573064754*^9}, {3.817563797249289*^9, 
   3.817563825598139*^9}, {3.817563996789044*^9, 3.817564046321703*^9}, {
   3.817564078153729*^9, 3.817564103465789*^9}, 3.817564181902115*^9, 
   3.817564233365617*^9, {3.817564277720583*^9, 3.8175642801348143`*^9}, 
   3.817564315116712*^9, 3.8175645338256474`*^9, {3.817564627325935*^9, 
   3.8175646522898493`*^9}, {3.817564705276019*^9, 3.817564735465515*^9}, {
   3.817564839073145*^9, 3.817564850280691*^9}, 3.817564889679229*^9, {
   3.817564994846734*^9, 3.817565091817582*^9}, 3.817565231749591*^9, {
   3.817565295003468*^9, 3.817565428068199*^9}, 3.817565500042843*^9, {
   3.817565636029861*^9, 3.81756564530912*^9}, 3.817565735768449*^9, {
   3.817566053734901*^9, 3.8175660860827293`*^9}, 3.817566141015539*^9, 
   3.8175662848590927`*^9, 3.817566325612877*^9, {3.817566873920313*^9, 
   3.817566888279759*^9}, 3.8175669368598824`*^9, {3.817567045496682*^9, 
   3.817567071548258*^9}, 3.817567145762271*^9, 3.817567226729545*^9, 
   3.8175672805471077`*^9, {3.817567723233759*^9, 3.8175677300193787`*^9}, {
   3.817568079036153*^9, 3.8175681074809437`*^9}, {3.817568602782158*^9, 
   3.817568624803339*^9}, 3.817569911341571*^9, 3.8175700128165197`*^9, 
   3.817570103832847*^9, {3.817570380409218*^9, 3.817570412059435*^9}, 
   3.8175704652714357`*^9, {3.817570520846631*^9, 3.817570554281905*^9}, 
   3.81757059925739*^9, 3.817578033441112*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"37349b20-07d0-4012-90ce-068c376209b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "1", "]"}], "[", 
         "\[Theta]", "]"}], "/.", "sol3"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "1.1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "1.2"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"R\[ScriptCapitalM]", "[", "2", "]"}], "[", 
           RowBox[{"B", ",", "\[Theta]c", ",", "M0"}], "]"}], "[", "\[Theta]",
           "]"}], "/.", 
         RowBox[{"B", "->", 
          RowBox[{
           RowBox[{"ruleB", "[", "2", "]"}], "[", 
           RowBox[{"f", ",", 
            RowBox[{
             RowBox[{"g", "[", 
              RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "1", "]"}]}], 
           "]"}]}]}], "/.", "sol3"}], "/.", 
       RowBox[{"\[Theta]c", "\[Rule]", "1.1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "1.2"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8175672854849167`*^9, 3.8175673108365*^9}, {
  3.817567343605356*^9, 3.817567515945986*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"dcf13cfd-3c9b-4f00-914a-62dd8441c54a"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VN8bB3DJUlKWyJotWm2hRPjYZ1IKoSKVLUSoVFoQyVZJfFtshZgZ
SwtaJLqKSkqylCwzY8mamBlapPjd31/zer/unXvOc+5znudcVa8QJ19+Pj4+
2jw+vv//TrKX6Tzc6mZW/T0uZaWbrln2eWUVUeVNWOX6986fucUI0XiS0K5E
BUdLvvnJ3HLs/slvWq20GyKqlceuzmmhkbVa5oGSPzR7fY8fmjOFcOvm2EKl
cJhvUasQnrOHuv0rY5pSAn7JXzyY/s8D+iIi1/OVbsJIdKBu/NdhZDVPCTqr
FcJlzfAyZ5UotPk+PFRXXIbKg74Cr/nioaXt+PUJvQJNu232nF+TjJ9rJaPO
axCgiDLnGzJTYXFbxMkg4yW63AKDtlCuw9xK6Udq3yuE5v8n1tqajuFtK1Rv
KbzFDiGWcbRaNnieWyQ3Ln+P3IxvitsFc2BwdZ5U5f4mtHm26q2IyMV338OH
fTc0w4wr2fOMyIPUYydp6/IWuDy7ujiMfQe7l0a/uunYBrGOksTrP/Jh/xNf
9Ns+wWFD/luv9gIsWVaiWNP5CcFzc3e/dRbgwwZZz229n/Di5KD4UVYBth/n
jPiMf8LIyasOJwcK4DCVM3NtwWfMxKgWe08WwIk3T/m3yWeEC6gH1S6hwXW8
1req4DO6b3moZ1nRsG+QMml9sh1rhybSMgtoGB1+lVIW0Q5r4x67Ywwajn+z
0laJbYfRMUYktZiGSxwEzKS0o212r/u3BzQ8+2PILi1qh8R0CVuyigZZsdXv
lFjtSHoU/2a4mYZmwwV3flt/gcwdDnF3hoa9xnHmB7d+waO6iUMGszQMmwiw
Wh2/4GeBfkIFHx18lnxy9/d9gYWHnexTQTq0t/1O9g3/go+1C+IyxehIOjB8
uqX4C8wnfXcOqNFhnVjvVCLZAeuzbblJFDoGGz8uLJbtwL6mSNH0LXQkSnbU
FCp1AHd8NhZspeND5og2fW0HrqnNvn68g45d90QW5Vl24NIJg0/Pd9FxqHVb
7Y2jHbA1ex/m5UdHyvJm/fMtHQjYkWjzM5YOPa+O0egvHaBdX6tVFUfHJ1pv
7jlWB9IkHBujEuiQ1+WJRY52YMj04Ea+S3TcsVw6Fs7fCb1yO9pAKh2P/Vzy
g/U6cZSV2GKZQ0dXaYeUW2onIh9lSds8paNMfn5+581OXKJYNPRW0pFwXlPf
/XYnoooevD1TRcdGlyjHvSWduK8oy6ATdKT+Vk/e97oTxxs3MFmv6KAiVNj7
TyeuCqjPNDTTocxIv97P14UVWt1WJq10/BSv1fAR7sKCtJVtRW3k/PqkrX2l
unA5535DVDsdsxeenfPT7kK9q7PIQiYdD98L/Qn06oJvh1jxzSE6Lm7QTRzz
74JFSJsra5gOr1t7ZA+HkM+/QKWojtIhFlqyMfhsF6I9Un/cGiPXc6nTsdDr
XSgQFzp/ikuHqlv2WFhDFyxtdpkW/6Hj98vXZ3587MIp/QSVVzPk+1nHETnR
3oU9gkyb7r90nP1nuebk1y4onXB35Z+j40vOsO+p2S4odt5K0prPQPKQPjtC
rxvvc/+p8C1i4GzqUPyVTd14nN7mwCIdYJqpm2vWjdja7QqVogxYp/HH1Nl1
o2CmNurQEgb+mDWrL/LuhrjE1/P3JBjwux586GZaN6oaAr1rZRhwtlBbWpTe
jZb05+vPyDJgOfbp2bPb3Xj2WTddV44BJUvTxezibuxYoqj/nzwDbd8XPdCo
64bhiycpZssZMLcp/FE21Q2nf0a9ymoMaHP23qr7041bxR8NS0krZIpTPvMx
UT6futJ8BQM/OSdvTosycf1CaoOrOgMlWbabzTWYOMap1PZbyUAG5U+/4zom
NqufshwgHc+7e8l7PRPz36Z+P7CKAS+qNCvOlImRuYyFjqsZkJvqP9fowkTd
6wO7pNYyIHT7xhq2OxMCxm7qUaSntmxt4XgysSdic8IQ6Y+3y1ZIBTOh239O
qnQdA3Fbo1+7xTGx/elj01VaDIT9NAgJusRE4NZLNZGkPXOHZSJTmWh5MdTR
Strk146A3FtMVN8V+HhCmwFenpLo8GPyeQce1t/WYUDq6OSlM9VMnPObujZC
eqNF/WKxOiaet366rKvLwGn2EbGNzUw8Yzv8e0Q6655tytt2JoJOfQqbIv08
QkHCg8WETFDzMt31DPArvpKM/cZEdNrCzluk1b+lp8nwmDDu1p9pJm1bGSxV
/JsJaVqpLb8eA/6JVtfM5pgYmDxdpUM6abfsshZBFlZpJux1I12y6vt1X1EW
1ORaVsaQ/vDzhcy0JAu8YUcFOmnOq+s3L8mxwNCaZ/yWtOS1QDkVFRbcmB0x
w6QNfMwzyleyYOT0+YeAPgOu+tIKFC0Wiuy4qUqkw/lHMzv1WXAe0XDbQDqj
+blisDELlEchW7eQrspJy55nwcLf9IaDbqRZIf5K1ygsnB3SK/EnzQfT26u3
sxDgVKAQRlptiaRKlTMLKlNKj86StmYO5uxwZ6HeLjs8hvTBkmeq/Z4s+Bsp
HbxAOuFMSt4Jfxb+CedE/N9Fdr4rREJYSPVWJf5//3s54/zs4yy47MtdG0F6
fHiJxvqz5PxDlGv+P554RX9BXQwLW8IyowJI68VXrNydyAL1nnSAO2ln18v0
b1dY2PAq+awd6RMaXqujrrNg/Fq4ciPpm1MbCyWzWZBXj1FVIV1Zu2gt7Q4L
e5/MlQmR7k7tKTIqYsHxeUzwKLmes56P1jU+YMGEudj5HWmV9UklB56Q66eU
711I2pJvv9ZUNQsDXGp2LGmfJv178XVkvNp88zxIx91aoKPwjoUU8Q/JeqQb
TMp0Lb+Q1ytqVn8i82NsUXzpJxYLMb8mDPJIL+ly1wsYYMG8yS4wiLTTKUGD
FB4Le/KzXH+T+RdG7Xy4YpqFCIfcRZWkr8vc3/BkjoVFk2Oj4aQ7H+02ZImy
kTYQvnqczO+/sVoVR5aycUqxIS6ftJIzv5GgPBuNMrFiu0l78YqNNVexwU7f
nfOY3C+xL849I7TYOGgZz/AkTUtxMdlpwIbYpG3XQtKj2nOmpy3Y8FGn1TiS
++1ooJNFvTsb6y/oXyLI/bp/uZGCqRcbEeGegy6ktzUp/yj1Z6P31t0LI+T+
XqX/nZF5nI1c+fa0BaS7/8SLh1xho1aDn6NB1ouGkuDR/mtsaHmXhdHIevJk
n0vd7iw2RNm/zNRJp75UC7csJMfbeSFfhqw/lKRqtnQtGwOfUx8xyfplYJL/
NOktG8rCrf5U0mrjSWlzTWwIDBt6PSDr3V/H3ZSRbjbkqp6vCldloExu8l7V
TzaEN8zNDSqR9dxZilgv3YPZbed/W5D1NfausGaQbA+eFijKRpP194zQzE2a
Qg+K/ayiqsn67F/Re1RBrQd9vTnq2ssYsFK8v1JQpwefr8V/GJdk4Hf/luQv
1B7cHS168p3sBxMmpjOS23pg7ynhMY/04DVdf/sdPRg61rxVUoSBVoqM5UuX
HoyuZwtqLmDgXvHXH8VePUiOfT9hJsCA97Eoj6izPeQ5S/ppH9mvDn433BUT
1UO+DwUWk+xn/n4chwsxPVD/dILxeZqOIHdP64sJPagpv6f14hcdYVZW6278
14M12ln/Tk3SEbtUePpeCfn/SruPp8n+mV+e/B+ruwcVv1oMKz/TQdOiJPey
e7Ah+/uWQ5/oYNDn4r/29aB+XpegLNm/SzJDz4wO90BbpuVMENnvH5538vo5
1YO3awif6Xd01O1cprtkcS/c3wo53Kmhk3Uv+52paS/u8evUb2LQwc/nVxpt
3ot3pfE1Z2h0KInq3nhl1UvWieN8Vfl0uKq/9LK364V/jtRug1w63jgPTu/d
1Qu3wzcOC2TQUfhIe/XZI714eeNjkNpFOg6fJGIrC3qhlLm+ZFcgeV47n3Bo
ltELq3txy60DyHiuODpYlvRizjeArUWer1j0foWGsl5Yx0i5TnvRseOLcHkH
0Quxe7UyoW50rDdy6P3d0YvxpeIGTCodP/70mBou6YPwEif1ihV0KK4OeWAl
0Ycf7+9uCVclz4Mu/9QcpPpQp6aiulGZjv/uyy0IkO/DlPmpoSJ58vzm49SS
sbIPeRG+neESdIQ21h6cNetDm+SlbBp5Hh29TbvyKqQPSeZZH7a208CyDurd
2dwH9pD8g6ZoGgK9z/M5tvVhcoG57OIoGn5HZyhvb+8D4/befdSzNCwl6j2o
zD4Ml3MuVJyggWqk0Wky0gebrtfbogJpKNditWjM68fcw12idGcaEpY51P3S
7UdXnOyspwYN64f16Zkp/XjWoKWaVVMASUmVI0oHvkKwY9sDh4Z8vI90DqpT
HYDXQYu16+vukP30bmDB5ACqlH89b4rPw+vnlpdLXwzCM6Pwyi/9XDhuV+np
iR6CVXJRX13NbRzyUTPc6jQMHbOhs1lPsuBeHUR8kRrBQGbGyqm6dDwJmQy4
2jqCxdWyuXJN15HLuCV7IW8U35YFCvOlpMFbPfV3pvc3KEp861C6lILylUXd
3w3GIOLnIr2rPAndgSI8r99j6InYe23Nn1iEiNDXzK/4ji3D8TfTgqKQouPv
y4ofx4Js4am1i49D10Vx/2DSOHI9I1UGh8Pw8fTH3eOXx3Fx9PD4w7owiL/e
tG02bRz+AmsfXj4bhit7F+or5YwjNNj4g9b3Y0hOLOLbVzEOSVlOrGHLUVzu
H8tkDo/DPkdGd6w4FEk3jrR0b5nAu1TvK3FWAbDesbFCw34CJfSXCwi+AMwK
zWQHO0xAc0H0Kt3n/jh6IjaAb9cEIliPJKqN/OHucoNP3WcCl/IX18Xp+0Fz
abV2YOQE3F9Hr5iv54um5AUXp8sm8ObMqavj7p5Ism0MtXw8gd0HVIRvqnjC
evaq68WnE9Bve6t8buAAKg4rqC2vmYDapPU/0dADyNmm/dS8cQJjh3HeVHw/
joo4D8UPTUBszutlRoI7RGqbVBct4WD5Gxz36nZGxo2fo3QxDnz6botOn3TG
2qDlD60lOMh5nLdTSsoZdtKBtpFSHGQ4egR32u9Eop9QIFeeA/8Wxrb7bxyx
QNT0YfsqDpIdWO63C+0h7FJkm2/BwS09PzuV+5a4vqZZzMKKg7k/QiPjCyyx
cvbXF6Y1B6cV3NXY3hawpdsEylA5+LI149Sq5eaIm+65krSdgyUrIwo7jTdD
6JZMR6g7B3/9//j/LFoPgaHYQNPjHFw1qJxqSmozk9+25MzzExwkXpQ63VHe
/1yn9EYSwjlYqV+8xvXh7+duZ4oKLc5wcPZ0ga3svEVEqdjHIZtoDoQVWzQ4
hAKxb5OCz/bLHPz7k9IusH0dEZadf6wpmQOjRpMLk0OaRCK/9nmHFA76suWq
j0RoEw/fm+c5pXGwYzt9TWKjLiHiebDHNZ0Di5LMXfYf9YkniaV79xdw0NQs
G2gaYES8HzcO6qGR63FH7NBSSWOib2fdGU8G+dF7dEA+q8KYWKLUnuFdzMG2
v28sa2Y3Ez5lf7/4lXKQ75sbrB1iRpyWiRseLuOgqmnoRZggiCtnxX4HPOTg
wjIPFe90EJW2ajJBTzjYsqXLSc7DnBDvoriEVnMQpUFjPAuxIFaaN/twn3Pg
mM1AUKkFsbnALexozf8/unWivnEtiIMhh9PCajkwtd1vuzPEkqien9Yc/pYD
TYsyyUfuVkSLv2LvdAMHgqv3i9anWRHDjQWc0+85GOBVUfIbrAipmxViEU0c
1JsYNz4ysCYOabLsoz9xYPDt2JK1f6yJy50hrWrt5PzCbdO3adoQDxLm7an7
wkFB3nGXmb02xI+v6j7C3eT6jwUOTj+1IWTTHo8wmGQ+BY39pQzaEMYW1BA7
NgdPTU3qlSRsiXPZgacv93FwY7nfrJeXLZG39d+c9lcOdo9RCz8k2BKvppMv
fBwgHSOcSNy1JURcy1KWjnDwa2WLj9akLaElYL3s0SgHcvfW32YspRAOZZ8y
Xcc4oPRLXSzQoxDXlkzT0ic4qJ3/mKsSRCEqqpI0N3M5EApfWpgdRyE6DymW
dfM4oOXqX7x5m0L8k71nGDnFwc4e5iPxJxRC5Q2qlX9yoDKTZyvYSCEsjzdb
vvjFwVpFptvxXgrhu8K73muaA4+G+2IHpihEQvOUvcAMB2IDwjF1glSiKCqu
teAvef+tzA+50lSiUUt2D2WWg6mwUYlfK6gEp6uQNTzHgfl6U/9aXSohmbTZ
J2keF53Mgu+CJlRiw6bGkXXzufj3cq662oZK7B7cF9IowMVbz4mpEXsqcfo/
zlSwEBeHgvvuJjpTiWzLmNPiC7j41SAmkLWHStRwlvKVLeTidMxJSRUPKtF/
q+DCzkVc6Nf2TUrtpxJC9oaLfohywerof3mK9OqZ+pTrS7iQ0/ycbr+PSmwt
dFu2SZwLC31W6hV3KhG8ayyzQ4KL6RMjb8x2UYkUwUjVM0u5OJxwz8nNkUqU
l4vRFaW5uPa3ZFvvFirx2TNX8/kyLsT9tJpazKnEtJh+2X5ZMh5ni0mtjVRC
8Xmd4Tx5Ltootc3cNVTCLMi1Ok+Bi6b7rueXK1IJT/lhS+vlXNQO+qk8EKUS
sfWn6geUuHBep/mCMUMhaCcWbY9X4UIlMzdCaIRCjLVo72lYwcXje7GM788p
hFh0DStQg4v0yk6b43QKoafj5LN4FRfvH5ft3ZdMIU5ePB7isJYLqW97nBx3
UYgMI+Ef3HVcOJbt2rfHiEJUDd08naZFrk+EgRkhRyH4rasufNblYvVUfHPO
J1tCnWe/KFyPi5N3jz6QL7UlKDnsFDkDLnwi1CvHk2yJS3/5s/YaciG/1Scv
18iWkHm0pazPlIuca18Xyp23IWomTSP9wcU8d69ImrMN4a+nZzduzsXgRY/R
anUbouK+fN+0FRnfyVpafI014Vb0TULCjotevdb0I4NWBP8Im3l9Kxf7AkfK
jUqsiOJVbYWK9lwwRVWrL4RaEX/zqyxWO3BhNZd3jTZlSdy6ffkIXLmIlD6m
9nPUgrBlRZu+2sVFoL7Z6fp8C2JC8cTCrXu40BUxvifrYUGYZ+zLdd1Ljteg
cUvnrTnR+59O82EvLj46eoZbK4FQT2rWzQrmYoHJrlJmHlkf61/9VQ3lQiL4
t0XcwCbiuHBlPf0ImY955+YkNDYRr2PzDpSHcZHo8qLlfcZGwi/qWErDaS6W
/SmPzj+gTxSFSXN+x3FxqqNkG1/hasKpfGFVZAKZv+1vXli+XUnMcP/FCyRx
UR+8qEmuX53YFjKoLH6Zi81aG9eemq9KfA94smNVGhc3b+5ZbPddgtDdv+e+
y20yfz62RSpXiOPistTm1hwuTA79kv6qK43BxoZJxzwyPoWLLgceyyHbxGTT
9gJy/HtNzHfHVCEir/zCtpgLIRvjqTbuWnxt+9pi+ISLmGyp6KGrhsCl5T8e
VZDXUzu9i/s3IcPKVcagkot4xVjLR5uMyTx6465bzcX4+n7+3DETPL9S9HV1
LRde6dFx88wscMMu9KdcExdlpW0KK5ZTwJtXKHvzIxfalKUrU3oo2P6013hZ
C/n+Tm7YX1JAhcDqnVGSn7jI0OkJ+WFgh1DBjQsWdZH7VbvmCtvPHnY1M3J/
B8n5B7027hFzwuyGeFPWLBej0eoWV4P34ODG+k9n+XhY3C6/ueTnHnzYuDBY
gZ+HN+tCaa1RbrhtePHWbkEehvdPtG655g5zoytzLYt4OHcm9E7vew+cN7nx
4o0sD++mXJbfNPTEAiu6TakeDyOCxepjFgcRajXM3GHAAztUOtDsxkF0WK05
Mb6Bh8clQuLK3w+iyLqYts6IB2VpTsSlDD9stb0vTAPpLqXVyn/9kbzlyduM
bTz4zrz57NEZiKUOb+xjD/KwZ035liT+I+DvPaQp7M8DobjhWo/eEXCOLFmU
FMDD1qwVUeHeR/A+zaX+ShAPjGOZWYdfHUFse79l5lEeVMQj5odeOoqpfXyb
yiJ5KP2tS3xfGYa2w0ZqPdd5iP4XOXcl+SReznbzed/kYdkuJ+6ONyfx4Mo5
9kA6D5L77s8684XjUumbrG9ZPIjdl2dqHwuH9Q8XmV95PLgZnXqhvvcUHp49
KrrkPhlvQgqf3uYzuHax+OfmNzwMijeYZGhH4dy+863f6nkY6NR51nkyCofW
uz/IbODhGkXh4/EXUTBrFzk008jDWuZuHdbacxhWO8SsbOOBGx1bRXlxDsaV
q+uM+kh7KCRU/IwGa7jgquE/HgouvI26HRuL+mcRwUOzPBh6F8aI349FWbLL
1ht8k3iX3ORR2hGLeANBwV/zJ2F8rnwiRucCdM/5hD8WmcSDYZ3XfswLiJFZ
sX+D7CQ+e4qF2FnGI2j0z+YBuUnMOoeVvQyJh2t1i+w1hUlMrtBRCMqOxzrv
mJYppUkICcU+cJqOR9u9XpuHGpOwdS/deKQ8Ac+jn6r5rJpEH7uEE9aXgELn
q3NL10ziob5meJFEIiL/mD89pjkJeTFV6+LQRPg3yl5foT0JC4H2shM5iXDK
4Rxt1ZlEQP5Vq7CPiTA5Vr/j/PpJmOudXZTPl4RVtjma+vqTSNr7WllofRL+
B31u7ZE=
           "]]},
         Annotation[#, "Charting`Private`Tag$7941#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{17.867187499999996`, 0.9218750000000568}, {
       2.2657316720620315`, 6.630348647931953}},
      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->{{0, 1.2}, {-0.0007438034570260118, 0.04726807745466031}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {159.24628325886667, -95.39577399785357},
      ImageScaled[{0.5, 0.5}], {298.4017682929922, 181.70623618638774}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV13k8lF8XAHDabC2SrRKRflQqlbXotEgiLUJEe1F2ES1ERdEiWiiMZmQp
JM9kD0ehpES0UMgy5hlaeGaQkN77/jWf7z/3Oefec889o37I2+boBDExse3i
YmL//xV9U1yea7Vn7c0JkYOd9YvKWBfV5k9VMwLjPWU1h7Il0HthQcRnVQtY
29isvDxbCR2GJpiWqjpAcmeQhEK2Fta2aSvlqB6DiAyNeRLZhijRuCbskeop
mOWzhDP2eDNqWletTlONgEmpa817Hu/GVdLSsSmqd0Fuurlk+mNXTHw/MNlW
4xEEF03Z65p5Cj8czXWrzOSCxVCgxhSbC7h02U5eQXoh7N1c8ujBsggcWiwX
cnEhwoPg5u9tl6Nw/X1pG734F9B60mNZsdFNXLdRdfBmZxUc3rP5/gO3OyjY
ukA9ae5r8PGqyK66cheFB7fIGcx7C/Jao5VC3wTUixGXL95fB+tV98levZWE
P496eh7Vfw9X8kH8XCkb5fNtFMyeNoC0dPRfNa1kdJh1vuruzg/Qu7z0a3nm
A7QegqZVHz6CdOnBVm25VNzH3ywyC/wMle/an6vHpKFZZLVNllwzOPw6Xecy
4SF+pZrl99z8AvG8jS2pux5hFL3qW/DKFuhY7Wm8qDADhcmqUwX5rWBh8TyG
M5KJJ9xt1lc7fQN1KaktaPkYD/uF7A0Jaoemm0XqDWHZ2C1ivTE17YDMN6vn
T7v3BAdH2k0Np3eC898YufDdOdhm5tGx630nxN6mvwXX5uAKwar0hOguWMOP
NNqoR2HTXSdu860uyNK30enUpzB0y8VSpbguUPdYJx1qSGF9RkPjLVYXGNZ0
nC9cTaGXp6/YtYwuCAnwsFZZT2GGMNsxqLILTP2WlmVbU6jxd9HUvcNdsK1+
r/HIUQprHu9UShjtAnHPQbWTrhT67jut0TzeBZlHMr/8OkZhOVYb2U3mwbO1
Ca/b3Cncd8H1qLUcD55PiD2d40thvERqmakOD0IiTM7PCaZQTm6+r+oBHgRF
zVKedIvCqq6pUgsP8+Cg0Qrv9bcpPJX3h73EhQd6W1uygu9Q2ObQWG/kwYO1
kcebhXEUPrp/SXfXKR5sc1jNr0ukcN3Sn32Xo3nQujbPzDaNQm+LYi+mnAfa
89QLzxeSfOakTxmu4MHkAycexxdR+OH7raTxlzyQi99+kltM4eobnu9kanmg
4jfvTFsJhVM+zV/2XzMPnF5ONtd+TmHS4cs/9zA82PjByP7CawrfnrP1qFTv
hnb+uiqrZgrvde7sl1nYDUUXaibafKHQxXy7/y7tblitFvHK/iuFYtMtgzqX
dYP6Dv2vTq0U6rPgmphJNxzp3T/XtoOs/2xxlol9N6QnGawdE1DorqatG+bY
Db8b+4719lBodHFh7hvnbvCxninzuZfCBsv5JXsOd4N29Axu5g8KJb4ovD3l
0w1q3mdObOin0GdY7EfulW5YpKk6rPmbQlPnce+x6yQer6m6I8TS5aOijTHd
MHTU6n3tMIUpl4dGG+K6weTakq0+IxQ2K/6QYVK6oSM6QDr5L4Ub9D8vWYrd
kL31cHvBRC7Kn3jsnirqhn831rHSpnNx86tVia1DxLfL7cxmcPGMSvFbhZFu
0A3d49ZO/O3ly6WXxPhQWbIvZdZMLmbMbe9zmcaHWdq6G11mcXFdlZy/thYf
jshGuj5T4qLfnHspBxbzwT3w+qm1ylxM81b7eHcpHypO3P+MxDJzdAyk9Piw
x+9QUOlsLn7y2jTcs44Prt2xm1PmctFT+VRQ5h4+NGwrm6emxkW253hW114+
cJpVUy8RN7wIa517kA/f3tp4/CA28oxZe82VD6IBdj53PhcnvcgQ8/Tnw+Oy
F+qLNbhoqLRiRWogHw5MyYq6SOzmUXCw9QwfBKamel+J6xQrX1if50OOFS4M
X8DFePfWsGVRfDj7fWZkhSYXa8sP57nE8IHNkkmevpCLYoq93Um3+XCv7fSP
3cRHy4fMZyTwYcN2Zblu4rsKwYGbk/hgf/DMd+3/uFjjNvFhCIfsT3Wu0I1Y
V0FWqj+dxG+ncLmH+LBbrLF2Jh+WpHrI/afFxVhUcTuQzYf7ieOvDhCPHl/0
pj6XDxnCVdn1xC/LNlynnvPh8/Ir1vHaJF/9KEtuJR+SLs+eWkW8IbNZ4ukr
PsiKFy35RYxxPhdya/lQ3Wxwdc0iLo5PK4G8ej7sPZj4ej+xSZjE37xGPoQ4
z3e5QFzokxRY0MwHTU5M/gviIX6PXmELH0IbJh9vJ9bbqy8s/MYHa4u0gDHi
E42hT4o6+WDgmt+muJiLOVveehR382Eg6jR7OfEvVFr8TMCHd3NWPTMn1jE4
TD/7zgePQ/8tcyZ2y8pOKflFzqc4dtib+JHGyMFShg/1/q9mXyAW3N2kVjbA
h9mdo9E3if+bEdNS9psPETsD93KIj4S33MMRPgzODD6XTZw8qrW7/C+pvxM7
REXE7b5+8s/FaOC90HtWQawqKHv/fCINv209P74hdt4nfePFFBqOBpmubyCO
/2C3tUKKBslowd9PxE2WHKnKqTRs6KWkvxArPv/xsnIGDS09LS5fiW0NjcKq
5GgoEGbN/L9vPb64/qUCDf5eR6WbiRsW1I2/VKZhVe2WHR+JZePnlLyaS4P5
JVZnHfE2WZfT1ao0DCqnlFcTX7tEGbxWp2HjNE4PEteMjYlea9IQPfDZOY9Y
0s+CqtGiwdPt2uxHxOY9t7zeLKbBWWGCWgJx2P5vS94upSEkPcjjKvGLj4t7
3urS4PsNxM8Qi20NSKtdRYNS5I0WF+Jgo2nqdcY0uKV3HV5DXJLt0FZnQsPX
Me/pC4hHNFMS6oHsx+W7Y5LEATPXKDZsokGX+45dR84/9/KlxgYLGvRKj9jl
EAv/vo9utKIhriHd8gaxV+8xmY87afB6Yz6wmTjrQG71R1sajEqWpKsT9376
F/5pNw31jXVxf0i9ulbEijXtpSE75tjyFOI0487SpgM0XJtIfwgg5j1Zerb5
MA2a+kZ5m4kPJFYOfjlOg8Jt1wU8cj+S5GSffvWgYcCl/skT4pYIJ58Wbxp2
mqv7nyZ2OCnsbT1Jw8wXMRwJ4p3b5re3n6fBYNDm7HRyHzPsgyI1wkl87Pt/
qsh9nrC/aeWRCBpuX092OEvM9Y4Op6NoKIE5ed9If5CPEVvyK4EG4ZMp76JI
//C45/xh+X0ajjw1NtInruIUBvsm07B44OXZZtJvArg+9QMPabAtM786l7ip
sf3kaB4NGhYW3HDSv3RbTNRMi0g9biusnUMcybtbfa6EhtbXBs8ek363enDH
3AkVNNg8K5OsVeViguLzcsl6Gg77PbJlVLi4z5Ejo9hLQ5RNEL+O9Nv8g39z
d/+kYSWnIH898Qw3x333+mlI2J9uSZF+XX5mJqXym5x325ziSEUuqieet18w
SQCNrIdJavJkv9sOcnRVBVDw83pxG3kvTOhSyxPqApi5jOesQ3ynb/bAU00B
xG8fzw2cRupRrMHccIkAdh+adVFiKhfT1Tf8MDUSQOZT0TkZKXLfj2gYWtkI
oDxAwjhlAhffXd/oaWcngANMstFXcS6uLDjyYL+DAOauqFwqS/xHKn2G/z4B
GKf1Dfr9ozDiyRJBopsALsl6ftcYozBtRO/erwsCGAtubZo3SN5HTfu64XAB
vK4x6Fw1QOYl68DJEyMFYM99+mmziLzf7CJfpRvk+/NunzvOUFi5aa3lugQB
aC85WXjrJ4Wd0ZtHY54KoOOOlNXFbgrNi4+tSMwXwIYO/5JAHpm3uiJd04oE
UKIMM9y6yDxl8LaxGEl8QXH2FmQeEGvZkdX1RgCirfLO31soVNXas1efR9ZL
efSippFCp1IPbJLvAVVXgc53pFCzSTG5UakHjuEUZ04Zhb+E5WHv5vQASGr5
2pWSeVBbwbJyfg+E7GJbFZB5J+1W6YcnOj2wUn5G3sE8CoXHp/deMuuBNWeb
/uzIoDBSMUde378HbPb3hMbepNBmxZ7fywN7QObSlweSMRSqbJ30ZfGZHlAr
d2SfukFh9nmH+/NDe2ChNWraXCPz1Q+xxVOv9cAd91ib7+EUzq/YCV0PeuCe
xPwJ+acoLPAWHY9p7IG0nesHMpzJfKiSbVT7qQc6Ld16nuyh8NzrYxJSX3rg
RN11a64D2b8FbSmh7T0wb8u0Q09syfqfqr95/+yBXyquBVe2kvhNk+y2SfSC
a3zxUNUaCnWmblkvs6YX7qxU2rdNmULOwyTl8ORe4LVfmJ71OgejA1T9I1N7
wfPVpH7jVzkYapZUd/1hL/g0KLCqKnNwXzvrUmx2LzgsuOX0CXNwjjJrIL24
FyTttwW05uXgzcsJ9TUNvZAkvSTqAicHL7jcjZCd+B0MSlT0dAJz8LDmzeGE
w99B6N9++j+VHHz6X0bLT70fIKN2fLHlqWxscZcWHhr+AZLKsmbxnCz0lk5f
NLHwJyTpl6opF2dg9PJjR9su/4I/+yVLBrIf4pU434aWLX1Ab79p3vmL/B/Z
blC40LoP9vJMDN7SaTg+ZZTltaMP7oVE9xS3p+GJgLDjYrv7YLV2SVZaQxo6
2cWJaR7pg2nJ55QL89NQZ1bpMvdzfdCcvepJVUga1kVJXv3D7YNFn39/ZSmk
oXRFnbrM9H5y3pssnHakYnzcUG/6jH6QE5xMZFmm4mKPeblmM/thbqb8NZ5Z
KloquJufk++HdtOMpaHGqRjpOsWdmdMPNrFak39ppKLkVNPcz1r9sKFCJMse
SkEJuwzzlPX9sE3+Nc+Yk4KT6DB305P95L3K4f4VT0E3nTbr8x/7IVDezyHs
TzJe/+LdqPG5H7RY4/52g8mYEyHuWNnUD0sFDfXaTDIO8jSPSLT0w/PRsNWf
BMkYynI/c72zH4L7t4VbNSXjnel/0u719YPrvC/XWQXJWN4/S4wrxUAi2/FO
bWAydiWlhu+SYUBT7s3JDr9knGJtKDM4lQFTyQWbfnsno9WjPYpGsgy8spJ6
qH0sGT8d5OiUKTLgfHaLWbJDMv5oWOZYs4CBDPFpcn3GyaiUt4XbacrAgrMN
Tzv+crBcZHruGDCgY/nzuNcIB4+tXGn5ax0DkQHzEsaGOFj4ZE7nn40MDI0c
OD6vn4N7Mr7PnGnJgNMKt2ifTg4m3b/uC/YkXgtP2ukVB83bzptW7WYgX+8O
918FB/tUAqSsHBn4+duZl1LOwXXx+zj2zgycHh0KEBVxsOP28veehxjYYf3T
gJPFQc0r73UTvRh4ewZV1t7k4NvqqjF1HwbOrqmr/B3FwZMSxdXpvgxEqYo/
517l4Muw5ANP/Rlw1ztO6YRz0DXEL7rmDAN+ub936Z7ioGyZq/OOIAbGGovO
DfiTfMactD8FMxAjMWmwyJeDkmfMyjtCGZj+SLzcwp2DGf4K/cOXSD6Nj7kn
93HQ5qlUybkIBpQzKBUzJw6OMn8vT7rCwPz0KTWzHDi41ZuvJnudAcfglN78
nRwcePzl+50oBqTmMk5XtnEw8ce7grnRDFDOsVP3W3HQbEnFRU4MA/YP7o3q
WXDw5/GC7Vq3GGh6LK49dRMHYx9mzn18mwEJpZkZksYxsJa+T6+MZaDVaLfj
V/0Y4C+8/bQwjuRbNUM3e2UMRB2JCFl7jwHJ24bLzi+PAYMHQVaV8QzsDXqz
y1YnBr51+ChZJpJ6sK9may2KgYj5R7vqWAzAyGKF0YUxoLvf8YndfQY46/pz
3mnEwFXFm+8b2Qw8c0mO7tLmIL+2RrQzmYHhAUHUp4Uc3BA+UbH+AbHAMrdG
g4MsExOjbakMhCr++IdqHBwW+e95m8bAPD/GJ1+Fg7aZj4MsHzLwYNb5Kdmz
OSg9R+25eSYDWrKtCexZHDz6fndXZRbZP63RewmypB4joidvzGbg6KB5Udw0
Dgb+FrcEigEvDSWHWxIc5H3gNRgWMPAlmvMvbpSNcG3eYF4hA+PBS/sThtkY
v9FeSa+YgQtnD46yB9m4k/vKSbeUAZmgm/uy+9hYdiODp13BwLaAKRs+dbEx
ztJnaHYdA4N6X+oc37JRKP5I+W49A99nHJ/m/ZqN24o6Vis2MGCoaesY/pKN
k7R3hch9ZMAkb+vsvHI2+kw2kJT5ysAjG8eF6nlstCwfnT3GZ2DZpc21i5PY
OK5/2bRtnIEJ9iYX//mw0cWg+mOQmBDOVjpdG/Zk4zsDKa+5E4RgsqO6SOjG
xvuGV5McJgshqdXiXO8RNq4zvvGvQUYI7tf3x9EObLxoEvf8lbIQEla+dFBa
z0bJjembqJVCUL9ThJvl2DhrxyvrMBchCL/MMY7wvo93rmYOrXklBJd8zz7R
iiQM3Xex8Xu1EHSH/oVwdJLQbYVTTkKNEBpucDt2aCXh2s/SbqO1QvhnpyCf
p5KEAg231uIPQtj10FbxlkQSri7WrjTuFMLKuM3slFYWtglSYwz/CqFJIfWs
4lUWVj8L9qLHhSCmErVgLJyF3Cg7qzgxEXSGuZ/tCmXhZb3Jk39PFEGPsaph
QQALdUOPnMqXFsHeazsqThxi4QWlBfv1lUUg/sLI0Xg1Cz16R9Z0zxaBx4H9
1431WWhf2qB8Z64ITtlYHVqjy8Ilhy80DKiKwHZvVe/G/1j4IbtjU+5CEbDP
PHE+JsfCsvNFGke0RPDc7FjwyWksfGQb82/WIhEYyLINwyRZeG5kXZGfjghe
dA77p40n4rFa5dgFy0RwZ4LNUNGfRLRh959oXC4CsV3x0+oGEtHEr3r7xRUi
CGzqK+ruS0Qtc7bOqlUi2LDfd+RvbyL+D93q/lI=
           "]]},
         Annotation[#, "Charting`Private`Tag$7983#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{23.669189453125, 1.0402832031251137`}, {
       2.2657316720620315`, 6.630348647931953}},
      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->{{0, 1.2}, {-0.07096644650747613, 0.016819129352618336`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {480.6990548547251, -95.39577399785357},
      ImageScaled[{0.5, 0.5}], {304.32217844924224, 181.70623618638774}]}, {}},
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 642.9055431917168}, {-190.79154799570713`, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.8175673122534857`*^9, {3.8175674402281427`*^9, 3.817567489380693*^9}, 
   3.817567520221552*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"9615b190-9c6f-4136-8ec8-38b48777afc1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Series", "["}]], "Input",
 CellChangeTimes->{{3.817563126277214*^9, 
  3.817563127135446*^9}},ExpressionUUID->"c97fd2a9-8030-48bd-ac54-\
60cfef08006d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eqLow", "[", "2", "]"}], "[", 
   RowBox[{"f", ",", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"gC", ",", "\[Theta]c"}], "]"}], "[", "0", "]"}]}], "]"}], "[", 
  "1", "]"}]], "Input",
 CellChangeTimes->{{3.8175547641765738`*^9, 3.817554807184411*^9}, {
  3.81755721589187*^9, 3.817557223395288*^9}, {3.817559009520914*^9, 
  3.817559010159284*^9}, {3.817559981019719*^9, 3.817559982058178*^9}, {
  3.817560014463335*^9, 3.817560020731222*^9}, {3.8175601114074917`*^9, 
  3.817560121907399*^9}, {3.8175601564439993`*^9, 3.817560156604797*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"8c3eb7fb-65d2-4a56-a3e3-0dc6e0518fe6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M0", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "B"}], "\[Pi]"], "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "B", " ", "\[Theta]c"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["B", "2"], " ", 
        SuperscriptBox["\[Theta]c", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["1", 
          RowBox[{"2", " ", "B", " ", "\[Theta]c"}]]], " ", 
        RowBox[{"ExpIntegralEi", "[", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", "B", " ", "\[Theta]c"}]]}], "]"}]}]}], 
      RowBox[{"8", " ", 
       SuperscriptBox["B", "2"], " ", "\[Pi]", " ", 
       SuperscriptBox["\[Theta]c", "3"]}]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"\[Theta]c", " ", 
    RowBox[{
     SuperscriptBox["Gl", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
     RowBox[{"7", "/", "8"}]]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"gC", "[", "0", "]"}], " ", 
    RowBox[{
     SuperscriptBox["Gl", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "0", "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
    RowBox[{"7", "/", "4"}]]]}]], "Output",
 CellChangeTimes->{
  3.817554807406887*^9, {3.817557206327607*^9, 3.81755724215594*^9}, 
   3.8175573305621147`*^9, {3.817558987862504*^9, 3.817559032227151*^9}, {
   3.817559982370636*^9, 3.817560072538178*^9}, {3.817560113038806*^9, 
   3.817560122398291*^9}, 3.817560163463731*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"ceff9452-e2f4-44ad-af83-bc7a4c209dad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["GlRules"], "Input",
 CellChangeTimes->{{3.817560532494705*^9, 3.817560541783863*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"58cf9ad2-3d46-4b16-9024-9b17cba6f917"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Gl", "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "1.3578383417066`"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "0.09790657944`"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", 
      TagBox[
       RowBox[{"(", "3", ")"}],
       Derivative],
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", "0.233183592`"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", 
      TagBox[
       RowBox[{"(", "4", ")"}],
       Derivative],
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "1.640690856`"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", 
      TagBox[
       RowBox[{"(", "5", ")"}],
       Derivative],
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", "22.066044`"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", 
      TagBox[
       RowBox[{"(", "6", ")"}],
       Derivative],
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "474.60340799999994`"}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", 
      TagBox[
       RowBox[{"(", "7", ")"}],
       Derivative],
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", "14805.8316`"}], 
   ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["Gl", 
      TagBox[
       RowBox[{"(", "8", ")"}],
       Derivative],
      MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "629395.2`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8175605351665916`*^9, 3.817560542255609*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"f406ab24-bd3a-4e22-988c-3ba0cf63a667"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]i", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.817283930216783*^9, 3.8172839337126226`*^9}},
 CellLabel->
  "(WOPR) In[853]:=",ExpressionUUID->"e7fef682-ee6e-4d26-962a-6946f28d5999"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"eqLow", "[", "n1", "]"}], "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{"eqMid", "[", "n1", "]"}], "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{"eqHigh", "[", "n1", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqLow", "[", "n1", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqHigh", "[", "n1", "]"}], "[", "2", "]"}]}], "}"}], "//.", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"\[ScriptCapitalF]sol", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalPhi]Rules", ",", 
      "GlRules", ",", "GhRules", ",", "DmetaRules", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
        RowBox[{"B", "->", 
         RowBox[{"eqB", "[", "n1", "]"}]}]}], "}"}]}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwd031Qy3EcB/D1cPI8zjydrNYlqTxexilJaXasjoVITxuVp8plx0yb8hCV
h5gUoq7Hs26tG7pWSuhyVi3GVSaFapFdZWU5l/i9v3987vXH5/O5z+ePz4cl
TOBHW9NotB1UwKhTsUG3j5s2+2XFEZ3MLsFwPC2LeCzUPRxO2POIvL55Qihe
OzMW6p87iaBRTpdAmuBoFtz2k5cNmcWCdjjVMNoBs9qMrGzKuqgYD3hqo/4E
1NqlnYbptxgykhdnElcJE29DZYuGqMhblAsl78qJ6rI3BXBNE6sQfu1IN0F5
T/MQ9JuTUauhNA0m1EHhbO8z1ZRFu24SOaXB5+FW5VnikVFJPpziX1sAuQyz
Gh7rHCFeaDuvhfs8VzfDaGnVEHQaZg/D8ZCkUcjn9lqgY8t06xrKwcp3dtCu
WCaAZeqzQniyKkf1lPJ3UmsF1A4oNFAkbq+G6/fLnGux/8U3xDAHEx8+C9AH
w2buNilMfaUgNlqUmbAnwPsGHOXTS2C9WlQK37deLYOJlYeV0IphP/KM0lDj
MQbH99ja1FPO8E8hTm55Qodhu9kMGGjo2AIH51/lwpPJ8mrIXtJKnF3p9eA5
pe0Vt3x4RvytBdKlm3Rwc5Ux8AXmaO7tgLTyjEi40neIyH97IB4uWPeLyIni
nX6JPvomGUzqtUqHLMPBDNiltE1twH2E64jiGe4P4YRGq4DO7dbdHyl3DjgT
AzYc4nRSul0XboXM7KUNML8kmWiZeWfnJ8oSjoJIE6h2Q5PvU6Ln75wwWK9K
iYD385hHIUtlIDIcuOMw06PpLyxq22PThftw0RPti/9Ng5eNe6fDkE8h+2CT
VyTxQ9G/KBjWIxDAS2tFFbD5T6gaRi+UaOCfa0E10JwaZOnGP1Q9HIMqSQHr
M2XEcr4TrJBbM79Qfg7XOsL9EZnO8L1VDpEd+9gN6h7IV0CfQe8AWDaJx4GN
cWa/r5QNJqk/3H5xWSh0NdcStyvnSmHrhbsy+CLyxxUo+zvrOqnrU8mhpTH+
FvT4tSgXDjzqJ+ZLmJE9lNWv84g8eko81CUeToDDgYUiOODZT/RRBl2GX/Ts
NOio+94JY7z4XTA5554Rnot26IeT1+S69CLvs9gduhp9V8LydfHE/3wzwOY=

  "],
 CellLabel->
  "(WOPR) In[862]:=",ExpressionUUID->"2f5b927d-f164-4051-b8ca-bad9a5ba3b97"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{"eq1", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Theta]c", ",", 
        RowBox[{"1", "+", 
         RowBox[{"RandomReal", "[", "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalM]0", ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalM]1", ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "1", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "2", "]"}], ",", 
        RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817127065230098*^9, 3.8171271351270227`*^9}, {
   3.817127221800994*^9, 3.8171272630331593`*^9}, 3.81712740736408*^9, {
   3.817127491557787*^9, 3.8171275000934143`*^9}, 3.8171275721198053`*^9, {
   3.8171278100273*^9, 3.817127849603622*^9}, {3.81712788866899*^9, 
   3.817127911532996*^9}, {3.81719706565886*^9, 3.817197105498705*^9}, {
   3.817197893385504*^9, 3.81719790689716*^9}, {3.81719860001385*^9, 
   3.8171986053976393`*^9}, {3.817198639295259*^9, 3.817198662766809*^9}, {
   3.817198876170909*^9, 3.817198908051071*^9}, {3.817198993133552*^9, 
   3.8171991533442287`*^9}, {3.817199209928318*^9, 3.817199241960556*^9}, {
   3.817199495862*^9, 3.8171994994689503`*^9}, {3.8171995495740423`*^9, 
   3.817199605718575*^9}, {3.817199652392643*^9, 3.817199715256566*^9}, {
   3.817199865131709*^9, 3.817199880715331*^9}, {3.817199936333564*^9, 
   3.817199987661281*^9}, {3.817200026262958*^9, 3.8172000468302813`*^9}, {
   3.8172001570412397`*^9, 3.8172001598323307`*^9}, {3.817200236641964*^9, 
   3.8172002385137587`*^9}, {3.8172002992189293`*^9, 
   3.8172003208190928`*^9}, {3.817200415813776*^9, 3.817200416404771*^9}, {
   3.817204016980706*^9, 3.817204076853834*^9}, {3.8172041381029387`*^9, 
   3.817204203727563*^9}, {3.817204234304641*^9, 3.817204255961961*^9}, {
   3.817204390931651*^9, 3.8172044426360817`*^9}, {3.817205022823312*^9, 
   3.8172050577028513`*^9}, {3.817205106256721*^9, 3.817205106559868*^9}, {
   3.817209919633216*^9, 3.817209920608328*^9}, {3.817210044562058*^9, 
   3.817210053786522*^9}, {3.817210136268099*^9, 3.8172101405721073`*^9}, {
   3.817210451098201*^9, 3.81721045318543*^9}, {3.817211412418923*^9, 
   3.8172114542674837`*^9}, 3.817211713768137*^9, {3.817211774217906*^9, 
   3.817211820329513*^9}, {3.817212210577387*^9, 3.817212210720683*^9}, 
   3.817212495142112*^9, {3.817213148937108*^9, 3.817213155649081*^9}, {
   3.8172131921538963`*^9, 3.817213198714007*^9}, {3.8172140038972063`*^9, 
   3.8172140040882683`*^9}, {3.817214050225759*^9, 3.817214064234343*^9}, 
   3.81721453132269*^9, {3.8172191352175198`*^9, 3.81721914521805*^9}, {
   3.8172192016924553`*^9, 3.817219202057729*^9}, {3.81721981372462*^9, 
   3.817219818492318*^9}, {3.8172203944673862`*^9, 3.817220425613224*^9}, {
   3.817220485354929*^9, 3.817220583732532*^9}, 3.81722086630956*^9, {
   3.817267355013483*^9, 3.817267405354693*^9}, {3.817269076393395*^9, 
   3.817269087009036*^9}, {3.817269120326481*^9, 3.817269121269062*^9}, {
   3.817269939213081*^9, 3.8172699495241137`*^9}, {3.8172700164421453`*^9, 
   3.817270029113059*^9}, {3.817271285570938*^9, 3.817271292845436*^9}, {
   3.817271338825984*^9, 3.817271347239892*^9}, {3.817271687882124*^9, 
   3.817271688161475*^9}, {3.817272026928958*^9, 3.817272038746695*^9}, {
   3.817272732073227*^9, 3.817272740779784*^9}, {3.8172727722855988`*^9, 
   3.817272774613453*^9}, {3.817275330702072*^9, 3.81727534054673*^9}, {
   3.817275373172369*^9, 3.81727537934888*^9}, {3.817275674947576*^9, 
   3.8172756762795753`*^9}, {3.8172777393447733`*^9, 3.817277749634144*^9}, {
   3.8172778167894783`*^9, 3.817277820829632*^9}, {3.817278006315517*^9, 
   3.8172780223674107`*^9}, {3.817280034270249*^9, 3.817280072111932*^9}, {
   3.8172802071691732`*^9, 3.817280223767226*^9}, {3.817280503291031*^9, 
   3.817280510489274*^9}, {3.8172805452815933`*^9, 3.817280546902663*^9}, {
   3.817280635015347*^9, 3.817280643275325*^9}, {3.817280679286304*^9, 
   3.817280679669477*^9}, {3.817280748769155*^9, 3.817280752344582*^9}, {
   3.8172821291550713`*^9, 3.8172821298656*^9}, {3.8172824240538273`*^9, 
   3.8172824749055367`*^9}, {3.817282636494815*^9, 3.8172826427854652`*^9}, {
   3.817283320587726*^9, 3.817283328321372*^9}, {3.817283389745932*^9, 
   3.817283391669229*^9}, {3.8172839405657682`*^9, 3.817283941194763*^9}},
 CellLabel->
  "(WOPR) In[864]:=",ExpressionUUID->"630fc9c9-229c-4372-8a16-eac1f2d98690"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "lstol", 
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"", 2, 864, 557, 31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8172839055832853`*^9, 3.817283971485866*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[864]:=",ExpressionUUID->"20e41565-1936-405a-9504-d530fdcc8152"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Theta]c", "\[Rule]", 
    RowBox[{"0.35782801821894805`", "\[VeryThinSpace]", "-", 
     RowBox[{"9.694348542908053`*^-16", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[ScriptCapitalM]0", "\[Rule]", 
    RowBox[{"0.047012285433126993`", "\[VeryThinSpace]", "-", 
     RowBox[{"1.1840438922058634`*^-15", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[ScriptCapitalM]1", "\[Rule]", 
    RowBox[{"0.8534070714613905`", "\[VeryThinSpace]", "-", 
     RowBox[{"1.3933688967862164`*^-15", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "7.301447130143889`"}], "+", 
     RowBox[{"1.0883136380300957`*^-14", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "2", "]"}], "\[Rule]", 
    RowBox[{"40.82128454804195`", "\[VeryThinSpace]", "+", 
     RowBox[{"1.5964707349774136`*^-16", " ", "\[ImaginaryI]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.817280643827911*^9, 3.817280758907701*^9}, {
   3.817282118654529*^9, 3.817282122045233*^9}, 3.817282223769466*^9, 
   3.817282305603149*^9, {3.817282434403528*^9, 3.817282479844577*^9}, {
   3.817282643441534*^9, 3.817282683973117*^9}, {3.817282855874453*^9, 
   3.817282863884409*^9}, {3.817283328636736*^9, 3.817283360690146*^9}, 
   3.817283392486912*^9, {3.817283901559588*^9, 3.817283971572627*^9}},
 CellLabel->
  "(WOPR) Out[864]=",ExpressionUUID->"319eb113-9321-48fc-ad65-5700453ef613"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"s11", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
      RowBox[{"Re", "[", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&"}], "/@", "s1"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.817282132727553*^9, 3.817282168778081*^9}},
 CellLabel->
  "(WOPR) In[758]:=",ExpressionUUID->"ea36fa2d-8c46-4383-be61-eff682dedb14"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"B", "//.", 
    RowBox[{"{", 
     RowBox[{"B", "->", 
      RowBox[{"eqB", "[", "n1", "]"}]}], "}"}]}], "/.", "s1"}], "/.", 
  RowBox[{
   RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.817282197466474*^9, 3.817282201883644*^9}, {
  3.817283506545725*^9, 3.817283511684161*^9}},
 CellLabel->
  "(WOPR) In[826]:=",ExpressionUUID->"5823df11-0739-494d-bf1b-44bf2a14cb2b"],

Cell[BoxData["1.8046902735396873`"], "Output",
 CellChangeTimes->{{3.817282202366857*^9, 3.8172822271920424`*^9}, 
   3.8172824865696583`*^9, {3.817283507032922*^9, 3.817283512110911*^9}},
 CellLabel->
  "(WOPR) Out[826]=",ExpressionUUID->"cf69a3b6-a533-4dea-b33c-8d65e371fe08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "//.", 
          RowBox[{"{", 
           RowBox[{"B", "->", 
            RowBox[{"eqB", "[", "n1", "]"}]}], "}"}]}], "/.", "s1"}], "/.", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"g", "[", "n1", "]"}], "[", "\[Theta]", "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"B", "->", 
            RowBox[{"eqB", "[", "n1", "]"}]}], "}"}]}], "/.", "s1"}], "/.", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQLfCjU+JgwRvHF+X/5UD0lte/lUB0toyUMog2vn9g
xhEg7XLs0nwQ3VEUFncUSJ96KRkPokNq3LLuAOkratPzQfRGE9daEH0rLwNM
619cNBFEF3Q+AdNfrhim3gXSq/5agWm5o/NyQLSP1AowLdQ0txxE68jvqQLR
M34ufwSiJZYWPwbRRUs1he8B6UO2a8D0ki8xRiCal+cfmF4VyboPRJ/a9OEw
iG53LjJ6CKT/GtSYgOgVzL7WIDpg23YwbdBywgtEfzt2yhtE9ynoxD4C0g0L
RJNB9Kx9Pf6PgXRZ3CkwfWPf6pcgWsNT8Q2IBgBMg7MM
  "],
 CellLabel->
  "(WOPR) In[821]:=",ExpressionUUID->"2a7b9f00-b942-4f1e-89df-1d3081b1fc6a"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAY6+Q7///978vtjyhSXr0vxT7GiY7
/Pe/mB28sDp59L/ERqVcdvj3v2ihTAUpePS/Jt65yezw97/8+WOo/HX0v+oM
46PZ4fe/2eOiMHpx9L+bWG3aFN73v9R9sb9PcPS/TKT3EFDa979ySPMCIW/0
v607DH7G0ve/IXkF97Vs9L9wajVYs8P3v+j47zWlZ/S/Iba/ju6/978tN6T8
U2b0v9IBSsUpvPe/B752Tv1k9L80mV4yoLT3v0sS8Cs/YvS/98eHDI2l97+T
ONGWfVz0v34l2sBmh/e/t3LOQ91P9L8vcWT3oYP3v6x7rasuTvS/4LzuLd1/
97+kdO9Wekz0v0JUA5tTePe/+l90yQBJ9L8Fgyx1QGn3v9X7SdHMQfS/jOB+
KRpL979ws7OUezL0v5qbI5LNDve/mMZDvQYR9L+qMJmhtwr3v19ArsWmDvS/
usUOsaEG978KhKvDQwz0v9rv+c91/va/n/U14XQH9L8aRNANHu72vz75XEG1
/fO/m+x8iW7N9r9/7MbDuenzvyifvmXxr/a/5G7HJLl29b/5zf6G
           "]], 
          LineBox[CompressedData["
1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAhu1/MRuo9r+L6/cINNLzv5/fiG9R
Cfa/mvh+xp9n878W0FNPKRX1v62o6u6btfK/yFBTRMsl9L/8Sc0GVPzxv0gp
JXQjIvO/3eAmQTYr8b86rlymzy/yv9mAtlx+YvC/+opmEzIp8b9IBYHywwjv
v/X3pJVeJ/C/FSSbBFxN7b/EIpI0vm3uv9K3JteFquu/OwV/sytk7L/+22g5
rd/pv5RANzdBfeq/yclLYqgv6L9jnFjl6p/ov5rZaq8/hea/z6ceCQGa5r8x
QOgV2bPkvx4MsDG/tuS/qOhk0GT/4r8KIObP6ariv73Z9BdCJOG/bFSFmKio
4L8z+SH/HqDev2DD38sekt2/xSD1sC40278iPf5RxYHZv5bs6qOze9e/qWiz
4bu21b8lxhcsxQDUv2rzsVyLmtG/lgJMl6450L8ufgVZBiPLvxplhLWsBcm/
E3nUC5abw7/SxrytuxXCv9dkbCqv47a/HywUQqsdtb93eiqOyZWev0jo4uPJ
N5y/qo84QKQwnT/Thcu1Su6aP45pgdZggrc/UOAWIwmwtT8N9Ew7rFHDP9sL
UeGZ0cE/4HTGNHaEyz9kTB4OaV/JP+65TcJ3yNE/ipKeSOxj0D+mh6FgZInV
P90MgSUh19M/JfarE3ib2T8mHeSuQZPXP96yH707aN0/JU4/G+EN2z9Vl+CI
65DgPxAX9FPSdN4/nqWMvUyW4j9iXNauhRHhPwRbbe0FeeQ/3DrzCoPH4j/O
YKmnUoTmPwX2VjZPoOQ/tQ0aXfds6D89y04+lVfmPyaaIegHTOo/MzNKXM8D
6D/6doT9q1PsPyB4U5YX0ek/6/obDqg47j/tv2I6B3zrP6Bnh9QbI/A/opEZ
4PpF7T+QQcyMGSXxP8gzWQDGAe8/Dm+rQsMV8j9fZeoqqEzwP75EuL22GvM/
oEcmMyIl8T/9bV82Vg70P1MUrgy+6fE/AQfSmSv99D9q3MricaPyPzZIcsJK
APY/7GSWm05h8z+JMgvvEQT2P0ZLuD/0Y/M/3BykG9kH9j/nb8vQmGbzP4Lx
1XRnD/Y/mp6dr95r8z/OmjknhB72P8pNjRZddvM/Z+0AjL089j/ESR4ZIovz
P5iSj1UwefY/mtr1rbaz8z/rfCiC93z2P8zLkRg0tvM/PmfBrr6A9j9M5Q0F
sLjzP+Q78wdNiPY/2rKAUaO98z8w5Va6aZf2P8fhpzN3x/M/Oc7ZA7Kq9j9y
Bcts29PzP7Wm8Fo=
           "]], LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAA238YOIiy9j9LJRfu19jzP/rcrOgV
8vY/DdZOOxcA9D9EbMiQTfb2P1aMELucAvQ/jfvjOIX69j+OrklNHwX0PyAa
G4n0Avc/x7cFbBsK9D9HV4kp0xP3P9Xd/73tE/Q/lNFlapA19z+4Gqa16Cb0
P95ggRLIOfc//WYWNTYp9D8n8Jy6/z33P9Gu71B/K/Q/ug7UCm9G9z9WyuXF
AzD0P+FLQqtNV/c/o/EUG9E49D8uxh7sCnn3P051cEBWSfQ/eFU6lEJ99z8P
RvKNSUv0P8HkVTx6gfc/Vu0r2DVN9D9UA42M6Yn3P6zIzO74UPQ/e0D7LMia
9z8c3f3XJlj0P8TPFtX/nvc/JCM2p99Z9D8OXzJ9N6P3P/Hq4viQW/Q/on1p
zaar9z93r08+3V70P8i6122FvPc/FhqUGR5l9D8SSvMVvcD3P2+DXaGcZvQ/
XNkOvvTE9z+FAHVbFGj0P+/3RQ5kzfc/QAPwEfBq9D8WNbSuQt73P7ZDaAVe
cPQ/YMTPVnri9z/4PKN+q3H0P6lT6/6x5vc/lC7B2fNy9D88ciJPIe/3PzIS
rkJ2dfQ/hgE+91jz9z8Kxe7bsHb0P9CQWZ+Q9/c/3B+Abed39D8aIHVHyPv3
P9qlAUEaefQ/Y6+Q7///9z8wtjyhSXr0P0YaBhk=
           "]]},
         Annotation[#, "Charting`Private`Tag$906403#1"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{3.4698486328124716`, 0.6280517578123863}, {0.5, 0.5}},
      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->{{-1.5, 1.5}, {-1.3414851605111204`, 1.2798553751303068`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {160.85922755461604, -97.08986231664207},
      ImageScaled[{0.5, 0.5}], {301.7078610521121, 184.93307107931824}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3c8Vf8fx5uKQmlIkZUImaVovEuJEkWFiKSshsjKCEmSndGg7FV22euN
kD2uI5t7rXzteV2X8ru/f855PB/n/fmcc16v1/tzPoff6Kmm8YZ169Z5MA7/
P3slFG7vfb2KRVdlaEIac3Cl8nfNpyeraCyvcXD65SzwlD7dfYJ7FauSPRva
WaagnuO4jQLnKirxrcf0sklwNKa3nuFYRbk3j2U4HCbhN8vr4ItbV1HgjJe/
9X8TEHgrjENzYQX9PvxuCWoeh43jFTue1K9g1KByXHjuf/D9jLel5a8VdCi+
oF5m9x8YBl5rti5fwbWOcT9juf+g6HhXgGPeCurrVk4czh0FO7dpNq+4FRT6
YX/YoeQP/LdnP2us8wo6ThxtKh4cho9m/Y8T7Bn1/7VR7L8Nw6XCuPqvz1ZQ
7GaZVrzVMMQYSvpmmK2glxTnD+31w3An+eK2kpsr+DHjisWWw0PQdO4pc6f4
Cq6aP53992oAsh9VbGbvpWN3lTZf7IF+OMlnIZ3QTsfJT790lwv7oIDg1D9D
ouNP1bM8kvp9UHrmUdajX3Sc04oVl43phVp2jvvVmXQ8bCj23FquB8g/7pa+
9KTjXZNZH2/PTjAyY57Y95KOM+kjKsLHOmGY+wdnhhMdO7k8+HwHOmDsNdPT
Pks6jptwuSWd74BF7VSeU3p0dNFav34zczuwrNIdFyTp+Gcyx2l/IQF+GXEJ
PqJ0bP/jHxFsQ8AOY3WSgBAdP0jd5UEJAvY0Rh/R2E/HfVkSNOH4VuCLUulI
3UTHUdEfq9xhJDh+8f1x085l5BV6cO55bDMY+krPdLovI4vD2fkarVpwzAry
bHixjElX3g4o0GogtGeeu+z5MmbvNBOIDKuBWvGcy0kWyxjFunhLYaAaZBsU
Yu10l1Giy/vWW+dfwMR2UWuXzDIWmg3xrnVXAJ9c/ATT0WXMfftTu9mnAk4Z
ML2iCy/jV++OweenK8AyrTqdwrOM7M8lL16O+gmd6mrMGczLGG5nkJxnVQ4p
AVpFVyk05HI+vd1YoRSqcnM1z/XQ8PkG2u2GSQRK/77/ZNtpyMZl6KpqhrBX
qnvPgQYanovbuivlXgm4Nt99+l8eDXcKmHolGReB5k5zAc9AGk4Ks09PpOfB
Y/naPAcfBteLMclCHry5J3btiScNBUvHzlQ05UJR5qTTTWcatg8Nxxct5ICQ
5rM2ATMaZlX+u5yjlg20ICcvBBq6c2iXGcp/hz/cZWOXFGg42rl74BKRCb8T
mNQaj9Gw2WuVycUyE34UvNvZe4SG0sxJW0gpGWAxkBhG30XDtD8JSubmaTAo
TaQcH11CpUzOT4f+JgGpkIu9eGAJk2rFUzbrJkGp0l2ri71LuH3stLdAfiJE
3B47foO0hL6DF82WXiSAzst1aFm0hKeFKWvG/HHQ2Czekhy4hOrsaxpPQyKh
SPeZrKzPEla+fRsoEBgByUO5oQWvl7ArdktTcMAX8KIp6tY4LqHnvYh7Hp/C
4QLf7cGRB0tYd5By06LjA8h8i1CyuLuEaaSHfpSZ98B3bChx8fYSphyqKiza
/h7+KT99vOka43qU37mX6iGQ9/T1Ir/8El4VvR4usBwIicu12l9ll/AdLTk/
SywQ3r/aUSAlsYQu06elCsr9wfpDuAsILqGeK4n2LtkHJDBziz7rEsa01WUv
/XwNsWx9XB8pVDQNhCP9f20hSA+2yPdQcb/xOOf1N9bgnhS10PmbijtmspyN
9luBkeL9pgP1VEz4MapSm28GAnajHpE5VHzALBS+1eUKcPy8/OxcJhUvrBus
+XFEBjbsSL5LSaZibU6Q3iZeKRz4+kRBMJqKo+SOB31VNzGmd246wYeKbTej
7kwYPMQg0Zu9yp5UZKr8dMVazgLd7bNrR92ouI3WkaC3ZolGO5/Hi9pRUarI
LFQ20wb5lf7qphlSUS3krbRViRNGpWypyj5OxceFJBbpqx4YuGz2Q0uKinUO
oxe7t71Gt0u1UUuiVNx+suLAp+rXaEj2dZLno2LEbn7O1/JvkHc3h3QxCxUP
quwa9qe/xQgn7s8V/YsYYH/5afimAPSvfvHWuGsR/7WfivIPD0CXPf12TG2L
eGqv9IjkvkA0SI/WUKldxJhF57jhr4HIM3h4S33WIvaniiy9LnuHn69IP2t9
u4iXi8xU31QF46FtV2qbPRZROV6F7LkWjMl1RgKNrouYMT3PNnIiBAuuhpCq
bRdxevTzRiIhBDvVl2RK7i3i1rzuGcqLUNx7o3g+SX4Rt/lu1lPe/QED9C7b
uvy3gOOfZFeDVz/hXm6jBqehBbyTf51325EwjOhxFHLoX8DlgShrnVthmKaf
0mbdtoCdnc1W7qlhWH+XXc68bAHnDVgtHt0Jx60P2qg3Pi3gzPYuc7ncz+j+
+N7zI5cX8Dl/pYCBTST2+Rt8LriwgCZeQr9Y4iNRIVOvVPXsAkqPlWlOtUXi
3OKtrRayCxhSFzwjwx2F91yvfPzOs4DsFWfey7pF4bkg2bxTc/O4cN512eda
NH7Okuqpn5jHTUr5ceceRiPt99F1Bn/msepoqdLh19GYcUBExa1nHve175d9
WxiNvPHcHRVV8+hs7azdKBqD/3I309TC53GjqQSo7Y5F3a4N3P2h8zif+9/T
jzKxmLO6BpaB8/i5gWdYSCMWLc7T3wS9nsdyhxbjbQGx2Fs7xdn+dB7djY3M
9rPFYVFv+wnDi/NIsxnUY94fj04bv9k/m5zD42XJ5tYWiWjxyYDJcHQOsc9V
4L/gRDSS3BWqNjiH/rulx1PyE/GKnvN3kc45PHq/T4OPKQn3/VCf7KuYw0SN
XTZlMUmYZTRvpPp5Dk8sWUmfGf+KU2Wn1Q+pMuobXJ0EClNwQHu2Z+elOayr
GdtDH0vBtsn4R2vn5tD9wYKHyIFULOJif9slN4fvmeNMvZ1T0ceK8jNQYA6r
urReGF9IQxF+T/m/y7PIL/zvpi8lHe+5NR36nTSLnLTQjv/SM1GrM/Jsb+ws
hrpppRbVZ+IVGUudoYhZLJEPd8v/LxOPDe3wnQuZxQNKFXNSh77jVhXNebaX
s2hkY+azJ/w7prG3lSnfnkWFDYWXEwN/4EpEl0E+8yzeOWmlcissG0OLhz9+
fjiDPezFE1S+AjR4HuZywngGPQ0Tvvy8UoAistcekO7O4LsJZY48mwIsSMqT
3HprBidE/wBnTQH2BftUWcMMsuaO6iRaF6LwQ+mFK7tn8KAsf0dLUxE+O0qP
mHOaxkpFmSXVGMSCfpHtKQJTuDQa37ihqRwFd5xTvBkxjnNbnJYj8qvxu6jX
w4HBUawRuzY1+q8ReVsM88U6R7G/PfyA6N4m9LWX32rbOIpOsrkGd442oXHF
WPyW/FHcGrdiHKzXhPsM1Cji/qNoue/DqUu5TfjiHYeO/clR/LstILf2eDOq
0D4rbff7gxcGd/tcHmzG7AjbkFvuf5CZWBhpmGxGASX1wQj7P0hV7BpRpjXj
yrs1N2mjP2iZNuvAzdqCaWJGRVon/qAqW+0rJbkW3H1XWDaaMoKWz9J3e3i2
YH9lJp+c3AhGKIo6HDxIQucbyxdPio/gH2v9xneHSbiPcs5cQWAEF+t825cl
SHh9tSnzLNsIDu0qqEwEEpbKTCkqjwzjE+rvGw6GJIyKFDXWeT+MWztSXg5H
kvD00WdvdX2H8cCUTtbnRBJ2FOSn3nEfRq9v09HK6STc8VuFamgxjIncE1bP
S0j4crvpG/NLwzg0bKB0sYeERg6xXx2pQ/j5w3Wq/Z5W/Mc03uA8wWB/Jup9
7lYMC5GZcxkYwv1Fs9WKgq1ISi9TeNU4hBmXFjM6pFrxwkh/nU/CEIoFRDE/
UG3FQze4pz5rDWGOVvT+yRetWEq+zxF5dQjDLbYurr1qxTsWyXLRikPYr3Ov
YZN3K4a8VXCNlxhCNsXjSkOhrbipVGdHGtMQ3r5WPkdLacVh8VAZzBnEC4tj
gRYdrSjqEj81mjyIhxNdJln6WtGiKfsbR/QgGj/UGQsdbEWa1W8BE59BZH4T
5G0/1YosuZy7WA0HsWWXXKvpRgKvbRVpkrs1iOljqpH2WwkMuX3Sx/DKINp7
TH6yZSWQZ1VnY9axQRxt2Dl0ipNAqfNh87rMgygVTNKcOUKgbdC3dI9/A1gj
b81lKUFgwWDBo7T5AdxjvjmuV4bAC57dg+v7BvBeYFvLy1MEatVxE0nfB/C2
9wOpSVUCnW5FZlH1BlB77ayekjmBpQnplnwaAyhvkB4R/pjATTQUv3JpAA+s
yxrpe0qgfxg57ovUAL44naojbkdgVD9/6MXNA5gYqP6R8pLAYSkZDQs6Bd1q
XFsjPAgUdVdk/ThNwd7n2SUqbwj8cej+6/FOCirX8r0w8iWwyjzONiiNgi7q
sl4poQRuK8ySLoql4MbaWanGDwRe3145OfyRgquRyad7PhHYmTZsLP+KguGl
9TrFXwg8uI7Kf/85Bb806WsHRhJopMHU5/uEwujLM6HXogmcmD+sRdamoKiv
X0pQHEM/pRMcLGoUzNx5wHZvAkO/98qNsooUfCUpq+eZyNDvj7a3/gkK8lzK
1BpIIvDfSbNLb8QpyHc74K7oN4ae3s83ZPJTMGrPyBODZAK9ur1KuvZS8FDH
hINLCoE7Xb7KSaynYJnVy8fuaQR65ohU71giY02EWI52OoH0qcTb8xNk5OdJ
tj+QQaCFsPB42wAZMwUPJzcweOBugnNeBxk/qHZdschk+PVRiC28kYyhwdwa
fxlc2xwX+aKCjCr3b+c5fifwLPMhacMCMmr773YaYfD387HlihlktNP+L/jc
DwIPOwrcFEogo5a1918vBod9jx7e8pmM97aVf0cGs43z2Y+9I6NtqVXaEIPd
BaO2Nrwho35q0PgSg6l6vGHpL8ioYX7ceJnBD0MixIKsySjH4r73Pwb31fMU
25iTseNwHr2KwZqbv6hr3yXjQocEazCDq85wk+VvkVESb15WY7CCXbgVtyoZ
p/6lf1tkPG9a2v6Na+fIuOlSn7gvgwX+fAqhyJHxZn1I3Q4Gv+flOlwhTsZL
t6LcXzHen0XnY26CABkPSQ+rDTH0cgnkvPx2Hxl1z949Isvg+er3XY/YGHqN
8e+0ZOhtun7vY/VNZKyT1VkfzvAjx1p05d5CP3J8vUj9kUpgxJDIQWFyP7o9
Oj9RwPDP85bw+Ym6fiyUKO1PZ/hrUSX0IDO3H0PkrzQEMfzXOnHojV1sPz43
ccu8/5VAYS7+hnVOjHrrsetNjDzt8OadqTTpR8nJts0P4wmk0Xl2+Wj2I6Wg
J24ulsDqnv2394j246WBtNCGKAIz1Licu/b0Y77NFIWXkd+PJZyRkev7cX+9
NKshI99mUbuHj3T24aJXOvUrI//Xd+7aOl3Rh075+zN+MPrjpPtOsayMPrx0
YfxsMqN/mB+wWZ316sMAQX7i/jsCvwlv/at5og/Z91bH0xn9F/SRiW+fYB9O
7I8mPXtNoCPz5gu9bH1oycFa1eFO4JXx9W9NR3qRM2qe/uQFgeNpK7udQ3vR
Rs3esdiKQIKXfuL8y14cvI15sRYEFgXSdJme9GKPfVKW/SMCfZ8tRgVe7MXH
STEDow8IFJebFo+f78FnMieYZ7QINJFwdc3v7cG1k1aVC5oERh5mJzX86sGP
pXmsQ+oEcnBK2lPDe/BnDSq6XyJwacmiTPliD1IbycrFxxj9O/Nv1x2JHvR6
1/F4rxQjj6P+Jpb7evDuMeTXFSOwpyNt26eJbtTW/AbR/ASW50/dGgvpRmWK
mJUEYz1dzXRJ+ufSjUaBU/I9Wwg8/o1thcO8G7+9c42w2UBgUphE1Kkz3Xgt
UOeC8VIr+jlZjPkOd2Gm+ejpS+RW1Dkz5SIp14UGR/jvMqe1YtBxl5YLfF3o
e38fr1FiK9YdZTukw9KF9Uk63+KjWvHsQYkat75OvELtlpkMakXBtSe7SJ6d
eLOr8ZWLXStOlU4m2rR34JlvY5fT5Fvx1cXJ5vzn7di7y6XVPIOE5SoT147d
b8c3843PNBjf03Vq441pau3Yz7NFSyiC8f2+9V99rEA7Nog0bw7yIaGdyXC1
X/1vvKgpS3Y1JqGZV2/pPb7fOEj96ZG1h4RX6xsymKsJLPExkETTFvRurpf0
YPTZV9ekWLjTgtVEXdq/zwRKZq93Tr3egkq9NSnzDN8tzItfaci34NmpyqTe
AwRm1g7xFTG3oNSOkqjMp614tSDeUiixGffcTAu8zUlC88tirSe/NuH3wz4F
ShtJaHtZZPBjQBNeXzYdkp5uQTywINtt24TeEfwnWX614Nbr4rNMik34bzSk
v8CuBZUPCWr+7WjEkRdOEty/m7GbmO1zWN+IFtfefSw+0oQkrPbTPVOP36mV
7NWHarFDnj3PxKQa/b/FlJ9drsHh+rNsRheq8ZGBq212Qw1u/FEmpMhXjYeq
TnbH2NVgKLldOrPzF74PTU54UV2Niju6FtVVf6HjsXdnZB//wvWCnHeTj1Sh
4rM7jyJ+VOBO1kjNdcRPjO8e9vvPowT5br0r9W8uRn0N7qzu+3GYVrtqe10r
DvNZnNrKbWPhiPwG11XzWDg+sP7gSx0EblLMlERoCUgUaM9KfUVwdPkmutBf
AoeDUivIywiFRVuMw0URtkWnHI9SK4WuiofZ/oiwel2nZ22qFOafvn2+zqYU
ejPSj6B0ObBKHvz98FMZRFoaVJzJrQArutE9sfafIDhTuKxQXgONpoeG6Hur
wbnhgsfCZA0k3r3VqaJQDb+/1bGlcdWCeNZNfSf9avA27hbkt6qFIW8je7/Y
apjpoqtt4asDowXXn/ckaqCkUj6m9UU9eLuY5X09Wwu64blXHss3gYJY/+Fc
lXrIeg5tQsZNMHzZYu81s3pg0/p1tz+wCa4q17H+elMPZTvabTRHm4CuzOqv
VVUPuy84Xfus2gwDvnB85nwDOOWFObjTm4HG/j1nVqYRLsd2NqjrkODajHnF
jZUmmHmdZlL5hARBrk5tnNua4aPZq7VTr0hQTCi8sdnXDKNHj0ofSSPBl02L
s8syzeCV5xaycVMrFISJOcuaNkN1g7BeXnordEYXPNWqbwZlmu0o/5Y20FbY
fIj5bQtMdV15+ZG7DQI8jhudCGmB98W8+9ll2sDTB8Y1I1tgxL1GdfVOG9Rk
jmdrZLeAJytP+u/vbZA863vgCbkFqgQqbH0MfkOwP+sEhywJlNQ4Ni5mt8P+
I0qH+mpI4H+PeXa5ph2KWoybWEkk6LBd1/+vtx0OaA5cFu8iwcOIqYKtTB3w
6+vpD8fHGPXTtc+4tTqg3eLQOgfmVuh492rgArUDcrKaskoutgJ/gmOzCksn
zOhvo3aotsLDAqsStYOdkIJa+RTNVlgduBumfakTlFNTsksMGfXHTms+et8J
z7un9yY4Mep/L5QFyXVBhwFNXTitFX6Mjad/uNIFLccMZ4SzGOP/DXz5bNAF
j+83de8taAV/4RaHBM8uSPLKfo2VjPrnqdIFv7sgK2Jd76keRv1+k2iKXTfk
PL34uW8zAUqS+gEj3gx+8Q3LWQjwv3DzxXhEN9x/9osllJ0A/seKtxeruqHE
I5hjExcBl4oP7mTm7AG96stV28QICLjb7iaV2wMjBl8XS1UJ8Jw4DSP1PVBV
Ykdpv0aAi0PM3/CBHrDLNinvvEGARfATxy1svTBLFN6P0CNA/ddGm74HveB9
7q6Y2EPG/DfNZUIce4Hnll/VpycEnKU0zlwO7AWD1IO685YESKx8epJd2AuP
VG5bmNoTwCYpZerL0QenuF2f3HhFAFNRqJCiSB+crT07yeVJwD+VlcGlM33w
6KSpZZ0XAVNGVYb3zftAYn+l17QfASPTYrxcrn3APSMtYBRIQJ/zu97GkD4o
vGb3C4MIaHx/R1ehtA9YfqvC6Q8EVAmW75tp64PXwmycep8IKMkQbo8f74MG
PZbNxuEEpNXO3djJ2Q/JDg8lFSIJSNDW4fgl3g95/stWm6MJiBgqbnZW7Ie4
/n3thTEMvf95qY0+6QdP+5y9Y/EM/XymtkW86gcOVl3avUSGfvtu1t741A92
zh0slUkE2MXnezGn90NXOIfmrm8MPWV4lbGiH5692Uq6mkyACXpstu3qh7PR
nf5WKQQYXB37KTrTDzmBFb4vUwlInhA+P7OBDEcVhZud0wgQ/qHLV8dKhj0j
Lvr30wmIdfBbi99HBs4ZU/njGQTwnivtcxMkw8qeCLM5BoczzRfrSZDhgfrq
dFgmAZwNQl/k5Mmg3eRMSHwnIDhYx3nnRTJEb5c/kMZgdl0fvQl1MmzPMa/Z
94MAH74ShV+3yXA722TIgsFb/sxwxTwgA694olUGg1+lCi47PyWDnVWZXS+D
16y1OrQdyWDG/mh5kcFOCm9zZV6T4XLp8zXG/haW1hW9Zw0kQ9WjPn/G/has
f03ZjoaRYUQwPbWCwdN+/Ld+xpOBsYE38mHwo5s3j0VkkIG13OH7GQb/2f9m
l0MhGYJeHo/vZjzvfUr+3I0qMqgv958zZnB/4kSLRAsZPLqEfbsY76tnwZvJ
3EOGgLEuv1MMbj+mGTg0Qgbff8NXvRj63FjxeIqzZKij3mwuZejZVJarHrZK
hgMFmrzDDL1VvcaO2m6hwJjUkfOLDD9+qfOwXuegAPe582dmGX7tlqDsfcZN
gfcSPXcmGH4assbzhRymwNVtTfQ2ht/0OvFjHQoU+MO6u86GkYdLyTNn6Bcp
4PvxKosoIy/B3lnK3NcooEr6Smlg5En88mk9w/sUsKmJsqYw8vZcZJ2x+xMK
JCj0nNJg5LFyS4VFnD0F+vJcc9MZeTWoUnUf9aHAFb4Lwyc/ExB4Qe+rZRYF
Hgh+H3YOIaBHgPdHUAkFZlfddt1n9MeRDYNFWdUUOOrxRfIko3/KSx8203oo
EOEwrpHuQ8DiGcclt80DcNOT+yDpJQGKPGfXx7IPwLPVpc9Sroz8r67fVsk1
ADs5W664OBMgUvj2ILPEADi4vr31x44A3ZOflN5pDYC+xbP9s4z1IYFT/9oP
wwF4ZLG8sdaUgHkq3+22hwMQIjBuFPSAAN/spMdcrgPguJcaP6tPAMrkBUcn
DoBH8ZzyOGM9OnS0nZJJG4Bc/Z+urVIEWG4PH2/dMAg3GhvOJ4kTUDxusLi4
fRBM23ZzPhEhQOvbyFYF/kEQMe8S+sVLgJcwVbL88iA4bo7dUMJKwCT/HhdS
2CBcL2e3KR1phZNO0VZlcYOwWcgyMZvSCu7EUeOMtEFwO4Tynxnr7943l676
lw+CgIZG0hlSK5ydsN9/ZWwQKI/TJ0lFrRCQ05VTJj8EE5L5dzQCWkFaNWo6
o2MIWh6t65w/0grOceKDkQND8HG+9oS4YCtU/c377T8xBK6ez15pc7eCbkZL
8eN1w3DRaZnzDRvj/ns2+oqIDMPLUPk81TkStPYbi0TZD4PeRWMB+1wS2NqI
3QvYOwJZZt+Ci06SYC/LdJEW/wh8/zvTnidJgrzI7/sOio/Aa82LA4mHSbBa
K9+ccn4EgreWfjLYTQJ3fhWofTwCtm0hDVLTLeDf+IBn888R4DFl1XOMaYEE
kYhOx6d/QEOnoF1uXQu09+zQNKkehf3inketFZrA0OH0ny1Xx6F8UmEm3LkG
foqd8P65eQpgrkbk1M6fYCB5M3aWfQqS77gFUpbLgSZjVcS7fwo2rQWYBQ6U
g7hC8pSTxBRsaA1g3ppVDiEqvDeOaU9ByqqS6X3tcjAx3sIdnzQFd+//GpuI
LIOtke2pnqrTMJXN/kNLvhQOMxeNxqnMAMtFyzvZooUw90viYYzaDBxUMxi7
vLEQSjyjxyM1Z6BSf95jrbsAtDa9mQq7MwNOhZtyGv0K4PWaxkKg5QxoPTrw
a8N8Pgwt/llz/jgDUhYsLFM/8yBmYBfnrdEZSBKhWXG9zAGLaM+PmpOM+QeE
Wo4a5ICC4TLX9bkZEFRYmTc7lQOk3j5u1dUZUIoW3XuTmg3rO78KnN8xC0Ld
YvHrLbLBsAkkjp6chQ3ncmJ+P8gCnqJHSpu9ZuHxJptTYlbfYTcXnW7hNwue
fo9EG65/h+12XhkdQbNgIpr4IUrqO6xKxh9I+TILyqbX5XpmMqErtm9W88cs
yCndvZJknQnvfTQiovpmwWsg0yTCPQP8R/tvsAzNwnCnd7CBcQa8VrJgtvlv
FkRT2oeuq2SAzZq3jfLCLDhUPqHWsWWApnXFlSnmOVjyZTp94nQ6sOmdWDp1
fA4upcm/lPNNBaa8ypR4hTnIDdzxk6qdCn933zRiPzcHm+5fOLv/UCpMNFo2
DFyZg7OXhy54F6dAreK32LeGc8ClaJLKvJgMb0R5rrf7zMH+oIKDWnbfYB19
w9dnA3Pw1cblK0dpIhgOds67/mHc/7LfuGlYIpTWZ5z1m5gDMeX3mSy2ieAW
aUAkUudgl8km7hNiibB2sWCth2Uezis8EeANT4B/AVZayrLzYOBn6VfmFQ8G
DirRN0/OA+mvzodc03goMeKduHdmHh6Iu6nNX4oHl+MNL52V5+HhkyoLeaZ4
+NslkpqpNw/RT8fLpt/EwaoQeSO3xzz8IcozbT8wftnYc9WPvJ0HwaeuwU6O
sVBE8/sk5z8Phz8SiUX6seBcd0pS4+M8lF7SNZs8FAsrlh90PVMY84UPJ85n
xwC9UD1zhpiH+WcLL3oo0bCkUWxQKbQAKr+3/63TjQL3zvTes2IL0KgNpuHn
o4DtXsydPKkFmOqTV/UTiYLDlm90k08tAM8FV7P4yUi46a+h9U5jASy+3h2w
ORIJGbXDavovFsDNbzxL8esXML/AdmaRWIAJlydZHZlhsFC7rsiiawHU5/6Y
/nwZBm6a8wqj/QtQ9Fe++ZVGGHy813Gye2wBcgY5xW1nPkGVa8yxsnWLMBh3
MTVW7BMIFMmJ+4kvwge167U6wR8g7cKRZCaZRVBm2jbz3uADyNcdEHU7sQg3
6Jqv7h/5ANe71olYKy7Cw6d970OK34MLrVbwts4irHW/ManvD4XuY3cPCHks
gvkmvcwDW0LAZPk4++u3i9D8aDBrS20wzBRv3zjsvwh3yjgD5HyDYZNywVjc
p0UQsHWNVWYLBonbewoOpS/CR5kdNVFbg8DtRZ3Ooa5FWFfy5F9STACwKMZc
9ehfhBMdKRy52wIglMnh3NDQIiRYJrB/eOYP3wIOi8RNL8IlyT3en+X9oDX6
5ZLgZioc4SJemyR7w+GqE+8FpajAeS4+boLjNWR4s3m/Ok6FxsGtPWdveIDC
teEXgwpU0P22N/d94Cu41hFkHKtEhaqHiZV8G9zh+djkMUE9Kpw3PbV2zOUF
bEivEHllSIW/Xqw+R+udwM86nHvQmAp3+gd/aOxyhJhVlU2xllQQJG1j/+pr
B3Vsca0CnlR4fNy3seC6BWi1Ov5y96HCUe3CiJXnD4H8QaNwIJAKG8i3dPPf
mcAC31pMTDgV1DLpto+F9eGgrO4zgUwqeHrtzCg3k0ZL7R07BXqooO+c8aHX
2RqNkiTDhChUiBrTWfhXbYu3ltUFj4xQYR9+eBvJ8xwVwv2OS81QwfL2ytsG
sjNu7mfRPbtpCZwjvznSzF5hmMnmWF3xJWjYldirdNoffXMPiRtIL0GNY/G/
DakB6Lr1YvY9uSWg/Vw5YfMuEB98c/9ldm4JupbNmo6xB6Hk1Nq43c0lMH5t
v7AiGooVtvRjwc5LcH8wxjdkLBxzqrhK3r9cguuiS4MjTZ/xK6e8cpjnEhic
FQ5Ry/uC/vn2t6MDl+CGaXq+Q1Ak3v678CI9bgmKxP8uf8mJximP6aq6+iXg
8Rq6vWkgHiltbNebWpZA+dLtO9pPE5A4LNFJ+r0E/AVOg47/EjC/+vF4J3kJ
rIGgKQkkocf2MfbRhSXIkXDe8NTtG3KFDOls4qHB1Iv+2JPh6XjyFe9eGwEa
bKvUf3lSLAO1num2DgrT4KSnwOld3hkYdL1Z7acMDZ7sk5F+p5qJ21mLFN1V
aLCdw1qOpe87/nsdLL7OhgZHNcU+d17IQW7bxv+eOtDg2nS3z1hODp56wJzY
70KDMeXUrKdiufhc0ZUf39Lg3+cvdUP78nD238O9LpE02CzbRundXIBD9orr
VmtpcP6Pw7FTYiW4wfRF8aNmGnxZv2p8PrcE+bTyHLvbaCA0Wh1AvYiof0xi
sYDMGH+ZK6xEphR/z3CNOVBpoPPng1GWfhnWmM+2LvEvQ15Y0yuu/p84qiP+
zlR4GZzfvtv1UrYCmVRM1dvFl4Gn0UqM7FWBiod7q3NOLMMjvzBtP7lKLBqo
LrZVWwada6mrfV+qME0vKnH++TIc2caafyGiBo+1C9KZXJbBbWG6yny1Bgs1
E6/uf7UMC5d4f7/Wq8Xqy2mz5/yWYURht1Eidx0Onig65R+9DBw/WIIrvtXj
vt0dTSK1y6DtnD69k9aEEQF6AqeblsGyS/rDGdlmFNrWb3ONWAaV03YBqw+b
UWbDCJdd3zL8qfd6y9PTjGoz8/d/zi3DRuPO3i2VLehez07TP0CHwFa/yvvf
W3GrSvAVKz46vOhpV8mba8WAn3u/eAjR4cbWp8mJsgR+LuBRTJakw9TGSl29
XAJzk8R8aRfocPSGafGxqjac8FDmC35Mh3HtUO+EDR2ofcZVpbqYDinWqxtf
/uvBnsUR9vJyOtwZE7qWotmLRmnq7YW/6JCj/7EhILEXH/MeNElvoYPVaxZW
jxt96L6++NX7YTpI1VxyUMzqx7RKeskD1hV4nRwuuFONgsdcjDwNOFbgeHJo
iOQLCubL1arpcK5AvuPBgh+pFKxI/NSjyr8ClFDOqGn2Aex8e5Iuc3wFarMm
zZQ7B3CTut3x9for0K8+GLPZbQi9mfpW6fdWgO3WsEldzhCyo1LFgskKyN3k
5F8/NYT7pfbcGLVcgT3bJ3hRfxglObIsmzxW4HJ17qaPiiOo+3s2+UsKY7z9
6odbAqOYafBEQGF1BXJLRZhGzk6gUfYMT9T6VRAYOpi34j2Bu7fbcDFtWQW1
9Tnd6e0TaJfvuIO0cxUCP3pdX3o2iQq7vf6ZC6/CMTkfzoOZU1heE9P1SZMx
vraq+0bCDFrzHf69pr0KXvw7t/i1zOAh+68txvqrUHyrT4fn7wx6HsqoljZb
BTTveqF0axZVXYtzal6sglm8+tVy5jncMTY+f8JrFZbrDTfvNZ7D/wHlPNQj

           "]]},
         Annotation[#, "Charting`Private`Tag$906445#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.4999999999999716, 0.5}, {0.5, 0.5}},
      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, 2}, {-1.1496792039950476`, 1.1448116011786587`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {481.0287324685357, -97.08986231664207},
      ImageScaled[{0.5, 0.5}], {298.6099606614872, 184.93307107931824}]}, {}},
  
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 640.3390098278393}, {-194.17972463328414`, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.8172702319184723`*^9, {3.817271056741686*^9, 3.817271069000525*^9}, 
   3.817271313118545*^9, {3.817271408985536*^9, 3.817271454589876*^9}, {
   3.817271694266157*^9, 3.8172717054033327`*^9}, {3.817272810682543*^9, 
   3.817272864936503*^9}, 3.817275682687436*^9, {3.817277848688168*^9, 
   3.8172778625827103`*^9}, 3.817277919175124*^9, {3.8172780270049467`*^9, 
   3.8172780475022287`*^9}, {3.817280236948023*^9, 3.817280282125651*^9}, {
   3.817280450116068*^9, 3.817280466295412*^9}, 3.817280587317416*^9, 
   3.817280647024148*^9, 3.817280761888534*^9, 3.8172821757749*^9, 
   3.817282229805689*^9, 3.817282311242402*^9, 3.8172824892587852`*^9, {
   3.817283399411484*^9, 3.817283426493174*^9}},
 CellLabel->
  "(WOPR) Out[821]=",ExpressionUUID->"155c39dd-ec1d-4900-9cbf-4fc4b876ac75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"g", "[", "n1", "]"}], "[", "\[Theta]", "]"}], 
        SuperscriptBox[
         RowBox[{
          RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], 
         RowBox[{"-", "\[CapitalDelta]"}]]}], ",", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], 
         RowBox[{"-", "\[Beta]"}]], 
        RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}]}]}], "}"}], "/.", 
     RowBox[{"B", "->", 
      RowBox[{"eqB", "[", "n1", "]"}]}]}], "/.", "s1"}], "/.", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", 
  RowBox[{"\[Theta]", "\[Rule]", "1.04"}]}]], "Input",
 CellChangeTimes->{{3.817283576740225*^9, 3.817283588198867*^9}},
 CellLabel->
  "(WOPR) In[830]:=",ExpressionUUID->"da645597-b6a8-4dfc-83c5-3cec31d750f9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1.7736514921292306`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.7346705029632056`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.0629888287473626`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.44030438951824896`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.817283566616807*^9, 3.8172835890690536`*^9}},
 CellLabel->
  "(WOPR) Out[830]=",ExpressionUUID->"f27b02e6-f3db-42e2-b534-43e5409fe36c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"g", "[", "n1", "]"}], "[", "\[Theta]", "]"}], 
             SuperscriptBox[
              RowBox[{
               RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], 
              RowBox[{"-", "\[CapitalDelta]"}]]}], ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               RowBox[{"f", "[", "n1", "]"}], "[", "\[Theta]", "]"}], 
              RowBox[{"-", "\[Beta]"}]], 
             RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}]}]}], "}"}], 
          "/.", 
          RowBox[{"B", "->", 
           RowBox[{"eqB", "[", "n1", "]"}]}]}], "/.", "s1"}], "/.", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Theta]", ",", "1.3", ",", "1.4175", ",", "0.0001"}], 
        "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"1.3578383417066", "+", 
       RowBox[{"0.048953289720", 
        RowBox[{"x", "/", "2"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.817280804305807*^9, 3.8172808637975616`*^9}, {
  3.817280897254437*^9, 3.817280903087328*^9}, {3.817280943100966*^9, 
  3.817280948025497*^9}, {3.817283466925474*^9, 3.817283468322001*^9}, {
  3.8172835171353197`*^9, 3.817283535406034*^9}, {3.817283616348012*^9, 
  3.8172837913669252`*^9}},
 CellLabel->
  "(WOPR) In[842]:=",ExpressionUUID->"b03f723e-24d4-4097-8ca2-9b1145403bfb"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"714.9997764249956`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 842, 544, 
   31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817283761224256*^9, 3.817283792191354*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[842]:=",ExpressionUUID->"1ff6b3ff-f0d9-48ea-95df-10584520bc02"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"818.9883777407213`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 842, 545, 
   31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817283761224256*^9, 3.817283792266705*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[842]:=",ExpressionUUID->"82682d18-f80c-4d23-8675-d31ca1576f0e"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"958.6767276347036`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 842, 546, 
   31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817283761224256*^9, 3.8172837925686893`*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[842]:=",ExpressionUUID->"164319c1-a2e0-427a-9f70-94e763f48d8e"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 842, 547, 31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817283761224256*^9, 3.817283792766893*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[842]:=",ExpressionUUID->"5d8fc41c-1820-4591-bdb1-29d65ed68611"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwc23c8V98bAHDZComiVIqWkJGR/VApeySZoZItFCqyI7NI9sjI3nvvvTdl
RCL0Tcge6ff4/eX1fp1zn/Occe89934u5oeWdx4TEhAQhBETEOz/9aSlCnt5
aRiIXpx3PUK6DrrXV1nbTw7DrdOMmjMk6zBC0RN6jmYYlNPyb5Wi7d4fmXAj
HoZ4ylkZf3S9JtfW3OYQuF1Le/gAbcmWOKm2MAT/nVsJ4Ed70K++a/02BL49
xQMU+7aOP3BzaAjqJX9f+Uq8DittItyNbUOQ4OoXlYeWnVWmV6gegrGPXmff
oHfLnmeN5g9Bc+7nUm00g4HcilXKEGj1PTXmRvNeMJ+gjB6CCywKHCToaF1n
i+zAIZBvvk8yQrQOwt5cYRqeQ+C1ELGShY7n5tAidxiC003b6+5otYXLWVWW
QzD45tlhTbS23tRbB4MhILLcEeVEU7Ie3RDXHIKnlV7ORGjqGbdv5IpDYFN2
ZPgz4TpwsW1If7k+BE15fjey0MqvxFlzrg1BzOZigzs6WY7d3p8D/Z1HWxO9
vvBByJp5CD73SJNyoV3C1R9o0w9BBQt7EzHaTO/uL7lDQ8Ak2R0xcmAd7ly0
HrxOMARXw9lf56CjP4UxSKwNgnu0gJsn+p12WeaNn4Ow0vjjgw56ILDtvcLE
IOS8u1pxFZ2nUFd7f2AQRBxpNsnRb5Q/8tu0DoI6/XPpCYJ1IDxiMB9QNQi0
czqZhWjqIobP+fmDUPS65KIfWvZI0+5YyiC0ursUPER7RDjfoYwZBAq39HtC
6AkTzQHJoEGwYOamokEz8Vo4OnoNAh0Fyecf/9bAW+KLdLXjIMjPnC2uRDtY
1PCQPRsEPyP7tA/oFGZZXjXjQbC+RZ5nhv4tFy+deh/zF6vtvI62v79lTqQ6
COepo/6eQIfefB35SBrzc3wnuby3Bv+MXnW3ig2Ckfr78Bb027gzxAK8gyBr
FkkSiw4UyuFLYR2EV2/jPJ6jt7/Z6JxlGgTmyMgTSmiP3BK7GLpB0Ldyqb24
b6Z2JxaKQXj855bj3t81cNv+Z5mxNwB3D/6QH0JTWWRLia4OgELSXe4sdPki
/07v/ADol3pf8kTTSK/6WkwMwHuRV1d10a9fK61QDw5A3+VzKgJoyvUcjqK2
Adj1sHWnRs9xePI+qhmAjnumrT92sf9/JIjoiwZgJnmTpRr96bZ6aFf6ANR6
MwSEovW0b/znFzcAVUeqaKzQhj7u28qhA0Cq9f2TNHpBI6KG0X8AYlyd5JnR
vE+ohX66DYBKhifZ9s4asAaY6lW/GIBqwpXBPnRUjBhXxJMBkM4rK05Hm79j
/GRvMABHFwYyXqOdTMJK9bUGgOKnYOF9tLvEHTN55QFonx7vEUD7cc8WiN0a
gPzT5f8Oo8c0twP5RAdg6Euz5Pz2Gpwfu7rHfXUAVh/uhNSh3fpE1q6yDoAL
mcK/SLSqUsNTYaYBCGEssLdFy6s7P719FOuvXKJQQo+Pn1vSPDgAxEsf01jR
6TXms9YE2L4lnR4hmqL++N136/0w9/nlxbGtNdD1+cmT96sfQoLbCIrQruEp
r0am+iHx6N+Fd+gs+dPc5F/6wa6V/LcJWm+QXlqkux922GcIbu5bwKjmWWM/
pJV4X2RCX4LpD7nl/eC5tKC7ubkGz7yMaldz++GYJkVaHzrYsktSLKUf7r/q
J8tEb9FuH/GN6YeJuRsv3qCjFLqvfP3QD+E8d3YeoCFfIFDAF9tbWAsQRUf4
nRL84NoPi6UXhRjQ5/qtmDae90MD/9jK8gb278olCb0n/QCk1LUdaP15gfAO
g37wGMiPTUb37kZcAO1+YFdsfO+Gfr2r8q1IpR9OXRAOvY+mPqnbwivdD6mH
D2YJop3ONw4ViveDcwvHMB1awz6AXIy/H2KoI2gX17E+TadmK3s/6CXK6Leh
aw19m7RY+sH8Lm9NIrrOe0J2+Xg/VMwqXnVFUx36NuV3uB8CuT4U6aA399J8
rpD2wwuCHXlBdPamtnj/bh+I8Dqs0e2Xk9JvO670wdInypzFtTUoyd4rvfKz
D6YEkl+1o4d+idtPTfZBVNd17WS0LivRtajhPhhXG5ZzR/8n6PBLq6sPYsp0
FPXQVLojIUyNfUC82PZQBP1SVP3qbHkfGM6f8GZAZ42wlxfk9cH1T5K1K6tr
YBMdfOVNah9IMQkf6kGz3hz00I3tAyGtHcMM9PI0Z41waB8c1nMc8EK3zc9/
Pvm2D4avlag+RkdTqnQc8OiDopWEaUl0v2peyC+HPviTKPiGCU1yWI9v7Gkf
fH/8RGRnZQ0M+tPjekywv4piBz6jz79YGmnV74MQl+jPBWh3Oq+xZvU+0GR6
UxuIPrLRE9+m2AfNSn/Kn6DFMjjY+qT6wEFiuFkOfXr535Ovon1AdpZzhhX9
tSDPYpG3D8hZFulI0f8dzWEhYe+DY060d7//WYN1DUOfMyx9UG0ZkFiDZl+6
FSd+og98BB6Qx6A/WjQ9ekjTB+vHHF85oEk8dLp8yPrAWm3sgCY6mOz1ePFe
L2hJPA8TQH+eLPOfX+uF1Qu3JI6i/9K6jZ5Z6AVbTcmt5eU1MC24X6813QvL
PA/qu9Ge/w1IRoz2gsHBmJhMtNMva9Wvfb2QKLnk44s2X6tdvdjWC5bCyl4m
6E45NRab2l5Q0S4KuY1+I1j9ubGkFwqpTxZdQGeRhBw9ldMLw3V2P4jQedtP
++ySe6F5vvbS1NIa5Gv+oR6K6QXDrdWXNWgznfwmoRDM34x8PAadzq2xHuff
CycqV5Ud0TtrHhHUHr0wbpk3qI3uKZ3Odn7VC0nkwmbC6Fu2Z3jXnvUCJ83r
IyfQThTTZy3NemGT1rtlY3ENVkW/2y487IVrcZIBQ2iPkh5OK61emFJMMi5E
nyZ+JL2h0gtR+dkqH9C6r1Wr3WR6od70ntwzNMFz3QBayV7QpQtSu4OOWbpe
kiTYC2zKulY86HNf6niBuxc8mnMiadBs8/H/Ri/1gts59+HF37j+k9OOO57p
hc4jXee60SoGnxxYGHqh5oaPSxZaSvj+hQ7qXpB7krPgj04kS6S1J+0FMlkh
Mwu0tIWiBMdeD5wOOr0lj55u50yfWusBVYp7oRzo9xJMytELPUBhNSpFie6M
32DXmekB9rdJxL8W1mDCJUzkzHgPCHHm9LejvU9/c/gx0AMSTMt56ei7FgXz
uR09MMb1MN4XHUW36era0ANsgrtxZuhGvQ+SahU9MHS4JFcO3S9rc+FKQQ+Q
Br3tZUd72niwUWT0gHnciwOUaNezJQrzCT3AyWQp+esXXp94//l2RvbA6qJp
YAf6zlXlqcKgHhgneLycgW4USVCI9+0BV/F7D/zRfhQrbe/de2Au/No3C/TD
/0TV3zj0wHsyQmtFtHujy6Lzsx4wcs6i4UJ7UdUGvDLrgfpd/prD6I1mQkHH
Rz3wyCnQeek/bN9DYcpVuweek5Yp9qLfP0j381HtgbcRKVfy0EJ/WflC5Xog
7Ma9U0HoO86Dg8k3euAnVQWjzX79gLonFSI9cJWin1UNfUaTeHeAtwecpD/c
EkDfd8q1X2bvAf6pzWcMaP6z32ePnO8B6qWtnM2fa5A6VCAhcKoHTr4L+PsF
fTv7ppvu0R6onSjULEcPs+Wn+lD2QCbJo8YodJvwuYIy4h74eilQwgl9ztFG
bHyrGyKthNr10ClEEp3yP7vhOZXaY0l0+NO/RxpGuuE21zj1ObTVAVLSG+3d
wHqwvZkY7ZlTnNBa3g2WgwwBP+bX4LKU7Yx6RjdUtFcYtaDNbyQ1LkR1wwRb
vmIaOvlnkbivfzcs8K7e9ENLcR+X43bqBnb2l7JP0H1lMDP2pBvoNUT0lNGj
48lkgXrdoEfC534VXfWhO0NeuRvmXXSKjqIfOAl3H5bshpqTWZvrc2tg8tnK
ZISnG1jYWGS/oPvt/9lmsHTDM6K8tHI0X//zRQ+6bgBCdcYYdN6EZY8hcTcI
vz4Y7oJeYXejU1rrApGfjRcfoRvaFPLFf3QBf5hbvRR6+45dGv9wF4itCVmy
og1HElZ4W7rA02zm8iE097Kbt1BpF2gZO60szGJ+MQ2Gt9K64IzOXnsPelyT
yVMrsgvkynTz89EuFLJTtn5dYLQVlhqCPrxLYhfm2AX0QUlZL9H900dF6550
wQFi1zoddOawGNeKXhdMtTPPAHrkhrwsu0oX7qvd6M+hZZcPe5le74LIJ1H3
SNGG2zrfc3i74KiGSeL8Dxyf1kPqe+e7oKxwirATTUG3NX6HvguM6Qktc9AS
/STPssi6YPVQ7XwQuv02w5EjW50gyH7i2XO07QJ9vv3PTvh3iPiQNvq7/R/V
/0Y74aSMQ644+uVY5O+HnZ0g7fLCkAUtzkPh9K2qEyTurF0mRR9v5PtrmNMJ
GQ//25mfWQMB6tNGK3GdwKpxd6wTrZbSUOQZ1AliY5fbc9Fjyldnz3p0wsPI
xy3B6AdTViu1dp2wdfPAwEv0GZV3QybGnSDnu75wH02QHOt7XKsTvM8B/XW0
0r9yqi65TqhvHJC/iB5w21X3EeuEDY7cwIPoewaujxW40PRd07+n8f4xasHD
wNwJDjcv3OpHU52bL5ql7QS6lzmFxWj2p0zLVcSdcMXBhDcKvbstOhq13gGH
jspWu6BvzTy3cp3rgObD8pqP0dpypBnmIx2gKGZyQBZ9WuCct25HBzx+ElnM
iU4KoyJSr+qA4OdjDnRoCQXyY/dyOuA690XFze9rcPWIVpl2PJY/fco5jv7r
ovDb6EMHuJ4sP1WH7j7Kk2Hv2QH1B7ePJ6NzTqkvBr3ogK8sl8/5oWsrjuXn
m3bACZnrItZo1/mmP190OuDVY3hwDy1i0JJKqtQBfQ8Zg0XQbMUO/UKSHRDL
2Tl0Fn336i2zZ7wdcKVU5SIpmmo2wDz/QgfYrMW5/ze1BuqJLX1bDB3A+aX4
dw9aZeN++K2D2H8df6MitD9TY3n4bjs8cjj1OxKdddiOf+V3O/Rf1XNzRT+1
/HVA9Vs7fHRXOm+ELnubfKq0vx12rWb75dHORmyuF5raoYWAOfAq2itshy2s
pB2fr9a1j6OJHyUeO5LeDm85HvDtfcP+JBWKBkS3Q8Q3bcZp9L/RyshjAe0g
aDZJ1YZePqbKGefWDv5jc9Q56LAtqqWrtu3wUM7ydAh6ocJnrM2oHU73WAi9
QqucM1k01mqHRo+vDx+iJ1/Kn6dSaIcd7/JwaXR20KhdMbTD9u7eOCf6RXPN
lNHVdgg7kMB1DH3yv9RHTBfaQawy7u3OJO7fVaTXRhjaYUF9bfsbOqxROSj6
IOa3G2rTgub2dhAy/NsGUsPuO1noQaXX3/mW2qD2eP67YPRTUTZ/iu9tsPLn
DM8rNN1XrqvTg23wKaJh4iH6BId2V0NLG1y5HRkpg37kbns/vbwNzK/GGHCj
FRLkRkOz2qAprFmYAb2dmnnDJ64NLpQeYdqbWIOQI5bv3T60wfqAHfUMOjbD
sN7lDZZzLx/qQFskPOl7bd8GZ4840Oejn1sZlL+1aIP+GmrOCLT+OKt9jH4b
xPsk3XFFixDEHixQbQPLCtHXxuisa7nG3bfaIDCpvU4Jzc96O2BJqA1GIhWo
r6GDSpUcGa60gd9yhSETOpu2gv3m2TbQ/UfXQYKWDXUJtaNrg5dnFMQXvq4B
08yHiizSNrDNelg5gB7tXgn5tdUKmoeUZCrQXHqRLNwLrRAWSjmVgL7f7qf9
crIVKIuD3/iiv7/sEGvpbwWCnmmhZ2i5nQeNp5pb4ZTc6qYWWolM47ddWSvY
BFU1XEdr2VcUDGW2ghO9eDQb+qRq7FHRuFagv2nhRovWy2I4mPyhFSzf3rLZ
Hl8D+kahQAavVjhv2vB0Cn1x/mySv0MrsCp+c2xDJ7n9vElh2Qpd+aHBeegA
ymITn4etUEE/VRqBjqFNozlyrxU2Vst+uqGrrvzkj5ZphcGuU6xmaOEDcYOc
Yq1AdonwqSr6s+DOf43creDt9rhFBJ3wmtX24flWyDWWZD+PvhyqbUF8vBWY
HwVEUKI5Wdp60g+1QvNfefq1MZyvgYxIjX8t8K3JOmYcra8GbQdXWmBDcetq
E5pMqkaj7kcLjLF+7c9CpwhY33AeaYG0eUbXUPSt7BBPya4WqGZNE3ZBD7O8
YKKoa4F6Z08CEzT/sh7ZUGELRPik9amgDxlEiqWktoDVLE2uMFom3b7SOboF
sgQKIs+hF0eU3XUCW2Cb8d17SvSHuWe+4h4tICIUFbw2ugZGKaJ9F162wDvB
oU9f0eZtpHdpLVrgTt21mma002duKuIHLUDrVj6bg267emp7+24LhF/QORmB
pqa+wrAh3QLTOke13dF0Vm36m6ItcH7ka5I5moFTt3+PuwXKVYr21Pbjzd81
O3ihBUTtgx8CWpmK6cLJEy1gQvm8jxUNHex/ualagKdeTZEWfef0yqLcgRbI
1eYY2hlZg9bS/7bM1pqBLXjNZAadxRjAEDjfDFQ8GRTd6BHb+1Ll482w+Ee2
sAR9oqLf+WdvM/jGdpjHo/OCbeuZmpqh5gAHtx9a/0ELpUZZM7ybfPTPFs3H
fVcjJKsZTlNYjuih9RoS4r/EN0OmjHStDPrw25tzzKHN8PHpz3ze/fLUpguW
vs3w9J5y3mm0wmiFeq1zM1S32lSQ7Tugwv64TTOIJNzpW/6yBmuf7/vaGDdD
dvn0yii6y0jEc1CnGf4tXGBuQsu8+2MkotIMFxiOaOWgt8XPXUmSagZ2+riY
CPS9A1Z9x4SbgbOj5/dr9Mstx7s+nM2gfypS1hL9ZHI1m+hcMxD+2s7VRPMR
OX9zZWgGXZb/zt9EX5FonSGmbIauFMMETjQbiXupH0EzVJgaXzmBvi2vq3li
rQk+qP1XR4ROjDhclzbfBJ0aPx/9/oz9+auwJPG1CX4+1qf5gpYl658c7WsC
cyvplnq0ebdWgENzE3y1iPbNQpsuJOycqWiCdjUtrXB0/QvLM605TVDLbM/3
Gs1N4rppl9gEMp0bJyzRl+Ni3C9HNMGqWtdBLXROf0Dl5NsmkC7fJJVCk0ew
JES5Y7w9a2pu9IABM8/9F02wfY6f+SR6j/6+AYtFEyhziwEpOpwwRejXgyYQ
YvcwXh5eA9LZocyye01whok8egw99rum0l+uCTSO1o41o7MywfCxRBMInEy/
lI8ePM31SZK/CXYkax1j0NdjLGxY2JpgMHzvqzfabmm0n+xME0zz68rZok8I
3K9epmsCEfbROn200OIQ7yR5EwwEWEnJo+k2uTn7/zZCkPOJ/mtoH0+19LY/
jaBI22t2Dh3MypPSNNsIpY/fHz6M/lObx9w81ggOYRpV20P4vOHTfrSjtxGO
tTO9+LHvg5ZOg02NsHFmUrQPbcQYpP29vBEsy0Mpq9BXv3GlruU0Qla9xGwq
erIbDCiTGqFRf6gjGK0bV+19KbIRUipUK13RVepZ9LcDGoGFqKDEAp0vTEVu
5tEIUw/+VGmivw5MaAXZY3zygz1SaOc/7JQ1lo3Awbr+Hw+6KGbr+LJBIyit
5tIyofVZVJ0uajXCcpzgzYNoyQNSQvpKjbBi5OGyPrgG0Zvjt2JuNsIJ56Dm
KfTBv5yfJoUaYZFZ90Q3+rmgnOIlrkYY85u0LUezk0tff3q+Eej2jo0no7e2
RR1rTzRCSOGW4gc0d/eN3aOHG0F8zbPdBV1g9aLCnLgRkghK71ig2TY2y1q2
GkD8tO+0Jjo9YWaVdbEBhN5vutxCe03oG/lPN0BUyu4lXnS80LvD618a4Er6
+y9n0BKPQ38+7G6AVz8KgynR9tfi1/obGmAy5YHO1gCul8SRKzJlDWBzPfDK
DzRng0VAXXYD0JFIUPSjl+t8GCUSG0D3psliNZp34WFrbUQD5KuRT2agS5Mu
R9wOaAD+gOOj4WgL06M+vR4NUCMfPOmJFmnRCtFzaIDlmZdLz9CmjwQqlq0a
4HRJ7cEH6Malqc03hg2gxmzMpYgu4IuRYdFpAENXY10R9JMDKek1Kg0wIFQV
yoo24b9+6tHtBhjMNBg9hmYqzQmjEGsAvevql4nQZY5CTAVXG+CIbqDrUv8a
HHA4n/aQtQFum1BPj6NzMsuFjjE1AGlXq3I72ueYXFs7XQMc3qxqLkFv55/V
9KRogLa789JJ6Elvv+83/9WDourNgSD05ZBJQ7K1enhs0G7iii7rt5rs/FkP
rtsvKSzRpwSDFMIm66HGWy5fB+2e+zHdcKge5t+IGMmi6S4sbQh21IOFudQF
QbS4xSTX4bp6eJRjsHABfUyjS3m+uB78uj5U06FjE09oNGfWg9SN3sgD6A2S
8zdSE+ohyu+Y22If9odB5fC78Hq4xnb/6TjayJC07MU7zC86wbwd3WKcLmHo
UQ/UJtNWpegFp9RYdYd6qD5y0jkZvblkNixvXQ/xp2+EBqMZFvSmpIzqwemo
Rqk7ettjter6/XoodFabsUY75kaY3lCth5s/BU7qo91uNU7dlqmH2skNLcV9
78ydV4Z6uL8c9El0P5/Hrzh1+OthIp10kw0tvraxa8ZeD7Fxcmon0LPrg/7O
zPUQ8li3ggxt/e791xCGerjuJ3xlvRefZ8rTf+VS1UNd+mjyNPqpYlxhD1E9
VGiLcfSjCRdXBVa26sCMX7usFm3JwPbkxFIdRPVz38lB89I1adz4UQef+kpX
YtCP/yqtWo3VgUnPcow/+kW1snh8Xx08MB9QfYW2P6zKN9xSB+6379OaoV2e
fO8/XF0H6sReI5pooUsBjPKFdbB4SzlDGi0jP0/il14HEwW5b66hF4pcgrrj
6uDmWrL5RfQtkp819GF10JTDqX0M/S+szPfB2zrwDJRUJUaHBXsvZ7+uA74b
Y3dXevB57+vi4gGHOth6uq03hX543Ou1unUdvOkOtelFb8X9zsgxqgNyipz3
NWjJsFpDKt064OoVL8tG/+uNzba4WwfMo/BfDJp74opHryy2N5p14S2amYxy
RlCyDjy83pg4ou/fnuxIuFYHFeGNReboHRUVYVrOOpBsMaDS2S/3I2N/fR7H
r0vfQg59hyozaouxDpaNC4eE0apRC35Pj9RB/F1dGTb0k2y7rd9kdZCurN54
As1nujHxZK8Wnp+OkqVAM0WdFf+zWguTr1i/bHZj/tWfjrz8rxa4r25azaG3
169pEE3VwhVCMtrPaG7qgMOBn2thL0+5ohnNY2fAz9JdC7cpey2L0U+knjQX
NdbC4WF3jmS0E79xvWJFLfSPG/wJQWfEU1/6mVcLdr8saz3RAd5nlrxSa0G6
JzbcDv3YU+sUe2wtEGms2BuiXftdUntCaqFN9dHje+jc22rBL/1r4ULwL41b
6PNqUeMXXtcCxaKPmgB6i+yUy6B9LbTzC2tfRFORRNl7WWN9WDehR2t5zbSJ
G9eC8FSZKym6+1H9k03dWvDdcI9f78L75d8DBoVqtbCrodDxA22tbJliK18L
Pd9o/w2hqWdHhIRu1ELOkx7hZjTD12P0BMK1ED7u6lyMZvr2R7iNuxZWqM51
JqMjLt9KCr1UCzaT2efC0BOOM2rGTLUgdu28uxfakSvltuixWihfc/jvBZqX
0eglHWUt1BLk65igH8Xvzi0Q1oK1eOOQJnoz/+aH9q0aUAzJ0pRFG9Seepmx
VAOsy6Yzwmj/2kfBAbM1cEVo/SU7WoNr+8fzrzXwRVOe4RSakLzO7OFgDRBL
mFRSopdbY5iVO2qg94u0+d/ONbjxzJZUsr4Giuhnz/1G77lwHOcvqwGnWZj+
ir67kH6XI7cGJMWVMrvRFZzjpRdTasCI+ohzDTpKIF3q/McaSJB31cxF/7Ik
XD8fUgNbvyNF49EHqnpaWP1roPiXDmsQusSBpILrdQ3Yideceo2ueRnYKeRQ
A8e/1p6wRdv8Ndy59bQG2prunzFEL1S/vKFuUgOEa++uqKM//KpKMNWvAXvD
uzel0aRnrzC6qtcAH2PyIyF0k2HFpwhFLKd57cuGlhQ1lCyWqoE+2dnyk2hz
7wu/h0Rr4HBHxyolOithPWWLtwYgjFtgrwP353LDlmfYa6C0gNplEa2R3iQh
zVIDlKyP+ibRFHha2ZzA47cvX+lD58gMbsbT1EAPr15APfr0zNboAFkNfJzY
2ylAE3yzdKPbqwYKChKrJHQMJ7uC+69qGKyw+BWKPtvDd3RrpBpIKPitvdHe
STH9Nq3V8GX33p492u2u45v14mpoTOkOMkfTis6xOyVVgy1TJI/uvl9tVRwK
roYeq8JhJbT/706Bj+7VsJLP6CmJPnPRI1jwaTVw/G0S5UWHmkkODutXA8Gj
op3z6N7yS39eKe2XT9fRozsa9eYuiVfDh2nF9+Toolm6gs8c1aDLu2Sy3b4G
8pzWKu9OVkMfcaPML7SmcnKF3MFqsLRt5fmKfp01t0y1VQXf47eYe9AHlU0X
BmergCxDhbEOTfPtUXrCUBXM5HQyFqA5cg6zPm+sgqw+k3NJaK+MND3lgipo
5GXhC0MbPrJR5EqogoKNP/I+aNa9rCW691XAfuOzxSu0scTH63suVUAh2hXy
BC3r4Sfx27IK7lD0NuujlapqfnzXrQKe/jECVXS9pRfPhEIVrNUtSEqhT+Rc
PT0pWgUMRAS+19A7548k/WCvAs7qw2OX0eYHXrT8YayCrXMn+E+hV4iqXIgP
VoGW3vEQavQhG9H2k1uVoBhL8Y8AffOs0ifBuUrYpp+3XGnD/a7OXXLt4Ur4
uJo3N4P+9C9jxa2pEuLMHpl8Rjs9qHiYU1gJL7PXl9vQ3RpzKt8/VULLqrFb
JfqJUHjlyQ+VIGVdxJiD7ukVitd0r4R67dGyeHSsybXdqKeVcPVX/8NgtFn1
gZaZB5UQph1F64V+TXqIkE+lEhimudvs0UQzzUlvJCphtsbf2wL94Gl23iRX
JahzZivro7P4RFjgTCX0mASeUUWznJldjqeuhPZc7nUp9NY7HibKvQoYlfIe
ENw/XjEywX6hAmIMQ8vY0b1eyU6/xyqgR009hQk93zeabtRRAQL3GqOPoL3O
1Vz6UV4BaenjEcToH31ff5ukV8CJyKiPG604XmENf/9EVICt6V76T7SlN4GK
q08FdOr/qx5HN9OfnzlqXwE8TZGjPehPB+uLMk0qoOl79149WuHNszo5zQoo
IQq7XIw+TtJFvChdAdetl7TTWvff71nYhwpWQOKLweBotJbn7zNSrBjP6MZw
AJqeYXl5g6EChHwFzr5Gy1XTL2STVQATX7rVc3SLFxG1xUY5SOZFt5ii95rv
q3DNlgOV+kFWXbQ5Y1f++lA5rNgsvFVBNxn846lvKgcjvRt/b6JzemJaPhSV
w6Qp+TNBdGq7to1ZUjmM/BJcYkcnEs/x3A4ph26RXpsz6GumG38veZaDRHYn
AR3a+7LEIJVdOaR9ZPtAitZMty/YfFwOvobTnNsteP4HPQibUysHHd2NngX0
38pcx3Gpcoie0rP/hn4pzvZgmL8c6pQY2QfRuzp+MHShHESJzn1vQYsHRx4b
OVYOjtp28RXo4Q+nJ6dIymGxmMYkB/1FcCRyaa0MVl/8FviEHveLlCL6UQZz
/w5RhqFTW66MMA6VAXP24zlfdL+i3r1rTWUwM7/R7ozeSSMo1igqw/1tddGz
/ePfTW86JZUB04fiFCP0xODE8bSQMljrGo/TRjO/bKUb8cR4HJzxSmiCMPsf
1M/LoJwuMfUGWt+6y1/aqAwaf4uXXEPXP4wnfaNeBiKXNjvZ9+P9GFRou10G
hKydP8+gp4Jk9WkFy2BTp4z6KNrhxLSwHmsZTF2tECJHz4DXSM7xMnBg6Dbb
bV6D1WkmUTKKMnj8cvHTEtp+N1Dn4VYp8LacmJlGR/p1CtbNl4KBjSzHFzRB
ZnXnxZFS0F10tO9Ev/bQOB7QVgov0nO6a9EM8j7H9spK4dfJCfYitM4NmTqr
9FKYKyB5l4ZuL/E9ORdZCs/+O7sVg3YjkmUy8CsFT/4rpkHo625OzdOvSuEf
xaWpN+hzEReOmlqUwsfJgw9eoUsKxA6s3i8FqquDP6zQTeLNvm6KpTD83O3Z
Y7RSUkPOMSgFU47DZFroh5rCFplcpXCi/XmcIlq2gbNK5iy6p+T6DfScUlrs
T5pScCrp+nkNXa1ffCTgQCmIERaFc+wff/chtfCfEuDgMFNiRn93KQ2amyqB
v4U/D9GjS692xkT2l4DUWZ7ug+gL6dkcqg0lYPVLOPxf0xpIn7EVPlxYAh1R
xKaraKEi3sbuxBJwLvCRnEdveBK1fQgpAd/i1jNf0RWhe1K6b0qgi62KuB9t
NCYhwPGiBHaDDJaa0fJ8c6F7xiWQ+LJ0qgJtanLUeFAT83tUOpqLduacTciR
LYHBz/qjSejx06+lA0RKIOtRxrdIdEYxjaoNRwkk+If9DkA76BfU6JwugWff
mAk90Qf0w97KUGP9nzdPOey3NzFbKvyvGCr490St0IGz3cC9VIzXGVmDx+hQ
fefTbN+K4UDzhfda+/09fEmZta8YTrH5Nynt9/fD1gBbPdYndzwghRY1ZU/l
KSiGuJXl68JN+79H/mkVTSyGToc5Hy60C5cXn3xIMVjz3v9yHr0qe+GH3pti
sMqU52REt1CSjj1/UQxOjvneh9Gxp43pPpgUA4Pg2/+I0WMbPt4FWsXg/vSL
6nYjXr9mskW+yBVDf11g3SJ6/ADjJUKxYpitzr82gz57lVqGi7MYHh0QzR9B
C7H1x+ifKYbsM5f4e9B/jXIvhNAUA1mBdWUj2ujqykj3gWLQ1TguX44uD5su
p1opAvtkhm856Aqr/kal6SL4Kmr+Kgl9U+3wevBgEQwU0DJFockS52Umm4rA
LIOsKRBt6FpYxVlSBM9qb9u8Qed2NKu4phbBq/fdrI5o7svPCT5HFMF4VeT3
p2jVjZMtV/2KIOVHyidj9M+7NEmBjkWQl7Zipou+eDIndPVJEbzNeCF0d7/+
V40IbX30Wz4qWbTsfybpTSpFULtybhbQ9bdutvDfKIIN5xvN/Oj/0mV/p/AV
Qf7wu0x2NIfvN8azF4tANJYkghndQ24pF8lQBIHOcX4M6NAdLUdGiiIwPaXv
QbXfn/+os6K3C0GQSfw1EZqLZn3k/K9CYL0i6L3VsAYhyo4HcsYL4eQf2Q+L
aEsJujPQXQhp9M8SZ9BTZ1h5+moK4ZJUZsUoOvHLFX6TvEIIYV3/0osWJwxj
Jf5UCHnmsn+b0TRDo+QJwYUwX5l0sQp9QMiqX+pNIei2kt0rQIsWdHr8elEI
30VNfdPQkbZPToeaFgJxc1tTLJpPsStUSqcQVukvkoeiVXNN/2woFMLHsRdK
/mievDq2LCiEyJbqKHd0ObG6uDFPIfD6bSy+RMttp7JdPFcIml9OyVihLVxh
YfZoIeQ/5EgxRL8/H+2eSVoIgaMsVPfRI+Sy/9ltFsDKxu5zVbTxry7mmz8L
4JV58ZwM+uTFovPHxgrg9W9FPQn09QTf5fnOAiDhqxkVQDPPjnnUVRdA2gqZ
7hV0NIXQRExuAVRMs/w4hy4o5N5xSigAwWoqG0Z0E+u94YfBBVAu0kh2ZD8+
j5i17JsC8KS7FUeGLuNwaOJ/WQA+BP4Se/VrIEGePHDerADuVobMrKLzxTTD
Ge4X4D5DP+A/dEg/Oy21UgHkBM1ITKGPa5eJkksWQPCF8xuf0fGLcfSkvAUw
/fx4fvd+PH7XaLILBXBfutqmCT2ivtlFyVAAemrHRCvR1yhSU45RFMDP+wwU
BegdFwFWlp18iGSuG01DN9hLyV1dyIcCfdqCOPQe36vDtyby4eAY8fswNJeV
29P7vflwRi3E9l39/vdnB56+qM8Hwrf1up5oht8Jh0IL88FQxlvBEd3CTS9W
mpwPobLTkjZo3z8kxBPh+eCo1itihr5gzqJL7pcPYZwKIg/RWSqnZPid8oE4
8q6EJvpKb2LdY6t8sNSfllVGJwY+bQl/mI/rdUvrNnoi95pG7918oKQJsBJH
P2hOt6S8nQ+BXom+/Oir456UckL50GQnkMGB/vnUjcOfPR/kEqDvHDrdQbOz
73Q+qA9X/mVEV+i0/DpJkw95Y5mctGjqBT8vY8J8KHKkfEyBvv3MMKZkNQ9U
PIZiCdAvEo9xUM7mAUk1+dRG3RqkJetwPfqSB2PrH1kX0aUH/yVWtueB/VaY
zQ90enut/8mqPDj4YalxHA13zKZf5eSB/IeEU4NoWqv65G/xefCmJetFB1pH
L2hQJjgPQv9Rj9Sj2esSzQrf5MEEea1EOfpiXJPRefs8UCyozchDh5nWN4eY
54FeHxVTGlph2dSbUi8PGPniP8ShY8z80zxUsP10B5pw9Junu6yEN/NAjiI0
MAB9l8CX0E0A82VeZvBCj1pS8ZNczoOaJs8EZ/Q1B80q35N50N5xl+85mlrk
VtQx6jzoJtNoe4IuvJDREU+QB17y/o8N0TJUjxV4V3KB12qZRBc9eEb+VPNM
LgRJu6aroe/PiF3T/ZwLv9OF7imgbeB41GZbLtBYM5BKoRmNy6RDKnNBzJKh
XBQdvkQsci0nF6SdBGz50B41X6xG43PhpZ01Hwf6xLFTc27BufCRu3HzHLrB
OSfmilcukHhy1p1Ev5559X7UPhdsldMC6Or23y8b1/pZYH6m/AaH0LK92pcl
9XOBKqtDlAidUCrRsnknF4Q3zBl3anF+9Qij8qVywYWZ7u8fdLOwf7y1YC4c
pqiY/ok2oOn+cpU9F+J8DHqn0BvLeK0/nQs67hT1I+hLYvx9VTS5MN+TXNqH
VowQeedNlAuPVEQL29AHdyps1NdzQO97fWEdOiMi04V1PgfmHouUl6Gndwhz
d0dzwLXkY2MeWmQun2igKweYyxcG0tD9liV2WbU5eJ1lmY9HS85SkPsV5EDY
HWHCSHTxbHyheXIOJKRePRuEfq7g7KgckQOM/OQ3fNGnr0Xdv+afA/zDxabu
6HjiTVVmlxyIfioe6rDf/3vvdamf5YDFz7CWZ2hSKnOHvcc5cIWlYc8M7Xzr
TcqyRg58/lshZIB21Jv9PiuXA0MPXF7qoK8vB7B/E8+BrauHqu6i/+vxdhzn
yQHve1pkCugC6i/DY+dzgCvPVE0KfXTNU3CCIQeoOIRSxNA6ZNHR0wdzIDat
7h8/ep5Q/uDITjZMHiXW4UQTZGmPLH3LBpY72xUX0aGP3JOpWrLhimw8yxl0
1tSEBXdWNrDObPoxoG/eDbis+SEbUg/t7BxGn5EpGnpjnw3JSYmW5OiBYlvr
Cv1scP+4NkuAfr+zurZ+KxuIJ2cNtmrw/O3T0b92JRvu3Hn5YxnNofU5w5Eu
G/5OJpn/RNsfCR5u3cqCNTuLjSm0XX/d2MnJLHj7r9VzFD09FFTyrCkLXAxL
GQfQUxmiRr0ZWTATKpjfgS4UX53mC8oCbpebyo1o646VKzEvswAoR5Yr0QU/
7cSp9LPg9uX10CL0L9dyWrdbWfC1Ifh6Njqq/UDyLkcWbHQULiejxVX8Nl7R
ZcEcl2piLNrp50cCou1M0BozvR+OLip3r3o7mQkatVsn3qO1+FyvnG3OhNtd
uyM+6JeU0zLFmZkw+8cq1h39/Ob24bsfMkHpjKrpK3QT89FX6/aZsHwjVtAW
/Y3ztU/Mg0wIV1E79ARtJfjxmrx0JhgIWU4Z7ucnX+H8jzMTun79rNRDx5fw
6ZUcy4Sk+43RGuj3ZAZ9drsZQO2046qCTiFIGRT+ngFOEj6msmiCJP3HxG0Z
0BL6RP0G+vLVJcf+nAwge54oLYqOZig/mRKaAbm97OL8aIa9SyJuThngE7l3
jRNNXffx84PHGZDWwihwCc341H/plnwG2Co4Cp5FGyrqOvPwZkAS0zk4gf7d
6OrKzJgBYjwUsrTocVuTFfoDGRBiz6F5qGb/e3fv3iNz6aCw5G1OvF+/595x
2u50uOvF9Ppv9Rqs+cs2MBSlw7zg7Md1tNKnr70s0enwdnOyehH91PmdGO/r
dGCsIp+eQ1tnjxLJmKVDios25RTaaPYGs8GddIi5NiQ4iibdlX3/WigdUkds
TQbQw99sVdPOpkPjg2sxnehHGXIPBsnSgbORYbgJbeerVkKymAYmf+mO1qDP
tTOpiQylgQTRZbVSdF8PH59dZRq0dKtG5KEnGS/dKfqUBio6gd/T0RHib9J3
fNPgZfxX7kR08I850VvP0oAhStAtBu3Z+40wRCsNlG5EDYf+Px7F9k/JNHB+
T8oTiO5o2maSupwGMq9t3vqgHRKVn3yiSYO3dN8X3dFj5qnT5JupYC2ipOaI
pmZLdHo6kQp3Ngqr7NBMazOC35pSoef6UQ6r/fwWD9OoZaVC4wmjaBO0zM1W
gq7gVFB4kU77CJ13roxM3jEVyrW++urst9fgx9xtkAofK3fJ76F1HizIqsun
Qn00kY8S+vE1H5dp3lTg2VyklkETedBV251MhbNtVaHX0YpeIkTURKlw8IjF
eVF0hWORTNrPFPjYtlHAj86PEX4n15cCNavaMlxovrMuPculKeDrH/KNFU3P
I3kwOi4FlII+ObLsj9eWkJCCdwqEELufPrU//2GsWoTWKXB0krP2GHqKpdOk
QiMFys4nGh9Gh8TPGzhIpEBK7xQdBfrV0evSwJoCPD+m6wjRl42iaMhpUmDg
QYrtbhVe717WlA1uJIPsTTaOdXQ444sbKRPJ8Mzf6MciupPkXbJzczIYiN3/
NI9+/b3vu3Z2MmjdJTf8jqa6TbcmGpoMTX2P2cfREZnMn1mck+Fm6dPVIbTJ
q15vKqNkiCTnqO1Bt/3bIP2rmAyVtW8D29BVJubyywLJ0DoT+rgBHdZDpv6T
KRkO2N0Uq0JXXEk8N0eaDOPPAo+XoPu0mbN//k6CP5MOG7noN/Ta68tDSfCv
imAkHX1i8+r636okWDp8uiYR/fiFbzp1chJ0D3amfkRf/yVNd/5dEvTR0oSG
o/+6qbCJP08CpdbJN0FooVv+Czp6SdCwI/rKH93K8EPT5XYSdGYw27xBL+Tc
Nk/hSgKeCV9LV3R17EfmQYYk6Ap+8cQBrSw3bkdKkARZ/dNWtlX7z+fLxqJz
ibAc2Wlnif7j1LNq15MIE8tcLib7+f1nwVBUkgjDn8n9H6Hnhmo6t2ITQf+u
WvR9tHVp7dHr3olw1Jg2Vx196LPp/FvrRMhhEGtRQafcKJGe1EyEg0Z9U3Lo
teFkLoHriUCv1U1wq2r/fa5QZABbIoyucrNI7Pd3wMJrkTYR3EVWbwnvz+dX
6dU7O59A5iq9JR/6iFL3aNn3T+A9HhTBiTafJhO91PEJ0iVNW1nRXGd2joQV
fIKrj0J2WNCXr+drUUV/gspbx3hOo0uUReneeHyC9aXvJgzoSKpPgiRPPsEn
w3+JR9AHt7ea39z7BMEZBjOH0GOqSlXUgMc307CSoouPFR+PuPQJqCoJnhCg
x1ekBi7TfILQQJ7i7co1CNCh/V25mQDPZGOJ1tAcdnyP7n1LgJ5fMqqL6KNM
TdwrrQkw7cieNI/ump1S/ZCXAH8Jr+9+R8ucTGkVikwAU1cfta9o1gK+d9/d
EyBo70DeZ7SofmpcoHkCfHNOPNJfuf/7OeveDTWMf/CpTSd6l2koblssASY/
GYw0o2P3hr0LLyZArKr9jTr0W2+1fJvDCRB3Kie7At04/Pyk4GY8uJEQnSlG
U2WaVP+bjIfvdFaBuWjG5+pR7a3x8FRhlTQD/U3eMjsyLx5Giv2ck/bzW5hc
s4yMhx4NgZ1YtE7luLn063igEPj9MhJt3xp25IJFPEiq5e4Eo2trbn0juRcP
AhWvXALQ2eunv/wUj4dYKwVyX3S6/r31/kvxcPPF2SAPtEvwZYFamngY+/zn
rAt6rr0vOG8rDi6E1eba74/3l7e0KVNxMF7uLWWLzuOJSo1rj4MyGekxS/TE
tLDGx4I4sL69bWuKTojJOBkXHQeFZVG0jyv3r998y0meccCdypGnt1//M8NQ
jmUc+BxPvqu1P545Uc1VGnGgT02xfRe9JnqovkcyDhQDlOKV0LdYMht/sGH7
Cc8VZPfnO7Kzg+BoHEQqOu3cRHPblQ4y/Y2Fv8H6GYAOP1o9LvEjFl45n9QX
RpuZcE4ZdsfCC5oMen605abGZEBJLCgrHu7hQtMOBg5WxcWCvPh1P7b99RJ3
pXrJJxYyZyTlLqBp3rpFXLSJhXiZQ1Rn0Tz35gz078eCtGVkLyM6WLLkZMyt
WMjTXgw7hr7LolAxwRUL43TEj2jQDapENy+ciIWCqCGuQ2ifUsGcJ4SxQLnz
6B8JmsIxfPf58EfI4k3tJUAXJUuoM6Z9BGm5hKSdCryfTLCbNbz6CM9uKTmt
o2uOn+O1U/oIBZfTNJbRTkrLqVwsH8F2K4f/F1rGzaBtaTUGDpXpH5tF/85T
eFfaHAP5lkUb39CdUy4r3hEx4MOUPTaGVjgyuPzAIgYi2m43DKMnhM57SErE
QOtzx6w+9M07cimsdDEwf1khshNdcpvtHsOPaEiezvdpQR/8l+BNVRoNEelZ
r+rRQwoxYof8ooHXTdi6Ci3374AFjV40NJrdNS5FS3WU0Z6+Gg2vzbYeFKBl
dYov85BEg/Pri7rZaOob8xnyn6MgqfSzThqadu9mqGV6FFRTUekmoq+t1H4P
d4oCO/eaB7Fonida/u0qUSBzeskoEi3y8dA74gtREDweZhWC5gsb/H5zMxL8
m4odAtHn5Ms9/dojQXRExtsPHelb93Q0JhI8GOXD36DHiFbjeZ5GwkXv8nQ3
9Fkxbdp3UpGQdCm4xhEtHUpasXI8Ep5sDA6/QL+XIYvU+xUBBVv2y8/Q5XrW
aX3VEeDK5UpluT8fJdoz8kERkBE+w26KPkU0eavLMAL3d4nyj9FXqhjb7glH
QDZVpaU+mk6A3fQHVQTIHWcL1kY7uPKyOH4Lh0GN+Yp76GoXjQXGwnDg7d74
oYI2HqttqvYKh1MOd+gU0LkHIlLNdMKBVGddUhptxUIdyMQdDhLWk09v7K8H
HsUXn4nCYaiUKkkcrTrtpxU+HAbJfA6jQmjS9H9XH6SHgerkBTr+/fEp+LrL
5RwGN8oPKnCjNX8a5JOohkFi/UVvdnTeQrfK1MUwMNmwa76InmXQ72/cDgWZ
u5tkLGh3Ow3enK5QqB1Olj2NJm7fM4+LDwUSZ7d3x9GfvSIdwu1CgeG2xxAd
Oqf3pVaYbCjkcWSeOYymej5LHMMUCiocG6YH0RfW+OzS/oQAx3X9EpL9/j4r
TK1sCgER0xmyA2jCuqqI4YgQ4Ix119wtx/lST725+SQEnk9cy9xA8yr1xJ+5
gfXP/SNcQX82DsxRYAgBHcMhrd/oRWIFE7f/gsE6oaxgHl10zrClsjoY2gZS
aGbQjw2ut/4LwvLV6CeTaIsDskbSxsFwZjekaxQd2TMbHSoaDDdnAriH0SIS
3sYLNMFAmOr1oQ9Nci+mTmbmA/BIOGx3oo9khidnlH6AuwmPH7ai6WyWaOnf
foCEtpsdDehVM0YCz4cfgCTrmGDNfvyZQNNdgQ9AJTWYWI4er+lXeHnoA+x4
uhwrRr811UvcnQiCKtOjb/LQyiNF5p4FQTD/w387E+0eqPuR3jsIGpfnLVPR
p8PHBTPvB4Gg64XZT+h510o+2atBMOojph+LztD1ebtAGgQTRFyjkWjZ5j7J
0NH3wP5tXT0UvdN3SfZ2znuQZHg/9B4tzng64e/r9yAf8ffe2/L997XS0mWa
74FOV+CLNzqJ4wa/I+d7IL0ndN8DbRaS/PgW0XvgsSX67oJusaEbPPY5EG5k
BZq+Qsc2XHT+LyMQPFYmV56jUzfd9ZpdA2FS4LfTM/TTjW7r1HuBMGZSdMgS
TcaYlxvIHggfHAUiTNFH2QcYXQgCofmhGZsh2uDRVIrNYAA0UtypeIDONPVV
t0wLAMeHs0r30ZqqLixWzgFgqcM6o4H+L9KG5PndACj4ceTVXbQtG9Ou++UA
WF+MPaqM1o8wJeb8+w7sDfuy5NAMT+Yv6ie/A2rBBNnb++uNkFc9RuUdHL9D
M3cd/Ve2yW9u5y34xtG/EUfn7F2sFk96C79o8y8Jo598GJ+JVX4L0u+nWvnR
xmLPN6l3/OH6oXgLHnTbtMdvr0R/2DP+TXtlPz57bDW1sj/whjSUsqJ1Hj14
FLvtB6cdmR+eR8sHmPSKJfqBGxkh5Vl0mv79A7NKfpDJ9Kj4JPrklR8/I7d9
wSZd0oAB/Ww110Mn0RfYQiJo6fbjaT5rZVX2hbQm0zpq9G70t0yCHR9QOZ/9
7OD+eMWXsE0n+uD91+AiKTp+suRav7IPUBF6jRzYX/+myR2dO96grUgf8LcM
75fTCt/6k7zhpj7l7S20g6e9xYyKN3w8ZfRvFb17jMCE8K8XlBmdK11Cb3wv
bGdL8QKDC+I2v9CErc/9dVW9YEKwgHsOffX8xaTovTfw67Xb7+9onqFEqrnU
N1D6X2LmBDoCJsvF1LBc8eSTUfQn8fqUGII3kPxugmsYrXFZsuNghidYv138
04eW71JmclP3BEV26eIutLHlQggxkSekS/141YbOrabnfJ/lAUYVTTea0L8n
ekbZtDyg0+LHoTr0is75sC4SDwi9dn2wEr3AzqTtmPsafqwPfSwt2//epvvU
tfuvQcYrzqwQPeyjOLhD/hoKm2MEc9GH1wpetRe4g0dAO2kmOkCf+VCSvjs4
Vp4fStkfn9iiF76U7tDImpz0CX16KrLSocQNZtOVXsSiBT7t9toZuEHnmZNy
Uej6MvKsVzRu0KpDeiYMbXlrVca/whXchalXg8r2/798IzrF2BUOBnC1vdsf
z0ql+K6jrlDNaxTni/bVEVP6V+MC5ju5L9+gPw+SRAtbuABrBaWqO3oo7Y+7
ywkXMJW1ueKMFhVN2IzzdQYC+xlyB3T4vfld9WknOMR0f8YOPUNnQHJOzAkI
KT7XPUULyrUQEoU4Qg6latwT9Cmx/pmN36+Ae7vNxRT9wkf24wHpV7AUJ/rA
EL3Ms3vmbJwDZPR/uv5wf/14VWmobtvDQ12CC7roQD4r4UhVe3CikSfXQhux
bhZuZLyEt8Wvf6mhe2OkKoxJX4LT2eReFbQVjbL4b70X4MKQU6yAfiLMcMWr
9DkcMY6KkUFXEye8FKB7Dj/GjD2l0DIfiI5tmdsBqQStpSR6jE9lqbvJFnK0
gjXE0BlaGbtlZ23BbO33dSG0faQYe5m9DSwPn+TkR5Nl8Ft0DjwDqdbjjDxo
ibud+aucz6Do3RTplf35fia1xOX9FEKWbFdZ0XsrP+icv1tDYU731Hl0Xgsh
zZSYNawG/eo9i86fWR7UCLMC6/uttafQb5zZsppmLMG6+2HecfQ9z3QKosgn
4JJemHB0//z5KB1nqGwBz/KqgmnQ3MYr6ssk5rCTYO9FiX6kmkmTUG4K5vDD
gXx/PYa9yXKwNoHB63uWxOg1zoSjDpeModWs2oAAXdbMfTFu3BCa7C5q7Zau
gWGRVdNC0GMIO8OtvIle3Mr7rC9rAILMX26tonuZ1SW2CR5BKD+T+BL6mkzH
ZGnxA9g8tsv/C91zODD64xN9CLG35JxDc7IaFdyT0wWKk7aXptEiRfGrpaXa
kJFJwTyJ/pnFWW/Mqgkqc5dPjqH1U9xnH4beg/+c+459RssPCF5OIb0LXy8R
HBlAT5ESKwvaqcDe2L0/as4b8I/y2e2LHQrgX1PsZIseIQv7bJUhDSd9xmiC
0X1M4d+V/G/Aw6H6lAL0ocLUZY9xUXhz3fzWAPqIbYdKUNz/ZmSvnXPl5Wcg
f/XXiUJ9ZxXs4z7+miTc8N0eAFD1ui4=
      "]]}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0X00lFkcB3AasY1hjSelyIyObTKIjtpdbfndqMhb5WWrkcqIQUrjmHOs
selNUoemzcaMtVaiVRlpp9pRWTUWeZm29KJFzZLtpOmsluc+RmLv/nHPPZ9z
7/f7u+dcV3F6ZOIsMzOzcLL+38sPii2X75H7izoW/KLR0tDSww/byt8Ou8a1
tv3EM61NR/n8FEhwEaWyGmkoby7kzeZ/A2kZKtdI4rQ1sn0MrwAOLnRS/EPc
8yG5eJSnhPOpzvuEt2mw6hsUvOPVwhs2T/BTEw2VHRXStzwtZIW6lZ3S0aCu
L+hLW9YBL5VVCZ/raZDAQ6UxoweiT65d6dlLw/5h9yGN+jkgjwOzRv+ige16
TPDySwPIlNTVfCMNRXadwsrdQ6CtfZKUimkQ90X/xur6G9bnc6b55hikvx8T
pwtGYKPDY0W1NYaGA5wox43vIHZ9o6fMAUOlfO+Iz9ZRuB7gUOvIx3CkYmrL
uPE98AaLllkJMZj1GNDt7DGYWa6s1/liWJKZlBUtpGHpJkdutD+GV3TJ19Z3
MOy2vSH3DsYQMpz67XfSCTCo2ltfRGKIeKXwcHGZhGfP9trsiMMwohMfaq/7
AAM3vOLcJBiWcZ8uCtz1ETwT9hQ2SzGwgY7vH5uGggZt60U5hqB3ImZxjBny
7j5qEB/H0Htvj7nI0xyFKV/QbxUYrp9o2cmnzVGW1ba5zSoMSbNlBr1+FjIG
bKCSqzEkZMivc1QslM6Pcoqtx+At8dCHxVugFPWoi7MWwwN7T2uZ32x0ZQ6L
1aDDcEt9pMyTZYk+Wq4YVXRjkJsLN3cNWKKSh8/vrOsl7+vPDt6vsUI/h9nl
tw5iGK5xLa7I+QS1pSRuP2vEULx0gYU2Zg7yifbmrGAwKFRJbfF8NqoxzG/n
mTMgKo7Tc16zUfGiM7nP2QxMrKs2VTRZo05B7nyJAwNDwwFZ9/I5yO7xqV+B
x8D5NcuduuNt0I/hNquM7gzU5cm4Ei9b9FVKXcuQLwP5MQmhLNoWRax8EVK7
hoGV/ZW1+d2fosv6ow0BwQyUupfVdYfaoXnsYFdBJAO5zYWloVo7dN/+sPTl
DgbCnWKqO9y4aLwz5E6ihIG1+9tiuQVc5CXwtf9CykCFs9iti+ai+k2KoH45
A266i+ciYu0RLOQc78pjQOF1T/ioyR4Ffe/YfPI0A0ljFg/vCylUMqD801nF
gLjhX37BaQrhNr9pUxUDaUeipkLOUEghyZ6z5AIDsijNM85ZCrlb3ZobSXyC
lhUpzlEobsNqj0vEaj/Th5JyCula/LeJqhkw3Z15WnOZ5O8GXmusIfMfcQpb
2igkvBWeJK9lQFW1L/n4fQq1iIqkF4mrMvWBwZ2kb1Kf00N8Y55islNP8n6b
z3pcYqBfRCX3PKEQczOyuY9YMLQgcHCI5DVbF66+woCPJtvlwjDJR5d+lky8
Kq/PlPia3B/r9SkmDhOUX30zQub7ioKMxBl7+S7v31PoTMOOzB/qGMhZfdh0
bYycbynPbSfOsxl8nEmT/tGBk+PEpfVVpyYmSJ/3rsowNfnvQxaSxkmSf1Bx
JYv48pbEgJwpkk833LxArFncush/muRtXXV/EDeNLTHNzFBopzpeP0X8H0l/
WUA=
        "]]},
      Annotation[#, "Charting`Private`Tag$907698#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.3563204624785772`},
  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, 0.3617843613504096}, {1.3563204624785772`, 
    1.3857285757189266`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.817283762942142*^9, 3.817283793407621*^9}},
 CellLabel->
  "(WOPR) Out[842]=",ExpressionUUID->"0f099d03-656a-4602-85f6-26b4b2405b3b"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"eqLow", "[", "n2", "]"}], "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{"eqMid", "[", "n2", "]"}], "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{"eqHigh", "[", "n2", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqLow", "[", "n2", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqMid", "[", "n2", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqLow", "[", "n2", "]"}], "[", "2", "]"}], ",", 
      RowBox[{
       RowBox[{"eqHigh", "[", "n2", "]"}], "[", "2", "]"}]}], "}"}], "//.", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"\[ScriptCapitalF]sol", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalPhi]Rules", ",", 
      "GlRules", ",", "GhRules", ",", "DmetaRules", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Theta]i", "\[Rule]", "1"}], ",", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
        RowBox[{"B", "->", 
         RowBox[{"eqB", "[", "n2", "]"}]}]}], "}"}]}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8172700941895447`*^9, 3.8172701434323797`*^9}, {
  3.8172703209660187`*^9, 3.817270321333618*^9}, {3.817271463286846*^9, 
  3.817271467845633*^9}, {3.817271562977268*^9, 3.8172716016608887`*^9}, {
  3.8172717298008966`*^9, 3.817271734832752*^9}, {3.8172728813729362`*^9, 
  3.817272883219574*^9}, {3.8172756877299633`*^9, 3.817275699753543*^9}, {
  3.817276014465931*^9, 3.817276016863351*^9}, {3.8172809741886683`*^9, 
  3.817281030128274*^9}, {3.817281198191544*^9, 3.817281205016101*^9}},
 CellLabel->
  "(WOPR) In[716]:=",ExpressionUUID->"868d07c1-b3cf-44ff-a070-78c2a21c388b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
     RowBox[{"Re", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&"}], "/@", 
   RowBox[{"FindRoot", "[", 
    RowBox[{"eq2", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Theta]c", ",", 
         RowBox[{"\[Theta]c", "/.", "s1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ScriptCapitalM]0", ",", 
         RowBox[{"\[ScriptCapitalM]0", "/.", "s1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ScriptCapitalM]1", ",", 
         RowBox[{"\[ScriptCapitalM]1", "/.", "s1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"gC", "[", "1", "]"}], ",", 
         RowBox[{
          RowBox[{"gC", "[", "1", "]"}], "/.", "s1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"gC", "[", "2", "]"}], ",", 
         RowBox[{
          RowBox[{"gC", "[", "2", "]"}], "/.", "s1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"gC", "[", "3", "]"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"gC", "[", "4", "]"}], ",", 
         RowBox[{"RandomReal", "[", "]"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"MaxIterations", "\[Rule]", "10000"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.817127065230098*^9, 3.8171271351270227`*^9}, {
   3.817127221800994*^9, 3.8171272630331593`*^9}, 3.81712740736408*^9, {
   3.817127491557787*^9, 3.8171275000934143`*^9}, 3.8171275721198053`*^9, {
   3.8171278100273*^9, 3.817127849603622*^9}, {3.81712788866899*^9, 
   3.817127911532996*^9}, {3.81719706565886*^9, 3.817197105498705*^9}, {
   3.817197893385504*^9, 3.81719790689716*^9}, {3.81719860001385*^9, 
   3.8171986053976393`*^9}, {3.817198639295259*^9, 3.817198662766809*^9}, {
   3.817198876170909*^9, 3.817198908051071*^9}, {3.817198993133552*^9, 
   3.8171991533442287`*^9}, {3.817199209928318*^9, 3.817199241960556*^9}, {
   3.817199495862*^9, 3.8171994994689503`*^9}, {3.8171995495740423`*^9, 
   3.817199605718575*^9}, {3.817199652392643*^9, 3.817199715256566*^9}, {
   3.817199865131709*^9, 3.817199880715331*^9}, {3.817199936333564*^9, 
   3.817199987661281*^9}, {3.817200026262958*^9, 3.8172000468302813`*^9}, {
   3.8172001570412397`*^9, 3.8172001598323307`*^9}, {3.817200236641964*^9, 
   3.8172002385137587`*^9}, {3.8172002992189293`*^9, 
   3.8172003208190928`*^9}, {3.817200415813776*^9, 3.817200416404771*^9}, {
   3.817204016980706*^9, 3.817204076853834*^9}, {3.8172041381029387`*^9, 
   3.817204203727563*^9}, {3.817204234304641*^9, 3.817204255961961*^9}, {
   3.817204390931651*^9, 3.8172044426360817`*^9}, {3.817205022823312*^9, 
   3.8172050577028513`*^9}, {3.817205106256721*^9, 3.817205106559868*^9}, {
   3.817209919633216*^9, 3.817209920608328*^9}, {3.817210044562058*^9, 
   3.817210053786522*^9}, {3.817210136268099*^9, 3.8172101405721073`*^9}, {
   3.817210451098201*^9, 3.81721045318543*^9}, {3.817211412418923*^9, 
   3.8172114542674837`*^9}, 3.817211713768137*^9, {3.817211774217906*^9, 
   3.817211820329513*^9}, {3.817212210577387*^9, 3.817212210720683*^9}, 
   3.817212495142112*^9, {3.817213148937108*^9, 3.817213155649081*^9}, {
   3.8172131921538963`*^9, 3.817213198714007*^9}, {3.8172140038972063`*^9, 
   3.8172140040882683`*^9}, {3.817214050225759*^9, 3.817214064234343*^9}, 
   3.81721453132269*^9, {3.8172191352175198`*^9, 3.81721914521805*^9}, {
   3.8172192016924553`*^9, 3.817219202057729*^9}, {3.81721981372462*^9, 
   3.817219818492318*^9}, {3.8172203944673862`*^9, 3.817220425613224*^9}, {
   3.817220485354929*^9, 3.817220583732532*^9}, 3.81722086630956*^9, {
   3.817267355013483*^9, 3.817267405354693*^9}, {3.817269076393395*^9, 
   3.817269087009036*^9}, {3.817269120326481*^9, 3.817269121269062*^9}, {
   3.817269939213081*^9, 3.8172699495241137`*^9}, {3.8172700164421453`*^9, 
   3.817270029113059*^9}, {3.81727016313024*^9, 3.817270185946486*^9}, {
   3.817271080438819*^9, 3.817271082380143*^9}, {3.817271475068852*^9, 
   3.817271483911096*^9}, {3.817271617556754*^9, 3.817271633205493*^9}, {
   3.817271726594358*^9, 3.817271760456759*^9}, {3.817272895451928*^9, 
   3.817272906053697*^9}, {3.817275703982615*^9, 3.81727574191495*^9}, {
   3.8172758130790777`*^9, 3.817275845654808*^9}, {3.817276032115261*^9, 
   3.817276037209382*^9}, {3.817281045413492*^9, 3.817281106435656*^9}, {
   3.817281187208206*^9, 3.817281238944985*^9}, {3.817281276487254*^9, 
   3.81728128676392*^9}},
 CellLabel->
  "(WOPR) In[723]:=",ExpressionUUID->"7c02fde8-7f1a-472a-9e7d-0e95772516eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Theta]c", "\[Rule]", "1.2324003216794353`"}], ",", 
   RowBox[{"\[ScriptCapitalM]0", "\[Rule]", 
    RowBox[{"-", "0.032245651188134536`"}]}], ",", 
   RowBox[{"\[ScriptCapitalM]1", "\[Rule]", "0.933438837044559`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "2.7666956506400777`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "3.0942385597019992`"}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "3", "]"}], "\[Rule]", 
    RowBox[{"-", "1.6831403018575868`"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.35760302968040714`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.817281106988557*^9, 3.817281187737056*^9, {3.8172812309684668`*^9, 
   3.817281294710451*^9}},
 CellLabel->
  "(WOPR) Out[723]=",ExpressionUUID->"6b22737f-c85f-4c36-9b44-d9e694bee115"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}], "//.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Theta]i", "\[Rule]", "1"}], ",", 
            RowBox[{"B", "->", 
             RowBox[{"eqB", "[", "n2", "]"}]}]}], "}"}]}], "/.", "s2"}], "/.", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"g", "[", "n2", "]"}], "[", "\[Theta]", "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{"B", "->", 
             RowBox[{"eqB", "[", "n2", "]"}]}], "}"}]}], "/.", "s2"}], "/.", 
         RowBox[{
          RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", 
        RowBox[{"t\[Infinity]", "\[Rule]", "100"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.817270250152678*^9, 3.817270266945251*^9}, {
  3.8172714956480207`*^9, 3.817271502761599*^9}, {3.8172716647273273`*^9, 
  3.817271668552335*^9}, {3.817271770580183*^9, 3.817271775109421*^9}, {
  3.8172729204002857`*^9, 3.8172729476159267`*^9}, {3.8172757499631653`*^9, 
  3.8172758078877163`*^9}, {3.8172758601082687`*^9, 3.817275866449978*^9}, {
  3.817281121853549*^9, 3.817281145460658*^9}, {3.8172813100145817`*^9, 
  3.8172813131216908`*^9}},
 CellLabel->
  "(WOPR) In[725]:=",ExpressionUUID->"0e89b49c-ebf1-4e9a-800f-62ec63f935a1"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], 
          LineBox[{{-1.2999999469387755`, -1.2110078507365805`}, \
{-1.299202533406545, -1.210265967439999}, {-1.2984051198743145`, \
-1.2095240898427762`}, {-1.2968102928098535`, -1.2080403518124079`}, \
{-1.2936206386809312`, -1.2050729448741262`}, {-1.287241330423087, \
-1.1991384112800034`}, {-1.2744827139073984`, -1.1872704966221705`}, \
{-1.248965480876021, -1.1635395471734082`}, {-1.2365508835190653`, \
-1.1519965232134384`}}], 
          LineBox[{{-1.2348927202537592`, -1.1402144322706482`}, \
{-1.2332294033120883`, -1.1386522868190403`}}], LineBox[CompressedData["
1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAHB9rC4S0879SiryAijHyvzl5jJAW
dvG/fSov0i9G8L+pAe2oDZXwv5Z9bbpu6+6/sdjTlxKG77+hM77BMGftv9zf
01Tfvu2/dBP7sGzD67+heqZH+f/rv4/TGWjuJ+q/5tmxTxxf6r+7yWnZJKjo
v/dqw84Um+i/V1k81IcH57+JwA1jFvXmv/ageyHYgeW/tKkqLWVX5b+VkFSo
7wLkv6vETW6JluO/8z5opGdi4r8jpKnEtvPhv29V+Oi93OC/Z7ULkrkt4L+/
BfzOp2rev4i0gCoT4Ny/oJzORWkp279Ch1tbxaDZv5YvVtfRHti/lL1CeiIb
1r80Y2wP8dDUv+d8m8OR0dK/ZmgUlUu60b+lPwH2V4POv656YGshwcy/4tMV
PMGEx781R//kSCvGvyB6DddO/sC/0yiz/nQFwL8dzzucZNazv/C6fruItLK/
8DeL0NCBmr8a0jKp5P6Yv2JZhhVKTJk/tKp9IgXblz9MbLSG7V+0P84/ikUz
NrM/H48g7z++wD/aDdGiLJK/P+cgzj4z2cc/ZYU3C9J6xj9JZDG38dLOP5c/
p2UKDM0/1cpY7UWq0j8RuNByWpXRP+5/DBFoMdY/kHrsINrl1D8GrE4KeHzZ
P53yZSHK/Nc/67Drl+223D8aiqHt5wLbPxwpvhvcG+A/n4QSTkpJ3j9CtU1W
OL7hP7OZ7qfnquA/nA/XGb+D4z+0/xJ58VDiP3WlJ8g8K+U/XbkGOgLa4z+1
p6VAbcrmP+c1sJFmWuU/KXgdQsiM6D/mrpH1VvrmPxyEXC4aMeo/H52u4MR9
6D9DXpWjlvjrP0TL2wwiIeo/0aT74sW37T+WzZtf4rzrP94mKQ3sWO8/O8Zd
JYM97T+QOyhgno7wP2EP4QqG3+4/cYEfL8Jh8T/VgTlgVjPwP4V9LWO/MPI/
sBL3V17z8D+zYLjbURHzP4CPgfPvw/E/9P+6vZ2z8z/2H+s0sjDyP7hyl0M=

           "]], LineBox[CompressedData["
1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAPO+Kc2i68z93MiwqEzfyP/J/en2H
5vM/q+p9Th2K8j9CHk4xL+rzP0mhRlWDjfI/5Fr1mH7x8z8woutpT5TyPyjU
Q2gdAPQ/++BGr+eh8j+wxuAGWx30P05SZKgYvfI/wKsaRNZX9D/Lx+pFfPPy
PxFK7vd9W/Q/kc4ikuL28j9i6MGrJV/0P7nWeOBI+vI/BCVpE3Vm9D8/jHeD
FQHzP0iet+ITdfQ/AYCM4q4O8z/PkFSBUZL0PzIthAPiKfM/IC8oNfmV9D8O
QcRwSC3zP3DN++igmfQ/mvQF4K4w8z8SCqNQ8KD0P9pzh8R7N/M/VoPxH4+v
9D9S3lOlFUXzP6chxdM2s/Q/LutxInxI8z/4v5iH3rb0P85ChKHiS/M/mvw/
7y2+9D+ZUH+lr1LzP+uaE6PVwfQ/GctkKhZW8z88OedWfcX0PwEZOLF8WfM/
jde6CiXJ9D+fofc541zzP951jr7MzPQ/Sc6hxElg8z97bMNo
           "]]},
         Annotation[#, "Charting`Private`Tag$891482#1"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5, 0.5}, {0.5, 0.4999999999999858}},
      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->{{-1.3, 1.3}, {-1.2110078507365805`, 1.2110078507365805`}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {159.94490842698494, -97.50736892665735},
      ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506162}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwtmnk01N//x22JUJIkhTZLClGRFq9SUvYUpZRUtpLsu0nITmhB9MmWrUJI
sr3s64ydsZOl7GbGKFv6ze+c7z/zPo9zX3Pv6z7v877e957z3nvviZ4pCxMT
Uxfj5/+fg45hpUQiHfneBgQanXbHgDrP6IB6Ok495mLbL+SOR3c9trtQQ0f9
jZM+5YtuGFCmIV6MdPR20OPNT3FD+W2nmFyK6SihPvF0v4cb9ptK9R79Tsdn
ui+LonTcUI6LM+xjDh2DS1Layimu2H97ydw8i45R4+ULoaWu6Jf969z+T3Sc
ZV6xCg1yxV79msW3H+jYvTHc6YqwK/rG+9wOiqYja4DZ1DZZF5RZsFO8+JqO
ocnGlQnzztijem8rSyQdC8XYPn/NdEaZ6bPVrsF0FDL7m/hG0hnJx9cPWxLo
mNcW3nqR2wmlGl3W1B7Q8aVp8Wb1WHvsELboYjWh45edcimBl+zxqc31bLxN
R52q5hsDdDvs2K7wQPE6HcMmGxKH1e3Q8+5Co7g6HRMSNWakZ22wZfFx7IYj
dMxsf+sXus8KHffcP1m5uoChLn6OG7nuovfTs3hiaQEvGhgLBFvewfBB4QuZ
9AVM5Z2bcys2wk9x3VoxswuYlV0/K2RiiGOC2iZPhhaQxflhOmeaHl7bqhSw
q3IBt16Wj6WyHMdjLFu67IMW8Pn36Ub9zmugYjJzc9JvAZt0Wj+mWRqAbln9
0B2fBXToX/3Fv3YdrAi+k5c9FlCq0PgA865bkLyyvCZqvYDfesz5ye/vwraF
sf3EKwvYTPfrzw0xA9pooe2BnQuo3zz6ezbbBgLzKji6ti/gjdQUm1+rNrDn
ecN7f74F1At+uE/2oi1oi/eSprgWkCZTkJXUbQsZFssHv6zT8PbUk6E1uh2Y
zCqOnBmj4UDRlznTTY6wVAKu88M0DN8RrZl12RHCwtR4EwZoSCuqjT4W4AjF
steV2cg07CkafjLP4gSCdk5vG+pp+NxVqHjzvBO0/M7Tu55Fw9i6mSatBBcw
ry2e5PhEwx+vpFiX211gParKqzCN0Z+BQmvHBlc4rNSRKZxIwyCynuxuc1cI
cF/YNPaKhpb1F8v7Rd1AVHM14XUEDZUs/j76p+EG+btZldTCaHgg22WXjrMb
jJXwmWf405DJxlzQodENzjLJV9q40ZDHn+9xo6U7kFuUbu5zpqGvlSWT1gt3
sE44R223p+FjFVmJ5Vx3iFO5Iqr4mIZ2HxzPt6y4w5KvjftfYxp++aoh4EDw
gBf6LnxZRjTUsK8PuPDOA8TFvdLvGtJwvGVlu3KRB1yrfUGu1KMhpspu+ET3
gCzOrKNBqjTklHnsZ3PbE6yf7jPVVKHhd6W1fbyOnnB48fWbzUDDdF6TyOFg
T0gb9liOPEHDM9WapG3fPMHMgCKlf5yGvE7p4U6NnnCAeN9ohzwNX3JbCmwa
8oT4b+oYe4iR354F20pWAtyRLqXclqTh2Py7K5P8BNidJLdvjxgNQ3h1Np4V
I0BMmODzZBEatm85Lup1ngA32ELyzXbR0HqTd6zlFQIIuP37JSlIQ7bqyb2+
dwgQafpT/fNWGorCs9eaTgTQ7TP0eLKZhnsnz39c8SLA5iukz3JcNBxKOLy7
N4gAxJqzQwsbaagaHM80/ZIAQafzePPZaBgsHWknHUeASzkSKi7MjPmUO4Qm
JBGAXTLW/uQ6FUeyZa3VMghQ9W7zh7UVKhYq8R0VzSaAzzbvrtI/VHQ8XLsq
+ZUAKoGLG5/RqWg5eWnywXcCMP2zUDpPpeKsdadwezEBSh36H26Yo2Jl0kix
PRLAY0onrnaKitJ5fNMXywlw8m4lKfAXFb8nSTZpVhBgqVPhn8YYFZH5b8hz
BudrZBzZ/IOKMmV2OlRGvEO58L2WASp+kLNSDi8jgLxixMvIXirGHS3zuVdK
AMontuprZCrKOcmqWxQRIHOfy2+BDiomTRiWJHwjgFX0tERPCxX9ruRxbskl
gNRmY8NYEhXzWQlG2Z8JMOHTFnS7gYrDpfmjz1MJkLKsWixaS8Xcj/xNL+IJ
YPrk++yPSiqeD15Rb4omwIHxw6LJZVS8Pf046Fw4AUZuxuualVDxdTJPyaQf
AeJbtnlLFlIx5B4Hf60Hww8X/XOn8qnYoL2tvMeW4YfilbFPuYz5UO/+3mtG
gF45a4En2VR8vCP653tDAhgI67supFPxwh3rqjPKBOB/WZfxNYUxv71Xdt6R
JUAbx+l+5yQqrri9/JMnSgAd+j5Yi6OimJDwvo3rnrD54Rub0hgqZt6mkllm
PIE4xJno9YaKWlyyU8d7POFSI4VtQzgjP+blJZUvnsB+7oFCbQgV79kZ3hWO
84SqfLJ5YCAVrT2Ll2X9POFsYmkDjw8VF1/0Rq9f9wQl15BwAScq0h613lej
ecDN1VmrSDsqzjGrXQzr8AAPT53Lm59Q8blGN8fMVw8oe8bHwm5BxdXNQqdn
HT1ALSjaftGQim57WDJ4pt3BgntFx9aAikTBrwN8Ne4QFHbr8KweFf8a9rLK
xbtDU6TI+JgGFTuaxCS/X3EH/dhkg44zVFRz7M77l+4GTsLsR3VPUnH/asr9
dk83iH5vvoWoQMVnTKd+l+u6QX+SVF2lLBXLso/mUBZc4f6nbKXcvVSkNpHr
3sq6gm1J8e7IDVSsflCUquvhDJEgsszDQkU4W3hv5pwz5JU/7Qxcp2CGEUkt
hd0ZlqpVwp79oSBudVd2DHWCp011/2wmKRgJFvd8wx0hdKhjRIdEwdqnpGp/
K3vINFHAxnoK6iaM7hU8YA8to1GxajUUJNzfRa7rtQP+iZvXACnoN5P8KVjV
DmIpw9UyXyi4nhZ7PYbXFtKZZ9N4XlMQMu9kVy9bwbVFl6jqCAo+KLdojLph
BesTbH6eYRTk8F3rGv/6CK617L4/609Br97vpMVHD+Hff5rCJDcKhn+r3T9e
bQ76pz9FhNyloPTEBlw+cg+YnR+5cR2mYCV7c+GxUDX49PCPRaUkBbWdxo3n
VS+AwR2f6+5iFGS763c1eOksfFKNPTYtQsGOv64GNW+OwXX+xrmGrRTc6jI9
cb1KCG/e16/hn5/H2XBp+litDn7pbo/i85vHqkX5gYir5tjUXduwSJhHZaLH
eLmVBU51F/3tdp7Hfu1ot0Z/SzzQk3T/veU8dihfyH5c+Qjf9NjLHtaax5dJ
T0ufStqgR++2WlX+eSSaOCrTRxzwYv/V3y6Jc7j9m6R+B89TvN+vdtAodg4t
StnjMwqeolf/KSN4NYdl5YL2p+W98Hv//ooNfnPY4jfm/nTICw8PLIRGWs7h
k7wDkoPgjVsHX4p9OjKH6g1zXIcEn2P/UPu1odJZJH/MK7WTDEY1qffFo99m
sfC8ws6J4GDMcXh4YCJ7Fn1OOqr2zQdjACcznZI4izc4RnpPfQ/BY0dlXrL4
z2J/E+/D6SthGOoX0CqmM4t8pX9jokjhqCx9RttqaAYj+LepaKq9wnRnjnyb
7hmUcOeb4Xv2Cvkr2oUdW2ewH1ZtdhW9wimDh7OelTM4NqV8lyb7GqO8okJe
pM5gw7NbQoW73yClndqQ82QGezaqOFewRGOCW4ra8r9pDH3XNXWcOQ5F0mra
HZen0eZh3K0J5TiM6/xpTKNN46mf9f86PeLwzREJl+nxaWwbjeG6vxyHQT9T
0wYap1E99up51cV3aKeXzlkRNY0cnvLjckvv8YLUp8Yg2Wl0qRy4/Hh7Iv7s
+aKz23gKi9aNhycTUlBqT6Yc940pdOsVXnNqTEFrs4xta7pTqPH7+Kr4Ygr+
oSWS+1SmcEHJyG/+UipycL8yjhWfQu3cGvpeWipKKTs9EZqbRIXiGmM2jXS0
Tjz5QtBzEldiGiRtBT7hn4eVTfyxEzgk1VlyguMLBpbx3BdY/InMWpOnb538
hnnpUtKm18dxW+qD+jPDJfixSss68M0ojvbmWPtmVOD+5PSq/IUf2M77+VQ/
Ww1aHB5q/m/mB15RzMgr4avBzDz+Pr/xHzjm6tgftacGT1Q/pRqQf6A7KP44
froGNX/qi/wp/IF6pppGAvY16CDJ4qLo/QOThKpW9YdqsPrTzUMFvD8w9tOH
CYUvtbjpeLhCPOcPTJ56P8VaWou6JdXnAlh+YERT03BNQy32ko7cuEEfxhqr
Fj2ZsVqcm2N/vkQeRsUN52a9BOpQQC538MT7YZS8zbpxn2sdmn/livwuPYyk
hhXhkuP1uOIv2FYhPoznmH5kTJ6tx7CbYnxE0WHk4PJe4NSsx6//lCMHtw7j
b4OLFmL36nHDq7EDG2eGMGN7aW51aD2eLvkiFusxhPlRW0LejtTjxy2aEpXv
BtGFf2CU27sB2/JMUztfDOL8BntKUHADLhk+lZh4NoifHFQ0V1414MXkHAke
s0Fc9c1N+ZTagCMndkpelxlEFh7/gdvEBhS691NyunQAd3Kwy43wNWJAnpfU
tuF+FLVM3UF/2YjtohcWtrf345VmnfA/bxtRJHhjsWBNP9ad49edSWjEPJMw
LZFP/Wj8s/dxelYjDm2Oszno0o/j7VZJNg2NqGD5LR94+3H42qKExN9GfNbh
9lSFlRGfZ/HtBCsRiaB8SfV3H7qYq387yUnEewLVPer9fbhmYt+xZTsRwyrb
1vTT+nDciXv330NEHBeeU7E624cHO+Qauw2IeCTwC9eTo31oxyFiOX2LiG50
hw5b8T78WyCVOXuXiLyNq6bO3H14Rv/i37KHRDztwhno3d2LDplSdxM8ieg/
SrzyvLEXL1fc+CXrTcQ27XChgNJerJu2yv/sR0QLsR2fQpN7kbOt/q/TCyK+
ajvQHG3Ti0X31OaV44k4dGYiKvZ+L85zSNtfTCaiVPrHu/8Z9GK8ccTo6TQi
lj2VpyWd7sVmG63bv7OIOH347PYsjl4kD9/weltKRIVo1sEvqz14jCn4qGAF
Eb1Ya1Py5nqwqZ7k7ltNRIFerROFHT343ZEtQZJIRBX/W7eq43uwx0lP8L9u
Iu46QG7OjOzBIVsexaY+ItLL9C5E+/ZgkY6V4+QgEVNXLks/suhBHZY3wj/G
GP1HVSdcu9mDAhr9j0t+EfHmsXMCypo96BhZkuE7RURu6xP/eI/0oJmwTkH7
PEPvTXn2K3t78GrmSZtbNCKWpspOjG7rQSauE6MkOhFtf4i35v/pxs3Hp+rt
lomoTkhUjZ/sxse678Q+rBLxwC6RwsC+bqxlM+au+EvErmvbk4ywG6/6CWkW
MZMwixq+4+KXbsz82h0axUrCgDDuENmkblS1kzl8ZwMJT9WxOrL4dyP18Jkr
GRwk5Dd9Ojnt0o3p8T7lsptIjHPO6u3Oh90YXuRh8p6LhPGnaBfTtLtRIOs7
25nNJHTrflwUcbYbv6wa0B5uIeFVx0lZd/lubGK7OebNS8LDfKbJDw50o9iK
bIvvVhKyZw0Lagt048014482fCQc0jAKVeToRsmjwY8ubiNhwQSZee8KGTVH
rdjZ+UkY+fyq06YZMl7z7bXNYvCjfc1TCwNkVOiqTFLZTsILqG480ExG4m/5
SGSwiFFNe005GTmdNY+KC5Dwz9K5S9m5ZDxqo+PpxOCW1yXFMR/I+D36tVk2
gzPkleR8osi40fDleDuDfZrzPlgFkvHAMJkyzGAjqyNCBu5k3HmC5ymZwQqc
n8LgMWP8m0t+3xi8JUWC9aAxGSXOu/7zYvCESpIz3xUyzrAHDx1lcMWQyMyq
Chn9xs6LtDDyi/V4e3f8GBljDTtz9BnssFOgs0mcjB3HQ15VMeannR9xuUCQ
jDsyWwp3M1jiKk9pwiYyvnkiLnyHoQ8TJUA+eK0Lc3IO5wYw9OsJYUt1mOvC
DK3/HOIY+uYc9Np1Z7gLpWqvGMYw9A+pWX2h1taF7yyUDJ8y1sf0vjObXFUX
3tG9b6XNWD9lpgUXofwuLPZZDmLnIaHgO+tZ1rQuLGRS+ZzKWO+GLtOuruAu
PL89bDCZ4Y8k+x/qZZ5d+GJfxiDTRhJ68N7G9CddaOKfXqXK8JOs+rU0j6td
yH+0UCyI4T+OX827zVS7UMCiJjLwHxFHfDQidBS7sIv6sd6W4ddXJSpu+3Z1
YVO6vNvaEhEj9lgorvF0oceflqXa34z65BNK72TqQuM+WcmnjP0QeLnbOvBn
J+6PJvpmM/YPofPxfcqXTmS2jv0oMk5EjxMv9zQkd+IOGRRTGyGia2zBQFJU
Jza37pS6NUREBxPWG9c9O9Frsg1Ve4hoORutWXqJ0W5ASjvA2P9muqWc0ac6
sUvI729aHREf5I7W2Mp04hthlyJBRr244ypzToy/E5eb5B8UlhDx2oaq4yFD
HXiUIMLOnklEZeF5kZtOHfhHnx2Lgoh4you//6hlB3IeV9y5+JyIJ0aVYniM
OjCi5OXHnc+IeDTdd1v5uQ58P/TxyQFnIkoeF+KQ5OnAvX/MTp69R0Q+LVXq
YlI7mqoaaL84RsQt2Q8zm9+0ozfPwCV3GUY92Rb+KD2wHd83upnoSRJxY0/v
uNGTdvSsSpos30XEtQc2vZUn21GryPR8CjMRf3nEVka0tuHFMXOyT30j2m11
PaxX2Ybny3kivcsbcf2DwWu+r234pra0yuJ7Iwo0bzV/Gd2GluUhr6fTGvHC
3oBNr43b8NAoE2ujXyMmVjtciZ5txSuZ/pa0M40oc1Ov8MZQK7rX8WlYHmvE
wjnZ/TtbW1FCOqasVqoRW3dM02PyWvFN7yb7UzsakemhSXSseyv2VZM01+ca
8PZm7aH/OFvx5x7XZXpMA04kHrpkvNqCzEMjX3+GNaCDIucX0dkW/MwzplLm
04Ahd6u841tasFRZY0TqcQMW5pwUT4xqwToxsdpB5QYUvC7x+INYC558/3lH
zUA9fgDm39d9mrBImkYt46zH3xE7Y2+bN+GvwgTVldU6hi5yZ+9rNGEqbcdu
4bk6nAi4F2S9rQmFBeXtRdvq8HBbpcjzJEZduR5UsiOmDvMe+KnlVBKRbfNc
6eC+OqwK5IrhZmvEaypx17jFa3Gkffvpct9aNFKu6bObrUL3nGd2qQ9rkck2
gpzeV4X8EbNpobq16HvGvbe5vgovaldvv7m7FrkPUSQmP1RhRp3DPC23Bj0f
Rqnq3a5Cu5L2xAOj1agwR5rlrK9E5tQIzoBzVWg+upX2+FUF7nHjIWuvl+Eo
iVDgtoYo3Hwq7kFXLo6Nq5eRrXORohjc0vLsLfqdzsg9Z/cW7xn6bVfXjIG6
JwHKlcoxoGmV5zdrnAdnF+Lf18/nguiLPfNQWgYX+X02a0QimKkaF3/sLYMg
+itP93LGNW31XeCOP2Wg7rHJP4RxbTttsevAvGw55OYwD0hIlMGNcwKG/yWU
w9unPBQp3zKIWOCqXPOtAFfpq8PCp8qB9cafN981qkAwNvWfWFwFqG9WeCBm
UQVJGgLi779UQGSVg1yEbxWkFUVzstdWwB45WqNFSRWMup4ojqNWwOlNs0yC
stXAGilcNa1aCY7FIw+d+GrAfNszfabpSvi1p0n5aE8t9PdypwWIVwP9c9YJ
ocVaiHexHz6jVA0spyLkmbfWQc70hMWQRjWI6F8Tb75UBxHmR2V/2VTDtcBe
nkcFdeBXZr+6sbAayqg/+xOj6kEpxPaU96UaiK7458Zn0AgDh50OrenXQorO
D4dl20YY0wge32NWC7n9FdbDoY0Qk1CjecSpFpp+P7+XWd0I10ZfLG5+Uwts
h7jV1Y8TQfpmqVtDRy3YvBTc6c1Pgls6z1nltOvg8gO5b9S2Jri/lmnvfKQe
Npui6NJME8yZVyz/OV0PHaZaAevszXCT2D7x4HI93DW3NOQ61Qyvbm+YZL1X
D04PE1YPJDUDm+3OOv3IerhSwLHnk1ILvOw4vX5+vh7yCnSuZV1sgf31/wwC
VupB4PubgJyrLbBt6DQWbGiA/u8HqAWPW0DjYHfGwK4GMC86W1Gd0AJpw+ZW
imoN4Fnq8mCIsxXqnTpbxd82wHApRo8ItAL6s26WSm4AFWQnje9vBbWUAoGd
mQ3AUfbq+MyZVth2bLtXYXkDvCzPZl+2bYXeG7tvbJpogPSqiTS+3lZoeb3/
Vd+RRuCulh3Y/qsV4qdLZN4qNYJ1tdPWnfRWaNRNsLyg0gjHatjcRDe3wYdC
nYJbVxsBa/doHFZpA17JWL/XDo3Q2XBjVjWjDaqslmKP5TZCRswvx3sFbVBs
f5VFq6gRCBZO64SaNuBStjXUqmwEcfZXWwpG2uDzQxHyhvZGcDnXLCe1qx0U
yxVZDaiNsLtA1WlzSDtsFnm72/4gESh+HetSbxlMjHfbdIQI1fr3/dXS2iF8
Rp4YqEAE6wWvaK+qdlD6PK199jwRUKa4kLbWDk1qW9dCbhHh3gf5f12PO2DI
88aHFH8iKDiU+y+4d8DdCi3e0hAicJ3X5eUN6oDDBUHhJRFEyBt+vPdySgd8
2eQ24BBLhA27088XDXaAwkFxjurPROidUiSSZzog75m7u3AOETK/11yjr3RA
K7vlnjv5RDC4PmYqvaMTnA3ttkSXEiEtUjTgvU4nKFx6szpHIoKHSSZv8e1O
CJWTdwhsJcKVI2diuh91grnaaRXuTiKskG5mbA3ohEbDYlpDHxGa4iblZd50
woGdoUPsQ0RIfORSpJ7cCcFPnikcGiGCBucbok9ZJwwfbD4hPUGEPd0H9OOb
OmFV6cn8pmki0FNyB4r7Gf3tLhNvnSVC3IXWucWlTqhjuyC7Y4EIc0+5t1rI
dcF545FrQWtE+C+AqvtKuQu+6QaJBK4TQSeiK7xMowt+Ckm+tWciQXZiPO9O
sy6wOBZcwsVGgrsfn+uq2jPi19Ntvm8gAW/ew3Bbry6442U7o7eRBLbVx3gb
3nZB8P04/cubSLCvaafu79QuGE9j10nhIkFb1/qLfV+7oP+axMF5bhJ4D402
a1d0weF0xan9m0kgP1G3xb25C95d94u+sIUEI5TPOqn9XXDD0fnkFV4SvFyO
fNE+2QXHrH27Lm8lwQUWl+Z/v7tg7M8pexk+EtA33d5ymI0MLBtUdvxjcPI2
FZ0bW8mw+k2nvmgbCfR3S7zwFSHDiP7R8AeMusAuxt2cfYgMgkotdssMzpem
bh44QQZqpYiL23YSmCl0aXNeZLRfPZz6i8ECUBR2/CoZ5mV3bTwnQIIatfgm
k7tkaPbe996Pwc66zzeHPSYDv2qYUwGDJQ0fahe6kUH6KL7qYnC3iU7YT38y
WJVKMf9gcMDDY018r8kwvH6zknEehhP2OzdDIiO/5LmRQgZPuK9rPcoiQ+ZU
tHkQg2N8R0OjislAer7X8CKD1UPrSJX1ZLgd/QDnGPmtvP7MQ+kiw8VEvUQf
Bmf8F6m1e4wMenYUzg0MvpXqHHqJSgaRHdfX7Rjz5c42Ijmsk+FPc64/iaFP
ccE5ngSubnjzVy2Tn8FW5eJaJMFuqOOzdLvE0HN3A1foslg3TPl60S0Y+nv2
dXLrne2GeLY4fhvGesmMFWoStLqB6tHVaMBYz8GZ9yEZN7uhd6PDVSkeEiiv
W3KzOnbD9Ssif6IY/phj19GU9e6Ghe3/DshzkuD9lmMht150Q0L31MXvDD8x
7V3nykvvBqkyk+Awhv+yD45qDOd3g4eHUVk/CwlM5OuCuau6wfjCuc2CzCSo
OB/JZTrYDetJ7kIGf4lgp+msETHdDZOavdM3VomwT98ouGSpG6yZj69dWiaC
j5k4l8C2HtA9U85EpRPh2BMuDZU9PXBI6iVHOo0IY86UIGvpHjBpSHDSphDh
QmDhplq1HvBz8/lswthv7J+0N7l49ED6xvrEjGEiCO15PmwS2AOWxk/CBgYY
76FXRfkab3pAtePdxHovEa55SN4Xze6BFooDLw9j/ydqshTXjPbAyMXuSzfq
iJBfdiIym9ID3v4Clf+qiFB/7InF2789MLRf6+/rckZ93N3Pb72jFzaqRvSF
FRIBZr8+3q7RC3zjTha5H4mgZzJz/t/1Xkg+zMHVlkoEs859QpMPesG/iaty
KIkIYSUvaooJvVCqp/e+jlHv+kMtRR/k9MIASxS0BhHBRUa4NWdnHygnV7HX
mRIhJPFqapx4H3iu6qoO3CXCe4EgT7+jfcDi2KIzwqi3Neu/D97U6oMrx7SX
iq4QYXtzizfzsz5YMJj8lXmaCDlPfI/pTvTB5/oS+rstRJjOno6aze+HFZfp
/cvpjWCzYFlBqeqHl1+rdgYlNsLv4xMzC2398Dd/az9nbCMwFY2dW5nrByUx
Ta6u4Ebgrx6YZpcYgLqrmWuJVo2g3NMMe6IGIO2FaKLIoUaIZM77pec8CLsX
LUt3xTXAjgvyfAbPB2Fv6mlqWmQDxPllnzZ8OQgikuKKEoENkMr1OcI4axD8
jWMv/XFsgOLtKaesfg3C+gbF2F/aDTB+MPrF8+tDEHj25+zO9XrYfbB0V/+u
YXh0ZvmXtl49aJqnhZjuG4brMhYHx9TqwfND5N85yWGQiOsOtz5TD4N7zYeY
FYZhPfn7tvuS9ZAgxJskoTsMKUGvC4h/60Cc+56Uve8wZJglc3xJqQPZ+Q1K
m2aHwVnbleUotRZUvmoZnCj9Ab0b2hRarWogbgt5J/qMQroDc5h8WwU4fpCo
O31oHD5PtWntji2Fr6kfzj5u+AnnQ90OmY99g4Muwip1IROQn3W4uezkF7jh
0BRo+HICAn6Pevvs/wIBNk9bp2ImwPtBguNV7i8wYfHjLk/qBAwdY7uwazAb
0gw/PNUrn4AwP8FsDe9sED8lXdK/OAHcm7fb2L7Ngn3rp09Q70yCBMF7iaPv
E+z2NZIRkpsCGdHbO9lzU8HXXG7PiRNTcFXBTMssIBVm1dn5DGAK6K5pDZO3
U6F0a/ZihNYUDKbvr7jJmQom71lLOB9OgcLaI89xkxRIKczQWE6cgttz0vSk
nR/gCHXJopt/GoJEFMPHkhIhuoN08/euaSCRw5MKPBOBuSBRk3//NPjxrnll
X0+ENoLmEV25aWhJd4rm4k4ER+74P7Va00C77bP3iVMCFEqo+X3zmwbDZ+/4
pq7Ew/k7r5PeLE1D4sTXORm1OLjzJ/Luy3/TwCon7bTMFgcu4eHC4ewzwCnj
ysdRGQufKoKjAvlnIMg04ioVYoFfwjvY48gMaM51PaKdfgs/563t71nMgI+B
wsuE89EQ9OzSeZnuGTjYObKm5PMKkoUuMh0amgF15q1PzC+/gtLc8yUSP2fg
mh9/SdeWV7Awrqy4lz4Da8+GX7u9ewlG6scP8fPOgpi4X2tHUSTIbNu3bUVt
Fur6fsQjWwS0Jq+OVH+bhYs7dulHhgZD781kd/XSWVDRcOHOPxIMI7xa/M1V
syDkw3ZarSMIaB7/qXa3zsJ+p093v+wOAj79c2lT07Pw7u/ey/E5AXBtg//j
LXvmYLnBpbmK9hy6TfmWbgTMwbERWjFXpRcM7yoKHwibg+Yq7bgX9l4w0Xr/
4L3Xc/BQqOun+wEvWD7z9eajxDmwZp05L7TlKQgJ3CjxLJ6DIbHOhV0fPOBW
zTvvRMocMG76ii1/nGFQ/CDPzI15CHJrS9hgZQ2iVYs6f43nIa3la3OZ+mO4
a1IRudl8Hl4gWVrvkBWMxN4SlHOchxWJuU2LVEv4yRu23yliHrZqHUiRem0K
8ys0JaaGeUhOjmHJNL0JR6LRY2vrPBgPKvvfvX0D7I6H4L7uefi+2abh8w0D
oD8RU1X9OQ+PTGRK+W/qgQftkKQqMwXaRq28F7eogpf5naNBwhQQPZYjYVAh
h3vyqzr49lJgNH9x3GP9BJazHXKKPUAB8+rjegoCZ5El8U/Bp0MUaLfpS+uW
UUPf/nDlZiUKxCzPPfN9rocBVyov8xtQYJ1d1f3fN2MMPyV5978wCnD/65i8
XPwI0wQfzE9FUGCL64hyg7EV4uJ7guJrCjw6InargvkxzmXteNcSS2G8P7+Q
dp6zRs0DG3tZ0ilgmnnoSI6BDXLw/LxqXkkBwSO2nw/9Z4d7pvaO5tZQ4Luy
gVLKqB0q1t62Y2qggFm4xeItSXs0e9YZHtNCgReeAZ9csuyxarGK1DhAgbOX
9JIc8hzQazBJ7cgSBVLd3vYbxzhhdNFQl8cqBZLUp5qftTlhVvQus/p1Cmjy
5J8a2OSMg3ovfe9toMLoyatz4OqMp2u9y1/xUeHIXlJGtqYLXksu1f2xnQqd
r02vvn3qgo+erQxJ76SCVyLpXPEXF3x7ym69RpQKOT7OamnbXHEpy+TU8mEq
VIy9PbK7yRV5Q981qB6hwq9z79UqV1xR4mGPYeRRKtxtJZxNEHdDgwNXXA6d
pMLaL7ogs4cb5kWf/XpbjQpb05c2aQi7I9HR40KGOhVIybl9SefdcVSvoP23
FqM9wI1Z3tId+XiO0F5co4KKRIX77Bd3tH0mKlthQgU3QqNxn5IH3vs+v3/9
ARW+QTTHSUMP1KOi4EkLKpCt3HU7nD1Q3uQuS441Fe63z84W5njgvpgjf2Zt
qRCvsaOPvdkDt7UyzRx0pIJ1Z9Sb0CkPpJ9N6Exwp8LUl+wP6qKeOOZi2zBA
oEK3mdMLrxOe2JF9Dnd6U+Hlwoo9RdcTv+4ZSYsIYIzX+uqG51NPdGLa7/Hs
NRV6I3lLVds90ezEgk1JNBUsll58Uv3piQY2labLsQx9lPJmPJc8UXH4vo5t
IhU27GB68UaIgJKCxy58/sD4v/vhACcpAgrqsilNplFBUHIHc5gSAZcweZ9J
FhUuqywl3tMn4MQfhx3vcqhwPnmfqeg9AvbIqnL3fKWC927fHj5rAjaYb2fe
/p0Kb43TSKddCVj4fnxRt5jKOB8Gb3nnQ8AM8tepEKSCUGHi46OhBHy7xW+o
roIKHcnj+f9eEzBIzaCDrYYK4sfIhcz/EdD9qXj92XoqPNr54rLSBwJafftd
4kGkwieJyqMpHwloNF+TU9BMhaypFvVLXwioKRGVSm+jwsnrtXdF8wl42tg8
7kgXFfLf2Vw6VEjAw1GKEVY9VIiTNOp8VEJA4eaNfmn9VJgrmegbRgJu3tjt
NjZEhWd52nJB5QRcV057smeUCskWGR/NKwg45+TywOgnFR5+Z9/nyuDBzEuG
0ZNU+A/NrUoZ8U0/BbU7Zhj6xHXeVywjIIpMqvBSqEB3Nx8ZZYyXbfBdUXOB
Cj8StSsrGfnEhwUeDvjN8FPVj5EuRr7hNYZ7q5apEHkvTUQ4h4Be6wcFmP5S
YdrYTP/NJwLaKKxsOs1EA+1CCXOVFALetW7458xKg1f3NI/vfU9A3ZS39Fx2
Gny8/CpRPoqA5wYfTs5z0uCU36GXTmEElBc4NXiIhwZ/M/JnZnwJuE+bq92c
lwYAxm9euxGQpfRj8ZAADWpzXxI87xOQtuj+ZZcQDe5sILwsNiDgqLRmynVh
GkxVGH2QvkzAqnczL5r30yBXifz0wyEC5nUW+3JJ0GDYjEn60y4CJvOEuqpJ
0YD1wrX4sU0EfO4pfR+P0GDuzpaCKYY/+dK3fD53jAYUdrcbPG2e+F8H9Xel
Ig2UXKKEzxR7YsGh/KA6ZRpwqmQKVoV64oXr0R3qKjQ4IcB2Y5ejJ7Z6u4mQ
VGkgwbzQ9PSWJ071KOe0atLgzdDtWBsxT3TesHftqi4NdvHFbf/L4YlscqwX
u67SYMVDYmvUtAcKB9T29N6kARtL5frCZw/UVdBlHrOgATW97Ku+hAcOmMhr
mFkxxotV2afH6oEPQ/lfTzyhgSgX093bg+7oM9YtOetEgy4LVfWECHfMjzTR
/e1Lg3fvJ6t+zrjh7nm79xwJNLh5oyy6wMkV04X0J4OSaXCGfZmj4bwrKlxU
PMqTRoNHm/a/oWxxRZ13qzVbs2jgfHKP+dMPLuit4TsnVMKIL9yx/LXaGSdS
X5+R7mHE99b1yPQ5omO7s39WPw3kAmO6fsU4Iss/w1a5YRpI87vlVFx3xF0G
IqYKv2jwhzlUa6TFAbXZUkNgkQZB/frzEwX2mHu3oO/K1gWo0u/KlzOxxXwh
m23R/AsAv5bzRnfYYmGHhMbgjgVIvOzX8ZNkgxWXogofiiyAQtXKwriiDbYc
cYrxObQAO04cYB3eaI1zTMeuf1VdgKaMeguJVQuUSshqE3RbAG6jpdJYXiOU
uWW+ydhzAc7e0681T7iJ8ttFVT54LYBl4tk0+yOGqBQY9kXOfwG0eGyMnC4b
4CXbx+HqrxZgX9nerfctdNHs3CFtj8wFMKJwUj5HyGHCj5T6oZEF0NCNj1+9
fA1oT908/X8uQJaaUddRdgNQEdGWk51agPNJ/jaGFddh7OZiNIG6ADUGe2tZ
T94CyY7zFsJMdPgdfyx/dqsJZNcMs98SpoNy7TVVwTFzYDbNK2TZS4cWRZHO
P4UWoMcaYJ1xgA7STE1eQ+GWQAfZruVDdEgtXDPyVnoEJ757fog+yWD9gykH
PKyh7KPQha7rdFg1/3Pv8C072Ko+98fzFh24cn5V+Rfawb2J8o9ixnQIyO+w
JgraA5uY5TZHMzp41x99ON5qD5f++zayzZEO61wWR3ccd4SY08FvilzocLGh
QuZpkCNM9d5Rv+9BhydGV97ZDzpCyA72nBwfOlw2keJteeYEzeHXnl2JpIOn
okU8Jc8Z9shKHl9+TYeZ3zF1Bn+dwYa0OhEfQ4dfIh0sP867AN+mJF1KPB3O
L7wlH2x0gftpTmzRyYx8rg5tJHK5Qt5F9QJIo4NlSIiDoborGPhQRV9k0eGU
dRhtpcwVUvdWtyvk0mHgc99vypIrLGG0/2A+HeQXH+1+I+MGb9dgXrqUDtnp
prezIt1g+u22pM5yOriURX1jLXeD00q/DDyr6VDdSciqnXGDUHLhJrF6OtjF
fCNPbXeH/31PDf/7nhr+D0USEhU=
           "]]},
         Annotation[#, "Charting`Private`Tag$891524#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.4999999999999716, 0.5}, {0.5, 0.4999999999999858}},
      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->{{-1.3, 1.3}, {-0.22726070175099367`, 0.2272607093523108}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {479.8347252809548, -97.50736892665735},
      ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506162}]}, {}},
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 639.7796337079398}, {-195.0147378533147, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.817270261356271*^9, 3.817270268199273*^9}, 
   3.817271504527851*^9, {3.817271573161305*^9, 3.817271593697728*^9}, {
   3.817271656884376*^9, 3.817271669919692*^9}, {3.817271767551162*^9, 
   3.8172717765611887`*^9}, {3.8172729282761497`*^9, 
   3.8172729490402613`*^9}, {3.8172757458366337`*^9, 
   3.8172757952482033`*^9}, {3.817275849713189*^9, 3.817275867735188*^9}, {
   3.817281126303303*^9, 3.81728114683925*^9}, 3.8172811899898577`*^9, {
   3.817281290630205*^9, 3.817281314398292*^9}},
 CellLabel->
  "(WOPR) Out[725]=",ExpressionUUID->"7cf0a89e-6d18-442b-b56d-94b97702709f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"g", "[", "n2", "]"}], "[", "\[Theta]", "]"}], 
          SuperscriptBox[
           RowBox[{
            RowBox[{"f", "[", "n2", "]"}], "[", "\[Theta]", "]"}], 
           RowBox[{"-", "\[CapitalDelta]"}]]}], ",", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            RowBox[{"f", "[", "n2", "]"}], "[", "\[Theta]", "]"}], 
           RowBox[{"-", "\[Beta]"}]], 
          RowBox[{"R\[ScriptCapitalM]", "[", "\[Theta]", "]"}]}]}], "}"}], "//.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Theta]i", "\[Rule]", "1"}], ",", 
         RowBox[{"B", "->", 
          RowBox[{"eqB", "[", "n2", "]"}]}]}], "}"}]}], "/.", "s2"}], "/.", 
     RowBox[{
      RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "1", ",", "1.078", ",", "0.001"}], "}"}]}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.817280804305807*^9, 3.8172808637975616`*^9}, {
  3.817280897254437*^9, 3.817280903087328*^9}, {3.817280943100966*^9, 
  3.817280948025497*^9}, {3.817281378848133*^9, 3.8172813936536837`*^9}},
 CellLabel->
  "(WOPR) In[727]:=",ExpressionUUID->"6c30dc25-997d-4790-bfcd-6e15ebcf7cbc"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0.`\\\", RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 727, 461, 31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.817280903495492*^9, 3.817280948486462*^9, {3.8172813874112787`*^9, 
   3.817281393884687*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[727]:=",ExpressionUUID->"56028de4-0ddc-4ea7-bf21-a25534c5c68d"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \
SuperscriptBox[\\\"0.`\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"8\\\"}]]]\\) \
encountered.\"", 2, 727, 462, 31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.817280903495492*^9, 3.817280948486462*^9, {3.8172813874112787`*^9, 
   3.8172813939726467`*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[727]:=",ExpressionUUID->"3d57804e-381a-4ba2-8dce-4428206df060"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwVkHs01HkYhycSMna7INpykOsmYuy0Sb1T0xJra4itmFpjl9pya2UpubQT
lRJ2rRJ7KkqORSmELm825G4Mk8vIJffblPr+fjNo29Ufn/P895znfAx9g939
lBgMxu6FfWItPkxVO7eHk7u1K9l0K4PTkqsW/M2oBUdjUrDBreVfCImk3IN8
lnH0tDY4DvM/gIS4QIgOgZsxTXfGfechcka0vK2tFFSM/pDzc+dgwKiNwfri
FZYHDxtXas3BV6e/53dZj+KICs/BJ2MWnl/kK5cJJ/FECS1rtpsFh91D4Wkp
08i/5mvh3aOABIPQ4lK+DOmInt9fXVbA+LZnEfbBMvzumGm+vosCKpqXdKfo
yHBntutoLFMBSwX8s70x07jyxzFZU7scnFItD7JrpjDXBM1XZcnBsVA8x5qb
xHNnXnveDJWDsSB9qYXpJGq2MKdf7pLDnazHmy/wJlCNm31vm6EcbqQdY3lF
jaN8UYJK2AcaYgRnBFp3x9DYqczQrJsGm840b+vRUUwxT4z+vIKGC/dr+JGm
o/hLgZPV+wwa3gpzrb0DR7A7idF+PYaGD3V1GyceDWN3E7V84icairgH4rRX
DKOBmdee/G9pOBqlpMgPHkJxchNWs2h4IunfE9Q+iMc8n2TqrV3wMy5RTM4g
Dk6YxF1WpcEqyk5v0/3XaLbKcl7zPQXrS9Ak/cvXyFtmMivso+DCgyn1/twB
PKFjk97bSMG1RGFxheUAGkUVNmg+osA6yUFZWtKPfaVZesp5FDS4ufBobj/u
L+0MKUqnQH5V+dTFgj6k42VyZgIFukbP/2L29KJV6fjY0kgKHlvek86s6MX6
INvjNwMoMAwOzKxye4WP+ZppLw5RcHiGm6F9tQddIzrXhLlRwNbbknx6WIrm
V4//mrWTAhxLaL2yWYoyrnPBrq8pOKG1f0YjtRu3e1R4CiwpYK7S9RaSLpTm
82JHDCg4MND3rsCrC3MqHhaItSko9tcq49R0YitTu8pAg4KheL8Ait2JbtOZ
Ko0MCpxXXoGE/A7cWsxWE9EEnvp4xFaaduC8hmah+TSB4z2r3QW3X+La8kl9
8SCBJQWmR1jmL1E8w/untpvAzw/Y1YvvSnBaY429upjAKembmNubJagSUHMw
uY6AyabrF8detKMtV4ftXUng/ZxOXPaBdpQOOcz6lxPIURMIC2VtaOrroVpU
RGBdttLUYHwbepbYjLLzCCirJ7kYGLWhqtlvXDqLwMkU5/U7nolxvmr92FQG
gZjQDIWFQIznq8ZR908CuZ3G0vLFYlySoC8Ov7zQP2WXKclrxafNEo7aeQK1
feEJvntbMUXlnWPtGQICnUIfp48i1Lsbyy6NJMAT7rAK+FuE7xpswkVhBOw1
r22v8BLhLvU3Z7VDCChSFSvXMEXIuJUkEx5d+Cu6NHAuugX93HM8VvsRCE7y
iEsdb8boZv8jHT8Q2KK0O3FgXzMGSm9MlHsR+Og5F/q0rgk1u5vznnkSMNat
lKpDE3basuMneAQSR7iLbj1sRAc13cNsVwLqGbzsIFYjUg1vudlOBDzPRUy5
3m/ARWHV+hu5BJ7vtzy0zq4BnVlRi3u2EaC14ElHWT02pTsyc+wJLFcu+Y/H
qcdWnuq+RDYByaXqLeH1dbgzQvJZii0B+d7ZK6x9dVhHnfS/Z0Xgf/vZntk=

     "]]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.2326611203921132`},
  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.9510776861588656, 0.5156707189238211}, {1.2326611203921132`,
    1.7786750794389343`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8172808645119963`*^9, 3.817280904138884*^9, 3.8172809490422153`*^9, {
   3.817281388171639*^9, 3.81728139444154*^9}},
 CellLabel->
  "(WOPR) Out[727]=",ExpressionUUID->"56916602-5965-4962-8188-b6662a5aa173"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n3", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"eqLow", "[", "n3", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqMid", "[", "n3", "]"}], "[", "0", "]"}], ",", 
      RowBox[{
       RowBox[{"eqHigh", "[", "n3", "]"}], "[", "2", "]"}], ",", 
      RowBox[{
       RowBox[{"eqMid", "[", "n3", "]"}], "[", "1", "]"}], ",", 
      RowBox[{
       RowBox[{"eqLow", "[", "n3", "]"}], "[", "2", "]"}]}], "}"}], "//.", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"\[ScriptCapitalF]sol", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalPhi]Rules", ",", 
      "GlRules", ",", "GhRules", ",", "DmetaRules", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
        RowBox[{"B", "->", 
         RowBox[{"eqB", "[", "n3", "]"}]}]}], "}"}]}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8172700941895447`*^9, 3.8172701434323797`*^9}, {
  3.817270286114553*^9, 3.817270318899034*^9}, {3.817270357375535*^9, 
  3.817270357541957*^9}, {3.81727041769875*^9, 3.817270431586034*^9}, {
  3.817270463371037*^9, 3.817270467092168*^9}, {3.817270570223769*^9, 
  3.817270572329393*^9}, {3.8172707344012623`*^9, 3.817270737650587*^9}, {
  3.817270775215129*^9, 3.817270781533001*^9}, {3.8172717945510798`*^9, 
  3.817271814605665*^9}, {3.817272979628352*^9, 3.817273005497312*^9}, {
  3.817273039233885*^9, 3.8172730416036663`*^9}, {3.817275902266474*^9, 
  3.817275915955117*^9}},
 CellLabel->
  "(WOPR) In[494]:=",ExpressionUUID->"b31259b6-cc89-48a8-920d-e9dbcee664fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s3", "=", 
  RowBox[{"FindRoot", "[", 
   RowBox[{"eq3", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Theta]c", ",", 
        RowBox[{"\[Theta]c", "/.", "s2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]i", ",", 
        RowBox[{"\[Theta]i", "/.", "s2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Delta]\[Theta]", ",", 
        RowBox[{"\[Delta]\[Theta]", "/.", "s2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[ScriptCapitalF]1", ",", 
        RowBox[{"\[ScriptCapitalF]1", "/.", "s2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gC", "[", "1", "]"}], ",", 
        RowBox[{"0.1", 
         RowBox[{"RandomReal", "[", "]"}]}]}], "}"}]}], "}"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "4000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817127065230098*^9, 3.8171271351270227`*^9}, {
   3.817127221800994*^9, 3.8171272630331593`*^9}, 3.81712740736408*^9, {
   3.817127491557787*^9, 3.8171275000934143`*^9}, 3.8171275721198053`*^9, {
   3.8171278100273*^9, 3.817127849603622*^9}, {3.81712788866899*^9, 
   3.817127911532996*^9}, {3.81719706565886*^9, 3.817197105498705*^9}, {
   3.817197893385504*^9, 3.81719790689716*^9}, {3.81719860001385*^9, 
   3.8171986053976393`*^9}, {3.817198639295259*^9, 3.817198662766809*^9}, {
   3.817198876170909*^9, 3.817198908051071*^9}, {3.817198993133552*^9, 
   3.8171991533442287`*^9}, {3.817199209928318*^9, 3.817199241960556*^9}, {
   3.817199495862*^9, 3.8171994994689503`*^9}, {3.8171995495740423`*^9, 
   3.817199605718575*^9}, {3.817199652392643*^9, 3.817199715256566*^9}, {
   3.817199865131709*^9, 3.817199880715331*^9}, {3.817199936333564*^9, 
   3.817199987661281*^9}, {3.817200026262958*^9, 3.8172000468302813`*^9}, {
   3.8172001570412397`*^9, 3.8172001598323307`*^9}, {3.817200236641964*^9, 
   3.8172002385137587`*^9}, {3.8172002992189293`*^9, 
   3.8172003208190928`*^9}, {3.817200415813776*^9, 3.817200416404771*^9}, {
   3.817204016980706*^9, 3.817204076853834*^9}, {3.8172041381029387`*^9, 
   3.817204203727563*^9}, {3.817204234304641*^9, 3.817204255961961*^9}, {
   3.817204390931651*^9, 3.8172044426360817`*^9}, {3.817205022823312*^9, 
   3.8172050577028513`*^9}, {3.817205106256721*^9, 3.817205106559868*^9}, {
   3.817209919633216*^9, 3.817209920608328*^9}, {3.817210044562058*^9, 
   3.817210053786522*^9}, {3.817210136268099*^9, 3.8172101405721073`*^9}, {
   3.817210451098201*^9, 3.81721045318543*^9}, {3.817211412418923*^9, 
   3.8172114542674837`*^9}, 3.817211713768137*^9, {3.817211774217906*^9, 
   3.817211820329513*^9}, {3.817212210577387*^9, 3.817212210720683*^9}, 
   3.817212495142112*^9, {3.817213148937108*^9, 3.817213155649081*^9}, {
   3.8172131921538963`*^9, 3.817213198714007*^9}, {3.8172140038972063`*^9, 
   3.8172140040882683`*^9}, {3.817214050225759*^9, 3.817214064234343*^9}, 
   3.81721453132269*^9, {3.8172191352175198`*^9, 3.81721914521805*^9}, {
   3.8172192016924553`*^9, 3.817219202057729*^9}, {3.81721981372462*^9, 
   3.817219818492318*^9}, {3.8172203944673862`*^9, 3.817220425613224*^9}, {
   3.817220485354929*^9, 3.817220583732532*^9}, 3.81722086630956*^9, {
   3.817267355013483*^9, 3.817267405354693*^9}, {3.817269076393395*^9, 
   3.817269087009036*^9}, {3.817269120326481*^9, 3.817269121269062*^9}, {
   3.817269939213081*^9, 3.8172699495241137`*^9}, {3.8172700164421453`*^9, 
   3.817270029113059*^9}, {3.81727016313024*^9, 3.817270185946486*^9}, {
   3.817270335143284*^9, 3.817270367462471*^9}, {3.817270440307015*^9, 
   3.817270442465829*^9}, {3.817270579806553*^9, 3.817270600570369*^9}, {
   3.8172718236141233`*^9, 3.817271852429574*^9}, {3.817271884330206*^9, 
   3.8172718930060387`*^9}, {3.8172730122522783`*^9, 
   3.8172730205535307`*^9}, {3.817275923134584*^9, 3.817275950260332*^9}},
 CellLabel->
  "(WOPR) In[497]:=",ExpressionUUID->"30d0f855-c86b-4121-855c-813e9ee04f96"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "jsing", 
   "\"Encountered a singular Jacobian at the point \
\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\[Theta]c\\\", \\\",\\\", \
\\\"\[Theta]i\\\", \\\",\\\", \\\"\[Delta]\[Theta]\\\", \\\",\\\", \\\"\
\[ScriptCapitalF]1\\\", \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"1\\\", \
\\\"]\\\"}]}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"0.10883474635158481`\\\", \\\",\\\", \\\"0.1087637311720366`\\\", \
\\\",\\\", RowBox[{\\\"-\\\", \\\"0.03027802286883688`\\\"}], \\\",\\\", \
RowBox[{\\\"-\\\", \\\"2.395987125603358`*^-7\\\"}], \\\",\\\", \
\\\"0.010188811377372375`\\\"}], \\\"}\\\"}]\\). Try perturbing the initial \
point(s).\"", 2, 497, 355, 31479193581598412653, "WOPR"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817271845315606*^9, 3.817271910309051*^9}, 
   3.817273022397489*^9, 3.817273086526833*^9, {3.8172759390488853`*^9, 
   3.817275950677195*^9}},
 CellLabel->
  "During evaluation of (WOPR) \
In[497]:=",ExpressionUUID->"f1cd282b-fb73-4166-8899-1f1b71289512"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Theta]c", "\[Rule]", "0.10883474635158481`"}], ",", 
   RowBox[{"\[Theta]i", "\[Rule]", "0.1087637311720366`"}], ",", 
   RowBox[{"\[Delta]\[Theta]", "\[Rule]", 
    RowBox[{"-", "0.03027802286883688`"}]}], ",", 
   RowBox[{"\[ScriptCapitalF]1", "\[Rule]", 
    RowBox[{"-", "2.395987125603358`*^-7"}]}], ",", 
   RowBox[{
    RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "0.010188811377372375`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8171270996292067`*^9, 3.817127105556841*^9}, {
   3.817127204285718*^9, 3.817127264091604*^9}, 3.817127314951366*^9, 
   3.8171274144813757`*^9, {3.817127496044944*^9, 3.817127500612631*^9}, 
   3.817127572469696*^9, {3.817127822124675*^9, 3.817127849973984*^9}, {
   3.817127889203796*^9, 3.817127946658205*^9}, 3.817197028103486*^9, {
   3.817197066173236*^9, 3.817197105829151*^9}, 3.817197840657063*^9, {
   3.8171978941536694`*^9, 3.8171979070770073`*^9}, {3.817198605563414*^9, 
   3.817198663128005*^9}, 3.817198745965067*^9, {3.817198871986658*^9, 
   3.8171989082517653`*^9}, 3.817198993524138*^9, {3.817199036402801*^9, 
   3.81719915472499*^9}, {3.817199214650189*^9, 3.81719924238663*^9}, 
   3.81719949964295*^9, {3.8171995521181307`*^9, 3.817199606127068*^9}, {
   3.817199653014206*^9, 3.817199715660084*^9}, {3.8171998628734703`*^9, 
   3.81719988217598*^9}, {3.817199923819672*^9, 3.817200047007765*^9}, {
   3.8172001378170567`*^9, 3.8172001643989763`*^9}, {3.817200217372025*^9, 
   3.8172003472950993`*^9}, {3.8172004167155123`*^9, 3.817200455504426*^9}, {
   3.81720316131075*^9, 3.817203174094232*^9}, {3.817203897725556*^9, 
   3.817203945272635*^9}, {3.817204011992119*^9, 3.817204121995092*^9}, {
   3.817204163591261*^9, 3.8172042070966673`*^9}, {3.817204240782833*^9, 
   3.817204274807415*^9}, {3.8172043955128317`*^9, 3.8172044503395233`*^9}, {
   3.8172047031255627`*^9, 3.817204709501192*^9}, {3.817205004979569*^9, 
   3.817205059570442*^9}, {3.817205106897121*^9, 3.817205134762471*^9}, 
   3.817210054018056*^9, {3.817210124483952*^9, 3.8172101408168087`*^9}, {
   3.817211385711073*^9, 3.817211461402006*^9}, {3.817211675688643*^9, 
   3.8172117217755623`*^9}, {3.817211753410542*^9, 3.817211833201375*^9}, {
   3.8172120745520897`*^9, 3.817212091409594*^9}, {3.817212211123355*^9, 
   3.8172122275095043`*^9}, {3.8172122698902597`*^9, 3.817212283156934*^9}, 
   3.8172123869969254`*^9, {3.817212477265932*^9, 3.817212505367959*^9}, {
   3.817213142038204*^9, 3.817213156396003*^9}, {3.81721399823987*^9, 
   3.81721406485555*^9}, {3.817214510874466*^9, 3.817214540922349*^9}, {
   3.817219147826261*^9, 3.81721916839528*^9}, {3.817219202321391*^9, 
   3.81721926178716*^9}, 3.817219819433941*^9, {3.8172203499673634`*^9, 
   3.817220388880389*^9}, {3.817220428714097*^9, 3.8172204420687723`*^9}, {
   3.817220475912451*^9, 3.817220600722657*^9}, {3.8172207994737062`*^9, 
   3.817220837753346*^9}, 3.817220869735447*^9, 3.817221490855907*^9, {
   3.8172673879327583`*^9, 3.8172674061020613`*^9}, {3.8172677896248503`*^9, 
   3.8172678294150743`*^9}, {3.81726803150861*^9, 3.817268040027916*^9}, 
   3.817268349512271*^9, {3.817268405281534*^9, 3.817268494757325*^9}, {
   3.817269089883569*^9, 3.817269131142281*^9}, {3.817269950143134*^9, 
   3.8172699532985477`*^9}, {3.8172700248676157`*^9, 3.8172700504906073`*^9}, 
   3.817270188031938*^9, 3.817270369694803*^9, 3.817270443551853*^9, 
   3.8172704748305483`*^9, {3.817270580860221*^9, 3.8172706056496277`*^9}, 
   3.817270683974093*^9, 3.817270741457181*^9, 3.8172707866388893`*^9, {
   3.8172718454749317`*^9, 3.8172719104007607`*^9}, 3.8172730225617037`*^9, 
   3.8172730866934967`*^9, {3.817275939131167*^9, 3.81727595078214*^9}},
 CellLabel->
  "(WOPR) Out[497]=",ExpressionUUID->"3b7bac7f-12db-4bb2-8d83-0f02d8f19997"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "/.", 
           RowBox[{"\[ScriptCapitalF]sol", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
          RowBox[{"{", 
           RowBox[{"B", "->", 
            RowBox[{"eqB", "[", "n3", "]"}]}], "}"}]}], "/.", "s3"}], "/.", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"g", "[", "n3", "]"}], "[", "\[Theta]", "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"B", "->", 
            RowBox[{"eqB", "[", "n3", "]"}]}], "}"}]}], "/.", "s3"}], "/.", 
        RowBox[{
         RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.817270250152678*^9, 3.817270266945251*^9}, {
  3.817270389641168*^9, 3.817270412114234*^9}},
 CellLabel->
  "(WOPR) In[241]:=",ExpressionUUID->"e1346f99-b8a8-49f2-9bab-d7d94b52e5d3"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV03k4lP0eBvA5QpbpULydiqRIIiNLOFRfsmSJapIUSdKkeCNFUjQhUikS
ydJgsr/IMssjPA1SUVRG1hSdyBKRrW063/6Ya67Pdd/375l5npnVXv70o2IU
CiUVX3/eM2/J7WMwZknz+mVXV7XVky2Hd7zr95olKQLK0Vep9eSPjbHHDh6a
JZk2E9cKvepJl1axEGdXzNvsv7+eqiMXUWdTttlj7n1BXKRYR4Ze7u1WoeF5
6panmjwfkc4hBR4dMzMk07KzwV2niozYPjhIn5ohKfnPrV81EmTpUjX/lnH0
otTzKZ4EKcNJv/h4CPtcq+RVSXxSMHkzs6ILXXQyRlGMR9J8gwdu1qDHlf5d
NVpBLvSwZNhexv3fGlKyoiJyaaffxpBL6F6R+ROjIlKDnvw9Lww96524O6CQ
tLIZvrEwGP3Ozvr1x3ySSbvJa2Sg59/siO/OIedF3VLWtug1ntpNb1jkJ1Zg
kYUs2tvI15IXQc4tTw86tRAdZbl8UJxJSt5+DFkL0Hzuq99FoaT6lWVCys9p
kvKSmmIpEUB6BtT+JMfQmSt0l7zaA53mMk5bW9Dxdx4InkXD0/6sL6YJ6Nm9
PdKu92D60Effoji0eI5PkDcLVvdpDildRbNfJmcYZ0Jod+nbnxHoMjPnT5AF
2m01TbVn0LSBUaYNG240dN3f5or+312qoXYeVG1bqVrhjA68rD3FzoOhR55p
arvR1sUebUr5YF4zlCBuj45JdfwpVQBTnJnwRjP01QTp9s5C2Ju3eL/9KrRL
U4iYUwlErN0rrFJCr9RnZPBLoISdslN7Gdq1t2PnmlKQzFxlQ12M3kqsnZ8q
BX6KjkGLGLpae2FmwwNQvmq3iD74laT4VfPOWZWDrVTclboBdLnvJnpgOQRF
v1xg8O4ryeRl8EtZ5dASse+7QidaRfXb3Hw5XDx/dKj9GfYtVc0f5FTAgN8l
wf5i9MbEGPpQJdRprFXpLcC+hmBPFJUD7PdPQz1y0aKFDiZ6HPB2ljc8wsL+
GcV/1M9xYNCMleuXgHm1SRhlARcaZ7YtmIjDXHr1pKE6F/JKBw+duooOWOww
ZMUFHzXa8uBI9NTOgPooLozI1Fy7GIROv+tmJ+JCU4Pnp38F4nmnGYPuSjwo
Che3jjqJNjmfP2zMA78pB9GVY2jFI65+/jwY7+oOuLUf91TDbPFOHrQkhr9Q
dPnTt9d9+YUHpY5rtO7QMW9Va5aT5kOA4PiHNAd0T0HgJ2M+TObP783Zgv3g
xK7RG3x47ZVevs4U82c+VlZsPpQrm8sVGmHerScly+NDYHzM0xJd9OKW+Pe9
fKDba6/V24DOWt70eZwPBuKtlyo00QM61gwKAdNnl5rxV6MDHZuTVhMg1Ku6
Y6qCNjhr6KBHAGf04HT1CvTBmDQfcwKCD+UUCxTw+l1Zog53AlyW28lYyaND
wsw1TxBg3DbGaKSi1UjZt8EEzNsYqjZL4L6Ylhtwg4BOSucFRzF0XFmm410C
iKrzXa2iKZK5aeX5a2wCUs+sMqL/QHeYbltfTEAorf6WcG4K74fq77VcAg58
Yky4TKM1V/KYtQSYZcvs6PqC/eJ7viaNBCi7l+S7fUYbq6zY8YKAn3/RJfqG
sZ8iWV3VRkBv68xhz0H0dJpNZBcBNbF3awcG0J4Dhff7CLhnuUXp6Dvcp0e2
r/xAQPiv92eHejCXqCz5PEiABy9KeLwTfXHpCoURAuCUpt6YEH2fNXt9jABV
7edxJ1/9+fxnVQ6ME0D56D/y5QXaq5dxboKAOjtK7Lom9LJf1FF0VEn8Oo9G
NLFDKw5to7C68XYdnvdbsMED91IhZd7NtehUQag7nt/Ua7FA7CH2GwcDo4cJ
uG7xOsuEh/mbZ77dHwlwyvUy96/4c72GCpd+AuRkv/bllKKtK+K/9RDw0j8y
rLcI/YsDgnYCbgkVlBXycR87Ol3UQoDzf+9X2d1HR2/o4eH9XHrPcD8zE/un
6hQ+1ODzE3s8x01HDytxtSvxeR3bm/w5Bd0Q1nqzgAAVveC2Awm45xYdy04g
4H2SZGBCHNrWtHlHFAHZ35Pln8Zi3451UgZ/HxoNPMdNEZg/EtVwXQj4pGk7
5huO9t85kWlNQGFc59XsUPRauxNJBgTo7Pv2RO407vcZchKpBIw/jGXY+KP1
j2WkzPHhgeoKiTBftPkjUUY/HwxHTLeNHMH9+o5KVjkfNoddqG5wRvdLzOrZ
8kHUT3X7sQutovufcS0+PLLJ+KbniJ6kziVS+WAlX2vEssbz2raviX/OA8kg
p/Z2C8zbnF68K+TB066+09StmB8On5a9wgMH9u8H54zQKo6+o1t5QJWK3/lA
H/skQb+zDP//fqrjgzT0w/gP8pNcoBtZaDuvw76s4Kv7PS4ceBaRQ1uGebYV
vX+YA8o0Baujimg3/eZIggN9t9gDafLoYCPnlzEc8HJvWCUtjfvCoH66KgeO
T0ikfvg2SVJyfU96mVeClnOyyYrZSZJ5/azEQ/FKGONrdOyaQoevl735pAIC
IrYr1o6gazax42wrIOSv2BspPbgfEzdZYlwO+8IN+uQ60RTZXLevZWA09FYn
Roj9H5tZSiVlMMPXfxH0Ak3UXHunUgaB7r2ye0jsz+6Tke4qhd2Po92aHqLX
TK9RMy6FjTS9Igs++n20aXJCCUz8vmy/sQwdrqClZVYMfmzd2EVs9D83/6Z5
FIIDtbszioVuyhVuTi8AraAozZ9paK9oN0F7PgzbdD0ZuY2eYVonmeYBYyRC
8mk0OjWyJrWRDdZ7dFwgEj0gr3+3JxvUqztyuBfRIqfAyJEs+BC3wTonBF3b
vH1imAWeem8iI06g1b14w953AFKZbd8YaGGr66/lSaCyQFvt1BG0spauXPUt
eCu8WHfIHc0/kpx26RpUb9Fa0uGK1tQ3HNwaDem5wsNOe9G2PvlXHjNBc5dV
R5vTn+9fUm2xxwf+D/QiEqQ=
           "]], LineBox[CompressedData["
1:eJwV2Hc81A8YB/ArhSjJKKOMhpESRUV0R1IhpZQtoUEqeyRbsrKSvVeUlWTF
PWe7+yK7FEVD9uhHoeL39E+93q/PM77zukvU/O6Fa2tJJJIU/vHv75JVJXO/
U3NA8taK+el8G94KdpMFKGiK0qelvIegC/c9f8midX8uV35JgkMS4u13pNGP
NQtaXNKAK7Jzx8hedDLr44c2GdBpLlbTswstFiH8cWcOFBMdG7VE0B/DC4u+
PYUIOXfj+u3oxf9OGcfngTZzx+8XvOgQAenyvnyQvntPU5ILLS+/nt28EDa9
252YxoGW6/l7f7gIWvPcFMNZ5sD7c/tA1ZUXcObsLjebpVnwDot98ZupFNiu
VrHFLaBHh/eEFJUCw1EnqX5uFkgVMfnpl1+BVpIXCIyjr994ph5XBtoTH9bT
32O9btmGsukK2LxqHzvfh3ll1OiYeyV0cLFJinRj7uBZzsJcBTqKR7VcCLS/
1xP3La9BNyg6ak81mirkfoi1BniSpXbrVKBXf4aVedVAb3Hdq/ulOM9LsmNi
vgYuv5t9152PeZPhlvJ3VDAQPyvsmzwLtH2Smp0naGDauD7/oyfmddH+ts21
INyfpMzmjjn3u2cn52thaPLQG3mXWaB8i1I2EamDqzzmP0LvYh4RNGnpXAeW
FtSjx8zQ69fvVReoh90ulxjXjbH+8gotVaUevgVPGkXpo73mzxnerIfrJQJe
Y+fx+AIFt62+rAerNS6NsSrYn8GXbajWAHt5OfTqldENwQc4bzTAuET26LQC
1suaxisHNYDN+W529YN4vK7Xuja0NsCd1AMX5ndivW0tJVezERyVRz+eX4f5
cvdlQq4JxkI/6YSRMO+5ZO13rgleVxQExS7NAKXKmfWtVROE/Qy+9Gh8BmiZ
OW2Xk5tAzv7klGvrDHhrUL5+Wm0CoS1y3f81oMWSlhO3NQNL8c7KOzXYj20r
0s3wfmrV37JwBkjc19mrjZvB26pq+/kI9IzKHoXSZrBmzVtLBGK/LBOHBr0Z
Lj6NHT3pg/3P7oWzfWwGsW+Opcfssd7yuGsKcwu0mh3QEtfF+nQl9/26LbBN
P8t9ZRse35uPF14NtwDpV9RVN06s137dJfOjBcaf+JyaZ8WcWUPOei0dqrtN
uceXpoFUrZbGv5MO5uf4n/d+QHecuOdlSgetaZbI8z3TQMl95LViQwf5Rz+d
iVZ0+g1+FXc6sBLdqrU100AjnJ9xx9KhUD3sfX4q9t8PYCa10iHu232aeBzW
6xsGFbyjg4//rZyMCHTQaMKub3TQrTttH+czDd5HRspv/aXDsjITm78Fzkvt
uOcuxQB1eVcFI3Gc1/lWY7MnA6wHEnz0RP7N52D5FsCAML8a+kV+nBce9yIy
nAFvO9caarFjv2agpl0aA27eeXRPeWYKaFZnsi7SGBDKW1ynMDoF3oNeU+PN
DCiu7mI7PIx56oZlozcMWGLjS5TuRocrlLQOMiD4acZr4fIpIKXXVswtMqBQ
u5Fpe/EUUDrmlc1WGdC18F2TLw/rVU9ufb6eAEG1/QOciWjKy4W+LQTkD5X/
WeOF/bVBL8MlCOh4+F5txQX383JsH9tPwLz039BlW8zvZEuJHiJA2UN1x3/m
OD+EyVBamYB2/jblr+qYt6l6NJwj4Adt5sEQGfOu0QIBXQK23uRqHziK5n2Y
raNPwJUyPdPevbifN2XC3IwAf5N7OZ27MP90oVLZkoDcdcnTbdvROR5ayzcI
mL3w2bOJA+ud1ar47xLAs7yuuY4Fc6KJw8OegKPp4puBhMc7ErG93okAnxmb
1PIfk0DR6Dm/6E4AV+gvyO2bxPeZ5LjpIQGHDwmwZr9B/+CfCQ0iwPC90vn0
FqwvyJ2aDSEgU8J3KL4KcwmDczciCGh5kyUR8xI9oiB0L4qASedm26h8tOeW
0/bRBMg1blwTkoKOv+zJHUeAvs2BMw9jcd7ZSz+q4wm4z30h0i8CzWQXoZVI
QFqVY79X0CSQTh0KqUsioOFqrOh9X8xP5fEIpxAwylpl5eo+Cd6J10zNUwnY
WDzwwtER56/6xIemESCjt7pkexvrWdJ/JqcTcGlFVPX2daxvnMmOySBA6fcO
ji5TnO/hlxmYScDuRf73h/Ww/gKN0zSLAPYF3pzEc5gf0ZLclo33a26LPek0
uvWQRCm6f3rT8WsUdOHkKfkcAmgTG9gYR9EFenUJ6Kej6/ukZXHfQl3HV3TY
tzUZjyVxvvLkc+6nBDh9/nt7URTru9aGiqONPy0pmAhgXpyXK4I+MbCwvo4L
z8dn6egq9u/tn+sUY8f6BF+HevSWvqnkECacP6oddhu92DVmNft7Arw/fqH+
xeP79Oab/KX5CSBpqSk6optah9dUTaKVfsh14vkV0AfbhL5NAKV89jMPOrqp
P95vEPvDGl3IeD3c63uvjfZi/TZ3MR28Xua0Ttmz7egP6aIaeD3P1LT9fdGE
Vr+QuPff9a6i07fCBNA0pBt/4P1ZeVl7dagIc8lnU4p4/74V1+w/mYv5gObZ
1wkEtBZULuWl4f7/hIV34/1PePoi0iES92fF9BU9weczq8DkXRDWqzXydz8m
4GZ6nqSyL9YfUgn+FEnAkcT0WmYHrLfPzyt9RIBQXPKjW7fQfZ9KPPD5ZH4S
b9BhgfsNJpJl8PntCYuci9fFnFpL1/UnwNbXR3T/YbREkVyiGwF6Xh5TkdI4
XySXvcKZgOP33Sp/iqFXpAVpDvh8Odvp0Lbh8TRbBEbdxvfP6qrPxaVxoF3L
ZDmJ72f4dZOzFXPjQDGu20IzJsDZwoB/xzg6JTVa3IAANROdFyPv0QtOKdU6
BAydVxl2qx4Hkrv2yFpVAviPiqqkeY2D9/vNViLCBCgq69wNcMX6jd9vNgjg
86Hqk2xjh/WRUsYGW/H90BpeOmqB9W3aIZc3ESBxNb2kUx0dq7Q+fZkBh4NF
dzNxYP85pqhHXQzQHRBluZ40BjQTfiYnVwY4D+vIaz0ZA4p1zTUrewbEjfhY
HAzDPOpjn44NAz7MDsOK1xh+v9ivvHqFAebrM1xjLbDeXNCzXZ0BdtI7x1v2
otmzPHS48PPbe2ebVOUoePuO/HJJpwPfXy6qfAk60ohxLIEOGW5MReTno0D5
4/PoZxQdyuy/RlxMHgVS1cm9Ov50+GiZo+vug/X13TFJ1+mw/8zeAcYZdMnD
0gRJOrRuOThh9f470Ga9FjPyWoA9U2VD7u8RfP9WknifNIPS4bJjJ/m+AU0s
a1PyYgMIv9v3W/HSFyA5rDllZlAHZeOLxTo2w+Dtcd1Ud5QKzwob95fwfQLv
Ui/LXr1K0MxO5raP/wDeT6r/KNwqhUseIiMO7W+BNJud/ZZUBHX2T7vE1HqA
tHXj9mcdOSCkuDGnXQ49Jan8oCgH3NbYuTnvQbuWkJ3CckAmQlGkiRkdmcoV
rZUDyQVtt6/Ru4F0tpWznZ4NrqP/sWZpo53ELyi1ZMF+UwpZ1KALSAHwXr03
A+LO9D8XvNMBpIN5y4csU6BhlbqO/Qp6Zar9x/4UmHmVZbJ8Dn1HU+vjr2RQ
32m7uV8WzSXqeSw0GcYXNo3sm3gDJBlZE87yJMjUt3LcudwOpD876DK8ibBV
SCRyE18bzls7VfhfLNwOnlCdXGrF7w+MVKH6WGj4WTbP+IDm1K2qjooFhzdn
9QNT0VRFQ/+DsdDh7S7MJI6m0J+pOsZA0Je+gkV5AkhHUwICSE/gT+4jxpeL
dDyexpdeSlFw/LDk+pYjaM6g5CKeKLzPDeR8QTS1/fCGqUhY//F3qeMX/J7T
dz9RISUSOLitU9c7oK0Vd0esjQQRD3VH8ahmIBn/CTqSEw4ndVZ33OpoBJK+
x5Y34iEQ+DFB/1wpWmZv6uvPwcC4dfjxoTh0qVzi3+Rg0A64zfrnClopUsCX
Nxj0X3/4ETrTgL9HlvrCWIPAek9FcyEH2pGxrmElAMKWbO1+aNUBqUW4dUXK
DwYG7V67SqMrXuzpmPQFyTr79aub0dtT/mMp9IWGYMd49u5aIL17LfVc1heW
BV1rdxugJc7U1ir7wI3jXlv0rtGAlKvyyK3LE0p3ehsNqqOPdostmXnCWhaf
bAsJdMuOoFOzHqCIZz/UB/j7RZpPZ4sHPK3dWM/1hYrzVK8LmLiDN7Oghcvv
atz3/ViyoCsIvtn+y4+KPm28bWu5C5TFCoVE+KBJWRZXLrrApMTOl3ks6DSJ
FxZhzmCgKck0wP0a91k3ynM4wcGII5mUfZVAutmvwSNvD1/5db9sMHmFz79m
dw7FGi7t/hkouhst0pH9/pUVNEnHSStMlAJpqPGh5z4ryDsx4HbTDU0Jnd4q
dBPu3LbkbH7yEu/3g2uPuK7DEs1R2b/9Be4PGcqlmIM1sfVL4hO09/Cz8dar
MNBbEfjSGF2sdDDF8CpQx/90fx4vxnqbd4b3zMCP54G1CguadlDCMMYEBDv2
HvjrlY+eToy01IOVr3fu7ePI/1cvbP78MgwtlTQaJT3H45l/y7dwCXJ2HTOu
qniG9SI+CpG6IOOiGeQyl4vX5yhNc1IHv/+E9+R4odOe/tHR0IGFtG7hvk1o
M5YI8vPzUMUwKpPb+xTrn/hkTGjDSSGbL3Pm2TjfIy7LSAMkDhVLi85loWtC
96ufAbbT827nvdC0+F0PD5+GDrv7nEWJmWih7QUS6mDYGKps05OO5pdgXFAF
pfcdgYnmaNJTyY+3VEB4hqeHMZuG88ChIZgCX/mSrSU3oUlXFLeUKsPgO8MD
bSFJaJ0To/ePQM7M3I6s/MR//QpXuA+DLXPQRve2BLy+m603vJKDtXLlYxKb
4zFfF7nIfxAIDe13qwfiMB/adHxQBqKvfmvqOx+L+buMu3oHQCycO8s/6gk6
nRLVsxdmsp9FGb2MRgO5rlQCKqpVfA72PEbzJxs/FwON8bumQ7xR6OwtXR92
AvcalrPlhyPRwlMFvKIwsC3lWJheBLrKdIIQgo/BcbKuBx+hd3tGP+YD24om
DjHHEPR5g6IqXlg7Mj/R/SoIneKbxcEN0dy76D6/Hv6zn2M4J4ir6OQcUAhA
51aS722EyjtefoP3/NHR7NoHWEEzqcAspNoXPdvPc3wdDNI/KCuseP97H2ai
c0jwaZr7cLuXJ5rCntK5TF2nYTsryeSONnvwcMMCVSK79dmDABe093T72AxV
iyR5bXiDIzqt1UP8O9XW6IGw8iNbNO2NYtwnquTt+peyotZoEWfTom6q/a77
EmPiFv/y4U6JRqrzSytFFRP9f/N0bXe8oHJSyk6Z9aqhST27WYKocomJT1jI
+8hoSj9Jj9rLrLrB/p7OPwcnJKdT1RI6hJluX/nnBxS3amp/zAFBRtF1NC0u
v6CNGjHknMOVd/tfrq5m0k/dzfspbr+OPXroF6H/hUqq8v3Y2eb0r/7sd6sJ
6gdTsd3OGm7/ctUl2x/UMiaGlUDzffTRAaehX9QzPWV6n0S90XxGN5lWqOU5
gfdkh3zQA7XfbdbCHjfDZL8UPzTn7x5ZZojS3EfrNX6A3rfN/TwbkIRWPosL
PkSLqPa3cMBAXbpEa2zwv+PbZGLBAxpPHDSFLoei1c13iG2Dihsn79jyhKGj
q8t5BUAjYN4guCUCrbGpWlkEfO6a3Hr5NBJ927p9URQq9JvuDwREoZ96azF2
wR6puFTpk9HoUybBxeJgzLPmhd7uJ+huwzONkhD116rOmykG3eJlPyuFv4uP
feuqjSWTvI9SSSdlYMDx016X44nob05rr8lDZfaO2nCZJKzv2Fnz/TDE9Bnp
5e5MRldz5rgchXNH3/n1M6di/UnZNXAMhj1uTiffSCeTKInFo04qcD7mocKz
ITRtm//SLVWgFub4lxlkYP+vjtSbJyDh01eBN5qZmDt9e+50EnRVrp4iyWRj
/xOW1x/PQJ2Bd9TGPDTtBNhu0AQZ+9RBvp056JSvlYpasClz0EGW5ynOe6y7
/oU2NK0zTDNfzCWTRHSOKf3UAYWWC0sNtHys/7By4o0e5A7ZqXUqFOD8t6Hi
8fqwdSkifLAELXJX+sJ1A/gh+WbPz6xCPJ+x7+5sRtDXuCfvsVox5vVPBe+Z
Qrh4Rm+DRAnOayuQ/m0OTS9lf2tcQ3snV2nds4AVcq1IZzrabCZ+428LsNEf
ujUo8BL3nda1W3MNTgcJrf25sZRMiog9TojegLUTCdLic6/w+BvbMotvgYV8
sGqGZBmZNHte7iHZBhq83C7vMEd7D6b3vLGBAB59T+5udLE3X8H8bWA7ztu+
WlpOJnUcCswVtwWuyPDb71wryaRRswe7s+xB9Ih/fhCpBvdZTjLtdgVfHwfa
OgV0sVD5go8rfCbMe7zs0O9yLiYMuUKWmcofp89omZsvfqe6gUTwiqZ5AxX7
K2u3i7tD3J1qpx1qNDw/YVrjZU9Iqz3M+5OljkyKcwgLSfaFxs308EgxtKvZ
dc8BXxg3MWLbfxKtpJ/wTtAP5Je9Vi180awdvXWJfsA4SB/r/IM21uuwSfOH
/zKNqAVz9WRSaKQwa00AqAd437j2oRHnx7gOqYbArR6uz6RlNKuUSXJYCETs
zDZO4mvC8203g/ch8IFK1+m+hO5pczroGAq2v7iUVDrQoa8yu54/goSb2Zw7
GpvJJO2bQfNbI2BKg1HZU0gnk/ioK7eoUWD/2lByuBVtY2lVORYFP6Um4qbG
0Y5plMO8+Dm/aaMrsziDTLJ/x0K1eQxcb84ePpqKDlyoWicUDUcvdpYkhhN4
v0rDLYOegL/Ru+fmtm1k0nXLQn6/OOA4/J/2YlwHmbQ9ic9/NQU+mFys+52D
Dk0Njz+YCrkPXsqvlqLT8m16r6WCSq/DduZOtOE1cVprKjg6zo9xb+gkk0zX
iMpop8GHkgX/A27/fOD3FdF0yD2wWHXdoItMmmYsdeD35xOSf8V6+XvIpJD/
fjs45cDmY8ZctiNvyaTPH/veHisC1wPlXwzsP5BJn+QsJA+XQufdPl3zyY9k
krljddK2SjC7kW3DYzBMJpXSIjULqSAeOCiaKviFTDFxzt+9tg4UjtKGWNd9
I3sr0HhkPjRAQn8al0DrCNlbu8D09+VmqPj6NHpr9wiZ9GCj316zZuidKdzK
/X6ETGv5Yqlr1QyczDUCG0exXverTJx7Mzw42L9zhek7mdS2N+ZjajPYhmw5
9PkY2tih1uh7M6gr+1589vw7mXJry6MauxawPB3Um1OCvnl1WOpeC/hcjNDL
rPxO9uYpu/DYtwWqrVKMkpq/k2kcTy+efdwCsjFVFmFfMC8YU7IpbYHtMz8c
7AVHyZSo1IHTCy3wX5pFtGLIKD5P+vZcdnTQvhwZ1R41SqbVqeVIuNEhlx0i
zBOwfmifq5wPHUydBR4F52HufSR1XyQdWjQ7H7xvxnzZ+HFSMR2Sfh53ubdu
jExjvXjtxhQdfj63ceLYOEb2/i6wrm2eDjpXExwyuDHvO9cr9ocOzK0Ldxk7
MZftLSxjY4Btev5NARXMT/BHq4kz4KSWgGGVxxiZom+vwWTKgLQ1p/W1H4yR
SQGPHdIsGbBc5nT5cyjmEZzHZG4xoFi08wJbEs7znlEQx9+7Ar8eahpWYX79
1srdSAZMpy8oLf/E/BnbUd1aBpzW23UsbAUd9us8RzMDMjfqKOxkHieTJOvV
KlsZoO+SL6/BO072du9RG37LgDotC+mEQ+NkypizjvMUA2J/dQgr2mI9d+aB
eF4CyrIYr7VcMGeu1lyLv9/7dBr0rnhi/3kfT2MhArbml4f7h2JeQ6r6IkZA
jFnKansu2lHAXfEI9m+KSxwuwnlvFSmSx7C/KvLIfBn2j8QrspIJ4OV9cJe/
cZxMEzMzjFEnIJp+65PFMObSfayzugSUOl9zdx5Fn5JVMtEnoGfXlW1BMzhv
IuFVpREB3J4XzhX+xX1ST1fI5gREHVSARf4JMu14hKvnHQJKPh00YhedIFOy
J2zM7QjoCt33a4fEBNnbb0eenCMBW74LHzhxGOtf7XbKdCMgIpE59dEFrGcd
eZHjR0DxadKxNAP03JDS0gMCOhaW+krM0DZMaxQCCdh8forj3Z0JMqlwX65X
KAHSf0eejTvh/MCDagFhBGg/G1L/ex/n6xiHuEUQELaux3NnCOYbPwbtiSag
8EWbgHwUWq/v1+ATAtpNm8tOxaPNZD19YwngqKyatnmK/SoTyuEJOP96abBX
Ie43vi31KxHncxeKRb3C/SUx8RrJBDy6nW5aXo++FG38MpWAfIHEZToD5xlP
m7ekEdDaHB0z0In944taLekETDqGHZx5h/VsyT9KMgjYuDOwfc0QOtta6t//
J+5742PN8x1tENt+KosArfvuzOLT6HN/S+bQNpJOGQoLaFaBogfZBIT23Tmu
9Qf37dsUz5SD+/1uvjdlmiSTNGPVb6FbZcyd7dgmyZREvkfV6MlBIy7/LZhX
hqv8QrOHXCqM4ZvE6xV3VPApAXuPntPIE54ke/dbqUugNb6dHnkthj7Qd1wI
bR2l6tu+H005vfAH+4PJSkLDcjg/tU6pAf09xvhwiBLO2/ZB0AatNn1fW14N
97U8YF7E400/mXz9kybWr31bewO9klTjGXQR699ocL3G8zOaH4w5ZITzc+te
z+H1qNBcKRw0x3yHnw87mjdTqPmhNc5zlRVjxetnv3z8k6w9zjvdees7Xu83
Old+fXDD/Ectdx7ej315XpsDfLBfqPqjVgoBQaQ0cZkgtMSb0K4kAkb0aOT3
EbjPw3RQAe/viaIhPf849IhQuG88AWnMa2yl03B+F7dZPj4fhq9U0nyL0MKi
uhmPCSjfaF6xrxznzRbN3I4kgMfSt6OPivuVDRP5w/H54qonSbVjfrKenTOY
ACnrL3y9vTifeVHV8CEBgbVMsl6DOO/9/rt+/gSo2qpd7Z7EnKfL186TgNRm
SzePeexf1O6Tdyfgj9CDSPE/OP/b559vXfB9b2usdWefItOSd9wptSVAUurU
zt170SL/PWs0IyDA94Ziu+wU2bte8MtdYwI+9z+84KowRSat9bqzoEdAUmCL
b+tpdMxmmUhtAjhHznxxvIH9xK6/axQJuK1s/VvoLvpYjqOHHAGM6GBuujPW
n08I6JQmwP8EcWJHANqphnXtLgIW07SyGrOmyBQ18333NhBwadGm+m4++lnO
nuK1+Plw7lEPfykeT85o+evfDLBZaVt3px5ztgyOC/h5OGR07trWz7hv7AOb
bTsDlF/e9aCN4Xz5NUanmhiQwBbxxHoO+y9LTs/WMEC3sqORSpomU6JvbK3M
Z0DL1gtiN4SnyaRnTRmcgQyo+fnCfUpsmuy9wChJ8GRASd+WTgdpdLA234Ij
A5JiOt29lbHfqmwN/1UG3N2q0xlvNE2m/dlVvfkIAyx/FouJWOC8ufY5jn34
ed7HeT/HGk1+FPRehAGqMR1iL93Q479oPRsYsHXr+futsdhvp7hevZ8O7D+L
Oi+k4j6HHxzxrXQg9W0W78/BfT/q1pcCHcaevOn89gr7DXV0ydl0qOY9J77a
jc7jEki4TQcLXu0uWc4ZMs1mxaL1RwvoLxSIV2ybIXvz52ed/9wCWr2bPI4L
o5u3/BfZ2QKHn7SJa0qjH5pFnC5qATbesx6WWtgfptR/50YLrM7nd41fRLc4
5TfotsB8z0YJOyOsv9TW06HSAoPRrV0e1jNk0t8NLqyCLVDMoyURG4iOcDj4
nt4M2fPPPXZEYP++jSvNpc2Q0MPenRk7Q6Z0zlEs8fuHfzThUZyDTrboy3Ro
Bj0ezW56A/afyA0S5muG1Q17yJ6kWbL3Npbm+XNNMLBQVUFaN0umUTY0sB5p
gqrh8wf9WDA/fGVtw44mcKy8vyeQA3OfcQmp8UYYvdnDHrV9lkwJfJYS49kI
Hc1+77KPzpJJGvRtcdENUPCS/4KEEubkmkhHpwYITi0inpFxntRy/KdLDaDm
8oFapI71hESEAW8DVIgdyq7UxXp1ef3MsHpIe/DZrs0WzZPpHHCzDjzsXCfO
OaJL/kqTVerA0ITjWpcL+nEy6xX+OuCRV9R/64lO+rqmubkWAr9GHh8ORXPz
LfRsr4VrHeIVFhG4f3rgiuUsDVSra2RHHuP+nXVcyvU0+PN4bPdEAuYpQWcr
rtPA7oQK+0IumuP567jTANoH3vq75KNfrcwqfqHCPsHbK0tFaB2O34L3qTDy
I25upQznqci6XM+tAcOM2besjZjvT/cJHHsNR8ICdEJa0JeFEyIcXwPPve3E
plas//VnvdHfKmjXOU3l6kZLtZNHWKpAdU1a1vZhrJ+6tHB5pRyOq54ZGP+K
uaVNropVOSj4/eCuHMVc2OlGYkcZyKw/6XdpFnOLnkOTj1/BPvXpql3z6Mg7
m31nSkHiYeyPuV9YL5j2ul69FIQ3jF8NW0XncSdf+l4CAhqP442Z5vDfo57t
O2RKYGuIUudeljmyt3NMhYfDC+DYFE5p5sDc09hfr7MI/nDKCZOE0Je+Xri/
Ng8WdQYvt4uihSye8Ik/hf+iAsKS9qBvTIZUKGTDOE//36P70V82eR7Zkw4j
l3zlWWTRPLUXRZaT4XOM1O1eObSa2Dk/v3jo5/McsFNC+5pfN1KLgB4DcR4K
BR2d0fj23EPoSOjQ5FBDi1CmDHd7gGDEV5a9p9Bp9FoWYVv4H1lvI4c=
           "]], 
          LineBox[CompressedData["
1:eJwV0nk0lAsYx/FBXYXSokhJC5IkVLaWx21RtiZFZU2D0WKZyhJZhsiSaKyp
LMkdlDAYMy/yMupWt0JRxhqSpbRYQ4v7+MNxPuf7e+aM97WW5nnERZRCoaTi
z+xvVtfnAP9Dw0C5EXJycMAFHtu/HLlERVenFTrXuAGZ7q124Cj6dLfkY8nL
ULbmWeoHG/S8t33TFlFQfOr8a44D+lf37YHWWHiYJT+fSUMLY7I1ZOMhW8n9
0qqzaOeChPT1KZCguuS4lR/a35MxrpIJsWcqYtcHouWurunVuQvR953/HWai
/YrNtCELQtV522Mj0WoVRScNsoGhaSfzNAWduPud5YcccDs/1yzpNlr/4Uxv
VS64FhdcccpAb38ZI5KUBw7bREZn2GgrBi1F6wGY67Ff65WhhzPjkzQL4KAf
db54Odp1f5/oxwLYVz5p+PYRWsamWSWpEHbuNC06/2QYmEltx5heRaBm+D32
fhPaqc1JWMSBeYHBy/SEuL87J5w+wYE+YuGdJ23YXawtXA2K4d7WzXldPeg4
iuj7R8WwasPZ2uXD6BrrJ6dLSmDaaco4ewz9uJJz+EsJCDMjG7Qm8fMkXQ27
lEshST6nw2wGPT8PpBJKYeHC3h+hC0aAwnyrvcGBC0MmF4MWLUbXJ63uuM6F
/yJE56bLjADzQKo0rZILESJrlxArsfdHPx1cVgaUcXv1bxvRYz+mHSrKoFPr
S3HAZtzbr/T/1V0GlR4B+hJaaFVPrwhxHvgN3DJS1kMf+S5zkcqDkbZmR1sj
tKaQM/mGBw1yrv0Dxvh55VN0m2EeFFhNuPuYoz9JddQs5MO5epnLLEvcT5ST
+UZ8MJHKFlE8gb1Vz277KT6oGm+NzLdFh+TI1/nzoVdgkfSUhntfO47+Az4I
ZrpWWtGxR9JhsYAPmTsZWT1nsKd+shUV8sG+LLbwNwN7nISsgQgBO0cVdK55
oZ97iYTLECCv+bBS7hLuX7xYMqJCwLu8F8+3BmNfN00aGBNQ2mdzuCYUzVpu
Km9NQPz6T+8OXZ19fvbt608TwHD0s2+PQj91sbD2IYCaNq/3zHX0weHAyisE
aLSmnP1xA++nddWpNwiQkt0wHJaIXr5VYekdAp7d2P8n4zbu62+mb+cQwH7V
FLY5Azt9c3hKOQFhEs6SFVnY/5jYatUSQDswyjrInv17snlzXhDwd1io3Ls8
tLzWxqVvCFhTszjD6SFa4KTrICTgz+9M5eEivK87RevvIKDdQDM/qBT7HZ31
RT0ElPuS2lJ89IO5Q0QfAb2XvjZHVOC+qcbxxyABC/0VAsVI9Gnb6eAhAvQu
m60LFuD+lKGY1VcCnAIuP51+gl1Judr3GwGxgffdfJ5jt1VjDKL5QS2LR16i
3UTMH6B7gufx3BvQb6WvVeG9VIiu3WDj7PNiWSt9IUAnlC7i0jz7/vg9HZ8I
cLySxO5qxX1RvelQPwHRYY9N7Tpn/9+OcQ/34vsJH/3e3I3+pbhDqouAzqvr
ko9+RAsYY4ptBMyLtNhRP4D3+1aMxbwlQDuK2WUyhJ3HOmhZT4B9dGH4v9/Q
ijK/fJ4REHmtU23PKO4LuTIT1QQUxyxoeDSB3SM48Q0fn9/1nd760+if4X4L
igj4K+6cPPc37mspVTlsAjRv3CI1RUaBedTxRBa+XxvWc+f8OaNA0XLe8YdF
QEHChsJ7ktiNTyZ2+BMgTDxmqSiNbpfvpHkQIJocPnVrCTpKTc78FAHHb37Y
G78C79XH3h/dTwAlLUPI3IAOqcnY8xcBaul1gb/UcP9Qz0V8nA+WGb/XXdLA
LrGkQfcDH/Lu2rp7bsfu95Pf+YgPR9iyog570fY6ujZufAjIMcppMUKnKd9m
HeMDO9fbzMoE7xPi2QaGfJi+35hsZoF2awrvXcyHe4Vxm3acxL0O6979Ah7U
FVU1lNHQmkOs0EQeTHK+eGvTcR99hfXajwdmpabVG93RW/oPN+/hwRhf3Eru
Mrrjm35CXRkYCYKDxpPxXt1r0OIVF+LkBN2Vt9BKt5u/53BB6DFnf1g67mWM
86ZCuHBmZZTkUjb2iMu5ptu4EOMVf1OTiz1fP0AsvhTeqPxTfK4Rza0yp2qX
wMrA/mVbm3HP8VRtESsB58aNftOt2DMWvXrXVAzjwQUQ1YOdxiza4l0Mci28
l+xh9J0bW1wLOeBw7b++bukxoDyO4NAkiiCnW8okbyl6vrHJG3YhfNelPmTI
ojlZls26hRDS23hxZjVaaH3z1bECyN7VQVHQQF8QqwyLzIdP377JnzBD04L6
eitywddyGbUuEm10r1T/dCZksXeJWMWgfeSbO55lQN2kS0lbHLpBUeM+mQ5K
aWWyg8nooDNr3HPvwJuPx7vE/kEr0agV9Jug4XvrvH4NOlHS951GHPSmKiZm
T6E1taoWBJ0hFw0dMNr0e/b7vdq6L/s8uWM3Y5JDGQeKo0ffpTgfMr6n2o4U
RzcoKXTsYJKwiabcugxtp+6ediCavFWZXSatjW4yyKrzTiEPv9/Y4n8WrbLn
QUIym1TwWRtx1gOtINe662QO+UlqxXabC2ibbTNPVHPJcIN5LH1/9OcubY+q
PLI8qe/gZBQ6c+/dRWP5pJLZPb533jgwVxwXrHjMISf5q24yBrDb1oy65PLJ
J1QZI8ch7FdsF6nKE2R8n+QY9TuacUDqSAxBbpb5Sd0yiVbxaG4/X07SPFvE
v4pPAGWoas+zvyvJl8rJvuc2TABzv0PZizGSTK28rmy7aQIMp6St/XWqSfrR
8EaTLdgV0vbWXKgmRUK8tqjpotV2i/V9riZ12o/0DxhNQPUyidLIrhpS7KJJ
ktAE7xcQChqrBWTD/D17nx1CK/AM59oJyHO6Whk5x/BeLsL2oFBA6tWpmqfY
YA9do1q6vJb8y2XNz6sO2Okpxy2sasnGn7J5PjTsp7OaFBNrycx46eN0OrpW
LlqxsZb8H4bHvAw=
           "]]},
         Annotation[#, "Charting`Private`Tag$738014#1"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5, 0.5}, {0.5, 0.5}},
      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->{{-1.4, 1.4}, {-0.21603873670728646`, 0.10131711070161664`}},
      
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {159.9449084269849, -97.50736892665735},
      ImageScaled[{0.5, 0.5}], {299.8967033005967, 185.72832176506162}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3c81W8bx0UaFJIkoaGsQlOZVylpS1nR+IVSUhkNMpJNhQoNJEKShOzi
ss7iHHvveY51jmMmief7/OX1fn3d97nG5xr3Fst756/z8vDw+PHx8Pz/rzFt
qWWy/iQOCWvq9duMwHjSrHGC9iTaetT86X44DLWWURnyGpPoZrbPekB+GDKk
Dgknq03i2E15TdeWIXAM9aemqk6ixpltm8x0hmDqkbhm7pZJfHtA2LVYaBBm
j+3bXME/iZGGlwuTaQPAM3BvmMuYQKOfysmFcT1QcoInUL58AmtMfAYPX+0B
n9RQ+SvkCQxtjpk3kuqBFc7p1hWFE2hze/Nu+bfdICw42ZnwfQLdLY3fUnZ2
gczuh3XmLydwQZb6bcnFNugOX+b48sUEkoKn9A/0tULcXIQINXACD/YX5Dvc
bQW5spwz+70m0O91RSbHvwWUTf9QhJ0mMPhKsUI7uQm03N1+lRlNYGyjn942
p3pY6Fll8ffcBPo0WhgMraqHomPRf3afmUDrw1IK7z/XwVGRQrUYvQmMLHY9
lNdVC6c+Laa5qE3gaNk93VLzGjCneSWoSEygdIOIs+s0HZzXBQa/bRtHuXs+
Z/PSSsDUY2+ncPM4shwvFH+RLQE1Voeyf/04Xrq2K4X5phimc/cwHjDG0Vd/
h722TxE4XmoXvIDjSPH/WaDf/AvsPqkGrv40jsEZoqUCnEw4taq12SdmHI8X
b8/1//sDlB74KMxHjmP54RMsC8EfMHSshTIcNo5Wuwe2z+1OhxvDXsuofuP4
dHfF30P7v8J/uxu9vWzHsWMPs6DJLBLgvWfdnxvjqEFyvWoi/RZk+HbIOliN
45HTR0W0h8Ogo/5JydVL45huxhchrPECzJ0Vl2ifHcfrLWfC6+WtwAjdPH7v
HkfXrB/xe4PDcK+CfOVdlXFcn0trnj7xBkVf1kgzlcbxxyPtpL0L77DGUq6g
XnYctbT4C83OxeDZZdV/09eNo+5t+bZrlfF44oysi90fLj4zPZPXZZ+KAtfy
Bd5Oc/HCa68umdTvWH7fMKp0nIvr+M2Mcp3S8HTUE5Qc5mLKsKyy2ud0PDvS
xk9r5WLkaMt3w98/0Cgw7NX2X1yUuRy62wlyUSx6xzbDXC5+MrMR9izKxYa0
kiy3TC5+4Scdq4c8NGnmNtelcJE24BV8TT0fL8qf2eQVzcWh5K3/Hkj8wisk
/pRODy7ue1GT/yUQcVNLlLaAKxcLGgd/dXARu0f3Vu1/xMVc/mbeEzuK8JqY
5cTze1x8LHDKvSy4CK2tCg9q/sfFhO+T8svPFOO2R8blNy5xMbCv4kjN42Ic
CBq1eGXGxUcHpOoHPxfjjQzJJ0PnuHj3VhZjGU8J3lryiPTmMBe/RfLy7Ugq
QaV1Qqal2lx0OWea/qK6BIcVEgY56lwM6q8JPjlbgnbn6gSP7eHi7fOMFS16
pXg3RvX81FYuHuxpqHdqKcX72oOd55Zy0XT9inPcvjIcet5lGMzDReuVpkwp
XhL+zP0W+ObPGJqYXg0q2kTC4Jkg4xfDY7jv5NrzjhdJuM9Rj+1MH8NUCzIj
nkxCmTX76ibLxpASl8lI7Sbh8rSteXcLxjBHMd9IY46ErexFH+vUMXx1z0a4
bQcZPW/lS50LHcP4I053bwSS0XbFF96KgDFU3Dc9EhNDxguf3wzqPR1D3fU7
2dZZZJQbuJ+p6TiG6vZlRhFdZKT/p3pa3mgMX4R/1ctVoWD2ovSeuNNjuEhT
cb13mIIxH1ZJSOuNofyd2pyfFyjo2D7UJ6o2hgnes/3rH1FwvVm868L6Mbx8
e+rfQi4FeX6/uuYiMoZ9i+9velApOBz+VH9qxRjeOSw5GNlEwV91V9YO/+Fg
vtyZoKwpCloabPja0MbB3sTx3KdKVDzNWf7yXD0HlSuM94kcoOL+FzMPK+gc
JKct/0/vCBVXVNTpFhdwUDWia+qzORVTjwW3psRw0FOrd8TWl4pvB9yK5N9y
8NsSK8apECo+9bmdGBfKwR8FZc/a3lLRqOS449unHFyTqRsu+JWKOtcOmK19
zMGtXK2mbz+oKM8jpxPsSHy/29TH+4uKc9p8Aj5WHHR2v3WQVkHF/vbxsQUL
Dt4oW2KrVUdFhmt3g4sRB71nPdRvtFLxY15B7D09Dr7wdHDqYVExyCzFf1ib
g+FHPfL3cajo9Pv9netqHFQSjjPTnaLisf3O6hbyHDwXmHI4dJGKtu3vn5pu
5uADuSezLktpGOxdQLuwgYO1lRE7lVbSsKmG1/y0IAcLfBvHutfQcN55e9zx
pRx8m5bAHlxHw82bjw8f/cfGLZcEjuVvoOHNuy8ea4+xUaGzr/HnZho+X5dW
oj7Ixl07Xt1ny9Iw7VetgFoPG+VlTh0YkaNhvdX0+T2tbPy5pqQyS5GGfwQk
IlXq2Kh3wGvozE4aymRo9CnR2UQ+xvZlqtBQ9+LlHfIkNtokH788tIuGN3g8
nWQL2WjolLias4eGQZ/jfm7KYWN9+MJYyT4app4l8UmlsdF8TPbbTTUa1k6z
Tkl8YaMWhTLadYCGM1ECYWJxbHw08NhYUZ2GG48qt4tEsjEsKfW5ngYND40Y
bFsdxsYZyWy1/Zo0tH7laLfyBRuzl1NmZgkOUA/P5PdjI1Xo792XWjRM6c6Z
X/KEjQm55w4tElzt33p04REbLQJTBI5o03BK5d/zOXs2Dou22l0mWKJxU8PM
LTbqLn+x1IBgbXdd6UlLNoaesLwrQbDltuvXxyzYOLLQrZdP3OdX4f9txIj4
/sF1+36Ckx2Tp1ln2Gi95GViIGFP5QaGdv8xNvI53LmWS9g/UTTm2w1slM0+
xS4m/BO/KVrZfpCNT+RMuhMP0lBDeL94y242Smd8rrIh4nE12/RKgxIbB8dO
G/AT8fK5/DixRpaNAkp6E0+IeCYtjeYwpNh46Jb3yWYi3tzzvR5kITYuitlc
3qZKQ7G5pZSS5Wz8nFKotkGZhgdj5YWRh40tGSW8HCUaPh2zi8mZGMVhh654
dSL/iREhrB8jo3i41uFlOqGPcu0M1bT+UQxeSIgW3EJD0ee/MalxFKm3Ue3m
Rhqq7ZVckVA1ih15y2pvS9DQvFXrXCx1FC/PZn25QOjxk4JX97v8USz+vm5z
rRAN95FWLXn2YRRdwlbdfctDQzM71RP+b0ZxRoB0kD5PRbe15196hxLn/QZP
DM5Ssezamy1uXqN4w+H37jYuFY0XtujeuTGKN6dMfPO6qKj1V1qo9sooPvTa
Jd9G1N+22Q2taqajuNfO4cZAAxUnxtc48hwfxRhfrzXZRP0GDyyJe604igZn
f242y6Yimd6zJH90BJmpxQc2BlDxQGRs8TKnEbx4/miY9hYqyryNfnH79gj2
7QV9N0kqLgt/d7HaagQNpD73/VhLxfrgl+PvjEaw22DutfAyKtp7Pd2irDaC
YpPhP3yGKZh069rTC3+GUb+l7npxBgU3HNxy+OOTYeTPaFpQOEJBDW3De37O
wxj/SlH/lxYFL+k+jbZzGMa3FaLfL6hR8OPpnj8HrYbxrkB+W4giBRWuxWbU
HBvGA125jkdFKKgWtGUbn9Aw2ovxRNZ2ktEsxPD80LJh3Fo2t6OsmYyPw556
Vi0O4a9+C++CWjIWfuhpjxwfwlJPcVMqmYx6P2LD9zUMYXQ8Q/HodzIatW9Z
fiNqCPdlzYktPiXjwx7D/afDie+Dtvo+bmR8y3xqtSd4CAubNmuJPSJjG7cH
F54MoWLyoXXGdmS05I9zfmM1hOv8bvFeNSWjg8rWYarSEK78K5+RpUrGV3vP
S3yXHUISuS3sjxIZMw96HQuXGsJDl2TfnpQj46xub9w1oSE0W/HDW0yamG+m
cRZz44N4Yc+tG6cEyRjsuZWxI28Qf4+bn7g6TEKJf6KF+zMGsXRQtCCCScI4
F77v8HUQr3q8CmzvJWG2Y3/ohehBVGpTDHjdRsJO60Qj16eDyDwj5JnOIOHN
ngg938eD+Gwkc8uVchJOXPZXC3EaRN9iB/IGCgmXmd6U+HR9EO+Tn18vLCKh
8gml9vITg7h6IeJ3YSZxP0mSUa87iPyrH2QMpJPwkK5gYafmIH5Lcv+38TsJ
jTRHYyaUB7F3bJ9XzhcSuimnWkmKDuKnELmerzHE/ckfjLYJDqJqmvHPc9Ek
DJUL0VNZOoipe9oi+CNJGL/JXl53hoUuGh5eMREkpK/ZM3KrlYWXhvfeCg8m
oUnw1nanOhaeObk2+OdzEnYLrGW401lo398oMBFEwim+qdSXhSw8sC9dNdSf
hB6e/TGROSyMp8UM/vYl4Yp/9aEJaSysiZDdaO9DQqmZLMe8OBbu2mAi8Oop
CRMdE61KI1kYq0+q1/Qk4a6xCCNGGAvzWk/tm/EgYf5tf72mFywMSm5SKXYn
4dHBR2o9fix882OGFuVGwkrrm/IjT1h4LaNJINCVhGY9ZhLTzizMKTw54/uY
hHat6nMrbrPQnWLYme5MwhkTpRFRaxZ6KGX0dj8ioWedZLvUZRY6RerEbiZY
4JwgQ86EhVv4fks5PCRhGP1vwS4DFoaDp1ntA2J/OjGaqnGched+bTM5SnAS
qT3m6GEWdq9sWE+5T8I9uozQsxos1HqgEGNO8K/Cgqdme1n4+sNl9oITCY9p
pjpa7mRhsrAFXybB1TkfrOy2s7Cu5nuPC8Hm+0KMHsqw0JcvLOAcwf1pT/Q8
17PwxJ2h3wcIvqtsrxYkwsL34lqquwie/fKffNhKFnJaSpTVCfaSM5T4wMvC
qNmrE+cJFvx0eGXSXyaqp8a6uhNs9kDQQ3KKiWZ8s28KCY7Xb5h4PspEqeC/
dmsJe8c3xNgs9jMxaV3gb1eCdUZvtjt0MFFea9W+WYKfFe4x7G9gIv9FT5kA
wv/m0HmSSSUTHc47ZOwg4rXdiqxBIzNx78P54V6CHfeHftdEJpINa0q+EfHF
5ebbUnOYSAncs+85kY9VrbLvNqcxMTVt5qCHC2FfCnv16yQmdkkFlnsT+Uvw
yPHij2XiWMFwTxSR34lzT38/esdEq/GMRzQi/zqyp+yGXzIxyETEZyWhl2ZK
p3GVFxPv3NPpKiX0tP19UvlhVyb+E7sppeNF2GPnCJlOTFxwbE2p8Cbis2aZ
4jtrJl5xnIjZTOjXrK8qWvAyYU9bBZsVQMQn652ohzET+5RMr5cQetcxV563
PMZE966sT2lEfTzb+du+QYeJbr/Sz5eFEr+/UDSgf4CJccsy/g6/IqHDJ6Oq
nQpMlKMvLHd4Q9w36ho3s5KJXie0n12JJeJdqLf+Fi8Tl+ffCl4RT9z/Uvh5
29wA1olTJEmJJGza/+lB0cgAinvxhT5IIfT5pPx4EGMAty6V3ZyRS0JTw7CC
edIAutT1xXF+EvfLXtlzr3AAs1p4FbSRhNrU8Y1G3wcwVR/HhIn9337NhjHp
lwPI98T4v6B6Ehb09VqFBg7gR427fUbNxP3ZKc28XgOY4v2WsaudhJ/MD5Ww
HAfQqCjPW6qfhI2fbMLTjQbw8ZuVm4qnSKillq2pJzGA6eo5Vjs2kLFMJFNU
fc0Amvh/fZdK9NdTI+lDOwUGUEdEPA+2ktH847c3YvP96LnO1fIZ8b5wFkiY
7OvqJ+ahjgRZh4xZna+/en3uR343ula2DRlV/B02Fqn141iQSG9PCRmzr92b
+KHaj0qbHp7/TSWjttYd2meFfsQu8/L1VWQ8PX7zUYhkPwZJq9u6tBHvFYv/
6q4s9KFS88aIX1NkTFQ1ePaP1IfRx7mvdxDzblPzzr8axn04UryknP2WQrxv
lpq8OdOHvz6uTad/pBDzoy1tUq8PUzX++WYmUfD4u8AbKWp9uF358fUPxHvE
0ZxZIy3Rh6zmkaHGZgqWtcck8bT14oqVBxTziXlu2yNqQv6vF4t8p1u0P1Ex
e3g2zdCuB8t/FgZ+LiT251ehlTXWPbj2hvl/NynEPqqhMGp4uQdva1raKFTT
0DPQVP782R4UW+FyL6GHhicVsqPP7+rBh1X1eiFLy7HzulPQhaluXJ+6THDJ
yXJc1sO2MnbrRjfYc82kthxzA3yfNtzvRhFJP4fM1nK8vUs6xvhON37eZcK/
uq8cq5+cbjW+0o2ua8O2fZssx/cyX8+ZHOpGycNdhxLEKlDl0k1t06XduGzF
7k3GxhWYnEpSzpDowpbjC3651RXoI3RZOUugC83sZeJimyrw6t2pnbnznXj/
4voNXp0VKKYiu7OwuxPVr2t+VRitQI9vnkrlSZ24rarbbOVyOp5P0ZTvPdiJ
4f/42nk06bhzVZ3cgFInMpatrDp/mI7L7WzlBqU60d1a8tZ7fTr+2vFuO4en
E/3Ws+QFjOgo93VGdo7agY3uNiM37eg49yV9s+jFDmzXHkheFUnH+pUnNq87
1YF8vgVFKR/p+P1W9yYJ7Q4M2fu841AiHa0VhTfJbOnA+qPSlKPpdKxMspNW
GmrHXWe/ReWS6Rj3WV5S16Uda2SjsjTG6Oi2HDfo3W7H0i3Ob4Wn6GhqY7Lh
+OV27Cvw/tM4S8dV8r4SZw+34zC/ZZMWLwMfJvaKm69sx9bn9+wtxRh4KiF6
reO7NvyX2NnFo8bAlDSW5LEgguV3e+lrMHDVr91bJV3b8FsfBrvpMJBeS9pV
cqkN6ZuPPkw/xsDTPJwzopvbcO6q1oMjJsR5wYPGTJE2VNXPvzJ3kTi/3utS
/pI2JDlVNHy4zECGsvhty75WvPRSZ0maNQPPWugEZCS2oobqyRtcBwam3ggI
8XvTim0/VetFHjBQyLE2wjygFaX4RuelnRlYGXAjgde2FfXDgyUW3BmoEpaW
0mjeiqGY2lztycDgmLkfyada0e37Bk6INwMNsoNLziu3YnKjYFZtAAPTiptp
cjKtKPhww36TZwwUYWytmRNqxSNTHp9JLxhY3ZfdFcdtQYOBnbw3XzHw3Jqu
+YkfLVi8wYKb8544L6W4lBLfgtmbjlu9jSLOKzgJRoa34IJ9hID1B+K8znLJ
I49aMEnp2ftfsQzcddJwy/qbLegok2t84hMDQ40jFUbMWjD+x4XhongGGtqp
Hnit0YLwqfSY/WcGZjxy0bHZ0YKP17n1fk5ioKh3qZ6mVAuWh91epH1hoGPw
6jPCq1uQaj7h35jMwNp3pkZ9/5pxmhV1g/GVgXsSYi1yOM14afM2v9QUBr5K
G7F81tWMVJs7NS7fGDjxc7/t1epmjC8I2quaysDzlCcOe4ub8VZz/ptKgjNq
ac7LM5ox49CtIdPvxO93rvVsi2vG7tsqYhUEOw5d9v/+uhkfNlbxKaQxsG7q
c7C3TzOypA/F3yV4H89EuOmDZlSUjOn5QHCYoFb0jhvNWDmjnpRL8JS4X/yi
STNWnXrW/5Ngo63VX+v0m7F2v6Z3EsGZypI/Ph9sRu27mxw8CBZTt853VWzG
HEvNSG2C7x9NLTaQbEan00WcAcKeeoNZqqxgM/47tvriI4L3WehW//7bhCk3
vlPGCX/CbjxvqhhtwoLKawrGBE85NHbGdDQhL2X1rVgiHsbum5lOlU2oVVP+
qJGIl9K72vSTRU3IFngutJRgniwf9y0ZTZgx7X1emohvY7XaidlPTegmFrp/
KxH/lNFBsarwJqRopn8RJfLjtSKyO8G/CW/GCMZyiHyabjuT4ubShHu7mauz
ExnIeyn9iNLlJuRjj61ZTuS/+ZGV8BKDJjzy6kpwaByh/9fr2poONeHL7qqT
/IR+Lla4OPpuI+zVKzNIiyb0ztqhc0m8CbOiEjyYkQxcyte5cu+KJtx58Fj+
8v/rU0M3tnukEQ/0C8oJRjDQz2TKLqejEc+uT9Vmv2bgJcfEg8FVjVgyuHJ3
/ksGLk8WqNb80YiUzPuuYoT+20m/IkUTGvHHqi0/Y4MIPfTctRmKaETrmuLP
G4j6ubKhbiHicSPaSH8xp3kR8d7vW37HrhGfOqcKLCHqT8DwQMTRK43Y9me7
pixRn1kBkcoThxvxlY3zhNwjoh/MWl06s7IR5Sz/hivZMrB3rbjCtr8NKHmu
XzbrBgNzVamTc6MNaHNiVbeiFQOtbHY+S6puQKmTWb9qLBiY3ziVx/e2AS15
03klTxP1NJHo2xpInOdvnp/SZ+B1oYuG6a4N+OamSnveEaI+jxUMXrnagG/j
3yss0WSgTZbv+ny5Bqxyaljrq8Ag8n6gL1SiAds5rYapsoTe2UOpNgIN+GBB
ZX+xDAMLt509to5Tj30awZWfiH4pFib+wD6rHt9sKve3WKRjiePnWrmj9bhb
xNw2pJqOMhqrEiv31eOvnD/yNBodXZY4uDzcXo/bl1nuGiyh465Qjc3kZfW4
Ql9nRWMmHaO/Me5cp9URfX2biv0bOjoPTq6IP1uH8kKfaO9M6Vj33az9FNTh
5EmexO0GdFR5VPB9UrUOF2/99Yg4RscBfn+TI2vq0OXPHkn5/cT8kpWM762r
Rfe6V0l8a+iofOUQbLlYi1e07CyTSiswYHuCKO1ELZpJvvrtlVeB/aMrmfYa
tej0quOO7vcKfO9a97xoYy1qPxv+d+99Ba54d6P1amcN5l34ne17rwJ7654/
+GBVg6Ex0YFRxDx+e6Ll68a71eg1erkskJj3ZYuFSwWvVuNp1Tn7I9rlOJYV
f3nOoBq5512M+lTL8dhWe+GW3dX4J+5eU4NYOQ5Pr2buHKlCEXGVx34dNPxk
duv+1rlKlO47tVPKlobiMptfrpZg4IK/tsh5eyreCRrRHf1DxEFvbnvPVSqW
zWRPlbcRfps2eJoaUNGp6oxZQAwdAyc4e+aUqVjt6bqJT56OfJaiDIlhCgb2
NX6b3V+BsWZXfEiXKTif9KK87wINHy+rzNXYS0YdNUV+6gEaVlW+aNmwhXiP
l5ZBykYaKoc3cPuFyMjf+Tfzfh8VmzKqDwDxHhdaaxvD70TFIq2XMfwfSbjZ
/dh9+VcUNFTlnR5YTkI9w0Xp29Uk/G6dcceCVorBf+wdJk6XIO/xD4c/ixdj
e4fDT2eVElTMOsYrtlCEiiWO/IvCJWhz9rHI3YEiLAu6/06wrhhnnjS5DP8o
wrmNzsXbLhZjre09veXnitBG58ka0+tFaOihEFG5EtFz2UarR39/4eJMX9ZM
6U/s32DUt/JyFsoO2UlodmViR7O5KuNZFFoLBBl2O0dh+/0upUc6kTBiv3Qd
n0ok8I68V5EfzwJs/rl35GYWWO0P0o1TzAZ+v93a+tFZUPbExUTaMhvuk+47
BNdkgZ+YmcfaumzQvU0K71DPBgGddZWLmTlw92quk8vKHBB9GXKn2TkP3Da6
S7rH58KWAz4pgTwFcFvX6bIN9Sd8LFZbN7O8BFwayEYjnUVAEqaFvJQrAb2g
da7pv4tg+LKFgLJeCZiPTVZYixTD/rkni1ZeJZDxxSzg1eFiKN9DG6qZL4Fn
BoHfl38qhslPFoXfxkshrkHt0BHLEjjm52lzvY0EnUqvQsxrSuF2vWgvzxwJ
HA9k+r9hlULo1oRLURJk0No7XVz4rxTaCmmGdcZksPdeTKpQLAP736Jah6vJ
kGIftNDuWQbvbyaISJMokPmgQ5muRAL2yfK8+lQazJ41KzC9QwbHn+aKPXQa
PJXb2XHJkwwzO0besodp0CJ3hnbyNRl4Vq9yXiZfDtFvS2nduWQQrTqjdjCm
HNgiUhWTvBQ4eKEmIzKkAgIaZk9/eUUBH4vmr5b2DJg6pn9rJoYKK+k3N94L
ZsC6R7/ezH2nQrDWnyDXFAbkPmbPDiAV3khL2oYNMkDzgNAOxy4qJHdZKJD/
q4TYRlOtq9I0qLbqilc0rILg0Q3CPmE0EFKbPDv7thpkl97cWXyvHNouXyj5
m1gNKqYfcwpdyyHJ98f+xcxqiFh5tiPBvxwONzhJLauphvXMisFdhN33708N
rV1ZAwvmq6LVGcT5jGkfVZcacL2qVC26vQKSWo1n9/jXgOcC80mSagXc582+
rRZeA34bX0XJa1SA0PmH57XTa6BzO69479kK0B2f2XRqqAZOB8736D8izqvO
5t+4WAshm5LXNZZWwANTMxVbm1q4ekFlLS+D+P8nubF3HtSC7bNQx/WNFdBe
6Rxw/2UttGhwzBZYFSB894+xF60WVppmtPwSoMPDlDlutHodxEzHV/w7RYcj
9ebWsfp1QF7z8nbRBTqIzOc3xRvXQbjLIV87Czp8OeVa+NWhDiT6M3Y9taVD
+/DfZ3lfiP+X3vYzyp84r/hPrmFDPcz0K6XEFNAhKCH51XLFeniwRmfQu4wO
tVvMFtQP1kP107XsMxV0+E/yR8MHk3qQ41Oyfd1MBzfBWz43X9dD4Bkc7R+n
Q6m/OPd9XD2UXNJXmP1NB4GlZRaM9HrgPdVgNf6PDu/mZfbuqa4HtNSfC1/J
gGx2fc/fVQ3wli4ZlLSJAf9ueZ1RkWoAU4U1yaPbGHCUqZr3344GcDELWb1e
iQF1nUGhpBMNcP2Nb5nMPgZwqw5BiF8DMD/l8f49xoADpznJxeENQDKdPeN4
igEe1EjxqfgGSF503lltwIBVxTNss9IGcIv/WQlmDFDMSInaytMIGtkn+8Zs
GGCvYr7CWLgRLp09zht9m9Bl8vL7/jKN0Bt5V2T3PQYc+2R5alSrEaz8SnYI
PWTAi00iOTKnCU5TPW/qwoD6yIKthhaNEBd29L2/GwMswyTmslwaYWHqd2m0
FwO+iJCvDwY0wpGdZkXevoT9z51qJN82goxb31rDAAY88a1MepLdCFu3i8zG
vmBA1EMf0xOTjeA0YnhU5g0D+iZ2l7ryNkHFnpMBh94xQOlel0rqmiZIWfLg
zclIBuTZaCxbu6sJQp+NG4nHMICnn+WgB00g2vh0a/NHBhz/L7zj0dkmeJhY
/OdpHAMazbiZ7XZNwJvVyB+cwADphujNwm5N8D76ugU3kQHWhqeeH37WBLe0
189rJDHgK2P2t9P7JrA0Lpy984UBEycSrRK/NMHetEuWgckMUCdfqGrObYJD
wrInX3xlgKfuEk1BahNsWO9Q7ELUObUwNVG7qQlyNBtazn5jgLDmJVF7ZhOo
pqxKWJXKgO7E2LyYqSawiN3SkkRwhijrvyreZij+6tOx6zsDfDx2rlgUaYZb
sWuK4wk2GXb4rrKpGU5FUF4tTWOAgkmOyRXlZsiiU6+dI/hP8fy/F5rNYJNg
rh1AcLmybkLBiWZ4GDKwL4XgqHf+p9mmzTDwe8r0F8F3+RmTUjeaYZX6gWxi
34dDDqKRp+83Q2Kg+9VYgkU7THXdvJohZ+Sn1UOC+45HD30NbYatG1fWHSA4
M7M3tO1DMyy6figg9nvw26xwUPBbM3xf0bzXk2Cz53e6NH42QyHsO7acYKXZ
DD9bWjNcW2PE70r4O281q/y+qRnq6XNP24j4MKq0G2gDhP2rhRgKBH/Q9Hb7
M9kMOp/Df1sS8bT/TJVV5G0BzuufokFEvHXXClWYibRAcmeF6gciH2JPLjgG
yLTApdB9/8UQ+cox6SxiabQAi2x/+NZnBgSUyN5cf6IFrN7T1u0h8m2ucktY
37QFzh73PToYz4AF/qnLiU4t0F0f+0eK0Eu1gzp/49MWmE0Ni48k9BTb4ZHC
H9oCLipCk8sJvR3NWvnXOqUFYi/Kk74QehTfYhAXlt8CERzLu12EXlnPw06U
UVvAnXFpGd9bBgRZb3orO9ACOa+UDcTCGFCzdv/+XulWWHO6xeraMwbEPXnc
vmZnKyyzzo5dEciA+yPofVijFVzPDNh+8GOAROnJ2o8mrXDryeBY+FMGXHH8
797VkFbIjjrLk0PU567OBPGQ6FZ4PR1XV+/EgCUnRwoKv7ZC2p2+xh5iLsVv
ebhKhtoK1o70YpotA0aqn31p52mDT1+9PesuM8BZNafvomMbKAhcLeo5xIDH
Ka78up5tsEFA3k9EmwGuiofklYLbYG/OzINd6kS/kaXZzn1pgyv+fkpHdzPA
e33b+PueNqAxtM4UbGZA8OLCYtu5djDfkLmwkuiHoW6lW8qutEOK1nOa8Swd
Xv7xP5Ji1w6lvoztYZN0CJsU8XcLIPi/4bHBIaJ/srYKSRe1Q8zgm8vTDXSI
rzomdUW1A0y8rvunfqVD4mlBnWPaHaDwovK5SiIdPtOqrqqc6oDaMIX4uI90
SC41+7RwowMailfZ2YTT4XuOrVLMhw44Fb1O+oYHHfJjgg92r+6EXd1tu86e
pUPNvUYjy9FOqH3u2e7BrIDThwfvuvzthGuSz6/KdFUAVXQuIFSgCwRme9J+
NFVAUZZ0QaFCF/gu+e9kEbUCUv9ab994vQuYR/13X0+ugOf+k9N1HV1wncvf
N3+7AuINAiribLrhlxSt8L+hcvjPJsFO7GIPtP1jeEg20KBP//Ebmf96QJbX
zLif2EtuKBiUKNj0QNeGDf99K6OB3dDseu0HPXD7ztUQ7UwauNw+XXr9ZQ90
JOwpvviaBq/uTW7IofUAJUGiMcqQBmWPDlMuavSCd8T2bwpVVNA3E5+wOtwL
qd6OsesoVCg/OCJ193gv/HOeTOMn9pHqP2GOXia9sGbuXPRYKhU6XAelvzr2
wlNDtiAnmAozT0Luzyf3wufP09vTDKggH9CxJWZjH+zfUi4r00CBQdEW6iHZ
PviPRy10JYMCSdH193qV+kDr1XaJf2UUUPhRUbBdow/2nMoW/pdJAaXOvIsp
Zn3A11f81TqcAjv3RbzMC+8DQ63JLxOmFBgtfHnQIroPSh4fE3I4R4GUEy+6
5uP7oPueS8Of4xRQvuqjfCizD0QGhzbs0KCASpAjjVzbBzpBY+dEpClEXs8u
qRfuB/mKt1/4BsjAtT2Z9GB9P/SXiHse7CRD2rSewfpN/fDrSXiHSxMZdgtq
R5ur9IMmoyNtazkZ9qjtUO853Q/qBvZ6Imlk2Pd8uQMnsB82DRpyHnqQYUqc
TyL0ZT/cGhfe5+1MhszYhcLd7/ph2Xz572hHMuzPmV71IKkfjgTT7y3eIINa
b1/SX3I/ZCW9vvDgHBnUDxZ1r1g6AB/1vDL15MhQmO+/XVFwAKp3qthHbiHD
UW0D2xOiA+B/av+FRSkynNPtnAzcPACs47f6xteS4cbp+WWC2gPQ7hl9x4eX
DKOVpad2HB2ApXa5iWcWSOBg+Cz01KkBCN3Gl7yd2KPdTCQln18cAPL215d4
J0jw6r+DyqsfDsDIiRPe9r0kkOhbdFB2HwDZN4JbMjpJEH2dkn3GZwA2zIrK
8BF7eZKtyaHgVwOwt3SHW10dCQrv378g/H0AruSxE1XJJDj6W/OtavYA/GC0
yXBKSEBz4eswKCDuk7ng9gtJUO/x6kZoxQD8rrwkF5hHguGANJc1gwNwsm1n
Z983EtgLOhfuHhuAxeq7O2S/kmD6BfCdnxmAjU2v6x2TSMDzuvL5q6VM8Nnx
y/7IJxL4rYuoyRBkgnaUskfZRxIIvr0sXifKhCbNy1ImH0ggHj0as3YLE6YO
VWt9fUeCqE2Z/XsVmBC/9mzT3Tck2BLnqmikyoT/SP/2HAknwc7PAj/CtJnA
z3fKQuYlCXTTFcjrzJnw07w5KiaQBNS9XAG1a0zgndpgP+xPgjPZOQYmN5mw
ZDrJ9JgfCcx+HmuJeMiE1Sph/ru9iXeMtpBMjjsTOFyZnqKnJLAqarBs8mGC
39/zDtc8SXCXZD26/jUTDNKTjBrdSTClv3P3wfdMEFB3yU52I4FL+eQDs1gm
rA0wsAt1JcHC6Z/5zklM2K2b7eb/mAQ+VV6Lb78zgbJ0gB3iQgKB8yeP5mUz
QZ2KpC/OJAipXxPYUsAEycONKxsekUDMtIXxp4wJYYescA3B71s+ikrSmRAj
dnrk6kMS5PZ/DhOvY8JGC/KzkgckaBhLFV/byoRbnDv/9hM8MZf1VriHCclz
o0fy75NAZFmB5KpBJvy6HGVpQLDymrKoFWNM2CPmfWnaiQQnpSpk+GeYQE4w
3pdC8E352o9L/jHB++WDUSeCffe0bF3gY8GRPK7faYLjtLvj5wRYsIThya9G
cNFxltzvNSxwzwq6tYvgjgucpEkJFgQuSGdqEjx3ZVqJu4kFgoenBkwJlrCd
TxmVY8HB5/aLPgTvf8CnOqTMguzKDzylBJ/3FEgf2McCXtg7tIaw1/7Zmr29
mizIKA3MdSA4OEIiq1OXBZPmCXd6Cf4au+lA2wkW9DxVXW5N+E9NkctrOseC
vZGPvGcIZuYoa9absuC1sWP3OyJ+fKX7CqqvEPatydt4lojv5kpNYFxnQeOx
wD1riXxY9J84QnYi/K0cHagi8uU8do5U8pgFtUJKrhQinxFzpvr4lAUX7hzp
qCLyXS1y41RuCAv6FM9Oi3qQgLPxDiMzggVQM/7xzBNC7/L3DdKjWaDOrl/6
jtDTMW2vC8lfWbCa/Kr9GqE/6+OBDYkZLNh4S+xIlw8Jnl4INf2UxwLG6q36
dwi9/rr1wSKKwiL2vsEVPwl9t9xP6HhbyYKXPxWyHz8jEf0+5Wp4AwvetfF2
n3xBgt0R+VbBfSwQ09vtI0XUx9nY4oGgYRY0vGgZln5NArsUqo3/OAsUrUsS
VYl6SixpvO25yIJvh59MeBP1JzU24eS4cRDS4gJCOHEk0Jj7M3136yCEf5gw
c0gggSn/EufbioMQf3fNuqVEvb/aKOxmfWAQyvvFdl4k+sOK4zt8TC4MgrqT
5Y6iXBJMfrQK03g2CK93/frqWEvYY/LyVeWrQbjT8madeiPRrwQx1PL9IJyZ
1JgRaSXBlYeSL4K+DMLxN/rfpnqIfJ6q8W2lDML1tw8oAUQ/jJrRefR46RC4
zJRJUcXJMPPV7oHQqiHwkvn37s1GMhhee+8Ut3YI/JQ2+j7cTIZl9Ol75VuH
QPGuoYClEhnsY1NuSh4egsyDTXYjOmTQOy1pnu8+BAqeD5fG2ZLh45LjZmd9
h0C5aTbbyJ4Mc9kPTHqfD8ElH2lxsYfEPNpSc14gagj0hKWFc5+SQfK3/ynz
/CEYvTq5K+QdGTix01pzM0NwPWQw/UQFGd78rt6kYT8MAkZ2T2A/BbLjy3+e
fjQMZk7jbR81KdBoWGZ61WMYDmh8Nl+mSwHxlJwQn+fDYFlWg+1nKRDx34fF
yqRheJGssTLtJgXCaLe7rHqGwbu4en9WFAVCI5fFvDg/Ahun3J8dWEqFtOM8
mh8vjoCnwG/aawFiX5j+05jx3wjcDsglD4tQQfgcW6j57gjMOwy+85emQvDS
eo+tz0bA2Fy/2lGNCi/uxF7JKR2B5Sr/+ApvUCFFMnKOVj4CAxJzyyLtqECn
hEW014xAfPbbHjtHKqzaGlC5pHsEHqdV+bLdqfC88a7O6fkR0E9r2WUaRoUg
0JLp2TcKEypN5+4WUoEVcUntmdYoVD6Iqq0upcJRjtvZ/UdH4ZaU1gEZGhUW
ogo8Ai8Q340jTB7VUcFxTqdrt+ModPr3W4qyqFBlePV3m8sosaeiy88RKuz8
8kTY7+komFKUU05yqcA0LYLW0FHoFcliSvyhgnnW4Y9e30dh8l7anOVKGuSs
sszdmTMKER01sGM1DcSsvaobC0dBu5HmVS9Cg0rRUp4dlaMgv2fFRcp6Guyw
7ZNoaBiF1EaVMOGNNAgo5tv9pGMU7l0bklKToYGu/dFrdaOjYBKqabpxGw1i
KNYu7lOj4DpxNqFZjgbzMr4v5ecJ//2HXRwUaXDxYcKXGj42aAmnbRrYQYNs
BqnYVZANmkjv2qNCg7XbmS3b17IhPuX3EvNdNLB3WzZRJcmGv8r29It7aECv
kxN4vJUNdTrz3rv30UBxh/7WbUps2NLLvN29nwZ+XjYalbvZYOu9QLp+gAa9
Lf7nndXZsMn0dW3RQRrA7iTbrYfZ0Jf3oJqrToOoAKoX/Tgb+EOm5qc0aPCn
a/D9w3NsyI5ue03XpIHJgZU/Npux4TXboeqhFg1+BCtWlF9lw78tzoMTBIsw
T/Tdt2FDRr2c+CFtGtzRtv0rc48NS8Z2Bl8muDwsaC3tIRsSeFN9ThIsP5q8
w8mDDdMfD+1cRrDPkYoj0n5siEgfzQoh7ut5P2JBecEGUaqiIZP4fZ0JwfsO
4Ww44dyxYyXBkSd2Pt8YzYbVyRcdfxP2z348HU+KZ8PQiLlBGuGf8azdr3sp
bHhYtmx0D+F/hsGL+g2ZbNjKN3zPg4iP8Odvo6U/Cf+Ff/O82kvs6wuMpXdL
2VCg7lNqt5sGNGOOlEQFG24uPdm6WpUGct+E9pfUEucfXLtxfycNui0Mrov3
siHkS7F5MJFf7R/33IuG2NASJ/wPZGnwXiA03HacDd8gO+DHJhr8vpb2TewP
G57bvBEfJPRjlFdNKuThgLfGSEE7oa90kfGOmys4UGuiExa6lgZCN9fMiIpw
IEva/huvMA2o4uflbDZxYOC155g0Pw0KZtJd2XIcOHPuGLVzkQoZjWtqnFQ4
8F7yvy+X5qgQFVHj6qnNgUP1Bweecajw8uHummV6HGh5csZOc5AKfiYv5V6c
5oC/6xWj+B4q3BM3rHlnwYF9PLbBH4h6s55Jk9tsxQGRuapFZToVzBpF3BJt
OSA9yL/GqYwKuhHVcj9cOCD1MB8kM6kgLn7Ojf6GAyvCk78Wh1BBcOZ7zfkY
DqipWy3t86UCT6OwfEsiB86FPNiR4UqFofCqmoEsDhjnCbUbE/3l1zoD+cU6
DlgnP94RcYAK6dOpbr5tHCgW2GuzcgcVEhuEagX7OOCpHrZ3qwwVQsMr3SQm
OPDb9oPOIT4qWK07W7tbZAz+Xg77J0yjgNn0N/nc9WOgc8o9+WUeBU43rHbX
2TQGZjfpGmlfKKAWzpA/pTIG3LTNLzCAAgLrzrhbnx6DdQs9+suJ/rs4lVI7
fGEMrmSV3j6nSoGp+lUKDhZjEH675ryyFAU6wui17rZjkL7eKSd6ipgHYqcV
3gSMwRKO+4sDH8mQMPXVXTp0DM7dNw76F0iG9/WCdZ/ejMEbn4wfZ5zI4BNW
4Z6WOAZpTzHK/ygZTMVO1dHKxkC9fr5Gh5h3iyu3gwcPF4J75nKjeEnQPp2f
y7OUC/om5ynOzDLI7zm3x3s5FzoPNti308rgfp7b9gAhLlC5ISpqIWUweLNe
8JUUFw7Mb1IVEysDkpGtr9hmLkBr8d/VU6UQd4hnMUKWC+8rau/41ZXCJYmd
E5FKXDhpzfjCCS2Faop3c8JBLtyeD/nnyl8K335sOK+gxYUlS5e5n+wpgaCY
7xXJwAWxgir94F8lcPRRW+H3Y1xQmx6ftHcogVy5vQl5RlwQfVfy07O+GD76
9jow7Lmw+YGqcZZHEbg7OI8Y3OfCtHKFoZ5hEZhfFrpe+4gLyaKUb2qyRSC2
X8OsyYMLJKe5KPsghID+lzo9z7kg2Hv/5za+QnA4clhwOokLX3ikKMOZ+XBW
tcnnUQoX9parrvp9NB92bryz8Oc7wdfe1b+vywPmxNvxhWwuFHcWJESP5oJ5
HLdpBYkLbnsK3Q6tzgHdJR/jpXq4QP+0M9d+2Q/Q0T3RPtzPhbKJzULrnDJA
3Xtibd4gF2KOBOi0dqTDLn49b2MuF7z234jO+ZYGm1YOXwte5EJurOOdj3Yp
MC+ybxOPzDh0mhdasCtjYdaww6RyyzismVd9Hn7zI0y+8guO2j4Oxzc8hvm/
0TAs1vLvoPI4aD+XO95x4C20SHi0O2iNw7of+e+dXwRA9mbquz7zcZi2dgoO
iwrCjGsONelXxiFZ4fiW5V9D8Vuc5EpPy3HwT89JtFgThvHb7jhL2Y7DPYkl
LLG/7/G1gqipscs4qK8Lb74RF4/2uy6JUd6MQ2jhi233uemodIgbnFw/Dpbf
zySYRhfjCvcn6w42jwP/lkQuS7EEmXlCUaQ2wj4q/2VqTgl+2qv8pbt3HFJG
Xx71aipFKXnbUvHxcVjReD5gvTwZhYT6f3utngDSj9NpeSsqcPSkk4fImgko
zzVTM/5ageX+vPwfxCbAKXXws7UBHf2XbBHN2zgBDQqibwYjGcgzfXnnmOIE
8GfUSFrJVuNEW9N/Fscm4M7Q1uSZiVqslrBhDZ6YAL3igHyHc3WYajxz5+GZ
CfC2mGLlpdbh7Sox15dGExB7Zt3L7Dv12F9iGE6xnIAh/dWKPtMN2Pilgrb3
yQSoi+nue6HcgvmPcM+q3An4bLKfX3dbN/Y7c5r8f05AoVZwZufVbhR6LO3O
hxPwxeO13kRkN1q5uVLmSBNg5G6R7bmuB1c9PXBpqG4CWNqKUWeEevFy0Hdf
8tgEdF3fNQPr+5EnOqbZU34S5O1qX999NohKHyrd55Um4fDNaiedpkE0ivm3
1VllEqL/+FZFyg7hl1iLO/f2T0INj8b8ksIhPJ+4nvfKkUlA5gbLl3+GUeAi
V7VEfxKurnrkc+PaCP4PfV1dRg==
           "]]},
         Annotation[#, "Charting`Private`Tag$738056#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5000000000000284, 0.5}, {0.5, 0.5}},
      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->{{-1.4, 1.4}, {-0.855639704437987, 0.8564320900118193}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {479.8347252809547, -97.50736892665735},
      ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506162}]}, {}},
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 639.7796337079396}, {-195.0147378533147, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.817270261356271*^9, 3.817270268199273*^9}, {
   3.817270386217204*^9, 3.817270413445382*^9}, {3.817270447239348*^9, 
   3.817270477074524*^9}, {3.817270593198266*^9, 3.817270607955358*^9}, 
   3.817270744280167*^9, 3.8172707889603767`*^9},
 CellLabel->
  "(WOPR) Out[241]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQm8VVd1/2/zHoNo1Go0TjWp89xWrW3/1VqtY/3b2lqnqsUhRtSYuTFR
o8UMJDGEkFklk5kkJGSEJIYEEiAECDNhJkCAAA/C/ID3GE7Xb5/13Xff8849
9wVT/eu/7/N5DOeeu89aa6+95rXOJ7968qBvfPerJ3/r61898qMnfvX4Qd/6
+klHfuS4E+1S2x/Vam1H1mq1fUfW9O/M/ul/FH5eqz96XP7/9ur08FdbdvTR
R/NJfueQkg+m/obfqX/yP7H6s/qdcP13AVGvaPTF8FffbE3Hjmz8jFXZ7Q8t
zcY+8kQ2Z2lHtqd737dLvvmt8Ge/7ID9teKprdmDj9W/Nm/5xmzvvv05gIeX
fPkSv/bwrNXZnROXZavWbau9MwflC/7R409syn78i0nZfwweU2sPf7ZlR519
b3bVXfOyji2dtUEly37Tr3Xv3Z/9euqK7KTh42t9/LvfPu/+7C57VITrJRVw
nXXNFH0tmzDzSeD6nH+0/8CB7KZfLwirHuLQnXDhg9m5103NfnLlI9lXfjL2
EH/k1868J7vj4aXZvv0HakeXPI1rC1c+nf3nxeOTJduyUy6ZkJ3zy0dFAvtf
fu30n03MNm3dVd/7F1egcOqlDwUUZi5aDwqf9V0+YChcPnpW+Fi/598wLdu4
ZVdbguH0Beuy7136UATnrKunZFt37Al3HFXy1KMSbhAXDPSlv37WPdnoCUuy
Hbu6am3+eO2OyMLjjx/2gB7fEqNvnffrcP/S1ZsbMWq3DVkYl7v30Sf6JYiK
Hwf+ZGz4SPv01MYdZQh83b9i7JFddmsjbbbt7MpX7BMOyKBzczi0RZ27u/Ot
eFHJmhc7dFqT9QxRh/0z/umMRevrsE95YoA/6Ym1W7PvDh0XLh9z/v3Z2o07
ciDDM76W0HLojdPiAndPWqY9eI4vsv7pznBo9NFFN8/QRzm4f1wBrliM9Wx9
B/ff/NOdu7qz7/z0/vDpz26b/Tx/0tPbdmcnDn8wXBbYT23aWftayUO+6vfb
mciG3TQ9PujR+U/VnuePmG/iI7neAuC2bPmaLeFe25jauxqh/eXY+eEjQby7
a9+h/vQt23dz4gL7bd6+2yFrfMJX/H6x9S/umBOhsj2rPd8fcf29j0esd3ft
DV98YQW0jy3M91vHy6H9tC9lvCn5ET62217gT99oG3LcBQ+Eyz/6+aSsq3tf
7QPOADt27MiuuOKK7Lvf/W52wgknZCNHjsz2799/CMBdf312/vnnBwi6u7v7
CKLac7JBgwZl6c+jjz6aff/738++/e1vZ2eeeWa2fPlye24zerQ3HN9Jc9a8
wC8LfXjj1vGL66QIq0AAaQrdcfa1jxYJcOktM8NHEqQHIGN+6o4ekrPx5XY4
xcZ/r88OyYYPHy6m3Lkz27BhQ/bDH/4wu/3223Ps+2UzZszIJkyYENG89dZb
s+9973vZU089ZZLN6FEbkO3duzd+vmzZskCC2bNn69Ps3nvvzY4//ngRub2E
GgMdanZUv3dNWvbHfnn8jCfDpaOH3BdOjX5eUMEYtz20JNxvRIAu/+pLrX96
ZxSpi1Y+/SK/PGvxhnjZRMdf+UJdXV3ZunXr9Gv/0599so6OjvC0TZs2hYev
Xr26dojfP2nSpOykk05yjsqvjR07NpBq/fr1tXYn59VXX51ddtllkVwSr7pn
/PjxtTL6/Idv37pNOwMRBOZlvn0QSXLgxAtzuSECtCLSNWPmhXvt1DUSqS2e
9cFXTq4d5svfNiGnqU6V6Y33+K1LliwJp8V+7X/6s082ePDg8Chtvs6HYRcp
9OSTTwZotmzZUuvn1wzr7OSTT87WrFlTQ3WeccYZ2ZgxY8L/+O6ll16aXXfd
df6/nph92akkUf79yx8O4P7QNH3X3n21FzsaD/iRkSKQNtHP8yuoNHzkY6gD
qPQvvpRJwbgZUx9/6jB/uvZS9gZqUortfb7alClTArVSrDZu3BieLO7q79ce
fvjh7MQTTxSvxfskVR588MGG71511VXZz3/+8zpFglj6ogPINkpvdWzuZCdN
6GXfcs07Zd7aliRw21HiqUiCh8zqDBL7/HHiv5f45e2dXeGSn0Gwb8UPua7t
GzDSXvPjvMCWt2KDLzkUc83kRpg8MnftS/3WG+4NJqfMzFpL3FEWZkM34t6W
nXn1I+Gjm8ctqh3uj5zXqG/f67ciKgzZiLi2GFEB4joIp556akRcYsKw5Sut
pAT7HsjvBo8ZFgAn2a9LA3PjKXzn0JJlLvL7Zb2iQ02fOvqf8k83JraNffoy
v3zdPbkOl4lpZu57HTNTLtmwYcOy7du3S2cEZjb10tc/vvbaa7MFCxZk27Zt
y1auXJn9+Mc/zkaMGIH2QZtIC+3evTu7++670SaVhEAJyjDZtWfvy/xWaX5d
Nt1ba0kF2ergaVq5gQptwSZ2MVN7uX9D5wuTaPjIGZCgiX0BCW677bYgOL/z
ne9kp5xySrA3du1yV6JPsCt+8IMfBDKcddZZTe2Kf3cg5HYA9sIVm17ut5pu
C5dMPLZCvS04o7navbf27ka8/2vE5FxJT1xWe4U/0tRpatb9e8nKX/Bbd+7u
jgLCpBQryPRlBSlq/TyvAsCZprWDAXjJBAD8Z19Kdmmy1Cv98tV3z4scYbsZ
4AlrA9lVd81Nb3ilPwkZePfk5bWWYGGWDTGzrAGsthAS0EfmU9Ze5Y/sFDH8
uJoy/kLJyp/3Wxev2hyxMpPlVX6rmUrhkvmWraEbPT5X5FeMnl2EDmX3q/sX
1v7EHznt8ZyR5PmZJ/X5kpU/57fKAkHvmo/ECqs3bI+WgzZeP8+NhAesK+/M
CT/Snu1g/VOyLorWBHG+bu5KXOCOjxx6k1cxtlAGnu1dtCK37NgDeFoGMa9T
E8FrQj/5sbr311NXFAFd8uTmqHDNuHi1X5aoxHGeMPPJMhhxv3UCvuFuprnf
R/iteEzX3D2v1hLAH14xMdxsO9cIYN0wPu/6qbUj/ZHwg3tdn62AzlgGh0ub
AnSmXHHjW0OHV6PYQwE6c2PiIQO6PSZMj/XdGfXAojLocP/l53M4TBGzQioJ
9G/9DChZZrjf3xBj2LrLYfxk8qlCMfrUvOU/9csTZ+eGkD6yLwWQwvK4z+Iy
hX5009Abp7/GATj5ovHYj7WWkKUq1+AoQGYEzZnvrHu1OUAmowGFd9ktsz5T
sj4wPrZwXTyoazfuAMZf3J4zn6n2VjC2xSNg9nXtL1MApSuXR2/1tf7IVGcY
Av9WsjIerSiPWr12zPzX+q2YoIZja+gQZlLXBegU1NFHtzy4uPY6fyTXBpu2
sw38dAV0dljDrd885z7ZX+Anhw3paRZI+M5zKgBUrDVnkWlFAKWR9JHCkABo
Vn2IjQYTd97aMgBxfOU3Y/WPmbycFcSXhAMVKG4FIPHBq+6aB4D/15faurNu
KZnV9Hq/bMokalTzxP61AkZMc4W/zIl7vd9q0qpR+VYBiM0n464BQPM/lmwA
ktob/JHaFESSfSVAEhbGxZEd8tUzxnJK3+BrKSijS5eMmtkapjOuyl2Fh2ev
LsI02t1qY7XaG/2R+KhSBKao/qVkZaAz+zLc6mEeoCOOorB9HbqwBDDBTvJs
CjChVO804w6YpINPuywPhI+4Y04ZTHgGi1bVz/Sy1VtYIQ2GchT6lyxzod/f
4H5s2lmAEY09Z2lH7U3+jXnLNkYHZ9W6bZ8qWRzzUFIRm86kIiuE0+CHRGi0
gjE1WE1TOYyf8E+37eyqa54de97sC8HOOuNVMMo3133iPvPX+PoQ15KyP1oA
2BaVgiFVe08jdMSGxf2G95v98sp12yLQZm7+c8niqV2GRL7hvgVv8Vvtn+GS
GS2tAZwyP0fyB1c83AhgWxSp5/zy0dpb/ZGcbjnfBvQ/VUBH0FASeceuLqBD
U0d9UQXdGDcZh900vQjdCDfJFD4DOkl7WNYYM0ASFkZHKzLFwbv9oaV8D5pL
dYvt9dOvAiycbHOdAAtHRY69HboQ2X67XxvszppycG/zR2JuKz5mh+GTJU8D
6HvcZ8wj/3sBWrjUPaxOHiZczHgIQbcFFThc+Kvc1zCroIiDdkwfmUEX4RVR
8AGMqbmsA4gCNOn8jnC5RSy/T0MsXz+TJ0+u5QH9/iEEoZ877rgjxGLkcCs4
qajT2rVry3xuFGAatDdHG4r858UTouLm2vc8p6j0x3iHSoGPs88+OzzxtNNO
UzDZ41sDstNPPz278847I8QXXXRRiB5x70033aTQfRl0EFw7jalZILj5zxGa
lLJsr3mob/fLHG6l7Oz8h8uVuYP+PXIHthEhJzBnzhwBGtIHaZ5hzZo1inyE
pa688spAfVu6NNID6XFspBaMMSHzMGcyhSm4RtLRrPfag/5YBZVETpFYMf/H
H388BGIWLFjgAbsBIYWh6/wogKfYrUBdsWJFiMoMGzasagt4tHyfwhYg1cfP
WOVb0BYl9LFDx9Xe4YgqtkcCx87z6/zW3yRRgaSZP38+UMdr2isdolmzZpXS
/xMNYN3nKDz5Dr8V2+9nt82OjKXwGIxlTDa2FxjY+QzhcIMmYiDO0BHX/7C9
li9fHqDr7OwshXaYgyDzI3EJC1txuSetTUDHrcAuly76M18F000C3XgOh+TZ
yIiUbYWOjHjSjk3lVmChSzPbCWUr8JPMUoxboaQ2BpPdOrYpBu0RA0nSCy64
gLj7/fffH457uguLFy/OvvnNb+pQVe7CKtd6kt9GkMIu3OiCRiEPdoGExtV2
jV3QXqoiJQjdR594q9/aKtNSRuk2p7fYcN68eUEAiaUuvvjiIGQjQkFXfMwB
2Lx9d4wImDXzZxDRHWFzriL8WMZyjsf7NYW+L7/88gZAxe+SelnQC1lQaYsW
LcqWLl0agJo7d272ox/9SN/rE+EZ6l8m8qus+F810pQImInFCNNPr58G7Wp/
7igR1XaNj+l0MNxLqYoEu7hXgX8pM6U2TDCVSct/dCiu8VitmYZ6JBsuUcPh
NbuODTe1Fg1JaOvM2kDblGOh7Y033hikoeLuSjaZ8sr27NlTBtwwvwaJZMQX
qDx57prwkQqOoPJJHucxFzRS2Syk6MaYrIHKrZJFzancFqgs6mZB8faE/uP+
6A2bO6NTO2vxBiCSkZXoKEiL8DNWiaQVi+p8pSJ5xIgRUSRDO5FW5lYziKDn
tWPmR5O2QE+FJXDbMT4VDBpYdw7/wi+X2vwtsk/tgZLTpk0LRorBhsyCmKpu
yGsc2rJ9+/ZF0MtyjxCYojD3y//CbyVtokAA1B05blF0l8b7DmOPjB49Ovxb
phL2CHUFouwvf/nLBvCkrqvAg9rEsM20b6R2Xjmjj+TH2Kl7C5eTQJYRH4Kn
LqAhAsErc13tgdjnnntu+LhAcEErQ/yQ8GdbkL1VGCGFlWSggGPBik3v9FuJ
WCuqB8HNGInXJjizrlq1KhsyZEiwp8Udsr05aCJ0Eaz77ruvV4TGsn5s4foi
oVMjZOuOPRz/WZ7TUujmXX7rIx4JUF7Bbv1YUzrUUzjnXTfVv16PMakcBiIQ
hBg3fWVtYcl6F/ijFSjBwXpy/fYCDhIYVMWZ4wcOqbUEDvJrCSCZzxzgDY/8
qN+Qhu/t3wCfSlOAJ8lkqq4S+M1J6N/0mANP1gy+lUwGckrQzD327EQ9LC4y
mMH60ZIHcu2nfq4UzXu3X0sNARBICzCbI1A3GEwR1/66EXqSCXLqgf7CxN0B
em0R8X+zm8qg/4jfSnZR58jOEytsSTLgxrQEilL/f+PWXVVoTJqT76GJvyIa
BHTMgYto4Kka23tosj3UTxMM69jc+ZGSp304wfhsLzs2W54VUk5etX4baHRs
6YxomGCrQoNzdNkts4po4BbLMgUNNKkxQERDsBEN/vntc6rQwPuTIF63aScF
V6ckEoWQICwmNllUgQCSb9QDi4oIjElMQ0iTSqjNuEntUR9LFZi2+HDJAz+U
oIvOG3HHHMrqsDkVwgQH7DdVJlThQNmN+L6AA3lIiQpwMJkV+cY4AAgo0JJI
rEKACoMQg926i6+rdF6Xb/r1gogA4UqTATkCYUXAJsGvcHsBbFNXuZt/wQNx
MZ578kXj/fZ6gs9F8YfiM/4h4XCSv2ZH/bWvpbYAXbp41Iy4Pk6i5FwZtYf6
kqpxS5z1BsgbjQKT72/yhRD/qn/4G7829MY8p2Aiyonb+EBwgA3kUZlrDg5o
gcEmQcAB3X7r+MWVOOBnakkjUQEHBe2SWAA4jPTIhayyv/FbqYdxDfUPJc/8
oN8qbUeMz5gEKiz0dGe61bCiNHFzNBoPSL6e12i0xciLAqYgQOm9qPN//Br5
TBnyVdAjr5WAMncL/OU1oB/M8ONJafSwCgFKnaUcCwhAKgk1lkXBmU3vCOQl
bLF6d9XTHyx52gf8VnkIZkNh6bFCg9basouHEVITBatw+Lnnws3WLeLAPt4/
bWXEAQCUpfpbhwDXQGrA5OMHKnAgESh3Zufu7r/1W4kxGwVifq6BjXfsqcIh
TQcUcEBB3GwKgpUlw9GbZhWAhvKi5DpmL+kIIIfn/b3foDgfUs+2nlrI0125
T5m/Nj4i9Tns5JQBf34CDdaT2SsF+A3u8InijSyexgt27up+r18uJED+vuSZ
YELYxMMhYEKaVE7UG/0autH8+triCjRSoOIJi2gYC4VPVKIKGg1SLMtAI02A
GEnL0Hi/36o6M5KbJqKpyq3rsoURjdRgq0IDi1HLGlAFNMhCq9iNlY1VomL7
O1/Fm8CIWL6/AodRvsEqrLYTDg4Up9vZik+iKG74yBkVOLTFmIGdR5czEQHa
Yez8xWWJo+p2EChEv8sQ4FYVSeAxPTx79d8VgJDK5ElEOxUSqUKASKkZWI0I
FB2gfZQHIIllEUDZNIPStXff35U8EBwATI1xdly5NVZjJtuNxpFHEnAIKwI5
7pJygAXIFVhIAjxAzqNViwTkadpt7CNPlEH+Pr9V2VHiXuY8slG4nuk+IyUn
zl5dSf0TvOVCIt5xeLV/dGxSPA4CRvJwTbUVyBcsR4WxzeZ+X6QTYCOWVbFg
xwzEC9UHPCKtWS+D/KcJ3fj6pq27CsCnVf+sjOdiZyACL4UKDUaPX/K+kgci
q1Ltbd4NK2irgcNMDOqGCuXnVZiwf9LiRp8CJoRETCBETE6O8diOqG0f9pOt
VexE55z4rOSS9VPSGFYWX35vAWiFUDBz0HtyKKHSlsYQR3Mq1SsfJNT/tpFE
qaiBRJhEZvVGEmmrsNVuuHdBINGzmP2t6BorzSRhi6jgASKYzIZehJsUJqKW
LD3qSyqIhU6S/V8g1l0T64qFbSgkNTGkycVIQ9sRoyf32c7Wkrh6pm1lGMUy
qkhAG1a4Bli0D0xfFemX6vQbk68rViDpamf8kNCE3haOu4q+TPHEwFcZqYkG
yI4qkBo7RB49pNZTILWZAB9MgEBmmW0HqZ/tbOxv0p8GuekSkn4zIkHuGAqb
sCSSG0tQBdvX+C7L2lBwSGpDxpt2ThWTxmR23uxuE1o6vIqSSv8qbKWo8o5d
Xa8vgYptQFsZdMVtwKqV28oSnDmFNT9URMx+DbFX+K0Hn4t9Jl1vf5UwAgFP
c9cINqQ1U+CAu6BD/otwLW/fU9BIlNeOGGVrzwlUbQvqSD6x2eB+rT0EXBQs
UAzOvvunJRQ+zyGzDYicu3XHngYiN5YKm+6jsoOmdjOOG8JqHM6hN06Dzr9t
fiYuQGTCCxWhOFamSmSheJqPuRyK21+qRBg3fWWoZ1WtYj5ron9QecJUCko7
IvdBu6PSSlNG9NPK2ZcmlHRXn7t6GlT7o4AoIy9kpNhjw8iLI5ruUp3ZlaR/
b+MWpVLeHscWmSMdLp159SMxepvGimxF+q8OPrnbj25AAG4p3YkbppEQU2uE
O2lFksvB9hBzeeCxVbVvJMwmxBUKNJKTgVUnj9SbGqbsjLS74NERUcRXAXF9
LA/kAEMH2OudIbKhFJTdXmMoh7wBEV9Nza8qwYcNoo9AKS7fIPYT91ZhHHYn
VddkOjCof5i3DeW7c3B54mfenci+UEIgHjdqsi+kmxTnY19OTsoHmPsg61+R
Vh0ZfW6nz0nZL6QeJP5lRcpl1glV9E6kPdK/L1tOQkuV7EpTD4xb0ScIcMlQ
1W/NXdYRVDhSRhuvDjeFYtk6KV6pGK3/ihKU2TpiX2ryKmxdmtNj6/Bs1WzA
1gltym3MomXrnlnGuY/ToLddlegWSXDSOvc9uoL0DWEQiYy0sSJJNw30WyW8
tGOi9qFObTGAmF+KWnmunbu6ay9zCFUkoiyguFiGknox2131SGOrOUeF4gYZ
qkeRIjH4wGQIjrxZQak7wtIBP7YFQ1kxucK2pKkatiVNoJO9lWSN4YPufSRK
yohIjlXhHpNNbGyq/0y00UFTCN992ReWUJONLjrmSD4vCDldk9wRncUqat8V
5yt5Is2gkTrywU+5ZEJfF1n6mi6JxIph6HY7HIfCWbbnIp14XjMTdC6MtO2+
eQrmaPNUJS2LV0cAF0oNW7LQvhKBzKsLBZjueGkJlc51vCVyCYAYaQrbQvRS
QTu2haIOY8y4LTLLNepA100fl20Lab200cUoyArqG4r0393NtsSS9bODy533
3PcLuWKscP1KsATLyD59rrO0YFLOS3kpDa7Rqcn34vkBY9myijTomAhPWW4q
kpEwUt5KpUKyzKQ/xLlmkfX1zVAQTpe1yzo1GlH1NgdNiV7CUfqVIScTWm2j
ZROs2AjSbiG4cOBAYSPSnDAbAQGUv6Y+hVC+Vtm6c8974hmE/HTyeGcD5JeS
hw1shygynelWoTqfv+SMKq5Cz2sjFc+IqrdvEEjynXQ6dFoVvrbbX+inQGJN
VBeLKxopKWKn4J3+bWWuEBMeRFBU5rCmhKv7LoqUvq+RaqnFBNUAfd6yjZFq
0lGM37rm7nnvKXkamfW062j5mi0f91spDTV3pQbxZGgSW/miM6XEDIX6SrfI
hX25c45ksI62ZLMgF+OKGY0R7Vgrhdo/NJarfU38IMTVabhszZawrlH+r30p
IST7Bc2gvwWOzkfZ4CtoSQ+mPaJIS7qeTrzwwUhLOigUu6Ekje437+78y5Kn
xZqRtDvq1ln/6LdSeiArBFreTPXa7XN89kBuWVCAoRNp4sutyb5ByqQCQiUr
JmHLhlKBO2z3yNy1jbi3h0YT2N2Afk3CNjzAWB4KpG6TcX8VBai40v7YClCA
AKiCwlAgTUMzfQHH0oflfNORV0hTcXYOtBT4whWbymZcneMryeomZmp0LOCf
hnBN04F/qjNN2lJQK5nNWmZov7vksVRrpVFdM9ZoehoWm3aeiPiz0+pcYDqA
qkMpmQsPsCUJhsoUsyvpYIviwKy3O70qQ68DeoRem7TsvNpXk4Sg+Uo7oLTe
gfLxL+86OACadOXQeaJLjYWEfaiNDT/e5OOOYT50T4O21PpwzDHHZJdcckm2
devWdt8jHFVPvjlrHOkPS5uo4AvqNUJtZ5bRMUBSWya4sSiVd2V8cbcn1TxV
AV8gnmQRwhf4LEqMfN4x6jZJetql5qucdmVYvqu7ux7/fW4IVowaNSoSpCoe
HNR6Zez5uT1iz1XdRXCJ7B2KVfQry3BP976yOSnvagnCgB4gNOkaguM1Q02Y
qg9MVej6d8JwxR6ke+65J3C8nNXOzs7QSGBuDl4nOT3Dx5N3kT1wt8zbrNHo
n5aR0Vglo0JtiSEqMH1VQDlQ4Z1+gyw+bjDFR38uBXHSkbBfoZIg9L72DRHA
vrGwmtqhb5x+rZ6Sl4xXR7ZfV1+nPayThNDLIuj0qaS9TUckR456qRAguGKi
rPiyeSqUGLcK2Jc1J9GUo5Jjb+vz0E+/ICXGjRsXUVViQN8zSRajcFTvKqVV
2Fi8APVzsLHUFJuBE7s6wVJ237adXWDTE8P2WEp0aj72gy2Wke0WQq1M83Tu
7qZ7WKQmCt8e/uwbToFiCfjTV908rr7jrQOSr2m6dHtYOgmGNp811thVlTvQ
fcLgMMSnnCd1CpaNNIFmvZtr1tgYVcYBVPZLNui7S5cu9R3vnx177LHZ1KlT
I1ekM3HMOy0wAWOOVJ8IoWIJ3ZWTG6aZYNWZDC9jAir9qVLUr/2bhmGMfJWU
wQT4hp6O/ZyTlZEJ0sFz5s7zHGm+TKswPzW1rVIJffwQVbVwvcbhUdURSkoR
JUWeyoaHvPMZPbtppxaNYWU7vnnz5rBMfQJi/yDXH3roobjjK5N2OTPPCjvO
cVawnR2PfTs3TItd8XgL+jV5T2NKii/dQGIOnK/Lb51Frz2msdLIPAl3VFnB
zzlmcvM5RfKaPKTd2/Pd26YzqN6kwex1/rGiOES39TsmN/4CNIk+6/3zmvSM
Ve1yz3Pdr8e5Tp3m9zduMcnQwQnh0fAKPzA3ghIT6S4TE39escUNI7G272aL
KbaXvuBJOM2KurPFWIMaOyqB1LDF1QkLEsKtEiJEY9POtjf548Wg6fRtBYrs
GWWTE4rKutXj0rY1vttMWaujkB+deZR15GrP6yroXdjSWA88dFwkNENwrhkz
L25pOhbMTnXZlv5Zya1mA6CB0y4UnoTvrsKxzzpC2kacpGtvGZfmO2rsa1XC
422+N5WplNa9dRxbmYyElt3W0Lb3LSHAu3r35FZtc29xPpBhIDNMSlvnW45Z
f3+EzG6dezP5wmPkmJ133nlYZ8d61asGPjRseD6wKfifg0PxAiF7PDDV3TJG
h7MpGWq+fdjfgDE7zTmXKW/bBq+sTRv4soxH0NU+evySuNkKiKOoJz8yJc2Q
1Bh8XpYiaeGfp5vc6O829vO9wR+hyDpxCeUbzN0qzcK08MrTHS4+Nu3XS3dY
ywg7mWXpDuN6Sy7I9ZYY27ZtG8PA2Ub9mslb2OR0glzHlk52gOCJxlh9KrkV
HXvF6NlojxRrJj+kmtssPlZonE+6j4el711gaB6xLxVPft+JoDglPpmSRHq9
QFnS8my/RtbYlIuXANZ4JMXeJtTitTQ4xMwq4hZ+7ztKnsa0kXzmW26f2hlh
hbSIf/P23TyMqfmqYGEoYLpTazp2/MDRFgwUuIn+JjVrZSUOoG1mVTSoC2jT
36RCSa6dnsxaYbiZqehwTeFMJqc0QZvKCffNGJnGPhkekdcUUiRr89SmnYz3
Q2bKVjjdcVZxBHWyEvF6D8IhJVCclSxNQt0sggLaSB/NWeMaXe5zl3VEtFWW
AaXHPvJEGdqMo1B2glCCmRtMsyN/pWZJ0E4Lm7u696VTFuGCB6av+lG43C/E
vYhmKnIlSuhHsmGIf3WZ13qLyHaOCtjekGSiuUY5plILjAFkVpIwNp56Wwm2
b/XtEKxkV5VTVB4KlOF5xc6wFchDKToDd3NN4Uw7uT8Ol/NMEGWaMu00ZdFA
4LU1OO7Kf3ygEU9Kkc83lwFaC1AKcY1nPu3wpxPh9OKMAxG3MnzbY3eeJL0R
m1GPJAP02gpQRS9pRhccTS2AIBvsIMio5/vy4Or7WR/yrKrCApJUZRr0EUnl
eGAoY1kYSlVuROsfnr064BLQoy9e7E0Ew4QD0CJq1bwEVrRYDh/5WC1lWDhz
4uzVP3HE5DshwUVLjXLlWKasv2FzZwNuaSn0fVr8CL+czmY09Qr/MHtANoYx
DT5Xun1vTtiV2JJ4S/O9wJZiZaUFwDat1AdbiqJ8EvAZvrRS3Uqh67EitqYj
nOnL4HZorMcHG1FNNV/n7m5QVYaJM2FAf8YfIlUCuyp8JnYd4OflGYb5m8Tl
Cds/g8lhdKmSDxVhlq/ZgsKm0EI2G3TlVS+i9RvyZWzF4/XHYY30KbTuH+EL
sAl6xwujkXUNLWLWWKDLMwxsNwlFH+xgLyYySiegPkypMTsZ7lI+FMqkc4/L
1EzZhM6yeM8Af7SuocjN6SqbXlL29d4+5pmB82w/o2+4Rt5Gv4ogHVAg/XcJ
1rNHIkq8FJFGe6mmQTqiLJzf22flRQHRh0ZTz1q8IWbkCZWaYPfMV5/YoSbX
XJUoXV1dep/LMyr9J7hZlSFAyrQa3PZGX1FCgtJ/DVpSxQyHjGY7xQc4ZIOS
Cstn65BFX2lz5x/WIcuvicTSglSAyZI5kE/5LN2a3+fTRpmTavvCyM5n97Sl
PdZH+DViz6qX5bTJNkV0ywVdvHixXX1m3R9sTc+obVsatY33tZrPRyMvUXnp
21Xrt1EyQSxVPZlH+K3pAA7zA/EOaORSeLaMkO9teq09XvPAGjwpS0NE001l
VVZlSyJqKIpRAcw/NO4X7y1QmSL7RR5Kgwh564amN2Gq3PfoCiK4rTIukLln
+mRAQ/qkIhtUn+dH4a7sR7xQc255HYe5k7nteN3UuD+82cJ7stkf8qVqNRni
pEoIF35UTwvxVW4gG1h3/iBCUY9bGEQFuhL21ygF6BoD9NdPjXVIMJXwWbdp
J7r94Fn/OQ0JiyY5l9Lg3eudEIoqwDHy3fRKT2icpihBi65ivVwCL1vSk0iG
Kd6y17HSnimvE8tWjzW3w2lcn/GhKsQPNRKYI6bGMyC5O/pvM2Kpm7AxaGHo
4MSDfe9yDQOqcgiRykbdspNOTxyupc6Quei8eofeITm6YJHOFoCeJoai+7G7
a28ZPSnXUmqI/nUFns3/rZ3my0iAEAQ0j6ZA0oUr6n01AEOYStWDvLRJwRoK
/EdPWJLzbMs3SDUJyUP3g5nlh0BQKTksdM+UJ77ot6ZjCcEnHauDNOCVSwrF
nVPymHanrGI5hNsUw7JTXzvV72BKuvx0c98bKNvYEWlyhK496uwlhngnGspH
zvHiVZtJZrZ4N1VlNPzg5va91rHW+11wy1X6rAMEhRm/oIYwKJyGHaEwgXVV
n5VRGONENbw0x0t8qK7jFCdM2j5qTuWHGykszk560aEwVfhK23zJH6KF8NH1
MPM/YklcCtRrkvvx8xVR3LR1l6/Vlpa3RgIQ11JxOTFW7Q/RyHnLN5bRoK8/
Ti0JVHzoHMtv+U9fBr9FmBpPOQ0AnndLzl3aERtDSW1qmgFvX1QBHSEtRXWk
ZF5TAhG0Jfah39lLNnzZL6fDDYz8PJF6bgWDQT++2C4XX2Xo8x5jeYOS06xs
xoZ24CT/Cvbl5bfO8oajHmWuaoYGGOoEpcz/w4HRMUZamPgKWAZYCMtInCDf
Ro5bxPdUCpVEs5iDUZjrQyqANIwipOfGR5C9UjCTg6Jf9aAYDU/wNeMAt8Eh
oFtANI44un9hRBTkNfhhoK+CKMn3raOs8ZVWM7EE7KNDLp0P3mmyzPa8+NIw
Hw4N3pwUvXXh3JIn8iZFnQiKsPUb3rq9c89xvrrUNv6BLfnRRgrQ06FaGijA
sVOYemBydLH1JJnreZlGoI7w+/VUIv6SP3pX8lf8/pjD2bgjjp/Bs6mbPvWh
lcoslRGAJhvZPXCZxJD89WMde95Pp8/jQMuI/cPJmAiwJ5mgyn/e5CwmgypK
/ChzeERT7OtTfoTpopVP85LotGUTxHUqg/i4flo85GlloRGuDHfeoK1oJhJI
T1MQ/hhfJm0fNCv6Y424U48hGwXcqYYw+6Wh9xJLR28tE0O/ugQiGoehqX7N
Tv9aYWkjR8Sd8g9NkoTrqd+UqXFeyWNoVRONeImafsWc5kN+K+E/aqBku3Xv
3V9rIEDjK8ZsgwEq3aSv+WpKjeCzSREqoP4nJcBxotO077Vj5n/db0UZKdXF
1+Mc00nLIg2oHpR/XEaD5zsNpKpJawTWHD5eMnlQ5MKFkS9Wrtv28Ub0G7Kp
G3cAD2jGN8fX6jPy9GtuVrg1QPQqp4/q9ajQ1KkXj4A0skehah5C+FoSBqRR
MNKvZUi/0JFWWzzv09SvIncmWGnhxjXUr9n/eT9IbBaqz8HtiFMRRQi+YTxx
lF9mE/RrPF3Wpf1KR1+Jd0CSYWWKrHaU388MT7XR8EQJU8oFl63ZAgWopVFX
WBkF6G7TQIC0bF82pXHo3/hN0geaRaIeELXLKs8pZJTXVcebCmbVV6jYnMS/
lJtKI6TNVeEu5n65Y4Z0cts6fFYgKfXZilOBYBrMsYN6lK8mvLEjZcBoiuIr
SxB9hd8vRNkxBZ/t/95cVW/W1ShJHpv2b5oGpIQiTZ4ZNGWkzfvR+gUIZaSx
OwP9wEvg0x6o8IWyzOppV0OUmNlOzQv0BftYUW8xgeJBIq36ae0rL/Jvq8mJ
8gj9ygQxDvxEI1F5H4ByPq/yb6ZoeAglf63A0aG7RtVr+lHvkVBTHJA0XROf
5+1O57K+JHJfyXJh+ZkzZ4ZXFisWctxxx2XnnHOOwoAv9qUkkkiRSpSoPqWs
Sx4G05ZRFCQto4kVL3GoK3OPA2iuYslmkBG573WfVv8yesR22rsnL4fdyC4q
4mSMw3viGPsnDfbTEtQPc15Tcjtt0pXiUdxFquptTh7NMdQYIvm3MkDUXZ03
AB8azCoNdVCmWhVv13hbps65/ta0CmnFc6+bGu7TGCj6wOX2iG9lLat3NnRz
HzhA5b8MVTXGmgcSI3dSNITyC9yaDlTOifPCOEBVv/618LdCx8Ta1N6j//O5
CizVE9XR0RE2uUlaNifO86paporL5aspttcnrKaNV52cIoNLliypwb6qtsIx
kumkuXLMM0n3kJEF2h8Mw9BKu36bd7r3rc4StxcbwKqgo2io+TyxQ3vdT3bJ
r3LsNHkJnZa+RgVlRF2W9rSMi1/qXKxWW2qh9CtjVKyj5BpFj2InmZtS1RKN
GmTAEBUl2ZSUk8ksQ155y9iDllfWq1xJQlmHQDbd0UPu7eNnQEaHNKz0mqJ9
GuAhXpYek2iR8apjKh6XpNVICRhatVY6W3rQJxsZGoIoz0JntLjKB5lls+Yv
ywaePjI76r9GSSLFqI8IjewlsN8q04k9/vTTTxcGpbWHg6Ifbwnj62lxOZmk
Cy+8MIh1/Q9uVsAJIzgIYzMseDF8upeH+/2iGNwsyipodLijX5WILYMBsdvz
9U7PadrhNuTiG8Kz9U5ueJMJOHr5DLyJ1BQPl/Hm4WyHnWZpaRWCs+vqQ1aY
0hgr+uySPuqQkbWjUQGmwmvMvJBDKSkqR9KlpK+f9zjrmuakSpIqqWyS9VB/
lFhbLG9CwqvbY5y1MFLiZU6esWPH0uCVHXvc8dk3Bn0nO3rQMarKqeSxVkkO
eEyRyuLbrqTs9ONNKjwm7U8hHK/CoJtvvjn87zCnnYI22LjiMY21hv495UWf
UERGEFQ8puAW97dKP5bB0ZzPyvpu2gNePx5yMRYtbCYBoktKXsNmVFeqtj2w
WcAIdSDJJLNaajVnrvZAANWZyPS2vXiFP1OWm2SbTEKzCmAt1foonivBpfBn
fWJRv3B01ccgC1KKXBVycqHrk4/6BLtDvq1ez6mpR3oP5r808lnn7gaLuPia
IVVtpDndIl+1SkrGl5S0aGljfJSGQYrfpBJVISXrTkpq5cqVkUGEOT6FfhXR
eGmk/kv8LmVOCLPJcJKoQrT1TJG2pSnSXkFDpXYZW/XEtj1ge/oZQwM8ts2w
VfrGMdyR1Esx/VQmwNgn8ZgEmAbztTmPSSDJhVOgZA9+RV7cIlkkTSeGUMIc
RhuYh7hCCkqei3QznQGSffJJxCnyKsSEeR1hnMiVvsEFyNIByFUc1EoywUGt
WuTyZ+SejL4rU1AqSWMITFy8zD+WpZFGg91oLRvdggATQYj56ISt3rA9mny9
q4doChUtDs9ENp3500sDKJeMmll/eY+/VHXxhh6NBf5G4zImIhglLSVm0dQd
E1A5U/SL5r8kjMwmKUDx24GIV/981qAJL5lQmtUmZSx3WMxk5nEfZ0l1luqy
hJBx9zmN7BNHBM1dG9knrXquYp9WeeW3Ok2r2u/IUbNJZl1Hn1q0ob5Sv3Jd
TaMxUTUlJ0aVLFHyY1Jkaqd4pYNR1SJXBgbtds2MpDKULr3qFjeIpsd3U6Wx
PBMCeKL4ZSp+Z4Z3z5xFHq6RflJcwly+/r6tcoBkwyiiYRj3R5oY8grqKYak
b4kA5zduOS0keq0oW84weVUgULEgyTtx4sTgrLD1JHaaJMEZcVXVmFckteo0
yIRr6gT4IzUkA2X7sa06cEbGsiFFxOCUESCUpd/zzMk2EQpfNUnR9+0lYPQR
FKYw9nfWaIb7PZMWxv2GNTY1RrlhDZJLynyVscZrncziOuWn5NLJRjrb7RC5
cP1dksiI1YtRFIiQj6Z75bPJHrmwkTHSEUowRjr3F8YQ3cQAOudFxuhFMKvY
xFeke5q91zJg/Qp/hEYOoxNkZenMG5OUDS8iLC0DLh0apijMvv0HmKzepKyg
t4DBEIXZjrlB3L8M57T2DEqnb1/CyOUFZGrpKmMEyvYlYtRZITVh6uCQkB/J
c5eqyZAbYBS6rHG7edWDWa/1F7PGd1U8VjveqaNUTDopS9Ft0zsvKIEnzX0o
WobYky8x7fF1x/tXmCyqXopXFqG5ekrUo1omjq5ct62MAlMbcUpfe8LK5Aqu
GD27doKfHOlOeX+01Cg8JFZX1UeIboSnEOfQecH11q8KrTZs7jzBHyAFrct6
lQgPTV+mCTrp1CMDoCU6PbJgxGrTVxIzrlf+CC9AQvtpfkh94GFZfjafRoi8
wemVJaEs0Yn+vfR1wSCIm6/6F+QWkRnliYe2xq6gGMGuPjNkYe1kv6b9UtDL
oKuPErVdUGpEe1ZWk8Y11VHK6JZ3xnfl2elk6A5qLnixjQIMYEkuTEUuYEnX
msrvKrB8g390SvJWKlBkVJtiJKf4NUWcpbTSGZ2K16lgX7U4ZdMEkFDyDTQO
QyOU01G4Og66g8KaQtz35X5ZKpZWfeN1EKWoRuVMvUBUvXe6XQ1BIMowSb1Y
5VS/JiAUDtde4jcxvFzh+e2dXWWFWmgfxY3UXCabQIpd0+bBWY64Yp5i+u85
cpKLOuY64kanlyeXIcWOXV3gzDgqbXgvcKa0TScRnBVEUW2NPcG7m9uCAyeA
ZVIzUlzWm/CWP61HyC5TwZbs92OHjuuTREJlBSt6HZY7ROjBoOk4BeTM/sYX
TAY0AhYO/GE5Lkd7txavP0mZw4RNBfZlaUEaJhCGUpNlcmeAbyPXhLUccU2I
LGPx38cmhNxpel44V+Izhdel8ZXs1X2SZDL/pfPE8VIMJm/7liz1+9RfwjW2
USpImv/oJr0X6XfFMnpZWtkzGEhO9YkCLheU3NeSO+td+PrMeLw5heoMSu2A
amP+UBj0DxkW9ogAZG+5T4ZMFffRUa++74PkPgyekHHasL033EcDiKT//3Lf
//uwxDC02xG95T6VUVZxH0ax6k0ruI+XxlG1oVFyeSClMIx4664ybmresHVw
12I89ar6u5IBR043BZBmemOA0QOq0qFeIBpn2UxaFldOX29jhtdZJatwjUot
DWfg62nB9+6uGJShYH/+8o29AYz6PvWssnL63lpDvwowxompl43USfr2I2y9
9L3I5iX0AjAcbbW9sXL6MrKzdS2sACzpS9n4Bl1oZ5vHASyF9xv3ApZFXuaq
UhZW5t1N0vJnV1CIlh29apPv1qejzI3uWvq64mGtQOrxQtTDC6uc/rOJlVDR
ZHPBTdMjVDCZnCCgujN5GUwvoApvm/WYl3njQEWXq3qoqqCii0zD/ICK2j35
pUBFm6QCjxVQ8VZhjrWygICUzn+sAmlG8uKAwx1LefnJqyaAKn0B87DInQVY
RjjoN963IMJCpbdKmKtgIb6hiTbAQt2/9LVJTmCh2HrBik29oRAFEjIagIpZ
B6MeWNTjsNV7SHxqGm/mgP/UQVd29k2g9wIcLOiTho+P4NAjZJxbQaRGh3nX
nr0ARjREHaAAltLObJ6WgNW7TAfmvieLpyOtqmBLVVvHlk6+TimnKM0Gpi+s
uLA1YAVfmpXTmeJlgHGNM6sMON8lqKuUG1DFRgPjkwqoeFU71oVKtFk2nbNe
BVL68oSXOJbSxViaK+u6mFfVaQJkL6Aitzt6wpK4ctpVYzxaBRjSRFN3+Dod
hYEvuqMu5o3X5kT3BjAiwJJJrFwY3FUFGF0AehovaOElFnrZBdF6Mgwqps9b
UfuoXCHMUGcS/6RJk2p0hvuYfZ7XbGp/WRNzAUHaMiUdgHBVvYopb/4OK4AT
6TFVc/ENgv8SVhxlKR44Y8VTW/MYXr+Q2BKoAl+VGioWVWnvggULYnFycUZ8
k4nzLdHrIYspGCDUJGlW1ioMrlgKii+AKxFYBZljKXoi4Xbu6iZeqdpkVTnv
378/prk1NUhpLv2vbK562dyFAlI6GeQ0TeiDVByue+XkSqTiTOXrp0WkVOKG
uASpZfVXh2szQUp5uQsuyE00kFJyXEUSKVLpqPAKpBjYhd8hdwaMMIlM0VRi
RNmByUf/bi7YSRGY+C3adEognebXrr322lDFm2KkrdNwpyyj+bbpVOzwcfC7
pzSiRLpcUXBQomFfxn0VSulYXVCCmT0LVCwHUEkvKLXapBYjoCtOFsihvU3E
ReTSt6o1R66eztKvqUnKMqbMq8siJGM6gw3ktDfKEKfHasSIEfFYlU1ALpvK
U8AIu1JCAYwoGpdPWRSFPd5dAx5kwzXRGjzQO3IXczzqonD06NHh36r/RhT2
TXComvVblu9owKs95OkS8wsoOXCq7CzbrHgteYk23yVhc9fEencbloV0GKNZ
V61aFWZOSy+p0EM6DM++1YzbXmAm44P+tCVPbga6QYnpVIUZ9owKsPgu/Yyy
ccAM+0jrDW8OVax5c2vkwcdWeQNSj5dr5618v8OpfZCAVssU1rSNe9PWXaiD
tPnL9F0vCEG3k16gwuJxtOHg0BMfCPG7HdMHKZgurbgJ0OLeuQqEFHhaobM7
y3pBCvqVpZupP4plGybiB/m13+b8NBAfmcxQBzaKd1TVxTGIRtNF42sXtUK5
bj4oPWyMy+vRsFLUmw3Wv+05VmCOJaTCKjDHvE0rxpnvoHqXXmCevvfyqY07
wDz1d8H8tzoeiqCFumNwZEGbIhW5UKDNEAGNkqhAmwnB8SV389bWwFk17rp2
w30LnoXdPvjRTYxIprfPT+4L/bIsaoxFs7IgALxgJ6Q3BGDshJCFAOnLZ4uH
/H9wqhL4pgHtbTu7wDclg0nhfy0Aq57fgG8aLgNLDo0OA1hiSygimLfq/y6m
HYF0mNrnVovpbMr7CF9L8jCLAp6VEdRyhxtfpGqG6wuSB8Z027ptUOC3P5KI
uTHYYnKmQP/qRBuDfhr56QX6qWAzHQj6aQezWQllw2u4hhmssQgAxiSBuugp
GBs79lTARqMQHqxWocAwLXGpj5gBFipwNBAdVFT/mxSWFcfz+Es6ewEOgq++
eF31aSJb2fAPAOOEqXIWwEDFOa+ok5XyuLg1VAzxkKMMVDEbYlK+Cir6nxW3
4ru4nvVJbI0vxm0JUv1dH/o1f4pXWeI7q86tOVSNo7JNivN1qsdkzAFY+p7j
XgCm48mopvnLN7JyjMGalqsCLI0/GPscyqr2F5mAOUs7gC0NqlXARvsSkXfF
Sw9N4E3ibWWwcY1qT+V4+XrqJe7c1Q1gqAS9kbsXgN2dMAQrF7Ki9YMIOERJ
VUfBSyo5K3odF3P2Uw+zJSz1I6O6VNsNcum8GUpNcmUzI4AKL/7SW2ZGqMhy
qWgPqOARe1xvoJKpwTaZiQxUnCT1w1ZBRfm3YiRART5uirHkp5PHQPSNW3Zd
HInu4NDDRIBDWXBgIYMsZmwOSz4GDKloz3tuyX5v3r4biNIRf3Z3BamAjV51
mefAlhqZVbClFp2pZOoJEYApW6XvDL2kFVT5+xSwnUwhDkgemOjGMti4hq2t
2TEAhvdZf9dAWyhR1jXFKnsBWPqyk7lLOwBseeKH2S1VgKG0lK7n6+mg0pmL
NwBb+mK+Cth4zRfiXOgNKCyhuv16Hy6wYK1p5iSwUGygjTVdASypA9sSlvbQ
Sul+rMQx5jMpP6WBy/ruzvOvpymF7r37+TraRczKSyWIh2q4Yi8AC/XGg+OL
fliZkJTec1sF2P4kGrZw5dN8HYUlCQ5gqn7G0K8AjFcrkkaXMqYiLW0wMM+i
DDCuoUPSr6cvNTLJAGCIeGmmXgBG8lPtqkR4sT9UtVHWKAFUd3nOSpXv/QvX
5CLwBguYX/K9JUj521SQA6vWbyPayQHQ5J/mUNU9s4G5LZ0WxOqywse8+aQh
db25swI2+hHZdp3vvr6K5BbO0rxlGwNsYREgkgDAYjF/om8RUMPVcAaoVPib
dGwJVHuM+nuVfR+/TLZdl5u0vHBN7a66VYEV4uYUdUg+sZNprdKlEc8COKIH
r2syCUUwgQy1+fil1f3n+9fjYEojS+fubl50nr7CYdbiDUCUlhRc2pxUvLqc
CJIkgsHZlrKc03zRyqfzGYktgst9egSXJ0+enFeP2mlggJJ+SqYmlUVYIICk
kAbWBaNi8nIIQOORTE/jKAjAEFAVg/WCAJ3Jy5Zve2gJBMAsU0+ESfRAgMqg
cv8eQeXmM3j6Vb7DvSy8ONTBooTHRx7TDr4uyX4Z8/OqCgaiq9SgghTv9t0l
QuvSPtxjzEf/jxqq+OYxvlqr4DLCJm1b5iWvVW8vb06DASFFxnHSvBX9qPoI
FtEL+2yt4ktxZCe0JEJbYDYv+6y1O+ZhYK/f/l2/r1XIsTnmrUcYlMVhKGDk
RcM5ZPmfckfUbak7QBvpoiGJFWj/pX+UvDQsNnyJ93Vddxzr97WKLleh3Wr2
R7gvyIuhzpGjkmG1GJxzl3UwGT99nWMFjvmrG/rEWWUKW4nX9bIuukB/29uZ
Fwrlwl0cqqogs3+YUc/EQFkIFZiN8o9ahX9bHcNmAxHKjmH4sywH6jDd4ntX
Gazt0bDOpJWqZv3fBJrKwGmPbmlmo5d1iJdpqlZQTD/Y79Q/qZcK/KZr/gF9
J2v8ee3/Xk2v1v7ovwEsLc+u\
\>", "ImageResolution" -> \
96.],ExpressionUUID->"24eee5ea-c8f9-4063-9d36-9e38f4d71b1d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "/.", 
            RowBox[{"\[ScriptCapitalF]sol", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
           RowBox[{"{", 
            RowBox[{"B", "->", 
             RowBox[{"eqB", "[", "n2", "]"}]}], "}"}]}], "/.", "s2"}], "/.", 
         RowBox[{
          RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", 
        RowBox[{"t\[Infinity]", "\[Rule]", "100"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"g", "[", "n2", "]"}], "[", "\[Theta]", "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{"B", "->", 
             RowBox[{"eqB", "[", "n2", "]"}]}], "}"}]}], "/.", "s2"}], "/.", 
         RowBox[{
          RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", 
        RowBox[{"t\[Infinity]", "\[Rule]", "100"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.817270250152678*^9, 3.817270266945251*^9}},
 CellLabel->
  "(WOPR) In[193]:=",ExpressionUUID->"8b99e721-7bc5-4c63-b150-8946bb7d2007"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV03s4lHkbB/BxCKGtfZVXSKTkzSGnVMSNZEUqs0ohREjkVGEVyaGiCO2q
dWoGgzGZeZIi4acwiVChECrlkKZIxlLK3u8fzzXX5/p+7/v3u565HjWvYLqP
KI1GS8Hn/7+MjKXOvr4zxKIjfza+jk/aD+96/dZrhtTTz+vwLvDJd70kv0Me
MyS2eBFTxJFP9neIRjodwP6b2Tjl901kiezMdSs7tEjaFy3ZJhKV2N+noovz
Tp9riHcDcYpku78UConF+H8MDPTrSdxvIyP0KSGJHVNf3/qTEJ68enD7ZzRT
vjIhmxDpOzlnm0bRbYLuye468uDLFcbtXnTIN+tbu2uJbkD40JVaIaEJf3oI
91QTSfftvraJmNsxuJyMCiLfE6gXeQ4tuXXTdoMKokHP/FYcjX7K2Wr1/Dax
tvmQKhmODlcrjZC7TWJ1r1TyfXGfq0gjP+sWmf3ZJ7XDFi3H8TwQVUbGboRx
LGXQ5d5J9ax88s/KnFOhkmhu0sVHC0wi8WcTMMXQ/mcsuS5MsvaiQhdtfprQ
TDqtVskxiGdI3TwRoH+BqbWrskmPhfRu83a0LDO21TOdNL9lTpqko2np5bIf
bGDaYziAk4L2TNlxJsAV1AY1R5WS0Qz/7J4CH4jq4w3Mx6EthiPecsJAq7O2
pe4k+smJH46S5yC1sbfQ6gBa6oK2b9MVqLZapXrbCf3evaeenwaj9Z7Z6o7o
2fcpsux0sKgdTRe3QyuuHXQ+ehWm7ghj+KboyZa0q88yYV/xrwftVqOjJoPM
HXIhbt2+rmol9LvPtSHL84BbcH2PlgI6JsDnUW8eSDBW28j+il5sffj4RgZU
XdcxbBdFHzAZNWQzQTl55xL6yFcSa37vVW1QIdhKpVx8OIQekJ+XaSiEU+ef
ihm+Rmtf2XhIngXtcc7f5HrQvQK2eDULzp72Ge1+/JXQZpS32AmLYCjw3IOD
Zehes7OVJmx4qLFOpZ+N/fL/zXlGs6HgTXOUexHmgu00CcKGI07LjLxvYM7s
+WEGpTBieqMoMB3zEaVX2w05wBdaiU2koHcPfC8+zoFi3ohHaDL25e50/yji
wFF13ZXh8WjGePQf8jdhXLr20tlT6KgS7UtjN6Gl0XNMJAzn4+WJs2IZcGLE
dyQEodUFmjL2ZRA4Zf/zoh/2Cw9XqbLL4HNvX0jGQTT9ksqAMxfar8a0Ld+P
7n8/fDeWCzyHNRuu0dGu9n4BJVwIeeD/LtsevUlM1X2aC19KZvexzNCJla2m
MTx47pVTvt4EzxvkfarJ5UG5ssXSUmO0svtmmRoehKVdaOZuxH7aiu+SQh7Q
7bTW6Wt/JRZBHz16JSkwFO84d1sT+2srGOnLKZiOkDetUkN/pL3W0KagS7/6
mokKzteeeCeymYI7Hw9N1yjivM/3TlNLCjJZIo7w36+k3rWN3WlHQbgHq+yB
HObSLw42/07B/pU7pa2X4b6I3C4FNwo2dwp8+bKYy2hJNHpToJCS1mC7GO01
1t18jIJZGyPV1kVopXgNjVAKemg9ZxxE8fxrbd194RTcqz7d2/FzisSy8mqG
T1OQdXK1Mf37FKmXobg7YimI0m3I6Ppnilj0no6ai6fAZcx3Yv805tEKHxbO
U2CaL72rd3KK0NLk6pyTKFB245a4fkKb2VcuJFMwv4K+aPAD7jfnX565REF/
h/Cw5wjuO5w8aXKZgtqkv+uGhnBfYGhqK+Z5282UfF7jfNi8TDHOx/x4EzH6
CvvO66SeXKTAvTKhy78H+/m6SlvxfAjV1Bd0oR1DXwjiKFDVepIS9Az7RLNx
OIYC2nDw+GQb5se2+a2JouDhTlrS+ha8z55UcbWTFCRw09a78zG/SNttfpwC
Gzk1/p8P0XMi5pE+FEhF3jrSWof3ORnb8ATfd0u/pZjofdyvkfBgK/4fly2f
M7dUoi34v9TaUrBU5usgi4fzpY23fuhR8DQ4Prqfg7nt8RN31SnI6JJTlivB
ffeMXM+soEA+z+hgLAPv81KBay/gQY9o0z93c9DcvodSLTzI8tuX+ek6Oqf+
WyuLByr64Z0u6TjPnjbf48yDN39JhKWnYG7UoCGuw4P8b5nLmpMwT+kYLqHx
QKOx0mFTHOZlx6bZTC6MadoKAmIwV7r1ei6IC6UpPcn5UehEyReqJlzQcZ57
tPQE9teqrul9jN/X/SRfm2B0X8XfbqllQKkqLooOQNODXbP3loHRuInVuDfO
Dzwv0m6/Cduiz9Q0OqEP7dxcd5MDP9/Kun7fiybhO83cOVBvkzun74D2F3QY
LeGA9bI64xs7cJ9DxzZf71KwL1ig/jDGXEbgUjZRArJSaXsoA7TKxPiTSyXQ
Hqj6eUQX+8y6ftl1JUA3ttRyWo/OE9t6b3cxuDyOY+kqYL9iws8gmgXKunLW
PsvRn+yf8WksGMwoGMpehk5ubBY5Vwhebo2rFy9Gh9DHVkcUgP/Eoqx3c19I
bNPN4+WbmbDBKXOL4swXQjOUVDLOY4CgSuPl3il03XwIh8aAkLjflteNo92d
8j6E5kLkiqTU66/QNXmpWSPXwDnGcHBpD9paZ5NEYiYYjw7oXOhCLxjLuyj+
BcIqg7ZTbegxNQN3zQzoUhtQ/vQY7bHBcBcjDSqSLwQe4aM1C8eMlVIhzK1f
5neCNjlwrPHyBXBsOu/ach/d7+UbqJYAerr6HMsq9PR78W05sTCxkGindwsd
yb5WdDoM2o/qZRWXoSdX5ubF+UCFtqGT+E20ashZHWc3+BcTsKOd
           "]], 
          LineBox[CompressedData["
1:eJwV2Hc8VW8YAPATUkbIKJGZ0JIGkXQoGlJRiZBkNERZGVnXSFZCMkIuRSoh
ZDQ8F1nXuUZGiFyJ7NHW4Pf8/qnP9/O8z3jfc+6555KzuXLMnoMgCCX85///
d/du6C96MAuEmdslB3k7WH81RPlvCprbPe2YHg1G93XXjcWjd8X5hIVFQH1+
8EqbWHT455dO/DGQI65yvvsm+tid0qmvcXBuLIi7PhT91JxLZEkyWG/pDA5y
QN++ULb4Xw6Qd2ltc+dmgSbBvuXg9xikOTescbHFeOjVr7q/nkBfe0DVGUuM
33+dY9abB+Ze6xZpH8E4zV3z1aZC0BxoMyo2wHh0XjPRWQjiBv70DftnQSf5
58N9PkXwTrKNlNBBZ+rs4HxdDCfA1//nFnRHQHCpdClsU1ZquqyC+Qn5l5wL
SkE4tlVqeD3GjyqxksgyaLVRfN2+BvsZe0e5nSyHI9wtf56JYbzcbsXw+Zdw
8PAab8e5GaBJB+TZrwXgPfuCN+n7DOhorVpVmgbAdDdOrZ6dAesilbnfPAww
TA0AibEZkN3+Y1TdjwFHxt8vbuiZAQbHKZN9ZpUguOCa+K1zBtg3j4c0RFVC
izDvOtk2rG8ivN2ZUQnGOzUMPRuxPv/UKq21VXAiPD5u7Su01MecvUNVIJq2
QcG4DPvpXX5uLVINHQVVz32LsX5Lf0S1TjWc7JrpastFl5jtvphcDaeUDssE
pWF9vzCHO3vegFXN4twP/jNAPHQdUvCsAZnuVG1eH6yXvotLPqUG2BPbmtU8
MX9mWVZ8RQ2cFbX5EnUF4y6SDwc5a8HOtkJDyxrr7a34bh9WCwqeJsxzlrif
haSPhjm1MBQxYRFnhm5QNXxRVwvnCiUCRo2w30L+StXFdXBxkWdNoi5ad+5e
+bU6WC8mYFqtjfW2xXVxJ9bBmHLWyJQmnl+ewtWRwjpwNGrj27cV16+T4rsy
WgeX0zcf+yaPjjRbX2RcD+7aIx+MuGaAPqIve1CoAUaj+o2jCZz/6598acUG
eFn2NDxxbhqs6bQFulYDRP+IMLk5Ng06+bo8BfYNsN1Vf9KLmgbascz3IiUN
IL18e9vXN9PAUON6cKmhAZYUyJdffj0N9BOWnF69DdAzuRBilzcNRFm/ZOEi
JtAuvlhtFIP1dpz8WH2ACQ5LH3E0hmH80N78rlNMOP4wcUQ/EPu3c3TmODBB
cci9WMt1GmTzRQ39I5lAWW82VDoxDezJx33CTCasNHvgM78S+z/5Hk3TagTi
Z9xZbyGcLzArI+NAI4zdCdz/bSnOI/tWPNykEV61WYmMzU0B45RI8tPLjWBz
dNWTjvdTILuoSub0vUYwnFoSa9SOcZGFrMpHjaB284dHI4WWtZGZLW6EpY1t
eypfT4GOZx1vEbMR8vZF9+SmY1xu+dbWr42QNOTLUEqaAlrGe1bKv0YIDLmU
nRkzBQRd2EFtCQUnqg64JgVOAT3XK+zdKgp+a3PyhthOAdtx7Z5Puyj41Ds7
PW8xBdZ7fN9u06eA5cPu8D6B6z9NcZw8TAG9/HXGFX2sPyjyU+Q0BfvUvDQt
lLD+Oc2qwGsUOPTeDTSVxfnqYof/0CiIDn7dcHwV5idMnjG+QcG7Vg5zQz6s
vyQo5tZtCi5cvnlNe3oS6Lccnc4+piBKrKBKcwRtPf2mIp+CgldvedUHJoHo
efJurpiCOV7xFJW2SWBn3DTmBQoiHma+lCmdBBrn8tOprRTkHanhXF0wCTp+
tubTHRS8/f75kPgjXP9gYK98DwWSept6hVImwZrtO6T8kQKd8aMKy+Jx/dwH
2X9DFNjFuTry3JwEWa+/RwpHKchll/5dFID9F0yCGDMUtNzo0Zv3nATGiPli
iW8UfFP5F/XbGetrFnqY/KRA22+P1FcbjPNUirv9o8BGwd5+2gLzd6yqMiFY
ENp44+n4CTQH7yFJThY0rWJpf9qH6z9pDh9dyoIvjOnrbBL382O3I/CyYMUF
4aZeDZx3hVO58DIWnCkxtepYj+u1PSPsl7Mg5PS17NY1aJVQP3sRFuRwpU2x
VuP5KSqvMBBjwcyxj/61AjifULRQlTgLRH9z1VUtwf1u3t5nIsECjQwlQSCw
X5Da2mZJFlgeMDB9OTcBOpfKV6tIsSBw2jG99MsEyFac++kqzYLshFufi8Yn
gIixH0mTYQFTu3BzwacJYP+yls+XZcHUp3bP3L4JsG4Ne5ctxwLhqJ+Q04lx
+9ua1+VZoL5NYmlW8wTer+BtsIYF5j27jDLqJ4Cu1l7/A+0feCYprRLrb1U0
jVBgwX3lIHbyC5wn7c6JxWtZUN/8QDmhCPODYmfOoyc86pzjcnH9nLh5IVpI
eqwsOgud+Qo+obfX8C+KvIfzrKUfXUCbOW4+eCMR8zN8dnAossBX5FhscAz2
l0x7MIlx+gv37oBwzB8Yra5EvzmbKOcbhPOP91f6o0eWvrjo5YP5GolMBTR/
Qe8zd/cJoMlU8xTjvKqmC3POTjhvStHjjWiTebk9TuewftLJrmjc364/UgJv
rXCeg+JhTDwPhV+retRNsd/dKs0JPC++72LZKUcxbnZH/hue55fZ5a7EAezf
dNTzI55399Sy3fY66PCtjqV4PRjjPLxMDey/fJGaG16v6KFFmbfXYb+qpYJ0
vL5XP/5z+iWH9QXOX1++Cq9v/5zmaQn0k/lkh5UsWN8926rIh/X+iNi24/2z
vHMyLZIT82WEvIfw/vr1dvTizJ9xoPnqz3wQZEEtNbDoxcQ4MH5HMiL5WPC0
oY8lPYTxo1meJA8L4mu7k4P7xkFWjM+wl5sFNozWLYebxoG4uJvr7SIWzBdV
nmXnj4POc0d64Q8Khgpeb9LPwXy731uLv1JAPS2fe0QfB3py0n46ft7uPnwW
6xY7DtbN6zM1xijYkZJRye2G+XO2JZd7KZBOSrt56RLm72n7Xt9FAfed5FMt
ttifdpJLED//7dGxs8knsB4rSuUMiwLnoEC5TeoYn1u6WPQ1BTkXzwYenxsD
mkOB5GwSBbfOnT5cNjsGDD4ZG4l4CjxsT62SGhsDurlY25ZbFOidNn423DMG
xDblyg3XKWAb6Q54vxoDnV9JCUedKVilIadLD8D1aXO33PdSsFPb+Eqo1xiw
69Klv2tTYLknMM3RBfu1qc+c18DnqeHAnIYt2ja0UmETBcpnMwpb92E+l3TX
PzEK1CPkFDgFsH7yszV7hxrhRK/cknOpo0CcocxfXWsEjwFjNcM76MEk/SI3
fP4PB9pujUZf2GeU7tgI72cGYD5gFGjP9VeaWuH3zeJMr0TbUWAnlWTu120E
FxX5sfr1o8CQVJjXXtwI0TR51obyEbBu2bucK5QJ4v+EK9QKR4DIP7V0yo8J
md6c+eSTEZD1TWQ2X2VCieunmONpaP7dM9fsmfDBLvuETyA6RsLbRY8Jmw6u
72UeHAF20fT8BIHfn8u3jl/s+Qz0N4svX3dvAL77ujw5f4aBbVkyp3GwHnap
l2jpiw+BjousbmQwvu90bfyz02QQCCG3vJaaKigZ+1Vg7DgAjL0J9Q5RAI/z
ajYVivcDTfvj5YK35XAoK03ENfk9ME6+49heVwwmfrLDbk3vgMgzt9YPzocq
14dvFfXa8fq9Hkjd8BCkd/JnN21vB9rpJ3Q2z0PwXuTi7bEWLdDdrzmSDaox
O2VruXH9pU7uTVnZkPaU5WTf0IbvN4f4V8pmg9fI16UPjrQBrWP4GodEFmyy
0iHlTr0FWrEEh7f0fUg62P1E8nILEE33Zx+/uwdvFiq4+M6gX685F0a/B9PP
H5z+fRQ99fLG7Yv3YJ+8s2D3FvSSZL5tf9Ng7Puy4Y3jzUDobX6QtCYN7ptd
dJf/3YTXn32C1ycFVkjLxi7D5zrB43542DAJnCLG90zMUUCUHFgUL5kEb36U
fGO+R0u2C7iMJYJb82GzsHS0Z+SF8rBEaKH5yHAqoUOjnULqEiB8sPPpLzV8
j3Fo1hM4cgf+5txkDh5vAEKw68iegDjYrb5ucf0OdF5yeNfJOKBVvyFzJdGv
Vmsmq8TB4g9/it0H64F4nCR+90MsCIg4pC92Q/va1N7ViQVZv33uSnF1QLQ8
lkvH3yf6xgtSl1pqgLgse/tdeCSEfbhrdrQYrXekmrE3EpiX1G9vS0Jnmrwj
5iPgSKjT0r9n/o+//HTdLQLMXr7/EjX9BgiJzwpZNuHgsLasLk8AHUXz1DO+
AdFzzi5fDKuAUE+WtnMOht4+l5deKuiYkcrDqsGwrsp18YIgOozwTZ8JgjcR
7sl8bZVAEDouPq5B8FvSq1LhFDrvN8dKn0A4vztguak9A4heWa42MgCK5WkW
ffvQso8nSyh/4FgSmGWrjGa0tDqa+8NO3D27E/D96933I15+8LCSv1p4sAKt
Gz/92gdo3JK2nn9eAWG9rbTM2Qskm1f/DK5Af/On1fN6QUmidGRMIHp1/fsn
WZ4woSxf9GgJ+u9E9mSfB5w6tI6zV+QlrleTsDa7CltjdtzX2ViO+/GQFr3q
Cp9WnRjkOf0c60t5J6Q6gInCjzA5BXTX+KN+QQeoVUlS0RwvBsJIQvVeyEV4
tLfX+4L3/47I9XG9AJed7ITq7hQBUWBl9/LMOZhjuGuHND1Df6m1o9mAQ+OK
wZQ7/7u6UZDPBno7ysKKLP/346otiWehYuxv28exAiDYFoM9RdYQLHrdQXcJ
2ojVHPbvNEi2rN/8LyAXrwflJ1BiCvOfLl/bKIAWOrPH9PdJYM8V1likPsH8
ZxExuiche42W5Yuyx7ifJM2OrhOg6nko3HM2B+sJf3u8/hi+b9xqzw5AC/lX
+IQaw3d6m0znsv+9bc3uISN4wbQo2b7+IdYb8VA1PQr60o6DszZZQOhw8BuU
GoDytgIVudkH+Ht2JR//vYPAe+Cbt1EAmt0rUxRxAFpcfIXyU+5j/1C7Z1f3
gXlNlLZjewZe/zsC7nF7YFdPS1iKDZqd52mXowsy06LtzBk61u+P1HqjA5/E
0xzWLUPTYtt2Se6Gvi7zzazIVPT2o55NOyB7elbqQW4K3j/D9MXW6uDMHc7v
w7qL96Ponqm/24Fje+mosmAyxtsCms22QqPBka6FzUkYd0urX7kF4s8O1XYa
JaINVu18sxkUb4k8CIm7g/58+9mWDTCd9TjOoige+7kIBvKug7JXuoFb229j
nJpY+lsRDMauWLHF4tAsi71Sa0Bk0ZLDpeqxaL7HP4zkoHflPa1o0xh0RHad
ugx8iEja4rX1JlqV6BkRB+eyWgFF90i0gpYI9wrgGP423vY8HH3jdpWRCMSL
rGkI/Hnj//ybI/VCoKRrnL1ZMxRtdZCvjx/KLwcE910LQSclbg9eCodSn1pH
vgpC8/ccDuGCvob32przNHRVmymbgP4pEfWmAH90jmO2yp8KLgPnmXWcPmhZ
vcBj3yuUs6jH10M90b2HdDfOVBgS6+wHeNzR4vNNnp8rnC2uy2jfdEaXOY5y
sCvWOVUXbZFzQDvfy/7aVuG6xld5VMkWTVPd4VpT4VF0cafuaTM0Q6HJ7FmF
kE7JfusOPTQh+v10eMX2lJQ7S8iNJJp+38i0ooN7D4/rNeP/PVjck1Ghd7dF
htPpDJrxiKv3VUV3wmZJZv45tM7ze6JNFTFsj2zhR07/O5983l2hINaftMnY
Ff1LcCRlsIJ4EfShlXUVXcC/UD9e8d5KUcHDwBvtlT5b8KWihJN5UaLOF61x
8eC2XxUH20tM++VoaKrz+qX5itLssGtb2IFoq963uRyw1ts8LfheMNrxQ5s/
N8Qd2sjosLyOXr+j5gkvENLzH5Ukb6DfSmRvE4TeqgxlKjECHeu/6rEoGNxx
OyR9MgrdEHrZYyWUnde/7CwajVY7p+ksAQah305F1MeQBC1YZaWHLAReOX2p
6GEs+mvKhh3yUGZW69sbGof2LpsTUIC1G5LSVfTj0f5xlRzKYCm66Jmpwh00
560X0ush7t/FKhpnAtbPKrtkvBG/R7SG3lYmYrzS+ZqfKvS696/33J2Cluoz
yFeD8iypyluqqSTBGM3V37EDEjotTHPk09ArIJXSgKMaXcHd3Om4XkvLSmYX
DPhdmEo7n0ESOlrTsYW6YJRwQ/MxG80WXv7nyR6oyMsOKTmVif1jXgvl7oW7
/Z8kmg/dR4c26TD04YTu2f2EahbWX6/wVMMAqk7R4vgfoYmAObfzh0DVNb1P
XD6bJGT32wylGsKy+31uW0Qf4vrujlrJo1DLZU63+ZVDEgU98hXbj4Fm/bG5
N4xcXG+zTl3eDHLYLnqtmk9xPjPV3ikzWDEXc6uvEB2j/6u94hR8Wde89seD
PJJQ3SpQccECOmvWPrqtV0ASRq//XfhkBbeUMjveKBeSBF3Y5pq2LdQWbflj
YI9myMeZVtjCPFkp25qBzrnn26tjB45m7Et9EkUkUfaJp8/AHg6ES3P84C8m
CTOL/Oeu54Fj/K6K0uxzknB+qvJouSPYqkXsyVxXQhJLT10IzXSENwHeJ6Vs
0Mpy7LfbnSBU1MxfpA09YiJWfvoy8O4Wa1ooLiWJCefHFtbOIBx7y6nLq5wk
vNqWFwy5gtyOkNxw4jXurz1B29sLggLdGFya6LI7HIFdXvCx0aY9wAXN3zTr
reEND6x1/179iLZctSzqtzcoR8wfsnlTgedfK7j5hg8kXX51VUqPgedhFWFV
5Q/0SnWxH0uqSKLQtmi4PwhqBBtuxSqibQ6pMmSCYey0Be8mfbTzmnwO62BQ
+x2wYBuEPnLXvWogGJhbG0Zb/6LDyHMbxkLg632Liqez1SQhoVMTL3AD9oXS
ztu/ryGJKqknR7Ii4VK78EfiN5r+XE/5SyTEyGdZporXkkTEn/ILZBS8r2gw
bjNBj+wZl3ofBc4/hXfptqDjthiaroyGuxeyhKRq6kiif+fZa8YxMGnALG/P
ayCJo37Sazlvg+tL83UDFPrOaUuJzbfhx4bxpMmx/+POY6QFPueX8XtxKzFJ
ovRXo2TxbRBuPqyukY7+suAqdiEeNI63FqbcaiSJ3MJ47u47EGLR9cTGmUUS
Yhv33vqQBALqX4/8SmohiVBaT+DVdHh/+njVn2z0jfJ4x0fpkHO9SG2hGP3T
P8m/Lx10O9xWc7ei85IV+dfQwd3926gITytJpApHx0TR4X3h95DN3uhQzne7
bTMgZ/OvF+dOvSVpPk+9F8vch73r/il2rGonCTKXUduUDYJalsLOw+9IQkRi
uSvkg9fm0sFTru9JmnzRlumYYmi90nnCZuIDSSi8aKiLKQfr81mOoqcGSFqZ
l2OkEYBSWJ9cuuQgSTTlTylcqgJNDQZ7KdcQSauuXHbXrgbudtOFJahhUtby
bH4ydz2UfXoYv6JtmGSbb+V2EaqHjum8FSI9wyTDdrZkr0Q9CHG/luAfGSaJ
p9xzPZvq4frWbvl5zs8kfedSRvOJenCOXL7to9ZnUrZWdVN9Rj3s0w46/vgJ
usdkIR3fo+0OhHdkF34m2fzS8Y06DRB4PMb0fvlnkiEi/nfmYAO8unjPIrXu
M6kj4yW0zrIBtiS8sI0e/EzSKtrfGtIaYPX0FzdXyRGSvruNcbKuAb7SbeN3
Ro6QhDGPtZARE46cjI1rihsh2QadDwROMSGHD2Js7qK1ToZw2jDBykPiZsQj
XP83parFjQn1h1qv99ShD19d+JHAhNQfuz2vcY2SsjxVStbvmaBvKGH+wm+U
ZGeNufFZNgJ90QGzI9dHSR2JPvsi20b4XXL15MeoUZKedXLd0UuNUCDXeow3
FeNRmZVn8feqxM8bh8xfYH7Udc+ZxEaYyvi+6/cPtEaMfVpLIyT+bJHZibeq
7KLqOY8dFJQ8YL409BwjaRmKXQT+fu40fmN6xn+MpOflrfLbQ8GK3NJbIVFj
pDVrzVnDwxQkWN9baMpBb762fa8NBfENl/ptB9BuT0evhVNQ7GHv4zEyRrKD
5qukoyloX3NmZfg0+uy4SVEcBSL+x47m/UN32+zIS6Egbqsm/Fo1TuqMJLz5
nEtBTAp3+s1j46R1yWVVI4qCggOEFv3UOElf2DE520xBy/e5zkLrcZKx2OV6
UBsFgkaTAl2Xx0nZa1H1V3ooiOZq95ePxPXE8DLPzxTkPWNJqMWNk4S4+eqo
MQqarOpK9idjfrMVcWuSAoHyF1OOD8dJ2oha5emvFNx0yrAqrcZ6ypFnJOcp
yJVI+d3AHCfZsSyTFIIFVF18Qm8rzquTybuUkwX88mFNi9iYPyQs83AJCzY2
BzqIfkbzeal187DA0NeHW2kK+80veP7kY0FU5+Xdhn9xf3+ejv8UZEFu8IUe
K84J0tpasbV7OdZXtfFw4Z0gacftDj0UYQFfpElegvgEyRA+Ysv1/9+TNI4a
PJKZIInx54W38XepwdCB4ZeKEyT92KnfyyRYEEHukh7YPkGyn4i9rVrNgs8J
luqRuzBf85/1CmkW6E35HlHTmyB1Og/7GMmwIEM/7Vz/IYxrG084y7JgPvW1
f/hx9PpWf085Flh860vYZoH1o8X+2cqzoOzQfF6fDeYzPqqqr2GB2H3puhsO
OH+W5+Ak2vX37v4trjhfc2Tf/39fbDY+8/O9N8ZvHf7MvxbP51GAYGggerF1
vRs6nKArqYbjvHLd+wE9bMoge2IwnkZunEbvzWebhiRhvbEwLU5FFtC5Fzmr
0HH9ipVafzD+77RcWNdDdG7JdCfa/LkuPSgf8/1TpRLQpfw2ZRtL0ZdswzTQ
onZBLZ0VWE+a9+trnM/lZeYIrRbPu3xGRhHdJFxNbGjC/ft2tjjjfjY4DIp3
dOB683e1abj/sErOLQF9eB5BF6ty8XyGxBUOrhvC/iPmwWl4fnuc9c62TUyQ
sk+b6q/g+abX2Xn7fcP+YTuN1+D5/5W+Hqv0F+PSdj2leH1OeWQ9auWcJK0P
W8ltkmRBCaum0odvkmScC/0YtIoFImuHu9eKTJI0y8DuMrz+zr7cX5olJkn2
gEZlkxgL1m3YL6+wHvPdmAbJeP+EBp3f2bRlkqQPFlsdxvvrY/eNY16aWM/b
Yz+bnwWpYfVB1IFJUrZikVsG3q9z/SN3PYywXneoXDMXC07u4CmSNZskCc3j
vj2LWCA0fHDQ/Tz2t1q6OPwPBU7aDn+kr2A/9njihl8UMOMjRBo8cH0jV8bj
bxSE7G3cKxWK8cX/Onbh5+sX3fBBzQPMDxp8l9NLgckvx1dXctFN/psVuygo
PHqzfVUx5s8M2fnh59lxnsV1uRrnlfvDU9ZAAdviqP2Kjxg/cf/8iWIKtIuu
+DFG0U4i/Ql5FNzljbnjMIv70X5xqiCHghPlLTUVxBRJdN3vOJdKQf2KY4rn
ZaZInbKHy94FUvD6xzOfScUpknbwiuLINezfubzVTWWKpG9Mf97kRkFqQqsP
TRvzr3dkSNhTcGWFcWuyBcYvRBhn6lNg96NAUdZ2ipR10q89js9Ls04h32wH
rGdnYvtuOwV7EloUi7wxv0znxPE1+PxcYeRLJWJ/ibWXls83At+P/NZj6bh+
VWLo/m+NQHQKKnVnY5yrarXhWCOM3mluHXqO8ZjcqoqORngldlRpoQ3jqf0t
Wo8bwVbsyNstQtMkUXfGXepgI5h9f6pUthKtW3X6r1YjGHYs89stM03SGtQ4
MlQaQf0OS+mQyjTJXv96XkOkEXjFDvvZGeL6avW62G4mLHzLfTt2HNeH19+N
YjLhWzu/sosFxnMiR/e/ZEJfPPXWzwG9S2vNvxQmFIgaKieGTZP0tVHBh82Z
kPXtiZ9UzDTJyBCs3HGQCXfb+druJ6IrP/v07mBCSHyjX0E21o9vWXdMlAmm
oofaGt7gPO067Z0NDbDAs5b0J2ZIYskTIx/FBuj9/qKM4EJf/VMpJdwALwaM
tgYvmSF1/CaaPf7Vg3u579owgRl8PvNsP9hWDyMX2vniVs/g+0z9fhOfemip
C+7K0pgh6VSc+sZXdfC0aNUx5V1Yr95a8k1mHUSk5zc+Jmfw/WKxCkd4Heh5
vq/I3zdDWsuUzV06UQdlituyyk9gvfcSrm+Ha4F+/aMLyxnrOf4UK/5VA34u
XuNH3XEekcPV/N01YH5awP6tJ87TVBb6rawGRNV2mr3zx7iMob6DZw2EfYrd
PRCF/Ru+vn0x9QZc9uryfc/B9daZPko11XBk87sQz1zsv1VwX0haNWyUdJqf
y8f5RG/8PXy1Goa/JM3Ol+A8Wg9cpdZUg3nmzLulNVhPQvK7pWcV7FlEf7B6
YIZkywveT1hgwO49B3vHPmH9lkeC/A0M0Az+IlI+gm67L3knlgGqi/WDTWZw
vUVpf6MMA2R4xs5GL2C9F4Muh6wrQMLgdrIl5yypM3z9z9rB17Aiclfr+iWz
JO1A8Zk3tq9BYNktnToB9Orf2cJWr+Cv0HYZQnqWJKLJzXpqL+CXcd/JJjmM
a8WN3HpQDl/jQqNT16JbjdbLLC+HMdHufxqbsP7A7VkYKIVucf9el12zJCPB
5AvHmedQIlufPGiO9c7nP6l1z4fCsy6tz6wwP5gvlJh4Ck8zJXhoNui4QV/S
MhceKDh5rXZAv9dnZik/gtvKwqYm3ug/m0/O+2dC9MWX0Wv80EtbP6hRdIh4
bFc7S8P6XixmxNZ7ELSxVC067P9+3YM7ryWCv5O1k2UUmpMznb09HrzzeLLW
x6BDNbSUeWLBWdVStC4RbR5VemFXKDi6LDa8k4L+5NdT0UqD84V5wbbp6KVX
lOtcPEEsjGv3g2w0PWL28y0T+A/H9QoF
           "]], LineBox[CompressedData["
1:eJwV0nk8lHkcB/Ch1hFKyhFJaSUkxcqI+koluUZF2hzJ1UZKCQk5doQi98hs
uQ0zYR4qpONxF1uOyNmBhEpumrTYb3/M63m9X5/P7/Mcr9nkdOGoKz+FQonB
36/rzS6R+zOFk0CZ2Dc/3uUG5lRWK7UUHWnOU5YIAmN/mrBgBdpAoF3NOQwO
VPAM3jxFO4yf8NhwHfT1TYmLdeg4A7ozxICqwcQtTjv6QBPr4dZkEAoKlqR2
oX1KKseSGDD0aOWdul509tKL+e8pkK2lzu4bQFPMO2qymbBe2b1GahL9TqHV
PzUd5p1/HM6ZQdf86fztdAZ0ZUS27ORNQkhNgULYdAYky+a9M1vC/D2nTEs0
C1auHPweJjYFFKVx+oxkDoyaeF8TXz0FId8Il1txOdAYwf9b2lq0lL+4slAu
RPBtkngkh322hkv8WC5QZu23jatgzul0aErNg/c7v5UEqqOdk4+OLOTBk/OB
uit2oj/6trqfygf/EaaREhVN+L1ql2XDVG+no60R7nH18o5f5kCLzJnhkcOY
77q71FrLgSLrOU9fc3RtitqyNffAo3ltQLwVupPJzsu/ByaiOXwKJ/B8veQ9
1Yl7sPWwVmSBLTrE41OYdgEMVh9Jfu6Efd+WxuZHBVC91Cdn7YaGD7TXvALI
0PfKGjiL/U/F9XXahWBfeou74IVO/yKZyi6EDva/DVrB2BcbNGX6F8GDoZOW
VWHovZrNTflFkLD5S4fFdeyL0oQ3dxQB7a7Q4NkY9JcmDVDjwvaeFPfvcWiH
SvHVx7ggKq08SU/C82dkkqT8ufAi7uBi+j9o23rZZpILrFftdPV07Fvf33yz
jwv0FS4ij7PQDL230UtccDo0HW/MmoLKKXfDcysJ2EcPk+lgowujFXXXE7Cx
anW6cyHubTOT0lAhYHEhQ2mS+PW9u9ZZahNQ4UdqipajB12F5UwJGLwy1hnx
GPdr+RdTrQhYeVU+aBmJuY5N0DF7AqgBZorB1bh/beGPw64EOAcGPJ+vw3yq
tiHwHAG3gjjnfBswN/7eOX6JgPJr3aunXmK+wJzOvkLAQLBQmWcLWvp+PjOI
ANFQHbvPbdi3CAx4E0rArjA3PtfOKTBozBuxDifA8e9kVl8P9qMTXeUjCbhB
rzW1e4/P9yDEUf0GAQ/Cpyc6+7Gf+Nwg4iYB768rMo59wnxA+My2aAKEIo/o
NY/g/rST+ga0ZlRIn8koWp0xbI99+xvc8Ppx7JN6H0ejCIi8+V7VcBr3Sr6e
eRlBQEm0WMvTOby/95myBToBb2P0fXTnsd9SJRaGzysQ6yH7cAH34sMzT+L7
7Ihjkjv4psGguCc7Et/3ZHyDS8HyaQg5yDEQ8yaAnsAT3io0DZVqVWmf8XsV
JSpzs0XQ9MkPG9wI6Eo6bqWwCvvLtDYVORDAzwj/wZSYBopm9dXbxwnYlvIg
TUoK91P3Uj6YE2Bz++P+hHXoheeVYQcICEuV+Cwmj+ejZJ/TdxNQwNx3K2oj
nt/KWTekQQDlbnpXiDL2Y+n5jTIEqKY1Bf2niv3TOu9oogRYpS8oXtmOVrBM
81rkAjvT1vOCNtrA3MmzngvtWTckvlLR4h5zd/K5sJj9qMxNH/fjHDyZUVw4
ypLmd9iPuXzABgFjLgTmGeV1G6HtqW/8lPD/nO9jZm2CfQL+esbHhXlOG8Ps
COaq3DctpUWQzY1V0zuFeZmmHXVNETQRz1pKndBuIcS14ULgFX/z0XTDfo9l
AauiEMwemFaqeGJOG03OtC+EmXJBa5kAdAZ9yoNRAEbVwddmGWjtTLmodg7E
ylT3P2Gi79i6/JnAga7zyw/S03AvrsNhyoIDZ+WiRNawfjmNSa9lQ/TlhNs7
HmI/5pWbVWY+vN6SW+LRhrnHgOpHRRbIBQ1LanWiL4ltGXuVCy5tKv7zPdiv
t/To8suF2eAiiBrAvEZ5gPYiB2S6y16yJtFNoWLfbLPB4WbjUP+qGaBIaQ2P
WGRAXr+oCXsN2jFRZbIlHSZ0aIVe0ujJXtMZvnQIHWzzXtqAFjhkUWR/F3L2
vKPIb0czgvpV/0uFL+PjsifM0AWGQ5TOBPCzkqQ1RaIJgX99I/6CLNYePuto
NKWBO1bsCE081/u9seiQgKTItCPw+91S6c8MtMHEbvAxI19/sulblovOSAzV
bPAmt/sxL+pWoWc+JPI9ukEOpiok5fxAr5A6OGSXToqPHjJSW0BvaaPNHsgg
9fZ68Yops0BRLFSlvs0gEwYq7UhBdO1jvkXRLBLUnJR6JNEBJySD/HJI5pOc
0lWa6B8nng5cYJOWH1S6r7rPQsgYKzB7tpiU990U4X4ebbicmXm8hPwiuk77
5CX0XO2eVeUlZPhuoXjdq2iHYRFq4H2yInnImBeF1tkVUS78kPzdLLvch437
MS5l+rrlJK98/W2vEXRWQ2veyDOyjrbWyHEU+8bmsfI2JJkwJDJDm8D8gpXF
zzqSVF/7k6bBQzd1LPgerSSdLnQLjgnOQSXjosobrSrypRLDz0N5Dii+E0Iq
lBoy9UmMkq0a5ja9rSm7a0i3Y+FtJhpzYNAr/puuTw3JF3pZQ1UHPelvIvG1
htz19ujwiNEchJD3KuS7a8ll3ibJXSa4V0fdKy9ZR7YIG+5/YYE+vcfL4kgd
6aGzMz3vOPpUAv1gYx1JbdpqnnISXUDoigjWkwKuG39ed8C98n5D/gP1ZNtP
abavEz6P3VCUamg9mZGwysbNDe/fnMX7+1k9+T8biWwf
           "]]},
         Annotation[#, "Charting`Private`Tag$724199#1"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5000000000000284, 0.5}, {0.5000000000000284, 
       0.5000000000000284}},
      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->{{-1.4, 1.4}, {-0.22772255331967983`, 0.06463974354335722}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {159.94490842698494, -97.50736892665738},
      ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506168}], 
    InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwtmXc8lf/7x5UWGqjMUlZDoRQZ6bJT2ZtKisooycgqomSVUFkRGihayo4r
DUVW5jnnNs8yDjJyGnz0u7+Px++v+/F83O9xXe/36xr345Y+dcHq9GIeHp4P
i3h4/vfMSV5jf+YMF1WYD6Y4IxxoPmnSP3iKi0FKMsoqzRyY2xV79vgJLual
Qu21Yg7YtSwOsnHg4tPKTYRxKAdWreSm6R3momnDsSKnVRwIieqhSSlxUffn
ufmMPaNgE/TUuXt2FpMkTopcjRmG5c76Z4yjZnHVjdliT2sWfB3MndRM+olX
VZql97J6gX4uotbx+Qw2+G317XRsBx7WhdHJpml0NPrcdvfSJwhaH5uQRkxh
i3fEhXdyGXDIVDb43J9JrFxTeV/n51vkP1nJnzY7iVflpJznT5Zgg79l5sep
SeSZn9HxaClBk8xwlBidxO/HjpbYPS1FMw6xtJ42iR3uhZciHcvRJvZusvy7
SVzhE2qgVFiFzp+XFvWFTeKqJz/XKPPXor/2cJ/FkkmUjKvlU1j0BUdu9lsm
8EyiSMPKp48Vv2BV+fPY1D8/UO34gZQ5xy+YwI2zvTX6A4teBoUdKP6Ce30N
x4Maf+C/NsVr4ie/4lWPyg0WiT9wR5OG/s7yehR1eBy6IPoDrxqtfsNr0ohG
qkEaR7dOYPJ4Rq36jVb07MmIsN88gVVFhtd+pLRiwrXqemvxCbR+oFKWmt+K
3d8XO5kIkPza/Pq7r63o7n0rRPvHODY+mhVz4P+OcfkPqzaVjaNlnYsdLe47
Nos3aTONxrGnvfKcXEQbTr//ETUA45j5ixsomNiGIu7CzT3q4zhmJOAx8aAN
T5TaO3cqjOPei3ICV9+14aQVPaxu9ThOOwy/+cttQ+Gbv7CgawzD9j2vtvBo
R9sFab3zZ8ZwMDqfmqbfgfvnNq5ucx7Dhb571UzLDpT7LU5Tsx9Db1/Ru5td
OnB6SsiXx3gM74uK73C/3IEJrEUP72wfw70LnKv73nZgXePgosoxDooOf6un
be7Effdza5f5cTDH2LTEeqITpdKybnl5cXDf27/v8/524rJ76Y6trhxU0Jiz
GF3WhR0JSVPpNhwMebRJUH9TF/pERkgrqnFQao1QnJZ5FxZ4nIyw/jOKFy9/
dDMp6kJxdWndnPBR3MjYcW7V0W7U1La8cCNoFC9ncma+unXjMb2IrHMXR3FH
78HQQO9uzDEZ/KPuOoq+HjGpzyO6cdvJ3OLvRqPoEbj4fFh+N6rFScvxrh7F
u39kPpRMdqNNj/TyM5kjuNsjHu8GU/DSoKWqyb0RVDMOtSuLoGAaO8JVJWEE
g9DqVFMsBYnJQVwIH0HLBfuh9nQKnlr6MCjVdQSHLQVXHamg4EUlmdGvCiM4
5+/6hzlLwYSrMk07KobR/cfJ/oHTVBT7T7hGtXgY54wtVzmco+LDYN6XUDiM
01GOWR99qVjqy0y0zhrGnyc8pwLDqdjnlmcTGjGMB8zC6m3TqKh4SKGn4dAw
5ifHqI98Icd/lmjq0BtGs5WrZAuaqKijJ1DTpzWMOma+eUfbqWijNZY9rTiM
UQU3o3L6qHhZ8YWrhPAwhi8rX/LwJxUbhVQ4HrQhzI3QWBItRUO7BJkev/Yh
fMXbI5IkS8MB/rVNVxqHUPnesj+3t9HwJ+/PF0k1Q7hgka5xToWGG7glvhUP
h/CL6F6BbEManqNp/F3hNYT+dU2cSQ8acu0UOMJuQ7jkvVDiIW8aXm2X6Nlw
fAilVpzWTPWl4d3Guepd5kM4ztP9QiiUhu9qqiMc9gxhu8yuS9fiaSjwSJev
YI6N95ffCjr+jIYOAQJhEj/Z+DsywMX+BQ0fH+ycvjnGRmWBhkyDYhoeGHPv
udjLxreGQnJ/Kmjoq5r4UgvZqL81it3wlYa43EnuRRkbjf9ocU400nAlTTZ9
8ys2UuNXnx1uoeGTsLLIpblsXHhytLO9i4aUL322LZFsHHfsXbqeSUP5jIIG
3VA2xi+p2m80RK5/zhfe+rExPMFxldcoaa/Qsu3pbmwsf73t1u1J0h4nxflT
RmwcVVC5ajBP2jsW+pDLx8bF6yLmTwoROFVjKOqxmI08n053Na8l8EDSmpvE
XxY26andVhYhsFv1UcB7DgtlP/W/aJQgkD+8wTiuiYXlN5Q3XZIl0N7ybvX8
ZxYmXzHziJQn8LGss8qFGhaqmPS/jdxKoPbXKUmblyzc4ZNy8sQOAn2ExH9s
TGLh7VmhuFgVAqsZdNfEWBY6jwQ6qO0l1y8toiyOZOGd9G+Hu1UJfOSk82HI
l4U0ucCiWXUCJ3fy73PyYuF9kXNyfpoE7v/XXtjoykL96ZjvTC0Cux6dvffa
hoWGvb49jw8QKHtpN7+cKQsFPxF6M0DubzwXlmLIwjL9xz9UdQnkG09wD1Vj
YfTyOMU0fQLt0KF3XImFmSzdL2UGBD5MkrFy2crCqMSE8m+G5H5qpVqGYiyU
bhZ/03qQwE+Cb4U1hFiY17yMp9iYwCOc1yM7+VmYX2+iGnuIQKec56nr5pmo
Kk6cET9CID2k0HvFLBNTKVKebSR72D41nB9n4g73YtcIEwKD+J/MMPqZ+Ca6
5mCtKYE8rIcN3RQmFt/brWFlRmA05uR++87EpT4jSlSSV2c8CMIGJi5b6brT
zpzAFP9M8zcfmfhIV1K1nmQp84wt+e+Y6PEtwUTFgsC87Wn/ZZQwMcVI81IS
yUpLUjoSXjBRak9GCZvkkr47hZH55P4zCqtVLEl/K5IiL+Uwsa3J/ZofyZ/u
3Hb0TGdi80iLWCHJJt63djknM5Fi1fOdQnKHcfxyq3jSvl98xfMkH5ON7TO8
zkTX/I53IlYEMv67UaJxhYm/Rctnt5DsSbl+U/ESE1v6lV0USZ4ujnSVvsDE
5cFl/7aTHHLrquZ6dyZ26TR0byB5kXuYEN9JJt4JZHCWkhyjd3l43pGJ33TC
gEXuJ7gxhKxJTNR+tL6rkuS0X4EpzCNMHImRe3OD5E1tAecpBkzciPI0Y5Lz
ivwMGrWZGM69Y7aIZKXoi5Lv1Zgo+HFk7SvyPEpPXph+o8xErcxcRVuStfef
r8/fxkR6j2r2JHm+n0S8cu5Lk/593HwukmSTKffA2xJMfHKxJ5Wf5I5vZ8yu
rWWi2DhdPpa8r6N5bvKBK8nzlHohvkDer+dRl3bnBQbmVwXrfCPvf1rV+ZnV
LwYaeZ0PkSU5WPBYhNEkAw85rdzmS+ol5rO9shKdgRsP7R6bJvUlmGO7TIZg
IKXwKZ88yakh1r3rOxjIWVtcYErqMU/ZPP6/zwzcG2UXHGlE+sdvemqqhoGL
hJivE0g9lzAPa7DKGOiWzwxOIvX+Kd1oqPEpA0XqNteF6JF65T2gn3mLga/9
C1/1aJP29mlJJN5goMmH35+z9pP5o1xj6lo4AwfHgm/YkvHH462a7XWRgcl7
uSJPyXjdRNk5p2nLwJcCrK4BMt49VyyxSzVloNKegX1quwl8q068mjFk4MlH
/324qkygcXrsmSI1Bq6tN/CYJfOFrxP7+0YxBgbSIy4elyPwXVz1zhBB0l7B
1dnHZAhcVnU3umsFA2/c5pWw3EzgfUl97dt/6Din841PYgPpT092AQ9Bx9Jk
BZOdZH5bvSqQ93g7Hek+J1y6BAl01DZzrvhGx/LjWqyA1QROZM2v9X1HR6cb
163u8REoesIxnJFFR1yWrmb3j4aeg8J2dS50jOdoLjCGafhWaPSVjCMd1e0G
dw6xaPhPt1Yg3JKO6QMJwgN0sr48vFC7T4+OFZ7J69700LDatXHnU1k6Ospq
ePeR+V6QHcV7kz2Iuurh5mZvaVg6+vuV5blBdBGLD3sdQEP35MTm726DWLZP
ZyH6Ig0lNbeNWR4fRLeNyZK258l6Fmu/1cpsEENuZkK7Gw0PbyvNsto1iDMW
+3JPWNOw77RfnPXPAWwrC/J4p0TDZYPjrraXB/DBmsB/D8l6XB4TFdHpP4Cp
QSfVbKlU9Nq1Mdv2/ACe0dt1e4Gs363hJjRb5wFs/TtXqlZPxQypQgs7nQGU
SWy00n5DRaVj7tr2SwZQaWbWLj+Kis9efFYsFutH8d5YdwE5Kl5ffVyxhL8f
PWolVMSkqHjC++fO8vk+vLkxt2yjGBXXKcnurBnow84nLN61K6kY9vyqQkNB
H2YqP1/Im6GgVZHWVrp6H1Y3j54NrKXg36evNws79pLxH+703Z6CR55krfVN
J9AgU2mFnE83Fr0akjCKI3CrdltV+9luXPlut4xEKIF1hmv7Qk90Y2Pb510f
jpE6ynUMLzHrRhOeCVNhUjfux88UNu/sRrOjB2KK82iow809ljnUhRZC/fPT
pJ97DYLLPth3oe2VzWy/5m5UMJfK3CrbiR9889u2GHSg/rpfRCPZH6cdohZK
ereiltLhV86SLThfcKuBYV2PiWu87M7f+IoJf3wuTpt8wMBHLQoB/2qRKW7D
4DteghOdRe0aB0qwl+Kk3BSfid9u71yvGp2JPf79CoEH7kMXZNUFad6HxZwM
pa1TJaDmXPHyU0sJ5NSqrecu/wDDuqKelOpaGD/cUNHxoh4cjh/ank75CqvV
Zsx+p7XCFu23DhquLaC//b8tneIdMBY1Z10W1gZrtI4J+7C74b7sFP+KPZ0w
kJdbkf2zG0wzmo3c9ndCsfCQS8tiCsTnznysNOwEu9GLL5U2UaDC1tLfzqET
MtOjTcbtKfB112JT4yudoPC7+IZnPQXCxtQI4bpOMCjhm3MrokI/V8l8h3UX
BCmXMRx9CXh42ja0wKkbQopCl+pdJeCd37N4q1PdELpdZ6tCAgEBmol6XI9u
CJOt9/z7lABwW5qqENwN10SJqYxBAqbBLtwotRsS/i38Iyx6oO+brZ9xWzc8
bjHa4KzcCyLsVWud9SmQZyJwwEib/K7k+/lI7TAF8utbTigd6QWt7MV+Kywp
8Oyjw6OFM71wZU10TaozBV6WeSpkP+gFtHj20i2YApXZCeoDq/rApptXquQ5
Bb5f6LI5NdYHDX9VDcSFqGCiO+wdPNcH2VdiZe+JUuGr8N+YRP5+2LLBL3mF
FBXel2ysrtnWD7lPjFd3KVDhxZybvOTpfpj2Kl0hYECFm9Ezs+29/dB1h8+Z
6k+Fx+Yx3x6eHQDgTiiPtlDhlHqSg9KFAbi6mKCbd1Jhs3QGq+LSANjwyGcX
0aiQOV34r5X8Ykue5ZU9wqLCnXste/49GgBCBOiSf6kQSYhkHh0YAI/KlsQV
MjRwOfvk3DrHQTghIK8x5UkDxsGQVCmXQUjh3+I75E2DM9vMP2w7Owhxsdnu
nb40ODfyW1Q7YBB4I42vpoXQINjL5OPppEFY53L9b2UsDZIvzIiX1Q+C2DqG
hHceDdZbfDWobR2EwjvKiX1PaZC2K+vCt+5BkLaRvGn0nAYPpow+97MGoXZQ
hP+/NzQo9MvwWbGYDmvKrtfw1tLgU6DuF0dNOrQWbFgRQKXBQQeRaVddOrwq
On3kWA8NGtQ5G7yN6fD6ydE+zX4atP656xtpRwcT9wRWL5MGvaHDGwt96WCz
pV6s6gfp77Fq45JgOihe2Rt8bJoGzP3JfniVDr9WNqya/UmD0f+06tsT6KB+
69Vngb804Ibf9p9/Rod3dqsFW3gJCHZxy15WTIcmnwuvty8jYF5Ho0Gwgg7/
Yi56ha4gYPFixib5L3QIkEuWXLKKgNXX1b6ZMuig7/Bd4Nl6ArbG9EpnSzLg
oKn1NkN5AoaFqV91ZBlwJPV8t+pWAgqyOi7QFRgQ5VbSLLmdgG1vvlXLazIg
wFD9+pedBCj0VTgWOTCAITtxO2sPAaPuJTxmLgwgbjksVVcl4NnMq/wfZxnw
bfuH7C9qBOzgK5hVCWRA2LI/u+s0CNi5NyWp4h4DMoLLLHSAgLGaJPWjWQzo
z+nzvaZDQNGhW/3zjxnQotOUUqVLgOKJ64o6bxlQvP9UG78BARMj4R2DVQzQ
oqsPShsS8MI/NPTaRwaE3tk3oGhEgFKcb31dGwO2LF+ZJWdMjl/n7eNOY0Dy
gKDVmkPk+GwPUX46A3Jm7rMmSPZWOF1TOMKAGC8D64+HCVAucTltOsWAUZPc
lJtHCJiEYyt//GbAh4BDhYdNCHjVYP8mkYcJRlntN/8jedeA2aKONUww5R1+
rGtGjvc8XBAgyoTNEw/a2kh+NWtoLrqJCXK7kqoczAnwuarLLd/CBNEam6Pt
JO8W0M5yUmJCzunw53oWZB65p24wr8oEg6a853kkF2/ey8nSZsJxfxf7fyT7
FiongyETFr3RzTOxJEBFbYfGoAkT5iv67yWQPP1+y0CkDRNKklukP5NcfEQm
Wu4YE5Q35RlOkuzbtVGpzpUJ0+K/59dYEbDnpHjnWS8mcNc76cuR/JOz7jKf
HxMehbmsI/tfeHtJULYwhAlvU7O9FEj2X7SywSSSCbuvFBqQ/S/svbn84kQs
E47Jit1f/L/5IrxiiUnkfLtgz15yv7e5CzW705mQUnXqRRHJ/jv/nm7PYUJT
89lTPiSrls2uDChgApspGbmNZK7u1BuRV0zwVBDm6yT9LW0ccyovY0Ljo97p
AJIv2Q8vckImmCgKaQmQrEZnFMzVkf6EQO9d8jy55/rNs5qZcEVsrkOY5LJf
NO6BLiZYenRtjCLvIyiyK2uglwlnC1zfcEwJUF/VZhDJYoLx8N4kI5J/pzZx
ZMeZMCPcU3yPvN9ymfrkzz+ZQBkZXUsl9aCh/n5gxRIWVHdFRe4n9VJTGS2/
XYAFS1M3VnqRejLQNvc8JMwCiVtqjxJJ/Vno9c3EbmZBwpXQ0CpSn12fnqg/
28qCcMLbtZbU79GD5680KLHguJrvxDtS32dM5pcJaLPgq5Va/109Mj6aPx7Z
YcAC4bBq7YtkPFy0jE88coQFhcGDu/TJeLlsJyFx05EFu47F133RJiDZRV1x
1SUWRBjsOmytToAY499FxSssKNd3HybIeMw6/aXU9DoLjnZYLDiS8VrgaaeT
kMwCh91VkWoqpD/+/tZrXrJAPv1hjM8O0p9fWmnKpSwIfr8q/DGZD+qDeXvN
q1kwckS1tYnMFx1hyWcSv7FARFzbn0eOzAcxr4KFhlnw63DtcZYkqXeBoJrd
P1gQt/vhp4/iBMzeAl4rLgt8juh7pIoSwHOn+WbyEjYo3zc8LrWWAJGssey1
0mxIk3of94yPgMxNb5l7trFhO1csRGU5AdIPQ7fbKLOhukwx7uUSMp/k87+5
q82GEPdlCzH/aKD3elvdeic2nHNpai4n8+nXPZP8aifZMG9ywnlkigampWXm
du5sqCzKmVpN5mOHKiNqyiU2aIk9XacxQgPvz25jonfYMJS7cmhFLw0yqDnC
Eo3k/EtJCXc+0KCcmX9XpJ0NZkEnbeWQBp0/XoispbGBEr/L9lkVDQSXVUus
HGbD+3Gh6XtvaRClQpVZ4B2CJUOfdDhPaOATL7SHrjUE9mrZu+Jv0CAhRayk
T28ILq+24ZyPJOtP7qZ9xKEhMO8UKjAMowG7TFGrw34I2LZs8Y4AGhxlHtKv
8xuC2gPZYefcaGCkHWn9rHAIqlqMD8UADdyMYzvziofAZMOd6ApNGkRYJ9o/
qhiC78Gtif2qNHjn8eBo5hdy/XgnLt9OGuxOqXRNYAzBl9FNz7tFabDhx7Sf
r+QwpP179Ml6nAozOa53NeOHwf/MFe/S21Qws0tKbk4ehq2aYQ+nY6hQIICJ
pzKG4aXsBTnpSCo4X5K4Ffd0GIp3+/HYkv3D1yPfo2hfhiG4f1+WqAPZH3AP
BIYsGYEjYWVxSzZSwdBEwqnyygi8M+Hf65xJgZxFxg5mUSOwxtQ0mbhDgb+l
AXb0myOgdbP01eF4CryS/m7FnzkCVevVNiyQ/ZDEr+gjTpUjYM25tLvCjgIT
ubP7/3JHIP9Ak8/lVRRI/dW6SdNnFAKV1UTFfLqh9HFDlUngKMj616QHnOmG
LstP9ifCRsHHqE+t7lg3iBSV3b5+cxT2jB8v1jnUDSkuD/41F4yCt1uecYZ0
N9yt9+p3HRyFD5ytn3pauiDx/rLsW1YcUHzifSVKpgteGfNo5ThyoNe41whE
u6B19k9XsQsHYuVPl3IEumCNxfhqijcHfqVtCd4w2wkJSzrCZOI5cFZLZWsv
2Z/eOp/rXPaRA3YNf6a7z3ZCHOyXGtw7BoZb7j5Pz+6AoZRjavH7x+CKpMXb
uKQOMJi4bKZqMAaUMq9rXtc6YCGzOizWegzs09a6z5/pAN+/B/p3+47Biwe2
X50UO8CpRDcn8uUYWDHONi0ta4ftOw7KyCmMg91eJ7mf1W3wVcRqy9lNEwD6
vlI70luhmvs6dHzLBLz/J/v0QHQrFHcJffdTmoDolUE+ugGtkJnyPfSq9gQM
/ZB5tM6yFS6IWH5PPzoBE4WaklPLW0FExOJyY+oERH5mdM0zm8F1vVnbbsEf
cOcUn2VKQCP845OHMJ5JSB3fGX5K6Qv0zFaW8yyZhIPFarH9S75A5aCFyrXl
k5CRK+irTdSBf8Vl+ZjV5Puqxg/3o+tg2L1DIHnDJHz0C0oe7PsMrV+uUZ6o
T4Ku6aqQ+OhPkBNFv9jkMwljq/a1y9XWgt6inMcbBich7W1EanZ+GSjoTCY8
65iCwNrlJ+evpWBlIKqsLJ+GCrctKWJNH9DoQ3jYbMoMSNcFsZVOtWGgzXrz
5pif8ClaNiEitBct+rdTQzxnAbTumVulMHHjJeloT+9ZkJnIPzD5momjK8VV
nXxnweLcf8/vNzExSnNFkkYIyW+KxSSXsrDyHtv4d+wsOEhKnX/nz0I5k0fl
AU9nIYjfMjbejo2/yzek+QzPwlxeofUFuWH8bL7OyGVsFqq2X//wQXcYk9kC
P80nZ+GlCd9KuRPDqLhuzlz59yzwqvppCmYM46kL1OUTy7mg62Vgc1twBBvl
UwK9tnLBYJ3vbwWeUUx/d0v+6A4uqF7478xxqVE8Yx3VfliZC/0uxb1Z+0dx
UYS/ssI+LhSMLkwYB4+iWo/V0LARF8oDuJMHZ0aR1+/wPcphLuxZkzs5KsTB
Vj49/a9mXND7a7gmcxcHvfbtzs6340Lpp9G327w5qN68zTTViQvBUrm6S25x
cNnpzXM3nLnwtabm93ghB9vnRJ9eOsWFtOObelkNHPz//4Hw//8D8f8Ad9EW
nw==
           "]]},
         Annotation[#, "Charting`Private`Tag$724241#1"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5000000000000284, 0.5}, {0.5000000000000284, 
       0.5000000000000284}},
      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->{{-1.4, 1.4}, {-0.8723048895982457, 0.8723048895982457}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {479.8347252809548, -97.50736892665738},
      ImageScaled[{0.5, 0.5}], {299.89670330059676, 185.72832176506168}]}, {}},
  ImageSize->{
    UpTo[600], 
    UpTo[223]},
  PlotRange->{{0, 639.7796337079398}, {-195.01473785331476`, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.817270261356271*^9, 3.817270268199273*^9}},
 CellLabel->
  "(WOPR) Out[193]=",ExpressionUUID->"d79294e8-cb2f-4112-ad68-da965b8a242a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"R\[ScriptCapitalF]", "[", "\[Theta]", "]"}], "/.", 
      RowBox[{"eqB", "[", "testN", "]"}]}], "/.", "ARule"}], "/.", "ss1"}], "/.", 
   RowBox[{
    RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1"}]}], "/.", 
  RowBox[{"h0", "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.81721216084793*^9, 3.817212194888206*^9}},
 CellLabel->
  "In[682]:=",ExpressionUUID->"8dd8c18b-504b-469d-8072-a9fb0cc417df"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"822.9006276986833`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 682, 411, 
   31478759869561735920, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817212140998989*^9, 3.817212162850238*^9}, 
   3.817212195088612*^9},
 CellLabel->
  "During evaluation of \
In[682]:=",ExpressionUUID->"a55da929-28cd-4032-aea8-5daec85d020a"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"822.9006276986833`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 682, 412, 
   31478759869561735920, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817212140998989*^9, 3.817212162850238*^9}, 
   3.817212195092041*^9},
 CellLabel->
  "During evaluation of \
In[682]:=",ExpressionUUID->"d9f18df2-5058-4626-9d48-5486b1743e96"],

Cell[BoxData[
 RowBox[{"0.`", "\[VeryThinSpace]", "-", 
  RowBox[{"6.159214973190065`*^-26", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"0.`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.017156691619484233`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["47573.03979762524`", 
          RowBox[{
          "1.0039108687835472`", "\[VeryThinSpace]", "-", "\[Theta]"}]]], " ", 
        RowBox[{"(", 
         RowBox[{"1.0039108687835472`", "\[VeryThinSpace]", "-", "\[Theta]"}],
          ")"}], " ", 
        RowBox[{"ExpIntegralEi", "[", 
         RowBox[{"-", 
          FractionBox["47573.03979762524`", 
           RowBox[{
           "1.0039108687835472`", "\[VeryThinSpace]", "-", "\[Theta]"}]]}], 
         "]"}]}]}], 
      RowBox[{"\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{"816.195973209307`", "\[VeryThinSpace]", "-", 
         RowBox[{"14.003222613416897`", " ", 
          RowBox[{"(", 
           RowBox[{
           "1.0039108687835472`", "\[VeryThinSpace]", "-", "\[Theta]"}], 
           ")"}]}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"0.`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.017156691619484233`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["47573.03979762524`", 
          RowBox[{
          "1.0039108687835472`", "\[VeryThinSpace]", "+", "\[Theta]"}]]], " ", 
        RowBox[{"(", 
         RowBox[{"1.0039108687835472`", "\[VeryThinSpace]", "+", "\[Theta]"}],
          ")"}], " ", 
        RowBox[{"ExpIntegralEi", "[", 
         RowBox[{"-", 
          FractionBox["47573.03979762524`", 
           RowBox[{
           "1.0039108687835472`", "\[VeryThinSpace]", "+", "\[Theta]"}]]}], 
         "]"}]}]}], 
      RowBox[{"\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{"816.195973209307`", "\[VeryThinSpace]", "-", 
         RowBox[{"14.003222613416897`", " ", 
          RowBox[{"(", 
           RowBox[{
           "1.0039108687835472`", "\[VeryThinSpace]", "+", "\[Theta]"}], 
           ")"}]}]}], ")"}]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.817212141009383*^9, 3.817212162858392*^9}, 
   3.817212195095738*^9},
 CellLabel->
  "Out[682]=",ExpressionUUID->"7ce119a6-a1c0-48cc-9d86-6e7b6a1eafe3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Xi]", "[", "0", "]"}], "[", "\[Theta]", "]"}], "/.", 
     RowBox[{"eqB", "[", "0", "]"}]}], "/.", "ARule"}], "/.", "ss1"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"gCoeff", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
    RowBox[{"h0", "\[Rule]", "1"}], ",", 
    RowBox[{"t\[Infinity]", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{3.817203455666684*^9},
 CellLabel->
  "In[304]:=",ExpressionUUID->"b0a27cf9-de55-4cf4-9b19-ff7b3add442a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox["\[Theta]", "2"], 
      SuperscriptBox["\[Theta]c", "2"]]}], ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Theta]", "2"]}], 
      RowBox[{"1", "+", 
       RowBox[{"1.0745227484633069`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]], ")"}], 
    RowBox[{"15", "/", "8"}]], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"2.2786089295146557`", " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"RealAbs", "[", "\[Theta]", "]"}]}], 
      SuperscriptBox["\[Theta]c", "2"]]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.817203455897637*^9, 3.8172042416897707`*^9},
 CellLabel->
  "Out[304]=",ExpressionUUID->"d3fcf7af-82f3-49c4-81c0-3bf29938e0d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"Abs", "[", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Theta]", "2"]}], "]"}], 
       RowBox[{"1", "+", 
        RowBox[{
         SuperscriptBox["\[Theta]", "3"], "/", "t\[Infinity]"}]}]], ")"}], 
     RowBox[{"-", "\[Beta]"}]], "/.", 
    RowBox[{"t\[Infinity]", "\[Rule]", "1000"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "1", ",", "1.3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8172052654521303`*^9, 3.817205279995434*^9}},
 CellLabel->
  "In[394]:=",ExpressionUUID->"f49c10e4-6ea3-40fb-85e8-436bcc73196f"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Hk41VkDB3AjvGWJqCxDE6OUpWmGTKnuNzJNxEUqxghZK9FkGS22oUWL
UCoheymFd1IR0uqWpboUhRhladN0fot7r6Le8/5xnvN8nvPPOd9zvsfQf/va
IHk5ObntdPx/TrkhcuLmE7T7hshflvuEhh0LTOrMCJKeuLq69Y6h5K3Kefuf
CHJFwmM+W8dgH3TZ7Rz10wjBmR8CxzDY7/n5P5YEF8oyODWfMXz//KywhXp/
+vpLjNsYikQYdVtEoOwbX+1iM4bC4kg738UEe1I/zlyuNoa8jT0vdgkIun8Y
DrtXK4Og66/9PdRdQsN1767K0Ldu3sLlIKgyyS/U+VsGA6foZLkVBCdWfaN4
tFSGXBt10wO2BJsc6lW6MmXI0V4Zk2lPMHxzTUb3HzJktZVNq3QkeK+tuYG3
kCEw9JV46hqCX8W87VRTGX5U1EsPp74RGlRjMVeG5sUHpy5wIii7eHxK3CwZ
xvNDVMqdCbRvW5T9ri6DX7ix4kVXAgfVwxOqrBTzVfJk5zYQRIyvOvCuVgpJ
SUe1kgfBzcoHjbnVUtwRqMUEUx8PXKfhfkUK74jY0TmeBJ/ltUtayqU42uXF
lvxGsFN10v33BVKwpdojRd40H6W6Tf0HpKi1z/gnz59AL+ViUYCnFM3EsV4p
gMC22yDEYb0U3bkKp8OpZwQvaP5prRRjfMxaQSCBmsUSJw0nKRaf9WnsDSJo
chsNGoUU1YrmF/W3ENTopW3fNE+KKyLRn9nbCe7HaXhmfJagfPW42slYAkez
S7M0yiToyxKOS6jHOmJCn5ZKoPG24J1HHEGesKYk+6wEEQd/ua8bT3A4Tl5s
XiiBdfPRxDMJBNe+OFaFZElwa40hV5JEIBSLNBYdkOCpcNXzqhR6vuQlpXrB
EoyvSy9qyyRI1df4NWWeBH9UB1bYnCBQiEsvPzxXgiHdJbXF1H4YKEg3luBR
38u26JMEC4UtxvmzJSjYbPmNXhYBsXLyf6QjgX1sp69/DoHGG+WmyCkSHCnW
N+AKCUSC6V0t70ehz54/Nb2SoCJgZbrjlVFs1ZvCvHhAELJ3tUGO+yi01hz7
79t+Avc+TXV1xVGkqhaIJz7RfGeNnKq7zsO/s3PDBi0GAasHbMS7eQSZrbe1
MmNQ+vvKoYd2PGymeR7R/YVBUXpAhLsKj61fk5ev3MhA8HpH5J0eDqHxVi5R
MQz6V7y+o3uJQ3aKeaNpBoM9b5R2VidyMM5xLpxzgcExT9HwsBeHBAHXa3KX
QbRs4a5tVhys391ODO9hMGN+inK+JoeGuTP21o8yCK+x7lAmLKL+rXyfps5i
QM9IjXvMYl9D5PVSExbtnrV9iVUsQr6rfy2yZXFF5+GU70+yKEmxiDX1YqHi
qDP+aQ8L9bjhKK0IFsGPjeNDA1g4yRs/mnSERZp/WNiAA4vBtEOpi0tYfPG+
t1/JkoVzRXR5VAML87RJnPW3dN3j/I/Wz1kYvpzV0KDAonOKgv4yui/Ds9G9
BwmD006DwQ7KHEyuufgE0HPUnPqgnWPEocJAAtcHDBTCBRYRNhyU/xw5bHmN
gVGHVrHrOg5eRlZzTYsZ5NhrJkRu4/Dh+LZ9LM1tyP5E3Zn9HPKcxpc+S2Bw
yNnWRzWfo/k0bQ3bzmDjS6sguWoO7XYjskZfBvJK5a2fxfQearRqbV2oLYXZ
S99ySGoyl7ddweAJiXyQNIlHa3jMx9CFDNqXvPRyMeAxHX95OxgyMD8c4+63
iEd8RWFbMn0HnmHHLu104bGqdvLPjAKDfzw6QztCeCwN3PbsvJT2/uGmtOoE
HmIDidGHdwS6T3doFZ7m0WS170BoL8GnV2UTj/7mgcTuGTptBFee9fM2l3m8
WmZa/FJMEN46c+QcdeR3mYsuUg9cTeqOr+KhlHx5i4C6NcWresFVHr4qX6cG
Paa9XKC842gNj9VL5Z2rHhLY7d4y6HyTR1+ddrp7M8F4eH7Pdeo3TzobDKiv
BXS0z7nFI0aawb5uIjBztr09QW1TKdscSz19tm5e+R0ekzXDM87Sngw3PvBQ
E/E4/9VULBMRFNR+Ee6iLohdJrxL7VVptWqIWuS1tC2V+nFWgdWN+zzasyaG
jKhrQndOC2uiPbqx29G5kf6bfhWTu6hjB3o/alObrx/8at/M44KFSfarewSF
Atd/9Vt4+GVunoih9rbcP5RCnTvoc82Oeua8+hc8tdOtn6PUqMX67BO/Vh7D
tqz187sEh6bNa2mlnr039UsR9f8A7zSg2A==
       "]]},
     Annotation[#, "Charting`Private`Tag$58265#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1., 1.047762865397324},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "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->{{1, 1.3}, {1.047762865397324, 1.625169762983195}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.817205280138452*^9},
 CellLabel->
  "Out[394]=",ExpressionUUID->"0ede64a7-b62f-453c-b5e6-06e4c6ab27af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eqB", "[", "0", "]"}], "/.", "ARule"}], "/.", "ss1"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"gCoeff", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
    RowBox[{"h0", "\[Rule]", "1"}], ",", 
    RowBox[{"t\[Infinity]", "\[Rule]", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.817205463367375*^9, 3.8172054635510263`*^9}},
 CellLabel->
  "In[410]:=",ExpressionUUID->"67bd5207-9130-427b-afb3-21bda9c7e82e"],

Cell[BoxData[
 RowBox[{"B", "\[Rule]", "0.14154259239895026`"}]], "Output",
 CellChangeTimes->{3.817205463782987*^9},
 CellLabel->
  "Out[410]=",ExpressionUUID->"39e5dba9-9c25-42e4-8876-75a530e46ee5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RM", "[", "\[Theta]", "]"}], "/.", 
        RowBox[{"eqB", "[", "0", "]"}]}], "/.", "ARule"}], "/.", "ss1"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"gCoeff", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
       RowBox[{"h0", "\[Rule]", "1"}], ",", 
       RowBox[{"t\[Infinity]", "\[Rule]", "1"}]}], "}"}]}], "/.", 
    RowBox[{"m1", "\[Rule]", "0"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817205427919524*^9, 3.817205479543686*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"6db9bdd5-3bc4-4993-85d9-2bb9c2d0db38"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtlGs0lAkYgCeXU24ThbIhDLo5inbH2VHnnRVFTDGrVHLLJaGlqQzLlltG
kZGhI5cyHxXqEDUhl5eMQ7UilMKyWBJn3Nmhmm/bc/rxnOfX8/cxPBXK9pej
UCisb/xvc9CeIEkSJSVnx0yyCAxdpiUtr5AYbi0qnhcQ+Oixhen8IomOopKb
z/kEWm5lnRqbJNGfN/DJl0eglUZC7589JFZeUHV/Ek4gc2T25a0yEg+ciMxI
PkIgm9f2YLcXiXOB+VWqmgRy2xPOnq6XodWQ+W3jDCF2d6tMNPp8xfOzrz6v
S85HvYZQTSvdL6h9o5+znnkHRcFixbV/rWAqP+PiwcQ89E6xmPkQt4y6O+c8
NlTnoDQ9KglBilu0KLt/0cnGAuqATtbQEjrOUbsD/bIw96AFp+vqIob1Wgc3
N93EuBCfiG0OC3j9HP+V2D4To+RLuBzJHP6asOyysVKAPjHtxu+KZtGy4ZrF
3wfSMbNuNCs3aAZ1q2Mi3cfS8NngVtWHRlN4w5EcjupNRZo608b19iQKHvgS
0SYpWLE9KWh4ZByVVKDmPvMqDjaXG9DpYzhQ4xeaxknEUbNMS3w6gqw2P7ZC
fzxqXCqmm68awg6nXHNjzVg0o0+b3Z3vx3f3K9ZskfsD420lHdURPViSPr4+
m8tFLdfStOMbOlHRMITXTuVgxVLz2lbjlzgZ+Tb6mXoQ3u0bvf4poR5FUoqB
ymlP9HDRfdLnW4gCJbG2hGWL1cpRb59fLAC+r/fka+998NPwKv3YYwitYXyR
PMMLaDM1y4znLyCmSVXeuvQMOBR8aDt0rBPOTZVZSg9zwI61Tn5R1ANGAl2R
q4gLfK+emF2V/VBy0knWJY6GlkN6as7rhoA/Y+BxzyQWJIZalzqzR8BGN1GN
gfFw8cIOH772GJTmaNTnuSRCT786O6B1HOziOmye0K6Cd+Sej6udJsGB5z9V
1JYMTTusrjUpTsEbhWCqeU0qmCrVjhfaz4Cwbblb2pAGerXBdopJs5BIURww
oqUDZUWumDM8B2c8uB1JJQL416XOs9lkATqT8+zDN2dC349em0wSFiGsZKJo
pfYmhLmpaxj1L8FwFdPusUcW6GT8c0xBTwohj+MPOUtuQal7/v35iGWwCnGd
MH2YA257L9u31q2AHs3p9ah7HpR7njVifPkML8u5Jyjr74BUeZ989ZGvcLn3
6LZdcfnAfmNN18uSQaeoI4oZLgRla5XG2jwZtH4QT+f/LoTGwl7HkwUy2Pjm
ME/ushB2RUT65JTKYJOYavqCJwTq5soUnWYZpEtEtn63hPAixHJEa04GLfRi
/a5aITDXbEujOpHArkpj5CoQID0n/aHUhYQmv5wMmhIBZX0td1luJAQMOls/
VCNAvyygJuUUCUIZ9UKjNgFfjhSOKUeSAEbmVZ+3ElBZsHnv6nsksKSBTx+x
CPhNbbrl3gMSnOOPR7HYBJhy69n7y0nYf8WNmDxKQMZBj8ArtSRULHRvMvMm
gDObLZDvIqFBSh+u4xCw3T1Iv+A9CZeyF/v9uQQMiX8uthkggcEIsV0bTYBz
1vv62E8kfNzT7hlwhYA1ckUOhtPf+p0+mprXCMBgbnfDAgnkjiXrplQCwt/u
9/JeIcGfO/juvICA7/+C7/+C/wD1yYEt
       "]]},
     Annotation[#, "Charting`Private`Tag$58884#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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, 2}, {-0.03631704748007345, 0.03631704748007345}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.817205429041562*^9, 3.8172054394073963`*^9}, 
   3.817205479781142*^9},
 CellLabel->
  "Out[411]=",ExpressionUUID->"028520eb-aee9-483d-9152-2416a8a91977"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", 
           RowBox[{
            RowBox[{"Sign", "[", 
             RowBox[{"\[Theta]c", "-", "\[Theta]"}], "]"}], 
            RowBox[{"Abs", "@", 
             RowBox[{
              RowBox[{"\[Xi]", "[", "0", "]"}], "[", "\[Theta]", "]"}]}]}]}], 
          "}"}], "/.", 
         RowBox[{"eqB", "[", "0", "]"}]}], "/.", "ARule"}], "/.", "ss1"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"gCoeff", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
        RowBox[{"h0", "\[Rule]", "1"}], ",", 
        RowBox[{"t\[Infinity]", "\[Rule]", "1"}], ",", 
        RowBox[{"m1", "\[Rule]", "0"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "1.01", ",", "1.3", ",", "0.001"}], "}"}]}], 
    "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.81720558184165*^9, 3.8172056145702963`*^9}},
 CellLabel->
  "In[415]:=",ExpressionUUID->"aab225ac-8e68-4d46-a4da-600fe6364133"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwt1nlYjekbB/DTqdO+nLZTKpEsFdkpFd8HGSIKmYRRkZCJIqMYDLJNtqxj
K1kSI/v0syTL2BUzEjKGIVsh71anvd+7PO8/Xec61/uce3vuTx7T5o2boVap
VJ4GKpX013vK5hs1Xgy2Jvjk+Ee1I9ucjb639mVwafTz8SUH3UnLk9TKzr0Y
dNO1HgtraktmZX79Gf0YdPjB7Xmv6W1J6ehp2okDGEwP8Du2qMyNDDR/dihp
IIMwj5iBm8a6kbzbo/zWD2Zg8pQt7vnUlditunY/ZxgDm6w5ZyZMcyVL0W/q
pRAGbed6vWxf40I+Nh5jH49mEOlF9OUbXci4C+6rP49l8CI5xuZ9VxdSmCJF
yGBp3WTTKw/bkC69TE+4TWLgERQ05dvCNkQObyqDwqLtxc4ebUiTdNw0BnPU
PnffPnIm8fLDYP/IgokGK53J3x3+qV+WwIAvKEzt5edMAl+Hbdw1l8Hn82UX
/b45kdy9N9ufns+gt/Fb79fHnIiY7Pm7PzHQ7a2YXRfvRJY4nBz+ZjGD20Ni
v0zs7ETe/yUdyKBL4obxLz7qSLh4mt0qBuYzXCujfteRSyGW6q5rxfolOHe9
kKQjnYxX7BiawSBq4LvZz/10ROrGlM0Myt8nphxQ6UjDsgQxZQYF2f7hdfcd
SZwcIIOkr4Ma7+10JI/04yuO7GWQs9O9v0GcI5GiK8pm0PXTkAkZvR3J4SSp
Iwx6eTU7RaodibXv2f3fjjKwG3Q8PaLUgaSJ3TU9weDTSp97KUcciHiYmDCD
w+k27Y6nOpAxUnvPM3h1tOnsx1AHIrfjgpiff/Emjw4OxFMqXyGDv+a7rgmt
sydyutfEefCt7jj1kT2pk8K7Kb4/u/OB0KP2RD7uLoOH3I471r/Yk5Ji6WHg
Pjy1fm+UPRGHJeb9Xwy8NT5OX/rYk4PDCvjmJwxin9Qt1lvbE6l6unIGz658
ri6osiOLirJdevzLoNlh1mHPO3bkzWKpIQxOHN3Tze+wHQmVD2SQ0bg5+fMK
OyKdllrJYItB5amAGDvicXq+ONJi/apck9vBjmT8KE0gA+ui3mu2u9uRWi/p
gjDop25U72ixJTFygxnkkb0D3F7bkgc5UoAM2JT0gk7XbIk0zZZqFoHbCoLy
c2zJATG6jsYsakaF3zi5ypbI18Ocha/V9MTO8bZkoXzhWHRWaTK1IbZEHj87
FvE/7j0+u5stGSknzCJjycTo7lpbIrfXhcWxVx/TJgta0k5qhzuLtiO++/T1
uZbI5evAYpjjtYtvr2iJIKXbmcW2f+3b+h3SEjm8riweVf8x9dM6LbknHdeD
xTdN74/8XC3pIz8s9pTlDYicoCVZ346KN5jF354zOZsgLZFuW1wgi+tLt99y
9dSSBfJCYBGTr1+aaq4lYrLiQLNI25ylH/7OhoyQG8KiT1baTP/zNkSavtuj
WJy2Wjm5KN2GtJ0kTTQLp9lbTJ9OsCFicx/qx7MYG/rr7SVdbAj3WFowLHq9
OGd9ot6ayOtqCgvV7y6LpxdbkzvSeokR6zHL+VpWtjWR10GcWM+Fn89PWmBN
9knXdxaLNk5xI7YPtybydfuRxfR7h9NHuFmTZHlhsWgfJ2xIYa2IPM4pLIzZ
A/sc71iR7+SBYTHPjtN477ci8rj8zKJvo3evEwusiKvU3hUsmo2379030orI
7VjN4h/dgad6DyvCSOVbz8K9wmzt5XpLIqe7kcWZ1RZx7/+2JLek8DLF+H/d
03/BcUsiH7eDhde7k8+nrbIke3ZLD4vbXbb1PTvFkkjb+ex+FnPXDQyO7m9J
5skLlcUGkzPaWVpLIlWv4oj4/fT4M/erLEiwMtDIG1M4avUtCyJtK4eTLA6s
mWu384AFaSMfyMIzzn5Y4xILIq/nAhaR67N7nIu0INXSOr3EoiTim3dhHwsi
r78iFi13J+xy0FqQP6V1dYNF7J6eHy59MSfyernNorTtis3598zJb9I6uM/i
3OP1us+55kS+vg9ZOIxKMp2fbk4S5YXPYm2/ikYyzZzI1+MZizHjbm75npiT
IfKFY7HL/em8M+7mRB6/1ywqNIkjw5vNiJOcMIsJVZ4ver00I3J7P7K4Wr7t
v4jLZuSL1I7PLBJuWXe5sMeMyOX7xsLf6YdlkxabketSujyL8palRQGTzIgc
np6F5vuE25EBZmSndFwjC7eG8iWnXcyISn44xC6zeDC00ZTMkUHiMNl5U672
pSkpk7g05VB6wspEd8WUKAuBQ8Lb9p/HZZmS4xJHWg47O7SJvL3clMh8OHAI
TH4SMS/WlCyX1r0zh6eaTD50qCmpktazG4egzBvDp3YyJRHyghbfd6tMOGhi
SuT115GD4bzZS5yrTIjiOYdTn+L3XS02Idtlzzmk38iq2XnKhHrO4dbB4HP7
t5pQzznMX/SfpnShCfWcw/V1vh36R5mQQfLC4pD/RwO5HWRCPefQ9qFF9sr2
JtRzDi4tjT8nGJlQzzlYwKPd0k/G5JPsOYf4P5NKLhYbU8/F88fFlbY7Y0w9
51CW8d/ykzuMqedivQzdOs1YbEy2yp5zaOi/1nlotDH1XPy9kX+cHR5sTD3n
xHkeFjbf25h6zqFlV0noDWtjEiQvVA7P0m5a+gka6jmHEru5/KNyDfWcw4OU
OzM3XNVQzzmEFS4onXNEQz3nMGXdsYOJGRrqOQe1xiM4M1lDPecQskrt/TRS
Qz3nMOK3spuBgzTUcw5uV5M2Xu+ooZ5z+HtRZUO8hYZ6ziHxdfrarpwR9ZxD
9uW8U9blRtRzDrtri1mba0bUc7EeqxMfdj9qRD3nUHCx6U7CJiPqOYeA6rJp
fy40op5z4LN6dvL/wYh6zuH9E/tdd4ONqOccDlWHDEnpZkQ953DjSsTZAAcj
6jmH4frYFNcmQ+o5h0geTrp3htRzDh6XxnX1KTaknnPoP2n9kMjzhtRzDo/W
jGf27TOknnPovXjXvYZ0Q+o5h0qXvLikREPqOYflMYFRzRMMqeccrGtjSM4g
Q+o5ByfntPOTuxhSzznc/73r2G5aQ+o5h9CN0efs6tXUcw659r3TrN+qqecc
Mu9UD273QE095xAVanIy+Lyaes7BMtUietl+NfWch/2eHP2DNWrqOY+3X5e5
+iapqec8XvnHzMuJUlPPebhnqnd7DVVTz3lEhLrhRjc19ZzHXYfvzebq1NRz
Hus8gw90Vamp5zxq9kfnN1QaUM95PHdU/fOi1IB6ziPEZ8KTB1cMqOc88kfE
DCs5akA958FnVL94lWlAPedx4uLWIaqfDajnPHwmZ/v0ijegnvPoyLUfkhxu
QD3nMWb4c/9rAQbUcx4TH/e92raTAfWcx5MBYWvW2xhQz3n8XlUBwwYV9ZxH
9K3RWb++U1HPeeje/BLR7pGKes5jyzSN7vpFFfWcR++Z3M55h1XUcx591JUZ
PptV1HPx/VCb42yainrO49FKi6M341TUcx5jA1r9D4WpqOc85uxbqdsYoKKe
85j5v+zaFZ1U1HMxvhclW1ZoVdRzHpXN5QOc9K1QPOfht2xlLkpaoXjOw/nk
y+dLDrVC8ZxH4PQPQx6ktULxnIdx68hI3/BWKJ7zsDg1aX1O51YonvPYfM1g
dJfmFiie8xhteE1XVNoCxXMeq4IOTJ5xvAWK5zxu5vbIdFvRAsVzHqOWL/St
iGyB4jmP6/urci90b4HiOY/FuuSUfZoWKJ6L+bwbZbXpZTMUz3no9+sqN5xr
huK5+H2XK8t/+7UZiuc89i5aEHI6thmK5zzehOcXlfo3Q/GcR56ZbqJa2wzF
cx7rR6/bFPixCYrnPD690fyzrKgJiuc8js88VfBgRxMUz3l8cSnc45HYBMVz
8T5tSlb9EtwExXMej6NdYz+4NkHxnId/lbp/BN8IxXMejlXxdXfvN0LxnEeq
2wKP4IONUDwX5/exn8+ttEYonov37aecjFFjG6F4zmOraVLRU69GKJ7z6LK2
e2C8qhGK5wLKQnwW1z9rgMyvkYCJIxP4zacaoHgu4FVUrrv32gYoC0GAfvCg
BTenNkDxXED9w56zYvs3QPFcwO4bdimtVg1QPBcQlK+xynpfD8VzAfEnTuYF
XamH4rmAtxa+hS+210PxXIDlPW3hoh/roXguYFVNuJt9cD0UzwX41w0OP+Fa
D8VzAQuPZ9wfwtdB8Vw8b0y75rL7dVA8F7As1jdqxsE6KJ4LmDfQNYxJq4Pi
uQCnXaljfhpbB8VzAQvuCrdqveqgeC7A6+t4z2RVHRTPBWQXTy9990wPxXMx
/03M4LGn9FA8F+AWeLH8jzV6KJ4L6Nw43chuqh6K5wKMOs33mdFPD8VzAZmG
fc+dtNRD8VxA6tRCo+qKWiieC7h0pXRVh8u1UDwX6zvj87ZRW2uheC7A3FS7
a9bsWiieC5jg9fJrKqmF4rkAdfcE/RKnWnyQPRfj8/zONrm6BornAta7RO+K
vFUDxXMBPwXUVXTfVwPFc/HzzN1htfNrsEX2XIDjhtae+SE1UDwXMDTV8t9x
7WugeC6gMqIg90OtAMVzAU9za1/NLBEQIC98sV8vLzwpOyRA8VxAeczdJz3E
OBXPBfzWo8h7YbgAxXMBZu++uh7pLOCd7LmAbwPHsUVN4p6WARbQV5f29bp4
7xTPBdQUzh2bn8dD8VzA7Mt5k39ZxmOT7Lk439y34QERPBTPxfetR4a98Oah
eC7WO+Tt0ehW8f8k2XOxPovY9Hui2/8HL3y1cg==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.0039583333333335`, 0.6557531074626566},
  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->{{1.0039583333333335`, 1.3}, {0.6557531074626566, 
   7.83713008710278}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{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.}}, {6.214608098422191, 
       FormBox["500", TraditionalForm], {0.01, 0.}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}}, {0., 
       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.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.}}, {
      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.}}, {
      8.517193191416238, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      8.699514748210191, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      8.85366542803745, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      8.987196820661973, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      9.104979856318357, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      9.210340371976184, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      9.903487552536127, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      10.308952660644293`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      10.596634733096073`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      10.819778284410283`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.81720559874267*^9, 3.817205614807034*^9}},
 CellLabel->
  "Out[415]=",ExpressionUUID->"6e880d59-ffe1-440b-af8b-754c17269f6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"tastTab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Sign", "[", 
             RowBox[{"\[Theta]c", "-", "\[Theta]"}], "]"}], 
            RowBox[{"Abs", "@", 
             RowBox[{
              RowBox[{"\[Xi]", "[", "0", "]"}], "[", "\[Theta]", "]"}]}]}], 
           ",", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"Abs", "[", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Theta]", "2"]}], "]"}], 
               RowBox[{"1", "+", 
                RowBox[{
                 SuperscriptBox["\[Theta]", "3"], "/", "t\[Infinity]"}]}]], 
              ")"}], 
             RowBox[{"-", "\[Beta]"}]], 
            RowBox[{"RM", "[", "\[Theta]", "]"}]}]}], "}"}], "/.", 
         RowBox[{"eqB", "[", "0", "]"}]}], "/.", "ARule"}], "/.", "ss1"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"gCoeff", "[", "0", "]"}], "\[Rule]", "1"}], ",", 
        RowBox[{"h0", "\[Rule]", "1"}], ",", 
        RowBox[{"t\[Infinity]", "\[Rule]", "1000000"}], ",", 
        RowBox[{"m1", "\[Rule]", "0"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\[Theta]", ",", "1.01", ",", "1.4462747730035337`", ",", "0.0001"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817203327473588*^9, 3.81720343332192*^9}, {
   3.817203480635425*^9, 3.817203492915291*^9}, {3.817203567652894*^9, 
   3.817203683334523*^9}, {3.817203792400964*^9, 3.817203867074172*^9}, 
   3.817204689929282*^9, {3.817205150944984*^9, 3.817205152576948*^9}, {
   3.817205223522706*^9, 3.8172052338427467`*^9}, {3.817205288780418*^9, 
   3.8172053029241323`*^9}, 3.817205411974576*^9, {3.817205654107472*^9, 
   3.817205717556713*^9}, {3.817205782518643*^9, 3.817205785669633*^9}, {
   3.817205818678906*^9, 3.817205827254903*^9}},
 CellLabel->
  "In[430]:=",ExpressionUUID->"f01a72f1-91c7-4454-9040-b54a61c9cd07"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"714.8507679457919`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 430, 270, 
   31478759869561735920, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817205655271134*^9, 3.817205688892234*^9}, 
   3.817205721737104*^9, 3.817205789890027*^9, {3.8172058233032007`*^9, 
   3.8172058313878403`*^9}},
 CellLabel->
  "During evaluation of \
In[430]:=",ExpressionUUID->"46cbf58a-9f1b-42bc-8a11-616c84d0e1d7"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"722.0335445780802`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 430, 271, 
   31478759869561735920, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817205655271134*^9, 3.817205688892234*^9}, 
   3.817205721737104*^9, 3.817205789890027*^9, {3.8172058233032007`*^9, 
   3.817205831391543*^9}},
 CellLabel->
  "During evaluation of \
In[430]:=",ExpressionUUID->"c25c6435-fc6d-4b46-b41c-a3d203aa09da"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"729.3631832016845`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 430, 272, 
   31478759869561735920, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817205655271134*^9, 3.817205688892234*^9}, 
   3.817205721737104*^9, 3.817205789890027*^9, {3.8172058233032007`*^9, 
   3.817205831394842*^9}},
 CellLabel->
  "During evaluation of \
In[430]:=",ExpressionUUID->"3a09025b-666f-454b-9a32-9f324e354788"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 430, 273, 31478759869561735920, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.817205655271134*^9, 3.817205688892234*^9}, 
   3.817205721737104*^9, 3.817205789890027*^9, {3.8172058233032007`*^9, 
   3.817205831397901*^9}},
 CellLabel->
  "During evaluation of \
In[430]:=",ExpressionUUID->"5b1f7808-f0a6-4257-b7ed-4acdc8c4ac95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{"tastTab", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817203685047369*^9, 3.8172037150151052`*^9}, {
  3.8172038305379047`*^9, 3.8172038309130993`*^9}, {3.8172053051002283`*^9, 
  3.817205343292968*^9}, {3.8172053927899923`*^9, 3.8172054097503033`*^9}, {
  3.817205661259445*^9, 3.8172056675554*^9}},
 CellLabel->
  "In[431]:=",ExpressionUUID->"1dfbee5f-7e33-4446-bc10-991ba8838497"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.003666666666666667], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwU2ndcTW8YAPBb3XbntpcoqSgNaWnpPBENqdCiiZCIdlKJKKWEjAYaGtql
Ukk4kZBIRkpa2kXET/NWv8dfPt/POed9n/d5t5vsvuM7D7DSaLQiARrt37/8
+rTISO5lkH+D8S6Fn6Aedm/0V5mShHHZ5U8nBQnqSFHmJY5+SUhNvm62WYSg
VnCeGOJ/Jwn8LYlnE8QIKtWXM8H0kSQ4+29M/CBBUJ5qlllFBZIws/ZLopAU
QdFlqs2NkiVBfFPrnW0rCGp32c+C+ShJkPpd1X1KhqAci5Kn+v0lQXDrrn1F
sgT1/Jn4vqm9khCZmW/2UY6gfhS7KWrYSMK7n0uFUwoE1VtVF3vDSBJaIgZz
hBUJqux21utVqpIgf0XPWnktQWlnROq2SUlCxY311EYVgmpNuSZTxiMJNRpu
AtvUCKpPrOpj6awEvP15336XOkHdMjEs+zgiAQG1l/PtNQjqfNYbhnS7BExJ
V0vbaRFU9kHDHXEvJGDb9n2vrXQI6qLnvq9S1RLQMGzcsFmXoFSyFiVaciXg
1u3TK7T0CeqB6DX/7BsSUHnt5ZiMIUHNcFo434yWgOFsU5LTiKC6kt9srQiS
gFOHKlTHSIK6HqNVMH5QAp5IbX/50pigptT6aCYOEmDjMbgyazNBhV4+9PKh
qQS0dfWYhWwhKLtI/zM7dSWg+IrOjm2mBPX0Q2kpp5IE5G4Jt5A0JyhB75KO
L5ISYF84YNJvQVDuzq0xr3kkgH58o02+JUHRnmqZd8yLQ5HSfOgRK4Jiu56S
z/ZDHI5qb/isZENQ6Zo7DCy6xUH1UIXPwA6CqqxRSixqEYc/xV/tb+4iqHJe
J5O19eIgkfImycqOoIqyAsaelovDQqON8aI9QcX/3SYTlC0OpYb97gWOBPU4
ajxi8w1x+Hm3im3XHoJadiOycG2MOHDEV+jMOBHUwmG7zconxYHmFMqR6kJQ
kZIlYyZHxeFmqFeErhv21483W4NdxYF1Y2rxB3eC8jXuWay3EYfWmm+3juwj
qKau4Yfym8UhKvurI82DoGLeP1RM1xaHu0L9368cwPHx5NekuqI4ZMuLeqw8
RFDWl1qfdywTh7pih1eFntielJ22KQSW98J+jZYXQRWv47A+ThOHS3vOxzw4
QlDq5wUPO/0Rg6jritMG3gTlxL7KwWVIDFJctoQ/PEZQjQP7WgI6xOBqyX15
XR8c3+r+sZnNYvDxl8z0PV+MV9jZqP+JGJiZzC0o+mN9Iefz9CrEQJmK23Q7
gKBEmFVns3PFoCvvxxtGEEGNiM/Hy6WKQf9NvvzwYIJ6VFwQWXVRDH7dy/86
eoKgfBr2yLucEQOtZCffXScJqi2hTUM8UAzeZFw6XhuK47NM3GfAUwx2N13o
kQ7H/qCM0hucxWDiider06cISpcj/ly1jRi8fLdauzeCoJ4cdxysMxGDnN7L
azeeISjuJ4yYj7piEGFjfy8pkqCsxuW1FlXE4EkvrfXnWYK6f1+0XE9WDJbH
T1/eEkVQEsf3vI4WFQNz54iZ5GiCmv/uYTHILQYqunWMsfPowpQ520VRMCy6
90U3lqCuSFvkffotCpeKNu+PukBQB1eXrjw0LArlOzaUtsThfLnfv577qyjU
XtJ8Ln6RoF6m9hQ8fCcK5iP1hS4JBCXs7ed06rkoqIpbH868RFA12UYiO2pF
4UKtMr3/MkH1t1bmapaKQs7f+MhViQTFP8MYVMgWhRf8F8fcrmJ/8ljeWZMi
Cn2Eyqab17B/ziuX6yaIwnszm0sfrxNUmo7SqONZfH+x8TNvEvYPLWR5zAlR
GO41kTVOJqjDA6yrGr1FQeL2Qd+AFII6x+/2Tmi/KHB53HuTk0pQ3zjeL3o7
isL5I1cNPt0kKJ7fZlGft4uCrbcHxXqboLKYdobWm7G9qw7uVUvD8dKqsvBR
VxQ86hrkHNMJKlYlPdNTDeNxSOI7nUFQP6Mk6TzyotDj07syNxPX09b0pRpJ
UaixSTjQdIegZHc1HQ/kF4WfIaE937MISiHhqTrJLgp1gsevEjkExQEgIzYv
AlpbV0Sr5BIUX1C0xNwvEbhWvqbO/C5BiVe4z40NiQAXtUL/QB5BeSuuzBr5
KgLt9HB6RD5BpdBSJn+/F4FXGfdkkgoI6vNDmefcr0SANUnscnEhQbnejl5Q
eSICHKundj8tIqjvilKhzvdF4NiKC2c+FeP+UJYlnVyI9a9n8gyXEFTDpPOr
nkwRsNh2cG6qlKBs6qedNZOx/s73u9jvEZRb442HiQkiULNqo5RQOUG1b2p+
sXBOBOTOXrFdUYHjZSzJIyBUBPY+L2ZbU0lQrI0egVO+IjC0b6/KuvvYXgXO
7rOeIvDytfd77SqCCkmtjVzuJgKWhdGz+tUEdZVjpRllJwLcyjtzjGowv0UG
wsctRWBC83AHPCCoZFv/V4qbReB5iUOKcS1BrQmMt/mhJwJf62+NwEP83rsg
oU5dBOwYhU1Gdbh+Pbf0urFGBNLGRzYZPCKo4dDtTSelReBIZpmtzmOCMnfs
uX5YVAQSM2zY1J9g+6zjK/fxiUBSLe9ORYqgpkc1GQfZRKDRQdJEph7nUw13
nP+cMOwqyvkq8pSgrjVfFY6bFIal8VZp7mcEJWWcf7loRBi+hFUSTLT6M5/x
zz3CUKW4u+hHA0FxKbkRxGdhSNpev9D1nKAqGDq9294KwxjfAP1NI/Z/KKvV
tefC0B9S0lD7gqDWxksZD9UJQ30jG9x9ieNRWTbbuFIYJH0fhSS+wnhfzu3N
LcT6jxYGhDXheiTVdkAkSxhyra9pHniN+9dPhZtxqcIQcUL7gWUzQf3+mfGD
N1EYRPU3c2m+ISi/02B+PVYYbrEclpN4i/MnhUxdc0YYasPNCSY6uEDyzdMT
GH/DqZfdLbh+nY19e9BHGNJDUh2odzhfNsfECXsKw81fCo8yWnF8b7ecfOkm
DE923pmPeE9QTNLsR7SDMHylYkRdPxCU4qyS93ZrYfgYaEEYfCSoy0kdrstN
heG/YZtBsU+4/0adKPtjJAwvRxfSJ9E1se42H3SEYV9TIfm6DdvzeZXqQzVh
uBtQ3Jj1maCSlM9rF64WBtkEqw2h7dg/wxccs6SFwfT6h6s7OnC+aLhHZYkJ
g9pSSPfqLwT1Ws67sJAhDNttT0jOo7+MWtQ+5BAGru2LW992EhTnfEPmh0Uh
uPlD63DGV6zPrH3HnykhMMw0ivTtIijDoPLaZT+FgMtuwzXjboIC0XvN5sNC
IJaolSnQQ1Dh/e4nTvcIgWXSlsJudD4jvOTxZyEI9fOvLOzF/frkhBv9nRCQ
kvWPg/sIioXvdfiOl0LAdka5edM3gtr813Y2hxKC+ar8br5+gorgmnvG8kAI
Nk6rzHxCl/DuavG4JwRTzzKWpQ3geiQgR7TkC4H9/JjpgUGC8m+xPw53hEBq
YvyM8hCed9jpIzWpQvAo4FTTL3RWm+dh3atCuH6ckLs/jOv3uvHBx3FCUP88
L+HECM5PdQkby3NCsCankzAYxfF9JSu1N0wI3nu13WGi68UO1YQGCoF3827r
R2MEdWh2760Vx4Tg5WlZ0fBxgmK41Og1HhQCaufAX4PvWP+z8rOBbkJQo2n7
ZxYdFvXIW9lRCCa2S/NX/yCoZnPP8WEbIbAQG7fwnyAorXMHfhWYCwGrq2ue
2k+s73esT8AmIejZL640ilaTaXYzMRCCxYGyt3d+4X74bXP5Mi0hyFStT3Wa
JKg9I0rO0ypC4Kn0JUH4N0HpG3ze8UVBCIL8Y4ua0G9eNZx/Ji0E9IOOf0//
wf3274Xf5eJCILK22UvnP4KKku6LzhMQgv2NBxjj6M86t/WyuYUgSe1OX9pf
7P8dFUs5rELwYsfc4I4pgqJ0tN8WzwtCrWL/cvo0zn/mjtSH/wnCjYY35++j
A1Psdrf8EAQZ5zWKB2fw/bN5tNEhQejevXtJdBbnu1lLFFevIJw4/IrxHB2q
6NWt2iEImec6HPznCOpdrRZt93tBOEUb6Vw5T1BLMex9sa8FYSnF+tYb9Ofy
N0FUgyA8jTyUGsIkqLdXkquZjwRByfvsZ/kFgppziUsxqhaEW8l/bFvQbR8H
hKLLBMGqiy4SskhQln1MyQ/5giBbQxNbtURQXltMchSyBEHAXtW5CR2xxaQw
/JYgnEt/M+xLY1CutmmrOq8Lgvdm2VoJFgZ1oZ6X1eiSIBg89fj4GK3u6QK5
MYLw4UTrBg9WBtXtFvpROFIQGgpuD3KxMSjTEo/70aGCwHuR2V2Edp1T+7IY
gN/bSCvY0BnUb+DQDzsmCL5r1R/8Rv8Xq9K8eEgQHPY637rGzqDy0mfPR+8V
BJptU4s2B4M63PjFQ9hJEAzPpdm2ob8F7tyTYysIhzLmlIM4GZSd8IyboZUg
uMQv2ItyMSjL4mDvdlNBeOL1rK0CXVp95WSIsSBI5h4o2sHNoK6+WhYhYyAI
AbNz7RPoQad5vyYtQTANSXKJ42FQQrHrrE6qCQL7LUuDNbwMKu1NI9c6RYxv
k5L/U/T3V/2pI7KCUP9Ej8OFj0H9oNcxc6UEIfTb+b9T6OjSpNVeooLQMr9s
02UC4z/cKqDBLwjU8PR3RQaDcuZoq1jkEoQ5EdlpCn3TVp7rHasgRMTf2OvI
z6DWD1hy5DIFwGLWTvUnWqJlMvf0lACcLt3jFCXAoFZGNn5z+yUAopW3vy8T
ZFAD0ZfKN48JQPcz0W+l6J1Wq/hVBgQgZ0+1oYkQgzJhekxKdAvAttqAhc/o
NE2rnTztAhA8uVHhiDCDOtg/sJb2XgDufqPdX0C/FoGAudcCUGWRX3xJhEHt
eBC9Zva5APi+WCkgK8qgzE7+3Mh8IgC63VZd99CssVQZW60AyLJKim0SY1Bw
3DqEv1IA0lL3PWxFt/XSrsiUCEAYN/HWXZxBNVw0m9TME4CRsmmrn+iJ//Ku
Wt4RgKezS0bhEgyqcEOF7+FbAmC7myWdR5JBdf3giLpwQwCkHT4dT0Lnze14
UXpZAMYSd5XLLWNQHXttNDouCMCyph2HStFjK5qfcEQJQERX1iV9KQZVNnXr
sG6EAAy2Sak8Rx9xzFM6FiIAxhOxG62XM6ga5b7Zu/4CsP1SXUM7+n2x6cdB
bwGocz39dO8KBpVuPlq+xlMADpAZG8bQQr69l7z3YfkOg/J+0gxqW7DtgWpn
AbgmKh43i954JESV3UEAzmjPe52WYVCpvy99s9+Bfm73nGMl5l9h8FTRNgHo
WzuaGo9WPPKeyb5VAN6vDvouKIvj2e6R/X7A/HY+rL2Brjwlfr5BXwBWtQRz
SK3C9h1yjVHSFoCEPwfepaGr7aTsEtcJAHUXJFfJYbzr+ocXlQSA+Yjqy0bP
uNobHJcXgEsRt9eukWdQhiUrLfqlBeDYvfj/8tAblWYZTpIC4JC8CdYqMCiH
hcxzbcICILfgyyhEm+wZybFjCECzerOb8moG5b0r27udSwBKBVhwX2ZQsfU1
ba5sOD55niSsXcOgzM1X17TO84PaygrvfLQr4TD5/Rc/cH2Peb9GkUFF1nFZ
8w/xQ3L22KMc9FS/7QvdTn4gV55Rl1NiUDwnDtscfscPWzr+rM1AV9+K6c14
zg8OkyPFy9cyqHZvrmM9tfxwRJu9Nhk983LnT/kyftCT/W4toozrlfjgHt8c
fhj+RvpcQk9K2txtSOWHSNdMKR4VBqVRseG19GV+OL6+bOc59Nr7Ox9FRPGD
ShWP2CK6qdgrYPgkP2zgtDoYrMqgsiqdhu18+KGFVczkF9pNT4R4fYAfBKwW
Sj3VGNTX99e+bnXiB2vH2wW9aF/GL8tXNvywwzVBy3Edg3oCFnY7t/KDjfch
qxb0WvuO730G/OB38PHMFnWc/9kDPCfW80M4i6JWHTroUUOuyBp+sHy3gUVj
PYOyhv7q6uX8cNr4tPtd9MaSWu29QvxQnJW4c7kG5mdjm7ggFz9oKy59voz+
XtJq92KBAWZDtpN0TQb1buXu4bN/GHCnSzb9BPrMkGLD1lEGBM/+7htHu7oQ
A/w9DNATtq111WJQl559M+r5yAC7vy2KrWgt/uvNlU0M+O3yS3WzNs73Rpmo
yxQDHrIYNVWidT9ddPerYoBNAiwq6DAoP69Z+z1FDJAoPtV0Ax3XHOdudocB
jeyn1nFuwPmnHR5omMyAz/BMNRjdVSiSoJOA9fG8fz6E3t59947OOQbMCKvO
2OkyqKSF1ELDkwzglrB/3oC+luyeaebDAL/ON6qaegyK/0RI2J6DDNinLqKR
iR46GaDt58yArJm77xn6OJ78Jxou7WTAyBpOgTB0PGuiXIUZA/gbS8ZG0Noh
4hZfjfD9yWX77Qwwn+Um63m1Mb6+xpB6tNHf762kMgMWRlTWqRoyqDctv+RP
yjKgPKjxbDJ6enajXK04A3ol+U6wbcTxr9nyfIlggPLZQL5jaB+5IvZtdAZ0
RYcYt6Oz9Ec7b84RwCaTIL7JiEHZJN41/v2LgBpvxUuFaP+3IupWwwRMPK7L
EyFxfC96ZZR2EXDpwmOPcHTymV9xYh8JKAvKeDaI3jMwPR7ZRID+7o/PtwP2
/4ueB/9RBEjpvz5yH33jqdDPI9UE8Nj9vb/cmEHd28wZNVJMwG2pp9ln0Yxg
MtArm4BVGzJ0x9DCSuYPJlMJOHRhwddmE4NiFjyyOHWFgOuapjuq0A7VxnIC
MQSsSxhtk9rMoEQdogzvniKgVMuG7Qw6vnHz5c2BBDiwDrUNosOdNksMHiFA
VlR0p4UJgyK97N7G7SNAu2VrYAn6kIp90YbdBHxu7wehLbge5KoUjVgTIL7K
9n4gWudK04u0rQQEDiy+b0c/NVCZ3b2RAP9si1SDrQzqfrCj/jItAnw0b/Om
obefco/qWUuA9D2nNTRT7K92t4/5sgRoXBz7sRddaBYmGyKB+Y8tdnuGbisd
PLidn4DvNZzh8ma4f89+SlvNQcCyaKetUWg2tivP6At8MFPKUzeI/nvOo2X4
Dx8Ubw/q3mLOoD4x79a1jPFBQcticQ465kZdVF0fH/Cz0JXZLXA9FyMUStr5
4DD3oJ0HWuEZcT27hQ8qvWnrnqF/2Ri+S2/kA1OhyirZbQxK/7VMa/ojPvhs
4PIjAu1/2iwxu5IP5K44fuhCB3y3ZpQU8oHectbDBpYMald2O1l3hw/Gtt0v
SUa/NE6QbUnhA96/zdl/0cusFUqGLuPzXVnbdm5nUFyaTr2sMXxwhUjMKkFL
rZgql4vgA6n1v4t4rPB897thpXkQH3DoLfc8iP6rmy7v780HkXyen+rRCxwH
HmR64Pc01b/LrTGfPxY7PjrxQUxH/YtgdMGwyxm+XXyg2By2/T2a3BpaYGbB
B69PVUSr2OD6l+5oE2vMB294HvpHox1ql7zf6vJBwsKwSC9a9nTkorg65md3
gpfeDgZ1cniOeWANH6QnswQmog8PXPCokeaD3wXXtMbRjfbO6vxifHB0LiV/
804G1T+T4eRF8EG21/6PN9EFVol9r+h8YL9n0/0/6Mlrvo9Umbxgl33ectsu
XE/Kzo9d/8MLHzLOpt5Bi0greLCO80LQ6uj0WXRIX6aC/zdecI3rdrKxxfkQ
6LJ2pIMXtHI7W3LROo8fe+9t5YUtLa/nmej9/2mOd7/khfQ+Zs9OOwaVnaqR
5k7xwqRBXVgeOv7Ihsihal64X2//fgH9y6Ix0aeUFwy/SvTttGfgfcPr9WIu
L5wLtcq/ix7ccH/NlTReOCK+WZmJLtgFWWtu8ML5MuNDNg64vocV6j29yAvq
rddcstH6UbeH3KN4IS4hmjGDPsnfkMMWzgtbY91PbnNkUFdOf/ArCOCFFxNH
MtPQHyejze2O8gLLycmzk+iZVRkKdA9e8AvQW2WyG9ffo8Os1U680FMVF3YD
/feecpf3Ll64ULDu6gh6bNemMsVtvNBgfvSg/h48D8lxnhjexAuasjFTceim
Xc7qBfq8sN3m1eYu9P1jaz/5aPBCxIVAKzUnBiWz1X2fwVpe+CH+XiwC/WX4
9wfuVbzg3iZ3uwXddblL4askLyzolfbJOGP7M2RtywV5wdaqZuA4ui6+cU88
Ny9MVUXmPkHLf+zQ9mLhhciyHWv4XbB//xzr2zbLA8aCnodc0W2O6bvXT/KA
qAXXoWI06XAhddkoD2gcCljNRLtL2WVw9vGAtuBEjoUrgypKX3topp0Htlys
GkxGX8wwGP/+jgcSHzOGhtATlx8rDr7kgfzVG+5queF5NOGnVB/FA45Dx5Ui
0TKOAvW9NTwQ9njmaAvaifQUGSjjgVQBQb/l7uiVJkLjeTzQ2DOtexhN2U1V
/c3gAYvW8fr76OTitkW2FB5wU1UmWPcyKAG3TUOiV3igv+fPMiu0w9LNw8qx
PKAYcnY8Be0XvC3K5AwPhKiJRwyiL84+0t4bwgN/vox/Ut/HoDKmDgSf8eWB
dTSjX6FoY5GHW3MO88Bco/nbRnToKv2M5r088HzJwkdwP55XBQ+cnt7NA+Vy
4W1O6GMjT/sVdvLAoq0USy5aqran0cEC2+/m/usnOuOW5eqLmzDftdHZeh4M
ajwtffG5Pg+cjH654iza44m/Jasm5u+Km3Mzesc3T75NyjwQbRflLnqAQXm+
lDOIkuMBxqzfWlf0C3arT6+leKDCZm9tLlp/5vpnUREekOyJEfiJtnlcYrSf
jwd+fJJV3XAQ86Fmw1lJ54FNYh4CEWjrNzpqXAvcsHn9+dpG9N/ncmVuf7mh
0vOpMuMQg+Lt/Rpb+4MbXpRaetihQ4JVaiSGuGFHobPHLfRT/74NJ7u54VG5
oko/+hDZwt7Txg1m74YeKnni+enJG2nTFm74U98s7IPOtHgQUf6CG2pn+bWq
0IOZfgqyFDdYpg0uZ6Idh7v5rtZww7W4yLfGhxmU7Y1hDa573LBul5T5efS+
0JPXTudzw6aNA/HNaL6iWDVmJjfEmwmmCnoxKI4I3sWTqdywR7nNxx69+tzc
EjORG57uOih4E30/zG59ZBw3HB/5L7QH7bNL5hLPOW5oe1lZJncE8yfqJnYj
jBv+XmwvPYSWHZVpkA/E9l1IDClE/+DyvV7lzQ1FzSKMn+jaBwfObzvIDcLL
r3hrHGVQx01Ek/pduWGAqZsciD47kVp/yoEbhks2JtSgr/4Wpa+w4QY3tXfW
82jLkHynx2bccEJLtmujN95fE8Oe7zPmhjcb9uqcRu9QqTXi0eeG1qOU01N0
E/+VhkoNbrBqPLadfoxBGbRp2u5T5oahvzd5t6L1BtrHhOS5wedo8I3zaJN9
tVGNy7khco/6xEv0Gh2xVeGi3NBe9leI5zjuf0zVRzoMbvi5coq+Da1JM7X9
w8ENCivcG+LQ1RsKBsqXuMC3Y++OZnSGfvaRwBkueLFNqYjPB893hlFD+pNc
cFhl4KMl+gFX5k62MS7wmnryOh4tNm1V/PYbF8iMjF5uRluPjf651ckFMWyX
5Pl88b5v+k7u2EcuyGV8jd6Gfvtzv/6mN1zAvLpQfQF904BHW7KRC3j7ZWpe
oX/9Vhb885gLogWOn+fyY1BbzLSbW6q5oGVKbLUpWv399f2lZVwQprP5WhT6
ehT18Uo+F2TqyLx/hn5cqrwi+A4XyCm09bD443j9ZaPvdpMLrKYTH5HoOc1i
JYtrWP/h00fC0Z3F1MiGi1ygwvpqtBZd8Z4RqBjNBVuIJN2Zf94p3SwVge3J
FHHUDsDznkjIuOAJLnBMO2Lmhz6mWvSOx5cLaouec5eiLXtNQzi8uCCctLw1
jr5wtecbfT8X9F9VpCkGMiiLt9y8HM5c8OneWW0PtKCG+09uO2z/0WjDDHRz
YMRFASsu6HPfLfoV7e/O2S9pygVqc/KUeBCDevgs9YcCcAH/McGNu9DzQT0F
WnpcMPh4a3wCemzHKYmtGlww/vB78St0+ho5rT3KXHCERfkOPRj35/qweR95
LhCcVTxMop91GB69sIILfL4QbCfR4eIS53LFsD8LaT6V6FyuRnjOzwXypGLZ
BDpnBUvGEBcX7NQrfKZ4gkEFZken87ByQRJvWcE+9LNnYhvXz3OC7rTzgVto
qaCAoD3/ccJGov3PJ7RJ1AHz6B+cUKlmas8fgvfpqPKKyiFO4CfexZuh09+t
rhjs4YTAtclJZ9DzZy5vkezghN6OhqBatKEv5Wn9nhMaydC1f9D6aheWxbzm
BO6dveXKJxmUIvOZ47MGTjjVLiHggXZ+s1WW5TEnaHqbb7qFLjWa8DWu5oRb
YTfMP6JXXk02O1fGCeJb5VfzheJ8Ll2d9SqfEzo7xdo3oxXEwiIEszihVC7R
LRR95NupTqdbnDDf9qCuHF3cIH4/7zon/Iy893MU/WlhPc9MAifwxt6aWRmG
51+nh+3mMZzgJJP22QHdqpEtnXaGEy7YdMQnoJe59nT8d5IT/Jg+Es/Rkhv2
cVkFcMLq9vMn59GZV+Xz8r05Ye8xqFgfjvmqX1nNeYgTCmUePT2Etojcpenp
zgl1q1bm30a/5qxb9no3J2Seizv4AZ330+mI+i5OEFKSnec6hesjuUEu2ZIT
GppYDxmhZ/faAutWrH9+R4E/unNlHXWM5IT98urP89CmWSF3unQ54Vz04+ou
9IJnar+VBidU6UtHCkUwqIatapFPlTlhZr2PvCn69j7TMF0FTujS/pQWipZV
n2spk+aE0yPek6Xot0ddQpUlOGGqYc/yAXTw8gtheYKckCBTJyNxmkGFRd1s
XcPLCSMK5fPb0AdVS0/k0zGeHueyCLTcp4HjqoscoKv6dWMFuijQ9X7FNAfk
NFlnD6F9DcHUcJID/LZ/7pc8g+eR82VyL8Y44KtCItMS3dz/2cx2gAOW0tIn
ItC2HH2V/V0csNAtXVuO1mueORD4mQOMh9XcBtEXta32cLdyQN21iS7xSLxv
7hO6nN7EAYyMMB0LdNilE+y6DRzw/Pa0ZxiaKVRV8/4RB+QuhgeWoJV2s+Yd
r8bn/GrOvWha341Wxj0OGJlTWCF0lkFt1SvVLCvggNjGszWb0XILMc27sjnA
yP6AWiD6v3f7U2dvc0Cr18ipXLSD25mbmUkcEHRnbcFndIOdwtttVzhAOsS8
jOscg7qz97r6zAUOCDPbd0UPra0qWZ97jgO8zRK3e6GPOM+FO5ziAGbC1EAq
ejb23AGeExxQL1Dk8BptZcIe9MSXA35ltOTMoxN4mouDjnBA8WR4i3IUg0o0
X8urfoADpK59+OiEFtztHz/uygH5M9/vx6FLTzDX5TtygNnxIb+H6IXm5f95
7uSAyDVfecfRd51VP6+15IBa9bHTy6IxfiL288QWDnA+qfLeHF12J/5PJckB
4h8fL51Ae1bfUArX44DZH3XceegXjzlPmGpyQJHjpl9t6Lwl4y5hVQ6ojPKq
YD/PoDQS8x2+reYAzxc2u7TQii7Zg+UrOeDADoF3+9DiwqlRUcs44LJug9IV
dMm6/7T3iHCAk/959ydorb8r/qozMN8dAQE/0GmHz9Vzc3HAD4W7B6RicD2w
vZEywILx/9HVMkdf1W8IrZ9nh8P1Jr1B6Ieupw9m/GWHqJ8Dh7PRFQ+NHM/8
ZAebes3WVvRFtkBrj1F2KHPeJraETr6VamHej983bdFTiWVQo2mKZupd7GA3
Zai/G/21NWWr5Gd2SCy1kIxGJ+V7mdBb2SE7L6atHF1gIgmTTewQEyzg14P2
Oqyg29vADvI35sd5L+B+flZAufUxO0ju22+ii5a64yLeUMMOMiv2hnqg9wZc
ma8pZweNH8SVy2iGmUZbaRE7XP8aGVWHfsHxMicvlx2UvrQ7jqALNb96ZmWw
Q9gDRV6ROFyfR2ZXZKSyw3uNuFskmqOt+FnaNXYo75cgjqAvGkY7piewg6/V
mPMNdPGEUGdmDDtMfhGPr0ffshw0z41kB5+2B6nf0RabLmcVhbHDW/+RGPF4
BrVxS95QZRA7pLx+aL8JvXfnM8EnPuxg+3Ub3RtdN35C7rUXO8RdKLuShN4i
tm9Zhwc7LGawLNWj6x0k/464ssPDd/aW39HXKvXL5xzZgbz3IkTsIq6Hxftt
GLvY4QV15DygDxlpvpXbzg7qHnsCvdAKX8zXGpiyw7bhgs3X0Dle5vttjdmB
ER7w+xH6zvZPwccN2MGZfHtmGD2wM/FgvDY7lK5rmRRIwP2ldrVa4Tp26NBJ
2KSPnlbXf/NaiR10FVYF7Ef/fRe4aUIO81GeGR2Pjl5xLl5Imh04TsudvI+e
YBEs0JVgBz+Rx1bdaNeWVynuQjg+es/TOS/heqPvsucCHztwGybdXIfucgod
u8/BDvs9WUUc0Ur5n8z6aZi/hB7v02jRGekAoXk63KBM8vPQjJO8Rzb/pQPv
rGnjO3RLrY1K0E865EgtNcygfdNyqgpG6TD3X0TOyssM6rTbU66+fjrU6fce
MkM7XnSXleymg2C8Np8PmpPHYGlnOx3cfK8nJqEvcDEyE97TIc1ZdP4xWpA3
ib25mQ6e+U1bhtBCfdeUeV/QQfV2kx9xBe/nOS8ELevpIH5obaQWevOjX1UJ
D+lwcuWSvxO69eN7yQ/36fC42cUsEr28Z72eZBk+3+20lIf2Fv4gvLeADgVp
fCkt6MrxsLyCbDq8dI0WnUJ3rZr++zeNDq1buwKWJ+J+W8EzvymFDlcmFKo3
oYmPZ6quXKXD7faAr57ozbNr1ny7iPH6dQ8koPe9e7VNK4YOp0WC31WiL5Ha
cjGRdEhh3ZX+BV21X6+oK4wOSUeid9Cu4n0iIXdQK5gOg4cVhhXQPVut3l70
pYMJm4n7NvT8JrYDI0foIKs0VeeDlj6SkmdykA6JNdYL19FZnwaT7rjTIeak
h+xDtEjj4/WsTnT4LGem1It2K5wP2G9HBys7hij7NZz/0oHujdZ0+HWzaUAJ
7dJL/7PWgg4/fC4nW6HXd0QpXzGhwzM9f3V/9Eqxj1yzRnRIMIsuSkLzvWyO
3adHh7LOr3x16AVjq+I3mnSwk76woxedO73BT1+NDgcVM0/SrzOo4VCvz3mK
dMhc1IpRRJMRLzol5OhQnOh40hK97e36UxdW4PfPpHf4oP1tLj5aEKfDDudU
vmtoTY4nyX5CdGgR6y6qRo9wFjNG+eiwJYW5vvPf83NG0ns56RAdzHVrEX3m
sVPjFxY6DGmIjMveYFBfiAl2eyYbBOpryGxBq3T2dL6fYoPJsQBdTzRvxnLT
HZNs8CVhQicOrTl4eWvrOBtkud5bVoImjdd27Bxig9rTLf3v0BoOnxc+9bJB
DrdT4h/08k/nK/Z0soEE88BqsSS8X/ipzPZ+YgNBc9YMXbTOr6o3nu/YoL/F
eGkP+ozIMvXfTWzg7KpjEo52LzKXCX/OBm/KJo+lo1tj9FO5KTbY4BcVUY9+
Gf4tPamWDfQN2YL60ePuuuvW3Mfvk8J2siczqE1cWqY1pWwgPM8qugbdZvZ2
yKKADdLe3H1khj79l0b0ZLOBn0eYpRc6oauxJiCdDdToifVx6LjXUqO8qWyQ
1zu7vBg9epZ5K/saG4wuf+76Fv382cEPRpfY4NZr+vmf6E/k7rgvsWzwcOLV
dYEUBvXxzodnwefYYCxYIW49OjC+LVQsgg3PE4qHdqI3Xd5fXhXCBqvX9yv5
o5W0wg86BrAB75+DH66i/X+uTpo/xgbPjBr2V6KjlA5szjjMBrOVvJ0f0Wm6
G722erCBz9B2vb/oavf7PBOubMBve/OUaCqDsn//US5pN+b3GL1Q+5/zsyqN
bTE/ySmP7dA142vrflixgcGqIw8C0fExAXo3zdmgxir25nX0U/s4ZQsTNrhk
Qz9wH70kHHplzogNWLd9F/2EDthv41WkxwaGO3eU/IfuaZa476bFBuNem9VE
buJ98+E3H5F1bFB64f11TXR66KNbTUoYXzJjcCf6luGDDZHybHDCi3O5H3oL
3zAYyLBBbFOz/hX0+GfH6r+SbPDS95hxGfqCl2zqPRE20OJlrmtBdx6xHTnG
zwZtGlEcE2gtN45MVR42UA6SfM53i0Gdu2P57AedDWRtXx5RRoP3RqvSJVaY
N8ycM0ebtPwEvzlWKE2s8PVEd5WGpur8ZYX3eYzWaHRO8+xu5k9WiGuol8hB
X6w5e+rZGCsMLv9q9gz94YsmZ/wgK1R8Obq3Dz3urfDHrpcViiTO7lv6V/+p
AGPZTlYI7Ve1XHEb+29s4+SPT6wwqhcmbYAWc09nqXvHCo/5wjsc0RHO1b5x
r1mBgyTDg9A7lXPAuZEVfuW0cl9DbxuM8VarZwV+7s0R99Cux89Os9SxgvWq
O11v0Z0hVV1tVaxAS1uQ/37733piIlN8Dy3lYcedhvvzM5uH54qwvWsHjq1G
n9+5VOZylxUEd8T7bk779/8bgUsb7rDCV/oRF3d08MHPOcK3WeFqaYJGOHpk
wDLrVxIrnCpmn0xB30lnTr1NZIWG7d3JVehjpxgZJRexve9Xr/2AfqRcePtS
DCs88fmR/RPdIcyc8D3LCs9tgJsvHePdr3zV7hQrNF9UdVD8Zy6PWP0QVnDQ
eZZggmYtbX23MoAVllvyl7mjb1IZnlzHWUG1QeZhGFrtwKL15GFWGIhmLUtG
Z5+WiO70YAUZn+cJlegj5St4Xrixgrx1kMM79BnbjZ0Ve1ihbWgVz3d07sm7
M5l2rJD+oz2XMwPv95Pxe6/YsMINIldVDn1go4xo5DZWyBhISjNCe6ReFgrY
ygo29LrZ3eh9c8K7DxmzAs9vGTIQ/YbeNexkyAob1rQeu4wuEV35eMcGVmAR
7IopRLcZCnWaabBCtcCOi43oScPRjcaqrJAWqh/Wh353oXNQX5EVtG7m2jHR
4ZYr32vLYf8U35EUz2RQoY4/WTSkWWH8m8HL9eh+rTMB6yRZYWpfxF5LdIEY
v5KaCCucNT05eBD9uPe9tBo/KxxK17M9g94ix2m3jocVvns3Fd9Ef1g23LSe
nRXuFej9vo++WVoSoU1jhSXja7Lv0IkBqX768yxQLzJsMIbuyh2+A1Ms4Dpj
ZEy/w6DuqXzkN5tkAZnqvPXSaI7raTU231mgl389oYt2EYu+tWeYBXyqBj7s
QGslNNUe+MYCHrveRR1Bbz1dJOTXxQKa52hyUegKUe+siHYW2Nt5pjAN7bDc
6mjCBxbY2esuU4OeZ088mvaWBa7wF5xqRd8aDs0qfcUCz74cfjWGvn3CWuBp
AwvcyCtaYsvC+6jQjvJPT1hA9NMp2RXocyXPY8ZqWcDr3nc1HfT08O9EWhUL
rDzHqmiN9p+Rfid+jwVYYpv5PNGvay6T6kUs4DZp33Ua/TX9Uq/5XRbo6i9O
SUEP1u8v97jDAk/CuozL0e0tdpWnb7NA3pvJT03oYrHSwdvJLDDaNWXXj755
6sGWuquYj4KZ+nm0x4UnHzoTWPB+xLZMJBvniz3fJWYsC5zXXeWqgs5NGQ+S
jmKBcGpvggk6LDP/gvFpFii68qbAGX3Z9uqrA6Es0BToWxGAtlSf0ogLYoEs
ld158dn/fq9c2XjPlwUKjlyOzUZ7mLpHdhxlgeLuVQ516NAj7IdYPVlAbc1y
wY/onTFu/ir7WWDq6/nqcbQG+5NcB1cW6Lvoa8GWg+f/rwG0c7tZYODRwKtl
6KCb7yPu2eJ4GP6urYF+7r5WvteaBcpPXk8wR9/8+vY7/zYWKO0e/eCOrrcW
7oCtLHDG5y/7CfTYhW0jfsYskHv2mfwltPzEa8lcQxbg2uemnovW8xw9+mUD
C0hYflR8lPPv97PZXn5NbO8JVcZHdK3szsCtaiwQIxrUO4a+y2qhdEqJBZy3
PkhnycXzoKEus0qeBYjVrJYSaInwgB+/ZFhg7LnToBo6acmeqSzFAuxqrUe2
oGfO6yp6irGAkYt3jxPa38PPJ0eQBTTMDcAP7X7U9WM/Hws4dm9JiEHXLtnv
kuNiAV5a8qs09FmO6u/72VggPsbwdyVa9ldHes4iDVjMjbheoxvKpY6OzNKg
hDuPtw8929Ruo/KXBu9izzGn0O/1j233/UWDrIjuL3x3cX+P1dtbPU6DjGQq
dxWa91ly3OIQDXaGaLvroj8Hjb3e+o0Gxx+ZclqhRWouyl7uosHYNMut/f++
X/4t7ks7DfgrjkmHoG/WmfKs/kiDXT7JCQnob+tlbvm10OB2Xuz3LLRj0iug
mmgg3Gyp+wCdG5M3zWikwaFN333foh1kpSnXehqUefml9KOPMuNTSutoEHRz
tGQGPaPpeJalhgYtq5zLiTyc/+79YbYVNHDc+jFrFfpbUmJUXgkN7DY7n92A
lj3WdGshnwZXrBZtLNHhf37W78rB9l9r4NuLvlXp+V9BBsan96AqED36IFWT
7RYNbuwesrqAZkZ/P+WcRAMVLvtPaWilZc8/VSXSYNRGyKIC3Tcet0EogQZi
GxSKX6CtJ/KyjsXS4Pf95MVOdEX8OcnmczS4SQUZ/fpXXsH55LWnaSC56dVR
ej6DUs2RWnkhlAZ+K1JjJdC/rQpKx4JoUKP655oKmvPP7a2Wfljflu4EQP/Z
uXegxJsGeusPBNui6bluMUKHadBTfsXKE30pha4R7EEDiPYWCUM/tK7r/epG
gwlX1leX0NFuf65udsL2j+w+moX+9UFsW6E9DZxfhC9WoRuVr7GL7KSBS1Jw
RNO/eBw7noZvp8HWHzY/u9ASlG3kiBkNftgJW02ipXQDN9ua0CDO/uVNegGD
usFdwF5P0mDwaEi7ODpyYt9LNQMazDHU6croq4ICcbd1aOBR+FfaCN1LrNpO
aNBgef4HxR1ozwluxilVGlQf+iDrgb6gqvfmpyINLMlF7mB0TqXshX3yNIg/
7dIX+6+8Tm2TNhkafAiYu3ur4N98HpmzkML6XLpdStHSCUXFlBgN7gUJsT1F
9/3467RBiAYmv9OTPqK/XdNlLyVo8Ix5SWoYXcccyVvDjf1XO54wi27hCdua
SafBGYu6Sd5CBtXNf6hLikaD5noeE2m09iXyi9r0Eiml3huljt5bpju2ZmKJ
LL69pXoTujIrd3TV4BJ5ntek3Rb92zn4s8zXJTLTf2DkIFr4Tkq59Iclku3V
utETaIpnIUSmaYm8Pa3WcQG9eemKyqr6JfLEwFjNLXRKtfmr1TVLZJL30ZgS
9B99MWvVUqzfq86UQh93HavTzl0iyYL+qVb0lYYHgnB7iTwwPXa9H7376wlL
y2tLpLhIp/xftHPv8qN74pZIwbq6LI4iBsXfdvO4V+QSCdnJQhLo0fjvdmEh
S+Srk8G+SuiY2xzSl32WSL3hvZQ+ut3zW2POIazvgvvSNnSieIj1I9clcm4h
VM0FTUtpqGqzWyL7PtVtP4Y+eufJ/KTlElmWpuwSgXYtObCC32SJbOh+53wZ
XTJfvkzNYIksEr1vmYnujM/+baWxRF6s61UpRyut0c32VVoiF7Y4LzxFT+44
qnZj5RIpL63++AP6uR1crhNfIrMLPI4PoO8ZVL4cYGB/WLAK/kXfaH7ZxuDA
9jsIZrEX4337csQD/YVF0mxVqoIY2qP5y3HP/xbJbTPZyavR1ee6ZpLGF8l3
0vpMHfS6kLhdr74tkjs+7bUxRX9SGD3F7FgkR23lrzugB+rnQ9a3LpIe72Kb
DqFlyFebPV8ukicDUn8FozvMHDszniySpw65csagUzaXkZ1Vi2Thqy5GMvrX
to7j4iWL5Kr7Kznz0JI6X73schbJuo3rflWjxS8+XXf91iJp6ivY9ALdf+XG
o7ari+Rlh5Zrn9FiBvuFl8UtksK/fWyG0RWaWupukfjccJE5hX71RVQ4N2SR
jFeJSOUowfPsJtGHEz6LZO69eUWxkn+/B8AaPc9Fcv/90DwF9F/JHPsoN/xe
ilNSG92/ZpfZB/tF8kl9zkkTtKbGnvlVVovkjwi3N7vQTKrpWMCWRXJyjaHg
frQHb1XmC8NFcipq81Y/dPOU6tXlWoukunv40TPoFLEtm/yVF0m+4Mmzl9FT
BYyS16sWSauou/Hp/+LLSPuksGyRfEzejS75V/8l7pozgovkGbsZ30do0ToP
2x6uRVLQ545VM1pOuDHfiLZISmkWL+9EH1UxqU6fXiDTDVd+HUUHm02Fsv5c
ICUU2C7OoA1t/ps6OLRAqkS4rOMsZVAHP9qvedO1QLK36zwTRTfzbeDT/rRA
qlbfMJNH534uyU5rXiCz0s490UDzP2j/yd2wQFI8XIrG6G1fWr4HPVwg/f0U
I63R67nLUgfLF0hx0x9vXNA+1ddn7AoWyGv/ufAeRUvN3WZ/mblAOvWd0T+J
HooZogxSFsh9x9ydYtAJjy4q3bu8QGpN047dQGtdLTdSjFkgF1u9/LLRb3IC
ljIiFsgo6xzPcnTc+v+8pIIXSO2H1TYUWk5o5+mkYwvkMqf8tW/ROk9LjUQP
LpATx89MdaJZndblXHNZINdrm1aOondd/VMuardA0vpYPKbRy5/IHEq2XCAt
s2vY2ctwvr39TC03WSBLC/xShNBHrOHJHYMFsmjZBpmV6CDPU3vXai6QHqJE
kir6xdfq3Iq1WF71PM0AvZVbOMFo1QK5S4zHxQx9Y6BK7LXkArl8C1lohzZd
bCJ3Cy6QdJs74/v+lXcqmGuUa4E8Y6Qv7YMWVhg8fpK2QHIKMzaHo4+bbwwk
ZpjkRJP8ngvo9I588Ts/mWSCa9T+JHTfbjt73WEmqVCv45aNpg94qb/rZpJL
veT2e+j51WI5h9uYpOvdu6qP0boHz1bQ3zLJ5JkA2mu0UEjPnsznTJK9suT5
Z7R9k0Mq+YhJEpVO4QPoaIdlvj2VTFLxbeSaSXRBmV336SIm+ef92oYFtNu0
bp9cNpNUTdizi+ce7ofdf068vMkkcxolPomhz+VXZR+7yiT3GR01l0MLqZTv
F4tjkrHlTmXr0Idfid9/Eskkz3f+4DZEt/pLJnudZJIdR5XszdDsRaO84n5M
0ktU9Lot+ufph/zPD2N9EdWN7uh7CU/vBOxlkv7W4uNH0XcWNRoUdjPJ7tUG
rCFok2hj/3YbJqmeqcQXhdY6JFcab8YkX9qNcl1B7zvGCN4ETJL18+mZW+jY
P7pNsxuY5LvyqS956Pb2jrvl65jkYb8dZZXoPRcU+b3XMEnP1KQTFNp5wXlJ
UYZJvi9o0WxG85WVBg+JMUk+Gdq3z2ip/N3BOQwmyXJs3dl+dF7QtYUDHExy
lNtD/Cf6mloqt+LiPHnDPTtt7l953jmp43/nSYvOKQmOctz/7CZLy37Mk/e6
90YLoucuPzALHpwn17weH1qOLrLU9yC75kl/Zqq+InrKoIyF+9M8+fFV4BlN
tNUNx5Ufm+dJvejIh0boRTHfJxkN8+T60y9GzNHlzA3dx+rmyUqWbdx26HXc
30ONKufJ0zbCK9zRWaebk/iL5snO4tXyR/49V5Jc/y1rnqyyj5MOQidZCJlW
3Zwna86a8p355+KZ9rir86TS4b0/4tAXbxJD++LmyUmdnvob6KWuRG+Ds/Nk
g8SL2Ey0zOOmY6Kh86SojsyWIrQGfWbkl988OXXvx58qtMu0S+cbr3lyc6Hu
jXr0ahfYUrRvniw05FBpRlee6FeI3zNPXg9zvt+GzuWJD/PeOU8ahxtr9KHP
2USY2VjMk+WWD++Mo13pbLFam+bJJ/+1cEyhDZ1dNi7TnyflQ6NcaRV4PuL+
5MGiMU8e6OvL50E/0Lu3OKo0T87Lj4+IoNOv6vF8lMX3ybtSMuiNelXRTyTn
yWUKyzcpoVc0HvcvEpwnuV9aO2uiwbq0JZV7nvwjYua1ER2373HqBZZ58v1/
PEdN0Sc4hj+Ezs6RaZZpe3egLzzwP3lsco40W+Dc5oRm9Su9uG90jizq3654
AG18e5DPsW+OrGkPnD2GzpXZN23VMUfuvhf1+ETFv7/387U0bZ0jY4zOBkei
7XjceY1fzZEa2wPk49FesaGahvVz5Mlc1+fX0WHxgg26D+ZIN36zPenoq5t9
6nTuzZGq5jr9eWi2XUNSOvlz5GrBde7laMaHp306mXNk5Urd1ofoWGs7Qi9l
jvRQddB5jiZf/LhteGWO7Bm5cuntv/wVfk00jp0jR2kTXz+jq3v9xk3PzJFX
ZXyl+9CTD1nuWofMkQtjK23H0KfpnQ2Ovhg/O9upP//y/dvGZP/hObKOWHGL
iV6zrkr++N45cn9aQAl7Jc7vDy4HwnbPkbFW/PcZ6LlDN9njdsyRh+79LhVH
tw8+pd80nyNP2cunr0QHVyruKzKeI9Nf5UcqoVULZFc80ZsjOxNj9migy3jZ
tD+snyOjdBpXG6BPx63KH1GaI120PYc3o/+Yt51Ykp0jrfgCblmit34MyBJf
NkcWaP3cYoe+I2+nuF5ojpSX7+l3QV/KfMthyYP5sDQPOojOX6Fn5Mk6R0qt
0Fw4hl79+fubqLlZsmYp80QwOiV40/3s37Nkt9PNkQj0ceGrfxrGZkn16/Lb
Y9B3lXRjhr7Nkg94N+deRgdmxflxd86Sn6WYf5LRbz8M31P9MEtGSdvpZP4r
P/jull2vZ0mpw7u889EsFQqqJ5/Nkp7bmcn30GdEHx+683CWrJW0e/AAbX29
+b/XFbPkhMT+t/Vo5uXiD1OFs6RponL7K3TJ20dsctmzZN6rirZW9ETonnM2
t2bJ3Uu0pg60pGqfbcS1WdLdR6K8D63UVRpQGj9LStovJYyit/yQ7+89N0sm
DdW6T6Kvy6enC4fPkr62Nmtm/+WnNDzfNHCWbH/b8I12n0Gpr1xJC/eeJbPO
rLjKhX5xdOhOxYFZUu66m64A2vuX+pVxl1nSR+3ye3G0u5d7k7w95ut45V4Z
dMzCp+1uVrNkeWDr4Gq0g/qfZTe3zpIzzt9d1dCO3yXXtxvNklcNed5oo7+F
F10S2zBLvldUV9+IzrhK6NivmyVbNPbHmKDPGGXIJa2ZJdd55n3ahl4++cKh
Q2aWdPtAl9iFPhEx0rpcYpY8GxpuvQf9VPrglb0Cs2SMh3jYXjTtQM71u1yz
JNelz7c9/71vxts9QZslvWaeVh5HP5FZOLxhdoZsSu2mgtC8mb26ZyZnSCXv
dU/D0XbfpCyaR2dInf21NefQAY6ityW+zZD+3uey49BKnzXXH/wyQ24KSYxK
RNde7ma//36GfOEz6pSCzhENX8b+eoac1U9Yk4HWsQ0+Zv9shqx6GDWSi96T
rM2S/3CGvPvhY1ox2jBu5XtmxQy5x/20RSW6RyOzd0fRDGlseHG8Fr0wuVIl
L3uGzDaiRdajb5znrly6NUNSBt3ES3Qm43mw4/UZspCucukt+tXCo6DyizPk
gUMT7J/+xbvGrYyIniGH1db6daI7qoXlvU7NkKJyAx/60G82mLa+CMJ8cMkq
j6CdYw9Urz4+Q77OHAyeQIuPfvkUfWiGbC7Sqf0Pvf+HsMqI2wx5c1Di9xx6
Q3T4AwvHGfIb/YoMSxXWzzwXXmIzQ7pTWZs40Z5/koKFzTHeJjsnAj3pIX83
xBjL/1B4WBidn53M26c3QxrFFHhLoj+57M8215ghx6/YH5JBP776x6di7Qx5
OanSXgE9klHjIy03Q+pvfGWgjN62YVXWBakZslguRWw9+qZbBueM8AwpNKo4
rIN2DMm6fZBvhjylGF5siN6if8ujjT5DrjqZengTen3JvJPpwjRp7x8lZYZ+
pKN59sHfaTI4d9Oz7WiBuMoOlYlpUjqrzX0XOqR60jVzaJoc+rvlP0e0yQoX
IfGeabJU8Xq4K3q33+E/Fz9Pk7ufvmTuRzPqY1k43k2TK0wHfQ+j6w+tN4x4
OU3q6v78egx9V+LjnVlqmmSIjG8MQN/rGNQKfDBNOtt3XQv5lx+2zsnJe9Pk
r+CmvlPozk2KHccLpsnuiSr5c+i/1zeNTdzB99XuusSiSat0+eM3p8mR3PT4
BLQSf+X5X1enSc3G7HtX0YtvpoT846dJg+na5uSqf39/0vV86tw0qXhnqOs2
mqjoSQ8NnyZDVFQG76DXOvlnsARNk19mLn27+z9H9x3Pxf8HAJy+KEJCKSml
ohKpVEReUZGkSBQNMisRykgoys5WRiW7KHvPs/fee++9hfB73e/P5+M+n7v3
3b33OvQXKqZiB328P53dTX/Qly7ysezUWYZTjflEHNqoWeKjv+oybHz79iMZ
/X1r6d6j95fBc3eYcQZ65ppQfazcMhz26RXPQXM+oo29JL0MgoZKVIVoAZ2k
mHLxZWzfbM0qRUtVJtWqXFwGc/1V3SryuNTHXeNn8H0dP7OzHn2j3d/cgncZ
duol/GlGi3S9othxZBkarGzEOtBlc47hwRzLIB0UUtSDvkV7/8WFXcsgx7rv
2iD5PlSV5SsZluHersm0UfQDa1pFTZpl2N29/+gUWl1ywOTfxhJERsTZzaEz
67WSPy8vQULkn64lNMtXOhaBmSU4sYuFbw29R+X2p/KRJXi8d9RwE53MHnfo
ae8SXB08E/VfCmPOqzNRddRtS8AQutC1Fe0skRsQWrcEDlZnttKjjS/o2l4t
X4J2/5mjTOg/14/bDeYvQTjHWRFWtMPfN4H2mUtw9OiG5B70KktH/YmkJeiv
U5TmQEN8FWd11BJsiItJHETnCtZ+eB2+BCyfMk4fQf+U1Nhk/7EEUFLLdgzd
2UHlmeezBMe32y7won+cOy+i674Ey9qtxafQ11tMV1kdl0BmvM7jLPrW5xvV
hPUSPA8zvnOBDJ/tqTRd8yVgDSykFUGP0v1K2fNqCdz7i1LE0KVV58qKdJeg
w9jyoQR6IU9lxlhzCW6qTC5fQzMd8jvO/WgJ5jzYnaTR+5+/Mm5WXALdfbQs
smhr7Rf1jreWoGcu01MOnX5065VLUktwmvki7V30xY2i/FlYgt8GH03uoYc/
nVL8KbQE6v8FtqmgryYVLD06vQRLme7nHqOXAul+7TqB79NFxf4J2pWwfVrF
tQTaGpQ1mmijovQLDvuWIPW4446nKeT6Gf5dV1iXsL6/eE0XzZOtTbFJvwTv
Tsi80kc7vR75m0G9BEoCLj6G6J7vwhtvNhbBNIuIf43mle7ZIby8CHVxQwWm
6IJSdb6V6UVoHqOuMkcfTZFSSh9ZhJErh6os0SsTu5wseheh+7No4Xvy+Trd
LYG2RXiR8iDhA/rsvBMTVf0iDFrY+Nqh/1VcVi8tX4TXqYmvHdE+lBuZbgWL
0Ci8JPWJjC9ZNw7ey1qEX1U3mN3QBw1inDmTF4FXIrneA81fnrgxEr0ITx+J
fvImn19ev1nCz0U4Ndwj4oN2cSlcsQpcBI7Qn31+6Cch/e9l/PD+lLzff0Mr
Zhcz7PVcBO3syF0/0COtaz+GnRYh328qKAhdfYbuQsqHRbgcqnE0FP2flGWd
vcUiPPJhCAxHSzR2GyobL8KzEzM7I9BbOzNZT+qjmXe8/U3Gv4Af6ZvaiyC3
Rb89Cm3qx6LRoLoIrZFMZ2PRU66hDJH3FyE4fdU6Hr1o1ZX2Xn4RljtPlSSi
v0bI6ty/sQjniATqFLSGq9Wu01cW4R6N08U09OGJ9Xw60UXQUU7WzkB359w3
GhRcBJ6Hok5ZaANpjoO5fHj9WM4wgoyPlE0V37kXQWNRIyUXfSaExewt5yL0
l9Dn5qMZeDQOqexZBNai/XmF6Nj8OyXCOxdByM4/vRhdPGnwgp1uEQwC7SJL
0ZH3bjL827II6RGDHuVohdlXkV1rC7DzXIZBJfrQiMmVvIUFUKynk6om40P4
QHP45AKIs7Sw1qJfN9zU+TS0AF+tudvq0L2KMGvUjf+PWPnSgD5986axSssC
nGRWlGlCf2OlmpeoXQCXK6LLzWgu6eVnJ8sWIDo33r+VjC9Ecuvu/AWg35F5
rh3t71gvviVzAfb+eVDSga5Y6AqaSlyAS2yf73SR8dfp+Up71AIMVeg2dKO3
M267Xha+AHpS/bK9aOb30i5pPxbg8uZGdh86jj23JMJ3AbKf5/EMkO9DgXLV
32MBpDYEHAbJ59f27aCL0wJcO3mrZwgt5sct+v7DAjBp7RcYIfOnpNM3X1ss
wHm2YNNR9A5XeblnxgvAEdOdPIZWy9h7XVV/Aa76tE6Ok/GN6cBZJZ0FEBby
4phEc/jOMd1SWwCPvzuuTKH5/Hh7JZUXYFZU4ck0etbjUcjlO3j/T9VMZ9As
F/ffE5FZgMC2i7azaD2bzbXzVxfAfn7QaQ4t5+3ncfbSAgTv0HKYJ9Nf7Xu2
0+cXYNkxw3KBjH8NN1xOnVoAm4yJ54vk83vpMsd/bAGc1tZuL6ETorokTx1a
gHM/Jk4uowNrGhwF2BdgYSWX8i866w5NxhmWBeB/9K6KtNMgbds5+gVw3nPM
awVNaWQyJEy9AIlviNurZH63p79bbGMezCuuU62R6eXUcOHV5XmoUymOJR1+
jd1XZmYeul+IKf5DW3GyKimMzkPe9bhZ0lKpLzYf9M0D1dnDdutk/iee6aXV
Pg9M+j7MG2ihw1+ZDRrm4dvFnT6kWdeC3r6tnAenZi+WTXTNt2dV9kXz0GbN
5UCahdmZ7jMxDzmvcxZIB/r9OBWSOg/+owbKFKmMObt/Xb4UHzcPs2wXkklT
D289mxc5D/bndm+nRPOfc2OqD5kHFZOd90lfCDdoHPg2D+/oT34n7Wkjab38
eR5uHnvWRlpU6jfLdrd5UP1bvmMLOjlM+BOnwzw8j7h3iXTxh09jgtbzYKO9
Q4O02poYv4z5PJTeX3pPWkFlQkn91TwQP3f4kDbhEtA0fzEPm2aPw0hz0oYr
emnNg9fM4G/SYsujJ6Iez4OHQEQk6f20vv3F9/B6yr+DSEu73nzXLzcPlY7T
7qTv04aub0rPQ1SXmRnp/FMij/dfmYeLr27cJ10xGh0oIjoP42o6AqRv3flW
oHJuHj4QdRT/P54cWGrOPw+0YW6l5P2GflGO+cozD7VHg5xIz4RoGmcdnAeT
u3RXSavlqe7r2TsP/eJVi+Tzzdw6GvgfyzwIrU//IG2SEUB9jH4emL2NJEh/
UuKUlqWeB15m5U7yfZl+oNV9tTEH6dbhBqQX9v977r88B9zjj/6R77/3zJfr
eTNzIKJo8570MQrT/8ZH54CxcPc6GX/eLVz6yto/B/vEDhiRVo1x2gEdc3Ag
72s3Gd8KKdZVnzfOgZi85zXSJ0cFP32pmoOhUapQMr5K+NV55RfPwarD0ioZ
v2cMTUxmc+Yg5PjzG6TpqHLPHkyfA+1CdU8yPYgxKZTfTpgDvrv9dWR64bev
FH3/Zw5uVExtJx3rUGsfFzYHalwOl8j0dleT4k9/wBzoSMfrkOlx3Hft127f
ORg9Y+BEptd7DZpWNzzm4GtVQRiZnr3nO3nfOc0BQZeQRqZ30y20cYkf5mC8
/lIRmR8kizgwjFvMwZFdT8vJ/MJ028ZlLpM5qEsRLCXzk7cUDDIqL+egMCSc
IPObxtF7vF5P50CGyIkm86PyVOveiidzMD9l+4XMr5Lc+PS2PsDz71oxmUAP
ZW9UStydg1+79suR+Zt5ge9/72Tn4HTVwiEy/7t88wdDpuQcVO3/MEHml59O
JY+vwBzo95bFDJPlibH1dyHhOZBeqNIl89dt8mFcZmfm4JiA50Ey/9U9UmSe
yjsHZ/XYqvrJ92fpELZyZA5obJ68JvNvRzaPYJEDc9B85RULmb9ztX00tGKb
g8N2t3+T+f9C6zbmPKY5oNq3IkKWDyv38j7Q0M3Bep1RIVl+uOQqFcn8Nwes
loQUWb7cjtVt9fg3C1VDvXlk+bMyGp7ZsjgL7B0d51vQN9SiXx6cnoWPPAkh
ZPnVJHBs7unILPzz0KFtJMv70PQr8b2zsNL3T6eezG9P02v+a8Pf9xgTZPl4
yTT/jlTDLOy73bijBv1d3H6HV+UsJM7uV64i62P2G37dRbMw63jnawVZ/uvW
zJ7MmYXiZuOmMjSjSOjut2mzUO/nREeW1/f1Dm0ri58FURevC2R5/ipsunDv
n1n4puf1iCzvy2KTbz8PmwX+xU8WZH1A0P5AWEbALHztsPEm6wu9N6oLGXxn
Qbzd9P/1CdPrhnFqHrPQE64fQ9Y3bJf+6CQ6zUL//LN4sj6SvnhiZNvHWZAw
fhFN1le+MnmfeWw5C4YdZiFkfcZBxEMy0WQWXFo9PJLI8sm7/PB2g1k4vy/d
LAHdrj5Rqv5sFn7cWrgfR5YnbN+FMtRnwZvzypkYMv7L2r9kfTgLzkIRVGT9
amvxXX19xVnQlDheE0keN4wRLL01C78GCr1/kenniXjeket4vULrO2T97UlT
4m5r8Vnoc1SlJet3j88nnu66OAvVDU/SyPqf6M4xZlHBWXh73VmdrB+ycFKm
+/PNgoJtF9V3tPzlUO5V7lnwOPE40B8dYWl1X+XgLKw30p/zRXduFbmdsXcW
mI5M5n0m6xdCtnT7WWYhLYbyhhdZH3Ld5vSOfhZimWXL3Mn4nmhQ2Uc9C1cG
a6+4ouvfPGuQ3JyBB9meyc5ow6aAgN9/Z+DzWU8usr4cPprJu3NuBlha6+zJ
+jT76su3puMzUCx+b4isb2cZa7p0DczAgc1DYtZo91nJJ5JdM3An6JybFRne
4wVL0c0zIJji3foWvUThKLundgZEqsT3vyHzI2sJLZuyGbAzwiIM/bft+6XJ
/BkY43d3f4U+pXW96X7WDAx+Op9jgH70fZq/MHkGvrOeG9VDa/KIS52JnYGF
m67byfbH08qxA4ERM/Ao4yoP2T6JeOefxBgyAxwDKqJa6I93N+isvs0A6436
G+pk/cah4MDU5xmo0I+9o0rWvyy+zjx2m4GAugWFh+jltNPvaxxm4ONC8C1l
8n1OnquUsJkBrjtZEkpkehtVak56OwMzOpICCujfP68EHDeegfnYy2xke8z2
6u9DAfozsPNn9PJNtMh/l56wPJ2BmjzPWrI990vm10PHJzPw5O10qCS6OPIb
C8WDGSiQLDa8gr5TV2prehftxyF0Gd3j2x0/LTsDKcOzy6Jkfrri4v9Uagaq
g6XjhMn4z2or2nd5BtZFuDXPo0f5jH0fXpyBTi4nJrJ9eiGaMbr57Ay0Fpom
k+1XC64tlgp8M0DrOat4Et0gQkFdwz0DWvMrU2T791l12jXZgzPgctfL+ij5
/Ju6xcr3zkD7gRwGLrK+ond4RpplBmzSbbwOoA83nVMupZ8BfddO5n3ova9L
3kjTzMBtinpnNjK9/Ngb4r05DQGvtTZY0G7HnuX4zE2D2y2f52R7/tOh/hvf
Bqfh3MzzGrK9b6I/Lh7cMg1y6X2naNFdwkOhEeXTYEBP6UiNdl248Co+exr+
Xi1pp0TvVrz2JzNuGphzLx7bSCbz11e3S0KnIbxDRX8VfRJbLo0+02A+dyL6
//0TnkW1/U7TsOdh1DDZfyG8PyVm3nIaagwH2KfRvHOPF6kMp6HEqU5qHH1R
50gwm+Y0bFl/oz+MVmHTT+K9Nw18+ztd+8n+pt5gfvEb0zAttvGrm+xvGzvO
cP8SXj+xO7Md/df3uZyBwDS4V38oI/tj3vlWLDsenoa47olasr/mZkvKlrDd
0zB2dn99NfqKs7dBLu00jO9lqypHL3GXX+7+NwWXuzryitHhmgVGG9NTcL3C
IC4ffebyKDVn/xRc5G/0I9BKf4NXLjdNAacsvQXZv6TC+EBWs3QKWg323E9B
J117S+GYOQW8PWt8CeT9h+oxx8RMwZ+e1PVodKHhN5um4CmoTpYvjkQPXTCS
2/w8Bf1hJU7h6J5c5bfHHaeAcYbzOtkf9oQje4uixRQoNSlvkv1lZp/phqxf
TsFPX7NYP/T+zMgjsepTkG1s9eAz+rEaXXa34hTAbz0KDzSV1+c4Jukp+GV8
/ccn9KOw1A0J0Sl4wrRTyIF8n8d6Qk1O4fmSSss+kP2p02Yhv7nw9wGv771D
76WfWendNQX6/7F2maNpquN/7qWdgh72yMcmZH9bGf+fO/8moYxduNWQfD/V
tTQu05MwdSFfVo/sz5qiTSnpm4T2sBuZT9H3TK5lUjdNAotP7RFN9Pzi3K6r
pZPAdEnFXhXtcNE6/0PmJGwvGepXQa/fVi0oiJkEOZ03F5XI/sn3/9i2hkzC
5nVWZ3ny+SqWZN34Mgmc/mmNN9Fu3meS3BwnIdxOl53sX31w5fd6o8UkWAif
VL5C9h+GBn/ZbzAJRh3rHmLo2xcc32lrTIK4b1+BMFosvTolVmkS3Lw7ZgXJ
6/MMi/2TnoS15ck9Amiv1Mus0pcmgX5kz0WyP3iyR/aCj8AknHFUVeRGN995
/3Po8CQ0buQ/P0Q+n3/SmhfYJkFe97o5B1qNdr+eI90kTE9PfWAj33e3bm7H
+gQM/UmzZ0YHH45QOz07Adq5kbZk/3VagtQN+4EJ8JcpsNxGxuff6ZZdzRPg
/XSbwX/oNjXj1fPlE6Au+ObhRhJjzmftccI9ewJoy/ZcWUEPOLpXjsdNgOGV
0cNkf/qN+hau62ET4Js2sUH2t1vaCRFhvhPw7OrRhlF01qEjwVSfJiB51Ttk
AL3/MVO55rsJ0J27pNeNlj5lJFxkNAGyl7lOt6Fp8rMnjmlPwPm/V6Yb0BbW
ugOflCeg7WTYz2p0C/0U59zNCaCfkVIpQx8Wzwy4f3kCrO/wby1E/yd4Uy3n
7AQwa6pEE+giQVbN4zwT8ORs1W1yPOJkhVOEF/sE8Fc5j5PjFZSZ3AKbDBNw
WvyzdQzaY/Pxsi7lBHD5TuyMRCeWRW60LowD0en1LZQcD3GyviY9Mg6F+1wO
/SDD169SntY+Dn0qbYHk+Il2YrQbb/U49ARbsnuT4WNZ9AjIGweTVTNXV/Su
W+G1zMnjoKtT9c8BHT9+8ZZDxDi4Tb3T+oAWj+TduvltHH54uZWQ4zmh72bX
TNzH4b3y5lEz9Ac/6pMzH8ZhXbzW0gjd8LD3y3PTcZiV3VrzAl2utSEy9Hwc
FCxDOHTQ7fZN7BqPx2Gt6qcGOb4Elf1neuXHYfjy7rAH5P2YBn5QuzYOXDUz
PYpo73U7+l6hcQgyE2aTQycxMleqnxyHT+fmpG6gD7llFgxyjsMixf5X5HjX
LX/K+Wcs40DVkOErhi57//DeNA0eD69JFSLHa0qvzxqvjsEWw0f1Z9BXz0jk
rE+OwcdjmiMn0bp/CvLtesegNW9omRx/k1e7ucbUOAYqgsOUh9CCvxW1v5WM
gZ+BDs0+dATnI6rjmWPA/PwZ9S60jG13Q3LMGOgxT28womNblJuvhYyBpMrq
HDkeuFtGenvTlzF4dtqldwv5viR4DXScxsDXLqLsXyJjzgtlS+pVyzHIl5KP
XiLHLx9nlbkYjkHHE7tPM2gNxWcEl9YYDOfc0BpD/3692Zd6fwwWbwcKDaAD
eTYE5W6OgfyKA00XOZ7JMJA4AmNwMZymuhndunxK3ebsGFDAPk9yPLR4Uk10
P88YXPhdcrscrXBsSSKNfQwkapm2FaLfsr40VmIcg4kvi+nZ6AV5mfoFyjFo
7jF7mop+l0D30HtxFDo9vzHFo0fE+HacGx2FSTf1hN9otZNnJ5o6RmFXeoVc
GHrL8Le5NzWj8GquYySANP34oQMFoyC59/Nbcjx4v27Am/yUURhjWN7miT5I
I7Ty7PcodERTeTijO5iEA3f+GIXAVoLFFs0wy6Wf7jkKE89PeFihBcVM1TXt
RsFLTJLWDP00N8Vih/koWJ/aZWGIvmGsnZmhNwqZbH6jz9GVttSHnj0Zhdc1
9fKa6MNybJFsiqOwdro4kRwP91E/cK/4+ihEsRgz30NrWXznMRMdBe6b3c/l
0BYubPtOCIwCc9zWbGk0a8qO052HR0GMbWY7Of5Of4P2mQfbKATf8b8rSo7n
l9jnSW4fBcXz23zPJZL7UzFeWt8YAS9vkSZ+9L73XC2JcyOQLXZ+xzH0epSk
l97QCChTr0ocQkvEburxtI0AVaqDITuabqVWp69yBMKPDvizoKlPSLwPyB2B
QxyMBD3am7Ux+UHSCPx+uq2LnH8gk7ZjO3vECGg1NyxvJGB9+bqpReu3Eeg8
a0z/l5zfcdCDzt99BPyvj++bRT+u6Ut88HEEdLqFuMn5DsWsc+YHzEZgf64q
bz+6pfXqwz7dEWhOesLbge4XfnL/p+oItH28zN2IPmNVqa+nMALWC+v7yPkV
2w8w/RCUGgGNsq/0xWgdImbk38URkC7f95dAs5w/K1PEPwIcGe+6UtE3Ph4q
cucagbWHpUQcOd+klVL54e4R4H61+jUSPer14L/jdCOwk2B9FYIOEksuWFof
hpeU7Ne+oaM8/b4Vzg4D0+p2ZnL+iJKJi9PnwWGY05lodSG9vtdVu3UYrtBm
fbNDv3taHC5Uif//+k7lHbr86IGG7bnDsKf9HAs5X4WmJnxXT+Iw/P3QW2SA
HuAfe570axi2yX80fobuO29Y7/xtGD784+RUR29sK7yl4T4MiZCcr/L/+SH6
HSIfh+Fi/XUNBbS/3t+3u8yGoV6/dV0Gve3g+MkZ3WFwLH3mdRVN3VEzVa6K
5/NbO0zOx6n8cTb3l8IwcHu7x5xDy3z+HmInNQxs+ifO86NDmP0+a4kMA3t7
WQo3usI39su1U8Mg7fpKkJz/c7ZRP5z78DB0CHP/YUOzBT4u2MY2DDJuAweY
Esj9FOhmxumGQRFiP21Dy+7bPFazMQQVK06L5Hwjq7tF+klzQzCgZ6K8Eo/5
G99EztehIdiQfp06i/6i9O/Ah7YhiBaxYx5DJ0XYOOhWDUHydJROHzl/6uT2
9bt5Q3CReTKlDa3PwGUByUNgdOvaf/Xobz8VqHkjh2D0Vqp0ObrH6qQvW8AQ
PMuScs5Hp4gLC1J7DsGExGJxBvpDCU3rvO0QBNnnbSagc3Zx2fW/GQLWs3Fn
yPlZfop7RBr0hmB+PE8tFL3QabJc+GQILtxfcfyG1uMvT09VHAKO/UrR3uiu
6eCPf6SHYEd3W+UnNM2i892gS0NQLu448hF9UZj1hM/pIZAdUd+wQNv3llK5
Hh2C1NfPdhiT89NERAZs9w6Bv0PAPj10TPZSsRXDEPwq+O+wFpqRzjnGjHII
xkr8jz5CXxuy83+1OAiOglqHyflsF6++cXg5OggHwjU5ZNEel2bNXnQOgnqG
P9M18vmxWuk+rx2EFztpKS6h95+JUX1WOAj2V+PGBNFDx1kVn6UNwtUZ75qT
aKpkUZnnUYPwMSYp7gg6PzVV/EXQIOhw7HIl5+MFi+4Revl5EBRrErVYyflv
r8b5XjkOwrzGFyF6tFRKHpeZ5SBcfplBQ4VmcuTfbWWI13c8WrMWh/VFD2Kr
rdYgMEo3ec+T8x0DaZY/KQ9C/5Xqu+No4Wjv/s+yg0C9g5mJnE+4o2W14of4
INSJBRa1oas1yuIjz+H1tN+a1aErsry9k48Pgip72NEy9KE344b5+wfh2viB
qlx09G21G7U7BwF0xwzT0JRctvt7qAdhHy/tzjj05tL42PTKAMymW/wm50Pu
/ccdTzE1APyRkuKB6KWPJUbMfQPgaf+0zgf9YbvGyaNNA3Cot/+xGzr2lGOX
UNkAHLyaPmSHtkypdJDNHgCpS5PPrNAlrvknNOIHQPu+1Ygx+nTxev6b8AGo
OfhSXQ/N57vjrof/ADAdym3WRAc+/tQW4ToAf/uMrz9Er33bei/fZgBip10T
FdCMa6ylnSYDUFHNwCGD7rt2XWDl+QCs0i1YSaCPG5z7tEt1AIyOXekURpe5
G3ScURgA5+h/50+j3QdcDspLDcCBw1yfjqFDKg7dNxAZgOPbkzo40Ueqc2zc
Tw0A+3jyMTZ0/ZfNH3GHByBc8rgBI5pz3iimnm0A+gIZEqjJ8DXHxC5tx/9b
aM3+i8Xy45FMCDvFAPCpnOFdQCfmtNnBQj/8zTBWG0dvV59X0Rrph+lDpz36
0IFFJzg/dfRD8nbtrFa0is/u+oSafnj8d9dgDfpo0E2TjoJ+uKYtsa0Endug
vo0mrR846ye4CbSt5LSDQFQ/rGXsFk9Ge/E7LD8I6odL33OVokiP5Cs4fO6H
4LkpHXL+sOO80Pckx34QvRD4+iu6ftayvt+yH14PNll4kvOFI44vMRv1A4Op
93tH9M0t9VRXtPvhhFbbu/doCdqdm69U8P/HIs1NyfnJE+YDYbf64ZAQtaE+
unvjZ2KLRD/Mb59U14ol2yunXtJf6AdJdg25h+jU4AgWcd5+mGh5KqyAjreN
CjLh7IeLWZv7b6CnhOr3RLH0Q6LI8Y3LaO6MeLOBrf1wr2So9UIsuZ5mIIfj
Xx/oNgnH8ceS8wM3ZxRn+iCy5fDHo+i2nQHb3Af6gFM8/A4HOsPg3tbylj64
YJ3HwYLW8iuYoKnsgyBa8z5acj72PavUK7l94HajKoQCPfFl/3PrpD74nJCj
Rs4f/6MjQpkT0QdOCXf2TqF/rhhYbn7vg5BU28oBdFTAvS7w7AMPgQeW5Hx0
uTKHw9Z2fXDfoeFYHXmcKeBmvnkfKJ6cry5Bz/CcVqZ52QfyDqlGBJpyuP36
DY0+UN/KvTMZ3XVNaJ/bvT7gYb30+w85H/5RT3WDTB8Y7tm8HIJu1dHX3ne5
D7wt9er80EaERZe6YB+I/XFUdUfndIdd+H2sD2zoFUfsyPBqfjRc4OiDUura
F5bobLoEZ7GdfbCysTHxCj0VXWHrSN0H4o97nj5Ha9x6odq40gtXHU161Mjz
0fDt4Zrqhf8G8xTuoQt2Rca87OuF2caiPFm0QKvV0eymXmghPvBdRXdXSb5h
KO+Ffuo1r4toC+/vkY+IXoim418SQPsNH0iLTugFaYEDd3nQ9mHaoRS/eoGp
pSJqP5qznOmFwrdeqFcX+Y8Vfck4bcdP917IF9C9S4d+1f3Pde1jL5gHPQqi
QH/SMh2Ve9MLbKysY0vRmD/YFB74qdcLPUNu/JNoluoP/BtPeqHNtE6/H+1L
fXuPklIvHDjSGdmKrlvPb4++0Qsvrsf1VaOpYt6ZbYNeqLkst7sIzX2Kc0r9
bC9kPc24lonelwCi2Ty9cHTfgkE8+pWrlTo7Ry9ox6/5/CLXZ5x9o2bK1Auc
DvXpAeiJM5XnGql6wWPRotWbPJ/onr6zKz0go7Ay74TO4vir6TWJXpGmI9eT
lOfQZc/39sCimAGHKfr1mamJu009cPat3gk9NJP/5dnksh4AqiuC5PqUHWKB
ZXuJHmg6NSesjN794beZZUIPbFOwELmN5hynWOv92QPWeX1C19Beu0Fe6lsP
7KvjPiOCFs+nehvl3gOPGqV5TqOzK2ZMWW17YC+n7B4eNMfJYCmLNz3gSXmG
ej+a+m/K6IBeD3yuWplkRjtp1j66pd4Dws1hddvQ63kuIalKPcD+4kLCRhRj
Dq3Np/TDMj1wuzPGbQHtwKcX7AY9cMmc6ekYWke/WuXf2R7o8VAR7UF/pFPo
f3asB/yN3Oib0A0DPiItHD1w7HlsSzl6498lDamdPdBYmB2Yiw57OaicQt0D
9+oyNMn1RZnjD8XkFrqhu/3XkSj0hXIjrbOdaD77nmC0mbrssT1F3eDOct+X
XK/EV81ntxHdDWrNHDdd0XY6ilZDPt1wKr9p7QNaI4OaqeZ9N7w7aP/zDfqN
x/uLGc+6gUXo1O2XaKWxres/73SD8p2aOU108nqn0heRbmBI0fVUQZeIXJOy
O9INOlFb+OXQMjffV5oy4P8tvhReQy8w1o08X+oCsWfHlEXQ1f6WvqrdXWCZ
njYiQIZHrKhdsaQLJhJlXpPrub69m46TjeuCg9+71/ahmfddYpfy7wL6FJN3
O9E/qeZZJD50wR5J5k0acn2XtmKA2IsueOSSYP7vD9Y3gn+liip2AUf1g7lZ
tIHcaXVRsS64J0uvPYx+eUnQ/xJPF9yWLmrsQG/VX1K9zNQF3f85i9ehn3Fk
xV9d6YQHWQ8iitEeqZUeN/o6wTRJmCELfWtE7598eSdY8nLrkevdJu36Z1US
O+H4Y67Sn2j9sNeGWt87Idz51KHv6GBHHXNDu074OnvL2BO9Gb2F/t3LTpCq
tC60J8NT+Omo6/1OuPagdKclmj/+ZlGAeCd8aeZWMUInuzpOxp7ohFXLrwE6
aOcIJ/8Clk4wczzW/RC93danovVfB8QIVu+784ecT7ZsMzPYAYFp7nelyPC6
zmduq+6Afnl9R1H0WGHdG67UDnhz/ln6afR6bWfqpaAOmPhhM8xN3o/Qozcq
Th0gUpTBxIHOSvRLN3vVAcs9u87vRFed6Xjr+7ADdvN43iPXI3rV62WmXeuA
rdWnjdd+Y34w5vO2g78DhhiXXGfQ8pshqRR7OoCLoyd0EE1d1m7ETdkBRbyz
yW3o3guOEbJj7SBqdKKwGm2rvfTApL4dbA67VBf8JsdD9BwDM9thzyv2pjT0
NSvh0xVh7TDhVd9Crq/M/BF6Z8W1Hb6kpjWHoG/Pr0zwmLUDI0tVnS/6qOfH
zXtP2iG1YWeZC3q1yM3R8UY7xPPbZdmgeRl1nDLPtoOJ/MkoU/TdXUqUsxzt
QKFH7fcC/Trj1yQ3TTu0xzJbP0EHMP2+9Xi6DXbfVNRSIs+nGHHYp6UNhPSq
rsmQ4Vuf1q3NbQM5iXdcl9FMEeXcDL/bYO7v0zVBdPBJR4Ub3m1wPvtTzXH0
Y2fjWQfLNviZPR5Erle9sdK5WaLdBsbc9i9Z0OJtO6zo5NpA4pCa8Da0St59
XVnhNjjSZrr5LxLza2OaYg+uNqh/W507i54a0nZv3t4G5gJP3w+huS6WFB1Y
bIXWQ1dE2snjuWbPdLpa4fCbJ3PVaH6KYtO44lZgUi0IK0DThVNiPa8Vtvx7
oZiGbvQybZD2b4Uk04eU0eiEFtNDvh9a4e2KV0Qw+n28fPPwi1YQ+8V6ywc9
53J3UUipFZQiu6ec0Xw0NebO0ApRR5ec36N/DbDodB9rhRhQPmpMrgc+ZJAm
yNwKuvvpMp6hY3sFDZ3XWuB2P63sY3I98Jt4l/6BFtBNUm6/Qx7XFWa8VNUC
6imrWlJoLW32OZ+UFrhAPzUhgj4hFS60ENgC35oEDQTQhnv4e+WdWiBLqGb6
CLph53/jsa9a4MbdXN29aGo/E8Wdj/D3N2gHGNAC0Mb5SrIFtEQj7m9Br+W/
k2461QL0N4JLlyKwvGVJq724twUMvRbPj6NLr7akBG5pgdULoYHdaAg4tbZ1
ohm8lGJoGtDT7ju/GjQ2wxDDnmcl6OfpNV/aspsh6213cSY6Z4CYvParGTaz
aA7HoWOoz/yI92iGP7Ou5mFoRjCPPPi2GXTOvqnyQ6t2jTO6azaD54+iA67o
2odt5RS3mqFN3kzXBn1C1a/H6EIzhGu5JZqgrZIsbg4dxOOL9KvPyfXhD1oY
H9A1wyjHnIgqWsOEgqd2vgmqFsBcAT12X9r7emcTHPZZTpRCD1ttVcotagLK
/ewTIuT6dTc3XZHYJmD48YtTAK308HxDsl8TfDoXevsIud69T87t7IcmEPrL
YEGul5eWFPwW96IJjDeGQunRuW3nVgWUmoBHVaCMAv1vLzbLoAkqBcbHF8j9
AX6Nhp893gRqjnvoRtFqSlILycxNYGKVdqQTPcjO7i7yrxFuHa0WqUXb7Ul9
kzvYCCaeKrcL0bu+msZer24EjbaHqmnk/gNsMWdrUxuhgqlZNwrdxpu05UFw
I4hJl70OQqf/6OEYcm6E918umH9Gm2k4WBsZN4La9oMWjmhl9/8EKFQbgUj7
aG6Jvvc0gsfteiOYJ2gbG6L3KNXqcJ5phBLa4hda6IqJuunYfXi+ynA1ZfTa
MDVxhboRKHZslZdF6/HmNTRPNYBM18glcTRHvqqAXksD/L0hy3MO3d13vva/
vAbYrXmO4Ti6fehH8tffDWAqFDzNgXa+M98t+LkBsHldxUTeX63jzWqrBjCU
YYyk+kWuR85ce/4UHbbDhtyPgeFt/8TWOw0gNuunNIFOyb3PGS7SAB9Eonl6
0HN3jD2vHW0AJXfZxXq0ZYDntSHGBvi8ZkYUo4+I0Ak5/K0HT4fTdhk/ye9/
nHvG21cPIhJm0jHo4o8vW6rL6+HQ2Vu05P4RbQd32hon1cNNrcTCLz/J+Z+v
9Tl+1INN328rJ/RBsUWvAod6WE04J2hF7l/hPbGgZ1QP4X13hgzRN7yT3Pc8
rIdZE6rPWmgbmt/aBdfqoc9M5rIy+nw7j4nhqXoQnDk2chNNd8w+m3NvPTAP
fP90GZ167AhUb6mH6w9+8wmiH15SWX43UQeyD++U86BzJj4OnW6qg0OTXlr7
yPD1bW4fJOpAn8XwHyOac4pbxy+iDpQbxty2oENolJZvedVBpOCWg+T+HNck
RzOoLeugSij1zyj6zYRoYpZ2HTQMMJzvROs9iuo2kauD86JUmTVoDi6fS6cv
1sFFiW9iBeiYYaXKicN1EL/SlJWCrn0n7RrBUAezmknCv9GGPeXvdJZrgcpO
KJ7cTyTksEgQd28tvH/8hMcTrW2/MDtUVgvfpgX8bMnz6Ska/kqsBc6Lv7a+
QWs8zDigG1ALjmIlRi/Qy/8+rPA71ELFP482VbQ8BwPlgmEt2LymAQX0YmSi
YPqDWtgRxh0oiXbObPGyvlYLPC7z68LoYIfm/TdO1YIUr/59PvTo0x11LHtr
wdrSJ+ZgOLlevSuma0stfLA2+I8VfdMqNDlyogb8BFcVtqL5dxODpk018NPr
XNBqGKZPBxdRyZwauPD18Pgker5dP31XZA3ckio83YsWEs17PORVA/Ve+4zJ
/V16FoeOpVrWwA4LnqRi9Kyp6B5nnRroXh2dTUf/UOA6qSpfA1u2a/JGoylF
/2oIitRAdPiXJ0FoEZoDBN3RGvAttvH2RjNGzIv2MdaArM7xAnv0QfP4NOPZ
asiycp4xR1v9fSR6vBBNE7lXnwzPx0iKbt9qcF62hSfo02zK1D4vqmG39EH1
u+htkyek5S9Xw9jcG2sptLxtbxkDazXwTXh9v4juCBBzrBiugiTel8l86JuX
qD64ZFTBwE/6ioNh5P4TC8lyblUwqqTXxYI2vFd3eLdGFSjwe07SoP8cUCvp
PF8FRoctVlZCGXOSKJ6E/KSrgpO8J7dMoj2v+Sa86qoEvoshW3vQdcaly+Lx
leB7tY+2Hj2snKrPbFcJ58TGthWhR1aPsQ0qV4IPeyZVGlouqHs6ja8SQiru
r/9GGzQGLrtTVoKwVO5cALmfkOppvueNFRBhsTTggda9puR2LaICxh6v1H9E
C1Y1cBy2rACn7jLCFD1ladSwRb4CJqZ1fz1HU+xZTBw4UgHj7ztdHqHlA7iy
Sv6Ww6rNQQM5dIBc7nh0RTncHTp3+wp6+rcP+ASWQ5r/Ad7zaD69FynWr8sh
wa39v+NoX2eaO/rXy+F0ol7rPvSEGB/jI45y2Lbc+JsRHbzyc0x2pgycJHe9
pUTrvBAbulxQBgXuJ6UWQjA//pC6ec63DBTyOZiGQ8j9abvO8b0ogzflQ42t
aNoPZvbcl8tA8IuzbwW62/D2/CHWMqBgor9PoBVYTppxjpQC/9FnrOR+Tyvv
m1k5M0vBOzekMpTcH4pxX8lB91KIq8n84IMWkM1xP6JZCimXks47oU/SeOid
ECoF1XmXIQt0NNx7dIa+FCQ7pLxeosOFOx+L9pSAZl+/qDraTX/S4HpiCThO
q/ffRfd63vFUcigB2slCOyk09efmXO2HJbC3gIHnIvpZgNSGmUAJ3HkkUnAS
bbxDX9KFqgS4gm4/5kR7fdztF9JSDOamMos70RG19IsZf4qBoeSUIxW5XxbV
fuWm98Vw1Xx973IwYw6rOkvB3N1imH+d9HM0mPz+TqbgzuPFUBlw/0xHMLme
diDi9HoRHOsaTqtCs39S5rpbWwSrezTFctF9GcPfzMKKIEmwikhAH8t9uOfH
myJo280jFo6+f8bOq1i2CHhDX6b5oqM6TjPMHSoCidxfp53RqwV8Hw8sFYLe
nfpwS3QQ9/Xlm2WF4Cgys8cA3f3qtpZlQCEcV6NwUEffUmSujDEqBOcQqoW7
weT6WFW+AUn8/cj6QylyPzF7Glv2fYWQsXMyTxi9eaGp7s50AbygrD96kgyf
aMAul/wCeOwXa0vuZ+Yuw3+z1KcA+DPs+pjQnHJKxltfFADzdSXR/8jz6Q65
SV0ugIGDB70Wg7B9Ohft78haAFe4B4eG0TsM3ntXjuSDplD4hTb002BeC5as
fDh0QdO2Av3dwlrugUc+0Gw5WJONbjqqwBSmlQ8qZm1scWi1FcP0GeF82DTz
fhiCtrWNkRVjzAe3vlsBn4PI/Vc6S1z68uCSF12nfRC5/1zVie7kPJh6WrLH
nNzvbbeC0RnnPJAXd5R/gW7mgAB71TywXZG1f4z+FK4Z1XU2D37ps6XLoYte
fwm4sC0PzlkOjUqgb5n/NPDsyAUDyszd59AUnc+5pmPRzb6XedDv5xPiZW1z
gWiz1NmL1pJSOhitnAv5Q7rO29HhnkefM/HngmaTxp/1QHy+eYuur7fkgvpH
7bJpNDHn79LWlAP05a8Hyf3vpI1GNSV+58DLj27r9egoIonlz7scuOqUwkzu
l+fi1ODLdjcHZpMmj6SiXePZ5z8eywGbnjOCkeget3SJkRUCKvrsL39DZ+3q
v1oWTAD/50lpV3RJo/JYjAwBVdWacu/Rb3eUCfgtZIPr8ykFI7S5Wvcuu+/Z
UCzqfFcTPV9wzcdEMhtK94veUULL+ETEP5/OgicDlLLX0SNuKVrqvllwSKfz
6kX0Uj5H9CPxLLhlUS18Es0Ybuf4cCwTSldaeA+g31GFLD72ygSxpFV2JjTl
9oMzmqKZMPnh3NYt6N3wx0R/MAM6LzrNzP/A9rntkt1b1wwoiF5pGkQb7I0+
8OlCBiwlfExvJvdD9LIRCexJB+sDJ7+Wol8PHW5PcUwHobwZswx08yOJtboz
6WBvVK8Qhd73w9Vvtj0NPm9p5P2Bro5IS2CxTQOha0sUHmiHhtdSwvxpMEAv
VG+D3qg2vKPenAozvF+DX6PFQtTrXN+nwoXXB19qo4OjVwqyj6eCVkqJ0H30
yq9Rnrm6FCgr8t6URqv8GPx7zCIFFF7Z5oug1xYDz2kcTQHC5etHPvSsTnV7
YFUyOA41S3CiM6mOjvaaJkOarMgGE1rntNID7kPJcMCrKHkLWjuCTUC/LAkk
7cxfLARge878gFbaqySQX7rHOYS2oT34d+v+JLgYr1rdjL5EXzekXJQI3g6e
FqXoGNcx/piXiRApNcudgT46xVm1dW8iuGRZVP1Bm7Qfy9PIS4DOlHOvAtCe
ypnb8nUTYC/V/l3u6OdZHj+O7koA5ZdnE63R4tFqH52z4+F10Ru5V+jOw72J
CzrxMNg4M6qJbtEu53+yMx7Wnvm9V0J3MbVM16THgeut16zX0UH0OYtXNOPA
+LZNmDB6zkNULJ0hDtouFJzlRQvxbi0+mxILA3UXCQ40d2yrS6xaLCiPD0kx
kuGR0ncXoIuFGJnSys3vWH8v3/DV0YmBQ9l9crNo9+9u716nR4MrvWBtH5qa
m7rGniEaPCmybzWgdQ412QapRYGThnVpIfpz/5tvuQl/wHDDSjwF7av6dMcI
zR/Y65+S/Auduou9jVXlNwxu8B73Rx/i3fZXKioSdi92+Dqjf9z5o2lNEQmW
V8upLdG/m9/vy1WIACJx+aU+Ov4rxZ6tP38BL4NGsyp6566figqrP6GWlVFU
Hr315kx1mOxP0PRc+S6B9uq8b7MRGA4GN7nXz6I9Vh89fbQQBttoPysfRQeq
W1rmSYXBEVfJhN1o5afnsvi+hsLjIBG6bWiFaarDP6ZCYPc248cr37C809GN
3C0RAjft52PG0C31I7e8PwdDbX/KRjvaMm99+57RINjXl3ejEq0hz9sZJBoE
upK7vLPRr4/PZ512D4TYhpi2GHTNerSCW/EP+CjndSAIrcmdLFSsHwAvLHNU
PdG7Vbdwbd/9HW4eEAr4gL73+CvNg6yvwL202voabVPr2Jms6Q8mxbQs2ugr
7s3fD9D7wce7WtL30PDKTcwzwQfUVBktr6PFdLKSdz74At8jqKOF0U4a+uvf
tnyG/gWZjhPo1aextIKRXnBkS99WDvTDj551TfKeYOpZIsCAPlt25Lbtijuo
aVPc2/jKmOMYNTNhJeEGj8SczKfRzZ/F3tF5foIHbdpfe9DbvZWvRPU6wuXV
L2m1aI+/z3h0TtvDp0f7GvPQoXv89wpZf4Rf+QuTCWhtfNIHa61Bf/wwVRh6
xHxv3iUJKwj1imD7glZPeHD0WZ8ZFJvbHbNHm/26tzvP5hVsU804b4Z+oDXe
5y75Am5uXJd4hl43vcr91/4J3N4tIKNC/r/9WfYQtwwoahrKy6BzHO+IKwUB
8TOMQVEU/a5RkElX4xGx04daiQ/94qtY85D+M+LwovLdA+T16G5ade8yIqQt
tsvtQN+/4c7J+dqUeDPCLk2BNhQYNDpTZ0E4LDrArD+2z1h7Kun3WBPbVJXO
9qEVTUsfjxV9IC73fDhS709+D3hwPc7YjtgnyMxSQB6/PJapccSRcNq1ZTMR
rSfhFLVZ50wMiN0dCUOXPDXttbV2JXSe01Z/IfdLzhU4t+bjTjDd4UqwR/vL
rv05Nu1BBMf88DZDV5nNqslIehHGojavnqFp7UeUNb57ExVxZbdV0P81JQYa
LHwmPpe8OS6Dbh8/LvZKxod4LuxOIYr2M2AX0Q32JUoyGRtPovuO3Q+8v+JH
tNEthe9HK+xINBGR+0potkuaMKKPX9goYvn5jTg5RHll0w/LlwFq/97174RH
Hw/DDNrR2u9v6N0fRIJ9WkMPmksxfzFaMZC49ynFrxbtyVR5iYYyiDj/k+th
Hnp5ovr+/T9BRJTr2r4EdNvb0zJh94KJur8SrSFomWGlvZNbQgibryte3mjN
hdDiU9EhxOOTB2/aovs33qnoKYcScWoplCZoKsqbTWFUYUToJJGojV5xfgGt
MWHEVoeLWvfQZ+uu+m99EE6YDPCwXEezBVwYF6D5ScimOGQLoUVVfp5XjPtJ
BCc+0jmOFtix9P71w1+EmPtPBnZ0qIZtlevWCKJlXTuODm35PflwaHwEkRr7
7c6aL6bnsLGPiY8iCcqH0rPjaNVN6yVi22/COF7PpQNd0tRhUZTwmyjTpuOp
RF9bUuEoefyHkOc9mJ2Fbq940FpAG0UcjY+5E402eiGWmpkYRXBGpQ0EoH2d
nmTFqEYTs5Vir93QHTaHJ7/TxRAthUD5Hq2i1CdjnxRDHJDMcjZAhzetT50T
iCXMNlNYnqCzng/Vh9nGEvHBAn7yaG31ViWW9liCp4eHQwJ9gYHa3EogjujS
Cfh2Bs3s5gPDtnHE6Kg3+2H0r57sCNn2OKJ5F/0XFjRXza/0OIF4gv8r1Q4q
tBnlh9csdvEEy/F3tgs+jDlKk+atRu3xhIa+xcoAOnEga7xaIIGY2Lv+vBGt
yfgm6oRdAsHcRtlW6EPuT9F68EN7AsH+yFkyGV2Ys/16q0AiQSnvHxuOXi0X
Pcpnl0iYaJza44N+ud0v3ao9kaCRkLG0RzN33KSrEkgilv2muk3Ro0Yfd++z
SyLE97Bffopm6NLt1WpPIkqeVX2/j6aiOaUXLZBM0IrQr1xHK/5eyViwTSZk
hBrkhdFbni9XC7UnE78ZeH4dR59KUfhtLpBC7NGh/rcXrdovLJdum0LsmHkp
S0eGh70xZ7kthVhX0Pm2+gXbSxpym2cEUgl6sYmRMfT0jyaGF7apBJfy5pl2
tKeb51RwWyrRdDvIvBwtXhkd0nwqjcitqCMy0LdrFE/R2aYRK2+8t/whfz8Z
53WxLY0woRyW+IauvzdZ9/RUOvEfQ/n7T+hMzjPT3h/TiYOS4pkW6OTTkWPZ
rekEl9KNxRdojQfviof4M4jlwSHeR+glqXZ7+o8ZxJcANjVZ8nzWw3wCrRmE
/rFOj0voHKPKDHn+TGKFVyiXD/1XM/ms4YdMQkH++NR+dL91uY9rSyahfjlu
DyO6tf7cWARfFpEdWHOZ/J4Aq+QBvnybLIKC3UF7Cp0cGqXe1pxFXFZocexC
V3+nd5k+mU2Yz+dGVqFf52hEb7HJJj4FXSvNRndZtZewNGcTi/9pDkajK05+
6+I6SRDTOfs3A9AhlFWzp6wJItXq1W439FM2PyqRJoKg6NfifYeeSPKkD96V
Qzh5LV56iVYyqPQ9ejmHSD93+JYqWiOA6div5zlElP70g9voWBaDjOOfc4jX
/So6gLbz21SIJHKIBCFtg1NohtG6ueNjOcR2FmZTTrRlzLrvL9ZcImm36tsd
6J5PXlLckEskD8tabnpjeFl+bQY/yyVYT3RbTKN3ld/KO+CdS4hbs5h3owd4
v7r7ZecSGe7jr6vR1KGBuiyj6DUdPQL91Nvo7ieWPIJHy1Ejhvx+xJ0jN6nE
8oiil3L3fqA3jpYqvH2aR3BnZ113Qy/Ivn4x65lHfJ+rvfCO9JqQj3ZWHnEg
xuXIS/QppRONbcN5RNDnWUZV9FWzBzy3mPOJRqmNJfL7FbeNul1zRPOJIzqJ
HWLoLulS+jM6+USGN2sOP/rTCm9wsEc+EWPIGXTAm1y/wS7HnInHAxrfMaJ9
fX+yWQ/lEzqZFx5ueDHm+FwfWpliKiBO6Eqen0I33h1dfiBSQOyS2cLYhR74
kM9colVAMP3T7a9Ei3vby5x1LyC6939MzkL7Xrwe8j29gKCTk7GPQrcd2rNv
62ABkXo6T/E7WmeCNvHljkJin/roIRf0whmBl83ChcT0u9xxC/L7HrbfZcU0
CwmKEzIJL9CnX2jKhboWEv4bdmYP0Ve0fMxo0woJmm/GIjfRtcPXi/X6CwmR
QLZ/IujxJ86XahmKiM1feum8aLWLhh1nhYqI7XfNTPaho6rpwz6rFxH+YkIC
29GuZga+S5+KiC7q6OFVT8ac3o/RKUopRUSjZNu3MfRD0db/knuLiIsBWbfJ
75mU9myxYqUvJtx/3acoQ4dGXuIxOl9M8G75E52G9qr6SlGtVkycl0pViUDz
mZ3azutcTHxmsaLyI7+HUkl33S6pmFjesvHbAV03Bak93cVEQayQvBlaabHn
4UW6EsI4lX9BB223sHneS7CEWE/s8b6HvrYaLTX+uISQFL99VgqdzkjhLuFY
Qqwtm1efR9sKUu/0SyghvF5pPuNGrz2tKZ/qLCEUbtFT7kabhb7KvbKtlLjI
9eoLNZq2jWLe50wpwefod3zRgzGH56/jk/GHpUQ7x/v0AXTXyEFGMftS4osJ
j3QDWsujecUtrpRIO+XemI+urCOO9raXEtd601UT0FxO456nacqI7Ud+DQej
td1fSFgLlBFx7vf1PNGp6XfP1aiUEc5ExYw1ebw96cUB2zJi7Tq1kSF6GxE0
qhtTRvQVbJlVQ1ueORGV2lpGcJcX6smhRf6ppVJRlRPa87dGAP2j9x69HH85
QdMYoHYK7R16MNL/fjkhsTW56QC6larSc8CmnNh/6PMNRrQUoV/MF1VO6KSJ
Zq67Y3p0ZZM2aS4nmrSjeCfRJidb92RTVhDxxLBvB7rhVuEF6pMVxC2Vif8q
0C2Rk+EyShVEUEXGiww0LGjoeLyvINz/KNVHooU7hc2bIiuIn25ZF/zRL3db
97A3VhDPt8/6OaK/35b5+nizgtieNLtihu6/EPk76Hgl4X0o595TtJ5lDPOA
QiXRMfgw4R66qfJF7VGrSiLgSwm9FPpy0/yI9q9K4kjJf5rn0cFXlFR+1lUS
dYw70o6i0/LDuIf/VRKxG2Pbd6ENtizc4uapIkJ4fR9SoVOj7jRoylcRt46z
/Z53w/bKq/qU4LdVxEHnp8t9aNYtDqvdYVWE9cAn8Tp07Dab7xw1VYR+yUfH
XPTMhfqg+6tVRHOpXHUs+Xtxl23eR6oJi7ezzIHoqabcuqpb1UT1S527bm7k
92ptKGnfVBMnhBO8rNzI8avezxIh1UT6s8YaPTTb8rT728pqQsOravsjNzI+
EPMJy9XEoNSPqzfRo4Zx3YtMNUTfnutvRdCiOsbmO7lrCC+f0pgTaL7oxLKT
IjUEKB7p24s2OPa3Rkquhljtu89Mi96bVuKirlVDaNXqXP5Lfm/qagylpTn+
Pk7+xTBaOV6Qz8ethqhlZvvShI4f6WWKC60hLO1SswrRHnUQVZZWQ5z6dr4/
Ed2p0rxloKqG6O73oAlF3355mnm9v4bgnCzj8UJ/3mxq37VSQ3yU6pO0cSX3
45RT42esJfhtWjQM0ToPjwVKHq4ljE5GW6mhB5mHvj4WqiUON2r43EZ/38ty
10S2llimW40SQwvpCpW6qNcStg8N8/jQDtTda6GmtcSh+2UNHGjPEbeJjE+1
BNMn6sHtaH22hq91QbXEJbvD86su+P58BOlGk2sJ3YYjm6PoBcOLQpvltYQy
FR1tK3o4Tp97V28tYRxSz1TiQu7HqtJ4YqmWmBWz2Z2Cdgi0u3Z5ex2xoLGb
PRx9yMTCVPFgHaH4w33f/zi673gsvzYA4GVkZhZZhSSjbBkRkkiIrEIhKhSy
R6GQXf2syExkpiSlNC4zK7L33ttjb72X98/v5zz3OdcZ97nP4bmfE43m/Vd+
z0ayCWq8Flj998oznOT2UW+C2VCZI05o5yTHxEjTJljTt2a8tXf92mR3hnMT
iFs9odbZO28ssKPve3ATRGv5Eu+dN/afZ2X636QmGIq6vy60F9+OgsTwpyb4
8VtxmgP9V7k2cLWqCWLs/3VTowN9F1Mo+pogmzWrZiuMpphj+Zwf+1ITiOqe
K5zac7vMKWHyZlhLhZRONI3d/UQljmZ4G3M6pAots8+sXVesGSa+Bj0oRG91
JHbdVm0G4ohGvXS0j9qHDDeTZpDJJZeKRjukcigEOzTD8yghZn/0ZWXHlLiA
ZvjdqLziiNYJOPM3J74ZXsypNZqjA/4uVf3IawZ753M52miWQPEXdRXNkD3D
46eAfsTqw93X1QxXB7avCaGvbZn6zc03g13H71McaKk3pvm7JC3w84bfLhX6
YihZHg1rCwyti9VvhtIUn5AZfHRUuAVOi7XFT6K/iLuyCF1ogeVw27sdaD9y
7QD56y1w4fWGSCX6ufp6mYZdC+yOeK5/RjdGrDcZ+7VA5/jCzzT0mcddn2xi
W8BGxPRJJNqu8ORdj9wWoLpYdt4XfW7YejawtAU2PhwlckCnFAiovmxvAbYV
BzBFpw8tOafNtMCDhJ+eWugBgStu+ftbIeIUkYQ8+rDOb61iplY4cEpxWhCd
emx4q06wFcS53F+zop/cFfbpVmwF3ohsXQq08D7Jzgn9Vlgk6SBZD8H1f5UX
5apNK5j/21cwhj6TFslI/LgVWMh4zVv3zut7sm+FNroV4lJUqcvRx3S0PrBn
t4KY3p3P+WgbWjJlfmiF7VRfkxR0z4+CPMmWViBjSty/d97fmVuD60qTrbAp
9CXNG51Gy8yutYvxO9Wr2KKbevpZjRjbQMFqbMQY/W2iYuU2Xxvoh+8+UUdr
GenmOsi3Qa8jM4cMmtKM4bzX1TZo/U/0y0m0kMizgqC7bcBir6nJhOah0CKN
etQGp8LvDZGgaUX7JZLD2yDeM8xlKRjns9Ua5ez0Noh+n3dgCJ33IV7s8/c2
OJ/XEd2Abv3evb+4oQ0yiEiPA3r2yeH8mtE2cOE78z4XXefQrNy62QY30u5L
JaAziV8X9tO2Q9l65q8QtO1XUpopnnZYy5hW9kBfZ3mhuizTDswSkpV30Wbf
flvuarWD0LEANQO0n7jUHXLLdmid6qu8ELz3vsc9DQaPdmg/oqgiji7TnmVm
f94OyQLZxVxokmtq1SdS28EjhUOWDj2yn8xc+Gs7hOzGfdwNwucXc0G/dF07
/CnlPjmLnrrXpXJ+qB127T7HdaMZu0miLq+1Q7efLnUNWuTyrxo96g7oebLz
8Ct6Iid86gZXB8hOfppMR6esUizfOdMByrJu+tHoNaH8cfvLHdC+rAp+aLVb
h3+7m3VAfyzvSUe0VOavF09cOoA6nfGZGdqdW0YlJKQD6uJpF7TQwju04xHJ
HfB4g1VXHt1gV+8SX9ABd86d+SSIPv3130JqdQe4T5rTs6L/8QibvOvrgESP
JFty9AjlREHBUgeE2c5UrgbifFL7efsHeSfUKmtwju6dx9l0XKKCoxMKPX+5
NqPDon8a14l1QvZ/yrUl6IAYGudW1U54TdzDkYcesnzj1WvSCX46QXZJ6NZo
Eo9Rh05gWVf7GYbOqCu+MxvQCRvORykfogW+31Jdie+EVBUKfWt0yRFXtp28
Trg8TpFkiDZ/FzBM8rsTONs5R1XQD1U5X1N3dwJjhJbA3nmhwZX1OocInbAQ
FWnLja44fHSDjbQLrE0I7+nQj07GvTzO2gXblrfndgNwv7xTLyAo3AU0gkuC
s+iYdLUvYhe6IE8g7m43mvFspIzs9S5Y6zdKqUanDcp+VrLrgsbfkp2F6Oo/
tfyX/LpgwUiQNh0dfbYpRju2C5qY5ZSj0EEeXf8MczF/DysXXzR//4NbpqVd
ULCR9/YB+lcjV/Gd9i7Yf5ip5SbassyDxW6mC/6oxO7TRN8TJ7V32d8NRGTS
gmfR/3K1Sx4xdYNc84ouP/rznwk6f8FuWOZp8mRG658xuhmq2A32rnXJpGiu
ZNHsCH1cpChNlC49xfmzamv5lU03BO8/PjKIzvNVUUjx6QZKYW/iBnRSVnxw
ZlQ3SF/Y5Py1Z77Qlg9Z3fCqKEbuHZpx/TVn4a9uSKIyNIhDjx+1sfvV3A2Z
edJ2QejnH51+VUx0Qza3vL8rWqhZnb5upxuKuyxjLdFQ8OhuC0MP5OvkZV9F
b0a/LOk+2QM8+zi/K6IvlJ/gHJbrgTc3C6qF0EcTC/2mdHogYtS2jR29L7Rz
ZuFOD7Ae1BykRLOTs5hsPOwBe82rU+v+OB8mEjftC+8B/aPeC2PoU0O8V8jT
e+DtWsNqC/qbF10L7fceYNS5vFmKHj+hZc7c0AP73sxu5aHbkm3Xjo72QKn5
160ktGjx9kvezR54QfZuIwy9bBOsKETbC/aU1Sue6NTIlGVJnl44P0hLsNo7
n1e++ZO8TC/UEj2ZMEBLP3znraLVC29H2fsvoAn23/U1LXpBct9Isxj6tNZz
GX33XuipavvNiS649kngxrNeSPm8UkiDNhr6yn/7TS9kyillbPvhfKd1Wsq2
sBeg+VvUFFqQLlnX5U8vRBNMH3egK3ISfLwGe6GVXMLmN5rtc8H3p6sYT/iZ
qwVouiYX8udUfTCwz0r6Dfpbod2dl5x9wF5bxf4f+thpobYkyT4Iv339nxe6
lkL5WoZ6H9CpsA7cQ986Izf7wbQPVPqo4Do6/l1m9FfnPvjzVihBFe3pxny1
JLgPyOn83CT99t7HZT5ek9QHCuEUOsfRBs+lKZo/9cGLxFI+erSDKgVpT1Uf
7M96v7vrS1P8SZiFebS3D2xP1jfNoImy1xTmFvvALYzrbRd6UkDi8RpZP3y9
nOVShSaTudmxj6Mf0jtuX/iCHrpPeolSrB/upxvSp6F1HL41Mar2gxSfT084
2paY0pXDpB8ON/a89UEXLAaIn3Toh05GB1tbtD9nMZVoQD+IWMiJG6OpfVX+
ycb3w0dRhTU1dBpHBo1KXj9ULnh8O4NmonGRvVLRDxWHZz140E4+Cn7Xu/qh
ivaVNAO6/+PLSYv5fmjW8V7594SmeOMhqZQU0QBUaSbmzaL3mbwM+kE9AJYu
q9bd6HDJ35NKzAOgJBvCVY3mu9JrVMk1AL8PXm//gm5eP96jcWoALplbhKah
g8OGbJvODMDi2yz5CDSLnTndNaUBGNM49f/zsfmpJst6Lw9A++/pBFv0/e6S
IAuDAaj0n7hkjP7PTMJ00mwA2Ne4V9TQxrzBqvb3BsDjeXzSGXRGKfn5FZcB
EPh+9SIPOrF1S+vh4wEwnFWboUcLUuTY7Q8dAJFo7//+Pcb2ZjBNCYweAD/u
ZbFZdMgHs/GDrwdAijS7uQvtmr2uGJU9ABvvXjtWoePa7N+zfh4A2eAO2i9o
QQZakRQYADuKqzmp6HmVY79P1gxAV8JBlXC05u3JB+9bBiAqn6rXG61m90VE
sn8AIr9pON1HR1n/Jf0xifXjbCQzQqfbeBHOLw/AL4NXcarolhcUC9W7A6Bc
81ZQ8vHe+1c/yXQoBuH95GoRN5pndUCig3EQFI8/U6NDm2T/cjc9Oggqo1Yt
Oz74PLdObh7jG4TSxJCb0+ivgX9U7MQHIapocawDfePOi78r8oMQmJVi+xud
9EDUwUttEBQ6YhY/oRU4tgVIdQdBo6DVJQX9eE56J+zGIKxlG689R4c5iE4c
shqEOH4Bt0fo5wrCMwmOg3A5UWnFGv1y+yHFCa9B2Of0xsEQ3XHNXDE3cBBi
mTVnLvjsfZ+AP1wyYhCq1pRui6HfjbNv/0wYBN7HT3qOoVUKAp5czBiEkxzU
Vw+iK3TzuP5+RJ8dqtj0xuvzhnsMf2B8F0mkJ9Bvi20+DfwehPxsx8xW7739
wou31o2DoNZymrlsL5024dNi9yCUC53xz0N/cO3qfTg2CKsnwuYT0bmDUTyk
C4OgfkLkeih6y/dw0POtQdCK5S5xR1O9Sic/cmAIOKcsTt5B59lFpKfQDQFl
wHKoLprE+PgtQbYhIGpvmVNEJ5Wknv18YgjmVUm1hdDMDDfFFUSGIFE54AMb
+nh1wqVq2SHIkrh2kAKtZZ/trasyBHFPH1qveuHzP66xqffKEHS+JpQNo2Nn
TC5aGQ1BFKGQvRHtfCimc9FyCDb6Gp1+of/U1YR52Q/BgbZz1Tlo2sHzZuSe
Q5Cq8I/9FTriuLpepP8Q+DxltA/Ys5ug9dEXQ3CG/hE4oW/+EU3OejUEVhoy
NOZo5aOZqxJpQ6Dy+rKxFvqba6d98fshEHD9lH4WrTNDR6XxbQiEpBwIfOjZ
N6+q2suGQEnjqTQT+nXtr0yL+iHQPUrwJkavptXmzHcMAQVTfhnhEU1xsSdV
08PhIaBJqD3QhzZPr2YjnxuCriPyarWP9n5PSyc4an0IapYPBH1Fy2XOsXIR
DwNrLP/vt+gG55mG3IPDMGHzligSHeP/Mkf2yDCItnrKP0b/dJbOqeQehrZz
2a62aOIFjga908PwkFbivRHaJj+CdUhqGPreHxlRRXM8HgqxPz8Mt/2vHZHc
i0f4OteOxjB4rS2pcz/a+/39830hhsOgYT/9kBadVTdVcuTWMNDqKuRsP8T9
VW7in/T7w/CDgtAxiW7UztiVcBuGY5s7JO3orGbda2VPhuFgqLVwOdrBbL5T
J2wY2I6LX/uIphL57Tfwchja+Yx9ktC1wTwG9inD8JJoKC0U/ajMQGc3ZxhS
maqq3NHpSlkuz74Mw4nag9O30XZuVmXsJdg+AZ+odPfKGxuQfVc7DJa53wQU
0Qycpj1n24ahMZ1T7TT6aJlwZu3AMJB2TFiwogleyUnG08MQkM7gTYa2oNmC
6ZVh+OqW9HLZE+cLxRfUj/aNANHHsNxBdO98pj811Qg4FPaW1qOPkkXzJR4e
geOE8LbvaKHHr9dPc44ASXHWROaeLY+s/BIYgbHQExvR6LTaS0e1JUfg9ldS
cj/0zb4nzoMKIyCdrX74gefe9w0Orjuqj8CXimXOG+ipRdksEv0RULYnEVRH
U0QYBL00HQFmKk9xKbQj8/toPpsRUNnRl+VBj60/byxyHoGSrFgFerTAj4ty
mj4j4O58XnnXY28/w93WHzwCbCW6KtPoZk2HZMeoEdBb+qPSgaZ384klTR6B
F3bvL1Sgu6XiS2KzRkD75bpSPtrpNgPbqYIRqK3LkU9Gb42KvYVfI8DpXiUV
hh58r26mWz0CtutaIh7okd8ZGuPNIxDyUeHkHTT/hVibh30joH8gnl0X3adp
U0Q7OQLW183pFNFBbPfl0pawfQ5GEp1GM61ME6R3R6DaX2SJBW0oLt1RRz4K
XVyyQwfQcQrJi7cYR6H+Yt7fJfe933ewV1znGIU6/cjvA2ix72slz/hGoSFv
+G0d+rpOgNtx8VH4+i3leRH6ALGN+Tf5UdBoqnPJQFM8X/C5ojYKx0ysjKPQ
PCX3mkevjkLbVweFJ2iPRydNHt0YhaJLU1x2aI6PTqyMVqMg/qCJyBgdYp5M
k+04CleeCQypopNSNqSVvEZBm2gJJNDZLxtfdQSOwlGRUwlcaHY3V9EHEaNg
79bmSoOODpXaR544Cqwyi1e23GiKQ09bHnidMQo/W31OTqCJqi9fkM4fhepc
n50W9FSXfFHDj1Eo5VpsLEE/Wwy2sq4chZrw9rT36OY8nytETaPAeVPENR5d
WWVnH98zCpVj2ypB6Ov/0qskxkfhR6j8IRd0nKC7cf3CKJS/WxwwR1efEeOz
2h6FpCz2d1poNfYTwkRkYzAx+N3lLHp28vWDBPoxYPvcIM+H/gErM2fYx+CV
rzHJYbR6g1NaI+8YpGeZVO/fy9/sXsx90TGwDm4Jm3PF53fVqd9kcmNAeFym
1Y3OdyAXTb04Bjzz/LRV6NpOrY5zOmPwR4y8vgBN8Z/2jy7jMajLvhmagraU
utnremcMYj6fVn2OJntadZbRAcv76LL/IbpLaaD9w8MxcNs5U3QXTX9p9aNG
wBicWXNw0EMnBhvXTP43Biw7vCeV0BKk5lyB8WMgaGvQfRot1WhYyJM+Bjfe
7nvOulc+U3hYad4YBBLzKpChU2lvpph9HwPT0d9zSy44Hx6kW92twPIyhxMG
0GGO6yGJDVjf7EeX6tCPPluZyXWPgYNaxPI3dJBZvmv36BhQD/AkpaOH6U/W
exLG4EK9xMVItNfDI3dZt8ZA+UHpjA9a0KJDqYh0HAa568Pvu+ydH/71phHd
OJApX5O8jjbno/q1yToOAafN21XQCytcZvEnxmHs3KSbmMve/8+uqMiJjMPX
ZgLTMbRb24htr+w4OKm5F1Chd69KdnmrjIPpho/2ujOWPxURwqk9Dh/Pk0+P
oCVJtX1KjcbB9zG9fyNa+xh8tbw9Do00CWy/0Aw1YlJkD8bB81Lmx2z0hZyd
zSxPzC/szMUY9HMvRxLNp+PAJq7a6beXP92ILuHFOJx71WXzYC9d7e1kZNw4
SLAubJqg5Y9R/JZ6Ow536UODL6ElUm9Ndn8YB/auTKYze/Gsk+g9LhoHn7/q
b7jRVobKB05UoDUcTtHuxUPrsK/m7zjwvGP/vOWE62+/wfP2XeNw5pKm3AS6
4tRE3aFRrL83cWkLeiSuI6Vofhzc0xUulqCPOB4As81xqGAjqs5FK9yvOEFG
OgGN0pfV49Cl163bcmknoNWQrSYAfZTzYqMe6wQcb3ZUc0IHff/AtM0zAd9I
rlaYoq3kN9NThScg7uI3RQ00W72H72XZCYDFzCJptGeOb9bShQnovMUlfgK9
xG/NnnBlAl4TuLPp0ZcLnnRfMJqAzyu5x3YdaYojaznHZy0nwLO2NHIK/ZQs
XiHGfgJu15ofaEdLMqmMKnpOQJpWqFsZ+tUPp44p/wlwe68w/gEt3/aQJfrF
BCwo++gnoB/p52cqxE3APiv10iD0W+X7AVNpE+DulHLaBX2gZDc/+sMEcIF/
jDm6jQSElIow/tTlf5rohBtEmzPlE1DosXBHFr0rcvTwq78T8PzVwz+8e966
+1ilawJijCNFGNHxVyXlFkcmgOeITOQ/B+yfwW615PkJ0D1puzyN1rH5mK6x
OQEig8J6HejwaiqDTZJJ+Jj4JL8crbCgaJhJOwlpBbdoP6LbptOzDVgnodar
2SbRYe980Uht0hOT0KPdUh6Mztu8calAeBIuPL3N4YoOiTeOtpCdhBjHQOdb
aD2+YQlGlUmgfyBbo4UuP36Zr+zKJJC1eh89i37JN2XvZDQJL9f1HE6idyaZ
qHluT8Jv0Z+ljOh34nw7LfaTENBeyLDPYe/3hZ2VAzwnIU9RxXzmAa4HKPT6
pZ5OAmP57fcdaNEM9sbJF5Og+ZVlsxyttHiCJSFuEgadzC98RBuLVhZqvZ0E
aU35Z4noonLD3P15k9AZl9sSjHY+IbxZUDQJvfn5rK7ohNG0JKuKSfCe1jC9
hV7Oo4tnb5iEwrhHb7TQc5dr5hu6JiGB6fyILJo6mj/x6egkTBQk8pxEP/UL
SJUlTIJX7QsLRvR3PhliwuYkED4cSflnT1P84MOrH29Jp6CjULp3Gs1tsq/B
mG4KvkgTmDvQYs8q5BnYpqAlUEGnHN1apHSg+sQUhG7yBuehNd3q+B+LTMGh
sXRIQI/blWRKnZ0Co2RYDtrLz8rVb15lCgIeOvC5oH8pqxRlaE+B1d8fRubo
yu0ATTPjKaicTwnVRH/PjJJnuTMFxqJc32XQ4FYZ0vRgCsomZCdPoK8WuEuG
PZwCd5v5wwzo/eX7z10MmII2SgWlXTvcj/L+SNsXPgXqRwXuTaH93PbbfI+f
gp31vMg29K37gs9d06fg31xzUSk6sS2SXuzjFLjpRQ68R3O9iVqe/T4FZ7zm
SeLRgW2BUtm/p+DIz4mTgWj/l5VddxqnYOiuzyUn9BXO933He6bgSuMna1N0
aV208uDYFHzWCAi6jGY+1EmRvDAF6afX3kqh7fybRG9sT0F45YHS43Z739/t
+c5GNg2vbT/30KIF8q9mdtFPw44j8eqWLU0xK8eLtVfs09AgsHBwAk17cDbr
+slpODThzdOCpkquBBYxvH7nnUwxWo3aU6ZLbhrUfz3UfIc2zjZljledhm+P
pk1j0eemm6+bXJ2GyNDtB/7ouBti+4/emIa78h8eP0D/fNd2cODuNISNEL8w
Qcu/Zn/8xnEaLJs349XQVhxm1257TQOPSVSGxJ5P7LzkC5oGosaGj5zomPYr
cjMR07Dhl1dEbbu3HyxQy0ucBspK8dL1+zg+VAJ/OGdOA/mMUdUI+nMjT6zM
p2n4fYG3rgH9OH2ye/fnNKxzv2z4gU5wEQsqr5oG1o7spkz0xkGTxJBm/Pxn
y+YotIhJGZtO3zQYHSxveoxOs6kgPjI5DXwi1Q330SXmoN+/NA2O9s5119C/
AmkYMnan4TL776oLaGYlOhl7ihmoDPxVKoK+S8ddK3VoBvqJbn5nR8e8TKna
d2wG7vel5ZOjFyNmRGv4Z4D/XmTm8j2aYvthM7IoiRmo3uBPHEAf9je5dFNh
Bla7rP77g7b9T36dT30G6Ey1fb+i15VuHVrWm4HYtgHHNPTAAl8SmM7g+o71
1n/o98yE6FCbGVgb2LnyCO2gzrRt6DIDwodC5azQpxQ3G3gez0D8w9KTemjD
+s1DiyEzQHw3jV4RXTnpWgXRM2DLK7opiO5Mr5t+9noGIimsB5nRTjI3fUxy
ZoDbTKOSGK2/Eugn+GUGijy6c+ZtMD7N7PXN4hlofcv0ohvd2MbTX1M7A2Pi
uw8q0ZrKhlLxbTOg6BSh8wnNdDdl//3BGRD71CySjN5/xuKc/MwMlJ8vpQlF
K5Vvz9KszYCAw81pV7TvxXq6wf2zoPIs8/ct9BK9dMYn6lmgGnv9WgsdkRD3
MYB5FuRqVD1k0SWPDESMuGchNihRmxdtZfPnuNDpWfhu/4aXAf1F/kYYkfQs
CNcbbO1Y436IYG3Tfn4W7BeL6ifRRYm6v95pzuL98/d1K1rmycMg32uz8LYi
0qEE/W39fPU1i1lgoqdQykWf86N6Imw3CzLGwrSv0CElZ/IOeMwC++KBHn80
myuvYZ8fXn/8v4wHaPWncq5fns9CjnytgwnaZKXr4ItXs7Dv+VdZNfSXOYuj
VmmzoHDrGpEEevi7TKbSh1kgJc+pOoZuqf6Vw1Y0C3//5D2jQv/I0OdfLcf0
XWudNSu8H8jMuRr/zgLRZBvjsNXe+TPKUe+6ZmGha62lHr1TbOYbNDoLlFx1
UUVogiDbjCVhFq6RG+qmo1+cbWtU2pqFyd5ough05pUV8WMH5sB9LviPF3p0
upthh24O1gLEA633Pv9l1q6bbQ7YlyMU9dF8ns/VinjnINA3c10RPXKc+/Ur
0Tn44e384RRasoLa1UNuDi5IrlkeQZ+IzK+5rjoHvosiLCTotDG3JNmrc/CT
iPvP/F0c33IlC2w35oAjv8arG61zZql85+4cdGsIClWie2Mdjww4zsHBYxd6
89HkWmkzpV5zEO58ODQJPWwxq5QeNAeKr5KlQtBaBz8dCYmcA/LOoSEXdG6K
kYNd0hwE+PSHmaN1Ey9p6GbNgU1HtKQm2iNlNEu6YA7EhQ/0SqM9naNCjsIc
GP8V8eNBT+7/MUdSMwcXSZj46NAWRqVt0y1zoM7ypXbrDs7XBQeVm/vnIOw6
vd04OukeicT3KcyPjo+2Gf1u/8Hs1JU5uBq0+f4X+hXH87dh++ahjjpYMxv9
O2yO15VqHlImmqei0Sbno4XMmObh0Z3ugCfoBsPJH+pc8yDUmMxli/5LfbVJ
8tQ8aDhxfb+Gtqs8Y88lNQ/mMWa6F9AXDv2LPHh+HpYCb0wJo/PSGZQ2Nebh
/osjj9nQZdc6XccN52FxLfwQGdpM8Ltk6615GKGqyVi8TVOcfpHTu8x2HgwO
l8j0ofM2Hmjnu8+DzU23mmr0ZtHh3BS/eVgQmb3+GX2bzy0q/Pk8HGjnnniN
NiHbPeD7ah4M4464hKE3LjCSOqXNw5vy+n3uaP7VYy8sP8zDy2SVUAu0s+Gz
twZF89Dr7HXoCpq1vlztUgW2zzPXBFn0tzFhD7mGeegTFz3Oi2Y3lJYS6Z4H
27zcTHp09raqH8/YPORqzJzasaQpnu+tusGyMA9tOrMfJtCD/CcqabbngYzi
o2gLWilh2NSXmADHvkvlA1qjgjpth5wAYh+fiOagqW8ri3jQEGBb/MWHl2j2
0R8kK4wEuB9mdsoXXVr2nsuBhQDkxKsZtmiiKK3A2aMEcB24wn0d/WGnUdKG
hwAatnbxF9C+P+1Oj/MTYHVBh1EEzfvWyM5SmACdXzaD2dAX42vXByUIIEVi
/e8AOit+7Y+pLAGUuROdFi3w+V14aLpXgQCS12PGetGMh67rmqgQ4MCC4bVq
9PfZTdJudQL8EO2vKkD/iRIhNtImgKzFaenX6Dx7kcud+gQwqDufHoqe3xDp
u2ZMgOLCY4xu6J5yqx8dZgRQsCn3voW2cKMZu3aHAFdPiU5qWuz1xzXjzntY
P5U7V2XQRvHe7EYOBODdsSjiQd+p/MLf7Yrlxwlw0aENtKX9TB4RwP12UcDW
LVwPqcvy9z0hwMs0xukxtGv/EptZIAHOJp/RakKzaCcYD4UR4HLC8byft/b+
H2QzYRlBgLmhLrosNJ1ETOl4DAG6v5k8iELLx1ybskkkwO7drHofdPXnMdO5
NwRgkigRvIdOV/A47piJ8VimBRqgbbdUJVdzCeChqDukhDb4HRLt+YkASwfr
z55Gs0d5XPj3lQCOjIejjqBT7DXO+/8iwO0YvmlitLDn2RcU5QSgGSBXmjfH
+s54C76oJkCs+JfoLnTk4SvMh/8SgKtDZLICrWQycjW+hQBFjB5nP6KZz7n1
cXURwPrUi7AE9NwVxaLMfgLM33XqCUQvy7uPCY8SQIWaV9AJnVVraFE4RQAq
0wz3m+jDLcyiCgQcP2/Xyi/tpV9auFK5QoAsXmY6SbTXGY7iK1sEeMJ7wIgT
rf+j5UnHvgU4Ol3+hgr97ZBOtPmBBfj+TXdq1Qz3Z//Vbk5RLUB+e77IENo8
zivfmX4BzoYMudShj+S//rHLtAD3mYa/fUW7OdixBLMvgGlJwXYq+lcwZzUj
9wLQNRiee4GuLifUJp1cAPPAP96eaGUSFm6B0wugcIrx1230h/PNtZ/FFkCf
+NS2Njoz4nq1kvQC3NRhlpFDWx4bY62XXwCCUavzSXTzqU/FRsoLkGF55wMD
2o95q2hcbQGW8msmdkxpir/qrVO4aC2AdAgR1yQ63XE0l0hvAUqEaK61oPWO
7KT/d30BekZmnwF6hNRz5ajpAqQTUkqz0V6HYl7lWi6AzEuB1Wi0+5kXkXI2
C/CNJYjvCdrVLXG41n4Bxn8VXb+/l9/2drCxywI0VZcGG6LvE08GTHsugIj3
66/n0ZEjCV0PHy9A5TG9sdNoIXq9p9QBCyC32MvAgjY+pB6YGLoAXDLnzpHs
xRNRNCAUvgBE0i5W8zdxPF4eDC9+uQBXxfzCu9C3mDbjriYsgNU9q28V6Ptj
itsjKQvwkvfEQB5avmrhs1vGAlBnfCNNQLsMqVVR5i7AmjCvQCBaxNVXPCl/
AVxI7mk6on/3da2Jfl0A97tB9jfQ2+HPD//+uQCz8d7/qaG5ObvCjMoWoGJE
M08cTSuxeWO+Cuvjv1p/FK0fKRjsX78AMb/cZyjQskdzaFhbFmChpYV85Qau
f/9+nvvQieODkopnAP3yVxD/xX4cDyls52rRMmzm2BcL4NxzwPAL+ojYozyn
qQUY3fljl4LOtmHeoSQswCE1u6dh6BTVB2/frCwA685UnBua4W55luzWApww
Vf5wCx3pq0PZvG8RbuS5lWqiL9vrV947sAifxYJapNHVHDSDJNSLIMnnMnoc
3RT3zTCJfhEims6t0KAdaF4KSjMvQqHTKPGmCe7vfg6aNLEvgoGmNf0oeuVA
9/R97kWgS6nhaEBfsSruIONbBN88Cv7v6DyPhuOppxdB9CeveDp6cv5S3Tnx
RXhOzi0Xjj6RcK+1S3oRFpq3lB+hD9x3lnM7twglZgXqd9HfrVOJDl1YBGbC
Ze2raO4fUnwfLy0CX1mpnjy6Lv1BrtaVReBnY7nGhxYJeRYxo7cIm9JXjBjR
b4br2kOMFuHrjdvGu8Y0xT6aDl78ZovAW2NsPInW9Cn0q7q9CBwgZtSCrtMc
mLp7bxEsvaYMAU2ZI/iJzGERPqj46WXvfT69syfDdRECr+1ciUYX3xewUnu0
CAGr19Qfo7+o3dSffIL5m71UvodOefM5LSRwEapbP581QN/e52Bw6tkifI8p
FFNCL5M22tRHYHlj8Xyn0HIuTEMPYhehYr8FBzP6nJDvD8akRRAQOEhPhBYQ
1t/8kroI8clxxLNGe+frNMQbZS0CzRuqlXb0Qqxkyu77RbBzMBstRf+LrqBM
LViE15qvWnLRAcSlHapFi3DX9UtpLJrL/T7VLCzCf4JfP/ihxbIOpEZULELs
u6R4O/SWTVOydO0iKMjYBFxH/86jJ+pvWAQierYHF9BjYQdqnrYtgpbTx2vC
6FGRpbVTPYvwNPm0Iis6dpYlrGVwEXZbXvCSomXFfwY8Gl+E5asdVITrNMWO
4ccmeGYXIfEaGaEL/aXQL69ucREOn+BorkBPOp8acF3H9llj+ZyHJv1q4sa5
uwghNLvR8eiCF4auNcRL4JRV7RKA/i1g1utMsQQbB7z0HNDHOr69O0a7BNO3
j4iZoKcPZI7UHFqCXpIEGlV03EW7p66sS5DLTT4limZV1X7BzbkEbTsm5exo
Qkc40d8TS1DWEpdIhhaede1/KLgEnGMlLovXaIpro5V5+UWX4NiDJo1etBep
XHvbmSUQ//iHuwp96L+0RX+5JXg6nreWj76dXeIufn4Jruv41CaiH021Ww+p
LsGnU9JJQehislO/wzWXAAq77Z3QZN1Ez5V0l+CWiI3iTbTjzZSShWsYb8sw
7SW07HsN8zc3l8BwSK1PHD1Opm6ra7kEl2Ne5RxFn63tGyWxWYJTom1uFOhc
D+3aL/ZL8GZ29/yyIU3xzJcRDmuXJTCnPHSwH92mNtjL9nAJOsoPt1WjM5jD
qP4+XoJoI5KkAvT6acEM3wBsT/IBy2T0zleSj2fClkDtYJZACDqI3JR/OnwJ
JtJM553RUi8e072OWYJ5apJPpuiwoQ939BOXIMr3pYs6mu67+Cmq1CXYPM8s
JYm2WL5qXpK5BJShAWvH0Hef6R1wf4/9ETPyhRJtlenDJlywBKfTRV1WDHB+
DGVLGfu2BH2LtmID6D9J9jFJgP1V9GquBh34oGzXoGIJfGQ/Z31Gq3y82U5b
i+39vtjiNTpXMpirumEJdnR/sIeiO1ZDen3blqD5TmaLC/oD/Tsq+Z4leHf8
aagZuqlS4t3a4BIs/76qdBk9520L+eNLMBxGvyqJDihJUrGbXYLWjyVZnOiM
c/QKAktLMORgYUKFlqo5+G5sfQnOUqwdXNXH+G/0hqXuLsHKp0e/BtDch6sH
zUiWYf/7Zdta9C1J1pyjlMtwS9yU/Qtaipd1sod2GXp8flS/Rpu7MCTEH16G
a3+pXUP1995f0Cg3YluGZze0uVz19/6/wXiLlWsZxO8E1pqh1ww+uHTxLkM7
T77zZbRu3L1/caeWga21gf0MuvJMxD9jsWXwzh8u40TfTLR15ZBeBuv1KWsq
tORtNct++WVQHhqjWdXD6zVsq1OUl0Ejpz1/AF1+5mS65aVl6H/+U78W3SJc
snnyyjJwVMWufUbLWAdUTustA0+Edexr9J+zpdR5RstAzSciHYoOOFlc42y2
DH/LZ9pc0P7Ntftl7yzDjdRkZzO0IY1o/r97y/BxV43+Mnpf/dmeCodleEo/
+U4SzSMi/TjMbRlSmB6rcurtrUcdk3S9liFfjWaQEu3AIiXF5rcMBkORHiu6
eH+kNqkPBy2D5FF6+gH04dbwzpzny1B5JiCjBl0XVTLsHLUMPneW5D6j0wjv
rc/FLUPt+LXGZLTrsYx75K+XYWv5i2UIuvrx2mTT22WQrjq45ow+kDg7kpiz
DMPxN4JM0a9PtJtYf8T6ZqcfUUdvLu+/Klm4DA2nJjMk0Oy0P8r3/1wGvpsn
zhxD70vR/Vxfugxc7sZlFOj3+5l5EqqWIbIg9MryVZxPPurR29Qvg5nml64+
dKSRsZd0yzKYPOq2rEa7NHpYkXUtA+/DrdlP6MBD/5ra+pfhvh+TaxLaWkP2
Z/roMhDqT+0EoSX+eJ50m16GgzHn/JzQCfR0DGoLOL4Oa5DfRK+WX/JiWVsG
eT/9MDW06zc36+ntZTjCakwrjr46O9n2k2gFpBhvhHOgx4MJFf+Rr0BPhjED
ObpluPuMJc0KyNIbRizqYHkPt/mlD63AnaAr9L3ozK03ydSsK+BzUeVFJTpH
jjN28NgK+PlLU+ejvZQqGAtPrIDTQ/6gBLS/zDDDM8EVYLQ8QhyIZn9cG20h
ugJX3Ui9HNAWiX8TZKVWYGOWsGKMfqKixMcgvwJf93XbXkRnXHeUnjq/AmIT
ZSMi6GfjBXWlaitA0ZtjxIbe4TeeiNdagV/MkX9J0SNBhUEueisw0uChTNDG
5+8r9g9XjFagQtHsSxea72ivsYDZCnQmX+SrQF8g03hBemcFTHhPv/qAznT8
cWnw3grEUR+iiEMff/ck9KfDCjSEbLn5o5NPz+vFua0AZefwqB2aM/laupsX
1ke47up1NFc7/WN9vxVoqSj8pYxO7bIbEg9eAYuWVH4h9PXesjqGFyswHREe
eQRdr3T7/GIUXi/zZJtor/xXGYpNcStw45+j5ewVbI+3/VX5r1fgO/vd2nb0
J/1b3ZHpK8BZfUO0FJ1a7e/u8m4F+OUMX75Dt2onvDbMXwHTXN3Nl2gjm11d
2a8roKmne+MJ+m7FvkiOXytwzcoA7qH1lDZu7C9fgQXOG5wG6M5Z+c+j1Stg
+PnuY0W0DNWJVzV/V6DXxLVfAG1ASUqZ17oCpVrB8ofR+59JkL/sXgGW0tdx
/7RoisnvUEY9GlwB8rkfq5PoO696cy3GV+A/ij6dFnSwCanB5dkVgMsk736h
DZk6w8SXVuDhtDBpFtrLNO8q+8YKxB4zvxGJDiQaziD9twJLR2MLvNAM21Vh
8ySrcJWzldIKvelZtL+LchVMjI6YXUXHDtCSVdCtQgnxrQI5dHUxV2Ie0yqw
6eaTnUQzD6mVJ7CvwoI3hRE92vRc36Ng7lX49vNuzpYmTTEv0dlKV75VGFGp
2xpF/372NdVSaBX+aMpebkDHOOcx6Erg56k+vCpCL3k9OnRedhX2fxEcT0Nv
p7lmiSquQoVvnvgLdPORjUaui6sgmSnv44EmyN18zqCxCg4mzdUW6ENZ+/qJ
r66CaasDoxY6m/9s+YrhKjBfYjGRRuPO6dzEjVV4Pludyo2mejOi2W2xCgHr
flPUaOOzlEv11qvQm6wqsqaBz+9TkkJl9qtgxHLYZRDdebnkX6HLKryJm/la
i5Z5S2mV+3AV7l2v3/qMDve0vZv6ZBXkQ4vkX6OnlS/uvgpchfe3P3qHoN0/
LJwKf7YKckc//XLW2Hsf589SUOQqqE3Bzk30XSkJ3SevVuHsv/azl9A/S55e
9kxeBauILXdxtGPN0V6nt6tA1inwmQN9j+EGuV3OKhiS3yGQoYfCk+qsPq6C
p36uwOJlXF+5K522LFyF2JV9lj3oDqG0k2Y/V+Ezh3nCbzSl3omfJmWr0E5U
35yH9is+Pne9ehVaO1Up49Hj/rtFhn9XIbW9XuEpOnTqEI9B6yqwiFo426M/
Of3m1+9ehS1W0szr6Dfdjn/0BtHVBV3K6E0mT2r9cczP0ZFaCN2vKzelP7sK
TOrn5I+geTZZ7hgurYK+/xFbIrR/jtPj6xurwGmwP2FGnaZ4XjlbxuTfKjQu
rVe3odM6j0aYkq7BaPi/1WK03E+xEAuqNci0PHw8B+3tqcptRb8Gzq9ltaLR
n9p/Gdkyr4GHh727D7qybVPciWMNJo4XpFijcwpuvPc4vgbDzeQ1umjeqUs1
j/nXIOSn7YI8+pcgd1CQ8BpMHRpm5kPT2Vya+E9yDeYPWsszoCmauKdfnV0D
755/5tuXcH/4hz48VWkNAgsyno6hl/Z5duWqrkFLtVlmw561ofKr5hrwaQvW
FKGFelWul+uugexDsuk0NCex44uG62vww3uF8gV6+kamTa/pGpx7vsLvgQ74
rTk9dXsNtHvJ1Cz20nUr6TfuYX2TT93WRFsae/aROa7BKXLLJ1Lo4gd/dJjd
16Ba/X0CF9rszvH7J73XID2OqpAKPaM5elrafw2YBR81rKjRFPe4ucdcClkD
c+F9k/3oJ87KWcb/rUFcV8y+GvR9xlwLu5drQGSmzFyAvmLJXvkkYQ2yFolO
J6ntra/Xm6PfrMHTijalILRNfFZIdib2DxXoO6IDhl5Ow3u8fv27lQn6dyLf
WmvBGtz8Wed5Ed1/rDJ3pmgNXj9fDhVBf97uoiUpWYNnSSIJrOguijoO9so1
aD/mm0OCfnnzQIdEHbafyuS3OVWaYm09wjmt5jXQV7pT2YFODVi+atW5Bm8v
bjSXouubHx3y61+D0sA3/e/Qv0yW/JJG14BN6tbUS7TT09KUouk1YA+UXn6M
Fl7Rs2tfWAPF7BM7Nuiml4enltfW4E0TP6k+uizW/jDjLuYvpkKtgG63rSeI
kqxDxLYbAz+64E/iIx3KdXC8VcrMiKb8eOmbA906uLzkYd+5iO1tdC4jgmkd
4muSjo2jfa9MXCxgXwcqUVHuRvSL6wWxbdzrELnVffw7mjuYNnGDbx2OmyTz
vEUrStzV4xBehxz/hzwv0POrfKAkuQ6r6Q+Oe6BjPpX23jm7DmXL3lwWaPXI
N3lhSutQmJx+VBM9TCol/Ul1HWI6x1ml0C6lc85dmuuw3XyeiQv9oFL6LpHe
OtwoLqSjQhMZ+9MKGq2DfsNFyhUVLJ9KyU7PbB20JQlE/WjP931+3nfWoYiz
YLNqzxZ12ln3MZ6yiIV89EC4V2uL4zqoaIeNJ6D1pkwZ9nusw9Lq654AdMyd
UTIhn3WQn2xoeIB2Vff5Yvx0HZSusZcboWmPJx8NCV0Hdhe/LxfQSlVfFL+F
r8PygwOZQug/xtIckzHr8OnR29gjaH/1lwUsSRhvtVkQEfqohjLZ5bR16AqU
dpu5QFMcYZF/2Ct7HbYmTt1uQzv0Gwx8yFuHVI5zV4vRIkZpd4e/oA3un8tG
WxbRvGP+if1bXsgfhaYUp3yvUYbxxXIe8kZPKVPZ+VavAz9Rxs5d9PdvATNf
/2L9xC6P6aCT3y/wE1rXQcz4YP1Z9MWQEl6+nnW4kDNbcAKtQHR/2GxoHZJ1
Z+Jo0easd83iJtbhoz/F4w1lmmLGE/xJLXPrUGKnYjmMlivjS6RdWYcT51+r
1qGNR3tuXN7C8SPMKlCI7qz5MRC4fwNyb3+iSkFfJVbkrSDbgGNM92dC0Cu2
fULENBvw34MLf5zRcbJ0W0qHNmAzTS7nJjp2UjP0CesGGA/rBauh5TXoBko4
NyDd+NkdMfTppw0bRCc3oEJ+7Dw7+j9y8s4LpzH9m+nRA2iXBBHvQPENmNvd
WJ8/T1N87Hr5ZI3MBtjJf27qRDtmybPTKm7AUFp4Thma/DIzk97FDZi1fOGX
iy7V+tP+SmMDJHLfG8Wgl490mA9c3fO8yJO9dPMvBSevb4Bv1NUD99BuksMN
9qYb8CqivUsPPb7c9eXr7Q2ob/N+fw4do896l+j+BqT+p/aED61/6+iQhuMG
nJ2X0GVAH39oyRfrvgFU3Bd4tpVoikUNbGRHvDfg4jXX5VG08b/cI6JPN4C+
pLbsL9qnM7fMO3QDQkIvRHxDVyVOnK0L34CmsQHTVHSnSe8T9lisz/6UU8/Q
n7ypXt5P2oApqqfrrmipskX3n2kbkC3+rMwM7XKeUZA2ZwO4Mr89U0cv3599
Z/5xA9hiKQ0l0ELURP8KCjfAT+zxsaPolvNNXBS/NoA4nXWcDM35rP/wzfIN
uMbVlbugiPdHSU73p5oNkGr+5dSNfk/7zYmycQPOTFVJV6B9iUP6zNs3YCJq
ffs9uss3hb2odwO69msVx6L5//oKMY5sQKhpta8vOvvpx0O2UxvwoMfmwn20
f/LHv5UEbN90MVIDdKojmdnxtQ3gneWsUEDrfJT67bOzAV96Jf350c/vVRL1
Em9CTrrDeUbFvb+3yjGdpdwEU9eWf9sKGO9ttv1xdJsw4Xnzxxg67NV02QbT
JtwconVvQAeJi5sacWzCSNeEWBH6FqtH8/fjm2AdMTmTih6PusB1VGATVs8w
pD9Dh1/iuPREZBO8V2/ddENzKIReHj2zCdO73YfN0X09TPzq8puw4eX1Rx3N
M6029EF5E4JTVH0l0M8js92Y1DfhRoys1NG9/MwrJr20N4H7mcE0GTrv/HGZ
MYNNCM2LT1o4h9cHat25cgPThSl1utFDg40O3yww/cwbogr0TWtpEx6bTVBd
tvj0Hl0Rc5D3vwebUBt9xSIWrXS59++26yZEqd1m8EU3/xY3svHaBGLZt8X3
0Az5iRUdfptwO4bWTh9tzZrJoBayCUeep7EqoCMdB5S+/rcJGpctf/Ohf0e2
6PLHbILktpYDA7rwJ8Ol+MRN4Ki3ZNuWpykWiOHnpknbhH1zb8tH0bpCmf1P
sjeBKpjB9i9aboPDdzVvE2T+ZB/6Jr/39xZWyvuFm+AyYvf9DfoBtbD70M9N
6Ny9aR6GXrk8/ed6+SYIqT084IqOej9A3lSD/TNblm2KPvz19anLjZtwjk1G
6xI60eCndEX7JrjvdhHE9vIfrjqt2LcJXWVZEexoM24D6h8jGE/sW/EDaLYL
6y3S05uQlVHfPC+H8+vI+aAvC5ugd+yEUyda5WANr+T6JsQKZtGXocPFuT8W
7G7C1LrRh3doq7MDJyVJt6D2k6zGSzS366vQL1RbkBikNuGDXk0d7pFm2ILy
VH8/a/R/S3rsP45sQazoPIcuWpHYX13x2BZcuxlUKIdmHCSzqjixBZoG2tq8
aH0qd5fLp7bguYrqBO1e/g73nZrEtuDeNVufjbMYr6PXLSOZLRgsKj08jOYc
UlYeVtgCkleqOX/Q1sTXmWwvbsH00W2FL2i9ZwY9axpb8J/7QHMyujSrLdpP
dwuKG5fvBKOPrTop0xltgY+BzIYjet6vejTRbAsyxN6HmKC1Ox29Tt3dgvVw
XbaLe16govphuwVXX/PnCKM/yIm+0HDeAqVgEVkWNCHFh7LPcwtC3a2qiNBO
3lFeD55sQeurRv0ZWZpi2fSDk8RBW1Bw5P5QK/rs7WDN2OdbkM8pbQdoBp/0
nNPRW3CpV3IjE80oQkJSHr8Fux63/SLQ/qfPGxq/2QIp7krqR2jt9H3pS5lb
oLvfOPq27N75xAOEsA9b8P48F8cVtCCfr/TJL1vgR8+aJi27d35HoFfpjy04
9kpFgBtNCpHFN8u2oIwk7QMVOplLjWi7egu8fSQlVmTwfhdSU45r2AJ/ic3C
Ppm992Ok/GXat6BXa1G2Cm1BXFTR2bsFyRscPz+ide44kz8c2YLvpl7n4tEu
mVSaHNNbIPqODvzRUnonoooXsH8oOs7ZoYud7vZZrm/Bp9Tmn4botnD3U5T/
tuBZGrGcEnro2z/vPNJtIJOy+iaAvuqR1mZIvQ37A/afOYQW6KeR2Me4DaI/
/n7ckcb1rNd4TBbLNkiTNJ8aR3tatxPpcW5DYRBVRoP03nk6QS7/eLdB2dmD
swhdRp9GyDm9DTcW2F+lon2ftTpfl9gGP4FVumfo1LZKIvKz2yCjThrkim6O
440vVNqGJk/1XVO0KU3SOSu1bagcq3C6hK6d6ZplubINul/dJsTQth4hWX/0
t6GPxcyEHT3vY+T42GQbvCV9/pJK752HvqEmabENUZKtSvNSNMUn2g8LTVtv
A9eFW5860H52ptxvHmzD9VBenlK0J00Ar5HbNuhIckfloLMlZc8yem8Dw319
4mh06Nwp8zr/bYi9XuzgjfZtoH0VFLoNHSct+u+if/yLGr4QsQ1V+85p6KB/
CdkrEb3aBkkana+y6H1JOp+Kk7eB2DPhOA/aiIMg8zh9G5ZsOZ8fRGtQ/2tV
zMX6MPaurZ6hKU4xEg8iKtgG0+gmswH0seDzOhVF2yDAvr+6Gs2bPSQaXLIN
841WIp/QRrdqBLSqsL8GKGIS0IqTeXKH/m5DyIOR7afoYQotq+7WbXB/t25u
j35+3Oh9as82OP+8+Psa2lDgOa3t8DYs/qnnP49uzEgNk5raBlWS8DBB9J/v
erzEC9swFPZs7hC6l92k9+/aNhD9V35lVxLjYXHJT9zdhokzZ/LGJffOazNO
v0+6Az3ZQ7SNaPvDf77JUe8A+eEauyL00Vy/2YOMOxCYNPMnFc1Hr3h+gGUH
wh6oCzxDH3oBXz9x7gBHwXCAKzqWrkQn6OQOKEZ8HTJFC7GR0NwU2oFF8Wr5
S+jXjWpzEpI7wFt6OFYMrb58ZYlabgcqbyctsKH/DXZxjJ3fgRJVC3VS9IfY
HLviSzvQ8J/lmzkJmmL2L/5j8do7UGX9ZqMd/Z87f4C74Q7c2WLXLkGnww0t
g5s7YG3X8jYbvUo9piB5ewdcp6s2I9HN/oHGh+/vwMX4TS0vNMU82ZtVxx2Q
S7d+cwf9tvD0oU6PHTgmybRyBf1sHvJ/PN4BjQf7VGXQTpoB3imBO6DzmC+W
Gx0kdMk98PkORD97PkGFXnvZ+Nouegd8isWkV8RpilXFJ9cNEnbgvtLhwD60
2jWjJ4qpO5Ahfaa1Ev2bhCArmL0DvvXR3B/RZoMuvMwfd0BCUMI+Dn3o/NcL
JF93YNmV/rsfOprX/+Xirx2Y7jx9wBYtezaDfahiB049CtY2QP/pnG9v+rMD
M0954hTQVylPV5c37wD7sX9DfGjwE1oo7NqBYnsWQQb04rty7XeDOzCS7OS4
JYbjO7F4ImViB4zaD34bQZdzLH+Lnd8B+nMTu3Vo9yzRiv9Wd2Bui+hCITrL
ToMqZGcHvkvfDHqN9rhy5Jk/yS6IsG/WBqObhqwvP6baBZ76NhontIgLk6oX
wy4ouC5rm6BdKZYfP2TZhZNyuhEq6MHrnRuenLvgprrUJIR+2ZGY//DkLtRB
C8MR9MGPLO+8hHbhy581nf3oc1Unxh9L7kJ2tMl/U6K4n/gVb/lUDss/T1zf
jD4+p38iVHkXMjamKX+iyR4IC0So74LLMJNqOpqOhcQ5TmcXqE76+75A/3qU
R5x2bRfeTIv/dEcnzdJ3vTfdhZhrvGvm6AveB9aL7uwCcbSxyGW0CJHtzSrb
Xbha1WwlgS6jOUHT7rwL7iwvXnOgmbZpyMcf7kLBh2ftB9B9o1Sa6767cCT/
70GCCD6v3+30UoZguqq+cif6zcrv70fDd8En5qh7Kbr+9OVx8dhdCKsSfJeD
jgqyM1dP3oXP+736o9DEREyCt9J3YdSagcF7Lz/TkyoPc3fh38kZ5bvoeyLB
edEFu9B7i9JFGx38l9vu4/dduKxk+1YGTWTZ411fugsLk4daudFZg0nDM9W7
EOu3n4QavUqpl0jduAsrEuJiK8J4vziMvTvdsQtZPNmmfWhbFyVG7f5d0PS4
E1aJfquu0+g0tgtG162+5gnvfT+VaCJ2dhceTX8YfoXW1bxwDZZxPBjI0/ih
PXeJj49v7UIN0EnfR7cEi16iI/4HfVoC5vrorIs/a2Up/0Hm/yq683iovigA
4LNvZiyVLJVIZEm2EkLZlxRKCpUle5QKKSRCka2QJQqVkhaKUpY5ChFZSgjJ
1mb9pUJJ8zv9+f3Me/fed895953rM97Ix8XqoV0OZBR5CPG4mUEqJWuU/31/
r/RriiiPS9i7olsQ/bCYevbZSh5XgmDz99c6XA9CTkVNy/K48rFN0sNor/eL
h6XX8bhuKxLMmtHSZhXX7DbwuMNDab5l6Ca+gy/idHjc97yPSVfQcXbiVmDI
41pnhT04i36jUbNp1oLHdere2+GP3n55T6LyDh6XNXDmpz16+a4eU297Hle/
a1rYED0sou993ZnHpYwUbliLvhZy7vuAJ4+7cW2hrfC6f783f+ezxGEet/rt
f0f/KuF6Qbxjsj+Ix91Hi0j+jOa2nxG6Gsbjjg7b321Dl+armw9G8bhKqSGN
T5T+/R5uxeTqeB63V+fTSD66rGA52SeFxy0kZ/HOo9M695wtzuJxNfjTxQLR
o6RjoXN5PK565Hu1/eiW+UPD+oU4X9F+W02V/r2vyKYqvpjHTdAxPaCCXmko
yffuMY/LbPE5KYbOHhl8JcvlcUlO3ckktNJ8Di2onsf9b0lywdhafpgU3Peo
/hX2J3yxogNddUOuX/Qtj6sQ3d9ahf5PmS/ct4/HVYkLHC5AB0sIZtUM87gx
5rtnktCC7wxVRMd43KAvZxgn0GeePTTwn+ZxDePnxVzRc5qHXjf+4nE5DtUK
W9EUS33/iwQCzAQ1a69HP8kmPN5CIYABQ9ZiBdq5YqFqik6AQbWmPTS01Nua
6Kt86GWVHlOKGL+MTn5rAQI4fJk71o2eXV9vT1xMAK2qiNM16Mv7lnk+XEoA
T65d/G10g6nLRg9xAnQuDk5PQbfdkW4SkyCA34ePeaFoj5eTq1qkCDBvklvk
jt5/wGrzGRkCWBy+WbodbQavJbXkCSAeNl+5UfHf+9ZpDVNrCaCdll0r+c+x
JzbcVEH3xTUx0avkn3o7rSdAf1B9+7QCXt/MbndRTQK8iLXq6kUfGRySe72J
AOFasn21aL4DY6XxmwmQftti4C66IJzEMjMkQB6xavgSurP+iRzFlACcA2Gf
wtGatteEaiwIYPv9/BcvtFKbTd2p7QTo6Pzy1Qad7b/HSHcHAf6qpo5qo1N+
WST92UUAJfnEUWm0RnVVQaU9AW4PdH5lo7fkGZ8P20eAJ6GHvvyUx3wQDtbd
7EKAm1K7PvWjH0qOVRHdCXDxe9zwC/TY7g2cOi8C1C4VHChGl4xMKMb6EsDs
/khvJjrzzB3x7f4EMB5kdEWi/aKZPYsDCPCyLbT9IJq/Lcen5zgBBvK2NNmi
xT6QXuWF4PUH29bqottrXxN9wgnwKri8UhZdrnCLqX6GADH1vqUC6NIdEh//
xOD8RB8pmpPD+kqkPfVFHAHIPfV5g2ibib1iKYkECPnsm/4SnT68/5jTRQK0
tx+If4h+cD3g2tpLBHhbWXQ6G+1wXOf270wCbGg2CohGW27eda4xhwCPpJU9
D6GVTu3Xy8wjwPQnH/vd//qznWv2vkGABK05iy3/2ot4vn5TIQFWbu7aJI9O
9nAJ4twlgP4yxtpF6EhKwMWBYgIc+ha3bH4Nxo+XE1taSgCFj06sEbRPTuTe
2HIC/BI7O9eMTm+s43OqJIDcQ8KnMjR7MTtjAxDApKP59RX03Xu/iZxa7D93
rPos+tPxjRYfXxBg36Z9t/3RXt+8jlQ3EYD3QirNHh1gohGc0UqAZ95a4QZo
xa2mTsfeYDwMr3spotecMlpj1UUAlxOuNkvQ1YyuNsVeAmQrBWgtyOL44NZe
5gcCFJ15J/kJfWKNW9PnIQLkXrlIb5X9936T0hUvPhEgMu/qxGO05jFj25uj
BPC6T3iTiw6te3743CQB9MbKHsei9a73+ftME4ARzL18FB1O0NuzbYYAhcEr
wh3R78Iuyar+JoCMYJuLETriWFqf8F8CrHPpMlRCb54YPTlPJMLDRHWZpejD
d0xJQ1QihFWMUHkyWB/J7TvWyCSCHmvs42e05cX3LSUcIrzMMalrQ59qCxG+
LESE5ozZa0/QetFjptHCRBhd8TciH93AHvTwFyPCMysHp/PouVNCx/auIMKU
NVsnAB1ZrOZnLkUEutES0X3oXPX5XRtliFC49eh3Y/QF+1XrZOWJoBAn27IO
vU7deUZYiQgrVqneEkF7X/S7T1PF9jZcjCCghfkoDnPribDw2dzh62qMx4/3
M6OaRHjssEftNbrC61FMvw4RfIurmBVoGXNz1pstRHDgOzlwDS2hszOywYgI
3xMSHsWj392/MFVtRoStDnPnA9Fivc92PLIkQu7Fp8770U7VN+7csyaCln3H
elM0v8zvhZu2RFjWZsxQQUcWnDbN30OEADGBXlG0/s3fsTl7ibB3t8pdInq5
g0J9pjMReooKT41K43655vWfS25EIGuFWL1Bbyp+vC7NiwilkjdWVqJ3NeXs
TfUlwnTUmqnr6Og4i7Op/kR4cJZUnYBmakfdTwsgQoWFRnwQese8UGd6MBEW
//fM3gldV18xnxVKBI/MW7JmaG9fC6mrp4mQ6vV5WgWdmHbW9HoUEbzCw6vF
0H11uodvnyNCMs8/loTO26uZWRJPhEpW5c6xVXg/XTKsf5JMhFvPnFd0oCPj
184+SyVCt5nTp0p0i1bN2lcZRGBwH9+7gT4b3ObZnY3nm/gEJaJNqAqFI7lE
OEU8rnscTT195du360ToFewnO6N9/Hj6hEIiaF+62miGFtVceVngLhFWP6xI
VEWT1doXVpYQ4cc5tZ3i6KG0rz6qZUSgaFFEyGjfc7rDhk+I0D6i0jMmxQ93
xK557q4iQtLd8uwO9H2Tb3MHa4gQV3p5fxXa7zcvPaKOCNLLelYWoIsFbhln
NBLBiRQwkCj17/3Rz0nFr4hw57x37nF0WvjatoZ2IrC7nzo5o1UsuPeG3mL+
MrwkzNFU+z1XF94RIU3vSJ8q+pf523yxfiJwLndmiqPFHi55qjFEhDm9DDsy
evnqmY+2n4jguvXRonFJfuhZ47AmYJQIaoMqLR3oFuNV4amTRDghxYitQieT
VSfLpjHflHQMC9Cen7wDu2fw/lv96k+i5L+/15QI//lNhNfyFWXH0Y82TrRK
8ogYR9ohZ/TjSvINEzIJlPvvyZijiel9aX50Esi3lvapote4OF9L4yPBDmvR
FHH0u+rglmoBEgREvjMjo1fsFxT9upgEy2PmFsZWYvx/LYpYIkqCPyGBDzrQ
NHs/lv5yElRFWXtUof1sOWWHJEnQB7FiBeidHYMROatJMG8t1ZyIVuzoOfJK
jgSXd4mcOo5+feBr9N+1JFCdOqjsjN5UyKtWUSWBtt7KATP0miFBCbcNJBA4
oJqsim5zF7qeoUWCLafyN4ujSwpmbFp0ScC7f3SShNZc/1iOakCCWtH87DEJ
vH8qLeR1TUjQ0a1i0YGW579tG2RBguOCK2cr0XzirUXF20nQ9cH32g008Wep
8vgOEmz1FLdKRHPf7R6U202C6fo1v4PQhQplNR6OJJiRSLvuhM481tR+w4kE
iUmu283QuQezFn06QIIHmsmzKmjd2VXRa7xIEKItkSuGvi/vqeDjSwJCGduM
hI4w9SHf8yeBcYPj1OgKfqh5oSL0PYAEeql8l96gg+3AVusECdo1l+tUoi07
V7aeDiPBj7cJg9fRqa67IxojSJB13jkmAa1j4++7OIYEoSdSFYLQz9YHXtgf
R4I4rnzLfrRx/5FvtxNJkBkmecQUfdTpWMLcRRLYvAlerIJOYp/zME0nQfiA
Wpko+sopblj6ZRJ8qN1uR0Qbpil0fLlKgqW5zTNfl/PDt+Ben03XSdB84c6l
12h6zkeDpFskyH8yuaEC3VGzb9/IHYzvxpSOa+i6GfsK7RIS8CtkHY1Hx2d/
23exjARQQhYMRBt56pqMPcF8mmi9sw8d4bw70LiaBLELf81Mlv/7f3GH8dxn
JLhKuDCyDh1d7XZnoZ4EDktjwkXQzjMXHzk2kWDZ/n4xAtqRTmVXtJLAcTbz
4ZdluL429N5d1kECI+ITy3a06DGtnLBuEthe3vTxCbqmQL93oI8EGSNSYflo
jo+Yt/EgCc7/ObjkPLpE6bNp0UcSbCSJFx1DF7S8Dl40SoI3S9bq7/3nDOrC
yUkS5O3M7zRCHza7/XZkGuPzPvSgEtqWf4JsPUuCX+0VPGF0VPL8ucp5Ejy3
ckr5K475M0HxUCCQgRHkKfsZLcrVys6kkOHJgY7yVnTzsua1LCYZ+jcWWJSj
j2ZNiYZyyHBc6H1vLpph+85lSogMDgInfGPRbZ+4DLelZIiwPvnnCFonuJe/
R5wMld8Hzjug9cvdA21WkmFC5K64Idp4OFP3pTQZ+nr7bymiLepKvYzkyLBr
f5DGErRV5Y9Z7loyiFQfe/5HjB/kKjLHdVTJ0CPWZfURvdjyo2nFBjLYJuf2
vkKfShHn26RNBtUtbR6P0AM7Tm2s1CODrJnHtytopzG7Fj1DMlyudw05i37o
PN72zJQMjj11FH/0J8dzW8wsydCdl5SwB226Lkii1ZoMDzeBsD5auYPku3sX
Xm/97hx59MJsqMKgPRnUne1WL0J//7He0Xc/GV6uqbz9W5QfNvaE8uZcyRC3
KVZlGF3qd0v0rCcZap5UlTWhtyhzbi31xf7AXrsUbe9Iun/TnwxSh/dVZ6Mf
TA6s0w4kA2G4QT8anXGLLN9yggzp2tm1fuhW/hdXDpwig2Jql4kd+ufh2Au/
I8nA5g9p0EPrf75NSjlLBpv6GPM16F1OCd/XxpNBpfd3owD6elqqe0MyGd74
dJnPiWB9tELWwT2NDDopyxsH0PUHCl+Ts8iQf/SlaSM6rORs27UrZBiTHawr
Qbcor91lfA2Pb3E2zEITx8iuX26SITHGHCLRrM6wufg7ZKj1u6xzEN3wiiWu
XkKGd3l25TvR17JXNPSUkaF1S4i6Dnp6QYES9ZQMQV7Me6vRvnmFreu4ZMjV
IMpx0LBu0dre52QQa3TN+7mUH9aafxCPbcDzddeJ96OFUxJyNF+RIerBgYv1
6EMll8u+tmO+GJFZ99F9VnFu2Z1kKFrEiUhHv5buK7LuJeN+IWI2HP3xP+EE
2gAZDLqc/LzQE+ermdUjZDBhFg5Zo20+7Jc+/pUMRyb27tZCX5+M6FWdJMPq
vJAmKXRoT6n65DQZjAyom1lov5EYpTuzZPCb+FUyLcwPI0djXx78g+OrsV/d
i1YVtmYrESlwvGf1pefC/34v1v/HFJUClrsd6XfQiY8io0pZFCi2XTieir5S
K1l9UoACT6dYX0LR6ezP+QZLKJBuHLXbHc2VDVjPFqMAOdC7fhu6YNwroGsF
BaQyn67XQN8I83K7vooCGu3H8yXQ3QaitGNrKDCqlSdARwd/X+louJYC4v9p
hE4twfU5U95dWJUCrUJaX7rQ99IGZb5uoMDbpzd3Alr0+syVam0KjDDPVN9C
XxgQe522mQJPxJvkLqB3NP2FQ0YUqGCdvngC7bTN0c/cnALOc3nzLmi5qs/d
MtspkPxXxc0CrT68n0rZSYHITUrNauiyv2E/hndTIL/5kvoytM9Lyq26vRQY
f+WXRUZviCiTKnShQP3eB4TxxVgPDdkeSPSgAOGSm0cH+ozW7UOBBylAvBTV
VIl22RduvN+fAvdOLlK5ge56mvvVLJACNs78qQnodrv3ezecxPk+EDwbiKZ2
0PKkwymwkGvtsB/93/FvjxdH4Xg10itN0CyVgGvUWArIbrGUUEZ/v+Tl/iuB
Aqt6DoeLoE/9us2bvEiBQCnSAG8R5sNe8YBP6RQoUSNv+YKWicio/ZBNgUUK
x662oZvGmN978igQJ7Pjbzn62+ddxO4CCujo5+7NQ19J9PjWWUSBN+n7nsai
7zXJ1XUVU8DFLE7kKNrpQPypnjIKBB+SDXBAz82eWfnhKQU6ZNTaDNBpAtTb
H7mYb+fvKiqia8UYkpO1FCirzIhZjPYPPHdmrpECzW++D8wLYb0XFNVJaaVA
/GS19gh6wndBfHEHBQrlf6c0o91vze6QfkeB7Nwb46Xou6dPnt7QT4HowzVG
Oehsh+Qb5sMUmHiwLTsa7XnPpNbpCwV+nbX47ofm57/Xf3yCAvrMcnM7tJ5i
z8yFaWx/56Wreuhd/YP892YxX6M+/pBFzyh+kGv+Q4GLZTfMBdCullMm40Qq
TFK6cmYFsZ4rUTvIT6fCdMKJbx/QGexX6WpsKlT4Jhg1oLN3f2zZI0SF8cpF
6cXoFe9uLIpYSoWYLObXDHTwWh33omVUqJU6qh2BjjZ719AlSYXsw5bnvdG+
MSWbabJUeH4lo9cG/eLWnyYNRSq0v7RT1EanDP087K1ChW8CZ0+uQkf29ypd
2UAFmfPyjSy0RP1/9LfaVNhppyfyXYAflpifJPBvwc+T6tx60fnXa8TMjang
ac0teY4mFy22i7GggmOZ4t8iNKkJHtdZUSGhh2WRio4RWaFP30UFq769aaHo
fVanf1g4UKG1Q2rADf1wxLgj2YkKPz/YK2xDx1FfDXW7UWGjODVgA7ouP3iV
tA8VFl+RrlqBVj9xP+3wYSq8PFtGpaELRfv0qgOooPj96bZJftwPjftKCpyk
wpJ59bRO9CHjDh3XcCp4VUj2VaMV9p+79DiKCqbWEatuou95klUE4nD8b3Z5
JaHrkp7zeSdh+85X7h5HL2NtXVuXSoUPSxynndB9opKp0llUeMeK1zD7d77w
K+Ooq1Sg7FM9qYJ2Ojlg+Pk6FRhrtlaJokmj48mWt6kgEv2OR0Dzaccql96n
gk1yn/5XDj8cCLFeJVFGBVcP2zPtaC556GDcUyqsXaVf+wS9+Pgg/y8uFajv
8yn56KdtMxyfOip8f3jCKI7z73ndcvD9Syqo19SdOYo+JCymuLMNLXn2mQM6
hRK/vekt5s9YFcEQ/ebnQLdxLxW2bvbRU0SzlTqbnw1QYemG+JDFaOfT65QM
PuF8fZUun2fj+nmg5M/zMSoUBqn+GEY/m1LQM/tGhWezpcrN6LTpgz9aZqig
cPaeTyla+of5qj1/qFC1ReJGNvqz4dWXw0QaPNejfIhCS5G3/neETgNmtrOo
H/qFsuolEocGxAB1m13o4/e1uWmLaNAyEBqri65x2HVIUZQGAQs6NTLoHYyA
gucraPB25NgcB+2ckeizX5oG0yVSyjN8WE8S8qvm5Wjw+ZSJez/axK44//I6
Gkh4DmXVo2f7YLneehrG42frPfQxgYF1w1o0cJwOp6Sjb99d2Re3mQa5TRGa
4eiZF5fWbDCmgab8/EFPtHSzy5IhCxoorxm/YvWv/Qv5Ny5Y0+D3B9v2jegO
t9P9hnY0GPfbQJZEy4vIPZtzpIHoWMJ6BjqJ0byz2IUGKUf3u//H4gctjeuX
fDxpICZxM60bnWA6mbDGjwbbmF51gHa6PKHz+Sj2vz3vxy3Wv++jjRUUBtNA
kbZT+gK621ej9dApGphbhtmcQBuUSz/RiKLBN23JcBd02ALHixiH4xvfdMcc
3fF314eWJBp8ONnWrYoujXVddTWNBjWEfoo4eigqd/3RyzTQyHBTIaF38yLF
zPJo8MjRzXGUyQ+EzWc6JG/S4Ij7++jX6Detkt5/7tCgq6X1/lP084uDPT0P
MJ4PNr3LR198ZaNUWU4DXQUp0nl0hRbFLbeaBmE2pxWOoXuWXIw8W0uDkC32
OxzR88qX44+8pAF78Z0ThuilhPro/W00cB0MzlVEG9zjHtneSQPBF9z6xWg1
OR1b/T4aZL4/PT7PwPpFZUZl4xANuvUqhUbQZ47c51P5QoOt5KMazegLcSpf
FCdpMGOa71CKlpAxf6nwgwal0ttOZaPdKW1la3/TIPnB0bwodIDItXuqBDpk
cRbX+qJVzt8s16LRQWbbuk+2aNe+xi4jNh12JdbSddGGowsCOxfRYfXnt3Iy
aBJzs7ubKB1cA1zNOeiCJcm9wRJ0aNju4/2TjvX8mfmg5NV0KEucOPceLR2a
sqlIgQ6zVuM369DTw0eUGlXosOa2R/1d9PLgcutRDTpUlO8dSUMH9ScX8uvS
wSu1hXgKvbpirY6GIR2ouyslPNCJtXVsF3M6qIvJbtqODu3OWZlkRYeFn3y7
NdBLhXjBsIsOsbRDRyXQij2bVvx0pMPdA5YJNHQ37b6gkisdTsrevDlJw3z6
XLHby4sOn7xP1XSiW5xaZgoO0aHR+HVPNdpiwWH6SwAdjr3N/16AZvB/2L4u
hA42Kv/xJaHvPB4QPB5Bhy1HnkofR9fzT+k8P0uHkfvETU5o33X5XYsScb7o
9TamaGnryx/dU+lwIonupYzWGok6WJlFh+eu9WEi6E23Fx1amkcHchYphUf9
9/84xOljN+nQta3y5mf0nTHRPx136ZCS/r2iFc22lbugVUoHgwu3Wh+jU+aZ
j/Ke4vh39g5dRT8uzDvMqaGD8uz5n2f/tSfw/lnoCzoopT2l+6MHhh6WTr2i
wwVTT7E96OK5NRYeHdif7EWFLei7LsbnBnrowLXctEkO/SR6VcD+QTqYtblu
FUQHbRlYNPCZDnrNDMc5Cj+MLhR6u0/SQc5ByWcA/aqrLGzyBx0yk9uCG9Af
HxjZhszTwShuOqYYvWJf/jQfiQFs55TUDHRlkcz+XAYDGuUf5p1GG2SpZGsK
MECauOOeFzraW+VBhzADJv4efmqN3snNuRGwnAHnN3HqNdG76/+EiEozoK1V
vl0SzbF6rw3y2F5HXS8D3TnV8/mgCgPkDwx+/I+Mz6s1OeeWbWRAWGroVDc6
PqxrVasuA6rD0+cA7VdgXhljxACinhqxEF18netgsJUBql8tmRfQMhNCFNIO
BpRlfhY8gd4aJ1Ndt4cBmz1Ioi7omi3jiQlODCB550iYowVL3ULtPRigUlG+
WhXddT4rXt6PAfXHbBXE0A2ZBXULxxjgVOSvTEQTCPeVOk8ywD+Es/4rCdeT
3Z9fPohgQPsfBc129NS75Gsp5xjgY9K46QlaPPp3VXASAxyOfNHLQ9PMIiRd
LzHAN/2cfix6vUJyu1UOA5pbCg2PoKMDc7v0rzNgm4qlsT36x4CWlmYRA9a/
PWyij95SMf1H7QEDzN8uMZVH64n4y6s9YcAl802mQmitWfe6DcCAXLNhk19E
fB6dTO/SfcEA4Qm2ySDand3lYdHCAPtt5UaN6FOJtJOObxmgHfnRoAQtFC8i
eqSPAZ+upW7J/He8J5/Z+WEGCL6s041At8d9F7w9yoC9nBPa3ujozG8nXn1j
wEj0PQ0b9JO8jXE/5xjQbemhpoVeZMUwX0VgwvvjuUpSaFmJx1U76UxgSu2T
Y6IPJ9+aiuVnQqNT9qpvBH4IcdnxqVaYCce27l/+Du1duamQsoIJOxbyhWvQ
VUcXNpuvZoJkvA9/ITpc3eDBRUUmlAmW0S6gy5/X0wfVmNCdH/k3GB200cFs
vTYTmu3f/HRG9yj2h8TrM0Fq+81xM/QTountr2ZMMMr4O6SClhDP7t1qzQSX
7e+6RdGkRXMiD3dj/7EbWwhofWKs50onJjx0Fnv+hccBYnny62QPJrwbP/W4
Db2H5+ZCP8TE/ahXUTna+93h5WcC0RFvr+SiXZ8rsylhTIgrr79wDk2d26gV
F4XjoehE+aMLHqrcEY5nwuMTG4L2oN8Fd/kVpDChR/Wh5xb0FTtejM5lJhww
Ktsjh45UvkDozmdCYcMmc0F0CTF+OPg2E+CtidbcXw48VKFqrXzAhICoTrkB
dFerHKvpCRP3WaMiDejNk1rOoTVMCJaOohWjnw9fNFJvZEKSQf6PdHTs1Rsw
1Ybz62w8FI4+MDv/vqSbCbWpfq2eaN9fGwtODDCBMSteaYXer7tE2vQLE9qv
bLu1Ee2u5bZf/D8mBF2jpq5Ei1xa4vp9lglflhuG09HUGEXN1zwmlEvRfKYW
ODC2vHH0EZ0Frg3bbbvQ2YVrovIEWBCqsEKPi34nmM1/UYQFdvuOrLmJrpa/
lHpuJQusgrcKJqEJy/Mko9ewYEtq0VwQ+gb3QNVZZRZEvrgwsB+t/Dc3MHkj
Cyrk/r4wQX/coGl7dTMLrrf9d28d+tgVGbdSUxb8euOdthRtcj+yuNWKBeWW
3iF//3Bg+bkYo2+7WfDCasr5E7rXIUZRzJkFtT/mjVvQlV0//U29WLDSNknh
EXooy1My1J8F5yIL+a+gU7MTjB8Hs6Azw2I6Gr0xX2t87jQLhu4efeuH9ni4
T1I/lgU53VLlu9CWiezJpAssuKqyJ0sX/UPypMvHTBbkNQqHyqB3k/7E6Oez
oJLrsI+DTpliHrx+mwWaMmv0fs5z4LW5njj/QxaYLwmReI/OT7fLO1XBgoY8
u7+16BH6es7McxaEjTx5fwddM9vrE9DMgvs/r1emoredDH7xq4MFB7+IXA5F
Jw/vUYl5z4L0rkUn3NABu6YfiH1iwUhnmp0l+pzVwN7SSRb0L+Sqr0eX6H/c
ZDfLAg239YLL0SJSY/t4PBackbAeJ6O1CZT2+ww+TNcfL8Z+c4B92+eapxAf
3J+WvPYGHbz5zLCsOB/c3tAZVoH+29V7dWIVH8goLNlzDX1YVulzhSIfjA73
qJ5H50o4NlxYzwfrwxT4jqGX5wXuOKzLBzcZ5BEH9Io1T1JtTfhAMtet0gB9
KyDpir4VH9TttkpV+Ne/ZXK4xh7s3+T5wUVoSdlIU3UXPvgVCQa/f3HAZsKB
punDBxmrTcWG0BJVW5qNjvHBdYPdU43o+9fjCu1D+aB96r/aEvRNv5p7QdF8
QDJZkpWJvuGRO345kQ9o9jWHItAH1ZYGNKbzActgzsAbbZllbMfL5YMu4SdL
bdDZ7jHXdW/zgesoeVQTPbrewz/qIR+wu7orJdHSroVNbyr5oGh6YxID/Xtk
a4NiPR9k20i5/DeH+a4TGRzfygfLmWlq3WgXx6eTP7v5QEs9hQzo5pxsXa8h
Prg0sqzjJvpbNTt4eIwPnNWVryehD3UqlHj+5IPX6q+OHUeDo+2fH3/5oGzh
p4ETummtjN95BhtItwqFTNHLs4NFFBex4Znplw/r0N5nfAQ6lrGh+XvJ3aX/
zt+7xztGhg03n9FC/s5yYIPLkJaBMht+1H8y/fTP98bT6FpseLxsx5IWdLR/
7sVOAzZYvDYbKEPvWepnfN+SDbfJTUU56PSzzNoLdmxwqu8Oika7uweuPuXM
hg1KR/X90CLWv0MDfNhQbJ3Otwtdu15pJCCAjfE1e6uD3pY/5R9+ig3HpaOv
rP53vswR7dRzbFD7u82Tjf5+R2XPw4ts6JvIV/4xw4GZnwuDfdls2EeJmu1F
BxLmpwRvsmHa8Vv1c7TM+ZwsqxI2vKGNRRehRbKKf2dUsKFI4ohlCrqObCc/
UceGLaVnFoWglZmMLZZtbGgcWtXtij4/k7XnUQ8bRiu251ig3V7pJSh+ZIO5
Hd1VDc2bOz1XNMWGzQ2WsuJoJmd72cbfePyalaNEtE3i9/4WCq7r50/d/fqT
A1H1UheOCOB1Ug/6t6PFr018XinOga33R9SeoB2uvua9W82BhMtjP3LR2k9L
f15V5oDmQPijc+is4KFPR7Q5EJeSd9wfTfm+9JuVMcal2VpzD/r4txA1bWts
50rC3Ga0yOI7jSqOHGhduad8DZpJKXur7oH9ehQfF0CH1ogFGR7hwGD0JY3Z
HxzoHO146RTKgX3prJ/96Gxpxx/nzuK6cYf9sB5NjcxZzL2IeduX7X8PLSXI
tiBdweeQdoXSJfQyh4wnOwo5YPrBczQM7SlQHlVcivdtf36BO9qu1LNlGWDe
Wfq6bkPXuik9TW3CvDeoXbEBXVG4zHdZF8a5/Xb3cnSOSwejeAjXdQHJFAra
oeJ82Y5JDqgvWb1t/DsHRE34Msi4LmT+94jWgVYWLut8hnW3FLebW4EO/hWT
kSzED7HJscHX0AZtK6h+K7AuDW1UOY92+lputEce675LGV+OonWidE/v2ID7
yJ8zVx3Q6u7ag476uA+7N2JngA47M3YhYBvWXR0uHAW0YbtuVbY9P9SGH3ou
hNaWeJPY8e89g89YJ35N4/wtoakvP8oPv4o11g2im20nO4+dwjr7wPRQA9qm
yO1Wbxw/0Kd004vRol70zp3pOF53sa0ZaOZrvaS+a/zg/z7qbzj6RpU+JagY
60y/0yWeaGNDcQ/JKtwnyLLdrNCmmbc/9TbyQ4KU3NKN6H7BB+W3OvH4Ix0v
JND1mq8Fzg7zQ6mi0Aka2k82VfL4f9i+W7/85DcOfP7oJ3liAet4VZ2et2iz
JQ3GCSwBiL+pEFeFfnqN3PBQRAAO9BRq3UDPNIV/GF8tAGofnnyJR4fL5dZp
qgmAz0uH9AC0Iu1NafpmAZh4GG+8F71yKP0Lc5sAZBZZfTdEuy6LyUlyEIDH
DddyFdEh3TuF5L0EwEYydttidIHs+8jOQAF4X8/79fs/fL5tU1TLOCMAGq30
giG0mGuo86ELAkC3ybN5iZ5evNXa/qoAFOxv/lOC/v3Uztj+rgD8YcfezEQT
bhVFHaoQgFb/LpsItEB5kW1mowAsvvp43gvtqyKy8K5LAETuyt+wRi8dEX6h
8kkAou4obddEL9zYspDzQwAUHz2fWYlOin77M5koCJ49Y1foaCOYOdzPEISn
ygUmU1Mc2NKbnrpRUBBqX05PdKJvPxSLzxYRhDvV7anVaIGq++GclYLQJ2m4
qQBtWOueGScrCM9opoMJaNMRGcqSdYJgGfE+JhA9Wlw9VrhBEOYKaWv3oe+l
fw211MXPk5+1GaFTTtp8nDcShAALocC16L0xmTvLLQXh5cS06BL0RjO32Qhb
QdiS4Fk5j/cRl+RItN8rCFzdw07D6EGzDdd03QQhZzGL1ISufw8CKr6CoCOp
ef0B+tDA15MqAYLgHvLLOAsda/hcbHOoIERpbv8cgd52KWnV3ihB4PhpnPNG
f5B62Xw2XhBm5B/I2aBf71exeZYqCL/P1jRooj/VN33lyxGE/lQ3L0m0J/1P
u9sNQeDzuUxnoCUzIkxe3RWEcTGPgqkJDpRXnos2fiQIZ8trjbrQ376Xtryq
FgQtu8dD1egHvWsPeLwQhJ0CeqcL0E8SCqIF2gTBZXrPikS0a2jAycZubF+I
8TQQndJx8WzqoCD0xGy124fOOFj2w39UEOJcpaeN0NH6dnxO3wVhdVlSwlq0
xuXapU5/BKE0K1luCXqqZr3bEaoQeErKPp8f58Ar7zaDS/xCoLrPet8w+nrL
C3KLiBCoewrMvkQLnz/wW1RKCBZvO5D8AL1NQyT0uIIQ6K6ylM9Cf36dOvBV
XQhm/jbWRKDHRAcj/HWFYHamz94bbXLTq5LPVAh2rIj+Zo1Wk186VWEtBCcj
np3TRBeFeodEOAjB5c1pKyXRnl+S6va6CUGuy0IZHZ15OGz99kNCwKHMb50a
w+eZLV3NLlgIPqgmDnai4R1PITAS+6M/DqpGZ9vtTCqKF4LQtEC+ArTOPdnX
vy4JQdtE49UEtJ3BrLdznhDuV0rVA9F6gZVtH4qEwGHr+hd70fxvWFHBj4Rg
4qSFgxF6z4ImVbFGCEKezYwrou/6x7ybbRICgQWF8MXoQWOjuA+dQhDLKPad
H+WAKpNwY2gQr++v79wV/Pzaq+IK4oQQUMVrNr/MYMP/1AvlbQ==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-4.944169661387873, -3.860605720000853},
  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]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Exp[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Exp[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{-4.944169661387873, 
   6.5092869103086874`}, {-3.860605720000853, -3.574604509430403}},
  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[
          StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.10\"", ShowStringCharacters -> False], 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.}}}, {{-3.816712825623821, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.022\"", ShowStringCharacters -> False], 0.022, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
       0.}}, {-3.7297014486341915`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.024\"", ShowStringCharacters -> False], 0.024, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
       0.}}, {-3.649658740960655, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.026\"", ShowStringCharacters -> False], 0.026, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
       0.}}, {-3.575550768806933, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.028\"", ShowStringCharacters -> False], 0.028, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 
       0.}}, {-3.912023005428146, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.8873303928377747`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.863232841258714, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.83970234384852, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.7942399697717626`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.7722610630529876`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.750754857832024, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.7090821614314557`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.6888794541139363`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.6690768268177565`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.6306105459899607`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.611918412977808, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.5935692743096115`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.5578511917075324`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.540459448995663, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.523365015636363, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.506557897319982, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.817203690916932*^9, 3.817203715261232*^9}, {
   3.817203798123995*^9, 3.817203867889276*^9}, 3.817204691973131*^9, 
   3.817205153773066*^9, {3.817205225742158*^9, 3.817205234468196*^9}, {
   3.8172052905369062`*^9, 3.8172053435137053`*^9}, {3.817205395371584*^9, 
   3.817205412720125*^9}, {3.817205657090682*^9, 3.8172056899382067`*^9}, 
   3.817205721948454*^9, 3.81720579133876*^9, {3.817205823516931*^9, 
   3.81720583160579*^9}},
 CellLabel->
  "Out[431]=",ExpressionUUID->"e57fa90a-27ff-4013-8fad-ca7e3c98d348"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testSol", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}], "/.", "ss1"}]], "Input",
 CellChangeTimes->{{3.8172003240680037`*^9, 3.817200332875305*^9}, 
   3.817200491854622*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"8499af31-a50c-4059-afac-b628095fc761"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.2224099537167044`", ",", "0.9625817323086974`", ",", 
   "0.9863025304522565`", ",", "2.507988676370416`"}], "}"}]], "Output",
 CellChangeTimes->{{3.817200325692165*^9, 3.817200333083724*^9}, {
  3.817200484546897*^9, 3.81720049228555*^9}},
 CellLabel->
  "Out[134]=",ExpressionUUID->"9aaf347d-0fae-4cb5-8920-f15fee437a9e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["h", 
     RowBox[{"16", "/", "15"}]], 
    RowBox[{"\[ScriptCapitalF]", "[", 
     RowBox[{"t", " ", 
      SuperscriptBox["h", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Beta]", " ", "\[Delta]"}], ")"}]}]]}], "]"}]}], ",", 
   "h"}], "]"}]], "Input",
 CellChangeTimes->{{3.817124847184207*^9, 3.81712486296763*^9}, {
  3.817203222166533*^9, 3.8172032400147877`*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"fecf4a67-c7e8-40b5-8e36-582a0bab9fe6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["16", "15"], " ", 
   SuperscriptBox["h", 
    RowBox[{"1", "/", "15"}]], " ", 
   RowBox[{"\[ScriptCapitalF]", "[", 
    FractionBox["t", 
     SuperscriptBox["h", 
      RowBox[{"8", "/", "15"}]]], "]"}]}], "-", 
  FractionBox[
   RowBox[{"8", " ", "t", " ", 
    RowBox[{
     SuperscriptBox["\[ScriptCapitalF]", "\[Prime]",
      MultilineFunction->None], "[", 
     FractionBox["t", 
      SuperscriptBox["h", 
       RowBox[{"8", "/", "15"}]]], "]"}]}], 
   RowBox[{"15", " ", 
    SuperscriptBox["h", 
     RowBox[{"7", "/", "15"}]]}]]}]], "Output",
 CellChangeTimes->{3.817124863164054*^9, 3.817203240540386*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"742a0341-4af8-4ba4-a799-e15a1e847a9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"\[Eta]", "[", "0", "]"}], "[", 
     RowBox[{"1", "/", "\[Theta]inv"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]inv", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817123536056196*^9, 3.817123556576008*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"9884f3ff-ff57-4cf7-b122-2aebcb709801"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"7", "/", "15"}]], " ", "t\[Infinity]", " ", "\[Theta]inv"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"h0", " ", 
       RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], ")"}], 
     RowBox[{"8", "/", "15"}]]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Theta]inv", "]"}], "2"],
    SeriesData[$CellContext`\[Theta]inv, 0, {}, 1, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Theta]inv, 
   0, {(-1)^Rational[
      7, 15] $CellContext`t\[Infinity] ($CellContext`h0 $CellContext`gCoeff[
        DirectedInfinity[1]])^Rational[-8, 15]}, 1, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.8171235297148933`*^9, 3.817123556761306*^9}},
 CellLabel->
  "Out[202]=",ExpressionUUID->"5f69419d-b0c1-4cd5-9616-460f429c823a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SeriesCoefficient", "[", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"\[Eta]", "[", "0", "]"}], "[", 
     RowBox[{"1", "/", "\[Theta]inv"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]inv", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817123200393565*^9, 3.8171232461064463`*^9}, {
  3.817123515479413*^9, 3.817123520791197*^9}, {3.817123588104834*^9, 
  3.817123597584608*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"c18d621f-7e5f-48db-8ae7-0fda0221c79c"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], 
    RowBox[{"7", "/", "15"}]], " ", "t\[Infinity]"}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"h0", " ", 
     RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], ")"}], 
   RowBox[{"8", "/", "15"}]]]], "Output",
 CellChangeTimes->{
  3.817123208606057*^9, 3.817123267470529*^9, 3.8171233432472973`*^9, {
   3.81712351283296*^9, 3.817123527892489*^9}, {3.817123594979403*^9, 
   3.8171235978221827`*^9}},
 CellLabel->
  "Out[205]=",ExpressionUUID->"b45884b0-ccdc-4e99-ac15-83498ea86eff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eqMeta", "[", "3", "]"}], "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.817123015487031*^9, 3.8171230339984207`*^9}, {
  3.817123072431489*^9, 3.817123073231268*^9}, {3.8171231656411247`*^9, 
  3.817123165736641*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"8e16b08d-33f5-4a51-9850-75f98a0e6a08"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "5"}]], " ", "t\[Infinity]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"8", " ", 
             RowBox[{"gCoeff", "[", "2", "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"15", "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Theta]c", "2"]}]}], ")"}], " ", 
             RowBox[{"gCoeff", "[", "3", "]"}]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "h0"}], " ", 
             RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], ")"}], 
           RowBox[{"16", "/", "15"}]], " ", 
          RowBox[{
           SuperscriptBox["Dmeta", "\[Prime]",
            MultilineFunction->None], "[", "0", "]"}]}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["t\[Infinity]", "2"], " ", 
          RowBox[{"gCoeff", "[", "3", "]"}], " ", 
          RowBox[{
           SuperscriptBox["Dmeta", 
            TagBox[
             RowBox[{"(", "3", ")"}],
             Derivative],
            MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], ")"}], 
     "/", 
     RowBox[{"(", 
      RowBox[{"30", " ", 
       RowBox[{"gCoeff", "[", "3", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"h0", " ", 
          RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], ")"}], 
        RowBox[{"8", "/", "5"}]]}], ")"}]}], ")"}]}], "\[Equal]", 
  FractionBox[
   RowBox[{"m0", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "B", " ", "\[Theta]c"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["B", "2"], " ", 
       SuperscriptBox["\[Theta]c", "2"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["B", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.817123021370584*^9, 3.817123036214219*^9}, 
   3.817123081247479*^9, 3.817123173582923*^9, 3.817123603151895*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"21b799e5-0965-4692-b4ba-6083041c0cdd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eqLow", "[", "2", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.8171227644902697`*^9, 3.817122781401775*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"4c8cb259-b56a-423e-957f-9a65ba700a16"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", " ", "h0", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"gCoeff", "[", "0", "]"}], "+", 
       RowBox[{
        SuperscriptBox["\[Theta]c", "2"], " ", 
        RowBox[{"gCoeff", "[", "1", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[Theta]c", "4"], " ", 
        RowBox[{"gCoeff", "[", "2", "]"}]}]}], ")"}], " ", 
     RowBox[{"gCoeff", "[", "\[Infinity]", "]"}], " ", 
     RowBox[{
      SuperscriptBox["Gl", "\[Prime]",
       MultilineFunction->None], "[", "0", "]"}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"t\[Infinity]", "-", 
         RowBox[{"t\[Infinity]", " ", 
          SuperscriptBox["\[Theta]c", "2"]}]}], 
        RowBox[{"t\[Infinity]", "+", 
         SuperscriptBox["\[Theta]c", "3"]}]], ")"}], 
      RowBox[{"15", "/", "8"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Theta]c", "5"], " ", 
        RowBox[{"gCoeff", "[", "2", "]"}]}], "+", 
       RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], ")"}]}]]}], "\[Equal]", 
  
  FractionBox[
   RowBox[{"m0", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "B", " ", "\[Theta]c"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "B", " ", "\[Theta]c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "B", " ", "\[Theta]c"}]}], ")"}]}], "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox["1", 
         RowBox[{"2", " ", "B", " ", "\[Theta]c"}]]], " ", 
       RowBox[{"ExpIntegralEi", "[", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", "B", " ", "\[Theta]c"}]]}], "]"}]}]}], ")"}]}], 
   RowBox[{"8", " ", "B", " ", "\[Pi]", " ", 
    SuperscriptBox["\[Theta]c", "3"]}]]}]], "Output",
 CellChangeTimes->{{3.8171227688834267`*^9, 3.817122794227809*^9}},
 CellLabel->
  "Out[178]=",ExpressionUUID->"312f09f3-55f8-4f9d-a42c-05ca1c4aea27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"SeriesCoefficient", "[", 
   RowBox[{
    RowBox[{"G", "[", 
     RowBox[{
      RowBox[{"\[Xi]", "[", "0", "]"}], "[", "\[Theta]", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "\[Theta]c", ",", "1"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8171210214179373`*^9, 3.8171211416354523`*^9}, {
  3.817121307262643*^9, 3.8171215023948812`*^9}, {3.81712258147068*^9, 
  3.817122585574129*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"069edadd-116a-4ccf-831d-0fe6e07540fe"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", "h0", " ", 
    RowBox[{"gCoeff", "[", "0", "]"}], " ", 
    RowBox[{"gCoeff", "[", "\[Infinity]", "]"}], " ", 
    RowBox[{
     SuperscriptBox["G", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"t\[Infinity]", "-", 
        RowBox[{"t\[Infinity]", " ", 
         SuperscriptBox["\[Theta]c", "2"]}]}], 
       RowBox[{"t\[Infinity]", "+", 
        SuperscriptBox["\[Theta]c", "3"]}]], ")"}], 
     RowBox[{"15", "/", "8"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Theta]c", " ", 
       RowBox[{"gCoeff", "[", "0", "]"}]}], "+", 
      RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.817121094109949*^9, 3.817121143267645*^9}, {
   3.8171213363219423`*^9, 3.817121519328246*^9}, 3.817121561056994*^9, {
   3.817121593382764*^9, 3.817121596725091*^9}, {3.817122581937236*^9, 
   3.817122585949751*^9}},
 CellLabel->
  "Out[172]=",ExpressionUUID->"e6426e3c-3d4d-49f1-becd-dfef45704088"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"SeriesCoefficient", "[", 
   RowBox[{
    RowBox[{"\[CapitalPhi]", "[", 
     RowBox[{
      RowBox[{"\[Eta]", "[", "3", "]"}], "[", "\[Theta]", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "1", ",", "2"}], "}"}]}], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.8171210214179373`*^9, 3.8171211416354523`*^9}, {
  3.8171213154472227`*^9, 3.8171213244868927`*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"3cd180b6-0e22-4832-af2b-e9ecec7e0a49"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"t\[Infinity]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"h0", " ", 
           RowBox[{"gCoeff", "[", "\[Infinity]", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"107", "-", 
                RowBox[{"75", " ", 
                 SuperscriptBox["\[Theta]c", "2"]}], "+", 
                RowBox[{"t\[Infinity]", " ", 
                 RowBox[{"(", 
                  RowBox[{"17", "+", 
                   RowBox[{"15", " ", 
                    SuperscriptBox["\[Theta]c", "2"]}]}], ")"}]}]}], ")"}], 
              " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"gCoeff", "[", "0", "]"}], "+", 
                RowBox[{"gCoeff", "[", "1", "]"}], "+", 
                RowBox[{"gCoeff", "[", "2", "]"}], "+", 
                RowBox[{"gCoeff", "[", "3", "]"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"gCoeff", "[", "3", "]"}], "+", 
                RowBox[{
                 SuperscriptBox["\[Theta]c", "2"], " ", 
                 RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}]}], ")"}]}], 
             "-", 
             RowBox[{"16", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "t\[Infinity]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox["\[Theta]c", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"9", " ", 
                 RowBox[{"gCoeff", "[", "3", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"gCoeff", "[", "0", "]"}], "+", 
                   RowBox[{"gCoeff", "[", "1", "]"}], "+", 
                   RowBox[{"gCoeff", "[", "2", "]"}], "+", 
                   RowBox[{"gCoeff", "[", "3", "]"}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"gCoeff", "[", "0", "]"}], "+", 
                   RowBox[{"3", " ", 
                    RowBox[{"gCoeff", "[", "1", "]"}]}], "+", 
                   RowBox[{"5", " ", 
                    RowBox[{"gCoeff", "[", "2", "]"}]}], "+", 
                   RowBox[{"7", " ", 
                    RowBox[{"gCoeff", "[", "3", "]"}]}]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"gCoeff", "[", "3", "]"}], "+", 
                   RowBox[{
                    SuperscriptBox["\[Theta]c", "2"], " ", 
                    RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}]}], 
                  ")"}]}]}], ")"}]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["\[CapitalPhi]", "\[Prime]",
             MultilineFunction->None], "[", "0", "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"h0", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SuperscriptBox["\[Theta]c", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"gCoeff", "[", "0", "]"}], "+", 
                 RowBox[{"gCoeff", "[", "1", "]"}], "+", 
                 RowBox[{"gCoeff", "[", "2", "]"}], "+", 
                 RowBox[{"gCoeff", "[", "3", "]"}]}], ")"}], " ", 
               RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], 
              RowBox[{
               RowBox[{"gCoeff", "[", "3", "]"}], "+", 
               RowBox[{
                SuperscriptBox["\[Theta]c", "2"], " ", 
                RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}]}]], ")"}], 
            RowBox[{"7", "/", "15"}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"gCoeff", "[", "3", "]"}], "+", 
              RowBox[{
               SuperscriptBox["\[Theta]c", "2"], " ", 
               RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}]}], ")"}], "2"]}],
           ")"}]}], ")"}]}], "+", 
      RowBox[{"30", " ", "t\[Infinity]", " ", 
       RowBox[{
        SuperscriptBox["\[CapitalPhi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"15", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "t\[Infinity]"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"h0", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Theta]c", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"gCoeff", "[", "0", "]"}], "+", 
          RowBox[{"gCoeff", "[", "1", "]"}], "+", 
          RowBox[{"gCoeff", "[", "2", "]"}], "+", 
          RowBox[{"gCoeff", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}], 
       RowBox[{
        RowBox[{"gCoeff", "[", "3", "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[Theta]c", "2"], " ", 
         RowBox[{"gCoeff", "[", "\[Infinity]", "]"}]}]}]], ")"}], 
     RowBox[{"16", "/", "15"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.817121094109949*^9, 3.817121143267645*^9}, {
   3.817121316453334*^9, 3.817121325487088*^9}, 3.817121616050745*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"45f19748-f63a-49e1-8ced-a4f5c5dda272"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"params", "[", "n_", "]"}], ":=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h0", ",", "t\[Infinity]"}], "}"}], ",", 
    RowBox[{"gParams", "[", "n", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817120640956625*^9, 
  3.8171206641227827`*^9}},ExpressionUUID->"3ffc56f5-fc40-4c69-bdce-\
f91a4aab1c67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Theta]", "/", "\[Theta]c"}], ")"}], "2"]}], 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"gN", "/", "g\[Infinity]"}], "  ", 
       RowBox[{
        SuperscriptBox["\[Theta]", 
         RowBox[{
          RowBox[{"2", "n"}], "+", "3"}]], "/", 
        SuperscriptBox["\[Theta]c", "2"]}]}]}]], "gN", " ", 
    SuperscriptBox["\[Theta]", 
     RowBox[{
      RowBox[{"2", "n"}], "+", "1"}]]}], ",", 
   RowBox[{"\[Theta]", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8171124154028482`*^9, 3.817112454613448*^9}, {
  3.817112487487479*^9, 3.8171124889053288`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"e131ab87-4ef6-4852-9ddd-e4499b39559a"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"-", "g\[Infinity]"}], 
   RowBox[{
     RowBox[{
       RowBox[{"(", 
         RowBox[{"gN", "|", 
           FractionBox["1", 
            SuperscriptBox["\[Theta]c", "2"]], "|", 
           FractionBox["1", "g\[Infinity]"]}], ")"}], "\[Element]", 
       TemplateBox[{}, "Reals"]}], "&&", 
     RowBox[{"n", ">", 
       RowBox[{"-", 
         FractionBox["1", "2"]}]}]}]},
  "ConditionalExpression"]], "Output",
 CellChangeTimes->{3.817112456722063*^9, 3.817112491017767*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"86a22957-07a1-48ab-90d1-d142a27afe22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Theta]", "2"]}], 
     RowBox[{"1", " ", "+", 
      RowBox[{
       SuperscriptBox["\[Theta]", "3"], "/", "t\[Infinity]"}]}]], "/", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"h0", " ", 
       RowBox[{"g", "[", "\[Theta]", "]"}]}], ")"}], 
     RowBox[{"1", "/", "\[Beta]\[Delta]"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817113144203745*^9, 3.8171131899556923`*^9}, {
  3.8171133354068203`*^9, 3.817113340206203*^9}, {3.8171147270042553`*^9, 
  3.81711472915556*^9}, {3.817115345578602*^9, 3.8171153483540163`*^9}, {
  3.8171153872352037`*^9, 3.817115414338681*^9}, {3.817119661417726*^9, 
  3.817119661505088*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"22a30e99-2bd5-43a5-9353-3a3be14232a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"t\[Infinity]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"h0", " ", 
           RowBox[{"g", "[", "1", "]"}]}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "\[Beta]\[Delta]"}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Theta]", "-", "1"}], ")"}]}], 
     RowBox[{"1", "+", "t\[Infinity]"}]]}], "-", 
   FractionBox[
    RowBox[{"t\[Infinity]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"h0", " ", 
        RowBox[{"g", "[", "1", "]"}]}], ")"}], 
      RowBox[{
       RowBox[{"-", "1"}], "/", "\[Beta]\[Delta]"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "5"}], " ", "\[Beta]\[Delta]", " ", 
        RowBox[{"g", "[", "1", "]"}]}], "+", 
       RowBox[{"t\[Infinity]", " ", "\[Beta]\[Delta]", " ", 
        RowBox[{"g", "[", "1", "]"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["g", "\[Prime]",
          MultilineFunction->None], "[", "1", "]"}]}], "-", 
       RowBox[{"2", " ", "t\[Infinity]", " ", 
        RowBox[{
         SuperscriptBox["g", "\[Prime]",
          MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Theta]", "-", "1"}], ")"}], "2"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "t\[Infinity]"}], ")"}], "2"], " ", 
     "\[Beta]\[Delta]", " ", 
     RowBox[{"g", "[", "1", "]"}]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      RowBox[{"\[Theta]", "-", "1"}], "]"}], "3"],
    SeriesData[$CellContext`\[Theta], 1, {}, 1, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Theta], 
   1, {(-2) $CellContext`t\[Infinity] (
      1 + $CellContext`t\[Infinity])^(-1) ($CellContext`h0 $CellContext`g[
       1])^((-1)/$CellContext`\[Beta]\[Delta]), -$CellContext`t\[Infinity] (
      1 + $CellContext`t\[Infinity])^(-2) $CellContext`\[Beta]\[Delta]^(-1) \
$CellContext`g[
      1]^(-1) ($CellContext`h0 $CellContext`g[
       1])^((-1)/$CellContext`\[Beta]\[Delta]) ((-5) $CellContext`\[Beta]\
\[Delta] $CellContext`g[
       1] + $CellContext`t\[Infinity] $CellContext`\[Beta]\[Delta] \
$CellContext`g[1] - 2 Derivative[1][$CellContext`g][1] - 
     2 $CellContext`t\[Infinity] Derivative[1][$CellContext`g][1])}, 1, 3, 1],
  
  Editable->False]], "Output",
 CellChangeTimes->{
  3.8171131901632423`*^9, {3.817113336562134*^9, 3.817113346309887*^9}, 
   3.8171147295944853`*^9, 3.817115348650196*^9, {3.8171154064111156`*^9, 
   3.817115415021256*^9}, 3.8171196617654963`*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"470e97c2-b944-4611-8c77-75e5a0915c04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Theta]inv", 
        RowBox[{"-", "2"}]]}], 
      RowBox[{"1", " ", "+", 
       RowBox[{
        SuperscriptBox["\[Theta]inv", 
         RowBox[{"-", "3"}]], "/", "t\[Infinity]"}]}]], "/", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"h0", " ", 
        RowBox[{"ginv", "[", "\[Theta]inv", "]"}]}], ")"}], 
      RowBox[{"1", "/", "\[Beta]\[Delta]"}]]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]inv", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817119695521706*^9, 3.817119719402121*^9}, {
  3.817119757242896*^9, 3.817119760810754*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"3752e4d8-bc7c-475c-b88c-a0d99559d99c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"M", "[", "0", "]"}], "-", 
   RowBox[{"t\[Infinity]", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"h0", " ", 
       RowBox[{"ginv", "[", "0", "]"}]}], ")"}], 
     RowBox[{
      RowBox[{"-", "1"}], "/", "\[Beta]\[Delta]"}]], " ", 
    RowBox[{
     SuperscriptBox["M", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}], " ", "\[Theta]inv"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"h0", " ", "t\[Infinity]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"h0", " ", 
           RowBox[{"ginv", "[", "0", "]"}]}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "-", 
          FractionBox["1", "\[Beta]\[Delta]"]}]], " ", 
        RowBox[{
         SuperscriptBox["ginv", "\[Prime]",
          MultilineFunction->None], "[", "0", "]"}], " ", 
        RowBox[{
         SuperscriptBox["M", "\[Prime]",
          MultilineFunction->None], "[", "0", "]"}]}], "\[Beta]\[Delta]"], 
      "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       SuperscriptBox["t\[Infinity]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"h0", " ", 
          RowBox[{"ginv", "[", "0", "]"}]}], ")"}], 
        RowBox[{
         RowBox[{"-", "2"}], "/", "\[Beta]\[Delta]"}]], " ", 
       RowBox[{
        SuperscriptBox["M", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Theta]inv", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Theta]inv", "]"}], "3"],
    SeriesData[$CellContext`\[Theta]inv, 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Theta]inv, 0, {
    $CellContext`M[
    0], -$CellContext`t\[Infinity] ($CellContext`h0 $CellContext`ginv[
       0])^((-1)/$CellContext`\[Beta]\[Delta]) 
    Derivative[1][$CellContext`M][
     0], $CellContext`h0 $CellContext`t\[Infinity] $CellContext`\[Beta]\
\[Delta]^(-1) ($CellContext`h0 $CellContext`ginv[
        0])^(-1 - $CellContext`\[Beta]\[Delta]^(-1)) 
     Derivative[1][$CellContext`ginv][0] Derivative[1][$CellContext`M][0] + 
    Rational[1, 
       2] $CellContext`t\[Infinity]^2 ($CellContext`h0 $CellContext`ginv[
        0])^((-2)/$CellContext`\[Beta]\[Delta]) 
     Derivative[2][$CellContext`M][0]}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.817119714939983*^9, 3.817119719611507*^9}, 
   3.817119760979968*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"db6b4f65-90c7-4c37-9945-5690d8472368"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"1", "-", 
     SuperscriptBox["\[Theta]", "2"]}], 
    RowBox[{"1", "+", 
     RowBox[{"0.1", " ", 
      SuperscriptBox["\[Theta]", "3"]}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817114731164422*^9, 3.8171147570601673`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"6a34969c-5bbf-4acb-a54f-a9bfbf2c9f87"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk4VdsbB/CzOYdzTOVUmsynEOWqWymV9UYos1CRKWMUF0mSBlNUlIpS
5qkIReFGZW8hMmUKGcrNPGQbk/m3f/uf/Xz+Wc+z1n6/37WlbP857sBFo9GO
YjTa/99x12x5dtrfUb21vEI9JCprktQ9KemMmk5UqY9SXvlUHCgpeRmZPDLg
y6Us9KAgh68tAK0x1NDWpxxHhEswJG+h3MUz86XLJNpO2t9dcbqHbrpaCrMp
dwnFLy+2PkAjaCJ43xKJtjxj7Z1fiELVht/0lRdJdP7QRddZiSfIQKnZVmiB
RG+au1On1WPRt6iUtx/mSDR/TrdzwikByTQLaGn8IVEi1nlrViMJJep9o6f9
JtGR2vtbf7cmI8ZQy2DnNIkGo7VKpp1T0aqbbUOjkyQKs1+ymFpIQz6eBcvN
4yRqWjgbOS6RgZ6b3kQ7RknkXSGuROa+QF47jprFDZFo08Pm6l/qWWg1V4ht
Xz+JbOWBe8TpFaLLukosdZOIa8H3y7RfDnKRky6p6SJRc7ep2LRGLkq76K7o
1U4inyz+wsnW10j3H/Oj2k0k0n7QzzOZ+AaJnjPs8flCIlGfEpMJ5zw0gKJk
rleTiFC/NE4u5KP1qSqB7FIS8Xb8lP0lUYg8kqZSjHNI1EZ8uDg6WIj0h9gR
qpkkevEsunQktwjVHvirm/aMRPqe+tbD6u9RYZD6Hf4YEj1iFT0acMKRn2Ky
3L5AEuVd0va8sIFAc0f5DLv8SBQ7rLxxyo9A6aeHn5p5k8itnu00qVGC/HZt
9Ws9SyJ2bCXXROtHFDjjED2gQ6IFoYIM94Ol6Hn4KI/GERL1+qcYjieWIpdb
Wy0vHyRRgdO1eNK5DD3JcU513E4i8793q4wtlKOHrDtdx/lIlFSV4DEi8Rl9
3F6sdb54DE1H58v/CPuM4ui1e0++GUOaTtU9jXOfUR9+/Yxw+hga5Z41LWqq
Qr+7r+pPRYyhfYf0VW6F1KBdCdIN523GUP2rRS5Z8gtiVwye2fn7F2IjlpWg
Yj1K3Om8R3DwFzogE6kSYl+PloSPjP777Re6O50x5dtQj5pcm6Yvv/+Fdt//
6mCb2YC6QofZOdd/oetV27V3WjehO+EhOj8XR1F67r8ymVFNyPZON5Y5Mooa
o9W4t9Y0oXShPh+19lG0xenU+w37m9FPs8z0roJRVMUdpEhb8xVJ/ineXO46
ikQOdbC/fGpBWXejIs0aR9DLV7c6ziu2ozd+I1W53sNomD0cpn2mHRlF/WvU
ZzOMZL21VeUi25G10U6rMe1hlHiQP6lnrh2tr46T8RcfRg8+hzmal3egtTr5
p16UDiHvnnsTWhZdKHx4rfIaniGUwF8dKKzRjWIHAlPCzg0g1UNXLG5YdSPF
Ffe4IMMB1OmmsIe81I2eOXo+NN4zgDY03umvedGNvjk65Xsv96P70brHQlf/
h6T4n2U33e1HgVvrhFY6/kOcHhWDP8/7kBNqeDLq2YMO7b5neOV9D6Il/y7q
uNODxLlqLmyM60HRdNHOqtQe5N2i9frB1R5U+dlRPKOlB+03nekRUe1BciaL
yQ4qvajFwfjH2Q8/0eBZ2azvWB+68snTVDv/P+Ty4GpxfUQ/Otg1t+/xuh/I
rW9bT97LIXRbxD9q8flX1G31jVnyeQhJ3+DBxoy+IuO2UMXa3iGk4fXhRuxC
M9pXPXC5b9MwGvuS47lLvxlx56atFgkZRjMfXhzWH29E0X5SqpesR9BtGGlJ
l6tHJWs2Ptm/+hfy2DWeqNdehvikgmR/7BtHi54Wz2DsCX53dbV8ks0UysBX
DJ5afsNtO0xw7prf6MiK0gvl+0O4R3mQ7T+y86jtXVdZbPwkLt6ryfP773mk
/OSK5szrSbyai/XCD+bRprTU6sMVk/hWCJ+4ZTaPWsfmXxSQk/i3oqgbqXfm
0bkDcfpCMIUfznkW/42cR4Pnnym4fJ/ChWMq29XfLqARmeSxQOEZPNddwHjD
sSWUlurAv8dgFq95uuZy9okl1NXOJZp5ZhbvL9uUoGa/hJJ9mz1Xe83imzZu
Gzl/fQlxof2d6dGzeFCJRmBJ/hJac4rgXf3fLH6Cff2Ni/QyuiW2NeGN2x98
/s3Emg8Ly0gxzfW88tU5fO33P/uPs1bQNyUbq7vhc7gik2YzILKC5LVuKzXH
zeF2FkJZwrtW0CCmcmF78RxeQ1c44nh2BQXbCrusWp7D403tvVZ9XUF9UfEm
Cb7zeNKVc8NKJ2nwzjZ8lHRcwJUI1p8QSxp4Culq/+21gBP0dMYPOxpwtjT0
Ovkv4N3hvZLh7jQYjinvSI1ZwMUTLU8O3aKB9xkk6/ZlAX9aZlCW9J4GBXnW
2w7vXsQfCO6OZ0tjoMYMSKRPLeLSxxszneUwcOuXKPJeXsRzH7kXEooYFPol
PWxnLeH1EtnNbgcwiF7wjrkkuYQL7ZLhrzbB4PuGlShevSX89okNPoEhGFh7
DG0NSlnCAxIWjaZHMeD6oim1SXMZN1R666EwhQF/08uaeINlXLzkwn3bOQx8
HTYHipgt40U/h+vrGVzgUmyg8OPcMj659ZtBtjgXiKS7c1oilnHbrHw9R0Mu
ePdjY6pN2zJ+uNDtWNsbLvBfd0Rlo9UKLqQt77yqiAu4SiRfCTiu4J3tfaGa
BBdUbGaxp11XcJ9Fi8q8Gi6IkjxGxF9dwXOQjtb9Pi54drznoX3sCi75SVZD
ez03vFxr1fy2dQWnNXXDe19ukC8/pd8lTSOChoqTfP25Yb7w0IidDI1g0eK4
9odyw9DTRqx3G41g7zAry4/ihlLRkpx6JRqxNaRB61UON/wjSX9uoUojtA98
1E/u5wbHidQg9VM0os4o8ZXNL26Id5nebn+aRhifvbZaYpob+n67J1+zohEW
USqNMRgdMpxmWUn2NMKNfG0aJUqHnYW3rWLdacTDlBSL0ON0aJqcLPQIoREb
ivw/aJrR4XvoUNbO2zQitt5anGFDh/H1p0tGwmjEs6XN3f6udDi/v9JO/wGN
eHsy0u5KKB0KcDfpulga0ckf7OJWTAeJqk7p9zk0QsbL0cdEngHLR4x+eTfT
iB0qP4wTlBjg/23gL9sWGrGbduqv4b0MCC0YHTjaRiPUwo71X1dnwKI532dm
J42wSt1ukmnBAHn1xrLjPTTiUfPkX1z3GBCXY3p0zQSNiHt6jl8vigHfrWta
/p2kEak2vf2PYxiQpHVY7NQ0jXg9+jVuRzoDmPnRP+/MUudFL+Q3K2HAf6ya
EmKJRjD2XB94NcUA5Tfn7OxYGCGwMPtxfo4BJQITp8v5MIJd4h6vQeMBQ6Mg
PY4ARkjq2Zp2CPBAnGGnQpMQRhx00CjlkeGB9dukNLjXYoRXFH+C5SkeOLzu
iG26GEZcOR3km27FA0WM7MpqcYwIkFoynbLnAaEMR6cRCYyIyB4TuOXBAzdi
T1pKSGNEVnmDb95tHkgJCX9sLoMRvTOPT/B/4AHTWJ0kKUWMSD7894WuUh4Y
ed76TuwvjLAOr7v3qooHQnbmZK9Twoj2LYzPxm08oNFiKz+3EyMajD0PxE7x
wIOXfQL39mDE3QTBU27zPLDuBJeTy16M0B1J9wKMF6DiePFhZYyoDPiR3SvE
CzX9mpd692FEca6u5A55Xig7VB85fwAj/JYGDq4o8cKVyzPmBQcxYv+xQLMG
ZV6o/uKi7nYII/K6Cx9c1OAFc/dH4Y2qGPFilSyj2IYX3lq73XQ9jBFnT3+U
inDiBTl2+nc+NYzY+txS1daNFz4kX72aSjlRNfISjx8vfDbqSaxRx4jHrtiw
/mNeyAHFhXENjDApjOWRiueFIv8puocm9X0Y+zhTqbxQe7ra5xflu7FuFo9f
88JpRcWcDi1qf4Osy86FvBBh6uandxQjWLvTog4QvHDVXaHsHeWg6o66H7W8
EOdxpjX8GEaorb80ktvMC31aXpkTlFds2cygDl4oJpUFjmtjhO/80cNyQ7xg
OPkjiKmDEfs0ey3nSV7Q/qaWZkV55v5135rfvOCabmyXS9l9W8EbdzoT/tE+
8VlXFyMULxrVq/EzQUc283IU5RFidHQtmwnVyxfa2ik7nuLIFEowYctH7PVp
PYzYklqsdkeGCbiY0J7HlH+SZtaWO6j1jotd+kLZMiQiGjvAhH1i2Uf36mPE
piaF/KbDTBC5ZNZtT7lNvKIh7SgTGpRstCIoP3KxHbtkwAS7wDr/t5RNCpb4
tE8w4ZLSy4ddlNlcT2RFLZkAAQz/Fcpf9HYfGbNjAtJp1RM3wIiwJ19sCBcm
7OiXXt5PWbvP5eoDDyZ07OmNOk5Z8yon64gPEwycXd85UVZb19n++xoTzO8V
jF6mrJodycoIZsJcu++OW5RVNPT2nQ5jwjVNT/8oynu7GE6CD5nw4qHRaDzl
XReLo/AnTKjTqfJIo6woeKnMI5EJv/Hb6zIoy6f9NcV5zgQplmrH/y1zaFCq
JZsJF5lhn55Tlv6aaBiax4R7Ths7kimLu5pdV3nHhIroENEYypsY7JejJUy4
3ep1N4KySFxVZ3wlE/Ll/HYHUmbvCeQ3+sKEZfM97AuUhWoPqHC3MMGSd4+C
DWV+h+mz+Z1MuHlfIFCbMnMp67FTDxNs5bTFdlGmRzl82jjMhKhPPksilGk7
xGeqx5kg+Lek7Bx1votlLZxrs0y4j5XHtVH+Y3HvuNIyE6wfDtrnU56e1vL/
SWdB7XrWjXuUR7cUftdks8CI2EYcoDz43kNwbgMLUg1ERgUp95rIH8yUYIFf
RtvlLmo+OoNinqzawQKtiMhKL8ptoiaVJX+zYGbdmYiDlJvzBGYvqLBAzyyj
AqNc03vVpE2LBW4KSg+CqHms9NsbeFufBSKn5barUS5bS+YeNGUBd9gq9SVq
vt8fsVmVZMuCTL+F6XOUs1LVqpyvskAG1ZYrUHlJP7jwZ3MQC4j9rSlfqTyl
Nr+RrbvNgmPJEhuvUo6lbw3eFc2ChqWTLWVUHsPteWHhNQsyXBVnlKn83l7E
3bILWVClyRqoo/J9M9InzppgQYrRi1t2lK+VDc2X1rLAWKzyVzDVD25bavLD
Blkw7HUz9BXVH/q9EQri4nwgxEgviEbU/hR6my228EF6QFHOOso6F5Svxcjz
Qa5BfWME1VdHub7Xb1Dmg9J7kdH+VJ+pSSp4rzHkA1XnwfN6VP/tsSgnmAF8
sNoj40gE1Z95KRtctEL5oEGS8W2c6tddI+fW3LzLBzauMUUGlBV92Y7cMXzA
VPFxY+7GCLloa/7lN3zAw3+l1YHqZ9HmOdOpPj6wnK2NaVTAiKeb9VZ2jvKB
7CcbwY2UN9olprtP8oFp627SUp6az0nNhV/LfJCStV6gRw4jVq+OTBxczw+e
kw/62rdiBLeu4kjXMX5gdv/oD6Dul+FS2xuV2fygu3vL3x+FMULifpvL3Tx+
2Juh/+fTair/VvqmJu/4YVraZ1fVKqrv/+yX767kh6J9x1bVCGLEgx3CzbM9
/DC1vSXrA3U/HniMy8puEoAACLpmjlF94CL6JfimADAs0hRukzRCUbhFTN1a
EFxEBLiVK2lEf3h/QJSDIAwoXTSnVVD3Nd/swMA5Qbi7WrS2spxGCNA3vA7z
EYQwySHWyVIaMfzbTLPlviCc6r7Hci6mEWmdXW7OZYLgvUXbwj6PRoim9+H3
tgnBJ6s1rSUJNIIPzZzpnBICi++rvK29aITWL/NZadPV4GVJ710RohFtH+0x
8+3C8LaifCFKewXPDy2zkpwRhkcbCjREbyzjjoyL3XV1bDg1/H6dOfW/aed5
JV/g6Rpw0PULWWlZxP9yUqjTPbMWXNa/st3DXsS/sLfzX9y/DoLLReYl1Bbw
dy8DYrZzi0DxK/srP4Pn8SuYvGFNlwiYfL2+iiTmcL5O36NueethpG1fEpN3
Du97JhWZ4LcBdLgY7+xs/uCRchvphaYbwVEsUWr59Swe8dSx4ozkJmiv5Qnr
Xj+Lm0da1gkMbIKPVje6ZoN/43+OpM0lFG+GnRY3fHTHZvCePjWfjyGiYCwV
alntOIMnH9q5ufaMGFQUKb/b1j6NZwdfFHbaIQ7SY5IRFy2m8RBTOx3uGXF4
n3Dh5oH+KXxPZ1JGSK0EPOqtQCbnpvDobTHZtTqSgFr0BWyXJvHrRHi0TqEk
qF3yEpO7M4nrbTZNq9oiBdYxNJ0iiUn8sFvFaeFbUoCqCoX88Qk8QdR2S82M
FBzwPZaofXoC31L6/JH+aWlYVtub54RN4BE7Pso3FkuDGvvRdFjWOO44RW/4
LM+B2hQFyRnjcdw2d1Ly1j0OVBn8E3CGPo6fDzBe1L7PAW/JkCI69zh+0Tiv
VeAhB45KsxXSsXE8dObi3YhHHNBgxrv8WCLxl/vnFh7HUeajt3NNkfhcyUrL
s0xqvfY77626SDyiUSC8rIIDLdc8/nN+TeJPU1zP3vzMgW09nw8VvyLxFK86
9aPVHDjZOMS7JpvEC0Qi5qvrONAgJ9734TmJd5qvOdv0lQPnuDKJDXEkLtuz
Uf1nDweyShf7f4aQuFKer3hqHwfKT5qvVQ0mcZXgjjmHAQ7sLprLfhJA4rqy
cTlDwxy4bBa39fhVEvc8Jyk+McGBMbevnEpPEvc76D/3eooDJQXxOTLuJB4s
+LPZa4YD7wyG0oNdSTz6VcqdP384wH6Z3HHkLIkn36A7Fc1zICbhv3VpDiSe
aeSg5rfIgTgVtXcMOxLPk/4kprrMgabUrGpHGxIvnpKZW1nhwD4+llalJYn/
DwGww/8=
       "]]},
     Annotation[#, "Charting`Private`Tag$3796#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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->{{0, 10}, {-2.1638981941515714`, 0.9999999999999584}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.817114750430457*^9, 3.817114757239752*^9}},
 CellLabel->"Out[15]=",ExpressionUUID->"70cff46d-010d-4a9a-8cf5-3901b2a30edf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", 
       RowBox[{"(", 
        RowBox[{"x", "-", "1"}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"1", "/", "x"}], "]"}], 
       RowBox[{"ExpIntegralEi", "[", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "x"}], "]"}]}]}], ")"}], "/", 
    SuperscriptBox["x", "3"]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.817118655752342*^9, 3.817118685640291*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"6afc45fb-65bc-47fe-b120-408f15ede40b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     FractionBox["1", "x"]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
    RowBox[{"ExpIntegralEi", "[", 
     RowBox[{"-", 
      FractionBox["1", "x"]}], "]"}]}], "x"]}]], "Output",
 CellChangeTimes->{{3.817118672704093*^9, 3.817118686099999*^9}},
 CellLabel->"Out[81]=",ExpressionUUID->"4cdf78f8-6821-4e67-9385-8a091cc9cf9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "\[Rule]", 
  RowBox[{"2", "^", 
   RowBox[{"Range", "[", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2"}], "]"}]}]}]], "Input",
 CellLabel->"In[21]:=",ExpressionUUID->"b66a0012-a40b-4041-8ea9-a9cad40db85f"],

Cell[BoxData[
 RowBox[{"R", "\[Rule]", 
  RowBox[{"{", 
   RowBox[{
    FractionBox["1", "4"], ",", 
    FractionBox["1", "2"], ",", "1", ",", "2", ",", "4"}], "}"}]}]], "Output",\

 CellChangeTimes->{3.81711492411154*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"9744135b-7d1f-4023-b02d-1bdf3b29d60f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", "x", ")"}], 
       RowBox[{"-", "1"}]]}], "]"}], 
    RowBox[{"f", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.817119205409995*^9, 3.8171192327379303`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"7ceb4bac-ce7b-4adc-aeb9-95a215777744"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", "x"}]], " ", 
   RowBox[{"f", "[", "x", "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "x"}]], " ", 
    RowBox[{"f", "[", "x", "]"}]}], "x"], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", "x"}]], " ", "x", " ", 
   RowBox[{
    SuperscriptBox["f", "\[Prime]",
     MultilineFunction->None], "[", "x", "]"}]}]}]], "Output",
 CellChangeTimes->{{3.81711920936974*^9, 3.8171192332338257`*^9}},
 CellLabel->
  "Out[100]=",ExpressionUUID->"9c7df971-6bfc-41f8-a68e-fb9921c0b017"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", "x", ")"}], 
       RowBox[{"-", "1"}]]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817116910643228*^9, 3.8171169972761393`*^9}, {
  3.817119152970964*^9, 3.817119183489099*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"07932986-b2e1-477a-9d99-1b9701e3af0c"],

Cell[BoxData[
 TemplateBox[{
  "General", "munfl", 
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"4895.104895104895`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"", 2, 98, 20, 
   31478186269791883738, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8171191729103947`*^9, 3.8171191839132*^9}},
 CellLabel->
  "During evaluation of \
In[98]:=",ExpressionUUID->"f0c4d2f9-9d6d-48c0-b78e-b8f84a7f6bb2"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtlGk0FPzfh4mURhgiSmMWS4S0cEfM91eW7KWoblkiWVJIydodlYiRsS/J
TmRLyVJ2Y2fsFCpbtmxjLAn595zzfM65zvX+evEhWDldvLmDhYWl8i//51f/
WXEcsw4is/z/aN14vSt4e0jdO+6w15eNuF1f8QSP94CbzQLTV9nr5V9VBYvu
xD+HQt6L10tfyp+6rep6Z000FtSmRNL+DM+eft8znLasFg9q3nS3ed8rKr8d
9IYYtonwDRcmERqSp5LEOvR8TSMZ+ui+9TLXllXU20LFV/tT4N+ScN15O3nV
qZhz1cv2aRCfVp6btGapSrHeMmVupMMDPX11SfZgVXn5978Ywa9Bc3E33vva
O9XuDbuIRdEs2PNQkRaH6VZ90ICTXyh4A/fuzr82rF9UPRDe0zKnlgO/g5k4
p3pOcoV5oO1sby54XeCwoKYTyFbSiO2nbT7o3nuzVjWpQN6x4dm+7P0WLlxv
Hmz4o0XuGTY+tKxRALD2dMDpqQk5o17egcn9Dj65czpJ2N4iu+dgSpf630GA
+eGIfd/cyTphExxLSe/BcPFC4wn9Z2QR92ojhn0hsKUE3kqWCCfPm8WnLB7/
AEd8DAfG0xLJVWpuiwsbH0BhaTjQ90wWOUzqInmBVgQ6u6LzMwLfk615ZCnz
wcXQL84eKWxXTlZc2TUwd7kEikPIcnVhdeRdg6OSc6KlUF3rrGu6QCd/rip3
nZ0qhfrHOS2Ukl7ym4yY2p8FH+G9vvL83rmvZG/KPexPz0/wZh4DImfHyQYu
BhYzamVgRs31LdyaIeOvSuVOc5WDpeHU9aRiBnlJlX1jqrccnL9j+DcYq2Qa
6bvWVEIFoPwZhsjVLXIU58eoSdtK+MMY0vsWtAMK3XRc7glVgfMQf9OG/C6I
n/lHmOldBXkBR6OjPnCBn5l4lctIFdCS/kkojMOCYwef7ZJGNdxi+mA7bATg
ihoLt8ubaih4pUywoAsDKporZHDXwPVagTUYwYGU1OC1u/dqYHr8PN/CFSLw
xTfuYPTXwC1uH9fQdHHY4C7KclaphUf+8qnHraRg3Df1wmJSLdxQyF3NiZKF
tmXqmtNOGhg/qx1kkTgGRbb/JSzY0+B9rFp6Zt0JSBxw0HCi06A9Q655Ok8R
AvT/nZ0/XgeXvTP07SaU4G6VZrhjdB2co10rbXVWBZMTJ5XnN+rgtpKO+fUs
BGoZhJE71+shljG64dp4FmSEeQLmaPWQ2xfl9Wu/BghQNuXuSDXAOpXtqELc
OfjzZ7p3NrgB7DNTCfcNdWDybr/37aUGYGQKDq+CPnSM00izlxuhLOtgzsaJ
C5DcnHj3p2gTDBWceBRVdAmWYz5If6c0gfvJF3mxXcagadsy1rXeBKc5emWf
CFyFWIWR+HqbZsgO05WI9zGBWbY144/dzUCvlhcSFzAD6OLiyUMtsA8r4GXc
YwFhScTG5NwWaOegFOVaWMIpVQPl5/6tMIPdc6DkhTUEYayZ3sutQMlOVTTW
toFvXzxynC3bIJaybbJbxA6ePkjHXT1Nh1dG0w/SMLehX/1Tv24mHU4G+jz1
lHIEaf5OKgi0g+bNpRtJ8s7Qkb+5Q3KhHSZGMDx4qgvwAaf5XrkOSL8Y8hXX
cw9OS0Qo+1t3QFWkoMWAuCu8WM5ienZ2QP/XMK5jTDcoGTzZsbyrExzd2XkP
OnnASE1ljiO5EzCSt4Ms1j3hZGjvTavsTsijfbLzVvoPzN2vnx0a6YRzZZSQ
0IVH4G/xE3dZqAs2ZbXtVQd8YECW9bO2XxccLfqIi/rwGB41y+gcs+gGLWfF
HsmGZ5BZUCyRHdkNO3JNy3O++UNXzFk28dZucHg03P5jKwDEbK+WCSn1gEGo
PefzS0HQzPZUjoW/F2SxF6c2ZamwPMON8dTuBYmrbrN1n6lwqCt2kvmoF3r8
dE/d9w8F56T8pMnZXmAe4eX0WQwDQdVBvvb6PsBFu5YgRiQgMZsFra0++E39
cp74KQrsMYyWmhP9cPD9JN9IQDSUfeHwK0rqh/nliLC5o7Fg9eD42ivPz6DF
ea55Izse8vKfD96WG4Ce0+p2kTIpMMM3Q9GxHIBxZ2EP1tcpIPlAh3w4YgBS
DPiLdpJSIUkFkzy2PgB9EhFB7aJpENZEsTGpGwSZrou0kzIZ8GAshHHO9CsE
cEsUUV+8gXeaiyniIV8hK/WtQRwhGxayLhix1XyFY3HPA0SKssHOGVtcIfkN
KJY468djOWCyFeatwPwGD3luDUSfz4dETMsTrMYw1D47suOJwjsgq3qZ+pgP
g1h434hu4DsYcjyisOA2DFFJEa2V39+BUFfQROubYXBZunYnjfIeQmP0tAN4
R+A0e3Xc2flCeCJO594eHAHTI5MZo+3FYAudsbMuY+AXVFlsubMCWFJWPw4G
jcGdt58p9x0qIIZdZKg5bQy6Ik25uboqoLHJBpfVNwbJDRifuqRKOGy0mXJT
eRzGLneki6VUwZSdZM431h/wdKxWyd7w7w+FPazooE5AgkXcLHaoDhx/SI0V
5k1D4lFkwBncBsPmX3ZXN00Dh+JQ8e7uNrj0OUCubXwafJzFMpSF6XCqZdLj
x4EZcJ9QSTiZQQe2gnReQf8Z8Ki15nCraYcYbwLZzeIn6CkukpdZO6GaXzhW
iXcOXAedFkSMumEP4ank91OLMJ2D3mqf+AwveFukk68z4Z+Vhv0tv4bBatCo
kq11FdSwjSX3Yifgbt1TKyfJ3yCqV39V3GIWCpy5Lglpb8HugFJ17ZVFSPZy
mJG/woKwmc/KknYtw+PETcPlWVYkdOpj9hfGKrB0D6MyTzbku5blY9y3DhL3
bdyNpHciwYdX9JpYt2B8JfoyppwDKSkRRbBb26Dz49bDsLu7UY353pvLCazI
YJx6BIfbg0zHtY14lNnQTK2VT2MuBsXnqVDkPrEjOWzfITWLvUj6lF2apzkH
2gMrlkNMbnQHb2UmOrkLnZszWSMa8yIBSrRwYygn+lxjzWoig0UHGPq1pQoY
9CGAZo5fwSKXQSd0oYIL2ex0HabT+dDEdsRchR03uuHi9YErjh/t8DLfDFzj
QUdtj9D1LPeh0LHVomeVvKidTwbjqiSA8EPX6qQisOhT3uOXMmyCKIY5utVl
woe8WKUvtH4VRNydStKmx/nRniFPLcfC/YjZsmQmzbEP/cggRCR6C6GIK3OD
oy37UMRhYfZSY2EUhQ2YcksRQNQ4mwZL/AGkxknbmrkliEwizOhckweQCUe3
QuDR/eiXevp6YsVBNMceF8q+UwiN/TjrXuMvgtzH8G76rUIoRfXYwTbLQyic
x3KnS5owyvVzxdrK4lCMoWujmeMB5G98Q5dtBYdUtvWa7E4eRApDyVn+baLo
7Xav+nmMCIqRepnbpotHVpkamsxuEfSoKjhGtxSPzOZSPe/lHkL6B43Tm8UI
SFIiOpL7CQ6dcWy4hn1OQEFleS8tdERRooiVWOsKAVU0Z4ZoYvFIrPZ1lME1
IvI+ctxT8QEeUWVrpLsqiOhog5Si/Bc8smGydzZJk5CNZYl9jDoBWRUs4Z+H
kFBtz+uz/ZkEdPvxpU2dUBL6wlH9M+oNAbleKuznCiehatrpyMs5BBSw4vqC
GkVCsf8ZT/fmE1Ce0vpG9CsSUpfYH9VTREDr1dt9GdkktO9MOWsXjYCoXVzB
tAYSCtScwLcNE1Bc6h27Z00k1HqfpY8ySkCp9+lqWi0kNMjvEaQ3TkBFgtTf
LXQSUlbzW2uZJKAhE3677l4SKq7i6Gme/9thTFhtdIyE4kVjExo3CUi+0BOX
9oOE5DhD/g34Q0DKfoPrNydJKG90ZJ8WCxHpSb56Oz1DQlc4EigNbETk4oDH
MRgk5OB+x6d+z99OKr7r75gkpKStRX7GRUR+e0d77q+QULjeo00NbiKKyU8N
+vWLhDoorJ51WCJK8WG3/fibhMri9JT8+Iko2/DmWe9NEjrzkPlLXYCICon1
h8h/SGhDZLWEfT8RVTAl1re3SSjAysiDJkRE/wPKgK3A
       "]]},
     Annotation[#, "Charting`Private`Tag$37696#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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->{{0, 10}, {0., 9.048373977232828}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8171170011216297`*^9, {3.8171191612154016`*^9, 3.817119183930393*^9}},
 CellLabel->"Out[98]=",ExpressionUUID->"82bf5b22-f54c-4da8-bea6-61b7c42c3450"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["1", 
          RowBox[{"x", "+", 
           RowBox[{"\[ImaginaryI]", " ", "y"}]}]]], " ", 
        RowBox[{"ExpIntegralEi", "[", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"x", "+", 
            RowBox[{"\[ImaginaryI]", " ", "y"}]}]]}], "]"}]}], 
       RowBox[{"x", "+", 
        RowBox[{"\[ImaginaryI]", " ", "y"}]}]]}], ",", "x"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", "0"}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.817118954501877*^9, 3.8171189919657993`*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"13e1541b-4ad9-4a40-89f2-be40a0e4d6fd"],

Cell[BoxData[
 FractionBox[
  RowBox[{"x", "+", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     FractionBox["1", "x"]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], " ", 
    RowBox[{"ExpIntegralEi", "[", 
     RowBox[{"-", 
      FractionBox["1", "x"]}], "]"}]}]}], 
  SuperscriptBox["x", "3"]]], "Output",
 CellChangeTimes->{{3.817118982445229*^9, 3.8171189921596518`*^9}},
 CellLabel->"Out[91]=",ExpressionUUID->"dff49a57-ddf5-4e9d-aa0a-55006221f3c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "+", 
        RowBox[{"\[ImaginaryI]", " ", "y"}]}], ")"}], 
      RowBox[{"-", "1"}]], 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "+", 
          RowBox[{"\[ImaginaryI]", " ", "y"}]}], ")"}], 
        RowBox[{"-", "1"}]]}], "]"}]}], ",", "y"}], "]"}], "/.", 
  RowBox[{"y", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.81711900192594*^9, 3.817119038278656*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"6def2df0-3761-4f37-b66f-ba9071b93625"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "x"}]]}], 
   SuperscriptBox["x", "3"]], "-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "x"}]]}], 
   SuperscriptBox["x", "2"]]}]], "Output",
 CellChangeTimes->{{3.81711903374153*^9, 3.817119038467194*^9}},
 CellLabel->"Out[93]=",ExpressionUUID->"175a2c7c-fa54-45c3-bf4f-c4ed89dad110"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ExpIntegralEi", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.817118531078148*^9, 3.817118533157342*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"657e079b-66fb-4614-816e-af41b7fabf10"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ifun", 
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 74, 17, 31478186269791883738,
    "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8171185334968357`*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"f6532f4e-d02f-402b-985e-f8964b91f90e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    InterpretationBox[
     TemplateBox[{"Root", 
       InterpretationBox[
        StyleBox[
         TemplateBox[{"\"0.373\"", 
           DynamicBox[
            FEPrivate`FrontEndResource[
            "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
          ShowStringCharacters -> False], 
        0.37250741078136662132180845219409093261`15.954589770191003, Editable -> 
        False], 
       TagBox[
        RowBox[{"Root", "[", 
          RowBox[{"{", 
            RowBox[{
              RowBox[{
                RowBox[{"ExpIntegralEi", "[", "#1", "]"}], "&"}], ",", 
              "0.3725074107813666344619918665801190408544781383913929553002`\
33.599986712079"}], "}"}], "]"}], Short[#, 7]& ], 0.3725074107813666},
      "NumericalApproximation"],
     Root[{
      ExpIntegralEi[#]& , 
       0.3725074107813666344619918665801190408544781383913929553002`33.\
599986712079}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.81711853353478*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"5f2bc73c-3ef7-4874-86b3-dd3ac3e99858"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ExpIntegralEi", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817118477157076*^9, 3.817118512925106*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"49f74264-7484-4d5a-b52f-d0892384e631"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkWk8lPsfQGeM8Ywt2WWNJxN1RZSi+P5EpH+K3CgkS+RGQlmzJVSTEaZb
kZJk7yope55HhVHZkqYUSrrXkr0h+73/F+dzXpyXR93j9EEvAQqFkvYf/3dN
77WxNTp7YFRKsNY3Zy2ZeHy9VhtzP3BEzb89y1tDtowNnGQzXeH8E7E+sS9y
ZLHsp7sfM70he0ZM4gfIkhNl5kl+TH9Q0DN446UgQypqv69Z4QXBZbUeY76+
NGkSxtrcnBkChp+tY+1CpUi3JtP8NPcIECkyOpj4QZKMk5tWdmFGQ1XosuaH
/ZLk28f2zWn8WNCr5Knv7VpNHu/WiZ/lxUFMw2jgWZ/VJJ/KAJfqeNjfx4Ah
+moyUbt/jsxMhNQ2AW61owQpb1f7RDPmEiRqWXoNlq4iC8Kun2a5s+BvyTZz
E4VV5Oumvd/tmcnQEvl485yAOFkSKmXrIpgCB7dnRw7Hi5GhV2L+SuanwIni
1V0/xcVIRtkRn2leGjjoFcW66YuS7Y2NDZrNHNBVMYhnvxEh07sN8MPV1yBe
1z/OzVeE3CCwqrc28zqE5iWxXZ8Kk1Oy53aMs2/ASueI2edjwmSN9uBN9Zib
YNDYYp4tLkzus3tun+ieAb8qm1JFghjk6bshzQeYd8Bo7P3R0cMYuf3JN2ac
fBbI08/HLctjJOW41i4nwbugmzkiO/lBiGwO/TMriX8XuMuPNom7CZFOWaed
Jnn34HzVqYMZsXTSVJt5mWWbA1vSsDblfXRSo+xzBd6cA8XVH8R4CnRypNFa
1qH6Prz9w1q66qkgGTmGt1dn5kEC3Va9c4FGuoV1L9vL5oOCfa57cRuNtBBI
1Rll50MX/WHb0fs0UlxumaUWUwCPqFFKurY08o7Jh93x7kVg6toxUvJIgKxP
SqqxYZbArOY2//KrVLJu+OMb0cISuO+ZNLnFl0rW7lnf27zxIdAtEx9YWFFJ
ZwF3So7CI1D985UCnUolD9UtaKiplgL3fc/3tAgKuddws4+8dhks0phhUfQV
Ys93XkDIyTLws73TIfh6mbC6Fh3eVfxff/hewCx1mbCYes3ibHoC+tO+Hg1q
y4RpifdfElueQqubaFeCxRJhwMycwqACIpF53e3CBUK/a9eCd2wF7NRTGL4e
tkDoxQ/RGusrYPsR0UOiexaITf2GsvEWlVBJveftPDhPaN3p2EbZWwXG01oB
9pvmCWU5LOrX7zVQu6BlWd7yi6ALBWFDJwkIlI0xabeZIQatYySm8wmYP2Os
3LxhhnjFTpJfGiAgbSBnbhGbIZpYnZxLuiQ0jbdoS73gE1ekxnIyC0kQrTZ+
3r2DT8ho4C9f3q4HVm3/JcNtPwmmGVtQNvEFhGS25/vaThHy3ziMjPsvIFdK
Y9rFYIpgJGSIqb14Ac2MM0fPyk0Rw9x8GW3KS+g+pvxUumeSeGj7fJ1JxEso
cQkex/wmie1usxZe/g1gVHCkzydlgrCOcU946tAELOkp/tiXUUL/ar1l9tkm
aGOeKWh5OEooZ6kz2GlNkKhyIaAvepSYqPvKOt7aBPqDWgYZKqPE9WX3FGlL
LmQEnmC5Hv1BDER53Arc2gzFuzfkVH4fJmIjPUt1ZF6DeVbchQq5QaIi3Ksn
t6MVMk8pdZr93U/kmfryFKdaIThfqCeopp+4TgvsuCrVBvYXng00pPQTIezI
hnD7NujCxLjtO/oJw2zOXzZdbeDg08YI4nwlnAe+1EX4tYOG6KaEvD1fiG5R
iasaAR1QsM6FA2mfiI9OvrpBoZ1g9sfl6YM6bwlJK7Z3PeJBye6zlYzge8Tq
d16Ptzl/guZE8d9lzF4BvtavMMGjD4qKJgbXMj7B9p5Tr83SvsJijef3A+nf
oH4+dt+7W9+AoF5LsO4bAh+Cy62L+w4xlg2HymPHId0zX1HW7R8oc8XJRv8p
0Dn8dWbZawjKdlvFrbHiQ+/0gVZkPQJffqvf8e7bLEz1rdGTOzQK6U3OlxVL
5yGlOOKEo+M4vLHhvVp/agmYEgybsFsTsPsGd1l5bgXKA2KLk7Mm4VKVtvyo
KxW90+RgdmlTcLMowfxisQBad6FT62j6NGyTpkWLyAsiI9u+LVm3foKqMKNT
JZaOegISTNlJfLASFlNN6RJCj42OiDekzoDd+og1xTYMJOfQ9LEgYRZybELe
apcJI+inpD4/+wtOPbxnZqMgitLlfMSZYXOwZDZ8ZCVHDMXd+ePi1pPz4HrD
X6NOZRW63XqzMTlgARyV+J5G9RIoyp8zoRK0CKa3S3NFnqxGI+5aCkc8luD8
ZH0oO1oSXVkaFuz1Xga9EfWKY25SqPqH1fgqpxU4WGxF8TaSRu81t/cbr6Og
s23/6LnIyCAfbU9dTi4FlVqIdhwWlkX1Ds7nzFSpaLZk4bUVXxYZHB4ulMmm
ooamzReTl+SQ3wVLnomSAGr1t7v3alEeXfJmzFM5AkjNxzjKZ0UBPVNxXxmW
oSGkXlrAU1dEVcuJtA3JNHQ/w0ui2lgJtZaZD7MlBdF6O/uxkyHKqGGtd2NS
miDatf+2pX+lCoqvOJT9VYSO/vdohrN5QhW5aHx2dWbT0cVybbfC9WvRQrmu
0kZMCJU9G04TfrsWRdKG3vwZLYR00rduDopRR3LrjNw1KRjaKarwWdFcA4X6
O/wUCcfQNVUnjiIVR8qGx7nMcxjK8ShpPSeII3IpMHNXFIbki/zu9mA4EmGz
LSLOY+jN22IsZxWO7hS/vDZ0GUPRi12DW5Rx1Diov5WbgSFz6UWp4G04kvGU
CEmoxdBPKanJE/44qtqgsje7DkOXt7oZfw7EkevUBtVnJIby9Paq2gXjqOC8
ZePPlxjCGsLLd0biaMfdKLnjLRjSvEj9TYmFI4+ekfJdvRgypGVa83NxhOXO
sVy/YIgzUbDvTCGOHvhhxyL6MdRiHfxj8gGOZhY0sMd/Y8hR/b3AZBmOWIpO
jurj2H+fY5Jn6nGk239io8kkhpIp+8+FN+DoXWHwyuFpDGk1TdCXuDhSNUrN
T5nFUGr/Tj69HUcvKFnnHsxhaKpko9OVThz5cB8c4C5gyNkh/KgkD0diKdX4
wBKGevL2rNzoxlGpI3d2ZQVDs8G1oNaLo38Bve5Jsg==
       "]]},
     Annotation[#, "Charting`Private`Tag$28797#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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->{{0, 3}, {-8.31918132352572, 9.933832160716504}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.81711848451934*^9, 3.817118513133811*^9}},
 CellLabel->"Out[73]=",ExpressionUUID->"26e2807e-1336-4751-8e74-d4414f081679"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Theta]c", "-", "\[Theta]", "-", "1"}], ")"}], 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox["1", 
         RowBox[{"\[Theta]c", "-", "\[Theta]"}]]], " ", 
       RowBox[{"ExpIntegralEi", "[", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"\[Theta]c", "-", "\[Theta]"}]]}], "]"}]}], 
      RowBox[{"\[Theta]c", "-", "\[Theta]"}]]}], "/.", 
    RowBox[{"{", 
     RowBox[{"\[Theta]c", "\[Rule]", "1.3"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", 
     RowBox[{"-", "5"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817118259896755*^9, 3.817118285169368*^9}, {
  3.8171184560131187`*^9, 3.8171184560921507`*^9}, {3.817118596543433*^9, 
  3.817118612159177*^9}, {3.817118697976997*^9, 3.817118718273074*^9}, {
  3.817118754442111*^9, 3.817118789499082*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"3bd71288-3233-4171-a393-57251fb3dc52"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlnk41PsXx78iM2XNEBHKrW6WlK2ynkmMtVsUSSWpUEqb7VaWKCFttyxt
WkSUbEUkPt+yxy1cLUIRhpF19pnvjPnN74/P83lez3Oes7zPOZ/nszzouPeh
eRiGMaTn/3eWvgJHIqHgHVvXTdzy5UKVaFHDOTEFZ8zM2Zj4cOFbj9ZNgZCC
q6bmHq7fzgXtW6vMWBwK/iF6Z/DsNi7cIzseo/+m4NtHm/s8PLjwcDZmpP2r
1P5xeZUQuPCsnv75dgkFdw3MlqUacuFtyPtKi30U3LIkKyuE4MCR8fmcgVI1
fN7zL9w1mRxQGdiQpqOshveYKkZ5WXGg1+pX4qXwRXiw3t/Bit1sMGvS4h99
p4rXZIbKd4awIbbVvuGnvioeuUhE6GFsyFP+sSR7UBk/W/qkOD+dBTnuZqf+
S1XCXeYpawk1WXDh6P4YQzdFvJV83F22gAmxss+iT00uxIMS5P4VGjHhQMKn
FV8KFuABC2ptn5TPQlbtSPa9I2ScnVZTt8h6Fn4cV5f3XUTCr8fbpfeXzoAa
edlyo0/z8bRk1uqYNTOwS8PJavakHN4LZT/nWU7D9C8/VR0dWZyelJp/kTQF
JzPdb+/rlcGZq5Tl6oYngIR26GQlYPjOPT83TN37DZS70Zldf8+hxqPr2r0D
xsHhcdTYnrcEEj1FqYu5Y0Ay2tlSpCBANK2kix1Jo1AYOytrnspFgVr7FJZq
0+FkzVuz+x0s5N1AexsQNwxqjZtq7GmzqGek69dtxi94lLMtz+XGJKqcgY4b
LoMQdim+6qfhGLrmutiQ//EHjJIMkn7pDaEV+32WvVrcC4HVngeDtvYibQsu
VtLyBUIP9Qo0bnUgxNbpcbTvAk9ZZ8FZ2hs0FJQQVe7bBo8nujuxlWXwIvzT
G9mbOCSoFM7c/NIOagPXdJ7S8mGw88UFe/9vYF2XEdHiUIgqqpc/ab8+COGY
/bugNw2omRnzUSWbDktXbOBlzutC/i3Xn/e/oIPzH4ZWOqu60NT9gpTn9XRY
VeNbUeHWhdTdvjm6TNMh7k+Ms+ZGFwp8sOF1HG0UQnQU2k2X/4f4HtwHk+xR
WKn+Le2Kczcyyjt9ss2LAQeuEB+eP/yC0neGq19SmACl+i22owW9CA8ooA3p
T0CqKdX5r45exD70KwYsJ6DE5GtyJ68X7Y3w7eftmQDGT3HQGpc+ZHrDIT+0
eALyv+yIgtE+1PlBeaO71yTUya535Zr8QIsdSnYrZU1B7HnO3QWhA8jdmXHl
8HPpHPiv9SmNHUBxnn/gjWgKtpicCg+9OYBG/bNWxI1NQdGzS/ZKaABVRcdP
TllPQ0qyWquJ5iDaXbY1vqNvGh4cTigc+DCItqnFdLrdmIHK5uz52puG0Ni1
vd1Od2eAUk479dpvCCUobf4KeTMQlr5E7ciJIVRCVu63qp6B1zxJlsrDIaQs
yR1bPjgDXnOxmYHYMGr7/UkiWDcLOWeert7cOIxojX+aPuuYheb+nPGI/XT0
w1HJLO/7LEwWGlZqnaOjKJxp8XB4FrJzzcO+ZdJRXk2tdSZ/FrDnXY+K2ulI
rny7c+IyJuwWbpgusR5F73Li9/ifYIIf6YL/gSVjyC7ma9pCVRZ06SRs75hl
IGNzNqdfmwWiRe5thpRxpD2hur9sJQvConqcyyzHEX+f+wY/WxboPEgq9IwZ
RxUutUN5wSwQaD2taZL5jUw1c+021bJATXbrqf16E0i3Ez1Vb2EBKLfO++04
gRQv96mNdbFgbVKKbHHIBBqf02BcHZP6k83oGyqbQPn0lIw+ChuuaxqJVrtN
Iv3K8KnoI2ywiplYLHNhCimfuLzLI5INiV8DRLeLptCcYUGDXgIb7ldEdcV+
nkJ99wfvNGawQSSrjpmsnkbZF3e4UN6xofZ8GGVL5zRS9bF5WKzJgTvMf1Ys
vjODJMo7FRINOGDxNPCIftkMmmo5HeWzhgO07TcP7m2ZQe12LzxFjhyonDww
e443g1JXLBO4hXOgn/bIJtJvFs1jz/ceaeCAeNzAUu5PJnrf9HJU8pEDuZ+P
RR2iMlHi7f2x2j0c4Hw6F6vhz0QyUFuwdZID5eo6W09cZSIsLUJSrcGFp4GW
j+IJJsL3GGR063NBTuwRVa/JQvFrO4ympe/22tHo9khLFprrNvZd4cCFTxHu
fZbHWUisP1R0NZgLSYLqpFPjLPSWed2x8AQXmrcsiTm/kI3ONTp8qz/DBc8d
f5eoGbOR6MgdWcFVLqyO2ej39hgbCSu8/A+85gKFsnmXioAt3VectJHMgybj
iDsLVnJRlV74fW81Htwrcwsx8eSimFkdi2NLefC+7v2j7NNcxMuMDni8jgcD
jxNHzOu5iDtoWqG4iwfdRV9Hig/yEDv6ftBgIQ9syVsfv3rGR6/cPfjESx48
Dd6YZvsfH0XoCq4sruPBPI91lx4SfMR6v6Pao4sHYkTbM+khQEwlRdVKIQ8y
8zSUBQwBms49U5vmwQfPnLOm5ZoEkn+5rybWlw9a89dtee9AIL33TtUn9vNB
rrBvwPcQgTwHlCt8o/mA2Qz9IyklUMHS3CKDXD6cJUV+JjaJEDJOeaZRzAeL
+wlnvx8UoS82xwrI1XwY9zaR/HlJhOR2bXgy9ZEPduFyo+QPIhSY0Xb3jZAP
Qw3d8bWuYhT9pPT2i/kCcI3IHZsIFqOrLzOyHqoKIMbc2Cvxghi97dx3M3mV
AHKqRor6a8VoiTI7zdtbAA53P97YbjiH1un2pDjvFYBd90pWseMccjWpS94Y
KgDt9YP/nNg9h6LcUxL14gRQbEcUrb48h7qSl54ZLxRAkqJxc/zQHGJkyMT0
vxKAfdEyhj5/DmF59MgOJABNDY1UE0UJMq0vPVn5WQBN3/VzrplLkHNXxvHC
AQGcjesLHHOSoD2DZ47d+y0Ao0vytuW+EnRZ4nQ4UUYIes/93XNiJOixslFI
pKIQlhqYLK9PkaA3uiqHQjWF0Nlp5BWQLUFjtj2Bf60RgnqFiq+4QoKcYo75
ae8SQnLPn1HyvyVo9yVvX6WDQqCdWxIkz5OgU5kbdmDHhbBGxt7cSQbDH76S
2Ua/IIQIGDisqIjhr+vpW3quCSG1t9xEYxGGf+xq82i/I4Q0T1XKLw0MF81k
uJSXSuOFKhxp08NwCnbWOa9G6s9BM4xhgOFGKoGbs5uEwLtqWfpxFYZv0nPe
dLlTCHa0czLnjDDcb40RxPUJweJR5SrmGgw/bqdif3JUCIFZG0fNzDA82YNt
c5AphNkD9QvsLDG84nDdencyAd2L96eXW2P4B2aY3kIKAfTSolsadhj+4+wS
+Q+6BMhljQ+6OGA4S655MnU1AbNRM8buVAwnX4347GZBQKPVWUNdRwxfqmlQ
u8CBgJx/ll5/txnDzR5+etLqSkCEppH6RmcMpxnGpqduJ2Ct64vQ8zQM9y83
inALICAN84EcF2m+tt92LzhMQDAzxPWaK4ZfaLi4ufU0AYbrq8x93DA8e4uF
cWocAd9/Zj2fkfKLLwNqbqkEjF/+GBDkjuHv910Vkm8RAF+vcZ9J+cuY7a+W
HAJuVZ7SaZPy75OM1pRCAiYfHY6olzJGZJa5viKgNaUm/5aU1S843SYjAhwu
in1AyoZKzISWVgLcNyutaJDGc8h8EJrSTcA2imLZH1L21t+yzfUnAVty/O8G
SPMNKRBuII8ToG+RER8preecWYF+C5uAxCfX+aHSeq+/8SGlSAioLtn5wFqq
R95m2WmXhSKwGV6tMCbV60176ReShpTnR3ZGSPX86BNQ16wvAnZ//8UBqd5D
PxTyLxmJYF2i1RtjwHB+SPUVFysRXGTHzvnaY7jibHAkiSqCbBPGQJAthi8/
o7632V0E1Oieya3S/rqnHzdxCRTBzxctJZ+k/Q/Q0FUnhYkgFL8YccAcw0/n
fCCaIkXSf6ZL0ve1GH6vdGUb7bIItKmP0iKk8zXd3XuYVimCDsJiXbB0PuUC
Ur3k34mgwNx4k4EOhmuNrrduahMBX1s1uVETwx0FN8i0QRHEWLXF16ti+C1d
16fOimJ4NhT1uFC6HwX5nKvzNcUgL/fg3k5CgmrX5kY1LhcDZl7pa8aSIPqm
OWfnDWLwbpGYhf6SIOvgV8NOQWJwLeRnCuok6EfxMgOnKjHYbHrZ63VSguq3
7bP0eC+GZcNWidUhElTAvE/zbheD0/n5pvIBEnR6vU5Y4IAYQlUYT7a5SxC5
TuPVOfIcHFUQKFctlyDzfxfSKvzmIL5pTYVN+xy69Jt9eJVgDvY1NHnIUeaQ
1q1hPzldjBqduj4u/YwIvdj98CkrRobaIUm+eq2Fj3zt411baudR/SKec0aO
cVBpwDEDG5EsVfvfvz5fPsBEvIWbZat95lMnqxIjHrVPIa9O2/W62fLU1hb5
5L2NDES2VXj39r489eZPVx65lIHwJ9899uTKU5mhSd9r7zCQaczf++8Wy1Mx
jYTBzScYSFH/dfqSRnkqqPfvxnUYqOWo+ZAGU5561NBoR1TEGKKSDa8re5Ko
C3NL2KUmo4h/kq9d7EWihp466JmgNYpKepvztuwkUf19MsP85EaRXklwTXoQ
iXrPcc9vgz46Evk8oS/8m0Td+spk77J0Onqdq29PyidRfb+3RlRNjqBwpenm
/OckKvMg9+Oi7yNoVXSdN62MRLXRxO6fbhpBt9z3hl58S6L63ZTEb3swgk7N
3rkp+x+JSnkZ1hnuNYKMdh/Ry/1GosbSzGwUHEbQYIN1oeMPEvVsYOlkidEI
2pb9re48g0S1xk4sU5MbQeR5BW7Lp0lUO0jI+DQzjFBYdDfOJlHlkxjUjP5h
FPWZti9QSKKeVrmte+DDMDKFxeMSCYl6ZXfcKuvXw+h/dZ6DUw==
       "]]},
     Annotation[#, "Charting`Private`Tag$30283#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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->{{-5, 3}, {-2.0365202087767305`, 1.3961381174203673`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.81711826124573*^9, 3.817118285378669*^9}, 
   3.8171184563554583`*^9, {3.817118599026042*^9, 3.817118612354436*^9}, {
   3.817118702491795*^9, 3.817118718504663*^9}, {3.817118754989955*^9, 
   3.817118790104854*^9}},
 CellLabel->"Out[88]=",ExpressionUUID->"203873a1-0dd1-4567-8d12-97eeeed127f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["1", 
          RowBox[{"\[Theta]c", "-", "\[Theta]"}]]], " ", 
        RowBox[{"ExpIntegralEi", "[", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"\[Theta]c", "-", "\[Theta]"}]]}], "]"}]}], 
       RowBox[{"\[Theta]c", "-", "\[Theta]"}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox["1", 
         RowBox[{"\[Theta]c", "+", "\[Theta]"}]]], " ", 
       RowBox[{"ExpIntegralEi", "[", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"\[Theta]c", "+", "\[Theta]"}]]}], "]"}]}], 
      RowBox[{"\[Theta]c", "+", "\[Theta]"}]]}], "/.", 
    RowBox[{"{", 
     RowBox[{"\[Theta]c", "\[Rule]", "1.3"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817117020437071*^9, 3.8171170338371983`*^9}, {
  3.817117398498486*^9, 3.817117468187888*^9}, {3.817117512932067*^9, 
  3.81711758131702*^9}, {3.817117681614869*^9, 3.817117690510559*^9}, {
  3.8171181424068317`*^9, 3.817118190671282*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"39644cf7-65fa-4952-a674-714ff8619dd6"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtWnk0ld/3Nlzz7FZCg5BCyJAGw36LaDCVKTJESEiSREoqpFKSWUgpc4Ui
SZ3XLPNw7/1IZJ6ne433XsrPb63vP+esZ+3nOXuvfca91tnlfPWsKxsLC4vP
RvP//Z0x4/n1dSJuVHC8++NHCowGbVn6vUbEN1W6P9j8gQImwn0rXxhE/O2D
UyGB+RSQOuzz9+oCEVdoYV7VzqFA5eMX3P2jRHyXfTrrhzcU4Fb+bwfeTMSF
rkT/0I2jQKzfhdMhL4m4vtneQf5ACvzlljexSyTiI+dv2By5SQG3VJrZoTgi
zvorc8X1BgUO1t63oj4j4mZZ1W++XKNAt9g7pwv3ibjw9b+P9D02/H+buIld
3oiXze0E+3kK5LFef8tykIgXPPJO5tGiwCHzXM4kdSKuVvHBuekQBWrfDrir
7ifi61haVaQmBfoNzZSc5Ym41n1uQ041Cmx5plRSJbnhH/8n1rOXAvclxuvC
WYj49KUhpvAWCpxTt5/ibxDF/Uz9RJ7PkmE0NNb4Xa0oPn1dN5N1mgzXKY0f
dapEcV4pyyc+E2R4FnjEz7tcFBcrL9c2GCZDFRL72/pBFBdXP0xv+0UGZaMO
wZgYUVzlfn6WUzUZOFwN1cTtRfHZhQl+hwQydDioWk/ZiOJp/YcNMmPJkHZO
8vZ3K1E8KfZs/1Q0GTSN5mqczETxnQVjSlcjyeCmnmCTqyeKFxPd5izvkaGe
dSxES0EU3/zhNu8bDzJEpoW32q+I4JfHB7fLapGB2FXj9SZaBF/2cUzQ6yQB
rvg6IvSZCB7PtnxosJUEXndvv3V7IoIrPLD/eqeJBLVy6j0KYSL4qmv16bwa
Ety6kX76U4AIbvTpvEf/FxIMigYpVDuK4N4sfVIFL0lQZLx/fERJBLfit/Vu
v0ACx9d8hHoFEfxB1TtfTnsS8C+N7szdI4IfKfRnHLQhgVtKqrX3LhF89pzl
/ednSCAxxVu3vEkEb2cTVhA7RoL7ESPvuNaE8U2pmkIB0iQ4W5V8Ub5BGE/C
Wq9e6+8EWdLwn7paYXxsPmQL6XcnLA8r27pVCeMEHl45tf86IYmzyiyjXBgv
/e/Llf7mTug/OaWz/aMwbhfJkOL41glX2rS2isQK4wZXv4t4xnZCRG9PE91e
GPfoNfrvoV4n2M7KnUiwFcY9M048NNHthH3rPlUHrIVxrrlHnMKHO6FViqPM
10wYv+ao7PBAuRO2uChlTR8Txnv+DfcpiHdCxuSde/17hPE1UcGIgJkOCJrT
8Xo+JIQfe1qzNBbdASlOB8exXiGc78fMyYuRHVDeud+FRhHCz7oFBv8K74B/
X2TszjYI4TKz+jdKgjrgfgiP0aZCIfyIx1FhNdcOeCxCVkwMFsIXzp1LUzzY
AcnqXlOvxIVwaxJGIPzXDt/euV4yIwrhD2Jin7a3tUOPmOMQi4AQPrWKmyU1
tMOOtTO/nViEcB0meIv9aIc31QcbZcYEcbWQkkvNb9shx5I9L+uzIK7w8pCJ
5LV2KL2Z7PHRVBB/tt/eejNHO0i7XHvXdUIQx7+/0Hn0tw2emp3oZz0miP8O
qQ5cWmoDZ/llSwsNQdw5RqOzZLQN+H6fOcrYKognS2Xv6qlrAwddnq16gwJ4
8BGFmpyINmDnCKih+Ang8w7GOURCG3jTTFhYvAXwtPqi3ewrrdDVu1tL/pIA
3vb1llfzSCvkl3QWBNkI4Go7GVxKVa1g5a6SIqUrgEu4mltuudMK2Y2jvh5c
Ang+5/GpuzMtYPLCUupfEj/+MfhS/sZBBbfUhE4axvDj+zwbutfymyGzo/7a
80h+fFvDs5S6pGb4J6pdJX2XH49SuBQqfb0Z3sdIuxm68OPrct7hU7LNwB83
l/dcmR93lAtdLwltgoaERwdlqvjw5c1W22I0GmH5oN4Fr3I+fNrsN2vXjkaQ
7lqLKC7mwz/NSMVy8jTCra0+3YbZfPjVKzM2Ur0NIJ9kdcfrKR+++7ZWul5o
A0Qky1QVW/PhnGQnS7WWn2CY+t3kxDQv/lnST2TBtB6oT3vWCKO8OOGzve7w
oXpIDl7Nrejjxdl+pXCiXfUw7XiYS6uTF39EdeVWXaiDF9LFSKmMF58wfbCb
EFcHf7Ly9xMjeHEHpYvsZ0i14F/0UvSPDC+eqZiQ04bVgFRGGZ68nRdXMSdu
qZargZ8xv7ytxXjxL1f1fqfy18C2G2KNbby8+IecZ//Yu6qh8mDMgyoaDy5J
io1IuFINgt8fL2YjHrykb0GlMqYKMusCKdfP8+BnpUjKZxsrIEnNXy/Hggcv
FDUXt8mrgMhU34I/xjy4oeqHczpPKsD3uufjkxgP/rYucV/qqQrQ2Wmvu3M3
D17hknOruA4Hkj+W2TDLjePFRyf1/RGwyXH577rPjaeb7Ax24PsGS8/Zh6yC
uPH4y04XN1WWwfjqummkHze+f/cl78CAMmhpp8uvuHHjfm9inE2Hv0LSncne
ptPc+FlBm7SdpaWwn9x8PGAzN56rEu28bFoCDqGxm1uzufAeUkpMuE4htMAy
V8AbLhw/5mg8O1sAsGrNlErhwvk5dd6xpxeAlK9kn28UF/5cXD/nAGsBDDq+
yd7iz4UnfjYMPHf3PbhpFWg56HHhJ1yYAWI22eA93+g008uJh1Scqp3gfwl/
3itZxP/HiV9gNUvTyUwC08tRBtDOiT8f0j5K1E2E/f1nFaOrOfH0d5MV2pfj
YL7516JG3gZfR84k3zYK/HPGHt4O4MRZhjn0NM9dheAL7B/4iBt6r/h4elss
Kmg1fEbi58R91l0bVpzj0aBupHcqJyeO+SXcfr2cgAy2b1ZRYXLgPhLtGmvS
L5Fgt1zB2QEO3Cwkbj97fTpKMz9VlPSRAz8nV3sy0SELIYPokj1GHLjw+B7t
lylFaL6YHE89zoFTA+22XBH6hGR3S9z8Chy4e3mdbdn9TyiCPePgaXUOfP93
J+efHp+RGf651FuCA+/nKDD+iZWg/sNdZcXjBJz6KvJ2O6EMsSjtRHphBLyD
uXsqho6j21uOOoQFE3DfqEPbeqECraw7/629ScD3Sl5Qv/WwAs12ZGqd8iDg
O8QsCwrFKtHvAOVSM1MC7vJOWHeXdhUqqdYptBcn4GW0tUCHuBp0xc4u4+Z7
dlzuvlekbmQDGj8efOxrJjtOutXZ2P6nAbmopA8wX7HjWMhr21rVRmTLNrwz
+AU7fm53tBS5qxGdyPZMCb3JjvtqhrrHKTYj2cVbcdFH2XGLWRKJdbgVdT9J
ephHZsPFz8w31LZ3oM4aqfwLrWz4R1DvOv+vAzWtZ7Vt/smGW2+tVt2l2Il+
XC8RDylnwzl5w6/rhHWiN+c78ywy2PD7Swn1uBYJeSgKtP31YcMFHtdGbyki
o9WGkK1m/Gy4T47SP96aLrSN1z1n8RgrnnXfUT3pcR9y+NEUKa3Nig+Ew0Wp
n33ota+qj9kBVpzAtVqzwN6P5H4zNfP3sOLRf+1qJPT6kUr+0+qL/Ky47Meo
tdHKfnTM5FNfB5kFN5XwsPCoH0CXX/zbXOjOgnc9lRw1mRxCngcUOH5vW0fu
JmH572+NI1+Or1n+QutoTa5ZNPvVOLpFNjwlyraOSiSlpPKrx9HjG65RJ8f+
oXM/V740C06g3OJ08dLCf0g9DBeyz5hAEwfElOMM/iHiy2mLmqZJdEmTYG3q
8xct+22r/io2g7w5YxiTzn/R5PuDSelaM8ifsisl3PIvstkun+viOIPC/WHg
+5G/iMq1xnU7cwZlltzy3MfxFw2vlpvmqM2iEU3aXZ7kNRS5PL7tFzaHpjlD
pN9FrqHSoksf/Z3m0CJFsAa7u4H7prPq780hws19vAEua8jh+3v9OxVzSPbL
pdhR5TUUJt7ywW0HFV08+Ce7qmoVbT6bM7IYRUVu2QetDL6sItWUOVPNFCry
EI9m/5m7io4ryBnqZFORz6qeQ0v0Kjqdzv81FlHRbZRD/OW4itzvyo4cmKKi
u/vZK86br6LD7JKKPktUdP+1nfcfg1VUfb2v/8I6FUU8EPo5pLSKwCj9mr0o
DcUa3gieXWWiox2DehEaNJRQ2qJ4bY6J5rsOOmhp01Cy/N5fC4NMNK1+5GeM
Hg2lJt8L96cwkQtXBkSdoqF0vt/qjJ9MpOHrcUPxDA1l3NYYCPrORFN1/Fvd
rGkoc+bps38FTBR25b8WbXsaet+KTbAnMtFf7oOMz5doqABLjg9/wkTBt9++
OuNFQ58LF/R47jLRDodKPMSHhr5IG9Oe+DKRg8mbSfCjobKYzDRBNyZyHSrI
irxJQ98JLEbRNkxUkG1w1+UWDeE3bBhE4414dI8vV9+moarRosx4jIlCjlVE
5QXTUK01v4W4BhNpln1t3hxCQz/rXVlT9jCR1fteVdZ7NNR0GH3YIclEH0ov
6Hpu4NbcrXavBZko0brP/8wG7pD05ZFlY6LwAnOnwg09ObKxJHOJgb4VST6M
uEtDXX9lXeQnGOiUjYg/6Q4N9XgHi+T3MJDHVHHFiyAa6uv774dyGwMNbLpG
qAigoUEzVa/CKgZifB7ut7tBQ6MVj8U1vjDQ8jErdpdrNDShNlxbkstA1Cxl
GdJGfqYzdPwOp23ovaIJeRv5m9uUsKs8moEStvLfGnWiofkwaotuGAPlxTm4
hZ6noaXlk7crAhhoyMf+x30LGqJfypDX92Igk9LZx31GNLTatUapdWSgIk3p
qUR9Gvp30ir0pDkD9ZW6bnmvRUOs3z6qNhkwUMcy2UFCjYYI+3j6TI4wkOK7
fPW+PTTEleoc2a7EQA5iTTLMbTTEK1h+2GIXAzV/c++/LEJDIlTvWBtuBmK+
NcP06FS0yan+aM8qHRluPsSXN0lFWzt2zTnM0VFLMn3lYg8V7fhMOulCoSOe
eNaouu9UpBBwZN37LR1tL2a7ZBVARXivicJQPB0NJ08tvL5IRVZ6Fy2tH9ER
QebmMRmTjfUuGJkH3nREDQ7qapWiol9ve62FD9ERubHMw+zWHPLmnb8fqkBH
UiuEyGn9jf3pw/mBvo2OSu/0NuwXnEP7tVQIA6x0tHuJv3s4ZRZFtIcUFDau
oMIo5lRm/gzacTDu9+4fK6h+N9eZPd4z6HNKDmdywQraUXn1E0V5BvVf6rC7
H7eCpF57RGz/MI0O/pPhMXdcQfmH+5y4sqbQqEKd0+L8MuqO3nSlJHkC3X7+
O9J9ZBnJLe9Jf3J+Aokuz33p+W8Z7TzxLP/Y9gmkW7FVsKZ8GR2JuW37KWMc
xVl7lMWFL6PXzayiuT/GkML34BGewGXEUOXIyIgYQ7h0jHCw5zIqjcg9tGw+
hqZnvrm5mS0jO5FfDVmzo0g/VIB4UGIZlflI1SWpj6LuiV26efzLyGrpuS6J
axT5mGpe3rm+hPjv1a7L9I6glxKOiGt4CS1lC45VPh5B8wUFnl3vl5Bt7Aj7
Geowet1rXh14dAld4u1jb+geQmrDakySxhI6dsjje3L5EKqeFNm/f+8SCj2Q
39SeNoRGV1pfjgpujPcc83R1GUIKokbXzXsW0etH+W0tC4OoyEBfWunmIsp0
87ofumsQ6RnLnIvwWESV/5SrA7gHEcmc7dmQ/SJiYSe0v58bQMsXcEaS/iKi
BB8/QPoxgLSCtNs5RRdRilVy+aTjAKr+qBHSn7+AXK7guYr5/ciyhFiilb6A
3H2asp7H96PR8vmp+JgF9F2Q97HMvX7E3VBgbXxrAZ2j7wtrtepHxsP7VMoM
F5BkvPp1eUI/omzd/SdmcB5tqTx8817THzR2b7O24dZ5pH9y4POjhz2I987H
uRjeeeSU2M1j6dyDlANOZvSv0ZDF5UOVjjo9yN/7Du+tARrKP//otsrib8R5
fqQrP5eG0kR59qW5/EayGsU3RHVoqHGyMY9h2o2cRy0+9jpRkaRadVrU6S4U
PjDrrGBBRU7mmqY/9nWh3J6ILTcNqOjCx4rEzYJdaL6j/I6wIhXdytq/oNX+
H2K7ezIxfHwOPdR8s8fW5j8EqhPtZwTmEK1c77q/DwWVxe09Pm41g2pl1i3t
vpAQ9/mxi6zaM6gR3xGvn0pCVlKZ9yV2zaAacGk2fEBC87kyuNHUNDI3VvmX
akpC8vgOrcK708ig3zHv3kQnSpzcpHorewq17nXznNrViW4A63Z+5gSSu17e
lZbRjvZP/FpUSR1FKfrC56d+NCP9st88fzfyzM38Mvwiqhr55HykixA7EXf9
5bSrRl+QlZvM647bX1H/f1IZU1/TUF3Tr8fq5qUQwueYz3M2FY4oVRSZJXRC
fVnf9/X5L8Dmv7nHRbwf3I/n3OfTqgbbC7kdpRr9UH72WtS9C9VQdAp+8pv1
g8aQSi93eDU477xc8jm8H7qky4ZPt2/UI/XlzwmL/RB6R9kq270GHki6HH/b
MgCR/J+8B5JrgVBR9GHowRAcOykslSr4E7j4ze45z45CyaxrKU23Bc7tscU1
ecZgTdHm1a3LLZB7zGWdV3YMbj3tS9sVu1FPBgbc+WQzBnJTfwiNEy0QP5oe
SKgZg8Gq0Ysx8a0gV0G7lvlyHMRVJl12BLXBcf8Y58kTk1BKL+wWH2+H+OjU
1z8ublyFN4SokevtMJ6f1f8ieBL+ujU4bhLrgMihbw5anychaKFM0smgA0hm
w7aRO6eAbJxet/KuA1wUD5grL09B9nVtvVOXO+FBP0XPN2MGxlJnxVTYyPDn
6+krAeUz8KJrIosiQYYjMXh8MHkGWtYa6uLVyUA9njvxmGsWBHhHvji5ksEh
705UhucsaPjNPJdv2OD7y/4mqc/Btr9nhH8kUoDBcfirpDMV9HOaH0kadUGm
70JzmjcVqmx/bXd17wKLvveDu4KoQL53y6U9tAsKSqX598ZS4YykcR7xRxe4
efI7atRSoThSj3ZK7ReQ2voIxgo0+O/7i/MTu7qh4GW4WfA8DTTpTcbhu3qg
kRg+JsQyDxrMLA/a8R4YfRIW/FpgHng0BOhJHj2w7XZofvXeedD0O30463MP
RNjd5+ZznIe4elX/ltO9cGF7MJ7QOA9adfMtBg//QFDcHWv5X/PAyUj04Cn4
A/ECd2bLRufBftvFcclff6Dpb9C2P6wLQIryO625rw8O/QkMkD20AI139pzx
pPSB8Ksb+wvfbtg1PKbl0/pBUexG3bGiBTh6mEC4UtwPBlF+DiS0ADuOdvmN
NvXD7bvXI1e6F0BuYJv4vbV+GHe8Nq4jsggvuPR6AhwGAJe6kt5wZxHGm18H
f1UehN+JXgftniwC1aBGh/fUICwLe7XMJC6Cia3V81zXQdjH6rkm/HkREl6o
jw2mDkLigPs568lFKLDR/nBTdAiuvnERHrZagmGq71Sv4DA8C0xKeXZxCZon
/moeUx6GD2Ytew/7LMG2aK9D20yGYfbfwaPPHi0B3fCA+fGoYfA6z+d7qHwJ
jDITpMS2jkCkGvZvsH4J+g38czq0RiCf58bjp+QlOLGmkqxzYQSmvvx5Mzi7
BB5Te6+Y5o2Ax6aizshdy+BiVRJTe3oUHk+NOh5UXgbNtpfhVv6jkFspOT1w
ZBk2hfln01+PwoRPGOGgxTIk7jDISFwbBffmcwcGwpeBu2B1vBuNQcTbpxVP
YpbBQGnLXNLCGGQHVRprpi8DpVjm6O294zAmv8/tyddlMJ7QgLC4cXALX48/
ML0MdhVSL/YETUC4vYZMP30ZWP44EWJKJiBT4/LHxxwr4Fiq9ixjfgJGBjvq
+nasQHnEOsnGaxJcIJP+6MwKbMmI3xd+cQqc6Ua2f0pWwMJtefCw0Qzcb703
GlG1AiUXTTZtezgDbzJLfNXbViDm1iILVjEDAxZSTyImVmC2qmqFR30WLhQu
fFPbRof7Z837OPnmICRi74nevXSI9U3NN9Odg3RHe9LDA3TAT1/fctVnDvoE
6qZ7TOhwoYjGxdE+Bw4eydsf3qPD3f2nFJ2PUmH1F08L7SkdWG60NT+0pELi
ycBgu2Q65B5dSiFcpkL73nN9qp/o8NKRfeu/p1TwTqyLSkF0WHQOyQl4RQVe
7oMYVxMd+qTMFQ0KNvbx2ObXPcN0wAx1P3S1UqHfKuyMIY0ORdxSKal/qHCn
dpG16C8dTrAwjYqnqVDyrtP54RYGBHt9Ee/jpIH5Zj3ivDQDnnVRy+ZFaUAN
LaqyU2EAgZQlY7eDBvIu0bJqJxhQKZO+6YA6DWo7WcgpFgzQ1wg6l6VNA2c9
nzAuJwa8PlND9jtOg/WivgO+VxjgYFJ24JUxDVKkTUd7Ahkg8NpTa68lDQ69
+BFvGM4Ax1MPKkTsaEBmVTYsesGAT5bSpfbONPC9lrqy7RUDCuy7pQXdaSA4
wJ/9MI8BD69UbNl9hQZ5ZrfPzX9hQPijV6Vvr9HgBD7FbV/NAK4dB7SibtBg
WOX817q2DRyZ1DsaQIN7rxouq/Uy4Dd74cT7IBrsEDoikTrBgPru0qLROzQo
C85p4FpmgE/YREzMXRpYz24N8mVjgusFpbmSEBos2kco9goy4Z3PlKL5PRo8
b175bSjJhASDkWKPDaykcymyaA8TZlX3rK1v8BvyKdrbNZjgtszjs1HPgNs2
g5mHGBO6NY+Hvg+mAXtkceq8ERNetYrkN9ymQfqqrIm9DRPsHM7bXr1FA23P
2H91rkyQ1mJhTbtJg1/d7B/VfJmAK+4UtvGjgf+p646pwUxY2Om79MaHBqJl
g0LcT5iwerpYMtiLBh/lz+K+CUxoWhWfnL5EA6OkCp/eDCbsDKmuom3kd5xb
ddeJAiY8TLHgirKnQVhAentRORMshm4K1lnT4If1XbUIMhNKIqU/CZ+mwfm6
2cH5ASbwhM+NyenTgK7pEGM/y4T4OG3BgY35V92is6jGtQqnrt8UO6VEg5aw
/LepxFXocj5g/1eWBh5LkpbcUqvwSu+9jf02GrwlMYt7D61CyGa/aUVeGmD6
Hm4njq9CwZus3DQWGvR++rXl05lVyD0jc7V2mQpbYkpvRnisAlV5B4fOIBUe
nfE/rJ6yCv9l7QxeK6bCiyYFr/ycVbipKX3NKIcKKYZ9abu/rAJaq99ulUKF
Ap0ThK0dG/zKovBX96jQJS/Rusa1BpM1/vYGJ6mwl+2HS+31NTimt/eFTuoc
1BZxPLc5/Re0g7QuBN6aAcKmuNG7zH/wbJNFa+qvcRCdDRYU5VoHjZQfFb9K
xmFXvbvmW+I6dBNjyrfHjoPube3w+n3rQFpJScBNxiFweGi3iOM6sBn/uxBa
PQazn9Vc31Stg1yEDyOiaBSmFcavORuwYH3H+aK7Xg7DolhvWJ4RC8b4UZey
I2gYVgkdSYtnWbAhkT0ng2yHgbfvW0W4IwtWuv75XqD4MOyJiRLJC2DBovPq
+6MSh8B5VbNwIZcFq9a9V2r2chD+awyjhgqxYvH6nxxlP/dDrG7qccstrJhs
6UT01th+OFv4OXn3dlbs4dYj/vv8+qElfki/VoEVGz0n+vjTxjut1uloEpcB
K7ZlzJc9xLsPSlbWjj6+zYp9dsnZ+iG0F+Jl/GKiJlgxwVcdx//r/wUW8U/G
Hakb+gtXXxRl/wJRngyd/SusGNIwtW/y+QXPZtvH2ghsWGHhjtEy1l8Q/lVF
W1SKDXvOGtZ5V64L/E2nhmOt2LC5AotH4UEUsAxy1kyuYsP+hL7zPH22E+JT
N3Gu/GTDJo6xT/yW7QQKqiWbt7Fhllc0Z1JXOsCKoHhDoJcN4zy2s7s4tQPO
PV34FLLMhn1jKfDYP90Otq9CVS/Js2NNLWL/9r5ogwtVmfs0otgxYcNi72bW
JkgfObf2PI4dq7UeNkgvaoQBLr6mmZfs2LjW59KGi43gbHTVMyubHQvnf7kk
W9cAF8kHcyUq2bFZ9d0fh6N/gttY/R7WJXbMO7fZEDtYB158U9IttgRstGa2
ZfxHJUwFlhH4nAjYW/Oco1ZBleAx/mjU8BIB6xYOZxE4VAmXavbmVlwnYJU2
h8UtiyrA+a6banEkAXPQoFYY5OJgszAAKT8IWOI200MdJt/B4HeXnYc0B4Yd
MZNhyymGmpPZull7OTD9k/uimGrFoF96U2pYmQPTWDJmXvv+GY7GbRm21+LA
zjk+DPnd+Qm0TS08z1hwYAQ/P6NHnEWgVtUaeCicA+tPXYjL4HgPO/Nq4zkn
N/DLJ/Kixq/A4lXp1wYqB8ZyM+2v3tNUeByT2/NshQOTmtZoD2x9CYtBz6TF
ODixtr+1GmM2idBgZPVhjxQnZuYw234vPBr8Z0dqTlhxYnjazZGd8z7QrMqx
9LhyAz/Y/Xt5MRaxya2Imf7kxLDW46GsgfHokMTEEWIbJ7b/dZaBxWoCesPW
HPKyd8P+kr+1m5mMAjpj+fPpG/40rORJvulI9oasbLMyF7ZXlP2qkGYmCirV
Mxd6uYH3DB97/6IAqdm1UR1fc2F20YQOy4ECNLlu96wgiwvj3hEfl69SiGwN
/X+e+cyF0cmDh9waC9ERSjbENnNhswuaxpvWixB9QWCfOAs3phuRyvPeuhj5
q3QRZFy5Mf++/QV6bV+RcqfLm+ue3NiH5isBFzeXoVF/GlRf48bspPdGatuW
IcsfvEGuwdxYOGr4LTlUhjSMdWhZCdzYeHnzdALtG1rweNO7r4EbS353gq+R
9QfyyfQq0VThwfyVTqgm0XH0p1UyTlCTB1syR9dixCuQMaPh+qg2D2b8NuDb
5SMVSMFIXjX+FA+2UkiSyAuqQMO0kbwlVx5MeUdlU9haBbLWcXz9OYUHG5fJ
tsBXKpEu6UykGi8vVpNcU+dOrkb5f1k8eUV4sbwFCbkD89VIck/ByUExXmxy
68qrQcEaRA8U5HqxmxeL4tG9NWBYg4p2Nt6jYbwYSf/7T9/SGrTbU/9mwU1e
LCLOXpM9thbxsx10Vh7hxZz9zfyaDtSjrzfZzUeneLGQ91H0xyb1yG2mVS9t
nhfbMtDRrnKpHuFd7rsFWfgwsXgrxr7EenT9Y/L4jAQfRtpla0yn16Nuu3/e
7834sBOLp4nTxT9R9peaoH3lfNgxcZuf3DsakaXSC6/hSj4s/oPR8Xr1RsSW
4WCf8pMPc7AeDr52shHZPVvR5f+PD9OjTD2759eIhFzl2aZpfJif4QdK8s9G
5C/6NCJvDz/mbpysW3e1CR2/YhGnEMOPZf60G8vNb0Z+L76xXE3ixzZZhcU9
3KiX336R9vr0ih8rz5FwN29rRmxstGPa+fxYh1c4Kl1oRnj8U6pxDT/2ufn7
5vLDLegIXnv62go/Bibywp8rW5Ay8TBb6XkBzFFB8Ht3fSuyP5R+Zc1JAHvK
HTr5rasVRdpz/cLcBbBIrW7dZ+OtaCqL/PGnnwC2f6n5NDuhDWVr+9r/fiqA
iXyY7JCRaUMybnml/5AAtpLES+W70Ia2ft1+9bisIFYYetYxh9SG/l3MkhRR
FMS4Zm7bnu1pQ8OCqvU9qoJYWH1r+sJQGypw0d/lB4JY5uN8lZ0LbchQ2LPz
ja0gJmh1+LCkSDvyv1R6kCVaEONUSpl/f7odkTebs3z7u6GP0C+//q0dleE9
+eEEISz4+T44UNmO0j3dbM7yCWH1DJyFWt+OvCoCiya2CmFlLn/Pn6G0I8KV
dJetGkIYzxXjA9XUdqRRPVN/w0MIK9ou4+Uj24Fe+EZE7/9PCKsI3swj8rAD
MZvySyN6hbBPm7pV30R2IOc97X39Q0LY5hV5JeUXHUi9R1w5miqExZkJf9RM
7UCTbyxH6ARh7FmuoTvvpw4UyT92z2aHMDYkYTmA93aglj6ebxJnhDEWsrzr
Y5VOdDbcVCm1RBg778Fwf1DTiTJtqCe/fhXGxE5kR1B+diLGvmg3crkwxiV0
8cvulk6U3tnxSqBKGEtV3WRWSulEM1JWosGtwpjCLd22D2OdKOKb3YrDuDAW
yJUtOMxNQj+olyukJESw989th8JPkJBoNe8f7e0iWF/FoJ+zEQm5JuQxz0mJ
YPScB3ePmJEQv+6MerScCPbjwjX+fmsSsnnik8mqLoJ9FKDbsl4iocXdN58M
nhbBBLLsfF6FkpDC+VDLt3dEsKMdWnwO3zf410pECfdEMM/z6oriFSQU8XC8
9WKoCBYmdfVFWzUJjXwyOiXzRATT03ylr9FEQun8m+FNogi2dvleYms3CW3+
8W5v+icRTPqO1Mq5FRJi2VW3+nJCBDvi6Z7UrERGKgcZpavTIpjvHhnJrapk
5GCs6H+eKoJFJLw2ctQgo2+BUVSJFRHsrdamxqEjZOTfYT2SRBDFvPMNHtcY
ktHUg/GWhJ2imGKVXN7sBTKijPK8ibEUxWpV9V5NPSejWotHKV/PiWLN1OLD
6TFkVFLJndB3XhRbqec/ejaejOLTuCIVnUWxwD8irz68JCNLKw7/Km9RLLO2
kHQik4xINSynFh6KYm7HgJXjGxl1vF2hnS0TxXq+hjXnDpJRpejN6YDvolin
frOwyAgZFYUsj6bhotifM4FsN8bI6IXd0u/JWlFMmPUD/cA0GZ3ZtFBzv1MU
Kx2fdk1ZIqO2B7NJRdOiWMez+fE1LgpqcR45KrqTiBnwZzqIK1LQACGLHidN
xL7Ec20PUKKgxUz3j+JyRIxH0wkjqVCQ+NTUtl1KRMyJHohCNSjI5fr8iooW
Ecs/KTtQq0NBzAfr742tiRgvNeBruykFyb0Tl3gURcSotTuCRHwp6LDh7zb+
GCIWL7uit8uPgowmUh4+jydiRnL7vyr7U9A1JamlhFQiNnpXovDYLQoqL5Zr
y8wjYpQnJcKm9ynobK16eHUdEav87mC9Gk1Bru5L2icaidgRLp6e0RgKCuD9
stDYQsSs0oKU2uIoKNXkiFMnmYhtvhipm5JEQeMUTHtwiIjVxReYSrzeiDeA
bcF1jIiVvVz3WXxDQQKS1TkTk0Qs8cQj76a3FKTmaChGoxEx0+V+Dv9sCjrO
ytPit0TE9jv5ZRjmUtC5jIZQOp2IhRs1y4rlU5DH8Uit22tETP/TzyfD7yno
f//dsP/9d0P/BzbuEvo=
       "]]},
     Annotation[#, "Charting`Private`Tag$28367#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, 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->{{-5, 5}, {-1.0940964161523357`, 1.0940959077164842`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8171170262142076`*^9, 3.817117034051578*^9}, 
   3.817117468553701*^9, 3.817117526971801*^9, {3.817117557928603*^9, 
   3.817117581532714*^9}, {3.817117683076977*^9, 3.8171176907835217`*^9}, {
   3.817118142969657*^9, 3.817118190961885*^9}},
 CellLabel->"Out[63]=",ExpressionUUID->"16b2f1f1-4bda-4b9c-9a2d-c4721af32a8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{"Det", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"R", 
           FractionBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Theta]", "2"]}], 
            RowBox[{"1", "+", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Theta]", "3"]}]}]]}], ",", 
          RowBox[{
           SuperscriptBox["R", 
            RowBox[{"15", "/", "8"}]], 
           FractionBox[
            RowBox[{"1", "-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Theta]", "/", "1.08"}], ")"}], "2"]}], 
            RowBox[{"1", "+", 
             RowBox[{
              RowBox[{"1", "/", "20"}], " ", 
              RowBox[{
               SuperscriptBox["\[Theta]", "3"], "/", 
               SuperscriptBox["1.08", "2"]}]}]}]], " ", "\[Theta]"}]}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"R", ",", "\[Theta]"}], "}"}], ",", "1"}], "}"}]}], "]"}], 
      "]"}], "/.", 
     RowBox[{"R", "\[Rule]", 
      SuperscriptBox["2", 
       RowBox[{"Range", "[", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "]"}]]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817115088249651*^9, 3.81711517985719*^9}, {
  3.817115793511944*^9, 3.8171158188557177`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"72bac293-cf66-40a9-809d-4d0874dae037"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13c81d8fB3A+93Pt7VJK1lUyCm1F56AykxlfmjKiEhUhTWWUlVKSrSQS
iopKbxKFZO+yR/bO9vv8/rqP5+N+Pp977uec9/ucl7TteVN7goWFpYuVheX/
nzHXbNlU7e7txY+4fh0rI6GoRsrQUsoJPZPfWHaU8kpxvq+UlBfqlBTaak2Z
L/xdJlfjLfRdS2ebGeUYCJakSwUi1U+vFnUoK43ahaw4hqKgqLS8nZR/88Uu
LzaEI9+FQzHSlGWTOXfML0SgLQ1OtSTlsxru5/5JPkFa9hlh7aUkvK1tfzal
HY2MGR20bMrzZwxbxx3j0Cuu0RPXKMeztgb+25+AwjdIte6lvO/n/fUzDYko
6MLutKkfJPRH6hRMOT1Daazp9DjKQXZLRyYXnqOv6z/KalBWUXk7Ox78AtWM
pWhXfCehZuH0wzHJl0hxvD/OhLJHiYTKaFYqKhE18CouIWHNg9qyYe1XaOy1
kpAS5fxjdx2H6tJRzcmXGTeLSbBVwLRBxwz0UPznk+JvJBAL3r+mfDJRc2Xx
2vkiEmrbLdZN7c9C9eNrb6+l7PmKO3ei4Q36sa7RbH0hCfrhvWwT8W/Rkmm1
M08BCeKeBebjTtlIsfRDyZ8vJIwcjU4c25KDWm42lj/NJwG0L4+NLuQgjfvC
HVqfSQiXN907WvQOvSgTda35SIId/6agkeD3yGdn6IBhHgnsLZ1yw5K5aLVW
zbXZdyQ0wmf3of5c5M5d/1A+h4TU5Mivg1l5yGqSGar5lgSjC0bHB7Q/oaLI
JifZDBKkrOTT//J8RtUlDz1GXpEwoUEu9Nd9RhezEiAmlYRHnHmP+hy/oO+G
nq9Tn5OQfVn/wsXVgJLKX2SzJ5EQPbBTbNIHkKqk7mfdeBJcKoUcJ/YXoAJl
qUH3KBKEor8T4w2F6M+drMXLwSQs8L176ar+FYlNP98wFkhC980k47H4r+i9
BZ+egR8J7xyvxY46FSE+s/1BqddIsN66bffIwjd086LEZX4XErSTpTvOnShG
BfstIxKcqPUoxh8wXFSMWl7MZa2yJ2F5+W/dUHAJurphjCvLhoSE0ji3Qckf
KHkwUihRh4SpyByFtqAfSL0+Q2VQk4QDjmVd1XM/0Je/SGqVOglDtH8WeTWl
qK3glsYaFRJ2aRjtDvQvR3zcgtpdoiRUZiwScqO/kLWE2qpD7TQQQpzHeDdX
IuH05hubmmiwZ8PD3f52lUjzv77ty1U0CJl6OeldVYm+LIV5XPlKg2336+xt
06qQ27KHGmcyDa6XKumrHq9Bb7hHXeOcaZCS9X5DWkQNSm5K7cWnaFAdqUVb
X16DrhVJHh2woYGso9Wn1Wq16HhQCrvNQRqU0m5vZhGuQ760unMtKjSYGuDj
9tarQxqRhsvd8jRYV/2kb/J6HZpZrJtnZdLANT4jvm+oDu09mlF/RYQGohot
Qr+K6xF7eMlIxAIBWNZhVHepHpUtX4ST0wQ4cY+XFW5tQOuMp2cNRgn41MR2
5118A3IaKWq/0UVAL9w/qdLQgMa+1chV/CaAP0V8bypvI1I9NkCiRgJsPbb8
i/FuRBoFMrfDfhIQdPRzzaqsRnTi1lT0xe8E5OzTzbzf14iMWyd3Xf9KAIfw
Mac75k3Iio/rHSOPgC3z/ftX7jahjTLr/sbnEGDTcVHGq6AJybVs1rbOIuB1
RmDL2c3NqN2oqtnqJQEDQgNB+iebEatv7J/fzwmQ89Dfu/FhM9KJlJ4NTiTA
ril1lF7SjJYPGK84xREQr86d0DXXjLoPo+8XoglojTtjWqDUgkx5JJkvnxAg
RiunxR1vQTMfd7XyPibgsINSjk94C/rqPfwx4SEB4T+CHKy/taC2thw/+3AC
KpSGV+2abUFHK2SW/gsjgDvs4A8RxVb0TL2t5XoIAbqT6d6TR1uRx+ibloYg
Am4f5lOqCmtFbyT8smzvEQC5Lr9ff21FbPP2fNJ3CVgS/xUSNNOKRmh344QD
Cdh9Qxk7y/9GN9Ss+fYEEODRFTquc+Q3+rDkzhLpT8CbA2OJ60N/I+UvH1cp
Uh59aWxOK/yNdh0ymZjyI0CJN4veMfUbve14pTBD+bSr4Pt8uT9IKD3WUpm6
/lmN2+lo6z8Iy9jwJFDu2FEt5h38B2lk32k0oH5PImpLmSX8QRly6roq1His
l8J9tk/+Qcm2Mt1G1HgfnZjcJLyhDanmuKimUP+n5qtZ25hVG4p8MJOlHkyA
gFx2WMW9NqTycU83TygBhncZWq/y25D0Ry9tsfsEBAxfmgwcb0P+zW91bB9Q
6yfFuXqrUDt6bvHVvj+CAJbmNWmJiu1Iecie/1UkAXHcZb6C+9vRyzzDt+lP
CdirceXIjWPt6Ph/ip+HY6n5dFHcPnq5HV3cUxJxlpp/7/gW3mP321G9LnuS
QjIBq6vv9ZantiPF1zTdjakEvKOpf9lT1I4+/BbpsX9NgPn2ocepv9vR4Kf+
hq43BNyPNNQLEOhA9bfdNyZ+IkCldFH6n3wHOiufua2rgJr/hVfz9todqFW7
YtK+hACu47yvtD060D+ayU/VGgJ811fwrbR0oD9pQtqDwwTIWF7rOzfdgS60
kge1qHqDgM3QyteJ7Pq3Wv5eJGBxMMQtT7MTRcsGnmvnoYH7m0O17i86UdgM
w1CaqndG98qrbuhEOm9V+OPUaPBGJPOOWXMn0uDnSbPVpsGIp8BOVd4ulDMw
rfHJkgaOqOrJ0IUuZP9y9YF8XxqwJM7ktdzrQhGfA7q2hdIgkhRvLX3Whc6c
ebd6LIoG3384SLys70LW1n7j297SYKP5YqL97m7E8Sr452IvDeCddJG5WTeS
vzocGz1FAysxnR7ts93oZuIx3VsECQF/7svJxHYjhyGxT5KS1P59Wu7VH9Ye
5CfQpPeC6s83ygx//lzTg8Zypli8z5CwevOFkU9be5AmcTv/wRWSqpdPKk/t
e9CTu6+7o6NJeHnVNMfyB3X/yjoBrk4SnMOv5leG9SIDZvDnC950IKYT2768
7EX6ON/6ewgdoiy/s2QU9qLAkOIgxyQ6lIoLawdP9aLn3fecfH/SQfFFSome
VR+68y3LeMd6Nhj6WFNZKNmP2k/73n3XyQa3JebGs3b1I8WUR1afF9hA/KaE
cIJJP/pttWqdoAg7GB5wsrju249UkizvxeuyQ3rlctOevn5UKXfS3OEtO7j0
yHdlv/6LjquOZJU/5oD2Y00cBT/+Ip8UrQqTDxxg1hiw+Wf3X8R63HdqRxMH
7Crr8+pZM4Bu5CoKMsU5gZb1XEDUfwCtebf3Q0gyJ0T6SO+9fHwQ9R3hMVld
wQVcM5WnfL0HkdtV0bU1U1xw9fyNwNCIQXTweKrI9FpusLVtq31RNojGz7Pa
uJ7hBiXdmDONO4fQOn1mxSF+HigQFnuiJjCMhvQnD7Oe4YVtwd/z9ysOo4pq
wX02kbyQzObZbXJgGPlc5xKXLuaFoLl6ZWefYfRi1ZTrmAwfHG57WBzVP4yq
0+T5nnTwwUCqwNQCjKAX2pt3HVITAC7p23Jtu8aQnePLT1GDgvBd/b7ytf1j
aLXch2t1dCHws4rduc50DJnfZbESkxICIuyDjs2ZMdTs/uNVurkQzC8POTbE
jCEjvVWHHnwWgg9r5s97pI6hypSNbYkNQuCxg91T5P0YuvnRvefRuBBMnJMO
MKscQybH94kx1gvDYKtFyi9iHM28W1FODhSG1FnbTBf+cbQkMNsukSgMpxmu
H3jFx9GWVIcwrTxh6Da4+91g+zhq1KvPdfwrDImOjysHNMcR06uo8TALA074
PmsMNBpHTgJ7DcpFGdCal99f4jiOph/FJsloMSCqvmzM4dI4slbyPTh6mAFW
E42z9JvjyF+8tV/sDANq5Sc59kWNo/qsXIfj9xkQvp9FsCt5HD2xO3fPPokB
xid5xW69HUc2OZkH4rMZUB4pJw/l4yigpfjJvVoG3M3epnq8iXr+hqrZjV0M
0K3UVFvuGUfHmCee1Y4xgG3ISDNmYhx1WCkw/JYYUMR+RE99ZRyVFW833c4p
AreYTiYt3BPo/R0JvhZhEcDI4z/v1RMorcUtw3WdCCxb+54UWz+BkkULHcbW
i8AnjzCnD6oT6OMXMQ2LTSLgHR7jZrl3ArVMeEk/3SoCu16nes3oT6Ctjaum
8neJwMyP9zcjLCeQ1I7VofnqIpDdUxS4zW4CbQ+IKI9EInCBtfp+jesEol8v
DzyoKQIq69qeXLg6gZpzbF78pjyyayhB8O4EilgTwWZAOd187mXmowm0E4/7
/v/+s65sbw4lTSC+kW8jP6jnKwQJ541kTCCFJdflLur3+19IFQZ/mkBt53bs
H6LGl/x1U6nSjwn0mlNc+i81fru23dVldRMo+pFIWscGEZBZ0Gl27pxAO2ya
n/2WEIF2UYtOztEJdNz9i32PiAjEbrEdSFmYQH2OE8WsPCJwxOj8hA7HJLK/
epZfnVUE1jj7zPcyJpFK0ERbzDQDHiU84lq/eRKd7mzvW2lhgPnnJKGi3ZNo
feyOS4wKBgg1Za45pTOJjJEov9cXBoQIlCkknJhEsdc23LOJZ0DuznU5Ri6T
SO/ta1v/EAZ0HzuPFq9MIgn2Q1jEhwF70oXNLR9PIt2Y80YBFgzo1ztylbdi
Eg0G/1fFT2OAtu/wL689Uyi4ymPloIkwzE7zu5uKTqOnxzKvXOoXBOY625UV
5jTKb7iO86sFwWhfdmC66jT6tWgmv/mzIDwPt4rlODiNzh703XYnXBBMlRNK
8n2nEbt5wz0FJAjpp7esURyfRs++he/+FS8Ati3mX2jlM0hwKtdOmIcfuJ52
nHNrmkGSay592THEB2+sXcTbemcQXeukaWo5H9Ca/b3yWP8hVRfZnddD+OBZ
Y95Wt53/kNjeQLEyET7orZNK+ZP4D3GeDnDAW3ghJCL9sGHmP+Srk9/Bs4oX
dljspud9/odMxZYurlvkAf9aM9uIxn8Ilaf/Zi/hgY01fuKGfLPo3hkugeHj
POBcORSW6zWLVNT2HbOK4QahMC8k5z+L9rap2PL7cUPeIbaRhw9nUdXja1tX
XLiB+5ekgWvGLDLS2pHmp8kNr36a0uV6ZlHyr1OWzL9cMFL6weuh8RwK/X7e
kFeLC9y+3bY9LzePkm00lWpFOUGi+wDbzNZ5VLxfbS6LjRPKCM5UHzyP0BlT
pzczHLAeB48H/jeP3oyP1Yo1cEBTXsSNZ/fmkQl5yM/rCQdoZibHNo1S1xeP
btkuywEjFae1TizOo9Mfpk+LinLA02GF3l6OBbSXM2OfCAcHTCtkbJqSXkAh
zsqVzkPs8PL5+0985gtI4eWvmHPv2EHw6fdm7Q8LaP0dN/7IQ+yQn3v3WmnR
Ajr+hoNlmzY7nGk0lDGpWkB3pHN9/+5gh28iVU7HBhYQ9+cl63gJdvAKa5r1
FF9E4dExfDtH2aDjzoDo6xuLKFp180DjQzbIcuUxW623hB6Hx6XdH6NDeZSw
V/rhJcS383yPUi8deovWxGnZLaFIv/zFPy10WCMmP3j2+hIqPjv+z6+EDrcL
9vsW5Cwhab/DGe1xdDgsdP2ts8wyKvn0/dp9czq4qvs1rSgvI609qNPXgA53
HYJXHmoso/61mjvuatHhS95Tgy9Wy6jBaA97tQodNp760CUcuoyMnMTL9Pjo
MP92XPjzwjK6Faiv/76cBMafWTVTzhX0tmi0t47K65s5WE70ia4gN61BOhuV
t08d4XsluGUF9V1a0ohKJ6GcVNzncHoFCUyfrQoJJSHWwu4Sf90KCrOzDbp3
mMqXV84MqFiy4FnOovnFURqoAOes/1EWLBuqmH5hgDofkSn0tlMseC3paDPV
TYP24G6pYFcWnOYyb7W2mQYS8Uct/way4MzsE4nTRTSIKjpUlPCJBdfHfjMt
jaaBAudI1WwhC846M+I985gGuQeD2g79YMFPPrI5b3pAg8b67/NLdSx4Y0y8
xcdAKs/91VS1HmXBZ4z1L1tcpkE477ZYIRlWbM/gY79kTgMZ0+o0p42suGHW
NHSfMQ2yHrnmwmZWLIf+VUkY0qBSMr3WZQ8rXlfMqztGnR/5tmzgLjNnxUIO
dvr0bTS4e3i1p68/KzbcFZQ8QOXHW3GLJlNDrDh9dP9H3E6AscoHN8VJViz7
NYZHncqDEgUX79vOsWIlpWg+1ExAXudAZSWdwC1/p2ZsagmYWN90KF2CwOxl
jyXGqDxo+yrnoIMxgcv3Wql5vqXO1xpu52IOE1jpp8Xpv5kELP9UCq49QmBr
t+6ok9T5PGo0qVzLicB3M1Z1OlD5r3pLuIHkLQLnSNxs/0rlO81cF73GtwSe
Ji8wvlD5g09fwYk/j8D1Id/+PKXySWtzT8ABILCunozQdSrPeC4e+Z5dTuC/
LE9Dre4QkIkMdO73ELh/yHng8FUCpIrl9uuvomHdG0xPLxcCRg532d1cR8N3
Dn3M+HCWysd9sbc/MGk4WTvv25IzAVacokUbVGgYVamdfeJIQJghqU3To+Es
+/0FIiepPFPTjj950/CllEfJay2oPPg3P8H7Jg0vXXpQ8ciMAE6WGEItgIbX
nnczWG1KgNCm/4pyImjYu1hSYvMhAtb7V+lkZNKwZ960zDM9AlJjMlLOvafh
tgc7h411CdicHcyplE/Dnz0eF9J0CNjVoVeWUkbDJu/+OV/ZR4D+nkKjxF4a
FhJ1+ZiFqPxiEp9xYpiGO11P9wXvJcDs9DUBySkavqEV2nheg4AjEburn7KS
mDPKp3/fHgJcRt9YRIiTOPnQ09otO6n5pN9/Z8YksfdJa6S+g4DL4udXCSmQ
uOxqh5LBdgJu6Ck2hewk8VKpiKvXVgIeJCUdCTAl8V+rsA+iKlQey7v5+cB/
JPbhfGVtoExAdOVxCfoJEhPG3vjOZgKSl9a23zxHYvf68A8cmwhQYMxjfInE
jMz0PaZKBGQoNCYse5PYREK8O16RgA+WD09dCSBxT9tq/4MKBKi7XChSCyXx
bs2GC2nyBBTcNl4/G0GNT0rPgY9yaRZP36UkEn/hldPpkqPWB/cdZ5d8EvMu
2Ml9X0/ACZlTZUrfSJykw+5/kHLPLk2lwTISt+bhnAZZaj3YLw07NpE4tebj
yXkmARd9Wow2tJMY3VOrDqc8G56b0d1L4nMni6eVKbOCu9vJKRJnbJrb7SlD
gF+9WbXkAokr2jYfYlLmGlbd+oeVjq8shy9USxMQShN4GM1Bxwe7/NT8KTPW
jExZ89Pxril3AlOOVCm3EBOlY9XQukNLUgSs00l91yBOx9tmZNd+obzhkoOn
uQIdW28qEDSmvGl3m1mcCh17KDubylDexmKlPLCDjjtkTBxmJQnYU1zJtV2D
jtlFzXWrKWsF6fVe16ZjwFaTGZT1TAsLSvXoWPCfnu19ysar98SIGNOxYrR4
mAdlyz9vPU8cpmPviNLLxykfe6ZknnaEjrs0LBiGlO2dnyvP2NLxqqaiE+qU
z6pIcGs60THhv9FKhfLFmUe9987TsevOR9NylL0/8RfWu9PxmxiFbUzKN28F
xEj70PFVWU5+GcoBuqxeZ2/RcWOHzU1ZyqF83ubvA+h40z0zPwXKj2onlIlQ
Or7oJCe2jXJM1BnugxF0fOOgyHZNys9OdPc+fkrHTrdP1plQTttwtLAzgY75
yw9P21N+M1QXsymFjnN1DoRdpZz7xsjL8zUd113yT4ikDJ4l5l+z6fiXpKfs
e8ole7EK30c6Jv/zYTRRriBzuf8roOMqp+Wzy5TrSlX7kkrouOiHi7wc9f5b
w1ILR37Scanwvv1mlLsOM2PVaun4xcL8x1uUB8SjvW430/FRbdHAHMrjnQyL
X+10XJgpkTJIeTYlWGVNHx0r0JIY66n1QN9+vS9jko6dZy4XJVDmWfhXOD9H
x2lPaCvdlIUKXGP3s7DhL0I33RWp9SZ10NaihYcNy59gpxdSlhNuUdkgzIZt
3LxEhKj1urnJjMdNjA3X52cY21NWt9//lW0DG/70xmuHCLX+tRXzY02U2DB/
dFKjG2X98R3e0VvYcOe2/IdVlK2ublTdgtiw1N3N+lFU/VyK4I47asWGE525
dhpT9XbF5rZ3yjE2XN2csP0b5VvSSxaTdmz4arX/Jo2NVP9MH+EJdGPD5ZGm
c9upen31rco7+y4b/rP7brg+Ve/d048Pc39mw55bNZ0Wqf6RqLn14u+vbPjn
tuzJV1R/OR5cEZpRyoZj1jKzT6gS0CxL/2HWyIarKjSLqrYQUGV2YU/0JBsO
zGSLb6L6VX6WodQmBXbcXnrOyEedAJ+lPvUVFXbszAaMY1Q/VNPz/a9qJztW
PyL2Q4vql9ntueHu+9lxyZ/3AwxM9WN+OXr+CXbsq1Qc1aJNwONzrANGj9nx
vcU6zlEDAsxzo9mkY9nxJvGg3CVDaj7ou5iTz9hxr85WEX4jAkKiXY48fkM9
Pz0E1Iyp/aGspaLtJzu+9Xab92tzAlzl3711JTlwlNyMpNAx6n33OF8Nd+PA
qzZan0+5QMCBq8xX+zw5sP4F5Ynli1T9irQ2z1zjwPUL+Y8t3QnYvf/gLpsg
Dmxv4rCX35Pqp8+VJ5kvOLBvtULiY2q/47afOp3TyoETyncIc1H7Y3n3VfNG
HU78nCndeSKBAKPuMEUJCS6sFBS+Rb2B+l6xu/aILBd+skqY7G0kwODizmtP
FbiwsMug2H1q/9cl/lSu3smFh2QVuAep84GWlKKHsDEXnnvKUZneTcD2I9+A
4xYX9gyJMzg3QYB47ZzFZA8XbrCKzyvho8HAV9sb39O58T2+KI8QfRpsFqxf
p32cF98JF6MbNNCAC02fbJ3kw9lLWx7z2ZGgM2z9T8ZCAIe4eGhdIejQWGjH
aq0kiH2UtMyr4+mQE1B0TGpaEJepvDYlt7OBA929vaJCCKu8Gf6RVssGpy5c
yeGJEsZjVmptpY7soOyoWGF4koFPHolIeDjNDr+ElLjd1UQw1/Zavx1BHPDx
9a2nSjRRbJcp/ilAhBOusCoYl/8WxT7npW+nJXMCV6u3rkv2KnzKxz72iCoX
9CRLP4zzWY1v3DTXscrggocbxchcCzGc+KVG1nIbN4RFOZSclFqDN01E7VFI
5wbrh0crePrWYPs+3/EIKR6Y3fd8Li5/LZ65oKcREsUDXT1anoX+4thw1SYt
e05eSNRQXfvz5Dp8ttaOdukaL6TfcRd03CSB5e7UKP/r5wV/i1MGtGkJzOI3
pNVhxAfbWxNe+v+UxLXsBp0f8/ggUv5p+k8DKXxsuy9zTpwfrkNwpEGuFE4Z
2kr03+aHg2stnpfKSuP8Pw8Hr/fzg6ZLiY1goDS++2CMM0VaAOLEbWXLp6Ux
p5nl2XITAZD9+uKRkY0MfjK443HhVQEI21SoUJ0vg9Fr++XZFwLgMElW/VBg
YpfdyuVVtVS+zJqQCgxl4pzWHvlfSwJw9pbZov59JrbzmLO5vSwA7mbZDTwP
mJgvXfma2ooABEy7h4Q9YuKNJXwPklgE4bXa3MLjGMqnupY9aIIwV7BSn5zG
xAHfNDvWcApCWDVPcFEJE1uKh3QdZghCVNK5034/qOfVbZTkEhGEpEsV2rpl
TGyTuMfgM+V3omHzZRVMfG6l5hJzlSC0Wgufrqlj4seaYnyjYoIg1yWm3dnF
xA0/kY2vpCCoZHtLPOthYlXGo7jtUoKw+07LnH0fE/PsDqnto2woF5P5d4CJ
bW+6CBjKCMKFM1IS4+NMvPf0zkrh9YLgo35z7s0kEweu7nnyjfId3s7aS9NM
nGmqZ355gyBEZiTdm51lYoXX6GmznCAk3iAd8+aZ+NtEvVzQRkFIM7HX8llk
4mJ25eca8oKQLVO8bu8yEx+8qi88Sjl/csPcygoTd3YqXohXEIT/Ach7H34=

       "]]},
     Annotation[#, "Charting`Private`Tag$6593#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3c8lt8bx/Es+xEaSshTCWU1jMY5klBCRkqDZJWISiENKaPIyPpaRYWK
UEok5zYatoyy90o823yM3/376369X+d1X2d8Ptc517XJ8YqlswAfH98QPx/f
/7+pdxzJmk6PD6jHCzeeq+WiqhYFU1uFi2Cu1PDHGZxXvpcFKSj4AZ/XMgk2
OIvHfMoXbr8PACPoPyOcU7EIeZJCGJAYNFPRxHk7w+nJimsk+JFmmimBc494
2vLinxjwySHOfbiGizZnCu1Z4MUByXXVHW9wvrzfx2NW/j+we5e1pSPOH1r7
X3INUsDxmCIdIZwX3E27Wa7PgODdFnZqNRc95+8OmzVMB82fdv+Vw/lQffSW
mT8Z4KfZpZBHP7loPNGonHvxJSB6mO/r+8FF4U5LZzi8V2D3R3f/DThraHyY
Y0VkgRNHjT7v/85FLTy3WKb8a0Ay/eF16BsX3fghp8EoeAP2JTymqVVx0fqn
rbVTBjkg6oeZzXwFF5Wde+Q62ZYLbHYYR70s5yJHFUj455oHfmdEOqlhXCTA
82/kBuSDCyJBbnFlXNTab7ORa1gAzhzbodteykW+OSLF7D/vAXz1qv3fZy46
EjNKZj//AF5Tk8gln7hI1rfcmnWxEFCWXbBzhVxEP5uSwdT6CJw9MmvaC7gI
M7jJZPA+AuVwWc7WPC6KUbY8wKj6BJb4aKuMc7jIibojnB5RBLLbpch7X3MR
pWtQaUq+GPROJavFZHBRO/bVZ3K8GPx3L92Om8ZFbzITK/8VlIDzFvvNNydz
kdlVM/sJg1KgnZxNnIjhIoWTyrl/Rb8Cq3k5uTtPuIi9n8gbb/sK4ut03neH
cVG8UEn8mCsCgDAaMXOXiwpvHrl6bR0GpgUMk/L9uShlQluGE4AByeyHb7V8
uMizSdKVbVgOtKp3UyIucpFkyk8B1p8K4O5zUiXanIt44p9ee+2rBANW+ncC
jbloOPCFBfN5JZBbLVmprc9Fn1zvpDEuVoF66j2TGU0ustu5S4/O+wYKLLTk
MQkuMsjcNODh8B1oTb84PUzB/ShDDZ2q+g6ci8djm5Y5aHn5b9tkxA+Q/ant
MGGSg9Jrnnn/k68Gi1DpxEglB3ETP6r0hVcDpTU2MTc/c9Bh19qh5vlqsGO/
j3djDgdNEmZtSlpqgMfUwtu2WA7S2W+mFxZSB2ruri1ydeSgprxFASVGI7iQ
6WoPptlIEgidE1NrAr8r32gtjrLR3q2xeiFOTUBTtioltZ2NnnBfc/x/NYEd
zmvlEr+w0a7oNmfHt7/AU5ehFx/usdHdmu1HNO1bgFRgi2S/EBtlFxRtfRvX
AniyR5cVeSzUnHiQsKWuBbxl7/rnM8lCm11Plq7TbQUe9w9D20YWqiE8UOOT
agOfvJ6JnoxnIe6EuIi/SRtQSXqywz2UhTY2/zfGudsGUi6kb33lz0Jez/Oe
j022ge2brXsT7Vlozf4uycbvv0FpxAPxelUWgptdGMZLv4Gha0+BkzwLXRRh
1Vbs/AP+CvUr6kqxUGkH+eGn539A4OG77AweE41i0ec1/vwBkdMp9/YzmYia
LXvgjVg7kNxaoyc/wkSON7RmU/3bgcqknm5FIxOFn/3asragHVzx7L0U+o2J
Ph4yzo8eawfmij0Zz74wkaDUuYsPrTuAQ7BQak02E2ktjBuuPOoAK7nqhKFn
THR64JqiX3kHWJa3KrJJYKJ3eWFdl9U6gTclcdQyhIkmJCfCj5zvBO+vaNHP
3GMipRtHDmyL7QT7k3Q2ffVjIqeONwzSj06QMxun7nONiZ7vE0kfmu8EN9de
Lw/2YKLuZ+6W5du7gPX9nTc5rkwkQ6gjPLPvAikDLn9LHZnohMv2jwExXWCP
fVP28FkmiqkOd7H71gU8lM8fuHyKiRq2T63VmesCl8h7VW1smEgk6lj1atVu
MD/4Yfz5cSYy5uT6c852gxTj0+MWZkz04IT49l9R3UA6iz/W5SgTYcWePe8q
u0Hp2fJjQ8ZMtCTb+CR8phuEewt5/TzMRHr31OEl5R7wrvv1sbWGTHRjKJJl
dKYHyDsPaP4yYKL3h5kZWyJ7AHX8ssPsQSZivLawJlTg44KJqx/jvF2sgDTA
7QHSO8yDI3B281pVVKbUC1ortfpXcH7Z4u2WYtcL1N+9NRnC4w3saZbxj+gF
ys18gzr4fHJJWrW2WC+gFnuU8xsxkd1STMBuTi9YVNObP2DCRPEOnB1SW/uA
ZGvzUxa+n5ZKqz7myT7QGzUYu96ciSSUCqMaHveBVf2X50ssmcj0kfTBnLI+
wO4bL2o5wUShU9c5Yaw+UCZ3FnM+jfsn+1LzTsl+MC8dsOjtwER8nevfZqj2
A7GD5ebzzkz0TKQ2aJVhPxDoe5Kw6M5EB/bfOnPvXD/wkDV9G3AV19NTdTfj
Zj+I6w8644/r7/+8S+xcdD84zSPcnMH9sa758Wjdm35A/L6IsUKZ6BNhH9pb
1Q/kt2ziXY5mIuvdkwlvevpB8ND3frckJopONDUJlRgAZ6/1B47kMpFGzeKm
WeUBEFpqk+T6Gdefl7PgbDAAXFjR6zwqmUjYXizH4MYASPNOqCV2MVHQlgbx
la4BcLl8fdFNCRZStL0z5jE9AGIUV2q24PmGhaph3eKDwFfvbN9pNRZa/PfE
u0R/EIy9p4g6mrGQz3vzVp+sQdB4Qr56KJaFpIdXcoaxQbC/6YR5XxYLvV+d
/9CqcxAoh4qFuHxhIbqvhLam2BBYDwZyZIZZyBX8+m/y6hDwK936deM+NuLL
mCnpejwEOobJc8JWbJRIlO2ueTkEQqCjY+AlNvpZ7SL3+vcQcJITkBZJZqNt
1osZznrDoLxcoi5JgIOwT5uqrK2GAb9Tk2fnRg46KWM0YnB5GHx49778lS4H
hfZGKymmDYOAg8qv+69y0LibUk4v/wgoe5RVxfjHQfdqTevr14+AqLZerTgR
LlqndpVeunMEaHku5f5U5eL5UqqR7DwCBu9YLnR6cNHr25YfbatHwBc3zeMf
57joUsztsqaoUXAon5oTrDyDBKYz+tDrUWAw4T2qaTmDkmx/8uVVjAIs+P4R
r1szqEZWyiCCOwp4WmLE7MYZpJqV/cPk5Bgo5p5sFrs7iya/tDRVyI8Dz72L
huILc+iB3DyrQGccUEoUBzdsn0eygXJS6cfHgduGze6V5+aR6eGLNneDxoFY
/kujwW/zKLdpuWPv2DgwLy7q8EheQJ4jykOF7/4Cj7pfsXpOi6j/XIdgefVf
kF3iX3/o1SKyag9Vqx/+Cz4oLcpQxxaRTu2Y38j6CZDfbWo1dnkJEQpeSawJ
mQCjbVfTywKXUWLApgM37f+BslUhf93c+DDhmaYLQf7/gLFW9AdaJB92+8q9
sMi4f4AmveWd4Sc+zNGxrzWr9h+o3hzAwUj82HbjVPd27UnAXU51ef6aHyuX
kvlPV2IKVK14MI6TCNiuiJ9lhqpTIDMkvPutFgHLJPsOHz88BWx2PSz0diBg
4fO/1S8FTIHAOk8h/a8E7ERf7Pek8SmQ5fAy8+8tIjbxRoLLw+hg274/ggxR
Mia86YFSnw4TvAiqXxXsLYT93BetfseQCUQJ/+J4r4Sw4JNp2hstmeBu9S3j
oE4hTCDqs9FpdyZ49FyM/dZAGFtYnnT9k8oE3kav99xcLYJ9Xr9w5cYbJvAj
152INxHBbuyh+K4uYoI/qi4X7twWwdgem0KtmpjA5xqh1ndYBPvXbZPdKMAC
FYr+cym5otibOcd8TyoLdP6+ZPekVxRzk/b6LCbLAgZCxsVt4mLY8NFHP4/u
ZoEQYyVRBQ8xLMM1oWlCnwXWZRGOLCeJYQ5BL9vDzFigoG1G7e8PMay7pGz8
hysLlA8W9cXJiWNJv2uZLtdZIF0scKe6sTh2kt0+Rwpk4fWZ1qUHXuJYqzJH
8FASCzxZR3emfhXHYgz5Vg1lsoDIHZu8DQPimMV5MZn7H1jgrnz3lmgCFatL
VFLG6lhg0l2wztWAij0q3KVp38EC0fwbH2U4UDHjJn3d5REWiOHpDczfomLk
STP9VDYLJLk0YmfiqFgV5YzJvhUW8D04uu9LDhW7T7t4vEuEDU5hRYXkCioG
wY1T/uvYYNvlc7OabVRs2S7ovMwWNlAeXHbWHKVipTeiLn7WZAPrXe8keVwq
5h+T6m17gA1MjhV5VPJJYDrv3vjNHGGDVC0bOEaSwGaqiwLjbNkgPMqma1RI
AiscqQrb5cQG2YPN68pFJbCr/M3RLV5s4Nsh9NtHXALT2Nj339XbeDyJ/zgk
qgRG15lMX/WIDYg+zZbX8PFc6/nX+fFskJak1oTh/1/2Ir83f8EG/saEvWw8
vkq4VAk9D5/f9t0RUbIENp6lUBFRygbHf16LluaXwDIrd9Rsr2YDlZ/vOxVn
qJhTn15zbRsbKAy+okuNUzFFnlHnpUE2MHVXHxRpp2L9a2wGhRhskPJs/sKG
71QsTctxIpvHBq8e2G+1fk/FzphdYRsJckBinlXRzxQqtv5SwMKoNAfo1duf
DH9IxeLT44W3qHFAjt8+NwtLKmb99YVklR4HSLDG7vntoWKSHfnrLxhxwK2d
WZ8OylCxJxK1KukOHCD//sc7Spc4Vqy98aOZJwe4bmg/a18kjg2fuwIWb3GA
VOU6mVsx4tjeXClr2wQOcGec2n3eUBwbNzlzW6yBA/Kaduz1ei6GGQRNNfrt
5QKOrVvC5D5RbG6a6mO5ZhpIXO2K1HUXwmgbHVdWaNPgnJO/TD0QwswOFYbl
ak4Dv3eK/3KkhbBXMSfTBI9NgyLzQP7TSBCzVE//URY0DUbPKOe/WieI5bpp
rVdlTQN5+FyM0UXGHLusEaFuBvzL3rV0IZOICScPeHh3zICFBrptSDARe2/n
Kds3OgN6ZromFlyIGKEzxK+EfxaQac8aG7cRsZftJTu9tWcBm014vyGfgI22
KWT3ZsyCAVnCSlSdAPYkLveEaf4sOLWo43+2QADbY6NHKvk6C1Qbbop6xgtg
Ia1WjnHts2BN4LYbJ88LYNtagmVNxeeAi8LD7P0L/NilpsmoYr85IEQvm8nW
5scko/yAUsgcWBv7dsFegR8rMSfTY2PnwBvT+VpzIX5MpFH+qFfeHNgym2/w
p4sPy6m3JCmNzIG7D3oZ14L4MHrNZ79Yi3nQuNBa/eXzCvL+9sDxitICWFLw
DTNxXEJyw4fJMzsXwN5pVxrp4BKqFRB6EwAXgDpMIpAVl9AWGMEKO7UApI79
6WwdXEQdJXH3Xj5eAJZXn+6PdV1E+vmZaR2MBaA20xovcpuH6A1uBx0WF8Cd
zn6BBgceSp5SGR0V5AHNAKuS2kM8NK2St4O7iQdqDlj/uiHGQ69fFZWKW/PA
ypfYywHpC2hV8s9Og888sHCt3fxXyzwqK350p6aKB640kDWFvswj93ZTxeO/
eKA0x1XnesY8+rb618VzEzxQP8QcHfCeR35RHXO+sougNUPDjCo1jwYeTqx5
d28R0OuOk6zOzaECL1GrdSZLoOfJrtCq1bOoLknKL/fEEqj708Jb4JtFo1Xr
nx10WgIDN66q2E/OoPUyyv8u310CwKBdIa9yBj0oNwwq/7gE2D4ZkY7XZ9AJ
ybsfLikuAzAUrFbVM4289gV3rKgvg93916aza6fRI5eIldj9y+B++s3Uj8XT
CJUkH0Unl8F5ymVgGD+Ntl34PCQVuQyO7lP7sev4NFr4wJL6ylsGHwMefaM2
cJF075yupdAKWMdpXTbF+3c1QT6HsTUr4Cm9dl/uOy66cEY8Z5XWCrhlxcxp
i+SiOqLqIRe3FdBg1dhSZsVFaTZO16ltK+CXVonJ5wG8v7zlPqFhywczbt/e
mizNQRqY0FzIWT44F2L6OFgIr4+I2aS+C3xwzLtyLGyZjfojhhUivPigkNHE
4J9xNpJ7ftb2bxgfFG/55BNexkZJVeZV6aV80C7r3u/dnmykIkT/NVfBByX1
m7c+cWKj4mPhfebVfLC/X4C0aMdG7b9/Liy18UHiyz3da43ZaM1ffU07Bh8M
Fn4kb0pjoxixXWmSivzwVswqENaD15uWzW8vbuOH508nm6u0sVBBvFcxpsYP
+ceHWnvrWKhJPrfVcy8/nJiWKA8sZSFxra0itdb8sGV32be3KSz06MQ636AQ
fmjcKXbnhgML3X+2eJw7yQ+FTAKzFKeZyELjs7cqhx/OMTSOyDDwfqH8WrTj
PD8UqdhhJv+XiUoGJ5qaSALw4v4+uVM9TMTe0mGeKycA0cpmz8DveL2f8/GY
i4UANBl79SI6Ga+v93t7pJ4QgELEdP7r8Uy0XL89ovWMADxvWubihNfnSYwX
dQcvCsCqn5unPfH+r1kr5qj8fQG4PmuWte06E+kXe5q0fxCAKdc6TslbMJH4
EZWL1BIBeDbkHr0d70+6O0dCD2MC0GBR1+YZ3s/4Lp75WVgnAIPcVS0sARPl
g6NG0SM4G9SSzNWZSOG7kuGRtQQILu3bFLuKiegnhpwCNxLgV8HLUZLiTFQ6
lvbgM40AV5gXS1OEmeik0JqqrRoEuEP0olArgYmiTIkGBBMCpF3ic/1vioH4
WvphqT8BavkYLuZ/ZaAHf8vS/QMJ0CZLJyW1iIGE+FIFdEMJsC4yP/JFAQNJ
7jhV9TGOAM2nLnYuvGKgLSG/jPLy8fV8LZ9qjmSgN6l52R5FBNipWL0m+BED
qRVGCG0vI8CT74wvH3/IQDoDJrXZtQSYkVMtpnGLgY7srTDLGCXATNUX5kJu
DNRw/HmewxQBjseHr/hdYCArtzsS8lwCdOxRquK3Z6AzcXrNyfxE+GBvD+HE
CQbyZLy3iZMlwvlVJwvFDjMQmxT9yYpGhEdPWdvvPMhAN2WvrJVUIcKHNV6r
rxxgoHsmqh1PtInw+Iq+4jZtBnr64sWZUEsiJGhvP5SqzEDrSgK/Hj5FhNbz
SXVXtjJQSpO9HMmBCC9LtV6wpTFQ5tKG/kAPItTZseeQ80YGUpFegPA6EX5+
mm7xeD0D5am0py/7E+Fb09Psb2sZ6LNt7IVboURItzS74yvJQPs8r1bpRhKh
UbvRDiaVgcofWGyZiyPCyBNU3i0xBqopEB27/oIIzwuH3GkUZKBukYeXPMuI
8D90Z8WRj4EcFC/Ubv+Gx2NR7vgu09GIjv72f7VE2FQ2tSd9kY7ozktTrh1E
SFLsHFedp6NrAV1mW/uJ0JHv15uIWTqaiynOGx4lQulTRF2BGTrix3y8z3OJ
cMOjxmM0Dh0F/7ZqlucRYbJlZloji46EpzR39vKToFH9HosnTDqKJEjEpgiS
YKID2dieQUfS6+lcOyoJwpcV7gfpdJSoUWcjs4YEt0nop2tP0dFGozef/siS
oEbOnYYDk3S09bqLr7UKCdaHMrLvT9DRDr0+q2caJLg/+unb2r90tIvvpPrE
HhIcPKfOo+G893uT8O79JOirujfo8TgdHQw3Gb1rQIKnfx9VF8DZxLKivMaE
BF/lSf4LGaMji3V7U1dbkKDgobMZsjjb9n7wdThBgkeUV+tjo3R07uV267dn
SJBRAz5cxdn50iv1GUcS/Ky9PLwT58saciL6F0nQnRFeQcD52kz86OMrJLih
wEBncISO/EupFb99SFDxSJxWI86B90NTNwWQ4ElnaloNzqHG/H6X75PgNzs7
11acI8X9rYtCSVCaT/fWJM7xrWx1gUgSVPcL/S6Jx09Nchc5FkeCDkJwjxHO
Lx2GRxOSSZB/xKsoDOe3W89WDKaTYArhsHYnzu8n21J3ZJMgYBNe6OD7K35v
5uf7jgQLMgXHX+KM+f6wriwk4frVcuTw8/lxAGqIfyFBb+3uD5k4NxCLRU6V
k+Ab/+HV+/DzbavRHHvxgwS9Fl5R+nDujnpTQa8nwRBF3o1IXJ+hE7Q03VYS
XC7/ffzYPzqakE3xe9BJgq39BsHrcD1Zg9I2jf0k6BbvLMDCeS47QmP9GAmK
998o/I3rT9p9dyyPQ4KU3Jpr1bhfRHmzFQvzJCisN3/2N+4nyXKvNEM+MrST
Y2gzcb8pHHO06RIlw2UrwRtHuHSkJNWlsVWKDKsTm4oeTdORWoeVqLcMGRY3
vH75B/fvPmfDSvJWMrRJ+7U3Afe7gWpZ2vHtZJhi4FclxKOjI6w9/ilaZDiV
OVQYiufHydvbNLUAGfbwXj56u0JH1+NEnp09SYYjt6UPBJEZ6NbpB/7Z58gw
68BVHVs8/+5vWrLhOJHh8Y3C67SFGSgqly4a5k2G4Xt2G60XZ6Ccb7/8Cx+R
YWeZVM7lNQw0PJ1wQuQrGRqnM8i78PskQ3/ntZ5KMnya+UVjRpWB7CMaIvNq
yLBN/6bWNzUG6txMqrZqJ8N0cfbVsF0M9Mvq6t4UDhmGxpEGsyEDlRWYKuxQ
ocDe5fTknacZKGBpbN+KBgWKT00UlpxjIF2ToFO/tCnQ5pBF8DFHBirsL47x
MaRAX7Ma0fiL+H1MVSKVOVCg+0NCfb4vAyV48E+YJVBgyLeDYcuJDGRdnELe
lEaBqw5tMNZNxe93kg6N85ICZ9hFn+6kM9CTFM8zCe8p0DJ0i5PyG/x9qO1q
6KunwIvpX48sfmEgL+VPH7yIgvCbd+XAowH8Ph+5dDvGWxD2Fb+msmWY6PBt
Ws4hX0F4yMx69TNZJjq4urtz5o4gPHf+moOFPBPpGR7TOR0uCP1FK3LRZiZS
eaXOoWUJwiLxoz5N+Hsn4sx1+9gtCLkCF2w/HmaiuuHb1u1GQnAhX3va8SYT
mQ1HqcrJCUOh++vjZYbwcdXh1jObheFg4gZdj1EmOnpN+06yijBsM6xzqsTf
f2OB3iZcSPj4g4nRTSa+HgXVG1IWwjAjnfxrcYmJdp/5hgneF4bpwbt+3pJh
IdnWeRvOiDA8u2FPpoYlC01UOt77mSsCfwQry5VVs5Daqt8bDezFYPGTbXu1
h9hIGEyf7+aIQ2nn0/ZlixxkNGU3q2gjAesOD35M0J1G7RVO/HbbV8GsCr8O
wxsz6GNo1TmF6VXQqPb479dps8iF5NPf0CAJpRuaquZ65tCFq7c+iiZJwZgN
bow9xAWk7qraYHpeGl5VVLheI89DjZLbRXx0V8NvLakHxI8toi/v7idvJ6yB
N2vUXr+3X0K3+FUs6nrWwCxjHd25wGUk3O1v7Fm4Fl53xDzsElbQSOam2GcB
66Dtnsa+bBM+LHabDLHYRgb6XTf7mtXAh0Ulufw4r7AeUrJWt/ob8WN2sWcb
RMfWw70py2GjJfzY3KFX88/KNsB6paq23l0C2NDIQd+KEFlIq8vq/PhCAMvY
r7mh/vxGeDCsL7lqHQHLfeizynWHHOTTM/tpFETAQmwuHCVMy8E/eq5dmn8J
2O7u9Nch9fIwp/Sbv6gNEUtUTs6tP6oA90wsfTEpImJ3sYjEo8UK8F76uyQd
eRJ2bIPNq5rNm2D8U+qDpvskTN/zx+lVYZsgvet0zvMeEvZM1nFz3fQm+NdO
2fvvfjK2uTIr3uy0IhQKH//eFkfGonZUqDSXKULbVYfjDk6QMRcO8Ve1Cg1+
VO7Q4BpQMMcCtkJYJA0e8jw8SY+jYJfvWy0eiabBtHQPi1MJFMzHqvCP6FMa
5Ih3xlYmUrDQaZ8nUfE0qGyQWJaQTMHe6c7zElJpUOWWfvyBdAo2X77yO/Mt
Df4Dy3bBORQsqlk0ouoHDQZPxdsvV1CwpBcebsHVNDh9ru63UxUFe3G9wcC4
lgYj5llqtd8o2Kc1UQu1DTRY8EHxfsJPCtZtJ+XW0kaDFJ3cQrUGCqY0JGMw
OESDoRYLZrYdFEyj0F/u5QgN6vVk/vnSScH0HnbNO4/RIH1bgr5CNwUzVUrN
/ztBgylFtsXjvRTsqruCHItFg9YP/+r4DlOwgH2B8+85NDgxcqiua4SCPRQb
bL0+TYO6dmL6YIyCJea9eDw3R4PqqxYaSBMULOMe0bVkgQYdkraNu/2jYG+P
Ox8MWKRBx6r2wdpJClao+H3jgWUa9MmjIjU6BSvjbJ1fWcHP0785IJpBwf4H
K+euHg==
       "]]},
     Annotation[#, "Charting`Private`Tag$6593#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3k8lN8XxzEz1ki0kWxTZNcikZwrIUsqSyhJkqVF9hCJFir7l0hRlkpF
CBXhGUvJPjNmsmbfsw6yjOU3v+ef5/V+nXPvPfdznnPveaQcbpld5WBjYxtg
Z2P7/zvlrgPnfsen2tMbrCeY7Vh1i6SJlaQr5OKr62S0SdobP8vvS0r6Q4/N
l/a+W/3aAnFf8njbQoFRtfndI7VF7RRSpARB8jHsEpLsuEjlBMVpx6gN52ig
Pe0PUnkiDH8EUtdXW+PgmpPTqT9J4rDnLc/hFWYCND2qUcm6KwM3jvncXJR4
DoctdBueRatAAa03c173JYyvgepVGzVYuW7SNev8CqpCvT2q+LXgNXvX40W9
NEgcZ75V3tCBE42xe/+1pkO5oRbHsXR9GE0yqJh3zQSKo1F7wqoxRDiu2c4x
34CA64M7ZvxnQVW1YGk28h3cHVPgv/DAAlqYLvEzEu+BLifH7+9qDb414qrT
+R8gyniVmVNpC6L/0eondbNh5n7K7bk6eyi3e+I8Qc+B7nnKgyDvK+Agj3B/
nXNhcGZ4gWbvBBzMgOb5wDzw79q2uTHOFWi9lrvn9fJhYzi2RIH/Jvhl8xUz
Wj9D9uZZx3+enmAUN8zJeF0Ax989cv+V6Q1ifhUWs66FcMEwKUOA7TZMXXyZ
PnOgCIT/7nPEP/IHku7tmWlmEYTK8k51qgdCnJyZ9nT1F7hskTBStj0YHDcr
RUxFfoW5Frs7g1tCgKuzX3ZSohiCj1ion3F6AG2kMp+JURZ3PDmkqfYIPrxN
qvqbXwJli+nDsDscTD1NL43rlgJ35JrqVc0IkLSWyxnbVAYed5t8rN2jgHEM
zxyll4G/m+ehMPsYeMZT8mzEGQPx6j2Ggh1xUHjbyNNrJwlKfzvuj1SIh5fj
6iJzgSQojD7ax/00AdzIQs4MvQowMzi44OGdBEIvf3HMtlbCSY1wRde5VGAK
fHnvrlUF2Kl9Ih8uvIbBkIwzM6+rwERGMLjvRBp8cb6bOu1aDQ/IZ/IFlTLg
/MFDmlPMH9BTwM2km78D3bdSfTftf8JvIu2G6a0sUBTZHD5Z/RPiU46eqIl9
D+vrY/SJyBqYmX/B6fH3I6TVvfL4K1ELOpZqUYm382A+qUi+J6IWnnJY13sp
54O+c/0AdbkWiHGW7Quj+TCBW7QsaamDvVErqnEuBXDkmKnm47AGMHPZH+wR
/QXIuascstPNQFtXXvl3uQyEgMeOX5kML2TXfsjpl8NRmXjNMEcyDKY57xFW
xCBq/v1cAIUMux4/D1O7S4JDsfSrDh8pMBGkYWNjWQnBdYpG+y+1wNj7b30L
fD8hK/+rzMeEFvhYx3zYHfITqEnHcXsbWkB6d464weJP2ONsXbpTgwbCryR9
tXproA73QJlNmA5kRRvhw1m1MD8uwBdgSAfZvh6+lB11sJv6fGQumA5vEgx1
Gx/Wgfvr3NcjE3QgxhY8VLGrh+3HOoWaf/6G1BOq+KjVBkB7nKZPrv0GKz/X
MfKlRnDlm62vPNgKB65YXFaqaITSds6HX163gs/d84PdQU0wTIq9rNraCgTO
m1687U2wOUtM+wN/GyyF4NJX9zeDg++BxZSANlA5G/RpsKsZIi6WtezIb4NH
r/JibHaQoejEybzYkTbAk4vyVrXJwC1s5/rQoh0qAf/rzBMyHFgZ1dt40g76
addVpnPIcKHPS9q/oh0M2//Y7SGT4VPu484byh1w92hdmoogBcaFxiOMLneA
f7L9fS5FCsj6Gmnvi+8AkxmDr4/0KeDY/mGaUNMBsQHUoLeXKPBaiy9tYLkD
nJg2h+1vU6Dr1XWzCsVOmD9teyknkgIiuAbcq0udQKNGPQtLp8A5J8WiwLhO
cO0aTRotokBcbYTT+R+dEFnw5nhdDQWaFCd3HFnqhOegHS3TRgG+mFO12xS6
wKbx/PPFYQqcnMsJmLvYBZTDZcnq8xR4cE5AkRLTBfOlxIneDQqQit3+fKrq
gjP9ewhTPFRYE2uOivjXBYL/4QNthKigeU8FXZP7A2HDoQRxESr4DkTPGtj+
gYrqTO/D4lT4rD+Tvjf6D+CLfUtSpKgw/f6MBa6SZT9SN2RKpIIifz6hb/4P
zGZOSuux2MV9y9dy2W5gGF76fofln9ni4fLyfDeEvb6zbWo3FfoOU0UCIrsh
SVC2MHEnFcSTD9RbkbqB4ON12HsLFc6vxQWqzXXDmRQdq2BuKjyzn1MSlumB
Ze6eicI1CrRUmffMWPfAz22vRwVnKcCaJqbpaQ9wtPuei+6ngMmTrcezy3vA
r/2RrSKVAuGT3nOPZ3vAqLtIcxCjgEPWNepBoV64QNA0KmDVDVuH6Md0hV7g
Pbt3LSGBAq/46u9v0esFzT9Tf8KDKKB97I7tPbteeDKyHBV+hZVPNwW16du9
MPlbtC7WgAIBrzv57WJ7gXZd1D5NjgI7qU+HGz70wn4d9SOFPBT4gtPCjlb3
QnX1m9M1I2SwUJtI/PCnF5TrBYpbq8gQm2RiGC7YB41Psw4N+ZBBtW5ValGu
DySdW6hdxmRoYmavXNXtgzf/9bf/lCAD7yX+bF3fPojd+3wXObQZ7u9tEtjo
7IM97+5iR1obQdrq7sjNhT4YTbkg+etyI5DClUldAv1Q3n0taMdoA6z+jfIo
0ekHk107dg6P1IPP59M0n3f9sMG0UWkrqIWtgxvZg6R+iFdNXWPuqoXP2/Ie
mnf0g6bHKFQG/4IpP0H1/fwDUFxstEVOswacgfJ8wnMAiprEo7kDqoEt/V9J
59MB+PZ097fUyipIwot11WUOgPGn41f/clbBr1on8fe/B8AB021LCa2AfRar
6Vc1B2HxZIoKiigF0hepagvzQRjfk4HTbysBaxGDId0bgzDgf5ces6sYwrtj
ZaVTB+HEsW12/WFFMOoim93NPgQ3PS+b9E1+hHv1Jo2NokOwY6ffw4PL72Cn
sudU6cEhyMK9kapmZLDqpVT1xdUh0O8kKC/YJ8L7ILMiq9oheKHmKqzz8RF2
LS6onBwzDFqvzpKD+oswjoX0Huz9MKiCj+/+m9+wZKtfbLmVwyDKFfx1B/t3
rE5MWDdyfhishrZmGUqTMIV3WTWG1iNgOucp6pfyA5v43kKulBgFv/ifnWUl
ZOyB+PJs/pFRaIuyN5kPpWBiIeLCaWdHwX6rk3vcKSpmou9qGXx/FFacXPr5
x1uwHPJ6+9GRUWCPKJTXQq2Y25DcQOGnMbjdJrbj1pVurNeunbuidgzOx5KW
E517MPO2cOXGwTGokh5IsFfvxY7Uj/gPiY4DKeIB9xbdPgyX/0Zwe9g4yAST
M7EbA1hSoJT27Ut/4YIoF/cw7yjG+4985X7AX7jzUkWV8mYUC7p173F0wl9Y
IAaL2hwfwxwcemjv6v9CuFOniv69cUzxZMr1NvUJONTssFq1eRKrEBZ5riE4
CYddKZv1YBY7FPmrXE9hEpb9BMaXns9ibzn9Bs/qT8JF6sbzBwuzWMTyb5Vr
gZNQxNGiS8xlYOd64n8mj04CXkH7rrfiPDb+QXCeSZoCtv6M48Gmixiv1APZ
niMzMOweY5GzYx37pRWrcldvBipu1dsm3VvHHlmnqu82m4H81YmKd2PrGEfM
N4ML12eA9kFw2/L3DWxlfcK5NWUGDFeJzTW5bKRvoiu3fD/MgPl3/enhATaS
72Euv21fWeN7e5lNO9hJjJtS4ebkGTDdd/dK7V120t8uy6xmjllIb52PmTTg
IH1Ycshz2zwLn54OMbr9OEguW92/8YvNgnB55VmZ9xykQeMnv4zVZsF6LS3T
nQtHSndOJI/rzALjwt1+UzUcyf5+Zttj01kIeeJRo+GAI3WVlI/WOM9CZuIB
v+FvOFLy7/oZJ+9Z8K5k1gf340jWjLYlQsgsfE/P4aDz4kk0uTnuE8mzYNfo
sn7JCk+K02PbMvB2FvoPkA1u3MGTzlzmFwktmAUn2rnyvhQ8qSFJVo7UMAuV
kvcdv/3Bk54UHtp/qX0WbL8kSs+t4EknyToa60Ms/7wif6PtBBLnhKlOCmMW
fHcZ2eSoEEjVXLaGWhuzcGrRns5nQCCFEl3PdvIxQMrnwCkrWwIJga9NwE4G
8Ei1R4feIpDWz9+/LLKXAbPP/NdD7hFIpb4xrt/2M0BmbN9H42gCKSAuxcNK
mwFep8e8Wl8QSEc+ffD/Z8QAMdG9IhJvCaR/tV9DEqwYMELfe1r8E4FUOFT9
+JAjA0QDJOuoBQSSJzs1tsWdAZXOUSe0vhJIqrt7nnsGMeA6PTvY9huBNHVk
Im3LEwYMpUpoq7PsORbL7/OeMUBhvPXI/8ffcOf8fDqDAR16IQJqrPnlI4RL
pnIZQHBsVXJlrT/6TrIyspQBPnoO3/1fEkhvq5TqFGsZsDVIycsrhkBy7NGk
1tMZsPhMMswxlECSZhp0XOtnAFHyQ4CtJ4HUu92yn2eaAaEW3qvX7Qmk1AMO
41lMBgRpdJRnmhBItqa3GAbcc+Dh2HRaRJ1AEr0WuDK8dQ52hnbMdEkQSM/S
nvHuVZ6DUOWvbGkTeJJFWYZQteYcjLxxEKkj40lC7XmiVwzmwGhU6vR/BXhS
lGC9fJr9HDCdjhtY++BJxeq7i0zd5kCHbPYv9yyeNGh3C1bvzMHf2//l1yvi
SUdzhC2sEufgVCatMb8HRxo1tA3ib5qDqIdZLSRNHEn3/mSz/9F5aNw0oHKs
lZ20tLDZx2z7ArScyj6zlW8dI+522NggLsCFA+NXjhauYaYnCh/n7F+Ajz81
uZgX17A3cdap3KcWgIdn6aBVwSpmppJWU35/AR4ST8ZOXGViOS4HRBVmF2Bk
TM0keGIJc+i0wHAN/+DBdzsF15B5jPdF302P9n+QwdXSm6szj30+7ybWM/wP
XK1yOBM55jFcR5h/CfsifM89SEaP5rDMtpKDHuqLEHF6Lb4tnoEN0yWzutMX
wTODqVzVOINFJeScM8lbBAcH5722iTPYYUtNQknZInBxDhkGXZ7BwmjmDglt
i4C1RmhmTk1j+1oeiZkILMG4xQZOw2wKu0aeiCn2X4I7T4e1hg3+YkIx/iAb
tgQk4nOTyvFxrOQ051R8/BLwcJJjQ6LGMb5mCWP33CVYyf3k/qptDMtuNCPI
Di2BzZCjlNDtUWyq7pt//JllYK+NXyjuGMI8fjxwuCW7AlbbOr3pSn2Y+KA+
57+DK9BSVpJlMtmL1XPwfAhEK1BhLuFqmtOL7UWRs49tViDw5vMdE8q9WHtJ
wr3MpyvA7U4sobt3Yzp5b1Pbp1fgRrCcRMHPDmyqyeW4/eoK5AnaNJdadmAv
JuWHh7mZcDuRmFMw1I4tyOcqzUsxgZEmw2PP3Y69f/O1VMCCCWXP9vn6Wrdi
W1786tD9xoQ8X3VcnRQNKy9+creumgmPemfC3pe3YNfbTKTPUpjw0cb7jaVt
C/ZjG8XVbpwJvWrPL21KpmL+Me1LfmKrwHcgabVCnIL1PRzf/uneKvQUanxO
S2zA8t03me80XAOv6tO1SuaVWEOysH/OuTWo4zNy6suuwIarRV8dd1yDKDx0
cnBXYKIicn9vBK9BalOHGOEhhj2o0LtfUbQGu1eCeLRiSrBzQsEF16TXgdFU
vWgpk4+5az1q31BZhwOp8U7p+DzsiVPkRvyxdVBzSmtsr8vBsJIXxpj1OjRK
KW9qsn2P7bvybUA4eh0+Y954rOQ1tlIwK1zGXAcO4YMbBWF62NbuJQ0zng0Q
8tS//pp4DZS52exHtm8AKnunHZcfCFdsBbK3HNgACVcp/tjqSGjAK5xwctkA
7jRy0/pICqRaOnpvpm/At1ubPpAP5UDanevjqlZsaOIJJVzzxndQJfEshV1k
Q95DvUcf7Gb1R/gsQs8VNpSi7+lt2lgKvZGDkpHubOi/eXyl275yEH990Wrs
MRtaF0mti3MiQXL16eq0UjaUdvt0tcFYJcjzTFGWKtlQ//tKnYeHq6D4VETP
6Vo2dO3jsTPb71dB2+9fK2t0NuQR9+qZumg1bB/T2X9+mg2dtsMHJqAfEMd/
KFVImh1liP8KznarAWkz6kfXfewopNWfmZFfA/nP3ItJyiz2VKNszNUAWSKH
5naUHSnjGm+N+v4CgQMyfPUW7KgJd8UoyacWnpzb6Xc/jB1p9w6FHbeqh9BX
q2fnJ9iR+jUjrb78Jjij+s1DYY4dVR5olFHsbwLxCq9Yh2V2JJc+zLm6pRlK
+sfJZAIHMqs5H6Lk3gyMve2nc8Q5kOn5Z/d9hMngkF10yukMBxIrjcs5hLH6
62MeN1POcSApw7dqH1vIsN6oGEmz5UBFsvvTxlj9efJ0RsNxVw6kfDjRGdtM
AeqBOGOJUA70u9TYu9WWAjrFboZtBRyo40k1bW2CAgJG8q6bSzgQ5ei+0B3r
rP+DjqFwfRIHOuRyfGRNgAp+q7a/Chs4kPrHQOZ+VSrkgbFB7BAH0jZe2wPu
VJD8KatntAOH9PKOfJUfocLUuQHHkN04ZHs4YEV1gQqlI6kPvhFx6GRCqBE3
rgWsebZXy6jiUPi+R9sVxFsgxgSvizPEIcJDObeTZi3A1tKLSgNwqNvtla7I
5xZ4MFaeFhCCQ7G8xThU3gI8bCkcGuE4VKxRK3aorgWElGyqixJwKPnuubCH
fS2wN4xikJuHQ6Xdb+3p/DT4kJKbdfMrDkULJwnc2kkD5cJIHsVyHHq5mnSl
TZoGR/oM67PqcYi58UxylzoNjI5WmqYP49AM++BLl4s0aDr7Otd+Eoe8FLYc
C3OigbnLXUGJeRx6mNpRcPsWDWwTNKkv2PFIrf/WoeZ7NHCb/myZIIZHZmoB
LZfSaMAgxH4xJ+JR4duQoK3vaXBb7NYOIXmWf/XJLSl5NLhnqNAepY5HKeff
LspjNPgvI8M23AyPNP9SClAHDXaWhJTp2+DRc6f59Be9NHhJviROsMcj5wOh
3g3DNHi7tqs35CYe0dfLCvIYNJDfuoKQNx617B9JdlyiQa58W9p6AB6NY15W
02s0+GYVf+VOOB7ZF0TCE246aLl5VmtE49G3rOS+ZH46VDw4s3cpAY9ks/n0
7wvRoS5/04h3Bh4FnhCDrl106OJ7eM2tHI92dCgeK1Kkg730lXrFH3jk6COK
nqjSYeiIjuLfejxK7TRtOnKIDlNX1yad2/FIaZvvNeJROngFdprK9OLRI+vw
4UvadFiKK84dHMaj7e+k6nx16MBO8vG4PI9HHHpPXx8yoMOj3+ZUCSYe8Rb+
We80pAPv5P6D3ewElF1e+sLOhA7ROMH4l9wEtCNpd3apKR22ik7Nn99MQN8F
3zj+O0OHJNUGS5HtBDR3JGuZz5wOuw0+fGkVI6AhNqVXaxZ0kPF28rOQJ6CP
BsbjPtZ0UNLsMX+lSkCth3FDAzZ0OMRmrTJ+mIAevKjXO3iBDkd/knnVjhGQ
GUehmqMtHY5HGA4H67Ls2XF/fC/SwdCssqLOkIAYy3in63Z0OLPzaMq2MwSk
SLm1qHOJDlbdBX725wiogJOtZIXFdpmKFh9tCcil6gM9wZ4OV6+9UfnnQEDk
MSVP4ct0uKEqzqfjSkC3AgS/erHY69+z4ae3CEhgMb3+C4sDSjdX/vZh7a96
43cXi0NCw1OkAgnocRQf2zCLw0+y+98IJSBShs9NKoujBQIsvoYT0C6bb3rp
LH5GY6hwRBPQuJNIriWLU5Kv851KIKBH+h+aJ1jxZNoPDie+ICAUfbLRmcUf
ZS5W9qcREJdZauNPVvyfJ+gpSlkEVOwt/Y+HxcWfTf39PhFQN5/Ijf2s/ZP8
aiyqCgmIu/A/i2MsfWq0karAdwKyHfegKbH0a8IX89lUENDslcuCOJa+9Lr9
Ixk1BHTZsVuxjKV/V8yHyqlGAtLcesjUlpWfgXPEVA0aAWnRA5N6z9FhXOyl
/4MOAnqemK5iZEmH2f6tls29BOSmeEn9OSvfS1mRqqIjBCT9XKul8SwdCGrB
I7lzBHRwI95i9BQdNjEXK1eWCUhhSP1ekzEdhCrcU/XYOFG8mElDMut7kzzl
YNm5iRMdzRc5M3yCDrLCnaoywpzovezjhqvH6aDcbr7JQ4QTNX3/zagHVj1d
1avilOFE/4mFVZto0kFXoTz1rCIn4qKqFzir08Fo9nDAywOcyIvvCtWVVR/W
Qfv2HwBOFHK5V2aPMh28E/heXbTmRD4X2UneknS4c+FBQJYdJ5rv1KtvEKND
qNSa5ZwjJ3ouvn0TvwgdYnKmNj324ETECSxHfwsdsn9QAgqfcKLYTo7BNDY6
DC4knuMr40Tl242VhTtpkK5z0OtPFSfatamgI4pOg0uRTdG5dZwomn60daaZ
Bh17CLXmbZxo46j+OZdqGlDMPY++nONEasoSfnLZNCjPN5FUkudCoReG8Vtv
0yBwbURrQ5UL7Q+2oBLcaaBheN+Gos6FUsmPVXpdaFDYWxzno8eFTpcmSJ8+
zzqPN8sSyu250BVTYrqIFg0Sb7KPmyZyIdmmTLm7zBawKH7JKZXKhSQocx+5
51jnO+EIcS6TC533KmkKGm+BqJdutomfudDrkz1e+9pZ90N9Z1NPIxcK2J77
NrSoBdzlvhS447lRnk+G39VrLWA0dC0ozoMb/fK4v/b5BxX0g4jZJ/y4kZxk
+/B6CRWOb+vq+HeXGzW12JZo5FFBU+/UkQsR3OiMrPTDwGQqyL9RmSO+40bX
xNedNNyowHd13qWoixvdPpXa/UaICg2DQRZtBjzIKsHYefo0BUwHYxTExXnR
ifR7NXLHm6FBYZBmu4cX+fy9nRsh2wzGXup3X8jzovb7jLOdm5rhJEc3eac6
Lzq0nUtbq7UJjksq+Aqf4UUObyRmNl9vAjXbHyTuUF50Myjv8M7oRhCjLVvO
DfGijNYMfY/aehivcrj3K4cPmQRyhxH4f4Hylt+7dS/xozh/SW3/0HLghYXL
XXMCKEh2eIGf9h4MJs8vSlsKonHxiSKNqBdYW6Uj+3nFLcjhB+Ot+6cSrCi8
2k5yYQvKeKehaZ38E3Mi+PQ2NQkhgZ6drc5GZOyK552iTcnCCLfNN8R+gIap
OCs0mVzeisJUz8V/OtuONQsp8vlobEO0BZPyMs5u7Pun0BeKuO3IyOVk4bt9
fdgddvkzDX+2o/eOF2gHbg5gvF0BJ90KdyDjpOvHFhOHsKG3UvGvAneismzZ
vqHoESx+nwi+2FIEGbzZY9WXMYbFJDvVXJYURbdv6XxWCvuLnY+/2LRpRBSZ
nxh63GUxiS2deLP8qnwX+s+T+a1MaxobGDruVxkmhpbZ9YY3Bc5g6cf272q8
vBupBRa6yDvNYjkPfbY4K4mj3D+xFapHGViY5RVj3II4suupGsFzzWFqXWnv
wxolENfAPZmS7jksSe5FTqOxJNqpPZt1KGMeCyZFJhkXS6L8bDMnIa8F7NQu
yzd1e6TQn5itGsc1/2E6bjUXtjyWQhFSOY/7p/9hr8Qc9jQsSKGHEieFvfMW
sT1V756ZXpBG1SE/y03sl7AYpUp5ark0uhgRckGGZxlzmsNTauWJSLTsXdzj
0mXMIZ8h+TiaiDT1Q3mC7VewG6Hmq0axRDSRTaaYX1nBfMwLWzf9R0T/hb0/
v89pBQtf8ImKeUZEa9N7P5Gvr2CfNJaZiSlExGHvd1H89gq2XLHx++1HIno0
NjucE7mCxVA3RVbXENH3E8SZlJIVLDnjpsujWiJ6JhvVfa1sBcvwbtI9WU9E
dbastoW0gn3ZHrNS30REWyiaauQfK1jXeWGXFjoRYe2nk9fJK5jsgIhu/wAR
lfOON50eWcFUCwPEM4eISHaPbu/O8RVM82Hn8tURIor4Tizsm1jBTGRT8sbG
iWi0LTPDk7GCeV6XFJ+dJSJr71/psWsrWKBWyPLnOSK6rxZca83GxB7y99O8
F4hIWlywQALHxJJyM54uLRGRQMRYUzY3E0u/h3cuWSEir1R9di8+Jvbx7NXj
gatEFMB4+++IABMrlP65W3udiJJ+bc1dF2Ri5XMyyxsbLD3tkuWrhZnY/wBu
CfZ7
       "]]},
     Annotation[#, "Charting`Private`Tag$6593#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13k8FV8bAHBcV5YolOhnV3ZlKSrqOUJSkrJUUiFlqUQr0qJVRSFF1myF
SAsVySCyb9mufd/Xu9+5knfev+bz/czMmTNzzvPM8yi5XTx8ho+Hh2eYl4fn
/8eEW24Ceu5Pd/m9Em48WcuA8hZF6yOKXpB5sbHdhfDy7+J7iooBoHVvUcCT
sFjk14/ClLvgujOC/xrhhJIwBbLiY4jY9/tyKGHtefdnyx7PoSusip1NuFcs
8d/fjkiYrr2t30l4w1shQ+7iSwhbY10uUceA8zuvXmArvIbznJL9xwl/aR1I
Y5jFg23siTN5hLnnrHuoHkkQk2P6XqGeAW94ex6zLZKh/mp/XiJh8/qIjayO
FKD0ZkkZNDBgIsaylOGVBvFYhWsf4VD3JWf6Yjqcv56pktLIAF3dLxxq2DvY
N1g/eruJAS2LnlELCpkQN3BAJ6CZAdcq5XXnP2WB+8vHgc//MGD9i9baWbNs
kDjze295CwOKTz7xmGnLgf3LdaIybQxw00SkaY9cqH78YPvzdgbwLQY2MoI+
wi6lyK3qFAa0DjjIMSw+gXn/uPtoJwP8s0UKaB2fweXRxYrmXgbsixwToL35
AhzZG9GkAQbI+pfaU73yIHbTh96TQwyYOxGfsqCfD8aYT8vICANKzK4vzC/m
w/U3nKxX4wyI1Di8a778K6Rq0UKvTjHAfZVO6FzYN+DY8cbcnWXAiu4htVmF
AijdFXBRi8EASsnPqzMTBSCQfdmsms2ArLcxv6Y/FQL0dNi8XmSAzSWbU1Nm
ReAdcf51C4kJikc1ciZX/oQDBqzbIMgE2k7+xYm2nyDs0jM9sJIJr4QKX417
YOCisXl1pRQT8q7vu3RZugTeazSRRGWZED9lJEMPKoHn95/TnigxwadJwoNm
UQoXTve/0tVhgkR8FR+1owwMvxVd1rZkwqLY10xfk19QTGlRMLFhwkhwqu3C
m19wbx2p+4EDE7563Eqc9yqHVtmX9pXuTHAy2LJjbrEC5ruHbi09YILZW6XB
Cy6/4aKR3+7OZ0zQllkVMlv+G0wuawvNRjPh37/JtpmwSuBchSOFWUxIrkny
m1aohvTpWUvKHyYwYvI1+0OrIUCqRGRPHxP2eNQO/8Gr4dJ8kvbcJBNmSGyH
wpYaMID1tHFeFmzbabPj8aM6aMteGnPYwoKm3L98avONsPNhzq5bySyQAKGT
opuaoMbT+1xpLguMVaN2PHJvgourD/EqFrPgGSOTHtjcBJcrl25v7GbBloi2
M27vm0Hstx5XSIoNt2u09+mdaoFn702f9oayIePTN9X3L1sgfVVNUmwcG/7E
7CZtrGsBxvaBz5ZZbNjgcbRIensr6Gc1nDhbyYYa0v1NPJJtMP3jasQZHg4w
psREAq3a4FrkQ9/DYhyQ+/N6nH67DcjVl69Ly3LA903um/GZNrgiWIptMOKA
1M5uicbf7TCSGP58wZsDaMPZ+b1L7eBcYTRz9DoHvESotWUGHfBdeeuN+/c4
UNQp8ODrmw5QGHv5fn0cB8ZKIlx1OzpA3Mhf7s5bDqzKkN2VJUqB5wL7Tyd+
4oDbNX12QiAFrqEu98XfHAg98bNl3ScK6BUbGmxt5kC++d6PEeMUOCS8bVGu
mwOCkie9Hth3gulbEV76LAf0uRMWy086IeXWaGwXiwPHBy8rB5QSXlk25rHM
gQ+5j7vPb+oCvY03v3mvwmFKYip0n2sXzBcN5bpI4aB2bd8u9agucI/sCeKR
w8G9M2ueXNkFjC23ffaq4PDGRCR5GO8CjbXJPYYaOPQknTtcqt0N1lmDqjWb
cJAh1ZGSTnUD//4PeTxbcHA8q50fFNkN3vXmTMo2HCKrQ886VXSDASnv1KGd
ODRoz67bxukGI9WuS56mOIiEH6heq9UD76xc82UtcNhLzwmkn+gB/pGC/PN7
cbjvKKbdHN4DYQ8khY/sx6GkwKf3w68eGGmws+06gMOSbOOzUFYPrPkhsol5
EIcddzYjb41eoB08Z/v2EA7Xhp9TLZ174U6lwfmZwzh83rOQsvF5L0SYZ+z8
bYfDfKatPamsF4I33AzRt8dBW/QTeZDRC6HLFet0CXv6in8rVuuDBs+hnz+J
69Na/Dzjnfrg0i0v+y5ivEHDPzKBYX1w3WlN0X3iefKx+rVHSvog8vK7nh/E
fJyWIoO20vsgfakr7RYx31cudB1J1X4IO7pbuG4fDi2/7PoXjvZDaZy+UKol
DqvV8sIbnvZDhHVGGp85DtZP1uzOLu6HD9baY5OAQ8jsFfpjaj8Mi37vPWKM
g1uG9x8DiQF4u+518n5DHHi61r9P0RqAF1N2NuW6OCSJ1N4TtxiApAMPBUo1
cdi184bznZMDYLC6moY2EOvpo7V1/voArLSOMDUj1j/wTbfoyYgB2KMnrla5
FgfpP0/H6rIGIP6sdG+tKA5fSSaYcfkABK9gpNiScbDfOhOd1TsA/1nZ/LT/
y4GIGGurkNWDYF6wRZYywQHdmr9KbI1BkPbFSI59HGhYzOaeMRuEHcb3Hti2
cED4lGi22bVBIP24+ef7Dw7c29ggttw9CFvPcccsHnJA+cit8QvMQRAVlmqJ
JuKtJGRTSY/YEKjTvhW7enLg7/Qzv0LTISgIEI08vpcDVz8fbL36bgga25it
nbwcWDOynD1SMgSnnYtt+ubY8Hntxwd2XUPgn7Zi3ZFuNsz5rzbSEx2Gh7MG
1NTPbPCA5tczl4ZBzXduIMmJDTwprMLup8NQZSn29rMZG2L4ZXtq0oZBZuaz
sYk2G6qqz8pntg+DiZjkk8+LLFC3/5tyZscIDHjz/1GOYkHJV6Vye7sRSKoy
3zzsz4KjMpajZudHYO6mW8+6EywI6YtQU04cgQ1T04weFRZMeKpl9/GOwkjy
hc56Ij/fqbWur18/CuJHDM+pP2WC9KZLc0UGo+BTvG6B4c0k4qVIN+7MKBTn
lKUOqTMh8+bh/CPVozD6a9haMJEB3pE3i5vCx8A5iEwzvEAHPmZKP5ZJeHfq
t6fmdIg9UsWTWzYG/emRdgf+o0ONrKRZGGMM0vEVsWsraaD1LqPS6ug4jBkV
1eauo8HMj5amMoUJ0KNKH82NX4D78jj107YJiLtE+5HsvQCywfKSyYcmYIc4
VZ9rtADWe7wcbt+bAHV8IPtr8jzkNP3rNB6fgPSxwpAk1iz4jGoM532YBK+S
hxICZ6Zg4GSnYGn1JMwPb0mmDk2CHSVkU/3IJPQK6QueODUJ22rHA0bXT8FQ
UvjLbLsJIH1KXy31aAr8c8zxJY0xiAlS2nX91DTYSIi96ng6CMKsptP3Aqdh
Y/johZmFAbh58c7j5y+n4Yvgq3vu9gPg5tbf+q52GvRDL/fMafeB9t6EcxSj
GRgpdDeji3ZCqaTM6+2rZ6HLsxqvd6mDLWFVxRZas5A/NaC2+Wk1vBXwHzm0
ZxZKFBwzmj/8hlC8fbN30CzwJRQd6xksAcf+qN+xE7Og4x0ms683FaayVjMW
S+Zgx4maeJJMOSasdF+tf9sCbM0XEUmIGcKqTCI237JYgPbPwf9d9h7GHh5N
NJI7vACFdeWjESYjGF/4d8vj5xagSX1l6JbBUYz7b8ajI2EBbpcHJrqqT2Lf
13MvXstagE8lZIU+ziR2zXCF/9pvC7Dk4HPoVtUURrugFGLXtAAPrgzPe7jP
YNM9DhmNfFQo1ytO54TMY1kct48+q6jAH1widUp1AfNc4/tdVJYKtaOBrbMP
F7CR/U+q9m+lwnn37YF3zahYikd005QpFeKVaMxdSVTM5V4a5bENFVJvUbA1
OBXrKSyeqPSgEv9pJyWftzQstr124ewVKsTOzVS9wWnYURqFQw6mgliureH+
fXSsVYMuaB5LBX/+Sh3XYToWacEjPvyWCm6NL0sCtBiYrauozN0vxPMlUnPc
fRlYXYyaRkkdFaTfL+LiCwzsSd4WvVOdxPXtG6490mRie5tMt/8bpYJPjcsG
Q1cmJjBjY5pAo4Lfm8fDiy+YWPkKZyuTZSroH/3W/b2Mid1V8TrULUKDDjun
2oOzTAzBtWOB0jT48P6d7VtJFvbP6Z6rzEYa+EVP6KRvZWFF18K9vuvRYNHY
8tE2OxYWGJngd2QXDa4JVknbnmdh2z5kBbD20SAnAU7332FhrOpvwS+P0ODh
WtPG3nAWljda/niLOw1oJwwr9sSzsEu8fyJafGmwtE2iUCaVhenK9b++dJMG
HmsO6jqls7C5bTPJ4k9ocOndlpxVxPkcezzz4ysaMHemp1gQ95/3Ffh8MJUG
ekz2AZEIFqYZKlk4l0uDTr200MvBLGzinWJZWBENghkF76IusLC3v3RqtKtp
8Om07boQBxbm3r/jT20bDQKjDcF7OwtTXrTs8h6iQW+mlaqTDAsbkHIYEpqn
QYZEn0YAk4kl6rtNZSzSILMn88NUPRNztrlIsxSkwy39yKaWFCa23juIO7aG
DjkXsiSOX2Fir5JfCW/cRId3v0/rD4syMfufqRLlO+gQkV94ems7A5Po/Lj+
tCUdNHZsb6yMY2DPVtdqJrvQ4bFRIHZIgYEVGMnl2/jQQU44To6XQsdGTl6E
vzfoEHxMNmrbMzpmnCNpfySaDmqfE+v4GTRswsr5pmgDHTKu7KEoZ1Exs3uz
jQHGDHAWuK5k9HsW4zBXXT1M1O1zPmakc7eHMBU5t+VlFaLON8I0CpoHMRvz
vMc5ekxIdHHx3bZxEEuPPJooeIAJ0zX5LwaT+rHDm5Mri+8xoWALS9DIuwvL
8dRfr0Vlwj6bHEbw/SbMrdseI9WxgJ3PmvK8GQnCcYMX/DpZENlO/d27NRk+
O/nI9o8RdW/vOxFcOhNIXY8CCnnZsOTlM9t/KA/SKIUGfkZs4DP0btLLK4Wx
NsWMvhQ2qEZf5+mdaYRnL3McrT+yobEx9K1wUxMYOuwgF/5kg4npqzUP3zXD
o1Y7t5cUNlRkrq7Ut20B9ZaHstZE3XsrV2uL0ON28G6aCS8I4MDh3SfKPiT0
gER4AKg94sCMOCeFdaQXCg8KzEVFcUD7wBNp/9V9INKosN83lwOOeJ2TSVA/
ZNcfJquNcsDW8mPQe4VBmKv5HhBlS9RJp+9kkIqGwa/ivttFNS7YrtuhMeE5
AfIjewRYBlyo93Fi+mZOQC2fUFYQ4sIwhbnl4uQEbERh1MfHuLAOu/Gw2WMS
Ogtf3kl7yoWEK6TSwyenwPTj28TOeS5Mnr8j5m4wA3MNnrtd/nLBIs3TsP/c
DMTNao6NCS7Cgsu9yuHUGWBq5uowlBbhfXfw6zCJWchM/1YkZr8IewZ5Tt+d
mgXxuKous++L4OAXEE95MA/FBU9u1ZQvwpki2S7Pb/NwjmKtfKh5EWqXnWoj
J+ahYm2z18mpRejcu+Fb94YFCAjv5PjL/oXGxyMHP9xbgMEHU1If7vyFb6d+
xXhvo8In35V20lZLUJYwsBa/Q4O6WMmAHMcloNibppS9pMFY+fqk3e5LUJqf
cvlkFg3Wy2hMn7+9BB6TJjfFWmhwv9TiXmn+Enz6eknsuDIdHCVuf/FW/gfu
Vs8u4t/p4GvysHN58z+4YJ2csaaWDk/Ohi1H7fwHSk8TeAR76YAVxu3Hjv6D
3RszT/rzMED99Pdhyef/wGFhrD3EggHcL1TJn4v/YD73CSWnigFr+jjbDwst
w9PtKMmX6N83CfK4jEstw+pdVq6rJxhEHSWWLa6/DKqdG6jjAkyo49cyP+u5
DG0Ui5p/u4k4cXC/sqptGZpwJ3tyPtFf3jg3pXuEB5Fyo68r32WBbokQ59EJ
HpSZViVhFEbUR/wZ5P7TPKio8NBXgxgWDISNKIb58qDYUc0fozkskH9z4sjk
Yx4Ufuykuh6FBbHlB8uTi3iQ5YOoykfqbNAUmmvmlPGg59O7r2/WZ0PBgdD+
g9U8qHS/xOtSYzZQ2qu4S208KCWkrzTdhg1Sk6Z6TvM8SE756S2/y2yIFN2S
KKHMi1RjSae2FLBB+fCf917qvMisOcDmRSkbPr3yLSjZxIuSzfWq+6rZ0KSQ
0+pjzIu+GfL3GnexQUxfVaTWnhc1sBwp4lw2PHGU9r/3iBc5HV6haGnIgbtJ
fw8xZnhRzPALVmwyESe63/206Lwoy2TELu0dB+RLL0e44bwo2nv8YGIOBwqH
ppqayHzIeH7rbfcCDtA2dh7MkedDw9oLm02aiH4xO//AWVs+dNTiIldrkaiv
d/pdSHDkQ7HqV+KteHD4V68d1urMh2DA0egYUZ/HzqfW7fbiQ72nFzJsiP7v
j37kfoW7fOjRA7nsKGUcTAt8rChf+JBQgbF54h4cxPZpeq0q5ENm6VG5I0R/
0tM1GrKnhA+d1O3eK0/0M/5/navy6viQcunkgXNHcPgI+y0jRvmQ0qRVjI8H
Doq/1Sz2rSMh1zJKkMYDHOYch92D5UhoXCVT9H0IDkXjife/q5BQmvH7QcVQ
HI4KSZWr6pKQn2J21GQkDuHW/GYkKxJ6wY6aWkgi+pmWAVQUSEJCl2gKo9+I
fnCyODkwmIRYFE7jXCEOQjwJfNtDSKh4xKR9+icOEjrHyvNfktDS1gHdkl84
bHzUbJn7kYR4bbaotTbgkJWQm3HhGwltifsYGdiMw6a8MCHtYhK63rYwvqYV
h22DVrUZtSR02FE3emMnDvuMy2xSxkio/pUZ6/sQ0b8eepPrMktCOoM2iTyj
ONh53lqtwCAhxk7eIpNxHJxf7vgTx8uPBp+pxkdO4+Az/9nhpSw/eqcy+esr
HQcaOeKrnQo/Wlr2nktl4nBd9uI6CU1+5FLpLPmQjcMdK63OZ0b8iKPNCNVY
xOFFaqpzyGF+pCC+vDjHywXpwuCfe47xI3Zu5bcHJC7EN52SJ7vwo2llrRlx
MhfeLv03EHyBHwlKcReFBbmguYaL0BV+VO5WzrwuxIVcTUryv0B+ZPNwPK1L
mAvfj0SdvhHCjzRJcyeDRblg4nOpfPtzfnQL+T2qEONC6X3bjZyX/MgpOOzN
8iou1HxaOX4llR9dedfc5yDBhR6RB94+xfyos85BPlSKCy7Kp2u1K/hRloH4
qeB1XBjdZqo9XcuPth9I5LsgzYW5M0uzHp38KPG/jEy19Vy4HNRtozpAjJed
XcUizIksyB0Z40fSPC+Ci/7jAm/JVT9XBj+K8tBha8lx4WG73R+FRX7kSCpr
aCMsPKtn0MdLRksV+NVr8lx4TlodFS9IRo5/xbmiClxYs36O4bSKjO50GXjG
E47RrXOQkSKjZ2lX6pUUuSBnmfW1Q5aMnra3GSYSVr1y1t9ek4x2eSZYBSlx
QWdHv12SLhmR3fdXdRDewnN085QhGenfvPlGS5kLxr+bhLfuJKOxV9d7rhPe
HWo1dtuMjK6YXnxYRNjqcFlpjRUZNbU+zcAJ20obJ6y1JaOEJ2PWm1W4cKTv
i7+LIzH/6Cc3TxA+maZt/96ZjDQsr5rfJ3zGO30zy42MKla/ep9K+LyuvIip
FxnN5jUU/SB8mfVq7OlFMlpjTw+uIxxYtKqs/Srxfo9q+NsJB98NSVAKIiN2
gOhBCuGQvbwB5++Skemyh3cL4edigfbfQsgoOtvfpZLwq1baZr7nZCSy0LQj
j3BC7DmRAy/JiKrG5IslnOYyMhYdR0Yqhc5l/oTfq54oG0omo1bNS3dtCX+e
aUvQySCjuwYvrJUIF3y2CfD/QEb7OldrThPvX+Jfaf8rj4wc7m3e8IFw5S6k
K/aDjCZWq5l7E27gLxA5VkpG++eVXygQbqvRG0+tJKNzm3evbyC+f094Vtlc
PRmdioseukp42FElcXsrGaXUajClCE/Jxgfc7yKjbSZ0p0/EelKH1jg0DpDR
edchWQvCnIww3fXjZBRf1Gn2h9gP5K23x3PpZCTXvnmEQuyflYvsMi5OnH8u
ffEwYYlS30QLHgF0NUHubgWx3xQPuDl0rxRAKXzip2NkuaAm2a2rKimAdg1o
7+YQ+3VTp91KPxkBZGFRUnuIsMkZi18CqgLI/4Q2D02GC2ZaxYmHtAVQ0xPK
j22E91ENA+P1BZDOsVSzACI+jt5U19MHAfT5QxllnIinKy9Fkk4cFUA5s8LL
NyS5cOP4/cCMkwLogGgPbyQRf3eVlhzo7gKILbdaIkWcC+E5cysf+wmgYxGB
gR+JeM2uaA7MeyKAthwQ2ftIhAsjzGhHkZ8C6N/xhFgVPi6kmBpc7v0lgByP
fXtQxsOFU2ENz3NrBFDh007+48s4dG0gV9tRBJDNxvgR/784NNtdMo6nC6A+
VwkdLxYOxZ+sFXU0VyA9HfMmlUkcgpbGTZZ1VyC5r0lmLkQ+3G5171iz0QoU
IDzb9YrIl3kDBZFXLVagM+SP0bRBIh+vUiMXu6xAU14vjM504RB9gXfKJnoF
6q2+fGxXDQ72BfECSokrUOyTFVzFKiK/k7ep0NNWIFWDgt3/KnB4Fu/jHP15
BbruyTeTUUr8H2q7G/rrVyDq8a/+2HccfDW+fvHlF0TFlw10OOlEPh/1vhnp
J4h+XTr3rDYIhz03VbLN/QXRib6SEPlAHHav7eli3RJE5rXJOy9cx2GHxYFt
x0MFkbqi3cKSHw6a6ZvpKu8E0axcjfrsWRxEzjA883sE0QeNz3sEibq3buSm
PcVSCL2/0ZvhpICDzUi4lry8MIrP4q5I+8KBOq2RVucNwqj4Be5u+5ED+y8b
3YrTFEaNY3u3c7M5sJevr0naSBjJBNQ67nnLgd2KWtckbYURz1Ox+pIYDmx1
rigRvEv47UCb6U0OyLbiDvRRYbRHvJ8das6BqV9ud6pyRFB3+vTt5To2bBJv
lzM7JYomE2bcHn5hgTAwXXvoYuhpZcGu5ddMsJx1Yis7rEato/oTG08wgFLm
zuukLY64XnHl1xXpkB9SflKRKY6cXX9VSnKocJZ8daChQQKFnzTvLP++AKcv
3chfGSuJlJWdTohunIfNHloN1q5rkOuaKbux2RlolNAWubp9Lfr5aa745Isp
+PHhbpw2SQodLa+bXOszATd4NW3reqUQq7Kg+onGGAj3BO71yVuHnKMyXX7/
G4bRt0pRSUHSaOr2bFGHwBBEqcvwFzjIoK9ig2HfR/shPPZspavieuQW+K5D
QaEHnKJONKwcX4++NJ1SL7tHAY55Op5U/B9af8WgZvlLKwyP7vYveySLvA9J
pVrubIaUnXr/1bvKob6mj/qpGrWQ8+CquIeOPNKtqDjnG1wOjxxO7ycx5ZHC
xXNXEi2KYGtPcuajegWk4WUo/jIqB2I04nLq9ysiS9nslZJr78PtkrCY/QWK
SKSOb/ISKw078J9Des0GJZSYkfTGcO4rZupTeVz8sRIqPbamTW5DKZYk67ah
jqmEwq1mlLLUK7ENv969sjmujEKO99+8+K4OC9cp0/xTrIxUKd168uwm7Cyd
v7laUwXJxF0Re1/egrl9oik+fq6CYrC+yTv27dj5u3Z/90WooPNO0iKtp9qx
q3Z5HStfqKA1FTc2qZ5rx0KYV5+Fv1JBv85eCKoMbsc+bMcXoxNUULPqt+3/
PrRjeOly+9v3KqjBOuGUiVAHFv5nZVh5pQp6W+B2/29RBxabesHzYbUKkrYQ
26Vb1YGlXmkw21urgvpkjJfdWjqwr1Lh3NoGFcQzXRJTMdmB9ThJera0qaBM
0bU6t6UomNqwjNnQsAqKbb65/OsiBdPNC5RPG1VBxkZD5hOBFGzHg278zLgK
mo9yjxJ5SMGs1RI+Tk6poFPCXocPxlOwS+cU5alUFSThz7apraJgQSbB+Ge6
CqoP+jM53kLBHogOtV5hqqDNClLhpH4KFpOb+pTDIcZrv7FsxKRgKXf4PQq5
KihQcaHKlqcTe3/ozO6gvyoo2tcv0VOkE8tT/i23658KkqxWv3NbqhMrpqvi
y8sqyEUZfF4qdWL/A/38Td4=
       "]]},
     Annotation[#, "Charting`Private`Tag$6593#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13c8Vf8fB3Dce861i6aS0Q1lpT1U7zdaVJKdlJFZEUohpaRvVEZSiRAi
iagkhGtVNhllZo9kXXv7nd9f9/G853Hu/Zzz+bzfn89L0vyytiUXBwdHBycH
x/8/w26Zk1ssHh4we8Zbca6EjgXVEscNJGxhnmugyoTy4vfsuxISrpDNT7t4
nrJgYGoyb50n1P0ts71AOSzHV5yQ8AEHB5tIZ8ryQxZ+i9b+sCLQtuMe5WbB
8IW534Gwbss3jpeUN8Ty7JyZfQr2eu+K0ihf2u9sNyn+As79sBRopvyppvX1
mNpL0Fq9PYSnlI4zF483sa0jYExSej9QfsXZ5DN5KBIEyfHcW5QPlj2Wmvgd
BSsyGkYKKfcGH8kds30NE7I2wWJldHxkMW88OhsDf0gj19uUlZQ+TbF930CZ
8iWjIcrVszZBw+Jv4Zqy/MLFcjpe+yGmNPQhHhpWFG+YpLzmSU3JgFoCfLjZ
+/BxBR2zzz2w7q9NhPLii4PKlXQ0l0XaP+sk4F96lD5JmWvWrWLMPRl+nNH0
zP9Jx5pWvXVjhz5A8d5pkagqOrok8KWP/P4IdYL7NYJr6KgR2E2OvPoEr+tV
t32opaOoS64u2zYFnM2Nf/35RcfBsy+jhrd+hu/x+35K1tExR+368NDsZ7AI
5cxyq6dj4CbtA0MFqTBjuqDQ10BHiyUKjwZ9v8CG8XufHJroyGhslxkQTwfv
PhXxby10rMvJcu7vTQc5SeAJaqNjfGxw/r8PGXB0D1vQvYOOmk6aJn1qmdD8
RHn7ix46ShhuSvzLnwXlFrdlKv7ScWQ/fba3NgsUblxpFu+n4zOejGc91iyo
a3k5JMymY8p1Dacrq3NgwcTu7+dROr7s2yUy6p4DlwXKWq9O0NG+Uth65FAu
tMyNfTwyR0fhl4Vc7N95kB97PvIQD4GzgqlvHfblw/1dl6+X8RPYeSdaa/hV
Pvz9Reo5LSUw1fpW+JBtAQTWVwgtW02g0bbtewdnv4FE+oT0+40EqsVKttmZ
fofW7ixuUQUC5UWWeA8UfIfvXmv7Y7YQuLDwt7bf9wdsIKWe8CsTGFkc4fhP
vAhm0P3h2pMEjgV/lm15VAQW+pZ2VboEHrYu6aiaLoI21dqbsUYE9tMm9TKq
iyH3QqBptBWBu/dr7vW5XwpPJOlnGjwIrEya45IZqoAjgk3/2acSKAw85wQU
K8HXY++6gCwClaWD9t63qASTagUbVgGBfmNvR91+VkK7opeMajWB2x/XWpq/
+wmbFcMtUoYJ9CiW19hiUg1DEtIKYvIkxn34Iv3uaTXMal/44r6NxKpgVZpU
aTWstxnH6r0kbrA2zFy9pwZUXl16Zq5OYjHNS5FjWS2s24RK7ZYkjvUJ8rmp
14J5UGFE3SUS11W96Bn1qIV3myH66xUSHV4lverpp65XWP5QuUPiyv2NwhXf
f0FIyIkkmVAScYPV0NH5X/BLIbL5TCSJtnzskrxtv8GrSTzG8Q2JmfXkvdRX
v2H3Aa2sfZ9I7M55bKb0+zckW6lcG0ojcUmc6IF4gTq4XC774lY2iebXtk6G
udXB+YsjIgpFJD46m1W96kMdqMRLcGqUk/j54NHkxz11oKUlaXmgmkTuZeds
7+nWg7oYX29cE4lbZ3oPLT6oB1feqRTRNhLPtF1Z75pL+VS30fkuEt8n+TRe
UmyAnGa1fIsBEvuE+x5pmDVAxNtrrJZhEmWuaRzYGNQAp4NGYzaPkWhRHz9E
/GiAqK6CcJ1JEl/t44vsmG6ArNraWo0ZEpsiLmrnyjfCSYkJt+XzJIrQSmkR
Jo0Q79CUm7RIor6V/Gf3wEZo/iDTvpaLgYFFj6yMvjVC3nGTVYZ0BpbLD6za
PdUIB8+NvDpPMpAv4ETRCrkmmBvakbefm4FHRxPdRs82gex+87wuHgZ66QvK
/wxogiEB/34jPgbmpNs3v89vgpCtSf4v+Rk4L1rh92iiCT5ufLjwVoCBe29v
xgubmkFiNMPfU5CB1zr82UeMm6FXMSJMagkDPx4ejpLybwZHu9P/BVIeequl
S8trBtvm/HeFlOUFPhBtY80wqGFz5QdlGwehL9kyf8DP49phP8qvqx1tXhr9
ATPejMeilNt2Vom4+f6B8y7+3xyp/xML2VpikPMH2PR6PV9qPEbzge47Rv/A
TNFIuj013memowrLpFvg8vXYSyuo56nO12kZNmwBnhdi/bep510qkxJQ/rAF
HBzr05MZDDz+YLlqQnYLeDiGGr0mGOg9cHXUh90Ca7TN9M/QGGged6Fqm3Ar
zP46tbuWg4EcDWveRcm1ghMm+QktkBjBV3JX6FArTDkW9i2ZJfHA/hvGt8+1
gkr139YKan6b7OV2DF1vBUX2Ce5T1Py7vWoUOPe4FUo6BGYDqfWxuuphd2l8
K1y7JaT/tJ/EVNo+lnJBK/zVXEwz6CVRd0f/8/jmVki9LP+9voPEx8HH1b2X
tkHxmwjntQ0kKhXPSU5uaoPtNEvbhhoSy2cTZizV2uBb7+F4gwoSeU0EEtSu
tcHbjQWVD/NJvCtVLrjY2AZ5t7nOVMWRuN7gVo/deBts1lp66gZVbzneijlN
gu2w72Db4dYXJM7983PMUGkHgvuRUrMPic4fT9Y4v2mHpTs5tF9akbi8czGh
M6cdTrt2+omdJfHjiuR7Og3tYLGOZ9RIh8RBl6W7tgh0wD8VcVNOINEafr7o
d+qAfXfnDBaFSeSImshofNgB/JcfZXgzSAymizYVv+6AHbnn7pXNElhYZCX2
9lcHHK7yS/DuIHCj7lyU5d5OCL59vzInicCcVMkCXZ1OuJ4ksygRRaChyJEu
tUudIP4gVU85iEDvP49l1od3wl6cbQu7TmCvjUzCH84uWCO6T3cl1Z9vlxwv
K1vTBcnXJMLU5Ahcreg0mLmtC0xkH7dsWktQ9ZKpFGrZBYwoq3SJGTq+van9
2aCIul9h0vdTCh0vBN7MrgzoBn0e71YNUWp/Ho9qYb2l3K+vNs6gY4hBIUdS
XjesDtcU0h+lYbHoMjXfsW6YOeKzfW8RDeXexP1QN+yBtdbnT9x3pGH/1+rK
PPFeyM1/vIyRwoVeYtPsD7t7wdnr1iGOUC4UvSO2LPJULxRUz99OuMOFxw/b
6nnc7QUHnyzhdZpcmFi5UK/c0wuV9BR1gw5OtO/a1JHy/i+ozEr3Dy9wYOu5
eu7cor8g5VVVcfEPB+rUeSuWdf6FiLLHb//L4sDdJT2uXWv6QOLK30chbhxI
+xCzdOX9PhAYSCg527oIwe6SB66b/IMrEUIhGo/ngXei8vxdt39gem6eqFWb
h5uXb/v4P/0H8SG1Sx+Pz4G5eUvNm5J/YOgq81+I/hzIHw27WLerH8hvHRGN
grOQu0zkxZ6lA3AhX83PxWAKtvsWZh+SG4CYT2RKwdwkxJIunacOD4Ca0Qr6
nshJeDT9a/MF9wHo36RqFNIzAfotQd9DegcggvO3uPqFceiLXzo2mzMIMRqO
Zw4cHQFeSS+Zlt3DoHmd54nEQjcU7nu8+dahYfjg+sRTQ74b/jMM37VOexgG
TbTS5Iy6gCsg7ciZi8OQSuMR9vncATML/da/w4ZBzCZk8Yx9K6Stmbl8LX4Y
NtSJLWQrt8C1nQyXFV+GoSbhxItbL5thxE7SW6dyGKQdzhu/s2iAf016cRVc
bLgxnjjss7YG4qfMk+2XsGFYd2PbwpMqsFnukCYgyobp3AN9+UI/ofPYg8Jj
O9hA8/eJbT9QClHWzyv7VNhQHJNfuGBaBKZ3X9f5aLIhIzPAVSvwOzRlZPf+
sGbDZJ+H3T2ZXAj5VTJsdZUNJW4NZq1rs8BwpG6KuMOGh07hD/cIpUHNplHu
gyFsyN7ntDFlMQECD3EIdcSyIaIhuDxyLhq0zAREPD+xwX+09bR39jMoDZbZ
lFPKBkmrBy5PT3uyHqRs32JSz4ZxMuD7puLnrKOVKnsWuthw6v73+L6MKBbZ
r6kSNsIG4kSbf9Syt6wChrH6vkU2eO0Pfqry7z3Lk2l7qpFvBDY1zRYsEf/I
Qrh22m31CNw0/Cni4pXCWjC6ayYiNQLyK1oHLF+nsjKvBdimbRmBZcbFd0Nv
prHcAsMcDQ5Q9zN/hy5fksHa/T7edUJjBKZdtdR4DL+yJoq+3HlqMALWE9a0
YYNMVkpXgc92i/9fzzT3EMxiOXFWPa52GIEEebfk9zeyWErrWl443RyBVx1H
lqdGZLEGd/dHCj0YgYKlke0C1PVE3em3yc9G4Klr/B476v5LDuTHk9EjcHio
dvCHUSZL9tGyjMGkEWhOe1F/zOwrq/eNRJ5v5gic7hp/cJaZwYrNVyiWLxqB
9Dpjr6CoNJZFy96qktoR6vyfw/WlNZW1fvZIw4X2EbinzL7yuSWF1bpSr51n
aAQ883clxkR+ZIVvNe+Lm6XGZzU2nbUxmWWseXnkCPcojD0cVXo1GM9ac8F9
pnv5KBwdmrniLR7Dehb5jFdKcRROiB7/tToygKWbFS1csHcUGn0OmG5KtGQJ
1yevOX9kFC5MJ/Z6lNwHv6UlspGm1PVavpHIOzGQvmvdZ037Ubh8m62QevE9
dJ67DHM3RuFqScf781WfQDlxma7B81FQwmzpV85Z0KtufFOgfBQW+SRTW3iK
QO3uQIWr8hhsO75vmj/yN0yNL3HWXjkOsVk/Q7RX9QBznfniInMc3Mf0rtK/
9YDmwRSfxC3j0F+SonDPsRdiAg3DuU+Mw4oje2tKv/8F7c2RP7LvjsNu4RCR
KLN+SLTZukaOPQ6fVFtOHaDq0LxRl0UrnQBJx1Qn3RXjwBvaZudYPwGklGqW
gN44fDSyF23pngClWuvn0kHjQGu475rBOQm97m1l7ksn4HVdxjbHXZMg0LyK
p4v6vrtWIu5P1CQo+ohcnimcAr+nifrHkycBihNdzBanYKfeXiIjaxKeSyvp
4o5puF+jY/60bhKycspvX4yYho3V/4keF5wCKc8VopF2M3Chsj8g3XWKyguR
HsUjsyAc4Aoy96cgP6TwurHkHGScJAeDgqYgdJNCrfvJOeCrED/mkDQF0TVZ
XXbxc5BQpk3IdE3BRLq57/Yz8zBYnOYapDUN6ws1ok3fLoDjNy/zyzIzMFdZ
7fjXgwPFOg+TE9tmoLG78TVfAAeWcPHEu+MMmOXmbed7xYFS6Mv2OT0DA3s3
FEWzOLA+4+nt1w9nQHPj91UH5zlQJTk2vH5oBkytpC56O3HiYLmNquncDOy+
Kr7jzW1ODB2Q7e7mngUTptXpOD9OHJdNUhiTpJ4rr6tMO54T38Z8yRTUnYVr
dw9xaLVyolBoYYNa2iy4vYn2kzrChdnpD24VF8wCuvGH++hw4cW64+tP/ZyF
NXzGa2pMuPDbip+25/pmIejyKrV1LlzoGlA/5SI6B0sCrvv/94YL2+71rXx/
ew5os92fOjlp+MGBX2e1OrUPhTiPyMXSsDRkmWui/jwEjsekBSTTsLtgTYSq
xTwwYvUj/2TQcI3Ipn+XPOahicWM3VlBQ6/cQ3dzP8+DR2z2YNMEDfWFPT5d
WL8A9ZePi8ur0tFh33/1i5sX4By79uueY3R8YOW7GLR/Ab4srbHepktHVkbo
MZbhAhQ21z/7Z0nHjefTOpb5L4B2/lTVFW86znxiL8uaXQDx6GIdspiOy/9M
7dHmWYQBa6kvPVR+V+TmMO1ZuQib+zYFf6Hy9nljwQShrYuQ8WWVKZPKw6V0
uYNWNosQsCuuVJFBYLiexdUltYuwpPCj0Fak8uWNi31KBhwYt/5UdE4sgUo5
PFP3z3Kge9jfYY0E6nxEjyNaznPgvY3vVYs+ENjq2ynh68CBY1lrDkVlEij2
6qzBXx8OHL6eMvvjJ4EhBScLIjOpdeN78tjoNIGyPIM/p/I4cDBHmvljgcD0
E49aThZxIOkouD2ARmLdr8KZ+VoOvO5/9SiXAJXn/qpsMRriwJ1NxdI24iQG
CmwPF17PiXtWM56rq1LnTe2qd7YbObFwW56g62ESPzxzSM9R5MRrA+tKwzVI
rBRPrLFX5kRPK4Z+mTaJglul+Up0OdHve7JOmjmJD/RXu9y9z4m6Y96TVbdJ
9IyYOzXWz4lj+yra3VNJ1FJKc5Qb5cQbttcf30knUSz3ymPzaU68wuHqfyuT
xIz2vspKglpnqhJvzPJIHJGqP5koxoUvzG56lJVReTHh8wkrLS6sGci0OESd
t5X2O9qF6XPhVRPWjhoq7y2UyfvWGHPh4a9KNGPqfB4yFF2qasuFK2/Of9Wn
8l/V1sBj4p5c+E8gKGt6gkSVdHv1uk9cmCAT7bNA5S9BDVnbJRlcWBR2kiVJ
5ZOmhi7vwzlcaNAx8vAAlWdc5owLU0q58Iucm6ClEAOT4diRx12UIf6TlQgD
Jb7LHNJYRcPTCWypgxsZOKjfYXFnHQ3XNp8epMsyMLMn3CuNScOZXqM6lhwD
DXlWFkgr0dDsTOOWDZsZGHCcrkZTpyH7e0XTmx1UnqluxUw3Gsp73ZqMVKHy
4N/sSLc7NIz+cqdCWo2BPBxhXHu8aXg/K1o75iADhRVOF3x+SqNi+riH/xEG
St3/eSSJqrONTuI3RE4wMD4sKc7uCw1zg5uTL2kyUDHFl0c+m4Ydn282pp9k
4O429ZK4EhqevLZum6o2AzWU8zSjumnot/JNO58BlV9PvUoyHaBh1teE1M2G
DNSxubVUfIyGEn33vp04zUDjp3urQjnp+Dww+LPLGQbaD33Ue0qdu2ebXIse
mDBwhHicqsOko3RJxrk7pgy8Lnp5lbAsHX+93+boZMbA2+py9X676Bhttqhw
8DwDn0RHG3tr0zGt2qsr1oqBqzPuZB0+TUcm01bNyZqBLytNxAhTOr5sCjm7
24aBsfNrW+/Y0VFO37MrxZaBsstnEK/S8aG7tfnFCwxMkq2LXHCjo6bgdLro
RQamGQSdv0H1gczjcysdLjFwn71TwR5/Olr92y8nbMfAXC8tqamndKzlK92V
RLn4A3/P1Wg6tokN6jfYU+uD794F+2w6PtmSfG3cgYGm68+XyH+j41ynwCoH
RwZ27VaR/1dCx2+ONb1dlAct5wesqT4yYXh6X74TA6+4N2pKt9LRNLKxRPYK
A6cC05M6u+m4vUQzzpcyZ46zo9kYHYcX1p4/dJWB//3SqRKfpWPV8W7NEMq8
A1u2/eEkUFrRM6qPsj9tadBLbgK11f0sdjozcPmawTGjJQTa7I4IvUk5WKlU
T2QlgfZhoJlDed2R+NTfogTa7Rz2XKAsfdXKRVeWwMOLOo/srjFQYW+LToQS
1Wfm44+FUt7OYbi5byfVt3gKdn2jrPy9knfHfgJfrMzV+0dZ9ZF6t4cagW3/
MuMFrjNQXTsvt1idQP8dJcrylLVWK4et0CLwesCUwBHKBn8+uZjqU+N/riF9
jvK51/K674wJzBxk+ThStrwQs3nCnMAHOlr771C+pCTGp2JLYFhM/yFfylcm
nnU/vEzglvFbcU8pu2UuyfvlTOCgX59tCOU7nt5hku4EMrn5/UMpex/ldL3k
SeAPjXTRF5T9Bd10v3gTeCUyd9UTys9qRjZz+ROokD/g5UM5LOQi34mnBEq0
LNq4U35t2tn9PJTA3XGfCi9Sfid9Nq89ksAA0+w4A8of+2vDFOKoHNtZLoCU
0z9qurq8J7Dki+/cBso5Lj9081MIrOIPcyUp/ziASoJfCXxZHezTSb2/cno6
3+lcAivyVm5hUa4t3tIT/YPARvPYq88oNwXE5w2WEfh79U/DC5Q79Jnhe2oI
nFRa076Xcp/oS1evBgLV/i4s56bMbl+uV9FKYMuNifGf1PxOxfkqrekh8Oom
J59gysQOj56kUQJ37gyrX0uZf3Yyb4baV8YDhSLqqPUknOsQfoiDxHaRoI2B
lCVOmOs18pN4vVTgxSy1PmWWNSpJLyPx4NdQ73eUFet1+B1FSCyyszxhSHmf
5aF8Upq63zXUOo5a72py2eGn5EkMCHD8doyyBnun28utJGZN6vP0U/VheHPj
lq1A4u2obh0m5atP+SLOGlJ9PZfX2u4yA2+c8XKLO0dSfeiKzRRVf56S83qj
FiQyjXwdblMOSBzk93EkseZJ3uv7VL0mfPvplvKAxDz2A74rVL13jj/X58si
UWa6ensu1U+iVLZdac4nsXrSNH4pZRPfcv+kYhK5hEb+GlsysGEDUaRTR2LF
2er6f1Q/+qnjpPxylMQV7oILHVT/yv5wXEKB6us5Zm9Oqhgx0H2+Z9+iEgN3
Suv5mFD9cI/63dM/dzHQvHK2xo3qlymt6YHOhxjYeOLspzh9qh8vkSGyqd9Z
x3GS1k712+d2nH2azxm4UgmCyjUYqJv+kpQMp97DUp9Oljo1H8Ru5uhrBn7t
bPN+f5SBfi/tjZ9/pOrE47/mu4ep/aGksbyljIFirq3MJaoMdNiU+smBzo0k
IX7r3W7qfXdduBnoyI336V8VV2xg4OGbzISDLtyol9H1Lns9Vb8rmhombnFj
sZI+aSXJwL2HTuw+84gblRvfm7wXo/ppzOZR5htuXGfUNytF7Xd8lmM2n5u4
cdHkz4NP1P5Y2nlTt+4ID85xj301HidRszNATkyMF51feV68wyKxVK6zxngD
L5IruEJ+U/Nw7MquW6GyvOiXvclLntr/j3L9qVy9ixc/Mf4FVqWRqCohd22Z
Fi++CeAvX/KRxB3G33K4PXlRJtxZW+s1iaI103qjXbxYVH21Y/w+iX355rcL
E/lwhdgNmc3HSVQU+rVOzUQA14XMBjuxCOSFcbOmUUEcVGwnk7YSeGTAaHK9
3lIUzg4/oxpEx7o8C04jeSGU5qhW/zdOw8/eBeckxoWwZtbqWLoZDa0I59by
cmG0d5OpEcrjwvNONz7zhyzD5OrG7BFFLtxsLVd+3Gw5QqXH3MZITqwQludz
3rMCn0/iqvu8nPj1vWeoPG0lgvtU2/Y7HHiDU1artHklHnHr2bahdRF4m9yO
2qeswhumJou5xQvQFSsZFOG+Gg/q30ksLp+HoI0i9HQ9EZyt9xwpLZiDgBCr
H2YSa7Dz6liBdPUsGAWdLefvWYMuD9afPtk/A1MHY6Yjstei/pXnueempqGj
S9Ul774oxslWfkleMw1R+7esLTNbhzbJpjueKE1B4j1nIWsFMWRr3m16dGYS
7uudP0YbF0M4cSo1zX8CdjRFvr1fJo4h6kHXaWnjELwpNLHsmATeG2SOe4+O
gUeOb/CxdAns98jb9Y45BifW6sUUb5DEglAOyxvGo6Bi/+OMkI8kLuezWd4Y
OwIRouYbSsclUVSg7IF6Nxs25L95pnlmPf6J12xx2MmGAIU82ars9Xjo1RPV
577DYDVK/1kky0T+loaVNilDYP5hRMLHn4mlpVKbbl4ahEueOnMaj5los+gd
XG01CM46Kb/5nzBRWOP3f7Jmg+A97uwX8IyJyq5/Wur1BuH9nunZ52FM3PVi
z50DMAjTuYu/Yt8xcfd/h+3FhQchoIrft+AHE0sqOs5A2gCERNvZ/FfExCW8
gh4xHwcg+mq52tESJr6LuC7GnzgAqSsDZkrKmSj5JeVnQ+QANBkts6muZWJu
zAPGrYcDINMhotbewcRiNf3wxnMDoJTiJva6i4njS1/fUD89AHvvNU5b9jBR
qr29+ovOAByXCUv+28dE+zetY0+PDoDTRQkxNpuJAQ4vJgy2DoD7vjvTH0ep
8Q/KvS2SH4B7Au01V8eZOC/K+0tZZgCCk6IfTk0xUU7FIFxSdACibtOtM2aY
aCEatufpygF4d8pS1X2OiYZXmzR5hAYgZf33dQcWqPdVyPHnJt8AZI9KTy8u
MtE2dLx7hBiA/wG+pPGR
       "]]},
     Annotation[#, "Charting`Private`Tag$6593#5"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -5.314322104427868},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, 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},
  PlotRange->{{0, 10}, {-5.314322104427868, 2.9334021735712823`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, {
    Automatic, {{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.10\"", ShowStringCharacters -> False], 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.}}, {-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.}}, {
      4.605170185988092, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      5.0106352940962555`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      5.298317366548036, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      5.521460917862246, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.817115095977895*^9, 3.817115180281933*^9}, {
  3.8171157943248043`*^9, 3.817115819385768*^9}},
 CellLabel->"Out[47]=",ExpressionUUID->"d758ff21-6281-4951-879d-9a8a224caf38"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Evaluate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"R", 
      FractionBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Theta]", "2"]}], 
       RowBox[{"1", "+", 
        RowBox[{"0.5", " ", 
         SuperscriptBox["\[Theta]", "3"]}]}]]}], ",", 
     RowBox[{
      SuperscriptBox["R", 
       RowBox[{"15", "/", "8"}]], 
      FractionBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Theta]", "/", "1.3"}], ")"}], "2"]}], 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"1", "/", "0.4"}], "  ", 
         RowBox[{
          SuperscriptBox["\[Theta]", "3"], "/", 
          SuperscriptBox["1.3", "2"]}]}]}]], " ", "\[Theta]"}]}], "}"}], "/.", 
   RowBox[{"R", "\[Rule]", 
    RowBox[{"2", "^", 
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "2"}], "]"}]}]}]}], "]"}]], "Input",
 CellLabel->"In[22]:=",ExpressionUUID->"41ea287c-9ee3-4b18-b17d-5dfc6a4e056d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Theta]", "2"]}], 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"0.5`", " ", 
          SuperscriptBox["\[Theta]", "3"]}]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Theta]", "2"]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"0.5`", " ", 
          SuperscriptBox["\[Theta]", "3"]}]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{"1", "-", 
       SuperscriptBox["\[Theta]", "2"]}], 
      RowBox[{"1", "+", 
       RowBox[{"0.5`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]], ",", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Theta]", "2"]}], ")"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"0.5`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]], ",", 
     FractionBox[
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Theta]", "2"]}], ")"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"0.5`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"0.5917159763313609`", " ", 
          SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], 
      RowBox[{"8", " ", 
       SuperscriptBox["2", 
        RowBox[{"3", "/", "4"}]], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"1.4792899408284022`", " ", 
          SuperscriptBox["\[Theta]", "3"]}]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{"\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"0.5917159763313609`", " ", 
          SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["2", 
        RowBox[{"7", "/", "8"}]], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"1.4792899408284022`", " ", 
          SuperscriptBox["\[Theta]", "3"]}]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{"\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"0.5917159763313609`", " ", 
          SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"1.4792899408284022`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]], ",", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["2", 
        RowBox[{"7", "/", "8"}]], " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"0.5917159763313609`", " ", 
          SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"1.4792899408284022`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]], ",", 
     FractionBox[
      RowBox[{"8", " ", 
       SuperscriptBox["2", 
        RowBox[{"3", "/", "4"}]], " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"0.5917159763313609`", " ", 
          SuperscriptBox["\[Theta]", "2"]}]}], ")"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"1.4792899408284022`", " ", 
        SuperscriptBox["\[Theta]", "3"]}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.817114937425263*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"7b8e54ff-34ea-444e-8e78-ad376945c6d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Theta]", "2"]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Theta]", "/", "1.3"}], ")"}], "2"]}], ")"}], " ", 
       "\[Theta]"}], ")"}], 
     RowBox[{"8", "/", "15"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Infinity]", ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8172026520938797`*^9, 3.81720270842931*^9}, {
  3.8172027470464478`*^9, 3.817202758542193*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"77ced036-93d3-4558-8eb2-1aeeb8345ed7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"0.13828470304678664`", "\[VeryThinSpace]", "+", 
      RowBox[{"1.3156910632310723`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
    SuperscriptBox["\[Theta]", 
     RowBox[{"2", "/", "5"}]]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "\[Theta]"], "]"}], 
     RowBox[{"6", "/", "5"}]],
    SeriesData[$CellContext`\[Theta], 
     DirectedInfinity[1], {}, -2, 6, 5],
    Editable->False]}],
  SeriesData[$CellContext`\[Theta], 
   DirectedInfinity[1], {
    Complex[0.13828470304678664`, 1.3156910632310723`]}, -2, 6, 5],
  Editable->False]], "Output",
 CellChangeTimes->{3.817202708548201*^9, 3.8172027589878483`*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"49c3b3ed-cf01-4c58-acac-6b3b7b9cb822"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[Theta]", "2"]}], ")"}]}], ",", 
        RowBox[{
         SuperscriptBox["#", 
          RowBox[{"15", "/", "8"}]], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Theta]", "/", "1.3"}], ")"}], "2"]}], ")"}], " ", 
         "\[Theta]"}]}], "}"}], "&"}], "/@", 
     RowBox[{"(", 
      RowBox[{"2", "^", 
       RowBox[{"Range", "[", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "0", ",", "0.25"}], "]"}]}], ")"}]}], "]"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "1.8"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817114761613014*^9, 3.817114948608783*^9}, {
  3.8171149809613123`*^9, 3.817115008081002*^9}, {3.8171150682175503`*^9, 
  3.8171150688968678`*^9}, {3.817202394207995*^9, 3.817202420024646*^9}, {
  3.81720249085142*^9, 3.81720252137018*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"1dc20dd2-2639-4b38-8eb3-e39481c6a15e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw11nk8VF/4B3BKSqFEIaRFFJKtVOhTspSECH1LhRaRsmSJZM0e2SNZ5iot
lizZmWvsS4xKqSQmJZLSKlL9Tr/f6zf/zLxf99wz957znOd5Vto5m52YxcXF
5cnNxfXv+/8+3fj/X0Y2ttZ//7JhF/elRDl4DpQCQ1x/E2seKZzYELwEt+2c
ME1cHerKdWzVClTwLG3+TpwRd2tIMXgNbOyD5kwQq236b/v3IXlkRhb9HiF2
y3d7cXiVMtzPZhcMEi8+9+QT/UgVnMUHxHqJ5Y9eurcieCPeerG3PiD+/qZg
xF9tMwLS+ZbWEd/xuuTYP7QVxcG8d4uJvSPVebYkauOCfPOPbGKTXV46u1dt
R1/crpkE4tt/JvrdfXbgUWV0VRDx4EpprcxHOgjZ8+8F2bBOmnz1KUgPO0rH
dxsQ9x54+GVJnz6SBrTHlImznJn2W9V2gctT9gAXcfBFFWG/IUOIvWauHv7D
xqN3w2LpmkZoFVx2u534ZZTg8qqEvfhwR6zvCnFjScTrHytNYSNWE+FCrMy3
SGJWlymcDFZ9NiG+99FvFb/PPux6t+n9fOJl/XpnJB+ZYcn/Ljgba842XlcM
ssAOxtZpA2LKse+HopIl5jwpk5MiTu/fwlR4YQkzv8m8hhk2dl2bOSajegBc
z1JtuIlHE9+Wcr0+iLcmDmmdv9joO31J5mv0IdiF/4pJIS7LbMsY2mINac1T
WfLEp+I8Q5hxh1Fw698Gs5Fk+9guf4UNjGR2neEmnjZ/LZXhaYMA2wnZ+ik2
5o98zY9+YIMCqYhGELcXlKk7nLeFdHrfbYWfbMxqH1QR6raD2f8GCBu6DycT
pP1PIHaq4YYT8XmxZZ5qL0+AtXakWIh4ep5viN6Wk+Ded3Sv1Tc2hOPe8h//
ehLfWudd6P5C4m0s/U2E/SnkWO6q9PnERo+m+HtXk9OQ87LcxkfMkt3263je
aVwPadNJ/shGtr12rQWfE447vWrLHWfDPrlIXbnBCfa2Dd2NYyT+LGnR1k1n
oTHqzSp4x4b/OzcXZowLZkaeaq0h/iZsnb+61gWlT1M0rg2zUc7yvxQ25oI5
vnty/d+S/fsx+tlwlytEP56O2jzERoyUq3Udtxt4XVKV7F6x4Skawmfnfg7C
YzlcSY/ZeOWfGn3igCdaDi5mvXvERtCiU1OhwZ5Y36SguoXYalCQlVPgiYWR
p2SfdbMReVfLisPjBdkePiveLjauDPnq6xR54a7D2LPVrWyg5t7pQj5vcF+T
P3qsmsTHnf47cpUXMH7UYuPlKjZWvOF3FnxzAZdXKNWUVLKh18SW/yroi/64
0b4/5Wy4jNh7lx33xRP18GMh90n85+ktk1l0EeK+xxPM89ngn9V7M+WkH74s
TPX4ls5GHX3ryEh4AAxOlDr/vM7GO5ME0c70ADQ4h8r9SmPDxkr/ZmFxAJRu
6HfPpJL35eLf4v4yAI8jwfs5iY1VSpZi4xsCYWkizJMezcYet1H7G08DYVCq
YzDbl9x/U65v+epgnLn3ffKVD4nfq167+zSCUX3k8MlKbzbO5jyzTjYKRttL
Q19HLzY+7+l1mucZjBLLjMu1bmzwrJs772VrMBp2yEHOgZzHXPV+nL2Ejm91
Y/Ms2Eh79jr+U3kI9OsShLPM2Tg03XdPsysEu83W1m00Y8NW0Hgm5E0IhtqS
b1mbkPOuxiW5RCgUTnMj7qXsZmPiotkOKcdQdFfXZ7dps7HZ7aj3Y4kwvOaL
klq4ho0NXelG7RfDIa/pbLn2UxcSuBvHPDWj4LB/zmr/8S749XA6O0yioPvd
8GbPWBciHjoVLT8ehe7ON+0XRroQJ3vNk3k5CpovzK5VcbrQuJO7621/FGxt
xAynH3ehMNTb8pH/ZYys3D0eWN6FNIGeKdH6aAx779Ap9unCuwUr3P9Kx4Jn
XvxI1PkuBI5PfSuXj8VmzS/zj3t2YaqjbaHzxlhwYjkNC926MHn40MLnhrHY
NHWB18Khi8Tp/WXXPWIxUZvZlWzVhTP7qkL622NxUzTbcVK1C+yox6367nHg
5099qPi2EwJZDpwL9fFg3Q3fW/S6EzHp/n3Ug3jI6UWbqw924sPVJrQ+jQfP
mSe/N/Z1gh0ht1NwjDjCtkPuYSe0YtdLhAknQPLLKcOmmk48vpoAheMJKAhX
f/YuvhM/F5v3bOJJxIEWpmrH1k5cYP3ilkMSqooi/nSEPsBAmuKNT55XoVXq
+ZTK60CV+XBUDDMVT/xMzY93tEPgYMyp6do0JGeGLT34og3tGqf03semI6/z
WrPo0zbsEalbE5KSjvMp3r8fP2xDp96aPVJZ6VDiufbXoK0Nx4T32erdS4ek
+kmL5RVtOGhYl+XemY6p7woGl5La8KH4cooxXwZKuM/s3GjSBv32/7pH/TKg
uqUpQ4HZimWfbl0Kt83EGZN9Zi8qW5F3Q0pz0j4Tum/O1YaVtiJQ3t/62NlM
tEf4Vr3Ka4Wu47eXahcyodSYZnIxrRViQhvo0sRM2P0QGvY93wpOifRhrZZM
uJj2N4SotMKN165bbkkWZPo+6TAzW/A7cOiuinsW5sbJLCu/1oJPc/SwzysL
0uXnnQuSWjC2z17V2ScLE+b+iSlRLfBXn1bNCcjCku45rQe9WlDXlHeFKzoL
bo8me5KNW9C+5vXukzezcPqvc+j4r2aM63pafunJgu10ocESs2ZsNgjz+qzE
wPd72yebjZoRIvdTJ0WFgYnwMVUvg2bIdSsc0VZnYPnNeOPHWs14cmhWUNAW
BoxCZUV95JrRGOrr9nMnAzwfjo8HzjTB2kf2SvwBBh7pahX43GxCvvmhC74B
ZLy9Mud3ZhOczk7/9yGIAcV8ZPlfa0KvdYL3wRAGZLLv1ftdacKK5OfeKpEM
jGo8STnt3YQTN1pc2xMYeMCjEfnXqAlr/XN7b+Uw8FnBInDR10a03b4OgQ4G
bhtvF2oZbwRzseyG5Z0M8CqUHfYdaURgJ3/0ejYDZYt0FIf6G1Hl4hZv8JgB
zpUXmYzWRigIrKg81cfA2cOCHE56I0yvCq06OsaA9cbADmeDRkxUldaLz6fw
+nLDh987GtH0c07j5AIKghmx7ZFajRiwLZXrEaBwcLy9OkulESqfi0TChSgw
UedeK9EIz+xsn5diFGpK8rdXfWoA28RzlYYchZhnCdtZyQ1YGL9dp0iHgt84
b1R+bAM8Iy81+OlSKIz7eSAlsgEecgtNDfUpDIRZ+Tv4NeDYHcGIvt3k/xR4
fkydaMBpXfMzw6YUHhiLRT1Wb4BE/NOE9CMUkuYq7nd4WI/0Y0N/o89T6OVx
FZTtqMdMBntGwoeCdZy6EaexHoGmpd9vXaCgdEDDzLyiHiouwc8r/Sh8vK4Q
viazHkHiLYeaLlF4P4udFuRUj6Eu9oBPLIXO7dx20rz12HSdJ9o6h8LXdfsS
l3HVY1zJnifhFgV6YtUFkWkWJJ+O57XcpqAranSS5yML87Y+v6KQS4G39X5x
zxMW+rfrxfffo2BbMbBa4yYL07H/qb6voPDowt4MqUwWWpj7o2dXURiW1O6c
lcpCiK2msEQ1hT+TjF1tl1n40K+VoVtLYUgoqFTfnYWdaetzAlkUInrS7Gfv
ZJE+NV82u42Cjpuc/BMtFsq2lXNntlNgjKszbm5i4cibc9ypHRQMLz7J05Fn
4XeY15mwTgrmXOu3nhFiQU+86cPeh+T+pI3rLw3UweWujUrgM/I+AgMaO57X
IVjm09qjzymM2c2fnHlUB7eeyW2aLyisvTUc79JcB+6C0cbxPgpWCaXbd+XX
oUDZab3WANn/6Tz3Sp86VFY9Fvd7S+GmnjHvi3N1KGo6W7l3mMJS04rFU051
uKppLinxjsLs7OE01aN1qHj+e929EQqLduQ5J+ysA2niLWvGyPof7pPk56/D
/eyRcMfPFKiMeYdE5tRBL6925dIvFCy1f8ttmqHBPfzZgyaOr4z4YDBII+TI
ReMF3yi4UO4/9W/TyPfTLw77QeJ1Y7xEiQaNVrNHTxb/IutD8XyOX0eDVaM9
mkocEz2vxlmCxorlywuXz1BQHGxUXfGXCWrzTsuVvyl0eSzMtm5mIvOd7o/5
fyl86xVYI1PBRLmc31V/4u6K9Osjd5iw0NEY+Uyc9cPV6VQ0E4XnlZLZXNmg
7D7E7NzPRDuP1VLnWdmwqfKs/aLHxA+10jUPiZ/GxnMyNJhoXpExqDybuNJv
/sdlTAzcWGI1SmzDb7Iwjp+JiW85Qjo8ZL7+Qj6VP7VQd2/1SCHeOrN2wJ5T
iyFX1uZtc7IRvxtVfx7VYumdtORo4owl7yLjG2uxIHDB9RfE3evG+Itu1aLj
UlHaGd5sJOs0JbSdqUXoDy0br7nZeLlHio46Wov1PKLPiok/OkrNGO6rJefY
ju8D8fn3S3Lr1GvxtfVsstU8ct1QUMpLthZzWfgcQazKKsiSF6sF9YSaXUUs
+endy/BfNVj0GXuF+bLRmBOQpDZegy36kcFaxJvcWUf7XtUgfn+Y8zFiT6u7
mgHdNdi5k14UThxkqrluVX0NLmypOnmX+OBR97WskhrYHOFybSf+E2yx5fDN
Gkg+F98wQuzCfHXoR3IN+rtjsmbPz0ae4KLYy+E1aHd61yhJfN999Im0D3me
ntw0NeLICcf1hadr8Hz9cZldxPJBicnah2uwl5Fy5CBxyrqTQq3GNUixeLjb
kbh7eCDdZHsN3romv/Wa/2+/uLV6VGpwRMpFJZj4NtUxZrG6Bkr+w4qXifUZ
2vk9IjXwYwb2xhMXlloFmPLWwHtWu/JV4uEB8RNtk9UwdDPYnEo8In3pEEar
Ib4xaDyFuMwj+Vjxi2oscZtlmkxsxjG9uOpBNY6bmh6NI66wK7l9pbYaqpNf
l0USv5+qfTtVUI070R5BAf+c46Jum1WN71sPJ7n/m8+hI7EprhqQVTM/SWyk
08UrF1yNQk//aot/z6fsHRniXg1P8/ZOHeJB9QfSnBPVqBhKi1hP/NK4pXmL
VTWyjX0/LiG+4efof2VXNWyqv/76RdY/RfrOGlWFakxtahVkETfH6gr7S1ZD
PnGjcBYxUzR8cZtANZ5dOcj0JRaxn6u/f6IKJn/HeDf8278NO32SOFU4wzqV
zUN8TUCu7vGjKhQxa9/0kngyW/AuwKC0CuZzhfZ7EQ/KN/zyzanCHIZ04E7i
rTYG4feuViF0sdw+gX/j+Xc9XeBThQzxHc9SSfwuCm68uvF0FaJ+H4uxJr62
cNTR2roKExZZbyWJRRzl9RnbqvCAK9QjmZwPns0GxvSGKqQykG9CzJTgP/Vi
RRXCzNUu8RJfk4npnju7CufCRgXOkPP1RvOcB1oqoXTeI1iKnE/TB0lWBpWV
uBUXVN9GzvNPr8I8o9xKLBAO+nCOWHBl1z2TK5WoEnn8l0Xywaaqu+IaVpXw
CxET1+PORpZMTIL8bjKfqcjNQZJPdt11CJDQrMRcoZ9iPsQH5/KVfF9eiX1a
X8pySP45P2/0QtRwBQRy+VnDJH8NGkVHOz6rQHdKdqArcWjeusUG7RX4MV9M
bprku/haQ/ef+RWI3CkiPYf4tqzSdS2PClBepRXc0xQaRXx8DGdXYI6Pp3bS
dwqyAlnVXN/L4TF79/I/JN82rmA63x8uB2v9m/7jxK2pr5VF2svBrfhpUuEr
qeePHiwtjS3Hr+0ll7MmKDTbyLr6SpXD6BB7aBXJ9zICXRy+heXoNrgS7PCe
Qn3PmaZErnJQn2fN5I+S/F2a9JYaKoOFboCHMqkXBczQiKw7ZaCtlAIkSL0J
+DB+dOXGMog3qWVGvKLw5tzgX8M1ZRid2D9zrZ/CDEMpy3VJGcw9NrffeUlh
65d+Tun3UhiftyyjSX37ZhfusKysFA5Th+sfPKXgHsIfab6pFCG+otqnuyjc
6Hq4MFT9PkLXiv9XRur1YsUt1SYy92Hdo/3KndRzReWZk0tF7uPeoRuNypUU
PBWT6GtfS6Ayrl+SVUbB7PtiD//iEkgX7JtvW0T6rVbtzxUbSvBec1r1GOk3
il1NlT7IFSNone98xxgKP5665zqLFWPWqkn2x8sUcg44RU3MK8YljR1wjaKw
rajn3PvRIgxPF4g7h1OwKY8cZuYWwTpvuNg4iIKd6GXz90pFWMfjsTzdg1yX
fbNnj1ohxnr9Rd0Pknol5rT6wupCPBMxNs8/QOaXazl8W7gQh733Kr6xJPV+
4/j37+/uIXh6z31DcwoVdz0KuB2Ic7SFfu2hYKRdpLTcsQAHPjFyRrQoHOd6
fPr0qTzwJA36fpOk0JNsvbp5Vx6iPqwSHltGYV5ySo/Eujwoz2w2GyD944Mu
OZmK0Vx49B5rqxOhkLcu2+u+Yy68w/bG2fOTeLokMFF9+i5uiW9R1/1F+tfu
Qllex9t4eapEUaOXAbFaldwwqxswaTRY9imMgf0rqzhP1G5ASkD3tjDpv7cn
2SstX3QDR2Yv+m8j6c+356nMT2/NBq+OykoXXwZqkoM6zLeQOsa/b1uDCwN1
h0U9bopTcJpu2jFA+v0Ke/HW4txMHDkSKjEmy0A41167ud7J2HHCMVKjKgtc
J9fY/t52DnulPdghGZng2nnAZ41UDK12kJn4DOlYNDO8QzGHQetUJnG4Q68h
/ET/6x7HXHqRp2JsyPWrSHT5VaK2oYTeUvZFzYgvEbHXN9d3e1bQiXOyJG33
xOKGtm+y4oNa+u+XNectzofjY3Z1kheHRU+8S+iKCr6I84Lbbo4zG+lfIRfn
8+0+BpnejEPrP7fQd/ffldGsOE1rGb62mZzVQbuG2POnPg+i9ZeyAirFu2hP
xkLTN25XaGaFP9eqpm6aaTWg8l7kKj3PYHQW7fiI1jT1khZyz6C3HTpSthc9
9N6dmjb9Adn067xE5ZWiT+nCRXbaTX9ukaFXBbuf99JBKfP1pdzz6GVyApZ/
Op/TXqWWN5Q7CmmXxbH5Dbl9tLHOUircooRurLOQ0Yvsp49+OXDw1I9S2tOn
O7Hh+gCd/uCbzYufFfTqlwIVmzoG6Rb2mzchH6vpqZ/ulrnsQdomrENTeKaa
5vibHFrRM0hrCrlfzuaroQc7jqQs6B+kWdskJTtlauhs6+GB4Y+D9G4v3Zmd
h2rojbapNwoXc+hmwe5fda01dNiPGJ64gxw61Lro6dTNWtre4pjr4qMcOtXu
8PvhklracnmubuIxDr16/wGuXlYtffJj4vJUJw5dd91Iva6/lt4d9jDzlh+H
1tx6t6FsCZOWuP6xt5fi0O2WS2rUQ5n0n7Sp3KO3ODRHlSVilsikP885P/wu
l0MLhs1yd6OYNJ8YO2bqPhm/1cqghsmkZ9SH81a2cOhRvcZd7pNM2jbk8v28
Dg5dduBq/505NN2LnFWbuzn0yLrVF14L0/TXL2qqps859LW7ng+tlWk6dezW
45f9HPqeQktkxjaaNjW+0ufwmkMbC77eO2RE06IS73dPDnNoveoFEgqHaPrD
vorlIWPkelr4Fw8Hmv4f5buVLQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwt13k4VP8XB3BbZQ+lJJTK0oJWInonoSyRLUQRabEvoShK0iLKEpEo28xo
kSVluzMYW9axlC2RXWmzpfC73+f5zT/zvJ6Zufecz/2ccz4jfdrd5AwHGxub
Lzsb23/vogU7eBeWtoDt/6/YqmHKPGm+SysCfJgCWPmHJ/Qf6ZwVXS7eTElE
6cc/mSO9uqkHomayECKipmZIH736Z5c7UwH3TP/cniQ9tp0V6pC4E7w8dSd+
kF7c2LdO0EwZN3t5ncdJCwQlbirgVwP7h/yCQdKEvLfxSaYGAr/XafaS/sz5
7RU7cQDT8sY8H0nbsD9dZpp4EB4hEGwivTk4QiDV7xBGFxKMq0g/9p5I/mmq
A/vE000lpHka/zzev/0wOiwf3sslXRk62n+bXw9Vygfpj0kHs6zKxJmG0Dhe
uOc+aXkjAzG7p0bIiX8ycp202mXO+OZSYyRezVrqRHqTVregcKIJBDe2elqQ
Lnou9FHxtimujZwT1yFtJJy4X9/PDGfa2zduJL0yZ2NKkKkF2hde3RAiHddn
fSlO8zh0D09tmF/SAsYvq+cvlCwhu79idSvp5ynS3a181ujO9+73J3370uRt
/gpbHB56oWhHupPrlqVozknkqZi91SG9AVV/1qacwm2NwRBh0qmmtnuFS+2w
rU3sXxJXCzT1arbyJJxGtEDeriDSUt7GPzmFHTDnVEQ5RXqddbLNfJgDKgMF
9aVIj5vXc3y96Ajz3ZUeUZwt+Jk1m1JwzAlvfcqiXUkbuRpQMqqdsKZ9y6Qu
6astHcIxOIuuv3Cd42jBk2udo+cVzuF4S8ABC9Ja/BwMNp4L2JGj6jzK1oJM
0VOUFsIV1lPu6nmkI6q4DVMPuMFt7bT8VdIl9gxnD4YbbIV+mS4nLXrX/CtH
uTsMkig/ZRdZ2Jl1eojziwcuagkZbJ1noXbOqKl80Av2+YdYw/9YyEy8/W2l
rDfUeGu8U0l/li/wdHTyxisbBrcYaU/Z848WhrzxMs3j8vQcCwHBNxulRnww
Ta8JvDXLgrxWrDTvmC8y7P8VKJM+qRQgjy1+ODh4VXBghkXuN80DXhf8cCDW
W0CddIjrWDhrzA+G8WtN+6ZYyD7CxxUw7o+8LU7zbL9ZmErwy3P6ehnZwYP1
MV9ZgKr7xZCvV6G/eKRWgTRD0K52l3wQrEINFpnjLIz1d3X0OQShMXPriskx
Fnx6vq9S6QqCmI5Jv84oC4n7fKr6HYOhMHJAqmqQha/37hqrmF6DdVkq/85P
LDyPWG86qhgCfaUaiZweMv8quZF4gxBkp4af2UHao8N+pe6FEDQ/+5ai0M1C
+fbnm5PTQ+A1t5qQ6GRB9uQR3v0SN6C8XPBRWxsLAhs3vtvNEwpGQ1D56zoW
NBpxabrvJnKrJkbWkm5ZHZ38eeEmLicXHg19zwL/pga5mrVhuDF+rsu8loUt
sYXmseZheDC17s+3KhaeqWV8W1MThpDmGe25MhYSHkaD9eoWWihHZULesuCd
KzX3I+AOLAKtLNoKyPglp2xT4+/glSKjSpa0RmFWn2n+HXQrZTpX5bNw86H/
gVcTd6CYVl+wmMPCd41aaSP7u3hpdsPe4AULWw3E0nfohGNlW/yc+VMWpMMK
1L0FI3C/wdE5KIWFqgM29KMKEQifyZ7LTGYh/N1GhpxBBBY+1PhMJ7HQ2ftA
iXU7Ai2s+fZbCSxcLN/qy70kEvuz3UxDollQXmpjMzsXCTFen22NN8j1KnKP
OP/rPrpVBU6VObJw58c/vx8fouApk3SX6cCC9RI3To6hKGyTYP6uOs3Cg+5o
BZHJKIhu7fGttWNhV1a+laJQNHIbFA5X2rBAFFj+Nj8cDQmFY6sfmbFwncNM
3f5tNFJ1Us5mabFQx9GVYRcXg5tfTzVdX0fm17jsa6XxQzR+7InaJ8VCv/Ve
4aRTD2Gol+32W4LMx39Mx9PtIQaLTbzsxMn8Ne0+rQh/iNuf71GVRFlYPuAc
p1n1EBnSPR+e8bKw7SiLbb9GHLbf7d3VPdkMmQ8mcq/l4nHtr/doQmUzGrO7
fHdPP8Jv/W3c0sxm8J5uVNbkSoC5beThjPJm5LjKMfVFEjBSZq74kt6Mk7bd
utaKCdB59OVebmEzaiQPMGycEjDsxZkU87IZi+s2Oky3JaC4w/Tvq9hmeIjM
2HjnJuLlRZW3+vbNePG7bUr/bBLEpZ27D003YfXnRe8w9RSUbv5HD/dpwjv2
NIOTTU+R2HupXb2nEX7fzr3BzlR0e1kejyttgMDa3E1WF9Og1/az6Oa7BtxK
0NV/fDkNazfPnvLJa4DBpr0RPUFp6EvTd9KjNcDk+n0n6ztp4Pkm4NIX24CB
R61HNZLTQBCLJ4pcGmBffsI5szoNdLf4eqk1DZi2/6XJLZ6OTb+TZlJd6iHd
m9r84U065A/V3r52th5+zmu09YvS8Yh5Ptb2dD0E5dZ9LybSwbTiWCNsWY8C
VtFAQnU6NKoeNZ/Rqgf33ZO6mp3pKH1jz125ph78s67eKvPpmBk2D7dn1oE3
7OMrpmYGEN34jUusDt3RcxwGzAwYcnaq8YrUYSaxJuJJTQaeyrCXCPDXQYx9
S8dEfQYkr6XbLWerg0XXWMat9gxciNaRmR9+j86k4BVPhzNgJTOWer3gPY7X
JTxy5MlE4MIb3z3m72FndeXJDv1M9IWe9VK7W4vi0LickqpMLDpqS4/fqEWK
YuKq8+8zETfzWTThai0YZR6bRBozoaJyrOmXZy1Cxzn22bZnQmb9qjuRlrWg
TndpfhjIxIf4HcK+MrUQypaVs2anwFfmletMSQ1iYwzaH+6loNZbq9WjoAY/
lp9Tmd5HwcOLscEj2TUYcelVMAUFKdFeNFZqDa7ymn5cokOBo6qwVtTtGrTd
dRI+akoBsfVzWKlZDT46cIWed6UgJ6vi1PvRapw9emS2KpmCS1nbu659qYaP
ueRs6jMKePgn25R7qnHugWTdlXQKgr8HH3ncVA2ViMiJLVkUVCBX3rygGh+G
cgWd31CQu+Ry1dUb1XBwb9K9XkeBrNz9m68lq/GiYPwv9wwFPRj5qrK6Gl7d
S4Kf/KHA+l0cq1ioGu/O5lbt+EfBi4Z/a8s4q7EQl598jJ0K2vXejMLRKnTQ
mhx8+ajgE1qW5JBfhYXJXdWm66hwoH/ijdWvwvIpTTtrbSpWRzv9tT5UhTR/
imCHLhXDZ9zk1mlUoYhNnNtcj4ouvoUdzxSrEH/Fv+OQERX8VpLC0cJVUKlI
/MJpRcXD2RMz6z5UwtniAPuiMxVqBh0OQ3aV8FwjTx+IpMJ2g32Ft1UlhrTz
w/iiqHg8e85u8VgldnusD1WKocItfVZPWKsSwZLjUu7xVBxnExtbJ1MJrou1
RXUpVBgXWRiPjDAhPXpxKftrMh7t1mIZdyYCPTI0jjRSkf1zz9n5s0y86Z0c
nG6iQm7aLqzFjgmLrfkCz1hU/OFesTnAhIkmM8eOH21UyFsM/yzYw8SDLmcT
j27y9xHGj4b/VmB8eZzJ9AgVcRW6KRmTFfAc93gdMEaFhCm3pOO3CljFrQ9b
GKdC4PKgX+enCujYdsb8m6DC//vy3DxGBRLCM7Z0TlIR6C+DdWEVeN0kViXO
RoPn3pxnzKAKCFqWmPix08B9jDvwgn8FylITDZo5aFgVLnT/1fkKqIZ+unVl
CY3sRw805AwqcPCEy8oCXho0OE1f1glVwD5r3eKLlTQcMLzoZs1TAUmpBoU+
URoGv9ulDbFXYMsR8TLh1TSsRIzn3K9yqDEd1zivoeEvl/OD5W3lkDzw2ntB
kobfih1D3+PLcSc++WSmLA0Bf3ujyu+XQ6E7M7dSjgaGCJ9H7K1y6DLEf/TL
03BNuqFkl385Is+FSIhspaGHWJZpfbwcUbO7t+sr0cDFdiT7mGg5ft0kqHIq
NJzwj3HjFihH8jL9jaJ7aXDfx3WyhKscGfyGlxZJNzw1bpKeLMOVxzMFtWo0
nPv+mKONVQanlCKXffvJ9YngfDIQWYaXT9PFQw/RoJgT7XY1rAyMe148B7Rp
EJE+7LEqqAyr+hg1M6SX90ou03Qrg9qbLcW2ujQMdwVeDzYoQ9jwHzNOPTJf
c6VuvkNlyOl8WZxGmhBfejZ2XxmiZF1+HNSnIfzGeqHULWWQYRx8d9GABvYO
7mwKdxmyG3aX5B2lYYrSEyXDVoY7Zuxe6kY0UMvbM1JmGLi3yeYbnbR2x57T
D4YYIBIXd9ONaVBoTeRZ9okBPWJ0Ue0YDW1rZPsvtzGQL5MekUPaMjRT1raC
geFc1mScCQ17sp5EvS9igNdyqHaJKQ1NawuV9uYyUKkieNqDtHqP7TzfM9LP
epr2mdHw7bPlUFIQA+O/jZKyzGm4PeW6QtaPgU3G9NF50s191tefuzHwcfrv
ckMLGs5qFsvk2TJAzdcY7iOdm7fdeo85Ge+q2Ydyx2l4uRjYlGfAgK7ZkOQF
0pkSSddf7mPg2XTly0HSGRMepfK7GHBPcy2QsqThWLyE+tMtDKTRs2PMSFPX
pPxdvYGBYvcx7TDSL7z+/gtfw4Bqu0/tG9InUxUPsAkzECtGk/5CuihLlenJ
zYDhiQE9fisaKu9KhPct0tFXdkV7J+lArQ8xRjN01Hk3CZmT/sQ631s0Qcfd
KOXnPqQnVFudZYfoSNHiXf2ANNV/lVpkDx0hWenGNNIikdv1plvpyJ84bUkn
LXtlw+MTdXTk7His0EJ6+OBXJaKcjpn4rMZ+0maf7y2RLqKD68i4xnfSbubL
JK/l0GHmlO83S3rPM0vfXiodZ0QdAxdIZ1ZeE1Z/Sseby8f02a3J+MuuTzyM
p4NR+OELG+mohycEfkTSsWzOWHue/D7fQX433TDy+rar3adJKzFjhJKu0rGb
O9TuK+nFdVOTPy7SIbZ+UqyX9BUThbVarnRsrSmNa/jvfjYaIdGOdIzJobvw
v8/3yyj0n6Cjxa5xMJU02+yAmJIpGV98Te7t/65/O1Dnsh4dEr/DtF3+u/+v
8fxyTTp8Yx0T9ElH79x1lk+Vjp+p717LkaaoHYmMlaNDNW6PTDv5fJQ5xJZ+
lKJjKVMomELa42lpqdgqOoZ/1CX4kR51ip6K4SKfV6uxAD9pI/GQ4ZQZAlNt
dQ7N5H6RWxV5duUQgVVno/yiSfetffPrRxkBz/enWwVIV8g0z1u9JpA+LC1R
Se7HxU+J4UQygU6ZaKkA0kGnDuwJDiSglTBp3EXu5wpZcaOuCwQ81jwKukna
Pin1604rAjEGlk6KpKnxzJwPewi8tYu08iHrw0zyZNemTQTy7hQ5ivznYxlh
biIEkuYuyLwg68mxStt5ZqIUivuLKz6S9fdqnH6yN7MUbCZc57nJ+rzP6Z1y
MK4Ud7hfBMeQ9WxuGdHx7GYpqDtT30iSTnnLttP6TCky9tkGyJH1L2HWGpC2
oRRPHhpaiRnSoGna5P9duBR1pzLN7pH9xCByj6sKeykijddcWCT7zfrSfeql
vSVo5Nja10n2o6xpZe/MxyWQX6//0+0wDaI9gVs775ZgLDHrZR3ZzxzZtnXx
BJRA4/fENTnSxDxzvZ1VCWIjOM+1kv3vRMvIoRHREnBNUDfyadEgPzb6wymi
GLGLq76Mq9Mglly+7vyVYmjSQwlx0l/vL9U551KMgAoXqs4+Go5vrfa31SvG
/Z+3UmNVyfmxT81v49JiaJhhg5AyDZsqOz5IXimC7Xhji68iDY+P6F757lyE
TI/Uw74KNCzwSImXWhfB7+mNMq9tNPhrLlMz2VuErFPm5ae3kOt3t1rE4nch
bCoujkmR8+bpnaXydecK8ehTj+Uych6ZqknSps0LEXA1UaxkLQ3rdI4lSmoV
AjX3DN3FaZj0FH5vJ1mIi5/sV9aQ8+2J+K9Txc3v8DaYg9NEhAaO7N2nqlXf
4YHrn/q3S8n9Pl6au2vZWzhstznf9pUKH8lra77+LkBzjnyIGDm/v2fZTaR8
LoD2x/x/x0ep2NrjN7j4rgA6dx346wapeHF/KU+0SwGaeHXv3vpExbt96TKC
zW/Qv5fD04Q8b/A/G847HpePgfjhLTIvqUgz+L7y2418XNP2shJ7ToWZioJV
kFc+burLGHDTqJio049IMMzHy7S2gE/pVEj+WZGVxZmPtmNiUw5JVJw0b3q5
1z0PCrXjray7VLhI/vk0r5WLh9X//NSdqEiurWYq7ciFr8iERJUDFf0FDfdP
SuXiX/EDn6P2ZLwmV1pyZnPQ68NQNbWhQvX2GT7lFzk4qxzAv8eECqU5e+1M
0RxI7pKystIg4x3n7d89kA06xbRkvTAVlRz1rQ7N2chxSpE1EiTXZ6qgNrI0
G4Ox70wuk+dHGw9u+qf4bJxsPPizcgkVifnRTZaG2aDY66uqzlGgx5kpEuD8
Crse816/1k9BJ37kRHG/gJHihE1SNgVhY7SR1u0U/J545Tp4kAKHvVzbTy+l
ICT7zraf+ykI/7XCfaQrE54ZhZOzahSMZlm09t7MxBzb5Sf/dlKQsPP8vsvd
GRjdKqrduoGCv5FlAbY30+GzM1e/gjzvJ93RYfa0PkPVe/WMZ8WZ8FqQnbnz
LgFLA//V75LNRPu5hFXKX3zxzfByCF9fOla8fVzdP/yAGPd1uHlAIw1UPTEx
vvk0YvONb4L21s8QwjBd7WKYTWjFvHG4bZGC2D9ZOe5Nb4gq7lrLwMJEZNvl
9VevLiHeMH/KNpH/f90W24xKChjEBXUzztSJ++jrMr8YocUkrvbV/xZzuQEj
kfAd77OqiXAxc9/z2RfgvoXu2e1fRwQsa6RqK3oTo38FP1OXNxGbG5P0dqy6
QyxwcXzrGGwm2pZdetdZFksITV5/4PKzhdjf6Nl+9mcyseLEBe3GoTZib9GT
0Zsi6cRkfHjQkpUfCeVpnorn8zQime7YIqXdSexZ5aQSmpBN+I+YeKyw7SaE
Pv510s3OJUKdZP8NvPpEbLEJ5n6tUUCI/fq+nNvnMyGQwTqXzygkjqT7Xbl3
v4+wG7evH3YsJfhULgT8e99P5PkUTN3XZRAK5vUtmbNfiLEmtj/tpuWE73H7
g5PzX4if1uceqdiWExkK77docg4Qp4ZHDyc4lRPZ5uvPdwsMEMmnZtvOXCon
gmKaEsU2DhA+Kh4vRJPLiem6wx2ZhgPE92blgI9j5YTB5vg86dQBIkvqcs94
SAWxmTJke4UyQGzK/Vgcca+CGJ3jvdbxYoD4waf+eldcBSEm0bY7+u0AQT/d
0BFCqyC2Gbqb8DcMEBOCRkoazRXE9gtFZ0T/DBCSr7aKrlzHJMzlzj73Xxgg
BD4vPfFRnknYvh1x6eYcJHSVu98+2ckkpCxcT6QLDhI9tJ0lO3SYhEVw4IT6
pkFir1TxNw9XJpHc3c6ZtnmQ2PUldlbbj0nU8y+L5lMaJKavDEhIXmMS7SMj
Ut2qg4TQvaSc5hgm8TomYa02BonQF06bXj1hEl4rN0S9PDRILPy1z46gMInV
54Kui+kNEpENpRYeOUwiKTLn63WjQUI94Plqs2Im8T9jY5FS
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwt13k0Vd/7B3AVDWhEFGVIKZQUqaR3pIEy9RFSUjJUhpIhQxGSknnIkKFE
IcO9l0TkcO81u6bcWwl9hKISlRS+8tuftX7nn7Nea59hnb2f59nPkbW5dMxu
Lh8fn+ccPr7/zhxNf/u0Bzzw/f/x+3Pzj1RiHmulWHGSKDz+PEtIIR5uk7Qs
SpLHYdvdx5OJBS1Ltt/9uAWXtlgqJRBvF9jqQktSw2czsdWxxMG/I5pXVe1C
WY+jbARxSKiPecDHvehmWmnfJj6b8cLCbb4OTOd/8Q4gtuLdqMxM0oVMtkiT
N7GfvElBp/Ih7Mt+reZKLNTmNDm3Sg/F8zWeOxAflBJzVfnnKK6zVI9ZEbsf
vfvxxEdDJPfWCRwjHjG5LVZdYQwhi8n2A8Tvt/1cYDr/GIbtthQrEgtIsmc9
kkxhPqXaKPnf++wcefz9x7FqpO2PEHGV40vpGGVzJI38mz6czoP8toG8J9QJ
WEybSLwmvqM+Va2y6CQcHU7nsIjhq/X12bFTCLfUE0smVjJtkasYPI2UPoWx
IGKT+C18aeJnwFf3sN+JeGqA03iq4gzYeQ6ie4jfunPZPAEbYEAztTWNh6zN
7fzlibYYs/q1h0GsFCtz97KWHX6p6/+K/W/8XGOk/Ac7zPDVFpoSs267DIYo
OWB27vyjTak8BL6o9tldeQEml5Jpj4lTDPPzPthcxOSuxs0BxOqdHrO3FzhC
9/O063biTb9737QaO4FT8kQ2PIXMj1uXyIF+FzDFxI+cJf7fBU+BnpBLEHwl
G65G7P91p9WulZeRdH7RyTf3eVBRHUhvenEZObMya8WIq66dLu2bdwVxPa7a
55J4kPMSWNUa746FJzLnyhNHWDZWj31zx9eqvqL+RB42tiU+XXbYAwJm1z9a
E7/ODpU/MuUBr3iNsCMJPNT7HnmXc/oqbC+Uvh2N40FKIPzNAgUfdD1Nup9O
3LU1QFTwhg+quoINDIljKevVgm990DPjF5Ady0P/LlH7eXd9YXFifJNxDA/Z
iweUu75dg6ndl2tOkTxMRFwcX17ij2YXXwgR293gZHsuuIEi25U/siN4KDrW
xNe//QY6xZwV+sJ5uNwjkvY87AbMw1M7dMN4OKydut54bwBs2gWV3t7m4e9Y
yQbNh4GIyl85oB7Ag6bd9g+9dsGgL2mwKb/Bg3DYIRXlyGBoTliPg9hQhv/z
1dJghFpoGh/0J/F61jxFUOgWllzM/nzoOg8Sf++mS9FuoaTqZO5ab7JeOie9
xyZDcHOPwvHVl3nYuX12v05YKF5cvLg18BIPJ6XnO5g/C4WldMzaYRcy33/L
713sDUW7ZOT2YmceuPZiy+5uvYvcs9gHRzJ/sZlixZ13MSXjPbDRnofJ+TY1
j6TCscrFxEL/JKkPYbU3BnIjsebHoXWJljyIMrQvDHVE4u1fC8HBEzxwZnNF
P09FwpfRqHzNgtSPP86mbuujcCbwKzP9OA8V689q2nhEoYi9Sa3CiORn9zXR
hWLR8H0Vqqi/n4fIIyPjF/6JQbBLh5evDolfr55/DjjE4FCMWv9TbR62acTZ
S/vGYNztsLDgPh6unUh/2JoRg7H0gsLyPeR5lOpBmR8xcE121xxX5yE52G1R
QFQs4ld9sn+hwEONX4v3juY4HB4XRfkGHjLXuMRH9cVB3FdCqHw9D4MeO8eH
JuKwIPyB3/N1PFRLzHOPk43HNmbxq0fSPHjFntfjecaD5jqiri9OvrdMo2ie
7D2YDKZ3cQR4eEGbU/3HLQHrpRdl0d5z4XhdsmRQJBnq/p7TQb1cdPGefbVS
SIZ4wrHzZj1cfBmw2d25OxnHvpkF/+niYsH6hWLlZ5PxaHdUsyqPi1PW/Gmu
hcko1K+J9Grm4tuSEcYN/fu4cHjXsFkpFwlfG+5I+afg0ovDQ2bhXFjumj/x
uy8Nhq6aVe13uTDw8Nx3YyINic97go+EcuGfu6VHQCgdzj+2dmmGcCG+66vA
IrV0rJZd8WRpABcWV9refwtOx00bqj3InYui15dD7os+wD2Pmotpllw0rMgS
4ZU8QF63/9OUdVx8rJfnvp94CC0vnv47WS6uvBFJT+TLQE9BbZ+EDBdZDg4D
RoIZ0B1xm4iS4iLuem5P2ZoMlBbMKXcX46LmVZarr24Gtut+pgku4OJW6H3z
4ugMuJeNGl0e7sRVRV73hOIjKHCaLOWedqLJV+Z1mEUmfuUMXnqn1ImQO+xZ
Ha/H+L0vd21i9CvUReSErnuSDam1U1HHfnSgYKNRzr9RuZC5/ja371AHgnSv
JfIb56FuRruoV7cDcQv0vx01z8PSTd9pXdodcNhW9zjmdB4C/deFtWp2oGb9
tj0rnfMwqfSmOk+lA8nGvu9n7uRBMShAUV28AxkyZ7UMWXkIU+wcuz7YDpvJ
/Lkj2/NhY+VtMurXDuMFn0THhAtgpCRc3efbDtXM3CkJkQJILbA//MqrHW4y
Zx2wqgBmQy5pRVfaIVJT0nFzfQH0TLgOF+zb8Ufao/u7VgHUXo5fyjFox9CG
anFTlwKIzVw/7ivZjkROwSI1TgEWrHnhYV/chlTpR+U7gwphN/L36BtaG0wF
OsXV7hSCL/C8iF5+Gz4/+2SqHFmIr79znBUet8GRNekscr8QmSs/mr9OaMP3
h4lzKhiFiJDeP4/ftw2Ff7V7PPoKccg66lnUvjb87ls3orOWhnTl0WWjUa24
/ePhAVd3GlKEcta63GnF0KIKvWlPGgaHrqz9EtCK33u/FgZ502CbtmO890or
Yn40PIj0o+Hv+PU/+abk+hXiC+Nu01BlLGw7LN6Kze3ddwxTaDjDVKjjprRg
3mJN7RAmDYsd+1aKxLeAa5KV182mYf6KpxaG4S34ojHjuLWOhgFLF0bl9Rac
eEMb6GiiYd+b4spbp1tgO8Oiz+PSEBigvbtYugX6rn7mop9okI848fLmAw7Q
cL702yI6dv7vJk0wiYNNJ6U0h4XoiF2xrysimoOsi2paHxbTIbvTrj06kIOP
gXKVrcvpiLR3NAy05cBH6nN24io6aowdghZv5MBUhNXet5GOOMs1b5vzm3FY
6PqI4UE6Itq10lY9boZyfGWuxGE6WsdGkmzTmiH7cOjdv3p0bNw4o/YrohnN
1K1EJwM6Nvu8nuS73IyVKb2XXU3piH7qW8lUbcbQaKLBVhs6Xu4P3D5a1ET6
tVVqN66R8cvpEuZPm9C0y1Z+tx8dP7vT+isymvC4fKv6D386LrnrKgVGN2Fz
sVfJqSA6FNIUA366NKFj3w9FyVA6nnbbHHLd1IRRwSl3rQQ6RgSCtN6mNMLb
s8VClEZHs/xQ70xsIzgR8p7RdDr2BKnYy9xthGynaZZwER2cv7YbrL0bYTP3
ksbMMzoKxy46s443Iu3Z8zV15XQEUx/EFJY04lrZwrCZWjo8FwW2WV5vAFdf
svz7Ozr8hZY3vnZvgFPcq4WSPXQove/4dsypAbmpRvd1euk4P/2tbP/JBjzO
FgsP+5fcv+CO2dJdDdApckoSGqTjjbNujuF4PSy3vp9TMkLHzB0+s4Iv9VDY
tv4S6xsd1VdHNwv316Po7S7J1lE6VOvtrJnt9Yh6ZbKl7zsdGXuK6yUK67E4
uFV97BcdbW5vip0v1OOIe7Jn2Qwdi3OrRWln6lEbKZWZ+5fMD70nfcy8HhIa
XoLJs2R9dxRoOB2sR+OHvTfc5jBwToTubLCuHvzVKQLLBRiwlNz783l3HRS3
bJefEGKA5mg6v+dVHZrZ6YxGYQaehKfq8jXV4RRnzC11MQPXD9braJfVoW2E
Ga61lIGyu/4H8uPrkO/3QuT8Cga8bT1sNxvWwdcjUsxegowvPbHFQ7cOXpYl
n5RXMWAcxml/sbsO0Zku8d+Jr02ez4JCHe7/UxDgLsnA20cX/FX46nAnfEPU
mbUMZOyM+fuEXouW8Z7V7esY2DMZeJbzpBaJbB1nD3kGlO/yp42l1sL/SWas
+HoGFq978WhraC3kYnwsj29goFNutO+eTS10HJVYJRsZcLa5sel/K2rRR7t5
b9lmBs7u9Fs/u7AWHkc+jEYT570Xnp79W4MNT7LFlm9hQCeje9v05xqcDg9l
L1RhwPX3Ae5rZg2ygq0zerYysMKiMbWhtAZpSZSJgSoDgqHvUVZQg6IDlQ0v
iKfOViyLSSY2YSyP3MZATx8GN12pwZ0c1XEpNQYUOfo+gudrMPBN550Pcfud
j0NDVuR9jzaG8Iglr7YdS9erwfoDYUoh6gxUPllreBU12JYtvq6buDxnRs5A
vQY9djE9W3YwwJB1OfFDpga3ui8ncYjzE2ZfVK+swUGhD0mrNBiY7ZWdiBCu
gdwNq5PniDP7JCbl/rBRqBAhPUY8VtKmqtrKRlJvTPq3nQw0Lf69XbqGjdRv
09EKuxjoKgtdJ1TORrXhHbPTxPHLpxq7H7OxafSAaQ3xvpfcQGYKG3pPIsN+
EctUrt34OIaNg+nb4tftJvFB/dnt4MdGxN4yMW/icepOtq47G8+snoc9IH4o
dnuezEU2PPL2d9QQ36z6eWTSmo0X9l8Gh4iTq5oD2o6z4VavWbdIk4EBMZGs
rCNsRC5memwktqmqfealzca0q9B3XWKxqk9Fehps5Kpm7bQmnhb1TJfYzMbN
21JHrxKLUq5eg3Js+DH+Kob/d39l116aBBn/8qbzAXH/CvoPryXEl3bqMYiT
KsZjwc+Gi09uSDVxQHmWHP8UCyqHKyJbiNOXstNqR1koFZ0+85Z4rNRoYcgg
C78lx6f6iD2eH7Y+8I6Ft0lqVkPEW4QKH81pZ8GwUS/kK7FkcSC3vJaFA8NV
Xt+INRmscbcKFvK2Kaj+5yiBK3MUGSxc+bCI9oV4VUH4dM8TFm6pTYx/JOY+
XdkfmcoCz9Z79j0x+69wKWJZMC6UaeURDz++7DNym4UBI+9zTcQ6mdqKSX4s
BAYuq3hJzJnwr9NxZ0E0yO1NPnF4mtKxzxdYCA9XKb3/3/fe122MtGahq6fd
MoQ4Z6RRZftxFr4UfqIuE/PHVwZ26rOQj78fzYnN+kfGlu1gge+2jbc0sVHo
JuE8JRYulTb2z/4XD7c6RA/IsqB/7/ySXmJHP6dvl4XJ9fo+GbHEqj5W1Ly5
ZD4TFgo5Eis3lV+P+81EQuCcbfuIK52qmIUfmLglfb6sn8Sb6Ut7vd1vmLii
NybBIF57zuclk8ME+CTU/YgNC4adOaVM7OH3fbiUuPifA7lGBUwcamgb6yTx
bmC4pLP1ERPfBKenEojX7B8abYhgouXnnL3ixP9oTfbtv8kkcTHp8YrkS0XY
1epybyaM0ibtw4mVlCoOZ9kyMTR85MoUyT8vezsv691MbP/wRLaM5Oszfrla
v61MmKeUj5wnpjtLHkzZwESw7snylcTf09nd7SuYiHnccMKJ5H9Q8Jitwpdq
XHismjRL6keTd6zuzr5q8GrcHNKJO3e6mR16XY1LNhZqWsRK4sPLzrCqUWQZ
V3+F1J9h04J/fe9Xw2XP47YaUr/2pGsc84uuxvrdTXeOExsXz/zyC6nGBt2c
vf2k3r3cu6/Tx60ayWzJ5D+kHmZ3pn05daQaak45i4WUGaD4mcGNU1XIn+mN
b1FgYOO0uCRtrAqjcp96tYiNK3I/xH6swssr3DVPSf39nHZroVlHFULejvr6
k/qsMiheyM6pQn3p54KlpJ5PeTxwOGJRBW+7y2mcNQz4SLBkRA2roH1v82op
4opgOeF3+6vwaunf4PNSDARWJXifU6nCoLyt8vRqUl+enyw8Pb8K9CaR3AVk
v9EwiRWecaBwushL/OVyBqLf/TqSYEKh2/BJzJtlDPwxqjDYrElB9Jd18ney
f/VMuCceXUJBzDLOQGoJAwu14vUtiishaSK8w1SQgTlPo2UzZ19CWs/oicFc
sv8t9kleHFuB9cs6m86N0TH25sQGmWsVOPmP8g8Vsn/bR6S6b7GrgJPtjnuT
ZL93f25ssVejAoFDN48Hf6Hj7xz7PUrvyrFn/5JMv4905HodvbpLrhzMxCGJ
P6TfuPV1YalCfhn03Vzk5tXQkZCRv1g7oQwzNgPTCSw6ZmcmaGYBZVgzFpyo
yCT9Q+bVfz2Pl2GuTsMqPYoOZcbW/tCZUmw+U6nqWEZHaHPA1TkGpfh8rtVm
fz4dDrPp7zYOl+CG10957Vg6eNZvB5s6SqCjn5AdHk36Q7vnWo4VJYgtNul/
HUnH8rNneWmRJdjPCLlmF0bHJ3Hnp2/VS3B/xG67XTAdYsHnBlIDnkFMx+L0
hCfp96yao8+sLMZzE19+Kws6fLd9keDjK8ZZ1sizC2Z0aB+9tiJluAgrV97f
5E76R0fDX6caKoqwS2S3WaAxHXLhOkaTNkUIPxX7Ioj0ozLjejkFBSRP8+ae
Wb2TjtPnhbdf2k+HgYHxgzgxOtJfUbsj2XkQ+hAimNNAQ4bNtSuiMXlY5Wlw
/2st+R9oMTSIts7DqNMf582kPy/QUv/qOvWUrM/m148rSX9+dWFri8pTrMs6
medVREPXqfqNvxNzYF4t+L8E0u9zhvKV59qR/7i5lXOZTjSoLZf5Orc+HU4p
HK1cfhpYKYWdbRq+kBwZdDQ/VIDulb2RW4/EU6ncvU02c/Nw7LS6Uc6vbGpJ
QoOMnH0OyrcVaS47V0RptGVP70t5DL97wYuuy5ZTP9O+LuWqPMIJtinD52g1
tcVRMWGxejpeHPwpMLq8hgqpW7OecknAvjrW2pt6DVR5Xqymxv4w7Muccm4w
41A5nKSHpVevYFrtUPz0SBs1pP2hxvquD5V+KDclbdUrqlWuWXbu4hhKaq2n
Qs1hLnXsq7F35Jo06oR7x+rzz19Tn40ZLnarH1MCyzVcsoW6qE0TtYKhm/Ip
H4dnZkczuqmgFQ/4VfIZ1PdVqQ8itd5TLMsMI7OpEkqgYpOiZ8+/lIO8UZE+
yqlpvXsR8vhAvQsbkv4iWkXJ3HU5NhXVT2nt1IyhBTEpYXV+qeP9A9Qz3/wd
ixbWUHM8/VhXLD9SKR+/bmofrqMuTcdlzKn6RI3MbNlvRTVSxt8LSgxrP1Fj
1+yDzJsbqSvL806mNH+izi0QTTV920i5thlZ7Hr7iWIcem1l/rORctDTkvL5
8YmKLdko5a/QRK1ToLWsXD9EnTPRqzGPaqJeR//qqQgdoq7eXx6nYttM3W91
XyIVPUSp/J0ICHZtplI0Xrf6JgxRAiWBJr1+zZTVrQMCWplDlNGW2HuJSc3U
q7X1u2tfDlGsACal0tpMRWratf0cG6J0SvPqhnZzKO014ktP/R6i3APyvjkd
5lDbNuX1smeGqIfsi9M/j3OoV5T/1kTBYUqZubFO0JVDLRpqTjsgP0y5dXVu
OfmEQxVLJtoyFIcpoeIfoRPFHCrN+2C5tOowtWT1u5Y4JodSKT4q+T+tYSos
bvnSrh4OxYvKlHfUHaYe5n8QCvjCoSoS3ld26Q9TFqduflec5FB99TPD+ibD
1IzczqrX81soHfnZrHLzYepdELxCRFuo/wOMZq5O
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwt13lYTN/jB/DysWRp74NSWlAkZSkV8ZaUlCiRhBZrK4lWRYrk075JltKG
0EKZuSO6aZumTU3TNpRWhYokSsnvfJ/nd/+Z5/Wcueeee5b3OVfx2Nl9J2cI
CAh4CQoI/O83u9EmKWWAD4H/v9qCy0T/5+KiS1H7g2RhEy94/h5x3IbCcMsg
NayfJVF6m5gxvujUawct2DeP/b1J3Dk7+8reID30zcleFUtsfbm9+myDPt4k
aW8LJ94l7B7HcDDE97AEg2vEPibtzZMjxrjYUbEhgHjh/gsHELQbh2KqxS4Q
5yzbfnrbXHNEZaTznYiLFHIE7BssILN4b4wtcUtuptWlJEtMfanV3Eccb1dv
fMfhALQUFMp3EEcUNTEYqw6itMBw+0bio4ePBtaPWKN3et4/C4kHQ2Mypq8c
gVfBY6OZxF0bI4okTGxhVyXnPdLPR3jO/kMSc+2xYdGl5Epi6wffGhUaHCC/
xyXhOXGGtLKm8otjONa32vcOseHHl9tUk47js6bKHGfiokcWS9UdTkJjyOHZ
XmL1NZN1awxPoXqWu7EmsepKyy+rV53GHOvZW35/5ONH8lHlZSOOCAtcss2X
eOeR2V2Tga4I3jxibkXs72CmOnTCDY1Wt/esJ85Y1HX0vfEZeOacEuvv42MG
P1nRRsgd7K7+bAPiole/FZbXn8P5FOsVi4kdPp0Ml9zuAe/Xd2986eUjP8zo
qWCBBwJlUhZHEU/Rop/aEs8jxTrcnNPDx6laqwu+dp74u/iWegIxM2JG6tEG
T7zQ9Z6wIx7q9NDfZuCFFXdzD3zv5iOlzvi1gIo3JPuEVs4j3pttW+Q27AOl
60c1Z3eS8cxq437z94c9vWL65Qc+jHqPOZqM+8N/4dWrZ4hZ1UfjUs8HwEzx
H3ZDBx/bJs8FGjtfwsGsectutPNRmGVSXbg6EHODoV3I5+NunVPLo8VBUM5y
qjpM/Ec6tAdWQVAYXiUz2cbHr68jp5vigpDHc/2qRVw0sKB8UiQYOlJT7ndb
+BioVNimNesquo9sq1fj8bFgaQXTauQaOtxr1FiNfOjYOHVw1UNApQ8b7iBW
bfqsauYagtmnxrKtuKQ/NYcU9PpDMPfoggOu9Xx4WuZ9m9F+HdlS9n9tasj8
G9a6p1F5A86Pk8sMS/kIcXGT6bobgU9Dof8WlPChsNE2aW5zBOZ/99utSOza
GfhFQzQSunperuPFpH93J4x7XonE1lbOhaQiPvY0hm/rPxmFr+p9Dx6w+Mi9
svzMmsRo9FsNRg/l8PE0t+x8gW0sGnPq0nSIO/YZNStejMUJNnU7KJsPDY7R
h4jEWJzdlKEn+ZSPW1/s3zvUx0J9ZauxShYf9uoGxhP6cbBQKgiSSeeD6hYS
710eD40YPf81N/mofd1N3f6UgN5hu6hDCXwcLgidbzrrJi5uvBx3NZ4Ps6aM
hgmFmzAPfnamJZYPFV3rvH3WNxEj2efuHsXHkqmDgSMVN+EhEppxNpQP33ny
eV3piWC5va5M8+XDY/mA76UjSciZYzv51IePUmw/PeGdhJCw30sZ3nzk3WkJ
9YhLwjtzFd1yT5IXVI29XVUS5Lh7Wc3nyPv8DFdbpnMbM3LfD1Q48dG2guNj
IXkHZty+me+t+ahbaSa6ufIu/GRlbj49yMfv6EVZ7L67sB05NXDRio/xf43e
WfxzD8abTeoX7ucDFdS07dZ7eLxXO3vLXj4ahg9MHi64h1S/J3f2GpL6m31u
dqQkw65t0uTqWj6OHbGy8tt0H4te6o2u/YfkzeaECJf5aXig73uqWpCPlVbn
TvcuTkP42tHSEwJ8BD+fGj6snAb7HSlb4v+0YWbQnH926qdBYUfr6o+/2tDx
UldJ2DsNghm1owcG27DrhsdB6+40mPSVrzvJa0O7gaF7DzMdP9wGT25PbYPQ
9cHRWNtMHKkzuXs+pQ0ZykzxStdMBLDPhaffa8Nb7VkHJv0yMRgsfftvUhse
PBk1OpKYiQsr6p0fxbZBozQmf059JrTn87teBbchTCA27B/9B4hwsFceOdGG
AdV7UiGKD+Gsqz33+rI23Pr+zM/t/SPUN81Lc1dsg9buJa+7Pj3CkNk5gUPy
bfDyoPosfz3CvoafwspL2iDQf693nUQWSpb3ujyTIO2lg714O7OgM71zQ4Rg
G0JT1zQ/f56FwIua36w7WiHUF9FZHfIYgSn3lfTjW3F6wdLpVSuf4qbVtt19
Uy0IUvp9/+7iXDy11xs5Z9iCdcy14rNFnyHunFjR3NBm9BV/vPfR4Tlehxqt
PfS6Ccac6R1mifkYL9l/qIzVhNb8dXsO3s2H88H1huqMJmzt0g+1S83Hj8jD
J6dzmuAQ5hvu/CQf6Tqn2FH3m1BRU1LqTOfDyeuIhHdwE6KC0hwk+/MRdaem
9KBxE85kl0wIaBXAIrww3qGOh3N3+uJVqwuw+tzjZcVVPGiH6rPc3hZAaJN7
shybhwjPWJXcxgLUegcebKJ56Bac36n2vgAB6fkt2s94kH8m+1xyiLjwhBgn
jkfy+5tjpMgLjA+NHJO15iH+VX2spvkLNB+hwkPaG6FcJXxcpe4F4koT1Xe3
NcKvum+mKfcF3sVPhok1NYJ5uCrAtfkFRL3NfRNqGlHqo/T9UccL0h6NpdGF
jZjD+8qd8/UFtr0sjjZOakR6iFDvEVEG6PQN0hWWjfh+M+CV3R4GpmUOMUfL
uDDYxBPKKGdgy7Li4IBiLlrUZJNUOAysLXJbNPsVF8musYOPahjQfXo3XjKf
i9+8m/yMRgbKHXd9lE/l4qwF/82VLgZ4xzs+/vEn3rJc8+0UA6UOP4+83cDF
nxkhtgXrmHhQrCGxXoOLV+t7l3/VZELveW5knCoXzqzW2yo6TISZBbfvU+SC
XSMeF7OViYwTvtwSES7EpVLSd5kyUSOVKu34qQHznKYLd51gYti/Q7byXgPy
zWIDr8Uz0cyY8Y9VUgO8+Une2xOZkDFe2dYd34An5rY2f5KYoNy9D0yENeDz
ccUu1xQmjPgrIqX9GhAu+qhv/WMmGCKlf5WtGrCb43XYhmbi/dR0j6dwA8lF
qUDJASbMlfZUdQk1ICHMfjz8MxPyKcn3d89sgNPSa7tnDjHRlGwgJz9Zj9en
bUIGR5iIZdyzYg7U45OH2fr0SSbsd8ZyCkrroceSmnokQmHHsH9ej089bngq
tUtsoCC6nH2Zfb4eGs0x3l5aFBbIyIg+PlOPVcZufi3aFJKN+G4uJ+rxxfcD
I0aPgnRa6eoPe+uRzPk+/tGQgsexTVn/KddjyZtuSSlrCubi7gd6Mt/ijOkB
rQt+FJxuaP60ufMWew7/Sgv2p9B/Zd6i+ui32GladCL6Enn+j8+tzy++hVXf
uu7UIArC7QFHbSzeoo0x8jzjPwp1b744rZuqQ71Xl9yq2xSON/dH/d1bh8jM
4ayVTApN1RPoNKyDwPigTBlFoU83rKRocx3aL1xTPvqSAu+yGjxV6mCw03N+
6GsKI88dF1ZO16KmuPtPcSkFOQZbb1Z2LQQSQ8XptxT0tBqkStNqITx///CG
Bgqjajb0pVu1gOjFow+4FDaEfA77GlyLAMWab8FNFL59mPkP06YW5z8saFd8
R+HkWgWn9jm1cLO4az3QR2G1rqKTz58asLabym3spxDxMnWz+GgNelYtcr0y
QJ6vomit11GDHRt+Zop9oeD/UPqsT0ENtDKO+4t/o7DRcEQq1L4GUlFR2+5O
UMho+aQnYFUD/UM6TiW/KWR3O2h7mdZA6DIt+XGSQsyx+vTDG2vQsPHQ4Ipp
CglzH9osWFCDvZzd967PYCH2x6Zts5jVWDuv8j/uPBbGfWK3eT2phm2q3rO+
+SzQjgee96ZUQ1uT0Tm2gAXX/+Q+s0KrYTa92FpYlAWzZsZjQ5tqPPujf3Ox
JAvK0cLu3VNVuO5l/DpFhtRfteS66kgVqmMcVgQvYcHePUHUva8KODMj/Lgs
C3LTVRdGa6uwUFZv35KlLMgqIfpdchVWrdDMO6XIwtpw0/nrtlVB/OVReVcV
FjL8xXTNNavw8NlORfmVLFxs3dbqurIKoxp6i94SG3F7nJPFqjDDI/P9ClUW
Ttat7+ru5IDRJ1eYo8bCe2nL20M8DiIHBUx3rWGBUd9RNlbJwbv3uZxO4v8C
dc5M53GwcTU3erYGKR/4IT4SyEGsde2GNetYWBflbtV/gQPqaoFKLrFY6sEF
7xw5WPRn5Sz19Sx8me1Y89KcA36wjJ/SBhb6bWKaH+zgYOjzTrFbxMYyyvui
dThI2ns8Yp4m6a93MfcOK3CwpLRM9yPxg/eOblukOEhVLTy9V4uF67ue5MgK
caCgL+D3gtj5pMe1xq+VcFJrMfbZyMKLzLlXlehK1DQdCWjVZoH7fZRemV8J
5/sxu1V0WPiuNXBV7WElKj/Ri84T6yUPZ6lFVWL3k4gUQV3SP6UC81YFV+KF
/1ebHcSxHbKjSt7k/stvRa8Sj/30sBe1q4RmdeTx38RqP572ClpWItptreC6
TSyc6P82MmJUiaJRXsIJ4tT6raEfNlXC/r92hQTirtybD6vUKyFj+yS1hHj5
tfG9+UqViLiTsmiI2Nn8xJWkhZU4fHZJkNRm8j7i/M0B8yqhMjuwU4dYkHPo
su00G7Hh6uttiM29eky3fGcDGqFePsQZ0t6p0h/ZaJQZfhpHPPFcKnC0jY3B
i294T4gtt7/qr6plQ/3y8aFi4hy2W2vKGzY2W2j95BKLGqza5/GCDWrpreEu
Yo+C4f3bs9jYITXUNETcuqSoU/QeG8G2CU9+Euv7Jo7xo9lYqPr9zNT/6qvx
i0u/ysb99BPyf4nlFjq+dPJho/SX2atp4qgDds5rXNlYZilqOEk8J8w+fdiO
DYfuuawfxJcZLiezLdlYyk1e9IV4siUwz2knG9N7NOw7iC9+Tbm6bDMbGddk
Y+uIp6cqu/jqbDxLYz8tJA4WmGJHKbFRwY3JzSQW/q2jvX0hG6Hb3yeFEyd9
uqzxfS4biUuFXNyJV72tz0v5U4FbcV5KFsSFj1cXmoxUQK0ulFYn/mzw1zmp
tQKxRnKPOsn4XBf0EdtSU4Gn7Q7fC4iVX/ze2kFXoGuwTj6E+Oy0nLb0wwqs
VH6oKE+8ML5IIP92BS5l8X58JPOlVN7J0iSyAhcP5j56Qqws/T7unGcFBvu+
5a4mfh+ScUXQqQIP5GVm9JP5mfDZazzySAUiN3quTyEWi9e9kmZQAY8cw9Wz
ibltq+JWalegwDHgewGZ74n/Lld/qkra99wlwZ5Y7ezGv0/EK2D26JtLDlkf
U+F7tFbOqsDm7F3J5sS1991/pI6Xw/FHe9ZXsp4CHnOFIz+UQ3xKz2Q5saCR
SLZxdjksuJ7Jp8l6TRQ1Cr2RWg57CcX742R9y2w5srUyoRx1zvYfQoh/lS7b
jEvlmJWQKHWH5MF4oLy35N5yPFSoNU0j+SHhbLLKwKAcTp7Tq+WIZZmWDHft
ciwweGWYoM7CjABBh3L5cqzxbVsWQPJHiuKM7/9Whri0y/6rV7OQX9x/5Xxv
GeaK/ZaJJnmmv6a3L6q1DHyrieGRVSQf1/tsLSkuQ/P9IK1skn8HvixYLxxT
hmHvTPUZyiwwZT4p6a0rw3/FVvYrFFiwPTZ0SGdFGcxcnsoclSf5IFzvsl66
DG553jNiSf6ORq9VUBAsg8AmF+tRks96RrbVXfWl0L77RDRemoUBN9fV02dL
UaX6apOZBAu3fliJtR4vBVtpIuqgOAs6H+Trcw+WQsHr7jw7MRZMO3d3WpOv
Lzk7iTMnRUh7YiQNYkRKsTj8/oe9ZL959MxS4s7TEgx9cJ+6LUjGx0SydFdK
CZ7lx7+yFWDB8K/58FhMCSKW2y2W/0th+UujAiPvEsR7W91PmKKQ5r1kmqNf
gvnSTR8O/aLwVNz5xsHmN9g1aRCxdZDCzzd3LkX+KcYNjueyC40UlMuXXh78
WoyKd3+lq8h+ntYj/3tndzH2H85MlK0n+6XHXbtfFcVw0Xu2gllDQav10oB2
dDFeveL6lZRTuFYyMAKlYnicPuO7jpw3cpXTKlpCi1A7krDLNZHCnMUyJjVn
iuA6Zkh5JpDyCRXHV/uLMHpYW8Q/jkJbxKwLUQpFmGPAdrscRYGaYFcJUK+x
X+L3oP11CuEfnC6IfXyFkYD7XpFeZL/uUaR6thaituamSPQ+ClYdByNNlxfi
q7DxMS1zCkc5y/7mzC3Efr2g8BYzUu4ekOfIe4k1+/yOSeyiwBHU2ffQ6SU2
TrbMOgYK9PqqGIs4FubP3/rCcTUFodpjgjY9TOw/eVhETJBC5n77x68rmZgd
4CV6dJoJD1FKWi6HiaC3134+IOfHnKVepm99mNCdDr2w7icT0elqkwIiTBy5
YK2k+IWJv0bBYUnaDCy2aGx25jFx40fz2ZTrBWjXHVubkcGE4edFO6dlnuHJ
htpFcZuZUHnkYv17Kg8KETpvONpMqMYUu4905EHv3Z/kqQ1MPO11Y9Sn5SHh
gcSYlRoTvjHNCZaqeWhaVz3RLsvEo5nFu5rcc6D0LqtV8w+DnCcfzHmV+hjW
AU+uCRYycPG413/5fWmIX7bWaVSVgQc+K24s1AhEtL6GXvxoAW6X6P9I3JdE
HxW6dinBIR8bxyx9U3Oy6TO9Y5/V454hbN6vLbIiTHrWPvaoi0kuojZE9r9V
LKZ/q5heCY14jNregXkOsWX0oPNEnNitTCw05cpcEeHQPrmPy99vvA//Uf2x
QxJ19G290xfPRcZB7Y8x59u5Bvpfiybv15G+WFtqVyOgxKP36Za8XGQbRMsa
n9IpZzTTp11DFEQnb9HygfGHmHvbaJsQEfknzRn0jLH4sZWa7+nKCfrDi5s5
dEh5wRfdiQ56TLJjYcOaAvrjklWSKbO7aH539rqXrSz6nlYPzz6um/50S6Mz
pYam9wnzlh8W6aV958WfuckvoavcF9T+eN5HH+wtfX5Ov4K+c57exdjRT78R
OpBrlsKhi5JO/vq3ZYDuX9diNGtJLR1y0FRuTcJnWk/z4tVZ4fW0XsYnoeNb
B+ktdgOm4kFcuj6j0KLLcJDuSfq1fEEYl9Zk8Y3szQbpZZ/YP4XiufQxOYGN
9kcG6ZiFDteEHnBpu8Z+FUe/QfpCn7OlfBWXbhxTtbnFGKQN/w3hP5FopO9L
BY77agzRbTUrufqZjXRH5I8qYe0h2mlwzRL/nEZ6QJaxK23rED2VlXyMYjbS
Jy8o7K41G6KPmPsMbaxqpP+IxZ5Y7TpE6wQJjpt+baQfCXzqmZM1RDvo/SvU
rMujKab6xQd5QzQ5LputNeDRCUFvigypIdpqhWVc+G4ezbKsMwlhk/9/3rXc
1I5HJ/dc9RL9OEQrxC442nmVRy/W3eCePzRE7z4+55lJJI92SFNfaD02RIez
sucwE3m0dd6C0+kzh2k/o+evEx7z6DkHvoqbLBimi1a4yAkV8OirwvJOI5LD
9I53VwP9X/PourY7rklLhmnrQrX+7xU8uot1Unb7smF6u0y0hUs9j/4/Q6u6
xg==
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#4"]& ], 
    TagBox[
     {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw11nk4lF/YB3BKokQ7pchShFTSRvoiZUkRKT+RpY2oVEgoWpSllLW0WBKR
JUvK/szYwgwGY18mKpEso5Qtvaf3vd75Z+ZznWfOc859zrnPLWV3weTULB4e
HjdeHp5/3//3+Yj//2VoY2v59y8HGsa/olfnyUD5hu/FP8SSpX3fV+VtQaKd
EyaJe3Tz49Y/0kAO3/LyMeKE0Mw1K/P2wObMzTkjxBKOToJRiXqIDsj400e8
/+RtlTWPDsDlfFzaR+Kgjp1SLO1D6F5sLtZMXFzXOiycZ4ovV2rVmMQ5acfN
DTcfgc9zweU0YseFc5T9Es2ReYv/dSZxQ6igTrHkMXgqlP+KI+5rTDw3GWGF
9mC96VDiulwRiM21QX3u/bybxNN8ZrKZ2rbw3f9vghxsrnJT6sk9Aa3sQX1d
YpXuB9LuYycRztEY2ER8WVnpmdDm0+BxW2fOQxwff4a2KdEeYj1FMr0zZPxO
e3bTPjmgQnhlYhXxqzjx3gOSjvieJNb+gNj6mZrFiYhzsBEr8Hcm/jlZOPGt
7jycdKW5RsSNN9pVc/idofd127d5xO8S6JvUtC9i2f8GnIPB5G8SG3MvQytW
bVKX2P+g4u++Iy6Y0/hObjXxWp41x2N/usDk+u+UkmkOjm2wS16wyQ08LZE2
vMR+k1zBhgR3fDFyeFo9ReZv7Snho3MVdn5TQY+JbYVV7BV7rkJS3T5GgXiq
58R5r9WeSHv1b4E5UH93Q2hu2DUYyuqd4yUWSlsd/HLzdfjYjqwrnuCALm/D
Re11pK32LwXx19h5Qjvm+EDyeXui4jgHzze42Flo3oDJ/24QDjgqeX12727h
4UTJSyfivtpEpcL5t0k/fZmLiKukw0qX2d4G7yHrA0d/cnDmaEcDfb4vflYI
eLJGOfg7HpLIZ3sHCUf0cj2GOeifEzmoPN8fcleO7BYk3llbucLRxh/PfCu1
I4Y4CJz9RS4+2x8nnboqkwc5uL7ySPVimwCcsS1hlQ5w8HrmpmvD20Bs779K
T/vKwRG/uTOfrIIw3de0ay3xZZYZdzIzCNlNj7c/6eWgcIfXYRGBB5jjtT/Z
+wsHos3MA5syH0B0yDFwxycS37jz0utvPQS/c6SyXRcHxhc7Zws0B2PJQAJP
eAMHLyRUvWKuheGDxWL613oOgrNMbm2ID8OGMkWVncQz9+UFc5lhEAmwX9fC
4iDJ5bgvQzwc69iCR/lrODiemTHUmRuO1w4DLTIVHGjvGJjMHosA7xMF6xP5
5Ly+O5wk4RSJQWuzrffyOBheNfXVNTQS99YoF2Tlkv3a4KnHyItEZ3B/+8x7
Er9g5xPOgk/QqOp3wvctB5umv7yJS3iCFV4nQ01TOZjNGhNL+fgUoyKRrj+f
c8BbaNq+0TQKuqeyL4w/I+tlP+xy42oUSi7ckZt6ysHI0rJ+VnQUlF/uY01H
knjsU7Zw+B6FhgDwc8M5oM2cFvTxjcYRoyV8z+9zsCLYRSL2WAx0s7V1Z3tx
sDdjzOHWvVicezP2u8uDjIdfTedudCzyj1udzr1Kzk+hxUf/zFhUdhh4nb3C
gal2rnlgSyyyjkTdK7zEAWvpCxlv2Rco0ZKDnAPZ36Fdw/IFL8D4SRsQMOOg
PPBjree3OOyjhS6JMeWgXqRMaWgmDvom8rStJhyIm6Zzji95iU+VEa8sjTio
nY7WVN/1Ek5z/d881ufgjTR/Eef+S7Dyi+MqNTiY/PpXsmlTPHoEA1eLrOUg
rVFN38k1AQrqF47ID3fBYK2Fa8d4IhwOz5HxHuzCdRHvYzfmJ0FnzCCePdAF
G92L52QlksCq/lzl2deFjl8LRU7tSYJ6m8mTvO4uiGbdlmLdT4KtjZjBZEMX
DoW57zWUfo0+Kf3BG++7IP7I4Wm9fjJ6r2ppZ3qQ9/ltEK4ISQWfQEhfoHsX
/htd630xIRU71EfnnXQj7Q3u1mJ5qeh+2F0icqkL8sJjp493p2LbhCe/mUMX
OGM5xxkb0zBSGF0TcbQLf/5MWsox0xAvGnf2t0oXfPJPuZ/jTYeQUGSd0pdO
bJawSvmyJQP0134HMno6USq5dFRVIwNye++bqn7sxPozSSU392WA71zjn63t
neCfmj135X/E/rYMubpO3Ii5/2vb9QysGrU3KCvoxKcNEbnrKzKQ5qfa8jWk
E7WpEezvFpkw/1CkwlDrxNBq+bu5nlnIy/CfYdzpwLoWQU+729nYle3W9CKl
HVpfvLYHP32PxuvGpicZbWiMdB4McM5FRPTd5RZtrfBl8TJzV+UjpfpJuWhT
K1jCMqJZMvlwf3z1T0NdK/LkDncnKeRDme/JX93KVvTfvzD8YEc+VqmeNpPI
acWR5INtGofzMTGmqHs7vBU6clXyawLzkcV7bs9Wo1bsmhcROf4rHyo7y6IU
i1ownOlzqKK8AOeMDpm05bag+JGxZRqzADqfLxfezW6B0o5vAiH1Bajy98rr
SmnBzyevdUy6CqBc+tTo2tMWxF16o/JurAB2vxb1erm3YFPh3v3zZQvhbNxZ
4ru5BSsO37355XohZNuHtYuimyGrcjlRZUMR5gbLrnz/pBn3A4dEB1WKIPne
/UJaeDOcBzYEvNxRhBFT77DHgc3ofHni8jydIixjzamwuNKMRQaPkGlRhEv1
v9kRB5vhkX/jl/PdIjj+vXBncKoJQ+vcIl92FcF2Ml13mUkTMn1d7mXeojD2
RvN3uWETLFrT3B74URjxG1C5otuEAl1lPYf7FCTiQw427GrCDtrj50seUTC8
s07UQ64JXZvsJrVfU+D7fnLwxnQjFB/9LpzPolCvsyvNI74Rq8zMqWghGgzP
bOr+E90ISbfYpnZhGpRSEeP9pBGJJjOmyxfRIBv3pvj6g0YsO6nlfWcZDf3b
Gx87Xm0EbUTknqkEDUy+7QF/DRvh+bNXMmYjDVxFsxsLf7BRWLR7J88hGhIP
ai76MMjG1LiP9hcTGvgV31l59bExe4Fbe8VhGt4t1Fb61MlGXLNYfqA5Dd0P
2qJjK9jICIyV47Gh4byVcHf3czaclpTax52nwXLrDcYFXTb0Sy/J1AXQ0HOv
5PsfLTa415+4371Hg3DUw6qAXWzIFrqa7AqiwWKwKj9mMxsOrb0hscE0FIHm
UijOxvjapRoWj2koyErVzBtuwK2s6P5b8TQEtYRq0iMaoF8Srf6uiIbrg/yB
qQ8bsN/R6IIVjYb04HHzxwENSA1nN88qpoFz96i3w/UG6F6I2qtXRt6nyPdr
4lQDvq7tv1vIIPE5KBbYoNoAAynpvYdaaAifq3TYoa4ehw8ff7hyhIZmvovC
6xj1aNug5XuXS+YXrGrYXVoP/yvcmNFRGpTNt5uY5tRj2X8TBiVjNAw9U/Rb
G12PHzrWVgenaPg2q/bpTad67Nfcv2I+Px3Vmrx2kvz1WF7JaRdfSceP9YfC
VvLUIyGhKmiHOB3UiLTn0sk6WI7uiTRdRYeOqOFpvqE6cN+7ZN2WoIO/4m0m
u7EOJVsbRuul6bDN4chsj6/Dbmb8AUlFOuo9D0Stjq5DhnraQSklOnpXaVTP
iqyDfOLDWKkNdMz8jtWrvFeHtmNu6qs30vFp0c3sfS51MLev3MqzhQ5/9tMz
s/fUoffLm58uanRoX5JTaNxVB9nGoL5j6nTEDqrGxm+rw17jUHmtXXQYXGtM
0VaoQ391dCD/bjpMeTaonVtUh/drGA1eWuT/4Vs33OawEPvz3ipRPTKfBZzt
Wq0shB+aetVDPGA37/d0PQsGlW1XU/TpkH/VG+JczkLGd+9htf10HA3N1tRL
ZcFN44zYnoN0BE2muOR6sMDfzFjIc5iO+L0H+dsus8AOE3AtIl5unLN4womF
y/KiTA8zOmbH9T5VsWbB80Cr8eAROhZqpVwI3cPC2jGNxNz/SPyt2lcJCbGg
NjQgP3ycjhdRAseWzmHB9WnTrXvWdBzR+CO3bboWn0UOVcnZ0BGS6/9d92Mt
Mqtkxcxt6XB+4TK+L7EWPkOhr6NP0FGwNUQ8a3stdkj/1Kk6Q+Lzgo8bsr4W
PI2O0vvsyfjvCxRcEK/Fcc3NnylipY+lKmv+1mBzIXtxqgMdNa4icZblNYjO
rhI570jHz+YFa2VzauAZOj2rlZiV8/xZX1INnkq3N2k50RHz66KT/f0aCNRV
Syw4R8Zv9z1oz+Ea/GA3Sgecp8Mmz61wdG8N7ONyhT8TNz0M6Y7aXoNG8aRm
9QvEudfnDa2swbc7bTOfiW2EjESChWpQtF3Vcpsz6a8zXXDzTDU+CVeG+RKr
TctzznRX41JKQ/jqiyQe+sibqa+G4GZbq9PEUcu+BoSUVkPP/L+ZFGLW+gGh
jFfVWD4/t2rLJToitMtCK89Vw8L+po/cZTo69q+mAq2rMcRqFjhOPHR29bTB
oWpw9MY9Qojdvy1LpqlWQ6i6Z+XYv3YD4dVX1lXDTqhOV8aFDhV6WoyCWDUM
6PWWRsSrhr92+E0x8ZdrrhFLXJrgE75lkIm+GF6BD8TbXOjW7V1MRCjy534j
djv6Wt2HRZw8biTkSsdNY/X10sVMuKk5MhWJLaxd5OlZTBRzhzfoE8/cMttp
Fc8E/4CYy0li56KuY78imKiHe9Q14hThhQ/v+TGRLhiTEkb81qW/UdKDCWU7
6agk4oCRsxvSHZlotwu+VECscDMsQsOKCa213uuriR+vP72o4iATQ8XXituJ
Wb2c50aaTFwwk9Toc/23Xry72JuZMPk19niUOPEFY8BMhgkZKrRxknhfrEYq
eyl5vjJglMeNjvTsoz7G/EyUKp8b5iPu5aw4VfmbgTSBagY/cZ/k7WPoZyDP
edfdf37nGnEis40BN58DUv+eN+k2vibNZOD8oZDIv6T/HLusxAeFDGz882x4
nPjbROGXiTQG9j3/Kz3yzwnOqrYxDGjvN9zyhfidAyOsLJiB1DXL1rQQG2rX
8MvdYmDZ9u99FcTpm64G+LowIJh44v574o+qTMnuUwwsub9gwUvijoMfynce
ZYD+1/NMEPHL62e9H+gxELtC65nbv3hJJq1VUWRgfZJoqCZx+UOdJd6rGPh+
6MBhaeIiUb/FlQtIfwLSQ7zES8/M3Xd4pArls7hJeWT9nTfu8QjvroKjhwgj
lPjJAjlaQ30Vkk8tKzlLbDL/q49udhUU/khuW0z8UaFkyiuhCrc69NJ7yH5U
s9H1e/OoCq/DY/+mE5sI6TXN96hC2JTCKl3ihbdKH211rMKldu8+YeInIv1n
LS2rYDxl6Mcm52HpWYV9sbursM/2seZ/xHw7dA9SG6vg3qZmLkZcJC5k37am
Cl0Tz7UayXl6IhvEmju7Cj7BQ3f1iD+rX3bFh0rcHM5qWkrOpzEz/KhubiV8
JXUEK8h5Hr+SnmKYXAkFDz7Tq8TCUjVvjB5UAqXpCk0kH2zLe71i+9FK/NIY
++hO8keMbFCogn4lLM10SlYR67128BFXr4QqfSK3iOQbi7mCWWMSlZBKVvk0
TfKRu0C/Z2BvBfZYrBS3O0viY3j//tmWCtx71Rrxi+SzOynrF+tWVUD08lZZ
f+KQQgOX8dQKtERaXUok+S9xnfKzXa4VsMlJra89Tc7rUg8Pg9kV0GfuNKPb
0bFuQUw+z9gHsJ0HaduIS9cUXXjb+wFaX5N2vCb5tyKyZ9PSqg9ION5iEEjy
M7OeuTz74QdwBfVHtpJ8Xm6z7qLX6g849OUUV4nke9kFNd2CIh8gLt7w46Y5
HcXsc2VhPB9wyi17uukoyd/Z4V9efCrHiUyXNVfJfZFWdMc/JqkctvUrE+JN
6fD5PmgttbUcy/aOHos+QOJ/+eNfg7Xl6JtjfbfUkI7pWOWYi8vKYcUz8t9X
cn+pjXZ2Z4+V4b+i96NrDUg+t/NzWPmuDK9kzvfe2UeHi69QgOm2MhgV/LzU
TO7PlzV1IndUS7HQ0YIvndzXi5V25hvJluLi7PHt/uQ+V9o0fXr50lJkvLvJ
Z0PuezelcOrJjxJM+j8+zb+e7L+xxa7emSUoTDTT3iZL1rtCg5uzsQRJw6E/
pUi9kXnRWPm7XDHO9S2SX8dHx68ml+QLYsVYWMZ7pmoWHQnmToEjAsUo9zp9
w4mXjt0Z7Mvf+ukQ1Vql+3qGBpv3Ab1FyXQIXVkhJDRBg53oPdNvynTMP22l
aD9I2td93r9/Cw3tRVLbfdg0sMScZDxlaHhcdnQzp56GBLkPVolLaKgpdZ5S
r6NBfuvg2NhXCqbOrX+GqmnIee2axutA4WbjqQy1D6T+1chQljhbhC0J527a
59JwkqfB0dG+AKdrjXTEn9HAjrCUKdcrgNQcPimNJzQIRDxmi68vwKmgfS2W
pH5k1sjJ5vTnY07xisbwMBpS1sddeXs2H0vzz88Mknq09PaCkXzHPCRb3yrZ
do3Ud6z0dfxnc7C8uu2tnCUNYoWbk+8efQul+VZrXMi4D0vldTdueQud+qMn
GhfSoBl+Rlli4Vv8NZqeo0rqc82UzfOeV2RBSNDXvl+A1K8RNxmmO7NAGdQq
OUxToFmJusavyET5fn77x6TezzmzoiIz+Q1mPDSbJl0o+PEcsJt7NQGGvNlt
UalF4Dm91vbP7luY9FYvy54pAM8ec4+1q6Mo7ohOmF19HhZO92opJWRQMNNt
dDPJgd+pzh722XyK/vZ0fWtCNsKcp7K2bCyhzlye2BxhnYmHz3YUs9wqqDs9
q78f7UnFSw2vCCVmNTUeLX/C0TkBQ3H54Ve666inLnJ2VxY+hbvw7vjBIjb1
Wt6UX+/NDcg2Rx3bwG2m2BLuZXsd/aldBj02v2e1U+yh64Wi+rHUvuV0n9wV
XVQPvXh/VlMKVZTjzSNd9pEa8jZO91bIpgR0+2dRZ3soSe5PS/7BfGr3sePv
DuAzJZ9hKufRQ6d6UsI2SYn2Uo9a6maN8pRTZ+sfCbNav1JbtwX9eCBaRa2U
W3BkprqfspmQrKGYNZTz4oepJckDlL+74cKivDqqlGYmuzdgkJIQNdEqk2FT
bh6ssJJnw9S8G96v9vY2UTIdC3K2MUYozQKnKeHnrdTEuMuR5NoRKvjkSVuv
pFaq29vo2Br2CGXY8vnG9+xW6iPj+OP5nSOUpIjnD3ZNKxVn2cvpHRqh4re1
RpfztFFbbSNfpi/mUmwjzcMbTrVRd38F8QVbcKmHtJYewU3t1BmzExcXW3Op
g7kuS2p3tVNHJJJ1wk5wqcleZ/5H+u3U6aEwiUgnLmVQc1t144l2Sv9uXfSr
61xqnf7v9z4R7ZT4s6Hm5hdcKqT+W0jin3Zq5ulEsvUrLtX7hcv/ZF4HxZ3j
3vs1mUt979HRChLtoATFaoMm3nKp3XcrBb03d1DTqr0pUh+4lMnYeu6NUx2U
re+9tykMLhVY7xTlf6mDakaC9A4Wl2q5zF0S5t1B/RjdomLcyqU4w3nmGZEd
VOTAq4aOTi61UeuafGlCB2V88EG7Qw+XKt/jRW/N6qBExb/p/+7lUoOZv2RG
aR3U90M5Er4DXOqbvqLxgpoO6n8AQJjpng==
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#5"]& ], 
    TagBox[
     {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwt13k4VO/7B3AhlC2VUpZWKoU+FRXVu40KfYhUkkRFIkWSsqWkjyiypaSU
7GVLKHKEmTPJMmPfNSOiLJWxRPg93+v6zT/nel3znJn7us9z3+d+ltlcNDkr
KCAg4DZDQOB/V9ncf2ZPiXRC4P8/EfS3pEnizQsCM78ZrsX8P7Nu/yU+LFn0
rttQB6EGUU/Hibk7QutSr+3FHCp0eJSY0RvWzDM0wD3TPwF84osfp0fF5xzC
7FnlFj//t7541DD+2mH4d8x2+EE8qQX17Z1HMaPhbW4X8V2LTssaQwt4Dpbv
6iD+1+lXjF3OSYysNp7VSBxwRKfxr7Q1Lt2CFJuYrVqUWlpqg96px8Y0cVv1
PdXAa2dgHW3D/kAc0Z+iaaxui6ZjkffeEDcvUkqb12kHWmt30RPimOXLHCIM
HbD96HvNkP/Ft63Q2XTGBWRFPe25Sbz762d76RwnRHunitgSD6WsMS+SdobU
ilrnI8Rj6hd4i787w7fn3GI9YpPNbiqupS44W1+/YgVx5dzu2OXXXFE/le43
h7jGzzTvqukV7Ns/vHxyZif4eWGGn9XcoLKjdGEtsXH8o9cXeFfR+vYyz534
xw652BgDD+zvfq1+inivi3vfV2VPZG8+nKf3P3cytqoKeCFge9ctGWKpAs1H
adneWFcn9zdGuBORf3knKqV8ESaZvdGHWPnsiFqvhy/GbfOTrIiNU+59FOz1
BdNTykCJ+IT9vzIbSm7CbBPzUqhQJx7M3Xf9xlU/5LkWh10g1s5L9A/56odF
9ar8fcT73B8tfHboNlomcGFcsBNO3VpJuWv9cbTGY+cR4jU1d1LrOu7gn6yt
Dr0CnViewb9cuC8Qx4cvbssmnhGyf2fbh0A4yY+s9ib2jd9X8GdjECzn/DaV
Jr4vz45eu/QeDGOSfqlM87C0hfnVeew+ruyZY7h2kgcpZ7kpHH4A67d7q7/9
5eGVyNMH2sEPoD370+U4YtfA2Wkbyx4g/cRHMTniZ7mtF5btDEXay0vXR8Z5
GOvf4/N9bRhGij55/jfGQ/7FOVHqQhFIsP6bq0Vc8FPkvPSOCOzu8pb6OsqD
7tvhKwPuEdgZcVlyG/GMkwKrEwcicDBK3pQ7zEOJb9J5weZIZKvaTgoM8eCd
rrXoREYUMm50VYT38VAY2BF6zeIJDKYPlKkRf6td8UYz9AnMbxtOM37woG+k
WTjIeoKqxLXz+N958D+d7mepFQM5PROeXi8Pgy1BNktknkKtZ6cS3cXDpxjT
9i3MZzheHCexoZ2HjqsvTpg+fA4DjU8KWW089N2J1gzKeo6MuKCz/xAHWL0r
Kal4Ds6L/li1Vh5M1lqMqgu/gMv4QkqhmQc8nbw1fOkFtKSlHtXV8TBf+9el
Xfpx+FjpU5JZzgPzvlogc+Il3tADPfLE3rkHjukviMf1Z+//vf2ZB4Wu1OTy
9fHw+3GuxayMxP8+g1N+Nh4Phpf86ad5uLTj44z8qnjc4ozqjhfz4KemrH0w
LgE1Sf8q38rjIYvaVKFzIAlHPM2P1OWSfIbfcw86nYR09Y+0CnF42TOHFq8k
tGokOtBveegqObnMNSsJ6i8rcqezeMhpM4gMkU9G2mE/a8PXJF/rZ09d7k/G
/LqocbPnPNQ7mvo3BKcipPKMg08sD7Gue+1XvEpF0GjGeOIzHtKU30w5slIx
1fDJdSSGB4bJqc1/BF6hpnqy/r/HJD+3zJ8MO7/Cjgwn01thPDiElC70NH0N
udmu66r8yP8P2fWlzU9H61ZJq+IzPLgYKdiG7suEs3JMIOM0yc+DJNFrhzOx
ToExRNvwEDRj29mT1pmQXdvmVnaKh5hdgcbKHpl4U6m2n3mC5EvQqDwuLRMK
aocWPjrMQ3JCgKeNbBbi9GLtUveQeK8WfOngZsG/z4p9cwmpD/VYKs4tG1WN
baE6SjzI3fqYvMMvGwf1M5yGFHjoXuVX0fAgG10FJi6nFvNwQnCgQPh1NgK+
3EvWkOXhx+ljcgc6s5GwrK3hxWyyf1akJl83eov1gR0bW/lcFPTaXHVXyYHv
xOXex0wuOpQG6KjKXAwZrBNbxuCCcmgT8mjJhZll8P6EEi407lZss+jJRU+x
mXpaERfWD4djZQXzoPeo896b91yEuerLuGjm4ZuLUEx4GheL9DYGsKLzUNBk
OpEewcXUS+vgTtt3SLuyOc/AmovNBzcVBY+8x+JlDq17R77gauT+BHn6AwrX
/C0Kcv0C84K5xl/MihDdca1+W1sHHH+U1ts8/ohWl2NHHxa2Yz6VeTq1uBj6
db/y/d+1g69kn+9NF0N+zZiVa3Y7PC/EHjUuLwb3pYGtfko7ivzWWAzUFWNW
v6QjN6Idn62+eMn2FoOipi3yHdvxuisnVVq6BEVOURVKi9qxQynvarp5CVYO
xYzGObYhJT1Uz6O3BKv3lgX42rXBUXL16pD+Ejxi2EdY2rRBjtprG/erBAxz
wUUyx9pwvm3ZSOmfEmynH3HO7mnDo52fj/BnlaIwx1qMuagNOm6taUKqpRj9
ZhZkzWiF8j5RE+65UiCsql9YrhX+pUMrvbilOCjUrD17biuCnwk1X+4qxXPl
GR8kJVoh4P/A61xvKRR9409JC7TCve3VPYNfpTgfpqc8+a0F1g/uFI0JMGCu
/D3uZm4LargTXQNLGPCcynHTNGuB7ucjTbonGODetnPRDmzG3593X3tUMjB9
RnfZD79m7Fe3WNzEYeDh6BfZx97N0Gt6YbOpjoHNmw+xfzs3I0Vq562vLQwo
L11wN/hYM4Lm7eOr9jLQEPWPjJtyM5Tt1881FmLCTTn9wuiHJthY5S4f1WSi
7PKe2ku5TahTftEitZWJyCsRN3oymlAkscty5TYmYsNcUqrjmnCsenfe/t1M
nNkqsyc0oAl/j/0ocPuXCWrtlzuFh5sQsvmal50tE1mppVafextx16yq6GE4
E9dS17f4djai5WPHtNZDJmZJ8Ou02hpRI7pjV+0jJm4M3jjwhN0IVflJltgz
JkrxZrVZbiO4WzZ1mCcz8WbmddrbrxEH5Sfzoz8wobIqxD9TsRGONem8x1+Z
aENP3+aFjRihw33+dDNx/N3D6oI5jfhrHyx9pJeJ15V/5YuFGjGR0S4ya4CJ
lJsdCe97G7B8ZbjukVEmxOeIxpx+24Ahe07UvVk0The1z44waEBvmcFux3U0
FobZThzf24ALAUkDb9VpfDvrtGrJ9gb8uBO2ZHI9jRbxqX9eqDfAl5sg4adJ
Q8JcUSZMpgFrjBmCrjtoRI5ZjC5pqIfy6aH6FiMa2oZNp7tP1WPj04QO5iUa
lsutSy+b16N3T9VPyoXGk7Fzp6YP1WOftPzlHFcaTvFj+jJ76vHmTRor2p3G
UQG570uU66HtyUrYd4OGcf4R456eOnw1bUxYEUzi0a0tUL5YB6ETE249KTQy
fmnaTdrVoU7Rys3lFY1VI6fu1JyqQ1XkSdXx1zT+iM1b42FSh0jbzWmCmTRW
H/n2K1ezDgl3fBaO5ZD77xs/+jZRC+Yy3gzXYhoPS/fFJvBr0ThYJt1UQkPB
VEzxTH8tLI+cL9Nh0JC83nW1ub0W0vE1e8ZpGu6D0m+yP9bisKnPVosKGp7u
ylhypxYGum8+vmqg4bwl6wXDpxbym6qs+hppiB0S8zzvXouXTwperGmmsSBo
Tki6fS20w+bKxrTSpB892L7KsBZPlzbH2HFpbBcyTSufUwtdKWPO3e80dh68
4nR8Vi2MNhz0ffmDRtfgqZfdM2phnqlVmd9HYz7Cncd/14DpXretc4DGhLDD
A+m6GlJHzlayQzSG1Ju6B6NqcK70kYHIBA2PiY7QkpAaOB/LoiX/0vg4V/xS
xH810AqadJw7ScN3WeWHje5k/XjS+nnTNNoo0cTjR2sQPbPo7m9BFoQFDmQc
kq2BrbvR5KrZLFi4hzuJSdYgP3HbxxniLFzUET75QZisn3/oZSNx5XNj9jJ+
NRwrHRlekiycG3wiWFddDa/6Fuv4OSyI3Rd6+jW4GlFNY272C1hQzwpz8r5T
jfm+wrz5C1mYu2z/pQU+1egRWmfzgVi6Q1F0l1M1JEoMns1cxMK3Fs+bNwyr
YaujPeEiz8KQmUar+N5qfOKETIoosEAtFrGL0KnG+dBJ6SjiIL+lc+JUq9Hy
LtImU5GFGU1iGUli1Xj+duProiUsDCe1hSoLVEMxK1Fp+1IWkkvqE2JHOShZ
tS46h1i3SdPmQTcHA/GdWbHLWFCrjZ4l2s6B+u46Q5nlLNQtUuFdr+NA1Ofw
oDfxsduJKpalHIzNuGZwaAULmqlPQz/nc/CppVUoh5gt/15jyxsOErwMiheu
ZGFbm+Wk+Auyfifz32ri/i/HumN8OFjeHBO+QoWFgOEL81SucmBZe0XiIjGH
e/zmKycOCvwFn+cS2+0qUM625KDobZPizlUsvMlef1zTjANjIb7wDeK0aU92
tiEHLSk2Ih+IExVibqbpcJCV3GqmvpqFhIFLhas3ctDHyX1hQ3woSmHbc1UO
hof9RcOJkxfFTixczsGuqcxbxcSvXSb+Bi3iYH9N7IIB4pNx6jsFZDjwtsyn
FqxhIT91K8NZjIOjt+29txEzAxWCuNNs6G+cZ2JF7LmnIdxolI0yo6XaPsTt
1fYd+QNsGJeMaT4hHtha66DSzca/bsK6OcTJ7gu0g9vY2HIo1baCeG7wev2R
Wjb8t5k95hKreC1/YlHOxuul5zt+E3/b3adBlbCxrPuQ5gxVFg5/uTdzWT4b
R6+4RksQO5mJKvpmscHM2SojS6z54phbRzIb3NBZkYuJE5m+Mtues7H0t8Ea
RWJm8c2ByCg2+AXnyhSIQyMtJH8Gs1HfQrsvIhbfLeG07w4bWzdzNs4j1mCE
z4nxZiM8t298FvH0kmH+zytsHNe9WTFJ4vMyUZPfc4ENwU9/UgaIE09svxV2
hg2Btfmhrf/7foeyGs+C5MdU3Y8mFhj7Kqdhykbt2nzvdGKNAE+96/rk96M/
+YYTi//+8bZkFxs3Aj8GuRGHbdhoJ76VDamvs5+ZESdpHwiOWMVG86V/GmYT
awnKiTQqsSHq1j7xhTy/S88LC+UWsJF821M5m7jXNmw4XJiNJbZrbx8iNlp8
61vsaBXaRCXeyxOvWhBsN7+7Cj1mXr94ZD9x5XN+/yyuwuuozLPniEuVOZPm
mVUwObn3uQrxdHt0EPWsCnIuom1csl99rHZq3vCsAlu50MSIuFRlsVHL+Sqk
R/oGziC2jonr22BehZuj84szlMnzj2JkNWhWoVbVQEWE+LDiyZaVK6uws/KD
yStSL4cPJdxxmluFy0Kx142Iz9C6DqMDlZjJMHkfROot/UfRyY7ESqTJVPXw
SP2GCF2O3f2wEmfGVJ65E5sdu9/0wr8SyatEMsWJY/MENhw/W4lAJ8euNaT+
FQ7XerxcXgkN4aO39JRY2GXKdh+UqURPhJ0YTfqJYbDmhc0zKuFxb0XXXuKl
hTrbCjsqUFuQHreF9J/UEa3LiU8qkHfz4SqBxSzItnmubQ4kTvY94UD62RmB
dS2zPCrQYKrTVSNH+tckY+kp8woo7NT4+YT0P4uanr09shXY3vGwXUqWhdXf
e3/a3i9HsoNVprM0C3LPSpbYe5Wj18OqN1OKhb4QEb1zjuVoPnD1wiDpv0fX
stwt9cvhrCZwzEaChfk62ldXiJSj79pw0qpZLKxkNjUoen3GTwvrSg3S758c
2Oc16PAZ56fG7+2dwcLULKXFhcc/Y+Uj/oMjAiy47xLVNtnyGaOMRWddpmiY
BbLmHhkqQ/LpFNWAcRrP74qsLj9XhkleA3PDbxqm2oopI2ZlCHA8Pyj0i8YS
vUPRinvKsHWXayNnkAbfWebzKcUyqOm6957up/F08W+rAs4nnBQVHznVQ0Mw
Y5MVa+snMPnxGoVtNMR/FL7ZKMrCPZeZDQJMGq6Kvov6yHtvtVR427lSGoOp
pwZiv9AQKewPqSDv+7VtV7um39HIqQmaCKJovA4RmRXmSKNdZU9VZx6Ndzrx
ylIcJmT7mrt/knlD4sW37KMPGVjxa3aAXxCNl4aD8/v9GIisO6UXd5fG4c1q
5j4uDFRohUtQ/9EYKDe4//ggA0pzwjL7/Wgo/pmXmirEgOHNAaNVXjROmrHT
tlwsxVc/USfxCzQcFf+0T+4hc7+QfHqYPo1nZSyGxj8l2Ljvd7DJfhq83MqQ
k0oleCjx0l5Kj8Rr4lWTNVaM8fzImV67aGwNOCuu9boYWjI5HM0tNDTGrXUT
ZYtx5S2tL6tM4v0xm7fpaxEOdgXjv79MMAUrak9zimB5wino9x8mBodzy4IL
iyC8/8cXczI/nrgkVtQeVQSDnLanS34zEf02jH3sYBEMfZyt73xjQl8oca6H
AwWdfe8e0iRPzfiZFSr2AeXsfg/Rl0zc+Z7SU7s+D+eaxAvOg4nTW4TX24jk
YePlbd5lOkwE/Z53sYec+840j8WobGGiN/VIbYd/LixevRqqWc/E4w32Otdb
c+D+VPmb4HImJoKLPSz930Lhvb9dJpn3Y+7qMdpqs8g8Y/bQsJQBlymV0bvv
UiDJTpg012ag/tzjBVqd/rDXy/hXfU4p5uU9YfG+Pac2nfz5Uju4GMn6cnLi
k9lUOnOk2Km2CLc+mi50PFhELdettagc+YCIP6lZF9lM6mhKqczRC++QcSqb
x1pYQVEF4mczyfnXabrO6EMuh+LPcdArlkwHt8Xsyv09dRT7diql8f4FjOYG
/fM5tZESOvrF2fzaf7ioWuTc6t5KjX1+tv9D5AOqd0LqS7L0F6r468ho/49E
akpYsL+pi0tJ3Jn6481/Q83h33zg+KuT0n0U8ClH/wM1z+K8blV3FxUeujKy
wqSE4kcF+cyc30M1/7FX3ljEop4VnalR0v1OmRzdqOR1uZJy7zG5NM+yj3Is
aGHwJaup27Yqf7+mD1DWVkbKX43qKLnfg9Jirj+pwFP9nZoBjdSB+Kte90J+
UYLLV6st6WihxDef9/j7+TeVviF+U0tGB6VmVlGTODZE7VLUOLv+HZdyO2q9
mz85RF04EEx/+silEtQ+q+4S4lNNq/Ulz5ZxqQyzpfatknwq9oXXnuctXMon
nB0tt4JPpXx/bLV+ikuNlO9vSjzIpzbNTfFM3sOjDNdEZS+L41OBP/jXxNg8
ak1St6VXEp8iB9/o9kYe1Ts+27fpNZ9SFD6ZkMPlUXIKdZvC8vhUTFaYm+MQ
j1p38KKJRCWfOtTCER1c0EmtP59/VvYPn1r5PHye8clOymyV3Sv3KT5VL6Jd
v9euk7LM63FsFRqmUtMs/XQudVJKRy5YxEsNUwK2FXHqNzupIzc8B7atHKam
WyT5axM6qWet9UIv1wxTPvlnFq5P76QqJETDxDWGqdglEau08jqp+p4epdat
ZP2C9dL7yzqpzPDH8roYppqv/+o2remkXOYvD03bO0xFCGu/sm7tpBae87kp
pz9MeSpoWjl3dVIxwVl9N42GqRZVKYFbA53U/wGVyt8l
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#6"]& ], 
    TagBox[
     {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwt13c41e//B3Aq1UdTJakI6SNU0rY+T8qIipKVFmWUokIhK7TtJCOjQqFs
kqi3lezz5hx7j3MyS0VW+N3f6/qdf871uLjv67rH63m/juiFa7rm87i4uG5x
c3H977tKwd0i6gUHXP//GR+o/BVJ7Gbe2cPduws3J7JCIoh/77U6wN17EIfN
5PXDiVc1j0twGRzFtR3G0iHEpQ6Bj2d7dDFgwL8+iNg2Rj5xOsIQOW1XRP2I
DxkpCo3rn0Fr4VmVh8Ty1LC64wMT6C0cdPIg3uS+g/m75wJE4ldXOBF/7/Bc
bKNsDuX4hj03iEv0l+VxIiyRuXB/tiXxF72RwrOTl+FaJKt7lpjnhPavWv2r
CG//yqNL/Oaz5ib1dBssMZqsUSPueejpf/rBdfSb78iUInaIeDVW2mMLwynZ
8g3E4bcXpc3w2UNwmJ5YQpy9m49LVvkmwoY7o/ujORDYZDQ/KMIBRtMn1jUQ
O33J9ikod8QVy3MJRcTLZbj1vk84wddYkz+ceOWeZ+oH9V0Q0SUx4kUcdmiB
xmUvV3B9fdlzlTho9oWMX5obit9ZrlEkvp9Sl9Z3/w7QqxDJiOKgic/OXajH
EyNnxxTTibeO6ttL3PbC2F6tsSBiizXBi3by3cUMV0mKHnGjp1a7Iu5hbt7C
oxWRHBireomoPn+AE9fCU18TLzok16qy6yEm5cq3exB3WAZ0KpU9hOrA9I3d
xHtCVUN3jj9C1fs3or4RHCjkZ4XM6fqgkF/giCnxeiGLq9/7fcDLFPXdQ2zy
8O/ulju+CLv0z+nG5+R8Z2euJyf7IWFORJifeJWWmILQvQA8bbuhcjGM/P+3
zNfXOp9g8anYeeLEfXscH0nvCsJQfldGTygHbclna9leQeAxcOWcJw5ar+ys
L/EUjsH7fY6EcJBoK2clYhMMs8sfmn48JeuXzSg6Nx2C5rdhz6OJy1L162aO
hiK/+d4xbeLwf9s7wqNC0Tbj5hEfxMG8vhPF1SphMDo1Knn8CQeWF58vEXoY
Dj3zQZer/hx4HL4SfmxNJCptnLGEOCFMclGZeSQyzNb+ivfj4L+3gXMq2ZFg
8VtLdPmS85i30nGbcRQMfSNrVX04uCsSUdodHY0LNbzSTQ85eBl80sGS/yUC
ktb27vUg9/vqukL56BikLS+7kHuHg8LGyLvrv8RA4c/5URBvwc76iYEYPDZS
OK7uzoG44bkNaftisdwqfkDDlYMctZWdK6pj8T7/dKKwE6mPRJ1er79xuKso
ob/+Ogc35pua7TKKx0crq52e1zgQk5Z+3e4aD+NNT4T7bThQVuQXfhQTj5oN
/rszrcl8jtJxjd/jkWgKZVzhwHQooND0XgKmRJx6t1pwIHO0uEIwPRGCNieM
tE5zkHT6Z8wy3iQI/dLYHGrMwWcfByNqRxKaZo142ac4uNTjPGdzMgnO6eXb
XIw4YAXeW18akQQTz6HCaH0OJNlaCqYyycgoltyTp0Pq4c/Stm16KXBmPpbS
OsRBStzN10uqU3HPptbR+SAH13h3bVLpTIXGkz09b1U4kC3SsLz5KxWjdoeX
8ipz0Ox40KR5bRpGopNTchU5aB2uoIPPp+FGuL3C6F4OFn7l3K8ZSUOw4DeL
jxIcnHKa2nhyVQYOj65B7r/k/EUs/L5tyYCA87oluVs4ONnyzfK2XAYW+b5w
y97MQcQ+t6PPTTKwqzCTGbOJgzkJ6aSy5Ayk3hjeqyXAwT5haYMGrUycYEc3
V/Fw8DdsKCjRIwtbNv0Tl9rBhnILJcHsz8Ze91vTXu1saHn8Sk+azoZAiO4l
gzY2glZVut5f9gG63w3uTTSzIda7oGqX7AfEyAdUytazYUV5Sd9y/IAUrS/+
jpVsiMtZfXi9MAeXD8v1G3xgo/yok3+c6Edc+3i4z8CXjcDA0E3VJ/KgfUMh
v8abjbrZaslXZnkIzW67d+QxG0IN+yg7hzxY/9rZrPCAzK+cendFZB7Wi656
s8KDjVCFTk3JvjzcvUDVeNmz0c/9Ta7X9ROe3fxiFWXMxjoF0WdX3nzGu1b3
txGb2Xjf3Z8l45QPJcd6rRZRNryfxowIeuaTOi7pWifChtudeV/needDddju
T8BGNpacsDpER+TjQzJ3rj0/Gz9aJy8a5+djt+pAKu8iNrZ3NfpILSqAfc4P
nev9vaiOCy3KDCqARFWFsdjbXhy3lRk7GF+IsQT2tRbpXlw8YMluDC/GuHKi
cGhgD74Ec80ZPC/BRuGpAN1f3Vj+9dwbmzOlEHFtSuzS6Mas1Jl9t/6U4euM
Ska7aje8xTPozTNlWCH5M7VZpRu2Nuo8jPnl8HTf7MNQ6MZv6Ro5Yb5yTEo3
FryT6YZKs0pOtHQ5pLw8pPYKdMP6Uq/hDpNy+EixRlzZXThpXaNu/7UcF846
nfjh1oUd28zu2PtVQEd6aUGXcxf2e7bfW/+0AhsXWRxmOnYhT6xe/XNYBQz6
bKIybLuQkeM9MRtbAc0TdZaXLbrwxGXvYvPcCuz5NHot4VgXFJWTVIq+VYB/
xlXfeUMX/q5wtSj6rxKLhD7etMjsxBHDdYXv2JUwH5492pjaCYV5D3kkByvB
5XlptWZSJ6r2b7/6aqQSQ+MJ1hKvO9HNmxjtM12J2LUcw4aQTkiVXX7wH18V
/DYdmr/AuRPDl9hhAopV0DgfkBWg3Am9I4Nlof5ViN72Y+WPgA6IHxXTebO9
GhFLEoRtHnWAVgq/obOrGuw+W+FBjw7kKPyOGN1XDbOofaPtth1wvvHPkn3K
1ZgddZ1I0uuA/qnlO4J1q5F/fKlZv0AHZKn3TUW3qmFSKPG1LqIdk/9YCrbl
VWPZla61q4Pbcb/i/hfxgmosXPXWSNu3HeKHAkwuf6lGr7FN+mfXdlRdFjXp
r6qGcmPm5/vn2nFZ8q5NcXs1PD1U5DM3tePp2oerOHPVEPc79enuizaIMmzK
asDAgb93U3nD2jAgvy/X9hCD1KVys19gG4yFogZXajAgesC8JtCzDSkaSTxq
2gz4W1zR9jRrw3Kl00t9zjDw5bil17KtbbDgvk8/dWTgqbFQU2VSKzReh4X6
JDPgV6MUJfi6Fc9eTwiw0hhgjAyHmUW14rtkX/66LAa2bp3ZM+bXCuTW+4Tl
MrD9dsMk13UyfvXdKcdSBgLfOn8ulG1F7I+UsOQuBj4d8tz9I6MFKQ++bZlY
TCPwevQ6w7ctWNZjeMmXl8bv1qievFctSDfg/y2ylMY1e1Vpz8AW9PqWdRxc
QUMiSsrjt00LTKz1eW35abxtvaBxQ7IFHi5Daq6iNIZ5vJSaIpqRLhdroXqA
RqV4X/tMUDNMeO26X8rRUPSSsRDxbkaX9KawGXkaVbNm/553asblS6ZZKUo0
UkasrIv0m7FysiJy9iCNe1Q3v8TyZrgskKbVj9G49Y8nbezaBCGxyHJXExru
S/jKG+ybMNX+8IqfKQ3pjtrvulebcLOI+1bkBRqXpr/nHDrdhBxTpZL3ZmT8
okcGK+SaUPLwqFb9JRqN1qoJ2qON4JHWeVp6ncbMIy6D5MFGZNmtiaNu0Chw
+LF9aU8jus6OCGbZ0pAtNT9fWNMI4Zt+O57b03ilmFm6LqURLqqsyZOONGi7
xkzry42oXrmk0sGdxrLEgjWpJo0Q91IZ07tD9ietLXrEsBG1K9e57vSg4bcv
ef9V9UYktWq86fakcXF1mvWxzY2IrhA7s/s+DeMN//3Obm1AYKrW9D0fGqlX
9Ba2MRtwbuAR+7AvjTe+kapcFQ04n/NrK68fDVf10oMqOQ1wutmT88CfRo63
u1pScAM0ptOmbJ7QcDK7abZduwFm3x68HQ4hf19xasdN1Qa4+BjOxITSOO5T
VfNRvgEj65WMjMJouExeioNEA1pEfSVyw2k0xVx2l+FqQKaggMjlSLL+A09m
36TVQyb/roDFK3K+k56mVW/qcfjck5K/xNu8F0SNRNbjdWShQ2AM2Y/NH2N2
Pq6H1I7q9sxYGiyxH13PLtRjZ6NlRs9rGtYX7kj+XVWPFecN+bsSaZgecNsy
t7geLHubdMO3NN51LJ2em61DaU+mViXxwVetu6YH6qA4vepKyjsaN8bV6hoK
6yCmO3DubDKNVUblkWUf6qBsp1tWRMz7mGRLch08NK9Lb02hMWWat/JJeB2s
D62sGyBu6wJb0rYOJcnZaYZpNKSqtG7zXqpDz8eYqiTimkecvr6zdRBqrGjj
TqexwYHWjdasQ6Pd6qYY4s9vhLUdUAfDR3pFP4lzE2bEju2tw1DbmhdKGTTS
RW1O/RKpg7atgQyDOClk7mPB2jqs15zsXJNJY65d9I/f0jqM+ZzzMiKO7Vo3
KTbBQv2jjNAm4pH3tKwsgwWB8LOThVk0KpaN7970hYWQVKbsOHFzzuPNS3JZ
EO3+aCX5nkYw31R562sW8qP3tz4gVv5U51kYwYJv6tTqTGKRz8JbXz9hgcl+
pNVO7ERNyFu6saDw1TJ9WzaNUepRvKo9C2smerqPE7/kfzhfxIqFBoMHK+2I
7+b/PjJ5noX2uD75IOLw/EoPWp+F+2+iTNOIe/lXx8UdYUFaWPluFfGF/JIs
RxUWJCsvvvpGzJ//LUNzPwutdi9y54in19yKXredhagGHwb/BxprqBuObDEW
qnKoNkniC5+b/0tdx0JJK4OtQNyzKu2X43IWuubpfTtCHJY3GoQFLLh97+46
ReyRGye2YIqJcdPVdebE0SuKo0p+MBG/ySX/GvHIB53FD9hMDPdnxDgQ38w+
fF6thYnNXifcXIl3LEmJ4a5hIi5pUMeDeEOmZ11uCRPV0oLrvIgV0otG7fKY
mKau13sSB/DYckulM/Fo26PHd4gFk32n294wUbt7crcLcd3btT3+kUzsDjWs
vUlcPLv0A4KYWLxRwdyauP/19dvDD5l45yE/dIH4YKyKVJgbE67eQxYGxFV/
3L8etGeCNf2NpUHsGyWtO3CZiRXBRXv3/2+9z1XL/c8z8Vhw7SNx4oThcpnd
+ky8OHKregXxguDPniwtJpKHb/NMkv026BkeWbmPCSHvSvUvxDqPJZe+k2ZC
bonG8Xhip/u1a9REmfi4oEDzEfEVt6vfry9lwsx6+RI1YtnbZ6n585g4aLqi
dhPxtopc16fjtZhosHowQe7T56v5hSndtTAy9MmNIdb7ZKEp31iLj73ucreI
hS/e/lRYVYuLs1tj1Ym1k/utqz6Q8R1/lLrIfc48qZaok1yLyG2aV98SH9Ne
zmLE1GJ8+bt7dsRCh/p+lPnVQjlq1mGG1MdJpcmuQ3drwWFsOE4R5/k4FOQ6
1SL1RSyfO7G0dN7hOLNaSEvq6UyQ+nO0MHc8L1+L9wLxCTWkXrMWiJW47axF
U1ul0EPiNOsN6hH/1qJPouWTIvHP6OLWmlW18HY7d+cFyQOveyNmEoM1WJ31
hkc3ldSjU5Dqga4aVAjmMyZJnrAO2BloNNRg6NraomhiaYH+lSZFNdgiISHO
IXnUr5fc6fy8Bs+V75ScSSL5Gb1f1y2wBsUpMjVjJM+OZ86MuT0gnYbrjXm+
xJ/+U2bdtquBjrVBQxbJv3hW1OCZIzXYIHhM5WcCDWpB4b3yKZKbkZIVy0me
bp0W2JA6QmPM7Ofax3FkvrzE7iAODXOLUa/5xANR9xcb1JJ7dMwgf4Tkswxb
IKWYzHNgm2xO5kuSjzdfWB4xonFV3N2kO4LG7XVFImu0ybp+D4WAOO+e2NKW
QyTXG/8bDH9OwzM/xOmiDI1EfrneI+S9EMk+nXJuIekDenesDSHvzf4TQUtn
LElfVHlapjaQ9B8tY0dCTjBwV6HjJRfxhE7ese0KDLw34qrbFkDy+I996NHl
DHRzX3J2I+/bYqVgLaPMasSwevIWetPgfhsoGjtXheOvD2UkepH3b9nt8GVB
lQjU1rdTsiP13XjqXxGXSiz29f93M3m/Lfwi7XeYV2IsptxnIXnf7bOPG/23
vxL38/2vl9jQmOW2UJRuqQDL6eojKSuyDsejDnJiFXgl8O9LL9Jv3B9a/EEi
qQxqekdsbh2hEfIqaZlKSBk28IVfkdQi+T3zJ9XAowwOOtGnmw+T/iHWofOW
fhlYJVar9qmT+kjf2fN4phSOzSdrWMo0Hld6OHAfK8X2S53qKXtpWM5Ft2zt
L8GHjBuxdUI06s83sStqS5DJqDuqvpHGU/NspSt5JYgWam3NXE+Dz9S0Psq/
BFpfrqZ7C9D4JmD9tmlvCQzdhiRF+Ei+3rvYG+nxBUutGv72zCf7fbYy0GRt
MV65ML0TGAw47xpcx8VVDOEpeZq/kgGVoy6rIvqLkD2uP+FK+scr2mNnyvKK
kK/H+1OlgAEx34M6kxeK8C5fwjY0nQGRUc2E5ORCPMtYLur+lIFzl5buvnao
AKtjDV/s0GcgmknJ+xfnweil1POfZdV4dcHFds2TPDz0HuIaLq5GdLX2scDz
eTC4uOB8D1WNZKW9QzemcvGA2clVkEX6c4fFjGqZXJxymSzCy2o0nyndOh6a
gxqRlb5aDtWo6kvaNs/8PRSVFhj4b6rGHj6RoXmlKajgebrxjUkViiJSWPR+
b1xQrBiZV1yB1rXt/juPxFH5L9a2qKWUQffcXp2EsQ+UjHHAA2etr8jdlaGw
8mIRdaxecGtzbjHcnt37x1W0gjIoyHkoHVqAU8V66beP1lA7XBNvzpLfvx/V
f/P84Kujavmk/na4ZEH5a5HwXc0mKtjOoeXDQAKUY6esywzaKHag5zeDHwGY
3qMRPD3cSTnPeqdfMAylojUSI6IEe6gvg5yPzr6p1EbhWxJfDrOp0ohX79Mj
c6lT9rXrL2V/owpM0lK+qBZTPHz7beKXDFAbLw7NDH8qp25bZhkcfTVEifoZ
m5wVqaF+Cka+8Ff6QQVEj7qLrKqjePIkpW61jVD74Td47m8jNa35zE8cv6gk
Rc89t9zaKBFvG92pgN+Un2y2z/GpTmrp3gUb9XtGqUwRifIdmj0U9y23Ilvj
P1SbRbpo7jCbujb99BV3/jhlpxLiu+JBH3X8Z/J77ZJxqtVuxao/T/ooW753
pyMqx6lFrba7O6L6SAutYyTXNE5phQwey3nfR1lqKm28/Wucqv+0r8+H00dt
lkitXrtlgkoeKuKkqfdTDYFjbXmPJyjVDvnU0cUD1HOG/fKNgRNUmIerugz/
ABWxv4HhHDJBRb/Z7nFVdIA6e1+NRyl2gvIsLen9LjdAMYVL5Us+TVBMU5sr
q68MUP4K5vTvkQnq+prNb1uqBigVIYEVZ8YnKLVnFrHKzQPULsl37cUzE9SX
wka1eA4ZT7nvDOWdpALN5Tzd5waof/oqo9TEJym3etdvx2QHqcwNoWbpUpPU
WFrp1lKlQSrKST13k+wkFVYhtkZNa5CSyTy64a/SJCU6f6xf/eIgVR8QK35F
dZLqVWOzKq4NUnkhHZ+btcj8K+usTroMUl2lM/1aJ8j4m1zv2h4OUgfF5+Jy
DScp0wcxoVbBg9T/AbiRJZk=
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#7"]& ], 
    TagBox[
     {RGBColor[1, 0.75, 0], AbsoluteThickness[1.6], Opacity[1.], FaceForm[
      Opacity[0.3]], LineBox[CompressedData["
1:eJwt1nc41e0fB3A8FYoQycxIqBRNKXprkIwimSkaCi2hKA0eiuIxikqytYQi
WaWv7P2Ic77Hyl7nFGWFQr/7ua7f+edcr+u+vvf9HZ+lcPzCQUceLi6uy9xc
XP/9pzXaRsUNcsD1/1+zX4nQf9aV3rw+SmkbbCO43WOID/39dfcjJUNsmL+k
+DHxg8RDCy9Gm8OBnvjzgDh+eWlIhJIt+njTVt0jdtpkJtNq6YBPUZq6wcTW
LUkVLtEnMBoUufsWcZ8Un8h0xyl4t5dtvE7cGLom/5aSC2zCq4U9iAca3gcK
O59DaHJSizPx2I638TWWrpCSOBB+lNg48ixDaPoiZr7WbjpIfDSv85NZtDs2
y8uX7iEW9DpldE/nEoqz9HZtIdaOPWT+ueMyeucW/iX+3/0eKj1tqHQVl7NS
9OcRR92Y2Opf5g37KlnPkQEOYnazRT44XcfGZTdiK4iVnLdn3rP0gdz+M5GZ
xM1S9mavVHxxvG/Nlej/vHFJXtGULzibVHhdiL02M54NPfaD+tCxjAPE0xwt
Ie6z/qie72qwifhuQts8UZ1b4LVeoPOrn5z/6rbdho7bCPKR1r1C3HhabfmR
FXfht33E1JJY1VbL7MT4XTRaPt6/gVjEt/3x6dIgXEo/JTzQx4H7grgtLqf/
QXnXQNpu4h4Ru6kUizC4x1mvlCB+Mpn4ZOXHMHgWPLnztZeDU+E9wnHK4fCR
ipMIJV6c/sIoZDIccdbBppU9HLSvTNx2JOo+/kg8WhdJbKIvHlrLHYF3Wp7T
9sRhWeu9tF0isPLJa4vRbg68977jLN0eCdE+PtWFxAJd+32z2x5AMeDIpgWd
HMRlVUw+l3sMB2rlXH4HB8omNwtKwh7jmri//3lic545ow7uaJgo/FX+uZ2D
ydLAGMHeaFi9XLjizhcOqEr9hftfxIDfD5rvWziYT811r34UD+WXzlWHif0V
t1g8rY+H/PAqqd/NHPBEb3dYzp+AN4yz3zcTPzWuXitwNQFbxWZcn7A42Lwj
R5E+nIhuO916NQZ5Xzn/mMnJJaPdtUYtr5EDq5hPkr5WychNGtbbQ+wZu1a9
KzQZC05NpFk2kHi7VLHuCddT8B8RsDhbz4Efd/HMTNdTpIk5/LGt4eDWj4cZ
jsnP4ZISW6JXzEGgmNK5TJVXYA8FLs0q4sDlyri3jN0rLBq9aqxAHLRqbbB/
2CtoaV8+O1XIwdKDlxL2T7/CjqZKj6iPHJSJZG6sqkrF93V9z57lcfA153TU
4XPpGLD8FjaUzsFnn0U41fQGjel1iVuJU7ZtSfIcfYOT5bmP/04j8ZMVXBUg
kIEL25K1RVNJPjYvOpysm4F1qk0GKi852Hff26TuRQbMFLP+lkoi3/e3Y2WP
VybUw7WvrX3AwdD+sOe8ElnoHbYPtYnk4J3bl9Qz67PgveXmff8IDkpm7+jX
GWbB1C/jPOseBw0tn9RDr2chXLTP1TWUg4gXP5796c6C2+LA5AuB5HnNXO5F
pb1D3rmCisQrHOjXV6cn78xBOu/R36leHAipGhewbHNwO+jX8mxPDmRcNZT5
PXLQaqqiVXqJA4njfX9OPcuBbMOBPPoiBzdK98QvXpQLntdtg2XOpH4YTM8t
YuTCpKFvXps1B1pamrcyT+bjqozUg1QrUr/ENxpW38zH0ZFTg96WHCzpSWnp
epwPg+2G9eKHOPAZqz3E9zkfKQc003QOcMAfJXdum857JFx9FX1Aj1y/tl1l
/dIPsG/+beivwcHBDRsirYsLsCxfe0zjLxLfqTv7FgQX4tnOK6equTkYHLrp
e+xRIYI1xopPcnGgFus7kJ9cCIc9cToRs2ww8wUEXQoKIb+naU3/JBufp74n
5Q0Xgju5dsziGxv1qofXyZp9gmFf6XpHBhsRJ/YpfBcrwvi5b467EtgojEpr
vfOoGHZ1hk/c49holaqUDn9ajOvlF4OTYthIc6988SCzGN/8JB//iWLDP+h1
8pOaYnisrHd5cY8NnAvnieAqgeailq4PfmycKU41VHcqwT/HHJRHTrKhs9gg
VWhLKVy0NPkDVrDxNn/3u001ZahnLkx0VWCTeI+RDmoqw5DJRS4bOTZO+NdF
dPSW4eDnn4LK0mykXlrz/u/ZMhQp9Z7JWMLGSUOF3Ix15dg6t3fjP9xs1Eqf
uJQRVg4f700/rNsHccfGTVjDvAI+cfGKOyMGMSVhdZzzuRIPLHWN+2YGkBBZ
X8n2q0Gqg/bIRb0B7K1PUVTd9y/uXxT+yB/Yj7zvL30PtdajIFBfw6agD8HN
FeaCk58xVXTIpiSvDykxiUapvz/DxWqD3rrsPvxqr3y8j6sB4yGHHefS+yAb
+E77Jn8DkraeKg+N74OIzugNWroBzpftlnj69eH25YBrm3QbEBpdU2xl0IfN
+82tUwIaYBb8PuJYXS82lXJ7HBFpxJqLKSsKq3ox2TLIp7+0EXzbXGNly3uR
vEBeYK1kI2o9fayYVC/KbiQc/infiOtJb1maGb24v6hP5LIG8fuTwpX3e6F1
XMh91YFGTA2NHJex7oXa4ckSu6BG0Ha5wbe/9MBcc29o61wj7hc/XGfc3AN3
GxU852GgNeJ3kDCzB3PhU2OuCxgQ8jS9ElnTA70Hi13mBBnkftSXh73vgZX0
GU9uWQZ08wvDDKJ6wB85Gf58GwNU0kbJMvMeqG7kxF7wYGBOyiZnrKQbsjci
22q7GNBZUeh3vbAbyk7txQv6GND4eG7Zgg/dcDbsjNEZZEAr9UmE6NtuhPLU
qzwdZqDUaV+/XEI3pEOe+R3+zQDjRHv/7LVuKHi5fDkpxkTxsZ92/27shlG5
/Jr+PUw8K1RfskG9GwzeheZte5nQznwdcn91NwwfZR2uN2QiyMTvy0GFbvx4
u1gw05SJ5JNXGooWd2NEcXnnYTsmasQSJJ3YXUjW6600cGdi+Fq7TEVMFzbX
dhb4xTFBZ/P8ZRnVhavRAQELEpmQMlBt7o7ogu5eCeeAZCZyXT0tpoO6kMNS
cvN7yYR+y8oQyatdEMfq0JNvmcheXPxH2bILHJ2ukKoyJtpm5nouCXbBOr3J
Q/EbE6aK+6u6+Lqg1s6wOT3MhFxcbLzxvC5kDqsYpPxgghm7W1budyc2H+TC
6gkm7mXHWOYMdoJzKy9wyRwTDnvvVWYVd+JotoGyvxCNPcPX3vR4daJ5KNNm
UIOGkFL5zXL3TsgUn1kvuZGGgJSUUMr5TqSnJb3Yu5lGrH7LuTMnO5GRo+Me
o0VDMrF4TceBTsgfZDqp7aLhdnzby7vKnQjRdDJnHaRhKuJq0fO0A5uuVYod
caPhfGfTT9voDhQlr/mg60FjwHfhsvqwDnje9fihcJmcP85pyvTugOnfp2fb
rtAQ/HL9iK1ZBx7RwY82+9Ko+/TVef1MO66+SDFzDaVxgh4I/XOgHYIvOwp4
U2gwq6fRqdeOjf/M8Pm+otGnFVT0cXs7Vro/UZhKpcG4qYZLKu2gnXzzOl7T
GMl0Eq+Y+wKjX8mXI97RkM0u156fRpx69cP9Qhramz+LFSd+wcUR0efsTzTG
1GypG4++YF5VvJVOMY2NtzlB3/2+oMkmg6+9lMaPjnl/5dh+gdyYW8y8ahqO
GvLOX3i/oJUnXqWfQWONloKz12wbFhV/3CpB0/gnP2G7yFgb9r3YyWfAIuer
KFhrt7fBekFYZ3wzjWvPJS94ZbXhgZCYs2Y7jS16I2KBDm1wNOm6MNlPI5nF
1uaybENKYsi6+YM00rqPaV42akNsunCyMJtG+PH6pMNb2jC9+HWG/FcakfzP
bQUE2mD7Q9Jw5Xca98a36c7PacU/avXzC3/SmPK6p3v5VSvk7VdZfpikQTlZ
ZPbGtaIy8tbwuykaZ+/KcvICW8Hx7BiP/0XDhM5O0bNtRcPX3Xst52gohwm6
ds+0oMhD+ZrOfBbuVUkHrB5pwdzq4HmLF7Dg4Bop5NrXgtIAy+pWYtm5Ko+x
2haExGSIXOBjQUYRYa2xLXAST3X1WMSCRrDRovW6LaiQ4x+ZFmYh+Zqwlumm
Fqj7Ri6LFWHBu0m36axqCx6tGXTDEhb0G3pcYoVbIFziVXpFlAXHug1d3Z3N
+NpxsbJmKQttkuaPhxjNyHM8fMtWnIXs+vaSiYpmlMzXvthHfNdn6/m5N83Q
nL1Kjy4j64PjIiM+zWA9lSr7KsnC+lBXywEPsl/zwI/jUiwIJ1gJtDo1w3u6
TZ9F/HWBU02+aTNSTrAu5kizMGAbTj/b04yH3S/0VsiwYCClfDBsazNi3m3b
FUys3Boec1i+GeGFmm8tZFl41uZ0TkesGf+qXVDOJg7Y9ypdho/cn8UfSnQ5
Cy6ObrcavzfBVb/oRBnxu6f8/opUE1bcnLXjl2ehYXSMUn3bhMgTHxLMiEc3
D/qrPW+C8nSA4kNi7djhl2qhTfBOnmNKKpD3U8y1cJVfE+Jdb/NaEd9rlxlT
9GxCli3DLZx44qebg5B9ExwnvMdnidXGU3u5zZvgbJfJr6HIwsmBHyMj+uT8
/U6W9sQJ9TsCO7Y1oWSlQEsQcdfrB8+r1jXBZ4dAxDtipVtTB94qNuHuGO3X
RuxietI3SrwJIvEtL7hWkOcRadl+fWETjONu8SgSc1fa3Dw6x4KTsX6YLrHp
5R4jnVEWYniCzOyIkyU9EyT7WZCSLdK7RDydKeYz1syC6KTN2SBi810fBqpq
Wcj9WlgSS5xefq4p7hMLOpaO+18TC+1eddDtHQus8Hd8BcRuWcOHdr1kIWta
bqycuEn6Y6dQDAuL2EsE64l3Xnk40RLGAv/7GQvmf/vVXL2f5M9Cf5VRLYtY
Vtwp39mLhX/dz7v951ALe5e1Z1n4Ldy4h0HMG+SQNGzPwpPZgd11xDezzzim
mbPQGSF9oZT4N8vnjfNeFubWt5XmEXt/j/NfsZ0FFY1He18Rz81UdLWsI/ty
CsaiiP24ZspDyXs88eF95S1iwV9bNXeROG7l4qo8TxzFvqk+ys/CKtHpH4eI
V/1b/yZultSV/Ut3biV+n7LmveEIjUWLi3MliDm7/7hENdGIvh0s85nsG8Dt
JaxTQ2PeT3/el8TK737taKdoXLSsWHaD+MKcrKbkcxrSVuyncsTiER+53j4m
dSMtSfEbiZdiOWdzwxAaGsePF70jVpZsu3/xEo3dZs+cdInbbif7cjvTMNzF
d56bOJJzeSrEjkb/rEoEReJVOELLN3E3jdc7bXU3/hffzavuq2rS2OGzr3RQ
joWHS5XWpa6mof7ztVM0sdqFLX9eidD4NR7NN0XyYyZ4/2bV+TS2bZr7K5G4
Nt51PGGK9PVl4dL7iK+nNAiGdDBBafLEhJB849ZfnGaQxsQTekXzT5K/D4X0
A+8kMHH0+FKRcGIpHbsdFZFMPLLU/qRKPFm8YjtuMKHsZRZoSvJ/ykfOU/QA
E24xL5N9JVhY4mK4avduJgpdrMJ5iWVyzLNdNZnojQscvUvqC8917mOlckzY
7HwifJd8N7HcyqlDPxjIPBqV7izGwtvCAV/3XgZOO7lvaCX1bOfa3r7QJgaM
m5erGBJrbPDaUVTIgPUP4WPypP5ZfBXYIBjOgNKI28J0IRZypNiK2usZeLwm
u9pkIYs8x5DN1pUMpMRuXfmAxMWoYP2ZDZIMJHqqDraS+jsWpiEvz83AuK3n
C3teUi/0j1Z31Teitbd7vsE8FgbPnV0zd6ERWWNeNdEkjh6NWwo3nWhEwPsT
t/JnaGztkKt/bdWInwNW8fRvGkadxp3WaITteb9fC0i/yAkX3R2+uBGj66Y2
GJB+8yLDfEl0agOOnOs0Nh6mUWsoWrwvrgG/Qg8brx6ioffHdHgivAGXJELV
53+joZSvn6Xv2YBi/5LYDNLfEj2l5yp3NoDr+zehvl4aqSIud6zoz2hdY5H3
roXGz0/RN0Jm68GyCOb/Rfq1cunym9++16PzrJidexG5vkfu197uenzSvHGT
Tfp9uNsT+8myetQuebKlpoDG5qYbg5ph9TDguWVxJofGraLBESjWI3xQrUGI
zBuvlRPLWIF1OND15flQMA1eCSnDmvN1EDR5WCMfRNanVZw+HKqDye0jUmZ3
aDT/M98jVL4OE/kr1V/eopE7XV7FlVsLx/htGpo3aAR3OHsI99cgalJhZdV5
0q97FHJ7dlTDMHv3zQoTGpbtViFGStVI1hlmxRnROFK54k86fzUS7E0NPfaR
ddfrb5wYVVCoNb0qpkejknvrwefOVXj/iTW9Xpvk5YaqcLP7lVBPe7moaxUN
vtrj3LY95RA9my8n8BeNp4ccUgoqyiGk4Hj1HheZ54RyJWXTy8Gl+HVmKZkf
05dfNvrXqxy1ufmeYtNMhCWp/eZaXI47IiWa38k8+kffLyhKswxfVx+9Jt3C
xJ1x+kJcQAlMm58OG6UzocdZtndO6hNmeDaoj5kwofLijPWvmULYCsgYXyXz
9+rwQteR9kK0x80bntVnIrX3XHZ9YiEaFf0+/gITV8LpSPPVhUgqE/m7aj0T
L+YV7mO6fkTtpOWSIjLvD/g+4/2QkI/o0OD9giRPvE9cvvu2LxMsIe7hMXMG
nnmtvCOuHkbmgZBLZ7c04nHRzvGHB19Squzq3qrSz9gyYX4lIb2AYu7KHiqR
rUfQwkkdmcXllERWRu2DjBqEbgwZ+FehnuLtEw05YlOB2t7BhcfuMag7z9t+
7awthrhRg5Tv4mZqv/An8ZwPBbg2tnPCZkk7dVq2+tPQcAbUZg0qf1zsoh7u
VZfMvfAQGsX2NVyKvRSVxwmgWfGUjMGpraXZ/dTvpV0BRoPZlJxPhE3OATZ1
Kj4xmi1dTPFMREyobvpG9dtvWFQtUEPdLs36qjU9TIUlnl8l6ttA9UuvEo1b
MEJNSC5rCHvLomI29zAc7o9Ses69B2ZUv1AHBRlKhxePUzoKCyW4DLuoKleB
2vHMCUrJxt0kwqmXinan9mXvmaQSNUZPDt4YoD5GOU4uZU1RPK5Tb2PecKjb
VkayayN/UfGl/Mw+62FKO5nNd2LHDBUqnFvQOPWDqk9+b9alN0PdH9KuFuIe
oTblteg7mMxQZxxin5vwj1DHZbm2ONjNUHuMY2rrJEco+8YBFaerMxRLdllj
/7YRqnFite2j7BlqMMNm8Nz1ESpezGfqivospcVeYt/81yjVHjJeJag5S/2s
fvvogMAoNSiTvS9xxyx11uXEs3KxUcrRQ9641mSWMpSL3FGwcpSaFb53cs3Z
WWpoX92pj3tHqRdc7B7el2Q99We+RPAolZuzzvvZm1nqq/Ufg9SIUSry708f
9XJnKW3G67SdMaNUnnmd4e3yWSrDO/33xfRRKrbH/7JQ/yzFdyE9fbB+lJLQ
2uj6dmiWOurm+/Nu8yh1LHGduPXELNVZayCu3j1KWb8ROJ00b45SbrBtvzY2
SvFafBcxFJijDGKmbivPjFL+gnLOI6JzlPn89XwN88aouubos1HSc5Rn9Nrj
NwXHqK48R5ldK+ao9h/LIteJj1H/Azq5+3M=
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#8"]& ], 
    TagBox[
     {RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw11nk8VF/cB3AkUZI2rQiVUCpJqz6holKkhV+SpZKtqISkaCWkkiSpSCgk
kWzljiWRpbEzZuYau5gZKVmSntPzvJ755877de89y/ee7/ccJTtXsxNiIiIi
HqIiIv+u//frx///M7axPfL3rxDjYlvHR+T0oXnlxpk/xLFlModH5Mzw0s4F
o8TTVB+7uCtbIktcrniQeK1gZ+kvOTvYnLw6sZ9Yg9U2My3KHs8C3/7pJs7L
FStyVnaG++nYlBZiDN32V3npCt4Mi7kNxL5eOjf75M6iw/PrxnLihJsGIsX/
ucPviZQcg9igkSf5NMoDadckEtOIvRUnerrTXrioXvwrlthDJkZpp/JFNN8z
GrtPbGP+il5w4hKqs2/nXP3n5OkBfQm+uLH73wSFiIvpvlAodxV6GfydhsSF
P/21lq2/hge0bu+qf+NL2xIS9N91iHgstRAhfs5sYu+Juom5rXkqneNCpLW9
jU/+6I8SmfkvvxCf/RSQL0UHoO/V3OY7xBb/zY/IUwqCzdwPt9yIYz+WqMsZ
BMPFUPm7CfGPA1YfnI/fhlGXzrfJxN/8FgXKJtzB7P8NOOl/x1sjRblQ6MVs
HDUkvqOyW5AfH4qJde9V5YnfXobesXX3YXZ5KLlwTIjHNhrFMRZhEGl8ZCNK
LJ+WvXzq43B0mDg+rvgthJpVlfwLjYewC/gdEkF8+Ju604YPD6G4ySFandjc
6mHvUU4EUhL+fWAhONf/nglTfAzjxUanRIl1FjHl5VMfw8+2f2nBiBBSYl+q
Y7dGIUX+VhGIsXvFyiTbJ1B80vxSY1gI2RrL0OjYZzD73wVC5t9Ycy1k5nPc
HSl84ULMnti/u8b2OfKXdadNJzZqDQmSS30O0X3We8x/kvZFNc0jjGPxs0Ty
InNAiINb2xwCbrxA/CGjbG+hEBfnZHycNRQPVc9DW6SIV95z5+tuT0DUjVL9
cAF5fsHC5SfuJ+C4C7c0iU/Glz2W+3rlS5y0LWQW9QpB3Rg8vdThFdb1XMhP
6RKiOs3UMbUxCWPd9ZuXEDcGS3lmLk1GRn3EushOIUIap2l8cE/GRJ/dSb4d
QpjIc53zZF9jjsA5aH2bENbFZx/FGaVAwu2Rph2XjP/nBI8xy1TM7I0XeVAj
xL7RJ3X6X9Lw+fCM/K5qIUw1om/6C9Kw4pOG1gZiAbW//suMdEwLdFjayBRC
f4664R7LdCytlTKXqBQiM0x2sV5fOhIdextVSoTwufzao3VqBkQj1a2P5QqR
kujCHTbJBN/64NrgHCGucVJ1pd0zEbxI80N6Nlm/ty93ykdkgnOvp3k8U4if
DtMnb27JRJ12wLEb74SwVQ7de8wtC/N8jt/f/1qIP/u7vSzvZmNg2qPzP58I
cclkRRpdmQvDExmuw1FCVEaHqEwYyEWh603V34+FuJeZ8WTx7A/QfLGDOfZI
CNp9z3Nbyw+oCYTE9wdCPP3mEl/Y9QGHTGaKP7lN4v0822GJSB4MM/QNJ/gI
ER07ppIwh4FTbwaHuN5kvYmo/ZZTYyD3qJV99gUh9HQfpdzYyEApe5ePk6cQ
J7z04qytGEg/9DT441khvjMfpEyMZaBQTxWqjkKs/u0+d55mPsp+MnolDwrR
+27b1QMGBdjBuD8zer8QGRvq3WYdKsBOs2WMtWZCHFcpbax2KEBbaXjCERMh
7KxcZHaHFMBl0q03ETvJ9//R2LasqQDM3ILYUl0h5nRWMiNOF6JVKkh+2hKS
P19NfLdEFEF9k+uhZUIBCqZm3DHsLIbjgYkqvnwBTtVuOmAzVIxtg7viansF
2J3m7Owp+RnMivYvF7sFGIoMDY5W/4xNLLPIHJ4Af8/ePc89/Rm2NnN3jdYI
wK3rzJs09BndSjv5VzIFWKJaM3OSRCk6L+jpp3kLsHDUhO+qUAZxydDuIC8B
nsQIojxXlWH9poHJxz0EOON7csBHvwy8u7zCaWcFOGBvFOBnXwadkYsSBx0F
KIp0Wu2cUob+j88qw80FcHPZK1GhW464ObFOQ1oCaCy+qpJ5uALS0o+qlnfw
SR2feq4k+CvyEwP2vG3lo0665Vjzk69Q3X57v3YLH79vayf2pnyF+Km6P2ub
+ThXp7BavIr4lm2ZahUfCTzpy4GTmVg44LDr0wc+Zr9vmnl4LxMpAdqNXaF8
zEO7QFDLhMXnPK2yjXz8FJl0vZBThZy3t8bLbvbB9JK2hE5uDTZneNQ/T+4F
k30wfySuDnWXTfcfL/uG6t+mapMONCD8mb/cYVYPpDIi3JLZjUiuiCyeU9+D
P/de3pne1giviAt/aqp6kLRj1M69pxGa4pF/DUt7oOSio7LmVyMWatsfVMjq
AXde44+waU0YGdQwvP6gBzPDfqr06DUhXfSUwVqTHqg901xd+aIJWhs+PdXI
60YwPyj46DEWTpnsM2NldyPpQJDBZwcWtrWf++if0Y1bMS8qV5xm4cstnxxu
cjcGnt49+tOLBc2ixyaXHndDS2rr/pMhLNj9mt7p49WN1pigv21ZLLiZcgpv
rO7G4jl7W9ZIN2Nxs1A/71kXrifqxUslN2PSvcXzMyO7SA642ux62wzFTC/X
lAddUJNrPxLwvhn9+33DIoK6oIj/5o0xmjGbObHksGcXSrvO3Sqoa8bZ6qHa
8L1d8HU+F/JlvBnOf11v8n93YmyI55y/lw3b0VTD2Wad8BVN91jYycbgm61D
xcadcNA3kAn9xkZ/QK+Wp2En4rPbKsWFbCjEhe6t2dwJKnJDCW+IDeObS+d4
q3aCe8DzxgUpDsT7jvOvjHXAd9ZyH8XlHFRv25ziHdeB9woS3+DKgfHJVbw/
zzow6+Ma5f/OcbD8NaJ9IzvAkQlzcvXkYHHsm4LLdzpgvrBq2X1fDnrW1UU4
X+jAMemL2zPvcFAuvi7wr3EHriT77jvzhoPvGgevyP5ox+ZdDQYJfRy83Lt1
+md+O/4MG9Qs6udAQuO9lU93O+r566mHPzh4L6u/vI3TjntbdBIvjXLAu8N6
FlPSjsTbjTlqklyctpLh8Z60Q/908AYxFS6OrL1S5mrYjqiHaw1SD3HRGlzY
90evHerzp2jU/seFzNO7XwI3t2P6LV3LwSNcHOZ/yY1e3Y5UxprQlce4yAPD
/eOCdmS8pIyuuXLxIf311hxhGxK6luxO8OeSfej+1vzwNhT5pm7iZHBxmS8R
9PpuGwZKgo91ZHGRem/YIiKwDTrNu/W+5XJB+5v7Ol5uw13uxgXf8kl/GuK/
Rk60gTlirlVQwUX53rlBNdpt6NntvKGmnYsHk5YfcKxqhUEiW+qcLI0G8TMy
S8tasaB2tbXsTBpH7mkb84pawWx7bZo4m4amxTqz/VmtcFrfJl47n4YgSiNg
ybNWXDfJezy+mMY3sa+Pr7q0omZ8xtc362lUbBW1U5RoxaPXC5N8rGj8UNsX
Nl+kFS41w5U3rWlQ/coXZ43y8GahffdtWxrb5hjbiwt4GLx4aCT0BA2Jkndp
tXU8HFfAFa9TNGyzaJV1cTyMX8gIT/WhUX1xz1P5ZzxYWGt8unWZRudC3Qqx
RzyUfc/lWvvRGB+KMSoN5sHe7w5T7DqNtulXM3a482AzmBqlEkTjVu3jkxMM
ePD7ZLeNGUFD/6yqet1mHjjiU+o9I2nE8LVj4nR4+O1tbrQwisauS3XJ+uo8
dJ5CueUzGvtFVmw8NZ30rzi2JSOOvP9g7YrrdAt461J0q96S+Uyl1+k1tSDP
WSloRzqNXrvJQ2PVLZhgU5CS9Y7GsoTOULfiFmj3Cc/fz6Rhfj9jq9HrFszY
lvhd+SONkNFk92zvFrR5KUm/+kwjbvteCda5FvTlKGyUKKUhZ5o1Y8SlBZee
972w/kJjQmznYy3rFgjPx6+YVEFDVi/Z9b5BC9Zn7fi5rJrE36p5obR0C5R/
cx6/b6bx/Kmk5ayJLbjeMW1NA5vGId0/qjpjNCyKCkZ+cGiEZt/qM2yhMe2c
+QxlcnV77j684yWNRoXvFqbtND6sDV2Qvo5GmEjglZ+9JD7Pxb+HqpF5XhlM
bugj478t+cF1AY1nO0JH3/NpLG8p0lr0l4u611NGHIU0Ks9Piz1SzMWdS2nO
MQM0fjZMXbKYrGtO7JF7J37QYGY9iep+xcWY9t3qJT9pRP864+Jwm4uTSXgR
OUjGb9cXYnCAiwnn3E8dHKZhk+PxcWA7F/wLChajxPV3Q3lP13GhODPR/PEI
cfblyYL5XEjLzgitGiXPS5tMuyfNxYtL28rsf5P2OKlSq8c52HxPXG6YeOPY
MvokjwPVvCa2zB8Sj53IGa/mwJy3zTyM+OnsrsDQIg708nro2eNkvGq90m8T
OBDJDp479S+NcP1P90tPcbBA4dcke5EWsHfLU0HWHERUvpCKIBY4yY/t2sfB
f7XuSiXEXt9mJzG0OZAt6LinLEru75KR91zKwboFH3uMibXyU6LV53IwKVn5
0HnihcIudsBvNkTNJzoziIvi/R6s4bNxtDVrRhuxjnu+dTOXjWL/kxUTxFrg
YZ64yY/JRrVvcqQy8VXTTWrKBWwsmKDiDeLD1u7L8tPZ2LDL3vkw8fi1gxus
4tgouj399Dlitzyu5a9wNswlGFcCiZNlZO8GB7Dh3ycd/4z4nXtPnaI32Re8
7rPSiAP7nVakOrOh3i5QKCJWvxoWrmvFRrl9ztka4gg1++klZJ9x23CvroWY
2Uk/MdnKxpswGcM+4vps0c21q9lQeltRPEj88nlZ70EVMr/Pjgf+EO+I0X1d
O4vMX/ayUGxCC1IzzP1MJdh4Vhj3UIK4k553onSoGbXzfYwlibsVr1uipxnr
9kZN/ef358OPpbGaYRcew5pIbMYzvaRc3gy+hmq6KHGWXfrLOx+b4WpYEv6b
9Pdt5GPHSEozriotuvHjn+PdtG2jm8EYKL3UQ/zesSzs0z3iHzZ+HGJj/UoJ
1WvNmG/lF/yVOHXVhcAb7s1wPFkYQxG3aJcr8k40Y9vuT9RrYvbez8UbzIn1
lDofEb+47OR7x6gZYlfPzrr+L16Kr5ZoaTRjbrGtvxlx8d1tM30XNuPFRp0y
HeK8OQEzSqc2w4TtMnse8ayTk3Yc6GfB8dap3AayHtxWGng/4LEgKXFa7h1x
5FRVRk01C8tDdT1CiM2mdPkZZrBwNPe9vi5xi3rhb594Fp6UhqdMJ95oYxjw
5iELhaVp8u1kvZpJG9VP8WZB+eoU8WvEsteKHq51ZuF20mVvE+LIaT1OR46w
sPVV5MA84llO6jtitrBQMMm9fB/JD/H1hnuplSxMeNGVzyL5k7dA2oG1iIWH
r29mWhNHLg5hTprAwq2KRdFWJN/aN507j89N4Mdkm6qR/DQtf2BumN2EWdmX
zkeRfB72TE02TmpCVcqnedLEMkqVb0zuNCH/qRm3hdQDnZzEeevMm6B9ynu7
zS9STxaH3Fff2YSag54HMkk9MUp09FuwqQn2AhZnMvHhSVLpgwpNkIkwtEog
9chLsudiUGcjFBKZYxn9NFqMb992amyEhHBhRT+pZzeT1WYYfmnE+oy0GcuI
Qz/uch9+3Yjlmst/B5H693KpZtTm842QfOO2Uu0bjaJZ3t67JjTCrFomPKuV
xtKp0bkigw1Qd9M9ncMj9xflub7rbICY1sW3WaT+ljxqXTXrSwPMAx94JHJp
lFeXy2XcJXay7rFj0Si2WXrGR74B5yvkWpdW0Vg8tZInNa0BrsIrCsKvNApq
T30KE2nAvMb83PRKUr8zHnQ8b6uHhv1qOa1yGil5N29Fv6rHZLOe9RPIfuPX
x7dWWlsPt71B8b9ySfzPtfzdtaQejdqWpidyaIzFaEafmV0PvROrkr9mkXo5
wOFlDNbhzNGXHg8zSD23C3Cc/74O37+M40cKDfcb0oH7depgs6+Yz4qm8aKy
atpN7Vpc3FQseuIKjRnLN+SaLK6F4cslFka+ZL9YNWYvN6sWslpeO1Qv0fBY
/oCK/FGDP4fedTV40TAbnHHeN60GnPGsJeJu5HuX6H7PWlmDyCD3Jn9y3kg7
Y6rZp1qNh4wcZ521NH7Vuye5zq3GMoMpsVlaNOItXIL6Jashp7e/T2cVjS1v
a89966nCiiTlNFUNsj9kBnbmJVVBTl5zuGkRDbs5wfu/aVbB4enpJr8p5P7S
9t271zBJXTcxruFwwZzronJRhYlGi1cX6llcxKt+tno5k4klBQWxdQ1cLFvL
Hxzs+oqyuODez1VcZCWeTxF1/Arl8F4dn09cGOu+1VRwqsRNvT3LVJK5OC5S
4+zsUI7RIYuqEx5c1IYfUSk2Kke55/vu4bNcSIZH1C5QK4f4y+OyAeT8WF6p
ujirpwyRe9eERDpwkawW6/nOqQyrVBdo3T3MRdH1qf25zl8wM2rRnY+65PzK
TF0q4VQCox3WWxaKcjH34+okf/MiFKrecy++yMEBpRxe3ZoiXC2pMx324GDr
g5OaCrJF6JsleWTJWeLk1ZOflBSit1p8zM2Bgw/hV8v2byhEabWkceUBDhhW
c87HzStAkGXghWhy3s86Oa8kLYnCdiuh+5NGNgJE9thNuvAer64q6lUosSFi
v8T2z5b7UCuhMxLCWRAxsPBeIp9C/fG68MEvohGyY516y+Pzqc2XW63e7qlH
wAlOa61TGRXraCFbxapBmNvv9DUrayhuScfWtU1M3I1aX8D0aKRkPDrMT5ws
wwtdn/Dl5Rzqmt257oT7RRDE5j7w5PEo9tYrfqersuAlsyWOn9dO6XbZSd1a
F43FDU8tV3zvotSeVo2uNkmgNu9qtRkS66Wmf3HoTEinqB1y+X7Z8wTUPLXO
fUNnvlB5Wb4iyp/6qQdrhyVLHWooScMeMcppgDINsDR687iJ2mJ59P0e/KSO
GfEdLtq3UK3JYauU5vyimobyxF1XtFNO1Q9lmE1D1JWyMzdX8ruo+apTD41X
jFCB/jeYFlv6KLcZd18XJv2mLAeEd6bo91NFjIOLtwf+ob4bhHxmew5QHt7M
sMKov5RY1Er1nL8/KRX21CydMhEG83jOsSafIWpk2P1Q0lcRRvbC2LwtAUMU
z9fEclGtCKO7bX5k/P0hqqXsaMQUjgijLPtJzaXEISr2SCfdKRBhTF+/yXxX
4xC11vbRi9QZogwLJY0aS+1hyv9XiPi9w6KM7R+DVtkJhqmTB4+dmWEtyljR
+EV67ugwdUghaVvYMVHGOWapG3PiCGUvCFN45CLK4J3lM43kR6id/lXPEi6L
MiLWyA2bG49QC6IEDQ3PSXuGBrP6E0eo8ccjSdYJoozJup7+le9HqO8TvTq7
kkQZmz0n3HxTMEJJzf0aMvJOlJFaPXnpBdYINabdmaz0WZShzFIcVp88Stne
CH6XXCbKSEmwKZeXG6UaEK+8ninKWMX/tGKm8ij1Y2CNlmmTKKNhpC1i4sZR
6lFvQg2bI8rgVEyLFdsxSpnuvdPs2CrKiFqzY5OY2Sg1Z8G3nUOdoowbbxm2
4kdHqb59WQo3ekUZYpVZclJOo9T/AIuHFQ8=
       "]]},
     Annotation[#, "Charting`Private`Tag$15353#9"]& ]}, {}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{589.6281721494024, Automatic},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8171148487629232`*^9, 3.817114867569581*^9}, {
   3.8171149189239483`*^9, 3.817114948818074*^9}, {3.817114983494927*^9, 
   3.8171150086165953`*^9}, 3.817115069160568*^9, {3.8172023951745663`*^9, 
   3.8172024205532*^9}, {3.817202505823051*^9, 3.817202522608831*^9}},
 CellLabel->
  "Out[165]=",ExpressionUUID->"ae6c01c8-9abd-4358-a6f9-fb8f033a8ba4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"h0", " ", 
      RowBox[{"g", "[", "\[Theta]", "]"}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Theta]", "2"]}], 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"1", "/", "t\[Infinity]"}], " ", 
         SuperscriptBox["\[Theta]", "3"]}]}]], ")"}], "\[Beta]\[Delta]"]}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.817113144203745*^9, 3.8171131899556923`*^9}, {
  3.8171133354068203`*^9, 3.817113365430565*^9}, {3.817114104893573*^9, 
  3.817114104973675*^9}, {3.817114181711667*^9, 3.81711419022359*^9}, {
  3.817114245144809*^9, 3.817114245640547*^9}, {3.8171147067876053`*^9, 
  3.817114712355151*^9}, {3.81711550929183*^9, 3.817115509403614*^9}, {
  3.817115653438582*^9, 3.817115691197918*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"25d7aa57-46b2-4829-8aad-b00b9ab2ecff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"h0", " ", 
    RowBox[{"g", "[", "0", "]"}]}], "+", 
   RowBox[{"h0", " ", 
    RowBox[{
     SuperscriptBox["g", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}], " ", "\[Theta]"}], "+", 
   RowBox[{"h0", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Beta]\[Delta]", " ", 
       RowBox[{"g", "[", "0", "]"}]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["g", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "0", "]"}], "2"]}], ")"}], " ", 
    SuperscriptBox["\[Theta]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Theta]", "]"}], "3"],
    SeriesData[$CellContext`\[Theta], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Theta], 
   0, {$CellContext`h0 $CellContext`g[0], $CellContext`h0 
    Derivative[1][$CellContext`g][
     0], $CellContext`h0 ($CellContext`\[Beta]\[Delta] $CellContext`g[0] + 
     Rational[1, 2] Derivative[2][$CellContext`g][0])}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.817114105560233*^9, {3.817114187226123*^9, 3.817114190364789*^9}, 
   3.817114245974049*^9, {3.8171147071829653`*^9, 3.817114712610158*^9}, 
   3.8171154633593493`*^9, 3.817115509593433*^9, 3.817115693533884*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"5f0c650e-d3ec-4a10-aad2-c391b45db45f"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1005, 792},
WindowMargins->{{Automatic, 1.5}, {1.5, Automatic}},
FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 423, 8, 29, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
Cell[CellGroupData[{
Cell[1006, 32, 156, 3, 68, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
Cell[1165, 37, 1602, 30, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
Cell[2770, 69, 2216, 31, 29, "Input",ExpressionUUID->"b0293560-4bfa-4de2-84b0-335927f7dbea"],
Cell[CellGroupData[{
Cell[5011, 104, 3208, 60, 51, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
Cell[8222, 166, 4077, 65, 33, "Output",ExpressionUUID->"f676952c-992f-4ebe-a4d1-30e21dd4d0ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12336, 236, 1289, 27, 29, "Input",ExpressionUUID->"a4f082dc-c86b-4fae-a5ca-c1981cd9d9cf"],
Cell[13628, 265, 539, 12, 22, "Message",ExpressionUUID->"36ce886b-a17b-4e11-a0fa-9283b3f2481b"],
Cell[14170, 279, 13223, 234, 239, "Output",ExpressionUUID->"790a1b14-2979-49a3-9e30-5d496c64e79a"]
}, Open  ]],
Cell[27408, 516, 1897, 33, 71, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
Cell[CellGroupData[{
Cell[29330, 553, 5250, 95, 51, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
Cell[34583, 650, 3504, 60, 55, "Output",ExpressionUUID->"b0bec539-56ed-4897-b80b-cd8dfd2677e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38124, 715, 1736, 38, 92, "Input",ExpressionUUID->"48ef1564-45f8-4d3a-b3bc-835e87c4b434"],
Cell[39863, 755, 514, 11, 22, "Message",ExpressionUUID->"b51d87d3-de21-4502-b43b-5a537a1c6dc1"],
Cell[40380, 768, 49252, 840, 205, 26205, 464, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"4418ccfb-99b7-488d-a161-2678f84be87f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89669, 1613, 1089, 29, 54, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
Cell[90761, 1644, 98820, 1642, 103, 73870, 1232, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"1387cad6-2910-4d95-bb16-fccb91fd6a76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189618, 3291, 2147, 52, 79, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
Cell[191768, 3345, 26505, 453, 241, "Output",ExpressionUUID->"348377e3-5d2e-45e0-83a1-0bb162fca9ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218310, 3803, 3898, 89, 144, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
Cell[222211, 3894, 630, 13, 40, "Message",ExpressionUUID->"216842f7-6b1f-4b0e-80ad-7561735930ba"],
Cell[222844, 3909, 570, 12, 39, "Message",ExpressionUUID->"19c5d1c8-bbcd-4f5b-83f4-3116397aae1d"],
Cell[223417, 3923, 568, 12, 39, "Message",ExpressionUUID->"bf3fa7a1-a10c-4f34-b799-15feb6fd9a94"],
Cell[223988, 3937, 646, 13, 22, "Message",ExpressionUUID->"8301d9c6-5667-4e0e-babc-34891d14958b"],
Cell[224637, 3952, 606, 13, 24, "Message",ExpressionUUID->"ccae7427-68ca-4f65-9f6d-4dd2dc4b639d"],
Cell[225246, 3967, 607, 13, 24, "Message",ExpressionUUID->"cfcfd305-6369-4d0d-ab91-323656281a2e"],
Cell[225856, 3982, 608, 13, 24, "Message",ExpressionUUID->"ddee7f30-4b8d-49f3-a238-e8df9057bfed"],
Cell[226467, 3997, 650, 13, 22, "Message",ExpressionUUID->"456dde30-b84b-4cba-9cea-4c2b7080bc35"],
Cell[227120, 4012, 2149, 51, 237, "Output",ExpressionUUID->"f0d61600-5eb6-4f8a-9c60-ac80b53c708a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229306, 4068, 5214, 116, 167, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
Cell[234523, 4186, 783, 15, 40, "Message",ExpressionUUID->"b34a59d2-df83-4bcc-8877-f7287b9c6b63"],
Cell[235309, 4203, 723, 14, 39, "Message",ExpressionUUID->"f90bbc2c-a921-4f2e-80fc-1fe79d36f5ed"],
Cell[236035, 4219, 761, 15, 24, "Message",ExpressionUUID->"0c5f9a46-bb7f-4f2b-873b-5f8374387e5b"],
Cell[236799, 4236, 721, 14, 39, "Message",ExpressionUUID->"9152de73-1d17-4288-821f-53b3ff3cd6a3"],
Cell[237523, 4252, 801, 15, 22, "Message",ExpressionUUID->"da8de725-4d35-4371-8f8b-200846f7fadc"],
Cell[238327, 4269, 761, 15, 24, "Message",ExpressionUUID->"77c72bca-73bf-4da0-8420-b2d771db650c"],
Cell[239091, 4286, 761, 15, 24, "Message",ExpressionUUID->"0ab865cc-63da-43d9-be96-488dae3c11a7"],
Cell[239855, 4303, 803, 15, 22, "Message",ExpressionUUID->"d6d0804b-e464-4f31-9989-db903712ce18"],
Cell[240661, 4320, 2259, 52, 240, "Output",ExpressionUUID->"1007ec09-f8b7-4f86-9778-7ddc0fddb31f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242957, 4377, 1844, 33, 71, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
Cell[244804, 4412, 182, 3, 33, "Output",ExpressionUUID->"0e837164-3793-49da-bdd0-d4f51cfcde79"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245023, 4420, 5046, 96, 71, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
Cell[250072, 4518, 457, 11, 22, "Message",ExpressionUUID->"9a92db76-2a3a-4c87-9b65-03195ab7f92a"],
Cell[250532, 4531, 2580, 49, 55, "Output",ExpressionUUID->"e97932be-a01b-4712-8761-1702066ed336"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253149, 4585, 1521, 33, 92, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
Cell[254673, 4620, 32862, 572, 167, 17770, 325, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"1e95a096-656a-4bd0-bdc9-09d9c739bf1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[287572, 5197, 1598, 30, 50, "Input",ExpressionUUID->"56a2c377-648a-4b5e-a0b8-a978c95c7038"],
Cell[289173, 5229, 156, 2, 32, "Output",ExpressionUUID->"1fb128c6-9917-495f-aa57-47ef430806ec"]
}, Open  ]],
Cell[289344, 5234, 648, 11, 28, "Input",ExpressionUUID->"01a65f9d-ccec-4ee5-a3eb-41b72a14e214"],
Cell[CellGroupData[{
Cell[290017, 5249, 3637, 73, 53, "Input",ExpressionUUID->"13e955ed-c66f-412e-a56a-086a5a7c388a"],
Cell[293657, 5324, 1324, 28, 32, "Output",ExpressionUUID->"666b440f-efe1-40df-97a3-a6ba5f6b502f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[295018, 5357, 1593, 38, 89, "Input",ExpressionUUID->"cf100fe8-27c6-4a2c-b65e-370cdc76ab54"],
Cell[296614, 5397, 19249, 349, 200, "Output",ExpressionUUID->"5ba21607-6804-4676-bd54-9ca50ed7e210"]
}, Open  ]],
Cell[CellGroupData[{
Cell[315900, 5751, 854, 19, 52, "Input",ExpressionUUID->"b69f87e3-927b-4524-9686-1a17f2c879bb"],
Cell[316757, 5772, 1027, 29, 77, "Output",ExpressionUUID->"fca5aade-1849-4879-95d9-c83dd6b84d7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[317821, 5806, 429, 11, 28, "Input",ExpressionUUID->"76d49acb-b5e2-4974-82cf-c376b2e9bf83"],
Cell[318253, 5819, 692, 20, 50, "Output",ExpressionUUID->"abc7d2c8-0464-4233-a249-6655f54c6cae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318982, 5844, 718, 17, 28, "Input",ExpressionUUID->"06ec162d-d4ce-41ef-aa36-5c655ac7865a"],
Cell[319703, 5863, 766, 21, 72, "Output",ExpressionUUID->"4f58f171-276d-4b8b-a439-52aa6e0e19fa"]
}, Open  ]],
Cell[320484, 5887, 961, 29, 31, "Input",ExpressionUUID->"14d51596-0d76-499e-9baa-e7be6425156e"],
Cell[CellGroupData[{
Cell[321470, 5920, 1844, 34, 31, "Input",ExpressionUUID->"0fdc6db7-418c-44d4-b217-8c6a47dbf54f"],
Cell[323317, 5956, 1564, 26, 32, "Output",ExpressionUUID->"67408372-ed4a-4c44-8e4a-095d1f5a7f3d"]
}, Open  ]],
Cell[324896, 5985, 1686, 49, 51, "Input",ExpressionUUID->"85e42c53-eadd-4f1a-85ea-31722ac3808d"],
Cell[CellGroupData[{
Cell[326607, 6038, 388, 11, 28, "Input",ExpressionUUID->"94b7d8f3-1de1-4724-9998-f9046cf18d08"],
Cell[326998, 6051, 5181, 151, 181, "Output",ExpressionUUID->"c8797d01-60d9-4367-bada-270d874abd6f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[332216, 6207, 2463, 47, 31, "Input",ExpressionUUID->"f170d041-00ce-4e11-b3a8-0bd59dad2b6c"],
Cell[334682, 6256, 893, 17, 43, "Message",ExpressionUUID->"4eacc95f-2370-4f5b-b81d-114beebccca0"],
Cell[335578, 6275, 2172, 37, 33, "Output",ExpressionUUID->"37349b20-07d0-4012-90ce-068c376209b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[337787, 6317, 1517, 41, 93, "Input",ExpressionUUID->"dcf13cfd-3c9b-4f00-914a-62dd8441c54a"],
Cell[339307, 6360, 19961, 361, 200, "Output",ExpressionUUID->"9615b190-9c6f-4136-8ec8-38b48777afc1"]
}, Open  ]],
Cell[359283, 6724, 175, 4, 29, "Input",ExpressionUUID->"c97fd2a9-8030-48bd-ac54-60cfef08006d"],
Cell[CellGroupData[{
Cell[359483, 6732, 677, 14, 29, "Input",ExpressionUUID->"8c3eb7fb-65d2-4a56-a3e3-0dc6e0518fe6"],
Cell[360163, 6748, 1893, 54, 78, "Output",ExpressionUUID->"ceff9452-e2f4-44ad-af83-bc7a4c209dad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[362093, 6807, 178, 2, 29, "Input",ExpressionUUID->"58cf9ad2-3d46-4b16-9024-9b17cba6f917"],
Cell[362274, 6811, 1904, 64, 57, "Output",ExpressionUUID->"f406ab24-bd3a-4e22-988c-3ba0cf63a667"]
}, Open  ]],
Cell[364193, 6878, 233, 5, 29, "Input",ExpressionUUID->"e7fef682-ee6e-4d26-962a-6946f28d5999"],
Cell[364429, 6885, 2312, 53, 73, "Input",ExpressionUUID->"2f5b927d-f164-4051-b8ca-bad9a5ba3b97"],
Cell[CellGroupData[{
Cell[366766, 6942, 4764, 78, 53, "Input",ExpressionUUID->"630fc9c9-229c-4372-8a16-eac1f2d98690"],
Cell[371533, 7022, 632, 12, 43, "Message",ExpressionUUID->"20e41565-1936-405a-9504-d530fdcc8152"],
Cell[372168, 7036, 1499, 29, 77, "Output",ExpressionUUID->"319eb113-9321-48fc-ad65-5700453ef613"]
}, Open  ]],
Cell[373682, 7068, 461, 14, 28, "Input",ExpressionUUID->"ea36fa2d-8c46-4383-be61-eff682dedb14"],
Cell[CellGroupData[{
Cell[374168, 7086, 452, 12, 28, "Input",ExpressionUUID->"5823df11-0739-494d-bf1b-44bf2a14cb2b"],
Cell[374623, 7100, 278, 4, 33, "Output",ExpressionUUID->"cf69a3b6-a533-4dea-b33c-8d65e371fe08"]
}, Open  ]],
Cell[CellGroupData[{
Cell[374938, 7109, 1740, 46, 92, "Input",ExpressionUUID->"2a7b9f00-b942-4f1e-89df-1d3081b1fc6a"],
Cell[376681, 7157, 21020, 380, 204, "Output",ExpressionUUID->"155c39dd-ec1d-4900-9cbf-4fc4b876ac75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[397738, 7542, 966, 27, 31, "Input",ExpressionUUID->"da645597-b6a8-4dfc-83c5-3cec31d750f9"],
Cell[398707, 7571, 469, 10, 33, "Output",ExpressionUUID->"f27b02e6-f3db-42e2-b534-43e5409fe36c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399213, 7586, 1847, 47, 117, "Input",ExpressionUUID->"b03f723e-24d4-4097-8ca2-9b1145403bfb"],
Cell[401063, 7635, 519, 11, 25, "Message",ExpressionUUID->"1ff6b3ff-f0d9-48ea-95df-10584520bc02"],
Cell[401585, 7648, 519, 11, 25, "Message",ExpressionUUID->"82682d18-f80c-4d23-8675-d31ca1576f0e"],
Cell[402107, 7661, 521, 11, 25, "Message",ExpressionUUID->"164319c1-a2e0-427a-9f70-94e763f48d8e"],
Cell[402631, 7674, 486, 10, 25, "Message",ExpressionUUID->"5d8fc41c-1820-4591-bdb1-29d65ed68611"],
Cell[403120, 7686, 25289, 433, 228, "Output",ExpressionUUID->"0f099d03-656a-4602-85f6-26b4b2405b3b"]
}, Open  ]],
Cell[428424, 8122, 1836, 43, 96, "Input",ExpressionUUID->"868d07c1-b3cf-44ff-a070-78c2a21c388b"],
Cell[CellGroupData[{
Cell[430285, 8169, 4656, 86, 74, "Input",ExpressionUUID->"7c02fde8-7f1a-472a-9e7d-0e95772516eb"],
Cell[434944, 8257, 899, 22, 55, "Output",ExpressionUUID->"6b22737f-c85f-4c36-9b44-d9e694bee115"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435880, 8284, 1989, 49, 96, "Input",ExpressionUUID->"0e89b49c-ebf1-4e9a-800f-62ec63f935a1"],
Cell[437872, 8335, 21952, 393, 205, "Output",ExpressionUUID->"7cf0a89e-6d18-442b-b56d-94b97702709f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[459861, 8733, 1382, 36, 75, "Input",ExpressionUUID->"6c30dc25-997d-4790-bfcd-6e15ebcf7cbc"],
Cell[461246, 8771, 520, 12, 40, "Message",ExpressionUUID->"56028de4-0ddc-4ea7-bf21-a25534c5c68d"],
Cell[461769, 8785, 521, 12, 40, "Message",ExpressionUUID->"3d57804e-381a-4ba2-8dce-4428206df060"],
Cell[462293, 8799, 3161, 69, 245, "Output",ExpressionUUID->"56916602-5965-4962-8188-b6662a5aa173"]
}, Open  ]],
Cell[465469, 8871, 1713, 40, 73, "Input",ExpressionUUID->"b31259b6-cc89-48a8-920d-e9dbcee664fb"],
Cell[CellGroupData[{
Cell[467207, 8915, 3913, 66, 53, "Input",ExpressionUUID->"30d0f855-c86b-4121-855c-813e9ee04f96"],
Cell[471123, 8983, 1064, 19, 27, "Message",ExpressionUUID->"f1cd282b-fb73-4166-8899-1f1b71289512"],
Cell[472190, 9004, 3809, 57, 48, "Output",ExpressionUUID->"3b7bac7f-12db-4bb2-8d83-0f02d8f19997"]
}, Open  ]],
Cell[CellGroupData[{
Cell[476036, 9066, 1587, 43, 104, "Input",ExpressionUUID->"e1346f99-b8a8-49f2-9bab-d7d94b52e5d3"],
Cell[477626, 9111, 61160, 1040, 217, 39593, 685, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"24eee5ea-c8f9-4063-9d36-9e38f4d71b1d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[538823, 10156, 1714, 46, 104, "Input",ExpressionUUID->"8b99e721-7bc5-4c63-b150-8946bb7d2007"],
Cell[540540, 10204, 30207, 531, 217, "Output",ExpressionUUID->"d79294e8-cb2f-4112-ad68-da965b8a242a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[570784, 10740, 491, 13, 28, "Input",ExpressionUUID->"8dd8c18b-504b-469d-8072-a9fb0cc417df"],
Cell[571278, 10755, 539, 12, 21, "Message",ExpressionUUID->"a55da929-28cd-4032-aea8-5daec85d020a"],
Cell[571820, 10769, 539, 12, 21, "Message",ExpressionUUID->"d9f18df2-5058-4626-9d48-5486b1743e96"],
Cell[572362, 10783, 2243, 56, 78, "Output",ExpressionUUID->"7ce119a6-a1c0-48cc-9d86-6e7b6a1eafe3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[574642, 10844, 561, 16, 28, "Input",ExpressionUUID->"b0a27cf9-de55-4cf4-9b19-ff7b3add442a"],
Cell[575206, 10862, 913, 27, 74, "Output",ExpressionUUID->"d3fcf7af-82f3-49c4-81c0-3bf29938e0d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[576156, 10894, 681, 19, 54, "Input",ExpressionUUID->"f49c10e4-6ea3-40fb-85e8-436bcc73196f"],
Cell[576840, 10915, 4071, 86, 234, "Output",ExpressionUUID->"0ede64a7-b62f-453c-b5e6-06e4c6ab27af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[580948, 11006, 486, 13, 28, "Input",ExpressionUUID->"67bd5207-9130-427b-afb3-21bda9c7e82e"],
Cell[581437, 11021, 200, 4, 32, "Output",ExpressionUUID->"39e5dba9-9c25-42e4-8876-75a530e46ee5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[581674, 11030, 783, 22, 28, "Input",ExpressionUUID->"6db9bdd5-3bc4-4993-85d9-2bb9c2d0db38"],
Cell[582460, 11054, 3496, 77, 248, "Output",ExpressionUUID->"028520eb-aee9-483d-9152-2416a8a91977"]
}, Open  ]],
Cell[CellGroupData[{
Cell[585993, 11136, 1223, 33, 23, "Input",ExpressionUUID->"aab225ac-8e68-4d46-a4da-600fe6364133"],
Cell[587219, 11171, 10880, 231, 175, "Output",ExpressionUUID->"6e880d59-ffe1-440b-af8b-754c17269f6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[598136, 11407, 2115, 52, 65, "Input",ExpressionUUID->"f01a72f1-91c7-4454-9040-b54a61c9cd07"],
Cell[600254, 11461, 615, 13, 18, "Message",ExpressionUUID->"46cbf58a-9f1b-42bc-8a11-616c84d0e1d7"],
Cell[600872, 11476, 613, 13, 18, "Message",ExpressionUUID->"c25c6435-fc6d-4b46-b41c-a3d203aa09da"],
Cell[601488, 11491, 613, 13, 18, "Message",ExpressionUUID->"3a09025b-666f-454b-9a32-9f324e354788"],
Cell[602104, 11506, 580, 12, 18, "Message",ExpressionUUID->"5b1f7808-f0a6-4257-b7ed-4acdc8c4ac95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[602721, 11523, 536, 10, 23, "Input",ExpressionUUID->"1dfbee5f-7e33-4446-bc10-991ba8838497"],
Cell[603260, 11535, 93071, 1628, 176, "Output",ExpressionUUID->"e57fa90a-27ff-4013-8fad-ca7e3c98d348"]
}, Open  ]],
Cell[CellGroupData[{
Cell[696368, 13168, 314, 8, 21, "Input",ExpressionUUID->"8499af31-a50c-4059-afac-b628095fc761"],
Cell[696685, 13178, 368, 8, 24, "Output",ExpressionUUID->"9aaf347d-0fae-4cb5-8920-f15fee437a9e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[697090, 13191, 577, 17, 23, "Input",ExpressionUUID->"fecf4a67-c7e8-40b5-8e36-582a0bab9fe6"],
Cell[697670, 13210, 753, 23, 47, "Output",ExpressionUUID->"742a0341-4af8-4ba4-a799-e15a1e847a9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[698460, 13238, 438, 11, 23, "Input",ExpressionUUID->"9884f3ff-ff57-4cf7-b122-2aebcb709801"],
Cell[698901, 13251, 947, 26, 44, "Output",ExpressionUUID->"5f69419d-b0c1-4cd5-9616-460f429c823a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[699885, 13282, 549, 13, 23, "Input",ExpressionUUID->"c18d621f-7e5f-48db-8ae7-0fda0221c79c"],
Cell[700437, 13297, 599, 17, 44, "Output",ExpressionUUID->"b45884b0-ccdc-4e99-ac15-83498ea86eff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[701073, 13319, 338, 7, 21, "Input",ExpressionUUID->"8e16b08d-33f5-4a51-9850-75f98a0e6a08"],
Cell[701414, 13328, 2269, 65, 60, "Output",ExpressionUUID->"21b799e5-0965-4692-b4ba-6083041c0cdd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[703720, 13398, 237, 5, 21, "Input",ExpressionUUID->"4c8cb259-b56a-423e-957f-9a65ba700a16"],
Cell[703960, 13405, 2063, 59, 108, "Output",ExpressionUUID->"312f09f3-55f8-4f9d-a42c-05ca1c4aea27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[706060, 13469, 564, 14, 23, "Input",ExpressionUUID->"069edadd-116a-4ccf-831d-0fe6e07540fe"],
Cell[706627, 13485, 1113, 29, 51, "Output",ExpressionUUID->"e6426e3c-3d4d-49f1-becd-dfef45704088"]
}, Open  ]],
Cell[CellGroupData[{
Cell[707777, 13519, 522, 13, 23, "Input",ExpressionUUID->"3cd180b6-0e22-4832-af2b-e9ecec7e0a49"],
Cell[708302, 13534, 5586, 138, 257, "Output",ExpressionUUID->"45f19748-f63a-49e1-8ced-a4f5c5dda272"]
}, Open  ]],
Cell[713903, 13675, 366, 10, 21, "Input",ExpressionUUID->"3ffc56f5-fc40-4c69-bdce-f91a4aab1c67"],
Cell[CellGroupData[{
Cell[714294, 13689, 838, 23, 41, "Input",ExpressionUUID->"e131ab87-4ef6-4852-9ddd-e4499b39559a"],
Cell[715135, 13714, 597, 16, 50, "Output",ExpressionUUID->"86a22957-07a1-48ab-90d1-d142a27afe22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[715769, 13735, 921, 23, 41, "Input",ExpressionUUID->"22a30e99-2bd5-43a5-9353-3a3be14232a6"],
Cell[716693, 13760, 2812, 74, 80, "Output",ExpressionUUID->"470e97c2-b944-4611-8c77-75e5a0915c04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[719542, 13839, 824, 23, 41, "Input",ExpressionUUID->"3752e4d8-bc7c-475c-b88c-a0d99559d99c"],
Cell[720369, 13864, 2580, 68, 77, "Output",ExpressionUUID->"db6b4f65-90c7-4c37-9945-5690d8472368"]
}, Open  ]],
Cell[CellGroupData[{
Cell[722986, 13937, 463, 12, 40, "Input",ExpressionUUID->"6a34969c-5bbf-4acb-a54f-a9bfbf2c9f87"],
Cell[723452, 13951, 8623, 160, 170, "Output",ExpressionUUID->"70cff46d-010d-4a9a-8cf5-3901b2a30edf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[732112, 14116, 595, 17, 23, "Input",ExpressionUUID->"6afc45fb-65bc-47fe-b120-408f15ede40b"],
Cell[732710, 14135, 470, 13, 50, "Output",ExpressionUUID->"4cdf78f8-6821-4e67-9385-8a091cc9cf9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[733217, 14153, 236, 6, 21, "Input",ExpressionUUID->"b66a0012-a40b-4041-8ea9-a9cad40db85f"],
Cell[733456, 14161, 301, 8, 38, "Output",ExpressionUUID->"9744135b-7d1f-4023-b02d-1bdf3b29d60f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[733794, 14174, 419, 12, 23, "Input",ExpressionUUID->"7ceb4bac-ce7b-4adc-aeb9-95a215777744"],
Cell[734216, 14188, 720, 22, 40, "Output",ExpressionUUID->"9c7df971-6bfc-41f8-a68e-fb9921c0b017"]
}, Open  ]],
Cell[CellGroupData[{
Cell[734973, 14215, 492, 13, 23, "Input",ExpressionUUID->"07932986-b2e1-477a-9d99-1b9701e3af0c"],
Cell[735468, 14230, 510, 11, 18, "Message",ExpressionUUID->"f0c4d2f9-9d6d-48c0-b78e-b8f84a7f6bb2"],
Cell[735981, 14243, 5864, 115, 181, "Output",ExpressionUUID->"82bf5b22-f54c-4da8-bea6-61b7c42c3450"]
}, Open  ]],
Cell[CellGroupData[{
Cell[741882, 14363, 804, 22, 53, "Input",ExpressionUUID->"13e1541b-4ad9-4a40-89f2-be40a0e4d6fd"],
Cell[742689, 14387, 479, 13, 50, "Output",ExpressionUUID->"dff49a57-ddf5-4e9d-aa0a-55006221f3c2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[743205, 14405, 650, 19, 23, "Input",ExpressionUUID->"6def2df0-3761-4f37-b66f-ba9071b93625"],
Cell[743858, 14426, 534, 15, 41, "Output",ExpressionUUID->"175a2c7c-fa54-45c3-bf4f-c4ed89dad110"]
}, Open  ]],
Cell[CellGroupData[{
Cell[744429, 14446, 302, 7, 23, "Input",ExpressionUUID->"657e079b-66fb-4614-816e-af41b7fabf10"],
Cell[744734, 14455, 454, 11, 18, "Message",ExpressionUUID->"f6532f4e-d02f-402b-985e-f8964b91f90e"],
Cell[745191, 14468, 1129, 29, 31, "Output",ExpressionUUID->"5f2bc73c-3ef7-4874-86b3-dd3ac3e99858"]
}, Open  ]],
Cell[CellGroupData[{
Cell[746357, 14502, 325, 7, 23, "Input",ExpressionUUID->"49f74264-7484-4d5a-b52f-d0892384e631"],
Cell[746685, 14511, 4933, 99, 174, "Output",ExpressionUUID->"26e2807e-1336-4751-8e74-d4414f081679"]
}, Open  ]],
Cell[CellGroupData[{
Cell[751655, 14615, 1059, 26, 47, "Input",ExpressionUUID->"3bd71288-3233-4171-a393-57251fb3dc52"],
Cell[752717, 14643, 6890, 131, 180, "Output",ExpressionUUID->"203873a1-0dd1-4567-8d12-97eeeed127f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[759644, 14779, 1358, 35, 47, "Input",ExpressionUUID->"39644cf7-65fa-4952-a674-714ff8619dd6"],
Cell[761005, 14816, 15118, 266, 178, "Output",ExpressionUUID->"16b2f1f1-4bda-4b9c-9a2d-c4721af32a8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[776160, 15087, 1607, 46, 64, "Input",ExpressionUUID->"72bac293-cf66-40a9-809d-4d0874dae037"],
Cell[777770, 15135, 59065, 1048, 174, "Output",ExpressionUUID->"d758ff21-6281-4951-879d-9a8a224caf38"]
}, Open  ]],
Cell[CellGroupData[{
Cell[836872, 16188, 1002, 31, 41, "Input",ExpressionUUID->"41ea287c-9ee3-4b18-b17d-5dfc6a4e056d"],
Cell[837877, 16221, 3476, 103, 124, "Output",ExpressionUUID->"7b8e54ff-34ea-444e-8e78-ad376945c6d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[841390, 16329, 753, 23, 23, "Input",ExpressionUUID->"77ced036-93d3-4558-8eb2-1aeeb8345ed7"],
Cell[842146, 16354, 840, 23, 40, "Output",ExpressionUUID->"49c3b3ed-cf01-4c58-acac-6b3b7b9cb822"]
}, Open  ]],
Cell[CellGroupData[{
Cell[843023, 16382, 1262, 35, 40, "Input",ExpressionUUID->"1dc20dd2-2639-4b38-8eb3-e39481c6a15e"],
Cell[844288, 16419, 71734, 1205, 305, "Output",ExpressionUUID->"ae6c01c8-9abd-4358-a6f9-fb8f033a8ba4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[916059, 17629, 1045, 25, 40, "Input",ExpressionUUID->"25d7aa57-46b2-4829-8aad-b00b9ab2ecff"],
Cell[917107, 17656, 1385, 34, 40, "Output",ExpressionUUID->"5f0c650e-d3ec-4a10-aad2-c391b45db45f"]
}, Open  ]]
}, Open  ]]
}
]
*)