path: root/new_fitting.nb

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

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

(* CreatedBy='WolframEngine 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       160,          7]
NotebookDataLength[    266505,       5456]
NotebookOptionsPosition[    260551,       5318]
NotebookOutlinePosition[    260886,       5333]
CellTagsIndexPosition[    260843,       5330]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"\[CapitalDelta]", ":=", 
  RowBox[{"15", "/", "8"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Gamma]", ":=", 
  RowBox[{"7", "/", "4"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Beta]", ":=", 
  RowBox[{"1", "/", "8"}]}]}], "Input",
 CellChangeTimes->{{3.7063083106573963`*^9, 3.7063083329533043`*^9}, {
  3.712334405178295*^9, 
  3.712334412851521*^9}},ExpressionUUID->"453b2247-e031-4ce0-942e-\
333cafb9d8bf"],

Cell[BoxData[{
 RowBox[{"B", ":=", 
  RowBox[{
   SuperscriptBox["Tc", "2"], 
   RowBox[{"\[ScriptCapitalM]0", "/", 
    RowBox[{"(", 
     RowBox[{"16", " ", "\[Pi]"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalM]0", ":=", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["2", 
      RowBox[{"5", "/", "2"}]], 
     RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], 
   "\[Beta]"]}], "\[IndentingNewLine]", 
 RowBox[{"Tc", ":=", 
  RowBox[{"2", "/", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "+", 
     RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.710165117000553*^9, 3.710165135845058*^9}, {
  3.710166812248849*^9, 3.710166813704604*^9}, {3.7101686184055443`*^9, 
  3.710168639875917*^9}, {3.712332904286895*^9, 3.712332924319373*^9}, {
  3.712336262642572*^9, 
  3.712336263087694*^9}},ExpressionUUID->"8520f7d9-58a8-45e4-8f09-\
0593a7effe0b"],

Cell[BoxData[{
 RowBox[{"Ch", ":=", "0.838677624411"}], "\[IndentingNewLine]", 
 RowBox[{"C0", ":=", "0.0255369719"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Gs", ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.3578383417066"}], ",", 
     RowBox[{"-", "0.048953289720"}], ",", "0.038863932", ",", 
     RowBox[{"-", "0.068362119"}], ",", "0.18388370", ",", 
     RowBox[{"-", "0.6591714"}], ",", "2.937665", ",", 
     RowBox[{"-", "15.61"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalPhi]s", ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.197733383797993"}], ",", 
     RowBox[{"-", "0.318810124891"}], ",", "0.110886196683", ",", 
     "0.01642689465", ",", 
     RowBox[{"-", "2.639978"}], ",", 
     RowBox[{"-", "5.140526"}], ",", "2.08856", ",", 
     RowBox[{"-", "4.4819"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.710169173253154*^9, 3.710169184053568*^9}, 
   3.710176296470265*^9, {3.7104325222932177`*^9, 3.710432528757256*^9}, {
   3.710501137799197*^9, 3.710501138175331*^9}, 3.710501169167768*^9, 
   3.710511723204533*^9, {3.710511776901121*^9, 3.710511777086232*^9}, {
   3.710513569993368*^9, 3.710513570186606*^9}, {3.710947708992654*^9, 
   3.71094771436915*^9}, {3.71138858519073*^9, 3.711388709847731*^9}, 
   3.712333611380781*^9},ExpressionUUID->"5438519c-7952-4225-a1e4-\
2658de13ea79"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"t", "[", "Tc_", "]"}], "[", "T_", "]"}], ":=", 
  RowBox[{"Abs", "[", 
   FractionBox[
    RowBox[{"T", "-", "Tc"}], "T"], "]"}]}]], "Input",
 CellChangeTimes->{{3.704741683097254*^9, 3.704741703621593*^9}, {
  3.704966329354185*^9, 
  3.704966331937989*^9}},ExpressionUUID->"d44f3e47-dc47-446a-9531-\
356bd4f683cd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{
   "Import", "[", 
    "\"\<~/doc/research/sethna/doc/essential-ising_doc/data/data_square-4096.\
dat\>\"", "]"}]}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/SO46bvZrNeOaybM/Qmi5d467A4B0ldyHPaAaJWL
i6aFAmnFqJkzQXTrfb3sSCBt4s6dA6J9lvItTgbSsRcTwLTBRhn3lUA6JEAJ
TN9dcoJpNZDWZz8Hpv95hHBuA9IH0iPB9Gmmn7v/AumwuX/BtEVM20EQzbx5
Kpj+9+ynBfPs1471tyssQfRlUb7NIJpB5zmYXpR605wFSPckRVmA6OgZnFb8
QPqRQqk1iBZ6xpIhDKQrmU2zQfQ24aDr4iDaJhJM83yVEu8C0qd6XoLpf3OP
TLCY+9qxwuUamN7KXVKzCUhPWNdfB6Kfpb31j5r32vGHWGQAiN5eu6/wDZBu
63kIpt/tLXwRP/+1o55dB5heYvxo30ogveYp134Q/VGb5cZFIH2FMQNM/+jz
uAuiax7lgGkAt+fV8g==
  
  "],ExpressionUUID->"9c43836c-5224-4a7f-b325-f696ee8f0277"],

Cell[BoxData[
 RowBox[{
  RowBox[{"assData", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"Rule", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<L\>\"", ",", "\"\<T\>\"", ",", "\"\<H\>\"", ",", "\"\<E\>\"", 
          ",", "\"\<\[Delta]E\>\"", ",", "\"\<M\>\"", ",", 
          "\"\<\[Delta]M\>\"", ",", "\"\<C\>\"", ",", "\"\<\[Delta]C\>\"", 
          ",", "\"\<\[Chi]\>\"", ",", "\"\<\[Delta]\[Chi]\>\""}], "}"}], ",", 
        "#"}], "]"}], "]"}], "&"}], "/@", "data"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7063080739089403`*^9, 3.706308196943145*^9}, {
  3.706308240016282*^9, 
  3.706308244511922*^9}},ExpressionUUID->"a43d9214-a29f-42c0-be11-\
b311bd30fcba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ht\[CapitalDelta]v\[Chi]t\[Gamma]", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\"\<H\>\"", "/", "\"\<T\>\""}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], ")"}], 
          RowBox[{"-", "\[CapitalDelta]"}]]}], ",", 
        RowBox[{"\"\<T\>\"", "\"\<\[Chi]\>\"", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], ")"}], 
          "\[Gamma]"]}]}], "}"}], "/.", "#"}], "&"}], "/@", "assData"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7084424185475073`*^9, 3.708442466974317*^9}, {
  3.712334432699621*^9, 3.7123344426988583`*^9}, {3.712334506300148*^9, 
  3.712334506475676*^9}, {3.712414174322257*^9, 
  3.7124141746816587`*^9}},ExpressionUUID->"6084435f-1cba-48f5-b83b-\
776c8904b43e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"G2C", "[", 
   RowBox[{"G_", ",", "n_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", 
      RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], "2"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"Ch", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", 
         RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], 
       RowBox[{"-", "\[CapitalDelta]"}]]}], ")"}], "n"], "G"}]}]], "Input",
 CellChangeTimes->{{3.710431611671788*^9, 3.710431807930592*^9}, {
  3.710431856538815*^9, 3.7104318583308353`*^9}, {3.710431919875804*^9, 
  3.710431926395955*^9}, {3.7104319922690163`*^9, 3.710432021645361*^9}, {
  3.710432077446334*^9, 3.710432079534667*^9}, {3.7104321123044033`*^9, 
  3.7104321124801607`*^9}, {3.710432149639596*^9, 3.710432150055525*^9}, {
  3.71043268970404*^9, 3.710432706152014*^9}, {3.710499171168581*^9, 
  3.710499171640834*^9}, {3.7113887207043552`*^9, 3.7113887254325523`*^9}, {
  3.711746644260429*^9, 3.711746646000889*^9}, {3.7123362695709867`*^9, 
  3.712336270395398*^9}},ExpressionUUID->"8012ae8b-f509-4055-88d8-\
6ab9179c5d6b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gs2Cs", "[", "Gs_", "]"}], ":=", 
  RowBox[{"MapIndexed", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"G2C", "[", 
      RowBox[{"#1", ",", 
       RowBox[{"#2", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}], ",", "Gs"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7113887305096493`*^9, 
  3.711388752705145*^9}},ExpressionUUID->"9d6df2e9-b392-44e3-8d2d-\
0d2fbd39108b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalPhi]2C", "[", 
   RowBox[{"\[CapitalPhi]_", ",", "n_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", 
      RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], "2"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"Ch", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", 
         RowBox[{"ArcSinh", "[", "1", "]"}]}], ")"}], 
       RowBox[{
        RowBox[{"-", "15"}], "/", "8"}]]}], ")"}], 
    RowBox[{
     RowBox[{"16", "/", "15"}], "-", 
     RowBox[{
      RowBox[{"8", "/", "15"}], "n"}]}]], "\[CapitalPhi]"}]}]], "Input",
 CellChangeTimes->{{3.711388784468334*^9, 3.711388796618476*^9}, {
   3.7113890628705187`*^9, 3.711389159296204*^9}, {3.7113893315569563`*^9, 
   3.711389481334655*^9}, {3.71138985874389*^9, 3.711389938559081*^9}, {
   3.711389984384206*^9, 3.711390030512754*^9}, {3.711390118386538*^9, 
   3.711390123322785*^9}, {3.711392878404933*^9, 3.711392959726313*^9}, {
   3.711393030990801*^9, 3.7113930689353456`*^9}, {3.7113933770364037`*^9, 
   3.711393405821177*^9}, {3.711393734513516*^9, 3.711393753722184*^9}, 
   3.7113937840344963`*^9},ExpressionUUID->"fe4cc6eb-7a17-4492-88c6-\
d064203dafb1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalPhi]2f", "[", 
   RowBox[{"\[CapitalPhi]_", ",", "n_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", "15"], "-", 
     FractionBox[
      RowBox[{"8", " ", "n"}], "15"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["16", "15"], "-", 
     FractionBox[
      RowBox[{"8", " ", "n"}], "15"]}], ")"}], 
   RowBox[{"\[CapitalPhi]2C", "[", 
    RowBox[{"\[CapitalPhi]", ",", "n"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.71139385111989*^9, 
  3.7113938884129877`*^9}},ExpressionUUID->"1f83e486-383e-46ee-b0f8-\
0bcc636d076a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalPhi]s2fs", "[", "\[CapitalPhi]s_", "]"}], ":=", 
  RowBox[{"MapIndexed", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPhi]2f", "[", 
      RowBox[{"#1", ",", 
       RowBox[{
        RowBox[{"#2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "]"}], "&"}], ",", 
    "\[CapitalPhi]s"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711393802777763*^9, 3.71139382823591*^9}, {
  3.711393894325083*^9, 
  3.711393897628517*^9}},ExpressionUUID->"a7a65e56-b6ca-40ec-81b9-\
c85c27760d23"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[ScriptCapitalY]", "[", 
    RowBox[{"A_", ",", "B_"}], "]"}], "[", "X_", "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Y", "=", 
      RowBox[{"B", " ", "X"}]}], "}"}], ",", 
    RowBox[{
     FractionBox[
      RowBox[{"A", " ", 
       SuperscriptBox["B", "2"]}], 
      RowBox[{"\[Pi]", " ", 
       SuperscriptBox["Y", "3"]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Y", 
        RowBox[{"(", 
         RowBox[{"Y", "-", "1"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"1", "/", "Y"}], "]"}], 
        RowBox[{"ExpIntegralEi", "[", 
         RowBox[{
          RowBox[{"-", "1"}], "/", "Y"}], "]"}]}]}], ")"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.711124441710182*^9, 3.711124530878909*^9}, {
   3.7111245683253117`*^9, 3.711124693735055*^9}, {3.711124986668089*^9, 
   3.711124991547586*^9}, {3.711125054779648*^9, 3.711125060364771*^9}, {
   3.711128839760344*^9, 3.7111288423582163`*^9}, 3.711745351025848*^9, {
   3.712444782668785*^9, 
   3.712444810334702*^9}},ExpressionUUID->"09618fc2-355f-4b7a-bdc9-\
8e7737cc6527"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"c_", ",", "\[Lambda]_", ",", "n_"}], "]"}], "[", "X_", "]"}], ":=", 
  FractionBox[
   RowBox[{"c", " ", 
    SuperscriptBox["X", "n"]}], 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Lambda]", " ", "X"}], ")"}], 
     RowBox[{"n", "+", "1"}]]}]]}]], "Input",
 CellChangeTimes->{{3.711745360060711*^9, 3.711745466429007*^9}, {
  3.712332255645196*^9, 
  3.712332264604857*^9}},ExpressionUUID->"3c937161-0a6e-438d-af4f-\
3dd66630fd12"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"\[Lambda]_", ",", 
     RowBox[{"{", "Cs___", "}"}]}], "]"}], "[", "X_", "]"}], ":=", 
  RowBox[{"Total", "@", 
   RowBox[{"MapIndexed", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"#1", ",", "\[Lambda]", ",", 
         RowBox[{
          RowBox[{"#2", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "]"}], "[", "X", 
       "]"}], "&"}], ",", 
     RowBox[{"{", "Cs", "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.711280376265687*^9, 3.7112804332866573`*^9}, {
  3.711280475060844*^9, 3.711280512109704*^9}, {3.711280550958372*^9, 
  3.711280551654231*^9}, {3.7112811962485027`*^9, 3.7112811998084784`*^9}, {
  3.711281455683463*^9, 3.711281458996625*^9}, {3.711281515084396*^9, 
  3.7112815266039762`*^9}, {3.711281568126196*^9, 3.711281568326316*^9}, {
  3.711281600383168*^9, 3.711281600510542*^9}, {3.711382284101598*^9, 
  3.711382289078205*^9}, {3.71138325877594*^9, 3.711383261815545*^9}, {
  3.711411054298094*^9, 3.7114110558496113`*^9}, {3.711418094014813*^9, 
  3.711418095509705*^9}, {3.7114181830506573`*^9, 3.711418188448765*^9}, {
  3.7117454706317997`*^9, 3.711745559966292*^9}, {3.7117481414510612`*^9, 
  3.711748141715679*^9}, {3.712332281997588*^9, 3.712332282091671*^9}, {
  3.7123323947108173`*^9, 3.71233239659125*^9}, {3.7123324622153397`*^9, 
  3.71233246228836*^9}},ExpressionUUID->"735d5501-1f21-45bd-8ed0-\
f6cf093305c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"t\[ScriptCapitalY]", "[", 
    RowBox[{"A_", ",", "B_", ",", "\[Lambda]_", ",", "\[Lambda]2_", ",", 
     RowBox[{"{", "Cs___", "}"}]}], "]"}], "[", "X_", "]"}], ":=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"B", " ", "X"}]}], ")"}], 
    RowBox[{"1", "/", "15"}]], 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Y", "=", "X"}], "}"}], ",", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"\[ScriptCapitalY]", "[", 
         RowBox[{"A", ",", "B"}], "]"}], "[", "Y", "]"}], "+", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"\[Lambda]", ",", 
          RowBox[{"{", "Cs", "}"}]}], "]"}], "[", 
        RowBox[{"B", " ", "Y"}], "]"}]}], ")"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.711400051541917*^9, 3.7114001452974653`*^9}, {
   3.711401123611092*^9, 3.7114011299546947`*^9}, 3.7114011637948437`*^9, {
   3.711401560507028*^9, 3.71140156086724*^9}, {3.711401645931511*^9, 
   3.711401650828912*^9}, {3.7114016912805643`*^9, 3.711401694636785*^9}, {
   3.711402290374463*^9, 3.711402293474028*^9}, {3.711411058672563*^9, 
   3.711411061746209*^9}, {3.7114110960824423`*^9, 3.711411096570217*^9}, {
   3.711417941830036*^9, 3.711417944365245*^9}, {3.711418028207302*^9, 
   3.7114180292548733`*^9}, {3.7114181957049837`*^9, 3.711418206729879*^9}, {
   3.711745572708201*^9, 3.711745580595965*^9}, {3.711745629448295*^9, 
   3.711745634093555*^9}, {3.711745793281616*^9, 3.711745807111754*^9}, {
   3.711746292570936*^9, 3.711746293098068*^9}, {3.711746326494326*^9, 
   3.71174632777686*^9}, 3.7117464177923107`*^9, {3.711747283012965*^9, 
   3.711747294841539*^9}, {3.711747505898472*^9, 3.7117475236889877`*^9}, 
   3.712332514882201*^9, {3.712334707430091*^9, 3.7123347230054617`*^9}, {
   3.712334807076936*^9, 3.712334813014325*^9}, {3.71233601684032*^9, 
   3.7123360175518208`*^9}, {3.712336047623122*^9, 3.712336047974897*^9}, {
   3.71233798039786*^9, 3.712337993741922*^9}, {3.712338252324432*^9, 
   3.712338281388233*^9}, {3.7123383286857233`*^9, 3.7123383339240847`*^9}, {
   3.7123387438902597`*^9, 3.712338820451537*^9}, {3.7123388776141148`*^9, 
   3.712338924638679*^9}, {3.712340141787671*^9, 3.712340142043068*^9}, {
   3.712340545729707*^9, 3.7123405486970377`*^9}, {3.712341470496182*^9, 
   3.712341474407735*^9}, {3.71234183036593*^9, 3.7123418305810213`*^9}, {
   3.712354555968*^9, 3.7123545563597813`*^9}, {3.712354943966426*^9, 
   3.712354955133952*^9}, {3.712415319222093*^9, 3.712415347484277*^9}, {
   3.712415409126966*^9, 3.712415422437852*^9}, {3.712415854268941*^9, 
   3.712415854838209*^9}, {3.712416016679778*^9, 3.712416017303521*^9}, {
   3.7124170695470552`*^9, 3.712417078618964*^9}, {3.7124193543124943`*^9, 
   3.712419364599393*^9}, {3.7124198922963953`*^9, 3.7124198935297413`*^9}, 
   3.712444751854981*^9, {3.712444814901537*^9, 3.712444817925375*^9}, {
   3.712444931415309*^9, 
   3.712444932206974*^9}},ExpressionUUID->"3cc7a352-8e74-40d2-a8dc-\
c80eb20715ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"coeff", "[", 
     RowBox[{"A_", ",", "\[Lambda]_", ",", "\[Lambda]2_", ",", 
      RowBox[{"{", "cs___", "}"}]}], "]"}], "[", "m_", "]"}], ":=", 
   RowBox[{"SeriesCoefficient", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "1"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", "m"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "+", "m"}], ")"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"t\[ScriptCapitalY]", "[", 
        RowBox[{"A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
         RowBox[{"{", "cs", "}"}]}], "]"}], "[", "X", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"X", ",", "0", ",", "m"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"X", ">", "0"}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.711125517648148*^9, 3.711125596028914*^9}, {
   3.711126666838328*^9, 3.7111266715099497`*^9}, 3.7111268045836067`*^9, {
   3.711128367184978*^9, 3.711128384456789*^9}, {3.711128921727463*^9, 
   3.711128923577119*^9}, 3.711144855567177*^9, {3.711145027742408*^9, 
   3.71114502943013*^9}, {3.711280668446847*^9, 3.711280730409648*^9}, {
   3.7113826612331057`*^9, 3.711382679277907*^9}, {3.711383047597011*^9, 
   3.7113830478424788`*^9}, {3.711384103841185*^9, 3.711384111734256*^9}, {
   3.711384264405143*^9, 3.711384265063219*^9}, {3.711384436088707*^9, 
   3.7113844376716547`*^9}, {3.711384620210237*^9, 3.7113846367455606`*^9}, {
   3.7114004711968117`*^9, 3.7114004803133173`*^9}, {3.7117458319145947`*^9, 
   3.7117458474622087`*^9}, {3.711745892439929*^9, 3.711745895023213*^9}, 
   3.711747513293597*^9, {3.712332645436041*^9, 3.7123326555554657`*^9}, {
   3.7123328272950077`*^9, 3.712332827454815*^9}, {3.712333057523223*^9, 
   3.7123330584827547`*^9}, {3.712334565660677*^9, 3.712334566179604*^9}, 
   3.712334911938224*^9, {3.712334968375413*^9, 3.7123349881834917`*^9}, 
   3.712335636842126*^9, 3.712336613065865*^9, {3.7123393976391163`*^9, 
   3.7123393986389*^9}, {3.712354572622405*^9, 3.712354573142272*^9}, {
   3.712354959270417*^9, 3.712354968646373*^9}, {3.712444271229842*^9, 
   3.712444280599669*^9}},ExpressionUUID->"e24f4a68-986e-4066-a581-\
a6f6c7f2d0d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tail", "[", 
    RowBox[{"A_", ",", "\[Lambda]_", ",", "\[Lambda]2_", ",", 
     RowBox[{"{", "cs___", "}"}]}], "]"}], "[", "m_", "]"}], ":=", 
  RowBox[{"SeriesCoefficient", "[", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{"t\[ScriptCapitalY]", "[", 
       RowBox[{"A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
        RowBox[{"{", "cs", "}"}]}], "]"}], "[", "X", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"X", ",", "\[Infinity]", ",", 
      RowBox[{
       RowBox[{"6", "/", "15"}], "+", 
       RowBox[{"m", " ", 
        RowBox[{"8", "/", "15"}]}]}]}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"X", ">", "0"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711382718702981*^9, 3.71138276838371*^9}, {
   3.711383050014797*^9, 3.711383050242051*^9}, {3.711383486475614*^9, 
   3.711383487219301*^9}, {3.7113841207897787`*^9, 3.7113841220280952`*^9}, {
   3.711384268220221*^9, 3.711384268620213*^9}, {3.711384440253104*^9, 
   3.71138444152641*^9}, {3.7113846272494383`*^9, 3.711384639785527*^9}, {
   3.711400490202056*^9, 3.7114005190520906`*^9}, {3.711400753032037*^9, 
   3.7114007534423513`*^9}, 3.711400829464615*^9, 3.7114008766080503`*^9, {
   3.711401200460012*^9, 3.711401215967461*^9}, {3.71140127622073*^9, 
   3.711401299038*^9}, {3.711401431384166*^9, 3.711401431747507*^9}, {
   3.711401514272585*^9, 3.7114015147667*^9}, {3.711401598631646*^9, 
   3.711401615277038*^9}, {3.711401873244913*^9, 3.711401908855957*^9}, {
   3.711401952182374*^9, 3.711401969867771*^9}, {3.711410990608663*^9, 
   3.7114110720417433`*^9}, {3.711417992798225*^9, 3.7114180029502907`*^9}, {
   3.71141803721391*^9, 3.711418037366577*^9}, {3.711418106640023*^9, 
   3.711418108269602*^9}, {3.7117458591564293`*^9, 3.711745899593842*^9}, {
   3.71235457920654*^9, 3.712354579718397*^9}, {3.7123549736706543`*^9, 
   3.712354981054162*^9}},ExpressionUUID->"a56bfbaf-960b-4015-a85c-\
09cf0b8bfac6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coeq", "[", 
   RowBox[{"gs_", ",", "\[CapitalPhi]s_"}], "]"}], ":=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"MapThread", "[", 
     RowBox[{"Equal", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"G2C", "[", 
            RowBox[{"#1", ",", 
             RowBox[{"1", "+", 
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "&"}], ",", "gs"}], 
         "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"coeff", "[", 
            RowBox[{"A", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
             RowBox[{"c", "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", 
                 RowBox[{
                  RowBox[{"Length", "[", "gs", "]"}], "+", 
                  RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "-", "2"}], 
                 "]"}], "+", "1"}], ")"}]}]}], "]"}], "[", "#", "]"}], "&"}], 
         "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"Length", "[", "gs", "]"}], "]"}], "-", "1"}], ")"}]}]}], 
       "}"}]}], "]"}], ",", 
    RowBox[{"MapThread", "[", 
     RowBox[{"Equal", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tail", "[", 
            RowBox[{"A", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
             RowBox[{"c", "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", 
                 RowBox[{
                  RowBox[{"Length", "[", "gs", "]"}], "+", 
                  RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "-", "2"}], 
                 "]"}], "+", "1"}], ")"}]}]}], "]"}], "[", "#", "]"}], "&"}], 
         "/@", 
         RowBox[{"Range", "[", 
          RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "]"}]}], ",", 
        RowBox[{"MapIndexed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]2f", "[", 
            RowBox[{"#1", ",", 
             RowBox[{
              RowBox[{"#2", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "]"}], "&"}], 
          ",", "\[CapitalPhi]s"}], "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.711127768307501*^9, 3.711127777695016*^9}, {
   3.7111283766727448`*^9, 3.711128377696988*^9}, {3.7111284816258497`*^9, 
   3.7111284816982107`*^9}, {3.711131012722617*^9, 3.7111310128725157`*^9}, {
   3.711131057739306*^9, 3.7111310578028603`*^9}, {3.711131165946952*^9, 
   3.7111311660267153`*^9}, {3.711131960721342*^9, 3.711131990641569*^9}, {
   3.711132058898202*^9, 3.711132083083659*^9}, {3.7111321363398542`*^9, 
   3.711132155308148*^9}, {3.711132193205224*^9, 3.711132196106987*^9}, {
   3.711132401064698*^9, 3.711132407496299*^9}, {3.7111324534170637`*^9, 
   3.711132453512753*^9}, {3.7111331754354*^9, 3.711133181724448*^9}, {
   3.711133732917274*^9, 3.7111337748935003`*^9}, {3.711133832767126*^9, 
   3.711133835918847*^9}, {3.711144591615869*^9, 3.7111445918151817`*^9}, {
   3.711144909236732*^9, 3.711144909372231*^9}, {3.711280742761245*^9, 
   3.711280748577429*^9}, {3.711280839939365*^9, 3.711280850923047*^9}, {
   3.711382786464031*^9, 3.71138280952666*^9}, {3.7113828400460377`*^9, 
   3.7113828424829884`*^9}, {3.711382877868333*^9, 3.711382886339211*^9}, 
   3.7113829268554983`*^9, {3.711383125961887*^9, 3.711383126075973*^9}, {
   3.711383483565281*^9, 3.711383489695387*^9}, {3.71138412809828*^9, 
   3.71138412902487*^9}, {3.7113841730654907`*^9, 3.711384188223826*^9}, {
   3.71138422562675*^9, 3.7113842257412*^9}, {3.711384642985208*^9, 
   3.711384653521617*^9}, {3.711384696867886*^9, 3.711384704785922*^9}, {
   3.7114005267610483`*^9, 3.711400587253001*^9}, 3.71140082638897*^9, 
   3.711401282974221*^9, {3.71140201479671*^9, 3.711402219743505*^9}, {
   3.711402363763309*^9, 3.711402367384304*^9}, {3.711406409575788*^9, 
   3.711406418562105*^9}, {3.711410537834981*^9, 3.711410541970874*^9}, {
   3.711410630708232*^9, 3.711410641729927*^9}, 3.7117457104609213`*^9, {
   3.7117458841467867`*^9, 3.711745910024816*^9}, {3.711746207521892*^9, 
   3.7117462119921637`*^9}, {3.712332776039748*^9, 3.7123327808388968`*^9}, 
   3.712338154642107*^9, {3.712354151450596*^9, 3.7123541515700703`*^9}, {
   3.712354236259856*^9, 3.7123542424513407`*^9}, {3.712354986415963*^9, 
   3.712354990287594*^9}, {3.712444490417069*^9, 3.712444492633418*^9}, {
   3.7124449517274313`*^9, 3.712444964327435*^9}, {3.7124451511488533`*^9, 
   3.712445155450884*^9}, {3.712445520812173*^9, 3.7124455251061563`*^9}, {
   3.712447007906191*^9, 
   3.712447011001156*^9}},ExpressionUUID->"92da139b-a52d-4447-9324-\
99e506e4eec1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coeffSolve", "[", 
   RowBox[{"gs_", ",", "\[CapitalPhi]s_"}], "]"}], ":=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"coeq", "[", 
     RowBox[{"gs", ",", "\[CapitalPhi]s"}], "]"}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"A", ",", "\[Lambda]"}], "}"}], ",", 
      RowBox[{"c", "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"Length", "[", "gs", "]"}], "+", 
           RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "-", "2"}], "]"}], 
         "+", "1"}], ")"}]}]}], "]"}], ",", "Reals"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.710187645373934*^9, 3.710187671781014*^9}, {
   3.710187714694552*^9, 3.710188080676458*^9}, 3.710188310648212*^9, {
   3.7101884321961327`*^9, 3.710188455017291*^9}, {3.711125814630831*^9, 
   3.711125829480744*^9}, {3.711125990185895*^9, 3.7111259902981167`*^9}, {
   3.711126411297247*^9, 3.71112641160216*^9}, {3.711126675478744*^9, 
   3.711126676893127*^9}, {3.71112678535808*^9, 3.7111267872720537`*^9}, {
   3.7111271649423943`*^9, 3.7111271657720947`*^9}, {3.711127784151555*^9, 
   3.711127785415187*^9}, {3.711128390641011*^9, 3.711128391329144*^9}, {
   3.711128477114607*^9, 3.711128477274085*^9}, {3.711131062570588*^9, 
   3.711131062641337*^9}, {3.711131161684704*^9, 3.7111311617960978`*^9}, {
   3.7111312178129873`*^9, 3.711131238180999*^9}, {3.711131775254218*^9, 
   3.7111317757418547`*^9}, {3.711132349408059*^9, 3.711132349582994*^9}, {
   3.711132394536049*^9, 3.711132394735704*^9}, {3.711133737435302*^9, 
   3.71113376923734*^9}, {3.7111338406382837`*^9, 3.7111338581907167`*^9}, {
   3.711134488665099*^9, 3.711134489648821*^9}, {3.711135170475876*^9, 
   3.7111351741398*^9}, {3.711142432245284*^9, 3.71114243898098*^9}, 
   3.711142950557087*^9, {3.711142991469988*^9, 3.7111429916378317`*^9}, {
   3.71114459782337*^9, 3.711144597999036*^9}, {3.711144700609076*^9, 
   3.711144700792609*^9}, {3.711144912466927*^9, 3.7111449125636578`*^9}, {
   3.711145133943836*^9, 3.711145134415825*^9}, {3.7112808379851093`*^9, 
   3.711280855433352*^9}, {3.7113828527074747`*^9, 3.711382852806621*^9}, {
   3.711384228452677*^9, 3.711384244958742*^9}, {3.711384656769746*^9, 
   3.711384702282771*^9}, 3.711387237369863*^9, 3.7114009024351*^9, {
   3.711402106280443*^9, 3.711402111019196*^9}, {3.711402317036561*^9, 
   3.7114023259426947`*^9}, {3.711402374902124*^9, 3.711402377663019*^9}, 
   3.7114043707832108`*^9, {3.711745930473428*^9, 3.711745931147093*^9}, {
   3.711747231465534*^9, 3.711747241851837*^9}, {3.711748272260783*^9, 
   3.711748289728723*^9}, {3.712333084492065*^9, 3.7123330916760817`*^9}, {
   3.712333437555957*^9, 3.712333563437696*^9}, {3.712333648783169*^9, 
   3.712333706390777*^9}, {3.712333793785727*^9, 3.712333802977302*^9}, {
   3.712335610010169*^9, 3.712335611410121*^9}, {3.7123541116649923`*^9, 
   3.712354118696906*^9}, {3.712354247643244*^9, 3.7123542477067413`*^9}, {
   3.712444455976335*^9, 3.71244450800416*^9}, {3.7124448370949306`*^9, 
   3.712444838629472*^9}, {3.7124448993824177`*^9, 3.712444920982739*^9}, {
   3.712444976607883*^9, 3.712444988153257*^9}, {3.7124451425056543`*^9, 
   3.712445142849566*^9}, {3.712445517415395*^9, 3.712445517495449*^9}, {
   3.712446999952668*^9, 
   3.712447004336327*^9}},ExpressionUUID->"d1c2ab88-8346-4b96-8358-\
7032ddc9b592"],

Cell[BoxData[{
 RowBox[{"n1", ":=", "6"}], "\[IndentingNewLine]", 
 RowBox[{"n2", ":=", "1"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwl0Xs01AkUB/BJsbukbZxJaSMiOVJJmrXCGAlJWE20k7JJxNhFm9MwNnph
U3mVJhWxHYYeqlMTk12Pdns4nWJUjLVi2h0xIY9SsWt/37t/3PM593vuuX/c
axEeF7RLh8ViSZiCac633KLLtPz1mjby3dBN4xhGZ+8asj3sC3MYtL6UdOH1
2UKvVedXwS0tV0OhrekNUpuQvwOW1RSTLNW+Kvja8vNrlCdxTUWMDancRVA2
vdsOxpZkr4DJJl9eh9cHnEkXyfx6eM7xQwN0P3qxGTbvrCDzAj91j2VcYDWT
tI8pDoCPxaVkcuugELb3DJP7r9hEwQ6DZaTGr14EhRVV38OrZ4VnYbS69hzk
5BrdhWJLY3LeWslD6HPKuwnqT5v7HF4sSlHBH+7k9cPCgMRhKC8d1f+OMTBi
ipwzXBYBg3Iuk9Yvs8SQH16SBD+2ZufAPsOcPJjR9egK5F55QvoPVN6D/y4z
fgClc2e3wjwzI/KIdclkPKP3oTKy0Fj3ZAKjVXtHAbQp/kYN06IkpGt1kAam
qy21MCFY4LSH0cgihPTUW7od5st9voXldaezYOjxQjJSnJUN557LJdUigVaD
v6/eRkaKWQa9jNuXp5MWbkpb6LVxjz08NPFIAHVSmkn/tNp86JddR8a2nK14
xTiuKiI1h/5pgbOCpynhm9CLgiHGX81lpMvu1GSY1Nspgdl3eSXQjBvwvyPh
Kth9fqsaWlj4rnqDu/D9yUbpcjdY+ZUD+fH4gZHT5Vp+V+rXozA9Z8pAynhJ
PGMmPNo3ZgVnBHvYwmOC7SugvcrOAe7KmhEHAzbok4My4U3IXhBGyoUdTdDB
cs0jWPq+vRd6KPvIoxFTWujke2oUZmRKWGcYxYo0MnMswwg6Hv+DA/efqZoH
lZm/mUL/Hyctod4bEyvYpPWLKWS02RBE3p0V6S6XafnLlQmkTN2ygfrxZ+Qr
x7ZLUPF+nOTuezEIpW49pJdT/nsYnlFAVrrWKW8j92skOxQu3fD+QTey/nFf
RDXjQs1LEZzpt1ivhlHngSfp/FHGhtz0S+SeSZ+FMK050RrqGW1yglGyYHK0
KMUN5g8J3KHy2eJ1kBNY4wXtsl7uh39u+yQVPg1ekQk382LJwVi2FN5ZYk3q
XI6+DZPlBeTh3FRzBfbM4i2Cg4d3aOoZhSd3kic2HuiHi6PTSTOPTcOwPmoX
meQX9pbmeLtJVliiTgPju/EksvDJbEOYIrEkO6/1mUBr6QTpmWJnDo/l25M3
HYaXwaDqXFdo7NEYAmNC7pF7WyuS4E8T10jzG5PlUMGbIneU8x/Coq5+Uoc9
4tnGOF8r84bq9siOLsbaKIdOeEKRmv0C/31+mOT4ci/Ae+XrSqGRCacKVq00
IWtVrb/ArFvtpLCiQt7NWJ3zdw0csw007GHcVhBCZjT0smFt2QBpo367GSY2
TZKh7N9HXjOauvSMwqLPfv4AY9feJk1dV0/B3ck8MjFKojfAuCR6qz7U11xl
w8rVbA400/3LFq6cmL4UpjRKubB4vYK8sPP6Ouj7gO8L/SdFB2FbZzy5N6E5
Dz6re0pqgw1K4Br5bJLlpVsJzfUcyDHdoRp4fssIyRGNuQ4yDj2fIOdbL4qE
AtOlZKRPrQiOOKrIOfGX42B1wX3yPzu/TIw=
  
  "],ExpressionUUID->"8ba3b735-f852-4740-89e2-f8c994bad666"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"coeffSolve", "[", 
    RowBox[{
     RowBox[{"Take", "[", 
      RowBox[{"Gs", ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"2", "+", "n1"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Take", "[", 
      RowBox[{"\[CapitalPhi]s", ",", "n2"}], "]"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.711402337632412*^9, 3.711402351662695*^9}, {
   3.7114023967578573`*^9, 3.7114024042290993`*^9}, {3.711402530271908*^9, 
   3.711402530448357*^9}, {3.711402973108058*^9, 3.711402973282971*^9}, {
   3.711404378367446*^9, 3.711404383905211*^9}, {3.711404441194911*^9, 
   3.711404441698839*^9}, {3.711404527701469*^9, 3.7114045282460318`*^9}, {
   3.711406208078418*^9, 3.711406237139463*^9}, {3.711406433285026*^9, 
   3.711406446136756*^9}, {3.711407032828783*^9, 3.711407033572945*^9}, {
   3.711407114582775*^9, 3.7114071329362583`*^9}, {3.711411115426866*^9, 
   3.711411119610133*^9}, {3.711417881117146*^9, 3.711417881827758*^9}, {
   3.7114179119648952`*^9, 3.7114179121243362`*^9}, {3.7117459506504517`*^9, 
   3.7117459660158567`*^9}, 
   3.712445710306643*^9},ExpressionUUID->"75b34247-c730-423b-886d-\
59f5cb6deb5a"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ratnz",
   "\"Solve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"",2,426,97,30792052569587397139,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.712444854547719*^9, {3.7124449691448708`*^9, 3.712445010621546*^9}, 
   3.712445158417512*^9, {3.712445530262022*^9, 3.712445543121759*^9}, 
   3.712445592274822*^9, {3.712445705808455*^9, 3.712445710756302*^9}, 
   3.712445778931396*^9, 3.71244590563651*^9, 3.7124469661051273`*^9, 
   3.7124470149985113`*^9, 3.712447286922311*^9, 3.712447330073927*^9, 
   3.7124473606150637`*^9},ExpressionUUID->"c9598ffe-1b6f-4d29-a03f-\
f11061c66e05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"resol", "=", 
  RowBox[{"Select", "[", 
   RowBox[{"sol", ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Re", "@", 
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ">", "0"}], "&&", 
      RowBox[{"AllTrue", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
        StyleBox[
         RowBox[{
          RowBox[{
           RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}],
         FontWeight->"Bold"]}], "]"}]}], "&"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711126827992573*^9, 3.711126845896306*^9}, {
  3.711383601704068*^9, 3.711383619609501*^9}, {3.711747647769277*^9, 
  3.7117476511440487`*^9}, {3.712332422688661*^9, 3.7123324227838182`*^9}, {
  3.712335588842856*^9, 
  3.7123355892479343`*^9}},ExpressionUUID->"6dea207c-d325-4f70-83ed-\
c79db3de75a8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"A", "\[Rule]", "1.9587948504211927`"}], ",", 
    RowBox[{"\[Lambda]", "\[Rule]", "13.406002473610284`"}], ",", 
    RowBox[{
     RowBox[{"c", "[", "2", "]"}], "\[Rule]", "0.005982642818925599`"}], ",", 
    
    RowBox[{
     RowBox[{"c", "[", "3", "]"}], "\[Rule]", 
     RowBox[{"-", "0.0035566417258866543`"}]}], ",", 
    RowBox[{
     RowBox[{"c", "[", "4", "]"}], "\[Rule]", 
     RowBox[{"-", "0.15416659855707585`"}]}], ",", 
    RowBox[{
     RowBox[{"c", "[", "5", "]"}], "\[Rule]", "2.9857410707789906`"}], ",", 
    RowBox[{
     RowBox[{"c", "[", "6", "]"}], "\[Rule]", 
     RowBox[{"-", "51.636467816428926`"}]}], ",", 
    RowBox[{
     RowBox[{"c", "[", "7", "]"}], "\[Rule]", "239.3186208235674`"}]}], "}"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.71112684772051*^9, 3.711127167502366*^9, 3.711127263563253*^9, 
   3.711127734852036*^9, {3.711127891343577*^9, 3.711127965598741*^9}, 
   3.711128277679661*^9, 3.711128427260337*^9, 3.711128512593253*^9, 
   3.711128849804503*^9, {3.711128927459*^9, 3.711128956559329*^9}, {
   3.711129835176065*^9, 3.711129874486671*^9}, {3.7111299479001503`*^9, 
   3.711129959916041*^9}, {3.711131002485588*^9, 3.711131079106924*^9}, {
   3.7111311389116373`*^9, 3.711131169122946*^9}, {3.711131220502434*^9, 
   3.711131240199974*^9}, 3.711131270758545*^9, 3.7111317885930643`*^9, 
   3.711132201548139*^9, 3.7111322402806873`*^9, {3.711132411047985*^9, 
   3.711132425680193*^9}, {3.7111324558088093`*^9, 3.711132474911468*^9}, {
   3.7111325115956306`*^9, 3.711132534409734*^9}, {3.711132892133135*^9, 
   3.7111329029155416`*^9}, {3.7111331770233517`*^9, 3.711133209422481*^9}, 
   3.7111332613681793`*^9, {3.7111333615537786`*^9, 3.711133389015579*^9}, {
   3.7111334995121813`*^9, 3.711133581590208*^9}, {3.711133785056485*^9, 
   3.711133788077322*^9}, {3.71113384350084*^9, 3.7111338673752127`*^9}, 
   3.711134495488867*^9, 3.711134661391077*^9, 3.711134853561689*^9, 
   3.711135031744586*^9, 3.711135089875717*^9, {3.711135280319158*^9, 
   3.711135286870617*^9}, 3.71113538603419*^9, 3.711141863168076*^9, {
   3.711143057840811*^9, 3.711143095814589*^9}, {3.711143720717564*^9, 
   3.711143770254261*^9}, 3.711144387985478*^9, 3.711144608495792*^9, {
   3.71114467984442*^9, 3.711144707200704*^9}, {3.7111450476995983`*^9, 
   3.7111450577050123`*^9}, 3.7111451251136637`*^9, 3.711145754477867*^9, 
   3.7112807678757153`*^9, 3.711280863336578*^9, 3.7113830543241463`*^9, 
   3.7113831311889887`*^9, 3.711383276414392*^9, 3.7113833895280037`*^9, 
   3.711383493010149*^9, {3.711383612000029*^9, 3.711383645784315*^9}, 
   3.7113838010599527`*^9, {3.711383898638966*^9, 3.711383945317296*^9}, 
   3.711384727087088*^9, 3.7113869314470177`*^9, 3.7113872589905567`*^9, 
   3.711400627259748*^9, {3.7114007605396957`*^9, 3.711400775924486*^9}, 
   3.711400833514181*^9, {3.711400893884923*^9, 3.7114009307848387`*^9}, {
   3.711401141410986*^9, 3.711401170327198*^9}, {3.711401208213293*^9, 
   3.711401228253015*^9}, {3.711401287449333*^9, 3.711401302493699*^9}, 
   3.7114013965571957`*^9, 3.7114014364872923`*^9, 3.711401519161151*^9, 
   3.711401566139608*^9, {3.711401603041353*^9, 3.711401618375593*^9}, {
   3.7114016629357853`*^9, 3.711401752478468*^9}, 3.7114024261590776`*^9, 
   3.711402887868083*^9, 3.711404385969921*^9, 3.711404445271946*^9, 
   3.7114062190153313`*^9, 3.711406647910049*^9, 3.711407037353334*^9, 
   3.7114071177492943`*^9, 3.7114071823978357`*^9, {3.711411106194289*^9, 
   3.711411120569405*^9}, 3.711417883069405*^9, 3.711417917110334*^9, 
   3.711745989010577*^9, 3.711746158819243*^9, 3.711746302961667*^9, {
   3.711746335454427*^9, 3.711746394301255*^9}, {3.7117464247171373`*^9, 
   3.711746452126339*^9}, 3.711746938262602*^9, 3.711747244222775*^9, {
   3.7117476336860323`*^9, 3.711747651528306*^9}, 3.711747684143216*^9, 
   3.7117479061889973`*^9, {3.711747942075696*^9, 3.711747988377726*^9}, 
   3.711748024304606*^9, 3.711748248784582*^9, {3.7117482974278507`*^9, 
   3.711748347467708*^9}, 3.7117484114110537`*^9, 3.71174847986862*^9, 
   3.711751018643577*^9, 3.712331922955222*^9, 3.7123322940326033`*^9, {
   3.712332399460648*^9, 3.712332423074317*^9}, 3.71233246600548*^9, 
   3.712332520873538*^9, {3.712332649515435*^9, 3.712332661756093*^9}, 
   3.712332933216043*^9, 3.712333060519957*^9, 3.712333689179837*^9, {
   3.712333778890033*^9, 3.7123338084750433`*^9}, 3.7123345771941957`*^9, 
   3.712334710657847*^9, 3.712334876241708*^9, 3.7123349794758463`*^9, 
   3.712335372009775*^9, {3.7123354625234337`*^9, 3.712335481396208*^9}, {
   3.7123355792070637`*^9, 3.712335589454562*^9}, 3.712335624062875*^9, {
   3.712336025759777*^9, 3.7123360512912273`*^9}, {3.7123366803727427`*^9, 
   3.7123367384648867`*^9}, {3.71233816281131*^9, 3.712338284799004*^9}, 
   3.712338338713687*^9, 3.712338372063933*^9, {3.712338420996147*^9, 
   3.712338436058208*^9}, {3.712338475139687*^9, 3.71233849101685*^9}, 
   3.7123402325531673`*^9, 3.712354251462027*^9, 3.712354325872079*^9, 
   3.712355015753613*^9, 3.712419777254176*^9, 3.712444516287922*^9, 
   3.712444560739027*^9, 3.7124457117055693`*^9, 3.712447016892515*^9, 
   3.712447287159154*^9, 3.712447330096336*^9, 
   3.712447361096211*^9},ExpressionUUID->"f96cb453-4aad-4678-95fd-\
d5b0d301ffe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[ScriptCapitalY]", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Pi]", "/", "2"}], " ", 
           RowBox[{"C0", "/", 
            SuperscriptBox["B", "2"]}]}], ",", "B"}], "]"}], "[", "Y", "]"}], 
       ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[ScriptCapitalY]", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Pi]", "/", "2"}], " ", 
            RowBox[{"C0", "/", 
             SuperscriptBox["B", "2"]}]}], ",", "B"}], "]"}], "[", "Y", "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"0.0705991", "/", 
               RowBox[{"(", 
                FractionBox[
                 RowBox[{
                  RowBox[{"\[Pi]", "/", "2"}], " ", 
                  RowBox[{"C0", "/", 
                   SuperscriptBox["B", "2"]}]}], 
                 RowBox[{"2", " ", 
                  SuperscriptBox["2", 
                   RowBox[{"11", "/", "16"}]], " ", 
                  SuperscriptBox["\[Pi]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"ArcSinh", "[", "1", "]"}], 
                   RowBox[{"15", "/", "8"}]]}]], ")"}]}], ")"}], "15"], 
            "Y"}]}], ")"}], 
         RowBox[{"1", "/", "15"}]]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"t\[ScriptCapitalY]", "[", 
          RowBox[{"A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
           RowBox[{"c", "/@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"n1", "+", "n2", "-", "1"}], "]"}], "+", "1"}], 
             ")"}]}]}], "]"}], "[", "Y", "]"}], "/.", 
        RowBox[{"resol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"0.0705991", " ", 
        SuperscriptBox["Y", 
         RowBox[{
          RowBox[{"-", "14"}], "/", "15"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Y", ",", "0.001", ",", "10000"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.00001", ",", ".05"}], "}"}]}]}], "]"}], ",", 
   RowBox[{
   "ListLogLogPlot", "[", "ht\[CapitalDelta]v\[Chi]t\[Gamma]", "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0n0sFHAcBnCZUq1DzssfdBOtu63M65VWydlSbKldijIvveiF7OT1vJXp
Ni8jZaWbq5MUV/TCysUuVtHRJtoh0yKLVJxTbipv9Xu+fzz7/Pf88zzrj0vE
MaYmJiZCFujvyZ8/Wz0hEmi/WMQy3UOabGHb0Bz5yrzVDer8sj2gIWdQCBuT
67fAD2WemVCQHHYJzvu65MEMdVE+1F5dpoBH6/LIsJlPvDim88URspl73RUm
KORk52bBOxhZoiDN1hZUnGNqcn+o4JJk+hHkd3V3wDUbYnrjmVH+XeR+WfFi
AnM2MnAJLrqNl55nBlv+uQZrX1aPQbvWmknotTJjWyIzZ1U2maa5FQId3laS
ywtf9DxlfnSp64MHFryHoLxUOQyPmPcPf0Xf7OURqKk6wR9nKnfvE8Cs3Puq
b8wF3WMys57TA8Upr8m2KqdQA7PB40I4vF3WFAujjZ3klbR1CugcwSfNRR0t
MChqVyv8rrLVGWgvMTkpMRuFA4HWZPSMymcaPZ4p2+EoV5QI42t7k+Cbu9Is
uDpdRvqXu7v+ZKbaF5BBBo4QaktUO2BAuqX1L2a+rQPpY4zbA7kcKal09JPC
7vBT5ODWm7nQovSYDHqHJqUamfZjqaQyh9P2m+no1d8BW7LkczdqJkROz9Sm
cmbaE+FG2FfPE8ABzdhOWMe18YVFAZ/18PChB1PQWV8sKWdaFVaQm+4N7m1U
sV8lD5GSWruDaqaTupgskeT/hW7B0n/w/Rldw3Omd7tpM6w0iqehTWQE6X5H
ytEzG1eEWMH2h/qTU0yeVHYa/gdpr96K
  
  "],ExpressionUUID->"e92029ad-cc6c-439d-99f4-348213864b01"],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      TagBox[{
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV13c8le0bAHAj2xkch+Mc8+AklFLRq3KOEgmVmazM7KxQiWhoGT/ZMlJW
VpGV0XMpEpUV6TUyQqWyRyF+9/vX+Xw/9+d5zj2u67qvR9bRx8SFg42NzYid
je2/X/a+y9fuZNMgo4aRL2yJg8v/jj68lE6DrfejLcSRlwd0X3ok00C6hsEj
hOz3uWjU6h4N9kXX5okh/xwhshtE0+BC60gMAfnsl0CZ/bdo8GAqXkYUeXSi
n6l8jQZnJqYSJZBtvjHP0MJo4LDw7IUI8sepnDCBizQ4f01VgYZcvPHuYtRJ
GjTcVvosh2zBkPSN2aRC0dNn0urIXYpXY8NWqYBjGPjtRDZU/lp6bokKC0JG
r/Yiv95u2G43SwXZNF6u/cjaO8t+Hf9BBWws7/Z/4/VqojjmJBUy0i41aCKr
7w1RUR2lghzTZJSJXKYxYiA9SAXPCeWU/8ZVNI94EvqosPH7Uul/4+zHvc/+
r5QKQR9k7un/N9/ABpt7tlR4l+7jYodcnX8vhGxJhXT29lpr5Jf/uqalmFBh
2uaGsAPyp4PCnzL1qPB7+GabEzInt6tp0S4q7OjosnJHtkoiHmviooJAb8ji
eWTeaieN5RJxcJ4wlIxBJn3fZ3GxQBwWko7PRiFL0fCB6w/FYde7XL845D1X
aso5UsThh7plVwLyGT3cDsJVcXijk1h+H7mqr0pe0UIc6pL/XXmM7PybT9hq
gwIu83J5b5DtQtSPaf6hwP0B1bS3yJYbjlepixToUcy8045sEhFbuzpNAR3L
yisdyEZb6uf7v1MgQ8/Npxv56M1vSnXjFPiZruv1AfkQP9np/jAF+tQGbD7+
t9/Ecx+seynQm71m1o+8Mz5N4EAnBaR2DJ4dQFYSbTks8ZYCtbeMTn1Glk9d
CFlvRu8vGvAf/m+9EjIVg4DGg+WdxpApWYY/6+sosDBjdusLsjD9onxGFQVU
X/2qGEcWzM21CS2jwL9O5IKvyDyK3Qm2xRQQfrI6+A258FSamIMVBWYSFFME
TuMgp//1CW1zCjyKf5mIR860Xbgpe5IC54WWpInI95wMf48eocCl3OVyEeQQ
n41Pjrso0G/buCqJbHjTMc2ZlwLPwsJEdyHPVClJulWJweRIauppZHxvFdGx
TAz0NuwlbJB3LBzaYlMsBmMKtId2yF6q1j9OPBQDdTzPcyfkb/l3n2vEiEGN
apnwOeSRlJ/mPGfFIPGLkv115O5LpTF5ZDGw6ZTPLkeeS9G8+oAoBvO9a8mV
yMTq14FpAmLAsF68V4N8fOGzTQy7GFz2+p7wAvmtJ0E56Jco+Jtfa21DbrLx
bTnSLAoaEoO548iVWmpsE+dF4Y2rZwPVCsVL1I4FPx9ReEetyJNCFulXmtxw
F4VTerxcdGT/QLl3lDOisDsicH4b8s5ikRRDfVHwKuzk1kQuFF9RrZAUBZdI
uqsVcuZi3Zlrr8mg8memMgvZ6FCNCbGRDM8Sdag5yOuxFUcy6sjQmx9TU4Bs
rVyiXP2UDIQtd3vKkCmOmStTaWTYDI++04Qc3xEea+JDhkgBob9TyLcKj2Cy
FDKMTxQzDlrjgKGf+laARIZ9+wM1DiE3f/3Zt4Qjw8gvpeN6yBwKCbOtnGTg
873hYYx8OWtM1n9GBLTf/JlzQfZLuHL95WsRaPwT6fg/ZKuw5/pOgSJQeaL5
whTybwmchZGvCAQcrnWYRU6us3fU8BSB0yPWGsvIPb95QgQcRGDtouwODhsc
nAiwKH5mKAJFZKdDVGQdtwX8FnkR6FV69McAebvJ9p6cbhJ8DHaKqES2kZkb
ln1PgnSP5bl65DvTFT8yW0gg/mfeqwn5250DnKn1JMD63iZ8QM55ZaAWnUeC
DGuf4/PI1L0e/wu8hFyTWb7LFgfclHxDXToJeB2C2Z4j7530sHwlQYKvfb0f
G5GdK3Y4s8RIEG6sC23IjSerQjQFSRB67XDhIPLl282FO5aFQTvRVYbdDgfz
q194xdqEweQfKTdD5OEhmeavfsLgmCf+9yeymp5OVJiXMMipwtEV5MinrqZk
V+RA5Xz2MygfrpWOHrIRBmq53G1R5MuKBzYydIXhVkPvGguZGnBKw4wmDIfX
FBNTkC14Yx5DkxDIbISpm9qj+PIr8z2FCcHhdRX3M8gb/T0a08+FYPSZVrEn
cm4J7TXtiRD8ORFtfx150eTxWFCqENhMGiVWIcdlNNG2nxOCgmf31KQccPBO
bS06VUwIXOi46VVkwq/Ac9HCQjCWL+7I64jqYf7s8QicECR33honI3+iTRLc
OYWAi9kltQt5fEtX3L4ZIuwXr3JyQ17/mJfY95oISw7pu/uRVUJMMshBRMiK
fnz/rRMOfPa+D+XzI0JhWpPZAHL5jJ7dX08ifL4SK/sDeZ/zQekJByLsu5Oy
zO+M4sVIMbvCiIjuzfU4A2Qb6Y0cUwUiDEnNZnYiU26anpZ7TIADNpodUy44
eGG1TXxXJgFS4isbNpBddmx+0oonwBhRo0X4LPq/3kJLq1ACbA++rrIf2UCe
wzLOmAC8V7m1o5HDGp9abP7Bg031+Up1VxxMrOHMBo7hYXfhal+WGw6iOr6Q
vjPxMKIY61eNrPbo+YflPXgICEhR6kAOO+ZiKiyNh/ae2L8byJTUehP9BVQn
pcO22buj+qnuaVx9HwfuxKRGRQ80H983x+N/CkLGeQW1Hk8caEwaaluPCUJA
+LXD08j11l275T4Jwj3vykBeL3T/6/ZTnr0SBNVozYMHkfslfo51pwnCmdtH
bAuQOVoJwcL6gmByR4v7hjcOjGVPZcXlCoCsxs5tp31QP5I0EHf6vgCcTy7L
D0a2ErS/LhsnANRbVwyTkJ1X3NzLLgvA/vd1fD3IF95f2t1lisZxv04Z++Lg
wcXMFiKHAFj8qfM29cPBbNfETKwdP5DLXw0FBeAAC912+q4ZP/iHXuxKRY7Z
5v0y8hg/GONJs/XIyhGLCaHq/BCf01PKeR71Uzs5NT3x/FC/t0sjHnkoRua6
7gs+eGzCzKsNxEGbgTXlryQfyO7fFaByAQepK5kRv0l8YB6UpWyO7PZobGqB
jw88m5rIYcjca+4NU0u8ICFpGt6JrF14wfHTe16YFJOoDL6IgxrepOJnobyg
5GrS3XEJ5UtzJ8tjiAcyYw/FF4TiIKFzseBuNw9IP/nOPYh8fYAiVNLCA1kn
4l8QwnDgOGc/OlPGA5zkrWvByFKScxGBkTywUTVSbnAFBynnhV6Fq/JAegvZ
ky0CxYucyZHkCG5gpQvezL6O7tMdQSU1QdzwM0hL6TOyxz9p5H5Pbng5RJGk
3cCB/omxCQkLbhCwM1lIROYO8Y98qMQNAUEq3rGROAjvvtdS8oELrNR+zcbd
wsH5iA/6TQpcQKqy2fopCvUjO/LGs2hcUJio/ZIaje7HgQtXQoS4QJfnUKkt
ctEeqUq1v1vA8SUxZBx57KubTHbPFtjdbD6/FIPi5fjGcui1LXC8+lixYhyq
V7RtORqjnJD4LZqvMxHld8uaFqmPE6xYQ5GSSeh8zrf/O/2OEybVxhw8kV3a
Awh5NZxQ+6hejTcZB+kRLy6J/I8T5iMSDXRTcMD/zdR4TosT6A/sanvScPC1
ImyjMJ0DHpb25x98gOITdqUUx3FAy81c/Szkpnfju0ojOSBfw8uDPRvF3/gx
lzJfDvB0tVFuQbYUEXtXrcMBql+W6ywfofkEPElt+skOocpVjxLycFCqNrLn
8wF2eNWQijtfguajFd8+vIsdvAwNWyeR7xzTdRtlsMNnoTqKVSkOXB2L748T
2UGtNz7w0BMcyNy7wPFjnA0WW19pUstQ/Zwjdq5EsUGKpeC9yQocfLe/9pFe
u4m9VXsat1KP8mnCdSUqZxPrEBgpD2lA83E3pKzEbGJFiQoX2V6g+u1Ptnrr
tIlxGk+tCGDo/K/nDwXgNrELmwYflBpxMJX/drzJfgML/2FSdKsZfX9MkxbO
8vzFQl99NWtrR/Uv4Depa24d+5sVmeTcger3yuCe/YPrmETf6aRN5GK2vCBC
2Tr2YmXug0YXDryF961WW61jOg1n7Mo+4GB6rw07X+kaFi1scq71E8rfyzmE
IrNVTKTZ8178FxxIHplMvM1axUi1BvT94zg4hlOUcFNZxVb0Zn2+IOdmFCkq
bFnF6lcj9dQn0XpflGtnPfuDudbz/x3/hs5rEwLihf9gplI6Kq7TKB+uDvWF
dK5gI5QFwpZV1I8ck7azql/B5m6Q+pqQ54UdxvcVrGDNtoKBkWuoP3o0Prt0
ZQU75NmxT/AvqmdNP/h8VVcwXsuKZVk2PHhxre53jlnGrt5I5g7mxgPzlugD
Q8MlzG263+09CQ+leHH5YPUl7M7x3z4NIniQSKQVZMssYScVBBJKyXj4nS3z
dHlxEWssua+RIIaHp3VK8CBjETPTshb0puFBZkZrZHF6AXOQOjVtLocHdgtX
mYy4eWwHJahNENV530H3nJaQeQzqFcroe/Hw2dFLcd5lHiMMhff/o46HWh+/
nXqa85i3j/Sq5z48+N8OYc2NzWEnMa/Y4QN4GKuPtT+yZw5zLv61lUsXDzf1
fLUHSmaw0QMPh01Oo/cNqIqI35jBjgYqSIdZ4WGP78ykhc0Mdsx8Mq3QGt07
KeeiuvlnsBOYrQGPHR40p7z6Wl2nsWaD8ZIORzxMR7l718j+wjRKa90yvPBg
1u2Ympg4hR1NYtfdE4GHwrN0rw9eU1hkwln67atofWujWkI6U9h6wDPb4Wto
/+QcxqPmv2Mlrf5LsZF44Ak8o3r9xHfs4vj9N+xRaH1iNs3+fN+wYQPWimIy
HmRtzedOhE5gv15bmESX4mHVOwlTMJ7A7r55lLHzKR66w/qi1+QnMKFF4ye9
ZXi4+uC0Uv67cUzL7IGyQiXajy+2Thu0cey9WO3Tf+vw8NDjbG9x7RjmG3dq
d1orHnRnp/1Js8PYua8Jltcm8bAs5EfAkoex+5WGOo7f8JC3e6HIgzmMFdYc
VDg8hQfu4JXxxpjPGHm09B3/NB5a/m5a+G4fwo7t4R0oW8LDUQGh/e89+jHv
CX+mPRcB9Bm7OW9O9GBmF6YCjjIIcHS11Lw9pgfzPK48b6dIAN12pQLyvh6s
1nM4PFiJADpBdKOcOx8w2c/bekt3EID1Wii5UbUbM3ZYvqKuQYBz70bMfy+0
Y7lWNFLRUQIYGFrnjkk0YaWHh5rVvAlQyVyrvStym+mk4P6Gp4EAOb4+dtUp
cczn+dtirmDoeW2HYcX8JKZ+jrbHn0YCRPg9nOVyfMA8+D3RfeE1AURIkfPf
wgqZAucistm6CCBZxAg5ZVPNvGuP7w+fIAB9JQjDv21mBsYkVBJ4iSAvmeXg
wdHL7CxNs+FSJ8J27aKrsla9zFNDTmEFGkRQd6l+9Kmsl6l+8/tfw3+IoF/S
MaHr8JEpctKEknaACOcOsnnIQR9z/UFMq85hItTYOvgPhvYzffax4gdPEsEo
U+7a8T/DzG3a/xiJexOhjmBmIn5hgkmSDbYafUwE3TRpimD2BPPAR/zHhiIi
dMr/GNponWAO5H+6f7+ECOP/XHUfp00y24JVeKzLiIB3fhr+BJtk3mr76Py9
hggONYJPjvB8Y259o35J5w0ReByaBfyTppjBMc8Hlr4SwbRcvbmtYob5Pjm9
zVhZCG7f8KvnGF5kRg1cbGVHfXKFLCXvwclV5jr7s6nyIGFIbvfep+CyyTzv
TTPJ0yDBwyX97eYBHCxntwGbdSkRuOoXi9fcysWKua5lD6JkeBGoonOvmIeV
uV4/fAovCsNlZY0ebvysVoLdvjtK6Ls0KCa+akmQVV64+eYciwJOBRmV8kEE
VugNtroXVuKgeLst9raoEItQuMBSS6KCEcf8uVorYdanOVj1eUUDl2Scv3It
iZXxacp3hSAJhbNm0hYcZJaciIbx4DEpqAivXBTSEWVNfG788/KqNJSp8E/j
ssVYBEdzsa+eMjCYfifu1SSFxUmcrOQSlIVVxU3L53pUVsIu98emtbIw9CPq
KOshjdUk0pApcJYO0/66Y+ETEiz11BXnTG45mCMvZrHrSLEMGXg2/ko5oIe+
5zlwV5oloCJ5RsxSHqJwI285z8qwfqZU1pN/y0O4x4dcPhFZljKf7ra2XAW4
+3jQzKtKlhWvf2VuSY8B3yYMPLSfy7Jeinaotx1jgA697opovSxLfUU7NNOI
ARtpqYXQKMti5dzB6ZkywD/Kgo38XpYVzHN5f4odA6x8OosavsiyLuTdeqsZ
yIBte5s4CEJ01kUTjvLwhwyI9NtNGSfRWTdV2inmuQwYK3m4/bkonfUoISZ8
WwED0hkRlk4SdNYB+GrSXcIAIkWrtHornSX46iOH/HMG/F6tPm2vRWfd1rkZ
09LBAHONrT57teks0iW2LendDCgPSLrOr0NncXadvuTbywCvn+efVOjTWWFb
CtzFBxgwMrSLi8+czrJo/Z+J5yQDDlKzqZ9P0VkZR763M78zIM2CuPOZFZ2l
a0wxFPnJALOOaStbezqr22vpaMMcA8oE7HzVnOisRuXsN3GLDMAffX+D5yyd
pfhJSv/sCgP1AwfuD7qh9Rl5t2muMqAFip6WedJZ8253DQl/GfB/Enr/mw==

          "]]}},
       Annotation[#, "Charting`Private`Tag$145318#1"]& ], 
      TagBox[{
        {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VF8UAHD7PgtjGDPWsUT2SqQyo1CWiCR7tmTLTosolFTST0kohSQh
RaRQ7yhLJZQo2WlIyL5F8bv9NZ/v57557953zzn3PDmPIJsjHGxsbPvY2dj+
/bJ/PR1/KYcGfvck4kXscXD622Duqds0uPXOZpME8mK3yWu/mzTQmX45REQO
6SsadLxGg9xU+Thx5IkBIrv5FXT9EZofAdn7e4Ts9kQaZA7cXSUjDw53MVTj
acC+0hgsiew8yjhMi6GB9rh7hijyl7G8GMGTNCihl6xTkYvXPpxM2k+D152K
lfLIdkpSwcnrVIC+Ews6yJ+U467GrFBBsbbLRAvZQvVHSeACFcS/5Kf/G29Q
t2hxnaYC5261Ln1kQ63SX5bjVKhWTXX9N16zSQzHGKHCcwPta//Gt+pEqWkO
UkHg96cKBnKp7oC5TA8VwoLCA/6Nq+kb+xO+oufhkuL+jbNbHvP+r4QK9K0B
Xqb/5hvx0vmaCxW6l5Y2uyJXPrgWRbangvJ+kYtOyK+/Hc1Mt6GCs+H5ATfk
zp0inXf2UGF/x9+bnsicPEcPFGlToTJAc4MvsmMa0ayOmwrCPmmvwpH5Kj11
Fx9JQLBG6tAVZNJPPbuTBRJwgWJckYQsTcNH/MmVAHVx860pyFvOPC/jSJeA
pTqHG6nIh/fgNAhxEsDGbxZxC/nZ12cKynYSYL/WV/kQ2WuZX8RxjQK2S4Fu
b5Fdo7aa6f+mwF4nOdsmZPs1jzjqPAX2PNExakG2ib1atTJJgdmwWb1W5H1c
NbNdPyngE2+m3Ia898LoxmoWBaTPNSt8Rt4lQPa81U+BDft5yF/+vW9i4Gen
DuR3x4S6kLWuZwru+EgBBeUZqW7kjWKNuyWbKNDUy4XvQ1bImIv6U0+B49+3
qPT/W6+kbHkPUCBGQkZiCJly12KippoCG+Omd35HFqGfVMh6RoE3TSp+LGSh
+/edo0spQPWZcf6BzKvclupSTIEnmyNTRpELD2WKuztSQOSWvYmgAw7yuhqs
DA9SoDjx4m488h2XuQty+ykQGWjTTEC+5mmxPGhMgQn9M4dFkaOC1jo9tCnA
NpdxXwrZ4oJHphcfBSzKel5qIU892yjl80wcjlenbnNAxnc8I3qUikPiwlC1
E7LG3C4u52JxyM6RN3RFDtB0GrfKFQfHRuohT+TRB5df6CaLA122veQY8kD6
xEFeb3F4fcFyOR657VRJcj5ZHCIPNWuVIc+k68dlE8Vh/y+xDRXIxMqGiExB
cajcHyv3HNlyrs85mV0cgMue/gq5yZ+gGvlLDOKeFtu+R65zDm40rheDwJ32
aizkCoNNbMPhYuDttrqN6ojiJUljLiRIDHgv/keXRhbt2jiy5isGUzpaZ+WQ
QyPkP1AOi8Hly9oBKshaxaLpFqZisGvzw+htyIUSS5rlUmJw9TdnpwPynfnq
w/ENZJiUkqDeRd6367kNsZYMst3p0feQ/1wtN86qJoPyuBCtANlJ9ZFq5RMy
5LQ76JQiUzzuLI1lkmHq/NSPN8jXW89etQkiw9eTbgfGkBMLjTE5ChkY0T+O
7XDCgZJpRpMgiQzt++uiDZHrf0x8XcCR4drBK9dNkDkUU6ffcZLBe0agZD/y
6btDcqFTopCvXKl9BDkk9cy51w2iQA48mXkV2THmhalnhCi0iqhl/0RelsTZ
7QsWhbY5ocQp5JvVbh66/qIgKZ3hvIDcvswbJeguCt+LNK3ZnXFgFWZX/NRC
FJ56crhLIBv5zOG5FERBdUKGYI6sbqPentdGgvVfp+LLkZ1lZ/rlmklwkPx4
thr50mT5+J1GErycMwt4gzx6aQdnRg0JPr1wTmlDzntjvulKPgneDzgazyBT
dfz+izhFgq7jA1laLjjgoTywMKGTgF7W0VaJrDPiZ/9GkgSswOsPANmrXMOL
KU6C+5NuV98h1+5/FqUvRIL97sKR3cinL9YXaiyKwJdjZ4fXkWdXvvOJvxcB
TWlnGXNXHPT3ytb/CBGB8oyGtHHkTXuMkmICRKCZfmFgATnhydED5KMisN7B
v5PtMMqH+JLBXc4iMKqoQiMjn1besZZlIgLnv/AnMJCpYYd0bWkiYL1lG+Em
sh1f8kOoE4aHl5WTrd1QfIWUBh/ChGGA/eYrF+S1rnbdyRfCwKbove6LfP8R
rYH2WBg+uSs9jkOet3k4FJkhDFbjeV3lyClZdTT1QGEwfPjBS9IdBx82rV7J
EBcGW4FLS8vIhF8RgVdEhKFtgurL44Hq4YNpy1icMCRYCv4kIXfSRgi+nMLA
/dRCWhOZxfUpRW+KCJsk/tp7I//5kn/jawMRbnn1kjqR1aJsssiRRDiRYGH1
zhMHQTrN0fwhRFBwOMP9Dblsao/rX38iZNu5to4i63ntlBl2J0JX5Lk7fF4o
XvYp55TvI0KB8qK6KbKzzFreAUUifO40p7cgUy4ccJB/SAC9l/bSo0dw8MpR
RUL7DgEKBun8f5CPaKx3GlwnQOL2STzRGz2vo9DeMZoApagU6SGbK3DYp1gT
QHNRKPQSckztE7v133gIrxRp3HwUB8OrONtuMzyo1GTm3/bBQVLrd9JPBh68
h5q3lyNvuvfi8+IWPBi2BU03IceYHTkgIoOHPXYJVavIlIwaG9M5HDx08W13
9kX1c6u/deUtHBRp7tyj6IfmE/zW8vqEEJTOWvl89MeB7oiFodOQEGjLtYeP
Idc4fdos3ykEfSuKuVwB6Pw36aI8fSMEvtqdh7chd0lODLVlCsGVkBn/PGSO
d4TjIqZCwNzwcfzsMRxYyx26m3JfEM67R1baBqF+JK07xeGWIBAnTLTCkB2F
3M7JpQhC5kvn1hRkryUf39LTgqD+RiS2FflE86nNnw4Igk9kX6VFMA6yT95p
JHIIgmRhRJZlCA6mPw1PXXUVAPmb5AchYTjAolUcLtsKgAmJmZqKnKxy7HWC
mQBskjYprkRWjZ1Pjd4qAArdjS5ryN5anPr+eAFQcxtouhKOg95k2XMmr/iB
r2KcoyICB+/NnSh/pfjBXMfNUekEDjKW7sQuk/hB1nKDoBWyz72hsTl+fljo
u/XrODLPqu/LsQU+0Ksp2vse2bDwhEdnMx/oHOVwDTmJg+d8acVPo/ng5Zcw
/XenUL7Uf2T69fJCPGU9JCcaB6kf5wsut/FC69hUdzvyuW6K8KNGXnjG+eUi
XwwOPGbcBqdKeSHtdVVZMLK01ExsRAIvNEWF7zI6g4P0cOE3ZzV5YQuPSMHy
WRQv8jbGN2N5wCd6jpRxDp2nGpGPnkfyQM/P3KIOZL9tmeQufx5I1Bm/JnIe
B6ZWQ8OSdjygJv/J+goyT1RoQu5GHtiw1+h2QgIOzrZda3z0mRse3FZ4lZiI
g/DYz6Z1itzAej0q35KE+hGNfNZdGjcsqoqWEa+g87H7xJkoYW4w+2OWcgC5
aIt0xaa/XGCRe9CoC3noh49sTjsX2I5bXBhPRvFiubYYHc8FnwuiO6RSUL2i
qeTpDnJCVcXqvrobKL8bVw1IXznBw9ejRjgN7U94y7fJD5zwucE/8TDykZYw
Qv5zTqB3kbf/Qb4d++qU6H+cMJuQL6afjgOB0QPWMwaccO6FKu/bTBz8KI9Z
K7zNARLVWaOa2Sg+QTu9OIUDftieOJ6CXPeBpV2SwAF3H285P4eczTI7UhrM
AfWetTIvclD/Jir+odKIA3Y/POhhdg/NJ+xxRt0EOxwRHS84n4+Dkk0DW/p2
sINl62KV5yM0H4PrLf3a7KA4rub2BfmSmYnPoBI73DZmyzAtwcFRj+JbLCI7
wF2jt9qPcSB77QTHOIsNuF9+1OJHRSNlhvhxKYkNitixt+3lOPjpFv+FXrWO
ZUzTtVg1KJ+Gjy4l5a1jOr5Suj4v0Xx8LShLyeuYqYLA9wnkwlCyY5PnOqan
W6a2/Art/7kHvWG4dYxTSuW2WC0Oxh40serc1rCTzr43wurR98ckac6b9y82
eNXI62kLqn9hy6RPM3+wML++hH2tqH4v9WzZ3vMHsy2NOzqKXMyWH0ko/YOV
7jbwlv2Eg2MieiuVjn+we9MzwRmfcTCp48zOX7KKaf3VO/mkE+Xv6TxCke0K
Nr4Y4X/iOw6kjEduXGSuYK2W1G8yLByY4ZQlfdRWsEWqPddb5PtZRcqKXCtY
HcfdNOoIWu+rMsO7T39jEfhw7O0o2q91CLsu8hs7mTz0wXQS5UNc79eoj0vY
s9jHpqzfqB8xk3F1rFnCqNK1o3kr6DwVcWfpFSxhHEUnXL1XUX90jzW9cGYJ
866Q/TT+B9WzunH+YM0lbLDfe4yNDQ8B3CvbvZIXMW5brQe2PHhgJIplW1gs
YCzK/LYCEh5K8BIKx7cuYDLCevh0UTxI3qAV5MguYF/WVdcTyXhYzpF9sjg/
j+VUF28PFMfDk+qNkJ01j/UzVgxMaHiQnTIYmJ+cw+TiQoPV5fHAbndUNitl
FsMO7yob2IyH4B7fvMaoWawlJd/5X93v8whQnj0yiz3u8jTFbcVDVVCI1h79
WYyruXnSQA8PoRejmDNDMxh2v/Zy6Q48DNVcdTPeMoNxb/aV7zDGw4U9wYbd
j6awM77xN6Qd0P26NUUlzk9h4YJW10wd8bAleGrEznkKszHmbIpwwqP+ODCp
TWAKs41zm//kggf9sYCv745OYt2694wyPPAwmeR77LncL6zP2ea9VwAebNs8
Mm7cGMP82HOXFs/iodCbHvA5YAyL7P143jwOrW910EDYaAwjjMWH5sSj9yfv
zkqa/YnxJw35WyfggTfisOY5q5+YAlvi39rLaH3izvWh/KPYQuPDGyNpeJBz
OThjFT2MtThRQo1L8LByLA1TtB7GElZ5HUcf46Et5uuVVYVhrO1yK++VUjzE
ZTtsfPCBhUmJllV1l6P38d3Fc43GwtrKvPKTq/GQ6+fdUVw1hImpm3ebv8OD
yfRkKGm6Hxt2H51TH8HDonAIAbvZj4l/TPcVGsVD/ua5Ij9GP3Yvvv/zxE88
8BxfYtUm92FvqwlJT3/hofHvul2wei/GQ5Iqt1/Aw15B4e3Nfl3Y33t/VDm5
CWCqtJnzwnA7ZjS4zPZdkQB7V0oOtiS3Yyr56QvLGwhg0rKxgKzXji0Zzvwm
biSAUSR9X96lz1hXkLXuHg0CMBuEb9ZqtmGp592KPmwlQOCHgYPLcy3Y4dL4
4h17CWBu4XR/SLIO81+vzakKIEAFY7XqsuhFhnPH7viTNQTICw5yrUxPYXRm
Um5Mv0L/N3TvV36QxhB7517jW0uA2JDcaW6PbIZAg5+VRwMBREkJs6MxhYzC
mJ/3Aj4SQKpIKeqQcyXDqmnXzxEWAehLkRi+qZ4hqS95rIYX9VlSd939ODoY
ik7ZPfd0iKBuWBQn59jB8Oz5cMJElwhbj1Te6yztYKTsXg8Z0yOC6aPWYRP3
LwyN4YzorTuI6DuJzU8evjK0x8/w9e8iwnMX99Ce6C4G91KNe+h+Iuy7Ix9v
+bufwdHtlXc/gAjVBFsbiRPDDA9L6432D4lgkilDEcoZZvzXcHtxcxERPiqM
9669G2ZUMbYLCT8iAmtbnC+LNsLYkpcm2vqECHivJ2cfYyMMIWJhjuNzIrg/
F3pszDvKqDcwGXvcSARe93rB0LQxxjPOJ6u2P4hwoGxr/fvyKYZRj43KjY3C
cPF8SA1H/zzjON+aOtsrYSiXo+Rn719h9PzSWzGNEIGbLcf0FI+sMypkjno+
1yFB7oKp+sEwDqbQsy0JeyRFIS7kKl5/Azczol8n948IGV5FqBldK+Zl+r8i
bNvBLwb9paW1fj4CTIEY4YpweXFwjky+/mxBiJkYvvy8dysFPAuyKhQiCcxd
c5r6K/skQPni+6sXxYSZ609dqIPnqLCPYzawylGEWbrdf2N+MQ2O3MSFqlaR
mDdpntbFM5JQOG0rY8dBZtZL8CuPyEtD+dmKeWEjMeZKjFxPrrUMlKoJTOJy
xJlSVT32gxay0HP7UsqbEQpTNdTpq+SILKwor9u/2ENlRupe4JBIkoPe8aS9
zFwa0+zkcClLgw6ToSZDZ4clmU/HBnenNtBhhjx/l91ImunA/6O2F+00PbqZ
d8dlGeZtl1oNcS4FSMINNHF6yzLtgx7xaGYqwFm/z/f5ReWY9//uej2+QxEu
P+yxDXgmxzRw9f1W1q4Io8PmfoYv5JhSh2OP2X9VBCN69RmxGjlmtWk029o3
RVjLzCiEWjlmpJuSvGm/IoQm2bGRm+WYzQOeTv0/FcEx6GPRy+/ofoMv0gXX
FUFFp46DIExnppkvWHmqKEFCyGYKi0RnSj2lveFTU4KhR7nqL8ToTLtwK50S
DSW4rRRr7ylJZ0Z2fBf7vVkJiBSDksoNdObNuMGWZAMlWF6pdHAzoDODnuiS
qg4owUHdDUE6hnRmalzt8cN2SlAWlnZOwIjO3O3k383loAQBE+GPy03pzJ4s
+WwrVyUY6NXm5j9IZxZfNZYZ9lGCndQcat8hOnOgYfL0JX8lyLQjaj11pDOr
++CbZqAS2LZOOrq40ZlnuVn/nQpTglJB1+BNnnRm+3bdcZlIJcDvbT7P601n
FuRUGtWfUEL9wI5bPT5ovXu8s/yilKARip6U+tOZbDuNFggxSvA/wOjyJA==

          "]]}},
       Annotation[#, "Charting`Private`Tag$145318#2"]& ], 
      TagBox[{
        {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VO0bB3DGvpwZM2PGmCFMSESlLK+3OHpVtlRIki37liVLyZKtRUkv
yhpJopBSCqXOTZZfksqSCllCRdlFEr/n/etcn+s557qe5zr3/b0fBZcAS3cS
Dw+PFC8Pz39P3u7I+PPXOaA34q5YZYtB5IfBgpNXOdBnaW/xFPlnz656nwwO
5Mfo/vlvPehT6aBdKgdoWJXsM+TvAxK8Zhc5cGpd869qZI/PofJ/n+MA+S9L
GoE8OPLRQC2eA4tmUcxGZPuvBk6caA58EZdWAeR3Y4XRYuEcePsse20TctlK
a3jSPg4INUUWdyHbKMsGJq+yoa9OyPUn8luVuEvRS2z4OXLbcBbZXO1Luf88
G5LljS4tIjepm7c5TrFBA5t/+wfZcFPFD4txNiScPtC7hFyrycQMRtnQ0x8r
xXMIA22tiA0bB9F6PZ+xAHKFzoCZXC8bCmMyo0jIG/R2+lK60fu3xoqEkHkt
jnr8W86GGlOjVGnkstCn9qkObBD9tf2kAXJVcWoEw5YNfkcdlvWR6z94Zmda
ssErcv8NI+T322nv83azYbu5ZZ8JMp+gp1XpZjak/2AmWCPbpUuYNgiwQeuT
RpYPsnCVq87PO9KwfVchfzYy/ZuuTfgtaTDLVpj/z2s45NDlAmmQeW63Ix95
66nq+6RMaRgw/pZahOy0G9OgxElD7VyX3wPkR92PFFVspCGy/SxfG7LbogjN
boUF89nS3wTtMHCM0DbV+8WCsv1y2mLItisucew5FvTU/o6jIFvGXnq8NMGC
6IraPTTkPfy1Mx+/seAPw+waE1lbwr/jcBcL2ijbMCVkIZX2yw5lLKglfgUb
IpcczJY6YscCeRv12hjkwo9New0PsGCooN7nNHKew+xZhX0saGe3rp5DTnU1
XxzcyYICupltCnJEwMp7l80sOLH7jHEBsvlZl2w3YRacbdyr3og8+UhV1uuR
FHy5wKNHOYwBueuRhEuFFCjOS43SkTVmd/Dbl0kBr+HnDBay38bD43sLpODu
uVtkLvLX4gs1OslScK+ka7cW8kDm9wNCHlKgRMrKd0BuP1meXMSQgh/MUff7
yNOZenH5ElIwebt9sApZoqopNFtMCtxXJ9yeIlvMfrJP5pWCbJHYmP8hv/Sl
qIX9YAJ/Jo3cj9xgH9i8s5EJ3wRuksn2GDzU1+QZCWFCmK20ahCyW5LGbFAA
E0qt7LedQJb8qDq64s0E77a8b9HIx0LXtrKcmHAv7KT+ReRNZZKZ5iZMuBsx
cLAEuUR6YWOlLBNclz1bRpDz5p44xTcx4FBtW42bA/p/O6otJeoYoD/vPeaH
vHypcmfuEwb8s3Z1TyjyYbU7alX3GHC6+CvlDDLLJW9hLJsBPE8tjG4hp72O
uWQZwIB6lsCzCeRzJTsJBRYDks3/cE47YqBskvVSjM6AaDmaZTJy45fv3fMY
A7qYfmkZyCSly1Mv+Bigl2MjW4IceW1I4dikJHCzHxKvkYMun0qob5IEorzD
VdYJ9Ud0jYlrqCQkNA2sr0delMFs9gRKQtgOgYlW5Iwnzi46vpJQ1reptBu5
c1EoQuyIJKzR1Dj+A3lvsE3ZA3NJ0FR5nSTtjIGR1yyZX1ESNqhmHgtBVrdU
7yxsp4Nz34mDWkdQXslP9yu8osPedzxzO5DPT1SO5zXTQeiF+Y19yF/Pb+PL
qqWDvVW1sR9y4XMzzYtFdOgXLPMqRGZr+fwbepIO30L/2sFywUCQVWy+i0sH
M1tfB4orBlqjPrbPZegAiSNxcshulRpuuBQdhuqJ5xuR6/Y9itATp8OugdtR
+5AjExtLNH7SoKuDEElDnln6LCzVQoPxyawAGTcM+vvkG78E0WCd0yEPQ3cM
NHcbJUX70SAWajdZI5+552nF8KTBvTXCLE9kjfjywR32NGAJf9W4iBypsm0l
dxf6/oHo5Y/I7OCDOtYcGjwMOr77pAfKY+Hk29BAhfmWTLs2T1RfQRWBBwkq
zDgYpwwjr3zs1JmooYKrQPbIEvLNO5wmzl0qcOrUR9Z5YTBneXsoLIsKK6HR
++ORU3IbOOr+VAgwU5o38MagVfP3xSwpKnRu9kh/64MB5Ueo/0UaFYh4YWwM
2bJ4yiIWo0J6s0I+yRflKWeU4s1HheHKqbVbkYf536boTkoAr7tWfiby8rui
K91NEmDV3xbr6YfyPMIylxEmAUcqbout8ccgQOtVlEiQBAznW2fqId+f3O34
x1cCsn1tjA8i67ptlxs5IgFPIsToKchGe1SuV+6RgJf7M20FA1B9yK0UWilJ
wCfRl00LyKyzVofW3qaAxNWO4IUgDJ7ZrZfenEeBS4/V0jjHMHDXWH2vn0aB
xKR3QwbI97tKbO2iKLDrV75kIrKZIsk2ZT8FFGwjm2SDMYiuu2ez+osMdzvD
8vaFYDDyG7PuMSUDudtrti8Mg6TXn+nfDMjQvZKeK3wc/e8bNR0/t5Lh0Tnd
mC3I0abuVjQ5MiyV+kwnIrOyai1NZjFQcx5O/OsEyk9t3/1VOaiPc4re3QhH
+wn8n0Xad3HwKJLlK47EQGfU3PDwkDjkv8rmfYdce/jtlrXvxeGK4yY9gSg0
b3d9ZD14Lg40x1o7N+SPMt+H2rPF4W7JsrNSNOrvF5TjNBNxWD2cDPdPYbBf
4eC1lJtisKJd1Loch+Z/ek/KoRwxmDYLzN4Sj/pb3DlBIUUMGmPSS32Q3Ra8
vCsixUA9akvWB+QTr05ueWslBqVGISWPEzDID89rliCJgepBl++JZzCYejsy
eclRFELEvf9yOo8BEbX+0AVrUTAJrXuTi5y8/mj9GVNRGHzE+6AXWS127nKU
tijkjV87dPgCur9s4tPzJYuCsY+Xrn0SBn3J8gm7nomAsNi3c37JGLSYHWb9
kRWBi+yx8RepGGQt5MUu0kVgwc8hiZaGgdeNobFZEREIusAffxhZ8Lf307F5
YYCmjJAJZMOSEy7vXwkDT3lSMOsKBtXC6WUPooTBOIKtE5WB+qXxDe7TJwRh
Xl25SVcxuPxm7taFdiGY9DWb/4Kc0MOi3mkWAie3iLp/cjFwmXYenKwQghEZ
mcfLyGtkp2NDzwjB84DHf4dcwyAzhPo8ZqMQ7FS9+Ce8ANXLWsudGbGC8KE/
LHb4FpqnGmF3qsME4c6Jnef23sbA569sxkdfQVDU3ct8gmyyd2hExkYQcjpP
t6SVoPNEHDtToCoIMk3Um2ZlGMS0pzbf6RCAzyHdd7vuYhAS22HSoCQAsc7W
xQerMNihUTR8jSMAele2+7ciS/ScOBVBFYDoNOpTw2oMSreueaj5hx+03z6Z
U6/BYOiLl/z1Tn5IsF/pEX+C6sVi5WdUPD+s3J8THXmG8oqzvlBnkA9wP0KE
rxn1d/NvfXo3H5i8eDWRiNwS0vZhopUP6rKe+lP/h/qtLZhSVM0HNpZ1htwX
GFyNfXZS8l8+8JSe3Gn2EgPRr1b7p/X54F2G9oEnrzH4Uhm9UnKVBHYdtRzW
B1SfsDmzLIUEke+d7gNyQ+vw5vIzJGhVKJDy+Yjqb9jUvSKQBA6y8fuJHnRf
kpRqrTIiwY11ljnBn9B+gu9mNXznBZ8hbQv+YQzKNQe2ftrGC53bB5JaJ9F+
9NPa+jfzwv05z4f/TqH5YrrLa1CZF37sa3lxYBoDT5eynGEJXtiiMVszNIOB
fOoJ0vgwDxRsaWgX+onyc1rizUISD3xe5INTyxh8c45/x328ShRmNx5XFyWD
3YjnQlLhKhF1ZOyduBgZWrzNWQvJq8S6z6K6P5BLjjHsXrquEtgJNf4KjAw+
CcV9wdgqkbEnpt+ISoax4pfDDc4rxLCIcGweiwzfJ+izHkJ/CPuq17HyKmSw
D16kv51eJnpEc6nc9WRoXejd+nfvMhFv0vdcUZUMZTxFYZSKZcInZzxNfQMZ
jtJ0l6rslontjW9WzTeRYULLnlek/DeRYa86/1yXDFORhZRS6yUilRLzNQvl
nOzO0SuJ+BLxdcGi/44ZGUwxFRmvDUuEUu/4VL05GW7mlqoo8S8RVxJ0vaYs
0Hmf3Te89uAXkeDfA7ZWZGhYheA02i/C+TR5zMmeDJlxfd0RbxYI/eGSxxYB
ZGg0lXO0q10gTh4z7z0bSIYZ2pFh3VsLxKihpk59EBn23Biemj+1QIy5tlzV
CyEDqWFcJHDjAuGPOf6jF04GP4Glv92SfxJ9cdVDofFkMDjHzDc3nycu/3rR
NJJJhnKytOJx7XniFZ4g65FNBpkrnFvX5eeJieRP4l9zyLB4Xf7ez7k5Yp+B
yZOpPDLce6IK+blzRGn+thjGTTLIT+oPzE3MEk5GMr/vVJCB18ZTPjdlhmDu
sM5UaiXD2d2Bhj13Joml8X9fnROkwKeejZLSpyeJHlf1jXbCFNgaODlqYz9J
7E/Ys1tdlILus/5J7aKTBPXws9z3GAX0xvy6X3hOEGWT62f/YVBgIsn7aLXC
D6L5+KNLRxUpYN3uknXlyhjxx9IhXswIzSWHA9N7o0aIkMZurso5Cpgob+E7
O9JJRMdGHr3HlICHBr8fX5BMNGAZGLotormqKHvtiA+py+D15mqXux1ojlKs
LaVPjBgMFt/7J30vFazuaze2VE4a0Nu4V393USHxdFAtqX/OwL8wQvWXLw0q
FVhF+fuWDFic5S/stXTIaDuqq+S+aqAVLqiaPkCHgnkT9QPBJHyFMzREqpOE
uKBLZL11Anj4/qny1XIGPAvdYJRaJoQfWYl+SclhQn9FRZ2PlyieZRipdvKW
FNiHJac9mhfHVT0eTjWWs8D1Vu5DxTAKHtg5oeZbLQ0qiS2XEplU/EFN+veL
A2zYQ5rxf2xHwzvjSIOfljjgnoEdU3tMx69mvxlS0JSFkilrORsSA5cCJ1KB
7RqojHk4RzVi4s7b7OmqkXJQsUF0ArsuhSdvxLw9HOSh9+r5lOejLJx2M1Vr
bkYellRWbWt2s/Ejn9f3Vl9RgL7xJGO8gIMHtTSQMG0uTBzbNRQzIoOXOTL0
519yYZoxd43XaA3ufHKmvtl/LXCjXgltuyCHr9lgdeq3oCIkYQMv+TzkcaKj
ZcbyqiLE+HTcFJFUwGGPR3GovhJcuN1r7fdIAU+o6sjr6FKCryNmPoY1Cnhz
SlDB8fdKYMR9copZq4Av9koWc3qUYCU7qwTqFPDwNR4PXAeU4FiSDQ/jFXp/
rfj72TElsAt4U/r0swL+jLNlnySPMqzXaiBRqFzcmFY5c0BVGc4EbWEN07n4
kUV3yaUNyjB0p0C9hsnFj6bMaudtVIaryrG2rjJcfJyVGz26VRkkWPrlVeu4
eHiMMOu4gTIsLlUdctbn4hki+scyrZXhgM66AC1DLt5/Xu76toPKcD84PUHU
iItb+bS8GTikDH7fQ+5WmnDxzuHjmuudlGGgb7OAyAEunhNPX63xVobt7Ovs
Twe5+GqRwlZHP2XItpHY9MCOi7ulTHmTApTB+vWEnYMzFz9+obXbNEQZKsQc
AzVdufjAmW7KZJgykI1fnRby4OJP5a8Zp4Uro/zcltPrxcUjLLlxOpHK0Ayl
9yp8ufgM07m2J1oZ/g+0w1Nx
          "]]}},
       Annotation[#, "Charting`Private`Tag$145318#3"]& ], 
      TagBox[{
        {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAABuL7TiGo1z+R43N7QvcHwLsPVFIZ
eOU/EkAMXyI3CsBTsjbFyrTvP3rd/BuhmgzAiYVxvALf9D8N0GC9HfIOwLQh
GKagUPo/u9DfPzy+EMCXzm04JWX/P5sBJ4Sw7RHAovVJLVVzAkDloevYkzYT
wIJxjw46JwVAxezpH3Z5FMC+dSxEkqwHQND//0mfphXA37GxwWpoCkBGgpOE
N+0WwFx2jpO29QxA58w+ohYeGMBjqJ21JHYPQB3CI7L0SBnAKInKj4kWEUC/
JobSQY0awE0C8m66WhJAjFMA1tW7G8Bllw1yK7oTQMXv9+nYAx3AqvBUH1YC
FUAnVAfhIjYewLSAtfQRRBZAH2NQymtiH8CxLAruDaEXQMJwC+IRVCDA3JyK
kcPmGEAJlHpQEewgwPoo/1i5RxpABm8oR8iQIcDd64xIQKIbQE4f87Z+MiLA
7nJG4oDlHECrs0mYWMkiwPEV9J8BRB5Avf/eAepsI8Aifc0HPIsfQOUvAN2e
BSTAjA3gywNmIEBYNT4xU5skwIBq06UJFCFAgPK6Db89JcCLqdxUbLYhQL6T
w1tO1SXA6OVLakG5IUDyqW8a89clwEQiu38WvCFAJsAb2ZfaJcD+mpmqwMEh
QI/sc1bh3yXAcoxWABXNIUBiRSRRdOolwFpv0Ku94yFAB/eERpr/JcApNcQC
DxEiQFFaRjHmKSbAhnEzGOQTIkCGcPLviiwmwOKtoi25FiJAuYaeri8vJsCc
JoFYYxwiQCOz9it5NCbAEBg+rrcnIkD1C6cmDD8mwPj6t1lgPiJAm70HHDJU
JsBVNydvNUEiQM/Ts9rWVibAsnOWhApEIkAE6l+Ze1kmwGzsdK+0SSJAbRa4
FsVeJsDg3TEFCVUiQEBvaBFYaSbAPRqhGt5XIkB1hRTQ/GsmwJpWEDCzWiJA
qZvAjqFuJsBUz+5aXWAiQBPIGAzrcybAsQtecDJjIkBH3sTKj3YmwA5IzYUH
ZiJAfPRwiTR5JsBqhDyb3GgiQLAKHUjZeybAx8CrsLFrIkDkIMkGfn4mwPI0
YYo=
          "]]}},
       Annotation[#, 
        "Charting`Private`Tag$145318#4"]& ]}}, {}, {}}, {{{}, {{{}, {
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.0055000000000000005`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJwVl3k8FW8bxq3Hdubsx7GTrUiorIkZ0mJNJLRIKipUWixtRKEUUZbKD6Gy
lGxRpLmTyJLsokT2PVmy5533r/nMZ2aeuWee+7qv77XG9YztcR4uLq4Zbi6u
/x/VeR/mfn71BV8/0jWfYkgFm43TJVFejajekq3A2HoaNNItC3h+t+MqPdc+
lXtTQR42tbOCe/DtXHfpBxso4Muwr8hwnMFzXWNn+1QRCCjceTDIqRQNWHey
FxOigaGz+JvnNzpRJTFSv90HGlzmttyVRhnCDz5XmpwPocBr6dTU8zJz+L/7
ox/8TRAo95OKYZGycYvKjfu0DGlQcsllvfajcTww4bug5GEKeK65p9YT/Qev
H5f7zlGiQM8NdCSlahF93XBDQGyaAZLv+GN924fR/h1BWwNl6LAizhbwiFxB
/3OsU+25wITjjtaPO3jn0UhHpST7eAa0fr3RwnP8N1rx3FZGJZsOOY1dhXSj
WZTz0ezZ+k0MCLI6dMjUjg873HhXxyKNDeM2P7VcJ3mwR1c7vN0SWJBdfBy5
dpcbu1U3I1VcxYI8Ea2GAas+NH6HbL7iejo0+6o/fqjKhb1JkTXklmBB6IVg
Lwu/KbTDrH/0lyEDah9kSZQYi2CKd65OXEvigHd40JW2n0KY+BGS7EA8B9Lo
2uNP3WjYQbPS/esuSMCYuPHWE6eo2OpFP5H8anGwIY3vVy3kx3poLbgfnyjQ
822UxcToWBvr+iRflwSc2vqbfbuKjm3gva2YS5ICVTPFLxRxAWzzV9nQC/tE
4Vlbz52kNDJW8e5IhvQ7MXhDYm5avsTAbhc4fPFTlwKHEVnPYAEK9sgja0Ba
Sxzkm2+zZy4LYqHxkned1DkwpTavIWnPwTh+13L+85YD694alU8YG1uplaiv
+SEDPY4sq9NqTGyu8mdvyAZpkE2efqEzxcb8Tu3lvnFNFpzUvtfcIYlh7EMX
bQYr5aCgX6zeNpKFDR17rLS6TQbuGlMH0lNFseOzlWLP62VB80JbZK+EBBZv
7+2WXrQGdi9qhHR3MrEKYdLDhxnSIOqbctu+VgK7kuPlxeaVh0ODjeTVIjGs
9tlEpongGqgJm9jufVIcS4hKXqrTXAOP1fM8K69KYuky5w92HJAHwfovT/U1
pLDv62bzu4huX28NtZ2P+CB113ax7hUyVNu5l5St8EPjOKeh8ikZko+ZV3+d
G8EtXpG9llYQeOrV7GvyZRb/oHsej81FILHXS0u0hRtokT8tqwrIsD3TeVj4
/jxuu2GuXvcFBZ62dK4u6PICJ8HJMcaQDJPD5WiCzD8cPZ5dYK+MQHip+rGX
xpM49dhqPRJBAbsIo8BGxyW8Ma+N8qkZAR+K+0t/gWn8R2q0y5YJBKw/pS9t
PMcF/Tau/SvOCJAFFVq2evbjQc6ia2P6KNAQmvbEOLMZz1tsUiytpcIdLcb4
PBqPUuebfNaH0WDjBVHjHTpVKF/CrYCm7TSgjO0+aJrXhhZcdmr5cIUGS61o
ZPPlMTSlZmo2tY0O216lyDl+6MJFYt4alzZToCwT27BZ+SM+MLhfYbKaCkZy
Te55x36hsvqjIyvviec5UbF5vH9Qys8yr+/VdHhQ41phMjmAhne8ihTQpMNa
euSgT9U0KiP08WXGCQYUMqxSRXV4MEFHxenHtSz48ZW9cVMTF/apf8JBO4gF
7jIjDq0Sy6j1hPkSVYIJvHfblf7r/oeGsoN1pg1ZcFFQulLEfgF1jdteEbKR
CSeUbgctxvNitMT4qMFoNjg6N0+WOZOwLVZx09XHRGHTE5Gjzz8IYNFmbw4K
GXBgZW+WbdcSH/Yrvlh0RUoU+vJ3mYQrCmHHLiaKS5Zx4ENQdo9J5F/UdPPZ
qsX3DAjcde/SmVBh7AdJV8nWRgz8SQmFUjkUrEw+3vfBV3FgHzb1PuZJx6ju
4b/sKiSheSw6x25EBOMYcrgWzohBeuk6valiGhYn3a//bkICWrm4XwcK0bCl
B+lvxO0kIFujWl7PCsESj1fL0baIwy8zmsOurwzsEXtgW+omabhsvqGkVZqB
vTvgr7bOWwreRJElk3pZ2JbFHWsmu2VggE8wvjiQiSW5mus2HpKGxAdtbHoM
G5MPsZZ0S5IFu2cKDWqbWNi0fn/QBW4ZULQcnAvaIYpdcl9me1HlIGqcZ+Ps
nChWWDKwxvyCHFx91Rh0X40fXux6p9z+mQwPNlFV9a4s4/1GBoJaKxR4HpnU
Vu3GA7FbC+vCzBHYHeEgIyhJhkqf6Bsr/8jg9Jw/61zhAv7QWn//pS0IKMg4
xx2YEoBfViN2n1+QwcG7I3GAlxv4CjUHUR0Esq9TU7OreIEUrGgwJUqBV2E5
GgpvhGFdya220jEyBAbvPM9nsor3eXbLLMQjoEqrc0XthSCGz+RnWQIZmlbj
nX0jSfAh935A71YEugZ/2atZpeNvWdZpJCMalLPoDilG4/i73dx6PxYQ6JAT
qutWncE7Wnwh9zYCXo6O5ez8QVzmxPq9bCoVBKwuLwWv7cGdXq/7ZsmgQlV4
mUmSYhM6usS31iGCBiuxZuqSx//g1B/KHTtTKJCav4QsSwAa9ynf6twpGtis
LYq8Y1yLY34tN8dVacAe2lgyoNuOZ9WVkxIFaOB7tjgkx+Anej3fuNCSQwfK
grdmxuRfvDTdKNe0FCH0tHCY8WwK1cuWv9JO+FeJLVMxDn6jje9Vil22MaCy
ZTN6am4R7d3+dKdnABO+Kfvz8GiPoFyrnpJnvengLZmgfzajD30+ZfxW6jDh
f6oWCe0es6hT/t63hyIYkO0myeWaxo2N0ALktF+z4FjO28CUjfPozkyVhmgz
Jkxr+XRtLl1BlQVExdOUWNCs0Hf3qjEX1iTZwZA9woJlJJmjeooPy4u6w20V
wgYXf8eu7QK8mGbBB9Hh02ywyUuxonzhx1ozbuw2DBcFldl2fEpDAKMVdjxq
/ioK6yrpAu9mhbAv5XbS8zQxqMWOIEmOIpj+5fgbZzzE4GlwfEBwCRlD7sqa
nucSh9maLLu2aEHsflVBXsRJDpzdf4p5QoaCjf3O//OpRhxot7JkbyvQsSuv
Yi4xUiXB0EnTwuI6FauN/N1VsV8CfC48OLncTMfG65+lmGlJQdpg5ADnHA2T
+zWUzjUkAQd9Dx87HcLAxCWUP0pGSIF1/e0A22Emxk1/bziiTvid+pkd3bpM
bDa8+rxdvDRcyV/Xx02nwhnaM9emGDJE/HA/Oa1Pgy1p6EpvJQKTu1ottliQ
Qe3Qp6TTCgiYd5jrnrspBJtGFupPuiMwt2UHRyYbgTcNb76raiKQrEpn7hsS
BpXTjbl0XQooJtjafTrID63o1d1f1yJw+UWow115Qehrk+BwqyBwoZhzJwMn
geSZ7mtreshw6d+ikJgWN/z8Y+39tBwBTnlA1WIsDyzJDtR840Lg7pjkRPcC
L9QnbUQL6QhkWrs+dEtZxUPe8BppHiXW81nQSfyxjI+HC55SIepb7vJ7QNkz
hwcFkS3Ut1JAevmlW8CnP3iTwVSjfxIF4sb0476JLuKnKFUpESkINFyXstgV
PoNHOolX52yiAJrkr3F6dRznmjE+/oWfCoIX62Y7zw/hm4u8KALFFMirMoqz
GurBPXnuZ2zbSoWYKx8TfN924BL2zoXeLBoYx6x8eGH6FRfjRwfr0qjwJU7y
AmtDHp6/b6x1zUEaDF7/bpilUYxaoJK5O4/TAL9Bn8gY6kUb1A+MRBL9bj6n
eYSS2oBusmHutvtBA7XM1256F4bRGImX5yhAB5Hdx9P0in+gGsOQ+ZNJ+NXr
aI3q1Qn0yj2L/tAZOjh03fTxEZlFw1pfmyozmbAhcFvri+1TaN2yDbeNPAMo
U215hg1zqEvuK+NOBSYo/gf2dQdX0NAqy3PHSCwo890RR4pbRGsT3DrP3mWC
eu/aoxZ0Luz2PX1XSxsWrH2yOWlenw872ari/DePDcGhqg81LnBjxg0xwYdq
WPDNUa4mzVUQ69KffWXnzYF/7GFHWCVhE+Hs4DgaBw5VHxFhtfFgGU/oWtkR
bNif8NC2M4EfO+YYV9BxThQupT0X2xNOxtZzYtpWtorD3sGft7UnEMx/qWC3
V4A4pGpMOd/6JIQZnKnKj98oBrLvc2Qk9lCxgpFXTylmEuCt/ibWc50I5qt8
b/cCLgazRxSEV51omEvw0NY1JEm4LL557KwIHTMdbEiRipOE1U/biy+O0MFp
8BZ/WAYCGtumTHj16fA6xnx8ZIkMjZLR40YvqFBgI+DPE4HAULG1Uu87Onaq
rEnzzREpGCddPxgVSgOuSQXGJME/ai9J7T4DZNiXPvQuUwuBoJXagv1mFMh0
uGyiyYvAoYBtC1HBIvCkpcle/i1x392mDdlywhAshGyu7iDDGbwtsn+/ABib
GKopLpJhIdbAY3WOHw6mPl1lFiNAOkOZrSoVBI0GJUp1OgIHGgqzpGL44KR0
2jV2AwI6i54Tupt4Abt2FX1P6EUqQq/U7is3tNQULr5/h4B6leP4WU8uSHu/
JnkwC4GjF7UOwAeCD8tI44nEer+eKGWGhc7j5PD0JDkOBfCbk20c5j+8klNX
M3oXgZi1DyL2WC3hv4OVMnzEKbCr29lofmkKf5sQoj2qT4VEYQ5VU2cSP148
JxkTSIEmoT32dd0jeFGBE8UNpcK3nNNFhvb9eIpCl9eGQCrwXe1XPXW/C/+n
Jz9q5EaF7wEeJ/TXPEaLY8Xlee7TIL7Q3WjLlWa8fdjI06ySChHoAacN1WX4
TofmmFOEnsinUtOLLv9C1SQ+WC1H0mFH6R3corsN3UBBF7iABn19YQmHoqtQ
ngt8N4e7iPxYEKe0U2AQtR4IGTQ1poOZpcsZLeofVLi2TblMnAHrzku5dUSP
oXcmKlob5unwUO5b0F2XBbQp9BZ1vScT/jXU2a00T6O+4VjBzSsMMD7ZOWGv
vIw6X9xit0L4zZG5XYxPj/6i6+V2dfsvMWB2wqJJZuwfiu69l/simAU76nxX
pr9xYfwrSgfay1kgtW1DUUkiLyawVv++pY4o+FV15nwz4MH0gvrqBPsIPR7U
Kb1xjIS9mVruN4kVhb83j6kkc/NjBnP/fP22i0J8w6iPpaoQZu6KFB/9woGI
A8sz7pUCWImvVKq2BgfOsRSGNe8KY/6b9MYuq4qB4ejMFfakCMYTIBtmoyIO
LJdMnc7XFKy9q2yHjpMECP25fW7BFsHWDB7xePtYHHwbzja7kGlYWMDx4pEm
CZDVy41SesyAxzTKD3UbBDqX0Kz8YTq8swvJEa9DoJ0n7JOxHh324pl6WoQO
fhfzCcVbMsGz1nL/JYK3cs8rZXwNocH6yvt+84/JQI674VOSSYUbY1/fh9iR
wejkh9jWnRSQZcXpuPgjoOu7p2aqjwzp8j7+iSgCg453oilBImB+Ojnv2SaC
3zLsN6jKCsP4Hdc4fuK8I/CtoOk7QUALvdvlCb1tLdEyO+IkADTV7uK8ZTJQ
8ltvv9bkhVMqaZsbPBFY8S3cH3+fD9a8josI8CL8p28k/Mpffli/9ew+DQcy
gJrPrfov3BBrsj777hMyZK1UHhs/xQVzCrnraPcRSLm4pp9O+4d3e5zo7H6J
gJKZZqyZ+RJ+66NN7+MSCjj/ZJi/fT+LVx+N/1TrRAHhgv3+12/M44F8G/fP
DiOQ5Zh2fHJ+Chex5a+/qEmBDWr5ous2T+LRuZIUS38K1AWtj9HY3Y/P5dd+
OxlN8F3cCXv62Wb8ZNw11ZwTVOB3OxVe2TGCt7yyPYOcpMCXiYR4g9AuvPpZ
+mGBKCpo9LXqe/U8Rl10GdG9hjRQEH5V/SCzCg1gtpw9epIGym/tDcZyy/Ce
KMtYa10aJEtgh0+OtaEZ3zw8Vupo8KxGcbLy+i8UlhxdPU3oQP/z+cQ+ZBB9
vHb/5NxrOvgtP904FD+Gim58+ZtG6CVJwarNgPEHnaijSiweZ0Cb5Y+dfN+m
URu5x8oCpxmgJWkTH3N0ASXfluG6/IgJmjiuvO73P9T6o1NF6F0WBMb8yq/9
7y86EffpazPhT9Wfp3FnlWV07/zalFI+Fvw690YWS+bFIjtdzdcYicJWp1fi
vh1cGCfl6eGEQRZke19zUODlxx4lSOxje4qCaMJA+AFDHuxl4fWPY3MseDPo
1S7gRsLEexLj5vpE4RC3b1f9eiHMHXGVVSjnwDoBpKUgQhgb31OvOXtQDDb7
qD2M/yOCeZ2X/3X0lxhEqT61GPssgIlKa4Vt8eUA8vaoyNW9CIYZkW47dorD
hqYXls/8WHDhCpdh/RQZnG2cWjZXMoHrla0TuZsMkqyhiQ9sJlSKnrl/4Qah
n1rByIXdNPjYV7rJ6CYZOJKaQjbHGOBUbjW+doLI3+Ffxjrz6KA97S11xxKB
8qMj/zy46fA3sjXYez0xv2/9EF/fgYBM0obGtwFkqG1/WrDDlwzBf5Oy0jYj
kP/8iS3VkArzOvr0Og8E9uUK3XNhiYDJU5PllG0Ex43eqL+aKwR0R02uXZkI
PGAZMB9aC4KmutXny3/IYHiogjauxAdbv9XV7FNFYK262JjQRx7wOuHkzTuJ
QHivMqMxjB8q8bxLOd8R8E8n9RSMkmBPT0iW4SWirsz6tKDFVXyzw1qfNXYI
WI92+yu5cMPo60O9F50QcEDzHadOL+IDEuEPWiQowMNeCi3WWsGPSL9zCtKj
QNpb0wsqGXO4jFK4ROQXBJTv2ikd6Z3B/a790nZVoMDSffvmBOkpPNvlY1f/
GsKvTD3znryawM0OfUo9vUQBH2S28lJ8L94+fi4XGaHCzqXne92zi3C3ufqD
oWY0cNSPHKYqDuMf1lds+1VMhWR2n1spTwNeLnyM5XyRyDsuao4d4j9wpfnw
qsQpKvzevxjNyi5A0ZGN8cH5NHBnfn6aZVKPGr71nSjqpAHqTIv77PQdbcwi
+4rP0SBky3GWj14vmlv6pjUxmQ6lbb7nYndPoOe+jJfUWDHA6qZTFH/5EOry
Vlyi/REdQrWMn94f/4Pe81NXkHRgQIO7Xa6S/xxK2+6m8cKeCbrOsmK/jRZR
tqxlUukhJhgUv7p1MH8GfVF1zdmjiQGb2tSErlWvovkuuqZNGUQ+MjkRr7CL
G5M2CTCzrmeBQZG07SjCh61D90d5N7Fhk7F6PSmLB+PTnYq69IsNAXveK77m
W0Ef7bb2yJZgQXe9smNBEwn7IxnFPyHAAfbi3vKvZ/kxmWOxveodovCi9Z1V
vI4g1jtwxlFGktBHGPOGy7IwlvyJ9WJdmxgUbf9Bv/JQCDN0r9aOJa77TExW
bCXWNXm62L5cQ+QLt9ZyxyIGHObK+vFDEgG953T3C3vpsDjWLYER/HNuVu9X
9Qkm0DZZz7vnkSHs5WvFNVfZIGpM3VZFQ0DWaLp1gJ8Bdwx3oHYHiX5WdX2Z
TXCo/0uqgNF7MogZTVTJ9VJB+UpOt8wtBLSyna7zpNKg9r8DYT/JCJxOjg08
XywCZjr6truCEdhVZfkxwkEY1v6E5yk1ZLgeUXRsK8Ex4slJW6UVERBxk8T2
SSNwxrty/DcfwVOHxKIzZwTh8sPOJVEZBLB4vbLKKAGo+o+/fWYXoe8elYTV
Gj7YWxn3YCfBV1P0b0QmI0Gcdk+FCIYAT/KUiuRJXpg8r4TF/yP0LXSJR5fE
Axwn7TYrCYLnUOqMbSoXRI/ty8nHEShLb33TGfgP971m+CWB0CuicKKZVbKE
H6UEvryUiwCbNLp3OnUSV6yquFE8RoF7f31uWs7O48NhO7BTzxE4vuKnFabx
F09p7A7AVShQHe6k/+7kNH5srlrp8U8KmHcbhO15N4rHISB0vIMCTzvfnNd+
2o1vASNaz14q0HgPjX3UHMA/erFG7+ZTwDetyH7n5lZ8/3V3xXRlGnRIJxbZ
6FXgdjUPmbwkGpQJmol6CGjhBvkx98610cA/j9GgntyN+hyy6++8Q4cTX7em
G6m0ogIMm16yMB2G+Tbm4esH0LoB4Zks4rqKN/8GHcUK1O6xCqKbSOTUWIPb
NkWjaHGHQ33YVzqwhh6VV03Noze1x3aZpjCh0eaOiveTSXRlHxqfHMEA938a
e7a4T6Na5i5rGwwY8GVmqYh3w1/UXMI4UdKACYclX9YfuPYPvfTH2UPWmgUh
POSUWT4erN5bOjI5mA1VXkIZ0W+W0Pvbi8rihVjgsn0bq8OdFxtassQrqtlw
5Y6UHD2FC/tKmpj6I8OGuTVZ/6VsIPJOugDr6pAo8ERVHwm5J4BdPXmunOc+
B9ZLsdPfV/NhFaGeHLyFDT+auJtPTQtiXkpZTVd6OfCMV3LL0aOicNPuTpJF
LzGPTff9uMbFBh/bs4ufqhFoC6wsm8xlw5mWhkD6XwROvjPoePQfEy7/3qPo
54zAPYvEv+TdBGdOmb6LekjM+xWfK4VbGPD786Igk8jTtnx4rOktOnS9sJdx
0UXgsPSHnS7Evs1c5q6yySTD+osHLzUS+7Q9iNZXQeQFwweOY+vGGHCj56i7
3ALBP5ZHsuZCEGhl5b/W/UbohTFwqmOYAt6jYuFitxG4eZEzwVAkw7sBxpHS
dgSumPKOWzgLgde2wN1f4hHwEOp9p/5BGIYutJQZehN5633KqNuSAEz7qldu
JtYTj5ypCI4nwe4XeY/zoxDgLjTdUNLIC69/0s6K2iMQenlFRXrvKh5PGln4
aIsAalm6N0mbH6JePZfpIupP5NIRmCZzQ6SV0ckpFsFbu8nf90Ys42kbk8pl
phA4P9ou03aGB3bInFr5SPy/SOfAzKWtM7hsouQfJ6Je076JiHKeOVy4gtvF
+yIFuuwpt+99XsB3hUxrLPpQIGlXvvhG3z94OZW01LqTCvERvTI72gbx3W/O
Z2wIowJvQWhcs+s4Ln30hrmQK8FfwaR9BRY9eDOl6ICfPg2Eeesttv5oRONy
OoeWG2nQclYxzyywHa+Vs0u4yqZBtHnMv433MvGmXqU0j7002D2k7bqjsRbP
duDv+XiFCquv/9t5kYWjP8Mes7a/psGryfHnDbQRdDV/wEWHyoCx52SK83Qn
mnfUNaNUg8hD/bQu9GYfmp4s5+FG7Ltdgpvr0v0p9L+bMYUKhxnQYaE9dzTh
NxqQU35VyIjg+kj+Mx+cZtH29oLV5wS372ZfsLstO4+GXfhTQb7EhABIHRHP
WkEtY93frIiwoL+Mc9mufxG9ZeDYGkToQ+Gh37D9Y27MtGQaa7/JBrN9xr7e
elxY9moJuCmwYeKM+dUt/3iwprej3VN9bCi+2H1O5ggfpq0uvzqpJgqJHX4x
XzdygLyhBBsUpMCnvlUdnnJ+zNFymHtalgNJa3UzBpQFsA5vISdzSw7ckSzQ
Ha1jww2Pmr6vKQiEyS/v8Zdmg2POuEMqwRt1DkoyhwIJDqw1U2k4j4DL/Yfa
Ap4sMG5SRrcIIqDtUbgzppgJkQ9sU3SI+W3d3NwmL8SEUeXhyVRi/pp/l5rK
IXy4TW3GiYfgFXnL4hajZ4RPTz318n5E6GtGJrV2htDLq7HSlDIELio0pY0C
AuuSv6VsPUDk7+76e07baPB7gmuilOjfR4tSrvUKVKAeGKsKfkvwkadzChov
BLXWwUfyWsngOfU+VXFJGPpqL0jpKCMweZSr7/4ZfnjzbdMepi4FhAxzrh7U
FoSVihm7O58Q2F+UeF7AmQyO+7805F0h9LToJ+LXSAJZATOPZuJ9rg9jWl6R
+UDQqr7bk/CHfI9ii8Ed3GChIrPTUI0CQ5nBu0ifV/Hxmx1K5uYUuJv9p7Qm
gwe4h84eskwgvhdzW764dREX9uFyVX5MgdLcm3PGPCt4zefLv6+FUeB08Rzn
pc8cjtliGtPzCOzd0biQbj6BywSYUGSbKPBL2+Ct5OgfvDHh4CafNApcS1MN
7cmZwZ+/Yt6uAQqsneQqCN3ci+/Pvet1/RgVnh6dHxja/R23CytYlo+lwviW
WU0OPoSHpOXUGKZS4Y/eau3p/3rRE/oLjHofOlSL5czW6NXjIl0Jl0nzVDin
p+EYT25AreYbKG9XaWBiXe3Q0VKEtg7cP8fm0OG3wLfIJyEFuAup1rkjhQbS
D3ZIcasMo/sz1VRL0gk/OWAqWKzwA/Xj/1vCCKTDSODP4fsFE6j+OekPN9Yy
oHRzBDdNbgq9l5zSnv2AAWffLvd/659BW2uLXNcKMKHARuT6Rt0VtBszVeNb
ZQLJPRlJyZpDD5RNq1J3MuHJMbWrJ7wX0esje7kF8phQU6n4bns5D/bkUb+m
VwUbTrT6H19cXkU36jG5T7SyIMf/8hRymx/bu/lib0ODKLTqmAaqrOXDNhv7
fHGQF4XVDxEVR45wY5eieQPrd7HhfzIVAug=
          
          "]]}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-7.243548595730511, -11.512925464970229`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  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]],
  ImagePadding->All,
  ImageSize->{489., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{-6.907754950041409, 
   9.210340043035457}, {-11.512925464970229`, -2.995732273553991}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->FrontEndValueCache[{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledTicks[{Log, Exp}]}, {{{-6.907755278982137, 
       FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {11.512925464970229`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {11.608235644774552`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {11.695247021764184`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}, {{-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-10.41431317630212, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.903487552536127, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.433483923290392, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.111728083308073, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.824046010856292, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.418580902748128, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.264430222920869, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.013115794639964, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{{3.711127581297364*^9, 3.711127671653528*^9}, {
   3.7111277288106327`*^9, 3.7111277366725388`*^9}, {3.711127897561698*^9, 
   3.711127989923276*^9}, {3.711128531017274*^9, 3.711128603747486*^9}, 
   3.711128644658575*^9, {3.711128792524933*^9, 3.7111288008644753`*^9}, 
   3.71112885096681*^9, {3.711128928512074*^9, 3.711128957107048*^9}, {
   3.711129835974813*^9, 3.711129874794202*^9}, {3.71112994843898*^9, 
   3.711129965132526*^9}, {3.711131241307453*^9, 3.711131271438347*^9}, {
   3.711132426203773*^9, 3.711132475671316*^9}, {3.7111325122985573`*^9, 
   3.711132534770512*^9}, {3.71113289265272*^9, 3.711132999784379*^9}, {
   3.71113305134641*^9, 3.71113326201278*^9}, {3.71113336192397*^9, 
   3.711133389604954*^9}, {3.711133517771099*^9, 3.711133582241486*^9}, 
   3.711134496102757*^9, 3.71113466207756*^9, 3.711134854029689*^9, 
   3.711135090730062*^9, {3.7111352809742613`*^9, 3.711135287201799*^9}, {
   3.711135386616991*^9, 3.71113539880623*^9}, {3.7111418638349133`*^9, 
   3.711141874612363*^9}, {3.711143058419879*^9, 3.71114309669414*^9}, {
   3.711143721578021*^9, 3.711143781584158*^9}, {3.711144388545817*^9, 
   3.711144396276979*^9}, {3.7111446094977303`*^9, 3.711144613339398*^9}, {
   3.711144680795624*^9, 3.7111447079156322`*^9}, 3.711145048573194*^9, 
   3.711145755283853*^9, {3.711280769563562*^9, 3.711280813646409*^9}, {
   3.71128086415739*^9, 3.7112808935043173`*^9}, {3.711383284512624*^9, 
   3.7113833097489967`*^9}, 3.711383393690321*^9, 3.711383498698038*^9, 
   3.7113838047693*^9, {3.7113838756258183`*^9, 3.711383946552723*^9}, 
   3.711384730626437*^9, 3.711386949899585*^9, {3.7113872601171713`*^9, 
   3.711387270415874*^9}, 3.711400630845186*^9, 3.7114006697189007`*^9, {
   3.711400762798764*^9, 3.711400791840289*^9}, 3.711400835439849*^9, 
   3.71140117862505*^9, {3.7114012100308228`*^9, 3.711401230114215*^9}, {
   3.7114012898146687`*^9, 3.711401304233672*^9}, 3.711401399846105*^9, {
   3.711401438638013*^9, 3.711401467119611*^9}, 3.7114015211970882`*^9, 
   3.711401567985734*^9, {3.7114016056007767`*^9, 3.711401628136093*^9}, {
   3.711401713531468*^9, 3.711401762269224*^9}, {3.711402429115448*^9, 
   3.711402461770267*^9}, {3.711402891136282*^9, 3.711402912285914*^9}, {
   3.711404388755679*^9, 3.7114043986387873`*^9}, {3.7114044486445208`*^9, 
   3.711404518773761*^9}, 3.711406227232978*^9, 3.7114066542628*^9, {
   3.711407038444659*^9, 3.71140704510012*^9}, 3.7114071267611237`*^9, {
   3.711407183979395*^9, 3.711407186101308*^9}, {3.711411107866351*^9, 
   3.711411124301353*^9}, {3.711417889047347*^9, 3.711417893068492*^9}, {
   3.711417923813339*^9, 3.711417927211397*^9}, {3.7117460522126207`*^9, 
   3.711746072757844*^9}, 3.711746160953579*^9, 3.711746305413265*^9, {
   3.7117463375108337`*^9, 3.711746395772622*^9}, {3.7117464335159273`*^9, 
   3.711746454122615*^9}, 3.7117465470598*^9, 3.711746940815365*^9, 
   3.711747248172297*^9, 3.711747654450551*^9, 3.711747686591345*^9, 
   3.711747907603959*^9, {3.711747943644298*^9, 3.711747990225561*^9}, 
   3.711748025986208*^9, 3.7117482508749237`*^9, {3.711748299790553*^9, 
   3.711748348990406*^9}, 3.711748413322699*^9, {3.711751021978037*^9, 
   3.711751038687649*^9}, 3.712332294814478*^9, 3.7123323594159307`*^9, {
   3.712332400499013*^9, 3.712332423677504*^9}, 3.712332467999897*^9, 
   3.7123325246127777`*^9, 3.7123329339854317`*^9, 3.71233306107482*^9, {
   3.712333779837001*^9, 3.712333809300539*^9}, {3.712334493005431*^9, 
   3.712334510551341*^9}, 3.712334577996705*^9, 3.712334713121067*^9, {
   3.712334878262806*^9, 3.712334884606503*^9}, 3.712334982486836*^9, 
   3.712335372846648*^9, {3.712335463345566*^9, 3.712335483397084*^9}, 
   3.712335625359729*^9, {3.7123358580019712`*^9, 3.712335868493102*^9}, {
   3.71233603024267*^9, 3.712336053066616*^9}, {3.712336682684705*^9, 
   3.7123367392818108`*^9}, 3.712337360880822*^9, 3.712337795680142*^9, 
   3.712338163714761*^9, {3.712338205779873*^9, 3.7123382310299273`*^9}, 
   3.712338285582103*^9, 3.7123383395338163`*^9, 3.712338372836412*^9, 
   3.712338421620803*^9, {3.712338476027618*^9, 3.712338491980421*^9}, 
   3.712340233328706*^9, 3.712354327016433*^9, {3.712414195235113*^9, 
   3.7124142102309523`*^9}, 3.7124197799583807`*^9, {3.712444517030016*^9, 
   3.712444563117937*^9}, 3.712447018249096*^9, {3.712447272141313*^9, 
   3.712447293163858*^9}, 3.71244733171198*^9, 
   3.712447363526393*^9},ExpressionUUID->"6f9af633-d5dd-428f-99bd-\
2f26d8eaaec3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Chi]fitData", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\"\<H\>\"", "/", "\"\<T\>\""}], " ", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], 
          RowBox[{"-", "\[CapitalDelta]"}]]}], ",", 
        RowBox[{"\"\<T\>\"", " ", "\"\<\[Chi]\>\"", " ", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], 
          "\[Gamma]"]}]}], "}"}], "/.", "#"}], "&"}], "/@", "assData"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.704742362877256*^9, 3.704742408664497*^9}, {
   3.704742527890593*^9, 3.704742541794598*^9}, {3.704742660156436*^9, 
   3.704742663684565*^9}, {3.70479005735952*^9, 3.704790076495715*^9}, {
   3.70481811917313*^9, 3.704818120508998*^9}, {3.704967594413649*^9, 
   3.704967598205678*^9}, {3.7049676822310743`*^9, 3.704967683798901*^9}, {
   3.7049918676424503`*^9, 3.70499186974644*^9}, 3.705137184169389*^9, {
   3.705139154629438*^9, 3.705139154869261*^9}, {3.7063088519286833`*^9, 
   3.706308868591404*^9}, {3.706309070860243*^9, 3.706309074588221*^9}, {
   3.7123405055606613`*^9, 3.712340505920287*^9}, {3.712414165770205*^9, 
   3.712414166393816*^9}},ExpressionUUID->"533b82f3-0063-4115-96b4-\
8433fa98f775"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Chi]fitWeights", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Tc", " ", "\"\<\[Delta]\[Chi]\>\"", 
          SuperscriptBox[
           RowBox[{
            RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], 
           "\[Gamma]"]}], ")"}], "2"]}], "/.", "#"}], "&"}], "/@", 
    "assData"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704742362877256*^9, 3.704742434345558*^9}, 
   3.704742551451827*^9, {3.704743283549821*^9, 3.7047432893176622`*^9}, {
   3.7048181252291403`*^9, 3.704818125885125*^9}, {3.704967607189753*^9, 
   3.704967608813735*^9}, {3.7049918708030987`*^9, 3.704991871258729*^9}, 
   3.7051371912569857`*^9, {3.7051391581891537`*^9, 3.7051391584132967`*^9}, {
   3.70630888492132*^9, 3.706308897057547*^9}, {3.7123405121205*^9, 
   3.712340512456396*^9}},ExpressionUUID->"48cb4fd6-ae15-4151-b7ab-\
6b86437dacba"],

Cell[BoxData[
 RowBox[{"nn", ":=", "1"}]], "Input",
 CellChangeTimes->{{3.708443195975164*^9, 3.708443199799218*^9}, {
  3.7084432394395514`*^9, 3.708443261072507*^9}, {3.708784620032201*^9, 
  3.708784620135791*^9}, {3.708784815539405*^9, 3.708784815698888*^9}, {
  3.708784854244011*^9, 3.7087848549074507`*^9}, {3.708784938829364*^9, 
  3.708784939172886*^9}, {3.708785211505432*^9, 3.708785211713141*^9}, {
  3.708785417084654*^9, 3.7087854172275763`*^9}, {3.708785462725395*^9, 
  3.708785478628188*^9}, {3.70878551097403*^9, 3.708785511093617*^9}, {
  3.708786038502285*^9, 3.708786050677973*^9}, {3.712340629736655*^9, 
  3.712340629832727*^9}, {3.7123414197574663`*^9, 3.712341442677649*^9}, {
  3.7123414986081553`*^9, 3.712341498703578*^9}, {3.712341792723755*^9, 
  3.71234179297202*^9}, {3.712341855229192*^9, 3.7123418553734083`*^9}, {
  3.71241920393309*^9, 3.712419204045659*^9}, {3.712420039474929*^9, 
  3.712420039650827*^9}},ExpressionUUID->"63a9f987-b95a-4687-8447-\
f3daac286a24"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fit", "=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"\[Chi]fitData", ",", 
     RowBox[{
      RowBox[{"t\[ScriptCapitalY]", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Pi]", "/", "2"}], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"C0", "-", 
            RowBox[{"c", "[", "2", "]"}]}], ")"}], "/", 
          SuperscriptBox["B", "2"]}]}], ",", "B", ",", "\[Lambda]", ",", 
        "\[Lambda]2", ",", 
        RowBox[{"c", "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Range", "[", "nn", "]"}], "+", "1"}], ")"}]}]}], "]"}], 
      "[", "X", "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Lambda]", ",", "\[Lambda]2"}], "}"}], ",", 
       RowBox[{"Thread", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"c", "/@", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Range", "[", "nn", "]"}], "+", "1"}], ")"}]}], ",", 
          RowBox[{"ConstantArray", "[", 
           RowBox[{"0", ",", "nn"}], "]"}]}], "}"}], "]"}]}], "]"}], ",", "X",
      ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "70"}], ",", 
     RowBox[{"MaxIterations", "\[Rule]", "1000"}], ",", 
     RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Weights", "\[Rule]", "\[Chi]fitWeights"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7047424379335747`*^9, 3.704742499793915*^9}, {
   3.70474256029918*^9, 3.704742560714816*^9}, {3.704742745430072*^9, 
   3.7047427560700817`*^9}, {3.704816911026376*^9, 3.7048169469311037`*^9}, {
   3.704817035108499*^9, 3.704817035284093*^9}, {3.70481726730385*^9, 
   3.704817267463744*^9}, {3.704817300960455*^9, 3.704817306408422*^9}, {
   3.704817446786764*^9, 3.704817449490715*^9}, {3.704818275455348*^9, 
   3.704818279719268*^9}, {3.704965843170809*^9, 3.704965845466652*^9}, {
   3.705001282881546*^9, 3.705001305092474*^9}, {3.705008799902341*^9, 
   3.705008817309978*^9}, {3.7050228523264723`*^9, 3.705022878095461*^9}, {
   3.7051372381451473`*^9, 3.7051372518246107`*^9}, 3.7051385318297567`*^9, {
   3.7051392579993134`*^9, 3.705139281919064*^9}, {3.705139321384213*^9, 
   3.7051393242157507`*^9}, {3.7051393931129093`*^9, 3.705139408004856*^9}, {
   3.705139451937954*^9, 3.705139452586129*^9}, {3.705139588188541*^9, 
   3.7051396005239363`*^9}, {3.705140009554923*^9, 3.705140019450447*^9}, {
   3.70514992440141*^9, 3.7051499452815113`*^9}, {3.705149976082178*^9, 
   3.705149978506048*^9}, {3.7051500214520197`*^9, 3.70515002213894*^9}, {
   3.705150339872649*^9, 3.705150343775866*^9}, {3.705150758775298*^9, 
   3.7051507631014442`*^9}, {3.705151958737191*^9, 3.7051519806892967`*^9}, {
   3.705152041706599*^9, 3.7051520418982973`*^9}, {3.7051521144367456`*^9, 
   3.705152123259862*^9}, {3.7051521567801943`*^9, 3.705152157196206*^9}, {
   3.705166143780427*^9, 3.705166188068859*^9}, {3.705166230821793*^9, 
   3.705166234869689*^9}, {3.705166459057212*^9, 3.7051664716251307`*^9}, {
   3.7063089777646847`*^9, 3.706308987234838*^9}, {3.706309220518959*^9, 
   3.706309241264122*^9}, {3.706309397688818*^9, 3.706309415841155*^9}, {
   3.7065641430947247`*^9, 3.706564207365931*^9}, {3.706567659866004*^9, 
   3.7065676711190968`*^9}, {3.7065678437409067`*^9, 3.706567924137554*^9}, {
   3.7065679928977623`*^9, 3.7065680815561657`*^9}, {3.7065684422374268`*^9, 
   3.706568449642846*^9}, {3.706568480888012*^9, 3.706568554918489*^9}, {
   3.706901476596971*^9, 3.706901566991775*^9}, {3.706901602963606*^9, 
   3.706901606151558*^9}, {3.7069016365695887`*^9, 3.7069016416809797`*^9}, {
   3.706901740810973*^9, 3.706901783563507*^9}, {3.706901840908586*^9, 
   3.706901844651593*^9}, {3.706901910045526*^9, 3.7069019116687603`*^9}, {
   3.7069019811732388`*^9, 3.7069019812704153`*^9}, {3.7069020895849524`*^9, 
   3.7069020934962683`*^9}, {3.706902163868494*^9, 3.706902296803402*^9}, {
   3.706902374463688*^9, 3.706902437205505*^9}, {3.706902544041626*^9, 
   3.706902548871641*^9}, {3.706902608968905*^9, 3.70690262224065*^9}, {
   3.7069027264106607`*^9, 3.706902767970791*^9}, {3.707048631195756*^9, 
   3.7070486570361843`*^9}, {3.7070489344889107`*^9, 
   3.7070489462863197`*^9}, {3.707048976458363*^9, 3.7070489766810427`*^9}, {
   3.7070491359001226`*^9, 3.7070491528677177`*^9}, {3.707050878015752*^9, 
   3.707050878076877*^9}, {3.707065794838023*^9, 3.707065901696669*^9}, {
   3.70706595428377*^9, 3.707065960561912*^9}, {3.70706599399479*^9, 
   3.707066033048881*^9}, {3.707066069492025*^9, 3.707066075411188*^9}, {
   3.707066344344153*^9, 3.707066350007468*^9}, {3.707669292132317*^9, 
   3.707669297132937*^9}, {3.708442758833302*^9, 3.7084428036736403`*^9}, {
   3.708443114149672*^9, 3.708443164054968*^9}, {3.7084432038658533`*^9, 
   3.7084432112801247`*^9}, {3.708443244320887*^9, 3.708443247544548*^9}, {
   3.708451812272045*^9, 3.708451812341448*^9}, {3.708784598857151*^9, 
   3.708784603113076*^9}, {3.708785447348003*^9, 3.708785458156178*^9}, {
   3.7087855001510143`*^9, 3.708785527991172*^9}, {3.708786042157309*^9, 
   3.70878604364589*^9}, {3.712340571733281*^9, 3.712340663683361*^9}, {
   3.712418980617587*^9, 3.712418981906975*^9}, {3.7124191371877193`*^9, 
   3.7124191396521*^9}, {3.712419445523443*^9, 3.712419467769823*^9}, 
   3.71242005218015*^9, {3.712420120454302*^9, 3.712420121591338*^9}, {
   3.712420153229155*^9, 
   3.7124201708159447`*^9}},ExpressionUUID->"f7c504d9-50bd-4d15-bccd-\
8271b18ceb07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SeriesCoefficient", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"t\[ScriptCapitalY]", "[", 
       RowBox[{"A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
        RowBox[{"c", "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"n1", "+", "n2", "-", "1"}], "]"}], "+", "1"}], ")"}]}]}],
        "]"}], "[", "X", "]"}], "/.", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"X", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"X", ">", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.712420860562139*^9, 
  3.712420917890833*^9}},ExpressionUUID->"9934911f-d265-4bb4-a635-\
816005c56a60"],

Cell[BoxData[
 FractionBox[
  RowBox[{"0.02030814063278619`", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2.5149495449771924`"}], "+", 
     RowBox[{"1.`", " ", "\[Lambda]"}]}], ")"}]}], 
  RowBox[{
   RowBox[{"-", "2.000000000000001`"}], "+", 
   RowBox[{"1.`", " ", "\[Lambda]"}]}]]], "Output",
 CellChangeTimes->{{3.712420855295561*^9, 
  3.71242091809783*^9}},ExpressionUUID->"93180487-1da3-4064-a645-\
15b9034144b9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fit", "=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"\[Chi]fitData", ",", 
     RowBox[{"{", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"t\[ScriptCapitalY]", "[", 
          RowBox[{"A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
           RowBox[{"c", "/@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"n1", "+", "n2", "-", "1"}], "]"}], "+", "1"}], 
             ")"}]}]}], "]"}], "[", "X", "]"}], "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "}"}], ",", 
     RowBox[{"{", "\[Lambda]", "}"}], ",", "X", ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "90"}], ",", 
     RowBox[{"MaxIterations", "\[Rule]", "1000"}], ",", 
     RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Weights", "\[Rule]", "\[Chi]fitWeights"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7047424379335747`*^9, 3.704742499793915*^9}, {
   3.70474256029918*^9, 3.704742560714816*^9}, {3.704742745430072*^9, 
   3.7047427560700817`*^9}, {3.704816911026376*^9, 3.7048169469311037`*^9}, {
   3.704817035108499*^9, 3.704817035284093*^9}, {3.70481726730385*^9, 
   3.704817267463744*^9}, {3.704817300960455*^9, 3.704817306408422*^9}, {
   3.704817446786764*^9, 3.704817449490715*^9}, {3.704818275455348*^9, 
   3.704818279719268*^9}, {3.704965843170809*^9, 3.704965845466652*^9}, {
   3.705001282881546*^9, 3.705001305092474*^9}, {3.705008799902341*^9, 
   3.705008817309978*^9}, {3.7050228523264723`*^9, 3.705022878095461*^9}, {
   3.7051372381451473`*^9, 3.7051372518246107`*^9}, 3.7051385318297567`*^9, {
   3.7051392579993134`*^9, 3.705139281919064*^9}, {3.705139321384213*^9, 
   3.7051393242157507`*^9}, {3.7051393931129093`*^9, 3.705139408004856*^9}, {
   3.705139451937954*^9, 3.705139452586129*^9}, {3.705139588188541*^9, 
   3.7051396005239363`*^9}, {3.705140009554923*^9, 3.705140019450447*^9}, {
   3.70514992440141*^9, 3.7051499452815113`*^9}, {3.705149976082178*^9, 
   3.705149978506048*^9}, {3.7051500214520197`*^9, 3.70515002213894*^9}, {
   3.705150339872649*^9, 3.705150343775866*^9}, {3.705150758775298*^9, 
   3.7051507631014442`*^9}, {3.705151958737191*^9, 3.7051519806892967`*^9}, {
   3.705152041706599*^9, 3.7051520418982973`*^9}, {3.7051521144367456`*^9, 
   3.705152123259862*^9}, {3.7051521567801943`*^9, 3.705152157196206*^9}, {
   3.705166143780427*^9, 3.705166188068859*^9}, {3.705166230821793*^9, 
   3.705166234869689*^9}, {3.705166459057212*^9, 3.7051664716251307`*^9}, {
   3.7063089777646847`*^9, 3.706308987234838*^9}, {3.706309220518959*^9, 
   3.706309241264122*^9}, {3.706309397688818*^9, 3.706309415841155*^9}, {
   3.7065641430947247`*^9, 3.706564207365931*^9}, {3.706567659866004*^9, 
   3.7065676711190968`*^9}, {3.7065678437409067`*^9, 3.706567924137554*^9}, {
   3.7065679928977623`*^9, 3.7065680815561657`*^9}, {3.7065684422374268`*^9, 
   3.706568449642846*^9}, {3.706568480888012*^9, 3.706568554918489*^9}, {
   3.706901476596971*^9, 3.706901566991775*^9}, {3.706901602963606*^9, 
   3.706901606151558*^9}, {3.7069016365695887`*^9, 3.7069016416809797`*^9}, {
   3.706901740810973*^9, 3.706901783563507*^9}, {3.706901840908586*^9, 
   3.706901844651593*^9}, {3.706901910045526*^9, 3.7069019116687603`*^9}, {
   3.7069019811732388`*^9, 3.7069019812704153`*^9}, {3.7069020895849524`*^9, 
   3.7069020934962683`*^9}, {3.706902163868494*^9, 3.706902296803402*^9}, {
   3.706902374463688*^9, 3.706902437205505*^9}, {3.706902544041626*^9, 
   3.706902548871641*^9}, {3.706902608968905*^9, 3.70690262224065*^9}, {
   3.7069027264106607`*^9, 3.706902767970791*^9}, {3.707048631195756*^9, 
   3.7070486570361843`*^9}, {3.7070489344889107`*^9, 
   3.7070489462863197`*^9}, {3.707048976458363*^9, 3.7070489766810427`*^9}, {
   3.7070491359001226`*^9, 3.7070491528677177`*^9}, {3.707050878015752*^9, 
   3.707050878076877*^9}, {3.707065794838023*^9, 3.707065901696669*^9}, {
   3.70706595428377*^9, 3.707065960561912*^9}, {3.70706599399479*^9, 
   3.707066033048881*^9}, {3.707066069492025*^9, 3.707066075411188*^9}, {
   3.707066344344153*^9, 3.707066350007468*^9}, {3.707669292132317*^9, 
   3.707669297132937*^9}, {3.708442758833302*^9, 3.7084428036736403`*^9}, {
   3.708443114149672*^9, 3.708443164054968*^9}, {3.7084432038658533`*^9, 
   3.7084432112801247`*^9}, {3.708443244320887*^9, 3.708443247544548*^9}, {
   3.708451812272045*^9, 3.708451812341448*^9}, {3.708784598857151*^9, 
   3.708784603113076*^9}, {3.708785447348003*^9, 3.708785458156178*^9}, {
   3.7087855001510143`*^9, 3.708785527991172*^9}, {3.708786042157309*^9, 
   3.70878604364589*^9}, {3.712340571733281*^9, 3.712340663683361*^9}, {
   3.712418980617587*^9, 3.712418981906975*^9}, {3.7124191371877193`*^9, 
   3.7124191396521*^9}, {3.712419426040761*^9, 3.712419430906158*^9}, {
   3.7124194812419577`*^9, 3.7124195370508213`*^9}, {3.7124197909521*^9, 
   3.712419797694468*^9}, {3.712419912985506*^9, 3.7124199155685663`*^9}, {
   3.7124205429104633`*^9, 3.712420543452038*^9}, {3.712420750431916*^9, 
   3.712420751328113*^9}, 3.712420848266129*^9, {3.712444398743801*^9, 
   3.712444401935453*^9}},ExpressionUUID->"6459e03e-49ac-4247-9e9a-\
b1bb9f5d89de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.704742685524661*^9, 3.704742689532659*^9}, {
  3.7047961416599903`*^9, 3.704796142395809*^9}, {3.7048051150942717`*^9, 
  3.7048051158782663`*^9}},ExpressionUUID->"d4269174-d0d4-40b4-ac28-\
93abba4c0d9e"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\[Lambda]", "1.8817792028175195`", "0.004996676343829919`", 
      "376.606182455906`", 
      "9.5747526487399393700354111838502657993991`12.90131007175338*^-615"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{{3.712420537907407*^9, 3.712420544250095*^9}, 
   3.7124207522473497`*^9, {3.712444301770245*^9, 3.712444323836296*^9}, {
   3.712444381289075*^9, 3.71244441853673*^9}, 3.712445551161646*^9, 
   3.712445602944385*^9, 3.7124457209523687`*^9, 3.7124457832043533`*^9, 
   3.71244592297609*^9, 
   3.712446971110643*^9},ExpressionUUID->"02dfe6be-0c13-4b56-8b62-\
675c294111aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p\[Chi]log", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"Log10", "@", "ht\[CapitalDelta]v\[Chi]t\[Gamma]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log10", "@", 
         RowBox[{
          RowBox[{"t\[ScriptCapitalY]", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Pi]", "/", "2"}], " ", 
             RowBox[{"C0", "/", 
              RowBox[{"(", 
               SuperscriptBox["B", "2"], ")"}]}]}], ",", "B", ",", "0", ",", 
            "\[Lambda]2", ",", 
            RowBox[{"{", "}"}]}], "]"}], "[", 
          RowBox[{"10", "^", "X"}], "]"}]}], ",", 
        RowBox[{"Log10", "@", 
         RowBox[{"(", 
          RowBox[{"fit", "[", 
           RowBox[{"10", "^", "X"}], "]"}], ")"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"X", ",", 
        RowBox[{"-", "3"}], ",", "4"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7047329906714993`*^9, 3.7047331824368887`*^9}, {
   3.70473324687014*^9, 3.704733251381863*^9}, 3.704734736989978*^9, {
   3.704741894041542*^9, 3.704741992210286*^9}, {3.704742043268236*^9, 
   3.704742096652954*^9}, {3.704742129180667*^9, 3.7047421619927464`*^9}, {
   3.704742567508285*^9, 3.704742577107051*^9}, {3.704742616468075*^9, 
   3.7047426468200207`*^9}, {3.70474268274114*^9, 3.7047426829487047`*^9}, {
   3.7047428295193367`*^9, 3.704742829795821*^9}, {3.704743149843864*^9, 
   3.7047431838914547`*^9}, {3.704743224165559*^9, 3.70474323291709*^9}, {
   3.7047433049747868`*^9, 3.7047433052567797`*^9}, {3.704743472073699*^9, 
   3.7047434726009483`*^9}, {3.704744472857861*^9, 3.704744473274468*^9}, {
   3.704789683610531*^9, 3.704789685321693*^9}, {3.704789994718698*^9, 
   3.704790017396002*^9}, {3.704795260792721*^9, 3.704795264351173*^9}, {
   3.704818168502204*^9, 3.704818174112096*^9}, {3.704818233543045*^9, 
   3.7048182344716463`*^9}, {3.7048823204207363`*^9, 
   3.7048823454332237`*^9}, {3.7048849755348587`*^9, 3.704884984360744*^9}, {
   3.704885534113755*^9, 3.7048855344392233`*^9}, {3.704885853651043*^9, 
   3.7048858540657167`*^9}, {3.704965773843742*^9, 3.704965777065875*^9}, {
   3.7049693612179613`*^9, 3.704969362720312*^9}, {3.704969399050403*^9, 
   3.704969447906712*^9}, {3.704991898067823*^9, 3.704991921331386*^9}, {
   3.704991958589786*^9, 3.7049919703480597`*^9}, {3.7050675461019287`*^9, 
   3.705067552125432*^9}, {3.70513674970753*^9, 3.705136763418333*^9}, {
   3.7051372263219357`*^9, 3.705137229337325*^9}, {3.7051393434243317`*^9, 
   3.705139344126608*^9}, {3.705166738542261*^9, 3.7051667397973537`*^9}, {
   3.705176438011141*^9, 3.705176464402214*^9}, {3.705176507475484*^9, 
   3.705176525243636*^9}, {3.705176575181119*^9, 3.7051766349376163`*^9}, {
   3.7051766711498632`*^9, 3.7051766733819523`*^9}, {3.705176837978043*^9, 
   3.70517686389679*^9}, {3.705177734310852*^9, 3.705177748038958*^9}, {
   3.705231673761531*^9, 3.705231966817231*^9}, {3.705232013634255*^9, 
   3.705232014625255*^9}, {3.70523210300005*^9, 3.705232119848153*^9}, {
   3.7063084483714867`*^9, 3.706308457012969*^9}, {3.706308640985435*^9, 
   3.706308682934486*^9}, {3.7063091070446177`*^9, 3.706309109724715*^9}, {
   3.706309613956152*^9, 3.706309614132029*^9}, {3.707436986052169*^9, 
   3.707436992524081*^9}, {3.707437592518285*^9, 3.7074375947752447`*^9}, {
   3.70743767159232*^9, 3.707437671958208*^9}, {3.707438477243264*^9, 
   3.707438478110629*^9}, {3.707481753346265*^9, 3.707481754129567*^9}, {
   3.707664795014165*^9, 3.707664795726964*^9}, {3.7076651937319937`*^9, 
   3.707665195358817*^9}, {3.708442820514758*^9, 3.7084428863547688`*^9}, {
   3.712340674251704*^9, 3.712340745877091*^9}, {3.7123407856701803`*^9, 
   3.712340785754417*^9}, {3.712354614143187*^9, 3.712354615407503*^9}, {
   3.712416803677637*^9, 3.7124168047510023`*^9}, {3.712420780136553*^9, 
   3.712420789193008*^9}, {3.712446204182747*^9, 
   3.712446257834797*^9}},ExpressionUUID->"2c5824e4-f401-4979-a7d0-\
d150d63fc2a4"],

Cell[BoxData[
 GraphicsBox[{{{}, {{{}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.0055000000000000005`], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJwVl3dcT/8Xxz+jnZKi+BqlZTVEVJL3R4OUrVQkoy1EpUHaQ4WIKKQkQqE0
jZy3psqoVDS09x6fxv3M3/39dR/nce5933Pf97zer+dZfcb9sCONQqEwqRTK
/6+TCWYvZCs/wNk4lzcvFdngNe82kkLF6M0ZymyFHAea81btjIsoBzVlbtbE
ATaUWiRaHVxcA9Xic1aPS1kw4Z44q5nZCfqB9VdfWRIQ5bgnVzXgFfJ9Z2t0
q4UNM12591KeVaJad3TgyHIu5ErbCFv01sO+oh9Z/FAW2OziZOQs7gG2cgdL
+SwBe2MS3cQXPwTBIs+yH1s4oK+wiWWd3wSWnx4z7U6zYKRe45JtZBvsj/14
hq3BgtvZXck+xv0oMOv9nkeXKTjAUqOrxbMRhdJ1pDWLuLBmw+dfROYg+nmU
r2zVR8FXD4Yaz7T0oOgyY6VyVQpePagy3mLcglL+yS2EfB4wE82dPTy7kE3P
GjXpx3xwWD2zJCh9EqHZ+Ynt32nYVGdZGsNzAilJf+4Q7KfiKxK/R3jXxpC4
ic57B0kaGT8R/ZNai2w7d55R+c0F5tFHC/2XjKCQ3EyLkstUXDTj/2NSrAP9
0jTLPZvFBz+XlVkVmXNIfbVCSWWYAE6cyyYifGeRMhzolAwUwMQuk7Dv1zjI
oCEiU5clhJc1Nv2I2cNGaazXKiLOQpgVNdNS3DKFHKIejpfL0/F2xc4pifdc
tC+JsU/MShi77v3dub+Phzwf/M5vsRLBBo53zASkmEj494EsjhMdFxl9WCXa
OY+MQ4IiqP6COMNQcqGpBIWh8bFJwfWKCB48nyFhtoSFqvLNK7f3COJVy3Q8
dxnPoE6DpzhEUQDfPxtwV81YgGEg8HZZ8+0F2MxWmFt1mcYoevDYJuanGP4c
tzXTJZ3C2G+zs3nKShRzgs1khxfSGcW2acvox8Vx+O/txXvbBBiGRmF5oCqB
ra6eXfe6hcrYV/NO/PceMfzEPeGH+Gs6g1k9xz+WKo4bbeK4bzOFGDirKGVH
hSS2Cwqzj9pJZSjcpz4oKBHFiTQc8GuXMENcROyvidlCvP2SXdB5X0HGcY2D
FjfuS+A2u0ydW9JCDGroy2+cVgnsf8pjaLxDmJEg2bL0as9CvGo/fip1VYQR
+C7vHGePFG4+kVWf1TsJa1NlVsZqELCw8vS7qWXToLtnvZdY1zxIqWovv3vu
D9SKSOXQJFigsFRZsm68C7S/y3DSqwjoPt6haccag325H+Vlxueh+8ntSAvr
XlAXenbPJo0FK4+/m3HPngDxfxb7oiLnYc3s3TabdUPwyrbkSc4hAg4+sh6P
M2iFE9+0j6pGs0CfkDRqxP3w7eq60q2DBJzLC9l9ILID1vjseXaET4B8g2d+
y50R2Lfw8/fBEAKkoieO33hUB9bvN3/Z38CCOtvaEcnpr5ATNpHPfMIGIkZm
tbpUOLptl6omUsiBtyodN1f05SFhj37KN2MOqD04nysXX4rGq9Z8007jgFuo
nNfDor/ooWhSxw8eD2TDsNDC+GrYuEi1MaaCBUZZh9fzn2aBU6ORmUMSG6Kv
/fZU0PmJLJscwozluBBv0rg++dY/5FC9ZSBhgAcnZV9+uDfyG937eOxYagsX
BOYU/X5qdqJQBrP5E4sPufoZ0R2p4+jRksy4Xika1gj3fHNi2yj6/iu1z6SG
in37Xmw+7jqArq3QMfN6QMEXnj1mtNYOoSPhp6Q496g4L+B4VyOlD02fPPyh
IYOChb/t1s4WnES0VZVmikU0LPe08/XmC9PostO2iouedHzM/9qyy6lMJPOi
ryRSXQDrbPRmTulNoa6jOEB6Cx1HvHAXyW+cQXLPLR41pQpgzW9KghYJ3ajl
ia2+lSkFX24vNJ4Tm0Pbww+eOLVKEFcfvOT3KZ2FavdnnzZxE8I2ej++Bhjz
UCL8B9PyIvhBoGigLppHj711z7bpCWJZO60jBlJc9NXfpivLQRhnS2cocFvY
aFiqWj7knxBuPvZ81M+TQH9iGginQUF8jxJjGXSUwliiNGlmbyuKzTUT92Ff
Pooul1e0zBXBvREdt7uUaQxhJTcL5ToxbP4kU+bpBIWxsXpHUG+wKH6pKSlN
BxpjmGc3H+cjjkdjWFVfo6kMFXHulJCUGI65ia8p2dAZRSVT1rv7xLHaVckt
xtN0RjM1YFlg/AJc/PLaO4bDFLxbuGtREIUAgVcy8xNFA6AlWnwse4gFiDUn
7D83DlmXlUaULxFQ5B3vHuE6Dy+SHYUjNQlwuECVvGTZB4/7HVI22ROQ3KL0
t/g7EyJMC13kB+bhqmfMLeLWKLz1MD0XcZL0h/WfOnmak7A0J+1ttiILrov3
3DPeMgcd2MjojTwB36SGKrxVh8FwzdzlXXkEfBfpzqNTZ6H2yMZR7eZ5MEg4
/yg4YRrUOzZnmjkSECl41iNteTzssqxfrq/Dgcoz9tU/nZrgleHVtRdEWXDa
X87QLawTGAZpHu0vCbD6r/zBj/h6mNOuV9ZjsSDx2JuPsVG/IAt/uSjAZcHn
lQstUlIwKgsvPImLOaDgqOPTqNMGTYk9wwWPWBDnuOvhcVYG8o06nucYxoHv
7XeXs6ML4XBTdaOELAcMGzX3RfSXQfG31Sn5f9mQdGGs65FhFTL772Z0ZhYX
7FNOvh0d6YZ/6X4CP+oJkDHdgnM3daB1XTYXJwt4oCsb6OR8rwVt/eV/d/YD
H95rrx3Ydq4fffEVfB8wTsHZuwZK7Eoa0QHa10eG+3jwoslX1GaqFqU90fpz
Tp0Hv9ctUN/6qAs5ObjdX7mKgq2T7r4vfj6Grqc/p8VxqNi6w0jsA70XfVri
VF2IKVhaMNzlS/0g+v563ee2QCqu6zvegAxG0Po7vwqu51BxhVZ4mP2nSZRf
aPhZ8z0NN83rmypGTiDnuKPv25JoeLC24Uva+BS6Wqv4peEeHau9uaTep8RE
vVv23nStoWO6o88p1xuz6MKP5libfgHsmsWNe4XnUGDa2dujW0i/ikmkDjPn
0Zow5i7bAkG88pnBhzXWM+jChe1LJiwFcFKw4021dSzkLzE9PEv65YazXxvG
y7jI7d6n0xZUEXzlSNfQuRNsVIz7RNR7hPCKUzdPa7F4iK7NOeAdKIIHbqk4
v73DQZLBqOaPnTCutWZq6clRGJt/dHy98kMEW6YxLa6YUxndXVbHQnXEcG7+
iySbbArj9pr1t/NzRbH7kCurh82CskB+sUb9PKRZLm9Q3ciBjmn+nFAb2X8f
XxnY350HKlN4o8YBAl5F0pd0rp+F+Z4Il23RBOT0uyxPqyBAOyWPa3CMABWf
aYriyTlI9x+7lrCDBc8TqtVW3pqCORv/h+zDBGwW3bk7eZYJDiXmmwUtCBBu
DXa1K56GiwF17ZdlCdikJtGU3TUK8bGvb29pIeBsTmxngsoEeJeVNilpEWDe
f6WyxWYSdup9mahE5Hp2bn4aV4bBp1Js7lYEARu3KUlkLhoE3lVVXxpZ32b3
oo0vGT2wtX6vgqgRCwbWXvDc094GgfkiDNNEFpy8mC6k9qoP5IyTbiUWEcCq
Gru/5m8n3Jmp76raxoIvTu8+G0s2gw5Vz33dFMlznhxbhkEDRKSbMayzWDC7
fMc//XM1wDmReN1nNRt+n0gyObe1As5K987zxtjAe4+yytZ+gjExySoTfzZM
GguYbbubDCEBQ52RbhwwnxB79OnLC3RivHDpuasciFh8ZKjfrBZJ7aJOa2vw
4KiaUYHXsy+I4e39Ws+MCyJ/KaVDyxtR7/EPaQ0NPNiy5VdK9fQ39PxQrG7B
ay4sNrkYMDHSjNy4b8a4G/lgtNsv6druLiS+hqnoeYeCy0d1tzGL2pFthGhT
eBAfBNYdFOO/60HXtCJq55IpuGvzuTJ68CCyCfY68tGBiqPbI/uDl/Yjg6DT
ORlsCv7ynGcQMTiM4jJCiOE0Kt5aWnAk8s4kKr90N4X1l4bpfcnvRQ6PIS+L
d+yahTRcminz2ExjBq166/n+na0ADq71URdlTaNGsYqfr0QEsMnP4QqTExPI
60m+sM8HGl4RMcn6VjaFzj9d6p8eSMfUrGSqZPU8Sv9xZMPUsCA2jtG/eIBP
IH0Fm4wXKkI4L7V9zY0zs0jcXjgyiy6ItwQLc25vZqMzOf1D3+qF8F0v2/Dv
9+eQbx7zzPFAQfyx7gyv1pmDgjZltNP8hHHwrYoG6cdctKt0Rd/ErDDWsF+2
KVCeD7qpPw6/LCGAmHO2MhjmgtV3/o8WNZJXvqU//BTChrA7G5/hDAJKXe2N
LWp4SElY2H/kBcmvM06+nHwOrFHzUrAl+WdzPNVD7z8CCoR3BqnaEfA2bPLE
lf0skM3IjFLbTPqNLEqb650DZvzvnqapebgzGFienz0L1Py6qCVSBDQwfVW1
9zCh+MuFXwc3EDCNb+6YXDwN8qlez4XrCNB8URl1+doMrFJYeZhO1vvsWdie
7I5JCBuJ30TvI+PPOYnumRPwqqetu4bUi5GlfIXtxBg8rNzaYU2ezx4xz3Br
5AjMBLQsLiwjwPPnkaW/e7tg5fBQy79iAq5r5nha7u8F741erCbSz3ZFfxiy
lh+C1+qNE5nk90v2DR38m98PQjI7zncqs6DV4srAwWsdcFcjinNeng2rDm89
lLSuFdRFB397BLBgUW/5/QfWfyDtftvVjcps6FcU6YiLrIPz5k5PvGzZMMbc
qLX+fDV4PDa/OmZC7vOtkZsxtyPRSe/nxq1VHNiRpU5dXP0Vqh3kXXQfsmFP
ZtLSRYezoOKjzk6hcxxoWjmxeNXJn+h8itvbIyE8wEaLUqSLStGyUYUYoWVc
CPVza1q2NR+9N+ws9jrIheQCRnkcpR6FeQWsjCe40L78Zcrj1H+IOFL99tUl
PpyyZpUn1v5FO5ZY7Lyky4eMaFpYg1gfCs/v2lbWRsHepTHqtXqdaFBcoSVJ
koLHq57NW3kOoBOXErarBVHxr6UXxY+kdiPDLTdUuv1J/gpuaWhuGUIFlsKj
MbWkX533HD1hPIq61ymIrRWj4bkSv5ossUm0XMk+WNKcjpUn+/Q7M8fRb7Xi
UztUaFgtvrNqs+c08kkaj3Z5QsfbkpegqR1TCEnp0rdb07FP6tO0vJYZlPOw
LvVFpgAWdbZb65XORFVLMod2Kgngj9cMZOYWzqGa0AKBUK4AzvAUTdY1nkfa
1utqm5sF8VxQpe/HTBYyDLVeXNslhLXKHJ76+RLoS6NN3bYdQnibrWM/u4ON
MqlP7jvuE8avE/v8dNZR8D/tsKkF3gQkbPy+WGMVH3Y6/Cpx6yb5ny6hMzrI
hVFfsbv8ZQSYHEDO1iUUvM6VYreU5C0xfJSVkccB8SpHhfCmeYitcZJ0C2aD
vfSd0ISH87DscBpj3T4WeMu4R9QnEjCi3HtmYCkBF1Mzq185ExDdqaGa3jMH
o3ytXU62BGhtbCt2zJoFof1lR5uPE3CAM9Ws6D8DWk/LuxVIvfHbBnu7djPh
fdasTZQ6AUuoBRz5jAlgObtSRm4RwOtl8k+2T0J2YOOl0Fgynlu69anMNHi/
XCxcnjQPPEqY0ufRMWisTA23a5uHctu8KP3wETi/4fUh5SwCGC+uZRauGAJi
vdHoBdIX15usOrQ1tx9U/qp0FWSzoDzZsVOruwvec+Y1SmxZcK/aeHWueS/Y
X3mInrDJ5wfVBd5d6YDQyysnm3VZcFQq6ZCNcivU/vnausqXBTfLNngcDKkD
GRvRW+bn2DC7yHx9GP4KA063b0uYknpyVo8+fuQPLAiT+EQ7ywKBbF/3+DPV
cFDw1ys5Nzbo3fL+eVz3OspUF9PkbeUAM/yGvaJ5PvKpHt0QG8IBve0DI/zt
WfB598FFsRs4cOqe1auEilIUm8BdvXAzFzobql6/cP2Jpk2vn73P5sIlDRnN
RsF6FBGedOJAKQ/8H4UMtjT+RdbJS1UVdfigaWz+vD39H2LGnnVdNMuHaRld
c4/tnYjWLTooRKPgIrFFST4SfWhtqMIGvhAVn7+ygh7QNoSGS008ljdTsa5F
EzDTulFITN7VCdKfUmZf5rIuDyAAQxlzeyqusfHXoC2YRJ3SPhUth+hYZ9E6
F96uUXSRVZpis5aG32wgYgwZU6ikzbivzI+OiypOmQS/G0e2E6AVvpWGlztv
FwnzmkafM2r9yrro+KBuGk343wwSPddnlpQmgBui+AKmi+bQXKCQ2bF1gviR
iUPrdZN59MDieNXpx4LYzvCvd9lLJkotFqbUnBbAbQoU8yo/AuEOwWPbfITw
5qDxc/MVJGceHXOYVib1UXU/8I86FdtRWJUvFhOwbY+sVMFdCi7sj13r9YwA
Zo7AXtejHOg2t79YUTYPux3PG6pP80F/XLy0X4GAvtUFgiNfeMDhngvp8SD5
aFPFsoxoLuhnJt1ROkqAk1GsVv8oAWvDR15x8DwsiNvx8/mHeWhdsKPd8AQB
FREmF9YqkvpamTAsRvb7ersjfWfC5yBh4j/VNW4ENDPMJhUPzUJ4jJjMgVIy
tvHb2bliBl7rxb+pViLg2BnFlauCJoFmlkDRsCRgh5R+zT/zCbiRUvusg8KC
iTNyIqdyp6Caq++sN05A025L8ZSBabgtZN557yEBnSLtzvnlw9AZ03nmsS8B
s647SnQ1x+DBOLNteQAB/vaq89kzfZDyZ5e+tCoL9sQK6mrbDYJQ/c+cv4jk
rcyx/zRv9oDDnJDDdBe5nnksZCp3wbWzroxAdRYcHn9bcNy3Hbqrd/Vqq7GA
2Psm+WB6M2w8TUSvGWSBi1S6oaFgLWi/O7LErZANvprTaZ/vpMHn8brHW805
MNZu0GvW2AAeOkFPL8WyYcBcZ/vMjSJYUCfla/eAA7NqPoeCXL4Bf4EEuwXY
sEL2sN7p2afoy4JIBQs6F6RuxSbvRZ8RI+6HxvO9XBDbr0TP/FqBFqlwb372
JfOLqZ9bsmsQu/RtqF4yD66kjLn0HGlGhR6GaQu/86Hkc6VPe0gDun9b69ym
eB4IrNY6PKjcjmIP3hDd3sqHoU0DSVfse5Bd9ClF/WoKzs8/PsKt7kPf311U
NaijYOHdByPmWJ1o7uuE1tJjZCyQokFNGkaH5LSl3k1R8dC4zq4wwTF0IGrx
zeWLaZgh2MoxcptER8UYq7RmaLiuMiGIpjOBSgf+zJym0nHwPpdDAdqDyHt9
C7bxpuLLjUZz5b+nEeePTaESVQCHdvi4hSdPIWjUi3VuomPWmmRCWGQG7VE3
P75+QgDTIRlFX5xDM91p5QF3BTHupteabp9FxZUM3zgyrxd/Q3zuMqkP40J+
fCcBU62HeHk7KfgdPFn0yJTkHfNJw8H/ePBd2UnaleSfZ7zMx40tFKxb/O0f
dXQeNn13dNF9TcMhetLLODsIcK3KkdpwgA9rh0tbEoJIvclKXJWTomELvayi
PXPz4Nhyda3zezZcaxYLC04n9bBqk+PLPg4UursqxeuT/fp360Dqknlw6t5j
655KxpOOuqc7Z+F8sfKvYRoB4us3lKmQHONQ8r65jJyH1s+if117CBg933Aq
W5uAv+07aQpvZuDJNl2TaDMCJlh0frsvEzplVBeUuxNg8HJNxQmpKdh9qId7
h+SrYyzJxU+Mp6HptPBnERdy/vgeY72idQJGdtkPRUuwoEO30DL/wDhclPl4
lbGbAFNoU9HuHwHrZ9oqQ40EXL3L780OGIJbj0w/JZB6nWmtENGUHYBN1Rcf
xlYRMIQmsNlAK/B7kxedaSXXu+ryJvNNL9THnYDarwS8TM+qVDfphqeSq92F
NrPAv/GdwcvWDnjPVP2+soYFThdtVhnK/YWKJaInLn9nwZRjkOWVoe+gWFj+
sWkrG/xmzwswdv2GgQ3LOgtfs+BPzNOOC6YlsFjJ6FKqJAeGvBTqfu7NgZLc
kE8jDWyoqev2fOK4Gs77ip/CO7kQ9UFDFzq/I6dk59wBfx6scUnCBagEBTX2
HH2ZyIWrjO03e3b+Rn1tclN3yPzSFdceWOvnoGV+I7IWbRwQ/BrgPSj9F9Uv
OMkqnOBByMpY+4CMXjT9wSm0WIKKpTXGNo53tyJKbmGG1SoKHqYtzLrS3IG2
VIgo12fyoTAihMc17EYX1Z9tX5tL5sHOOsx/CPnPJG0WeUbFwc1t4tf3jaP7
Lt76/97RsGh9OYO6eAA1ZQX+CXGm4jDTGC/Blgl0kS7W8WqUhp/bW8sI9o6g
TT1FWa7WNMyKfU+7bjSNduYrBtb30jE2l2v+5sNEoqGzjyb9BPDlHVaU3Qun
0CN/QTWtORoWWJNjKpY5gyb3vbL4CwJYy+DQEV0POnbJKc+onyFAV8h3dtaA
hvOxJSuyg4D7kfOOcuTcFXHuOFVJiAWT+wwG80SpOFvoSPLlEAKeuidENpLf
Yem+RbA6j+xH9W9LB1/zQVG4UsZ3IwElFFH9l948GBUOKQk6RYDIAtojFfK/
LQp908LqnYczRYd5ToZcqNvmCifJeWHzURPPeHcKfn02Ut19PQGNHyW+pD4n
gC15/fyWEQJU/8rmdDWxYNzM4eSxl2T+93bJ05fmQb91qjuS9KWR1ub6dpFZ
0Jx3dVEg62n4uvSvvMEcON8d/lgSR8DR1t7BpHomTE7upm8i19sWzXt8ImUa
mu2t42bekjzJe09p0ZkEl+6jkQeuEDCWcjlXY+sw3JZ7qGlO+snc2zMaK85N
geENgWveffPgZfXmTvaTUfA35a2aUWBBE5K1yfwxAAlakXJ5NBY83Vk+kEif
gNH6i6JfyP0b61ZZoHKvE9Z5q4drkfVefnhiMJ3TDUZu3/6UeZH3u9ldVnfs
A9oFMdHl3iywns+9vNOqDUbFHC+Gb2DD0MflIdvz6uHIz+EsZ3s2nA2oPI4i
mkAs6YzPLkM2fHpkHXv+2y84kSG16JAmB56/8onCpzEqejG7krqNCzZmFXJO
quUwEc88XjPBhkLJUrm70g8g5ZaxjaIdB94seqmWJfIBPjkV/Ltmwwax04m7
e3iv0YrQhtlTQlxQeBHXNP6sERU/N35vdZIPSy59dauiVyGJ2F5idQsXZPSU
5IfqapHbjZf8LvK/fymuP8xT7EDc0Z7MjUN86LlWLDLr1YIULd9eepfFhyib
zoKAmC502qDP2InkdimpZfFUZg+6kj409XuIgjOTXzsLlg0iTpYv44ErFU+x
szLDbPvR+ffp391JfSz84WIgfn8Mnf2ar1WdTcNRslqnrquPoOl1wfdMbWnY
zzZo/e7ACZSzViTKUYCOeW9a1K7nTKIvqwI+jRrSsdRcqU2YigCOrs6RD5Rl
kfM2Q6Cyfwpl/Wf6iiIrgIVNWj3EVjCRHdPlQNh2ASyHhzmGkzQcSDMxqCsi
IHjdgluKVjQs9sl4s4QfAd47z52zj6Hj10yrK5R4AmqEs8epRVQsN51IvalD
gLTUB79ORSre93Sk+Dl5fv+p+ROHr1OwB3XAOIY8f0O8JnYz/pH7VGkVVnCN
gNVa28T5L3lwe8T00M180k8CB9OLvLhgwboU5N1EQPxu5eXEHwJiL69tfRFI
QK856fkMDlTeT6N1kv0brzFTtW0ByRm/FOyja8l55OCP2S36s/CRo3E2cgEB
GQeLO33c5wBuu6knHCJgg8dDCc8nU9Al/6EvcQfJN9zeVzNC5HxjtWAFr4WA
e1sovQXPSN7bsuVYwWMC8hXN9HPrpkluOhbDJN93Ku/NjNbZSdCd5CSFkv5w
7rrxTzv6GBj9/eC0cQsLrNb0erQ+HAZP2W4rswMs8JP/0jCxZQIaV6X8WVdI
+nOwGv1vZR98eFZ6NCKeBfJH1GNPbBoEJSPVi4fDWXC+mqlieboH6m6bwjMR
FvRFfch7fKAZUqcHpZTLSf7a5xybrNAOj1fm9TxOYsFr+1f1NfOd4Fslu0gv
nwVrvYLR3Tc1kKB4+7qbMRvqXsReW/qhAmbqFC9FurOhZYUZ+35AA2gdYDgM
XmGD0h/m81jRWiRp6DaQcJQHj5HLPRWNz7BMuv/PzVJy3nkhLrr4SREKnzKJ
KojkQq7GxHVKbhoKoIVF7c3iQpuspeXK+qeQMu6TeYbkgIG3yg3xzQ1kDXu8
D77hwcZ6sT8yl76htri49e+ceBCcL+7xOKMZDZ2hSN+J4oNcj/L2JP92xJZ5
ov1QiYLvrDW7WqvahX5e1/0hHEnB4ppndlmfGkRx/xlqHbajYq/FXXEWsT2o
OPTox6gvFKxR2LKvYa4PpVe1C3kup2K0jSk/sXcCye8XSe8apOE7vYlKLd+G
kX/DPTGXZTRsWst09MibQpZ01oBSHR0LzlrPbQyeROXLeYs/6NGxZ62Wvp3W
GGKqp+ZW+NPw/wCKeP7m
         
         "]]}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{{{}, {}, 
      TagBox[{
        {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
         LineBox[CompressedData["
1:eJwl2Hk0lN8bAPAZZowlJiNC1myVVFIR1UwSERUVUSlL0oZvKEspKfuuKJJd
0kqlSJ6bbGVJ9ij7vi9ZZsHvdn5/vedz7jn3vve59z73eV95W2ezc1wEAsGE
SCD8ex64Xj+6vExB/Yq5vj03mLDXS9Yink1BE8RKkyFs7ZuXvmybp6CnNSHU
bmyN2x9Uf0xT0GE/7aoB7I1+3LEXximI3/0u6sRW8j9MIA1T0Jt5qlM/tkxQ
wsUnfRSUlZTLM4q9OnSgQauLguayyBp92CsjNOj1vynoQ0bJp2HslsyYqMx8
ClLp7VeZxnZsOrrDxJWC9AMeZhNvMsHmV1LygBMFOWx8lcfB7Va/R/jvXKQg
zy5u03/tRzs03aUcKGil5YFWMrZxt19Hng0F/ToYQfvXvr/vh6HpaQpKPyUW
/a99z+CadyMnKOimYBuRH1tz5LyM/zEKckep5/61bxl/Gyh3hIIeNV6s5MNe
IK9qm9lIQTvNq9Vp2EHbG27F9/Ogn/7sLgVsKaHAXU1dPOhz6nCQPParfh2m
8B8epO41pqKM3RCXdjWongeVCJx1X4ctx7p6zgPxoBkFow1q2HlFwgfN43mQ
/WN7oiZ2t8FhMdohHnRtwNzKGNtdjrvexJAHDRVdNj6IzcvMiwjS40ENV2+r
HcZWy5bhI+rwoI+uWgJm2B4rxtkTKjwIzYZ1WWAL/QztqibyIDPrnCU7bB2r
7y+C3pORzq4ePh/s6Q/t+mI5ZOQqKhx1GztbdKYz9QUZ5Wm6W/pi27pSvDdn
kVGEjGqHH7bEzzWihWlk5JyeYOePXbtpy+sDSWR0fMZPMwA7MFTPsDGejJLl
DxcEYc8bXLk5HkVGYa/cJcL+xSfDd7V3GBl99Cxa/GcH7tgcShAZmZO6b0di
y9hkH7x/F/evN3g5CruxqKhP7jYZTV17MBmDHSpVf+ulNxk5+bj03cfW8xqQ
0L5ORrVqpR0PsDnN7LdlV8motIx27iH22+0rDx11IqMT270cH2GrCptPSKmQ
kQD/8FDev3g7XQx6tpaMijfoeuRjx1f5KOyQwV76U1yAzRf41OKwKBnl1nhm
FGEPLC2ALzcZGb/5HVCGnTaaENnfQUK1SjPFTdhrKrrU3zwkoZWjbFUmtpvL
K6Wj90loc5e2CRu7StxbYi6ChLiiqFcXsX0urCLuCiAhncxbX4k+TOjkN6gt
dych1XvPQvmx001eOHWYkdC0sPhtaexN9deeCwmSUMmocoUetr/3vqQcXhKy
NfE2NsDuUFgZc4xEQltfSDcYYke6PfOKZ3OjQ3I/xg5hT4v+NlQe5kaDpHkj
S+wPJ/YO7i7nRvqxK/Y5YzPaBZSu+HKjMxukNRKxt55iXMq5wY2eyhL8k7GV
Wt1yZq9zo+IDY2fSsPmb/uz2ceJGVjJrpLKx66tfm0ec5EYV6cOlH7AdPh8N
zNnOjeQlSHr12CGPE0Zmh7iQp/e0rNAtPH/JWnXtPi703+mBX8LYLg9JHj6d
XKhJw6xMFPvY/SskSjMXUjZMuSONLRNKlxYv4ULI6KmDGvYb755D2k+40ELp
RsFD2E1Wqrk+ZlxI5XpDfQz22GnUKHKIC5GjjOQfYpNsjjOzDLnQlMGi62Ps
redvMeoZXKjr2iBfBna4a32NymYu9HNfgUcetkGo90itABcaI570a8X++LlS
UaGUiHq7U0gqt5nwA5098BERkRMjjW8jdv/X2UsmhUTE21a1uAV71XfZt9ff
EtGPUxoqOtj/NbnurUohItLSt0eHsTdMrLF29yGiGIu1dZ7YCXKX48o1iah8
JNKlHtuY6Si4tJWIQsVHvvzC5vw857dtExHtahCX6sS29jvjnKJIRFJ8G9mj
2Gv7zQy8hYlo4kIPjeLLhKznO+c3jRBQ75qlgV3YeTsoFrFPCEjHqrTmNfZ5
Kqm66hEB8aOZwx+wxQcJ+7gfEFDK4sWuImyvR6xNLiEE5HcPra7B3s0Z4zHy
IKANLxyFxrBLvjTkLZoSUORWDnvjHSb8NE4VO0cmIKsNsZbvsRVcLPpzCASk
q5S9ugh7WFni8uL8MmwIrukrw1Z/N5a9pW8ZUi9EpbRgo5rYdXGwDElRTi85
2B3cQwr2bsvg5Z270sAP51unMMmlP0vw7s2G0D5s9G4+P65hCXSO9Q9MYNuz
bSzVK5eAtDnYlIX9InDHQ/uPS8CSHD9IvYvzX1qHaGX0EhioKY7vxLZqURd+
aLAEUSoew1HYcbpNlK05i7CUssfK5B4T7sYQba9kLcLxwuqyE9hXezcWZiUt
wqZ4X7o9trG/n4tsOLbqMWtvbK7vW36tuLQInrldxtnYl01DsgcUF8ExznuK
3x+fr7MMk8SHHLhbuXa8GVst59LTlggOjtuCQR+2JFcccVUABy7m++dOY8+m
jb0PdudAho1YgWAAzs8D8TIeZhyojpCP1cMWdZ6dMFvBAWsVVsR77OGb2dG8
t9lgH7WgmhHIBAGvjCj/a2xQvn1bPA9747XkSNIVNgSELKwpx77iFBtOsGKD
r9U3xyHsSes7wQsabDA85Sa5OQjnb7rVncEBFiiuu8QpwiZx8V+tOMyCWfN1
T6aCcT5YIv2nr88CX5Wep+QQJuizlp1LdrGA955JlQR24PTsFbSeBS8E7c/r
Ygv0dF34yM0C18rHg/exaSX5NlkfmHDc3GYnPZQJsv4XTANlcV4nb1PIDmNC
cKiSQJYYE77Jiu5H2H+ju0rKBfE5yK6/04RdkWSpReEsgHi0mxl3OF6ffENZ
/5YFiH5G1bfGLhldP+YXtQBHTrASJSJwfXF0OPAW9wLcsFdZ+TSSCXWWmbpJ
rHlovFA8g7B3nbXlFE3NQ+zUn/lWbOErrc5LHfOg8eKwLTWKCQX+381vFs7D
fe3Jr57YggXZit7u8+D5gNxxLJoJuXKX8N09B986hxKV7uPzWRin9rV9DsaT
Rwz3YQucKImnNs3Bjl5TSRts+whp96ySOTCvpa5PxBZb+rG+NWUOLhsVca1+
wATPtm0xu0/NgeVe2xrhWLx/YpfOkX7Owil6Nb/SQyaMqqvWH6mYhfvDDQkG
2I+qLRiJMAtcFH6Li9jTpBzJHa9m4cb8tPEb7HRXux/nQ2ZBKsRi155HuJ4w
rdCq3D8L2YvG5rbxOJ8JRAtEF/yFQpuikarH+L42C5eWz/kL8d9n4hawwx8F
b37z9C/Mvim9qZjIhEMqfkdr7v8FCdPH8zewa3TdEvid/8J9g7bnW55ge5qr
+in8hS33pC3TkrAHJA+6hc7AoR200Q+puP9Nq09z+82AoXu37Qh2uLuIc7Tn
DLgf1JWWTcP9c6+IeeMwA7/uLZ8OwK6RWWwdZcxAjwtZ4mQ69vGOi+dmpyFK
eOwLNZMJ1V/Tgs2tp+F8RarVm2dMmFtlYxFwfBp2yBh2DmLLOcgofjSehlaH
99ny2Xi/8D76LKEzDRN75an3scVNwid/r54G2k5J2RvP8fo0eZjb/ZyCVX6W
aZYvmcAeNFnrojcFqy3XhxnnMEFRW2AiWWcKCndsNgnHPhRS8enn1il4uTLj
VC12stq+4xryU6Ahe+jS8Vx8Pq5qBc4tToL8tlRTu7dMiGavHb/xYRLCzRZi
wt8zYb3QQn7QhklYe3VLpFIBvt/576kuyk3C1ATd3gO7h4eW6LJ6EtpTR9Iq
sROXVW9bkCbh3DtlR9dPOP93Q6hR4QTkueTQKgqZMPU0IsNXYQIIYnIO/oDr
AY3NzRNTY8BPk2qwKmWC0UbDgqb2MXhj4qxUiE1Sskv8XDkGrxoGZqTLcD0p
FmcXkjEGM5nJ/D3YZ5hLE8qWY1ATmr/ZtQLXI1DDa41G4WV3UfvzShx/Iyft
qvAReO2aIO9Xx4QVThfurrgxAvn0frUZbKMo+xrjCyOQ+22+1K6eCWXNVrbV
+0agWngqQb+BCUX2BsE1C8OwK29gktaE73cfudZa22EIDdCoKfvFhPu5dZ6N
O4ag2Hl4IqkLn9/G6q+iikOg+5X4YW03/r5gVgiaCw+BtpeQbCZ2GB1SmkYG
QUW5qeFVD45n1fNvzcmDoCPUO1zeh+fXf1eilX8Q3hkp20gMM+GkpGZ+e3s/
TH7vi9szg/Ol2TsP2+p+sOguTajCXgpS1+r/1A9zj9cyTv7F68tU/TD2sB+k
1Voue80yobdF7j3HrB+2WDPPo3kmOMXx50iW98FUdYXbJQ4Tbq9qzzJ/3QsX
L5T76PKwwNT4pGNrYi/I9Ag19GGvvduiYh3aC6eNB9uDKCwomanLPHehF7Se
08QbeFnAV1+e7qbQC0H1z1X/E2BBdFROcnRcDyg8SXWrWcmCdKF7D2tudYMe
SypEUooFvx+npDRf7gbfB2aNfdirVIuyOy27gaCwYWWuNAvuGcwXTmtg+4ed
NJFlgcPtC11ig13g4jBqF7GWBSrTJhvOHOmCQGVtEV2cx7MbxQon5DqhYMV/
VY6aLOi20yhdEOyEhHcSQse0WLC9N+kx91wHtPbOnWHsZIGYNO2LSnYHXFM7
ryWlw4KW8Dk+F1oHMNMGWjr3sODkVUgg9PyBlx6O6Am+R2x3moL83Tb40Wh7
9685CxZ8wgsLzrbBG92L76csWBBeUpl/dHcb7Isenpw4wYJPh/Xf3ZtrhcuV
f4InrPD8HHSeDTm2Ap+YpR3bmgVl0UoxOSa/wLmR10n/PAtUR5kOe1c3g0FY
4fY3HiwoVte0b51pAi/dgv9qPVlw4rqbjWttE9zPoTROebHgLtfEyYygJmDr
00W1brKgXbz3CB+nEaRixh7U+bIgcn+N9s/OBnise/E8I4QFf5+kCtlk18GX
g/M15CTcX5RMEuluHRAtYK1jMgs++8VvzjpdB6lt1n8rU1jg7xh9ZGJlHWTT
pkQfprNg9dY70Tev/4TWRZKbbjYLtEttxOL1amGH/61nne9ZQGjeuyvzcyUI
petfPljDgm+fdp4ec6kEPlJKbccPvB+S1X22KVaCMtnll/tPFihclEfFwd+B
EqT7J7OBBfqLBL0Oi294/Ac/pNpYEKqADopPl8EB0cwrloN4fJc9J4OVi8HH
0H9ZmsSGqaWC1ZptXyCHe2mgk8yGyjDNhp6IL7DjaUtwBoUNt55vMdnNRLAn
YydpmwAbaqr3+3TGAcyeUu87R2PDlU9C+i+6C+C6gtFJGXk2vIhNbtznkQM8
XYrdQ3Q2OKl9eltb4U7/azdlsc6PDR94Ze18onzop+oWtuy6xwbC1b18Yi/9
6MYW8uWmAWwwMsn4+NU9lK4fLLPpTggbxn3zQiK44+gLtOzF+Rg2MKTo7u5G
6fQf6btPaGWw4cIF7ouDY7n0G0+L/IW/sWEp4lxvCr2YTn+yRvCIGAd2HbdT
rQsppkvpclNWSnDAS9LmKldLMZ0vba9e3RoOzKWfIti5fKWbFq8KPS3PgYn8
o1KKKSX0riwRx4iNHOjs2Xssk6uc7nQgmWyzjwPFmjIl2aWV9EsobeeXqxz4
6jzy81dGHX0w9pHH4xY83noH/kvf6ugmQhSjgjYO5HV36nJG6+jRQge0W9s5
kHW86a3Mtno6f8Gwh1wfB0J1vjywK66nE8UJXmVTHDCnxFmOtTfQ1zTodHsI
LMLQE90ugngzPcB7T7knYxGoNY8mVYLb6Id3Rwpz3iyCpLvl4S65bvqd/t1k
rqdLOB6Re0619dNTyrc0NTQvw6KWbjVTb4RecpYn7Cyu889rUr1SeSbph8bJ
SXWGRFRKPKGecGaavnnM7aygKBcq3WmtpRT5l370aH9EQAcX6k33FOCZnKNn
SuTfsMbfkRk3zTZ5qDDpV7KNjVKekdBvMo/756Nsesiy0q+NEWS09UtNgOXr
RXpzj6K0YwQP2jB8bNi/e5muGfzfs1E/CpJT8Ai9t5bI2Kqp4JcXxYs4AekH
I+lcjNji5mfSUXwoRq/oMcmCmxHG52wjEM6P8uO7jyr6kxih7VIJ0akCKOdp
X+6KFDLD5MFjrx2ZK5DWoZnryfU8jO/vvvs0I0HkZTxek0jgZeiebVff3yyE
wogV1XYSfAyLPOOXSW1UtPnIi62NhvwME9tP4Tu8V6LU4850qoMAo4bSUHVu
eSWqzZVtz72xgpEfbaAm6SuMwp+1dhOfCzLknv1YMSpIQ9IWbhESpUKMxsBG
bfsoGnpSP7SO/F2I0SJgb/s6hoZkjpwpnqwRYoRubQ9mPaAhOUOj2fIWIYac
WWR7ZDwNrdWRO3ltVIjRHloR+TmNhtbJVinXi1AZ1+TcZFfn0dDWAYWiUFsq
Y9PM+T/fW2nord0jC4/zVIZkBE1O7A8NbesUmrK7TGWMbPKzs+mgoe2/mAo6
16gM2ubc0fkeGtKq/BE0FERlJLuv51Uao6Hdr72P6+dQGX4LMba3lmmoSHVq
XD2PyiCQ5HO+E0XQniyHQOlPVMbDMDuCGEkEMVJMP/0toTIebSCnvOAVQbox
KvJpLVRG2b6k4V/CIugrNbEg/A9+3/HCPUqrRJBeKO2YVzeVIWIZGOMiJoL2
31v0Nx2lMqSyFOmUNSKojOgqt3uKyqh4MfPATFoE6fsM5q+bozLacy6PJcqK
oHLW6aOr2FTG++/h+4fkRdD//19SGcMClk+2KYqg/wFXP2GP
          "]]}},
       Annotation[#, "Charting`Private`Tag$137251#1"]& ], 
      TagBox[{
        {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwl2Hk8VN0fB/AZM8g2E4NKWUK08khFqBklpVKhSHtZStZsWUqKbMnaE4ki
KrSZep4s4XuKoizZkuwkZCfbvWP4nef1+2te79e558y9Z/mcc+/Kc67mdgIU
CkWbSqH897vncv3QwoIw2qMufcHtKgGGfopWSTxh9JRUrbuOrXfV8f2mGWG0
hKy97oCtHZi77uuEMHLI2Vzgh70+iHbXYUQYZWTpidlgrwo5SKEPCKNlvRfE
PLEVwu9ffPALt3dkfWUw9pLIvgbdLmHkZpv92Rl7cbQ2u75VGO2Y6LQMwG56
Eh/7JF8Ymf/7PDwS+0KjxRZTD2HEcWnrycIO39xwLalXCDX9Lnv1G3sFI8yg
sUsIcU/a3+jEftmrT0i2CaHJt7ZJw9gNCenu4fVCiNVdFDuOrUS62/kgIUTt
SHhLYL8tltxnmSSEWnbsGRQNIKB790FZqQNC6ExC0Me/sL2UaPWmJkIop7rI
fh32IuJtdLiREIoMdqvZjL0hW0GEqo/vh7v3jx62j/gIb1RdCDGunXfahc2o
jeyqouL6H58aHMfWP/blefi/gqh605RjBPZEbruxLFcQPRvuPBCDnS3zp/PR
c0HUWvoi4T+f8xD218wURKsHtdzuYi+rXS5TmI4d7sRJxq7R+OvVnoeC6MlB
zcf/OSzSyORbEm4/JN/xEfbMbuerI7GCKMfV40km9svH15f43xZEO6dom7Kw
7Wl3ucLhgmhlfNjYS2yFs9n77gQLos78EzGvsL8VF/9SChREklnCe/7FjlxR
f+2FvyBS+nBq4T8b+fUt07ssiPQU9D6+xZ77znvzyR2XXxD1LcR+s3nxAQsX
QfSVbDtShL1O0nJ0hbogotyXFJr8r79dLoZnKQui5HdaKQR2UmWAyhYFQfT8
IV+Vhy0S9tTqoIwgilvkckTgGgF987NwnSaIvjlU/l6MnT50P6a3g46qvfP6
NLCXl3dp5STSUb1tsb0Ltqfby1UWd+jodTZzmzt25VL/ZdPRdHTGLFbOGzvA
QZpqEEpHoQcmfl7F7hTdXVPmRUduGaMfbmNnmD536TCnI98hniYXW6Pe+xlD
go6o62/aENgh/jsfchfR0WrWxik+dofK4vjDdDoys+qNFAgkIMYzyy+JR0NP
WkZrxLAnZFpN1AZoyH3oeaYCdu5Rw/5tZTSUmP2P925sTrvYKufrNCRPZP68
j73xBMeRe4WGdDUWyT3CXtXsyZ26TEPvX8aVPcEWbWzbFuBCQw3SkqfeYNdX
vbKMPk5Dz/uVOyux7YsswribaajmE2mwgH0r+f7g1G8B1MYQtXO8jp9frkZL
75cAsqrNZLljuyXSfQI6BdB8TOkJX+zDd5zpwt8FELtl6mootkIkW35pqQDa
YfIMZWDn+P88oPdAAOVXoqed2I3H1r0OMBdAjYasX2duEDB8En1jHRBAcw1t
bRew6WePEJkmAiiIKO5ww954/hqnniOA/rq3IjkQO8qjvlpdUwB13OLHpGLv
jvQfrBETQKmPXKq6sfOKKlRVPlKR2WlHW9cgAr6iM3vyEBV5SIRn+WD3lkw5
mhZSUfUPg5zr2NJfFN9cfkNFE3EZHnewLzV6GFamUdErm87pfOy1o8tPeQVQ
0dr97yOEgwm4r+SUUKZDRUWenpueY+8nLkjMb6QiUie5Ihd7rtYuaJMGFclm
a3mUYJ8KOu2apkpFvpd2q7dgK/ea7/aXpCIdo8gVYjcJyHy2dUZjkIIO3zKZ
dcZ+u0XY6u4DChJvjZMwDCHgPJNeVXmPgrqnXtYfwF7aT9lJ+5uC3muMwAls
v3ukhtstCrKd+PzMB3vb3LDQXh8KslEtieFil75veMs3o6AWk555tVACavc/
krUTpKC9kYK+K8MIUHGz6uVSKEissTlIC3tAbZkTf2YBxvolXxtia/0znP3X
rwU4XBy84xw2qr67OgEW4OATBd8M7A7abxVbzwUYNBiV3RCO89blttx82zx4
V+1SPhSBr/9nJj+hYR7Uey6sscG25Z211qqYB3NPvok39vOwLYm2efOw1reh
OhlbP71DpiJuHgyK0+UGsY81aUkm7p6HioKm7MhbBCTsaBTeyOXDqNOzup5I
AoLjqeecM/kwda6wisB271lfmPmQD9vbWa2M23h8QoLcFKP4kFoqcnArtsCX
v36IO/IhXkbxSjS2k9mt7D5VPux0kPzNicLr6wzHNCVxDsrU0rfkR+P85jo+
bYqeA96va3m12HICCVTp0DlQiWdaD2BPpQ//G+E1B5TVadPLY3A+9yUp+JjP
QZuIRXYgtozr1Ki5+Bx4LkoTPhSL+/dqdtyiQB7sVX7zWTieADG/x7Eh3jx4
mePcpIa93js1hu7Mg2pNLUljbGeXu1GUYzww23eNdhN77NSNiFltHrRmm/bT
7+D8Zh+70d9HAsNYaUT8b7x+BETdyw+SMHJH+iY7AefBPP2SsTEJ/u9O77HF
NiYXXEsNSLhuNKUfjh02MeWM1uD6T3cV1GOL/exyyKORYL7CXNoxkQCp0vyz
mbkEuB7PCEi/R4BiiINZmCLeJ1yWy21LJiAicpVYpiy+z6i4HDvsybiu0jIJ
nIt6VL8o7PKH1rrCc7PA2l/+pBPbPd9EMaRpFip9WlxCU/D8HFozHBQ7CyKt
DhPtD/B+bjEQdo02C0aLr/ydm0ZAnfWTHQ/JGWjPLhHtwzY4c26ueHwGPksv
fyf7iABJ52bX+Y4ZuPJxxVdv7IKQL5ZXC2fgot/1yq3pBEgUZKv6e81AXsnF
UxUZBLxWckTefdMwujuVUMjE67MwYUNJ+zRcksmxPIItdrQ0idk4Dd3ftaZv
YdtGy3tllk7D+LTQPIEtO/91TXPaNHzX8tT9kUWAb8um+G0npiGm4WBqxjM8
f+7O29Frp+DZCu+QS68IGNJaV3+ofAoqnIZrc7DvVVlxUmAKjtrrXhzDnqBz
5ba8nIJlGiZBbjm43zxsvp6/NQWMuoCznlx8njAr163YNQWbY3gKt97gPBOL
E4srmIQI/hr2DB6Xl+ZR8iu5kxDjrL1mdx7Ox3sRmjlPJ2G9jcyVBOwD6kEW
1XcmYfKQ8umt+QRU7/C8L+o6CQ/kWtVvFGD7Wq4LUpmE0LZi/dVF2H1y+zwj
/0D8Rn2TLx9w+xpLTtKC/sBFt8nTq0tw+14s1zjfP3Bypc94CPYBmnh8jv0f
CDTUCN1Viusr8JuHOH9gx2BpVPlH7CMdF+2mJkBC+e+E3nICqkrSIyxPTYC+
DEEN/UrAtPRZq9AjuHzncYMRbCV7BdW8/RNQ4uH150gNni+L7hUt05+Ak4GM
ZrVanH+mUWOtSyYgZePdxOo6PD6NPpY2teOQZzh7bEsjAbx+U2U3o3EIirRm
ObYRoKonNpqqPw4jFq/oP7EP3Cp/V7txHO69yr15vJ2A1A07j2ivHAdzusPW
Ax14fbjrhk3zx2AZXdlXr4uAOJ7yyJXcMSjfkDqg8YuANYzZ/PC1Y8CI3GwQ
OYz3d9Gb6/hKY7Dx9U4llRECfgpJpbgtGYOx0/afCrBTFtYFWtHH4GF7xImh
UZz/3RC5t3AU7lZ1fT46QcD40+jH11VG4XamtY/VDD4PaGt+Hx0fhvPaa2on
qCTsXW9S0Ng+DBL+iV/SBUigr7JJKaoYBi67NeMIXqc+sgk2tx4Pw8mpmYV3
dBJOE/OjatbD0Ntp5hwvTIIGVC86hYZg6SMdhosECVV7XfQqowYhPEui/8cy
EsRdHILFrwwC5+2AwWM5/H+xttX7HQYh2fGfW5eWk/Dp+7FzVTsHIT30zHIJ
eRKKbXdHVM8OAG8gZOUhJRJyApSaa84NwJu/rUFInYQ7r+t8v235DUeV5JW3
byah7ltViYzqb4hb3dy6dgsJi4lyCUvJ35D3Ef27VIeE22xIaxzsB9ebVZ9m
dEkIqXz2+XtqP2ydsQ8twTnl0xu8rFm0H2xY/rFxRiQcl9PJb2/vBbXOCqcl
R0hYb/6Pz7mqXggzKytYYknCfLiWbu+7XthqKae6zIqEVGJd7nBiLxTXEPsV
rUnoaVL6d868F+JEVGW2niTBJUGUK1f2C2bXsJ3T7UgIlG7PtHzVA7f1AyqO
XSbBbP/xC80pPbClip4Y6EOCcnCT+qnIHoDw2EdPfUko/VP3xM6hB0ZUdbwJ
fxJE6ssyPFV6IGGxms7zQBLiYrmpcQk/4f1+tOJgBAkZjJuJ1de6gR4W6hP3
gITW5LS0707dwLu4+fX8QxKk1xVnd1p3A8tkz22nNBJu7p4pnNDuhv77SRtM
M0iwD3Toku3vAgVTHkc5mwT1CdO1pw91QYy5F13+LQnZ32QLR5U6QUpDO+30
VxK6bbQ/zkp0wp4HhtMCtSRs7nmYTJvuALXQs/KZdSTIyku9V8/ugM1h830z
30hoipoWcZPC5e5191604v52h/uUn20Qd9bhs/sACee2msHK4BY4abtWzVWY
B7MBUYUFZ1ogbyz3saYID6JKK/IttrWA5lOt3nFRHrw7aPzPzelmuEvpe+nP
4IG0vX7W7wvN4NSndyNDhgef4lbFc01/gDaZZ7xflQfrhgh7wyXfYc2YeN/c
Dh580NKxbf7TCDGMrb9njHhw9LLnWY+aRmBbJtVPGvMgWGD0+OPwRmBofbKb
3MuD9qU9h0TmvkF4lWqaqAUPYnZV69V2NsDRjIYrd2x4MPngEeNsdh2Uhkb3
rgrB7cUqPKQH14FCIXcyOowHRUFJmpkn66BjyMlxLoIHIRfiDo0urgPZSb3E
1mgeLNl4I+7q5VpYm5ArU3CPB3ofz8omGdVAzLrB6oEXPKB8NzR4UlQBp4aW
mq9vwte7bT8eofYBavjCdpc2zcH4fMESnZb38KemSeKSzhxU3NZp+Bn9Hjy0
Zw546M3BtWd/mW4jEOzYLJ9yjTMH1VW7AjoTABY32l7N3T8Hzu8Yxs+7C0Cz
Va03w24Ont9N/bbThwtPXry96HdvDlw2vHtTU+7F1s7VKVIV4UPuIkWbgNgA
9mrXrC3R4nyguBuKyL4IYsdnOdHmmHzYa/o4r8Qrkq2bteFuqywfRq6/vRVN
S2CnKxYm5eNzEWcF28trbwabaOL86ubwwcGBdrF/+DWbvd2ub9SPD/PRdj1p
7A9s68+OnLopPpS4Dtb+eFzH5vmK+0vJLwCz+t6YekQLW1PM+cagGgXJeVkf
7FLqZn8Zy7ut+JGCHBxitp9o6WUztnuFaXhREV93RxVhNMi26jv17bScADqv
w/R7JDTGfh/OCBCrFkAfqUe17p+eYBfUrMnIwO9BH7ee0l0VM8lOjjHNsNSk
o54MXzGhsWn26uuXuiOn6OjxVXMNH3WCLfSgS8E3H783Cwp5FVnw2CsHAh2U
goXQxvfVodav+Gyz1aKFpo7CaO3A4YGQ7gW2WtC0mP/+RUhJxSfypjKVYxO3
Yp+DiQiaC83YF8MW4MzI5KzyMBBF8UbFyXQrGqeYta+sX1MM5Sd1W6iG0Dkp
rzOP3jEQR9ynv16LpwlyjPT3bH+lJ4F0D/y5nFovxDGhdRENhxjIb/9IdQpl
EedSX3q5sC0T3aaWV9ksE+F8am5Ql9ZejDQPPd/4zUSU07zhS3MCLEaPjriy
mfZinO1tFlfX75RENa8V219fEee42x1nXSqVRFFZzd3UZxIcfnTczYFDUkje
yjN62UcGZ9pfo1WtQQo9qP+9WvALg3MsMUTpUqMUUjh0+sNYNYOTbCV4/l2T
FFIy2TtV1sTg3Bm5SB5sk0LK+krHvYcYHIVnwXq+vVJotWKlWj2LyTkT5SZf
OSuFNvapFEeeY3K477uOeciz0Bube1Y+55mcmaaU9iJFFtrUyRi3cWJyJnev
sV2kzEKbfxAq+t5MzmvtDM8UNRbSrfga/jucydHY8Cu7TJOFtr3yP2LMZXKW
t3hdXLGDhYrXjY9ovWVyBGRpoueNWGh7pn2Y/Dsm56fh1mdcYxbipJm9myxl
cvR3JkwY72OhHfHqK9ObmJyjPs13Lh1moRJmSkFUG5OjzHU1LLRkIaNIqcN+
3UzOvqb7o0LWLLTrJj/EbAiXr805lHyShT5RPZS2jTM5vrPxtL7TLGQc0J+/
eprJ8ZsTzNM6x0Jl5EkLaR6Tc4JJd7liy0L//z7G5OySiFxVZs9C/wOhiofL

          "]]}},
       Annotation[#, "Charting`Private`Tag$137251#2"]& ]}}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -1.02},
  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,
  ImageSize->{485., Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-3, 6}, {-5, -1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.707669280342009*^9, 3.7076693055732193`*^9}, 
   3.707670227571476*^9, 3.707670279354446*^9, 3.7076704179499903`*^9, 
   3.7076890254896317`*^9, {3.708442810225156*^9, 3.708442825615745*^9}, {
   3.708442867584693*^9, 3.708442886906851*^9}, 3.708442941043404*^9, {
   3.7084431231244173`*^9, 3.7084431660145493`*^9}, 3.7084432157552567`*^9, {
   3.7084432513103437`*^9, 3.708443263366468*^9}, 3.708451815645948*^9, {
   3.708784607845929*^9, 3.7087846234534407`*^9}, {3.70878480209125*^9, 
   3.7087848232645283`*^9}, 3.708784860369842*^9, 3.708784969602377*^9, {
   3.70878519903968*^9, 3.7087852184905567`*^9}, 3.708785249551149*^9, 
   3.708785301211081*^9, 3.708785403734845*^9, {3.708785464939011*^9, 
   3.70878553077702*^9}, {3.708786046252172*^9, 3.7087860529631453`*^9}, {
   3.712340687040523*^9, 3.7123406898929577`*^9}, {3.712340740706085*^9, 
   3.712340746288026*^9}, 3.712340786132267*^9, {3.712341422072835*^9, 
   3.712341444734881*^9}, {3.71234148193649*^9, 3.712341500356955*^9}, 
   3.712341794861045*^9, {3.712341835919621*^9, 3.712341857303825*^9}, 
   3.712354297048585*^9, 3.712354343222934*^9, 3.712354419780979*^9, 
   3.7123544683466*^9, 3.7123545345657053`*^9, {3.712354603657954*^9, 
   3.712354616045879*^9}, {3.712354676984397*^9, 3.7123547732262907`*^9}, 
   3.712355249706522*^9, 3.7123553786150913`*^9, 3.712355554706808*^9, 
   3.712355845596476*^9, 3.712357871094554*^9, 3.712402693007428*^9, 
   3.712414179738449*^9, 3.7124164820333223`*^9, 3.7124165793904657`*^9, 
   3.7124167478685703`*^9, 3.7124168054507647`*^9, 3.712416862553542*^9, 
   3.712416913569981*^9, 3.712418989052652*^9, 3.7124191553268538`*^9, 
   3.7124199181280107`*^9, {3.712419994168869*^9, 3.712420021449827*^9}, 
   3.712420056852771*^9, {3.712420127848818*^9, 3.7124201736831503`*^9}, 
   3.712420552037171*^9, 3.712420753135285*^9, {3.712420786642437*^9, 
   3.712420789660735*^9}, 3.7124443266735573`*^9, {3.712444383695437*^9, 
   3.712444419535204*^9}, 3.712445552269155*^9, 3.712445603900373*^9, 
   3.712445722334865*^9, 3.71244578411648*^9, 3.712445924650709*^9, {
   3.712446233092272*^9, 3.712446259431014*^9}, 
   3.7124469723056173`*^9},ExpressionUUID->"dde3e3a9-0cb5-4b7f-ab70-\
3c49ca3d7d6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit", "[", "\"\<BestFitParameters\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.712340886335466*^9, 3.712340889581972*^9}, {
  3.712341190677258*^9, 
  3.712341193227158*^9}},ExpressionUUID->"f184ef37-afc5-434f-aea8-\
ffddfcc7f01c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Lambda]", "\[Rule]", "3.647256050314803`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.712340889801001*^9, 3.71234119345047*^9, {3.712341422608639*^9, 
   3.712341445624464*^9}, {3.712341485998266*^9, 3.712341500653166*^9}, 
   3.712341796378963*^9, {3.712341836889235*^9, 3.712341858245736*^9}, 
   3.7123543475851173`*^9, 3.7123544225520563`*^9, 3.712354469900642*^9, 
   3.712354620164184*^9, {3.712354680496811*^9, 3.712354774446205*^9}, 
   3.712355252563312*^9, 3.712355554731657*^9, 3.71235584562005*^9, 
   3.712357871116666*^9, 3.712416925931582*^9, 3.712419919748313*^9, {
   3.712419995166749*^9, 3.712420023486136*^9}, 3.712420181139059*^9, 
   3.7124457890655193`*^9, 
   3.7124459508622227`*^9},ExpressionUUID->"4098e4d4-0560-4547-be30-\
aace734c4987"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", "\[ScriptCapitalM]0", "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "@", 
         RowBox[{
          RowBox[{"coeff", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Pi]", "/", "2"}], " ", 
             RowBox[{"C0", "/", 
              SuperscriptBox["B", "2"]}]}], ",", "1", ",", "0", ",", 
            RowBox[{"{", "}"}]}], "]"}], "[", "#", "]"}]}], "&"}], "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Range", "[", "15", "]"}], "-", "1"}], ")"}]}]}], "]"}], ",", 
    RowBox[{"Abs", "@", 
     RowBox[{"Gs2Cs", "[", "Gs", "]"}]}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", "\[ScriptCapitalM]0", "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "\[Function]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "@", 
             RowBox[{
              RowBox[{"coeff", "[", 
               RowBox[{"A", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
                RowBox[{"c", "/@", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Range", "[", 
                    RowBox[{"n1", "+", "n2", "-", "1"}], "]"}], "+", "1"}], 
                  ")"}]}]}], "]"}], "[", "#", "]"}]}], "/.", "x"}], "&"}], "/@", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Range", "[", "15", "]"}], "-", "1"}], ")"}]}]}], ")"}], 
       "@", 
       RowBox[{"sol", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", "\[ScriptCapitalM]0", "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "@", 
         RowBox[{"SeriesCoefficient", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"t\[ScriptCapitalY]", "[", 
                RowBox[{
                "A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
                 RowBox[{"c", "/@", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"n1", "+", "n2", "-", "1"}], "]"}], "+", "1"}], 
                   ")"}]}]}], "]"}], "[", "X", "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"#", "+", "2"}], ")"}], 
                RowBox[{"(", 
                 RowBox[{"#", "+", "1"}], ")"}]}], ")"}]}], "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
            RowBox[{"fit", "[", "\"\<BestFitParameters\>\"", "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"X", ",", "0", ",", "#"}], "}"}], ",", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"X", ">", "0"}], "}"}]}]}], "]"}]}], "&"}], "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Range", "[", "15", "]"}], "-", "1"}], ")"}]}]}], "]"}]}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzFtIk2EAh/G5ZLNtbqUwIcpwB4eKbooYwoJ9s5QWgpSbMyLEPM3DFJWF
VBhLFGxdZFGCpiG65cBQhzglT9F2IQgZkUfYpbUPRTzgh03p/b8XD7+7J6m8
8V4ln8fjaUgwql7zdHCYZdq3bS+h7Er/gp94vO6m8rV21Qyx+0Z0KlwWf8+A
r/N0WrjbsqqoGGEZ68/fVN0bXzYMK+eMMOftRz/Mf14YhOe/0oSVxMnZQTE0
Ja/EuIjHAw0X4VbIJYOi94Y4WN1vSIDDgQLqxsL1FJj1IJNa7B/IheE7Rj2U
FkoYuJzfboLys9umXuKlv3V3oXqlqwhKEl9Rm70lXpubZfYiqxOQ3yeahvqO
mq+wjMcFoNd8Rq06VR9Bt2Seg5vPUpV1xHeLL1RQuenKgOMWvhb+WePW6okH
ngjVMfKNayI+vBWkGvWH5mZiq/CEGtOT49jHz+dsg84ap6XXwzL3Jz6Vwn1d
uBy2CnwN8NrNLYv/M8twCoEVjnUm2GaJqsciO0yWJvbBUMg9BM2TjzzQM6T3
wh5fRLBErP1xKoTBky45XIz/QrXHX0iDBucONTBW9gQujTqo0gqzOEwsSv8Q
C6/KjeO7xGJpNfXf5e0pqCgomYb/AepFToo=
  
  "],ExpressionUUID->"318a2176-9af8-4eb2-a44a-805d59a407c0"],

Cell[BoxData[
 GraphicsBox[{{{}, {{{}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        PointBox[{{1., 0.20082428216262066`}, {2., -4.360775179005213}, {
         3., -6.460900611466145}, {4., -7.8423802865985355`}, {
         5., -8.817313544951592}, {6., -9.505764693665155}, {
         7., -9.971982706127193}, {8., -10.256439308648243`}, {
         9., -10.38709822150855}, {10., -10.3844613840237}, {
         11., -10.264207022511004`}, {12., -10.038713113734813`}, {
         13., -9.718000245599143}, {14., -9.310346548281125}, {
         15., -8.822705856807845}, {16., -8.261001975563165}}]}}, {
       {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        PointBox[{{1., 0.20082428216259543`}, {2., -4.360775076335285}, {
         3., -5.830391697563509}, {4., -6.504456136060981}, {
         5., -6.753788170290081}, {6., -6.7159247424693485`}, {
         7., -6.460354678470231}, {8., -6.028874663405286}}]}}, {
       {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        PointBox[{{1., 0.20082428216262066`}}]}}, {
       {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
        0.012833333333333334`], AbsoluteThickness[1.6], 
        PointBox[{{1., 0.20082428216262066`}, {2., -4.360775076335285}, {
         3., -5.8303916975635195`}, {4., -6.504456136060982}, {
         5., -6.753788170290077}, {6., -6.715924742469348}, {
         7., -6.593474493353132}, {8., -6.832308553881589}, {
         9., -6.909921432178013}, {10., -6.8542910460549855`}, {
         11., -6.725493651060986}, {12., -6.496629558411245}, {
         13., -6.174627204763308}, {14., -5.76671759342796}, {
         15., -5.278978575167664}, {
         16., -4.717257512808765}}]}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -11.15557646774275},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 16.}, {-10.97531613837917, 0.20082428216262066`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-10.41431317630212, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.903487552536127, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.433483923290392, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.111728083308073, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.824046010856292, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.418580902748128, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.264430222920869, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-7.013115794639964, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.70805020110221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{{3.710698075659574*^9, 3.710698116827692*^9}, {
   3.7109483412498407`*^9, 3.710948350124186*^9}, {3.711126867676691*^9, 
   3.711126926785492*^9}, {3.7111269770429783`*^9, 3.711127011512371*^9}, 
   3.71112708891626*^9, 3.7111271686421633`*^9, 3.711127272636292*^9, {
   3.711127457883432*^9, 3.711127494390698*^9}, 3.711127907894992*^9, {
   3.711129875571169*^9, 3.711129919374709*^9}, {3.7111299535301123`*^9, 
   3.7111299766717043`*^9}, 3.7111312661811533`*^9, 3.711131299373033*^9, {
   3.7111333625030193`*^9, 3.711133390724989*^9}, {3.711133521566346*^9, 
   3.711133583525776*^9}, 3.711135291340001*^9, {3.711141827523261*^9, 
   3.7111418310294313`*^9}, 3.7111443993529673`*^9, {3.7111446213281813`*^9, 
   3.7111446242421*^9}, {3.711383369851819*^9, 3.711383397357383*^9}, 
   3.711383504902141*^9, 3.7113838184541283`*^9, 3.711383922815707*^9, {
   3.711402952508552*^9, 3.711402958023882*^9}, 3.711404390088929*^9, 
   3.711746726419971*^9, 3.711746765694718*^9, {3.711746855213851*^9, 
   3.7117469271558533`*^9}, 3.712336546732326*^9, 3.712336606319612*^9, 
   3.712336645889738*^9, {3.712336691123527*^9, 3.7123367404383574`*^9}, {
   3.7123383529819508`*^9, 3.712338375406939*^9}, {3.712338477349781*^9, 
   3.7123384936611223`*^9}, 3.712340855903501*^9, 3.712341274116418*^9, {
   3.712341311978713*^9, 3.712341334321162*^9}, {3.712341427897252*^9, 
   3.712341450442026*^9}, {3.712341490932637*^9, 3.712341506437632*^9}, 
   3.712341802069538*^9, {3.712341842610015*^9, 3.712341863495072*^9}, {
   3.7123543533323793`*^9, 3.712354372987413*^9}, 3.712354427874082*^9, {
   3.712354475376789*^9, 3.712354490278894*^9}, 3.712354624937665*^9, {
   3.712354659322887*^9, 3.7123547794222317`*^9}, {3.7123552571853523`*^9, 
   3.712355263773179*^9}, 3.712355558705669*^9, 3.712355867547941*^9, 
   3.712357874815097*^9, 3.7124169850583267`*^9, 3.712419002183814*^9, 
   3.7124192007347183`*^9, 3.712419922276613*^9, {3.7124199980667677`*^9, 
   3.712420027212335*^9}, 3.712420183743813*^9, {3.7124383681880693`*^9, 
   3.7124383840029383`*^9}, 3.712444337927021*^9, 3.712445566104023*^9, 
   3.7124457924226217`*^9, 3.712445887131619*^9, 
   3.712445954967486*^9},ExpressionUUID->"89b54540-039e-4ccb-82c9-\
59f2f46d6fbd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioData", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"X", "=", 
          RowBox[{
           RowBox[{"\"\<H\>\"", "/", "\"\<T\>\""}], " ", 
           SuperscriptBox[
            RowBox[{
             RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], 
            RowBox[{"-", "\[CapitalDelta]"}]]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"X", ",", 
          RowBox[{"\"\<T\>\"", " ", "\"\<\[Chi]\>\"", " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{
              RowBox[{"t", "[", "Tc", "]"}], "[", "\"\<T\>\"", "]"}], 
             "\[Gamma]"], "/", 
            RowBox[{
             RowBox[{"\[ScriptCapitalY]", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Pi]", "/", "2"}], " ", 
                RowBox[{"C0", "/", 
                 RowBox[{"(", 
                  SuperscriptBox["B", "2"], ")"}]}]}], ",", "B"}], "]"}], "[",
              "X", "]"}]}]}]}], "}"}]}], "]"}], "/.", "#"}], "&"}], "/@", 
    "assData"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.704742362877256*^9, 3.704742408664497*^9}, {
   3.704742527890593*^9, 3.704742541794598*^9}, {3.704742660156436*^9, 
   3.704742663684565*^9}, {3.70479005735952*^9, 3.704790076495715*^9}, {
   3.70481811917313*^9, 3.704818120508998*^9}, {3.704967594413649*^9, 
   3.704967598205678*^9}, {3.7049676822310743`*^9, 3.704967683798901*^9}, {
   3.7049918676424503`*^9, 3.70499186974644*^9}, 3.705137184169389*^9, {
   3.705139154629438*^9, 3.705139154869261*^9}, {3.7063088519286833`*^9, 
   3.706308868591404*^9}, {3.706309070860243*^9, 3.706309074588221*^9}, {
   3.7123405055606613`*^9, 3.712340505920287*^9}, {3.712413797491253*^9, 
   3.71241388135924*^9}, {3.7124139514944696`*^9, 3.7124139520385036`*^9}, {
   3.712414150105638*^9, 
   3.71241415156942*^9}},ExpressionUUID->"a7e36aee-5801-4c8e-885d-\
815ca16b84cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioSmall", "[", "X_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", "2"}], 
   RowBox[{
    RowBox[{
     RowBox[{"Rest", "@", 
      RowBox[{"Gs2Cs", "[", "Gs", "]"}]}], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["X", "#"], "&"}], "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{
           RowBox[{"Length", "[", "Gs", "]"}], "-", "1"}], "]"}], "-", "1"}], 
        ")"}]}], ")"}]}], "/", 
    RowBox[{
     RowBox[{"\[ScriptCapitalY]", "[", 
      RowBox[{
       RowBox[{"\[Pi]", " ", 
        RowBox[{"C0", "/", 
         RowBox[{"(", 
          RowBox[{"2", 
           SuperscriptBox["B", "2"]}], ")"}]}]}], ",", "B"}], "]"}], "[", "X",
      "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.712413954619421*^9, 3.71241409144135*^9}, {
   3.712414222786386*^9, 3.712414256251178*^9}, 
   3.712414319427877*^9},ExpressionUUID->"7116efe8-b6e5-49e6-b4ba-\
7c07f19c62de"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioLarge", "[", "X_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"\[CapitalPhi]s2fs", "[", "\[CapitalPhi]s", "]"}], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["X", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", "/", "15"}], "+", 
            RowBox[{
             RowBox[{"8", "/", "15"}], "#"}]}], ")"}]}]], "&"}], "/@", 
       RowBox[{"Range", "[", 
        RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "]"}]}], ")"}]}]}], 
   "/", 
   RowBox[{
    RowBox[{"\[ScriptCapitalY]", "[", 
     RowBox[{
      RowBox[{"\[Pi]", " ", 
       RowBox[{"C0", "/", 
        RowBox[{"(", 
         RowBox[{"2", 
          SuperscriptBox["B", "2"]}], ")"}]}]}], ",", "B"}], "]"}], "[", "X", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.712414327321868*^9, 3.7124143314517097`*^9}, {
  3.712414365084766*^9, 3.712414453495257*^9}, {3.712414580432067*^9, 
  3.712414580760212*^9}},ExpressionUUID->"95f0b7c3-c6ed-4f85-9a9a-\
7590deda5a4d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ratioLarge2", "[", "X_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"\[CapitalPhi]s2fs", "[", "\[CapitalPhi]s", "]"}], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["X", 
         RowBox[{"-", 
          RowBox[{"(", "#", ")"}]}]], "&"}], "/@", 
       RowBox[{"Range", "[", 
        RowBox[{"Length", "[", "\[CapitalPhi]s", "]"}], "]"}]}], ")"}]}]}], 
   "/", 
   RowBox[{
    RowBox[{"\[ScriptCapitalY]", "[", 
     RowBox[{
      RowBox[{"\[Pi]", " ", 
       RowBox[{"C0", "/", 
        RowBox[{"(", 
         RowBox[{"2", 
          SuperscriptBox["B", "2"]}], ")"}]}]}], ",", "B"}], "]"}], "[", "X", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.712414327321868*^9, 3.7124143314517097`*^9}, {
  3.712414365084766*^9, 3.712414453495257*^9}, {3.712414580432067*^9, 
  3.712414580760212*^9}, {3.712418477897538*^9, 
  3.712418491122006*^9}},ExpressionUUID->"1d4c4e9a-cb5e-4a15-af2b-\
359acec88a18"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{"ratioData", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.001", ",", "100000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.6", ",", "1.6"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ratioSmall", "[", "X", "]"}], ",", 
       RowBox[{"ratioLarge", "[", "X", "]"}], ",", 
       RowBox[{"ratioLarge2", "[", "X", "]"}], ",", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"\[CapitalPhi]s2fs", "[", "\[CapitalPhi]s", "]"}], 
                "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "/", 
              RowBox[{"(", 
               RowBox[{"C0", "/", 
                RowBox[{"(", 
                 RowBox[{"2", "B"}], ")"}]}], ")"}]}], ")"}], "15"], "X"}]}], 
         ")"}], 
        RowBox[{"1", "/", "15"}]], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"\[CapitalPhi]s2fs", "[", "\[CapitalPhi]s", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"C0", "/", 
           RowBox[{"(", 
            RowBox[{"2", "B"}], ")"}]}], ")"}]}], 
        SuperscriptBox["X", 
         RowBox[{"1", "/", "15"}]]}], ",", 
       RowBox[{
        RowBox[{"fit", "[", "X", "]"}], "/", 
        RowBox[{
         RowBox[{"\[ScriptCapitalY]", "[", 
          RowBox[{
           RowBox[{"\[Pi]", " ", 
            RowBox[{"C0", "/", 
             RowBox[{"(", 
              RowBox[{"2", 
               SuperscriptBox["B", "2"]}], ")"}]}]}], ",", "B"}], "]"}], "[", 
         "X", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"t\[ScriptCapitalY]", "[", 
           RowBox[{"A", ",", "B", ",", "\[Lambda]", ",", "\[Lambda]2", ",", 
            RowBox[{"c", "/@", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Range", "[", 
                RowBox[{"n1", "+", "n2", "-", "1"}], "]"}], "+", "1"}], 
              ")"}]}]}], "]"}], "[", "X", "]"}], "/", 
         RowBox[{
          RowBox[{"\[ScriptCapitalY]", "[", 
           RowBox[{
            RowBox[{"\[Pi]", " ", 
             RowBox[{"C0", "/", 
              RowBox[{"(", 
               RowBox[{"2", 
                SuperscriptBox["B", "2"]}], ")"}]}]}], ",", "B"}], "]"}], "[",
           "X", "]"}]}], "/.", 
        RowBox[{"resol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"X", ",", "0.001", ",", "100000"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.712413884575171*^9, 3.712413892525337*^9}, {
  3.712414275339645*^9, 3.712414299827372*^9}, {3.7124144300058193`*^9, 
  3.7124144348537903`*^9}, {3.712414759940282*^9, 3.712414804003825*^9}, {
  3.712414863781342*^9, 3.712414882678788*^9}, {3.712414964870536*^9, 
  3.712415030847807*^9}, {3.7124151084515142`*^9, 3.712415174257453*^9}, {
  3.712415233019642*^9, 3.712415242578576*^9}, {3.7124184636830873`*^9, 
  3.712418464681706*^9}, {3.712418499851099*^9, 3.7124185030428658`*^9}, {
  3.712418810974667*^9, 3.712418854255878*^9}, {3.712419024026373*^9, 
  3.7124190417413*^9}, {3.712420260991317*^9, 3.712420278439487*^9}, {
  3.712420454259121*^9, 3.7124204699551086`*^9}, {3.712447119872972*^9, 
  3.712447142409273*^9}, {3.712447180530634*^9, 3.712447227834652*^9}, {
  3.712447307068275*^9, 
  3.712447307171896*^9}},ExpressionUUID->"8edb02fc-298a-459c-b821-\
fc7cafdf4d12"],

Cell[BoxData[
 GraphicsBox[{{{{}, {{{}, {
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.0055000000000000005`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJwVlmcgln8fxbntvUeJBhGZkRT6XSqEjIwIyQqhZESlISpFVmQUsnf2Hn0v
kr1ue5ays1c2z/95dd6eF+dzzjlu6aR7h0BCQrJGSkLyfxUni8pryGmF4Jtq
Fim3nyMdqdWKkHudKMZ+punza3PoZLlWSFgcgCH9hqTNOxlwAj8zwO7zByTb
hiQTZWzAg9WgLt1oDWg5YKXH9Rt6Uaxq6n2zCt1ZDp8+ohUMimaHSlNfjaDd
+GVVvcul4El67WoS4zQY+1z06iX1QkW8iYmufBvwWnz9K0tTCap9dOQjO2U2
qCQuJd7Yq4CKJ+anz36aBy3W2JHBfFfkeDxY9M+HZTB4NX309YI/+vMK/U1o
3EaHYg0L33eVA08lRbjHwAyK6ZosCZnOgb1DHFQOQXuoRlL1zpM0HO4YaX0e
JNtEb6uvm62/r4Te9lc9hDuLiMG+3Zd2DIfczl/FLBfXEQs/gxXvYBl4a966
dUWPHFNsWO3Nd2qGeZ2fMpZLBKzE4X7059eFkF1+h+F5ACmmcfuV8ChbO+TT
yRAnNcfRfAw1s1ZPNXR7iH+OEiHBltYG851D6sHXzeeexqMVdNhOE/mRN0JL
WObhCiU67ASHimPw9yhw9vd+2veTBvuVzss1MlcLSSxn55NtmLEK+pxHYV8B
5g4pKdjZM2HuPYzVpzSrQIdy3likmAIrMEi5OUBRDywFOoLc3CyYLDetM8VA
HtgrLHL4NbJgYQ9vniswbQQRNYFWxkNUmHlVjpAchkNK35/3X5LosfKCV9Mf
+r9DKSXbmd0nrNgHfYlJCskCMPx71NGHihG7b+z6zZgC4ES3H8eaJzUWl6qT
45jVCCuimxI8BlwYie2Uoqt7EWiNNQv/wDiwfz2G81Z2RfDHiF3zvigb1hdH
8dzVrxaOxq1mya5wYHUZnlFGfflwU3So+T0lN+bWtXivmrsICie4O3SD2LG4
lNcxj7bLIECJaTItkROzSd3M7/cPRJJufUFjhw9jYQn1hT7eiaC9LfFmdIQN
kzKw2g4dqwJOjwQ/g5bD2GISx1GKu+/h1lQn/UEJN/an10lpTSURmt8uKDvf
PYRtCd3lZcrIRJ/F8x3rn/FgOhoLd87GBAF1R2vyeYkjmOWSrDlzXxKc1sJb
Rj6R4+0shxvf6uejJj3bipo9Cry0YIO143wlirNWb2rf+AtT/RzeR0lzUfK9
bo9LreugKKjCOSSZimLH7slw9pDicc4cFKQ3viHlDLMZ2tBN0K5Xu0wjUgLJ
PSMHW+fI8LKzHJH+fT/Q0kwtiubbh+sJFmPGvIXIv0rc+qvSEuTnKu+etYoB
vcCLXp1GOyDs1j74+649cme0/fqYahXaI6R61wlxSOtH2o6UCwl+deXjA966
ZERPzd+j4DgBDwPxxY38T0D0TYpXyugGscFLDqtxhfBehnV+E0Uiq0/rqloD
tSDlxqmkItuI7A6UHElPZQLjnLbplfw+VD0kJPRoNAt2elFQt+ccmkg9GSo5
2wSXcxKOGVX/Ak6VRbXz371RTQYmJi34HTLytJ1yI1Pg4rEu23zr30hl6H5P
eHEu7HCFhOeTLaPw7pqcU60AYc2WdZeWJhEL/aXlY+eqQIglaMq9cRUJyI81
Ots3QjGrZiKnLAG7ZJhULKHXAMPtHFJnukiwp3On0qI7WsGW769h7+FdtCnF
IK1+rxTIAgZOxozuIzoG2kypbCI8pOatpzPYQg+RQPdKaTPYnfTz3o4kw4zg
979LnR1gZNa9VGNGiYm6lqUo0TfDmXg6q9RqKizt/q7xN+VO2NPP1P21Q44N
WX11O3WHCOMFVy/5C9BghcfpQ++1E6HaO/vPpaB/aPet4egZ6Ubwuhr8xMmX
FtO7nR73KoAIjymji4/kMmIr9/UrlBIageP2FWdrRxbM+UKfnzBfC3TPfcjV
+0uH+RVqjBfq1UJa1Sm5lXJm7PtjGV7R4B/QS0Ja5EXDjEmaS05IKtZBtkTT
CTlNBqwYC5UmcW2C32rMhlfbWbHAPOvwYO4O8FQXq+jlZcU4AhgDS/paoDSE
nufLGDumwWvf+tC9DibJqSPLvdiwW36V49IfcIgN6+Ng+ciBCZZ6qOt3N4Be
Cj9R9Aw71oURlkzzAASuTW14q3BiHeTaL3tlv0PIPEFqfYMTM8lj5gpuqoNn
OZ3eoaIUOKlb9zetJ6Uo7AyTiNzTXdh6cgtiU2sgNehLX5MNAT96bZyGfDIZ
aQca8lHz0OOuIsS26epMdDOVItOleAsE3v+OUW8qQvx8ZhEmK1T4ZbfTdyuY
ypGh82DsJBkp7upHEFC0ykbZL5kSsxvJ8CMCC7zlDLmQ8zZXgr+UFpcIGFPd
zs1FXj6qruSXDv7r6aOp2y6hSIS5zRIZ0OAlv0TeBVyvQF0HkWYeQZQ4VLxL
vjIcj35N/TYQ1UwDTl8XamHfCqhlZzFMuDgPkUmcht0eWWjwGE3bqMga3JWu
d0mqzEf3jIxqOQqmYJ1kZlvmwleg0vTc8RH6AwecHQOGRXHQ6F9z6YtAF/Ju
dXyioFYKe+Fq4jx3lmHgReEr9+JUSCzYYdg9jKMh/rsSKnEVoCNUEvReqQUG
ZD+t9F3BgWNaqmLy3ABcrfv2TV4cB48H5W9y5X8ib0Jqk7x9HTBuOUumL/0D
E+qas/F68WiHa+s2a8oKilcqvfRpOh0qdNkEIvBFlCrOo9vnToT6Hmlkv7GN
9O61u8zxt0G/4GMC4exfJES7fPCjoRqceaLPP0gfR+08u8eDiPWQK6IRPeCw
jt487pjor6yHbBseEsskUizL+k6saWAzWOeWeSVIbaKhx29DNXuIsCrj/ku6
ag+xNQTpjSx3Qjf/eMAzJRKsz95hlPR9O+wyxHGJ2JNjOn4UNqLJdWD+2OiX
MhUZZrqXTfWukQg6+QmajK0UmFq8ndOEdRcIrw/AigQVplR7YlxTqw1O1bNQ
Va7TYLHDqoPq5kRowSwYvhjRYQ8v13hUeTVDsk/kC58KegyLDpMbEWyG9eZM
vb4P1JhY+cxiwFw7PDC2Z7PjY8QkAtO5Yz51APO7zKN+/CzYEiqzjWLsAMWb
khoaL5kwsreZXaoW7eDuFnZ3t5sFczjpX/KrvBWSpoImuVyYsf3DqU8FKVrB
1OO29f03rFjBwJeQIzK1oNXh90J3hg279zgzgXCxDf6IO6mMnmPDxmaSEq2v
dMDTglPjpCxMOMvazNXvguUocNj27up5ZpzdZdx4vycNlq72alzQoMepOqao
+V4lIPVB9XMur2nwZ1xVw766z9HGBRUuvmwG/HLvsu7rmWgUJ8LCdmOaFjcZ
U/p+62spCETr6v0wpcDbqc6KKM+kIc8sX8OAE9S4rLOtRPhAEnIr53qfDpT4
p6zFD24nC9GT/W0abhlSvIL/NOfPnjfAVfuicTucgAdLc1D/XSlAAXM8C6Nb
ZPgpi2zrYYdclKFlGWWTcABJaVaFwuEpyM19SzZ2eBekprZn+2Uy0O6vR2GM
1zegKPuG/HBmLPDufrV58WMZuu9T8horp0HE3PmIfs5tkFdY/PSoJg4RXx7R
uOq/BgRlCfsAlzeAvjyWuH8wD6xO+fqOuwVA/bBtfcR1Go6nOe//Uw6F/MaL
EZrTf2BS3l02h/crfHz6PdqjbBA4Avt/+urXgNLHveqsK+2AZ/NJ/FRPhdYI
Hjd2sXyg5Vpbo7hQA1MvhxQzJcrRo5AoWY+pCoBXLAvp02PId8o72WKlAdQ3
JC0YE4loOb993bS2DkQzimzk3GZQmgKjvU9jC9Bp30mSKx9G9ZW3OM+u10FY
0QeJpoMF9M4vnS7buAkMf712d6dbR74c564G/P1vV70u92YpryDZ/H8iwdf+
43WlL1+RuIEeHNoX0FbtAIEY3KDNdA9dpZzJZZokQo2HSgRlxDZK5M66Kdja
AeJjQlYaLCRYSFqlbqFJOwjFS3/ZPE+O2W596Cc4tIGPr0iUhBspdl7cMJnz
dAf0Gx1rTrKkxnzzTxffTiPCPseMEX5AiVneeVhBMO+GW00WdOx9BEzAOm+C
oqsbjKOjdEeiKbC3m5dPBJN2wZOkVO7r/vTYkqZO2b+0TtCf+ul3doEBc5sM
7gnXaYJEiRWzdz9osCWH9hzvtG44+i2X7/B1JoxSU6KdYbgdnMVLwx1P0WGW
UxHaA1rdsG7BT3twkxkreZJuk1pDBM9D0nMP6Fgw9YU/ZT/zOuDgh3L5w78s
eOjARQKpZQJIXF65RHaeBZdddzQRup+OOnk+zF/MYsJ3PAWWUxjDYLpc6+RY
JQsm73vwkp6nC+YpX5qG+DLjLXpX33+8kQWiXykH3Cfp8VEeX7ZX0Z+R915L
obEaI77kuqReaJqObr24vBXiQ4eXO2W9+9xVjG4EdIllH6PFqQKI3tOSBcgJ
+oImjKlw1gceXAQ8F22FyzscbFDgktLp7dViUUDpxLjeWEWNX/Lqqj3vGwEm
xOLMIx/JcdHNvJmzh+NAdttx4dwZMpxLac5rViIPHQmUq9JrJ8Up6AUkUxhe
g3ij0fwDRxL8Ab3nLcJvN2T1UMYEr16HPhZ/yYCAdPQ7/mTGW99NWD5MG/V9
KgTg9VIfF9s+PNV9rHjQEY0+CoUFXtfcgYqXIlfv/IyFq6NmFzd3VuCKOtmk
Vd5/+03LxSQpuwTvnsU4W+iHQxfNdYO20b+wvHcj3469FPpz75coGkyA2wVB
1kfk5UD+bELEPvQXOK47WKs658DQCwe788c/I+OEEffnvHUQWWx78cLTbjCX
Y/D611YAgcjkplhTDSQLHbO/86AW6O0T00o8fyOvyWqDNTEiqFS9B43RPjSp
LSidQQUwPv42+taHRsTCSlhyXG2EzsKIk6pUU4g/nYdrKQ4HtWvmTjJMyyg/
P583/VMjnHI9YjP4YQ4Jzi6+t59tg6hj/d4B5ltI8gvpptO9//JMbNPb615F
pfyXdLrKmkHp7siCgeAueh+qU38FesFi4yrrj0//EF/QjeQRtQ5YX9Do4pvb
R5N83FXX53tApc1jb7WfBKu1VTgavNYJRy6LlVTEkmHNp9u96qYG4VHjSG6/
PAHra9YYnCJthhpT2apX1pQYz/g2teaTDvj32lo4jpQCY0tVN2lo6oJI4qz7
NREajNWzkt/TrBMCTXbXbOupMHYfQQpOayK4sPPPSAbQYrflOjmN2dpAcXbt
KccSHWZuyBCxE9ED7OYZsiNFjJhk82qD/aUeoFn2c9nSZcC6No55rZ3uAg/i
g25zemZMpXc7UorQBUfl8kJOfmbFv+0VlMf8eYpGdlBmwQwLbh750ZDwJhMG
CG9/KMmx4La+op06w9losZycJvIaG25/8Te76q43ynM9md7+hhlfDyhzWFkt
RfQRr9wrMphwpTKJMlbBanTxbnV4ryojzrcxVv6rzAvOeVxvXhmnx9fH/wh+
FAhHU0bvPzB60+E3bnlS+gXGIu10AzGRo7S4u2lQm15YHBr0KqO+UkmNp3C/
VWhL/YoUKmTULG5S4aHEbG4Bp1zEWNDrVyRJhicpEz47K0SgPY9i48hQctzn
XH/2yOcQxDX+1//pPwq84DTn8nGa7wgXdX/X0UqK3x2wZhO0wlHmXr31vD0J
7vtN4WdKVghKeHh8goV5H/zEijkUqt+hk2qS4WrqO9BETZ6ovFUBZj9Z1cu+
rQOedPd+e1EC0BYaP375ahMoqTQeHlt0QZlGSXeWNlfA8wK9AE2BKoiJFnCe
kl6CuPsD7MyfPkCb9+mPEtoTgB/OFei8UglUEXYGLA+6gWzv1NHExi9AYWPv
Xz/4Fyg0pZ3Vp16j1oXoSHnfX5A+pabnQFMEEuO95+/9+Yyypspn3KeKgZ82
pyksoxFd5/m5vX+uGATLDOTn8mogMYvZVjIIIO4wdvvuXB+Cx/rx/0yqIaVZ
YKn+5W+0IRxgmR/fACzLDXY3GKaQ6PCJAlXxdni0myw1HTmHRKft395vbIMv
/Jp98qzLyHhv3eShPxH6rg2rkvevotj9s752PxtBhkcn8qPVFjLJFJD4rtEN
kgCCpxb3kTHX7shzn17w+vi7oCXmH9qh46/VbuyEpoZVMBPeRRcVnHglk7rh
t0vpUSyODAtZc1RzMB0ChZs5hzwGSbA5Rb7gn9w9kO383JCfjAK7TSLv9OV0
L3BGT/qbKBIw2momvbF7rVA6dW+AyoYSCz2I5dYx7YFbpB6/Ok7TYMrHfuYE
4kQ4RcXQUxhIi70y6dg9JtQJ0u6iUZHLdNjK18pzQ4xECBFJ1phroMJ+mfC8
ahjsAYYyK7pn+gwYwcfkiaF8H4h1ZV1LecSO65MwCcUpZyAznZs90vVsuBpl
EBIRz0E87NML1RxseJ6fkWWRXiiMtFAHbWkz41f473lWj1YgLh5JGh1rVlwm
yFb++7kstOTfOjeSz4LrP+28nL7og2qt/u47kLLgz3zvKXpZfkZW74YPnR5k
wFvrOF6MylehloHkQhUPelz5SaGIel40KkiN12VSZMKHXEtCWG2t4UYeTbA5
Ox1OGePyfLQ8HJXOvup4lkeDs30TkAsX/wRh7PJsUVrU+JTSwuOgK3lI8VYd
8/xJcvxBI+8x11sZSEice47mOwHfuShpkqWcBP5jgqydbylwJen9DzH6SfA4
jfJP4Swl3tHgU9uh+gDxZXQkeW8fQOpQ5/w/tgykNTv6+KQ5Kf4vrGbUPSkJ
GaICo5X725BHMtHYwRANBI4d33KZPWj5Kclu+S0DksquuAmnb0D9lvTByY1w
JBigd9JibA38t4IW9FndYSfUoDuadwVssHXa0S1fBFcc8+NzFoDvbarJF8MC
cGdYr38SOQZTr8PGZD7UgOpOqr5tdgl4vqi+1+KLg9H5oBkmgRk4tqCh6dNb
A3Ec4zZVBCIwmjfsnMObwMNc1Gjw0DAUBLrF9w59g0Xj7Q/s2YXIweLcTbEH
DWDL1pCceakDHYndiKCuqAdkxhzRcHMIPTr5qG5foRbeXLjD7i43hv4qG2/u
URChqs/DJVx7AaVt+kv+MegCzdc3Qyhqp9HTuuWDojON4CujlBw6v4zOM5C/
SxdqA6KtXt7JxxvoTN7cmBpfN5wzO8q9eHEbCSid3+6QbAX58px3pgVrKJc/
vdY4mghn+kRpnjcdoMmrnDNFAr1gfckukv8qKXZUt3/jrxUR5Et4dWcZyDHn
pxZ0pxQ64YySeAdlJgHLuHbxk9vaILy4/k2giHwPuXlqKF7f64LRDkGjwi5K
TG3W7gbbVDdwbOvXtj+gwMbeTHh6vBiErN5KzUjZ//4ef3Ig7+0RCHnL9sp8
lxZ70hFhWfW3F0qUh1meRtFgL/zS6mTsu8F9YalO4TA7TrVO/VF4JhPUbXpr
jUpY8fo7uOzxpDgkl8pi66bPguss7Aw51acjl3W53012bPiMVsybp6ZF6O3X
IoHjzzhw9DnmzY3XCejoxdXeSQpWfLZg5NWXYBNUKmL5NbuZHf/dkCOUml6A
uC8uNB4bY8JnSqrM/rWGgEz2zZeERGa85H6OOG9UMrofF+7lWk6Hh/T9ciIT
ewVXG699DzSkxTd1p+XC9grRy8ASawUvRlypYHpVlzwe0dnwYDd4GfDfjIVH
7T6lI/Fb3B8y1qjxeQ5m2qycFIRFytXUh1Dh3vc+hqcwfUYjf4SjD5rJ8USj
0usNnO9ghaUf/yNOiUtZqLLWfIpHhLgVYZ67ZLjuSjh9pko61NI8IZyjJOCK
nFwTj+3zkCxiWtNNJME/m6d2rAR5QE1ab+mI1z5orH0oa+H2Qwz8dt3sFTtQ
Ivv7s+LDUMRBOau/mrgEPm3KjC3DBRD8z/31tfVNyKqlO5pOkoDu7D2SeSvx
D7TKRXkEXIOgyf/m+cq7q1CR6u+sHF8M6qPyb69XzsLw+IS5ZkYaJI+Uup5N
HoWJCbUcF7uvwEx2a+675CTEVZ89piPqAR5JJQaq0r2gZ+TJOrRYA4O8sSU6
cnVAettnWPB7IdRQq3E6UMnAqcBAx9iX7fA4n5UoHjeK/BRzFiqDiGDXrpB2
UbgX6dZOkIl0NMIMuVQ+nJ5E1d3XxDp1m0HYmUJMVqAOBVjXxLdn1cCFcHk/
nZJZNHNMLYt4shnYpz/VNq5soq9Vwfr60AOdOu+FneOX0Jsv/7r8hrvBdl/i
+gXbVXQuXM1ETfkHtK7tlJCJ/UM88e3zuQI9cJvna4fJ8330lyTJgzKxC94Q
6BPWyQnYaW3lCIXkfmi8R5P+oXQHMZ6Z6/+02QPmypfZB23JsKKlw0f1bHvg
6fsjx1gSSDBEnpbCVjAAG8czYxLEKLGMTfKemfleIIQ0WbwJpsIKDj+6V7TT
D6ePcKR9ayLHYpZZyGmFWmC4i7TbfpUaa0kJGPj9n58UMp4LVlaceJJOs02U
QB6EXbkx/JyEA2/JO+JiMJwJfV71NUt5HLjf14JHbI4FcLdSfvBTDBu+fftZ
UGeoKgRrxP6j12bHx9g5BoSqYuHGnvvT4guseHx55k17YirSJYfwK+9Y8IhQ
y2KTb2HoNm+1qrkgM94a5Lf1TrsEnX5o+qSzjxk3Pf6GT8U3BRTDjOZOzbHi
xj3EV5YK6SjzmkXmxhsGPKTw2HF/j0y4yjppPzjDiF/IE9afMg+B1w+5FlgF
6PEKXVsB27UMeHqFbF7DjAav2QlP6OsIBgeasUrxalp81tiFvuC8IpL4ljBr
s0OFh3EmC678SIFDQWt1PpGUeCg5yYOp455AWnxFrKKTDP+5lktySD0O+Xru
CfPqH8BtljFyV5FMhK5V6X85S4HXpF5XkjpTiWJJZKlW6UnxfBvPjpcW6UCr
TT+kH7gLkef2Cz7MBIHr7ABfnxMBj2Jo41dVTIYgM6+MHYU18CL+2Qj+j8cr
4wuBtYQNaMcZW/vGs+CXAaNfcMMWxHHzDfIN5MGXqwWHpDyWgTV2XLnNAIfI
wDE+lb4pOBlcOZg6XQVkhb4R3ZbzMEKTJLk69w0kfChvFGr8gXu3Fsp+aDUB
LVmHhsJwJyphHy/MHquFngcC+WpeA3DjSfx2LHkNfFD/uC8VnAGMCrUuVPk4
aE+ftVTpbIGtshDnTb9wOCiKUX3IDoii6MdFJ516yFmaTyUy/0VyucuzwiOd
MJdKz2i2OoJSxI39VVMbQWWC+Rd6PY4Onk50B2q1gl60jeVO6AoKjuTVcqlr
gUGNsxtW0YsoWzPqiAFGhM9BFE7VN9fRhmQzvdhUH2hzuOn5Hd1EZtYmljFk
PfACT/x7KHMPMZdJ757xIcJEDZen3sQ2wryqFSOG+4A/6tGMwWdS7Hqq6+Ao
6RCo3VDycJYjwZhms7I+cw/DgpP6swv7BKyKWiq43nQAyh+OuvBZkGO/W24H
BS/3QOzgo4/tUly4dP/35qTpIvgxfiBLqKXABK+3969NDsMXoXPpk4JU2GXu
7130Qn3wnqfw3GwbB47pgEg3QwK8PbF7/TEvB84klcGupnsftRme5LvlxYm/
byOzLv32DsxDo85SObLjzPM32b8vJKGzDsWqH8vZcKJ/Eseg9hek1d3dd4KG
De9M+mHq0h6H1IeOrOQasuIiz3iEld3s0Ilr5T0XU1jw3z5pPtpz0XBjjS+x
ZY0ZJ7lULOnEmgYP+buSZnEG/Otbm9Gy08/QkdGO4JuXmXFOe53yd2bP0Kft
I5Yd/Ex4IsklkrLUJOBzNEtAkTR4ZJevGONqAXJc+ZYosEOLZ9wk6Z1uSUBL
ViTjoU4U+KfjrrfavYuARjH3melZalwqK5s8xiwBjEtiXanM6HF+w2+L5m3P
QWL7Ed2jTkpci368vfZdOLKM+tiTQ0+OR8jGZg6Ov4cCh3KNKRVSvCJOUuxW
Sw5MZ/hcpWw4gDbhfr7pwjwIyF6uak4n4Ilv5jyIf03QCcxm96HCNvyqE1cS
GiiGqrzXG0qEPfhYKUG1J1UC98s3uL66b4AsSdZOVKsF0lfp3EpTX4B0D7eD
L//11e+z8mU8s8uw/Ff+pw9JBjxPEvH9k7v23y/xfClYXwhCSySFvtJjYP54
+ATnegEkW21OTmsPAWnV+Zj2ynyYv7AuyQXTcFr27pzdyWpYljtouR8zhn5c
OMz47koLNHHnrjfLdYAJC0UnvCkGFzkJo0h6IhKro39T4NsMl7SaDAd7SpCQ
tEKvt2InLFL1B8W/KQSjulAR/hvNwBumcoRUeAbd9et76KvXBOwmV6jL+YfR
/fe8F1bvdcJfr58zoYULyKH8xW5CdAdUSQeSMh9bQZbSzw3ZQjrhQdnuRP/E
GprIiZP649YNhTp0L6XO7aHBF93aQk1EoLSNY0jI3EAc79mP0TV1Qry16DM7
521UEyWw6eHQBc31ApXKtQQsPnn3cEhJP9j1Pr6zvXuAasTZ2Uru90PuY88V
Bj8K7OLiaTkhywHolb3iJSxEjr2d6YdPkb1wUB1YZ2FBis3WZ11ANv3wP6Sk
DgM=
          "]]}}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, {{{{}, {}, 
      TagBox[{
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVlnc01f8fx+2VPe+9iIzsPSt6XRKREhkZFbkyCplRmUWSUtkJ2febQsgs
n7edbFkRySgreyX06/fX8zzO63me5zzP65/noSueZk5UFBQUUZQUFP9XtiiL
0OhMfvRNK6pgU1kEzK7mhNSl8qO6iliH7jVRSNRbC95O4EfhBRFhh1cPwRcR
3WCFJ/zo67H7erwFoiBA+TToajQ/Mo4UHB2zEYfL377dSbvHj2psm/fzXEUh
64P8nb5gfkQn2lpHzSkOkrfab+n68CPlmCWmtC4xuHaB/1agOz86OkPb4Ptb
BArV3QKLnfnRUy0e8rM4MVBdow84aMePFk3MAnrsxOBmj+VNC0t+1BVQoEo9
Iw7VRbn+Mef4URNpI3lRRgz2Hq37NRjxoyP96rSXi8WBeP2E347eP24j9NZQ
iIHXOSU3txkC6jKtYrWmOAxl8qGumRMEpELlOe5oIAHbzF0uQ18JKPTab7MT
y+JwbF7QhW2QgNYUBiwilSUguPW6s34PAdH6Dqt+c5eEuvyaq0FtBMQ9/jMm
VEQCaCKZrpY1EdCy8KqdjbUkGJCsneYxAmIpu/jJn08ConXJJJFqApLsfjip
YigJHcJbjtZlBBQRLRfkxS4B7H9POj4pJCCNt9GjwdqScH40/koLmYCOvbhm
9pMkBYk1kw77WQSEgqMy1dUl4UuKsoNaGgHtSk6h1QtSIBAQZn89iYAKFMvC
dFQk4bJl9+XspwQk5UIafWIqBVmqQpeHHxJQ02v2TpKqJHzGsZgbKRBQYU+4
RXSGNCT6eyAaKQIqz/VQEuuVAZu+LllMhIBcTwksWSjJwHjsM1pVXgLKjXWn
Kq+TgZxfa16LbAQkxkrIOvNTFpxPW4yRGQno5nMTgtU5WVikw1UI7uHR+7Nm
u5dGZeEtKVB0aBOP4hwPjsn/u/vWD8c+W8YjSQ9hi6eucqAprLVrPIdHEzSe
wurjsvAnKM2FfgqP0l5Plc6uyUHtyH5f3SgeSeu0bt7xlIPwI/Y6dwbxyIM6
ZUUuSB5OJtW9Ue/BIzcBYzOWPTlg2BAhrHzCo2tD/hmuYXLQZnYvsqARjx74
mht9eyAPj4unV51q8ahM9NxIOKc88Fwntw2/xSP+z6aG3zPlQWRSLqgxGY9i
R9+lm9YqwDQxdjb4GR5dzMJ/xVkpADl92eJIDB4FTQn6VIorgoJNqXxhCB7R
tAsfKL2mCKsV3KkugXh0z2qbPH9MEcp5/OlFffCob+zJOde3ihDoM+gzeh2P
VEzy3njdVQStHs3xpKt41E+5OLu1qQh/5Z8bm9nj0f7g6/zOT4pQH/OnktkG
j2irPH5EvVSEyDk78ZbzePTTLmK5g0MJDE/VPg0788/vUsKhN6sIzHlC+8cM
8KjjstNn8gUl6KYOc9sk4lFJWZ7jeyUlsMROnLimikeqC4/eH7ylBATB3CJx
eTzypQvRKLNUgtFbdALjEni0yXk6TbNeCUjqrevm/HhEHFCSUGJSBol4aQc2
Hjx65sY1enhOCeZWHna0suKRWP7qm4NmylBo8uvIPYZ//1OP88lUUQavN2fz
jlP96yccLb+RogyqB4o5f//BIbbGbgNCkDJsu3CElG7gkOJ0ZlltpjLUNHvP
uy/hkLy23BfPZmUIFuuzkpzFIVafhXiVeWXQDVdrnJjAoc04y5JuNhWgHU9U
TPuKQzfMGooebynDR+3tF1YDOJRa3RnHIagCManWjJzdOBRsFHPXR1cFTH5X
+7W34tD5Q+oG+84qwGklMBHZgENduOwnvo9UYKAs6KzOBxxaaxq4O1WiAimc
36r/lOPQJTJGdXtIBexuECXKi3Go7KhONde+Cgh3ZsbdeIVDp9cTfyeIqsKk
DDWFTA4OMShLXUnlVIW8B6Tr02k4dP/svuS+piqwPBo/zpSMQ4ORvl++XlUF
3yd2HArPcMhab3E/Ml4VRuKGJs/H4FA/Yh38+kgVdJPMywMiccgmIiS0tkYV
xnL0KJg9cejspx09O6IanCSjXkVXHIoatzu27K4Grwu0ci0ccUiPv+a55TU1
4CqqvHnrIg5dSf0yqJqiBrdKVI0yrHDomG7FvdlmNfj+rlig0RSHOAVDpxj+
8akq2aWZ0//yPYYQ7boaFL8n17Ho45BGLYstOqQOfEgsXpmIQx887558KqIO
UZtTNSETfCj5WZYjG0kTln7bP875yofy3Zcdq901wXLvq33rAB/62+4R3/hC
Ez5QWKssdvMhioYdoYY2TRCj6aflauNDJC5bneIdTXhIbzqk0cSHuBLz3E/R
HYFVpo5Xdhgfup/iKftY7QhYsxoGhVXxoeX0k3adpCOAOJpM8kr50EELmvYf
XkdgWzZ3sv0eHwq/O8KsVXwUXB2dDhAk+FA0lvmNU1MbXF6d1bc7xIcaBvhP
M3hqw9UVjbB0fj6Ef5lcnBajDaQQpi0Rdj6E1NKWuSa0wT61aELmNy+yGCLP
j8Qehwuff1dpt/GihCcdqlpbAKdOPHZx8ORFc2tNr6Zv64BB9M3sbFdedLnS
r/pRig7o99iPTTvyIiEhQUZSoQ7oXVYxd7vAi7Z1w228v+sA8fYQ+OjwIo/v
aWQDQ13QKBXhi+DiRaLJq3BA+AQcFq1oIlfwoCbv2ORr83qQO1vi7vGWB+Wv
4aOyWU6CWHEhj2oBD9JYfx26IHsSRLXznLB0HtR+u9dUw/MkCFsl0A5E8KCn
TuFVxzdPAv6hz0lqcx5EutnxxJrVAJjXFJouLnMj3x6dM1SuhvCwSsZddI4b
DQpEZybGGgJTqATP7CQ3omfS+/yg0hAYWYScfAe5EUuuliUDoxHQSbDSPqzl
Rk1WVT27r42AwnZBrzKGG9EesFHmojSGtXpyI6cUN0r5Xm7S//Us8Cpgvbqi
3Oit1sj0Q0YT0EztH/cW5EYv7FV/RaqbQLAP1V4vBzdySBEO1XlqAkxidmpx
O1zIySiS7YX4ORCJYMvjaudC2MTRy2emz4GZgf99bk8uRE7sHGoJMQO/0pgE
PVcutPz3lUzmczNIFsrO9nXkQl8jEm9+f2cGY1tdWJ8VF0pbDKdNWjADN7LU
djyRC11peQZZtuchjHHUhYeTC3WaNUy76ZhDcdsJI953nGg363HnNTlLOF9x
vam1kBN9E0pKtjpnCZtZCcQgMifixCtfyfOxBO1bP9WnUjmRb8GE87NqS/gk
+VC0JJwTJVQ8cD962gomI3p3z5zjRG3Z7JKPbl4AXqJDUcQ8B6pVdr34Y88G
qmSipY9McyALVw0JV0lbsOMrzV0Y40DdXxTIxudtIXuR5sX5Xg4U038mOOs/
W1BMI0cdquJA2y3cFpnWdmC4s+TwIZIDHdQfj/ncfBHulAVzbxziQCNunHRp
1+2hYpJ7u4mfA3G3h+r8jbCHVc6CkUQeDtRiR6h9lmEPLl6DWZqMHKjJiyx2
+LM9WMgrKt1ZZkf5vNtMYloOIE/+foYaY0eGtuVaCzxX4Fuq3n0OO3ZEx7Lv
JzbnCIS2YbcJC3bk0+945hcDCSx3bpwtNWFHSRaaMdMSJGi/kMZjcYIdMRMq
7zpdJUElz2Z2sjQ7Eug8R0WeJoGIkEkYrLIhr3Qx75hfThBBx7NuK8uGth4L
9nwVcwHdYv/7vcL/+PgkfY6BC1DYDBEMedjQwZ83wzLcXODOm1Qd9X1W5BTu
vS391gW8zUVi2btZUbD/NHM20RXssxSkm3xY0S0WWVknVzfQOm5kL1/Dgj5/
02TVmLoOOz8L1nKKWNC5wHrBLhZ3qHzKcp8/hwXp+kqKZmq4g8p09xuGRywo
Gpxmdx66g3SM1Z+JSyxIX4daN0rDA/iGSYlJVCxInoch0fK5J6z6hbRTGDEj
4XXV3vRTXlB8kO5osDYzag921Elw9AKPlpj8P4rMaH99b7Us2Avmcc/DN/mY
0Zsxi0s+77xgqqZMc2H6AGJ/lKexIuYN/ZRzOYNhB5DxsAyTDLMPVD4yDyqs
YkKBpcVzd/Z8wV99ZE7mDRMaIWUcUzroB6rfHC7895IJNcRdkcCBHxQreqrk
3GdCKleEGULC/OC/zw9mUyyY0MNAYf8qBn94jscsIlYYEfXi+63Dh25CUK6U
vJ0UI6K1Q2WydwIhPGXauVCQERlHuBTLZwZC1KPMTApORsRaGLTp1BwI8X54
ntwdBnTymMATP45b8Ook4+6vNgYk8JnR99CrWzA0PdMa4sGAaFOHrZemb4Py
YbJTdik9sq82W059EAyaBFLGRj49klPkdv7+LhiOswp/MXhBj0Db9OrViWAw
3EwyXrhHj0ZPz5IUtULAvvm+ipolPcJn2Fp2robAo6vOlC3bdGg2c5VNpzwU
ZvIOp81p06FHp6vOqhqFw0GRD/k3lenQQtYTAXFSOJxPO19CI0GHhg+ePn40
OBxq40JbDrLTIa6Q6+a9JeEQHzq8YjZBi6ybtTUxwbtAtHmsXxNJi8YYP8RX
7tyFZJbNpYddNKju2SXTtN4I6IyK2cE10qDrOQZHglcigJpGlDavkga1TxfL
R7NHgseOCQFl0iBDsbtSYiaRoPfzP711HxrUGanYebUzEpbRxRQ7HA0KE76t
Y9t/H075NunKOVAjR6NLo6V00RC8GCpRZ06NsgNXzzyWj4YyFy1mi1PUiKaJ
9W2OZTQIXyztv6NAjQL8vAsi86Nh+2SmS/seFUozlWeWMn4IZL6gx9eeUyG3
Af5htcwYoK9RHf7vMyWiazps+udOLGipLddqt1Ai1oTJ87RvYsG7qCC7p5oS
TSYNMVuNxsJYtoj770xK9MfZL81V6AmUx7BTGN6gRD9DFOZfhD+Bq5cWxGeY
KdGCtzSB9dxTaKbM8TqsT4EohgxupjDEgV5LvEjsUQp0yLzX76loHNTFRHze
kqdALn0zBYXH4+A9n7NaKx8FytXSC7P2iwOSrfnqYO9fbOlFnIL/VBxoldpT
OuL/Ytz0N4y3WuNh/kqgUGDeHhZ0+qdqeGki/PhlE2YUu4dd9eUvv/s5EcYD
tCb5A/awEzmn1ovXEmHg8d+8WsM9jBh1MypWNQnqqyPkaX7tYiXJ7XqOlUnw
nPOZdqzKLgZf2GOTPiaDUf0r21y0gzklPf3Uz5wK+qcHvO7l72DbgcrGq2qp
oNtHGeX4eAeTXDzMd/pyKhz9caHskN0OxjdsOlBSkgpSTPQs6Vu/MZ+jLxVI
di+AwcyxNlH+N0ajy/gopSYNWr7zH4p6sYV1W9PgJixeQr2bgYbz3S2sWFvA
JtrjJdSueZ/Rd9vC1nKO+1nefwnltJ8CaTS3sJTuQ1S2VS8hTyqgN/TzJlYQ
3ybAL5QJkV59dwOZNrE9Z9Ji7kom6FE++uEWsI7t3RQ66FeWDS+T3dOxy+vY
qDujTGBPNvxROGvJbbCONe6qfM5bzIaSS2zNH3jWsQ4bbD9EKgeE3z/NZS9d
w1TZMA2lzBzY808klf9axWZI5bKdyblQvpAxQem4gpme9bGWLcgHznuhzy2N
VrB0w33VnY58cOd3MCtQWsEu+XS57S7ng5iRSL05xQrWyDlTnaFBhmf5OZn5
acuYGmPCFc8WMow1mtU9L17CVrubNsgr/8G5YqcPSqkLmNDq3TRmv9cgzrx7
Ud59AZNnTDlf9OI17Dg/25eGBYxz/LR0XONryBHCQGxyHhujkus7xPMGfj/G
1fPKzGMdy4s//KreQJZ7W/Of6llsx2XuzyxbEdxsdXDejpnFolt0Ffi1isBY
fJt+49IsFmO7VZLhUgSbX8UMF6lmMb17nCnk+iI4bRzcNm40g9ErBfH6aBfD
urRSd9PwD2yDq5mnZ78YWiNbbtS//oEFTVq9nud7C+kTFzmw4B/YjEuiCCi9
hVPPo80qRX5glIKyFQmkt5DGONX3ym0aK6wLAInOt6A/k/gldmcSCyBlTqgU
lgC/ntytmPZJjGd0w+NRWwksZzQQHqRPYi/zK3eOzJZAqtWybbjuJBbks/gx
XrwUlpsNx3yjJ7BpyetVz7JKISV3d8Ka8B3rtN60pysugxt7hxe8ZsYxvmCw
7hooAwML040H5ePY6+bdzwr7ZbBBk0dfbTaO7XR6fv109h1kfUy/oMr7Dasa
EF/e3XoH5wLW3EglYxhjklcIt1g57EucCoo/O4YdLD21tnSuHGzur2SuR45i
GbR+VCxvyoFTX2++bGsEe86+1pHvWQFoI3lvKm4Ei2+RXM7JqgCP3F9sPIoj
mLYokT1roAI+0SSp+rkMY6988YJIpxLCG2aD1L4MYTcaw7ZTxKtA0ef4Eye/
IeyhqbpztkMVjInEZSVwDGG4e8849tOr4Gi4VsuG4SDWn2ToMyhYDWvEWPby
6n5s1X1O575cDWQtT4r8sOzHKDSl/O751cC5l5pqvGt92KbwRzsiVgOv/363
9pfpwxI6bumrXXgPpFrVbPUXvZh69LrmXuYH4PR48O6qZi8W18rxrf/3B0CC
Yy2JfT2YXgcnJYV5LQgE3V/YZO7B1sdvPchgw4B8s+yax59OLCv/gL7xeQQ0
gxefdKp0YibzddfqHyCwV6d/J3+9A1O70kTRUIcAt2G9v/i1DZMpCVl7oV4H
vubUoiY8bRhjp4RpvE8ddJe+Nig68wlb0PIWNyupgyjvv088az9i75NmWBzV
6mGqh/yua7MFowOngKHAeiAqmQ0rKLRgXWyjLNaoHraXckSXM5ow2wqT+ebz
DeDqblR+I6we668Q07yf2AjaYafSBVvqsMmKhp6sn43AkaAf+Ym5Dqt6GfSY
91gT+ARGvD6liGHy0Yp95rNNwI3zXyi6WIUNmFQv3HBqgffg/Z5xtgI7gddU
f9zWAiRnjxhH33Lsep7ApSLVj/Cu/Kos38NSzPy0Ssgl9lYoeFU4tHujAHsj
EB1wbPkT7P7OCyi+T8acVi3Gjnu1gbFhBo6UnovpUDj+xG22wXCX0NvEpAys
wKHAqvlAB1THNzo4Pw/F+g5gJvZuXbBkkBQ52OeI+b5LXi2n6wamhsnARcwN
lkRi8/NsugH8y9Mv7TyCIdPbdrRMPXDWvl2iVTQbRDO/6xRF9cI+e999HpY8
GNn8Hu221AuFdSM/HTbJwJXiXHnQ+jOwiM7n73wsBOdoTvlatT74sUrDzavx
DvxpGUR2eAbgeBuD3vuCckjm4YpLTRyAxGxm3yvClSB6IC2vlzAIJ825+woZ
a6C8u3bQVH4Ieoc5Pol6IBh0H+9pvDsM+81cE/6SdSDYZaZ9QnQEpEt5dlon
6v7tCJLfZvMIhD/ES9+wagBaaZmIU/yjoKR1KPo9sRlUwqbE/vv9DewkRbPY
/jSDvIZTpMelcYjiFq++8q4F9KUVla7Xj8P4guQcg3QrKL2Lji19+h2epCka
WXC1Q+HBSA/Ds5NQljKBHR1tBy2CinBbxyQMJcSrCed3wC9y4/rlc1Nw6PG2
8PzRLpgg22d+uzQN1jB+m6jUA4ZrF8+MZ/6E69pV6iqJPaDhGDWcf3QGgo89
WxH/0wMJY9lfXw/MQJaGnvOBpl6QaXVoCsDNwZwC2WzgQh+Iz6kfV29YgF25
MJbWD33QG7zDxOz/C1hlbT7WiPRDCJX9mUOyi6AiyXw8c6EfdOU5W/czl+CO
8A2p66GDEJm4d5bRZgVYODQpqMjDEOv0c5qtfB2E2Thq1plHgC/L7YqC5AYo
s8z5/fQagZnVHLmK1A2wZHwx337sK6wHVm3ORm5COiXFYFLXKFwNJHlpuW8D
7vfkQOLtcQigoBTT892F/2YL3shmT4JHfRnxbwYVcfV0YUt13yRcbDXGHGao
iFqFxd9P0U0BtffJMR4lamK39zseJ9cpENAlkFwbqInbf2qD0hSmodnslXzQ
PA1Rn7X3DOv7HxCfcC8yxICeOKG8/WupbxZk1oyNG0WYiazHRZKsqZdB1P/M
w0AuLmLk5Mf35Z82YGtlSagpVYBYz7Dclce6C2Jfuwmt90SJQk2aJNw6BVFn
2Mn09jVJ4kzVoJRULzURwp9jd3XkiHGL6lfvLtIRN1g59Qv1lIiXTE8kvOpn
JL6WCdE7gakQD6yzHeP/w0wMMzDtKvJWJzo4CfbPM7ATtaW/nk8VOELscGaM
LA7kIGbm0j2ee36MKB1tsZrCyEXcmM+Z5TU9Tkw6sT04G8xNTH6QP6XjTiSm
P/nIahfNTXy7olJy9CaR+D8xA8ab
          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#1"]& ], 
      TagBox[{
        {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVlmk81Osbxu1LxMz8ZuTYlwxOgzZLiue2REmdFkvonJMlypK1pGMrpaNN
KZSyL2VfZn7S5pkQEnWyayGyhZAlCvWf/4vnc3+uN9d93ff9ffGouvnvPyLA
x8f3lff+XzkvfEr3S9K45V83VRiHAoRzIunzqlSur2Lwnb73CM6LMOZcWNLc
4rHdg1NSpjBzIqqZz0aSKy6iv1P38DaIyNXWPaQtzi0ZbnB2vmIMo3nM1DET
Ea5h8A/RhR4j2BHy3FzHVZAreEchpV7PEOr5cwKZVnzc7nWGiSfd9MGmpsAl
l/sDsybUbJLJTWDJf2XY+9Qc1r7Jb2U9sgH2lh15uuHOBL4yPHB8q8Z6uJ27
POAk14+NjVfzNUrqwDE/m8qAMzWY7Nbra0vWhmup623siWYktzD021wAE/I/
Fxazsj8hHZvR5lQ1dZAyVUt2EpxGc6tXenaJqUDsp8YnlU3zKAhtlexMkoMa
senXeVLLyCRp2PZfCQYoPzfykJ3jg7G0xz6kBQVGH3Zpa7cKwsdRjkfFlCg8
NniRkNIrCI1xB7BRsyhcZT9akhgXhJ2vvT1e3xeFTcWpLZOCQnCsSrBex00U
IjPcAzn6QnAv8VNEWYcIEBemqtBtIRDtN3F9h4XB1E50h8NhYbh82vGIRaYg
3Jg08IyZFIHbJe55Sca/kJLKrIDKDxG4fCUqQpX/FyrYV5r+RFgUzielrLQ2
/ERcjmbPvIIoLC5c7iqw/4kmTsvaHt0lCizvO2qbg1eQleiPDbt5uYSoAit9
5BJaVH66IuMmBirCWxqsXRZRzL6wFLafGPxUrNWS11xEUjH6hnvDxED5cWSf
wuwC0hguDoi7JgYUh6YDRZcW0P6itE9L1WLQdNrvmgD+hgqNol98lBcHzsFb
u+t159Ff+ywSCzrEgWEeEBO6eQZ9jnnrCAPiELzKbLhaYAaFVAbKdU6Kwysl
j+1Wb76iOPmMdH6xVTB29BBLxv8r4gwt5x80XgXhUaq9NcXTSPx0ZbVI+ioo
75JnKflPIk6W9qjbUQkIv++X47MyilAHt2AxRAL+fv6a/atgFDWJHvS7ekYC
KtRt+dSdRlGfb+zMwxQJMHstHi37YAStMvy0TGmRgKhupdz6sGF0+OVdKt4g
CS+fZIkdlhtEEnPSW+WXJCF/V5Pn+YQ+5JnezDopuhraReyCfel9iGsTp/SG
WA1DxwP5fZN70clMAYELrNUQU9a7np3xAQ3smW+c+XM1rGyckXfgvkNV+W8d
mrirIU0/jBu6qRsR9sk7NFpWw7nNBjpF9V3oOJ+dcXTPatgw6Lc85dyF1jq2
KBrMrIbFFN0zWbGdKF6IO5ipLgXvpsWGU8bakeffuUFhsVJQ8+oIU2DwDXq2
ys2jPUEK2v9uZz+98AYpVCo56KVLAfvfk/gU6w1qlby1ZeiBFBy4yLo8euo/
ZPLoIt++z1Iw7Go0I7v1FaIzAq5q2UqDSEK3yDntF8ify4qOOSgNa/0eP6iK
b0RNPp8Dez2kgX3ikUDNQgOKrnGzvxkhDc01LqRVSz0a97dX4CuVBu8/C3c/
v1KHXI8odoyLUYAbtoU67spF3oz+kRIpCugu+F9r78Yo5HnOj0A6BVySiqWK
p6vRvxoslUVlCiizXrh0aT1FJUPGPkKGFKhfVILIRw/R8pGD/IpHKCAwuygf
8hcbicgo0D96U0CryHM4Ja0CUer7mNkBFLjS0y9h3V+O1JlettrhFCgo386Q
O16GbIZPJOvfoED8zSI5lk0hSva8obPnGQVY9x/cPCeaiTJkHIHaQIF7mc82
iN1LRwX1cgfamykwFv+xuMk6FVUzs045d1OgTWOzhnX2LTQ4XFbrOUUBtLaP
+zgqHk0mhXRqz1PgrpFJl7/hJbRoZfR54gcFHM6wldx/xSKJe1gqWIQK5Mzv
Tc2REWij1yunKEUqtA11hddaA962JsHXXJ0K/Pk7lUu3uWOrBvsoYW0qbHcQ
1a9gBGInzQ85lzZTYfTDnfT4wigcPTI+lbyLCnanj67TqL6CW7zEY8vCqNC4
eUSyNfwOdrj1aN10FBV+TdjkmdBS8cdGnzd6sVTItIlI25yRhme0XymUJlDh
9B9356XaMrDsRAK7uJAKyhqJ59RKsnGWgqXTl3Iq6OeKT245lIPX7Z7/yaqi
wvwAQ2hSJBebljjaFNVRoUOBK+qwPw97BCj0F3yggohnnsb2mvt4MqMlduwT
FY4ox+xyc8jHoW8iWb+PUcFqXbWP30g+vrixPzT/GxW23dp5KYSvEJfN5Urd
l6YBY+l93T7pYmys4cgZYdCgaXxL79ilYlxrL+asqUADO9O60KfCJbiz0js3
T4sGLYP7DTd9LcHLp/S25ZrRoOR1pjzLrgzH5n/sH7SmQYKxV+bbC2VY+u31
C2v30CDFd+TFjkdlWG3rXGu2Mw3ci8buhsiX4x0rVceygmlwNdNYKvx1OW7V
8ZYeCKPBAafdT25/L8cuf8mTqtE8P70O5WS1CnwcR/BlXqbBmT49gMAKfOOM
eXJ6Lg2MdW7Ic/jZWKFidltfIQ1E2eYLhupsnDeQM6BUQYPjMppDVRZsXGUh
qptWTYO9jU29+Awbm4dUtX2oo4FfwLU623Q2fplzLEzxJQ2+H38SMPiYjXuF
m+vudtGgWmyHq9kMGx81iPB+/4EG/Ad26a2W5OCvnroUhUHefobUuqbXcrBQ
4zWXO9M0OFvU7iJpx8G/X7SfuS1OAL9WNWfsHgdTGBMb/KUJUJr7Rrn+kIO/
pZ8NtGQQcCcpUedsEwc/I0unJ1UISN50VWDPGAfngdX6OiZPZ0g76nzn4Msv
3/vfZhGwsMk957AoiQ/2i09ZGBGgY4fXNKuS2NQ3Q/c3UwLs9f/MEdMlsfqC
wfFJCwJ2XGAsZG4hsdjZluLanQSoVI1vTLEk8aSkx5dbfxBQLvxPyOweErcn
/2Adtydg1l64tfQgiR+pXfe1cCGAKXnW5Y0ric8bVY9/8SRgezadsA0isXet
3bpaXwJM1H83zw8j8d494963gggY7tmTHhxNYoOeMwV+pwjwqvokXxxLYgUP
2THzSAL2fnDMdrxMYoGpEm3ZcwQ4WRrKn7hO4pGw7ce+xBFQ4rPFXTSJxM1C
7+/XxBNw+usf9pQUElfEB40mJxIwrUo+v55K4lty4lp+dwiYi/hx9koGiSNz
073MMwkQ2rDGQTibxB7rDe6tuUeAxz8nBZZySLzzcfPwRBEBUlIiVgF5JNa1
cmfWVBAQ4WDZ43mPxPQ3348kVxGAH+3x/8jTP1yu5fpWE7ChYYrs5emPw8wh
szoC3loX27vzdH3g07Vrmgg4sb/zqz/Pr2j5gMfEawJmTK5rieSSOOHCWPaz
DgJ2XvicoMnLE0o78ynpHQFHMz/UdfDyHkpdo+7bT4A0x3c3LY3E5lolbmYj
BHRb5lT28ubVYltmyXzh3fdl8fltySSWMn3XPz5DwKb173nIk3iuMVD12SJv
v1se7qu4SuK3B8Rck34SkPCeZtYSR2Jub1qGjxAd5CLE/ok6R+LcY/ofYRUd
zOiyfk2RJL4491JZhkKHEbN10aWnSBwQ5fb3OIMOzZY5sut5992WGN+bqEqH
B3Lf7cQ9SKymwlTy0aSDsfDRQo9DPJ4Kn/wJOnTQNAufOGxH4jbu5/djRnTw
0bD1MLMgcdWuaAWuKR1c1VzWaRmTOK1T5lCiJc8v89UKZz2PnwmLd2gvHSxD
t1Q9V+DxE/pWjuFAh40dzdK2NBLrCwQ6j7nQ4e8Y+v4IHu98smk9N714/dJJ
m6FpDk62WOz6HEmHlS5XtXHMwYMXVUszz9Gh4mrcgXVsDt7YahPrdJEOzidL
vdTyOPjV4dTNLxLp4NT2h9GWSxwsEml+/X4RHeQ9+2vW7ufgkKrLNl5v6VB2
NvNubRsb1/wiVZU/0iGX8nvopxo2plj3LXYO0eGGZ/yrxnI2LuzYcM/qKx2k
+Lj6I1fZeGCmU5ApxoB9gaAUZ8XGe3VUnw7qM0Al7FTNqqIKnBZic/PuVga8
NQ153ZtcgSceB/vYmTHARejU1nMxFfiCTf1vdbYM0N61v3O7cwWu9vI5me3O
gN+S2zQqhSswK4vUc7vOgAZX84Z2u3IsvsYmq2+CAUHhgksDpaW4s/ewJH2W
ASJzA39+DivFOXmhJ3d8Z0CdicX6QotSDAa5NuXCMlAdlXbjSGcJPmnPN3tW
SQaeTqWdb1ssxgM3Ki2Ye2WgW6OTFraxCD+iqA/5smVA8nJcuHPUfey7alnz
R9gaaMGiUVvzM3DfTSHNfyZkYbPAN5vlp+7YAvn1q0TKgbDB5n/7r6WjB9Es
hs68PPz2RdjxW1QpWv8+RafPQxEYHoMxhO0DlOJ4jL9yVgm8BjOY0TsxWqVv
fe/7JhUIen3Kw25HLUKv4goLVlRge/S+pTXqDSh0Tj2rpFYVagLNPBO7mpCh
57GOI+FqMHJ9RZKz7RWaGvnLs9RSHbIFQ0th8j+kR/7aVPRLHR5aVZrE3W5F
QdKLs0uVa2F2b910q2E7Kg7LoPZGaIB+/8LFpbkOFKA35xNsyASKXtXuH9e6
kG/IE5kyYyb8s7visPqtLnTs4blnEyZMkGb8a2Kb3oXcLBhrPC2ZsL8l2D61
uAvZORrUHNzHhGPq/IImTV1oS9QpWVMfJrQc1j8dJNiNBF4v14mlM2HWrHC5
8kQ3+kk899+exYR40YK7PeHdaOngFbmzuUw4blUhsRzTjeYGFAOWCpnAnQp3
hIRuNPzNVH6yigmVpGVBfUk3alI6E9jWyoTGT5f+ahrpRvXuOxUonUz47z9X
/rHJblR7n9pg28OE0S8FJ8S/daMnG7MUeF82MN2g02Yt1INKrGobqiaYwJoX
86xR6UEFly4FzU8xgWFx7dZHzR50778DihtnmWDVykn9qduDMpwHgwq/M2F9
3lEVY5MelJpepDi6zIQeRbM0R8selDIY0riWTxN+bts5FbKrByVpmwS7CmrC
A8dcImF/D7pxXFgpTUQTbPPCJEqdetD/AN6hClM=
          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#2"]& ], 
      TagBox[{
        {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV1Hc4lt8bAHB7Zu/tNV4NIcoKz12kSEIqKykre1ZoWVkpSSgRKSUzlFQ4
ypbN+z6irIxCyOhr+z2/v871uc45932f+1znkC76WDjT0dDQxNLS0Px/ZFSJ
VZtiZqwp+atWqn0V4Fhg/eG9F+hrdiWWbN47hkED7Qs/siFNjTXHXCCurAPG
X/Jsc2rWUPXHETu1E1pgQHt3wj1oCVndX1I5oaQOZm+cq/Y9mUFeAZYZy9Jq
8DhnY9RadATFMjFH/DVRATcv43LfsC9oNumA+3rcbrifoWJ8mq8V+5LhV8zB
Ig+vf+cXKj7/iWUNcm7pfpAETj2ZVGv6ecw8UYw/PokfXvRVsF8Vncc0+sb2
Tvnwg3bAydCH++axjr2mz61N+MEl97pbx/l57MssXZ0nIz9U8eIHj1TOYzSC
7RSnID7wnLwzrHL5L0bP3eDw4gIvtNxf3sUyuYC5H5zwLjzEDQ574p/Kby1g
02UlYselueFfvQyfvsAipnuBwfi/TS6QWT+5cUN/ESsh/9i3J5gLgp3z2hcz
F7GsCstr9n6csFP7fMCQ1RJ2pgSsxNx2QNTPpsrylmUsOr2rJeEqC4iFCtxo
+LmMBZyfFq/czwJvxC/qUjeWMR/JU46SC8zQf3q9alnpHzbD+WcoyosZlJr2
ov1J/7BXcesr/1yYgFLw4HOp7X+Y62Up0e9ODCB3xa6haGYF07TJdfueSAMf
eF9HVTOuYnEvLVMEz9KAafGyYbvkKtbR/lI9U5wGgn7da/xjtor5Sp2jYObb
WKvN5ybFd6vY9HH5wZWYTSwAI3/Nu7GG/XcwjmmnyBr2hWW+4yXnBqbyt/vp
wtdFrImz+78d5A1M/MvOI06Bi1g7/1upAN0NrEpmgD9NYhHrlw7ywTw3sEJ2
bk4r/wVsQZOGq695A2vK0FQ0kP+Lkdy4TVlvb2IHSUPFVMc/GNln4bJP+iYW
HT9/w7t9BlO83JtBKdvEZBU8jUq1ZzDNsEd/no1uYn56N98cFp7GzB5L39WG
LSx/nGU7a/IXFtqs0uqxvoW9H49lK8LHsKgO3qUu3m2sVLrIxeTcGBZPWRLT
3L2NeS77Pnk89hN7NFLhwWC9jYXRs8nrrIxib1aBPaN8GwsqK6sOURvByrdl
1Ojbt7HJj3/n3RqGsUpGRlu38W1sbudGwLrNMDYW40QRZaOB9zfYRVZ5hrD5
hzvlJzVpYJzPPtFxfgBbTBXRSjOggSOXkNeg8gD2L43txAkzGkgebN8K8O/H
NrJmAstcaSDy/JMZCs03jKXwTd2tFBqQC9hzv+IQFZOq13QSXqKBAb5iy8gT
XdgCnHx1f5sGdCQ8QLG6E2uodJ5iYaeFaywpInb7OjHPtw98V0m0wM3Wvt9F
rx2reD5zvf8kLTx//1qpWLkFuyNFX2NhSwttlZPRJRrNmP0TEfqvLrTw96mj
EGbQhDEmGcZ+ukELjvQSuhXuDZhFeFZyej4tjPCr5hyb/oLJb5X38b+nBd34
RdavAl+wleA2sbtfaOHx9cd+5gafsad+a89ufKOF06lC901tEDbtYFlkz0wH
1LlYOxOrD1gkxtIo7UgH0dTMsnWDQuzsJ0m2x950sPKIw8a5Kw/brXHgBE8I
HZx6F5Yw5JaLdSpd7KFNpIPOH+PXRKqfYxKSlUOj1XRw244zLa8/GZt/3C1j
20IHpsMxwSOvErE6gd/OPRQ6UNvLVWrLdwdz5xCcqZ2hA4NIx+rL8lew8g2f
lRei9NDwav2Ku1wEig2KOihBpofrYyoelmfjkN1S+s3kffRQN+Zb9LbsPqKb
aWaIOkYPxz2fTdImpqKTA7I8rlfowevHvLr6kWz06wO+a1c3MZ/OjQeMFKJP
6s0P0gbp4aeVq9HmqWJ0r+zjOvs0PXTcv7Mn//wbpFaY0TZLzwAMPrSJD2tK
0M0sR7+3Bxggf9g0YsPmLTKTON0vf5gBUl2HZ6irb5FsmqF+qikDCGd9b6pO
foeaknYJhLgyQKnSCz7a+nLEFz1XgT1mgPiFJz8x+g9ogn6EVJLDAJUJvjNB
8R9QRWh3nEwpA9xQKhEw4vuI7EPe2TF+ZQArxT7xGZFPKNfrGs3XDQaYTrjT
StlRhfQsmY+dcWAEJbMyBh/jGsTdtfKm0ZMRqtiaBWlu1aCfJ6ZEtIIZQUDV
s6K2tAbFHG2bFnvACIKfOSX/E/qMerSTEkZqGcGKg9Yu5dtndIkkhXsqMEFb
rcmf+7q16OBTbhhUYwJPweOPfFxrEacY3euTwAQ3u1Z+1N2vRWX84yGq1kxw
pJUzeXikFm0x50uuxDHBZki+8YGbdShpVt0lYpYJDqkNPu99Vo8kpRfppNeY
4Et3Ga72pR7lmRdnVjIyw4Whb5WHRutRzVuFb8vizLARcD7Ll9SAZkKETS4d
Z4bLy1PBRukNyJB5bd+JXGYIzrzzVvt2I1qRqtoUvMgCawMTgUOKzSjCPDit
zIsFPgx4Xqw70ow4Iw5omAWzwO0XvdSb9s1IfqLQN/Y+Czwrmz13NaEZWRQ8
/blezQJ/Vv7jvTPXjPI1Q5uHxVhB9kxFbEduC7I310/Oo7CCHZ1hcRJ9K/od
0X8WRllh8uMTXk7RVhRY7idKnWWFkSyfI+4qrShWLCuTloUNWrlrvzTbtaK3
4xuvrbTZ4H7WaVGVt62INaS8mimTDa5Ez0f9PteG3mbv+nXxEjucel2fK5DZ
jjBKTd5KIDv0GyQKuJe2oxZmK697Yexw7qm36ev6djTkGbXwIY0dvC4nU35N
tyM2jZ8b3G3s8FuDttdXowM5fE3nQft2gLlYslBDSwdiX+I6KLa+A+Y6PjGV
+XUil8xWxSvMHHChJaCQIaQT1RjHSnbxcUC6xuWtE+Gd6MozOrpoRQ5IsBBo
bHzQiUZNl5sWznHAmZnkLauyTlTxuv9MSw0H3D1Og68uEPHO5/gHR3HCsyxa
V0/PLvSZ7aJT7wNO+FH+qqg2oAuJl0ueUc7kBItgjcd817pQ945HWuPvOUGs
5qpPRmwX0v0YR2P+mxOeKhY3Wr/sQvwCvvd2mnBBnnrAvpDBLnTBWYIyzcIN
kzwKo7eMupG7wMhkESc38L/ceyz6ZDcKrH+x5sfPDWX7OL7HnO5GMfKK0itS
3NDcticj5EI3KhrX9mDQ4Ab5/UsLwsHdaMPZilbCmRuOC7GcMnjVjVJdkvaa
fuaGPyX0ab7b3ShL8CzwNHKDm5qxaj1DD8prED3V28oNv36b+/Oz9aBqcnaQ
TR83CCZeXcnm70FjE29qXea4wYC+MDJ0Vw9SdW23viXBA/V3G6lg0YPaXFmj
3gTzQKThXt75zB505tHHPfO3eIBXk+cvY04PGm7y6FKO4oFyZz0ewbwetLCr
Xbz4AQ/YMtHvlH/bg4RnHpQV5vMA6eiWynZjD3LyFR/J+8EDDB5Hq17O9qCN
IGWdnEO8kB0twzim0YuiXg+PjB3lBclHudvGOr2Iqz8xWs6UFwJvtbUXQC+S
ObjU/dyGF34ZKW06GPWiY5sVbtkBvNB+vkQk3qYXJYUdTs3M4YW7FoVGf6/1
ot1xpxces/LBEesrbEKfehG3wMw+Hy4+CC+aW8yq7kX/MsP9DAQI4/u+kb/0
os/viudnpfnA6JhzDrm5F1mNsM7pa/JBQEty7j9qL7qtWT39x4UPKsS8rwz8
7UXDE+TxQ3V8kFV6vbVTjoIa/KrkhFr4YHjgJfOIAgUVbJxymungg9ag8qI/
uynoKm/Yz5QBPrh4UMF0Q4WCOPUGRqYX+KAo3W7fnA4F6SQnDCaT+OGuv8h1
JUsKStVfwX/f5IeVg78ddodS0FgcqfhZJD9kJL83+hxOQardxlHWcfwwwlql
cPo2BbU7ZOxvTuYHXS7fjoA4CmK6eTgxt4AfYi8pkO4+pKDAinhj135+UDaN
cVbNpSCzvaSqsQMCMHScvtO2jYKeBho/TD8oAPG72LlSOyho5lOAh+UhAUjI
n8rs6KKgaOMGkToTAciLOfpFk0pB1a4eV547CsCH6sIz04MUpJj9TvliogCI
eIWTeucoiFXIOHtoRgAs5hiWGrioiDrosIN/kVjPqXRygIeKXry8euXYqgAE
ijVPzPBREajnGJcwCoJ9NNbHLExFV07TLIZLCoIox5aEhDQVjSaV65PNBIHR
2XCtUZmKPnLLjnuWCcIObv0H+09QUUyf1slnHwThKUNY7D9TKjqdZfaBggTB
Ic5EqtyMiuaVb97VaxWErgZhVSVLKiKf/HaAe1wQfF7UG9DZUlHS3YSoMkEh
OFqZkKpziYo82TYU1oKFYGTkrxJHGBWlKK7sqbslBIOtusw+4VRUY7qkfO+2
EFiy9gp3RFARX9KMhkyiEAi3KM7HRhH1if04apwrBCeu6b2eukNFrHurXdOo
QqBXPctuk0JFL0+GvtJWE4a2I4dctl5TUaff9XwGLWEwfBNzbE8+Fa0lBRW3
6wlDyK7e7DMFVHSiz/f9RWNhMPDqaMgtoqIlhwuNcReEoeKD1bZ2GRUd9j88
2Z8gDPZjlXXClVQ09JBB4dqMMCQ95OyubyX6ozFb9XlBGDhRfnR/GxWp9uOW
LKvCsBjSXPKnnYqipPLDkxlFgPtZlQdXFxUp5pkPFkuKgE7a7WKgUFEQepo8
ZiYCvVG96nY/qIhnSpPB9J0IXPYybo+cIc4bL/Pk4ScRuC+6Nurxh4qclHeo
DnwWge2syNfms1RUETh0/lK7CKwfOHRKZJ6K7LdvfwqfFAFth3Djx4tUlMff
4/9eRBT2i9wzPrdGRfqY14j0TVHYIyWhScuMo2M6OrybEaJgmR8p9I6wqRa7
/rdYUWhhj6S9xIIjG7XXLxKTRUE8WG+thRVH/grjrnSFovCvdCvr9g4cZXGd
m/05IAo1tye62nlwtDlksv5SSwxYhnimKsRwRPdDTDECE4PSAIVLZuI4Yumf
sjt/RAx2xbcLTBLm742pFjIXA946QQZeSRwpNtWFxVwSA21BJWN7aSL/Gx0W
91Qx0Eo0cu6Sw9H7UEWBvctiQPuT/sfOvTiS0773Y3pNDJLz8ptzCD9YnMvJ
oxGHrJN3d8go4cjbpUx95w5xsJIMeCSsjCOyibaVrKw4bG7WDG+q4ChF6NgT
EXNxCDzQNPd6P44CixxJTIXioGW98e7uQRyNutb/risVhxB7a/r/CJuRFEoj
KsSBR6Co5rwOUe/DqcO0deLQsHrgnrIujn4G+zlt9BP5dM1im/RwZHHk1qsF
FglYOIo9Gz6EI5XvaXuHnCRgNjFUvegojiQFp2JEPSSAXXnEnvMYjtjNtMZO
+0nAhdL2/7wIT9Tiaa03JIA0FH9zjxGOMvL5WT6mSEC6w/ZypjGO2K7dG33Y
JAExCdd0fE7gaFwkPNVYURLcP9/1LrDAUfeproXbqpIweDZffoNwzV1p08+a
kuASqOF8/BSO0mkRg+YRSej2sgz9Rdji97qfvL0kPBq9riVxmlhfcdmE5r4k
8MxbHfc7i6O0s2605YuSEOefYNdki6Ox6Yx/UauS8CSpb5PRDkdKod3TZ7cl
4WWf1zF9wl9yD1JX2aTg3nurgUrCv1c58nVlpKCGkYex4ByONNNLLevNpGDi
skRbyHkc4cPrr3oLpaCyP0Xrx0UcSV9Wycgpk4II36ohbkccubM6P7jyQQo6
YxZ0DAhv7Wu/LlwvBdQLYpJ5hMkRWeZ236Xg8GmzKH8nHH16kL3pxygNBtMD
+v+ciX4dOPpqVU0aIn5MMLZewpEPZuUhrSEN6cyHfq4R7jVyUz6qLQ1CNq+C
drkR/ba/8/4hSAPeZ9R2m7BKTEej8gnCnhm7Drrj6OzA2V/OLtJQ7qDD9tgD
Ry/CLu3qfiQNt8Lu7ZbzxhFrfPCflSfSECUr0WlM2DslrkQqUxqyV+S0/Qhr
5hdoeeVIw9t2lnNVhL/2zhuxlEqDsMbwpIUPjhYUgt31vkrDXKSYfYAvjrD2
2Py8TWnYDnERiPfHUZ+606cvNCQ4katgm0/YN1Pvaz89CbI4r/u1EM72XZxi
YyOB08oqN0sAjpj4zu32ECQB1rUoE0a47azK6z3KJBCtGmp3D8SR7Qj1ZYED
CbicInklr+BoyaikvM6RBLxKmTMahONL7zR8dyGBQ7VXpjnh6giY2OFFgiMc
vPcjCcuQ8+S9gkkQeh1//ovwb/cbL/Y+IEFKB9b4+iqOri7JZhfVkoDjDcN1
nmAc6bH9vZnYQILRJGd3ecKM0tW2gc0kGFv219EinHTcSkC7gwSJ7qrxDoSL
s+Nj6vtJ0JP8YLCQ8KTZsvf3vySoEn/iqx9C3Edhw0E2aRk4bqp2wvYa8b5q
k4T/yMhAIbv1mgfh8T6H5Q55GSDZfk64TjiAYb0oeY8MuEUOBWQQTrBVliFp
yIBTwbzcIOFG1kcsmqYyoGDRYGh7HUcaLm4U5+tE/MIDjkduEPXrFK5H3ZIB
3munwi0JG/D+JeWGy0BqBm+cI2GL6iDvqRgZ4NrBYBlG2FswhtknWQYuzydS
PhHOaXipFVQkAzr7MwsVb+KIT2EsI25YBrBylcdbhEU3Feryf8pAHfsGB/st
4j30eEy1ThC+GeojRFjp1qI61x8ZcJfcs6pM2Bin60xaJeqX097tQDgsmkSX
wSsLzuyG4lWE5ybtXYoNZCFc6vG2Wyjxf3okWz85KgtROa1JAYStZ7+aRBvL
wqqNnOgNwrVLmmrnzWTh5GrCZgLhVFo+Gi47Wfhqc4v0jjAm1vjYO0AW6i2f
zm4QTjBVbtubLQuqYdZSEWE4qutyrhHJkYXJV8/F7xBetUwvY8wl8v225Uwi
7GjLmvajUBZ2W1l3ZBPWuPTT5e4HWbgyZ9n8mfBQWCrNn05Z8GP2yN8krPxu
W61gWxZcHpx+6BWOo0cp2/6xdHKg3XlbPJAwXdB2iQujHCjQeD8JIdyrva1M
YpcDw4K0G9GEg2q29qQIysE1r87eLMI1XzdlQ/fKgQy59VsXYbPRdT5LWzmo
yXJO2huBow+16xb77OWgPKaITY2wTM56IucFObjTuC9Ek/CS6zpXs4scsBny
HdYn/OjPGruevxw4tvpfsSI8srJKvzNWDrau/gsJI+zPtbK4Xi4HSWzPtdsJ
i5V4Xxf6KAfJQkkqPYTrLMYZ1KrkINZ4QLKPsGBKt4B7rRy8UXw+NkL4o3ih
Rl+HHFTAGcFlwrS7L157+0sOrv7VFheNxNF9g1Y6L1F5KFTh2rInrDVx+E6M
hDzQaUTzOxIejf7A90JaHthtiuVcCe//+lJugCwPes3qqj6EcfMwQyM1eQjs
VaK/RVjyvHqcvAmxX3UlMoNwYXAWz+ANeWg49M6QSjiyidW1LlQebjr6e3wj
bCcUUJkXIQ8raq/ufCfM9u6I69VYeaibSaweJewyP1XJnSwPHozSc7P/j+96
4JJ+gTzkkZ6HMt3G0T3Llurcfnk4HvsoQZWw83M1/oQf8vCjAFM+QFhnId3t
8rA8DNBLftUgPJXgw394gjBnyn86hA2/8rsP/JWHdi02uaOEtw+dF+BkJcPI
wNMOG8K+ykseARpkeNhPeXiLsGdgpeAbbTI42NsxhRN2+xD5eUaXDI5FiwGR
hC/qCwi5GJBBYNlLP5aw5Vn1L1bmZOgqx94+IKx1K0hYz4MMwpcLRl8QpuvY
qGPJJEOvre2TBsJbfPU+R7LJgAWHpjURXre6KxqeQ8Q38U5pIbw0KuG7nk+G
/ZUVke2EJ/7pic1WkCH9XupBKuEWyTC/nm4ymAz2CY4TbnA0EuemkmEbxsYm
CNfm8jSafCPDW0vmN78IV6pmizcMkeGM7ivdGcJFhrWNFTNkqDrQob5IOO/O
Hf/lOTI8vyoyu0T4VecpCdVFMgQyZWX/I5xlM+afv0qGk+0B9GuEMzILJH5t
kMEbby5eJ5w2FtgkR6MAl9u8rDcJp+zSDbhArwDNTE4024STvBklnzIpwHD3
mxc0UTj6H4ej+kc=
          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#3"]& ], 
      TagBox[{
        {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVy3c41u//xnF7j9teJaS7pAgVKdfrCkmKSoiKVCgkGRkNo0RFKsqWvUvK
SML7ooT4RPaobCmUveX3/f11Ho/jOJ+y552NbZkYGBhyGRkY/n/575n6PUiS
Ik7p590C2MKQsV2qb0WsFCnxu6yTJROGInSnfRaeSRFz5sJ/05phaB3jk1t2
D6RI56S/4IpzGNpyvf66tpsU+cBcV/OtOwzhyzrXlnT/1xub7RZ8H45cjqk4
OIxIkqB3KiVjUc9QgZKffVK/JDFYX/MJip+hBZ6GSx3fJElm+Dpt0v4M+dRe
vqj3VZKUJvmGGIhFoAfamTZyJZJke/LLsuCoCJS8c8PZrmBJ0jSdor6SEoma
xXlNDJQlSbhgfWBQbzSK8LhCWBQkSfeijp4mZww61dKwjZKTJD0JxezbVWNQ
76Mw1p2ikmT4X/vGloAY9IdN/O36VQli0Oc0prY9FnHMyklOfpYgAQ/GZJ49
iEP7vmr0RtpJEDWvxLbu6wloTSnmiLG1BOFNsrhs9SIBVYYsF/OckiClC7y9
Sj8S0CH98if+hhKkcXk6zVI2EZlROjqOOyUIC/VosDooEbm8NEpHTBKkeXuG
7uEzSSj9vs3loXhxkvolwqRnUwrifdiLuKLEiW/vPbuV/SnI/fEZAeUwceLS
7klpW6Ug7UiTIq9AcTJ6tF7jSGQK+pGqy8DjLE5u2hgxWHCnIjEi/1QVi5Og
+0YfHy+nontzg+99+8WI0kx+mM6/dPR30To09ZsYUX+XO8Uqk4HMVr9Z17aJ
ERaWtIHF/RlInqWVVahOjLDNfYj1DMxARKDqaHq+GOlo/OXeJJCJFralDdQH
iBE5Vs78g6pZyP6CLbfkZjFicr/2h1lcDrqUbaR3RlaMDFnopAl/zEF2k+r+
z6XEyO450QTusRxk48s1L0cTI7sMFD3T971A1rGv+hUXRckFy/S2qN4XyLx5
8Z1WnShZcZxtLVHLRfo6oZfOOYuS7SGu7XkBeejgA8+UFHtRIlfkZe0Zl4f0
vlr/GLogSrY5c8lZF+Qh3bNqJg7mokTstIxw9GAewjc6wG2/KBHNLtiSq/ca
qefLid0VEiWS8h/Snwi8QfSNb6sy34qQsYUrK68/5KO0X2+crrwWIcl8itSj
/nwkn5crsjNHhOhkrBXGMxagjVrpttRzESLLnOx0GBcgmZPPWNvuihDJynuW
c1QBkgh2O8BsIkIeHLgX9qWmEPFMK1dZTgiTyYD4yI9MxSj4naLTxt/CJNpx
jlV3SzHi8tss8mtAmIzqpjL/MyxGnLwbbN3bhUmiLpLaGFOM2DbzsQaXC5Om
8KCevbveIYbTY7rFIcLkfVto6ZJHCZquzPwoqCBMTL++XrNRLEOiylST9kZh
Eu4UaDlsWoY0Ylt7XdcLk9b2IzlpfmXIx41ptUlAmCw4K/n1tJUhLvkzu8KX
hMgkWyOfQWA5krvLny5UL0QW/85eOzJJIeODHkHCzkJkb1uIpfmtCnQtP+SZ
rr0QsWpty2qJqEBRG1JS3C8IkewENgmPvAr0Y76BajkpRASl/2ooDFYgh0yF
hadYiOyzf3zLzLAS+XN+vyQiKETKDoyI/aN/QHl1OgaihYIkzvx+luTiR3Ti
7eWq2lxB8siz+vJeySo0l/wM38r8n01D7jzeW4W0rv/cPRgrSM64Vcx1+FSh
z1uCN765LUiUaYelx9g/oYG7TSuGxwTJCX1y006+Gonic6/ujgoQS369UzL3
a9E7xQdb9wwJkDOVjqwer2vRGbH8tLEfAiS7j92Ou6sWpfxhiTvRJEA4Zd50
zSl+RjviM+/JvhMgYT5VJd1Nn9Ghpb/nygL/53OK+Rrb69HNAh/hWVkBkvah
QEVLrAG9HRBeqJISIAvfeaXdDjagKcGc7ggRATJxpbJu2rMBXXJpT9bgFCCt
257ube9sQKZKO1RuTtDI5iyrlOhjjUgps8+QmaIRpYzoWJMNX1FPrG6QwBka
2cWm+eRfdxOSrOty6DelkUJsyaS12ITMlq4a5R+lEXrU17pM0WZUbx4vYqpD
IwZGZ/w5jZtRschcStRWGkEuNtrzn5uR3Iaj/jDFT8S/Bfz8UNWC7rKJzJze
xk+cWK2H1fvakHaeR1CTDD/hsbshZsTUjhhOdUgeEuEnzmcnZJ5ubEc3X8bu
3/2PjxwJmf2aZ9eOXE3kHtEa+UhynKHZzr/tyDpZeWuVGx85RA8OTObsRPuQ
gbXSe17iGvByD92uGy39zJlOfcVLTna1na962I2Kn/AGSaXyEpsuo/b4wm6k
NtT4kuMhL+GOnRhfZv2GtoacXO634iVcAjpr17K+IbEum4hIJl5yurHi5Yvl
72jqmm89gwEP4XR8LVB3sRflSbNp+mjxkK8sSnsD/XvRleqQjOUdPMRx5QVl
H9uLRsVjbs+J8RC/+f3t2Q29aPB9gcbYEDf5e17lwDrNPtTK+Du13Z+b1L4w
C50V7UfFD01u5b7jItV930UvTA0gj93dvxVfcpEX6Lr4C4FBtLPnnHlWIhcp
4ae20lUGUd4OZ7XUIC5iz+pZmHt1EGU13/8VbcpFirxLRiWmBlGMBGV6d5KT
ILn4N8//DaFbaQpKZxQ4yZqeHJWNR9Dt6KGLues5yd9t38IUbUbQvYdJSQyC
nORKh49Vb9AIenpNQiRtiYMwd9P5fjaMoOwDnCvjdRxkyk1kn8v5X6hjaKTW
9woH6ZiQeV325DdSpWfapuSzE3fJsu0eUuNIQ9ImYTaDnYx8sJIT1BtHiE+m
82AcOwk5KnNt7Oo4OjQXeWQsgJ34/RefbFk9jqw/BantMmMn2+u4NPd5/kEP
7S4yVi+wke31P9b2DfxFI+n0+N9abESTDD7y9ZxE0nJlGZ6qbMTXUXv50eNJ
dCL+xBuWzWxkp8zHMx+zJlF5uF+1NI2N+Ik2NUZ/m0RP/bomjftZCXtJidqq
zhTCp0L13geyEmXl/WEtEtMoinfub3ADCxFLWFI5PDCDvtwLWRL/yEK6rilu
0WWcRcwsG1nTi1lIzblG6UsbZtGVpaOSJImF/DgXyKJ6Zhbp/szSnXFjIYef
2Ae2tM+iCWIZfUachTx87KEW0j6H9N2rtLefYyZR0aVDkUsLyOeP3+YKE2YS
vx0V35JdRAWX9vGY6jMT6Vt3JRP1F5GMZX7rTWVmYvFvkT0uchEtHEi6VL/K
RBZLFxavayyhTLFboY4xTCS19NyHrYHLiP39zq6sZkZiyXFqr7TJP7Rv10S5
VjUjmflzBMzv/EOur3JSvpYwkjpL3druN//QjxQ5p8UkRrIoEbOnQnANFYXQ
GA5dZSTzEe57BdvWkJ3V2KYRHkbSdj/ycEwhA3xiTHWh6zGQyco0wav2TKBb
/VTukSYDSQ7b26oUwAQVIXeb55UYyDv+/64IJzBBqdjFXbViDGSHZSGHaSsT
2Jw2mWpvWqOi/XVE3+gww758a8YLEmuUepNjIt8WFhg9773BO32VGnH547VM
Y4Ph8VP+Bo9WKdOk6U8cKmzQ67VvQMprlUoOjUnQPc4GbaFr6eWHVqk5C5M1
/TA2qCy5q8QyvkJFN5LpYFF2iBEM03qktkKpvA1uVt/CAQaV2afTyBJ17XHB
102uXKB3uM0lIGOJes+3V60ulgu0WxjvXQhdos53Xt/4pooLNIfNC2TPLFE7
yvYb6klygwIXO+/z+UXK0fL4rvBP3MBhfKE8QmmROlPVN71uGy9U90nJ3oub
p0KbaJoMYjSodDiofvHOPBU5XipvtoMG5dOuhnoO81TeaOTf5kM0KGL97M2i
MU9tO8ktq3+LBukKXk1+zXPUy4fDwxLDNAh0abnjzTVH5SYW/IqlBECX8eGw
g9cMdffxaMZcuBAkRjk9p87OUOeerMnteSMEy8pGZsIHZ6jrpvvOZDcKwRsr
/k9lIjMUJ/e6rZJ8wiBT+iSNlj9N/Qo7raoeLAyrHhE2ReNT1PC+xHOZoSJQ
NJbQz3hhkjIaz/v+oFQMBAP8YswMJqmn1wyT9/SJgZPUOeMclUlK92Eoryyb
OMgbyFWaMExSW56s7oo9Jg5hGalJGfETlJGktI/eiDj8+GhcEZP3lzqw469i
jZwkHMuzLVOJHaMsee6Y8levg008K5ZKTmNUzdJY0N2JdbB0MezfVhijGMO2
OqhLrofUDRTID4xSikPvnh29sh4WQ8UrRRVHqa2PLDlPS0hDslPdp+WSX1QS
tyjjthsbYGarSmNV1zB14gHrmLSGLNQGVl+tfDFMWbp7To8dk4Xn/ZYClM8w
pd2z8+UPe1nQj3lgXCw3TJ1nGGdRipOFeM7BlmyHIWrT6bkpfyY50BuJ6Hy0
NEB9d2jYtr1NDqLTVvotJPuoRrY0WeFYebi6Sh9zGemlYhZoh/Xey8NB0+Oz
94t6qVyGA/nZ3fIwy5LOXmLcS3Gp2Hpzr98EyTXPzXeK9lDJvI33diVvAkE9
3dGC+W4qucMl17WIDtP4Ea2opJV6add6aoBDAZInBuSGzVopX7742/+UFeBY
osYu0ekWCpYHssxOKsCLtT4LD8UWKjFh2ZVKVwCb8p0pu+OaqBWJUbdb+lsh
07PA8cryF+pxqYAOY5Qi2DsZFF31r6RUmvfnLNgrgZa//vP11RVUZgD/V4MI
JRB4phf4maeC4phmuvq9UgncvO++0N9BUXyhhY+q1imDsLjH2CvLd9SkiEVe
TrMy5GTndqxczaGk8u1YBTN2gJF1/ebajSlQEuPoq7NPFf7RWoJEeNPB9fvM
UrOZKuRWdP88N5cJ22yVhYNdVIF342jGUk0upOKENacMVRieYhEWVS8E4UbL
UR4RNWjqEvi88QqBznKTnL55NXgcv8PAVKgeHLSF+kK+74KC6H5K83s9GD66
s8jHsBs6nj3dJZPxHxxcfGNTLbcbZEMXZEY1G+B7+qZ73y7tBgvovYFVvkJE
xD7XpPnd8Fs507jNvAUUlvpYBzZoAK+ABgNTZhccWlcQUBevCTL8Au9neLph
/esbe6qrNUGV9/e1ny7doN3TN8UypQlmnHGj9Xu/QbhTK03/4F54zsjQHtnw
HQaNXewXZvaC+OJAW8SNXnjp9HzTWUstyPqV83JbygDwTHpsyFbFMHU4t7qk
ZQAM/Y1l3x/GsC83r0+fbRBs5i1qpmwwNLoWitjaDwLLwc9TbZEYFpbLb8Ur
DwH869TzXsOgx9dkyFc6DHFc1gGn2/ZDv+rC+N+WXxAf7X/TLFUHtj1bYvdh
+w1jz26+L6zUAY/5FVkejd9Q/jCqRKdPBzhLGc22xP6GwsEm0XFpXdhxgLvc
+twovB3dpHQrThd8T0qHfh0fA3Fy6Vpz4gHgQ3KRFswTEHLV9bZ740FI7Sjm
9pScgCi+R9kfpw6CpttRv6cqE9DSUr96QEQf7DJv2jecnQDdwtJ930/pQ5lg
+94DpRNgs1ui2XZEHy7/DO7dcW0STiXEnJLmNYDPj2cVOH5Owbxc1PU9vkfA
WjHk+aZ/U5BpyRitlXkE5qrkhHREpsG9fvTMza9HQG756MotnWmI35AtkyNv
CN622V+mE6ahrjWYtP1nCFs0z7r1mM+A5ltT+deKRyFwoKa06PMsUKp8IRPc
x0HKT+TWp4FZuGv/6cId+nHIW3deq21lFtZ9LjeB/cehy3S5bFZpDk7prd5U
8zwOSjXbqZ3hc2BvWNciNHQcWl+EVbw5PQ/L/mYHx2uMQd7jzKfcsQXQOetr
/u2NCbwTzAosZ10E/3HuT4LNJmD0albvi/QiHLO613V92gS8RkKrx48twuS9
cfm+naZQf6qiZlvhIlgIJj7iKzEFN6DXZd9agj3KB3N2fDGDSo6JhnS+FRC2
SFqu2WABNXxN8zz0FZgAjtJduhbwRbhgg5vWClj7VuS2XbKALhkvZ7i8Aq5H
Xx4temMBUxoM/B21K7Dzz/GnM/qnQNaeZsR5dxXC434Lv/I9DX61O+odl//B
ke+W6ljcCgIbBGe+Cq7BIc43p2t0rCCkdUZKY+sa1MZeigp1toKovmJHFos1
yNufl99WbQV5i5g7vmgN1murzlvdOAsTT7ds+qnBgBuCvbKNPK1hQ5WGjfgM
A94/IKqvyHIepvDRjMdrDPjKDp2EtPXn4VOp7W8ObkYcbiJpq6N+Hi4XhF1d
lGXEll6Oy78czkNxytjNrqOM+O0yb8RI83kwvp34LC6HEe90+GjT9uICBABH
tcwFJhzw30Hpjhu2cPK9NFf0FSacOdEqJxtjC1vVdxkKXGfCJOcTw9NiW2hU
Ot/M+IQJK/Mv0xdmbWG9dGlPfzkTpm18hoirHRStOC+kSjLjAw/47vu7X4SR
d+0KCk3M+BH7NV27GHt4v7s2LOYHM96ZVuflUGEPofkly9yjzNil/s/7zBF7
UHsZ/98fZhbsYkS9bVF3AJ/ECy4Fu1jwl6bjcdMdDiAU9LcYollwQpuwQiT9
MiATdn0za1b8nP/Ij+7JK0D7upBXfZkVe1w+u6tWxhkGDH9L7PFmxSoce14v
H3WGewf/G5UKY8VpPpKRKq+coVkz/FHfB1YcqzzaeU3jKlyS3dB+eTMbdnfI
LZ5ncIHwP7vt7vxhw3Uf7VJ9c11BWmaaSWaJDbMZSc99qnGF7OOvEkpZ2XE+
24VllQFXIAWbO2fXseOJv50tbuJuMHZd/Milw+yYsFe9zwlwAz32JRXDTHbM
6ry/WNjGHRY2lK2KnufANxSUdMWxB9w57h2T78SBt6soDew46wF8d3apH/Pm
wJxv36u5+XjApuGXV+8/5sArp2hF18o8wPjF84Hlcg78OtK731PLE3I0/Gp7
pTix3Uzr0+cHvMDquM6z7FZO7P384c1xz+vw607XSdzPiWM9rv8pTrgO7kUu
km1/ODGngIlxWfV1uC+VmMDIwYW3VVkJu4rfgIKhlSxzTS5MH2V7El56Aziv
F5WzJXDhw0cef57nvwUFyQoj5y9xYwtdQRurIV+AVpK94M6NU0dvuDtx+cFn
dnOnUH9uLMm8hcVQzg96LgdOvYvhxv82Z+VeNfYDLvWBFdp/3LhYnJZnVOAH
1nVxApQKD750Krbhvo8/cM/w75Va5sFbk9sf0pXugF1C/TYPdl4sX7altfvQ
HSAG96W/CvHiyj4uyyLbO+CRxMQUtI0Xj7qf6OiOvwP9RrM1U5a8uL6pcPM4
fwAUZ3WZfSa8WP/1/Q6j5QCwO5vm6h3Ih7+1hx/ZPxEIFVznbVrC+PAi8u6e
ogXBuiJpM+UEPtyTuri1QSUImnii9gy95cPtMjyVHO5BoFXygOH4Lz683/t7
Y8BSEAiLXA3dcoQfO2gLv63hvw/nbNe3jnLQ8OuyovSqM8HgINL3M5ePhm86
+xuF+QWDe1XqkoswDa+WHde4nxoM9zZtk1nY8D87fbg8NxYMuUOajizqNDyR
IBzR5BsCK7bmjOttaZj5S/x4/suHEGkXvt2ogoap97ocESKPIVH0JBaopuHr
Q1p79LY+huxPkida6mmYvV15hRceQzk92etUBw2bed0LHLz0GAaH8z7Y/aXh
LOmapldlj0H14hcL3/UCuL7vu3uj4xP47yJnYJ63AL4Xk9Zd2RUGZlElihO+
AljL5kdc6EwY9NY4flUOFMApt2XnvfjCYUrhy7pXYQJ4i55iZ5Z2OIiPheW/
zBHAJ45rM/m+CAebq+v6sr8LYIFofW2ewKew4qW8L22/IHZRPs11+ngEBGb1
9g0eFMTlWdfatzhHAH/XkyB5I0Fs38K8T/xhBMjtnWlKOSWIOTujNp+pjQD9
1WL7ZDdBHBwXynlDJxLC/bUjE9L+9x/YVLkFRcHWB6ZT0ZxC2LDCi++HYQzQ
RMZUnPmFsJn5i9lKpxiYS7jtoisihK+YLfhVP4yBisJXE39khHDAyZdVyl9i
wLyP86+OhhD2zi9s8DkWC3c1ykfH7YTwpqFvPfKn46B3mD60/6MQVlV2WV6+
9xwidRbaf/kI46vvvv0aS02CwQeyr5IChDG//OCVjOIkUG0yCLR4IIwXmWcq
XeuT4It1/M7aZ8KY77b2770zScDmo/0k84UwFu/4khelmwzuxSEGF7uEsejt
oQ++I8lwbLts2eAuEdztzPd7vVYqcIoZJPeMiWBJnneUqmQGtP2w5hGeFsHM
zuUlejszIDXd00N/UQTnXlDWcjbKALw7zeA1qyg+Vkp1rt7OAA9Thunb0qJ4
7tAmD4HxDOgPL9KhHxPF+yqM+QWrMqGEtnHocr4o9rDjOuYakA2XuVY2L3mL
4aJTP94p4lzoecqy+caYOP5yrE2mjiUfdMCpT8ZHEhe99/+e9/ktvPXbJrJ9
VgpnmfQUKr8uhR3fYrb32KzHd4zyl6nfBGJO2jMWTUvjvVacd4y7PgDXroMZ
i2oyWEHmEpPLm08AX+7nZK/+z0mcDhnfasFzZmNy7gdZnHKngNmJ/T9Qt7Nv
tb0ph5/p83m8YWqEvz+t7F7pbsTKBUWQnvYVlAvX1F6sbcRvMsps1ZSbwZV/
YXq5SB4LMiSLRr1pgZfeiQI/bm3CkWI9IjLmbXBVecbRTZ2OL3rVMB3ob4fL
7qWieZp0bPMk1JD+qx3s3wVUjGnRcdXBlmT2iXY4ryMiZqdLxyW2sZc/r7aD
ycndlebH6Thpk/6NYxIdsMfXSxw50vEdxb8eVsc6gKlh5SNHAh3/Yt55w7+8
A/4JVTkfSKbje1mH5i9UdcCy+UPJ22l0fCNx9oZefQfM9K+/upxDx4q3O59z
d3XA8ByS+lNMx4udJociZjvgs7S/S3MTHXOr+2x6ua0TPl04tI7WRsfRzvny
j9U64UOmQPWRTjr2S3qh6KbZCaWqyes+9dCx8PZ3x/bod0Ku3ofq4jE6nu3o
n6260AnZwcGus3/p+INuj0qWQydkNJ5YrzpNxzUb0LUQl05IPDXomrNIx1L/
TQuc8O2E+IQX60dW6Nh9o5rj7sBOiBl0r5Fn2Iw7J9LqJB52QoSClts55s14
NQ2rrYZ3QvgVVunnbJsx+6f5pN6YTvg/OxjBdg==
          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#4"]& ], 
      TagBox[{
        {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAD4hVgIqhG8B++v38D4Dqv1JmpH/B
mxvAOqTBHvp86r+WRPN++JUbwPlNhUDkeeq/HAGRfWaKG8B0oQyEuHPqvyh6
zHpCcxvAakgbC2Fn6r9AbEN1+kQbwFSWOBmyTuq/cVAxamroGsApMnM1VB3q
v9MYDVRKLxrA1mnobZi66b+miWRs5Z0YwHgdKL+E5Oi/aWNlCxonF8AmGrHP
oBzovyYjt8WotxXARl6HqqhY57/zwqjEEikUwLPmsmUUhOa/sMtDSha1EsAq
uCfgr73lv3y0fhT1IRHA683xOq/m5L+FBhX0WywPwCIrCWCaE+S/8nV/zABK
DMBi0WlEtU7jv32lKS5cKQnA7LsfCTR54r/opiad6j0GwIDvHo3iseG/SHTF
Qi1hA8CKamvbfO7gv8YBpHEmRgDA3SkNCnsa4L9KwqpbpcD6v3hk8O9Rqd6/
RAGN5mp49L/K/XCMdfzcv1CwZb0xm+y/CiaMvXBX27+ZpfziWRrhv1fgOW3L
ztm/aW1KtnCBwr87I5Ld7STYv5CdMEpVE8w/Mvh8zG+X1r+p6autLKPjP8RV
Eny56NS/Dj4il1kD8D89QkLA2kHTv4bjyLy2yvU/ysAEg1u30b/CCPDPpg78
P+vHcQakC9C/H8U4ZBj0AEBDwuIQmPjMv+i51ykp0gNAeBIXPpfpyb+T7jZm
g+4GQOlzoOwlmMa/XlFDlarVCUBw+U6Yc3/Dvwv0Dzsb+wxAMpBSxVAkwL9h
ZR3V6wgQQI2JFje6sbm/zWcJhrB5EUDsOtLdUIyzvyqKVfKZCRNAbR1wDg3E
qb+XQ/jX6X4UQB+roKvopJq/CRdKot/sFUBFUFAghPlhv2wK/Cf6eRdA1Q3k
mAs6mD/flAQne+wYQB+CVOandqg/Qz9t4SB+GkBbXHH9Be2yP7eALBUt9RtA
Vi9uDTotuT8w3Jot32QdQLbGAMsPTr8/mldpAbbzHkDXnfRC4/nCPwo1R6f5
MyBAL7RDo/8Txj8/zomrqv0gQFW5PYKMcMk/d/Qjoq7DIUCroAI4ar3MPzdm
adVlfCJA3mOi8IjRzz/v515mr0QjQPCK9hMMlNE/L7X/M6z/I0DgUQkx9CLT
P3IP+PP7tiRA5YmBuQSq1D+teaAR3n0lQFA5T4FNUtY/cC/0a3M3JkCuVorK
Nt7XP2x0vBawOiZAk6VGnR7l1z9puYTB7D0mQHz0AnAG7Nc/YkMVF2ZEJkBO
knsV1vnXP1RXNsJYUSZA6M1sYHUV2D85f3gYPmsmQClFT/azTNg/As/8xAif
JkCfMxQiMbvYP/4TxW9FoiZAhYLQ9BjC2D/7WI0agqUmQHHRjMcAydg/9OId
cPurJkA/bwVt0NbYP+b2PhvuuCZA3Kr2t2/y2D/KHoFx09ImQBgi2U2uKdk/
xmNJHBDWJkD/cJUgljDZP8OoEcdM2SZA6L9R83032T+8MqIcxt8mQLVdyphN
Rdk/rkbDx7jsJkBTmbvj7GDZP6qLi3L17yZAOeh3ttRn2T+n0FMdMvMmQCI3
NIm8btk/oFrkcqv5JkDz1KwujHzZP52frB3o/CZA2yNpAXSD2T+a5HTIJAAn
QMJyJdRbitk/lik9c2EDJ0CpweGmQ5HZP5NuBR6eBidAkhCeeSuY2T+oCmRG

          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#5"]& ], 
      TagBox[{
        {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVl3c81l8bx91mZM97lJldKCMK36+dEWWLRFbSsCoUUhmZpaKUsolfKKOs
rkMRDcm+7zIyUkj2Ho/nr/N6v65zrnPO53Om2OmLlh70dHR07QQ6uv+XXDE2
12MzKegkEv0cnnEALD1zwusfU1CMFA0m4lQgRX8ubPkBBY3fepC63+YAUMV1
wxTvUNDv345Jj9RVYBfhbqhnLAXNJX2Kd8OV4NTAwLX0WxRU849vMGpSGbLq
FK51hlFQ4FnRHMs6VRh9HHp1ZzAFrR1Jnl7NUwaZkM8hugEU9IrhP5ndvqrg
Y08JCT5PQR9no+yunFGGYrWzwaVeFGTEV0g7JKsKKnMsQcJOFPSeVfjWyT8q
cOWb7RUbWwo6teulU9kjNaguyb0cf4yCuuu2bm4Uq8BGwvyldyYU9Fy2ykPe
Xg3wc3qXVvUpaHlNd7QnRAX8ju0/e/Y3GeUwRvcp3VaDcoXr3plDZOQtPxz1
beogLLN/PdP7g4zCTDL2UALU4PDE7jNcPWT0uz9C4lv7QQhrOedl+I2M8rPP
LsbIa0B9fo1n6CcyOu3/yC689iAwRrF5ljeSUerg/rEd3Bpg5O7gMQFkpGSv
FuNZdBBidQvcxau3851cXwhaUYcvoktuDuVkNLximlb49CBwbxm43SkmI7Nq
5dW4MXWw6rt/+kMBGaX4ZhoVyR6ClJph180sMjJuundZh6YO1EcHXFXTyciq
uKRSXegQ7AqKcDmXSkaHHHO4GdvV4ZRt26nsu2T0rMDCVpftEGSpiJyixZFR
booT2aVVHTqIHNYmimS0oieZwWJ6GFIuX0CMsmQ0cXu28/QjTTjR+XUviJOR
1MevhKOjh2EwKZlJRZCM9GtrXrSGakLO3zm/KS4yWmpz9cmv0wIvU5v+AlYy
UnVWeXqMXwummImvd2+Q0LT/Psp6gRa8dA+W6F0kISdiiJ4dmxYENtCSkqdJ
6BIfdW+Bpjaoi2qum42TUOLcs8/GWVqwFpp+hmWEhEpaSGUWrdrw9vtmZ30f
CT0P8uFh1tCGGxouOtd6SAjJpL5MdcbAILX+hdo3EjKdkLkqtF1/x4I4eeYj
CSknmx8s09WGT5a3oorek1BAvVHDiisGiaWjsx5vSchRqYuP57s2CJwr+ER7
SULhxiZkfn8MxIf3hb5/SEJ+67JfT5vjMIon/QlLJqGJ+LTAJj4cCp5O22jE
k1CZwPE6h4c4KJ4oUygOJ6HTv5ovFf3EYfY1/+MzwSR0Xy5k1LYIh0qByywS
ASR0aBcpuUROB4IDegL6zpGQorlkjdoiDprf1AdTPUmoOzjgqX+ADmwppJlZ
upBQ8n+iTtO4DjTEr71hP0FC34+1fI3m1oGocSfJD1YkNJ/MT1WL0wHjI2/v
RhwlIet/ol35TjrAnieyedhoO/9Ymb1Dlw60MUScXcRJaHy6JD2kQAdsQU/P
R4WEGG+ufpSZ1wHy7twSSQUSivfWMJH8pAN9Icy7BqVJKJhJKCME0wV3tZZ5
awoJ4WLfv9+L1QXp+3KuXAIkNMaZ8eWQhy6Mz8R9aeEkoRQHfabXXbpQbPFX
49YOEtrzmvPp0ktd8HthnqdNT0Kj7w5r3xTVA5Wdpbwra0SkFzZkW7SpC8tn
eMLLFojITbZV1e2tLtQ0+U+c/0dEHMeCiiRM9SBsT6edzB8i8n/8aNXfTw90
b6i+HxoiIpZDDafvp+oB02CKUvoPImJ6PhYKIXrQrLX8xK6biFw0XTUgUw/i
Hzuw8rYR0bPRKcaSZj2wWKm+9LmFiKyqzHSb/+kBr92uoah3RERQ60jqE9SH
7vJQc506Ihqf2er6pqUPj3gHqtcqiaguO5rwxV0fnHxx6cpSIjJu5uaZjdMH
0dbMe76FRLREviA2/UofhuUZ6ORzttuL231YS9eHvNvu50bTiQjSxMMGGvWB
I2FQm+0hEcWzffLYs6gPgXeceBSTicj21BElNSkD+H6vd9gqnoisy3fGvt1l
ALqp1pVBUUQ0nTZgsWFmAP05+nTsF4mo42bkr7kuAzAoQO1K3kTEzOkb0c9k
CP8VaebauBGRKe/Ur//oDIGv5M2VkJNExHU8B74pGULIKxWTZ3ZEdCRwz48u
F0P4WVG66/1xIppfVYHwk4ZwpGrvv9+mRHSnifNnR4IhlNYW1HMYEpG6gonI
+zpDEEJ77h/AiehykXXwkVpDiFkcqQkfEkKn5Tk5f3EZw78Vl8ScH0Ko4XCa
8LyQMdhu/HBp6RZCd052J/IYG0MdnYPyVJsQMh0/OSoRYgx7GLuY+D4JoYGD
bWIiRcYQx3K892CjENqUKbkqX2EMs2xfCp22e43017G//ssYHDiNQyOqhNBT
/61DXUImgHgaLfLKhJCOw3R4hIQJLO/NHf58Swg5nhHR9vAxBW83j51kaSGU
bAythozmcKbQ3NBJTAgxcATml2iZg+fMwYinFCFk5eqcLeJoDu7hbEvi3EKI
IOXcOvDKHFwelwzJrwgiMzbWsdMeFmDfsVKl9UkQOYoJXFfzOQZH9BLPuF4U
REcXMn98WjgORrFXsrO9BdFo7AnbB/yWYPjNpX/UTRB5WMwfz5G1BP1TytZn
7QUR25f6Y5zOloBf7cUCdARRTIv22YJmSzhYJi4UySeIXrYtl4vkWoGUxOvG
gtcCyFeufSvrmg3k/nl1/sJLAaTo4mPe98wG9pQWC6gUCaD4+7E3aGADElp5
HvBUADFOTv8eYbAFUbsHTN2RAkhQ46XW5URbIMUFGDBYCyCG8+HpP1/YAfuc
YuPJaX60tiGjIE88AXFV8uclxvlR13El3yLsBLBdlxb4M8yPqjS8D9d7nwBW
DhGPwB5+9KjoY4pl7QlgluZkinvLj8RaS1tD3R2BznFS/008P3IyirY0rXeC
uYaC97yy/EhLI+R8ZskpEFSEdl0JfmRW7ywV2HcK1B93Dfrv5kdl7dhwE5ML
hAXQb7Tz8KNhMcsRfRUXYNvjpHpvlQ892X9l8Mk9FxCP5Mrj+8yH3mt2SRDt
XcHS6HI0/0U+tPhlX3nN+mm4VBb/QN+bD11dnXqlSXSDhyLZ2YFufOjBAzWf
JmU36F/6Cp12fIin68rNw+fc4GyB7PJ9fJvba3I2+twggrXvjAAvH5LpkP7g
1OIOpZ/0TAQreFG47P6HSvWeYPX6XGNLMS/aUzygNj3iCYtZD/DQAl7EGXvn
H5HVC7RCxtRGHvOiENU451fHveCjTJzEqxu8SI35dEjTqBcMR7avHz3Gixq+
MS3LkrxBEHctiZzgQQGf0bpfsQ9UycfKaYzyIKvMP48mqT7gJFSWO9nPgzYb
El89YToH2VOMT6zaedAR3O6qkPM5UEoviBGr4kFwsVaPl/c8GK/+c62L4kFb
Lz9VBUZfgGvlYfwLYtvxO1HEu12+8HqYf7mRwoMcln/6hf/zhVneou8pAjzI
lU77YwarH5zx68lSZ+VBp7+88zmm7Qc2Ckr7r01zo1n7uM74536gUPDzKANw
o+9Ef9J0tD8MPNaP5nHiRpxsgtxfPAKB/Il2dsiGG3UXfiKrRgaC7aqveZkF
N8ran7j7S04gfLZPF7DR40a9V9aOJY4EwhuBxeyHctxINAG9cfC8BOIiFhHY
LBfyENI75BNwGSKZBeYd93Ih7pl6iWsVQaBbejm6XZQL7RYshrHeIKA70Us2
FuBCO4N+GsWsB8G1F4911DY50fGgv2PO+sHgby2exN3GiWyYEYN/dzC4ZCnK
NQZwIitH5d+hjFdBU9vERaGGA40JK0nLxIbC6ljRXE4JB9JkuBDrWx4Kb+5y
RFNyONBC4ovF2f5QUB5te7EjgQO997ZNKVYJA7l4u7UhZw70KFq3mn44DIRo
7imp9BxohE2npVzyOsxeCv9MZ8KOOlXLg77mRUCpMPOhMC125P1xl6tMQwRc
+BCfv6bEjsa3Eq4W9kXABDHtxqIQO+qO//N1n8ANGKkpV58c3YmY8l4bqEbd
gC7CeE5PxE6UoPG6Kdz3JrxJsA4trmJDjbikPNUrEi6rfR+Xf8GGFMbSKZMx
kaAy4Gr/PIMNCb1Md9pfGAmlSheVc6LZ0CejRkbrv5HwvOP2n0c2bOh5MBc3
/eUoSCOBTeQMK0p6LiKufzcaQnNlFZxkWVHm7Wm2xJnbcOPRqFfxblYkNSB5
iSoYCzEJmZl0vKyI7+9yqINmLNy/RBLIXd2B7t4pjVuOjoVCA9b1v592INdE
/yfVYnHQO/q7JfzCDjTxl0sr8VQ8HJAq8MguY0H2L0YYbjMngTrZ/dlCPguq
ZqpNWDmQBNqcolSjJyxoaZPPtuBUEhgvpppN3mJB9dMi/+qrksClKVpZ1ZYF
yQ6LGFxRvwMJnl6ED8vMSG1q57eahTvwO08qfVyLGVVhz2dpt5NBWLwu/8oB
ZjTFasHUlJ0MVulWrxilmdH6arZlZ10yvL13/YMwNzM6p30n0XE2Ge5fp81Y
DjEhDtdpMunkPcBPJBrWRDEhcVMTn2CN+/CQY/Ff3FdGxEYS1hDhSoHWmPhV
4ntG5HaqrLF1XwowMEow5b1hRATF4fx8sxS4sGpBRpmMiOS+ebg7NgX0x57r
zwcwohj7HKe9rKkwjU4+ciIyokQkwzPB8RCOBDbq7nNlQD27r0se0EiDsKnr
0vXWDKhvueJSvEsalJ/RZLc5woDSSnVSRWLSQPRkWdc1RQZUOwpXZ3rSYNkg
88znDXrEP/aLYhbyGAqEQhN90uiR4aimnujHJ8BSo0J73kFA6eIHWPwePgNN
1em3Wh8I6HiZ/I3QD8/Av6Qo+1s1AaVpynZ+XnwG/dni51cyCcj4+tBzsnwG
VMZz0xn7EpDk64L7lPgM8HSelPzNTkDceIxernUmNBFy/KQM6ZAmRTmWh5AN
+h/uiycdokMCwq3+GpRsqI+P7FhSoEPiE8jhpmo21Ap5qbYI0aEXqtx1oWez
wd3ReranfQvq76pReLqzQbPMheBG2oI/mpeedJblwMTpYJHgvA3gPmt1eyw2
D379PRFhkrQBki+ZNJ48z4PBIM1hStAGyMYKzFxpzoPuxK28t8YbwDGoIJ7L
nA8N1ZEKjH/XwWtwWPL7rXxI403WSlJehwdNEhO0mAIwaSh0zEWr8HLFO8uu
tBAMTbv9buWvwqjTgIlhTyHodhJi3BJXYb9qjZL3ZiEc+mVfLua0CmEh0alm
R4tAlo2F4+nSCgTUSe2887cIdli6vU1RWAEWGbqUw+ov4MNPiljMkyWIXunr
frNUAg1njQ563VyC+6M05a+8pfB2zv+o4dklcPHYrBiQLYVKpo/BjOpL8HBr
zvGEfSnkyQa1X+9YBHmnKOeqylKI8uu8Gcy2CC1un6sOBr8EfULCr7NB8+AZ
/KqTTrAMMh6efwqn5sFv/sm0u1IZrCma2/IbzUN0q8e+PyZl8MqZq6lOYB40
2CoDLa+XgWjt3Vzusjm4Jc0rWTRZBhuXU9wr/85Cz86QffGfyqFy8tkQwW0G
cprEvtRnVQLvretptiYzgKd43XWqr4TzFFfLov0z0FtX85w8WAl7TMQbrOlm
4CsdQY0g/BqS83My89OnAeDM8ZDHr6H/vWV9Wuk/8El4UKuU/gaOlXrU7X88
CdQFYYJRbTVIsq+fVDi/zW279IX6qmHVK3lTDpuEzLRjyTs2qyFHBLA9wxMw
bt0Za47XwEoisUFQfgLO7w646t1UA1nnPzWtVf8BrQfiymO9tTAvt7+tkfYL
mvoX6m2EAB7lrg85kH/Cn94sz7GNevDdkJr0+z0IToyc7g78DWBkc3zhduUg
TC9YfR+Qa4AFxjyWastB+G81SFHOvgGymp/aqwgOQLu5iXR5WQPwGupPlC99
h5r5NeW0C+9gDk/irqzugvykfXJRc+/B+7xJpW9EA6ScdHkScbAZ7qQrmdjw
fcYONPwOH9hohed/il7szR7GNGL/xrS6d8CsafGH6s5hLCxStXg8oAM0i0t/
HmEewcgnZ7oJNzugzb9CwMN7BJvJSowUzeyA5bW3oemKo9jeA9fukPs6wJCz
/Shn7S8sq4c5mWbVCUMHlv/+6/yDzV11QKaHu2Dvg1WWMOZxbMv8rYWfcRdc
XloXY1cfxzICOPfF23UBay3BVubxOMbuv8mbGdAFSgY737q4TmA51iesdIu6
INxOOPHb30lsynqzQp3YDZza4qkODNOYaalqeM5YN+T0vtl5hTyNcSSzZ+vM
dcOhAIvr9/dPYz8HjPXbNrvBs+Ca99dT05inmIFHvUAP1PH2HDaoncambAtn
pnR74NxY3KDSpRlM1YPCYJvWA/Q3xG3M42cwmc0LMis5PfBwV1WLT/YMJn6f
fDGupAfeH//1Ku/bDKZnH/Tl2vseoNTikbsUZrEbuvrfEv/2wMc7C7I7xmax
MzNrScc0e8FFPv6p5OYs1rzx5menQS8sNorz6QnMYXf4lCmGFr0gvmaxHqo3
hw3cN6ubcu2FYI/C1rlnc9j2t53HJqoXZA6dChiwn8f+WGSZOXzqhbedC2Pr
F+cx7SiuJ086esH6YrwTOXoe+1G3/Pnj9164nlNlYFMxj73fZ3hibKIXejj5
iZ94FjDRCNXh3TupEDXcXFv5cQFTfNn8zMuACpTrAqFNwwsY2zWN8X4zKpTu
Oq3Vvb6A/Sb9MDtsTQWazVrdgsIi1pcx3pt1mgoKzftA5d4iZjaz9lA2jArv
3EPC9f/b5rVKhaZbVLAnfMCsGxcxFbmVEcM4Ktw45IIClhaxu/lK+HwqFbr+
S65/5biEtbs8K1grocJZ44GIhsAlrNDCV62yggqbo/K67QlL2ENx2k7rGirI
iDQ2zMASFnksRU6jiQrX7i69U9qzjGUdf5KRR6MCj4L+LVxrGbP+ltgWNECF
vI939I/ZLmMnB2aT9o1QoY1BrvFizDJWRSD5aP+lwp7LTk3Fk8vY5plnAWsb
VKjifR71lmkFG3wgvD5AoIF5yYJhq/AKFhF6KiyPiQZBvxM//D22gu1n71Gk
stOAI/J79Ib3CiY2ehQ34KZBlpjMEY6bK5jAIAvHPT4afD5R37y3YgWj9W1l
d5Bo4LrEcVuzdQXzb2SxbtpFg8V7J4zNxlawW+5jcWkiNBD9MtfiQ1rF9tFx
eoztoUGFNx579cAq9t2wYvqUNA1MmBNM4kxXMZ7zC71VsjQIwKQ+FYauYmk/
TqTxKNBgxw//uOqUVWxC+PppLiUaPAkC048lq5hXorbH1H4a7BdgZ6c1r2JF
mbcfFyvToOml/ec/P1cxv5w/mxaqNHA0z41fWV3FTn+8ertdjQbT4zNmrPxr
mIjerKqaOg0io7U5SPvWsAfa97dCNGhA3hP3RcZwDTOc0xrKOESDEtSToH5q
Dcu470LLP0wD/ZN7zI8ErWFGJvSjSZo0oK74ctrfXcOqKG+37LVocCGlrtWr
cA3r7n4nw6BNAwZltqQr79Yw9qke58RtfvjV1iL6xxrmamWVubrN+85lc6Uu
rGEyRhLTRhgNGnZMf83jXMdEJVtML29zM2f7ErvUOubAMZETuc2t/OUiAVrr
WDBrCFPINneSU4yo1utY9I/DF622mSYadBE7t45RWD1HeLZ5UOpEau7NdWzH
g3Sviu3+fu3VhJ2P17GnjYtrWts8eUB4zO/VOibTN59TtD3+WXU6rt6Wdaz3
623Pze35LWsPqWn/XMfm5wUM1LZ5U/+9c87yOuZf4WVgta0Ho2leFBv3BnZS
peaczbZebMdjin2lN7AXC1VIc1tPbruz3d3aG1jBtRAj1m29BU+abWrabsf/
hLPUbPsh5s1tzhq5gak/vmHRuu2f1MXZSxefbGB01zJ/KR6gwd5LneldZRtY
60Ojrsvb/qtHPPybObSBzTbQ/yjfSwPt6BCBHasbWG1bPPN/ctv+JDhpXeDZ
xPJI0S9iZGhw7JFowiF8E7t2Ty1tVoIGts/oKzLsNrG4reyFcDEaOOWO/GC+
uIkprU8vzwrT4MzLgr0d6ZtY6hhBOnZ7fV9vUfrss7aJxTRuRIZx0CDqK+/8
N94tzIYv5cYhNhrEd81T1OW2sPiMiTs/mLf9/fnGh9FhC/sVs1OkY2v7vFnB
d6ZXbmGb30tr4qapULklrszQuoX5ipM2gyepUMvE5Og9uoWtj9l2mv+mwkiM
exeZjQ6XqcBu/be936fvy0iOqdPhtzq/rGt8ocJcKkkjTZ8Of3PD85dzMxUW
09iOHj1GhycWPl8/+44K6xmTgWVedHim7RZBo4oKO16Uvg9PocMD+Asai7Op
INKo7k6cp8PryO4j/IFUmMUt8u9s0eFDD2QUe85ToanWY3zHTgJ+hYdv84YX
Fc6VJ/uuiBHwtgGrmNQTVHiTPXmNZkHA+c5urlViVLC8kfHgSREBL8scSxxl
ooLkZmUv/2sCnlY22GO62QvLwV8oCQ0E3FUwBUtf7IWnfquZodTt/I80qYSx
XphwsS52ZqHHO9L5dLuaeuEWtuODqBs9LtGl/rPuRi/Y1QizPbpAjz8IKrAf
Du4FuYOqR3lC6HFtm9HqBd9eaFM43UG4S4/PI7E3P517Ybdw7cDQW3r87w3j
MapGL1SuX1zOITPgc6NCLJ6TPfC7qkdWtp0Bt5eUfN2i3wM1ai3Jaf0MuHZK
iRBVvQcSy6rXdk4w4HFZXIXde3tA+UX6lykGRvzozFW2dP4eCMtw8ytXZcQl
2AoNHYe7gS/63xvsESPula1BaQjtBm1rliO2Lkw4c7rzkGN+F9ybUvO8OcWM
/9VSZMrs7gDn43oPCrtYccrL8LeOcm2wc57rMGWNHQ9SZZj9ijeDq8furokd
3Hh7VselaYTgixdrVGkwD951jWnAu6oc5GJtZh+x8uGy8sUc3TEZkKq33PMn
jB93gGrdq/IRGKuQSdbApAAePxOmL9uUh51jW5deDRbCN53mGEVjy7fvYUbp
q5NEfF33g1aYby2mh53/KRpGxgv3PPnPQqsBe319r8C+BQquFnkkKfFrI6b0
I23fgPtu/NyBmXyCUguWZudNqJwTxvPJ5duv4s8Ym6pR/oqyKJ5scclngq4N
w1pvFxVuiOJR/zk8lHn7DbsyL5FV/E4MP8APJ7MudGAHPb27PK6J4yXWuV0K
W53YvzFnzxJ9CXxvBT2vVUk3plixpfzflgQevsU74qDTi/lzLc+tVe7Bnz20
OJrwkYq9CM7g6Q+VxPeF1A9fDPyO+SrO+wQclMKN1qTJLoQ+7FxgrWDpISn8
eMqdN6Y7+jDvqlv1k1pSeGpw/7GDXH3YaT0BIU99Kfyd8vGLnLv7MGs7tQb7
41K4/JcM91r1PkwjPIio7SOF15jJagj59mH0X9ff73gmhcsWDTc39/dhm3yN
Fw2ypPBShc8VZaN92Jp9AvlGrhQe1FaZ/nSyD5sf2u27ViSF8/q9cg5c7cN+
LWpTpt5I4eleonkigv3YR+EIv452KdwUf3j80tF+rMnNeBd3txR+bvDI7Cnr
fuxdAc8HM6oU7kh/OdHEsR+rPZC1q2lACo+G01Ui3v1YseG7D28mpXBVPXNa
y61+rDAuzn/hnxTeeqbIrjyuH8tvs9p9YE4K39Va1/Y0uR/LODHiX7QihW8O
7q4MyOjH0p/9t/v3uhSedjBY3Dm/H0sbCWzeQyeNb4nkxh4p7sdSZLUCXBmk
8TKrgqkDFf3YvQtMwk+ZpXGDiNvmu2v7sf8BbmLwGw==
          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#6"]& ], 
      TagBox[{
        {RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV1nc4l+8XB3B7kz0rM5pGtm/cT0JSIitJohCyRVJmkcxCyGhYGRFRtnPj
80mhZWuYoYySvf0+v7+e6/XHc133dZ/zPvcRv+Rh4kBDRUXVSE1F9f/vjkjz
kKhnIthEV129rlgJTBxzghvTRbDncXihk6YEyTrzQSsPRfBe31GdzGUl6JfQ
DpK7L4I34vPHvceUYCf1g0DHKBE8MicsHt2lBBcHB29l3hHBZXwsYpHyypBV
L3urK0gEf4yXuDIkpgx7A9oDtH1EsG7/9x3qbspw1VIk4IabCF735rH6/FYZ
SlRcbpReEcFM5hMyadXKoDTP6L/bWgQbTnhKSDOoAOF6zHdNRwRX9+ivpD5R
AS9jBReXX8J4eX2ruxLUoEI2xPnZiDD+npOXz9qoBitsn5z6vgvjMZ7CxG1O
dfhvapfTjl5h/GPvzwfmPOoQ9N71it4XYcx04UR2Bb86ND6vdQxsE8Y/hUic
Sw7qQBfB4lhBFsbv6mLrjV3UIUo7316iRhgfQPiBeYM6fBBbvnyuQhg32M4/
MGfTAM5t3cv3S4Sx4fnA+GZuDUiuHbXbyhLGW3Pii5lXNCBLSfTi12hhXPHW
vvUV93/QKchuZiBH+V+LNJGcqQnJfu6Ybp8wLs6W0pcs1gSrrk8HQUIYU5k2
8hfNa8JQfAK9Er8wXrlO0pc9qQV/GAQrd20KYctTlWGFW1pQZn9Dsm9JCE/t
x5/26iK41vQ1PmFWCNvHyJvdt0KgJnZk49QkxVdtH+s+Q7AemOnE+FMIN8tG
HaWpQtDwbaur8YcQDqa+XvppC0GYuu3RW71C2D/UuMCPlQDdlMZilS9CGA9I
bs/LEsC0KCH8r1UIi+akrJ8zIaDN5E5EEUkIqxcUDWtcJCCudGzOoUEI/xE6
aVsdRgCfa37b1zIhTDX7I2isnACJ0UOBpFQhvJQl4B4qeBSOfFEbSnEUwttX
17cYp47CtmzaKRNbITygS3vHa4c2NMWsV7FZCeED4pNXOxW1IWLSek+LqRBO
25RlVdXThhP6DQ9CDYXwRembX1tctMECjh27qiSE37w0/S3yTRu8ik/nadEI
4YOD9mdzyccg756961imIHacNolx6tEF9tghLZZUQZzRJ9cRuqAL1+5bc8kl
COL22Xi+bm490E4xe+MfIYhjFK76yVnowUCODhWbhyBOcp/SYenXAwEslXSY
EMQbeTtFQ2aOQ+TSz9rgEQH8z0hIq+2wAfxdtY3L+S6Ax/89GVKyNgCLze+2
73sE8EKZ93ZQqAFI0XXT87QJYKe4jL7OdgPAXGSjvHIBnKuxQ/Sm+0lYOZg7
2n5HAKusGNIUVZwC58sOrMIyAthFgLPiqI8ROBWe1rMWF8D6mW3pPx4bgeM/
1dDHIgL43R7hu5UfjMA+mGVZglMAP3hf35PKawy26S9HDqzyY9bHtB6PvYzB
snO1WrONH1Pf28reVjgD+sfinOw8+LGNiLWxzwcTOB51PTvbmR8r6h81Gp4w
Ab0vtgNjl/kx85233qG0pqBzUdHMxZIfd+KjUfs1TIG42Yd8jvJj9/xIVbMC
U1AtlxAI5+HHPRUv/ynHm4G0ZCU5v5IP31s5HPUpwAJyf79ycy/jw4NGVpP3
My1AqrSET6mID8+FB38ZwxYgqZnnAI/5MOibDXYzngWxsw/pe8L58ABNUtqp
1LMgFO2jS2vGh9c5jX4ONlsC27wc+cIsL+bb5rfk0T8P0dUH3CQneXGAWVZx
nPd5YAmR4fs9yovDDquOsWaeB2Z2UYdrvbzY5llaKev8eWCQ4aCPbuDFste1
hw5mWQPV+WmdqhheHK1V3W3MbgPzTfkk7n282IlLN44p1hb45aBDW5IX90fk
82/l2IJaeveQ9y5enLG8o4ev3haCfGg2O7h48WsDBYviGVtgkbJWTlzjweSd
3FuuxnYgEb4jj6edB8+5DGQ37rwEJsf97vJ68GALV93Jb18ug295zEMdZx58
pKPtc8ify5Aqmp197TIPvnVbxfg4qz0MLH+CrrM8uL5vuvesrj245O9bSSJ4
cM+nVVe/WnsIZf7hxMfNg/kmUgn80gFK244Z8L/mxjXgK6xecwVMK13J70u4
cXnR1SzTwSuwlPWQCMznxoc3zfyz6JxAM2BC5Wc6N07RSplaNnKC1r3Rkq/C
uPEJGZMHF347wWh4x4ahMTcO+POtwVvGBfgJu5fhU1y40spH27PTFaoPRO1X
H+PCj0pMHjlTuYG1QHnu9AAX3n54rTnnkBtk/6HLMO3gwuvWVzzmI91APjM/
UryaC68l3H08oO0OJ9b+2tVHcOF3jEyHLUkecKsiiHdRnAv/SZ9k8wnxgspR
3hWyCBe+t3D9kFy6F8xxF31L5uPCHtE7rbjfeIGTV2+WGjMXthcpcjKd9gJz
WXmFW7OcuMuuzaDZyhtk84cNaYETf/Y3d41EPjCYrnOXy5oTvzjxkd5lvy8I
t311GTHnxIHtwfQ5Br5gseZ5utyIEy+Yt8pxXPWFdstMPvNjnDi6uobv2gtf
qOJbyk7dz4mvUx1QilPwAwlRo1A0twP/ulG/rqp7HcIZ+BbOH9yBZWnN7FyT
boB2qd/dDrEdOL7oW2F61Q2gsuoTPsG3A2+2/avZ+H4DbhWnH1XZ4sCqtf4G
FtIB4G0mEc/5mQOX8cc/dqsNANssuf1kHw7Mkpe57vj3JhzRMrCVrWXH3lHn
FLxDgmBtomg+5yU7bl2meuZUFARVD9jviuSw4zafjL1pPUGgOPa5mCmWHVPv
spgrORQM+2POro/YsGMVzc60/IFgEPhqn5xCw45raCYuc+aFwJxvcDuVARuO
LrRMKj4QBqW7GTSCNNnwANM856njYeDeEvN8XZ4N8z7U1+G5HAZTgmlhSwJs
+HTkMbed6WHws7ZCbXqMFefzqiuJsd+GburJnN5QVlyvuEgWXb0NVbFmgSXV
LPjHlBrt47lw8FP5NnmgmAWnB6T7NvFEgNKgnWXBUxZs7TnEJKAcAaXyHoo5
d1nweZvshDP+EVDQee/3I3MWfJI54gQP9V1IEwLz8H/MOJ+/tItmZyQE5u6T
td7HjKvirCXcbkRB2KOxKyW7mHEAxLZ7P46CyNhnz6i4mXF5tkxvQXMUJPkK
8eWuMWHTzc61FxzRUKjLvDHTxoQjF0upOJ5HQ9/Yr/fB7kx488scu+dwDByW
znfILmfEvlpeHo5B8aAmbP9k8TkjFrtyco2jMB60OMT6j2cw4uhzpypmu+Ph
xFLKqek7jDjC4YGNvMB9sH17V1HZghGrFQ3LbXreh1jHK9QtKwy4vrfLUGb/
A/iVJ505qcmAbe7ziBSXJ8Buifrn1w8zYNv3yz5d7Qlgmmn6ik6GAeeeee4s
Mp4ADYkhLbs5GTB5CZUxCSVCUsjXfyYj9Pi2uaSbfUgiEFZxerUR9HjD99gL
LfMkSGVf+hv9iQ4PDykteAsmw8fImDVBEh0unxdh+qKcDLR0kvR5VXS4ToJf
xNQ0GdzXjITxMzr8WivyU3NcMuhMFOgs+NDh3y/y3M4zpsAsvvDIWpAO0+7O
jb69nQL618jah+xoseF+0Sc1bGkQ9CdEptGMYuWv4+8U0qDC6QibuT4tpvdS
YGY8mwZiF8q7b8nR4hevlZ7wZKXBiu4zp/ZNGty6qGfjo5EO+QKBcVfTaLC7
PV/V9WsZwFir9LWgkxqL1wl+/c3xBI4ozzZotlBj0Qi1wTMaT8D7ZVH2lxpq
7KTU2//X4QkMZEu4rT6jxpZZfj4f65/AmxhOqhOe1HiXkOF7drWn4GgzvecX
GzXu67cUvf/3KbylzvGS1qPCtxf0UniuZYFOS5JEvAYVtm2e8syJzoLGmPDO
ZVkqLBQa5mSUnQV1AleU3wtQ4U1rx635jiywP28219uxDX58oj9uKGbDkXJb
6stC25D83znGe6vZMHXphuiNvE3w3yjsU03LhfEZq1CD+E3wrDv2W/51Lgz5
HxkV8d8EG3FxF73PudATt53XcGITWmwKaFsY8qCpJlyWbmYDWsdGb4v55kEa
d4JmvOIGLO6qXzt29jkYNBWez8VrkKH1gYGkUAB6J3u87jxfA1fj0FEq0wLQ
7qKOvBy3BiccEwrsrhWAxrhlhbj1GjSs+urEVxbAPhZG9sfLq+AOiksZqBCY
TC43JMuuwsV1J+0kiyJoGRYRj8xYhizBKu3bT4uhyeW46pXbyxB2fcTR4W0x
NMx7G+q5LMOFn7W87tPF8Ia+9Qad2jKI0jc5zauVQN4+/46QziXI+nE26HNn
CUR4dd2+wbIEC2V3e64xlYIOdey4i/8CfPD7/KXQrAyepro9hosLMH51D2e1
cxmsy5224D2+AK1/uJK+BZXBK5sdb+v5FoD1wlLphYIyEKt7kMtZPg83x5/u
s9wug02/ZPs3M3NwpUafV+XlK3gz/WSE+vI/mLHi+CckWgHGpQ71CunTMCL1
z6L1aCXsYdu4IOs2DafG3hzyt6qEtSsJW/vRNLAkPnuo4lMJOaKApEanQNf3
6sBoTiWsxgk28R+Ygk3FENISUxVkubW9Xa/5DfNtP/KzOqtgYb/CZ/LXcUjx
un3O0qMG3ke0eDa9GIcTi5kTsvdq4PHIBS4IGoeVo8L+dNk1oJ8WZVIlMQ55
Z/kbCnpqIJP5Z1ehyxgY9ryqfqdZC3q/kvvj10ahV+VadQ1LHTzK3Rg5JzwM
IX8dD6ym1YPnpvS0168hOKdR0uP/uh6Om59ZvPdmCBKq6O4NfaqHRbo8xhqT
IeDrH+hyoGuArHePLZX4B4E6RsFS3bUBuPV0piqWv4GygID4QxWAeSKe801N
N3yrDMoNPIcha3ZUYtyiG3xqrnK+t8dg/FRNmX++C1xfmxVQe2J4sT18zu9A
FxwwOvJbPQKDfYNStkpGB6wkXG5rLsOQf73iqvv6RyA53DWVo28EZzeDN56h
TbAepPMsMrMRNEP1H+9qaYS9yu08/bmNwPVQL6KVrRHwl5v8wiWN4HMj/IW+
PIBFb5GVe0Mj8Ar6Tb+8UA1qU2NTlwcaoaiwpG/Dswg6Epd1ckWa4LRtu8x7
yWx0QH2gOyWmCbY4u+7yseehTJZz+rqJTVDS+G3CbikfFa108/x61ATsklPP
196VoJppuf84njfB+BwdL7/qa4T9ko2GcBN0fOVqlXTHqLXG+eXruSa4nylv
YM7TjjYH6Igeo2aoeDQCGj/akWmgsN9X82boe5ikLPb8A8IzLdXd55tBPG5F
bErjE2q3+vm67EoznENDNwmFL0gteNmLOrgZJuXyTXosu9CvVztT2F80AzuX
GhVN/lf0m5eG7wAVCcR2cNUusH1DCrH3Yg/Qk+Aw+6TvhNc3xCU8GiDFQgIL
5oyp9v++o8Ca8bfbPCR4TE3Vm/LpB3IM+5pqLUMCwdXRnuSbQ6iNhWql7BQJ
Cn4XFR/MHkXW5r6avQ9IMHeypKWmaxQdlg/f1/eQBEdKSof1GX6i8c7ZjS+P
SPDZ+zWfg/NPZH8o1Lz0GQlW1hsCM+XGUMjHNwUCZSTQ4+gw5KgbR1NhjP7x
H0lw37PrSsbMOPoglrB3dwcJvnb0hO4XnUCKVqdzc7tJ4Jby7bVe2ASaKZFY
e/ydBEliY7uC9X8ho5NVHzQmSTByeGXmb9dvpOj9tZ+XjgwHH64xBjFMorSi
GFE5RjL4LW+Is6lNorlgC0ZtFjIw11Fb7E2fRInZ3mVnOMkgr8vaYGs3hTDH
qZ2CO8kQfHZ33JeZaTR59u9TrcNkeFctln9RdAYF513MHFYiA/dOyaYZ4xmk
PDDAEqhKhrwhmSXmihn0+vuVg5lHyPDRWcFGO+APqtniUAjTIwOHlkTKOdpZ
lOoReeu7JRly+qpYrwvPorHz8epDVmTQ8DEKSVKYRdZSEyo/rMngmH/L+dPF
WSQQ6/+ryZYM9dy9/+nWzaIIvn3DR5zIYFLsVnqpcxalBJdasbiQ4ddxuj0h
k7MowD+H6stVMvAGKnDUCv5DFcvc7054kMF1InpI3vcfet4USv3blww0YRLm
p2P+oR6DL2nB18mQurP6/dXsf+jHK3vDHTfIQDoz/irvyz/0J5ZhUegWGUTq
iPCdsnMo1mmI/XsoGUotelfVdecQA9Wg/H+3yaD3z839rPUc4qSetEq8QwZv
6fSzCVFzKHLH+VrZu2Rovb+4j2liDhk+kfLiiiGD7YGYx3u25lD2/Ei8WiwZ
lsgSPMf45pFpcGKOZRwZJNaNNgKPzaOeybTnt++ToerhuGe61Txych5/EPeA
DKflA8eqvOaRwE12l4QEMtxwKPw4/2QerXBxfb+TRLlvqqPHuCrnERiyefs8
pNx3Wm+l7Md5lJEj9scqmQyfP9E9c96YR+LT7A94U8mwV+Oiz6DlAtr14fbp
w+lkaOhanNjwWEBezYXDExSbecRYC99dQLsTPU4lZ5AhJKda1/z1AtLcQ5P1
I5MM/Mi4xrt9AfWc9rvn95gML/rHZe+PLiB5xe6jTE/I0MvBK9jGtYiOeg/v
5n9KqUdBYcyvvYsobNOeSKCYRucoNQOxiEYqgg8yPqPUY6DXV/LsIqIaKRq+
RrHsDfdJwn0RMcw623yjmMRDf9EmfBF98SaeaWSRwaokvfNmxiKaOFSXn0Dx
rP5h/Ufli6hb2NNnlOKI0Xd1b1oX0WHPxe2D2ZR6hvAFvh1dRPdvucVeo7h0
5yXNno1FlPZ3PrGcYt3qks0xviWkGt/HNUnxV/P1+kXZJfRoyIdeMIcMHnPH
g+j1l1C2vIybJsV08UlafHZLaDPN+rgVxY8ODG9JBSyhU1x3E9wpln13CJQS
l1CunYRhAMXN9gHBOi+WkLFmuW8gxZbULciMspzqa7Ww+FM8k8lDZT+whGJm
FlhcKA7TsMU+y0tI8923a6YUC/S+CLnNuYz8dKSOK1H8wmeVSNy3jIJ6gkPY
KCY49aiztZfRkcV80e+U83e/SGh8dX4Z8e2+LJlNscuJwdCma8tIoT8gyo7i
rbED2h2xy4i9nmwqQHFimD/NSN4yeuAlEUSi3N9eUXLTP1hGP8r9mZwprq/l
uk3dv4w0LKv/0VFsYmlzjGtuGd03HFBLpdTn1oPlZnmpFbTtN/k9h1JfLlmd
O4TmCpoUnVfdTXFe630dY4sV1MkgORNH6Y/PtPvJHpErqGDxySULSv84PPUL
D362gnzjzooXU/pr7UizbnzNCsqJZFVdp/SflJ/125LpFeTqlmUfSOnPau6C
iAb6VeQkrn6zLI2Sj5eLeh93r6KI94rj3x+Rwf9XXMuM8Sr6eES8UojS7+zh
3+5uOq8iOTaunQdSyJAlvlef/fYqcu+16VSk5KPdqvHdwder6Aa9j+oBSp7s
ltnvHfm4iooTgkeFEil5TbQ6cWpiFZW7+Q1tU/Io9mH+/VWhNXSohae9LJ4M
Pki6rTBwDbEqPrUvjiID03fv6JrkNVTgYpJgcY8MGf5wsvXlGvq5WLdjmTIf
3pZZtv8eXkNeXh9Xd4WTQVgq+sNevXUkcd8+ljaYDE1Ms5/yODaQfvnE6CEv
yjzm6Fhmk95AW6Kb510p8+0jb4Woj+YGClgf1sl2o/SrmL8Hct1Aoe3LLmvO
ZJhTo9rR934Dxel85T99iQzizpynmcM3UXy4x/XoM2SQ9pjz9cjYRJpP1bXP
GFHeD9+uzO7yTeRkYxC5w5AMaqGpM89GNtHJkKZ7vvpkMH4kFqtBbCH7bKZb
E1qUefBevv3q+hZqrXtFY7+fkrdP3AtfuLfR+eM+K2UyZIjpXhBR27+N2nOv
BKxIUfI9XHWV7tw2uhdGs9dDlJK/VYI18802eju0dJqWl5LfpL17JtSoCKmE
64zv1kkgSlazF1ygIl50Z6t+JFPeX8Lo+f1tKsLqruE37SYSvK1zmGRipSY2
aCzuljaQwLUiwXNVnJqwqGOlul5Jgqrs6VtfjaiJLOJHQWk+CUzCnj7MKKIm
6OoHM/vukeAOYmoRu0xD3MscX2E+ToKztbtZHrnTEDdtDhdma5Ngv6qyIVcA
DZGYerRARYvyvste6qR+QEMkp0ek6SuTYNfuusGRBhoiVT8jfqckCd5seKzk
CNMSl1b4qO9uNsOv6t59+zpoCb5DpBr/4maoVXmfkDZASzx1DE/79LwZ4spr
1lmnaAnL9a6t3VnNoFic+eEPLR2hrb3P/nlyMwQ9vexVoUxHlIv9Zb1I2X94
7v6tQo/oiIttE/JulH1Ky4xR38KWnngtt+O12GQTJP5Rcbz9h4E44RXV8oml
CXaLzdOIrTEQW/OteJy2CQrPvHxSR89IcDe+ElvZoOyNFTL9izsZCTcuc0mW
v40wHSB4yukkIxGhqpEx1dEIeoxrCob5jITiGZPs548aYUW0fpP/EhPRkiTl
u1uyEWzOHHtY2M1MXPCa+/1dGgPrwo7/RNbZiP8eaa1LxdaCncOu7ikmTiIt
hZ9ItX4DH64wR5Te4CLygu1d6/aVwf4o87lHzDyEqsjsZ9L1PEg5ttL7O4iX
WHeOqlzffAjMAgZZg9N8RGxmPK9SrTFyZdmQWbshQMzmyZ3MuJmGBpPoZG5O
CxIksSvqB48WoGPIbVgsSJhYyvG+2qFQjipDDvIdWhQh7tVH5u6+UI3kv6cd
GrTfRVj7X/RJ9wCUdtaZ+s38biJg9B/bcfpmxKJ8/PmqohghZeh55I/IW4Q+
3isq3BQjnGM4Oid836PrC5JZJc3ihGDr9UyOxnak6ujc7XBLgojdv3KJp+sT
+jth4/hSR5L4l7FH/FfSFyT3elvxxbYkEVdjtxoj2Ym8d6zMr7+RIgRctOM8
CrtQ8Y2nXAOBewgTi4KlhyY9yFNu4aqPqjShFz+u7jzQi1yv1fGXakgTNa8M
ao3HepFz9Z3GaU1pgndbQVNtuhddOsYn4KgjTZi+jdBmXOtFZmdVmizPSBO0
OodNc/n6kHqwv6DWVWlCf2QgevhUH6L5tEFieiJNLGojc6vaPrTFQ/bQzZIm
EtPujh1t6kPrlrHCYbnSxLbwf3773vehhZFdnutF0oTRz6HUlZ4+NL6kJfKn
SproXuEdTZ7rQ627Q706O6SJtqexUZ37+tHbyyd2cvZIE8oj6uK18v2oOZ+r
5VS/NOG7rVeVpdqP6g5n7Xw7KE38vBA64aXbj0r0mluqpqUJ9y4HA067flQY
He29+FeasBNg+rl8pR89/2y66/C8NKHlyRA06N6Pnlr99C5alSbmufnKS271
o8wnL3b92pAmclSkTiff7kdpP6+9k6KSIUSlYn8HRvWj5H2aPna0MkScgVG4
w4N+lOhOv/sxgwyxT9hF3DC1H/0PMlt+Yg==
          "]]}},
       Annotation[#, "Charting`Private`Tag$145820#7"]& ]}}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-6.815651875262375, -0.5059214775009321},
  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]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Exp[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Exp[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->NCache[{{-6.907755278982137, 
      Log[100000]}, {-0.5108256237659907, 
     0.47000362924573563`}}, {{-6.907755278982137, 
    11.512925464970229`}, {-0.5108256237659907, 0.47000362924573563`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->FrontEndValueCache[{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledTicks[{Log, Exp}]}, {{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox["100", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.907755278982137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {11.512925464970229`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {13.815510557964274`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}, {{-0.5108256237659907, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0.1823215567939546, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.2\"", 1.2, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0.3364722366212129, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.4\"", 1.4, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0.47000362924573563`, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.6\"", 1.6, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.7985076962177716, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.5978370007556204, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.4307829160924542, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.2876820724517809, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.16251892949777494`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.05129329438755058, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.04879016416943205, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.09531017980432493, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.13976194237515863`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.22314355131420976`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.26236426446749106`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.30010459245033816`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.371563556432483, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.4054651081081644, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.4382549309311553, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{
  3.712415031740975*^9, {3.712415138403935*^9, 3.712415175020652*^9}, 
   3.7124152439213333`*^9, {3.712418453634082*^9, 3.712418504143734*^9}, 
   3.712418855593092*^9, 3.712419043605371*^9, 3.7124191618062687`*^9, 
   3.712419212697241*^9, 3.712419927383946*^9, 3.712420000758985*^9, 
   3.7124200325912943`*^9, 3.712420189541621*^9, 3.712420280001046*^9, {
   3.712420458514633*^9, 3.7124204717540607`*^9}, 3.712420567375518*^9, 
   3.712444350250976*^9, 3.712445574685938*^9, 3.712445794287002*^9, 
   3.712446099572846*^9, {3.712447221707871*^9, 3.712447229436884*^9}, {
   3.71244730031251*^9, 3.7124473085450153`*^9}, {3.7124473457371597`*^9, 
   3.7124473741804857`*^9}},ExpressionUUID->"125886ae-c39d-4cc4-92b3-\
b120cb36e3d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "n", "]"}], 
      SuperscriptBox["x", "n"]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", "8"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.712444143356751*^9, 
  3.712444169012451*^9}},ExpressionUUID->"db4fa37b-3e24-42d3-9003-\
39346bf27b53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"a", "[", "2", "]"}]}], "+", 
  RowBox[{"6", " ", "x", " ", 
   RowBox[{"a", "[", "3", "]"}]}], "+", 
  RowBox[{"12", " ", 
   SuperscriptBox["x", "2"], " ", 
   RowBox[{"a", "[", "4", "]"}]}], "+", 
  RowBox[{"20", " ", 
   SuperscriptBox["x", "3"], " ", 
   RowBox[{"a", "[", "5", "]"}]}], "+", 
  RowBox[{"30", " ", 
   SuperscriptBox["x", "4"], " ", 
   RowBox[{"a", "[", "6", "]"}]}], "+", 
  RowBox[{"42", " ", 
   SuperscriptBox["x", "5"], " ", 
   RowBox[{"a", "[", "7", "]"}]}], "+", 
  RowBox[{"56", " ", 
   SuperscriptBox["x", "6"], " ", 
   RowBox[{"a", "[", "8", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.712444169267357*^9},ExpressionUUID->"5eb74cdd-7c7e-4c1d-bf32-\
5ff5e487d8bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "+", "#"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"1", "+", "#"}], ")"}]}], ")"}]}], "&"}], "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Range", "[", "10", "]"}], "-", "1"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.7124442230038157`*^9, 
  3.712444245997406*^9}},ExpressionUUID->"32e58bf6-54b9-4c50-ac70-\
0522b591a2f1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "2"], ",", 
   FractionBox["1", "6"], ",", 
   FractionBox["1", "12"], ",", 
   FractionBox["1", "20"], ",", 
   FractionBox["1", "30"], ",", 
   FractionBox["1", "42"], ",", 
   FractionBox["1", "56"], ",", 
   FractionBox["1", "72"], ",", 
   FractionBox["1", "90"], ",", 
   FractionBox["1", "110"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.712444246292817*^9},ExpressionUUID->"877b4ec1-6f85-4691-bbce-\
4a4af337e93d"]
}, Open  ]]
},
WindowSize->{614, 512},
WindowMargins->{{18, Automatic}, {Automatic, 18}},
FrontEndVersion->"11.1 for Linux x86 (64-bit) (March 13, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[560, 20, 430, 10, 77, "Input", "ExpressionUUID" -> \
"453b2247-e031-4ce0-942e-333cafb9d8bf"],
Cell[993, 32, 916, 25, 82, "Input", "ExpressionUUID" -> \
"8520f7d9-58a8-45e4-8f09-0593a7effe0b"],
Cell[1912, 59, 1380, 29, 147, "Input", "ExpressionUUID" -> \
"5438519c-7952-4225-a1e4-2658de13ea79"],
Cell[3295, 90, 363, 10, 50, "Input", "ExpressionUUID" -> \
"d44f3e47-dc47-446a-9531-356bd4f683cd"],
Cell[3661, 102, 742, 17, 101, "Input", "ExpressionUUID" -> \
"9c43836c-5224-4a7f-b325-f696ee8f0277"],
Cell[4406, 121, 728, 18, 79, "Input", "ExpressionUUID" -> \
"a43d9214-a29f-42c0-be11-b311bd30fcba"],
Cell[5137, 141, 986, 26, 82, "Input", "ExpressionUUID" -> \
"6084435f-1cba-48f5-b83b-776c8904b43e"],
Cell[6126, 169, 1139, 26, 37, "Input", "ExpressionUUID" -> \
"8012ae8b-f509-4055-88d8-6ab9179c5d6b"],
Cell[7268, 197, 422, 13, 34, "Input", "ExpressionUUID" -> \
"9d6df2e9-b392-44e3-8d2d-0d2fbd39108b"],
Cell[7693, 212, 1223, 30, 62, "Input", "ExpressionUUID" -> \
"fe4cc6eb-7a17-4492-88c6-d064203dafb1"],
Cell[8919, 244, 618, 19, 50, "Input", "ExpressionUUID" -> \
"1f83e486-383e-46ee-b0f8-0bcc636d076a"],
Cell[9540, 265, 547, 15, 34, "Input", "ExpressionUUID" -> \
"a7a65e56-b6ca-40ec-81b9-c85c27760d23"],
Cell[10090, 282, 1178, 34, 113, "Input", "ExpressionUUID" -> \
"09618fc2-355f-4b7a-bdc9-8e7737cc6527"],
Cell[11271, 318, 537, 16, 56, "Input", "ExpressionUUID" -> \
"3c937161-0a6e-438d-af4f-3dd66630fd12"],
Cell[11811, 336, 1488, 31, 57, "Input", "ExpressionUUID" -> \
"735d5501-1f21-45bd-8ed0-f6cf093305c2"],
Cell[13302, 369, 3073, 57, 58, "Input", "ExpressionUUID" -> \
"3cc7a352-8e74-40d2-a8dc-c80eb20715ce"],
Cell[16378, 428, 2315, 46, 102, "Input", "ExpressionUUID" -> \
"e24f4a68-986e-4066-a581-a6f6c7f2d0d4"],
Cell[18696, 476, 2021, 39, 80, "Input", "ExpressionUUID" -> \
"a56bfbaf-960b-4015-a85c-09cf0b8bfac6"],
Cell[20720, 517, 4842, 102, 240, "Input", "ExpressionUUID" -> \
"92da139b-a52d-4447-9324-99e506e4eec1"],
Cell[25565, 621, 3426, 58, 102, "Input", "ExpressionUUID" -> \
"d1c2ab88-8346-4b96-8358-7032ddc9b592"],
Cell[28994, 681, 1890, 33, 55, "Input", "ExpressionUUID" -> \
"8ba3b735-f852-4740-89e2-f8c994bad666"],
Cell[CellGroupData[{
Cell[30909, 718, 1208, 25, 34, "Input", "ExpressionUUID" -> \
"75b34247-c730-423b-886d-59f5cb6deb5a"],
Cell[32120, 745, 763, 14, 59, "Message", "ExpressionUUID" -> \
"c9598ffe-1b6f-4d29-a03f-f11061c66e05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32920, 764, 947, 26, 79, "Input", "ExpressionUUID" -> \
"6dea207c-d325-4f70-83ed-c79db3de75a8"],
Cell[33870, 792, 5344, 86, 80, "Output", "ExpressionUUID" -> \
"f96cb453-4aad-4678-95fd-d5b0d301ffe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39251, 883, 3354, 85, 252, "Input", "ExpressionUUID" -> \
"e92029ad-cc6c-439d-99f4-348213864b01"],
Cell[42608, 970, 53194, 1042, 328, "Output", "ExpressionUUID" -> \
"6f9af633-d5dd-428f-99bd-2f26d8eaaec3"]
}, Open  ]],
Cell[95817, 2015, 1372, 30, 60, "Input", "ExpressionUUID" -> \
"533b82f3-0063-4115-96b4-8433fa98f775"],
Cell[97192, 2047, 964, 22, 37, "Input", "ExpressionUUID" -> \
"48cb4fd6-ae15-4151-b7ab-6b86437dacba"],
Cell[98159, 2071, 1001, 15, 32, "Input", "ExpressionUUID" -> \
"63a9f987-b95a-4687-8447-f3daac286a24"],
Cell[99163, 2088, 5497, 96, 159, "Input", "ExpressionUUID" -> \
"f7c504d9-50bd-4d15-bccd-8271b18ceb07"],
Cell[CellGroupData[{
Cell[104685, 2188, 841, 23, 79, "Input", "ExpressionUUID" -> \
"9934911f-d265-4bb4-a635-816005c56a60"],
Cell[105529, 2213, 432, 12, 51, "Output", "ExpressionUUID" -> \
"93180487-1da3-4064-a645-15b9034144b9"]
}, Open  ]],
Cell[105976, 2228, 5267, 83, 126, "Input", "ExpressionUUID" -> \
"6459e03e-49ac-4247-9e9a-b1bb9f5d89de"],
Cell[CellGroupData[{
Cell[111268, 2315, 304, 5, 32, "Input", "ExpressionUUID" -> \
"d4269174-d0d4-40b4-ac28-93abba4c0d9e"],
Cell[111575, 2322, 1182, 25, 50, "Output", "ExpressionUUID" -> \
"02dfe6be-0c13-4b56-8b62-675c294111aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112794, 2352, 4586, 88, 162, "Input", "ExpressionUUID" -> \
"2c5824e4-f401-4979-a7d0-d150d63fc2a4"],
Cell[117383, 2442, 27178, 459, 325, "Output", "ExpressionUUID" -> \
"dde3e3a9-0cb5-4b7f-ab70-3c49ca3d7d6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144598, 2906, 255, 5, 32, "Input", "ExpressionUUID" -> \
"f184ef37-afc5-434f-aea8-ffddfcc7f01c"],
Cell[144856, 2913, 808, 14, 32, "Output", "ExpressionUUID" -> \
"4098e4d4-0560-4547-be30-aace734c4987"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145701, 2932, 3878, 100, 321, "Input", "ExpressionUUID" -> \
"318a2176-9af8-4eb2-a44a-805d59a407c0"],
Cell[149582, 3034, 23850, 584, 234, "Output", "ExpressionUUID" -> \
"89b54540-039e-4ccb-82c9-59f2f46d6fbd"]
}, Open  ]],
Cell[173447, 3621, 1991, 46, 109, "Input", "ExpressionUUID" -> \
"a7e36aee-5801-4c8e-885d-815ca16b84cc"],
Cell[175441, 3669, 985, 31, 87, "Input", "ExpressionUUID" -> \
"7116efe8-b6e5-49e6-b4ba-7c07f19c62de"],
Cell[176429, 3702, 1075, 32, 88, "Input", "ExpressionUUID" -> \
"95f0b7c3-c6ed-4f85-9a9a-7590deda5a4d"],
Cell[177507, 3736, 996, 29, 64, "Input", "ExpressionUUID" -> \
"1d4c4e9a-cb5e-4a15-af2b-359acec88a18"],
Cell[CellGroupData[{
Cell[178528, 3769, 3813, 98, 218, "Input", "ExpressionUUID" -> \
"8edb02fc-298a-459c-b821-fc7cafdf4d12"],
Cell[182344, 3869, 75961, 1365, 249, "Output", "ExpressionUUID" -> \
"125886ae-c39d-4cc4-92b3-b120cb36e3d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258342, 5239, 452, 14, 37, "Input", "ExpressionUUID" -> \
"db4fa37b-3e24-42d3-9003-39346bf27b53"],
Cell[258797, 5255, 756, 23, 32, "Output", "ExpressionUUID" -> \
"5eb74cdd-7c7e-4c1d-bf32-5ff5e487d8bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[259590, 5283, 458, 15, 32, "Input", "ExpressionUUID" -> \
"32e58bf6-54b9-4c50-ac70-0522b591a2f1"],
Cell[260051, 5300, 484, 15, 50, "Output", "ExpressionUUID" -> \
"877b4ec1-6f85-4691-bbce-4a4af337e93d"]
}, Open  ]]
}
]
*)