path: root/tempering_analysis.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    379721,       7420]
NotebookOptionsPosition[    372668,       7302]
NotebookOutlinePosition[    373035,       7318]
CellTagsIndexPosition[    372992,       7315]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"getData", "[", "dir_", "]"}], ":=", 
  RowBox[{"Dataset", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"data", "=", 
          RowBox[{"Import", "[", "#", "]"}]}], ",", 
         RowBox[{"metadata", "=", 
          RowBox[{"ToExpression", "/@", 
           RowBox[{"Rest", "[", 
            RowBox[{"StringSplit", "[", 
             RowBox[{
              RowBox[{"FileBaseName", "[", "#", "]"}], ",", "\"\<_\>\""}], 
             "]"}], "]"}]}]}]}], "}"}], ",", 
       RowBox[{"<|", 
        RowBox[{
         RowBox[{"\"\<n\>\"", "\[Rule]", 
          RowBox[{"metadata", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<\[Beta]0\>\"", "\[Rule]", 
          RowBox[{"metadata", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<\[Beta]1\>\"", "\[Rule]", 
          RowBox[{"metadata", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<N\>\"", "\[Rule]", 
          RowBox[{"metadata", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<\[Beta]s\>\"", "\[Rule]", 
          RowBox[{"data", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<f\>\"", "\[Rule]", 
          RowBox[{"data", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<ps\>\"", "\[Rule]", 
          RowBox[{"data", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<Es\>\"", "\[Rule]", 
          RowBox[{"data", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{"\"\<Cs\>\"", "\[Rule]", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"data", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "2"], 
           RowBox[{"data", "[", 
            RowBox[{"[", "5", "]"}], "]"}]}]}], ",", 
         RowBox[{"\"\<\[Rho]s\>\"", "\[Rule]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", "/", 
              RowBox[{"Total", "[", "#", "]"}]}], "&"}], ")"}], "/@", 
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"6", ";;"}], "]"}], "]"}]}]}]}], "|>"}]}], "]"}], "&"}], 
    "/@", 
    RowBox[{"FileNames", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"dir", ",", "\"\<hmm_*.dat\>\""}], "}"}], "]"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.778948155736003*^9, 3.778948220094614*^9}, {
   3.778948251774682*^9, 3.778948445776267*^9}, 3.7849915996103563`*^9, {
   3.784991674882406*^9, 3.784991676833317*^9}, {3.785001256798332*^9, 
   3.785001295499127*^9}, {3.7850013404547863`*^9, 3.785001375744542*^9}, {
   3.78500144259391*^9, 3.7850014923774643`*^9}, {3.7850917037659607`*^9, 
   3.785091718086301*^9}, {3.785804403591153*^9, 3.7858046033535*^9}, {
   3.7858046959527397`*^9, 3.7858046963435593`*^9}, {3.785804895089408*^9, 
   3.785804919668272*^9}, {3.785870396919524*^9, 3.785870421125996*^9}, {
   3.789742875252179*^9, 3.7897428826827908`*^9}, {3.789745855694088*^9, 
   3.7897458585723753`*^9}, 3.789745905309957*^9, {3.789816778074827*^9, 
   3.789816780007482*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "[", 
    RowBox[{"\[Beta]i_", ",", "\[Beta]j_"}], "]"}], "[", "A_", "]"}], ":=", 
  RowBox[{"2", 
   FractionBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Beta]i", "2"], "+", 
      SuperscriptBox["\[Beta]j", "2"]}], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Beta]i", "-", "\[Beta]j"}], ")"}], "2"]], 
   SuperscriptBox[
    RowBox[{"InverseErfc", "[", "A", "]"}], "2"]}]}]], "Input",
 CellChangeTimes->{{3.7789451133983593`*^9, 3.778945185413146*^9}, {
  3.778945446992125*^9, 3.778945447478743*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ts", "[", "dat_", "]"}], ":=", 
  RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.778948523412203*^9, 3.778948610089134*^9}, {
  3.7789486512266293`*^9, 3.778948654153482*^9}, {3.785091924316422*^9, 
  3.785091992968083*^9}, {3.785804631517852*^9, 3.785804644235256*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cstmp", "[", "dat_", "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ts", "=", 
      RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{"#", "+", 
           RowBox[{"ts", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "-", 
           RowBox[{"ts", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], "/@", "ts"}], 
      ",", 
      RowBox[{"dat", "[", "\"\<ps\>\"", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7789537137281647`*^9, 3.7789537203664207`*^9}, {
  3.785804654584515*^9, 3.785804658431868*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cs", "[", "dat_", "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ts", "=", 
      RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", 
    RowBox[{"MapThread", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Mean", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#1", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", 
         RowBox[{
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#1", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", "#2", "]"}]}], 
        "}"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"#1", "+", 
            RowBox[{"{", 
             RowBox[{"0", ",", "#2"}], "}"}]}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Most", "[", "ts", "]"}], ",", 
            RowBox[{"Differences", "[", "ts", "]"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"dat", "[", "\"\<ps\>\"", "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7789479000625353`*^9, 3.7789480157738333`*^9}, {
  3.778948503834503*^9, 3.778948518745183*^9}, {3.778948666921554*^9, 
  3.778948688346896*^9}, {3.7789536224795513`*^9, 3.778953623110043*^9}, {
  3.778953673879937*^9, 3.778953685238799*^9}, {3.778953742582839*^9, 
  3.778953745606895*^9}, {3.7850922784387903`*^9, 3.785092334045607*^9}, {
  3.785804672596216*^9, 3.785804675153932*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"logZ0", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"n", "-", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", "/", "4"}], "+", "1"}], ")"}], 
    RowBox[{"Log", "[", "2", "]"}]}], "+", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["k", "2"], 
       RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", 
      RowBox[{"Log", "[", 
       RowBox[{"Gamma", "[", 
        RowBox[{"k", "/", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "2", ",", "n"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.784991222937964*^9, 3.784991266472834*^9}, {
  3.784991403570047*^9, 3.784991404177*^9}, {3.7849915386807756`*^9, 
  3.784991539440803*^9}, {3.7860403579487467`*^9, 3.7860404711525*^9}, {
  3.7860406298600283`*^9, 3.7860406306484127`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"logZ", "[", "n_", "]"}], "[", "\[Beta]_", "]"}], ":=", 
  RowBox[{
   RowBox[{"logN", "[", "n", "]"}], "+", 
   RowBox[{"n", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}], "/", "4"}], 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", "\[Pi]", " ", "\[ExponentialE]"}], 
      RowBox[{"n", " ", "\[Beta]"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7860366301695232`*^9, 3.78603671133499*^9}, {
  3.7860405792534246`*^9, 3.786040612454341*^9}, {3.786040708688937*^9, 
  3.7860407113402042`*^9}, {3.789830910073181*^9, 3.789830910887369*^9}, {
  3.789831116169219*^9, 3.789831161489019*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]Ss", "[", "dat_", "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ts", "=", 
       RowBox[{"Ts", "[", "dat", "]"}]}], ",", 
      RowBox[{"cs", "=", 
       RowBox[{"Cs", "[", "dat", "]"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Mean", "[", "#1", "]"}], ",", 
        FractionBox[
         RowBox[{"#2", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "-", 
            RowBox[{"#1", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], 
         RowBox[{"Mean", "[", "#1", "]"}]]}], "}"}], "&"}], "@@@", 
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Rest", "@", 
         RowBox[{"Rest", "[", 
          RowBox[{"FoldList", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"#1", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", "#2"}], "}"}], "&"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", "ts"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Cs", "[", "dat", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.779561994673626*^9, 3.7795620342479887`*^9}, {
  3.779700498628436*^9, 3.779700513292344*^9}, {3.7797005747090063`*^9, 
  3.779700575188902*^9}, {3.779700627710291*^9, 3.7797006535654173`*^9}, {
  3.779700716133662*^9, 3.7797008200306168`*^9}, {3.779700857824486*^9, 
  3.7797008584386597`*^9}, {3.7797008994884863`*^9, 3.779700901055118*^9}, {
  3.779700939144706*^9, 3.779700939215414*^9}, {3.784991004834445*^9, 
  3.7849910388807697`*^9}, {3.78499127505939*^9, 3.78499130611341*^9}, {
  3.784991358538706*^9, 3.784991380665337*^9}, {3.78499900310424*^9, 
  3.7849990048956738`*^9}, {3.7860344496890173`*^9, 3.786034449949182*^9}, {
  3.786034500347063*^9, 3.786034500511032*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Interpolation", "[", 
    RowBox[{"Normal", "@", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"Thread", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Normal", "@", 
           RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "@", 
             RowBox[{"dat", "[", "\"\<Cs\>\"", "]"}]}], "/", 
            RowBox[{"Normal", "@", 
             RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]}], "/", 
           SuperscriptBox[
            RowBox[{"dat", "[", "\"\<n\>\"", "]"}], "2"]}]}], "}"}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}], "[", "x", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, 
   3.789819474816937*^9, {3.790681092801322*^9, 3.790681117801856*^9}, {
   3.790681180513014*^9, 3.7906811931278267`*^9}, {3.790681242639571*^9, 
   3.790681258207963*^9}, {3.7906812901132507`*^9, 3.790681290231492*^9}, {
   3.790681402002227*^9, 3.790681423050158*^9}, {3.790685542851465*^9, 
   3.790685542953432*^9}, {3.790685591570828*^9, 3.790685622587248*^9}, {
   3.7906857070679502`*^9, 3.7906857098174353`*^9}, {3.790686466475259*^9, 
   3.7906865000258904`*^9}, {3.790686531395797*^9, 3.790686531553914*^9}},
 CellLabel->
  "In[263]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],

Cell[BoxData[
 RowBox[{
  RowBox[{"oldSs", "[", "dat_", "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ss", "=", 
      RowBox[{"\[CapitalDelta]Ss", "[", "dat", "]"}]}], "}"}], ",", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ss", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Accumulate", "[", 
        RowBox[{"ss", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.779700960584425*^9, 3.7797010023114433`*^9}, {
  3.7849910515540743`*^9, 3.784991075832299*^9}, {3.784991369146078*^9, 
  3.7849913764007483`*^9}, {3.784991547938244*^9, 3.784991556568716*^9}, {
  3.7849917900181932`*^9, 3.784991803720964*^9}, {3.784991863633103*^9, 
  3.784991884800845*^9}, {3.784992068826951*^9, 3.7849920762732773`*^9}, {
  3.784992122226707*^9, 3.7849921237610617`*^9}, {3.7849921543708973`*^9, 
  3.784992167089695*^9}, {3.784992239922765*^9, 3.784992242761147*^9}, {
  3.7849989835196743`*^9, 3.784998984447055*^9}, {3.785000974761281*^9, 
  3.785000975480179*^9}, {3.789830929032741*^9, 3.789830929207098*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Sf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cf", "[", "dat", "]"}], "[", "x", "]"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.789817903707137*^9, 3.789817918665738*^9}, {
   3.7898179830831623`*^9, 3.789818070963172*^9}, 3.789818128172594*^9, {
   3.789818328048049*^9, 3.789818328991467*^9}, {3.78981865828652*^9, 
   3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}, {
   3.789831192249136*^9, 3.789831192735342*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ff", "[", 
   RowBox[{"dat_", ",", "\[CapitalDelta]x_", ",", "\[Delta]x_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "x", "}"}], ",", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"n", "=", 
         RowBox[{"dat", "[", "\"\<n\>\"", "]"}]}], ",", "\[Beta]", ",", 
        RowBox[{"xmax", "=", 
         RowBox[{"dat", "[", "\"\<\[Beta]1\>\"", "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Sf", "[", "dat", "]"}], "[", "x", "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{"x", "\[Rule]", "xmax"}], "}"}]}], ")"}], "==", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"logZ0", "[", "n", "]"}], "-", 
            RowBox[{
             RowBox[{"logZ", "[", "n", "]"}], "[", "xmax", "]"}]}], ")"}], 
          "/", 
          SuperscriptBox["n", "2"]}]}], ",", 
        RowBox[{"logN", "[", "n", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7898311955449543`*^9, 3.7898312093030577`*^9}, {
  3.789831243231729*^9, 3.789831244079329*^9}, {3.789831294191235*^9, 
  3.789831426152293*^9}, {3.789831478986567*^9, 3.789831485824489*^9}, {
  3.7898315199939957`*^9, 3.789831522392721*^9}, {3.789831606978533*^9, 
  3.7898316137600183`*^9}, {3.789831690098496*^9, 3.789831713568328*^9}, {
  3.790686819364822*^9, 3.790686924891573*^9}},
 CellLabel->
  "In[293]:=",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{
   "getData", "[", "\"\<~/doc/research/hadamard/code/monte_carlo\>\"", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.778948447393362*^9, 3.778948476191824*^9}, {
  3.7795618755287123`*^9, 3.779561880399358*^9}, {3.785804692431429*^9, 
  3.785804692864304*^9}, {3.7858129014364243`*^9, 3.7858129030771227`*^9}, {
  3.789743002867009*^9, 3.789743004777854*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d", "[", 
  RowBox[{"All", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"#n", ",", "#N", ",", "#\[Beta]1"}], "}"}], "&"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.790500857951195*^9, 3.790500873614827*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 8, "Length" -> 8, "InitialType" -> TypeSystem`Vector[
          TypeSystem`Tuple[{
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[Real]}], 8], "Shape" -> 
        TypeSystem`PackageScope`Limited[
          TypeSystem`PackageScope`ColumnShape[
           TypeSystem`PackageScope`RowShape[{
             TypeSystem`PackageScope`AtomShape[34], 
             TypeSystem`PackageScope`AtomShape[34], 
             TypeSystem`PackageScope`AtomShape[60]}]], 8, {}], "InitialData" -> 
        TypeSystem`PackageScope`CacheHandle[2074065195], "Type" -> 
        TypeSystem`Vector[
          TypeSystem`Tuple[{
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[Real]}], 8], "HandleQ" -> True, "RowTarget" -> 20,
         "Data" -> TypeSystem`PackageScope`CacheHandle[2074065195]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Pane[
                Annotation[
                 RawBoxes["12"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[1, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["64"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[1, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["25.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[1, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["12"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[2, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["128"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[2, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["50.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[2, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["12"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[3, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["128"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[3, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["50.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[3, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["16"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[4, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["64"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[4, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["25.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[4, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["16"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[5, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["64"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[5, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["50.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[5, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["20"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[6, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["64"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[6, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["25.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[6, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["8"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[7, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["64"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[7, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["25.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[7, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes["8"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263]
                 [
                  GeneralUtilities`Slice[8, 1]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["128"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[8, 2]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["50.0"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
                  GeneralUtilities`Slice[8, 3]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1451539263][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1451539263]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1451539263][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {157., {108.5, 115.5}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellChangeTimes->{3.790500873928317*^9, 3.790680744086668*^9, 
  3.790681304959074*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"305f9fe3-8a8d-4a5c-b42b-c23e67a6afbb"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"sample8", "=", 
   RowBox[{"d", "[", 
    RowBox[{"SelectFirst", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#n", "\[Equal]", "8"}], "&&", 
       RowBox[{"#N", "\[Equal]", "128"}]}], "&"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sample12", "=", 
   RowBox[{
    RowBox[{"d", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"#n", "\[Equal]", "12"}], "&&", 
        RowBox[{"#N", "\[Equal]", "128"}], "&&", 
        RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sample16", "=", 
   RowBox[{"d", "[", 
    RowBox[{"SelectFirst", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#n", "\[Equal]", "16"}], "&&", 
       RowBox[{"#N", "\[Equal]", "64"}], "&&", 
       RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sample20", "=", 
   RowBox[{"d", "[", 
    RowBox[{"SelectFirst", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#n", "\[Equal]", "20"}], "&&", 
       RowBox[{"#N", "\[Equal]", "64"}]}], "&"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.789831908881502*^9, 3.789831945703508*^9}, {
  3.7898604011843967`*^9, 3.789860408737005*^9}, {3.789864913402884*^9, 
  3.789864920183464*^9}, {3.789865009416779*^9, 3.789865014802567*^9}, {
  3.789892804356556*^9, 3.789892813604467*^9}, {3.789893714396906*^9, 
  3.789893716106145*^9}, {3.7898968668142767`*^9, 3.789896872979452*^9}, {
  3.789932602730394*^9, 3.789932608991914*^9}, {3.7905000270031652`*^9, 
  3.790500027298358*^9}, {3.790500832505785*^9, 3.7905008364464607`*^9}, {
  3.7905008834877453`*^9, 3.790500908670889*^9}, {3.790680745136145*^9, 
  3.790680750622045*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"c8", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Cf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"c12", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Cf", "[", "sample12", "]"}], "[", "x", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"c16", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Cf", "[", "sample16", "]"}], "[", "x", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"c20", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Cf", "[", "sample20", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, {
  3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, 
  3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, {
  3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, 
  3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, {
  3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, 
  3.7898194634932632`*^9}, {3.7898319317305803`*^9, 3.789831978527664*^9}, {
  3.7898649246393833`*^9, 3.789864928959545*^9}, {3.789865019225033*^9, 
  3.7898650248002462`*^9}, {3.7898928173005323`*^9, 3.789892817580557*^9}, {
  3.789896880637479*^9, 3.789896886211711*^9}, {3.789932613953886*^9, 
  3.78993261910413*^9}},
 CellLabel->
  "In[264]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", " ", 
      RowBox[{"c8", "[", "x", "]"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c12", "[", "x", "]"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c16", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.0001", ",", "10"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", "\"\<c(\[Beta])\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "\[Equal]", "8"}], ",", 
      RowBox[{"n", "\[Equal]", "12"}], ",", 
      RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQveXA9HOxNm8cBbfxXwXRSRekHoDog4/DXoDoE1pT
3oDoV4wb34PofheJryC6K6YUTC8s6ZGJA9LbCvrAtNi/5DAQvSqnNw5EL5Kt
qGsA0gJh4Z0ges7/W+cagXTJx5MXQXRDcvmLdiDddqvlFYh+dHL/LxCtbPfg
D4j+XLJBqgNIJ65YpgCiz0Zc1wDROh5huiDaIOj3ialA2s31H5hm0qz5Mx1I
M//K+guib6wr5JgBpPc0rwLT+xM3z1oKsr93F5jWO1yyEkR/Llq5FkSzzXc8
DqLX6KicANE80frTlwNp7n99YFpUs2oOiD4WVAOmUxw3cO4E0jMthblA9LMN
/4VA9CvOkyIguo7zeMh52zeOQf7MYSC6oIU1CkTzKJ4H0wBokcHO
  "],
 CellLabel->
  "In[269]:=",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV13k4VO8XAHApS5aMuWRnxqikJH1bKDlHaZE1qST7TrYkpI02IVtClCUp
kkpKouwizDCWZJ2RNZJIpIjf/P66z+d57vO+5z3n3HPvpdp7mzpxc3FxPVjG
xfX/q8qrR3/v6ErDG1L3bEXs0u7Dv/98+zflBhm4yO1amKp9zVbk7reb52BD
tFZJw7MS7bx+kpyH0FVYIzKy7XoQU1teXNrL3iwM7BgY85Xo1b51gFZmfj8a
jO6/GeNKHtb+p7X65rqft8F7R3OvxPZJ7a3tyXmKqxMgSCvM+9fijPYpb4VO
uZ1JYGa3+/nFzAXtDP7MZVLW92HCXEppD8ENHQ+UVcSupMFx3WWp/Tq8cDPl
2BO+Iw9g0ctm5FKvANDG7u7mGcqAAtqfD2eHRKB0e3czd0AmiCy6iMblksHi
qpwz18rHYDxJuv77njjEymZEzW98Ao8WnuXSpGVho9ug4p/SHBConq0+lK0A
HwvWFs6a5ILAtRl1twIqLBo9ZU/5vYC+SLcXq2rWAJ0xWxRwNQ/uXQ0WFJ9Z
B9K/JK75G7yEb3sK/At3q8AbtJD0Y+WDd5WPAMiowQqX8/2+Wa8geX0iMfF5
M5hG3s897fMamjLfpVRu2gLfO1nozf0Gsu+cEStctg2Uzji4ua8tAqMBJ/mR
nbvAN+naf24/isCVmrzx0ogWlJc9+ufythheHnO+I5quDSeFvsY6HXoPPEwi
8ay0Dtx+5FFs61UGy2b90pkzujA5tL/yhUw5TBY9m1Se3werzx1fpxZcDjoF
rDFt3gPgmBY4papXAedOzvdfU9UDrvHi6xu6K6HZxrzpYZkhrLvcMJYDVaAV
sjBA/DQCI3KPsUpmFTRLrCjkFjeB+xr/pNZ7VkPXYCaf8tHDsOM6PF+79AGS
BuiVrJkj4CVf3U6l1YGsHIvF9eYEKDX6HhSPqYPl+5Y/0Qi3gK6L1GL+f3VA
FvQAT7uTcKD3UsqP9nrQGnuiUSJpBZT7mo4l4XR4unnL8P6jttAi9WLK/GcT
XNfOWvyywRGqB5+rP1ZjQvr5qGzeZ46QrnVjTMGZCYpLtZqRak5wbHyrJdHK
BJmp7MoiDWeo1L8Nf3ObIbPobJTTSVe4J2DI+9G2FeqEe+5U93mAv71SmU5i
K2Sulc8/FuAJpsXzAe8YrdB86oLKVhEv4HfPGX2+sw1eT+ScoO/xBr86Pka8
2Cfg+3g8JbvHBwxvVsY5fGyHt7DJzfr0GVji0aAuqXWBstSZOVfSOci/uudl
j30X/Ce7Jo/mdg4clxnqFMd3gURB6IJ95Tn4uGBnd3a+C+7cC4r18g+CmOmI
B99qukHV9nTv68HzQPnCpnZY9YK09b5pVucloLD2xnbs64MFjxNvibgroFP0
LfblmQFw9H2bM50ZBl49RRnptwagymjyb1ZfGCQvhb6KfjQA7aEbnqbKhsOv
fUqfPD8PgHZcS9+R+HB43GIpqbJrEES93Jr6wyJAcJyRmsE9BKXyy+6VXY6E
T/J5T+Nih8E5r2P58bcx4HbN78PZF6PwcIvKd6dvd0D3lrfdbs1JcLYejvwt
nQYV/x0/8s92GlrPq/b/oGdCUZlajhV9Fiz8L6elfs0BpXYl6dp1f2G4Mlr1
fFoeLOoZ/PPU+wdxU8+PH3r1ClQO52dYHOdCgzCByO2qhSCUe5xL7vsy/MSr
PVOXUgzKBhFjA0HLMU91/IGaVimEWO/gO6/Cg6IqkjYqhhVw40wM68NmHnyj
LhHcd7QCwm+OFpB28CBxvcv7nnUF3M6/5/h4Lw+O7WjoUvCpgExerspmSx68
9uN6kUNcBdQ8/3hBOZoHPXrbbrK6KkBg6cTPT9M8aEFTVe/0rITbaRd6N5fw
4qzaXudnj6rAJiFthruaF7VaXwzn51XBxshK4U/1vPj99fZ75e+qoDaIX/tc
By/aD5i3/GqugoWjd1IrpnmxvN3+c8ViFTgL5dqYqvChHG+/0Z8T1aB5rvvL
mUQ+3NgSdVpD4gP0me4cfnOaHwdD91go5dVA5ZVoklsgPx773BVqW1IDmfmD
O2Uu8+OvRO6GrPoacCVHR1++xY8xxJqa40M1MNU8oHEwix/PUFwXtWVqgftw
ZERnDz92ru7j2R5WC0rGfZsXDqxElZmhS0peH8FV/8Z5HXkBnG/n4Zu1qQee
vgpKsJIAVmiXGh7yrocMv38fSlUEcCI1pDTnUj30pPiRtHYIoPaf1N0xKfVg
Mmn/aLuJAJ6LHoia6K4HjXho2nBFAIPzyO5LFg3Az55TXD0sgKKmMgEv7OmQ
5XuqfuyZIHbzkJ1eJTeC0KhPXt5rQZyyeH+D9bwRfG38E/zfCaLlrKKIVFUj
aBuE2HPXCWKIX9jR998aoX1N4l+pQUF0TpareLe7CXg7K1X0pIVQbnS9Vc5g
EziDdETWDSG8GbfTTCyNCUpCdfqONsIY7K5/eCepBczbym4sTK/CEHudQ/58
n8AxVCJoy1ESbkg54m18qgMcrgiaRZuTMKhY1+hGYAfYX1xSHT9JQotpJ52i
6x1gd2bkyyN7EgoFEExyegdY2xTqSfmQ8ABJ+0JMWwec2HFciiuChGc+6FLj
tTrBaCThLaOchCw7C4lZ3i4w6g+/rVJNQufSk0PHiS4w7L3kEVpLwiqdh6Ev
FbrAoNWZotNIwkMzMz36Gl2gV7b95utuEjKPvWyRcusC3cT24/dmSRh+cscM
d10XaB5Y/dt1oyiOzQiJHQjphgS/i6tuqYniqnvjec8juuHng8E1L7aI4sqL
D9cJJXRD7kK+2YyGKN5Wz/mUm9MNlHzj/JB9omjU1nDvbGs38MqFeSZbi6JP
hG/OnGIPtPycH2iIEcUac9engkU9oEZxmJ+IE8WTsRJcXJU9cMuwnkxOFMWH
F4iB4foe2Jd9V8c8RRTlE0jDET098NZqW9rgE1GM1J7oVlvqgdSPXhb/KkVx
k/HfHbU6veCe+oW5aYazH/kQ2764F56+f3Yzfk4U6x8aFPyo6IXxrnO4MC+K
/eVa+W51veAtQc6r4yZjqYvutFJHL/jF7Il2JJFRY/0F08JfvXDpykPD5A1k
fLBLKUxHhQVl6d48y9TIWHc6w+/eZhZwle0qcdlCxqEJL+aX7Sy4Ot+6cZsm
Gb1+7Xn6314W3PRbIcTcT0bK6PyzMQsW3HZ2quexJ2M6Ifn13g0WtF5Tv+Lh
RMYmmdrVryJYIPbwn2arKxn9p/xGH8ewIJEd/yTdm4xrZ0T6TZJZcN+85uau
i2Q8+aF7y/NcFvT638aMYDKGbhxdT37JAvl46zn+a2TsX/k1wa6ABQ+aZ13a
w8kYab21vbKEBY8PrTtw+i4Zz5rqrYhmsGDEdXrx8z0y/l42Um3UzALl0LI3
2mlkvLHHaPnfNhY8rTq+VugxGV0GBRfJPSzI07rJk/WKjHYr1YSNR1kwZWFW
IlxIxqQjtb3u4yzYco5y1q+YjIpv1Lf7/mBBQcHbQZ0KMi53XXdt7wwLijeN
VvU0cuIx31A6ucSCE5eVi1a2kNGab2s2cLNhrsnl+fZPZIxW/1h9YQUbtp0e
vhvTTcZpZ9K9Cn42tFWsiSphkdGMHne8ToANvmSnq2NfyOhup2NQJsSGvFcD
nrpfyei2bPngWRIbjFbQHE5/48SbIRO+ncyG72b25qkTZFRLc/EaItigMtu3
Z+4XGasFxn8LS7Chbj9FY80cGa/oW6eHSrLBNdFG1XSejP8iAiJ/SLHhkQZL
IncZgX79J7XCZdmgGyYn3LmCQD3ehGUlcmzo77Tk5uUnMGrfUTJLng0hKvd/
bxEkcLTOzue7Ahso57vHbVYRGOQYLveNwobSBun+W6IE9kZmynymssFK1uJz
kRiBas63PF4qsjnv6ST6sASBywuUyEE0NiSXdFQQMgR6jh5bpa7EBs1VkoUo
T+CSFOHQznGH9fFcTyqBFStMyO5r2OD/IuFBshKBKCIoP86xOFd7Qu06Ai/u
P3jTci0bXpuI3/qlQuCiNfnIO45NH5iFUDcRuFfKo2SG46mpOH8jdQLZ2kks
8XVsiNnTeur8VgLj+li+ShxviiPbZe8g8KWpQSiVY8bA4WOfdhLYWr6oLMyx
x9ZYfW5tAvtUqU4jnPUErjNRTYdAIb/xg3kcP/kkst1Sl3O/btYXF44PrjXe
EHaAwH/Kj7VWcTzsH0V5c4jAlGB9l4ec+K/XMsQHDAkkX+XzXsexkqSwIOkw
gSvA3C6Zc/5KVwOu3WYEuiTX6S9w8mVXFDHjdpzA86Yzuww55hJoGEuwILBh
/gpEcvKbaiHQV2VFoAq3suN7Tv53P9X7NGlLYGF2VmEXpz5BBh/LDrkQaCkR
pjjEqadUCl9BgDuB65PfHG3m1Pvt9/05mZ4Exm859iOX0w8zUR/uLJ4h8PsJ
magt0my4w14RviGAwDGr8y96OP20ZbPuZfMgAjPsKr39Of3m01zplh9MYPpt
Mu85MTasUuS2YV8l0OhH9dwXTr8+89UxEwol8HpOXtVOUTaMEeXazpEE3uuW
l30vzAanYyWEdDKn/km13ks8bIiqEifvSCFQ9Iesw/RyTnybvUhm6QQOy3yF
jmWc/AsqCEc9JnD1G9EJv38seF4WzMv9ilPvuc7s+WkWfN7YuULhDYEtibln
Aqc48y1ZfblWEYFS3zOThidYYOrXv3S2jMCRuObNiZzn/7ey7p/RBgLPNPjS
9FksoCTc/83bRKDh7dPWZt0sOLR8ZobWQuCdzYFuxh2c+dX76KdVB4FnJ7k2
yLSwAG/zjTcPcvrJ4eaiwAcWhM3Xs4r+ETh5LMz6bxYL8l1pve1cYti33ddE
NJMFPZ/Od08vF8Njb9JoMuks2JS3sUNVQAyH18k18t1lQYtjVPOD1WIYLPGl
80AoC2QaD1eHqYnhxLEIzUAHFjxL73hywk4MFd/dV9cjOPNoMf5gsaMYOge7
mQUIs+Cj5ZERaVcx/JGp8z6JjwWDko1KPV5i2NqZ/OXdPOc7OrYqzfqCGK55
Smw/N9ALN0KexzskiuHD+Z+TM3m9YGt/LcSTIYZ62a32qft6QUxp84kQTXE8
37JWrO5ED1x+bbstW4tjr8RlgaY9MKYbK9oE4lh0ESWp+j1Q7vSzTna/OBrP
hfyw0+oBj6zXO9+aimPcq7JuR/keqFbRlP1xShxpJ/2Wb/vSDWfV97AtU8WR
q/SSlrlDN7RrmzlpLF+NgZ0p2wRsuqDw9uvwz72rsci4jKqp0wHbVlrOBr6W
wLtHC11cj7SDR+fFoqRCCWysDJVIN2iHzCdpF4qLJfC93IFj3fvagXxogHuh
XAIZCcWJlhrtMBnuLnKZIYG7S37Qw+XaIVfonPL1YQlkftktfe/rJ1AkJVjE
Skqi6oHz4UpXPoGIBLP0yQVJXBXccCW/qg1UOo4prgqWxCOF8qTQkjbYn9R7
3feqJBp/MDtpW9gGl2S+GewKl8Tkn7uUqU/bYEKBt5ueKImxL/Zc777dBgxl
rd8/8iVR5lRu9BaHNojYma22fVQStdIc4hz42oDPOji98qgUnspVL3ls1QrB
h4N0vptLIeOac+qceSv81fXrl7CUwvj9TFsjs1YY3+Cq5GkvhQYNGtd49Fuh
5Y9xtoS3FP6wfEfN0GiF+/EKeR43Oett+HYnTqwV1BmlZavfSWHhg/QJw6YW
OKn1j+VOkcY1d16ypU1awNqAFHadJo2RILjZ26AF7C1p/6Wvlcb+CtfGmoMt
4H5BL/TTRmlMY6V+u6zTAkHv49VQUxpV4+86Sv3XAne1NgWLm0pjsmKg2sjq
FmjTsqGWX5XGsQueRT19zWCwu8JBfEQajVRK8zwvNsNWbc3nZ8ak8XVXjNWu
oGaQhZdzzd+lUcfLar1QQDN8xweRUb+kcS2RIVbo0wxRuiGFfNwy+N4leU7d
sRmY+jqCf2VlEIarhor0m8HMoiKfZSqD5dYU12VyzWAZULEsu1QGl0p2S3+p
ZUJGTm4YvUIGZTRIryM/MOFrb6LoVLUMfr0gFKBVxYQzul7UnQ0y6KVt451e
yoRwURkd+mcZ/NijOBpSwITCp37Bk5My6GTR/if7IRPIfeuWNGiy2L/N/dy+
ECaYE0So1VpZPMWtGq5ymQkp+xdXXVkvi15qcSGiF5mg/KxNvkFNFvNybisM
BTIBgkK0rbRk8amP8u8MHyZ4iHVfDDkqixGLY3yBtkyoPRi1UBcqi/YHdCQv
6zDhpwdLaUuELFbUp5j5AxNkYzcZJkfJopW/Yar3bib4dDamuMfLItVT4Iir
JhMk3UVA8KEsGih4E77qTHCPiAkxKJVFjQWdgCEqE4Qab/M2/ZJF8mRVBaxg
wuEjiaQ2Ozm81PZ74NT9Juh4YuHP7SSHyrMx33yTmsCWS75ns6scLjXsrb2Q
0AQ+zzKzIr3kcCqUNn03pgmi+PK1D5yXQyO/gqGf15qg/h3do/iOHE7XlgRu
8GoCXSXuuvRaOTxzuUbhwZ4m2DHjEeKpKo9s0m8e5elGOOSqNxmxWR4/9C96
sycbwbJ7jU3Of/IYGzm5KmmiEYIrWFojmvKY5Pu5nzzWCB8jTeZs98tjzb4j
jyhfGsF87VZvMxt5nLV8/CijqRECj89b7orlrFemQPBy/qfC6z83nLgjj62+
H5Z+PW2E+7tf7wxMlEfJjnrG0JNGKKd5ShakyON62UF+xqNG4J9ktW7KkcfT
bTmfX6Y0wt2blYcUq+TxoLh/YWtkIxQVhWmsnJHnzCPJw97ejZAn13Dg1Jw8
Dm05Iejj2QiPQ4SOM+blsb9lU73vqUa4oxd9NpZbAfmrYowuuTSCV+edfCmS
Atq0FeAzm0ZQ/JO2UWWDAj6VfbPTzYQTr8Ybir6dAprgXI3Bf41gUdjPH8lQ
wPYPT/TMFxnw3DDxaAFTASsV+X8PLTCAe1A/o7dVAXPOb1vwm2dADqlg16Yu
BQw2P8iXOMeAP26hXk3DCihqvn5q7CcDDFatHuPnoiA5JyOROcKA8fJiY30p
Cu7aIyMX2sKADWtXyDD1Kfjum+NeoxwGfByNEb1hSMHo+Bo29xMGOD6T49cy
puBpuPTybRYD7m/dMZNlSkE2xWRy3SMGCO11b7p8goLhxO9isXQGTNgwr6q5
UFBFJOHi2gQG5CfdH4+6QsGw2eUWilcZoCm8rdSwiIJ5tPD5bbYMkLYxKpov
pmDQvI3SfzYMWMhzef3kPSfe3KMq6tYMKDVLzuEpp6Ds1tCPapYM0L2/lFBS
Q0F5g/UqO8wZYLKh3lu1jYJqqv6Jp0wY4KJnQxX+QUH/idxr8joMiL8edo2u
RMWRsFq3NiUGPPaxTLVaS0UN4/fPhTh+c1Lt7cQ6KtptFbizj8aAdvVP30gb
qOh1Vky7iMqA1SzKkaPqVFTaFLYiW54Bd7e/pbJ2U7Fzm85ShiQDkkeGS38c
o2K1FV+5oDAD0vR0/5DDqMhKksry/U0HxWd6Ax/CqajJTHtZPkuHTJIxI/AW
FfmHik6KcJz9+cQDVjQVr+dqRz7/RYd8J2+9nAQq0oYiT/6aokNNSHKSTiYV
TwR6maWM02G8aFLTp4yKghn5VPt+OmiopAQxZqgo07si5kETHUbXWl51+E3F
ndkpfXIcJ9Nkbv2Zo6KwRNrj5EY6LMgmpaxZoKJbzLnYeAYdKkTiyy9yK6J/
IbMjpoEOh2Zu8W4SUUQH2mn2/Vo6WJZfuB2lrIjxIsXXJcrpcPmYZY7xSUXs
28LTqZtPB/8vWYW9lor4Slg8gPWSDh4e09WnrBVRcdfZU4Ecm18JZ4faKaLv
Su2jz/LosOX5W7FyF0Xc3ntTQeYFHQZ5xC9v9lPECNqCIm8uZ/8CxhHRSEVU
zZ8NXP2YDuJi8K+lVBGd7NN2rbhHh50TZZb1KjScKfZz8r1Gh+bw3+ZWG2lY
Y3CtisKx6zq1o5OqNAx+tcak6SodEm1TDVer0/CSb/rMRo5/tVzQtt9Bw0FH
3rNjIXR4UahJ+buXhudyyPZel+mgFPJqYL0VDbVWvOpIDqLDO7lv7PfWNDTY
yHPQmGPTYsUeY1savi+bG13Occh0bNtZBxqORe2r8TxHB5aTz4cKNxp6KS0N
7A2kw91Dqlkn/GmoP7eN+ecsHYTFstzDomnYGWBvGHmaDqnEF139WBqaRvUY
IMebCBkF4TgaUroCYqZ96GBCjm6NSaDh96TqQQuOb5MCtO6mcM7/PrFmozcd
JIUPrMp6SsOtM9SEXg9O/LwjL6traVicn1WU5kqHAh7qrRt1NCyivh625ng/
z0nngw005Hr8/qg8xy4rmqTpjTTc639+LsWFDjnchVdbP9FQPeXtgXRnOmxe
unG0f4CGQcmd1XmOnH5ZLFfLHKLhi4Ll385wbLr4d6XzCA31cv4a7uD4zD+v
0tExGkqzFz6WOtDhzfyxdVNTNMx04A9n2nP2n49Z9mqahn7BJpHxHH/+W9/t
N0NDkY3v6y04nvujHTM3R8Negcc/h+zoEPYn0L34Lw2bCwJ6nnIs/Sdf98IC
DWXZxNJpjnPmxuW1F2lYR6dZaHC8a27tn6UlGlbHm3xftKXD/wAizQ8x
          "]]}, 
        Annotation[#, "Charting`Private`Tag$67707#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVl3c8198Xx41SiYzP8LHHR/FVZgmFc0SDNLRQQlaSUVGiZZSQFIUSQior
ycgoe5TxGWb23uSjJYX8Pr+/7uP5uO/3Oa/7uueex72ydh5HHLk4ODgmOTk4
/j8q5b78+9hIDNYdT5zN7f+nZ/b7z/Tyt3Pgu6aCeI+QoH/bVuDJdLAPuKrY
0deLlOhnDwlKuvIFwkx7VLC6ElNfiiTmbncsBHp1bLclh/boh+2lllnEPYAt
jQoJcepj+su65GCF75FgWnQtV7CDpb+tPTZbjhwN1kXrVuye/dI/7yHdKbnj
KQQo7VCf2bikn7w2hVPUOg6q7C5UWNZwQkeSohIx4Dlc4vYgOI6shuD4E2lr
jiaBXJra1SQPXqBOPdFbPZoMW3y8/nvqJACl27ubuLxTAIIePjnvIAwnAyWd
ONa9AppWct4PExJESCSHL25JA7uw+W8WBeKw5dyI3J/SdPjUk/arSlcaPudv
Kpg/nAkjv3WnLa/Jwr+DGf3fvN7CD8uo7UmBG6GRNl/kHZgNJnN81KIsBRD7
KXL7iuk7UN2/ZSb5x3/wHk9SvPpywJRX9a9/vQqsOntt6NLrXNCsj6yVyVKD
I/fjMi9eyIOTlvmEPG4N+NrZhx5c7+GHbNyh8tZtIO9pf85lUxHU/KfpxcW/
Ey49vb31HKsIPuzWYwoW60J52cvls4XFMMB1y/28pz6c4puIcDT5CKSAxI5z
qw0g8qVrsa17GVSf21QfNmoEc6N7Kt+Kl4PVuz6TpzO7gexjrqDqVw6XGoe8
nv3ZAw7Pr35TNq6A4B28Puc2GgPHTPGdzd2V4IwGP+5VHQCFWw1T6VAFT01M
RF7+OQgHhXsOKaVUwR7OLpMqscMQp70s+p9bNRgWCFfttDEDrTuQtWmlBkRt
F9OMeI+Bu1R1uyy1Dgo5jhicGbMEefqlfaSHdTCvqxmkWnYSum7IFq9drgNa
DU1Y+dkp2Nt7M57VXg+UULurqVanQSZOx6EktBHObD13MSnAFppF336z+M6A
yyMfF0mXHaB6JEv9lSoTLkof59b46wCJukFT0k5McOKw7G3wc4QTM9usCC1M
4Fnhm78U6QSV+yPhb2YTaM04dYV8coZnvAd4Ptu2gPArw0qqtxtcsZMvM4hp
gY55dVcfgjscKV70/kBrgbdK1a6a79xhrUv6ZNaOVsi7SMztmvMAr7o1tChi
G7RwZOy1xItwILjykf3nduicsFqTPecJK6u1ZVdUu4Cxrv9mPd0HcgJ3veux
64LpjHd2Vzb7ggPnAYPiqC4ISd60MTPYFz4vnTlzebEL/prvM8w1ugYPf9xL
mq7tBikKzy/ZqusgM9gv23G6Fz4G6dQSOm+BTJ9hRMfuAfCTTg5a0QgEg6Lp
iHeew7DBcfYe35VQcO8pSk4MG4bEZ91N8TmhELtyN/fBy2E48mBzhz0rFH7u
lm9z+zIMQ0G55++fuwevmq0oSjtHwDlO5YWZbRisn6ElJHONgkeL+fe75uHQ
JpWd8ShiDHZb8pbGaUbAudteNZffTgJHRt1ieHgUGIV5nNHTmYMDEyVujesS
oWKr+dFl2x+QtvLmb/Ctl1BUppp+unEeQM/tulp/Bsi3y4t9UvgLHA/+bhfU
ewf/jE2X3YyXget1N+eKex4omeUknzTnQE0l8e2jCwXAl2nOIfmVE2vGLXMy
zT6Aoum9qWFfblyzdPkQ/Vkp+FtrrbmmtBp7xHQOjBArIPL59V61Eh4cDesd
oRRVwsCRHWPvL67Fb2v+Gcr7VoPz/qBrBlK8mPVy4u/i5lp4fel8/dSb9Wj6
0KYipeQTyPPV7Xew4ce+TN84hSt1YNFaFrT0YwNSBLdWVSs3wK6Iy4rtfzeg
gxAHX7pmA2w5uLn+LacAzpxrrn+s1wArn6L57QUE8N3gziXfAw3w6oPb4zol
ATz40dUtzK0BfiaLJ0efEUCf1935bVkN8PCid4kaQwCPfFJS27i9EXxVlG14
2wWwOPX143r9RnCYHuIY6RFAgrea89W9jaDleNAoZkoAh7na5r9aNIJHZuTo
Py5B7BllfjO63gjkxHOujlKCuD9Nv6i6mv3/XRFfjeOCmKHtflLemgb2AeuP
PbAQxMC3r7/8OksDuxsryjOnBDHg3XOz1os0OOM5PvjSThC3aeV0F96hgbVN
gbHoBUG8Nxf7Rj6LBpZa5qIc9wQxQjd0PYmTDgfHowtp5YJI0ikhKueweSg0
UqlaECskot16SuhwoPem691PgjiY4/X1eR0dTFucZAzognhknuXpMEgH47Lt
wXndgthEeSc7LcQAo5h282fzglgVZFq72ZsBOnvJv523CCG3qD70/seEaK8b
G8JUhTBpVVHqKzUmfE8a2fhWQwjv014J3tBiQuZSzrFf2kIoWen/wGw3E2Ry
DuX47xbCEKcp7YQz7L4gGeIWay2EfQ0OxNk4JtibzN0uOSOEix9qM+NSmFDu
bR434CCEDMfvUqcymeDTvLFh03khbJU/tn/tRybM3K1UzPUWQvU06qhiDxOa
vy8ONzwUws16O/wypZtAVcZ+cfaREF7yy2G4KzZB2IF6YeEYIfyo4DhnqN4E
u1OfGFjEC6HQMeWzCoZNUHha8/lImhDOpVhc7zjbBAmf3U8uV7LnhbuMIvKa
wCVhkKnySwjnuQr2FFg3Q8bHN8FRC0LobXusfeP5Zpjp8sGlRSGUsTSIzfVu
Bg8R4ew6LmH0CBuXVIloBq+Hux44CArjnV/HC1NrmuFmwIsDsZuFcZdG+Hou
zRYoS/RYzakqjC4WMe73DVuAo2xnyVkNYXzPvTpW70gLBC62bNHUEcain37v
+S+0QLDXKj7mHmGMGLg6aPqmBSKdHOtX2wljnm2pmIBqK7TcVg9wdRTGrS/4
uFZhKxBfLOu0OAtjSZbvXnmzVojpj0pL9BDGseyHbyY8WyHOojZ45w1h5Nhp
svP+h1Z4ZaKw9+ITYayY2daXerQNilUmq3rowmh0+Gnd/vR2sLylWLSuWRj9
pN89XyxrhwXG2aztbcLIGyO90NvWDpoXx5487BbGAB+o3sn1BbJzh92MJoSx
ee+XIafTX+Cldp9IJicB17w8/65VsgOMQiT5O1cR8HtSr0/P9g4Y6rTi4llL
wPrEOGXJwx0gc617xmYDAYkW1xZMAjsgtqSjgiBOQLeF5Aj7mQ54uKvl/LVt
BKwWv6oyWtcJKo+Ez6RqEVBh9Xqp2rFOoA2bnWjbQcCyokrxae4u4L3DRFUD
Ahq+cWr/od8Fdz7RSMMHCHjGc03AmsIu8DX9XGZyloB6/ZbNF993g+OJEoJY
LAG5px/rbh3rhfAqkrBWPAHXp3PNjPD2QaGau+CxRAJaP5UK6VLtA9710vzh
rwj4KiDqUYRvH2SV+fFw5RLQsdWaokroh9+KRn8mGwhYx3U54rHiAIQs1vcV
LRPw2SqVyy/8BiHHmdrbzkHEm5ZPivfFDEJP27XuH9xE5JAWENyQNQgq2Vs6
lHmJaPa9h2+hexCaHcKbkshEPEQfUTPUGQJxull1iCoRec6NUUP+DMGbxI40
yzNEPBZ3xbn4wQgU/4vaV+xARJ1XqQLUzBH4bHV0XMyZiOoa35pSPo/ACIUu
3+NOxB/br5/9xjkKYhFVz62vE/HPjHrv+8ujEOSfFWUfQ0S+xhfaO8+Mga3d
bX83GhEbfnle4jCYAPdyAxk6k4h+n3gDSTYTcE1qpVSllYiVzj3/yd+YgOgu
nyVWFxH3MrUTFIsmgHbEw/vSBBFnxh9xv1SbhB2GJ928uUmYfeP45B/xKSDK
q1n665DwtoLKcG3vNNzKs9VM1SXhaM7UPGN+GqaMIthdi4Qc45HUtwIzUO74
vU5iDwklHC8OTOEMuL7O21F4hITOfRruKkkzUK2kI8E6T8KyeVLjovlXUP1w
boHkQcKGNWJtrW5fIXZ/bKvuJRIujnyVvxj4FS64LoaFXiXhmu0RjNk3X0Ei
q2R54x0S+lPEbL6sfIXL6rv6rRJIqM4F3ArRszBQcelDYBIJfQtvtgW/ngXT
Iy9i0lNI2CZ6aDK2cBbkPFcdXkgnoflQ/y5a5yzQ82rLHxWQ0PiEXLoFhQU6
u3/HFReTcM+pI95KCixIaVPwGSwh4UjsosVrTRb4zgerq1aTMKMypeS5GQs2
ae9PrmeSUGGXHly/w4KIz9dufmshIdX/PjUqggVLFpknKV9IqOpNzjsaz4Jm
H36CUy8JU/aFCJXlskCPV58VNkBCevhdH5dSFqTGujfkDpMw6Mx4VeFnFtz8
wAjknCKhjUiIxs4eFkzu57BV/ErC0GI7ltsoC471qOkemiPhURdaGc6yQGk5
4mfcPAkxNp/73T8WRN2vZFb9YfsVl5izmXsOOKR+ZE4tkXDBJ1yczjMH7frH
HLW5yZjDGztwi38ONpVPDibzkDH90FtDuuAcXDa4Zc3PS8Z1m+T8hghzUF1J
7PbmJ6Nf7OKpj+Q5IBqlmw8JkpH8Qj3+lOgcONRAqymRjBTp1+vKxecgd0/b
4QIRMrteSVcnJOeA67MLTVacjJvp+/QY0nNwxJjDJEyKjBalKixf2TlIro+q
nZcl4zvz4qxpuTn4tn+z4ZmNZOy9zR0vKz8HSCsva1Ak43rbvd0SG+fg4cET
utu3kPG7xkRoL5sHGNOFiapkbLniRrPfNAeqZv6a67eS8WprYPVbNt9sJudc
3k5GdfnliAo2049mqgzokLHLjWn+lM1SbQYZJnpkVA37T0WLzW4nvijkIxmV
qSMrsez4H7+4pkgbkfHZG2HNGrYePksu2dC9ZAzLIP7Mp86BVVdM/E8TMurI
X7R3Y+vPOKUsZnOQjMsv29OmZebgb09ldJ0ZGa32iM+qsddvYm1B2HacPZ+k
a67H9ie2/+uDBAsyvumx4RNi+zdpG8i3zoqM1klN2zIpc6A9RAnxtCGjghzP
wga2/8H2Wav77Mgovev7am32/nSMGAbscyJjoEFfK5W9fwpOnf9yzpGx+Lvy
+Be+Oah1XrVw9wIZcVtNYuzqOSBPPfX67knGfPu9Kumcc+B4XvWblTcZH/Ps
jlmzyIJV7ien1G+SUUZveb3KJLveWCynOH8yfsurFHnRz4IXF+4M89whYz9/
xdjbNhbs8szu6b5HRvq/HT6Py1kQ+XO35Z4HZMzTlTp+IZ8Fg5e727Ijyah1
/dfFiTQW+F3lYdx5SsZN7R+4stjnpfSGVYXqazJGlw0bvLRiwYaVb3qx6WSM
F89453mQBaf97havyiKj3ugunhFgn6+AnNzOPLae5waZb2RZsCN47avASjJq
CosvfhyYhYLIvNAvvWRsTVdrnzs4Cw/V7AU1Bsko5HJYq2jnLLjQhaLDRtj1
p0J8q6s4C1K8HkkG02SslNOwS+GYZffb/wozFsgYJ/hY/U7WVzhxIWH0FkEE
e702Dbb/m4H5A8GoaCyC1+7sDfvmPQ2a66zmr+aJ4K7kbaddFCbAtfNG0dMC
ESxaVydgvWECUtKeXy8uFkFlut+pE7/GQdhkmGupnM0+CjzmVeMwF+oicIsm
gn7a6m9TbcYhk89H8c6YCO4T33FtQ+wYyAlGn4ygUDAuUvOcj9gonBwokMwR
p6Cg02ixOPcoRGR3DjRLUfBNelNR8/QIcJhJniVupOAfDYarX8kI9EakeMao
U/DC1Z0hY2dG4AkhNyzehIKHb+RdVMoeBgERZmnadQrybTkd6mMzBEodJ+Q2
+FHw8oOOLTHGQ7Dnae+dS4EUXHsq7H3r1iG4KT5tujOUgnX5T4Wz1w7BrDRP
d2MMBaEn7sVg7iDQFHV/s3Io6NeUPb1PcBAmJitPHntPQRVBLjvnpQFYlWFc
WlhEwXFDn8+pEwOgq2x+x7+cgoaach1hFQOQqX6JQKBTsKmiizrqNQD3dqSq
bp+kIG+tQ/iGmn54tajyKHaGgtz9+yXbk/qh8mP+/D8WBb0CmMWDN/vhr35V
yad5Cqr++tlSpdMPLoZ9+y1XiSJHY8nh9Jw+MDYlOl+XFsWA+NLt77N7YY21
X2LlcVHsKuSPN+7uBj8zX4OvFqK4d7faw5yKbvhr5DUkYiWKLy73nj2Q2g0z
m53l3exE0bZdvFbkSjc0/zmUKuIhiu2uH/QWCN0QFyWd7RosigK99aFvLbqA
FCJqFnNPFBeS0h9TdnVB+HXC94pwUYwmT3i93dwF/vZrtolEiaJ7mdxbx5VO
cFJnFVQkiSLPlp6ymdROUKeVlpE/iOL7J9svKq3qhPTyQluDUlG0eR15wWyu
A+TzcjhdK0QRh9P4k3s6gPzslWHFJ/b3qgT+svwOWHIO/3S+VRTtxbZbNJ3r
gNpV1ozyr6Kov1fIp7vjC5zSXe5zkRHDhPOn0mnN7WBtKhhyhyqG8iopqSNV
7WBnRd2auEkMux9d2iyR3w4u143vtm0RwzunjnRNx7SD78coVdQRw/XzeTFr
bNrhia6KH+mIGLoIP1xY/t4GcaYGSmrHxTDsrLIO11gbJFodazWxEMPX5aus
qZ1t8Pq6r6KftRjyzFec/VDWBu8/1jKnXMSQsbd5cWd4G7Tq2siWB4rh6cgs
y+eqbdBheqmhK0gMaXKp9xTk26DH6s7lXyFiOOqX+v0zpQ2Gr2fUKT0UQ70P
3SUnuNrg+8ffF6PixLC3Lb/9aXsrCOo9rHTJF0PZEBmN2MBWMNWrsCeNi2Hw
5/eFNrMtsE1fJ8tzSgylLu04wD3aAhLwbqHpqxjWXMk4U9rdAl8x6X74TzGU
I1tv8a1rgXAj/4I1XOIozCemxvWqBZj7Ddb/lRDHo927SuXsW6DQtOi4hYw4
eqlN8MqfaoHEA+qJ76ni+PF5w2Gdoy1w8ZCspqeSOF65pDiUwH6PCB/ltJnR
EsdoZWLdoY0tcOxkRU7fEXG84JApQZ1qBt1TOsu6J8SxNa947+JQM8hbvdv7
zFIcnxwmaY90N8Ov00k95rbseB8O/hynNUP0GX+eJjdxlFY0Ts3NaYYOZ4OT
VcHieFIxW3XXrWaw8q7gTC0Vx5YNJYnnqM2QnJ4Z0lghjnlvC5Z8pZphojdG
6Fu1OD5OncqIEW0GTyN32R0N4thRhAnfBZohVEjcoPGLODJGM9ZsWW6Cggwv
v7k5cXyD285FdzaB8IDCijZVAik/+RYsnjaBBYFw9/QmCby0vNLrENUE8Xv+
bQj4TwK5Oe++uBrRBIpvWqUaVCWw5/RsQkFIE4Cvv/5pXQm8Xc4pFOnbBK7E
7hv+xyXwNHx8lnW6CT7tC1+quyuByXLfyjT+a4Lvrn3yGvckMMFMVWJoYxNI
RKgciA2XwFpO6V9P5JrgQic93iVKAlX/1fdKSDQBxUUA1r+QwMAZe9o1Afb7
895Df9NSCbT0c5QJ/s0EPnokD+OnBGbyB0Q4NzJh+/chFa0FCdxx0Vpjoo4J
tuSt5s8X2fksLxm5fWJCnnXLaw8uSVQf87x6t5IJp1kEY0FBSfy4ysTwbyET
sgSj7pltlsREXqH78a+YYHY0RrD1jCRalNfMvwtgQkfayStcjpL4Zt318SI/
dnwOqR41Z0ncpKx1qOYmEy68SXl9310Sv3657T7my4TwNTn6e69JomeopbmZ
JxPqPzS6Fj+WxMIT+6RrHJhgJM9Vl/hJEjXuHT31z5gJjb41Kox6dvxew7cu
+5hwtCn48TJNEvsKFus79zDB7qaA7clWSSTdoBiWGzLBv0PiN2FQEhOiK6Lf
6DGhNExr492/kvh8SvnzKg0maP1y9XdTlsIbCU4J1yWYYOJsPHdPTQq1ZHsp
euJMsOreaJO+VQpja3nCVkSZ4FfRpzuuI4XH0rxSgkSY8Pn+4QXbPVLY9zAq
8pwwEyw2bfM4ZiOFJ7iUDwetZcJV80WrnRFSuP3Klm7iDANC6780WD6WwmdC
+0wGJxkQp5e342qMFOYNXBvJHmdAOdWNkh8vhYmKUkGWwwxYO9fXopIuha7X
Tn1jdDHgSXCliVyVFHLm5v82rWdAUVGI9rpfUqi7EvTRPoMB2ZINe88vSOE9
UcZn+zQGvPLnM6ctSuFIx9FGp9cMeGz84HIElzTusmiNv/yCAe6dj3NEBaVx
C1k9I/8ZA+T+PN+itFkaySYvzhaFsfVqv5fZf0YaR0YvuydcYIBf3G/VNw7S
qCHV+K7XnQHeHDog4CyNZ301T5DdGODw+cPpFndp3Fp7reH+OQboW1TEnrou
jdVH1qpF2THgu3cj0TVGGgWOukmtOs6AkwVDa+/TpDGCK3/7sZ0MyDoQczyf
KY21iivHhnUYwDWyP7m3RRorPyuv8dJmQLpg/k6VLmm0MgKZWE0G/Dl3150x
Jo2R7zf/XFBlgOkG8tRaDhncdzsvZkWeATPlxYf2i8pg22FVfXlBBpD5SFf6
xWSQMVvqOLSBAWjuEecpIYNE25DxJH62P1+pk8+kZdA53vy7/HoG6IrdD5jZ
KIOdEbZzO3gYEOZpk39fQwZnL8iNpyzRYfOmVeLM/TIYP4oM8yk6fJ58KBR0
QAaX1I6pyEzSweGN5FrdQzKYqNvZPTlOh7htWr9eH5HBLI5LEv6jdOAzdGHc
spTBVQV668sG6DBrwwxUPSuDHS+MzL2/0CHnadxMeIAMhj/7pcOooYMOv2bp
gSIZ1JZb/FDzkg7sy3rRYrEM/hsT39iVQoel7LN5aR9lcD3WXGC9oEPpsdj0
1eUy6GBgmyaRTAejuJXokloZbIw/6OmfQIfDm+s9lFtl0Go3zyrPGDqcNbaR
5Wex9Vc2LX4KoUPUnZDbjfKyuMg4rfjFgw6vLlglnN4kizG9SS+k2fz+lGrh
rIIsbvmlkensTod29bZpwc2yGBWbbL/kSgdyn8zR4+qyaHPosq2SCx2ebC+U
7dOTxVjF+e2JDnSIHR8rZZ2QReWe8YtzlnR4bmz0RzhEFkVie4nr99BB7o3x
cE2oLPYWZjc57aZDiuAh2tUwWTxuIkCsMqJD6hfLpL4Hsvilnl/hhiHbL0cP
4/RoWeTeKpI7h3So9Y99apAiiy5adgOsnXSYKZrTuVAmi2bheR9MNeigrRTv
S/sli7u53/acl6HD5CarQPvfskj+lyPxVZqtjyoe9meBrV9b54M7m5cknsZv
XJJFbc5rwp5SdKgQiCq/wSWHdcnhMn4SdDD5FcajIiCH+o2yFzIodLAqvx4Z
riiHB3myrxkJ0eHWCav0Q6fkkOdHWoExNx2uDL4u6LWSQ457JKUBLjq4uv6o
Pm/N5mnZ0StstggI7b97Rg7jCh9te8lJB42sQmL5WTnkVidqruagw8hq0i01
LzlUF2XFNy/RwCSfdlTovhxWvz5OTJ6nAYkIy82lckj087FZP02DmyIlXQHl
cvjPMsQ8Y4oGY2I7CzUq5XB1NuvpfjYXymp5RtbIoVLI9FLYJA1OqqpOmjXK
4Uu9Ok3CBA0STKTbmJ1yODY2bKg8SgNF/5VM+k85vHA77lB0Pw12zJZZ1StR
UZc3opDaRoOm0N8Wp7dQcVO11Z3OVho4K6gen1OmYr+q490HbI6xTThAVqfi
kWN3lZZaaPCz+bq+nRYVs86GTHxppsHbAh2Zv4ZUTHKbk3rKpIG8f+7wf6ep
+KhGZL9BIw34ia9dQh5Qkd9Cd16qmq2PMGi0P4KKQRdHAjqraKBCEJfmf0TF
cbUVw8dsPiz8oOVhNBV/P/C342VzpKC37pN4KjKl7Nf9qaABhX/vhtcZVIxo
sKzqL2Pn4xl/V/2Jimn6lEP1H2iQv1o2LKiOihpKvDtD2Lxn9SmnfQ1UNJJ+
dHQfm8+uYog10tn5rxB5PxXTIJ2rILCljYr3Sr1Da4tooLYSdHxomIq3DINr
aAU0qPhXrpoySsWo5TcXHrD5yL+/65zGqbh19bq9Zmz2XHYvnZyi4jdd7stt
72nwfvGEwrdvVIws82vpz2fnX3zImfuDimUc9W3JbP7yt77b6xcVo5+Eczmx
eeGP/sOFBSrOcm/unsmjQcifqy7Ff6kYu70lKJvNYn9yjK4vUfHgzRgrLzan
L8xI6f9j+0OzsdJm886FTX9WVqi4j4MYtJRLg/8BEmgsng==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$67707#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVl3k4lG0XwKUkomRmzJgZM7ZKKrSK5JwKRUoIkVDWCiWlTfayJKWFiKKk
UN6SCpWIFDIGs9i3VPalRXbf8/0zc/2ueznrfZ5zlA4ft3AVFRER6SJ+/v+v
/vLRxC0DOmTpFNu9GJ/ZYv5vvG965AjoK0nMKVl9Tz/MafGdvohzUJt24Nz2
Ne/1n3fKKHhKhUL+uqd3N+tw9VkUuvfhfZHQyVeYnJPerB+9Q+XD/qRr8OGo
7bvLO37oT+vJRSz/dQPi+l+9cx0b0l8vSHyuLBcHWyq4Fn0v/uofO85uUNBN
gLCVuyQkDab0HyxImyPvkASOhZ1pgvo5UJ+qpk4OuQ/HSvVWTkyJQUSydYa4
ZSpcLB56NXtVElR672wR+/4ArObatJ+5shgKNzbViJ5Jg95Lfh3nzsuCXaiC
m4hEOlz68uicqCsFYpkPYiZXZYDFmRzRO40MWHWkS3m8MBMG7/4r1nZlw5dX
y96M7n0K7dpnO51vKMHMnqy2kVP/gT3d32c4ZSl8rRrNPxP6HI4LTzsFVi8H
+h9qmJ/pC1D/u3o9g6YOr9GOdqo1B4Yz69IW/9OAee4XOk8+fgm9//I4CWVa
YHE16anPiVzw/0dNuMhaCwMNrXhc9DVcVi6+f/nPelD1dT5ydFk+jKa9ldu4
aTOcTAhbd2QoH4LaJPK8uvWg6MOjafe8AsiJDKuSeaQPB6S6Y11N3gGt/O6T
l0pb4cYjzwIn7w+wsdb/8kUJQxj+bvTxP0YRFN6vSEiQNQK5czbLNYOK4G9h
vkaB0g5wuX92ZLVxMey/KuAPmxuDSH/BpZVNH+Fos0/C1fHdsDywsjcTSkB7
7qm5y9eawR7ZZjP1tBKgvrzGN9m0F5I2Tcuv8CqFFh+xOq9Ac9C+BNnLZj/B
bJia+QatfeDNKhUoqZSD0u411/bL24Eq5+ROyvVyoDrce0D6YweNF5UKFkyX
wwP6zwbx2gOwoyUgeUhQAVL5y4xi4g+CYpKOy/uor1AVYKx0IM0JauX/G9n/
qxp2HGwc3ZPiAqVd2WvSNblAOm9e9mKZK6ToXe5lu3FB7IbWpfhsV7DuX29P
quNCpoHk5+8f3eDjrhsw8bQG3g3ez3Ke9oC7krvnf3GqA68u7/0peV7gd1j1
w9b4Olg7YH85xNobLAomz7ytqoMCuUu53L/esOBoZk+2Lg8Ks1mNVswTcKpc
vOo2mQ/SE1WP7rr7wO6Ijzedvwhguu/ivO3sUzArtklpVrMR2q/eDPi66Dzk
hG570Xy4EVp1hGlJnufBZc7urQW3G+H05ZMSkxXn4cvUoUOnJxthTP5nr1Pk
Bbj++0pqX1kTRKiX8j5JXQTFjjal+oMtsO/kqh6OXBAotm6PrTdsh9XFO0Js
jobC1vy+2Be+3+DRl5SYni9R4N2c/yAl+hvUvSu94Tz/CiTOhr+89ugbiKS/
30YyuAJ/DFX5XsJv8J/Vog7ZoiuQXmtPU9/cBc1WOwqvFkTDwv6qew9Ev0Oo
f1H9jvwY4LOeZ92M/QHlx0qdt3vHwpGwU59O/9cDt+4Xy5jV3waD6OOHtugM
w+Fnu1fpG6ZA8Toby2mn3/Dd+75ve+0jyP+gmXnw6yiE/8lNmzB7CqoCVfrn
5ROgK5v0YzbsBcwYm057GU9DT2vGHu1PuaBunvPAzkYETx8qlOA45YHUUxsR
hYE5uKsVVj6seAtqpld6v52fixnLo0fNl3+AYAdt8QvqYvi2/8ITT9diuHHf
v0Xr/XwM2pNq7EMugXYL3R+vfRbgkmap4OKOUvDYdfnCVpYkqh1xsGi8VwaP
Tx6r6H22EG03zur2b/gCqlLlu1wcpXH3w2fqG7+Xw37eh8tTvxdhltupvF1e
leASTj2/1koG19W8TpWXrAKdHXL/PFYtQZLePJbqLQ4cvdfB1fi7BNtuZW9o
7K+GrHfPIm6PLcEqy+Clz0aqob/xHE5NLkFdZnNh8Gg1HKfKPi8XlUWzmHXb
aCJcOHV92zUXGVlcNo76PAkuBIQ83J24Uha9TmuWxipw4Yaba4XYYVkcXXTJ
L8uIC3Vha0I8XWURe1YM7DPmAvnhtE6dB3HfjdysOaZciG+7nZFyXBYrLpyx
cDXnQtL+sojNF2Vx7ceEcBt7LqSbLN/hc0cWh71jSsdPcqFAo6ekmUPcPzZv
qvwhF2wD1fIlamWRYdJL56RzYazaPXsjXxb3VW51F2ZwYYPPjzvXm2Rxc+8N
7vh/XHj+8puXQbcs3n8n1xn4jguPNrVSn84hoXBvpliqgAsGkQrSDfNIGLNk
eZRIIxc6G+xF5y8gITtq5pBbCxcULzT1Oy4iodzfNGvDLi4kvq8vJjFIaADH
Dlv84sL1bXXHLqwnYfvN0cT8xTWgcVP20BNtEj44zVsTTqqBqm/m1nxdEq76
z8XUnloDkpe4qLmVhM1b2XYK7Bq49LmK8m03CQeaG8emNGrgvOmXDybuJBRf
ecdz+94akE8Wf3XmKAlTD904cmNfDeQNGGWmeZGQ9ERsae/+Gvgb8+nWjC8J
K7f5Lc89VAMnaj4eyQkiIX1JytVc3xpYpCzq2BZK6MvSfbHrbA08O7l1n1Q4
CQ9i4vp+/xroJRXpu10lYWaY/FPjyzUQ6TK77uZ1Eu5UkCiff6UG1F7pryi6
SdjzxjG+6loNlIkFsAbiSJiedn/lvVs14Gr9nkRPJKFTmlXi2YQaiCmhyGon
k3DhjZjTuemEvlreMvtSSPjkxbuVWwtroCO5bJHPQxJGaYmGbOMT/ljIlo5J
J/ZfE1ta0FcD2R+C5ou+JGHb/Mf7bbEWhKsa5rFfk9A1dGepzr5aEElcM1cv
n4jHJt8Hie61YHGqc/b0B8I/rz9Ed0XXwj81g/GeShJevVGkW15TC4pxSf/m
V5PQofu2ZUtHLZjM/ftXpZaEWJefFThSC0ktj34drCdh3/L3VL/FdfDJZGb4
fBMJWREJz6oU6mDwjfVQfCsJVxwtvFywsg7whnh/TRcJlZOPkQ8Y1cGRWcfe
wZ8khPGqfbKWdXDDM697YR8Jrw2sGnZ1rIMuoyPfDUdI+PaF6sEevzqInKxo
zZ8moV3hN9ubqXWQ46HSIhAh479An5eOWXXQzL/Q9HsuGXVDb9QKcutA4/mq
+tWSZHyZa5T9tawObBQuCUykyXh61S6yWXUdBEW18NxlyNh39tONUGEd1LrE
1KTKkfEOO0ZH8mcdTNb8qC6UJ6NSvTrFabAOVAE4TUwyiig3Hj/+tw785Icr
KCpknFJOlvsoygMGx7w0UpOMPRfG7x6j88Bgc+bH9LXE+mBVQzGbB95PRItL
NpDRuYd5v12VB0UhL99PbyZjcFDlgUANHvQMLXxHBzJ+z5dRnbuOB7IHXQq0
t5Hxz8u7FBttHrhoU9747CTjLLtV5Qzw4Gqa16uYXWT02b6fsWM7D14vKXuZ
tYeMZ6KSRwaNeLCg3+/5931kLOq8N121mwfPUuozbA+RcWOvgoaIHQ8KZm7v
LHAh7BnQLRA5yIMv9pY/6R6Ev2T0MrocedBF46g2e5ORnWzw1cmVB/TYkvsO
/mSifl029TnOA7WhIP0PgYT+TT8leD482LBbv4UdSsbReTuvaZziwV6JfHpH
JBlzg+cZ8s/y4HJw9m3neDKKvVs8Z20ID261HVtfmkjGpeHk+LthPEjdsqJO
9R4ZJ3MCPi8J58G78YcyP9LIOCCxIlgjmgcVNof+M3pCxiOMYMvGGB7Uv2Lt
eZxFRjs7b4vkWB789km44pFDxlN6cy74xvNAhGutXv6KjLaGHpNXEnmwSINc
viKfjCt3/LQqS+aBem/M/L4PZFSWOWeblcaDTTtNH+0qIaPju1G3A094YJgu
YfC0jIyvVh6mbnrKA6fDYcFeVWQcW5WqF5JLxLNoqyKHS8hXiVT5m8eDC6zZ
Qg0eGfMehcfef8+DuMZzU0ONZDy3rGD80WcepG3Svru3lYwZC576ilfxICfu
j86LDjL66WudyqrlQZXF8TMnu8n44MJ6RlkrDxqfr5Kr6yOj+g+G2bbvPOhe
1Ju7boiMj4+6qEr182BepcuvP3/J2B/3vP3mBJEvK5RjrcbJuFnp02EbUT6w
w9s0X0+RMTzK/p2vJB90t9t5nZlLwT2cGf2PDD7sTKVK1c+nYJZkqcyEKh+s
ZnmZmyQpWNETtDBOgw8n3pp1j8tQUM+Z3S62nQ8B8tLhdmQKVre6nGjbzYfo
MxVL31IpmPbhSJyaLR8erzN09mdR8GnINhWKDx9yY0VFW5QoeO6Typ7Ci3z4
OPQhZctSChZptMV1RvGBu/si3FOj4B23om9hd/jQmqXbOrOSguKGX5hP0vnQ
LzHm76hJwamapyvNXvFh3P0Vo2gtBc0NGyb9S/kwv+xkgeJGCi7gFA2kNvKB
rKplG6xDwS7fncO7RvgQmOu04YkeBa/uOL4zfb4Aeg1il1QDBfV13AI3MgVQ
5PqrnGlEwf+mPquL7xSA5+Nc3TwLChZazrfiPhCAUPu7XJsVBXmy4SexQADb
vlB+i9lS8P3G/p9zawVA6/HLsnQk7n+t9uGmqBBK1XWYQ8co+DrASQgeQtB8
e2SMcpyCBmPLD74MEULirkSe3kkKXlA9tvlOshBOeE5GR52l4LBS34pPPCEw
s99PL71EQdm1sofkjOvh9Jptbfb3KKjsdefdiGkDtBeffBuaSsFPGeR+wxMN
YGrxMD4zjYKdxqULjW81gLLvvL1jmRQ8uPNz5bHWBuDklhXdfENB8sia27EX
GkHH8F9SQQFhT7ppQGVaI6Txl5/reE/BIeW3g3WcRjg/GrFGs5SI/yUHW6el
TbBs064HFVwKLtna5idsboLYLxcCRuoo+I/94+lfqWaY2v/Ujiak4GrNrghR
/WaoPSdNcmuh4MNzFkfHHjRDwNvq0Dm9FDR7cJhTdrYFBPr7XDfNlcNhBvaE
2bTBsqKejgfz5TBJb8+Xf8ltcHproIO0pBw21SzJ435vA7JBpk2njBxWFtxY
76LXDhbGIibRLDkMFPd/HMZrhwcVt8tGleRw/+jT7pqpdhjZtXL7oaVySDWK
50os64Dre6z1Nq4i9p8OmdxyoQM4lk812nUIVl2dLtDqBBZ/a5bJFjkcXZAq
esepE7yshctfoRzqZ1S3msZ2gpStqFLUDjmkrVhw5fbfTjBx2E9abyWHH6PT
JovLv0GZx7yx8BNyGOUY0B+S+h3kehNO/fKVw/7U4zzRju/gekxzxP6MHBau
rl3to/gD5nnb9a4JkMMj4joW1x78gG2+z5ubrsjhPAfx4xdf/YTCi/bFmo/l
0Jlzy2MFuRcWzY5sScyUw1c3jZYsc+2Fg0HhBfOyCX8k/dyEb3phKiTnZUOu
HP7K8/pY4tAHuhEL0kM/ymGy6YprZQX98OZGbpSwRQ5zx1bSnqYNwXUtZ5m1
HXL4oEpcd4/oMBzlLImL7pLDaYOqyvdrh4EleTx1a58ccvqyt5nfHibq9Yq8
rDE5FMOfc5scR8D6xL3vgSQqqu+wk6mY/xtGd0egmjEVH/5iis0LHgVu38ay
EFMqFjyhJM/JH4XMyO+7WsyoWNtZsK1peBQcPm2zuWFNxWePc/5b6vQPyvSm
vaacqWh1ZPuPxM1jkNKY9dvanYrLC7xKb/qMwfmzdudeHKUS9TykXeHxGGjk
vglz86FiOr/Q87bMOMStPHmXG0BFgwr/9vTmcThRrqi0MoSK69UwWG3RBJi4
V6dfukTFy0Ynf4jCBMw8WJWjG03o7zD6ofHeBLjRf35JS6DilK1Z+32rScC8
23tmk6h4tSVkSj54EujWBjzbFCp+8F1Xl5A1CZzY1LZFjwl9zY4O6ExPwgYJ
+9GzuVR8nnjlu+jNKfBsuJif8IaKHrqHf+x4OQVpGff9CwqoaFl0mRFcOwWy
Jt9Ep4qomFK/bFWD9DSY0MXKmKVUPFAc4ta0YhqCe5dFbvlMxV2Z5a/zDKZh
OOro4sAqKtKWhr/v8ZsGtQPRtfe5VAw9Mj2tGTMNjiuzbxfVEf586eWqkjYN
cZPV+zsEVDzZPW6RmzcNnMoRhmgjFb2Pvzg/WzkN85NIbcotVDwnSHWY2zoN
Wzw3PNjeTsXG0H1BhYPTcErPxtXlGxX3v+Y4ac5Mw1Opc2qXflBx5aXYoH1S
M9DVnNj3qIeKI20JjqvkZ4Dx7F12WT8Vw7pE3d6ozoDFxVafn0NU1PJ2Efml
MQNRu0U2LPhNRYjneDZqz0CxgvKY2igV3X6a/PKGGRgb2P7WeJyKFSu3CZ8Z
zoBWoWvA0Skqjvn5H7ptMgPuMeFbr8xSsVVRSaCyZwbuOWTMeypKwx7zYZbZ
3hkQaFR+/ipGw4WiIs8o5jMgPdsfNbCAhiNfZjlBxLpB9aI9i6RoONd30/Pr
xHn/+1pLNBfTsKzAzN9w1wy8PG7BM5OlIW/nTsf7RjPQC6fiT1Bo2P4y+NI9
nAFlmTi7WBoNx7u76kFnBuza3yjkMGjYxj7U4KI1A7HPG9prWTT081aRXr9s
Br4ETT78rUTsr8yufEGfARFzBXfyUhpav5c83ik9A9pKoL5BjYY7rEosK2an
wXvEacBqJQ3XrO+p9xqehpbYNN/4NTQ8JDkumMOZBvLhso1562k4X3UjfbZg
GkzXdo/Xa9NwUImT/Dl9GgpqVwbR9Wm4+7lnXtn5afj1YPf2zVtp+IS57uJc
52lY4Xt8vr0BDfWX8lqoJtNwh/QyOtmEhgaPKjryydPA/cYzK9xNw7148LLB
2BSI547Ktu2loccT4/z8xinw26eboGhDw7NiFdsCk6Zg3+3iRw+daRikertE
kzwF0a7fPErdaPj4Z0LI56FJKNkgtur7ERr21bldC6mYhLWCnTnLTtDwXUh2
Q/DFSVhM5RZm+NMwrGiu/vXGCVCvt1ZeFETDc1bW+5KfToBRQsulk6E0vN/d
OzlwcQICGH2mm6NoeEMhzf0MawIG2fObvsbTUHGq4cKwzThUqen9G8oh4k0a
XDqV8w+u6D7R3NhDwxUdH8a+7foD6ZMaNxP7afj7t4TfJ8of+Pju1ejMEA1L
aCrm3LbfMKFf8v7zKA3zu55XnDn1G45ub91lO08enUqYXp9TfoGxKdnDny2P
a+asdVi4cARcpO9WtivLY/aPhdbjDcMQxFHSNFwmjy8rON9MM4Yhb6/mqPRq
ebTMe22uYTwMalYmYfd15bFhb5z9ZuYQiDsEpXy0kkd3Ri7tzsF+CDI/v3Vg
vzxCRIBFz+J+mDA41Um1l8cx7/f9GiV90L/SQ9XrsDxq+BnvfryqD2rHzZ5Q
j8vjdp1HRckSvZB0m/3cM0IeTST9hpd0/wRKpLx5/BV5jFk2dLv88U+I8Sf9
Ko6Rx12m6nOcPX5CsLP4eupteVym90IZ+n+A25qhN8Wp8tiUb3M2b+Y7rKkq
/CD3Vh7/+T3PumbWBZlFeU5bC+XRI+Ds3SaFLlDNzZnjWSyPJRWSB+UHvoHc
3fTtxZ/l8dPf/5y9Y77BlEfM52M8eVyR+L6dIuyE0/YRHnFCeZSJk/Gsz+iE
QbMQieJGebxUZtJvfLETOjb67ZLrkMfByynx65Z1Qtk8h+qiAXnsLFk1/Tew
A2DM5kTfsDzODzNLmLe/A/L6zJfI/ZFHhsrVrFdaHZBVa2h5bEIe3zZJdI59
a4frKauFFHE68rUXrBOat8MBvenWo4p07PcbyKHfbAUHU5nISyp0HDU/6aVj
0wqH7VXWpSyjY3mI7XJHZisc9TcO56+iYx+7cefLjBY4/+62JurQMWi/y8vl
XKKf+fqkwU6PjpYlW74vT2qGkOa3oaeBjo8dak3kjjRD5FSHMNOQjvcrFVa9
EGuGO3oaQRQLOraeL9kRbtwESaZb1bWs6Ji+MUAlldkEKfb7eCb76WhUR525
NtwIj/3PqwU50DG/cMtoW2IjvH5Xxu09SscQo5SQobEG4Ok5KhWF0lE/1nDF
lLAe6k1PVjZepqOwu6S863U9NNtfOv03ko70ueUl3nH18M0/q1z9Oh3HXSJS
bW3q4Ud0oa/hTTrGL3wz9HJTPfQm1Sg4xdGxca2V5wN6Pfx698/ndhId/b9Y
P9jeJYTRr5LM5/fpuDROZeevSiFMNCuUVTwg9L0womSfK4Q509vpIhl0XNit
PH9/uBBktlz/ePQVHc+0RNtnbxACefdDz0t5xPl/SX5/lIVAO/haLuUtHYfP
MjidMkJgX2w+yi+mo/if/gfZgwJQvjpEHi6l4z3BP8vwVgEsSxb9IPmFjj9/
t2fMcASg8V6NhBw6brtmce/DCwGsrdr83q6Gji7/cd3mpQlgY8se99M8Otrt
oam1xglgy/Spt5mNdPylHtZkFCAAlI5w/dRC7C9pGuCeFICBwt3F7e103Hnd
WeeHuwBMtxQ7U37SUenAbPYTSwGs19fJ9u0l4r+m2P2KsQCY8GKsZoCOThXm
W+ajAObhiu1aI3Rkn92yQE5bAAOYejXmDx1v3XW8/0ZDAIKt8vX9/4j1tE7h
z2UCKNwWq7xrko53F+Olh2wBxBgEvxEXZeB2s8nQ57IC8DMcn+MmxsBkd6Hv
pJQAHIx8TEsXMNDwWBTlk7gAjHb0xClLMfCaovx6ybkC0Nx5qCNoMQP32Avv
fJ7hA824YWWbLAMb5ngsnJjgg4iJud8WOQaKzH1vfu8fH7pNyovuyjOQ4kTV
evGHmL92bV04wSSa8eXiRzR/8SHPNN9qvyIDK88ce08Z5kPK7jUpr1UYGHnh
ZL/TIB8i9mT0kpcz8KRXwkvpAT74mClt8FVnoEXcUw6tnw92exMCa1Yz0G/3
538BfXzYZr6kQnMNA5+MWf7UI1jdIpIcs56Ba6Sk9pkRLGs5x7Ffm4FNkmO/
cgiesDyXYbKZgYOXjp9xIe7r3Dfy+4k+sV9B/qYTIa/C6oi++DYG9gX0/n1I
6PPSuiPC1ZCB7e5qe1YS+ibZ2NaV7GSg1UO3nb+J+S9sf42CsikDpRdGXBv7
zQdPW2OPIDMG7gov/Ko9yod9dsU5rRYMrF505fGzMT7oHdCZ1rNmYHP6+0/W
k3xQtX+x464tAzWdT1dqEv79ezC12caJgcvbL1Bc5gmg1UF++WtnBpbK3ErI
I+JT5hjrQ3Zn4D3D0jDNhQKIOxQ8v8aLgSc2u077EfENODy+V9OHgQfaqe9R
TgBuzj53r55ioIe52042XQDaroe0TC4w0Gj2A0laWQD1HlvtSiIYaBlJst+1
lphXj+SnKUUzUGWFmvOBjQJ4cnTNUOA1BuY05zxz0RXAOU+lML04Bpq//qtm
tU0Ah70SOIkJDNRn2jpvMBKAifcS+fEkBj6gRP4RMREA/cSc7FcPGSjeKck0
NReAqM+5MdJjIh4eQdml+4h52Wdk28lMBtb2Slyn7xdA7ckjV7nPiPz5EaBr
ckAAb307hBovGGjyU2zZXgcBpJ2yVb6ay8A7keRytUMCiD5d49n3hoFpfsfv
cJ0FcMrP+I3xWwbGuqmLG7gJwP5M8ZwnhQycp/jkcqCHAB5kPo38WsxAmyXr
VjgeFUB3S/ySkVIGRicw6Qs8ife/JDSB8oWBL9OqfM54CcDXwFtJt5KBswvc
d2R6CyDvjG2GA4eB5ZeLnycfF8BMpsGa0BoGxnzx+rjnBPHeWzXzH/MYOHA4
91oBwVFLGFu/ChmYxbut3kow12B++XAjA19crnj4mmDK2ZG9lFYGSn39KLmV
YLus5nqdDiI/O9K9zhP3p7R+dnLoYuDTIesGR0L+jyUvu0N+MvDD/GO2g4S+
qwzvnXjcy8DPyuvGlI8J4OTZyLHKAQaGrXhTOEHY+ybrVNAwMQy39r7OPUn4
Y6rVcQHlD5HPipnt4YS/tsnuuq7zj4Gvjxft0HYSQIThRprDBANfuXYMXLQX
AOesUkrINJHvF57y9xPxIT+VUnsswsQ1pHMin4j6Zdv277/KuUyUOG/t/WGP
ALoMOR/Ikkw8eJ4mbbldAOrn8nfoSDNxEb7U/qEngBNP06oPyjBReXXlnckN
Anjdds0mhMREGSVx9etEPZuUvdCWLsdE3++fvqUQ9QyN3Nwr5ZkopsF6r84S
wOVz5kNDTCam3WnNUqcIQLZ9+ewmFSbubT2SGDRHAPtJpPCDy5jIDz8SyCXe
X7LRzKKQFYQ+w7oGUcT7V3vGY1VqMrE78+EKzTo+eLd/SB9ay8TLTM2l5DI+
5JKyNMgbmWgTfeq1dR4f4Hyw/kE9Jtq9mtranUi892eeZcHAxJ1tv6TWXCHq
RbvNnvRtTGzqllhceZ4P1js0HIZ2EvpGd+/6YUPUA3LTxWArJoZ2lLofluBD
zo4ysfT9TOSeoOa2/ObB2PkXVysOMDEgkqcX28KD0I7wZNJhJt6MbvC6lc2D
L2TfpZtcmchskv3ScpsHi3Y6PLP3YCJcSPho4c+DxOz17x95M3FLxP7BHCMe
tHewDSt8CH0zt36OV+fBUsrCqsFTTHwS0XDtrjQPnl/oaNa+wMSPvw+u+c2t
g887Y6bKw5kYKDu8MdK0Dn55tqquvcLE2u5PC8WW1QEzVmN3YgwTtUYEf21n
auFEAyf56G0merV0xAdk1ULiNKus9g4TKQ+jZI2CaqFU6figbhITTR2+LhdY
1gLt6GJY+JCJiw+I3IJ/NbAtxtHdN52J57LP3pf5XAOeOf9da8pgohojLjvh
dg3ECWbfbH/GRNkejXjB4RoonjBrz3rORIbRvtUlGjXQz0pZQM5lorfa9wPG
MjUgt31Yy/8NE1f3UY1OMmsA3dG2q4CJVzZP0T6q1cDRK9eDTQuZWLPFmrpp
Qw3c+q89I7eYkL8xKrRuaw0U1mnVMj8R+RyVdP/mnhqQZdYoD1QyMcUvZiDA
owbePl1SerWBiZYN0v/6k2tAinNjfvUfJl5UoukELKqFjb86NbTHmLgiMi5O
UqEWnOTW2dyfZGJ5jknsfytrIdeh7vFxUQXkRseYonEtHBwiGcvIKODH1SrG
7pdqIVvm9hXzlQrYfLD9lsKcOjC3jJfhHVLAyiU7UjJEeFCfYecn6qqAbXNv
8nIX88BJhNWs5aGA8W1pIR9YPDjxLO3xVW8FdHh58hFXjwcx4jn6Oy4o4HCs
pnv1WR5UvP3qWXBLAZ8Xf/n3ZIgHFrLXa7vjFVCn6kfGgRkeNHhYbqLeVcC9
c5fS50oT329K49xTqQqobKvkv1qdD+InfiauzlZA1YK5ai3OfDBQFS1P+ayA
EmtuwSIeH76e/6RRXaGAyfcu3Cjo4INlTcSt6SoFPJ86fm/vEB8OByx2suMp
YHjTfXltSQEE1zP/kToUkHN2+F+DPtGvRGsvDZ8g7Aky9294QPQf3yaiXk0r
YOCGd/OqsgVQpVM4/E2EhTrkveP3CgTQ/MPgHYqzUJqTYtxUI4AJtLCcILFw
DS/nSOoM8X376xnstZqFS5NqOcV7hWDiYTx8RYuFyw2Nt8nZCcG+aalj5joW
eg9NmYGzEIKKW/V+6rAw7cDQaanTQvhyde+YkxEL3aRkgwLjhNAosto90JiF
5+7aHnC9J4R+XwlBsikLTc79t5WeTvSjdh9fNlqwkGs2dHiQ6Ff3L1t/fJ8j
C9fe69q7iiuEowkyrScPs3DJ5rttfgIh+EsNmMa6srA540BDVLMQUn49Uucc
Y+FHo7FNUt1CyHENSej3ZuF7yFp3dkAIpfUOCxaeZOHhFEpJ5i8hdBdSf+w4
y8JHxxvKnKaIfnnNn31uF1goHBqs6hSpB6lH3JKwABZ2Tqy7piZWDyzas7UP
g1n4GBws10jUg9aVyNTiMBZ2UdoPT0nVw7YZV5n2cBaqBXSLRcrUwz6fbYEz
USxsV3IOE5Dqwa2LNciMYeEOy7GlXXL1cNZm0n5zLOEPaem1L+TrIapCWGl7
i4WH/nwc0mPWQ9KWXN2z8Sws3Tf26DKrHrKfX8+IS2Qhqu68e1WxHopUvGiv
klloOEdSzly5HmrjjMPrUliosM7CnqtSD10Sy0ZHHrKwL2PkpeTSehj1F3WV
eczChzOnD88SvGC4tU4jk4VU3xXPni2rB7rz2227n7Gwe0S2gby8HlYJ4l8c
e87CW4tG1dcTrG98SjHqJQuPi1n+lCR477u91568ZuGDt24Wd4jzhzVXz5Tl
s1Djg/rzJuL+Uw8kvL6/I+QbWRnwVOvhMuVH09wiFkastbUIJvS7E/HRRLmE
hdGSbgqdSvWQOXkvH8tYuFfEo/svux7eeV9QcyxnoeSg+OhbhXrgdNjEX/xK
+MM6K2Idox7a962fn1TNwoNupzoP0Ih56LPM6YJaFt4Y2Wq4nlIP8zYPfKvn
s3Dw9H+/3i6pB7nscot/9SxslKes+iVdD2pK6cWUZhbGPg1fKyDiqXsrRGt9
G5Hf6fVG7kS8TcUd71t0sjB8eVxGGpEPJwaoF691szAsVv+A0qgQQpz+9D3r
Y6H6gr8rHIeFcKuOa/d1kIWZyv8ZGfUKIT8/cpPEX2J/SrubdIsQnitU7jg2
xsI5BfGrd/OFkB4sZVM1yUKtt8qWKlXEeeNrp2NF2fhOWNYc81YIUc+4Yb/F
2GhKFTFXzhFC8BLZW1YSbOy5vNtg5xMheDfcypGXYeNrrnPpjptCcNkiKL5A
YuMrSWcHdoQQDqRSa1rk2Oi0/lvsJX8h7DySOJSqwEb3JzVN48R7VR6/v0p9
JRu5QyOhbqv/P+91bI7WYGPFYpnT8SwhLC5W3jW4ho0n5i1SMVsshKmIR0dy
NrHxd5ZX0Z4hYl6iZaXrGrGxzeqVtm+GAL76979KMibkSew3LiTmuZL21Z9m
TNl4zbJPJSJUAM+fPP/20ZKNWY0i624R/WjUpteKuw6x0feu2T0fMQEEJf3T
fObCRsrZY21xxLxwRkQHFnuw0SNKt3WtkA8uX94erPNmo72Xx4LKdD7o7y9O
PODPxpsJDQ8cgQ/r34lmvg9ko4jCL3eWKh9WKhrks0PZqGKx9suuBcS81V0m
/BZJ+LNlbOsghwe/znwle8azseTIN/sNVjzobpJW5SSyMXdcEk038KANzNZp
3WPj4VtBYeVkHnwVrzX/k8ZGva6L0r9r6iA9Xhjjn8PGOW6nZL4b1IHdm84F
V6vY+EVtocYBKeJ7tDve6hWXjfLXL11f/b0GRLt2PWipY+OblBWpx97XQKbM
q80ajWxsUgu2X+5ZAzPpRyKsW9gonLN7z8NtNWCxhcUPaGfjoh2+/uG0Ghg/
Eu5d/YON1VV/aZc+csFURO/tvx42KsSv/5oUx4WUuGFxxQGCm28Yyh/lwp9V
j/btHCbyQaomfVyPCztLbFNP/GZjZIvHki2LuZBku2jwzigb8wLZYu2fqmF4
6KNu8Tgby+7VT54srQaDy2fCe6bY+JIWcEC8pBpMF8n1LhBRRMnoEyrJxdXg
Z3tCJnmOIu4kyViuL6qGlLSKjWvmKmKTwbuer4XV8Ec3MNR2viKe8XxtLPqu
GpLcu5mZUooYt/fMx4uvq6G/qMBsl7wiftyYLv4mqxrkpCh+bXRFzFEKOuCS
WQ1oczzJl6mITqPyUqSMarg1oNJzl62InazuoFPp1aBHvxrSv5SQJzBN35Fa
DdG+jq+urlXEkR/njDXiq2HlsnkM7i5F3FN6UHEstBq+9Fxfcnm3Il7x+D71
OqQaXJ4pLNAzU0Tzpq79Z4IJ/dZr/31soYizvXeuTAVUg9T2o9WBtoroIcsp
pp2vhkFHbqimuyLuG264F3+iGnISkvpjQhQxLDrq0BOHathzcMU3gzBFNGQY
WN0+WA29iq8bJi4pYoZRREaofTWoPKkuc4tUxDcqD4+72BH2vBZN1b+uiGO/
kq02WhP+rPOwGkxWxAQd9Qf0PdWgI72hcHe+Iupq2XS16FcD3XFP/mSBIrap
lyiNb6mGqefuuRnvFLEn6vQNCsGF+xIzxYoU8ejnYAmLzUT8kmbj3pcpIseg
Q6tBuxr2rqw4vpqniM3vGs6w11SDu7GjkvSQIg7a99iHqVbDzrtnmW+HFXFh
2fmREpVqUB+IpR75pYj0Ezlx8wjuv14q/emvIt7RvbUoUqkaTtavmPCfUsRP
Medv3WNVQ4D7n9p+CSUs0fYen6BVw+1LkWFfVZXw+AK2pM+iakg/YX/v4DIl
1JpjodskXQ2vD2jmDS5XwsWFR7SNCBas4ffJrFTCTe8P3GJJEfnQqmhptUYJ
qXZv39dLVMOdjXlKrVuU8N2fvcM+YtWQ+PNH4ZC1EoKQU641zYH7xgbjspFK
mPPtonn6IAc2qSefr/pLsEXHvOQKDvQssw91/qeEc2/nTFMJTlRhRI+PKaHS
C1G7m+UcmGImJC+dUsKq6Vt6V75woHjx7aKLosq4u/v5o8AyDpj8jZ6vsVgZ
38VWdJ//yAH7Iv8bMWrKODRxcl1BAQcCre0zzQ4oY3pOorflUw74dTx+02Kv
jO5aGYbdWRzw9PxdesxBGc32zpy8SPD+kKi28EPK+KGtvvpJJgfWZueRi9yV
8fuc6qtzMzjQJUYJ1DpFrLdYjH55RMh/VWW55Koy9lzJMrtxnwMUMkzXFirj
kqoED8otDgRQ3zeGFCnjM1Yf481NDvygb85b+1EZ25fdWG5LcJ6Stu+NT8p4
tf6H0b0bHLDT1Owx/6qMv6w/31sVy4F7Jmw+t4GQ/+bVBdsYDqgFzz7l/FFG
ddtbKr8iOKA7+MG+Ql0FK4PnHZYJ5IA0+fHRyGsqGGN27dQxb+I8qcNgV6wK
ppjNslkEa5AYbOmbKrj4bZlYjRcH9speq7sep4L3sxWDtAm+IXNG706yCvpm
HtQQ9+QATXrHosdZKjgmvO784ggHVOf/fFH6WQXb7YKKtFw58EpMKfpyuQpu
pB690+vCASOxA247K1VQJOjhkzSC3edV079yVFBs4r2PPMGZom9C6/gqOPj0
TpqYMwe0Zi9bdX5TwX8VVf7dTkR8Z4o0076rYBRPueYRwRYzExJuP1UwcN59
e2eCfae9C3t6VVDg8IHW5siB15PWy0dGVHDCxl+lwYGQP3l9zsvfKuiY+FPj
DsHCiYqmU38Je+KaT9gQPDauf31sTAVlNpDuCA5yIHL87NGCCRXUtll1MY5g
+niOgf+UCpqsDbhjTXDmWD9Lf0YF5xr/6ZEjePPYsvHZWRV8JnbeR2jPgf8B
vrCP3Q==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$67707#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\[Beta]", TraditionalForm], 
       FormBox["\"c(\[Beta])\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{Automatic, Automatic}, {
       Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}], 
       RowBox[{"n", "\[LongEqual]", "16"}]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.789892956413993*^9, 3.7898929737838*^9}, {
   3.7898931796488657`*^9, 3.789893185478931*^9}, 3.789893717676383*^9, 
   3.789896892805759*^9, 3.789896932602099*^9, {3.7899326251012287`*^9, 
   3.78993264237978*^9}, {3.789932679168812*^9, 3.7899327107492943`*^9}, 
   3.7905000315139427`*^9, 3.790500838648793*^9, 3.790500910351964*^9, {
   3.790502567475996*^9, 3.790502576644142*^9}, 3.7905026149063463`*^9, 
   3.790680757682643*^9, {3.790681246578779*^9, 3.790681261868206*^9}, 
   3.790681309259865*^9, 3.790681406243614*^9, 3.790685469194167*^9, 
   3.790685547079666*^9, 3.790685601758918*^9, 3.790685715830799*^9, {
   3.790686478036804*^9, 3.790686534979245*^9}},
 CellLabel->
  "Out[269]=",ExpressionUUID->"e1f95041-b6aa-4781-9b15-f8e2c4b7aff3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", 
      RowBox[{"c8", "[", "x", "]"}], ",", 
      RowBox[{"c12", "[", "x", "]"}], ",", 
      RowBox[{"c16", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0.00001", ",", "25"}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", "\"\<c(\[Beta]) / \[Beta]\>\""}], "}"}]}], ",", 
    
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
       ",", 
       RowBox[{"n", "\[Equal]", "8"}], ",", 
       RowBox[{"n", "\[Equal]", "12"}], ",", 
       RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ColorData", "[", "97", "]"}], "/@", 
        RowBox[{"Range", "[", "3", "]"}]}], ",", "Black"}], "]"}]}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7897457807422733`*^9, 3.789745832490975*^9}, {
   3.7897459208379374`*^9, 3.789745986715302*^9}, {3.7897460206302223`*^9, 
   3.7897460455314837`*^9}, {3.789746088758369*^9, 3.7897460916675463`*^9}, {
   3.789746404389237*^9, 3.7897464044512587`*^9}, {3.7897468671247663`*^9, 
   3.7897469324195147`*^9}, {3.7898168197536173`*^9, 
   3.7898169067292557`*^9}, {3.7898195108437023`*^9, 
   3.7898195343107243`*^9}, {3.789832003730896*^9, 3.789832020151675*^9}, {
   3.789832149993394*^9, 3.789832167007585*^9}, {3.789832405514276*^9, 
   3.789832453208054*^9}, {3.78983251872959*^9, 3.78983255469631*^9}, {
   3.7898604238537827`*^9, 3.789860423945956*^9}, {3.789864931880006*^9, 
   3.789864939343019*^9}, {3.789865027552593*^9, 3.789865029328581*^9}, {
   3.789892821605682*^9, 3.789892821829767*^9}, {3.789893469770935*^9, 
   3.789893523416409*^9}, {3.789896909604662*^9, 3.7898969280516768`*^9}, {
   3.78993271416635*^9, 3.7899327158509693`*^9}, {3.790501039529852*^9, 
   3.790501039713043*^9}, {3.790501336673828*^9, 3.7905013914221354`*^9}, 
   3.790687109212183*^9},
 CellLabel->
  "In[303]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwVxX8403kcAHATtm9+xCRrzY8xm5ZJCLXp+4lDPI8c1/VUK5wTS+L0zI8O
pyKL4VHrkFxy0iV3cX51fuT7vqVM5SrVaj3urKdMckhmuLTu7o/X82LGpUYd
NDQwMAj/z/97MUocL5pwYGycr5Rt4YGY3fw23IgD7PfRlwJ9edDuMdz+kcSB
hOUTSXPePPAOooUe+MgGjaVCH+XBA5+Uy2kMLRvebNnFoXJ44Ae98uqXbHgr
Tc4qX80D//ip+MpeNsxs/IFeOuMGIT/vbCw/yoalTH10YYMbdGtozFXDLpDc
qlAaGbtBsseExEPgAvbLVf7s1A1AvZl0OqCRBf2n6dv8Rrhgq53LVGMsGCTq
eUoBF4Rb83cz053B3MTLzPbqetBz6azpx07QohtUvTJZD99Hx0mbNjtBCJe6
vU7kCofrWl6a/sgEuyOxlaSnHLhUZsJZJDEhal/nyJQ3B1ZL44SSZEe4s5tq
lVvLhsVzo1EW7Q7gXuEwumzGhkIRNuSSYQ/zed41lBQXOLMPd8kPt4MPWRE7
bqhYsK+uQLhoyoAYxtFXs34sMEtxu73zIR1+Mwym2V1wBv5etdlk41qIWHQQ
TJKdwfV8vWdtEg2Cq0gRQSInkC0c9TmPbCE7ZOLzgMdM6L0WSWv6aAOWdc+3
39vEhKFXZ3kXYTVU+R+7/5nMEfbz1Y7PqqwBhvESud4BGscF7zl7qGCeV3PA
us8exK0NdX1uVvA81Nj82lk74KxIK/AhW4K0+uEM8wgDPCIri0vOmMMy3tTy
q/s6sFDFK3xxU5hccTZCYkwH0cpIObWHAlWM0/fFt2ggCzF0bgkwAfcedU6g
xBa6fr+Hq7QrAGUFme6JXQPCsTaaZzoJqMVdmQWONjArFQl5SE/Edm+R6+at
4Y/4uajsX5aIqm8YKOwRFerLe+SuN7REabZFTYfMClJ92q9N2bwjDBrMlAmH
LeFg9BMblpOG+CrYeyRmlwW0SgJKfU+piL68REXusikU9FPPvSnvJf7uj1kX
3YIBs03SX1wxiFe0ZXBTPMkgyrlLSUwYxfmjDfPYqBE0T/ASjRUT+P72uZyn
ew1B65n2TKOcxWu45so78IlYu0DPbxPr8MyEr7n/OH0ggkWSTseMD3jYvE5X
wtQRRPNLP76VAbLSd/N902eJ4tru5nqhIdIJqDX3YYJQjYmTRp4ZocyQqLjH
taMEb2bNoaL1ZNS8lP9CybpLyNUtYa+9yEiofg2ueYPEnuEwN3wbGZEGgn76
VqUgCjq+m9FGkRF+jiy2LxsgXmRr0mNzyOgvd6l5wkI/UUjpPOn7gIx8FKwT
b2UEoWZ+WTMmpiDDrfnVO3sbiAzrmVyUR0FZT0y8K1zqCVPjopgLRRTkn1o8
9GfZJcLnTa9T5EUK0u1wJr2QVxCl11mNvQMU9GTSIKlTFEts5Ws7ZHQMFTEC
h3yb6/GHbmWV0ywMGZ8kvN4FXcEP2rseC92IoeBxfvXVkat4OWm/4FMghrBW
78S1K6/jmoFb8qQjGJI7y47nerbjOV0HLt/OxNDx3Y/aVLkduFXTwinHkxii
F60a3zzYiQvKNoQqKzBUOC0Nn47pwofzbnM31WEonHn3eFhTNy5KizEracLQ
0heU9iu6HlwftzSl6cDQrcLgccOAm7hsl+zBdsDQoa4CekxpH/4vcaxOKQ==

          "]]}, Annotation[#, "Charting`Private`Tag$77931#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwVlWk41PsbxvmNMTOWYcaayr6FKZTRQX1/kb2cLElKJWJoUQ5JaFMok6OQ
0marSEWJZH0snVS2KKIFJREaY5nF+vd/8Vz3db/5vLjv63pujf0hbgcwERGR
rqX7v65dwVa/I64HkW+5kp9MGBCmW/h7q5gepLHDu+LXMOC5cfvzeVE9SP81
k23OYMA6W2VHn3ldcAuRsEjXZwDzSO6xFVO6wJqxYnmqMWA9VNZl9OtCex63
4YMUAzb4j/mnV+rCDcMHp9//MgL7Ry75yaG6EFBVNvP2thGUDypryLTrgB1N
nuw0bwiHjIfjja104I3bN8NDgYZArwpOsM7XhpL/Pmud/mAASlOTEX0UbWj4
ej1G1cwAdlnEemqEa8Hf4VHavpmrYMFARftPhybcaon713hRH9L27E8sMNOE
DobICe4+fTiYVdQvma0BKkdoZp7NepCZJK4nENWADvVnIw4MPZBP3L8r/pA6
7OvFUF+6LghSe92oz9WAU5uUF0zUhTgWpVnnuCq4+Qz0XgjQgSveSCd260ow
Gsjg2bdrg3fW+V0CyRUw6NM2dMdEG6SOGL1yaVOB63keHZwULbDc2Sc1kr8M
XAsqfoyKaIH+jRzTu8HKkEBx/3DJVxNS+KHMG7gScJ1qhJ+bNKDyoatywbwC
KPmsiP9qqAHNP64y7oA8JCU+Cpq8rA67LfvUu67LgdU2B7X0aTXI/2U1oedF
h6OBcqPDpaoQ9uxeVrURDUyF+36/u7wS9AjHzjNJstDQ/yLpc/AKMHZNv8S+
Ig1PTn2Sw42XA7Xbv9EcSUJ/KWeTs5QKsCRc6+gVZLgd5R4x8F4ZUuwxrSJr
cdi8dpA3fVcJXta+Q91TBKibKNtRfUERdv0sVjYNFwXy7PwpWy8F4CaydjHw
hZqTUeadQZvlocV/0i3qsbAmwPOY9VUrOchJrqjTfzFVI9EzI2eqR4cQ5vOH
YwrjNU0/On4VMGhwYM8HBW3NwRpJ1xEqT08WnsVbXza/0F2j1Zw3wj9IhfMN
9NSh5MoaMf/of+pBCjSK4xsuXXuDNHf+V3FLVRJY0W/JgQG9CPNIsv2nlQIN
tX3p0i96UVbEQLfFWwokx0bJ9RD6UH1a9TrxVxQYbbySfcajD6lJ79PPK6dA
rns1NE/3Id3QpP3K9ykgF6Q0H7j+O8rzxrVzYygwkfIm/FbVAErhUqfXr6FA
ZqlHFefnAFq26WzYfgMKuHT3itlQf6IUJc2jbB0KPFTlpQzv+Ym0GstY35ZT
wDdf8xlTZBC9cMo5cZZMgbbqqD9t1r+Q0p0d4hn9ZCgcZgQSG4fRZwOZootX
yJBZsSXhFmcYNRXPvjnLJkPy5YP5a5V+I9bx+o/h8WQINckf8Q34jV4/tHvh
HEMGZqT20WqxEeRsvs02m0WGavLyyIhNo8itsjsrecMSv+evDGrQKFJ7rGou
NF/iP/KquJc8ispC16V5mJLh3LZr8x29oyg8ZvFmvy4ZbK/TzhmfGkM2BwcF
tjJkaNIjJw6X/0GmvPuJVV9IUCXUfXTm+x+krn71b4VOEjx5Z9usJMFBzqQz
QZ6tJEgOiZWx28lBZY6Vp6/UksD9xUJKNp+DNJtT+z7kkiC7Iannlsw4Wn42
V8b3NgkyGKoHWVrjKFG2Uq0tjQSJi1bsRadxxPrWXOAeR4LDOSdbGBnjSNbl
fv2XAyQIkJLYK3w8jnzyF+lBPiTYE36D01A7juyOvtR570ECF/sy2d3D44gk
E//J2IYExiPTbpfWc5Ed/5iqvCoJpkyPdQ12ctF+aevCc+/EQaxHTWLPMBe1
Z34NUqkVB4WzLVYfZ7log761RVypODBbDbPr1SeQ/j7Gma5McThxcPBQZvAE
UvTueO7yjzjM5+zCvBcm0NcGL6tqqjhQnSXM3stOorfrXHe7iIqD6kRZoIPW
JCr+52DG40ki4LhiM9NhEh2YW3eku4sI5760pctdnUSReblycJsI4gp2jGad
KdT4bPlOWQ0iKFZO7d28fgqZrxZyX8kSQc8v52qF0xTyCeyc8xIhgsNTEUF+
yBRKkrwfvrJXDBK3VtTFvZxCRkVrZbgZYiAbZ+yFb51GSr91QiOoYqDO6L30
Yu80IsUJzHrnCGDy4XLV6tBpBNeywHWEAG6aI5or06fRJhLTy7+RAKnV98aE
fdPIYC1rITuWALkHPNSPTU6jyMsthY2hBCiRIrgPEXmoJbTrrvJ+AnR67yvr
NOChe077Wuw2EWAZXyW2OIyHvMLb84SiBPiWN2T+MoGHvGlj3WlcDLK9S0er
b/HQWy9Eut6PgVG1q+fbBh7C7GMOceswGA9Rk2z7xEMfVaiHTjzHoERjrObj
KA8d3+CocP4+BhsvJKzql+cjPmPtwAY2BgRzz2+D+nzk1JGUyTuNQeOQVsqo
FR/JpcdZOoZhwM7g2k9s46MPYRyWZRAGrltq5vj+fKQQdi6qZQ8Gigvsp/Mn
+Cg2QowouR2DnkLvAMJlPmIGba2accbgrq/+ckoWHxmfOi9xzwYDfzleK7WE
j/yh6TbNCoNVr+rPy7/ho1bF6pMOZhj8OX7lL5WvfHS9JX7RdQ0Gz/T3/lHj
8lHC40/CzQYYRPQY5egQBWjunVSTjS4GVuyZHYbLBOhmtO1qHS0MRDY2Spkw
BEi5j3VpRB2DV5y0WuYmAWq9WXv7hhoGl7L8jlttF6CTqbrRpkv+b3cTQ+sg
AcIeXih4ueTliYu99jECxBaKSXtqYPCptCl16xUBmh5asBha4t9mZTi63xOg
KSmHz0f1MNivwlrweilA5lOePeOGGOg2mRXvaRagUPvyg0EmGIzEEFj+/QI0
9rlT4os5BkVr3q8InhagrZqcKCeEQXj/nfchFCGqnQ9vLrXHwCLlUFz4SiHi
5W5ZhlwxWNhsYRllIkRGijNl/bswqOeRxs/YChHL8GVEbCAGCXkfc+N2CtGa
Qr/Tmkt9bfHO2ck+LEQPOEGiVWcx6KzaWJ+eJkR1Rt2WX+9ikBEideJ2vhDR
3rnZ7i3CYK/GUqBVQvQ6QcgcrcVg6Hz4tSc/hShUxUOXMITBY6aN83OhEI1l
+voEzmEQOiQrUi49gxo/XfzrAY0As86Pgl6ZzSD3fL+I9I0EgPlI1XeOMyiT
+rN6nScBzhfad7T5zKCKkKOlfkcIQJX7YfXlwgzSVF+vn5hJAPWeZbKTH2dQ
60pjk0hpMbBjxZeqH59F7vf5gfIEImh5hUm3J8yi6dVLz0qdCCIOvv6xN2fR
EaPVg3c2EqFcz5I+CLNoYPuPbcMnicD49edwgeQckmVHOuLTRJAP8NRhZs2h
iOHQe3aj4sDdbhP9q3gOVY5GpHZKkKDF1rjj+n9z6JeF0RquPgkSdCTOzo7M
oaaurLk0fxLMDlR9AeY8yuIR9Oy7SfDdTyfVuWkexYg7uFwrIUONO31k7ts8
UpSfHXvYSoZbNoubnnDnkcOg8xffYTJ4anVzZJUW0JV2dmft0r69+c527vRd
QFZyE+N20RQo8p3CfPkLaKGo40A7QwIuu/bvpEssopfTb/v/tZaA4E0tRfUr
FhHPxv/EgqcEaGvk7dG1XkTj2gmRq05LQHrfrvIR9iJ6krUy1LFJAmoK+9db
0kRwhbgdLo93SsIpuaoefxURPPemy4XfQZKwMeJ6dJKWCN6/+zBnJFISKjf+
Df1mIriHWl8mfkMSypor7RO8RXDvrL74so+S8Gwk3fNjjghecTC/b6WdFOTq
uYSFMEXxBEvx8l6qNPglrlK8gUTx7Pqq7XdUpEGTI1ZW5yCK89p07trpSkNW
acWswi5RPJ79geyzQRru2K6KrTwtiu++ZiqaFiwN6X5iVylvRPGi0lpWYK00
XLpbXrg0EXj/Dj7RPJAKOQn3rqYewPA0rvr2ZaFUqDyWHH4hBMOL1/RIjkdT
gWMTYBkYi+HrNBaYp65SwWOI9tqgAMN57OIU7yoqqJoEfXs6g+GFramN32ky
8KxOSRpuEPCs/IySkRcy0P0zLPhLlxiemrmj/GSMLDA4ikEXV5HwoyHvug49
oEFdX5HTwFoSLlB4UXT1EQ282p2M0EYSXulbbVv7lAbnS05xptxI+DULtWKH
Shr0RA2G74sm4a5R9Zrr39Mgjlx6zryVhIv0kP7MC2nQp7H91s8wMl7tnNMo
s5UOx+U4MfhpMj7mp9Fl50YHSeLFvTcvkvFss5iAszvowByq1HS9Q8Y7lXPW
z/nS4fIT7fzK12S8XF5qc/NxOlhYTpWkqFBwlqKvvlkmHdqMktL/aFPwDn19
Pc97dDigqh/puIaCf3U08b/5kA7JorutFm0ouEN7Lcu4hA6Dr+vrgg9T8GNC
y+nnb+gQ/dIn91UEBe87yiP+10IHWgH/gvo5Cq520/ZBdwcdrJIMHTuvUfCn
NuOqMt/o0H76lYFJFgXnHY29ZfKDDqxje6XYBRT8389U5u4hOizsF44NllDw
L6scbW+M0SHFI6V1E1Dwk/5lnK8TdPgfcMmHzg==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$77931#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwVlmk8lP0Xxmcsc8+MsY01RXaylDZk+92RqCQSiaJCIk9SaENlyVqRsqVE
qyVaSNb7ZCmlUmTJ08Moa0jCWGbx9391Xpzr+n4+5825LpXDgbt9BEgkEoVM
Iv1/rl+RpHyHogX84m4da3N9CNYs+bVTSAtMvF/OTJvoQ6lBaymPrAVpE9fh
vrE+bLCW33aApwm7k+xdhDbog+Hx+0ErpjWhbb7lUr2OPhhDdV1WnyZcjeJ2
bZbXB3Pvce/0ak0QjReMs5jSA5si+/zkk5pA0sVGjPL1oHJQXkW8VQNepaqW
vKTqQYDBSKyBmQakLvt1puukLjBr/OMs89XBwozB+dWrA3LTU6dZNHUwy9/7
OB7XAXeTKBeVEDXw7xIJbS5cBXwdBfXfbaqwqSYnL5O+Cm56HE4s3KgKldap
LNcAbTiW+7RPJE8F8q6fuFzVpQV3r1K05sgqgOTTVhcaa4F04mH32ABlWPlV
Nd/inibM3ejdLVa6Emz7aeINEppw+Sjto0aoErhHvVnoDNKAFDekEbVTEV5v
rptK/k8d3HKj3edEVsC/kesLus3UgXFcr9H+swJ4Dz5arpCjBqb7WIzR/GUQ
tuz9QzJDDbQz763L8ZeHxfzUXxcDVCF19qRhJi4HMeI2n4o6VaC6wFG+kCcD
tL7TiecMVeDjz+v6d0AaFD+4OTlkKMN+U5ZyZ4YUFIeUP2MJKUP+kNlfLVcm
7HebiPF5rwTBzx/k1upJgtSmOdrju4qgJRgUbYhJgOa1mnf24SvAwDE9ISlF
FL4ewCtELZeD2DfvJiMkAr813TL7VijAUbpjHbOKChk3XMNyWfKQaiOg9tSS
Ap+xvZ90i+Sg4nUz+jYtCPer1lv+e1UW3AdeyK8LIYM7Lyvvv/0yMJl41F0f
5xMVIu+37LOShk/eU7vPP5knqNdrc4M3SMG95Ko67fJp4uwgZfc3GSYEGpYW
jMv8IQp8IvZNMyXBx+OrjLrqIDH7/mb2eooEPI+1vGIU841gJubxDNeJQXQD
88ZwcjVRXhA4qhTJAJUXsQ0Jae/QKf+fX4q76WA8XPXFS/c9Uvd99nrkKx3s
Ff/0mMF7pDusQ9FuoUNYrOv875FmpKt5MKO4ng4d7qtWO5l/QqaDzmv6i+iw
NXKgWfTkF/R4OPTJ9AU6cHViN3bId6DdWs7XnmvTIc5apdrSqwNdpFwrcFOj
g9TBKsuSJx2otbXEhqJEB52bE7viLDuRd/8e5aNSdNi7uNffJKALcYx2zbvw
afC8TTvnDtGNcIfrLYNfaXA07D3V90gvuvAju40XTYOG16x00fJelKY2X1x+
gQbJUeelugVZSGwh/FrIORqMNaXkXdzDQqo/9w/zA2lw36kWPs6wEEcv/rit
Ow2k/OR4vsY/0IXcOX75Ohr8TX0Xkl3Tj3r2X0YeA1S4+3JPzcRAP2oTZ9XV
sqhg/61XyEpsAA02eqtpfKdCgRI7dcRjAD0/76ou2EaFQ/mqzw1Jg4gly8om
v6bC59rzvz9bDiHH8dW9/92mQsmIvq9w0wgKl06T+em+xK+yi8ueGEHXn0Wn
MVypkHzlWP56uV9oLPxBvvkeKpxcmz966MgvdDyzpPa5HRUMz6qfqBUaRc73
uaQhcyrUUpefPb15DLnuag9zVVnid2/KEvMbQ2GvJv17FZf4Ra5VD5LHkPUf
aAxQoEKkQxqvrXcMHe9nHr4lRQXrDMlIg4hxdELpmNRuChU+aFETRyp/o7KB
HOa6cQxq5jWLLv74jWLsZlr1fmFQ3Gz9UY4+gQ7cEuvTHcIgOTBKfOu+CSTe
FOhg0oeBUzk/NW92Am1QfMd+3I7BP/fOfdLP+oNqzfdMswkMjjDonvNP/iB0
217QuwYDj5DMiYbXf1DI42a9rkoM7G1eSewf+YPCkiPs2sswMBid2Z1gPIns
vyj5yxVhML0uqHOwYxIJ2TqJfMnEQKh7Jd1jZBI1XJgy+pyOgcylT2btnEn0
1fjSufabGBi26ObVK/9FhdmUJ5MpGJw5Nhhw1/8v+qcn81xAAga8e+4Cbvy/
yFzhZqRlGAZiO+gbv0hMoQO2D/ZcO4eB0t9XvrZqU8iuxPlh7xkMcFz2o6Ht
FJJ9oyOREIJB5PfP6VLXp9DKwIxd1EAMKDJb9T9qTKMihwf22w5jIFs97bnF
eBqdOchllR7EQMvr3vWq7dMo9PcO9gpPDGyfkebyA6dRNmfUq8cdg8SdVXWX
K6bRbO5ONuaMQfa03wyveRo9Sj1vYe6EQdEtee2QnmlE0NwCfRwx+DQScsVL
cAY1+nVwYndiIHHZwBXfOYO6gk91D2zBQFm/N6HccwbVNRxojbbEYO3XKzWr
T84gvfcwII1jsFt1VFUxfQa95da97TTB4PC7TOcb+TPokTMpVMgYg1MnbONE
qmdQvaj+e9pGDG7UPhifZ82gqkGpuJTVGNz32aMcNDWDumOtDovqYlDGEHQa
FmajjH78i7MWBm9ePIvxlGejHTnHnePVMOhwO/iqQ4eNWMeO9USsxGCILD66
05yNUl2CNAyWYzD3uEaxcRcbbbvo8zFNFoNlswpRL4LZqFZJ1defgUHP42Gj
ijg2svGgOttRMMhzezlWm81GT9DqZeWLFPBlROc2PGUjS9WmgfI5CujVOrq8
b2Cjr6svcZwmKfAncKXI5y42urqhUXDvCAXKVMaJ9jE28loelvKcRQGLmLhV
fdKzSIdzLGjTRwoIGrn0DGrPooOfnNk2dRRoGlZLHTObRd8FiYshLymQlDVp
89dhFkloeW7+kU8BRzuCO+s9i+iSr0x8sykgy096xjszi4pEn7JbrlCgu8Tt
iOCVWbRKLsqUEkEBbyl2i1jZLLpg0mIW40aBVY310dLvZpFhaWXx/a0U+B2a
sknhv1nkfbzI+9JaCjzX9vy9cnIW1SvladcoUOB0t949DeE5VGHe0m4qQAGz
pIW9usvm0PB8oEr/kDCQLJoYa/XnUEO/7LU7zcKQkOsVauY8h7gHZkZkrgjD
Lqe1upZ+c2htzzKswl8YpIUXe23C59DEZfOnsluF4fbRrG1OD+bQdivfX+Uz
QnBY4SjftWIOWZ1oHe55JwSaHza+8Pg4h56In3C5cksInq75ssJ/Zg69tjWk
7jUSgpC+O18CafPobSib+w9ZCExSAy6HKM6jCp758ZkmQahnY38uWs8jHbPJ
dHsHQeiosahPvzmPqAptNAdrAcgKZJy5nT+PQt4YPdrNJ4OnytLBNfMoYbxR
5EcZGYajQ9KKB+ZRn02BIE+VDJwdRX6NGxdQf/yMqwNvkQDeWaXmbQvogd+a
N+MnFonoEpu2zwcWEP3q3smTw3xi2yGZuI6gBSTDeuHt78MnxKR+mn2PWUBB
7wN3GI/wiNaGp5N9mQvoQk3QVEIwj0gPjXg49GRJf8RxcgTjEfu17dzHXy+g
/REqyeH3uYRy9zKJqfYFlK6qoWC1g0sMJA41zI0s+QdQuSKPQxSYl53l8xbQ
MiFyD7OKQxyfiFwtxOSgv0cEhPHLHGJ9rsNPmiYHpfR+ONPkwSHmditliJtw
kAA/aUbTmkNUC43ZydhzEGvwiKucCYe49LKCvPwwBzXwBT/Pm3OIrUdjXyqH
clD4N0njIQcOoeYaLNoax0GcawfsFgM5BMn2kHfULQ5iNEuv2JDNIf4zsq/a
ULy036o4sqmdQ1RqmTIHgYOYT+5vKlXgEuly2n7pbRxUY60SUxLAJYIxGbAd
XNK3xLS9fs8lHGbJcgtzHPRFy2Z7znoeoT/0+59CES4KKEcc3Uc8gt75b8N+
JS6yr+KRWBp8YvBN03KxtVykGpz7/cMTPnH3Yd67Ey5ctG3c52Xi10UiPO2a
sqofF+2wSr91dhMJ3C6HnW47z0W+meL/JSeSQPqIi4ZhLhf53bHPuWFIhkln
q7ChF1w0eupVa95VMnyyNmjLeMNFHeMuH38NkSFOg36JM8pFuLVIXOwtAeD0
13wHQx5ycVJ4EEESgq6vBetPbuOhtFh/nVIXIShtSE9Q289D90x+Vf0tEIKl
+m58+RIP5UVMuB/ZKQw/vDRu7PjAQxfMA+8MhVKAcGKOcnt4yOu4e9RUJQWy
rRY3F0/y0N13LrEBXAq4qH2bkJDjo0Pcf0XFT2OwXurN1rpVfNS1d1XlmqdL
/1rwxe1TZnyU9ynINGUQg3c/knZ0HOIjU/eVaZVLef+w9WxebDAf2fZZGU2c
X8rvuiPzxrF8dPqWy5a7j6lgloc/ulXER269ljE9C1RYdl2fb0fwUXB8oWGG
Cg3YlxSc+V/4iJboFF+0lQZPD00LHJrlo5Ntf0LUE2lwxbFvH5O+iBR5hfLF
BTTw3/zpaf2KRURkevxIaqKBuspjD03LRaSZ8OvYbRIdyJI3yzr3LKLo0+m5
Acvp0EOKZMT7LqK4EZE+4Y10SGe5V44mLSJG5rBwizcdgj/bSt7OWURTwmSO
8nk6OMDGo/bPF1GR4BrFS8l0oN8Vl33WuYjGx8h3IyroQJT0GZtKkvD6hRuj
jsIiECFV0+2tQMI9LUZbgmRFwOJ0RthVNRI+oUD6KqklAtUWu6BvIwnfuvas
9z4bEXj1sdomzo2Ez7cV6vlEi8Dz0XSX9nsk3FtPVn3qrwgE7To1xy8i4fLL
5fsoJAYYvLDP0n5JwjtiaWf+MBhQfE6453wTCc/XSgl01GRAIe2Uj+o4Cbf+
rrT+2V4G3NeyDw40JOMuaUHNRBkDvBJXyWYiMr5l03Yhg9cMUJ0QelVnS8YT
VgvlXPnAgNyXVRwZdzIumtVjIfWTAXesV0VVXyDjtopvS/3FRSHdS+g67R0Z
7xs7dC7GRxQScipLlioJzktN8uqkicG9uAfXb/gI4Gyb2eBSaTGoDkoOiQkU
wGc2W3TGrxSDCasjpr5RAvgpL46O0kYx2DMs+VanUACv3HJgOdtTDJTW+vU8
WxDAI80SI8+WisHzOjlRyBTEQzL+9WvZJw7fBoL9v3cK4RydTQuR9hKgPyHr
F78Kw3OIhx/kzkhCHevp9v71GH5CeiZpe7gkuLZu10MWGH6tpbg9PFISossi
JqZ3Y/gtN3fBgSRJ6D4/GHIwDMOzPNpfP8qVhMvUl5FGLRje8CbihXSzJLBU
nLMHgqk4jX/tt5QSE0KlJsLxC1S8USIM26rGBBHheM9b8VTcoHmD5BltJhgO
V6s63qHir94qG3WtY8KVYvX86rdUPLXr4KsUGyaYmE6XpSrQ8Hp+1phsEBM+
611N/61Ow0800RmWoUzwUdI+u20NDd/1YoVdwHkmJJP3my1a0fA03aAjRAwT
Bt/W1/n/Q8MH7a6WnMhiQljFgfuNp2k43/TJvns5TJAsnI1RjqThEdf4BR33
mWB2VXdbRxoNT3nq/8e8hAmtFxp11ubS8L0pBeuCSplwNMiTkVRIwxnhIV15
FUzgH54fHyyj4TdPs1taapmQuie1ZTPQcFFpGotTz4T/AdzNFUw=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$77931#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwVl3k4lF8bx8f6zDDRjDVJ9i2KZElynmghRbSJSpYKKRFaEEXIUqRCO1FJ
i7Ik29xkKylSFP2ylF2EMQsz433ev871ua5z39e9nXO+R80r0OWwMIlEMhAi
kf6/mignq94T14Hnxz84Z6wzhBDtl6PbRXVAxyZDectaQyg2+lLMF9KBM90+
QywzQ1izSdH+AF8blA8JR+5ZbQhmJ3KDlJnawPmw+YmcniFYQGXtrT5tqJyZ
FaTLG8J6n78+GZXaMGnCfJY6ZQBbnjnmpwZrw2ubfMnExwZQPqioJv1FC8b8
QpvJmAEEGI3EG1lpQWKXbYp+0AqgV/kn2ORrgsMdpuj6X/qgwJw53UvRBJsX
rJxua31wt4zZoxaqAfP2Rw8se6oHAn0lzYl2ddArLDk+RtaDGwe9kgpM1SGv
GS499deFY9mFfZI5avApb26e2qkDD66I63CE1MBt/e6DPDMdkE3yco8PUAXt
Ey3RV7OJvK73uEgVL4fs/edOyUprQ5wvpUUrTAU+U8pKdU5qQZob0orZvgy+
qpV093Rrglt2rDtHUhm2VZ5x112nCdQTBvWOrUrQ92eV4ZG7GrBuXy91LH8J
jKjovXSQ0ADdrIer7/srgp6mH7fRXx3S2cFmWbgCWFRkLv/3TQ0qnzorFvDl
YLNrrk/ZGjVo+X3N8B7IgvLOh71xN1Vh/7pe1c5MGRCWddGQElGF/CGraR1X
OvAcRufzGlQg5HVedrUBDdLKtDIa7ywDHZGgWDNsMaQplFA3nlUGI+eMxOS0
RZDQKVLdsH4pSP3waTJHkuC5cD/JWVEJfCWca+kVZKB/r54v6FaE9C3CGoU2
4iB/yHPr20cK8LamGf1gigAvYPhhd4I8uA8UKa4OFYJUq/yPxnvkYCrJ190Q
FzDGq+dZNCtZ+OQz4xL+nMvIqFaevGogAw9TK2p13zAZoay1gaaL6BBoVvz0
r9w/RqfikqgrFBocPvhVTlN9kPH9177J8llpeB1vk2J+6QcjnnIz+LiiFMTW
0a8Pp1YyGngt7s2HqaBWFF+XePM96nEanumokACL4Yo27xUfkGvMGm1KqQQ4
Lvv3ywo+oCtL/zyyLpSAiHhX7sRIMyJ137hXlCsBHe56K3eu/4RIV/SL61Mk
YPPFgeZFwW3oXfyB5uRDEsDTjzftUOxA7UPSmXlkCUjYpFZp492B3jqB30YR
CZA5VGHz8nkH+vaofXCQTwH9G5NOCTadqO+w7rTZDAX2Luz1twz4jjYGl5eI
/KLA63bd+/cYXYj66K3azmIK+EZ8IB890oPy5Mta+rwpUFfTm7HoTQ/6770/
fv0gBVJjwmW6RHqRO0Naaus+Cow3peVE7+pFlkFU7TpHCuTurIaW2V60Piaz
e3otBWT8FPhHLfqR8SmJdmsaBabT34feqfqD2B1rZV6/I8OD0l1VkwN/0DvJ
GgNxBhkcf/SI2koNIMVRpzyPcjI8VWGljxwcQMpvykiqr8jgma/+2ow0iAai
7/v9d48MrdXhE602Q2jU1VXOO5wML0cMj4o1jSCSxa5zjRaE/4ptCXcmR9CL
LbN6v9eQITXlWL6JwijaxPThihiTIdg4f8zzyChaNfrYd48eGczOap6sFh1D
v76O7LBVIkM1eenZ0xvGkbCpja8tH4OXXWtvSfmNo7HzlnEMLgYPnrlW5KWO
o3Qqn7OBhcHFHTf57T3j6PKNzax9kxhsyqRdNDr/F32gKvE7+jD4qENOGimf
QJGl0W6UJgyquNrPovsnkFJUtPHfOgxeNG9qUZCYRBfY8eWdNRikBsZIb943
id7W9nGgAoOdbwTpOexJVH9kc8Wflxgcf3juk+Gtf2h7nG98aBYGR6gSHtzn
/5BNTWNbw00MDoZmTdbV/EMPdjyQX34dA8ctZYv3j/xDTjeZt/9cwcBobNYl
0WIKTT9ix9bEYsBcHdQ52DGFdsRJN9UHYSDatVzi4MgU0ktJl3keiIHchU9W
3+anULhtT+Gt4xiYfV6R8051GkWPmEwl+GFw5thgwAP/adQ+2TLzyhODBPqN
+wqR0+gqJ2DtRw8Mst7afrlydRqtavn5d/wABuVYtnlk8TTaPVPyYoMbBvyH
7sJugmm0z/TkrPlODKQcJEzbFs8gkSWHbWOdMVCZLjtqpzGDlt2vl+t0wgDH
5VvM7GbQl1maR+o2ov4/WzNkrs0g+zBnVZfNGIjLbTZs0WIim1zJr/LrMJCv
ZHpstGAilXZSb8taDHS8H16r2MpEu4IWVSdZYGD3isTJD2SiIr2NgqVmGCRt
r6iNe8tE6aZBDVeNMbjD9JvlNzPRSFFwbpQRBs9uK+qG/mIiv8CVh8NWYfBp
JDTFW2QWNVkHnz9jiMHiOCNXfPss0rAUif+kh4GqYU/iG49ZNOC9gcnUxcD4
a0rVyuBZ9E2oUFGdYBf1MfVlGbPIIanfN1UbA6/3Wbuv58+in1udYtu0MDh1
0i5BsnIWbT9ubraE4OvVeX+5vbPorYmqeaUGBrmHd6kGzcwipn5mkALBJVSR
ncNiLCTSFrzkrDoGDUWvLnkoslDFpgX1PjUMOtwOlXXos1Du5MwFJ4KHhKTH
tq9nocwYf706VQw4T6qW1TuxkKTrzW12BJN3BOyw8mKhwpWZGf3LMVjCVoop
CmGh/zSFOi4S/OvJsPnbBBZSurJnixrBOW6l49V3WKjWyIZRr4KBQbXzng91
LFTUHZetQvC/wOWSrd9ZSH4q7F/bMiJetb+Mb+MsFO7PkrpMsPWlBL0+WTYq
/uzoQiJYxHzPr0FdNjrjs8acoYxB07BG+rgVGw12JR+LIth5G4PH9mGjhHtX
qUIEywuSX/HPsFHX9UO0mqUYdL10OyKSwkYabpU3ogi+76m7lJLNRt0xvt/X
Eewjw/osVcJGbdR8+qwSBnr172Jl37ORZ4L2macET4SlrVX6j41qip1HlxL7
X+t6TCyfYqOC7MJzJkR8p7sMHmqJcdB0xftWWyJ/q+S5vSuWcFBKekqCDVFf
knUT1diQg05P6QxqEv2pn7xRY7aBgx5jFt96NDFIzPYOs9rNQUz1R8NHif47
7TReYePHQUodOu6vdDCQFVvo2RLJQZmU2MWFxLx8L/14fXsaBw2mPsnYS8zX
Xd9b9jvzOCjgU47hbYK9lHwFrm85aFtUcs1xgrU/mhYdbOEgoakIbg1hPxYp
4uvTx0GPMlMsEgn/havalP1nOahg7UJeGTFfoX332gIpXEQKSzRFRLyW6QFx
ocu4KL3id6E0MQ+CjZbrwo25qFXsdO1Sot7vWNi/6E1cpPzVXWi3AnH+n3zL
jdvHRauokYJnNAy2uT3cl3yci9Lsx1zkJDGgUYOkrl3got9NqU4RH8Who8r6
XcYNLnocfYj/KkMcbgVSz9zN56L1M4UK3ifFwUONKHAVFw3cnuN57RIHzfbH
fU/auOh6QH9W4wZxGI4NvfligItOu9hSW83E4bmZrUMxl4t8Z5zftBmLQ/Dw
YlL5ojlkl+U/qUew2a1fxQy1OcTu7ttkYiIO8w7P/OpN59BFN1VZa8Ie+GdV
mu3nkML48PZkC3GIfbmlvfXAHNroIDq0g2B7T7mEjqA5VGhtbV5E2EvJ/Lb6
eWkOndE8V9ahKw5f6gqn+rLmUKP9hjVDcuKQEXb+0dDzObT9v72zulwx2K+7
zf1vzRz6z+WO7ccaMVDtWrJ45tsc2k0d9vePFYOBpKE6zsgc8q/KiHJDYvB0
fclZAX8ODY9Vd0f+E4UTkxdXitLn0TuysfDym6Jgkr3jN0V7HmXL8XuEVokC
x0UlU9pyHkVHXss6US4ClaLj2+Qc51GV81nZNRYicKH0rdBSr3nUP8p93FQg
DJt940tVw+aR0mSE2G9pYdBwDVn0JWEelavvPS8dLAQkO0+fmNvzKPHFKfdV
zSQo11lHH4R5dKZT8ff6bwJGhoKuX0b7PFofPr0h4wifEYLJgd3gPFIRjP6+
yp5nGA5NHC+Q5CEVw7VJKfpchkRnd91+FR46x87etOYHmzHY0LRUypiHVG3/
ir+6y2K8Ky0JZtjyUNtoL+1e1CzjwaOc9yf38JBT4/0B2XgmI/LmVVV1Px4y
K58JRm9mGG5xEafbw3koLlzkpa/CDMM8zO9T7BUe0iuPUcYLphmyR/ZomWXz
EG/fOcddp6cZU7ttI4aKeOh35fIwiYhpxqdNRu2ZDTwk6ZwxqVExzSgwXaa/
9QcPPZZvofJWzzAStCQuzI/xEHfZ397G/hnGYTl25zMBD7X7FL/waGAybMT+
rDxI46O+iYadlO+zDJXZ1kvSmnwUtG598w5ZNmP+T9VPMOOjftGUi1uDOYzv
X5+aBNvz0eOETPc1E1xGcV1GosZ+PrK0eyMYjp5nEN8bi7gLfHTBJPnkoc8C
Rr+31nWHj3ykEyNvovZKGBg76WO8X3yUSX3SDidF4I7twoYXU3zUhmkYFumJ
wlmT8UwPUQGyDuHV13aIwh6NH5OLFQQo3nb054YwMTCRadhcqydAdynHtUUx
cVgsUnT3lJUAmTGtKdcSxGF8+j5T00mAAh8vGnCZF4f3/ckOHZ4CZJG9ULCw
A4NHX87mxIcIkMakQ4hLGvH+1h7hWsQL0JOsgybe1Rh4vN65YzRLgBxuVUnH
dhH3YQ7++PYzAWoeoR5qGCbej2uGgm0MAbqfL2JdP44B64LSbkGbAK1vVzoQ
PIpBexD27OUfAdL/VtcyMUDcT55MYU+2ACUq0dtDf2OQ4ty3jy6xgKZyC7AD
Qxj4b/hU+E55AaFnWkIGhB7bYlyBha5aQFVtoys/y5JBU+3JQW2bBXTbWvjD
hB0ZhGg3Sjp3LaDna+BpZBYZfpEuUi8fXUABK0j2BdIUKP93wtvy3AJqOrnv
5K0yCmT0upePJS+gSrloVW0HCQhptaPdvb+AbBiB3GFFCdgBpr6OrxfQ5aT5
e/P9FJB4IC3/qnMBhQ+8TzYKpsDQVV6A1+gCMu3JUFtmSejrqJF3MvwF5KWQ
6TEhQoFW82Mp/RgJl6m14De2koHxss9iHY2Eh9LwU+XZZDgvU9Xlo0TCWa15
mSlnyGB9OjPiigYJfzD7can5bjLwu06plBmQ8CMKth9yCf1bae0EfaYkvOzc
j1MfNcgQnqPvJYlI+CEK+lqsQAZLcXFRUzsSfrVGdmu0HBm4fn15B51JeGRD
z9pzKmQoa6nckuBGwjd/1wvTJfTzaePMkVfeJDz6gHCLlyuhl2+cSuoOIOGr
rcYMQlLIwOI4GoqFkfDF7cYGDh1kKNmv/3llFAnvSPBTrTOjQAiIBbkmkHBX
tQP3lhP/jTWaffSLaST8EV2Q+GG3BMzEVxYX3CLyibAda9CWhNdjGXu+PSTh
w7PU0uXNkhDkdIojeEbCvUu4Ks7fJcGoyPGWbikJz9OK79o3IAkvzon9Cm8i
4Y1rlxhOCyShgHLqsPpfEs5TgVw7Iyrk6jiGBJoJ4Ypnxk5oJVPBO0lPPgsJ
4X2yFsG0DCqoT4qW1doJ4ckf7izrz6ZCdmnFvJy7EN45dGi1xRsq3NukF1MZ
JYTXb8l/ktNPhQxv0WuU90K4bZe66oTFIki8X/6SkLD4KSOviuafi+BhQt61
64eF8YftBg1FQ4ugMig19FKgMK5aUj+WNr0IJm2PrDsaI4xP65h9MiJLwa5h
WqN+gTAeyC9X5a2WAhVjv1+v5oRxK4crLyTipeB1rcIiyBLBI36uWHHVQBp+
DIT4/+wUxbfTlCT+mC8Gw0l5v8t6GO7G8uVe9aRBbW/h1j8mGK7RGVVSfYQG
rl+2GiBrDG/5XEL5e4wGsSXnJ5kuGL5j4GSIXRgNusIHQw9FYLh4DvjOJdIg
jlx60fwzhtO8btoeLaZBr9ruOwMhZPz2mFOfJUaHMJnJSDyKjPMT03v9qXSQ
FLvscfsyGXcICHp3i0YHs+FKded7ZFz+zQ/ZuaV0SHmhmV/ZSMZDp7eZlRrR
wXIdsyRdiYIfG1o6qOZGh1aDKxkTmhR82N7K1tGDDodVdM/ar6LgIRfoIed8
6JAqtN9qwZaCl3hflf15gg6Dje9q/Y9T8MzQ2EMPYugQ8fZAbv1pCp58OILS
lkAHWgH7kupFCp6Xdvqc0BU6WF1ZYd9xk4J/f/rsvmcmHb5E1esbZ1PwMPFi
h7S7dPAN8qAmF1DwyOLgl5BDB4EX9+9gCQXX/Lru/eRjOqTvSv+8ASi4/p/g
TJXndPgf1VQfRw==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$77931#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     Ticks -> {Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, 
     AxesOrigin -> {-11.512925464970229`, -14.619668330378314`}, 
     FrameTicks -> {{Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
        Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "ClippingRange" -> {{{-11.512925164321222`, 
        3.2188755242191944`}, {-14.619668330378314`, 
        0.11934465787337491`}}, {{-11.512925164321222`, 
        3.2188755242191944`}, {-14.619668330378314`, 0.11934465787337491`}}}},
      DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\[Beta]", TraditionalForm], 
       FormBox["\"c(\[Beta]) / \[Beta]\"", TraditionalForm]}, 
     AxesOrigin -> {0, 0}, 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 -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, PlotRange -> NCache[{{-11.512925464970229`, 
         Log[25]}, {-14.619668330378314`, 
        0.11934465787337491`}}, {{-11.512925464970229`, 
       3.2188758248682006`}, {-14.619668330378314`, 0.11934465787337491`}}], 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
expansion\"", 
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}], 
       RowBox[{"n", "\[LongEqual]", "16"}]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.790500033011464*^9, 3.79050084055266*^9, 3.7905009114756613`*^9, 
   3.7905010403939533`*^9, {3.790501365461398*^9, 3.790501391778983*^9}, 
   3.790680768133603*^9, {3.790681247430805*^9, 3.7906812623349133`*^9}, 
   3.79068130990163*^9, 3.7906856024308653`*^9, 3.7906857162813396`*^9, {
   3.790686478844146*^9, 3.7906865357958193`*^9}, 3.790687109731969*^9},
 CellLabel->
  "Out[303]=",ExpressionUUID->"8e44c7c9-5ce5-472b-9910-b5854ac7e6dc"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"s8", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sf", "[", "sample8", "]"}], "[", "x", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s12", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sf", "[", "sample12", "]"}], "[", "x", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s16", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sf", "[", "sample16", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, {
  3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, 
  3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}, {
  3.789831546161499*^9, 3.789831546839629*^9}, {3.7898320404262114`*^9, 
  3.7898320553038607`*^9}, {3.789864943007975*^9, 3.7898649514318943`*^9}, {
  3.789892831115396*^9, 3.789892831435464*^9}, {3.789896963511537*^9, 
  3.7898969690204773`*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fit8", "=", 
   RowBox[{"ff", "[", 
    RowBox[{"sample8", ",", "1", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fit12", "=", 
   RowBox[{"ff", "[", 
    RowBox[{"sample12", ",", "1", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fit16", "=", 
   RowBox[{"ff", "[", 
    RowBox[{"sample16", ",", "1", ",", "0.01"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, {
  3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, 
  3.7898196362971153`*^9}, {3.7898199879787416`*^9, 3.789820000838752*^9}, {
  3.789820614022482*^9, 3.78982065862674*^9}, {3.789831005306398*^9, 
  3.7898310300074987`*^9}, {3.789831442674109*^9, 3.789831462231441*^9}, {
  3.7898317830894527`*^9, 3.789831783399386*^9}, {3.789832066674664*^9, 
  3.78983207936756*^9}, {3.7898624522781687`*^9, 3.789862458686954*^9}, {
  3.7898649576818438`*^9, 3.7898649685188828`*^9}, {3.7898928388527813`*^9, 
  3.789892842756661*^9}, {3.789896975455278*^9, 3.789896979805492*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLinearPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"s8", "[", "x", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"logZ0", "[", "8", "]"}], "-", 
          RowBox[{
           RowBox[{"logZ", "[", "8", "]"}], "[", "x", "]"}]}], ")"}], "/", 
        SuperscriptBox["8", "2"]}], "/.", 
       RowBox[{"fit8", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"s12", "[", "x", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"logZ0", "[", "12", "]"}], "-", 
          RowBox[{
           RowBox[{"logZ", "[", "12", "]"}], "[", "x", "]"}]}], ")"}], "/", 
        SuperscriptBox["12", "2"]}], "/.", 
       RowBox[{"fit12", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"s16", "[", "x", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"logZ0", "[", "16", "]"}], "-", 
          RowBox[{
           RowBox[{"logZ", "[", "16", "]"}], "[", "x", "]"}]}], ")"}], "/", 
        SuperscriptBox["16", "2"]}], "/.", 
       RowBox[{"fit16", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "25"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"s", "[", "0", "]"}], "-", 
        RowBox[{"s", "[", "\[Beta]", "]"}]}], ")"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{
     RowBox[{"ColorData", "[", "97", "]"}], "/@", 
     RowBox[{"Riffle", "[", 
      RowBox[{
       RowBox[{"Range", "[", "3", "]"}], ",", 
       RowBox[{"Range", "[", "3", "]"}]}], "]"}]}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "\[Equal]", "8"}], ",", "None", ",", 
      RowBox[{"n", "\[Equal]", "12"}], ",", "None", ",", 
      RowBox[{"n", "\[Equal]", "16"}], ",", "None"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7898191382164*^9, 3.78981915322369*^9}, {
   3.789819203381546*^9, 3.7898192055038*^9}, {3.789819326102756*^9, 
   3.789819347009884*^9}, {3.789819591195232*^9, 3.789819600655766*^9}, {
   3.7898196738325663`*^9, 3.789819677929298*^9}, {3.7898197611734333`*^9, 
   3.78981977649758*^9}, {3.7898322181303864`*^9, 3.789832224367557*^9}, {
   3.789832474001747*^9, 3.789832488208096*^9}, {3.7898326615380707`*^9, 
   3.789832728584391*^9}, {3.7898604327260637`*^9, 3.7898604328817043`*^9}, {
   3.7898649731597443`*^9, 3.789864977151291*^9}, {3.7898928942783813`*^9, 
   3.789892895301448*^9}, 3.789893744798514*^9, {3.789896988834631*^9, 
   3.789896988839439*^9}, {3.790501199339796*^9, 3.790501228605167*^9}, {
   3.790501312814767*^9, 3.790501318389104*^9}, {3.790502626780437*^9, 
   3.790502637745879*^9}, {3.790687415941184*^9, 3.790687512627081*^9}},
 CellLabel->
  "In[312]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwV0Gs81PkCx/Fx98+2ZFkWlVq7NTVli6Ny6PuzJ1TkkiSXibV5aVEZimrd
yy1tjKEcy6y1uWyLkB1E49ZOZBWRu1amfyQOGTMuyTl7Hnxe7+efTb7njvrJ
MxgMv7/7v5/nRbva5HP237yy9Icni4vcyWiL9ywnpB1fylUz5YIPyUIfywfM
oG9rhP/kYsNkiauIFYxdT6Nqd9pxcbIh+eoDVgzcKB0NswAuVpmL+rWsNOjI
OExxMRcO3nfHBaw8LKl9PNGwNR2ypWsdv7PKwTyllPJ4Nw/3y9WGBgcbIXf2
k09jCzIRb7uGl7umDSLD5+lyu7IQ8FE8Iz+pE0F9/evEkmy0ffdEUVXcAyeP
uIOlNnyULUoC1CX9cKFyda8O5cFuxZfP9BhB1b7+Q9RUPjIcvuv16B1F+qry
sdHtBfhjT+oNzuAY5I0Z/ryIIrgMuZeuW0Mju1bw3MfqDm7f0oyM0xpH5KTl
AKVfisx8O/MSrTcoHVN0cfu0HGJ/5klv8hYaCWEHQqYqMG8t3S22mQZPyZ2f
1HUPPi/8zs5enIFS1kf3t+kJIPD9zc6zcxaNZnGqVj/VgD+WXVPY9Q7NZnW1
123rUNUw3C+YmEO5zpJ69y0hPH5puN86NYeE/d3lZgVCMBLzcwZn5/BDYgcv
v1IIe4fTPquLc7hHPz/A6xBCPCwZt6YkmN3xu9uAQgM0l9cs9DAlKC5lZjFC
GhBsuk9bEiBBhlZKZsy2Rmz/NdPZeFoC41nVDWsNmmDTa22T9U6C3MAdOllG
TfBRkJnLySTQ/WQqlLmjCTfZx426VyUoCAm84L2/CQxNnYUwjXn0j7zx++yb
JvRczsoRmswjhjoT1l7UhCj7H8ePXJ5HxJh6rZd5Mzpn8iKDVKSQbfG9O3Gh
BUnrWa8a1aSYzRVzdWNaQOyqD2trSBFkPhXrdK0F5YUdOkJdKW5c3FbUz29B
Knu5Qn2bFC9to9sOt7bAod3ldaW9FE5VsTvrDR6ivVDZcYkrRfrE0KHl9ocQ
sYMMEwxkMGqLusiwFqHc331rmqEMBQ9co685ifBvjs1X2UYyjJm2/mjgJUJQ
vCEpY8lANxdvdA8VYV1pj3evhQxfe2RwTfJF8Fqx+OlLtgxJy2Vd5+QeYS57
7YZHuTJox50fXit6hPX9ZfqqGxdwJ/wUL8K/Dfl3//XYYc8iIntSbmUe7UAS
z7Hrg8USUhdy9D/83IkGvr5jsuUyYnZNMtdffwYjFfOYAZf3kOMLpU2hPZj8
/imV7raCerXBkP8wevHiSLWNOucDvha8G3oW2ofPbb2XT8evItroScTRyn60
2Ucpb0/8LyIMc1ptGwfwtG9h7IQjg5wQOpo6PxtEgPrU2c4uBrmDL8/5PBpC
qQcxEzjLEc+y98ejK4aR2GPpFjUsRxrfVkzb/zaC9J6w28tsebI6W6+1wn0B
UwV3O/dJeRJ8clAYeO0vqNSEbQg6o0CSreu2N+0dRVzMPGt6WoG0ldRYNf86
ioxw/UynS4qEo1E4YWL0En3zkczT7xWJ0utNp7xuvkRFXrKOb5IS6T68Gqas
OQYTHyl5rKlM9stbJPqmjOF1Qc7N1zxlwjE/9u2NlTF8pTdtTW9UIV3xI3/a
hItxR+vSpqx8FZLMNur8840YHZv99tZuViWCkVBLPY9XSPReLq4vVSV7fKvd
JrtfgbO53fq8MUUakpVd06xppPkHR1Tvokis5bMnKbY0ykq07y2bUAQpKwcS
D9GYNPMxjN1LkfPanC+ijtA4ZSdd/sGKIp3fBwoCXWkcP7+xvMiFIlea1nJs
/GhYiEL1hsIpssJl2364SsND7TPnDZcpohdPdS0m0LjkJEz8JoIiBw1KPOeT
aAgGVaXjMRQRH1wf+vY6DeOZ3KfzyRTxvDJaO5BBY7Nu69WPcyhyzKu6SnCb
BmGfqXPmU2RHnJ1XZSEN73zNuYw8itz/ZUGxrJhGDovtrV9AkS3Hzp0oKKGh
bTW3b2sZReyb+au8KhqmCbeCA8spkr4loSBVQONou0VRWSVFZhQaDqfU0Ljh
mqj1j2qKjA+cTo2rp1GSzbK7WEuRKufonVFCGu1/dcXW1VGE7bO7/VLj33+M
wmtWH1DEvPqE34VmGqoBBjNWjRQJqX+8EvyQxv8A18YT1w==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$84574#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwV0H8803kcwPGVsX3lKm7KpZB0pdaDUvL7/dEd7tFqaOdHOo1F4iTKJcVC
xFwkFsqP1h6tkvlRMSRWDg8szc5EQzR9W4lUfsSSrvvj9Xj+/1rLOrYveDGB
QNj7vf9dxzvr5cqPcgqYFDbleuWLi0bPOnyheoCHju1u9ep8cTFMfu6lBoDv
+haZ/6s8sdGo0KuVGgk2PoPDZifyxAfFnOQGagIY1P/w7V5WrnjBfNawjpoF
w0kR9lIJV0xnVqhEVB546FlWkXZdEs/MpXdWUyuBxzpM+/hHsvhB5ZJ+heIR
EARGK4sE0ZDipp1TpN0OBltbSPNxORCmk0Lgp3WB6JjpDfdmHrSHPiWSR+Sw
qpu/OYl1G8pnJ8OWTfbBpowgo4vsCqDNs4rN/QahMdQqjn3lPnDpoc/8ng0D
e0UPuS6wBlp2XsyMUiiBG7FSMvzmATD695fpauPwREdNsH3YCDfy9OKTKCrY
UupkDRsew2U+zU5IeQtN3K76Q6omGAkxP8hE7yDo+rYzvM5mmHKZ3jbiOg7V
GsE9jJxWCHgRHPHh1ARQOCGhxmfbQMQqpR3o+gBODLvOscAOKFZerb0p+wiU
E4MSS7MnUCUe6BO9+QSz1R7EDJ2nsLnksqfF+CRw6NxeplwKXRO8+HDSNOhr
/n58/csuaPUPNzm/egbomq3DBd0yWNNXbkg2/gy+lrzCzup/gV/xSwd95yy8
D2f9taS0G9Jy3GVfHebAW36hgJglB3GxoTvHUQ0/H7xWwo7sATOSXcJzxhdg
z12RE4OewegZKZbtMw9C8fweV7deeLG3xnVZ1FcIzHNT5jj2wTo3pvpIygLE
XzrNZFk8h/Y9bK3Nqd/gmEh/09hyBUh7Pyt93Qno7Vi+bpJmP4QtG4vokhGQ
LT3ZtfttP5T5IWuR5yL0XuZzSNA+AKlyRx/2wCJEDfmx6NzDQciWn7yh9l+M
YMNOszXXXsB2jf20/aOLkWJ2V1sTdwhItSeNwo9qoJun+wd0HYchKWGKOj6u
gXTTOe1JZcPAjTG87BFLRM780ubYDS+hdyre/MgXIhqQJh6mX3kJd3mclaw0
TWSn9WRFCUUJVgHTqENPC3Xu1bZvzlDCa0Fh7uscLdR2Z16zYUEJlqvGXXBj
EkpffmjIPnYE7lBi1+bzSajq73hm/rsR6DQNtqkzJSM9gwuM6gOvIJWpvv2w
jIysy5Z6+/a8gihTiUu0BYaafFy+9bnikBUSGVezFUNOU/rS7t9wKBfq31db
Yag263Xx0904jFoHmCTaYEjYnurUTMchiDatznDGUK59R3yFNw7e0caVtxgY
CjN2n085jIND64lV/TEYoqh857adx8FvyU+eRqcxlHnOvH1LGg6xHo2pgXEY
0jZR529Mx0GkIE+rEjC04FtgY5SJg8VEkXSKg6E3HYMxWC4OpgZtyUsLMdRY
zpoZEuCA/I/WexZjyIZm1aq4hQOTr/eJy8PQPZVGbk8JDoVUf6ahAEO3TQQ7
JGU46Dt/st1YjqHsbFW0qBqH7efzIv+sxNBSi9pf79bgsE/icKv8HobSJGkU
YR0OmV6plB01GIojbqq63oCD8CqVdqoOQzM89blCMQ6SIVlifT2GjjtKGHmP
v/8xi6ldaMDQ++cF67L/wYEctnrC+RGGjpwMn7zQgsN/6d5YjQ==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$84574#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwVkHc41YsDh5GLk5vGbd0UIpWckpbK+HxLRkaZcUhGJLIqSRnRNXJDkVBZ
SVJmxglFKOPYq6zI7MRNIjn7+PX7430+/73P53k3O3iaOAkJCAhk/eb/K5d2
w1w7/aKGv9GMwqFnMUieuqHGIRshato4dGt+DFLwk9FDtoNqqp7aulcxkJrK
Ma8je8FARq5GqD4GZ95GhFSQg+AbG2UsRI8BX4EpWUa+C6m0xscZ22Jxwjaf
TiWngayaceBGdiwWWP+2lJALIOjzxKen4h7KC8QH+vurEObiF219LB6hOkvv
JS+lgbPLhGY8kQjXP0MF0m+1w++HuvalqkegubQKi411QyXCzEZOORV5zJ+u
y3/2ItggPzzE7jH0uQ4pClaD6Fm+6aBVyBPEnXD5aPVxGOZ+WaJhfU9Rq3In
+mL/KHhnznnrEVkwHaDkrlw6Ac25rg/m0tnISFgVcHM1Hay76plNq/JwP13/
cM7qSTgk77+ek1KAMWeFM7bEf9iTIk89H1SIea1fe8a0p4HsRYqIWzHshpw8
fvjOwLFwX9nwSyqoDtn61u0/QCbvm0ndXIaU0YelmR2zOFh01qA38TWK337q
pX6dw+XvybALrITi8/vGStM/Ufd4S8L5kiq0z6QFuIn+QoDTbaeGCzWos3GT
Cdu4gNwfpA/f8R6bevMkxaQZuLIOchkydfBXdDngIseAW6uwkJZCHfoD5Ywb
tzHw4Pnw4JRyHeLlE8MidzOQeRA1Wpp1kLgcPLviKAMRTHrVoXN14C8zq//b
6bdvVn3H1tw6DGuyLilmM7C202X+PuqhkVAUFZnPQJbtJ9aCbj2Sptyzpot+
+6JhZ2tSD8uY0cH8Nww41Bwu0XaqR/tQk+6+VgZ8T+41vXS7HtXXUqTUZxmw
krB8btZXj/R8zcYTKkzsL6LpHvRvwJ7PtmFOqkzMmrskSoQ1oFrC/6g/mLj8
3EBu5k4Dht2Ly5/rMOFmGRjU9qQB0mT5bGFLJh6Iq9ivbG5AUpZIZLkvE9uv
0jdXStFw/zHNcGs5E5M2nXzRVhq2dEyQ1CuZmNB0HvLro6FYQKjOtIaJbupd
GYEJGrptD2sENzIR0epRephLwyqp7F2f+plYMdhcGajYiOiHkctjOUzkBmy6
5RfViFv3Tnbw1FgAhXfGyr4JJe+0FxcJFpKazkVt9GzC6E/1nUJaLOStr09i
+DdBzYwcIWLIQmdXHpWV2ISZ1aQjy21YOCN8JkSlswmn4msKZAJYkNjAiJs6
3ox/6sqGZINZ0Ln5wN6J0oyChYI/5UNZ+M/cpY5/vhlLLVLPK0SxsKY7tyH6
VjMq1vnL7Elm4fPdZ+t20Zqx5cH+u5oVLHz88p5ZZdQCYxq5UquahaOSj+pM
HFoQyJL7plPLgpN2616Sdwt6Kat0DVpYaDrbYD2R0ILbG2YWzQZZeKwcsMRp
pAVzj7I8z/FYsPGyr+z0a8XbFMmTEepsMFOVdGLa22C3fvjO6BE2tk82UI9P
tkEoNqNdVZsNjevK4hsF26EdutPk+wk2WtjVxdYb2tF8AeamdmwIHso2kT3R
jt6DZ603/cOGaaBvZFt5O+Y6Xzi/bGDDLX/ThGBWB+IMPLOWtrAx8SCoMOtV
B/bX7Z0828HGKCc/61x9B3zL3riu7WfD831czFZ6B/ipre5+/7Gh+0ji+4tt
nRB3n7usJcHBo10WZVY5ndgiejioz5SDop2loruqusA4befw1YID5rfybWHt
XWgsDDvGsObAI+T7k5HhLnid6RJb48iB0uKQfJpgNypK3GKMvDkwx9l3Cprd
OOWYml4fxwFlcP7kWG03wquFa0s+cCDmdKTmRe0HWK1TfPa+j4Nm8YvBGh8+
YJe7cUTXIAdqF3Te1Ix/QPf6FMPZCQ6mhwqbHi75CBkvlY/kBQ6MN2aXBhAf
USrlSn+ylou9gpaXyqgfMeXXRoq14CIqKfGPttge7JF8x2dYc6FLcZUfSuvB
9XLqTxs7LtJ/SLxrz+sBiZU8qODChcbko3V2jT3Y7uP2svo6F0PVhXPyAr1w
9iJRZpO52B1/ytz0XC/ylvMMLdK5MLp6a8eDS71YyPtxtCKTC0etzu81gb0I
m+4hR+Rzkegm11oT34tM10yBzdVchEqeFPet7cW4o2aW0TgXq2QrVwxv6gNZ
WCWZ+pULZRtBlWvb++D9ZEfsxmkuPJdWObP29GHJ6Er/r7+44G3wpeXr9EHW
dvhkkCgPf7FSVdmefbCnBDDyd/DQ/0ovUO1NH4YMX2kvv8jDStR2WWr14910
aK7dFR5s5D2UFA37kRVltrrwGg9nn9VHTJv141LL7IjZTR7i7udzjjr2Q8SQ
HPDwHg8JVxzjVG72Q8ngcZE8lYdlHTZtfq/7EaR3W0aNw8PkymKryS0DcJqi
hEct8hCuV5SxVXEAev9u/z60hA/T6dPeVsoDWN1Y+zr4Tz6ip24aZaoP4Plx
AYv6TXxod6142GU+gE7dK1EmBB8ap9dQskIGIKdjyz4fykei1lZrhcEBHH53
R8grgo/xHF8/udEBGKFq6dUoPnxmIf43fQCBKpslQ+/zwefVdC/8GEDvtjHV
x0/5yNmSGX9D+BMixZwD+mr5OODr8axnxycs0DwE9EQWMb1Q4szx/gSaQaCI
YvgibmiMFLUKDqKthzFqeVKA+HJnhDImPQTX5d882jsECHIfMbdM+jNyrYgD
VGNBojj8zsZi0jDCu9UtAj8JEhpCBqcMI4cR2+2TwbYRIl7Hz2SyhEewbwlF
nzIlRNxIKqTwwkYgWuoj5ea+hOi40YjpxRHcDJonT08vIcb83g+r+owi7qrk
faNrwsRorve408IoeuYDFM5zhIkV305FT7qP4WVaxDqHW38QGfas0/YzY9hr
94toXCVCeDTpRlz2GMeXp0nxX+6JEL6ZBu8Z4+PYvWFaa0JalIhRSpG66jSB
F6uvbU5MFyUi6OOyFwYn0CLrdLBMVow4pu65WcD0C8Jt2VlvcsUI/WUbdtzp
/IKLsk1a3kokYkfY4Z7Y43Tcdfbyf6VMIu556Whk6tORl7OmiL2XRCjLtj8t
M6Rj6oCdTPBBEiGi6uszbEyHo/4vdtQREtGbMCC1y4qOU97SBc9MScSKztZI
misdanWXNwxcJRF2YqxwgUg6rMT/Npa6TiKcVqjP/xVNxzWjynB7fxIRQ31j
u+0uHdR+sV/0IBJRcpHYdyKODqWZ5Lb5iN9/jp3rfJREh+z6hhCJJBIRtffz
yIFcOggb99fGKSRid8NOQi+fDtv0VXNxaSRCbf9kss1LOpLINraST0mEA3ut
ZUgJHWuOzB3ankcilBosGjsq6NgXluB1oYBEtFMTtk68pcOkSe1ZXiGJ4Gs2
32RW0xFtHr56/ysScRxGqtJ1dOQ8JOv7lpGIgM/lCXsa6Gj63BH8+jWJEL9n
NK/V+LvPlqul/AoSIdcgaUxppkPMdePMkSoSsb9UPs+tlY7/AUw6RCw=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$84574#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwV0Hk41HkAx/FxxY9tlfTYsIk8T6npUWklj3y+dpd2c5NCO44pctZ4oqJR
Y580hg4bylNMdp50OqZinOGpda+w5CbNZH4bO+u+S9v+8X5e/7+N2ac8gpQZ
DIbzl/53c85FLwdRlO1kupr51JY4ZI9etFlmukHW5CRgrj8PIabnu5kBeMNI
lwUrc7FxNM+rjskBL8Iks38gHn7VgksvmDws/n6XJ23gYcVswaCMmQoSW/mh
Of4SXPwLaQkzB9u2zlUI6RTMLSa3FDPFGH65Z6eIlYFysVZ/X18NetaI2Q6l
IiQe0EzL1mxECMcn5di+xwj7KpEhSmpDjLNeaUiTGI2hr1U1ZJ3QkhXKJ+qL
ULAwHaY93YPnbh6qzgmlcPzIFpr5DkJcZeIXl1yJdJfQLt+uYawTqGqFkBrU
7r1+LapPii4hd4i74SU8+33y12qO4FWRlluc/h+4d0sn/lddGiUSo7LAxVpk
iByt83Q/IPSJrfvg63rITpj5+ZMx2OdE8+3+bMSM/exumYMC2xLMi68/aEbA
UNDJiXPjsGYrJdQ9boGE/cTxaNsEVCyHzv92rxVC6e3S++2TGFsy2ru5qg1F
1QM9kr+nMOr7y+fJF+3Y/ijD3VwxDcXOo6+K8/5C23hOfIT6LFT4QV2RhR2o
Y0Vsumw4B+7hWQYnvxPf9hQYaBjNY/bOgS0nbr+BqPCHJpe9C0gMzM3yuNOF
pDTX9k82i9DLrl1tkdKNaqGBq2D/EiiP8JusMz0wVbfm9XouYw3f8CQ3phej
51upG0c+wnB3ql3qsT4MOZc4aEd9gg1L+3hmUD82H/BfCklcQbmSrnCUPYBG
pwurtvM/w9awv2OX6yBau+el3q4M0i3J9450HUKY9j8n29oZ5HT9973Ztm+R
70ssJe5KpORhgdUV3WHwO/cfuTCgRKrz7fJepQ3jRueZe0ssZdKgKM6O0XyH
PSo+jj6jymRQUSgxTnkH9dIzGyMiVcj01hTnn1Sk+JU3w1QoVEjZJrOJdbFS
pJ81yHCLVSXJPU7lvQtSdM/Em4UsqxJWs7uyPkeGpzkCPXaSGrG+MBB1aFIG
i4BZ0qSzitQrzBQWnPeQ52bdlKetIl6Z3vKr8vfYqa+wHzFSJ+PKq9WlwSN4
rBtrnClSJ4KHolzx0AhaTIKsykw0SKfmsqvpITn4/ksPK/M1iNmOXuMbHXJE
mTTbR5tThJecGRV3kEbqCQ63ZBdFBijxsatONAry1j9fsqCIlaDeK8eFxqhl
wKYEK4r8y5/bV+dB47jj7NJVO4r4JR5S1jlK43C0kfiBJ0VseGvSHoXTsKk7
rd9/liKLMUlFPVdo+GptcN8YRxGv2bv3x67RiHWr4gdyKfI0uiRzJZWGpE9j
luZRJPS0nGuaQcN8PLt1RkCRXs6P9pxsGibfNFz6OosiJeGMLvUCGoQVWeEu
pIjOmF6DvpiGv0hnKj2HIqfCzMt3PKORxWT5G+RSZEuon9BTQmO93dS+rQUU
uRlcGXy3isaey7c44WKKTI10eD+roeHRbPOg4BlFXILGDta+pHHNi6/7XQlF
1I7rm4/V0ci7zXQ8V0aRANku45UGGs1v2xMqKihSyf553drmL39Mz5auvKDI
BmmAmmkLDY0ww3G7GopEB56bt2yl8R8pvVUY
          "]]}, 
        Annotation[#, "Charting`Private`Tag$84574#4"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwVlnk01IsbxqdIDRUp5dpC3cIdtAklz1eiIoQiyRrpCulqoSJkTUq2SsiS
UkmoLCFS2YchWYZhUpYRSrbM5uf3x3ve857nnOdz3uevR8H5rIXrYhKJ1Lww
/98b0q4dNcw4pxvcVTNnxriDlJFrOhzKYQRHtEUeH7iDVEzOdlAcMRRpFnJ6
7A7kRnKOVlO84VbRUX6Ldwf2FZEh5ZRAdPJ3nxaUiwVf+Y90CSUG1RLSHxMc
YmHq8HKokJKGyugLPJuBWMzM3aC+oeRBPWh29RtOHN7miXTT6ZWQ8N9/qzEq
EaH7heNShOvASi2L79t5H+7LQ0kZETTUHM5OVJVNRt2/TYLLvrWh/aC6csyD
h8j9M+kuOtmJDtXoe7+S02HMdU5VPs5AOnNCN64uE/Gm/7Yfb2ei/sjUyqtK
j/FJ8/atc/R+ZB6032R/PxuW3TYvVgkP4Lq5dkZ0yHM8uivuH7xmCHPFxUsK
Q3KRkGG8K2cNC9v7m6Zu9ubhm5uyvQPxAxkrvaqzawswZTC97ZvhGA6eU4wR
KH8Nx15Xr1++P1HZU6J/aUURCp2fG9vSfqGxIEN8PKIEqf1JxY9bJlCQnp3t
sbwMryt6OguHf2NJcpdAC6kC/zxNMFcfm4TP8j+df/MrQfuZ5u+xdBqr77I1
A8qqUG3nIR8mM4PZ32GW5ISPkO3MlV62fhZjroZeoZ7VyHipX2+q+Qd6V8ws
HsTVIiLOrIWnMwfRiGuF2fn1ePPBcH6emMN8zWlZ7bf16J/co7rYYA49w6WU
pqp66ByhRAqZzEHBKb1fqK0eP9eQ9UTt5jDWfX5R0Uw9rBKr8uT956B/Z7l1
9J4GbLyvEaNfPgcvPkxK2xtQkSptFrmHjQPa3wSmpKhwlGTe7tdj461ir4rw
JioWxz6i7TZkY1oxdEJhKxWGoaoW46ZsjD5SdLPeT0XjGRy1dGSDr6TW1+9D
RafWSVvZ62ywDftnuqlUXC7YnHwxnI3e60ZVu7qokKaM9jRHsSFp6vU64zsV
9usv2AfHs7FTMvdHDIeKgSXhTkNZbIjEf9blKjfhd+szt/xaNgrr4phDkU2I
P3Q2W5jKhmzc9bP7EpugUb2ddbKFjVg7Fb2SjCb4lpS5r6WzkV8k4/uztAn8
h02eV36wsR1TDU9/NkHE87ePwUoO3IUujOy3a0bOYOHrVHEOrvtoch+faYap
45Xp2bUcZJnmJW653IxYS8FLz9ZzoOT8yrLubjMkd629LLqVg5eltJt7vjRj
49JdgV2WHJwol6G6qtIwe8LRediaA21/1/kiDRrqC8L2zdpyoOKz+byyLg3e
9p+XSbhwUP00aJO3GQ3lbzzuHD7PQYV5eu1rHxpiROJ8HHw5SKDrByj70+Di
VHLU6yoH8k71r2vDaBBeISR1M4SDfouJ8agkGqxcHmbUxHPgdkz3ndFHGpTf
fgppv8fBfvrZYq1mGriio6cGkjkQG9rAsKXTkFGq9Y9AFgfkHJEYwwkaxsVb
X+m+4YDpXri8T6EF4e8FP735wkHLlZDvD2+34Pi6f5587OLgx8rxuqzUFqh5
mkd+ZnBwSPuCGOdFC9okU00mBjhI+83QTqK2QN5bs50ywwFkmuI6xVox+cmu
eDebg4vmk5QwxVZUS4ckGfE5eDVyT+n2jlZ41NDsTwtxcVpeRrvYphXFcu5D
mWu5GFQTlg/LbkXU+Zi6AikuqntIz1XLW2FfX/j8vRwXM01V0GptheBFAe++
TVzkNAmM+/JaYU5N/iOlycXzRedO5Rz7jJErzeRYay78K35ouSu0YZv0B/6s
LRe+GgGCzrptuPy2cNLOkYvHq/xq39m2gTyXwlD+lwvHv5qCHtxtg9JFj/z3
l7n4bq/GP7f6C9y8yTYTKVzslv3w3mhdO3JFeSbWGVzolyhM+Gm1Yyb3197y
xwu8x0ctymzaETbWQYl8yQWNfNjBMbkdj90fkxTecxHgl37DXaED3130sw9/
50Keft2YtrETFEHNlMJhLhr3nk/atK8T5zNVYmXGuOiihXVSTnZCoH/V1eFp
LhS3mmFnWicUHZhmgUt52HTdSaxRogvu/M/7BkV4OBdjdV9tWxcKUmq0D4nx
kFlyIWuDaRf29uRukPyLhzn66ObSkC442fjPvlThwTL/jKDnaBey/3iPSqjz
wMw8MKS2hI5fd12+XtnOw03hLm9fWToC240b9uvwcFH9Pin9EB1pllIP+0wW
/Jpcsoyy6Bj+vSLewIKHri91xUZv6dgSuyjyuRUPhoM3TL400VFBG/7vkgMP
i5qdAmJm6Og1KTIUPbfgf2qmvJHoxoex0BeOF3iQauMd4Zl3Izv6yJoCPx4G
1ozE1Tl34z/qxNcjwQu6uEulzvVuCJlQ/JPieBDbm0SvrejGj1H2tx93eZAl
75oRa+oG7Wad0Z5kHnYwtrou6elGUuMpSeYjHkxHBXrYM91QP5T+6u9CHvY2
q86YKfdgzehZqUtveRCfvC+xTaMH7CjdoNp3PKSfdR2lET342NBteqaGh4N6
S7ebWvfgmPHakbxOHgL9ArnRQT0INIqS1+HwQL55TDihsQeuIzbh0fM8fLIS
tVP70gOjG0rjvQJ8lJ181vuQscCr/1QatJyPAGN+mNh4D54eJFnXyPLhuH3t
DuMVDLQeuBBtQfDxVl9lwy5DBoqG9acy9/GR1D1kOHqIgeQIcdvpA3zIsx2W
RVkycKr2pdI9cz5yj5Tti3dkgL1/5APDmY+1h1ZrjfoxsGG/A/t0KB+eCpJb
rz1jYNeH24u9I/kw5VbMk/MYOIxK4UvRfCh3DKTEvGEgQFNBOjSBjy39v5Pi
Khno3Pxtd3oWHxk1+2KvtTNwc5mbf9cnPhQsC2ctFvdips6LZCQ0j7MGVamJ
tr2oOxQg9E/4PE6IsTyzlvShuWO2/5gZiZClNO7pU2MiN3vze2dzEvGIkz20
fhsTN/2sH3pYkgjfGB8VVw0mDkgX2QZak4h3QToa3N1MVNlfbHviQCK2F9Wq
WhxkonBg6tPMWRIRqC6hounCRHzhxkek/0jE7Sg/3HJjwif8SLDweRKxzlRm
6Ks7E1uUX+vK+ZKIohVCP66cY+Kph0+RQSCJcEwhM04GMBGxJzPBLJhEuEqF
fI4IYuLUys8+NiEkYi217mJmCBOKedu2eEaQCKE+tcw3N5hInpzIjo8hEbPr
doaoJTJx+aNCeGosiRDv0F/df48JmwRz1+x4EpGobicU/ICJtZr5CmX3SAQ5
5sHToDQmYi57J31LIxEyqyZdjj1lwss4zXcsg0RImCg12z5nwkSGZjX7iETs
uCDZbPuCCeF36qtFni7oqmeWWuQzcX3Rz6ht+STiqIVXmVQJE+6io160lgVe
3rO2uYUeddeRLET7TCI4EbPunzqZ+Ji/KaX5C4mQPPq9KobOhNwRp4amLhLh
EJCjvbmXidZ77ZupX0lEtw6t0mqAid2K75l1Ewt59lwrp08ysVwj0eLDqkXE
yriSgb/Fv+LFcWJnofkioiPfP2XwyFeEt+2xDuhZRKwKXpfZ0P0VsW0XH7Ht
FhN6otOJctb92CFgY2wzsphQGxzNWdLTj6XFF+U8PAWIE9p9bU+tvyE4cIoy
NiZAGBWoaTygfUP8JemEw36CRGP+tasplt/RMeWvfJojSKidbvVupH5Hflrk
OueIJUTMBC1xk8UAtjtOE/XiQoTJaGf6yrYBDGYlJw7GCREnopzmtEwGsUVq
zGBg/VLiTnDC6wTaIJ6t8VO4l7GUuB+62EfTeAhURVetEsVlRKaYQbT3hyGE
O7Czy14sI1rGleP7DIZxTrHB4Lw6mRBcHjseVzGMGDfvq0VbycTh428dX70f
Rm6OxCv2djJxqkr6c+uHYYzsdJQP0iITDsnuRatqh+FiPM2O1iMTGX8G/G/T
hmF1fn3eE0syceJKwfyNr8PQqfaR6r5EJrYlKFUFCbBwXOQvc7nLZOLl5QKV
9CUs+B1+F+50lUzYmFfFVi5loZC+bHookEyECnk6zYuwoP4zpXkqkkyIqVT/
ubrQgxUla0NWJpOJNyLvV/r+zQJh51lqnkomRN1Uzt7dzIJDhvjv+DQyIXxI
rLlQmYVkip2DdBaZmFxkFT2tyoKE3m9tpVwyIVczJeCzk4UdYXe9z+SRiX3x
Ho6xWixYNOg8yS0gE0Mi3mX5u1i4dTR8jUbRwl28yeeXLgs5SRRj3xIyoS/6
lSqqx0JDX0tQaenC/1YaSur6LIxsvFTMLycTT35sDjY1YGGZu8xPvUoyQQ0s
7/bcz8L/AGXCdZQ=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$84574#5"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwVxXk4lHkAB3BXY161qzx6atMibEvNo0NKou9vtodqJ4SsTBhNeUSIzZOS
alhHamsLHVpmNUskVxK6kNWso2LsYNzMOOZVHpUro7S7f3yezyr+MTd/DTU1
Naf//L9p5jkPR1H49qmWCt2D20XIGD1nN8faCxerJHmptwhCTMy0s/wgTPF6
yDwtguFovoeYFQa3fSpucbkIvlVJcc9YAuS1brvzZf2fmLf4aPCIdQXesko7
oWkWnHlFI2WsTLzqqQ3sYt7B9OyFVw9ZxRApm//y+OcuHhcv7OrsrEayd2C3
eMF9xO/UScnQqQd5kGuyprsUQYvi1UTnm+GbYbN61x8VqA98rcVUSDF82L5B
u/QpCj9OBOlOyBDqpOaTyK4G5xNfaMHtgbHnyuwu1xqkOge2cdv6kZDXz7m0
vxYvtvx2ObxTDjPruJt8OzHcu7wKlugMIcqS/5C5uw5ZN/TOxOqPgMEzOtmy
sQHXRBzbfH0auzvi0mb1XkIRYOHLI2/ArjG7+N7gNSYdpjYqHMew9b3rVYZ6
M/x6/UPfnRxHfoXli2imBGX8e5wDze+gyuLlrlrYAqH8VsUdyXvIWQLf/Z9a
UFrVLStTfsD3b59Fz6hLsfbuNdd1YxPQ3vkmxHxaiubxzDPB2lNgd1j//Xy+
FWKfYOOEldPwuiJtStJox7eyQgOm0QwoBf+eYrIdoqIdDc5bPmJZyNfj2XMy
nE9xkXy2m0Vl8t0FqncdqBIauCTZq8DuudkYPdAJM21bQYf7HIx52bMBw10Y
Pd1EJXt+wq3o26rBjm70OpU76oZ/xjHJ40MNAz0w3clTHYmfhxHHPLp3sBf1
e84y1iZ+wVG/+IC4tj40tc/I97uokQtt53x2h/YjSPdtaLNEjeQ1lIalKftR
wCWby1zVia0kpUvgN4BEqb3n2W51cuJ4TFS6fADJ0hNZKh8NIlAMa6h7y7FJ
04vjNapBbMa5VWl9cmhXnDAMDtEklXWO/qe5CsQKJlljY5qkpLSbP9miQGqk
wbW9p7SIm11M6m2PQbRPnrE4MqdFqq9mFN1oGsT9zKRl/PMLSG9s3fxz9yFY
+U2RBj0GOZKQkf1L6xCGs9OvD6cwSKXnqPVl52GsXzHmMGSkTWprHVQvJcPI
0z+16qZIm1z/sjx3354RvDLxt3lkwiSyPdcLjteOIJGnyn1awCRia5MRsaMS
4SaNDhHrKBL79judQ9VKXAkIiy7fQBHnHr+vYmuUKMxf+kBlRZEVr39ffLtW
idHNfsYxNhQpKVqyrK9OicOcKdUlNkUGf/5sekCixE8RRsU57hTZNSu1d5cr
YSc+vqIrkiKLGXHhO7RocBd+42oYRZHu6coIPoPGqb2ViQejKZI7MhsZw6RR
1smcGhFQ5If6Y2erFtFYN57RNJlEkYhfD1zctpSGyfK6uK/TKSLTs8q2Wk2D
+IQ8cRVSJEszNNfNnAZPpPchNZMiYZO598LX0Ehn+fAMsimi02ZYUmRJYyn7
w1bzQorYpulUrd1CY1PCjbCjxRRhXnCo+XErDbdGu5zCEopIowQvArfRuOyR
qG9dTpFg7+nGHNDIv8XinHxEERunDU1iNo3GPknMkycUYWwPbhnaQWPULLJi
/hlFWixzWrUcaTCDVo6zqykiNJLLTHfR+BdgwV0y
          "]]}, 
        Annotation[#, "Charting`Private`Tag$84574#6"]& ]}}, {}}, {
    DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     Ticks -> {Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Automatic}, 
     AxesOrigin -> {0., 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "ClippingRange" -> {{{6.569134336465715*^-8, 
        3.218875759176857}, {-0.023763995773367852`, 0.7900561557771544}}, {{
        6.569134336465715*^-8, 3.218875759176857}, {-0.023763995773367852`, 
        0.7900561557771544}}}}, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\[Beta]", TraditionalForm], 
       FormBox[
        RowBox[{
          RowBox[{"s", "(", "0", ")"}], "-", 
          RowBox[{"s", "(", "\[Beta]", ")"}]}], TraditionalForm]}, 
     AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Part[#, 2]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Part[#, 2]}& )}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, PlotRange -> NCache[{{0, 
         Log[25]}, {-0.023763995773367852`, 0.7900561557771544}}, {{
        0, 3.2188758248682006`}, {-0.023763995773367852`, 
        0.7900561557771544}}], PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"n", "\[LongEqual]", "8"}], "None", 
       RowBox[{"n", "\[LongEqual]", "12"}], "None", 
       RowBox[{"n", "\[LongEqual]", "16"}], "None"}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.789819154559926*^9, 3.7898192058383102`*^9, {3.789819328973916*^9, 
   3.789819347233488*^9}, {3.789819586510404*^9, 3.789819601266243*^9}, {
   3.7898196317659693`*^9, 3.789819637118384*^9}, 3.7898196782312527`*^9, {
   3.789819743383521*^9, 3.789819776802191*^9}, 3.789820003836022*^9, 
   3.7898200483861856`*^9, {3.789820594030262*^9, 3.789820707787868*^9}, {
   3.7898224631465263`*^9, 3.7898224693046827`*^9}, 3.7898317351153708`*^9, {
   3.789831769123528*^9, 3.7898317873044233`*^9}, 3.7898320868229*^9, {
   3.789832219182062*^9, 3.7898322246789417`*^9}, 3.789832488485786*^9, {
   3.7898326687007637`*^9, 3.7898327288395452`*^9}, {3.7898604293463984`*^9, 
   3.789860433244069*^9}, {3.789862454221322*^9, 3.789862459724276*^9}, 
   3.78989284423855*^9, 3.789892895680129*^9, {3.7898937316741867`*^9, 
   3.7898937451922913`*^9}, {3.7898969827585917`*^9, 3.789896989637113*^9}, 
   3.790500048307528*^9, 3.790500844463442*^9, 3.790500913757571*^9, 
   3.790501318999692*^9, 3.790502638211178*^9, 3.7906807712547293`*^9, 
   3.790681264559465*^9, 3.790681313682047*^9, 3.790685724380177*^9, {
   3.790686481233158*^9, 3.7906865375867577`*^9}, {3.790687438279323*^9, 
   3.790687513180407*^9}},
 CellLabel->
  "Out[312]=",ExpressionUUID->"79776383-7b0a-4c8c-96fb-ec0fcc44679e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ns", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Import", "[", 
      RowBox[{
      "\"\<https://oeis.org/A206711/b206711.txt\>\"", ",", "\"\<Table\>\""}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "/", "2"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.78982026538109*^9, 3.789820353900846*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"logN", "[", "8", "]"}], "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
  RowBox[{"fit8", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7860347589391937`*^9, 3.786034815522037*^9}, {
  3.7860348927276173`*^9, 3.786034892871313*^9}, {3.786034938992958*^9, 
  3.786034939228087*^9}, {3.786035027428249*^9, 3.786035027598805*^9}, {
  3.78603612665457*^9, 3.786036174521947*^9}, {3.786036298387973*^9, 
  3.786036298558413*^9}, {3.786036391518311*^9, 3.786036392481715*^9}, {
  3.789817322122814*^9, 3.78981734350443*^9}, {3.78981904967447*^9, 
  3.789819050028948*^9}, {3.78981989295175*^9, 3.789819900229203*^9}, {
  3.789820346352702*^9, 3.789820358949071*^9}, {3.789831035088595*^9, 
  3.789831035495175*^9}, {3.790686939117031*^9, 3.790686939521482*^9}},
 CellLabel->
  "In[313]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],

Cell[BoxData["0.011528892817073534`"], "Output",
 CellChangeTimes->{{3.786034765393785*^9, 3.786034815805835*^9}, {
   3.786034880548635*^9, 3.7860348931752234`*^9}, {3.7860349290857697`*^9, 
   3.78603493955373*^9}, 3.7860350281548758`*^9, 3.786035066093541*^9, 
   3.786035221700058*^9, 3.786036062003336*^9, 3.7860360946394253`*^9, {
   3.786036127322308*^9, 3.786036132430464*^9}, {3.786036162798462*^9, 
   3.786036197237939*^9}, {3.786036258065976*^9, 3.7860363091693296`*^9}, 
   3.786036393224642*^9, 3.786036435908414*^9, 3.786036506475976*^9, {
   3.78981732702774*^9, 3.789817367917185*^9}, {3.789817799899253*^9, 
   3.789817828202737*^9}, 3.789819050485126*^9, 3.78981908819144*^9, {
   3.789819607127367*^9, 3.7898196375034018`*^9}, 3.789819744075357*^9, {
   3.789819893666527*^9, 3.789819900694466*^9}, 3.789820004964889*^9, 
   3.789820359137393*^9, {3.789820594929513*^9, 3.78982070858637*^9}, {
   3.789822463806806*^9, 3.789822470222951*^9}, {3.789831035829953*^9, 
   3.789831039712731*^9}, 3.7898311296448107`*^9, 3.789831173331883*^9, {
   3.789831771607078*^9, 3.7898317882862673`*^9}, 3.7898321075130663`*^9, 
   3.789860441009506*^9, {3.789862455358055*^9, 3.7898624604158573`*^9}, 
   3.7898928491271963`*^9, 3.789895378453265*^9, 3.78989699519963*^9, 
   3.790500053288452*^9, 3.7905008466582413`*^9, 3.790500915366055*^9, 
   3.790680774016933*^9, 3.790681267181381*^9, 3.7906813151258707`*^9, 
   3.790685728199264*^9, {3.790686487552446*^9, 3.790686539072474*^9}, {
   3.7906869354035*^9, 3.790686939935053*^9}, 3.790687522332919*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"c0e31b1c-6cff-4223-a724-2c5b4f4824e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"logN", "[", "12", "]"}], "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "/.", 
  RowBox[{"fit12", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, {
  3.78982037403331*^9, 3.78982038294141*^9}, {3.789831775865436*^9, 
  3.78983177611141*^9}, {3.790686943324568*^9, 3.79068694357749*^9}},
 CellLabel->
  "In[314]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],

Cell[BoxData["0.014621758308675504`"], "Output",
 CellChangeTimes->{{3.789820091591922*^9, 3.789820112136485*^9}, 
   3.789820384157509*^9, {3.789820595407804*^9, 3.789820619979476*^9}, {
   3.7898206520168953`*^9, 3.789820708977715*^9}, {3.789822464040449*^9, 
   3.789822470632036*^9}, {3.789831772132658*^9, 3.789831789119802*^9}, 
   3.789832108205226*^9, 3.78986044212982*^9, {3.789862456024865*^9, 
   3.7898624608924503`*^9}, 3.789892849403596*^9, 3.789895378722474*^9, 
   3.789896995440785*^9, 3.790500053923429*^9, 3.790500846700687*^9, 
   3.790500915950795*^9, 3.7906807745707397`*^9, 3.7906812676631613`*^9, 
   3.790681315798389*^9, 3.790685728471385*^9, {3.7906864883651733`*^9, 
   3.790686539448419*^9}, 3.790686943835453*^9, 3.790687522603384*^9},
 CellLabel->
  "Out[314]=",ExpressionUUID->"13476d45-5bbd-4649-8fa4-e986b06fb75c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"logN", "[", "16", "]"}], "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], "/.", 
  RowBox[{"fit16", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.78986498754324*^9, 3.789864996472858*^9}, {
  3.790686947012381*^9, 3.790686947257492*^9}},
 CellLabel->
  "In[315]:=",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"],

Cell[BoxData[
 RowBox[{"-", "0.9584040342730118`"}]], "Output",
 CellChangeTimes->{3.78989699778589*^9, 3.790680775155786*^9, 
  3.790681268587042*^9, 3.790681316297798*^9, 3.790685728795175*^9, 
  3.7906865399149313`*^9, 3.790686947637628*^9, 3.7906875228290997`*^9},
 CellLabel->
  "Out[315]=",ExpressionUUID->"df7c4f95-664c-4667-af1e-fe8e47cb5783"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit16New", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Interpolation", "[", 
         RowBox[{
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{"Normal", "[", 
             RowBox[{"sample16", "[", 
              RowBox[{
               RowBox[{"Thread", "[", 
                RowBox[{"{", 
                 RowBox[{"#\[Beta]s", ",", 
                  RowBox[{"#Cs", "/", "#\[Beta]s"}]}], "}"}], "]"}], "&"}], 
              "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
          RowBox[{"Method", "\[Rule]", "\"\<Spline\>\""}]}], "]"}], "[", "x", 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "50"}], "}"}]}], "]"}], "==", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"logZ0", "[", "16", "]"}], "-", 
       RowBox[{
        RowBox[{"logZ", "[", "16", "]"}], "[", "50", "]"}]}], ")"}]}], ",", 
    RowBox[{"logN", "[", "16", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7906857384191933`*^9, 3.790685738688867*^9}, {
  3.790685770072997*^9, 3.7906858559293222`*^9}, {3.790685893260291*^9, 
  3.790685977649507*^9}},
 CellLabel->
  "In[301]:=",ExpressionUUID->"c12fa5e5-5063-4b4c-9c3f-33314d3bf3a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"logN", "[", "16", "]"}], "\[Rule]", "72.82835892655817`"}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7906857941792307`*^9, 3.7906858562074223`*^9}, 
   3.790685909680387*^9, {3.7906859466224937`*^9, 3.790685978424323*^9}, 
   3.7906865407791567`*^9, 3.790686951549755*^9},
 CellLabel->
  "Out[301]=",ExpressionUUID->"2914ae7c-4997-40c6-ae62-793d718e2cea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"logN", "[", "16", "]"}], "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], "/.", 
  RowBox[{"fit16New", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7906859819371147`*^9, 3.790685988545287*^9}},
 CellLabel->
  "In[302]:=",ExpressionUUID->"999b2b2d-cb71-4e35-875f-2e890e432c80"],

Cell[BoxData[
 RowBox[{"-", "0.038587921004973685`"}]], "Output",
 CellChangeTimes->{3.790685988837531*^9, 3.790686541209792*^9, 
  3.7906869521066313`*^9},
 CellLabel->
  "Out[302]=",ExpressionUUID->"6c8cbe80-6b6a-4d30-a4d8-b1258c4d2ceb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ns", "[", 
  RowBox[{"[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.790686194939144*^9, 3.7906862275450993`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"13f9cb8e-33ff-4686-bbb8-4d58374d239f"],

Cell[BoxData["44263406458183601052293529600000"], "Output",
 CellChangeTimes->{{3.790686196185197*^9, 3.790686228175531*^9}},
 CellLabel->
  "Out[226]=",ExpressionUUID->"0d50940b-c5f5-44ca-810a-714e1ad8f681"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"tmp", "[", "x", "]"}], "x"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "50"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", "All"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7906858407227783`*^9, 3.790685870177423*^9}, {
  3.7906864361879272`*^9, 3.790686445075185*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"8272a1c8-4c17-4097-8634-a997066bf642"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwl2Xc81d//AHApGkb23mSXdW3XfeFyb8q1JVuZoYyEkjSVkETJFiLJCn2M
FAlJKKRQWRkpskfrd87395fH8/E+zvuM1+t13u/7Fj9ywsqTno6OLmAbHR3+
K3HjT16WSIV+uc7zY4UWxcQnO+REA3xukKTvJJQF//UkNYWX5sv6ZJP6lNJu
HvlwmXRLY8KJJaGQJJdZZejlm0pqVQ7yZvQpIzmE+3sqJBSQIrn//fcv5zEp
HPzE79eVk24nGev/jn9COnRV2yx97gmpbHfci/XT9STx6Hk7+33PSe1x76gr
3s9I53nU3b3+tZB+XmKeCi9uIg1zZ16N9u4gnX1RJreW84IUXvLv2phKD2kX
vbV/6J2XpINb5yYfh/eSbsNq6VJ8G+lH+176j4wDJMlzdxeCLr0ibTgVkrcM
DZLKn+oRfp5+TRI05v04ufSZ9ErnYu13726SW8i6+qW1cdJDPc4o9bIe0sy6
H3eY9yRpYcgj+2TxW1JFXzo5YG2aFCWwY2wxp5f099y+ZO7QOVJL7eGtqhl9
pLL7Vz73lv8k7Tr8UCroTj9J6ZpV01/1RdKdOzTv+fgB0syPY5rf/FZInzVy
ru679oGkxaCUJS20RpJ6v/Ag4NJH0ulm/dN6g+ukcq6U77Onh0ghMaKnfkf9
JnXcHAqa9v5C0hw1qVBQpYerqbdf3VIZId3iob9wQn8rKPqQHNTKRkjnmf6J
11tsg+DtN88EF4+SuFbNvtHHMMJfY0Ljz5xxkqmllkW4JhPwvTht9CN+iiRk
6uUHrzigPkmyL45pmtQXrnC4M4ITXI50eihemyZFhB6qz1LkgvwtIlf8Ls2Q
bpafiZhP5QYVaGqfOT1LWg+1vKN8nQ9Mn26nTXrPk37RVI273oiAyr8jKzw/
50mq5rTXo2WiECfm2iWp95MUIXmmbWO/GJw8Uhdq0/KTdOi9bPuysjiQJwNb
qvsWSFk16aM7dknC2I9P7uErS6TV5h2PYiakQezPk4w/GuukJY3ARAVhJXjD
orFzmzMdWMew6gz4a4HhDePnheY74LWQqcryUzJ4Km2yqLCwAeHPCYOTlw7C
waGYAj4RNpgMPDGvkn8QCDHcRDolNphdj0/+8uIgbPui7N9twQZ7ws5rM201
g3sJ3h0ByWwwyCEedT/aDL786LtSLMgOLbZ09QwRNGi9e0QkSZEdiD9Gfnff
oUGp8c/qCCI7sJkUSsfV0CAqk+kr1ZUdtofe+zi4RAMhM0OjqXvscKl/MPN9
gDkcLin7JynPAaGStu//KFkA2BPvMOlywBtNLqW9JAuQ3fZ639IBDhibVIvz
pVnAuuOkc3MAB1htuWzPE2ABt5mEG9wqOKChznw486EFRD0ptqY2c8CV5W/F
SfUW4HlUa1aplwMEbdgryl5bAKHeWuDfMgdQtfvfB363gN5jseGZWpxQXHxU
MUzZEup4+Ngu7+eEnZ/DmLgNLeFec0GhvwMnWFqzqGxYW0KwQNN73UhOKI0O
U84PtwSHVtpxyXhOuD8aOh5y3RIMgocZmLI4QZilkb00yxLYOtYIg884wY5h
/DxzmyWsh17ubOrhhGdb/R5fHbaEL+KcHg9GOeHW1QtBIkuW0Pom51fiIif4
N1cL/9plBaUR+26Fb+WCVRoUH5Sygtt7GuTduLhgQ4clzYBkBVFv9zdT9nCB
Lf0Tup1OVmAm57nAQ+ECVf1wm650K9i8Hlr/yY4LxETofzY0WEHR3OXL+V5c
wErM+TL1xQrsLG+b+53igvW8/sIwBmvYVnWfX/UKFwRPT+mk7LWGSp4n4+sp
KO4Vv6z72luDa0Tbo2cFXGAkeqVM9Io11OlPG5i95ILKa4NHBr5Zg0/uOhNX
Pxd8Ev4mqiRhA9zbdr4fnOACpbsBdpzONtDsxZ+Tu8wFVN/f62XpNhD4Su6Y
zzZuyLv2QM7psw2IKOoQlLi4YU1cQ1ZC2hZeJ5j+XZHkhjnGzRziSVsIX3Bo
b1DjhqsqoV0/XtmCtI1f0kUjbvjVvT8iVNYO+mrOOJlac0Oisd66wE07OM8f
J81+lBta5NWUZRkOwb7IjJ8DwdxANtNM/nb5EAx/LqnLuoD6LwvZ85jLHmIN
nl7yTOKGulj1kPeV9qCV/4ameI8beky/p5W4H4ZJxs98SxXccD5JjnpTwgFu
+c6N1TZxg5F2btX4qgNA59+S6Lfc0HpArohxxBHm9u0Oo4xywzxTXbjbFyfI
uClqwLqAxrtD//jRVWcwXVZi6qfjgWVCRPV2GVdYt4P+dDYekHlDX/1B2w0K
ai2yj4jxgO/m9Y9e825Ady5I7SeJB95+PLaDP/4IlI6e/1NjzgNcnjcWa8OO
giM5qe2sKw/wZSZPxp/ygB2F926ST/DAtgw/vg+xnlCz87Ej0zkeWNwgG0dX
e4GH/4s97xJ4wDC5145+zRvYu3vnU7N44Kjng+995r7gn7x8UbqRB05bNB8V
3e8PAmvbaD/e8MBl3exj5jMB0HaYm6/qEw/4kwW2C+ecAAlRjRKDPzywbrVy
mnY/CD4+COtz0uMF/rFdF4KKQ+EK89UsyYO8wJVb2PKg8hQQTqT6fHPkBdeK
dhuT/8Jg7G2RaoUfLzAM8tzf9SQcEgm1v8PO8MIu+n/e14ojQP/Oq1b967xw
Y91bdzLxNMxufExkSOcFF8/roSXeZyDV6ZtDZzEv3O1q2piQjQSTZ5tSt+p4
wTesRvNvTyQsizPNH+7ghaXkkC4Hl7OQe0mwVmyQF5J/vnAd6DwLtCmFi1Mz
vCD1UeyivEAU/N6vZ1a6wQv/LUbzOZpEQXHJQd7QnXyg32Id42URBYd2O4/q
8vPBidDDt89qRsG24ICH9HJ8oGUVn7r26yxU9p0NfaXFBwe3ezGdzjkLRZc9
jozt5wM3YX8hQ8GzkKVxwPyXAx9M7PEOIZ6MhOQpFT0ufz7Qyc+ZmS47A7Gp
fHJ7z/LBFZV43rze0xC9/x+3SQIfvNEXEXafiIBTm1/pXbP54FNJLVHmazgc
dXo8nNjEB5klcd3cr06BA0vaqwfv+OCb7I89wjWhYNEYXdM8zgdpCWO6Ynkn
QU+MlrjMwA/VN555bMYEg+pbwlkWXn64ELC4neNKEMheEDwmLcsPpEH7cfmE
QOCamDayN+UHrcfTO+6dC4BdKd3KQY78UL7l6YhKvx/QmdQIx/rzA+uJxwrf
jY7B6mrGrryz/DAgH1X0pNMHvhdeXKtP4Af7s2natSe8Ycz+2ERfNj88OHsu
uV/BCz7stHz7o5wflgRX7Xv+ecBLP5GHor388Ie0w9Hp2xFoEGJI1ZrgB4al
8ynuf92h8s3sJcsVfkg/TVewd487FEW9CzrGKADnDf+w3nV2gyylWpeLvAKQ
d5ZN7JyZKySPZB/IkBWAg3efTl/45wyxN69oVWsLAKmhrC282wmiDQP2dJkK
QMdy24vb9Y5wasmaY8pRAA6cEUhnaXYA/3ydf//8BUCtcq55x+hhOGIr/p0v
SgBW9jzzLuU5DPaMOz6q3BAA8XjtAFF3e6A9mXtpmiMApu36x8MaDwHZp7/y
aIUA8I6NNXQqHgId/obsyGYB0N4dcES52A6UO+7FpfQKQHjpIdFSgh3InLkW
UTohAOlUC7+DHbaoPgZ6ta0IQGyiZiizry1wfbKzHmEUBLWj4pLfWG1hVwIR
NngFgWwjHM9dZwN0JKm9HHKCENAxRPnjawOr87sEFHQEgfdIk+E5ERv4nrPA
SD4gCC6al4UiBqzhA/2zkdAAQWhZONxEtbOGrscFbxKiBOHeSmnegKA1tHjE
1RXeEITsk8duWXy1gjrukMLnOYJwNIh/541KK6hoPZz8sUIQWC/C7uMX0XkT
BucXmwXhQL+jYfshK8iSlTnO1CcIFNkvPWFKVhAbu0whrqL+njTfIk5bQrTu
EMFuuxAMOIz8ZXhlCae+N4mf4BOCs50jqldLLME/s4j1qpwQ7H/MopWRZAlH
aDd+5egIgY9pURH/GUuw/xc6XXtACG65z5QPeFoCrdyp/52TEPx22rL7kZUl
kN2NmmcDhMBNnY8z0MASdDnky7adE4LFMLPsVRVL6Nri8OrNDSGYiBy4ai1l
CW4L18Zv5wjBoNjIb3Y+S1gcqf3jWiEEst4asztYLOFSzwyvXLMQqOgGfmLd
agk8z/lVF98JwbHAb6sbGxbwoGz/wfpxIbBvbl/OXrCAroQH0WYMwlCtKnkr
aMwC3KI+pvHwCMNFi1elJkMWsBiws/qLtDB8WU3/pNxnAbxmvjNBVGHQ4yh8
tq8VtWeSs7p9XRhIseb8A8Wo/aa9v2uGMLgob5yTzreAS9+uXpF9JAwtQYOm
lzPR/V9N19V1CcPPO5y/gxJR+5giyS/sIqDmYWrLGobab5NdkUkVAdbum3ox
FAvgWT60e6FIBMQZnsxNG1hA0XiMXF2tCCTtHml21rOAN81TzgeHRCCgMrTp
vApqf76wNVBEFBY+BRfXCqH2gQMj2kqi0PnH6l8drwXoum3/RQ+icCtA+9Bb
DjR+krdSirsonAtg2KK/E43vj3Rqbb4oNC0nF+nOmYPeD7vKC9WicD2ysyL9
qzl0DV/pPNAqCowCk5flPpnDYv0k3ecpUYjXoAvu6TQHEWIv4Ty3GPTWPnxj
XWoOU4TZpq/CYmBYXpgrW2gO5YpbzU2lxYDMue2CfI45GAqp+XJqikFsZvqd
yiRz8P6VlFlgLwZiX4pHn0WYQzLt+4sINzE4euae8sGT5vA81/ibmY8YTL/U
zts8bg581HWN1TAxSLw5f7zewxzak517TO6IwU43luw6S3NYnqpZFcgWgwnj
dW4TM3MQ02UTnr8vBmYJgxFzVHMIH232vVMjBqbrqQdugTnI7ZPdOt0vBi3q
F6/xq5iD3fnzcg2fxOBS2e6p8L3mcKFv0DzxqxhcP9B8bV7OHAZPx2dorYhB
vjj/A1FJc4htW1S/xiUOvYtbNU7xmEONwEEnZyFx0L2fWnaa0xzGAgouqEiJ
w27KYdtENnPQ4bLv/qgmDrMs+9dmd5nDrNtTH3lrcaAymM6b0aH5VfHc+Osg
DteXGFRe/qEBeXtg9bsj4vC6oIOL8osGGY8k6M8Ei8NqaoujN3ooPbgZk/76
pji8qHlXveUHDR7dsury7xGHK7QGh/FBGpxonVIrM5MA0Q9zcfT/0eA5lPgp
2knAWf83F+qracBWH5j3wEUC9ufnvg97TIPysg2O/BMSwL8n4N9mKQ0WU5kW
U29KgEK5vey++zQ45adUfqFfApKEXQJcUtD7x9elqX+fJODkHl6nw7dowOv2
n+jZSQmwsX9ufPgmDf6zMbgRtiYBMbnCQT7xNNggWh/355eEgfspm62XaRDJ
FqZo5ywJwY/z/dPDaNAZq+vR6ykJjrlrEouhNBBmoMuwOC4JM0o8QeYnadC4
cZXpwDlJaHXN0xUJogHdeNo3Uq4kqD/3EWPxo4GFs6vE0weS4LPpcequLw1y
ByQddColwV+W3VzRhwaGnSWvCC8kIZrB1sDTkwYXqxuL5L5Kgn3fTRkJNxr0
KV0cuf9DEj0ncd0acaGBVDGFT2pVEra6Js3mO9OgJasnRmS7FNgmEjlJjjRg
vDrmxSknBf8c/X7V2NEg1oFxzx9/KWDzdle+R6OBvjLz6sxJKeCut9v60owG
Cwwcbe8jpYAoI/Jm9iAN7CuEfcvjpIB5kHOFfIAGe3aoPzpaIgV3G5gcJKk0
+PBJJ8qiSgroDGOKjlJoEPcYzIkNUjB9kZNaaIL2x+XgAk+nFDAGuEpqGaP9
rT6q3jErBbs0iz+dNaTByeu+jE+WpOCKG/f+9wY0kHE/MZD3Swp0pRcsVZAT
mM9EnGXaA6+smT/PkWjgeDTpqbLCHuiZkTe8TKTBKluT8Z1je+B3Y8ftndro
JWiyledS8B7YuhzuEa1FA+eGzqnA03sg9MWs/romWh/vD9dMY/fAYbmqmW8a
NLjZOP/mz4M9oOybKD9MoIGiv4idx8we0MvME5lXpsHRtjNeKj7SEONxQXhQ
jgYeetK01RPSsP9nbmoIsldFj3p9mDR8ptjsZkX2Sd/DYBwjDXun3H4Yy9Lg
+InuPPv70rB4rt+hSZoGp3klR8+h9/RSlVaTSUkUX3Fv2snfpSFi5LTEDeSz
W8LLdy5LQ1ds8awWcvRs57lbW2XAk0fV4IYEDa48OyVSKCEDjUWcb03EaZDk
3eHY5SYDzHR+giMiNEgePml0y0cGnlpnc99BTrEUVbAPRP9fYTtGQ07VPbk5
ek4Gqq60fXsuTIOs3SJ3V7LQdX3viFIhtH5Pgt4LfZKBEzragqUCNChRFGoc
nZCBR11/jgchP8ptLbj/XQYqM0aj1ZHLrwuGKv+WgbtyAcPP+GlQ4/qSkywo
C0Gv97l84qNB03Z+S7/DsvBUwqpdh5cGk3n7TD+6y8J2IWIoAzIzkI0ox9D1
w4Y/e3hQvIWfUJc8Iwvhmaymx5Dnp1/yD2XIwvr1V473uWnAdXmIY3+BLFiL
b90fhqwjvsD05JEstH/rXaEiXzks9DepURYONy5cnuNC+dkRPGY6IgsDNE4j
Q2RDr6tD/03LQlmW008+ZB/6rD7pBVn44mFw4CcnDap0XrXS08vBaO7Avxzk
Aw9FH9ZJysEuLwbBXcgRcZ0h8t5yMHbc9N46O1o/2TH/1BNy4Doy8uUDckvL
midjuByYkisyapHZ/kjYj12Vg+SL569EIhcGROilFcuB2wP32u3I/TRphl1z
ciCwnnVEmY0Gm990/4atysHauvEYD7JYjOXa179yEFU5lv9nNw38n0XONO2W
B4mP1ROvkbcq976JUJGHOx5GVD9kFfbo2zMn5WFrgftyNSsN6nYMyLZFykN3
X/hQLrIh3b76/EvyMNBO+xWPbDM/9MU1WR56bp756oV86o2m3PvH8vB4/0kP
QeSGa/P1zYvyEMD59G8CCw2Mz5vQcjblYfLs64Ao5K7wzJGz9ArAsLmL6zjy
F+8DDNocCqCzNreNhkxvUkgrU1GAHaYvjrMhU+ldR9MDFYBR2nlrNjMN3m5U
h0SEK0DHPa6am8gOC8yMh6IVoCggP/USst9InTxHogKc33j47RhyQiPPyatl
ChDbU1aqjdx3uosxdE4BnI4qMX5hQvkevOeu1aoC5NclOvYhT/pGKij/VYDr
1+/3vkJes5e3mGVRhNrRIZlqZAHNK3fd9yrCp+ksw3hktyWiIs1fEUSc2MAQ
mYWDrqfvpCIwe+tEaCHXKTeHOJ5VhJtzr1r2IXMdN6n3SVCEjSSmOEHk9mma
6cVyRdiV965oZRcNlD+7+vy3rAjpgaoND5E//RZnJv1RhPMhr6ruIccKTpS9
ZNgL3j5S9XeRJ+x91t7x7IV3u/8uxiCn9gZe+aG1FxgTuAQ9kelenc+XOIuu
21umSyA/mjKiPri8F+ZHqJkCyA6MjN+VEvbCDJ98JQdylVGsGjF7L5RwU7i3
Ivs0JjUfatoLO5KkWyZ20qDncd5IHMM+ILhodj1Ezs16KbQWvw9U1W59oSBn
OCkO2N7eB8wfn1ENkVMFbt2sytoHNeEjz/SQE267MQaX7QO5/fBeBfl0wq/5
7z37QFvU7LYQslWUyosxTiVQENCZXdpBg20umb5dd5Vg2adFvQD5n+A2qb33
lEDd/Z5SDvLmx2OfrxcrgTyNWyId+aetlvX+eiXwOm66lIg8bNar1zKsBFbt
jvaRyINZ23Z82q0MQVpSZVbIjxN0ht5ZKcN3dkWmLchH0lkZ6uyU4eo8x6nf
22nAUTS2L9dBGfLPP51aQw5sir1w4ogy9BtYjMwhKy4PyjEHK8PjiRTFT8j5
h8+EG99UBvHJb471yNZe5vcUU5SBHLDrwBNk+hDJTs67ysCQ+MzoMbJb3GvR
sRxlyKPaWD1EFnom2BZVrgwbe25NpiMnSzVw/9etDNXyz9aikI1UEknZvcpQ
0KJw9QzyItHD98qAMvznMywRjmxxiPmpzRdl8L757VQQMnOsk8fCnDJcXPBO
9UC+NP+7Up5VBezmaGUHkdV+9wyzc6gA25mvQ/uRx3YUMG5wq8CX7QfYKcgg
YebQJqwC5QxDKQbIv20yt3jsVYEupr90msgn64gWmQdVwOxhm5IkcrVDG/1H
CxW4FMmfJYa8umlRzWWrAltKL3OIIEfoegjEOavAm1BpZn7kqIbYidPHVcCg
jqC5GzmmcSDcPlEFzMVlDH4zovxwcVdITkbj+Rq4toG869+3T92pKsCnfPzx
GnIc6a8hJVcFXtrmE5eQE59LsWhUqkBki/+9b8hpzUG5nH0q0MTVMjqIPHTk
l7X5BxXoef6A7SOy0NbLjNeHVUCKsZM6gJxllOpH/1UFcmed+nuR81oa1RdW
VODElM3RN8gTHtRpxU0VeEHp/fIaWZrhXZrPXxUgi1/06kAuMv767wujKije
bk9qQy5pZero4lWFuufFPs3IP7xSIncJqYII9ZJWE/K+7aJKJmKqYPVkg+M5
cgVFNfmprCrMHWuZeoq8OFVvsqGoCk9tBcYakAlXjTcIKqqgGcoyVY9c027v
UqKtCgm9VWx1yGs+Y2zTRFWoOGavXoustdP/haShKvybDPP4D7lu/znZdFNV
MD25MFqD/Gtmx9B7miocviGnjK0XmxTPYa0K7/LuXq1GftZRsHjNURXqt7Qe
qkKu5OsJOuuqCr2icgOPkfO9Nn8GHlWF/lJBV+w7VVKBHt6qIJV1ab4SOZbe
fP6Qnyq0ae2/ih1pEXH8wAlVuL7HTA77RFbeD/0QVZjyCn5XgXzk+xt/1TBV
YHK8exHbRmd9ds8ZVXhfn6OHTbkq4cd/ThVGszz/lCPrvD/4jfmiKoSFvniJ
rSgV5ksXowp3mJNTsEWDc6eXYlVhKa7MH5vj+WvvqQRVWD393RR7G+vq5GCS
KtTWiCpjrzmKeXXdVgWWSCEh7G8PTL82palC+JEqVuzhtZMe1VmqoOL8ZDt2
t3H2eNE9NN/6JUbs5luvjmTcV4UVaQ1m7KrRpdEbxaqwfn8/L3ahkoj7xVJV
0M5ck8FOO0sdOVWpCsFt2/Wx414Hux6rUQV+EhzGPsef+dm5ThWsIzwjsIO9
25wtG1Vh00QnC9ujemGY3KwKuX3n2rAPbRVy0mpVhWvFK8vYppYmQwodqlBU
clgar59edqCDaJcqPBLwccRW+pH2keMdWo8bQ7ewua7ND2x8VAWX9l4WvD+M
A/yHfnxShedxL2nYG1Lk9yOjqrDmsHoT+/Pz1L62GVUQ2vFJGO//g3WDtykb
qtDjOGiI4yXDxN/i2h9VMMqbjcNOSL7dHblFDfwUct9jn1SefXN0pxo89I7z
xvHmFcVtdohFDeaqt5diH+4kdZqyq4FBROUitr5PcocKvxpIXNodiuNVpaZx
/x5hNYg22qzAlto2084nrgZXvC/PYvNYcVKZ96jBUfb94k+Qd+YQ2/7Jov6f
Dllh//7hbbKkqAZNxu/OYc/pJr2cVFYDgU/PCrFHrzWQBwlqsMGp0YHdNzD5
4o2WGjC/b5nEbt3DbtSkpwY2Zzd/Y9eG6DZXgRqoiScy43wrafI0KCKrQblM
NTd21u7E5+lUNWgcfsiHfdO5jnTjoBoonPv/65ceTjResFCDMuBgwT61wap/
ykYN3hhv+Yf796VoP/W1V4M/Bc9n/zdeWf6XFU5q4K1u8RY7eNdG54abGoQO
OVVgr81+6DPwVAMRX5U47Mg3/w1f81UDih7vEewtZakTbwPUoI9kp4Z9JTH8
O38w2o9ZAh12orXW7wen1SBleDwerye3Ot+2xSg1sHunbY6dxrPOpHNRDarf
6rBg5318IthxXQ08nbWj8X7VuGrqfstQg9jEJ1S837oGvEaquWqgO/J3BcfL
c4k109MFamDu15yL/eprjcOuUjUwNLq+guNr2E/jtPwzNZDWP/6/+KQPV689
NqoGXby7ukqRYw5zN1V+Rfv1Vigcm1l3pX1zRg1WvmpKYnP/rfoQu6gGpYFr
kY+QZS8R1ou3EuAvg7NBCfIjTy66pe0EiG04u/oQWZWyvF2XmQAbDe6PsPV2
VfG+5iIA8Vq1GLZ5oprm7B4COBbuEC3G8RDESVKTJ0CLXMf4A2R76yWTM/sI
oCf5qBj7CM9jOyZNAtzaMauPPbWW5GKtS4DLggeZsf0/BnulkwhQujQ4VIT3
O0P1lAKVALctos5j/zrLERVykABGHvGHsKNdFy/XWxBgi+MzJextBu/it9oS
4MUwyy7saxKVKQcOE8BPJGiyEJl1W1LmLWcCfB790oKd9DWoYMidACuh5gXY
GUUq1X7HCHCe+Z8fdvvHo+3ZxwnA8fG2FfbyrttDvcEE+MQ+qYMtptc+tz2M
AFdbh6SwDwRsbtE7QwCGUk827FNZityB5whwTTrwz33ke90usvkXCZCkPjmL
vanygsYch+4XVNeJLX10xR0SCdDwY6oR2ypZJvRkMgEUs0UrsYtXr6cPZxDA
KpCYjv1eprGULRf1xz+diE1/+GcTuYAAXEzSMdiH622mSx4RYHHn+5PYl75f
+TVSQYBdQ1v8scuFa1m5awjw9gzhKPaOaGH1s40EWB7nsMQmVJhTK5oJoP0g
gILtNnbe8WsrAbbp7CVix3FWHed/TYCoJ3tUsf8jT5436ybAzm9y0tgToXwp
53sJ4GzAxI/NVmhaVD1AAP++u7uw9T5E1s8MEeCUe/5mAbL3zrIu4REC/DFb
n8ZO0hkdtZwgQOt9937sRj/OlcvTBJgSffgM+1uG8Y667wQo48oqxObpChOc
+0mA+hj6eGzDfw/2SawQ4IdE9gns48rDBnYbKB40tc2x09xZbWP/ECD3abIC
dmsSesTfog6mtie3YS++CD6zyKAO9sZ3P+Yji6zkJ0jvUgemyBfF2KGHdlYn
cKhDZ50YYOdc1W1v5lGHx+OdW7E7awOGVgXUgS4lsDkPef1b9py8qDoc3PLy
DLaU0LstrpLqcJ7+ghK2hdk27lsy6tDG7/LpHq5PURqybQrqcOME62XsvpE0
mhIBXW+ofZ6LTMfxxv2oljq8apGywVY0+nfyjp46LEZkjOQgXyw4mv6PrA49
p+58zUYufZ9SqrZfHcyDr7tgD25vb/I2U4dzTgFvs3C+H1Oc7rZVh4u0dwWZ
yC7pLr+2OqDxVjVux47tTGTVclGHkhY/jwzksX0rhBwvdRC+3sOajuv30tPz
gWHqsP6ZZW8qXu93ie5OZ9RB63dU2B3kgxVHDajn1GHLcn7jbXyenti5RSxG
HWbH0oxS8Hy/2UR331aHnVMDCkn4/BudjdpXow6U46mJ13G8dPNHfl9Wh6ao
TpezyPyl3x0/rKvDZ1fyqUjk1bhnui2/1cH/UUT8GeQKU89f6ds04BeveX0E
zq/W8tMHuDRgnHmE+xQy+1NKRLGaBixLyncdR54sDj3lE6wBLOZeR92Q7YT/
fi46pQEG/cnHXJFf3rhCmTmtAbmsTUEuyPkn7/Adu6gBp1VHzznh+qZfW+eX
rAFuBeV37ZE/v/3993iNBnDTZh5bINPIl73L6jQgQFbxsTny0xqWnvlGDYhv
0qyg4fqTLpIb2KYB4KTz4CCygycYBX/QgMfFZZepyP3rF2NCNzUgmkztJSGT
/Zh/Vv/VgLXbwuX6yFWfku1X6TXBkPHmNSLOn+YCuTAmTRD8XaCii+Mrru11
uJAmBHdmWGrg8+avOaFWTBMGyVGs6shKQR8yNqQ0gcknrlUN10u7mYDTezVh
rPaojAqOZ1Emtkh9TVAR1LuvgPcj6VZ4g6Em+Ki0acgjP9wmNPrbRBP+cPU8
l8XxMqNYedZcEx7dDXq+B5n6mGZzzk0TuFUcvEWRW0ySUi9c0IQS4W4iO/JX
r/o3p69oglZ2QfhuHB8xE/QhsZpATW1/xIL/v00j4GiSJry+mrJ9Fx4PZciA
fE8TXmpnnKVH7qVKzTI0a8LXYfvkRQYUn6Y1xGtbtEBgd4tjD/IW88GxG9Fa
8FDokMFVZDqDmi05EdpAvrL9JT2yA3mq48NZbfA/uPUuHXIVhS+Z/YI2HNpR
7v93G3r/p52WvhirDZVLzzg2kd866h/wSteGDz/YDi0g3zvVmqz4VBu0BbQf
fEEml7yXqaXTge22jBb1yFll2xcWtumAgnwdYy3yeqVWnfxOHTAVaXxag1xS
m3Ywg10HgH3f3kpk7jaXoHMSOjAhOcz1AHlydLLOmKwDf0YiRe8gX+VdM3sX
owMxB368Pomc3N4+3nxdB8Z+po4GI2dHpEU8vqEDB37zbAYi1wwRC5Lv6MBc
yjO1AOSv2Zd+2xXqgM4O6deeyIayHA+HWnWg3dc6+RAy7eM4dHbowLeIumFb
5MOx1e8bunRAaTJP1gY58Ls9fdZ7Hbh6Q+S1Bb5fefZht0kdkDS9omuK/Ftr
746vDLpQ41PcTUTe8e1vZv9OXRAcPWKth8yZ3qPWyqILAg6/BnWQ5f+EuBZy
68J06IcVTXy/proa3z264HfsioMqHv9+quccWRfuf6wfkUFu3uT/9ZmqC7RM
jTxp5DcPZxO7D+qCe1WG7x7kCZYbDeU2uui8lKCXxPd7188Z4qELhtJt7iJ4
/A5Hm9cu6kJuwb8BbmTW7G8jeld1IZ+L0MyF92M86N/5OF2I+1Vazok85R+t
x5yiC0uM1mnsyC7nMmvE7uuCBZdmNgue7wupfs9iXZh1vlzMjJy2o2SpuFQX
5g1aapmQ+2/WKas/0QWHyJHxncgH8weK97frwuYhDk9G5G/TLq8SOnXBYK9P
AgPe372TU709urDVQa9+G/KLmmUpl4+6ECkvIroVWecVe3bwN10IGR1noUOW
nTtwK51ZD562Tpza3IrOM9XeihE2PZDmv9K9gewR5tCzh1sP1pj95bGz6XxZ
yoX1YGy8cHINmYfzSkzLPj3gfUE4tYK8Tev5mR8WejCvMTj4E3n0PMGDlKIH
ltYKEtPI0jysCYF39eC/6JWsKeRjxVNPcjP1IIrUIYS9/C6Nadt9PZCDbsFJ
5B1SWx631+hBh9ZH2Qlks/8Ghzfq9KBn6XrZOHLSwSpGhWd6oMNXq4ktGOrt
EN+mBxxDVQfHkPe1vtli9UEPInTPx44ghzgUKlwc1gO+g/Yi2P/NRdtWjejB
qzOMVV+QDXgJD3hm9ID9K9vXz8g2PmkWQxt6kPBxxuUT8t3fIaeZ/+oB3UoM
PfbnRLN8Ij0RPjabFA0je9fSrWfvIgLcNN4cQj69yzvbQ5AInL/YageRn2XB
qxRRInS8OHcce5uawFKrJBG+lhlLY8c7vjGRUyRCSuT3jI/I7+bvBzooE+H3
kQFHbJ5L0WnXCURwD98rjJ1Tojb3Q48I3xcUCj8gfwUWPlEDIiSvDZ3Alu+f
NLAwJoLhCUZd7Ko/d1MqzYgw/Oj9hwHkjZshz8YtifC34vxDbH1psxkuOyKk
3quIxm6j0RHDXIjwOqJQFZt5/KNX0REi7NcO3I1tEfY48aMXEYTvvJh7j5zC
FF+3y48IHnCvB3sw22tC9wQRqlKYq7FFCcAaEEIE3of0Gdge7fxaWWFE4KZe
uoz9wGnJvfsMEQqnEoOw5352XqeLJoL2fzJu2GqX71erXEL9pVMsscP5o78c
uUqECJl5MnbDo8M7k+OIYJ0vpIu9xVBN7WUiEW6zdqlhm7xndl5NJsI/7i1K
2LHHJq/I3CVCu/BjRezuv8/K7TOJkK43+j9z3bo7eC2XCDl6V//Xflc/59vg
AiIIzGgRsOl4E9ocHxDh6c5d/7vfqv2ORvIjIhSYrxth/0i7ULW3ggiLKnTm
2BPDv4t5qtH6/xB2+t/6iITl/vuPCCVXzPywe9wW7kw3oP5exkZit97zS3j7
nAjROm9v/G9+E18v1bWg+eoIFWBXSrudyWsngtaoVwN2kc9gUFwnEbzZSvqx
s4ttfEJ7iNB0YvIn9u3vXS4ufUTgCmBjxfsXt2+/LeUDEfT1pPZih1cSDflH
iLD+52cg9vHlJ1r0E2g/NDJTsD00VJVmp4jg+4a/AduyTlro6TwRVKV8WHF8
UX/ncNxfQvN1UNDB1tcX3HljjQiKn3K9/xePzbtX3f4RwZJwrQ1bbFvs9/1b
9SGmfGYDm9dk27jqdn140zq8F8f3to717m279WEz6VAa9qe3ow+KRPSh4EnG
JZwvfZxOOTcl9OFVYWIzdoft+9unpfWhcrFjC86/mo8dFw/u04cUxemL2Imj
j51/EvVhKOFGCs5Xw4XL7FrO+lD2Q3oC5/t9NvmItnR9UFogduN6sm/y8Pq2
HH0I7a2VxPXnSf21MMN8fVBtuReG3e41E/q0RB+Op7kJf0X+1lAU/PipPkxw
/XbG9Ss46cPCzybU/22rh9i/vHcE7WvVh/u3D61hM3P6nHjQpQ/F77dfx/Vv
r6+Mf/YXfRDUUsjC9bJG/9Ds8Lg+LDSIf8bW54o5JjCtD8qyy4IzyLRnkz4p
P/WhP+RpIvb7ZJ7pd8v6MPn9TBu26zETb7YNfag/W/ALO5D7vuf1LSSouP/S
8dtW/H7RP9HOQIJku/Mx2OefM3gw7iJBlZlqOfau2+rjRqwkyDGv68dO8vM8
cp6DBO+7N9ewBQxSRht5SFC80Mczi5zH89LttwAJHK7KqWIrfl/+oi1Kgq28
H/djVzVJuYZJklB1eOGMrXfH5nOVDAmEUl8FYL/0v+S8qEACDbqOCGyaYdWw
kjIJUg7kn8d+zzvhGEAgwXN/zcvYLj84h4q1SCDJeOQS9mSzkcO0HglYjtGf
wz6eGvJxjwEJAnr/nMReC8izP2pMgtwOFy/saKPegZz9JNjZq2uNvYN/66HP
ZiQIgYe62Ilzqu8FrUgQof5CFJuv5YjtYTsSXMu7+w/PP+duUt9tBxKMmJKH
sOVONFv3uaDrdR8qsSvJi+/Yj5LgiIX/FWwdAQkrc28S8Gtz2WE3z1u+jfMj
wZ7Ar+LYB16et+g4QYLBZ8szeL+cAkdpxuEkCBsWPYE9YczedSGSBNupHorY
AYIGZs+jSZC0U2sSx0dUa84B3Wsk+Fg6bI7NmNHTER5PgvrCvn84vm4E0ZnW
3CTBvFhxCXaOkBtVJY0E53K1/+B4bAoWNZZ5SILS0OUzOJ43V+YThcpI0DX1
ThCbEPF8mP0xCVa0Q2tx/Bedcz/5u44ERQH6czhfEuPy8t52kEA82JeEz1+3
+zL0kd9IEO08eB3nV5rculnQHIqvGFtW7L6S9rteiyRIOOJ9A5+n1Me+Kpab
JNj7Iioe5yffiK0yJwPAD9Wm0zi//32/4zrNBcBgZyiJ61nGvmiGcR4AfckT
yf3IWoE+Dz/xAeznG9mGHbyktfZOCMChoWq8F8fHxseEp1IAnUmKaW+RuxiF
GpMIyMIbC53IWWI5QkQbgMrNoAsvkJ9GbtL59ADsVlkvzMX1vWzy54V3APKe
TFLYyuPvRjL7AJY3gnJykPP3P3ze+wHgZKVUWjY+X3icokmjAIfHLydmItuV
P/3Hswggdrb14l3k+fHovy85DQBaZmk3kcUPbP8tecgAPHW3H4vC691v9E7g
sAGM25A6z+LzyzW6iN3RANS29u7FPhayYfPPxQD0jZXmz+D8Sp99NOhlAFyP
8v0icPvv3a43TxkARTDM6iRuH5/64m+KATD1LO88hhzJ23935Y4BqLNoe/ki
J+SyB36/awChU0+afZAfV8cKDWYawJHA05HeyL8/RYZWF6D//5u95IHjaZ+7
jH+1AYSsnVt2xffvlrv+sc8A5BtaHO1wPEg2FWy+NwAtkKu3RfYLs38u+NEA
ZlSdBbElRGNWnD8ZQDeV+Nka93d8wnXsqwH0XRA8bonHy5JNmF01gCjjF08O
4vPiANfn33yGMP5jfNUIjyfr4bqwoCEMKlsFYw8sGnKShA3hy3935wzxfNKC
qOfFDWGRVjJjgOvvTFclg7wh7MvOnCHhenL1WgyrriFcH5dj1cPnYetfZTFn
Q4jp0+siIEPQpIqwqyFkxl73xF4W7FIVcDeE4Q/if9RwfgZlErg8DeHqs917
sfcK6WntCDCEAHWbGyo4voIiSD8jDWF0t4H9PmQ24WWz5xmGcLtmZ6cMckvb
EO1pliE48X9wxQ4PfmFel2MI3YEsS9LII21JllX5hmDx6BovdkWwim1RiSFs
FXl9SArZqv24U2KDIZir730khvM9xM45vtEQnuqxqmHXCeu7xD7H/TU8EcXr
HcLidqnFEEL32D0VQV4ULjka3mkIJRKW/wkh3wqZOeY2bAimrzKP8uH6bnI6
yPozWk/rnX28yPf4mMJNRgxBsSvbELvyqeJlxQlDsKKKCvAg92wPzF6fNYSg
WpEKTmTWjNXexF/IG1EnWZFvH48ZvPjHEOSE1ptYkIUN+EZP/TOELR9HmLEV
J7XnnLYagXiiWjoTrofKZ3fIMRlB+6Bz+g7kqy1biU0CRrAvLUWdHq/nnWSj
KiEjyFw56LYF+Y7vHtNCESP4Nku9RofPc1bKoXgJI0iwM3z/lx6dL/axQYfl
jeDwk1znX8j0P9juL2gbwfJL3r3LyJHcIrslDhuBkAWH1FfkNxU7HUiORmDH
cltgAlmEtpLv5GwEA4oDbOPIz6506txxNwJ7UsfvEdzf+mkv5mNG8GXn795h
5JjBgaerp42gjHDjeh9yUvZN/9cZRtAl7namBXlc9+yT6SzUn8e1iy+QCR98
6BlzjWAr7I5vRu5ng1QoQP17u+Y/R+a7MPei+hHq77H11wbkLI8DgjmNyLZO
ddXI83SaXk+fG4G2e+anKmTIlKgYbDYC+Vvf6bFH+zdMuNuM4B7bF+tKZClK
UXBstxGsZqixlSE/kGPoODliBLJ3rH4VIb8TMvgVMGYEts/MLbB/7z6r6D1h
BDsmsgsLkWmrywmHp40gfNnO+T7ycvOEtf5PI6hI/fE1D69XjdhlzUUjSD9l
QcOmPHCqUV42gjc+UHsPOe1GH5/kuhFIhY7fzsXjdWr5tJ2ODBOU1aBs5GPm
dLu30JPh/cEL81nItwz1YHMrGXZUvD2BPSlbde/7djL0pfeFZyLHreR5v91N
hjvtwo/SkWumv6R2sJMh8F+YAfaXIcGOF5xkeMjZ/iENWbX5lmINLxlyF93Z
sD8kXFxIEyWDCJNEfirezwvPJJLFyWDE99YCWyH0l3W8JBkUqvLpsKMcQ2rO
yZCBvafb9w5yEa1sKlyODPQmqpLYbw1m+YIVyJCk0f3lNl5v2aNnPJTIoNv5
5gg2TTC7xFmFDEU/tOWww1iHPtmpkcH1wspiCnLOFt7dFupkiLvH8By7Y9kK
9muSQfrQiUTspamEIENtMvy8q+mBLTTUcU9XlwznbY/qYpt0MfYRiGTY67nG
jX2iyZBhH4kMMinrS8nIqVVRGjIGZPC859eP3VxY5y1mRIYHOrZ12LNpq6n8
xmS49Lv2HjZXgmoHB4UM9mFZCdj654//YtpPhgMK26OwvU8WKzIcIMPha+uB
2Inek85/D6L1WzrljV3nIHFjjUaGtPor7tgTZi7Pf1qQoX6Pois2i0HawowV
Gfo9/dywNQjvJcZtyDCUQ/XEdpPhsBm2I0Py97YA7FgB2uV+ezIkmP+IwH7M
ElvT5UAGuaaGa9jDdK1TbU5kSJTTycRmXN7C3+RChifuvlXY6+WpCRNuZOg9
Uvv2f/MNUNq24yhaDxPf/63PZ/nWCAVPMvhXn+XH69cz5TRP8ybDktEvI+zm
/CWPYF8yMARNBmNXu8cOpviR4dl9o/vYaUNPXg6fIMNbP08BvL9xqTRdumAy
xHupOmKfs/1aLnmSDM/hQg62RzdHxrFwMnRcrNPC8WMX94A94TQZrMuLr2Pv
3w8xFZGovdHecex9LwKC16PJIArr2TgexaK3TQteJAPnSwrDXWROYroz6TIZ
FqY1T2Cv17RTr1wjw5TLdksc799CXBsfXCeD2Z4f7diflFfV3sSTwSQk2hjn
S3OxpChXEhn+FNYfzECu8q5L1kwmg4Oj7wB2oZTlLsfbZIhV6vH6X/5lRa3k
ppGB7UfvLZyfdkkfXyvlkSFv56Y0zm+qeaCBdQEZ9PKeDGDrMm9/cqqQDHT3
DOJxPRC7Qrj39CEZfo01M+bj8UXcCD9QRQaCT6karjfDGtJzx2vIEPJ4KxOu
R91LDUeT/kP5fExtCrsq4BvtYwNqnyRTWozz0914j/dLMlQdvXSqFDlQZDgt
to0M2aTuk7jeHR0KZit9RYbXFn/CyvH4bHN+Lb8hg/oMQzyujxz7f7298J4M
u7Q/LNTg+SpXRGVNkeFvU819XI+Pcy9sPJkhQ6u90Y8mXL83lUPfzpIhvzFG
C9fz5y/K/bb9JANjlfqnl7i+2JXbH1tH+SPH4foaecfZMlWNncZgEPbdaAC5
y33+kTmTMYw+v9b/ATnZREnOl8UY/q51+g3i9WErE81gN4Z8Zv37n5C18kqZ
6QWMYS4r2QqfTz6vHk2+kTeGgU3xmEUcH6U/3KcUjWH9jegRfL4tJ+39RKdk
DN5qWQaryNFOj3rV1ND9qthYN3E9mC95flfXGB4dPDmMz9N27pI0z4PG4PhU
7SAHfr85Ukz7E2AM+nmXHDXw9Uyd8sUTxlAwKXRbC9nrYwf7dJAxSCUp9ung
52GL2b53ocbgdzHHAT9viZEUHYvOGoO0kVMiFZlHqNTbOt4YdEP/pjki07+v
iH5QYgymbk07LiEP7a+ttJ01Bg/+yGX8PvAu7/ReUogJ+JxXNMK/d3PQ1dTq
hJrAmu9Z72pka6cFY40wE7iguhn7H3Ifl4/L3jMmcEjbuLsReeCy7Q3Bi8i3
Gg+8Rh72Vl5YSzKBfTZrOybw79sKk1XllSZwdVJAk4uBBtJXxQ1KqkzgTP8p
GV5krwmnN4U1JjDwxpxbAHk6o/drVp0JXFnUnxFF/sbSxBPfbAKLZhGBCshz
8+nhvu9MgD3Rc94Aef2xpZ7EogkoOsqR/ZGZtTS6OJdN4JOxc91xZLEGATeG
VRPoXDdTDEKmtoxfnN4wgf8+y2w9hXy3L/R16RYKmGTuPHMOWWflroMuOwWG
r1VfvolMi4j6rshJgW3r9uW3kI/8ORIlwk2BDIv6/hTkWAbFe1v4KbDb9gxb
GvIQd+NMmxgFbqYIku8hR2qMhdsoU6DXwTilAjmxrnWXiSoFjsrt9niMnK//
MEOTQIGlmuuK1cidJiefC2hRIG+3ffF/yMKHGHeMkigwcvfQoWfIqkPf7r4z
oIBl4duF5wz4/aVbocWIAt/pQi43Ix/3TjUvpFAgqnvizkvkxjD5OwHmFGjT
SvJ+jfzuF6ucqyUFzh+zedWJPHluqc7CmgJyY6WSXcisVxs+qx2igAfbRBP+
XuOSSpPedKGAk5HFvX7kYCG1/2bdKHBhvL/1PfKVHF7TT0cosKDkPj6AXFo0
EvDciwLsQfrbBpH//RdcfeU4BYxnt49/Qh5mrLx+L5AC/3qvf/iMXGez4N4Y
TAE+ho0XX5BP/jzBunqKAu4reyNHkS31yybYIyhw7lMLdQx5X9xc3d4zFPjg
Or5rHMeLTIC35zkKCD20OTGB/DK0hHj+PAV8/4ayf0W+92KWM/MiBR7TNRRh
R7MrfPvvMgVyXrKoTyI7ux573hdDAQYzqxpsnUcPbv+8RoGJC4GKU8h8v6b9
meMo4E8yv4O9QpU1kk2gwB+T/lXsd7e9+cmJFJA0nTGdRi6buD/vmkSB9K9B
t7DjVCdfnklG+3XPtgf7WPSejDu3KXB45fSWGWRKl0fw41QK/CK1S2NLCeVT
u9MoUN4tCdj0x8ZFZjPQ/D6HmGF/eSKxwpiN1vdmFg27geHIa4lcCsRtXjPC
vmudm6ufR4EWPiFF7FO5I2EOBaj9e50d2NbzorRThRSg39k5gMejTHSVSnqA
xneyOg2b5XrW5qOHFJhtHbbA/vbhU8+rRxT4mi6ziefbLi1c+LWMApdPn7mN
XXDS6eyWSgrA+6d7sC80p1sLV1GggbWvEK+nG9uQnHYNBTpO5AlhE10E6Gz/
o8AxFfZLeD8ESg6/D6yjQGcY/We8f2sbqSVxDRSgWDvJY/dRPlwoaqRAyPOt
vni/E8btlEaaKTD0uasBx4efym2G3y1ofaQb3o7g/D7XP8TbRoHtCrEfcDxt
FbS5av6aAp+fOdTj+BvxueXi94YCuhTpO8M4P2reEWK6KaB4xsNjCDncynK0
sZcCFX9evfuAbJuT+GSwnwLyBbUhOL5V57rjVwcowPiwhAHH/49rNJ19wxSo
eqD4+x1yx0A8m+lntF5O593eIhfteTPpOUKBveM+1d24fjQduJU5QYHWreeU
cf6Rdl/3rZ2kwGTtSbsOZCHnDlL/NFq/09f925Hfr1O/M/+ggPrpBz4tDPj9
zcQ4coUCAw+iM+vx99P+/i0n1yjAsUA+VotcE+HZ6LeB2veckH2CLPHikqbj
HwrEa6SFVyJv2r6Q02GgQnpkvmcRcvmm1aTKdirYvaSrL8D1OHvsntxOKjCM
bN2Sh+N7eosQPwsVOmIzXTKRi88A6zoXFex9Tzrj+ugm1tMxz0MFkouzegIy
z0vXmCk+KsRkyv2JxfHAeo5uQIgK3/l3Ol3C33dzny5WS1Eh746iDa6/O9t0
BkIIVGBq5eM7hPfDr+OWnwYVJj5Hj1nhesDmYHFUiwr0c9rpNLx/hyNeWelR
Qfqg1oAx8n/fn9SrkKkgZ5p8Sg3Zh0M9Z96aChfZdukxIYs8aXGasqVCrIPj
FwYcT442/F8OUWEvOJ3A35ehICSpy5EKTyPobVfQecWnVXnp0VEqFGcsq31G
bnNW8vULoYL4zs+yJfh8POpTnxlKBYOHci35+PujTy5LTxgVLPYZG2cirwZz
VhIiqSATb7Uejyx1dW3zzyU0v7hE4ePI0ZXP4hJvU2FpMd1QDrnzyfrn5lQq
/CholBVD5n2qorKSRoXmKINFHuTStrz+w9lUuHGhfR/+/vhpOEZEsogKesOR
+/HvezrbLcqra6lwJEVn7BryFeZr9NP1VHj04Nos/r3rLXuzjUAjFe73VvSH
IPsIETaimqnwN2T6gDN+v1fhM6S+psKCgHc9/j1l2XGkd3AY7R+f6AX8PAXu
/NIsX6iQG3/6ciPydS+rcNIoFQiP2bwrkCWCWoTyv1Kh39iwBT9vW14p8gyY
Q57eOeaKnHF99En2Typ8mYh9Z4k8nSiw690iFcay5rKN8PNSelypxhoVNFPL
e6SRO3Ne0vluUGG++YkaHzLv/b9W6b+o4HlhKXgn8pGHmgVv/qDxsmslbG5B
61MeuPbvHxWyUw5fnkX+PyeqAnM=
       "]]},
     Annotation[#, "Charting`Private`Tag$62295#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, Automatic},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.790686445298112*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"6ff7dd61-33ec-4b7b-bbe0-cb1daa8344fc"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Rho]8", "=", 
   RowBox[{"sample8", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"5000", 
         RowBox[{
          RowBox[{"#\[Rho]s", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]12", "=", 
   RowBox[{"sample12", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"5000", 
         RowBox[{
          RowBox[{"#\[Rho]s", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]16", "=", 
   RowBox[{"sample16", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"5000", 
         RowBox[{
          RowBox[{"#\[Rho]s", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]20", "=", 
   RowBox[{"sample20", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"5000", 
         RowBox[{
          RowBox[{"#\[Rho]s", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "5001"}], "]"}], "]"}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7905019043473682`*^9, 3.7905019700870667`*^9}, {
  3.790502002763351*^9, 3.790502012968639*^9}, {3.7905024679717703`*^9, 
  3.790502472800358*^9}, {3.790502738458009*^9, 3.790502748395129*^9}, {
  3.7905028635862017`*^9, 3.7905028895420027`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Rho]8", ",", "\[Rho]12", ",", "\[Rho]16"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0001", ",", "0.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "\[Equal]", "8"}], ",", 
      RowBox[{"n", "\[Equal]", "12"}], ",", 
      RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{
       SubscriptBox["\[Rho]", "0"], "[", "\[Beta]", "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, {
  3.790501974222625*^9, 3.7905020566343613`*^9}, {3.7905026457917023`*^9, 
  3.790502688930539*^9}, {3.79050273258263*^9, 3.790502736403462*^9}, {
  3.790502791574119*^9, 3.790502816300976*^9}, {3.7905029000440617`*^9, 
  3.790502900230397*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAA/Knx0k1iUD9Kyvf2hGjwv6Hgvf5/
93k/3c6Hn95Y8L8P4hRnVgCVPwpTQ4mjVvC/qCEFqtrJqz9+kLwr7Zfwv80E
w7mGGeU/7qsDbTHg9L8xlumXiLfqPwT5xGavIfa/AcCxZ8/l7T+XPElapcf2
v64q+64IfvE//m8yLmvn97+GG/D5YQT0P4B0B43RGPm/+kSeJF2z9j+zftQX
cUf6v34dOGdE6fk/og3e3K2b+79HyatzDMj8P5cjo9Gy1Py/xOv6Bbvh/j9k
oYcBc7f9v9biUwCMpwBAst1ME9zY/r/rxVBOtOsBQDMlgRe35v+/h4px/iZU
A0CWhAjVoZsAwIE+kSdJ1wRAD6v0WwpFAcA0aOif4CIGQDlh8cp22QHAOIQq
NXugB0DIdK2tCYwCwHnpJjEIbAlACz7d43Z4A8DB/1ayY+MKQABKAkqbPQTA
gosVNZgGDECNqGf9F94EwC+Lic3H9QxAG9uAwCBxBcBcOBCSBcwOQKVea7Sr
qAbASKeufJYHEEA2uDMt85UHwGN/2T15mBBAMwPMxYt+CMC+9sySADURQCiZ
cD0QlgnAnnsPlxzXEUDwRtjsFswKwGoYPiKmZBJAZ67k+UTdC8CyEYjX9SsT
QGkWCPovlg3A/3ivWpnwE0BpgmF5JGQPwHfWbrvQvBRAjj5J28KyEMC2Z5YE
qEkVQE6E3J08WhHAoUrNHmgFFkCLdtXiTEwSwErvG197BhdAJX8r0/mEE8B8
1cqEXwoYQD/zC58k0BTAWW5pNSTuGEBRuPOhevEVwLCPTl35zBlAhpkXsyTr
FsBZbmk1JM4aQL9g6nUFDhjAqrcGtkoQHEDir/GpHoMZwBqLprOTQR1AJZux
3WLHGsAUP8bctYQeQFJI3FzRIhzAboYb8PkhIEBBkhtulA0ewIguqG+Z0yBA
SISkrWWOH8AWwf9WsmMhQH/Lb4ezMiDAVMa/z7gQIkBUwbiNvQYhwOlg/Z/D
7CJAoYOhh4nLIcBWrJ6aaYAjQBVVtbuxayLAA9F1xQ==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwBIQXe+iFib1JlAgAAAFEAAAACAAAA/Knx0k1iUD/IIVFX4Irvv5maqbXV
UYo/aSTMNV2077+l7D4R1aWwP9tpUHvCM/C/zM8NTdnpwz8HAJW54dLwv9RJ
trqcEtE/ass6VvyS8b9UOlj/5zDZP510jK4vbvK/t+7mqQ654D+3cHSZSE3z
vz3VITfDjeQ/zi2tbSUc9L+wjXiymxnoPwP5EUCW2vS/JH1aRX9o6z/8ffLT
cY71v0DbatYZ3+4/45lnZstI9r8GnnsPlxzxP0lquVi5/fa/veMUHcnl8j9E
jtkf1rv3vwZM4NbdvPQ/xHWGz/iE+L9DxTh/E4r2PxrsJyboRvm/XI/C9Shc
+D+frJG2gwz6v2wJ+aBnM/o/sUd5FSzW+r9EozuInSn8P+Hk4dasqPu/vOgr
SDMW/j/nlKv/MHz8v8U9lj50AQBAkP8rywZN/b8PKJtyhfcAQCXN+SbWHv6/
bTmX4qryAUBT3Geo9vT+v6A3Fakw9gJA81b0wd/Q/786kst/SP8DQNsp73JA
WwDACAPPvYcLBUB5cp5NCs8AwDygbMoVHgZAM/CkvtFEAcBgWWlSCjoHQOjN
nfJNvwHAJEVkWMVbCED6w2XLgzwCwNmUK7zLhQlA00vUjmu+AsDmXIqryr4K
QCc2VimNRQPAkGtDxTj/C0C3UUMTh9EDwBzw+WGEMA1APXiSmAtXBMBHA3gL
JGgOQNVQpNHa4QTAraOqCaKuD0CYTqhblXEFwJM16iEafRBAlH2tH8wGBsDH
155ZEiARQOHqd1+4nQbAOKEQAYewEUDOV36M7CcHwOXQItv5PhJA8C+Ey7G1
B8BM/bypSMUSQJ+3qNgaSAjAokW28/00E0CeCpFXBswIwJs90AoMmRNAkdVh
S7xPCcBqMA3DR+QTQM/jdfXbvgnAO1PovMYuFEAPbPUQzTcKwA/W/znMdxRA
2n7Bkaa8CsDDKt7IPLIUQGHNXGSsMAvAgPEMGvrnFEDB1djFdaYLwPJetTLh
FxVApd4iXEoXDMD1LXO6LEYVQIWiqwlxjQzAG0zD8BFxFUAR5Ulo0wUNwGGJ
B5RNmRVAb3UG0G95DcBoXDgQksUVQGo3jod6/g3AqvHSTWLwFUBiK3Y8uIkO
wIE+kSdJFxZAGTfsXioLD8DN6bKY2DwWQAPQgcEGkg/A4IRCBBxiFkAxYJ5v
bgsQwAYv+grSjBZACjONPdBaEMDVlc/yPLgWQEjSfpNzrhDALlbUYBrmFkCr
biY4rwkRwA/uztptFxdADoFWmfRqEcAVkWEVb0QXQJAbel/7xRHAEsKjjSN2
F0DVXnvqAywSwHkB9tGpqxdA4Zl6KUWWEsCYwK27eeoXQKlm9kC1EhPAqOMx
A5UxGEDtdngWT5wTwOCEQgQcghhA2tjR6Sw1FMBcPSe9b9wYQLheRhIm0hTA
s++K4H9LGUDquJ7GgIwVwBlW8Ubm0RlA8lLn9HpaFsCcM6K0N3gaQFORvIxW
QhfA6LzGLlE9G0AshVfDKD0YwACuZMdGIBxAM3k5dyxBGcAr3sg88icdQBdw
xhmoYBrAKCfaVUg5HkCaH+TFO4EbwN8yp8tiYh9ATj1yIB2rHMBGsdzSakgg
QBqekmbn3x3AZcdGIF7nIEB3zxAqWhMfwHKKjuTyjyFAylNHypozIMAgY+5a
Qj4iQOorNxRj3SDA9RCN7iD2IkCjWbQYjo8hwKm8HeG0wCNAEWoDTRdYIsBL
+Q/akNQjQBVVtbuxayLAmSZp0Q==
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAA/Knx0k1iUD99aEmv8fvuvxLZB1kW
TNA/4zJxec0v8b+KBFPNrCXgPxVsGrbe2fK/5KCEmbb/6T+jJVkzA+b0v6Z+
3lSkQvE/raiftFir9r/PLAlQU8v1P9jH80spkPi/UBn/PuNC+j99H2hdLW36
v7gBnx9GCP8/fSD6WS5u/L+fdvhrsgYCQEd8sr1yi/6/NGjon+CiBEC0/0SL
22AAwE/MejGUUwdAYHNx5/qGAcANcayL2ygKQAz62yJyvQLAgPEMGvonDUDd
io/z+QcEwLQ8D+7OGhBA+t0opitcBcAeG4F4Xb8RQL087Qg7zAbA6xwDsteb
E0AhhPUwDXIIwPsioS3nMhVABuUIi1frCcDIDFTGvw8WQFKQ7Qnt4ArAhnKi
XYV0FkB+6BbB4nQLwL/Uz5uKtBZAxhmnfQTpC8ARje4gduYWQNzgav+GVgzA
dCmuKvsOF0BItfQAZ70MwG7dzVMdMhdA4+Q/N98jDcDhfyvZsVEXQHxo3jbI
jA3AkiIyrOJtF0AlD5cG//ENwGL4iJgSiRdAC1UqH9NeDsBRa5p3nKIXQPoI
0REzzQ7Al4v4Tsy6F0BXVWgCiz8PwBjshm2L0hdAODIccwi0D8BE3QcgtekX
QP+yfy/sFxDAxY8xdy0BGEDUqlA0plkQwH+8V61MGBhAN7k0ab6dEMDImLuW
kC8YQBa8ecXk5BDA1SZO7ndIGEB+c3FvVTMRwDgyj/zBYBhAycDkD9GCEcC0
dtuF5noYQJoPof/82RHALc+Du7OWGECJxti9VzkSwGR1q+ektxhArNXTwt6m
EsAkC5jArdsYQHtIiUPKIBPANKK0N/gCGUDnWTfNJqATwMZQTrSrMBlAREYE
3TguFMALKT+p9mkZQAfuukXY1hTAdR+A1CbOGUC67vi/j9AVwJrrNNJSmRpA
aPd4amVGF8DecYqO5LIcQP0/tV0NxBnAgzRj0XT2H0CsXEXcJQcdwOCEQgQc
oiFAhRJHC7UnIMCsyr4rgm8jQLoynnFe6iHAI0+HMozzI0AVVbW7sWsiwDeW
c98=
         "]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\[Beta]", TraditionalForm], 
       FormBox[
        RowBox[{
          SubscriptBox["\[Rho]", "0"], "(", "\[Beta]", ")"}], 
        TraditionalForm]}, AxesOrigin -> {0, -9.210340371976182}, 
     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]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Exp[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Exp[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 10}, {-9.210340371976182, -0.6931471805599453}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}],FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}], 
       RowBox[{"n", "\[LongEqual]", "16"}]}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.790501975959618*^9, 3.7905020568911247`*^9}, 
   3.79050247396424*^9, {3.790502647200412*^9, 3.790502689232744*^9}, 
   3.790502749273424*^9, {3.790502792035192*^9, 3.790502816523964*^9}, {
   3.790502872347569*^9, 3.790502900553187*^9}, 3.7906808091204977`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"e31e8467-ff32-46ec-80d5-174702afc3f4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"E8", "=", 
   RowBox[{"sample8", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"#Es", "/", 
         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E12", "=", 
   RowBox[{"sample12", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"#Es", "/", 
         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E16", "=", 
   RowBox[{"sample16", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"#Es", "/", 
         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E20", "=", 
   RowBox[{"sample20", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{"#Es", "/", 
         SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7905019043473682`*^9, 3.7905019700870667`*^9}, {
  3.790502002763351*^9, 3.790502012968639*^9}, {3.7905021289101*^9, 
  3.7905021961735163`*^9}, {3.790502479326455*^9, 3.7905024854037313`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"E8", ",", "E12", ",", "E16"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "\[Equal]", "8"}], ",", 
      RowBox[{"n", "\[Equal]", "12"}], ",", 
      RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{"e", "[", "\[Beta]", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, {
  3.790501974222625*^9, 3.7905020566343613`*^9}, {3.790502159523988*^9, 
  3.790502162452405*^9}, {3.7905026513955193`*^9, 3.790502656361638*^9}, {
  3.790502718545635*^9, 3.79050272132894*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwtlQs0VfkXx2/+7vXI5JUQKSKh8kqJy91X3klGYZpQeUTGaKKH6jYqChlN
KMoqSYnSXw+v5LFDUd70uAhJUe7rh2gQNccsZ62zzvqs31r77PPd3+8+mn77
3APFaDTaCeqefU7fHmnf7OfGuhTK7PDz4OH1vorvUf8cYVU9O7vYxYuHsv0L
gzxpF1l5B/vDy715mKtJv9P1Io/1OXTe9fFgHjaJ15SeUR1gqZpnZhus4KNx
6lBaXAmP1Z7jMRa7jY/znjwIahkQsnpppu+qfudjvv63fMk/R1iSHxUcNC7w
8Yza8ORu8TFWW8PK1B2P+Dhlm6HtU/CVFX7T1Gi0m49/LjEPsh2aZG3u1o87
yRCgw4u8CJnn06xj4yOth/UE+JQ/RS97/5119bSVcJgtwDf9W2l/5dBAcXfN
SwMfAfKfubkW8ufB29ODFomRAow9u//7im3/g7GplInuiwI8aZ2k68QVh606
9b3uhQJcG/z5Wp8WA5bsf85obxKgeYy+2bFMCUi4PabYzBPgkaEVxpKhUnB9
j6PSs5+EWPXD86H/B2mQ+n1DWr++EE8lKJldYshAt0Jpn4yNEA0T4pvqxmXg
a1pPSqyHEL3N5ZLpjQtgJm7ngzPHheiYk89JlZCDqZf2By3Shegf1Wl15JIc
nLXs/VhSKMTKr43JNDN5sHzKCh1qE2LGMdk0da48eCja9kgMCzFExVrrVoAC
oPRwz6CUCB/Kx3HHDRSh8BD1xatE+CPy3q+XhxXhNdPhY5mLCA+/CStrLV8I
NeMrvf8OEWFxUKp4rpMS/MEPy+BxRHjduUkjmL4IPH4ur+9KFqEzUdt5jKEM
Lh+UfZ3uipDzuj5mp7QKcN1CDLOqRLg9bK+ZtkgFYk65F4a3ifD+364+k42q
4FnqNsntnTtvXgxMY2oSAhHeKWEUO8upgw6Pfm1wSoSLE24VpLCXQHpL6dtx
BsGFrNruohgNoLsWn7RUIBg2axDNZeAbXTn2dSnBuDW5+y6/XAZJMhuKM/QI
LvpvAJqwK99ufqsRwW212PJITgu2h6acrTUnOLRr5lqNQAuSvb9vnGITnJX7
04PlkJd64EK0E8FsV8oq/trgZxR1unELwa30G8kWbB1YGnOCI+VFsDmuvbdv
0wrwikxLmPAlmH74StZyVV2I56S5pwUQVBxlt+wp0gV7nYNi6cEEK9xTNc8p
rQR79vDE1xCCTZaubUlMPZhe9zSyaT/BycygAp6pAcjvj9BX5RDULp2OHbNc
BSFTghP8EwR9Nz2XsHq7Cv7R6jp3O5pgSRutV8xpDWgXDnifjaf6P1KnZxFu
CMuDG7V5iQSNL+urXBQ3gmrjhgzx8wQPpqiIe1obgUfFtGtKEsHHTjJiBjlG
oNvJC3e+QPDFAOvmO2tj0LE+fGomjaCR/m3F1kJjUIqQO1CYTrDu8aNEBphA
5ZqaqMdXCZbpys4vKjaBmTPxDL1Mgj1FMZzWFFM4ukFQ6X+TYP/QxYcy8mvB
KqA+NvPWXH+n1kLLjf4f53IJqnN2m3gsM4NgxsjJJXkE3RLTwhRemkHA0Ebl
V/8n+K5vfsptv3VwY3un9cd7BCXvqv8akLcOJOnZwQP3CbJH/Bt9DNbD5aix
zekPCf7lzBNfm7QevnwwXM0roPxxY1453cQcNh0KFe8vIsik5PauNIct9y4E
xpUQvFyWel7WYgNIjxYk8R8RnFaJ4CpUb4BOtk6+/2OCZr6UQlkW0BN5OOBu
OcGdEs2qPy+2hNPLHbM7KghGBCcJOVGWcAltBusrCcpeMc0qlGBCkdrxRokn
BIu/zLyKjGcCryl3Ur+KYH7HzkNbRExIiPMbZVQTFDOIXdQZZgXjnfO4SjUE
cQFV4KkVaNsF/PKM4kdwqr/O0RpWS7ltbXhKMJ6y2/wP1sDd8mP7l2cESxMZ
w4vMWZBWa1ieXEtQIbuiSrmYBRw9ZvChOoKz7axXAXAzLytyeU6dzwbICuDK
wkGrZopDyg+kqBwA+PS83jD6BcGr8lSBFgCampxmfj3BdbMGlWJDWDZ3j38D
wdgcr3oTFzaUflNfurqR4PrFT3Ysi2dDX6dGxXuKnwgymKvK2WAZNtFzoIlg
3+rzmROqNmBSN5p/tJngWKjn8XxPG+Ddr169tIXgf3smywa2NMh6D1CcZ+21
48EnG9CYEnmmthJcMmtI3Y3gpnJh79o2Sn+9Brm68I3AiP5N9Lltbp61G2F2
7d5tJ0ibveRsgZ6lG+j+kmCgav8vyixb+DyuO1JKcQEvokgpwRbStZ4M+bwi
ODC6tH1fnS1o5G7V6KFYlyqjLm0HV6reGe55TdWfDaynHRTWu+ydoXiQikfl
OTsoGS7fFvqGIJUO244OO/Axa5GfpPiVAfXGlfZAN721K5FLUO0nSoFd9hCj
V589QrH5RHXAnfP2EBBBbdwOgpzR+26/VdvDsoKCz1cp3kTZV/67Paj565aL
dxJ0CJ+UHWI5wJ69OYPhFFN/rUDVZAfoYi6Inuycy+crB5hWlhQL6CIoMJxN
pCMEBX47X9I152dnR5D3au5VfUv5z+H90YVnHIGZZXMwguJ0SbUM3xeOcPMP
K2nu2zn9aE5wTE5sVKeb4L/nUiX8
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwtVAk01fsTvyJbZb+urZBe11L2bOEOcl2lovcqCU/on0opeaHFmld/T6EI
aZHyL5Q1lKVRUpKIsqaiJO7y+8aLJMvjf96cM2fOzOecmTmfWTR9g7bsXkCj
0aLmdN5O5Y60bfR1ZY0wwzvpclzMuJRb1u4Wz1LdtWDrHkUu5vBtZdtzilj0
0NwZfR0uNrUs2dg9XMcimoYWyOHiG+fyystyrSznBhXx3gNc/M3KffaLYTfL
/MWWLuOLXKygBnOlHvSxbF3+TLGp4aJNu6Z53dkBlpTS47HuD1wsOhtWkqk8
xBr+T2B75gwXV5z0cIwM4LGyXGl+dio8hLf7OpQ/UKwzJY2/m5rxUPTqcek0
tRGWwcthoa2uPKz5pLD0+edRlmla0+Y1++dwl76Od9XfWMz3rh7f4njoUG8R
KR8/ztp0PfmC1TUeeiY+HtP2nGCFhqRH8Cp4GCjxI2uPySRLmxMYKv2Kh+tu
rD1zRWeKlbLpsQx3iIfVQ3ocE8UZ1nSNX88RGh/rbS7ahgjR4GCXUpEJg4/S
2pnBcd9pUNShEG64mo8HLNM+5o0KQbDv4ZABez5mmdNzDccXQMe1zpJEdz5a
nX8RyZkVBnHqxLmRA3wUF26pOb1oIRSE9jt0xfDROiuwkb5MFG4zAz5GpvHR
Z8feLZJWYlAnfJyrdoePKxz93et3ikNgTuYf/rV87E7Rq34RJwEJtY4KUW/4
OOgZn9/4UBKK6xcrtQ/xMWn/HAOzi8ApbmVX/xQf1b7+2HXKcAmcszsKm6QF
6CQctmhFgBRcDi+wjdIU4N0beRLZBdJgYefiM2MiwAtruJoqJ2Wgc0+k7Va2
AJ91Xt0hpyEL57wSC3XdBWhxXUbodJEsPJI7XKgaIMDPr5a//WErBxV5s3/6
hQnQZbo6l1MvBwVVDK26MwLMdiz/e9pUHg7l+Cpkpwkw0+aV5OIMeZiMVffx
/p8A9xkuqXMakAf3iUmPtBIBrv11qPqpvgKc08+fbUcBSnfMWjaFKoDDze3X
FzcLsE73fYN1iQJEX5rQ39YjwKiRxSqTXxSg4Gi97t5BAY56lxn3M+hgq/20
Jm9EgGOrj1SuYtMhSW9slfi0AFVd6r7KHqZDsvwTkUExCnf9VyxlYwYd3Nj5
1TvkKAzwtJA5X0+H/koafl9KYd78uXylQ4KxeIabDoXRtslMZ4YiJE03SmWb
UPhyuCS9y1oRFrKlVeJsKOw7ZS+i5qsIY/UqJ/WdKBQ1mJRsS1CE0MFcnHKj
sD21ZdT6viJwz9dybnpSqL/tjY/KoCJMrU8XC9lDoTTV3HOAwYAeuLUkJJhC
evIuetA6BjT0xdPGj1Mo9/jGWa2jDLBDvdaqOArDhcZbc/MZUFZ1Xy8ykcL0
2rtV4VwGyEZ2xX7JoPD2JyPhVCMlOC0/2b7/5r/9xShBxYTrSH8BhZ42zJqg
XiU44SiqKv+AwlIS3xe5QRksJIMTSusoVN42wh5sVQb+VMOliGYKL5tk3zMP
U4GFuSWlGd0Uzk/LzUYVplq9ZjMHKKQV+D9ja6iBj/qs3RFCod7cuEaZS4Ev
XvkqaJJCbWbPVo7lMnhffdchTYTgB+NbL3x91YGzrVLyLymC7OLetn0cDfis
KRLzhEFw91w27y8akJPuVHhTg2Bw/LmB0URNqCxlqrN1CGr4UR72tsshoLD3
YrgRwTGZs5TG+HLoXJgrdMiSYG710v57tVpwRnh9ZIQdwRG/Jq8NZ1bAnRD/
tiYOwU65UbsW9i/gKS7z3G4zQf1Zzelx+koY22gR+WQrwfii/uHU0ZWQnO7W
aOBJkCtiKmvWywTmN0/VcF+C7RIBywO7tMF796KmqgCCy24NcfQ/6IBWccWt
hwcJmuXbbt/ZqgtW6byJviMEnecLdOhBWe/PJNFwgiq1OzXsRlaBXXDKhF7E
nO/Wo3pCSB+eVe5tfRpDsM4/z+c3OQPozDymrHCaYOLAqHqbuiHkmHnfiviL
4KklmwtT6g2hb2z995lEgm77L4Ve9jWCaOnhgL8vEJz49VNOpogx5EUpMzCN
4PrjsQYu5cZwP6Vv8komQdb2ncUYaAKB5o/MN14jqDee9u4CwxRU0l73xGYT
HNo3F3lpCh7ql3TLcwh+dGdUtCatASHLWauh2wRD2CnjopvNoF9Ka7A5n6DW
2x8R+xabQ49peWdMAcGwYzmrHHrN4dDra9OcYoLEwtEp+IEFHJaTOihxj6DO
/INOt4RQiSKR6+UEDauY0ov+sIJoz48Nwg8I+nv1soXd14KkVexP1yqCe2lB
0SKO1mAi9NM8uYZgsvQxs3x9G2iti9bPQYLNynMErrIFqwHG1KNHc3zNv38D
FliH0a4+qyOYZBS6WlMdoNPLv/RRPUGjDF2l1JsA5ofEuCnPCGpHJDzYr2MH
Cb/33HF+TnAeflNsB3eCvxaQRoKl3CNldAd7cPVf/i21iSBKzV1Ekz28Xpu1
VKqZ4NPeslMnAhyAmSrseq2FoPgdNQ//nw7wOUjUULiVYKyb85Woi+tg02dF
g91tBL03NIjZ6DnC9y7NwpzXBLNUDN6teOgID2NM/VrfEPQ6UD9TspMN91ut
W4Q6/t3/72y4EE9PU+8kOFjwy0DsRSfYdb7C2biLoIMa76OZPQcCfDS2u3QT
pP1fnMHQs18quIfgP7J2EnM=
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwdkHs41XccgF3Ok/tEnIs09yMkcxyzNnU+Dk/Oyp0eLG1GWlGK5LYNJSp3
4bhtD05CbotQTy6fLksekkhDxhhjnHO+P/ZIFmNb7/O8z/v/axB01itETkZG
Bv7z/27cWh5yDfLg/aoeG5hELaDmmII/3eUF70DMpX9GnBcxjebdX28yxSs+
XNtWKlzE2fLLxW1bCzwjawe1r8giViVM+lTyl3m27J8DvGzEOLBHycO77w3v
tv/enT9Gi9GDtXVghv+O95OYIUm9I8Z7smV6BxW3eKlRsYrBlBjLotfCmrfJ
wVh/RgLXTILck3+WTYloYJHm6380UILuz+Kt870VQPCxb//5fAmqRdSnj+9W
hqb1rOmmbgkmLavqvDNVg6ualnH2byXYYq9OnutsBxXhotyXxlL8cOfF2GOo
AdsE3IsiDymKdeWbR0p3gKsgTPXTBCmuG1ZYznO0QV75zUruDSn2qPp0ozod
egri6bQOKaZGio6lRNEhYbrA2L1Pijg8UJrWQgfK+8jJ8hEpamQS/eg5OqiU
CP1YM1KMMms0X/+AAUoTJhG/SKUYPtHvvYvDAMXPntQ6rElxOtFirMmTAaYV
Kyk5cgSvG3Lqfz/DAJU2DfdoVYJBa1eLNK8xwH9cKzudTtAzrCTmBxEDOLez
Zq7oEyxMX3N7dp8BPtXy/u7mBJmS1DPpQwwQFrBv6nMJOk0o6LcuMGBVGNk1
up/gk2zrGEtZJrzcIYx94EwwscO3wYXJBF1HmXOnPQn2FLULc6yYIDhnFKJy
lOArthuJETDhBL1iVDmE4Cec7I2HgUyoy7PRigkn2BI9njIXz4SeuC0901iC
lgPJ7XeETPg+TnZ18CLB4xfq5ivvMuGen2fyqQyCxipFDxrGmRD6TdHrISFB
rqjFbk2OBXYb4ff/KCfY7eHWUvcRC7wEnLq3tQRVzHi3Vk+xoE/QWR3ZSvCC
XtIw+zkLJucy8/iPCZaIuUNexTow2VhYpfiK4GREWtZssy6kR2yytZYIJnOD
B6NW9UDVqLNmQo3Cqct8mq7IABznesu/MKGwvrfL4tJZI1hY/rZ0cx+F7/cG
m4BflNh2vwuF2hmHFmn5pmA+rdS5GUDhC6fRpZVFM5jPzHvUEUbhoOH43wlp
e4DWWxXwdRyFzXvDb8h+ZwU02vmVtRQKD6nKWVw5YQ3bhU0VpbkUNrYFJY5Z
2gBbNjR0rJTCIw9rKt30bWHk9bqP9k0KM3dL1bo87CBlsP50WQOFyVYuVcpt
+yAlLtvGtZXCx8drA3049mBQEOQ8007hb+6ZheF8Hvg2BxvlPKKwpvuw3TUD
Bxi8/vTlX08pXGBbK9bP8oFv7Jhl2U/hcMncruolJ7jL98s0GaJQ5j2fg/Nc
Lq9ojMJ/AaQ1BE8=
         "]]}}, {{
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}}, {{
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\[Beta]", TraditionalForm], 
       FormBox[
        RowBox[{"e", "(", "\[Beta]", ")"}], TraditionalForm]}, 
     AxesOrigin -> {0, -0.8002006004774308}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 10}, {-0.9956235625, -0.81048601953125}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}], 
       RowBox[{"n", "\[LongEqual]", "16"}]}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.790501975959618*^9, 3.7905020568911247`*^9}, {
   3.790502162871426*^9, 3.790502197077286*^9}, 3.7905024866172*^9, {
   3.790502652323476*^9, 3.7905026569786167`*^9}, 3.790502722784449*^9, 
   3.790680810877782*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"8893f64b-517b-443f-b85a-3a6f0281d005"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"d", "[", 
    RowBox[{"All", ",", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{"{", 
        RowBox[{"#\[Beta]s", ",", 
         RowBox[{
          RowBox[{"Range", "[", "#N", "]"}], "/", 
          RowBox[{"Sqrt", "[", "#N", "]"}]}]}], "}"}], "]"}], "&"}]}], "]"}], 
   ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.789860752342498*^9, 3.789860770758177*^9}, {
  3.78986147356671*^9, 3.789861534004075*^9}, {3.7898617800836077`*^9, 
  3.789861835680109*^9}},
 CellLabel->
  "In[306]:=",ExpressionUUID->"6bf8aea7-b7b9-4d5b-a161-210bee9bd86a"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw10H0sFGAcwPFz3q5zzt1xx73fJVkiL5Fo8/xShLpIE2uNaLe1Wl6muKaF
scno0lg0yvrDy5lFm9goXUNbKUzFXX8Ihxk34ZByvUi/+23Pfvs833+ePfK0
jHgllUKhwPb5t82alVFFWhyh7IyWsPVn5vw0tegR0jM20dQyokXrSEX93QvB
DaPoScK+1z/4McSAniED1+Xn8osX0fMk8di05KR0GW0kJMMrPtW4il4m4rlB
h3anDfQqCZDlvdwybKLXSL5irLnkshm9QaJ+RD+Ptd95/vZsElbboqvxjRX6
Jylez2ealNZoMymt4USvBdiifxNVR1b/ebMdmgKPxnUeLV00tBWEh83rW7vp
aCr01DaFzjQy0NZQL42k3cthom3glPpIQ1ECC20LUdemZ26XsNF2kOYTZqtN
4qDtgck1mBU0ZzQN1PDiaUq7xbtgPPDb4QhPFzQdpAdClqrUFjuAqrps87TR
Ygas1631rgRx0Y4waeqjTWVZzISkAeHDE70WO8HXRrJ1n8pDs0DBLY9ZOI4u
YMEDm2aNsszS2eAlbv2TrbN0Nmw45PR1erhi58Cl6uYJgQpdwAF9bsTyq8+W
7gzeXR0CTqIbdmegszNpCXQ+dheYTX0yFjiMLnABzetAhnRFgJ0LUx2TESmF
Iuxc8PSntYoEEuw8+CKrLK+zlWHn/f8Prhy7KyymP16ouLobuyvUz97MzM1x
x+4GmSn2Q/xne7C7gX7o+1mDx17sfOg0/fqk0nhi50Pp0YuzI9R92AWwv4Sn
H6r2wi6AUPeYvCJfb+xCeL/0ti/8gw92ISR3RzOoZb7YRbB0iwQld/thF0FN
OqdI+84fuxgkvCsKU28AdjFU+Of6yIcPYpeArjA7ssouCLsE1DeyhI5xh7BL
IbatSnmnMhi7FO9DcMvgL25oCW4=
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwtlQs0Vfkex4/3I4/jvByv4zzlNUhRCvvrdTxK8opKV5cYRan0FsMSqcvF
FTPKpBmzZkZJHimkUc3KTRQNalHjelQ35arERMfj0vnvtfba67/2//H7fb+f
796CqMSgGEUajZa2eC89Zys+/OEftYl6uO6b2AsXr1P1QeovGN6pZNxKWX1S
rHMv+JHqS/hPx+HpLqqlseX48xtN5P0TSnaYoTfv9YC6rWlKa/V5TgmHX4XY
03rJ/EFqLm5NzN7fBqjgkKslZzpGqCDPrNBmvRdk/Suqn1+YU6rympKKAlbW
Hhylwlx28OxfviH7jVERbf/MhfM45TQx3tFn/I46pHhO3ejCe7L/e2r1/gMt
HoETVPEO77q0qAnKiPEp/POmSXLeR6or9adsLau/KLqPftpZxynqp0saP44r
TZPz/6I0nzed/6Vphjpt+98Nv2pOU9JIt3M1cbOknhmKr+X8iWczTynp3zBo
HvhM5S5Tc69No0Fe3yzlZmW381C8Ak7MZ73qrJ2jOravv6+Wogh5vQtUmlVf
jV62EmQHLvft96BBGFLRp3RFGfL6ach8FD/G6FVBQyzzdvIVBdj+mljS/VIV
8n4UwTyfF+9xTw2Htib/nKmvhNSKstVsCw3I+1NCPVvWPn5aEys2juTkpSvj
2ySLKsubyyDvVwU5P5TGhQ1pYdxtfVLJWxWssjFWb1PUgbx/VeTHWp97tFEX
lx3qtpSHquH+dzeL8xPpkOuhDuEg/VKPtR7iLIxwpUUdFxMesAfu6UGujwYM
Nn+QvgpkQGKSYXbDQhMTf6u3H7rBgFwvTWzVPp1sbcLEEP2t1p3CZUjv1BWd
PMUk+mnBZUJNqXOOiQvKwR8fzGlBRd9qt50/i+ipDafHVe4P8ljYNt3U1/O1
DmQqN//+7C6L6KuLopQw5QUZC9wx4e2Bx7po/zg4XmnCJnrTcfDd0L9GNrLx
JtErePJ7Osx7XU3yjrGJ/nT8w3DD7+9r2GjbdUw6E6SH+JSCruJuNvFDD1un
GvvPzLHxS/QVp3m1xb5cqRw6j0P8YYBb1KMRF8VB5vYha6VbDNDXBb9uzuIQ
v5jYV9Ids6KGg51hbL76ASaaYiceOj7lEP+YKB1SPZE6zYF7oC9TezkLjs63
gooF+sRPFpJvyUZu+elDsD5FlfF8UYdI8bWXpfrEXzZm+leuV+zRx4JnzQyn
gI3y0bGd+1hc4jcbr8sGo7z2cPGn68sxIykHrCVDr3GJ/xw4FiZeb9QzQPMa
g0G+jIN5Ha901wIDwsPiOeFO1+5zDHHO3r9bUq2PI0sNzhoSPriozJ8o3N1i
hGPW6a2WMVyE2llWMLuMCS9c7Mp5Etgr5iHMrL7R1tAAfKl6nqONKeHHALZL
E9h8OPBHK1d1GuB0/TSLVs4nPBkCsgKhvbMALEOTi04nF8d9Z62a3woIX4b4
MOm3JStbiAlmYKGrkxH+FKumF4lEhDcjjN12EvnJRHisnZnlMW4k92tYTPgz
BjvH743yNQmuqjUe8yk3RlFMdvT2UjPCozH6Kz9H7MlcjlyF/yX4h5tgablw
gznh0wQiv+QMW2sLJMj4O4K0eagZGi2qtbYkvPKIn1bwmwoJDrvLg96/mxpy
zawJv6bw/T7N7K70K5i/y5ZGHDHFQfG3C/mpNoRnU1w/eaKrrsQWGQcHSu04
fJSLGmdPedoRvvmo8h46zhq3Q9L+o5y6fXxQYdtqWkpXEN75+PK5dLVH1F5G
vkM7Hz9rSiWHhu0J/3wc+UpgOpmzEoHxlRoNEgEm53qOjkpXkTwIcHO57rJ6
VQcgTpqxNk2AM9WLDf7hQPIhwNolAa46wjZmcLa5XwDbveUKzZmrSV6EuPTl
97IGplHHD1MOQvRFHg7gqTqR/AihE3D1bEyDE3QiWe/v5AlRYrnoUMVakich
JhM2p1S1rsPctqpdnm/IuNiZ5EsEWcSee/NBLhgL9xlp9RSh79Gn4BEvV5I3
ES539m4ei6TwLHQ4wrdMhCV1ZfYg+RNBSeOMaXQV0B504kn7jAgLtckT1eZu
JI9iKPif1A4oc0NTAGfTxhAxpp49TU+ycSf5FOPpqndrvDrdUbGhuq2rSowX
GRceXgrzIHkVI0Fj5uLXMg985+vnEawhQcd42+/uuZ4kvxJ0+0fRwzW8cEr6
ork3WoKUrrotUz94kTxL0GMVYzBsLsURj1TH8N8kCGrgZb69IyX5liBOmHD0
eKg3YsGt7ueaIYDH2e3/zJvk3QzqLudDy6J9EOpSa7E9yQy0L5cvyb8Z/g9r
T2rQ
       "]]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwtlAs4lPkex0fkfp0xM2YM5mJcYt3v4f0yjBG2dWkpdCS1ko4TbehGB1vr
yVGbLrodJ9u2EolVaVU2D7tFK53YJRWRkCOmZanksPN/n+d93uf//v/v7//7
f7/fzytITIvYtIxGo+Uu3kvPDxVTj8ISP6MerMzZfK7sGlV6qqK+K7yQjFup
C+O+Bl0Xaqie1OftO2cfUu0dOmE9o81kvpt6HHzt5hl6J9WkaUZrlfVRUV4x
C68cesj6fur6xHCFbkM/FRl1pbSwfZDy6RK4NxcNke+HqZqirNrTnBFKKlrt
XLtjlDLfuy4wJ/k1qTdO4UlKN+f5BOUpn2jv4b2hVM/t1jvBmyL1J6lbg4Ym
917KqeMJQXW5iXJKNbS/+2njH2S/t5SkxSOHUThD6cvYuSVu01Rc8d1pq7hZ
sv8MlaoxV/aF8zvqa/tXod9rzlIB5SsPnrX+QPqZoxpHbGTOrI+UMvs6p/HZ
O6rF57jvDiUaFP19oPSsTqcX/EnDno9fDXfUzlPbPE+8uCRXgqLfBarMnVnh
MLMM79Mre7ZLaPD6pi1HtqAMRf80qCt33DqgtRw3NjOadlcpwbss9T7TVBWK
8yxDwtotEZpeavhy3e7vCtjKMA9MimmJVYfifIt1Smwa2wo04Pjp4KHi/SoY
jiusvH9bE4rzLsfhrYsKLGhhwi8ko/T1cvAm5zbkO+hAcX5VBClnaZkn66LS
tW5t+Ro1VJVf0jhfrQeFHuo46jom4O7VR7K1MaruqOPn386tpfMNoNBHAx7/
0Vc6UGMAsUmexXVrTbx8KHwy50uHQi9NhM43Vsha6BjQf63901EtnA+89nbe
hUH008Zpn4ea2qUMnFOJfHt/XhspDjrNQUMMoqcOVkaONLbaGSJ29mbP4y90
ode94NmeaUj01UPzime/eNcawmhc2PSsUw+5U9rcd68Mid76kK+vdxpgMzGW
Fhj5x1l9TH+ScdNWyiT668M4tHnSYDsT97ZkS+ciDLDha7WSsFIm8cMAyXEe
+t+0MHFxY5XnRzU6Li3hMskk/tCx3/eIZTCbhYL4AVvlW3Q8GK09+bs3i/jF
QH++vwovkYWkaCZfPZ0BVft3mo8OsYh/DHQd65B732DBPzyYoWNpCLvPHydw
h1nET0PoTfzau43NhiBkryq9zxDMIxuYaQFs4i8T9LvlRaKdbCwEXJ1jHWEi
W2mms6KSTfxm4mRT1Y/ZY2w89X05bixl4ftBR+VjjkbEf5aiv38aodGD089/
z0Kcj+WttD4jkgc26t4U9ueEcHDKKey/4ho2OJ9PSYc7OSQfRjjjfP4H9ywu
sm33t67YZIQlt8J9jElejECrTvpZyuch2qK+wZ7Lgc2iXXJLE5IfDqwse9fI
PE3hyh+97NLBwXOni22JiWYkT1xIr/Y9SpHxYcg1KfPM52LTYrX1r/gkX1yk
F/5rSF4sgJwRftTX0xj8jRPr/H2FJG/GmNYvmuDPCNGpU/CVZMIYFY0mAz80
iUj+eJja2B4fctAcV9QasmXlPPxGl/t1SMUkjzzYLQjmZ5gWKFL6X2pYjAkK
awZGj8ktSD5NMKbiYuDWZ4nU9/yECB1TdGkkC1N/tyJ5NYXpxRGZ3XNrrJqO
ioy+awq3St/o2M4VJL9mCF7aoNsGVm8OSuMyzcBtiuX7TdmSPC+Ow3uN9yjZ
IW/HszMOLD6aky4lRNHtSb75KB6Smz0yc0DG9ixW3T/4yNdZfaWkxYHknY/w
racyzyQ6IvHv9MOubXzMRg5eOK3iRPLPx6rdefah15wW113WuCEWgIqOvXon
1ZnwIIDNzImnR9kuQLI0zytXgJGUxTcPXAgfAryIYV/vPOwK+039Hxp7Bdgh
LZlRXe1GeBFC9GRuX4q2O8wSd+2kXIXI2nXBVtLnTvgR4o1HYFB6gwd0/2Y4
+VOxENZLP+iTnoQnIRx+tNTT+tIL87HVWwLGhEiK75Mqx6wkfImwhZa2XyXQ
G+MxssHWABGO6O1yq7TzIbyJ8CtnUUBbXzxZ8yIu+N8i/PX7t6cIfyIcdsz8
RGAGtEXs6W6bE8GxdIXRsW9BeDSH1b5DDVut/XBzNeuzT6PMsTT9+Kof4dMc
dWMZ9UyJPypCa+49rDbHHd1FItr9Ca/maO2rz9+TLMHJ4FWSSA0x1C/z1iW9
lxB+xcgLDz6bezwAB6RDjV0bxVgf8ouaj00g4VmMMq79U/PbgciU7HOLuS1G
/LaWj7WxUsK3WJH/P6XYDKOaXiMLDFeLh/KOBxHeLSDhvX7h5i/DGp9a6/gM
C9D+uoIJ/xb4PzQkayU=
       "]]}, 
     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1038s1GEcwPHvIXURd86d474O+dV1LqGY0Z7Pua1hSdSyNMWRcWsTlajV
jrRYtVXnRivNFWtnq0bNZv2h2aoVCjWnRmfGqK64w4WJqM/zbM8+ez3v7fnv
E6AuSj/hwDAMrN31uWy0DqSoDxDm33lJzsW17imsM6D7yAgRPVCNjqGHSF3x
QcfeyW/oUdI9uLTVoLCix0laxHtzVcI8eorUXr2S+TF+EW0hoBGE/n7xBz1D
dL6SirIGDvy3jXTKK1cf5zmh50iYVdsmMzmj7YSdWcypOsVFL5Dikk5VWrYr
eomkNee7P690Ry8T2ZT99uspHnqF/LwTzNG0eKAZsE1H7WATPdEcKAovvD7I
F6Id4GI5x95vpHYEpTW3J0suQjtBtWnepTSXegMIz1xIyq2ldoYaZfZEXxf1
RugwG7b1TVJvAnIrNMnk6oXmQo9aPVusoN4M/U8S3qUmU7uAVv65lV9A7Qpu
huReaTX1Fhhk/esfPqJ2gy8ren3IK2p3OBuf3xj5lZoHChX7Y8yO1vJgPGlg
t85djJ0P6oXqeg8ZWsuHrjTbd1ZFuwc4HXZTtGXR7gGyZ8oQ73LaBRDpqLdO
62gXAGNMuTf8lHZPON2wN3P7B9o9QSrSpMz+ol0II0rLPoPAG7sQKtpkGWUx
aEYEmqZmW2ke7SKI1hW1d7TS7gUjA5rE4UAf7F6Qcyg9tPEtmhFDRDtvvDGI
xS6GWrvz8XqLL3ZvWM9Vsf7YvSH8Wk3vm4kA7D4wXcI319QEYveBjKOtnRZp
MHYJtKyv185Q7BIQ6z9xCxxk2FkwNu0HQYUcOwsny843h11WYPeFvDhz6g1T
OHZfCKpbvXnpbgR2KQzNzCUfiY7CLgWu5P4xWfcu7H6w9puKdYnB7ofvsTj9
4S/zzwJu
       "]]}, 
     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw10HlIE3AUwPFtLucx06mbc25uWl7psi3DAun3GhJlNucR0R+CqEUhKoZH
SOjKo5yZEeIZWEtMcwqtZZHhQSRS3hgpoq0S70TDZKlkZe/34PH48P3veSWm
x1xkMRgM+Lv/7nbz2ujZRA1h7E43cZ7gXBBEDqOHiY4dO2DwMaPHyczDwpr2
nQW0mTTmTcc1qNbQM2QoyFYT++Enep5o3HeOf1NtopfJK2a99KTNDnqV1Gdb
UozWLPjvHyTk8ny9Wc9Gr5Oo/lxFRSwHvUEcMgylk/52aAvRrnFFm34O6E1i
CnNcGRQ5obeJp8eNa/FdPPRvsiS2Mn6qc0EzYMv7kXxOyUczoY8b19vlKECz
oPiqPr4ok9oKusaG6nQmajbwylZk2bPUeyAzoO3A1l43tDWkTQ3ESpTUHPiS
HzjxLJraBu57Kw1fU6ltIdFyu9q5hNoOolNqcx7oqe2hqtSi7n9NzQXhcnFq
6Si1A4RPcWQvFqj3wrtyRY6cKUQ7Qv6b862RQmon6KvuqLwXjNY6wUdf9UrO
Kdp5cFRZvt2TQDsPTNmTRbO5tDuDfKig43kl7c6QnNUy1/CSdhfYb1/d3TpJ
uwuE6E2hFpY7dlfo1ahNLYfQWlewDyDNG1do50OWVDvmO0g7H2qXQkZjakTY
BTCdobs7YxRjF0BBSNJI5oYUuxuYC1Vssd4LuxsY3ncG3kzfh10Iu+9N8sEu
BP6diEV2hR92dxgOH19dXwzA7g4j3pO/8nRB2EVgPJj2mHk9GLsIIriswFuX
FNg9oK09MX9Cfhi7B5zraWpQy45gF0OZ/3eHTk0odjEUBEc22rUfwy6Bt8lP
E+KUYdgl8DmqrCpNRbB7QlPvmdASrxPYPWHBV2FjmFFhl8JY7azkyWo4dvqX
03hl8AeS0wb/
       "]]}, 
     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw102tI01EYwOG/t9RpzrmbTp3loAUtSlNxlZ2XFBmFqGthUpKOIotihlQY
4mUomJofiggrbaNZaoYDMZrT0Eyx1BSjYXhJJW0yNW+ZDpXUznvg8PKc37fD
OXvVGuVlR4ZhYGtvz/WahYE4dQJhdlYreSmVLeSFTlH3E70+V1vCX6QeJM4T
tza0I07w32Pk/FuL0P0Nm/onqU1VKaWpXGorSWwJN54N5lHPELWlRP/Mip4n
Ut0943gNn3qRKN+JC22JAuplMtz09NVRA3qFqPWWsN+r6FUiN/3Q708QUttJ
eaXxo1Mtep0cNkvZHt/QmyQqR/P1+QiagWYXHx6ZQjtA0onupbE5tCMoiruM
xX/RTnAzcum1nPGldob5tbSCeTe0C1QHbj6p46B3QaNqtCxDhHYF+6ytVS5B
u0HW9L4QNxnaHeJWq3JGw9AsSL6qZDVFoT3APHsysyIW7QmZhXdMRfHo3RD7
5UPl7XNoLygdSmc0aWg2sE4f112/hvaGtoCtG8mkzvOGXget/G42dg4csrMG
Sguxc+Czqq3aUIbdByo4VS1tj7H7QOd4T/2UDjsXojsic7m12LkgbLYeUDRg
54GE3ynQNmPnQUH+r9H2Dux8ECdETLL6sPPBK/RTV/IgdgEodx4QdgH05xiK
PG3YhfBieuZSxjJ2IXRfyRIPb2D3BZniiCDO1Y92X5g4FmLr8KZm/GBu+7pF
2P0gPmVN1ifBLgLr9zr7hYPYRbAsMsf8icDuD5HvV3oeAHZ/aGy/+DD8FPYA
MNyXWCbOYA+AbhMv6VEK9kCoL89u6L2BPRBSJ/uDh0zYxZAfXa1scBXRLobt
75WeRM0EgedkjJlVgz2Insvp3AP/AOc0BmI=
       "]]}, 
     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw10HtIU1EcwPHb8rGpmZubm3cPZ+lmvuZzKkr3p39IUpKJNUzC1BJF0VDC
QovCZ5aPkAhTQ1GTCUL5AIl8pAguksXMR8+Jq2E6U9cUJyOa+usHh8PnfP+4
51zPzMLk6zSCIMC69neLckuTmJlEEQczTk3WMsR5lhr0B8qw3TRfkapEL1Kc
aLJ674oevURxW99qZfp19A/qRtl6s/d9I3qFUlydXr2k3kYbqJ3ByfSmcDN6
kyrZzeuPH7GgjZQ6YYOfHn1wPeuYqE9xjeUsCQ29Q5k/h56lsW3Qu5RqOnVx
1tkOvUe99pfIPRbs0RYqX6LNL9Yx0H+ptFdjhucxTmgCwhZyu7qLnNFHYOYm
masUuKBpYM5u4c/++e+jYHQi96TDTLQNdOdZPzDAQtuChtfX2at0RdtBPL1B
Xn+LjbaHrMH6XkkOB02HvoLtVtOoG5oBYx/VLbUmLtoBapgTnXU6HtoRKnzD
S9uf8NFOcFv0tW3oiwB9DO4MzNT9UonQzmB9zRuhpxh9HAKXo4PXKj3RLuDj
YHoQE3Xi0PdcgK5f2Sr1O4mdCcZYdfacvRd2JlT3KN6F2HhjZ0FGSrK0PUGC
nQVT4pdFOUwpdlfI+n057jTdB7sr6OTkeNoSmmCDdKKqR7F6CjsbtOfrnhb0
+2LnQFlGyMWgXj/sHCgtl517UeuP3Q0MF4ZFlQ8DsLtBkoVXvKAJxM4FRy+f
u4/MMuxcEKwty8nGIOw8GIrYnbhGBmPnAV/2zcvuMZpwh9GgZl+ebQh2d9AQ
32mMZ2iCBOjSjjoLQrGTULhZqUrpQBN8mHlvHf8w7HwYTxPHbg2gCQHYTjUE
lySGYxdAalXk/NQImhAe/o84OXYhjOjYQtUcmhDBmf0HKyKwiyCgv22jR48m
POBnRsd8WGEkdg88j8JdDP8AlekKAA==
       "]]}, 
     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwtkws41Okex8f9EhlmjBnjMldyOeuSEcL/O4wxKAnRFikq2vXoRFtZtqtc
ttqSk9LTytbZVEoit1Kp9rBK0WUrbStx1HFJUjoUOjNn3nmeeeaZ5/3/3/f3
fr+fDz9xfeQaTRqNtl35Vf1OnXn3YGFiBHV3/ra1pWV11C89V2e2/TeT/G+h
THqZyTG0Q1RX6ov2TROd1Gm+ztlnbRVk/TF1V/tWYy6nn2o2tKW1KJ5TbsUD
h/PrB8nzPZRG88Xkjv43VFT0hZIf2/uoSsfPlfpb35H3X1G53NHJVdofKLlw
0dzqjQPUJ1mpKL7mI9lvmNpq7ZUsG5ikvMdG2rus3lLBbRUZRr9Pkf1Hqd+G
PulceTlDFa8MrtmeOEY97o2i7S2nQX3ee2roXxHhl4Y0QFdYbP+H5ziV9+OG
GbtoLajP/0jt8C+0D3mijQKX1wtOG05QHin/Od4j0IV6nknKK8dRklWmBy2L
ek5T9ycqc8DOTT/VAOr5pqgbX2Kqk/oMkT2T+6qjepraucdcckTXCOp5v1Au
ewruto4b4XN6RdeGQBrivOgHddpnQz0/DYryyuxiPToa1jKas85rIGlbl1/m
ETrU99HEtY/tB2kSU3y3LOvUbgstlGaZHLZ6Ykrup4Vv2P6CU6vN4Bbet3f/
Dm1Um+Y/GXdikPvq4MuWC8tKRhkYkYZllAzpYPPjtCudTUxyf13UJRdrnw4x
R4Wk5uuTS/TwS+hdmxQdFslDH6FvuQlZuhZIceDi/HV9ZP9xOyfBkE3yMcDX
aeskohE2xNa77OodDFG1Pzx+sp1D8jJUr9+zxEv6kNGNolk4W69bF0q3IvkZ
wXLPqZoiqTVKtaPe3542ApNqeV6bY0PyNEaaChA+D8snLnc9Sp6N/K9Ory95
yCP5moD1/wL4YA8LmrvvmyC65XpHA11A8qZjYOX08VvDAgyuD4r68DMdqrhf
XxSS/On4NRyMVUkitK3LlE9GKnPVOXnQRyomfZjiXv6D7p4wO5Qnnfee0TPD
0c3HTgg59qQfMzDGpB1ra+2xO/6ls9ZVM1yNLOb/ZD6H9MVQ5hx+v9DXAatj
zXn66QxMliXXDM51Iv0xIGqcyvsw3xkBi0MYxvZMrAj7Xc/vT2fSJxP192nd
miFfgR/2g67ZcybKM1sdfNJdSL/mcCtxZB/SdsUX2cVJVqE5vitia8f4u5K+
zXE5xEjTqdwVf/n3D3PlLLT1U/984e9G+mfB1fEMo/OSG5q8OD28zyy0Xm7Y
pwt3woMFrtibzKqtc8dR94UPxVUW+Ks2J7uzaC7hg43egUPVRqYeyHTe0eK4
hq2eb6cH4YUNq+xV7kt4EsTa1Ta6WHIQse9wmtlDCeGHgxc9s4rOJHpCwhs4
59HBgf45q2WrKzwJT5aQvktqj3eaB6aldZl3jiX2hg5qexTOI3xZIu2kRpOO
uxfGGIuL/L258FXGHXfNi/DGRcmV4gMmPt64b7w7N3CEiyl2xhOzm96EPytI
VigTOuGDC3qNmYqTVkjQu8dZbDmf8GiFjJTCN9nb5mOfxpvUhUutYXJs7olL
er6ET2vUvZ9+tKXAF6mfeSsjjW1Q+TRh06IRX8KrDTSd8lhdaX4IHY+Oir1p
g+uzlRv85kf4tUUDdva2Kvwx522+PG6zLQqUuM3q8yc826Jxn+4oy4vCro3d
x1xZPJj9evWGRR1F+OZBNc48NpCxYQur5u/KdZVAfiC88/BN08Yi9kYgMc3s
gOQODz+bKjfoAOGfB08VoAZSLP72nEGDmI+88tjb7gukxAc+5lk2L+cVSIEU
+S6f7Xw0D5f6OjdJiR989PztQNkEJwAua3qmmp7x8SE15ofKmADiiwC3xufE
7T8RANvE7zdREgEq/GOXX3wdQPwRwFoFpH0gZicwR2/sFyDB4Q69NT2Q+CRQ
99kSiOnlletkgwLQVB+6jPglxBpO71ILSobhpYq+FpkQNYMZteZ7ZMQ3IfrH
bB+sb5XhzyW9cSHHhbB3UxJmGET8E8JXJWxMEO5EZj++MynEK6Ue134KIj6K
oLRD9vRpEC4vYkWER4vwyEl54hw58VMErrEygZVynFlQ1dZZKYLXxM3VZw/I
ia8iZI9VRXx7U44jIaGBUQZihCnxNZ2RE3/FCE6fNBmggpEn/3fTH0li3Hqo
POBgMPFZrPbzUTA2B271XHpNjGEXlZEK4rdYzXOoAmvBrnrGtkNl8MvvmbkK
4rsdjupzS1e0KbDEr9ohPsNOnR8thPhvh/8B+XFmqg==
       "]]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
      AbsoluteThickness[1.6]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
      AbsoluteThickness[
      1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0.75, 0], PointSize[0.0055000000000000005`], 
      AbsoluteThickness[
      1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 50.}, {0, 11.313708498984761`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.789860765434984*^9, 3.78986077096467*^9}, 
   3.789861476324353*^9, {3.78986152537943*^9, 3.789861534309346*^9}, {
   3.789861781488509*^9, 3.789861835889407*^9}, 3.790500128363778*^9, 
   3.790687277934268*^9},
 CellLabel->
  "Out[306]=",ExpressionUUID->"79498c18-6a57-441c-9406-458e4e9973ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"d", "[", 
    RowBox[{
     RowBox[{"SelectFirst", "[", 
      RowBox[{
       RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"10000", "/", "2"}], 
       RowBox[{"#\[Rho]s", "[", 
        RowBox[{"[", 
         RowBox[{"-", "4"}], "]"}], "]"}]}], "&"}]}], "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.78500344089928*^9, 3.7850035247242117`*^9}, {
   3.78500355492629*^9, 3.785003581869154*^9}, {3.7850037263212214`*^9, 
   3.785003801241189*^9}, {3.785003858875341*^9, 3.785003870148059*^9}, {
   3.7850040155105553`*^9, 3.7850040423493967`*^9}, {3.785006116081827*^9, 
   3.785006116167615*^9}, {3.78505689009816*^9, 3.785056917277814*^9}, {
   3.785057246856258*^9, 3.785057285467389*^9}, {3.7850576509576273`*^9, 
   3.785057656673394*^9}, {3.785057728644764*^9, 3.785057728875795*^9}, {
   3.785063505099409*^9, 3.7850635055000563`*^9}, 3.785064629891938*^9, {
   3.789820922779374*^9, 3.7898209507203293`*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
      LineBox[{{1907., -14.0623706358958}, {1908., -14.0623706358958}}], 
      LineBox[{{1944., -12.96375834722769}, {1945., -13.369223455335854`}}], 
      LineBox[{{1951., -14.0623706358958}, {1952., -14.0623706358958}}], 
      LineBox[{{1954., -14.0623706358958}, {1955., -13.369223455335854`}, {
       1956., -14.0623706358958}}], 
      LineBox[{{1964., -14.0623706358958}, {1965., -14.0623706358958}}], 
      LineBox[{{1967., -14.0623706358958}, {1968., -14.0623706358958}}], 
      LineBox[{{1970., -13.369223455335854`}, {1971., -12.96375834722769}}], 
      LineBox[{{1973., -13.369223455335854`}, {1974., -12.96375834722769}, {
       1975., -14.0623706358958}}], 
      LineBox[{{1977., -14.0623706358958}, {1978., -14.0623706358958}, {
       1979., -14.0623706358958}, {1980., -14.0623706358958}}], 
      LineBox[{{1984., -14.0623706358958}, {1985., -14.0623706358958}, {
       1986., -14.0623706358958}, {1987., -14.0623706358958}, {
       1988., -14.0623706358958}}], 
      LineBox[{{1990., -14.0623706358958}, {1991., -14.0623706358958}}], 
      LineBox[{{1993., -14.0623706358958}, {1994., -14.0623706358958}}], 
      LineBox[{{1996., -12.96375834722769}, {1997., -14.0623706358958}}], 
      LineBox[{{2003., -14.0623706358958}, {2004., -14.0623706358958}, {
       2005., -13.369223455335854`}, {2006., -12.96375834722769}, {
       2007., -14.0623706358958}, {2008., -12.96375834722769}, {
       2009., -14.0623706358958}, {2010., -12.676076274775909`}, {
       2011., -12.96375834722769}, {2012., -12.96375834722769}, {
       2013., -13.369223455335854`}, {2014., -14.0623706358958}, {
       2015., -13.369223455335854`}, {2016., -12.96375834722769}, {
       2017., -13.369223455335854`}, {2018., -12.4529327234617}, {
       2019., -12.676076274775909`}}], LineBox[CompressedData["
1:eJxc3Hs4Fd/7OHxJklSSJFFIkiRJQuKuHEoISZK8kZBKJSRJSJKIJEnSPp+3
KJWQJCEhRZIkCUk5JJWQnvl9972f6/rs/ul6XWtmzazjbWbW2mreh532iYuJ
if2aJib2//7/v38ZN2GGbl/R0b5lpf/nLBGTbkJg3cbpA4t0BKbdBL1ze7ma
bpjOEknniaTnijifOD7h74WkBC2BC0SuVyxyfKnI8eU3YfGZiLukdeiqm1Cl
bFnT/RldI3J+/U14ob39nfRDbYEbRe63WeT8VpH820Xur1PEPSLX+3YTeElX
Dw4XLhV4UOT6wyLXGxHx+E1YdmJHlvhZPF+M9L/p4qT/zV+C9L/1IyliKZHz
pUlw6dOxkxt/4/kypP+9/5kix8uS/vf+5USOlyf97/0qiFxfUSRdSSR/ZZHy
LBQ5XlXkeHWRdA2RdE2RdC3i/rtnuLOXorVF7l+HBG4HQsVyJjQF1iXBkHns
Vo80tB4JZvQyTWVd0foixxuI1KchCajkx+e9TDHdiAS+EQMR+++iTURsSvrf
/mZGgutie1UMnTE/IEGKbrmScwgev1EkfwuR8lqRIPZD4tniZkzfLHI9G5H8
bEXS7UXqy0EkfyeR851F6sNFpL5cRY53E7meOwmCvOouJLcsEdiDBGUdmr6L
p2G6p8jx3iLl9xFpL1+R/PxF0gNEzj9I9IdNC3WeluPxgSLlOSJSn0Ek+Gy/
rbl9Lx4fLHK/oSQYdz/W5/gd08NEHC5yfgQJiirj6p9dR0eK3F+USH3GiJwf
S4LK5n+2Z53QcSTIOLPwRNEGdDwJTr2MDM2YjE4ggU3fBpXj8ehEYrxaFcjo
/NQQ+KLI8SkkUDtgndR2C50qkp4mcv10kfJkkEBi4uWuU28x/0wSfE9o7D0s
h+lZIs4WMYkEU1qvrfgWg+dTSGDiOaOuQA3TaSL3zxA5nkWMz5u64+1eaA4J
Tivnv9D4jOaJ1GeOSHouCb6uCjU1eYS+TYLdiz88uHIbnS9S/nsi5S0gwcZJ
B006p6ELRdKLSfCnWjVPrwZdQoI9D848PHQRXSriMhL4Zzy4ov15scDlJHD6
3Fl44Ra6ggQ/7fe1rVDG46tIwN3i1Je6BF0tkl5DAmWNq6QuI3QdCbw2vlRg
NGF+9STYZG7yXWMlpr8ScSMxXxWrZDeW4PFNJMh/EPaYXoFuJsr3QXfLmzZ0
i0j+rSSY/TjMVI6FbhMpXzsJHO5mVX4+jO4QOb6TBCVz05LOL0d3k+CL7bfa
PzvQPSTY59ax7FooupcY30tXRdvuR38jwfOB2tf2a9H9xHxjxPk7VRU9SOQX
UfFu63r0EAlWuF8qj9iCHiaBcVrFysBhdYF/keBszp/4vaswfUTk/FGR88dJ
cFX7udeda3j+hEh+YmSgX7d5DDVocTKUyixri+GiJcjwdXFZ3q+HaEkyUPdE
SIsx0VJk+BNzPkAxCi0tki5Dhg/fpfSWm6BnkiHhkmpfcSJalgzPhp/ts4pF
y5Hh5IMt9k3H0fJkGFfUDRzcjVYgg6vL2Oo5rmhFkfyVyNC1eS3/5Aa0Mhnm
pB9u23kFvZAMev+aeXtXolXJcPyqp+xrDbS6yPkaZKjtU4zYJYvWJAO/N731
6B81gbXI8Kjj8+6zn9DaZLBhj9+Y+wOtQ4aO7E4ycxytK5KuRwZj9Ufe650x
f30yWElxfh58j+kGZHgbt4hmV4g2FLm+ERmaA+6lKN9Cm4jYlAyTt55e1M5A
m5Fh0Cr5wMxTaCCD5IjbJff96I1kaIhtd6lOR1uQ4T/trP5PNmgrMtgZuS4+
tAe9mQz5Rz+GJ4WjbcgwEvdu1QtDtC0Z4luPJNZJo+2J+s57eqFWCu1ABo2Z
NOPuCVWBnchgf8Pv5pJOtDMZcuYsvvRSBo93IYNEYWLLAgu0Kxm0HVvWeKuh
3cjgMTEp2v4Bnu9OBtlmRR/rOrQHGa5vCxx79xLtSdQ33frU1Ta0Nxm++Gx+
dbgd7SOSny8ZHIt6sxXfov3JkPRtYJrEMXQAUd4H0++0k9EHifrJ/++ggTE6
kAy7ZXeqz4hAHyHDTGsmLykdHUQcf/uWq/whdDAxvq5/eRayBR1KhsS+weyL
gegw4vqs/pC4o+hwMjB9Cp/Gh6MjyODDTB4Y24SOJMPL5nqbq87oKCL/H8eu
N9mgY8hQHq2UY/VqkcCxRH2FNS88tgzT48iwnZRnrjOO6fFkOMe5fDZ4NqYn
kKFyN4W96hmmJxLjrUrnhvhn9EUycG6o/l14E51ChqLZlqWSHHQqGXgRifMo
Geg0MjzcXvrbhoxOJ8OtBbz7r7aiM0TyyyTqI2qJB1sdnUWGz+cv5s2fj84m
g8FQdVLDQjSJDOc747tap6MpZEiLybOYN7ZQYBoxfv2d/Cua0AwyHDSbuuPB
DzSLDBbi0z9+IaE5ZLDVyL5nqonmEf0rYfPOle7oHDL4zT2T//ocOpcMwRW+
vtqZ6NtE/y+c412qjc4nxuMNR953T/Q9MuTONTpkEIwuIO5/QZzFtL8qAhcS
/SM19vxEC7qYDFHrlvj/HUKXkGFV3qZbydPx/FIyeKVEPb4QjellZDj7Lqvx
ZQa6nJif/5RH6JxEVxDzy9H3na890VVEe5/W+pawHl1NpLfLmzFWoWvIMLen
2NZHHV1HhlOJ+brvHdD1ZNjH2VSdIIF+RYZqs+OT5KehG4n5v+FwXX+5ssBN
ZGg7Pzn87g90Mxm8r7/QsxhAt4gc30rEN418Od0QdBsZLlcHrvcvQreTAXqG
FU7R0B1k2CmrbycXie4k4qEx5Y10LLqbDA+unCntWozuIcPUawU2NevQvWQo
jrj20XEm+hsRnzRUHOgDCwTuJ+pzrerTBBlMHyTD7Bmyfz0+YPoQEd8e7+iL
eYYeJsOW+TWO32+ifxHjNbVngJOHHiED6V/ytQQyepQMMZnrgt1j0eNkMPFS
O264Gz1BBsP9+me0E9FiFHB401Bq4ooWp4Bs8QeDxAElgSUo4LVmu2z9P7Qk
BZZtsX6X8wctRYEFT1XlJwktTYHDIUWupeVoGQr8CdIskx5Dz6RAxrX1Cj1c
tCwFlpZwVy2vRctRYPEWsteTIrQ8BU6UkRzdI9EKFHgz+8fp60fQihSQlmo4
8UuYrkSBwJzAE0P6aGUK9N8z9nxgj15IgZNfF3t9nodWJcr7NdFvQhGtTpQ3
teWEvSxag0KMd4uU/ZPRmhSQOyM9R6p5vsBaRP5r+/89LkVrE+eT3rAON6B1
KPB17InUs0q0LgVmD/lmK15F61GAHf3eN+skWp8CVreGOE1H0QYUmMFICuG7
og0pkL4uaedlB7QRBY6QSj41maBNiPLb/LnVOgttSoGnP2amjU9Dm1GAuvuk
0ZTPigIDBVYNPDEPHkZvpMBQyMG7N7rRFhR4FXHAovoT2ooCegtSpF2r0Jsp
sBIo2ebFaBsKvJOMNzRPQtsSjtWav+oy2p4ChecLH286jXagQNrpB/GVLmgn
CvSennPvlRnamQJ+blurxjahXSiwuj46jGaLdqXAdAeXeQFL0W4UmGbXJr9h
BtqdAuHyQd+Up6A9iPqOb5XI+jRPYE8KuNz82FD7Fe1NAe6m2X/gJdqHAmPS
l20kaGhfCsyp7O3+7z7anwJid+Pa+46iAyjw88pty75Y9EEKVJvbJBqeRQdS
QHnvrQuyW9FHKBDxu9xQbRs6iALP3Peu7jZGB1PgEuOG54kV6FAKFKWeG26R
RodRgPKdlbZNBR1OpL+fXG38R0HgCAo8qpM+196DjqRAec4a8pxv6CgK1Fy2
rPovBx1DgQ+ZKhuP0tCxFNDaEHRlfwo6jhgPL6ZuunkIHU+BO2dDnUfS0QkU
eFDts6H0IDqRaK+Y2z+b9qAvUuDA5RqtlhXoFArs4tbEam1CpxL3P1hl9XIz
Oo1oX77hi0kz0ekUcGxTt5SUQWcQ9zdv7fcLo3MFziTmm9V1Ph860FlE/diN
Ru5tQGdT4Ebmp4MZtWgSMX69dsd/y0dTiPruynRUYaBpFPjcuS9m7QU0g2i/
sAsXks+gWRQIU1Y4mRCE5hDz0dhnU+sNaB7R/pbhlsc80DkUSIX/eKPm6FwK
SK20lkleib5NHO/bslRDHp1PAW1DmSPUyeh7FNh4ar/Y1X55gQso8Pru39as
VnQhBczoPxwLy9DFFJhQjWzpf4YuIcZDY27YNhq6lAIKal/LS6noMgrktZS5
SF1Gl1OA5Nx3mRhEAldQwNnPyVwmBF1FgUXH+7+vcURXUwBqN/5YvQNdQwHX
+Ozcd+vRdRTQOUAdvj4PXU8B+12fvs+QQr+igI2tcvcpGXQjBRpyFWNC/s4R
uIkCpd6XjFe3oZspEBd+vu3TK3QLBdYVbM2cW4hupcAa9eUfxbjoNgrssDHN
78hHt1MgWybIP/gyuoMCS3YkrZeORndSYO6HvH+RJ9HdRLyqLQ4L3o3uocCt
35aHFO3RvRSI1jKfM98O/Y0Cda9/tNgtQfdTYEX5lKrNauhBCmS27LS+oYwe
osC+fzwp9+noYWK8lGeJOX+VE/gXBWj73Qxzv6FHiOtPhD7JbUePUkAj6dnY
ssfocQr803o4voWDniDKe5uiMTcDLUaFyeYDD8VT0OJUSG6OPVWViJagwiOG
QXHEXrQkFYwveoT/CUBLUcFboWVytQtamgrn3MeuKK5By1ChMtGPmQvomVT4
PiTmKqaElqXCn/5Nh5YsRMtR4dZYUNqSP7MFlqcCxVA7vK4NrUAFan1d5c9O
tCIVHF6rnf3XgVaiQuC17CzTSrQyFY4P24Wo5aIXUiF45O0etTy0KhVO/Zc2
6dB1tDoVHjSxL9gkozWoUBA3Q2P2cbQmFbxO3v/5dT9aiwpWK5WejHigtamQ
0EFeEr4FrUOFrGXXYlauRutS4Wqv7Z3A5Wg9KkgtIEWPKaD1qbDpT4nzRxm0
ARVqXtLFH/fKCmxIhX/knHV+39BGVFBV8Sk1a0abUGHqUZ2Kyy/RplQYi+6K
UX6KNqPC8oXP1EapaKDC54ASCVcWeiMVwhZWuHrEoS2oMBKS+dTnFNqKqL8/
bkX9gejNVMgYahqQdEfbUOFTg9SCRTvQtlRoVgg58MMSbU+FFz3f0xpWox2o
MEh9FmOhhXaiQrxH8BhvBtqZCtv0p+pwxdEuVMjcGvqxp3uWwK5UUFnRdSij
Hu1GhaRJ523Gc9DuVLB+ui6JnoL2oALvEmjlhqA9qVAk53Rp6060N1G+JSED
3mvQPlTIk2iw89dD+1JB48irPIuxmQL7E/c3/eDX7NfoACo4uxw4P6kMfZCo
v6Ru6Vk56EAqHNUZThxPRh+hwvllOp0fPNBBVMgdf0N9COhgoj94JRnn66JD
qdDOC4i7L4sOo4LJUbW5MT0zBA6nwnTjQku/Z+gIoj6Zar2NJehIKtQpxF9T
uYmOosKOn68cXc6gY6ggnv47l+mOjiX6b6mv3MO16Dii/k/tLCTpouOJ8UCu
XRo6BZ1AlF8xx3tkQkbgRCpYhpyRWFWGvkiMl2XrTyRz0ClEe7Uuy8i/iU6l
wpMsztS/J9FpRPmWvDszzwedToUQ+/xfJbboDCp0DFhd3L8CnUnMF/9evqHN
QGdRYUNak8Ol79MFzqaCHXPyuornaBIVmCdaGIevoymEl4oZKl1F06iw/XyB
U1QImkEFnT2xeWKuaBYxfrKvL7u4Cc2hwke7z/s6VqJ5VLh5dvq9IwvROVT4
MC1ucEWrtMC5VFh0ztqx4Qv6NnH9K87QSkfnE/XnvtXueRr6HhUka1v7IBxd
QAXdr32JGe7oQirs7TR5QHJFF1Ph64Vy6RUa6BIquO/1+JMniS4l7vfDzmqL
vmkClxH1pzTi/PUzupwK75UXTx0vRFdQIf2dgWEjHV1FhfXHu90/pqGrif5u
vPi0yw50DRVIOdGOH+zQdVR4ZnAgvcAAXU+FnfN1eJIy6FdEfJg4JflWDN1I
BXrQPrflbVICN1Hhr4vfDsX36GYifx/H13fy0C3EfGAwrvPqPLqVCifczWB9
ELqNCvc7mtcEe6HbiXgSP+bLXo3uoILm8a6j99TQnUT5km+tipVEd1Mh/Pep
oK1fpwrcQwV23ay6rXXoXip4XjOY9oKP/kaFqB89Z/beQPdTIWb/o6yEU+hB
KshfeXqP640eooKbqs6+FDP0MBUaszSTFVeif1Fh5t/JjgEa6BFi/uTaNm76
JCnwKHH9AHib1I4ep8KRld/37XiInqDCuxXM/jQ+WowGFncfqoklo8VpsJ9b
y8qKQUvQ4P3hA2qDHmhJGqiYKG6jGKOlaJBXO2vBA3W0NA1W7F9dtFAcLUOD
tKUOXMuhKQLPpMHAvhXbLF6jZYn8OJaXU+6h5Wjw97rG1oUUtDwN5s7aMXzh
PFqBBttW6jdZB6IVabBznnefmxtaiQbyG8RcX5qhlWkQ/POS3hp19EIazLt+
QqNHAq1Kg5UG3u5GXyQEVqeB8c21K8Vb0Bo06OJYS6cVoTVp0PprNvNuNlqL
BiPDW0LyzqK1aVAUct26wQ+tQ4PdqaWDP7ahdYn6rnKQu2mO1qOBek+Gc9Q8
tD4NaCW+ybZT0QY02GzkWf3j12SBDWmwvqTVO+wD2ogGB1csmKt1B21CA73t
EWIL6GhTGjzeNi2qNhVtRoNpRc/nfwxCAw0quGkrqqzQG2lQv+vd0XgjtAVR
3+L7b79ZjLYirqf6NZQ8G72ZBjKaYffsfooLbEOD35dbTI61oW1psMAuJm1t
FdqeBpUT7w7Np6MdaER8ytzYcxHtRAPP9C/lp0+inWlwyWrTuUpPtAvRHwZa
nx5Yj3algX2j94sNumg3Gqw5tvV6y2y0Ow3Wvld/rvRnksAeRH84XquyuBPt
SYOpJ6e9dHuJ9qZB9xeDua+L0T40yN9sqTz/BtqXBuUOjFmFZ9H+NMh1HDJp
OYgOoAFJmdQ03R59kAYp5DMNu0zRgTTi77nE7GwN9BEaPJDpYh2cig6iwfdS
g5dzhsQEDqZB6tXnTpR36FAaBO26eeBPJTqMBlkFxuXpPHQ4DValHD3Wm46O
oMGvG4soXufRkTS4V7/15SJ/dBQNxnZlLlCzRscQ7cE4tm3WWnQs0b+/HDdS
VUHH0UB29GIUfTI6nqhfyhwx1Zf/Hv2fE2jw1u9k3xUqOpEG96O5WUWn0BeJ
9lW5YG3rgk6hwU+djRWeGuhU4nqxc05Ej04InEYDqx+5G31q0enE+DVZ9yc7
Hp1BA0b6pEFfP3QmDSJevNRcuxadRQO+UTyfN/RX4GwaXGNvbU3sRZOI/rXs
yxbje2gKcf5p26D3p9A0Gli7/vhxyxrNoAE37KXZZ200iwaTE0s3O42PC8wh
xtcVSbWUCjSPuN6qLde1b6JzaPAvKT/uxV50Lg02/e5wJluhbxPz5UhYF3ke
Op8GTGqw+a7uMYHv0UBuys++jaXoAhocCmG8+BGFLqTBfO9XDE0fdDENlj5R
fZ+ujS6hwYGNdTf9JqFLaeASsfurQf+owGXEfHRUTS2NjS6nweKWysjCZHQF
DZaMO3Fc3dFVNNAP1IOg1ehqGjT9q1huIY2uoYG71mCy9/s/AtfRwHlrViEp
D11PzFdhU8QMT6Jf0eDDz6Cy4c3oRho8WTj0sUgd3USDrema0Xl/RgRuJsav
hUq7bCW6hQa3Zm14rs1Et9Lg5fziinMR6DYa7H3/KcRrD7qdBvvuRzibL0B3
0MDxjx952b/fAnfS4PXvmzfyytHdRH9VE38RmonuoYEtmB+oCUL3Ev3h89zJ
jtvQ32iwWjv66PRZ6H4aTJq17sDYyC+BB4n5/Vf+qedV6CEafNK7H6eZjR6m
wcLmw14XgtG/aPC5K1+SYYoeocGprqJJtUroUaL+Ff8dedn1U+BxGlj6+EVV
PEVPEOWrvL367HW0GB3shmMTn/uixenw9UW8mP8utAQdlLq/ujStQkvSgbeQ
97trYlhgKTpY9ry0+q8KLU2HjoJ5GwNJaBk6nDadcTXmJHomHdZvjo7X3YmW
pUNEwpm3KkvQcnT4oDYr33waWp4ON9R+MJXe/BBYgQ78RysP++WhFelw3+py
94ezaCU6HA/lNh7fjVamQ5X1+blua9EL6SD+wEe8RgytSoeYAw/LJb8OCaxO
BzPdX9xXhWgNOuyYmNg46zxakw4lvokfV4egtejw7M9as5EtaG06eJlNSelf
gNahwwGjEzu/934XWJcOW2SX+QQ+ROsRlpBQ5N5A69PBcPEK44oQtAEd5k22
PW9qhzakw9y4ec/rNdBGdLg9uGr5m+FBgU3osPvYrxDFWrQpHWb6DkQn30eb
0cFnxpLslktoINpfInX/3X3ojXT4snMa7LNCW9DB/fiDpHkz0FZ0+HvOSdWk
bUDgzXRoeHf9gvN1tA0dTEctuaFr0bZ0uPt3i7vut36B7emgUr+uvPg22oEO
TS/ak+Xc0E50uDnt2p/n0mhnwg8cJK/d6RPYhQ7hje5M7YNoVzpELdvZGq2P
dqNDD0w97/Pqm8DudCDXbz8afB7tQQcWJX5/uQXakw7jG7f66cxEe9NB7rmE
nRTrq8A+dFBrNrD7fAztS4eBWWtTxRXQ/nRQ/eAfMu9xr8ABRP/eqjljLAh9
kA5tCuU2s1aiA+ngPWQR/qnti8BHiPvbHbWJzEAH0cEzsezKdVt0MB2MppWU
s6agQ+ng4uh4mMfrETiMDr0SH+9FHEKHE+0rFz7UqIWOoMO2xUpd4/WfBY6k
g4Hd/tnUaHQUHQIVtFPSDNAxdDhUoJ/1cTY6lg4VMsyj/g+6BY4j+qOWxNDC
EHQ8HWyPyYfmq6IT6BC596H9kvYujP90CLWNo27IRF+kw7L+8AfLNqBT6JB5
cpxU8LcT4z8dwiyPeRU+QafRoWxgKIvqi04n5qNrfkcHjdEZdFB4+D5HsfUT
xn86aCxP+RCQhc6iw4nI7KrtW9DZdJih+CPo5xw0iQ4XVnVWmz3uwPhPB4ud
Ry3nH0HTiPF46Zzz8XVoBh3+hKeMZXZ+xPhP3M/1Pb0RPDSHDk89Lz0P9UXz
6BC/x+GryyJ0Dh1a75i/v/2zHeM/HZ7fq0jeEou+Tcy/B6Qlp1qh8+mQMjYi
lzEDfY8O1d12pjLJHzD+E/W1r9J/3Rx0IR30+xM8S6LaMP7TodD491Let/cY
/4n2Sp8yrc8HXUqMlwmZJ/KvWjH+0+Fyvt9GCX90OR3YZpl7/GvfYfwn+oe4
Q4OtIbqKmN+SSh41ZLdg/KeD7seywPPr0DXEfMGf2/qm+C3Gf6K/7zJdOqqD
rqfD1XfGvTueNmP8p0Pw/XcFKrPQjUR9zvPPWn/hDcZ/or/cnHWKroxupkOu
PPu+3dkmjP9Ef/87x/vYFHQrMb7h5PtzZ19j/Cf670Jv8fjhRoz/dNjX/SvK
ex+6g5g/p3XfqR1swPhPh8c/tpxzcER3E/1B9rNRozi6hw5rKoIrOh1eYfyn
g82JaQ8ju15i/KdDZ81pzx1e6H46cLw9Yk631GP8p0Ocb/NM8yD0EFG+msym
k/kvMP7TYRG/wDKlqA7jPx2ObL0WXVpVi/GfDn5NXL1ieg3Gfzq8kN+xeojz
HOM/Haz1VobZxVZj/KfDydZnG++/e4bxnwFFCTHNiiVVGP8ZMLnsiuqysUqM
/wzYQapc/PhuBcZ/Bqx6d/b0ffZTjP8MsN/eSDedipZmwHzjd8FVOU8w/jNg
ffiJ2sqqMoz/DDD9YcFO/PkY4z8DJPIrT6xRRssxQEnyavD4jFKM/wzgK/M4
pJMlGP8Z8EFC6099QDHGfwa0z9/8c21QIcZ/Btj8Z/vOM6gA4z9Rvh8amhM7
72H8Z8DQlWqX0jv5GP8ZUF7OCCxuvo3xnwENEm1Wx7JzMf4z4P70gN6Hs3Iw
/jMgZp525OB7NsZ/BtTm3/thMJOB8Z8B7j++GR89R8b4zwCjCzzPocAbGP8Z
4DGcrPR+4jLGfwbRHxgab1QTMf4T13+zc/K1pCiM/wwo289Vdyh3Mv8/GzLg
TvsdsyOt0QIbMaDvKdP7oXSywCYMuOz33Pet/1WBTRkwRb2a/DHvhsBmDDj4
n8HlU24UgYEB3NgGjr4vQ+CNDHi022RqazZbYAsGnK2xnz64OEdgK6K9nJ+p
mLJzBd7MAMewDfOdom8LbMOAhPrHltuN8gW2ZYBF8fs1yb/uCmzPgD3f/eR2
Pb8vsAMDdJO3eTVnPxDYiQFzuxdOHoorEtiZAT6OK3/Xqz4U2IUB22I574LX
lgjsygCNSXqhxzRLBXZjQNX+siD5aY8FdieuZ7DU9p1GmcAeRH++m8u4+Brt
yYBRvcr01Z+eCOzNgDoL6+piarnAPgzo33+peTTiqcC+DHgum8L661UhsD8D
Ihq6cludKwUOYICbqXZivXqVwAcZABPi5o+UnwkcyIB1d4utB1+jjzDgVk/x
md/V1QIHMcAkTZJblvpc4GAGnH+eFXzbrUbgUOL+ND94m8+pFTiMAWndkYvT
teoEDmfA07pIMcUedAQDaId91PSYLwSOJM6/0fPkk2G9wFEMmJ1vvSzoCTqG
AfOah5M3K70UOJYBTa3Jt5ZEouMY0B3JNZb6hI4n+vfesZJ9/q8ETmDASLJh
y+cqdCIxX9yxb7bc0CDwRQa8f5GtlHkTncKAa98te81+o1MZUHF+g668b6PA
acT97hDTetqMTmeAmPTphZPVXwucQYz/ByvFmenoTAa83hS8bt93dBYDZP9W
nbfzaBI4myhPnbJMWR2aRNS/x6ZPvUZvBKYw4MCN6Pm5J9A0BnRNe2U1bWqz
wAwGbPI9lTpzD5rFgEOr9hour0JziP63lMfM03srMI+YD6eU0v4mo3OI828o
tG7vQucS/Xsrbcnd/S0C32bA9rcXxE2K0fkM+H7uSpOh+juB7zEgUjYyiH0c
XcCAYiiuOfccXciAN8kXnN3MWgUuJuYT3i/NoHh0CQNujA1WDP1BlzJA67yK
xfSD7wUuY4DUoJ+Ywl10OQMuuTwOGtRoE7iCAaTKhXcPRaKriPk1bpb6tc/o
agak5++8lG32QeAaBvjP9M57RkHXEfNN4N2/xzvR9Qx4mxOgJqvTLvAroj9M
8grp80I3MmCpNHOVbAq6iQF71e8y/hahmxnE37PPnlD60S3E/BR+eWWVwkeB
W4n5bCDch74F3Ub0D5WKG18D0O0McLC51vvjJrqDASEqDVWV1ehOIp4MPDTM
/YnuJubfrbfiZizuELiHAUlr9zUscUX3MuCvzo1Rn/PobwzQs1+ypywf3c+A
sRiJGc+a0YMMkP5r5XtY8pPAQwyotEw/ZWiIHibiZ9hBmrMH+hfRv84orOhK
Q48w4Gjy3NneBehRBjwJnuld9Qk9zoDkHK2InBmdAk8wYJKJl8lZa7QYE9J2
211090WLM8HGdwvp0hW0BBMeRIjr3nuElmRCYmaUQ0A3WooJTn1KG+aodAks
zYRtlpwXmZvQMkygeDmMrTiAnsmEFc+szlReQcsy4eros+AVD9FyTDgfdPXy
pu9oeSZ474n1LJ3bLbACE1xvjo38NkErMiHhjaT1Mj+0EhNGwXrb/mS0MhN8
1TekhReiFzLh4uLahyu70KpMCOmfeWParM8CqzPBY3VwcOUatAYTGjpsyXre
aE0mSLHgpsU5tBYTDuy5/bqUh9Zmwubb+o+XtKB1mPCqwZ2nP4HWZcLnhvP7
ivV6BNZjglU+Vb15B1qfCb8UmqwHjqMNmPDhY6X+CibakAmDEwl95MdoIyK/
O7UylV/RJkxIXXQsepXcF4z/TFD8InbYzxRtxoQlDcsk9DzQwASDVRt6zeLR
G5kw3pT480kO2oIJjA9vKLof0FZEe+gP714p3ovxnwnZy7eptqihbZhwt/a9
9jYrtC0TuqYUB/44iLZnAstG/l9WGtqBaH8b07+jj9BOTAj//P3sqXdoZ6L+
NH7VyE39ivGfCfoLydprl6JdifP/cabut0O7MUEz/Amv7ijanQndu+q3ZWah
PZgQoPGRff8R2pMJL52sM3w60d5E++32tuv7h/ZhwvwBT9JNnW8Y/5nwODJX
dv52tD8TOFPCjgYcRgcQ5T01abNZAvogE3xKpbRmlKADmXDmatYs6iv0ESbI
ThvpNBPvw/jPhJHv43sV1dDBxHjce9c4eiM6lAnrZ0Wotvihw4j7nR4/4JeE
DmeCkYH+CRsGOoLIL1O+Uus5OpIJ7xxfzkjoQ0cxgf2oYfMkmX6M/0z4EWRt
L6uPjiX6X+vVksUO6DgmmLQtG608ho5nQlN19dzkNHQCE5pDdi1py0cnMkHL
YlPA9Ab0RSYYP/I7lzyITmFCX6VHxNsFAxj/mUB6Hlg1yRCdxoSbkjfFvXeh
05kwrXTEnnUcncGErcPqd21I6Mz/l944ciUXnUXUR574v/JP6GwmPB+J/k9u
BE1iQknbYPjRWYMY/5lQFfB4z/RFaBoTxPTF3ntroRlM+E935bl569EsIv8Y
nkK9NZrDBDn66nYzdzSPCV4PC01rfNA5TDhy3HJDWRg6lwn3QpJdXZLQt4ny
rG04Zp6JzmfC/SclBTuY6HtM2BJceeriHXQBE7K+Hdv07zG6kJhvmXanyK/R
xUR901WP/2lHlzDhS9n257sG0aXE/OlhNvvFX3QZE4IG/50hT/+O8Z8J4s2B
X8uU0BVM6BH3XnV6GbqKCbR91otdDdHVxHwS3X3zuSW6hgkuWWXP1rmg64j4
4Dfbss0bXU+09+/Ee9+OoV8xwf23kmF9FLqRCZu+7gyfkohuYoLZQefM4uvo
ZiZ0vLrQp81EtzBhjKzYzryNbmVC/LbYsluP0G1McKM+usF7hW5nwnCA196z
79AdxPUf1d9f2Y/uJOLbgv3iKSPobibMPHUru0Z8COM/Ey5Vz2t8Og/dywQd
0hh540L0N6L9m1V2duii+5lwyKXasM8YPUjcX9eGz24b0UNMmFOTrp++HT3M
hIXzH562dUf/ItpjbeKsWwHoESYUJn9j7AhDjzLBds/zB+fOoMeJ8Tynrlsr
GT1B1GdxkkLldbQYC6hNXY3H2GhxFjyiLNWZuIOWYMEzDdfJyqVoSRbUnZ/+
m/MCTQTDZU7vo0ab0dIsiFdetCepAy3DgtWpVncm9aNnssDU5cecyHG0LAsO
XlzWUjTtB8Z/FsjPC75zUg4tz4ILK2MNFi9CK7DgjVLPUfPlaEUWbFt6K/m2
IVqJBdI33qWs3YhWZkG443nvdVvRC1nA1i5vrNmFVmWB2dVKla69aHXifmJW
3dh4EK3Bgr3KNq6Gx9GaLDCpfj7V5SxaiwUczYmW6EtobRbwz25dLpuB1mGB
pe3Y6890tC4L0umT7g1z0HosqLKvF58oQOuz4G2Y/bY7j9EGLLCjnbBm1KAN
WaByLKTs+Wu0EQtekA7XTWtHm7Dgnu2kUO9vaFMW7L+a7/PpN9qMBRefSe9f
O2kY4z8LArt9/1ZMRW9kwUKtEt39s9EWLGjcZ33NfBHaigUnM5v1/LTQm1nw
p2KyfPoqtA0L0tRGljSuQ9uywF55ntRMc7Q9C/yXZ078tkU7sOCsZKbBkZ1o
J+KPKymJdy570M5Efdfzv0n4ol1YMKPz2vTIY2hXFvwNWdvrcBLtxgJlf+eB
yjNodxZ0NR5h519Ae7CA1XL1+7FUtCcL5MKf/v51He1NuH4sdoKO9iH6g9Tv
YAoX7cuCPUFxtw/dRfuzIObwNrWmh+gAFliN3Sy5UoU+yIJ9+U9dXF6gA1nQ
fixJZ1Yz+ggLOtzuH5/xER3EAqkeVdtlvehgor9snsdwH0CHEuVfvyzH5Tc6
jAXuJXUjuv/Q4SyQbFu19OG0nxj/ifb5Sz1rIouOZEF08BKKmQI6igU6OSvm
ctTQMSzQWva9/JMmOpYF3f2pa4qXo+NYkBmcLn93DTqeBQVTHE7amaITWFCt
nNh5zQKdyAJFKx3xDlv0RRY013aH3HZEp7Ag9VhXd+QudCoLCiVtots80Gks
UHCMf+Pvg05ngVGJs3vsIXQGC3IOtJo/DkNnsuBdj+vO4XB0FgtapLQ/fjmN
zmbBcmnTqcnxaBIxn72oWF99EU1hQVi8z6GHV9E0FoRqda4ez0IzWDBnEvWk
NAnNYkFIsdULIzaaw4LZOacy5/LRPBb0frWRLs5F5xDz067rq3j30bkskPCT
Grz5BH2bBby1pOaLT9H5LFCbrKP+thp9jwUlOy0e6b9AFxD9bULvdUoDupAY
n/JRl0Za0MVE/yrdUrr6I7qEBb7b1urd6UGXsuCy+PnS773oMhaQy3du2DOE
Lifau+M3V+w3uoIFP/K6v9waRVcRXmqnrjSBrmZBv9P673sm/cL4z4LFYec6
adPQdSzYoLS10WgWup4Fq3wNNw4ooF8R5YsxS41WQjcS/V9e/XC9MrqJKO+c
qz0bFqGbiXgVfn2vpBa6hWjvOPsIJ210Kwvm7rO9vk8X3caC916rjtutRrcT
4ynHPn6WIbqDBSnsO1/eG6M7WfB8fvPJ9SbobiL/FZIRjzaie4j53fTCvjxL
dC8Lzn/oWeJkjf7Ggq1i7y+a26D7WXDiauPSPCf0IAtuLBnyCBR6iJiPnanD
LbvQwyyICP/TPO6K/kXk9+bz/gce6BEWOMosl2Z7o0eJeJRYsclpL3qcON9a
4XZ4AHqCBX4p7h6pB9BibHhwTmYF5zBanA3rtj7oOn0ULcEGHwmxJ29C0ZJs
UOuNPzlxHC3Fhvued1+7nURLs2Gg0KhWIwItw4bpV95stI9Cz2SD48iW48wz
aFk2sA5EOyucR8ux4aGS6526s2h5NvSpvMqdGY9WYMPycvcPmxPRimzQXDdt
eV8yWokNJ/I2/bkrtDIbqs8WXVyZgl7IhmfnuSWqqWhVNuTf2ccLuIxWZ8PK
DZ/O3b+C1mBD3Oj09S6ZaE02WP5b6nhGaC02qKyfTSUJrc2Gtldrw/yvo3XY
4NY1r/5HNlqXDSE6fxbIkNB6bFhmsv3bdjJanw2vch4WLRbagA2/LXVqvWho
QzYccdx75bbQRmyIn3g896bQJmxo75JzbRfalA1N1gNfbjHRZmzITJhin81A
AxuUG3ZtD2ajN7KB7+RypoKDtmDD1rK1e4uEtmJDQUMyb43Qm9ngH51rU5uD
tmHD0xerDljz0bZscNnZ2th3C23PhpS5KuvzhOkObEglv3hjIkx3YsOZjAWz
snhoZ6I/tp1dWMtFuxD9sThyTanQrmzoT9x87ZjwfDc2LJa42OouzN+dDV5G
SRXZQnuwITx6Taq+0J5E+3v+fnxEmJ83G65Rt6z7Iby+DxtiTh2/2iwsry8b
dm+bfWSZ8Hx/NsyaavedJzw/gA3OE/o2C4T1eZAN7qrpOUeF9R/IBkWbj7Qy
FvoIG1aX1H5IE6YHscEm/PebDmF6MBuMh1/eSBC2VygbpB67pj4U9p8woj/w
mRdyKOhwNvgqP4n///tPBBum+h63nC7sf5FsSC6w/fNVeH4UGzquvnwbKOyv
McR4eeCm8kHoWGJ8Bc7rol9DxxHHR5kpsIWOZ0PZ0SUHg9PRCWxQZdv9fiUc
T4ls6D7T2P4kDX2RDTqjq84xhOMxhQ3ky09Gai+gU9nQWP2deSQJncaGruuz
DHfGodPZUOm6dXGCcH7IYAOts8l9gzA9kw2nfczfM4TzSxYb7K98brU+jc5m
w6d+RXKL0CQ2bFu0L/VsOJrCho2UfSabhfMbjQ0378SHmp9AM9igm6s1tTMI
zWLDridrHXYdQXPYoG/0aM2pQDSPDRfUxTz3+aNziPtpp5bN80PnsuHsv5+/
lviib7Oh2blYqlQ4f+cT/Y0z45i9G/oeMZ86tb75vRtdwIZ9pzyXnd2BLmTD
0NANlzU70cXE+Jxp02dliy4h+s8i91dyduhSNjCnkv0ebUGXsaFkYd22kA3o
cjaYM496925CV7DB9Knsv4Nm6Co2PMob4DoZoavZ8GeR/LPl+sL4z4bJ/BWV
2wyE8Z+YD3uulMetEMZ/NjQELrEZF8bvV2zYM/VSmZuGMP4T/dcr5k+mmjD+
s+Hu3zXGqguE8Z8Ntoqm6yTnC+M/Gx43vk1ZN1sY/9mwyamI3iMrjP9s+DnH
a2m7lDD+s8F1m92RpZOF8Z8NM6qi45jiwvjPhqVt3ZJHRvDvm26iftmLIhcK
/z7qIfJXc158YhDdS8SLR+c2ln5Ff2PDbNLsTPsudD8b1m60yS9sRw8S/atO
/65/M3qIDdEGlQUuQg+zwc/r+K5rL9G/2ODRUXr2aAV6hA01T2Yb0ivRo2yQ
VpzsmF2KHmfDFr16l30P0BNsyL7yfJFtPlqMAwXU7ydO5KDFOdBZ3ze5nYGW
4MC8A/KB94R/70pywKvTco5xBlqKA1vd68yL0tHSHFC9QMn6lISW4cCM73eO
Bwo9kwPvr9U43YlGy3Jg44+J6XeFf7/LccB55c5LPcfQ8hzIWPpYd/9htAIH
FqvXXE/wRyty4Ey5jjTVE63EgdKm0UvKu9HKHFAeWJJ8Rvi8sZC4/oPmTlPh
84gqB6LKZE/kWqLVOXBlbcIhdzO0Bgeo7+eJFa5Fa3LAx/WixEx9tBYHDDOd
31toobU5YLT0XcjFRWgdIv97WxPaldG6HCh5Irb65Ry0HgfKaz7W6s1A63Mg
adYYmEigDThw6kkbgzaOz3eGHNB/fzB6x0+0EeHUXoWP39AmhCnPJb53oU05
8O9erK1UG9qMA991NLn7Xwuf/znAHIiZeFkjfP7nwMqnX3fOfSx8/ueAZ8RB
k/JC4fM/ByiPTZftyxc+/3PgidXqwjTh87ENB25Vaj0PJwuf/zmga6d3TSFL
+PzPgbR1soqxl4TP/xw4HvuZuu2c8PmfA3P0wntORAmf/zmgww3UfSJ83nfh
gLq51ErHI8Lnfw7kODLqScL3A24cmBwuu/mHm/D5nwN/O64nPHMWPv9zIEty
yrYAe+HzPwfePSraSV0vfP7nwJfkncsPrBE+/3PAKsmye5mu8PmfA+x/czwf
qgmf/zlg5jtoFCB8PxLAgZDsx2ts5gqf/4nxUHlw+Nc04fM/B6bVTL5D+4fv
Y45w4GZmzdtY4fuZIA5I/7KLXdaPDuZAhf0mi5w2dCgH4r3Yxieb0GEcOOvb
eeznC3Q4B9rOZ9LrnqIjOLBgQcbTPuH7pUgO6IVVDuy9hY4i+nP49KBOGjqG
A4e1fRIibqBjOeAr2xUnfxEdx4E9H6013ITvv+I5YJDHeRcZiU4g6ndVvwcr
CJ3IgeeR5+XeeaMvcoDzwvD7mT3oFA4o7SlKYjiiUzlAC1DMK7REp3Hgz3q7
lfnG6HQOqF08cWClATqDaJ+K7gCKOjqTA4p39U63zkdnccCiV7Z89nR0Ngdm
rRyfGSyOJnEg87Tki9XC95EUon0qjyiNCt9X0jgQNtN21PgTmsGBH1/VZFya
0CxiPC1JfKLyDM0h6id7x0Xph2geB+zc5x+LFr5PzeHA2+ZhxRwaOpcD1s4t
yblZ6Nsc+Lkgfm93AjqfKH/rp32KZ9H3OKB9c0H73lB0AQceHUjee1T4PriQ
A6ll08OP/4cuJsbznkMyEtvQJcR4sisz+2mNLuXA3OlHY+yE76PLOOAQ+3R4
SA9dzoHTKspxW1TRFRywyf+hpjgHXcWBvj/DjSxJdDUxH+bmtxSOCt//c6BX
PnW1t/B9eh0HPDYvdUr6KHz/zwGFG0yrskbh+3+i/eZ7OdyvFL7/5wD9qgf3
RaHw/T8H9n1SkffhCd//cyBG6+eZWzeE7/+J+eO+pWl3ivD9PwfyKe/flp8R
vv/nQIBeZBE5VPj+nwOW8c9S1f2F7/+J9tl9c3P/buH7fyL+TE4+9sle+P6f
A79ox/jzLNA9HNjGLG1J1Ef3cqBnexnlhgb6G9F/3JqndM1F9xPtW2cz+kIK
PUjEz0GJsJ5x/P4yxIFVvKv1P4TfZ4aJ+1mTvPfFR/QvYvz38ww6XqJHOBDx
PWSry1P0KBE/Z3W82HgXPc6B0J2bKtJY6AkOrBdbubItAy3GhdEcP6P98Whx
Luw9dCFvvfD7lAQXrjrPXC0RiJbkwr9yJ83//kNLcWFNvZKYhR1amgvJ54y4
FYCW4cKOEdZA9yr0TC54X1068kAVLcuFXYNTpw7Ko+W4MJLut/zBZLQ8F1wn
npYf7sfvdQpc+Lx/a1zUE7QiF95u2H6t/xZaiQvbf/5d/CgWrcyFtQGy/6hB
6IVceHeUz/pmi1blwpK8PlMLY7Q6F6YsvqRQpIjW4EKB3PPEa9/xe6UmF4rd
dyaG1aG1uNDi42i6Ow+tzYU90e3VqcloHS6IfQ2v+3YIrcuFOw4vNhwVfk/V
I/I30TZ7qInW50K2bMBCxzloAy78Lewg3fmE32sNuXBKOaCqox5txIWagtUJ
DA7ahGgfi58/+1LRplyIO9rapHgQbUZcX/tKBc0SDVw4x0nbr7oMvZELWmYm
7JopaAsucOfV7U3qwu/VVlwIyGptfFKE3syFOt4p1VIa2oYLFZaLBp5FoW25
cNHtqvo9T7Q9F6grPkdpm6AduDB39adfs1TQTlxIlTv7Yv4Ifn935kKh5Irc
3tfC7/9cqNydIlGcK/z+z4XJ6pduTU8Qfv/nQkLRfv/f+4Xf/4n2vQPhZlbC
7/9csBHPF/dXFH7/58L6MoneRgnh938ujO2dfHLNR1x/4EPU51eTpW6laF8u
7Jx/d6QoA+1P9MflRx/aH0UHcMHunN7jEmv0QS6odajJztRCB3JhXtDuai1p
9BEuHHogLze9HddXBBHtuZiizS5ABxP9RzH34OVr6FAuUHJmX/M5gg7jgiN3
8PWybehwLti7L5PwX4SO4MLDP7eqyX9xfUgkF15W6TXEvEFHcUHj0Fr94AJ0
DBcuKJNCZlxCx3LBSl3lsJ4vOo4LKsMqDeKW6HgugLLM1hFtdAIxnt/nyB/+
jetdErlAO2i73eMl+iIXNH9vX6bORqcQ/U9tfsuiGHQqF4p2NHT27kSnEfNB
z931q83Q6VwIVJE9vUMOnUGUL2SWa8s3XM+TyQVLv/4C8WJ0FhfUk8zb86+j
s7mgcPLXg+9haBIXTHYHWl43R1OI/pDqczFMDU0j+p93hlPAT1yPxOBC57Cr
8bxXaBbRX7euVH3ARXOI/t0utc0iFs0j2j8zZFKKMzqHC+WTK5mLddG5XJCb
Q9kgNhN9m7ifSK2tcR9wfVU+F3wlI+O+FKDvceF4YNnci+fRBVzQKV39aE8A
upALrY1KX5+sRRdz4Wks1ztPHl1CzJcKt+bf/Yzrw0q5YGFBp0+UoMu4MHWB
UbjvdXQ5Fwx6Ex5fDURXEOd/MjWWNUZXEfPF/MDXrbPR1UT8+J397HIPrm+r
4YJPrYqeQjm6jgvM7Q2cliR0PdEerHtfVvuhX3Hh2ru11TMM0I1c6GUkNloo
oJu44FwfJcX9hOvxmon4NMW8LLES3cKF8XWVpseThev/uHB3WMvuspdw/R/R
n1zzju+yFK7/40JXbe6zQ9LC9X9c4FTKOZ3qw/WEnVxwcTjZz7+L7uaCjIzV
213n0D1E/+CeY/S5oXu5sHzquownmuhvXPgTLQbOUuh+LryKVT7PYuH6x0Eu
fDk+PvPuLvQQF2Lfmvs5/sX1lMNcKMv54n8gF/2LC57Ll9YP7ECPcOGTzL+9
jAFcrznKhaTz5l0HzqHHudD0U7ncWh89wQV605WllK+4/lOMB3unREurnUCL
8+Dy3h9mtbpoCR5MOWydoPYI15dK8mBWy5WcbRFoKR6suV/f6yGJlubB+h9+
cwLu4vpVGR4oXte+LLcGPZMHjyc2HKd/xfWvsjxoIVOlNK+h5Xiw64wWeakF
Wp4HLnOcNaNacX2tAg90p9SuKkpEK/KANW3J88PT0Eo82MRWIy/OwfW7yjww
jhkeeWCDXsiDlUuCi6N+NmH858FZ64XKv2lodR4U7tde0rsKrcGD53q66kXV
uJ5Ykwf/TUv8FhCI1uJBz43t8s8l0do8cPSc9OctH9cr6/DgM2nDbqY5WpcH
ewYyltz4iuud9XhwY5uXX3YUWp8H/hHXZ/PWoA14sK3XX1PhPq6nNuTBH0Zq
1zcvtBEPhoqjSVGT0CZEfYcOjkyi4/psUx5cc2AeubIWbcaDrkxadcEHXO8N
PDjlc1Lu6RH0Rh5IhQwO+cxDW/DgTtlu2vdAXD9uxYOjS+ctMAjF9eWbeRAi
1duWcRvXo9vw4N/n6i1ZX3G9ui1xP9OnX2Kqou158Oz5U79Twbi+3YGo/78h
ycfScf27Ew8ibx0erS7E9fHOPEhJMR81GMD19C48aHyfQHFYjnblgQR7zfSV
9rj+3o2o75Tw8PMXcX2+Ow/mSAyfJD/E9fsePHCfqLFI+4Hr+z158OnL+Mpi
HbQ3D5ySlijaOeF+AB8eVFd5hilcw/0Cvjx4p7Jwpnkc7i/wJ/rv5mrZun7c
fxDAgxnWDM6KykcY/3nQWnC+ZdpK3K8QyINccx/fjnPFGP95cCQ186OKLO53
CCL6H//QJSfA/RDBPNDiv/sTuBX3S4TyYJrsR8m4ftxPEcaDtO8X/ZRdcb9F
ONH/502bMXgC92NE8MC0Z/OUjCHcrxHJgwMFdi1b5XE/RxQxXsXtnvsPcjD+
8yBpbOLKMmcmxn8ehF6hpZ7+S8X4zwPav5fGi9JJGP95cGl1u6ab0nWM/zz4
ZaV2u7UpDeM/cf/5Y67Rthcw/vNA9XAYZ87RYIz/xP3f3r4hXGLXo/9zKg+Y
7mL9J85FC5zGg+vr5xxLl7oocDoxvgzGw24VpAucwYOxP1UV6xbi/ppMHniL
HVLIeIX7b7J4cDromtnSO3SBs3lQcvfa0cO/WQKTeJB/WlqxsIUnMIWoryXX
tdlJuN+HRsxvUU1Vb+rzBGbwINNr27vSiTsCs3iwc6ZZ2PAQ7ifi8MD1qv2y
XsX7AvN4ANm1y3/fxP1IOTx4oL7tVs8m3K+UywMxtdAEj124n+k2D97Siz40
O+B+p3xifO3qz7/07ZHA94j+FFO57qAq7pcq4EHDv8vmTyLRhcT97p/S/iQa
91sVE/OfpXXGuhu4H6uEKP9vudAPJ8sFLuUBZ3HgKN0V92+VEePLw0r9y27c
71XOA/FK7eNTZXE/WAUP2lvb80Im4X6xKh7wcj/aFGvjfrJqHmRkzYCl39E1
PNAoDLQT68D9Z3U8OGguMz/6G+5PqyfG55mAiU3luH/tFQ+ir2RXnCnF/W2N
xHzQqaLedxr3vzXxQJ8Ur8gOxv1xzcR4C9xTq6qH++daiPbTn9X3oBzdSrSv
+2OPQEPcf9fGgwvZn7b2UdDtPOCeerV1wuSVwB086Nh+U/04Hd1JzP/LW+x+
Txbu/yPyP/Wso+SYcP8fD5pnfBBb9RPdywP6Kcr9GzG4n/AbMf8GJ6wqnIP7
D/uJ+YSiPs4/iR4k5vfo9SFfJuF+xSEeBG9Taax2RA/zYMmZNIOEb+hfPIiN
Nxh8eQ73P47wYLlHlvnjr+hRon5YLy8Ee+H+yXEeHG5YteLVAHqCB8k2Sz59
+A/3X4rxwdrMLk/mNVqcD56ScROhK3D/pgQfdngGrzR/gpbkA33/GN/cAvd/
SvHhYAPn0MbPaGk+pO4KTfA0xv2jMnz4TN3/n2kOeiYffNf2JkVuwf2nsnyw
X+8k5pyHluPD06lWf8W34f5VeT6UH1i24HoTWoEPMbJQU22B+10V+XAib8B4
RgVaiQ8PX3e6By/C/bLKfHDxfrEqaj96IR+Kf50m/85Cq/LhlEPG2voetDof
mKY7lXiGuF9Xgw9dRjuKKgPRmnwwpd43YtLQWnyQX/UrR60Lrc2HUMMbgaeU
cb+wDh9GdSf9zHRD6/JhztcOeRILrceHfa6zrsSOofX5YFexx5G9AvcnG/BB
brigweEQ2pAPrwfMnq0hoY344OQm/ZveiTbhA2PrvbLLG3B/tCkfunXMNW8H
o834MPP26fmNd9HABw/DC4b0f+iNfFBJcoo4sBb3Z1vw4eWLRc0xF9FWfHhV
I9nkW4LezActteWn3Cbj/m8bPriJhy1esQFty4eCjopni6LR9sT96FWX/a1F
OxDpz47fmr8Y95s78eFZ6X9Fq+zRzsT1a0P2bU5Du/BByiRvQ1Yf2pUP4gVF
y1pm4353Nz6UhSlNG/BCu/Oh9lDGrbwctAcfBp6y+Jtb0J580HmmULjbEvfX
e/Ph9FK/5OzDaB8+1C0eIAU9QvvyQcnHStVlDO1P9B/fE0Yu5sL9/3z4UP04
1j5JuP+fSP/QsTSgWrj/nw9pL1eMMofRR/gwOLbUUdIPf08giA9F8yY9r6Gj
g/kQ1qPZ/2oEHcqHkv2QnaCHv1cQRuR/4Khy5zF0OB8mfB+H++SjI4jxZvmf
ca8s/j5CJNHfHs+QmbQZHcUHh007G29fQcfwgb34jpZyCzqW6F928lI0Nfw9
hjg+8A4oLMrwQscT41PpuMOeBHQCMZ55s+9KDaIT+XDm6n8/Q8zw9yAu8qHB
yaFU2gudQrT38dNNTXXoVD48njHhcmoa/t5EGh+u1f47PbYCnc4HUmlDUq4N
OoMoj8lj3ocgdCYfKlcY7GtLR2fxwXm0SIpchM7mQ+7UFVudOtAkYj7YUzXp
ziiawod22ZPDh1bh72vQiPY4HJzWZYtmEONngXz5f8Lf52DxwVHzc418BppD
9K+ZMwLHStE8ory08xNSregcIn/ju8afx9C5fPjVOfesnOoQxn8+VOyWY961
R+cT9Ul59HN9EPoeH9JzdudLXkUX8EHT+smjayXoQj6Y/H9d3Wk0Vt/bB3Dp
VyEaVDQgCUmlNBHKRXOaSJpDaRRCaaRZg1QkKpoHDZyzT0kThQpJaUBSSZKh
REWDkp69Vt97Pet/Xn7WHu599tnDud9c14Kh3ba9hpPiyahDp7O3/kO8k1u8
f+0omxIjOCWeTj0tSfsyGk7j60Fl+ovCAPguP08fuJ+YfQJOjye1/VamyTfg
zHiatSLUM6sSzoqn2+0XdknXQPyW7Hj6c94yfrE5/IiPzy7P+/N0+HE8Rfeu
tx63EX7K1+/xuYHzj8C5fLwVCwPeP4bz42nT4dfdZpTDBfGUeLxxypuuiE9T
yOfLWa1nwAj4VTw9Fj5lLHSFi+Jpq+j44VswXBxPQWEHv/pehEviabhhdcyk
Z3Apr/9n3pRvjXAZf57Wt7x8DRFvpyKeVPOyvviPgD/E097IP63beMJV/Pzu
k+G4MBSujqei57rrMpMU8X/4+3dr4VD3VhH/J57+1j1c+FwD8YLq+HiUmr+9
Mgj+Hk/PAwTD/AXwz3jqmnGizZ1N8C8+vykhJcYi3MDPL81j9otuwo3xdNre
vIOeGuIdKQlkeady/nddWFmgL84nXZZbwP8JdHitR/f2q+DmAn074/TZPhJW
EWhcylVPu8uwmkCfctMPXiyH1QVaFfI2c01TxG9qJdCHisE5TgPhNgKVN+yo
rnCANQVqmm1dPCUUbi+Q59LYinYirCVQeGzNzNKncEeBfK+kLm6jhHhTnQUq
W1z2O00f1uH1T43R8LWD9QSq7Z5aa7cW1hdIv/Hgn+oo2ECgS9eevPmUBRsK
5E7+Xr+/wcYCtTyqLYqdED/LRCDtlfNb5djApgIFxmh+MJkG9xaou3JF5osd
sJlAL7V9Xi8S4H4Cba50bJhQBPcXaMur3CwrXcT/GijQ7DKn0vc94cEC/dGa
Ed11JmwpkIGOcZHnWtiKv8/clA+vzsM2Ar12bqFS/ggeJlBR4SHJrQ4mgRLu
Hz5q2Q7xzOwFcrEse1SgiHc2gpdnW09J9oFHCVTq2c3aNRYew+dz67nAKc/g
cQKlBNuWK1XB4/n7u3u6pHdXxGObKNBgrYNtNg6BJwu0v3DK3LjZsJNA22uf
VNfshJ0FGm3xii7ehV0E2lftYJBQCU8XaNmX86rb2iN+3EyBLi/e92aBEzyb
z8cLP0FzFTxXINtD959YnoTdBOq9MPzm2nR4nkCPP4X4vPoEewg0N1K39Ggb
xLtbKFDiicSbggm8WKD1h9cpH+sHLxXoiMHWZ+Pt4WUCPf/q9cDIA/YWKLvS
2L3pCni5QJtOhg4dsQv2E6jFI8Fo6QFF/D8+/53XCpNuK+L/8edzdrbq9VAR
/0+g5NDAloeLFfH/BOq5oqSm5Lsi/p9A75uUWC9XQ3zBIIHGn+vx53I3eCPf
P45JqpP7wpsFOtP74aVMRfzCrQKNXdxmyDxPOJi//1+OPnab4B18v7ibXQ3e
A+8SqP1RsdE1Bt4tUISXy5+B1+E9/PmclKxIEW9xHx+vlUfwixI4XKCM80dq
1RrhCIFC+9gP7dgO8RwjBbJXGTRnpyLe40GBriZ0CGpqAx8WqLJW/+mzqXAM
X1+TFq367Qkf5c8f0MkmLQg+LpDddev65ZHwSYEqtq28pXMaPs33V9vjR/rf
hs8KFNkQIhbnwucEStUJmdz0C3yB93ep8r62CuJjxgnk0WpExYsOsCBQ/oZ+
gQfMYCbQqZhrpbUT4Et8f+RE/Jk4C04QqHhTmdbxxXAin08qiNy7Hb4m0Mi1
w+uzz8E3BHp4L6vfhWtwkkAdi3Kae+bAtwRy1hTMRpXDKfw8Pjl5TYgivmia
QG0T2xXs7Yb4o3cFCukY1krJFE4XaJfGiUOeivilmQLNn/dky6CpcJZAQ79r
/cp0h7MFcnV1i/UNgR8J5Deizrc0Fn7M75NHEwwLb8BPBRpCpW1S7sG5Ault
+5jUowTO5/vRsejA4t9wAd//O03rdndEPNdCgWqeu6k36wG/4vtnUknBDHu4
SKA0f7WdVY5wsUBr3+i6//WESwSqC8kM1dsMlwqk6bq51Y+jcJlA9QNSCzPj
4AqBxLYm+jOfwh8Emp6pMlDpI1wl0NRsWyPtcrhaoB2uyfMDtZr/82eBzvmW
DLnZCf4q0B2906vaWMJ1fP02vh61eir8nc/vO5Mnh5fDP/n6tHx1oXAN/Ivv
B1//0pX74QZ+HodUDFt5EW4UaEChwamSPFhJpLkHLre6lg8ri9SY8ya1+1/4
P5FW5bH2AVqIN9xcpC8V04P29oRVRIqek+plYA+riaQXtePHRWdYXSTdWYkq
2xfBrUTaMTMuJG433EakUs2vk3ROwpoiDXj8a9/Di3B7kT63Lb106AGsJVJJ
vYW30Ru4o0gqGj9mqH2GO4skLOl4dZwa4jXriHR6pauhen9YT6Qp3YyaPbGD
9UWKXTlq+r7xsIFIm19fW5q8ATYU6Yi/sofDHthYpI1ud29anIZN+POaTVNb
kAqbinS32/ib957BvUX6m5vRtKASNhPpj39MpWFTxLfuJ9L+9AtDNYzh/iIt
i4m44j0GHijSs/XxvVqNgweLdLVtJnvjBluKlLRtdNylENhKpKlH7vyoj4Jt
RFoebdxaugAPE2l7syTR4ClM/H228R9wuRS2F+l2t4tRrRvhESIFHBDbRrZE
vPBRIrG6cWH3h8JjRHKx2D7n1CB4nEg55a8f5LrB40Va+6jV1O7r4YkirUxd
Yly5G54sUljmrUtTBdhJpKwZs4OSr8HOIvVpWTSlZwnsIlLa1msJYTXwdJG+
t8iZe1cd8dVniuRxcmiBbx94tkjqb7Y6/7GA54rkHzJtWM4M2I27RXlD4hp4
nkj/hRW82rwV9hDpp4lzfJOz8EK+Hu712zwxHV4sUrukEtP8EnipSHNqe/W5
VwovE+lyysdeweqIR+8tUtyy0QdjdeHlIq3P3/S30Ab2E2mPkoV+ox28gs/f
13hfF084gLdf3jlZNxReLZJjZUjdBEX8/LUiRWn2qMpIgteLlOlZ/tXlHhwk
0tazu1dWFcIbRfrRNGVFTEtF/H+Rwos80nRbK+L/i2Snu/Buibki/r9IEa6x
thZjFPH/+fp82r/wka8i/r9ILQ6ax708Be8WyevXkVvOl+E9IvW6ENlFvAHv
48+frnngfBYcLpLV81i3td/hCJFsdu0NdlBGvoNIkd6T1/q/uvBBkZz8kgIq
BsKHRdq7TWfPhKFwjEjXB1qXJ82Gj4pkeCw20jcCPi5ShfcSzQGn4JMine8U
v0b3KnxapKpFa7L1s+GzIm0LH72+uhQ+J1JwUcPK/Yp8EBdESt6/weiMHvJF
xIm0bn/AyRJrWBDp7Y5m0TGzYSbSYjGj2mstfEkkg7f5Tc5uhxP4+q1d6jIv
Dk4UqWWtilpjBnyN9xc/av3M1/ANvv5nmFg718FJIuV3fW/fVhP5M26JZLL6
6Vv1DnCKSNoeZapVZnCaSGvytarLTeG7IvX4al32zg5OF2m38fN0xylwJt+v
WxYuvDgZzuLzVXDBPHYOnC1SkyHnc4RV8CM+3oPre83eCD/mz5/qsvdWOPxU
pOfZ/TuEx8C5/Py0iVHSuQ7ni9TXu7XrLgEu4Odb1eq7/W/BhXz9jJJSjufD
r0SKV//YPeElXMTLE3NXtK+Di0W6v1xzuJcy8q2UiGQ9bXungJZwqUjNqwJW
aLeFy0TSuFe9e7EeXCGS6YCsln37wx/4+3v0oO8BW7iKj1dLz1xlDFzN53vE
cvcDjvBnfv9NVtF4twD+KtLBvKpfH/3hOn4/f3tf8Xg9/F0kW4fElJSD8E+R
XJV2uoyKgX+JtGjZkCkBZ+AGkfr1fHUjUZEPp5GP/+8a/aLLsBKj7J1ayWn3
4SaMrOe3+b6+HFZmNOzjlx77v8NNGZV7+2VO6KjID8To7vzSTtFqcDNGn1f/
OZrRSZEviNH7MvW0rWZwC0Zi7rXIneaK/EGMnM2V1mUMhVUZBWxpEHwmKvIJ
MVqaoDpr5xK4JaPdcfNcShT5iNQZufTMiI5dBmswsp+UnfDDX5FviFG+T/Nj
7aPg1oxmXB+fuu+iIv8Qo58hNZrKN+G2jGJ+jn1cG6/IR8Trzw5+4J8Ht2P0
YF3u6L4v4PaM5tWP1rZR5GPqwCjFPvxHTAWsxeiXw4/e6U2Qz0mbUXPTZltr
W8MdGekoU6VjD7gToxMXFr+vGwp3ZpSW1Pt3mQPchZGuhadL0CRYh9GLIVWT
PrjAuowOn/QPHrcc1mO08eWQmRM3wl0Z+fY88LnDXlifkVn5fxu9wuBujGJr
fjb0j4INGB1/euZ56B24O7fnfh/vRNiQkYNlvv7pJ7AR77/i50SN17AxX1/L
V8zWqYF7MJqbFVD64QtswmhPpmWf4XVwT0YvvzjUG2sh/5cpozvpUQfmmsK9
GGk0CJZhA+HejIJeBdkdnQD3YXTNvk+m6jjYjFFp//Il72fCfRmNrHY2KJgN
92OU+7pv4a4g2JzRbJVSq9u74f6MqDhgoP4OeACjBmNrvUciPJCR7fwlxUY3
4EGMRtxqWPwyGR7M34fnggFdcmELPt+7L3RI/wFb8vFq1Kca1MNDGHU3q+o2
oQ62YhQ4b4+3hwryv1kzOvkz6kKJDmzDy0cUmR4yhIcyOsAmes3oCQ/j+2Ve
xmsHd9iWkaZLyhyXyTAxOt1ujmb1MtiO0dC8AeUjvGB7Rublx2qb+MLDGSX1
9PRoeQAewfezyY2ui8LhkYxU71yO/XEUHsUofv+t6aqKfHujGSlN/usYfxMe
w2jN9OFjrzyHxzKyu1UcvrcWHsdojLt/gf4H2IHRWPHwlVd/4PF8fwx9q5yj
gXyAExgZv/5T62ICT2QUXuw2sWwwPInR0zEvPocNgycz+m9+/3PldrAjo+vd
tyd2nwc7Mfo0svKZgwc8hVG/RUtL+qyAnRktOfT6tlYYPJXRINVPEWPjYBf+
frwbQyeI8DRGbslu8/Zfh6fz8QUvWrUoD57B30+73q9r78AzGY2+bKui+xie
xc+Hfq0OD/kFz2Z0o+W00Jz2yP84h5Gl6uPjER3guXw+3LyCunaFXfl5+mxV
y0/GivyXjIyiZpr62cPu/Hk1enRcO0qRD5NR241GFTQOns9oVPZDyddLkR+T
0UyX1hMHRsMLGA1fu7HEOECRL5PRqsh7O21PwosYVf+qVX57TZE/U+YljBYf
DDecnqrIp8nPkxVN73yrgD35ermoPHpJc+TzXMbP+wOtPhR+QLkX30+T28yz
aoJyb74fcoIF7U6wD6POl7YPvqcNL2fUosfa1v3MYV9+v41Y7WjhAfvx/RZh
syXOGfZn1OR4go7LdngFo+l5t3T3boZXMnriXFjw8RAcwOffd5VVrwB4FaOI
2nzPa6fg1fx+qJ++fsIReA0/D42Uzzx6Aq9lNK31/iq3PHgdv3+WRNb8LoHX
8/Px1xnHdcqd/jmQkc/k/JK6GpQH8fN6knZuVXuUb2D/mz92I6Op9V/ehnaF
N7H/zSe7ma/f+8Oez3WCtzB6bWZyYtAueCuj2yPDnjf4wNsYraw655y8Hw7m
62mHmtGVTfB2Rom33tpkHIN3MLr3qon+xkPwTkaD0zvU/boA72L0MLjxXF42
HMLo6PGgw1QM7+bn5c8TF5xq4FB+fnxueJqviny9exiFZAUtcFOD9/L30St8
uJsJvI/Pb3ajZ+MYOIyf/+qZh3r0g8P5/Nkbdv7UB97P1/dL2019nOAIRlWf
9u7z9IEPMApWsXCcshiO5Otl4RqNJtvgKEaOrbJGmQTCBxkJia5zvAT4ED9f
3qWWxebBhxldlVYYb30HRzNSvqOmFfYFjmH0bPzgcUG9kb/5CL/fvGf4/PyO
8qP8+8vSIfhGV5Qf4/u95d5rv5rBxxkVd3wQZN8KPsGodonHpIyR8ElGUaNu
/BzrBJ/iz2Pn03q8F3ya37964uKBc+EzjJrNP+TwZxF8ln9/lLhH2O2AYxkd
qjAao70PPsff7+fI+ovtkA/7PKNO/WcZmMSi/AK/b8zfb151E77IaEifhcpW
qXAco1sOwyobVdA+ntFZk/ZW3hqwwOibk3rXK99QX2TUeHPZvj26KGeMdo7L
/Rs2EZb4eZFR2XHjIvgSo25xbTbcsIEv8/sof+SSYFs4gX8fXyk2/zgLvsLn
0/BM1NKlcCJfz4sHUIkIX+X7zYH6G6+Cr/HzpbrXMHYBvs6o5O34m0V34BuM
Pv7NUHf7DN9k5OHne8qkGk7i++vsYINyPeRLT+b3cZ83UW3aKvK98/MxfY2u
hRp8m39v+pUNjzCFU/j6fvXmyqp+cCr733zuaYx6rVOubnoSvsOo9c73zd7P
UuSH5+vN5+3w7nbwPUYL/rpq7/ZW5Itn9Pf2EWFiLJzBqEtliWNhB+Sfz+Tf
C5+PjH2Sj/L7vP/bT9KUEhX55BnVN08N/9Ya9R8wUkm3GOVZp8gvz2jRmwUx
Zi1Q/pDR877Nzr2ZCj/i+7tdeUGqHpzDqMxywtgJzvBjRoX7lYucteEnfL2G
ZSTb94afMpo/9ndlB4Kf8fXW065OdSKcy/dfL8vm9YFwHv8+X9Ygel2B8/n9
+cZ44Ito+Dmfr4Kry3duhQv4/w2laOu+wfALft/9UGtY1K7rPxfy75O4Uj/9
bJS/ZDTwa1boMz2Uv2LkWltTtFkZfs2oZW7cu/7acBHfbwsii7e0hd8w8s+w
bWtnBhczOhbstvTdWvgtozy/nJ0ZIXAJ73+Dt+/HGfA7RjfbjkxpfgEuZZQ8
JeXHuBPwe/5/afuCqBFX4TJGGzRmBP7NgcsZZfW2muqTBlcw+r6mRH/1KbiS
z3+ShlWIuv4/f+DrN7p6zxdd+CO//5RuaXZRg6sYnXm14+EEQ/gTn+/AAclM
E67m923qpOi6vnCNrL/PjBISXJcNHAJ/4ffZudIP+4bBXxn9UBs2OG4WXMu/
n1qv+6O6HK5jZPWu74ol0+BvfD06r9C67wh/59/fnz4f3eMN/+D33ZVhIcoB
8E8+v7tCE+si4Hp+Xqnpu2YHw78Y1bS/5JGwBf7NzzdTizrzBLhB5j+8/ybD
D6WHwY18f/s5jHSLhv8yKqhdXvw5FVaSyGxcz/Er4+EmEqWW3XQxEGFliSYe
WXTMqBRuKlF4RYd+w2vh/yTyzLfSP/sRbiZRdhdH6dwzuLlEAX6H3F8rdfvn
FhLl2fsXprxCuYpElR5jnvoUw6oSHU23a/zcAKtJFBg4vbhME+1bSnS42I2O
D4TVJVrxdYPg3x/WkLmVRD+DX5rnDIZbS3QurTC1diHcRqI+6m91TtnCbSVS
dXx0r9cEWFOiz6P2erYKhNtJZOpYOGheN7i9rP8OEo3f+HST5ixYS6Kufqfn
nMmEtSUy2F6bF+oBd5TIqVN3P5MIuJNEQ3uYXfU5BHeWKNmttHf0ebiLRH9P
rMswOQ3ryKwrUZTti/oZcbCeRAcC/v4ukeCuEhUsTdynI8L6Eu1JUvpRvQfu
JpH0btt/NTWwgUTxHyJf+dbD3SXaL7TeyyphQ9nzGUnUQ0tlsN132FiikY+M
DbW0Df65h0Tdeii3CuwMm0j0/se0/IBi1O8pEWUNemDQFOWmEtnuOqb1eCjc
S6LLw7/tih0P9+br7za93T0Y7iPR+RbLV3c8Cpvx+TB94H75ENyXj+fdn7vN
wuB+EqUdfVuW6g+b8+dvGx/VVAPuL9FMG9tOtevgAbL2AyU6bT2iyHsyPEjW
32CJXL4k/PhTCltIlNl/S9/AHbClRCmm75r5ZcBDZO2tZO2tJRr8LrPnsNbd
/9lGogc1D/MmWsBDJTo1Z72aUizqD5PoTPS4VMqGbSVSPzsvWUiDSeLfH96T
7qqivZ1EX38Py25oRLm9RHs/BEV/fQMPl2ibUL9jvjnqj5Bo8pWYjHIfeKSs
fJREV74tTU+fB4+WaGDnml4Z7eExEtW/MRv7vAgey+e7h/mm8UvgcXx+sr4M
dQ+EHWQeL2s/QaLi1XeP0VZ4okRJG2p2SpPgSbLyyRK1TV1to3kOdpRozEXX
cw1Khv/sJKs/RSJ3+ydaZ/NhZ4kSrq9OPZMOT5WVu0ikNr9fW99D8DSJwo6Z
NRS7o//pEm3OmDbn13h4hkSjDsYb1WnCM2W/P0tWPlv2+3Mk2qCTkGNYjvK5
EukYRh1/bwm78v1vkejqNA12k8gufO6Gc8tgd4mG21p9MewLz5Oou63FYNuz
8HzZ83nI+l8gG99CWf+LJLo41ulTuBG8mN8/e7wf5NvDS2Tzs1Qi+ybLrEpV
YU9+HzwJCjjY1Oifl0m0dH9yswGHUe4ls7dsPnwk8h51Tb33N3g5P3+sj0wt
WIn+fCWaEhPRZa057CfRs+SiWRdXob6/rP0KiQ5u0Vtz0w71V8raB0j0ZVfu
Bx9NeJVsfldLZOWm8ehaN5SvkXmtrP06Wfl6iTIK/o7f5gQHSnQzI/jx/Wg4
SFa+QaLyiZMKiufDG2XlmyT6aB5gY3Ub49ssm58tEo37ZKe7age8VVa+Tfb7
wbLf2y7RrrwFy/QMjP95h0T9huv1vncX5Ttl9Xfx+8JzdGiRCIfI+t/Nz8sS
44XdVdFfqEQL19esX3IF3iPR1je7tyUVwHtl9ffx8/JE6k53GzhMoobZ/p8c
v6D/cNl498vqR0jk5/4oZG8h6h+QOVKifWZ3OzuvRP0omQ/KfEg2vsOy34+W
lcdIFK00X3ewc49/PsLPb9utDnMjUH5UIo0PsTZtpsPHZD4um58TEsWFRi2r
u4H+TsrKT/H7S2dkdlm5yT+flpWfkbU/K3sfsbLxnpO1Py+rf4HfB54BSkIj
fFFWHifrL17WnyBRzzVTY5S3oVyUKKdMY/b5HjCTWZL5kqy/y7L3lSCrf0Xm
RH6evfNfZ/8Dviqbn2v8fN2y/spxa8zndX6+7PoTEroLviF7/puy50+StU+W
/d4t2fhvy95fisypfD9un3/ReGbPf06TjfeObHx3Zf3fk7VPl40nQ9Y+U1b/
vmw8WbL6D2TOltV/yOffdMpLtWTTf34km58cWfvHst9/Iit/Kuvvmex5cmX1
82T95fP9Zvbppu8n+LmsvEDW/oVsvIWy9i//v/7/AW3m3sE=
       "]], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQZ3NzooN9dsXWCtcQDMv7fR4bxW8G2uvVoQ/n00
/oONDidkXM88ew5V/3Cjg0F78mq1KE0I/xGa+sdo8k/Q9D/d6DDxcXG103d1
CP8ZmvzzjQ68em93F76F6n+x0SHvnBP3e3kdCP8lmvmv0PS/RjP/DZr+t0B+
19/u3i6o+ndo8u/R+B/Q7PuI5r5PaOZ9RpP/gqb/K5p7v6Gp/44Wnj8QfADb
0aSM
       "]], 
      LineBox[{{4602., -13.369223455335854`}, {4603., -12.676076274775909`}}],
       LineBox[{{4605., -13.369223455335854`}, {4606., -12.96375834722769}}], 
      LineBox[{{4608., -12.96375834722769}, {4609., -13.369223455335854`}, {
       4610., -14.0623706358958}, {4611., -12.676076274775909`}, {
       4612., -13.369223455335854`}, {4613., -14.0623706358958}, {
       4614., -13.369223455335854`}, {4615., -12.96375834722769}, {
       4616., -14.0623706358958}, {4617., -13.369223455335854`}}], 
      LineBox[{{4620., -13.369223455335854`}, {4621., -13.369223455335854`}, {
       4622., -14.0623706358958}, {4623., -13.369223455335854`}, {
       4624., -13.369223455335854`}, {4625., -12.96375834722769}, {
       4626., -13.369223455335854`}, {4627., -14.0623706358958}, {
       4628., -12.96375834722769}, {4629., -14.0623706358958}, {
       4630., -14.0623706358958}, {4631., -13.369223455335854`}, {
       4632., -13.369223455335854`}, {4633., -14.0623706358958}}], 
      LineBox[{{4635., -13.369223455335854`}, {4636., -14.0623706358958}, {
       4637., -13.369223455335854`}, {4638., -12.96375834722769}, {
       4639., -14.0623706358958}, {4640., -13.369223455335854`}, {
       4641., -14.0623706358958}}], 
      LineBox[{{4645., -14.0623706358958}, {4646., -14.0623706358958}, {
       4647., -14.0623706358958}, {4648., -14.0623706358958}, {
       4649., -14.0623706358958}}], 
      LineBox[{{4660., -14.0623706358958}, {4661., -14.0623706358958}, {
       4662., -14.0623706358958}}], 
      LineBox[{{4664., -14.0623706358958}, {4665., -14.0623706358958}}], 
      LineBox[{{4667., -14.0623706358958}, {4668., -14.0623706358958}}], 
      LineBox[{{4678., -13.369223455335854`}, {4679., -14.0623706358958}, {
       4680., -14.0623706358958}}], 
      LineBox[{{4688., -14.0623706358958}, {4689., -14.0623706358958}}], 
      LineBox[{{4695., -13.369223455335854`}, {4696., -14.0623706358958}}], 
      LineBox[{{4725., -14.0623706358958}, {4726., -14.0623706358958}, {
       4727., -14.0623706358958}}], 
      LineBox[{{5295., -14.0623706358958}, {5296., -14.0623706358958}}], 
      LineBox[{{5306., -13.369223455335854`}, {5307., -14.0623706358958}}], 
      LineBox[{{5309., -14.0623706358958}, {5310., -14.0623706358958}}], 
      LineBox[{{5315., -14.0623706358958}, {5316., -14.0623706358958}, {
       5317., -13.369223455335854`}}], 
      LineBox[{{5322., -12.96375834722769}, {5323., -13.369223455335854`}, {
       5324., -13.369223455335854`}, {5325., -14.0623706358958}, {
       5326., -13.369223455335854`}, {5327., -13.369223455335854`}, {
       5328., -14.0623706358958}}], 
      LineBox[{{5332., -14.0623706358958}, {5333., -14.0623706358958}, {
       5334., -14.0623706358958}, {5335., -13.369223455335854`}}], 
      LineBox[{{5337., -14.0623706358958}, {5338., -14.0623706358958}, {
       5339., -12.676076274775909`}, {5340., -13.369223455335854`}}], 
      LineBox[{{5346., -14.0623706358958}, {5347., -13.369223455335854`}, {
       5348., -14.0623706358958}}], 
      LineBox[{{5350., -14.0623706358958}, {5351., -14.0623706358958}, {
       5352., -13.369223455335854`}, {5353., -13.369223455335854`}}], 
      LineBox[{{5356., -14.0623706358958}, {5357., -13.369223455335854`}, {
       5358., -14.0623706358958}, {5359., -14.0623706358958}, {
       5360., -13.369223455335854`}, {5361., -13.369223455335854`}, {
       5362., -14.0623706358958}}], 
      LineBox[{{5364., -14.0623706358958}, {5365., -13.369223455335854`}}], 
      LineBox[{{5369., -14.0623706358958}, {5370., -14.0623706358958}, {
       5371., -14.0623706358958}, {5372., -13.369223455335854`}, {
       5373., -13.369223455335854`}, {5374., -12.676076274775909`}, {
       5375., -12.96375834722769}}], 
      LineBox[{{5377., -12.96375834722769}, {5378., -14.0623706358958}, {
       5379., -12.676076274775909`}, {5380., -14.0623706358958}, {
       5381., -12.96375834722769}, {5382., -14.0623706358958}}], 
      LineBox[{{5384., -14.0623706358958}, {5385., -12.676076274775909`}, {
       5386., -14.0623706358958}, {5387., -12.96375834722769}, {
       5388., -14.0623706358958}, {5389., -14.0623706358958}, {
       5390., -12.676076274775909`}, {5391., -13.369223455335854`}, {
       5392., -13.369223455335854`}, {5393., -12.96375834722769}, {
       5394., -13.369223455335854`}, {5395., -12.96375834722769}}], 
      LineBox[CompressedData["
1:eJxc23lcTc//OPBUdqJIKCoSLVKWSNRLVNp4yxLSYklRRFmiRFlKZCtCRUoi
S5R71puE9pKokIRUIqmQUuQ338953T9+1z8ez8fMOWfOLK+Z6Z7RXOfr6CEr
IyOjNEBG5v/+/98/ZRGU6i59MyBT9+H/PELKKiLY+tRiYIu6vuCRUh4llX+0
lFVFYBi2/qb2ah3BalLpY0Qw2KCZ396M6WOl0tVFkK9mWdzwaZJgDan8mlLp
46SeN16qvFrEEX+PRUZg/glS6dpSz58o5UlS99eRsq7U/fWk0vWl7jdZBOMP
BokSTDG/gVT6FKn7GUq9v5HU/adKeZpU/ukiOP3RP9CiY6LgGVL1ZyyVf6YI
bkXG+PzkMP8sqfKaSD1vtpRNpfLPkUqfK/V8M6l0cymDCGJl1o8xXoblmSd1
fwup/POl0hdIvY+l1P2spOrbWqp8C6XSbaTubyuV306qPPZS+R2k0heJ4NC7
44fFr7QFL5Z63n9S1y+RsqNU+y0l/alh8JobE/H9lkl5uVR9rJCqDyep8qyU
yr9KBElXso+unYPpq0Ww2nuXzJ0etLNUf1sjZRep/K4i2BjUErRJhHYTgc6e
5XGyhzG/u5TXSl2/TgSnDJ6MXrYTvV7qfTZIXe8hlX+j1P08pfJ7SdXHJqny
bhZBRIWHz9hxaG+p9/WRun6LVH1uFcGfNf7NS9omCPaVut82ETyq1d44vj96
u1S6n1R5/aXae4fU++4UwXfzQ3au0ehdUs/fLZU/QOr5e6TKv1fq/QKl6jNI
qj/vE0G9afzyVzvxecFSz9svVZ4DUvUdIgLb5nljdodjeqhUfRwUQVtE+Rdf
JUw/RMbHl5Q5Q1di+mEy/uaP1c95gulHRKDpbR1Zk4YOEwGfd+RZQSw6XCr/
UannR0j5mFR5jku9T6TU+58g9WPFDNJv1xJ8Uur5p6Sef1rqeWek0qOk0qOl
6uOsCPJe/bM/7Ig+J4LzB8fu4eehY0TQZLRrzuwsLM95qfQLIvhdqHHPsBjT
L0q9T6wIXNiDmVtOYHqcCOadcd1/3QcdL1WeS1LXX5a6PkEEvasvTP4air4i
5USp+yWJYLb74KeMJvqqCPar3S/V+oT5k0XQvsijZrIa+poIXmTWON/cjU6R
Ku91EWyOyuw97SL6hlR7pYpgvvnsNq0p6JsiuGnj2HxmAvqWCNJN3BTmdI4X
fFsq/x0RWPTymV3XH51G4rv5TGPza+i7Us+/J4KXOXfOaNJ4v3Sp6zNIPJgx
dMyVFky/LwKv8+xZ3U9oEWm/dwY2L2vQlFQ6LXV/RgQLb7pd/yOD92elzJF4
Kx5zqfwB5udFYHBia1GlBaaLRaCYHTBH6TqmZ4ogNM/Jpcse0x+I4H7n1aaz
TzE9S6p8D6XqL1sEDwvb5q7dh34k9f6PpdKfiOB9wJPLcAidIwKP1bU6F3ah
c6Xy50k5XwTGH/N1zIagC0RQM/mk1f0EdKEI/hPF5X3yRRdJ5S8WwRCNu6lu
o9ElUvmfiuBHuPf+hxPQpSJI+ZnZPuTuOMHPpO5XJlW+5yJQNdKZqFqG+V+I
4G/LY9tV8pheLnW/CnK97sfefnnoSqnrX0pd/0rKr8n87xI0QCYF81eJIEa3
aG3GBfQbEaxou9/xtw5dLYJB19Zl3nmEfiuCgp8FHlaH0DVk/C+ceTtwHvqd
CAIWnHv1owr9XgTDzvnWOJ1FfxBBLvX99/1h6FryPoN0akJvoj9K3b9OBBoK
rxw+LUTXiwAKZxSNk0M3iCCQtVlUuRv9iYz/inLfNZroRpI/fsmFV3rozyK4
p3g7Rm4w+osIqpUeZS+dhG4SQcb89ogUe/RXEYyp/req5Kum4GYS3w/OW+LV
B9O/icDyqbbWCBV0iwj0Tr9/6leG+VtFUHup7krKH3Qbef7Hw/ItLejvIsiq
/eR8+CP6B+nv7iOaNr5E/yTjQ7dbticL3U7i06ddPY+Oon+JYOnKxXEj49Ad
ItgXadJhvBXdSfrrhf5ZD3LQv0XgOGq836RodBdpf/PXv1fdQneLINO9Tj/2
BvqPCPp0rre6fR/9V+r+PSK42Fr57+hp9D8RtFqd9FbYh5ahILCoY8iwZehe
FDjMWjl+iwtalgJ57niV6gK0nJTlKbj43h0SpqN7U7B0ufJuG0N0H+r/L09f
CsJvnQsOGo/uR0HI5sYxcg0agvtT0Pv8sjsRzegBFLzYc6HaphY9kIJEo3rz
gAfoQVLpgym48nvtpp/5aAWp/EMouJQ7r6f1D3ooBSpX4eiu62hFCgb3CwyN
P4FWosDAVsd+5230MArUF3ak1YnQw8n7+I3s4xKFViZmB2a8v4IeQUGF/P30
KUvRKhQ8OmnXOCkZPZKCluHpG+4fRI+i4H562srhW9CjKbg541Pgwd1oVQqs
PUfrxHqj1ShIbx91smodeoxU/rFS91OnwO+7+N17U7QGBbEBr8b666A1KRh6
syeGLVEXPI6CJUmXTXVHY/p4CrrtP5UmG6C1KDA3yR9qMhQ9gYLk6vASBy20
NgXP20JV6/qhJ0rdbxIFa3TKGhTb8Xk6FBTJPFBSHYDpuhR4LvNeG9AHrSdV
Pn0KYpqvnrQ/iJ4sVR4Dkt/1SukxP0yfQsGb8L/j3s1DG0qlG1HwtTFjpLsu
eioFZYqL4g1D0NNI+w2z8+ylip5OwQWPc+8PKqJnkPp3r23/2DZWsDEF9Uft
ZR5oYPpMCu511PVkZGD6LArGMBUr/vTHdBMKVrc+kj36AdNnU7Ajd+NG3Yto
UwoU32lPfx2LniPluRTkZlmu2XQDbUbBWKs0I3oB2pyCH9WmgfOt0ECB6ufa
JVXK6HkUKKleX/xcFm1BwZPQ8m+r3dDzKVjEDVv3UBe9gIIR9m/nu/VCW1LA
TYjf3mcw2oqCaUbbRs44N0awNQWn3ga6z2xAL6TAeY65m1UZ2oaCiL6wf8oj
tC0FpMLo/zLQdmQ8GRfbyReg7Ul/W2u4PD0B7UDBybUd6yZZoxdRYLSu3KRr
BXoxGd8ZidoTTdH/kfYfx983nYReQsHPKb41W1ehHSn4za9cnzgYvZSCvPn3
4271Ri+j4OHxYgXb32qCl5P6EplZHn+KXkFB6PafJUPy0E4kHhZ6uJvVoVdS
EOzzXWbuRfQqCia7lryZ8BG9mjyvWdHasxjtTOLt0pTfLe3oNaR+dqmMH3If
7ULBIK+5J2LM0K4UmBjuFL28g3Yj7XFXL+6yA9qdxPNxXO+XLui1/zc+1QNr
FdHrKOh7gbEtNkWvp0C7cURwgjZ6A+k/bbtaRv9QFexBQXW/M04PX6I3UuDl
PKvDqRDtScrzctuk2X3xei8KXFn+zcaHmL6JPO/0q6HZD9CbKTDeNPWg7nG0
NwVH2cpPP2PRPhTobara65SI3kL6t8Xu0Pgg9FYK+KwPUyfbon1J/FJSXvXf
HPQ2ClwaDwTd0kJvJ/E+8Eby09FoPwp0nr8eY/drtGB/CugkHTPNf+gdpD/e
+t26ZCzm30nBXw+rlMmNmL6LArV7YgjPRu+mQP9444BrqeiA/5uvVBd/LUDv
oWDig5tGeiXovRT0vz7W1fEuOpCM58T+Xm/XooMosPA2KZ/gid5HQf7r4NLn
R9DBJJ7oLVH0/w+9n4Ih1r3ltKzQB0i8vbtN5tskdAiZj7PdLFpM0aGk/nel
bpaxRB8k5a/csqJMDX2IgnJGrBAojz5Mxv/b6651z0YJPvJ/8bvfvcYydBgF
w/Yvyp3yFR1OwfWraWWf7qCPkvl4qZP56nR0BAV2cu2XC8LRx0i8+77x0sgY
9HEK5hwpP7jXDR1JQdXKGVcD96FPkP5662fDYz/0SQqYieeDNzijT5HxlRv9
froL+jQFlUaDR/fRR5+hQK5u/3/d6ugoCg7dcVTXUERHk/VEdnpHh8RnKehx
2qL39udIweco+L7TRxTfgI6hoNcQbyXNAvR5CuJjnR2VH6EvkPYZv+PCr0T0
RQoebLvnMS4FHUvmm2Nj3E2PoOMoWBh7tjbgJDqegrA2h/Xvj6MvkXiTYhMQ
ao6+TEH0fjY8bwU6gYLs1KgBx6air5D+Y7s30GcOOpG8T+evWUPV0UkU7LYx
y/FUQ18lz7fIixvSF51MwZlVx2QmDUNfoyCNLR9p8kVFcApp34Z/3r2foa+T
9ZI7N+17MfoGBW+NmLLnuehUMr9M7lwRlY6+SeKV1uodLlfQt0h8/XLLY9sp
9G2yPnOLDDuyDX2HgsdP3KF4DTqNjGeX3+NuBKHvkutLfYL7LkPfI/N90nr/
Aw7odDJ+Zl/+0DgPnUGB/6SwuikT0fdJ/yyrjdo5FC2ioN1S4fyerhGCKQrm
T3WKkv2Opin4fNnp8+wONEOeF/yrn0kWmqVg5TC3d3Oq0BwFE+Sqd55MR/MU
KOuN7mq8jRZT8F/iw/i7x9CZZP2yyrTW/SL6AQVXbzQ+GnEAnUXmm6jeejP8
0A8pcHMas+6JNTqbgrNDN1xYvRj9iMTzz0eNb5iiH1OwljmjNVsD/YSC0R/q
U3KV0TmkfLsO10UroXNJPKjyf3xBBp1Hwex7d3o6e6HzyfsvsVc3L1QWXECe
X7fTwvM1upCsX6Nf3XnyDF1E6iOp17+Qm+hiYtvq7ua76BIyXlROpm9JQj8l
64HQgOLxkehSEs9ePPUrPIB+Rp4XObE23xVdRoHZYO30OGf0czLeqR+9NFag
X1BgyI5fpGKBLqeAtajXLDNHV5Dx8GPX05F66EoynrUmurzQQb+kwHt+4vKM
AehXFBSknc3N+zBc8GvSn8I7jelf6Coyv4j+VsdVo99QsKrv5w30U3Q1Bf3u
1swb+hz9lqxPe10v2Maga8h69MTdoq0c+h0pbyLruCAa/Z6CaxcrBvlGoD9Q
sF1W//IUf3Qt6a8rE8oNN6M/kvLvW3hA1xNdR8EdVctR0yzR9SQezo6ezOqj
GyjItEqbozgD/YkCyqEq7usEdCMFNWlmV7/Loz9TYGuv1rBvEPoLBUGf9StE
zcMEN5HxUWRw/eFn9FcKvn0Z7mf2Ct1M3seS+9CnHP2NlMd2y2/ZDHQLGR/y
vHz1NXQrWQ+yn/zCJW6jYPrZR4plSejvFFgq+p7sdxj9g8Rzfnar3SH0T7L+
Wm/+3Nsd3U5BZO23F+JV6F8U2HzuVJZZhu4g7SPW726wQ3dSMKm//SGVOejf
FGj29Rs5RgndRUGhxp1nB4eiuykoSR+t8UfiPyS+9dP4XteuJPgvBbKZn3cv
/4HuIeuZ978zDGrQ/8j68cXnjmMFaBkaWr+W9HuUj+5Fw9K1f7f7JKFlabhg
k/LjfCxajoaDTxYYXjqOlqehqnJI9r8z6N40VDx4frPvRnQfGpocuEVDfNF9
aTj3PAMsdqL70WBxIKFkpCO6Pw17Cluyk0zRA2hoeTjXxns2eiANdcctZ9XP
Qg+i4VjYNo/TSujBxI93mKj0RivQcJvNnfb8n6LgITQs6998d0MLeigNY5dM
kX1eiVYk15+x7t3rKVqJhn5z7wdtzUIPoyF8FJiUF6CH07Bg36ZhF9LQyjQ4
dfea5puIHkHD3T1Wtz5EoVVoaJhtH6sZhh5Jw/mKr11N/uhRNIQMOumr4Yke
TZ6vp23vbINWpSE6PmNZ0X9oNRq+qRfG75qNHkND7Ax7h/NG6LE03CwqPT5x
CFqdhshxHoWKmmgNGlISa5u9+6M1aRhsO8rYvBd6HA3jjX4r93wbKng8DZOq
tLjDNWgtGo5vvLRxVwF6Asl/z2v3sly0Ng0yTo8nJNPoiTTM7WiwvX8dPYmG
5dqr7jQkonVo0HTbWPv5OFqXBlX9dKvMULQeDWZ9Oit3+6L1yf1GxXZ+2ISe
TNrPzEsu3h5tQOpn2vjpRxejp9Dw1K1z3UwLtCENJqWeMHkS2ogGWev9xlpj
0VNpyPca/LhiEHoaDT5ZXjb/VNDTaahPKy/s82OI4Bk0bJwf+3RoJdqYBh31
uy0BFHomDVZeTxX6nUPPomHzpbGNK2PRJjTce72sI2sXejYNlQpNmwpd0aY0
DDfedT5+NnoODQ/+eTrlTUDPJe9zvmTZgR4FwWY0aP+cY1bXiDanwVnNY0JQ
ExpomJyc4LWDQc8j9afpqjMvAW1Bw4arVSO2HEDPJ/2/TeOJ61r0Ahrc8w9+
yFiOtqTh/llu0RRdtBUNq0pr/H6poa1pmJF/fkiZPHohDWvC1iuVNw8WbEPD
y+9PTV1eoG1pEKmavU2+graj4YDGtzdnrqLtaehoTBrfGYF2IO39vmDL/rXo
RTRsD/zYP2QpejENz80MRry2Qv9Hw/rKBepT+qCXkOcv6w7TUkI7kvfv3O7y
tmqQ4KU0DK3/c/BMA3oZDX5n67Pfs+jlNDzWGqtdegq9goZZVu2vT0WjnWiw
nrHgGuOHXklDWpnavjgn9CpS3si0yy8s0atp2LVX9ZnRBLQzDf09/Vyr5NBr
aLD768CybQMFu9Bw4vjaVzLlaFfSfy20x/y4jnajwai47ID7XbQ7DbXyvc7K
HkavpeHVmaMhZz3R60g8KL4/4Istej0NCzc6fr04E72BhsCNs5umj0F7kPj3
7mDdmtHojeR920X9VjYPEOxJ+meSEz/rI9qLxP/zewoDH6A3kf78n16gMYXe
TPpv3ce1zdFobxLPE1qsD+1H+9DQvUm/gFqJ3kLD9chBhwvM0VtJvNBb0+ms
i/aloXhDGkQPRm+j4axSsk1Wa3/B28n7JT7oSf6A9iP9++XTYa0P0f40VJs8
G1Z1B72DhqtlDX8yL6B30mBp8CVKJwi9iwa5uF4pJ9eid9OQ0SJ+89YaHUBD
+yHFx+HT0XtIfP9sMOP6aPRe0j5axpo1fdCBNDxqqrUo+9VPcBCZT/6DuTcq
0ftoGJHW/ELtATqYBso18e3jJPR+Gm5cDL7lcRJ9gIY+75aETQlCh9Aw4Vq3
wl53dCgN744nOlw0QR8k42NsjG2+LvoQaY+OVx7LR6EP05BZPHnuBjn0ERr2
yiSN7KjuKziMzD+d2rc+V6HDaVCq/dE0IB19lLTH3D2fNK6gI8h4bu/pSj+M
PkZDV3m5pcJO9HHS3yaNWH/aFR1Jg5ZzUuxEM/QJGlYobmyIG4k+SYPixOXM
yhHoUzSIw8Rvstr7CD5NQ0lG/OPNZegzNCQ01hkMe4COoqFT3OBlK0ZH0xC/
/Npj60T0WRo8UmNOFEagz5F4uPG9UfIWdAyJ9+FDTB3c0edJ+x8vPXRsDvoC
iZc2Px7/VkdfpGEIDJt/bBA6loa4ny7BD5p6C46jYefrv8bsG3Q8DaO22qeO
LUJfomFJ2pOmH7fQl2lYPcq62jkVnUCDuk/VjXk70FdIf750SufibnQimb/v
hxeuW4VOomFer0ld+4zQV2mgS7lRL9TQyTRcuzozuX0g+hqZD6cpJYk65AWn
0HBKbuTomGr0dRrGJGam2uegb9Cw47LxNPMb6FSyHgpR5B0uoG+S93+n2z8u
An2LhqBRR342b0PfJvFjSk1FxQr0HTLfbstu0gJ0Gnm+99l5R7XQd0l8Hhc5
qFgFfY+GmMbnGitk0ek0uLkvsEuqlxOcQQM/dNFhuhh9n/SnF8VX5qSjRaT/
Q+28l7FoioaAiW/fTj6Opkl/D4o4dXQnmqGheaF6mtk6NEvay7rlQ48VmiPx
4qP+6iNGaJ6GgsIXnQaaaDENDx9ayyzoh86kwSF+aDX7TVbwAxo2jd+iolyN
zqLhR0vnppmP0A9p+Pwz5n7pNXQ2DTZn6OL7Z9GPyHpbX3F//xD0YxIPLjvn
hnujn9BwJEs/13opOoeG9HNparss0blk/T45YvUTfXQeDScv33Z8rIDOp6Fn
2HerjS29BBfQoB/r1s29RBeS57/reGf/FF1Eg+6MZr0KCl1MQ1haWHFrMrqE
jLdp/oc2H0c/Je2tHRPSvh1dSuLx5wqHR67oZ2Q9YJuzY9l/6DJSHsrUPdgI
/ZzMH0EWgw+pol+Q+T/48F75gehyMp49qCVv22QEV5D651b6+1ShK2kwDmkb
nZWDfkmDa+Cdr9NZ9CsaBuo3L/qbhH5Nw+xVV2XmRaCraIjo/qN+Zy/6DanP
Gr2utGXoahq8K28Ulc5DvyXzf0Pmj2QTdA0N28y3Wi4ag35H1tc2WU+ch6Lf
k/X74C4znR//sv7nDzR8/eW2oDwXXUuDwk8vk6uX0B9J+31J0vX3RteR8n0v
3DRwDrqehlLX3qlt49ANNOhNGazh+q1H8CfSvpMzPG7noxtpKOv66Hr7Kvoz
WQ/NG234bCv6C1mP9kkOz1iIbiL7U4VXzyu00F9J+4bvvazV+FdwM1kv9x0f
vegJ+hsZ3wPTo2dcR7fQoNZnyqignehWGkKjGr6eWoduI/vhdxcTeiajv5P1
RHTa9kHdfwT/IPNRit3j8BfonzR4Lu5dIHcT3U6DL/Vww8Kd6F80TPfpdfrN
anQHDTlpUcqDTdCdJP/CU6HbZdG/aai5k2UbV9ctuIsG+QOxbYtvobvJ80Xz
1dTPov+Q8RwZk5/nhf5L2juv6GjLVHQPDRo+8mW9hqH/kf2h06ymH++6BMsw
4PHoxtfbueheDDznet3OOYWWZUDuksaYyh1oOQY0Z/iFzHFEyzOwpX+S3/ox
6N4MmH8ZE3v692/BfRjQ9asuYCrQfYnt/4UOEKH7MWAWovw0NRDdn4ExHr/M
73qhBzDQ8fs3NdoQPZCBog/bKPf+6EEMpCx5ppZe0il4MAPD9t3iB99DKzDg
2pH7wes4eggDhod0Cm57oIcy4Gje+MvdDK3IwOpPm23S1dFKDCTrv3RL7e4Q
PIyBWclRNkweejgD47eXOnVwaGUGFuo8DdoSgB7BwAarzO/Dl6JVGFBz3by0
cCp6JAPhH8NWvhyEHsXAtwFTTq+o+iV4NAM2M87admSgVRk4OHCqw9SjaDUG
sn5dHZ60AT2GgUcG/g6wED2WAf9T7IqXY9HqDPzR3NKvpLNdsAYD+b5ntS3K
0JoMDArWMXWh0eMYEE/rkzsyEj2egeIRX2VcXdFaDITKJhaWmaEnMBCrYXgj
XAmtzUCE6rKWHV9/Cp7IwND8A3/qytGTSHt9PbS73zW0DgOZK/nrj7ajdRmw
PPkofZErWo/cf/z9TcWGaH0G3gTwh36NRk8m/SuK+pLx6YdgAwZumn6qmfQY
PYW0T07ukI7LaEPSv2r9o1v2oY0Y8LywzzfcAT2Vgbdxbmu3TUBPY0DlkHrc
mZ7vgqczsMuAVZZ9h57BwN5fl3a9zUAbk/7Vq3H/8lj0TNK+et3/XvqjZzEw
XNHhTJgj2oSBw9ErH+bPRM9moFl/xqaif22CTRnYd2Jq248m9BwyHs79DtvL
oOcyoBGj8UcnCm3GQPb9IaOKtqHNGXh48u+fxzZoIF5yIMdWGz2PgR+znnid
k0dbMLCxZ6RKak2r4PkMXKSv+OwqRC9ggDYs1Q+/gLZkYN3cA9fag9FWDAR6
ZD5a/x/amsSPN6+yOgzQC0l82fpzSfBgtA0DQ44siJZlWwTbMvCxuIh/G4a2
Y2B0x/aiJH20PRkPm8VZhZ++CXZg4L+artO2WehFDCxdtTN5oit6MenPfSdH
GWug/2OAP236tv5ls+AlDFQfXe+rEoF2ZMAuI2ttsCN6KQMxo32Ltw1EL2Og
8ZeHWuqrr4KXk/fvqi9/7IVewYBszQk1WR20EwOn5DUuP/vUJHglAwNeduXf
PYleReLFuu5PakvRqxno9LDf3KqBdmbgjGNEwoPXXwSvYUBRdvaYPhfRLgy8
fsDu0DFBuzLgc6lXvflQtBsDK+Q891RmfxbszkDuwIzAB/7otQzMmHZo2XJN
9DoGep2ef6Xfj0bB6xnoor4p5ojQGxh4bGu60TwI7UH657dUC1Nt9EYG/h5j
PfbVfxLsycC83xvDpyWivRg4l2iq4u6C3kTi//6sC6vHojcz8K6nx/F5SYNg
bwbW3uMNohPQPgxEy+4NMJ6D3sLAlIEXxkfKorcysFP+WXZxfr1gX9K+SZPl
zoaitzHQFla6vmMmejsD8T7Dcrd31gn2Y6D15tG31Y/R/gxEtpYvX30YvYOB
UfPzTIwnoncyELY5JEHc+FHwLgYO3D25SS4TvZsBq4WVtIk3OoDEX82B7MEp
6D0MTHrGt0XX1Qrey8CIglPjxtxEB5L4Kb4/+PthdBADDv2zLZuGo/cx4L4y
f33uyw+Cg0n79i9ojU1C72dg7M0+YWFO6ANkvDsp/NHXRIcwoJ3XLRK1vBcc
SuKrfbjCzQT0QRLfChalrF2LPsTAPffu0l6T0IdJPFu88NzHu+8EHyH94fL7
4Wumo8NIvJTJXlXI1AgOJ/1b7lk0uwR9lNT/Ys9pnZVvBUcw4LKDe/fPDH2M
xLf/umbPeFwt+DgDAd/1HOQXoyNJf9lg55ld/EbwCQa88rYvs3FAnyTtqbr/
rhVfJfgUA0YuM8xWuqJPM/Bg9dTCxW9fCz5D5gPd4gqXZegoBqzf6xiX/nkl
OJrED/vlBcvc0WcZCJK9fLXs30vB5xgIHlVnM9gLHUPi9Y6xybNaKwWfJ/Nf
qFGu4Rr0BQaOVmQpKdVXCL7IQL9Zuwfs24qOZeB3TG9rqw/lguMYWLXjeuK2
QHQ8qd/cAP2w3y8EX2LAIL970rVj6Msk3o9MKeuYjk5g4JKJd5TZueeCrzAQ
1dj9/fkodCIpv/FSi5yCMsFJZD7bvr/6xlj0VQZyxi2f1VXyTHAymX+dW0VK
c9HXGBi3ijJPjygVnEKeP1TLbdCVp4KvM6Az37J9aXyJ4BtkPdU4pjCjqFhw
KgPdtqb3jpYUCb5J+r9a9JtdnYWCbzGglyNrHd5dIPg2A++XD1y6sSJf8B0G
rm1s6v/HCp1GxueOBzbN0/ME3yXr17a582eo5wq+R+afvsql20NzBKeT8Rq1
/GJfuyeCMxhY9lPXSGnvY8H3GfjnvGr2+vePBIvI+tAzZpTX9WzBFJm/e4Vr
qLU/FEwzkFbiSzV8zhLMMPAlsiGl3vKBYJb098K8qJBEsWCOgcRqjqYdOcE8
WX9N3rlQpocRLCbr24ClI8xbKcGZDPheuqap5ywS/IDMP90r1C+FZQjOIutP
Ly/jJeJ7gh+S+WZr5LdBv9IEZ5P+ZhTXz3j6LcGPGLiit+TJ/gvXBT8m67HR
Cl7iEcmCnzCwe9L+Dlr1iuAcUp/fRiosMY8XnEv6u8mLbSv1zgrOI+Nn35eo
c1eOC84n/X34y4pz3/cILiD9YUSJzuapqwUXkvnHbshAw487zP/nIrKe2OsQ
2LYqQnAxAz2xi96+tI8SXELi13HD6GWqFwU/JfH/kkLut+wEwaWkfBXjj90x
uir4GQNrXMyMfJenCC4j/WO7o8smtZuCnzNQ+CF320KPO4JfkPpPeB9g9uCu
4HKyfvnUnOHpmS64goH2bIO9YVvuC64k68W4QabZN0WCX5L9xN5DXM5OWvAr
Ei9U6vf7LGIFv2Zgf/y5flOH8IKrGDi7tNnl/Gex4DekPr6uLgmweSC4mgFb
nQWjK+qzBL8l42ur/u6tLx4KrmFg8MdxQ2yiswW/Y+CT7uSO4V6PBL8n6wmm
ou/+2Y8Ff2DgevfOZ/zoJ4JrGeizuGbSyJfojwxMDz5QrBWZI7iO7N/UIsZ5
Hc0VXE/a40+Th+ruPMENJD73zmjZPT9f8CfSvqHMX5+v6EayHllns2R1RYHg
zwx8L3j9ftzOQsFfGNhsuq554oIiwU0MNG1J80oyLBb8lazn7s556apUIriZ
rA+HJ+q/z0F/Y2CHXc98H9+nglsY2LOk1VTLvVRwKwOUwvePq4c+E9xG1qc+
e7/dCkJ/J/194MiuW/noHwysF6V5T5pbJvgnmS9ULni0paLbSf1lH25p6PNc
8C8GZK4EvDfeiu4g+6FYeerEO3QnA1O1bYdc03gh+DcD6QoJ40NuorvI+ntD
QFF7I7qbgaf7Y38eXVEu+A/Zv2u4WK9g0H9J/nVx/FbNCsE9ZP3c6PpY7I/+
R94nJHew9Ru0DAt7YjbOvTulUnAvFn5ddxxudB4ty8KVJNfe3b1eCpZjoTVJ
YclXD7Q8CxHqz4JOcOjeLMS55ueEjH0luA8LmhMHBNwIRPdlYVlq24ODL9D9
WJjYYd8nafJrwf1ZuJ5c3lp8CD2ABZn+Iyt216AHsqCeWTYo1rFK8CAWDv1p
+fKaRg9m4bnJn2uacm8EK7DwoHhPez839BAWnm46+9PxJXooC9THbxNnqVcL
ViTPv306tjYQrcRC//dVDcWf0cNYKKtI/jjb+K3g4Sx06s807H0crcxC7wh1
iz/16BEsnO/tbB1jVSNYhYULT7On6yahR7IwOnRw/rAf6FEsbNRzOvLd4p3g
0SwoB38dncSjVVnwCJ5d81P2vWA1FqxO7Zp80RA9hoWSjRRZk6HHsjDUwulC
XQhanYWGxNvVk++hNVg4teBA7I86tCa535CRu936fxA8joWb8rLBywE9noV9
kQtnVq1Ba7HwxzRvzu6T6AksvI+e/47i0doseGn3Wefbgp7Igp183KQno2sF
T2IhKqiv59I5aB0WTNwqloz3ROuS+1usfy93DK3Hgt9nnTR5Cq3PgtaIc2u0
fqInk/K2Oll+Uf8o2ICFgffXL1MxR09hoVynPsXGE23IwtXkpotVUWgjFp7o
xUXI8OippH1Oeie0fUZPY+HzPD/jrQp1gqezcGSV7vkPs9AzWJh74V1JmSfa
mAXjCZ55VifQM1nwHOjdOuo+ehYLBft3ppx9hzZhoc5E1HBLpl7wbBbCJuU2
VxqiTVmgw478M1iOnsOC89azB9YdRc9lYXyBhdOVW2gzFtI3qw6gS9HmLGxw
v7SouhsNLLgP3xWXNaFB8DwWttZfVGs0R1uwkHZSdHSlD3o+eR9ze1nTKPQC
Ul+3J6Za5KItWVjlJT/r9he0FQvTqEdKzkqfBFuzkDCja0KHIXohGU9/tAxD
PdA2pD4b7F5NO4S2ZeHT3GaDmttoOxYmJac0fipF27OwNK+zfkcX2oGF/FP7
Z9sMaxS8iIVUz+gJdXPRi1n4uvr12RWb0f+xMKOgf1VrBHoJC9aa+2Ou30M7
slCcG7m1uBy9lAXtpLmpnT3oZSR+Jr/pe2LiZ8HLWbjfabe6ZjF6BQs5sT8r
R/minUh9nHO36xuHXkna33D61shM9CoW7uTdK658i17NQn2/mSpqf9HOLKje
P67eNvGL4DUstAwSly5ejHZhYTLjOGv9TrQrCzcGXe7zMA7tRuKDo3xGM412
Z+Huk+SxLrXotWQ87Dw29KpMk+B1LKyPCdcI10OvJ+lvZ7UHWqE3kHh/VV72
nBfag4XG7iOqKZHojSxMdUw130ShPVlY8m3iyF1laC9SXw5tDgbf0ZtY0HiR
/lth+FfBm0k8aZwDz2eivVnwN53466Qr2ocF1+ft0XkH0VtIvLffa7Y3Fb2V
hWH+LamFj9C+pP9mhD448Am9jbT3Sv11B/o3C97OQtuz0Svjx6H9WLgnK76f
uxDtz8Ilxbi7+V7oHWR+DF4oLjyG3kni/SiNZcb30LtY2JTs819VJXo3C2sO
+ar1+ooOYCHafueXucO+Cd5DxtPTmrt7DdF7SX3xY0r7LkUHkv4WPrhF2Rsd
xMJbFZ+kzOPofSwE1NQW7biLDmahZ2tIyPsy9H4WkkojTLVb0QfIeMm4md7Z
t0VwCInPbjdumxmgQ1kIvqS1wuI/9EEWYmZc3hjpiz7Egt6RrdTnMPRhMh+f
VTSMuo4+Qvqzd1RDexE6jIVBudO81zWgw8l4kF2UOqwHfZSF17vNleWGtgqO
ION/eF6y9jj0MRYWB8vcGDMFfZzEMz+P8zfmoiNJfbko5DvZoU+Q+rr4qtTY
DX2SxLdRJ4ds90afYmFC6sPnkwPRp1m4Nqy4PDscfYaFiotREW0x6CiyfqmH
E5Ep6Giy3lh7xed3GvosC11rg70XZKPPkfhyNacyoRQdQ/qr1i0Tk3fo8yws
f/IyJe4b+gJZf3W8M8zpQV9kIT7nwsjFg9sEx7KQGZA8dYAyOo6F+a/e6p7S
QseTeJ9P/1MyQl9iYdRNudkD56Mvk/mwovBaoQM6gYXm3GmliW7oKyysMx80
+5o3OpHUn7Ki2jM/dBJZDx3IKT50FH2VBQvF0pbaM+hkMt+zc6a6XkFfY0E0
wGGI8210CgtBs79NXc+hr7OQZze19Gs++gYLHZYZV0Xl6FQWFn04NyzhA/om
C4YfGpr9WtG3SDz+ODi+uQd9m9x/w8BTFXLfBd9hwcynMnzTCHQaaU8jyt1n
HPouCwudVw/bZoi+x0KtRdTIkNnodBZeyGj/W2GJzmCh1+/Egu1L0PdZGK65
crePO1pExrv7g1ehXmiKhQHpp/f82ImmyXyeUdHf6hCaIfVt+UW1JBLNkvXa
mg+9G8+jOVKeA29fL76B5lmYt6/gTmsGWsyCr+aUoL5idCYLTbY7otaXoB+w
8Gy3ZsyUl+gssn4+llzU9AH9kMRvR+O3/q3obBLv1LYvcuxCPyL9deDfkE65
H4IfszDO1XFc9SD0ExbYP91HjFXROSxwvT8Nl5uIzmXhv0mh2V8no/NI+4hb
b56Yjc4n98+3DB2xEF3AwgnP+Q1p/6ELSf86+WqFjgu6iMwHCSmn921CF7NQ
HTxvr/x2dAlZ38ftLD0QhH7KgqJ2femlcHQpC7rjPIqHnEY/Y6F96WPvkXHo
MhZ2TxNp3ktGP2ehtPRljFM6+gVZD/q+sHjAo8vJeD2hvSkrB11B5ptN+bm9
StCVJF5drPFvrEC/ZOFvwpPstFr0KxK/PhX9ev0F/ZqFPsb2my3b0VUkHj03
ubfgH/oNKf/Js8cj+v4UXM3CwennW04MR79l4bBijYunBrqGlH/H6dNaE9Hv
WJC3LdwzYCr6PYlnhW1XLs9Cf2AhVokbf3MeupYFo9VBs81t0R9ZkNM3CxMv
RdeR+aSqa7+SM7qelHdCj5GjJ7qB9Jf1b1cP8EV/IuvX/IcaBjvRjSwYXI2y
23MQ/ZmsL+YvHX31GPoLC2fkM7zGn0M3kfngSNcWi1j0V1L+hFu3tiahm8n7
/jPt9+cm+huZn7OW1TdnoFtYeNhjq27GoVvJfHZs5pHCR+g2FvbmildrlKC/
s+AkpxoSU4n+wULfDykfbGrQP0k8yL72n0stup2sZwotRvb9iv7FQuDj9tLE
H+gOFpR2scp9/6A7WYDNK+fYyLYL/s3Cv7xzwe6D0V1kP7Ou91y14ehuMt9/
Up7EqaD/sPCGPmI3Uwv9l6xXLQLG5Oqie1i4HVBlvmoa+h/Zb8/+uqXvLLQM
B78UrjTFmaF7cWBAOYz4uQAty8EpgxURhYvRchwETeibb7AULc/Bhg3sPfNV
6N4cQFuvvTPd0H04YH/PdEz0RvflQG2i8b+VW9D9ONhSFn/DaRe6PwcO85Nj
DgWhB3AwsVX9t9VB9EAOjsv/uFQbjh7EQV3GsYaDJ9GDOXjot6Gm4QxagYMk
xc4I+Tj0EA6W1dRVv7uMHkrKJz8k+3AqWpFc/3vzLItbaCUOxl1WdF0tQg/j
wKzwRfVvBj2cg8tFVppxmWhlDlQt/n6VyUWP4KDB+MgEcRFahQNr/ZdDF5ah
R3IwZuaEitOV6FEcpDq7OchUo0eT+y+CMQvfo1U5KEx4MuxbPVqNg9HR8jKj
vqDHcPDo4NW0h9/QYzmo0h7x9Eg7Wp2DjpVPzz3vRGtwsHzCztNOMr8Ea5L3
X9B3g7Y8ehwHowandof0RY/nwFv15NPowWgtDnwi6/xXDkVP4GCGbmr7rBFo
bQ6i2v+Ir6uhJ5L385cvTdJAT+Jg0JPPvyImoHU4sPPt5xyjh9blgIFu15OT
0XocdLIpHkWGaH0OZiWufhM1Az2Zg13P5e9Wm6ANOLjkn91nBqCnkPI+FtkF
maENOdDocJ9w3hJtxMHwyuwphTboqRxkfq2PPOaAnsaBe9HvsWkSTyf94cGi
EmYpegZ536LKAEMntDEHI4a6L3Nbg55J0oMUQ+66oWdxMDdEFOkgsQkHP5Kv
NQWtR88m9eO1t+aOF9qUg7P5T5S3+6DncJC9bkVzzhb0XHJ9f/OLj/3QZhzY
ZHkc+b4dbc6BzMC2LQm70MCB4pJOtYK96HkcdA9SVGaC0BYcuO3ZtfDAfvR8
Dp4o5v47FYJewEHuVNnPeqFoSw6ixzdtcTmMtuLgQavlz44jaGsOEssqwq8e
Qy/kIGfo9Jx/EWgbDnb4Zis4n0bbkv7qvLpt+ym0HQcj7x3I+yJJtyfjM7jL
O/As2oG0X8eLCbrn0ItI+x2xZw7GoBdzcHdkWHReHPo/DvSWJA77JPESDpZA
tXzLRbQjB7sNzurZXEEvJe3N9usMTkQvI+1rmDX0rMTLOQg5/Ekj8yp6BXmf
Pa9KlCR2Iu0RN1LzUjJ6JQcDfzefsr+GXkXqX1M1Y7rEq0l8XS63MeUG2pmD
6TrvYupT0GtIff7x69RORbuQ9lAx/rxHcr0rB8Y3oHDkLbQbBx+2T/zASu7n
zkHNC7PicZLr13LwcssF12WS/Os4iHs2TfbqHfR6DhIGOv1TuoneQN53lPKJ
K7fRHhyMvfIwrEiSvpGDnnUaK7ol13ty8GYT9zcyDe3Fgd9PG81oSfomDlZl
J49slly/mYOY12z0X4m9SX9s9HBwkjzPh/TfNVGWnpLrt3AgZ/Ki65Gk/Fs5
eH6uw3SM5P18SftPOPy2XHK/bRz8Xdj70V9JfW3noOKh5X8+kvr142D9fAOt
8RL7cyA/wkDvexJ6Bwcb414sHyC5fieJ5+yCVf8k3sXB16Md8VaS/Ls5SD+d
GfpW0p8CSDwNSeS0JN5Dnv9tj9lXifdycDN1qEfOZXQgBxbTFHJ2SdKDODg9
1SM/V9J/93GwwEAz6pjEwWR+j9Mx1rqA3k/mE9Z6806JD3AQH1c+/7JkfIRw
oAMR9CeJQznIO5Bz6XIU+iAHd0z3HXA9gz5E2tcw+lCuZHwe5qD3J+PJG0+i
j5B4kGL3blc4OowD9ZCdPcqS8R9OxltWL5VASXw4SsazmmNW+QF0BAfF61K8
0iXpxzhoX+umuVaSfpyDP87Fj17vQ0dykHVGYwUXgD7BwfdniZXFEp8k65ff
AYtsJfHvFAcq2prcCEl8PE3i8c2iqW8l8fUMiTcDUw//lMTfKBKPtmwLc5c4
moOPQ/03iDaiz5L2X7mvM8oVfY7EnzpHxd4Sx3CQX3hcbZEz+jwZzy6DA3pW
oi9wYNR32MktjuiLpL62eFnMWIyO5UBpYxhtYoeOI+PXab7ojy06noMpxpcf
yVqjL3HADQx2eLUAfZmD140hbfvN0Qkk/iXIyz6ahb5C+t+M4fu/SpzIwUxz
A+WUKegkDkx+tTqHGqGvcjD7yz7240R0MgeHn9/ItZfM59dI+gsuynccOoXE
i/+qdxmpo6+T8e32Mb5bsl64wcG9mQmBJUroVA6SVUKff5KsL25yoODY5Llg
APoWB+P/ZqlX/8P1zG0Snw1Gp/+QxfQ7HEx4v0tp0B9MT+MgzH/fQrlu9F0O
aocwuyO/o+9xUF8+zijtKzqdvG+WnMKmBnQGiRfrdu5XqkPfJ/095vmwsjdo
EWlv7eSQ8HI0ReKnudY6s2domvSfMSp3/ArQDInfbX3CXz9Gs2Q85L+69j0L
zXGgvUe79AaH5jkI8L868M8dtJjMrztsOoMlziT9x+m0X+g19AMOtu42urfv
CjqLgyZbeYfQePRDDoY01I0oikJnczC1K31Ql2Q9/Yi0V6+R51OPoR+T9Uug
64rpoegnZP5++GLj/D3oHNIeyt8tIrejc0n9pGxfeWsrOo+DZr20Bde90Pkc
eMptWdhbsl8o4GBh7KSQPc7oQg4eFxxQSXFEF3EQycRMb7VFF3MweXiIdb4V
uoSML+ty89Xm6Kdk/aoz9fVkY3QpB6ZBb7kv+uhnHGza1yRjq40u48Bpufnc
qZro5xy8OK3S1l8V/YKst43ubNUegi4n+RV8ZOne6AoO3lWsDrskg67k4ELf
Bal/f+N+7yUH/6JGxHm0ol9xsDjp7TGvevRrsr609+bc3qGrONDP25j0/BX6
DanvKzJWy59K9v8kXi9q212TJ9n/k/brOfwk/6Fk/8/B5lF//l4WSfb/JH6X
7h824I5k/89B6PLxU/WuSvb/HDxdNKsr+JJk/0/m087CGSvPSvb/HJTEV3+4
eVyy/yf1oTZR55xk/15P5rc9x39+2CPZ/3Nw9EtumLpkv/+J7CdDjnXv9ZLs
/0n/+DXl4QE3yf6fgxsPqZVayyX7fxLPXa3DAmwk+3/SXtyZ35vmS/b/HBxb
FKQ6aY5k/0/WH/cenZ9qJNn/cxARenbQMV3J/p8DZcMRp4PGSPb/ZD95bsPk
cyMk+38yHuPfL3/SR7L/58DKZZlsvIxk/0/mG4OMrUE/8e8xP4kHZFrfbka3
c3Bo30nPfZK/7/ziwPx6lP6K1+gOsh/ZPDPL7Cm6k4PzG4fmmOSif3OwzXuH
dV8K3UX2Pwutx665g+7m4HPSPpOWBPQf0p5X2Uw2Bv2XrN+OaDyrjUT3kPlo
MeO/+RD6H9mfnnBeM2APWoaH0OmGVXe90b14KD5zf+bndWhZHj4pH9x0ZhVa
jocTwbMPxzmg5XmImCS36JolujcPQ9/MXxVmgu7Dwy/LvGwVHXRfnoy3Q9en
jUX346EuTzetYAS6Pw/Hu67sPd0fPYAHt8GXVwf+xb9HDuRhS3Bq57/v6EE8
VKi2jhtWjx7MQ5zy6oSM12gFHuhoW6OkZ+ghPJiG9E+VzUYP5eG7cnDvOSK0
Ig+zP7h6a6WglXg4O8UzpX8cehgP2hvfVd85jR7OQ1dBlN3QI2hlHu4YxMJm
yd97R5Dn//zm4uKDVuFhlOZE8S5X9EgePuipHt4n+XvyKB70Ezat2Sb5e/No
HsL8ml1TZ6FVyftnTHpwSh+txoOM3Iy4iDHoMTzkeSoZT1RCj+VhSerqe3xv
tDoPn21rzBPb8e/lGuT+/lVJtl/QmjxMP+P3JakGPY6H9IRZu1xK0eN5WB5V
pGOSg9biIdp/8ILt99ETeLgh/+SG3g20Ng+3pn48szIWPZHUT/rBWsVT6Ek8
OL2bLrcwGK3DwxrljP3+vmhdHjaGTKu8uA6tR/J/3bulbClan4cnS3ovHbIA
PZmHQ+KX7W7GaAMeMruo2NmT0FN40HVZdLxFFW3Iw0DflT97BqKNeDjFJf2r
/Iu/v0zlYYar1saBbehpPOzZ0yUfVYuezkNBaUDJ8BfoGTykVg0wi3yENibt
uePZiGwReiYPHwsfV1hLfj+axUNsZ+MyJ8nvSyY8TDN605F8CD2bh5amqYNu
7EWbkvqLXuRweDN6Dg/jC9rHsSvRc3nYqaqbwdijzXj4GdDQeswYbc5D49Ws
GQf00MDD18Avl13U0PN42LY2xrJmINqCB4XqNUN2/sLf5+bzcNewlXOvRS/g
YW7OtLuhDNqSjNe/hwx849BWPAQoFB6sC0Bbk/dfcPuK/TL0QjJ+d8z69mY+
2oaHw8VTe89TRdvysLXEe5HGX/y90o4HK+fFlYmv0PY8XAvxbKx8gHbgweFI
6HmnC+hFPFyfsOBg+h70Yh4u5A5cav0f+j8eyjYX6G2Yhl7Cw8TmBSNHK6Ad
eXiw4PbYK9/x99qlpH33X22YXoBeRuLfHmOHoXfQy3n452iR/eYMegWJpztM
68u90U4kHna1mA6X/J68ktTHa4XoTjX0KjKedcp/XJBBrybjab1P4tsK/L3a
mYeruuX/3bmHXsPD/UGxvQ6cQruQ8XHI78zrDWhXHtRiku2MF6PdeDizJH7R
E320Ow+ewRPXBMqg1/Kw+Ilen5I3kt//ecjZVvIlKF3y+z8PXFFzry1HJb//
k/7U1Gyh7iv5/Z8HL3vfXt/+k/z+z8OOC9dS9LUlv//zsPtMa/8v//B7Ay8e
3hX16dhcg97Eg52xeWUCg97Mw3qvJv+Qs2hvEv/muGYq+qJ9SPu+y6lcYofe
wsM3Vf8++ZrorTz82brlx+HeaF8eLPtPUx4r+b5iGw8+5UUfFTLQ23koV/ba
MjcM7cdD0djxm7zXov15iIq8yC1fgN5BymdnW/lBGb2TBxNmk+urZvw+ZBcP
4/6L6dmUjd7Ng7uxuF9HMjqAzH/hCn82BqH38DB1YNaZPkvRe3kY42/T9moM
OpCM94+D1iv24PcuQTzc3tppl/QKvY+MlzuRkyvvoYN5MPP+I8efQu8n5QOd
646e6AM8tH/2NF42Cx3Cw/bX5g/O90eHkv6VHtvvkeR7noMk/k3+W2ZJow/x
0J35jh8n+R7oMGm/UZH9fm1GHyHzzZ7dGoPN0GE8WKS8W6Q3BB3OQ/PGot2i
Nvwe6SiJ9+surX6ah44g8aEybd79ePQxHoapv7lm6ok+Tuan309nNsxFR/IQ
GBZ8umcU+gQPWrOa9ul8w++rTvJwOqN+s0ke+hSp3/3HYk6fR5/mIVetzK3F
G32GB+sYvc3dZugoUh/rPxQqS77/iuZBx0R7UOAn/D7sLA9/G+7cTuLQ58j1
D+Nn9TmFjuFhc/zxu6ku6PPkeS/P3dSaib7Ag8EOleyAXuiLPOxbcMpb/Aa/
b4sl8Vgn8KPKHXQcD/IWy46qhKHjeSjJnOT/dzX6Eg9T1o9e5jAFfZmUzx9U
Gnrwe7wEHmxumUPRM/QV0l5h7a7yF9CJPLyc02SycCc6iYfKcXqiGTboqzwc
PGz96vIIdDIP/TPHys59h98TXuNhwBv7Q6lidAqJR2vYhImn0NfJ/JD0vuaY
M/oG6b+bPVOspqFTeZDt4/79wkD0TRKfFmee90zC7yFvkfXcjvwRU63Rt8n6
ccCX8Q8y8XvKOzxkK34wPBGJTiPr1x+FuRbj0XfJ+m1LUy3k4fea93j4McrU
w9wZnU7Wb71M53G90BkkPsg/zvkcht+D3uch0m7VEA1TtIiHLAX10OYa/L6U
4qFpht1p711omsxfgduVMoejGZL/gs8Ok5v4/SpLxudfN1fRejTHg9EoSzau
Cb9/5Ul8m37/6PAQtJi01+NTKy4YojNJfBidf/F6Fn5f+4CMx4Y1QfdXoLPI
ePWh+iz5i9/rPiT5N3zxVU5CZ5P+WkVHXNVAP+IhqJ/TD6WqSsGPeXAZcXvx
puXoJ2Q+6O3atec7fk+cw8PRII24rXfQuTw8d4y1XGuGzuOBeVIWXFuJ3yvn
k/KceLLXfwe6gIfWkr51anLoQjLfBS/RaUrD75+LSLymLRd3zEAX86BSfuqA
WgZ+T13CQ1W1d7npUvRT8jy/2pEu7fh9dikPMz31usqPoJ/xsEoc+dJiLLqM
9O/2193nzuP33s95GGsXdnanKfoFiaeXDXVUXuH34+WkPVcb139tx+/LK8h4
PnlQZZgxupLM/1cfVb5Zgd+jvyTrUVcr0dPt+P36Kx5+Hxl++YA3ft/+moyX
gDOtKsfw+/cqHjbIOIFWEX4f/4aH/RcddGoU0dVkPXYhP/XxAPye/i0PNf1d
dq6Zg9/f1/Cwru9ySPfH7/Pf8XB+YXhl0kX8fv896b9yUQr9z+P3/R94SNi/
2u4rhecBasn6NbTy+oJGPC/wkYfwJbtUt//B8wR1PFxsW9xwaBq6noxv3sB3
sQmeP2jg4dV8i9kuNXhe4RNZHwV/Syj3yxTcSNbja/+tiHfC8w6fyfNarf2O
HcfzEF948E6IuJ2UjOclmsj69t+43x42lOCvPAw33dAY25ohuJmHcwsXhkW4
4HmMbyS+PAos/1uD5zVaSP0+bRPFbL8tuJWHA1VvCrmpqYLbyPqzdmbhh+5r
gr+T8s74ETPQNknwDzJf9S2ar/4zXvBPsr+Sje8f6HxOcDspz8mFJ7Krjgn+
xcMj5bD0lUNCBHeQ+Tp+ufXgy7qCO8n46Gk/8+fVrqz/+TeZf68Gfr9yL1xw
Fw/5X5fPG1IXLbibrA8KW3wqTfB8zR+yfr/S58ug+ETBf8l+JvFXgt6qa4J7
eFjxuEA2s+iG4H9kvayuXD137W3BMmL48vBetJz4ruBeYvh5IjJOxyZdsKwY
Ahddr3aquS9YTgxUn2UZ3YfwvJG8GDpkC6t8NPE8Um8xaGY2psqY4nmlPmIw
vNc+uqyJF9xXDHqKixdEL8bzTv3EoNpy2yf6I56H6i+G4tlGyjua8bzUADFU
fL/CdmfheaqBYji3/6913Rc8bzVIDGO392QcLMDzWIPFcMCNeflGEc9vKYjh
xzyXuYc08HzXEDEEN/wu7XiHHkruN3DnsCWVeB5MUQyv3ujve1+P58WUxDBg
gs32jJN4vmyYGF4na9WZluP5s+FiuH3wm5/VNTyfpiyGuPwPl7Rr8fzaCDG8
7BV3bN9xPN+mIobUrJNV3x/g+beRYrjRz177GoPn40aR939hcdx5PZ6fGy2G
xQrLAq68QauKoSz9cvzPlXj+Tk0MpmZ3b7j8Qo8Rw/RJE9eOWvRc8FgxrJ+v
VjxoFJ73UxdD5YhnvSfsQGuIYU/R4BXPP6E1xaCSLWf3LADPE44TQ+KjPzOP
f0OPJ+/7qm9W9j48j6glhjHpxd9G9MbzixPEoF57JKrgPFpbDAsuarTnjsXz
jxPF4Ddh9wWbM+hJYtBe1T5n5QA8P6kjhsHMjynzItC6YjjxxLTopCaev9QT
Q/odx2jXWLS+GEINn+mazsHzm5PFsErx0T0lMdpADGlLt83zm4fnP6eI4aDu
7kO+BWhDMfQ3SQks34znR43EYBFQrHX1I3qqGDbYOx+7vA/Pn04Tgw2Vsuhh
J3q6GLbduuc8bweeX50hhu7ovX/DW9DGpP9x+criFDz/OlMMnVtzR8yRwfOy
s8RgF7kr9eNytIkYzrwoKdeIRc8m9zcNOT+oFG0qhqfTu86vGYPndeeIQfRq
WVb9FvRcMeiye5o8JOd9zcTQmjIvoOsb2lwMzbc69ZWt8bwwiKH6yOWcnmD0
PDGsqaivN65EW4jBcpbvuykyeD55vhh6qelq7Z+HXiCGkj2NZ++dRFuKYeHW
5Ekzq9FWYjgr993Ecxqej7Ym7eukvu5NAHqhGEbeMftrwaBtxKDGpPXzlcXz
2LYkPr2cw1gtRtuJ4Vid3ObcY2h7MSxqGPiBe4B2EMPbTXZxF9Xw/PciMj4y
lzwYshW9mMS3PetS1qeh/yP99ZdaVKMMnjdfIoa6PY+9GFO0I2l/WuG1///r
6s7DcnreP4BbyhIhkSXSQoQoRUS6y5pdyhY+yFYhKiVFQpESUokKiSwlSyVx
ZrJUyC5Lm7Kv0SJLqH7zvbyf63c5f76uOTNnnnNm7pnzx3PPXniaRLrlmwYM
fAXbSRR7fVzsxZ74v7u9mG/uKe2aOsPTJVI/uCu+PhmeIRH3UAsIaIP/18+U
aMR02w+J9vAsiWbPHNbiQDg8WyKPK/GRbd/DDmK+DBywzcdY8f9/ifruG/rU
0k3x/3+JPoyLeVRwV/H/f4neU7hTeFPkD/hPoqz4tbl5tvB8iexPF06+egxe
IOLni0mJKj/hhRL1kDxsCsYgf4GjRNGJNktGRsKLRHya2+7ZoKfwYol2LW8e
v7Yd8iMskWi0cqm/1wp4qURX7FLaV6bCyyTKm/Pzg7ca8jE4SdSrcGLncdNh
Z4nCDV+90oyAXcR4dIyvvl0DL5dI+efHonQz5INYIZHd0lML+u+CV0rUKbDK
NjgPdpWoNMXWxaQD8k2skui68+LxU83g1eJ5PXJPrF8Iu0nUfZbHm1nBsLuI
j/rqFm7JsIdEL1JzXjTPh9eI+TBkU1lMQ+TP8BTtTdWe+FIT9hLxoyraabgd
vFaibz/Wmc11g70l8nqesWt4DLxOIqdtZzqMyIV9xPv7uLRxk2rYV8ynAbxO
U7fqr9dL/8uX1CR4GLxB3N+m+m3z+bCfREVbK1p+3A9vlEh7hf2k3edgf4lS
v+6xGFwMb5KobEaEq2cL5D/ZLNGZaR99WhrCWyQ6tMpl38q5cICIL+YZJeZb
4UCJxpVrdQw6C2+VKGP8RpXEp/A2iTyHhuz8/RsOEvc7bNWy1gD5XLZLpGR0
M2qBLRwsUdMc8xkz/eAQMf4M9y6algLvkMi9fe3+wbfhUDGfBsXcm1cJ75SI
2WXfrNJDfppdIv52PNgwczy8W6wngcdvJHnCYWI9Ng2pjouF90h0uTBW/cIt
OFyipfEOK1IbIL9OhFhfAzxXdekOR4r9yyfSrbGG90q0xNrYNngJHCXRkGLv
yZcj4X0SJUR+7L0uC94vxntEZJOMP3C0eP/ui1Ketka+oBiJ+rXvfefZcDhW
xEP6XOq3BD4gnqf/9iK7vfBB0Z+QxNaqOfAhsV41fPpSvQKOk2hQfHLQyw7I
f3RYxIOuhW/OT4bjJbr0ZOwmt+XwEYniglL6DT8OH5Xo6JaRLtPy4QSJnsf9
PjHtK3xMxPP3g+7ZmiJ/03GJahJKx16dBZ+Q6L8jNT+NFfmgTkp0YOrYN8ZJ
cKJEex2K59Rmw0kSPdo4rk2PRsg/dUqi+w+q8jvrwcli/gbsD/zoCJ+W6G3n
tlGtQ+AzEi34pPk2MBE+K9qbUPxL7Rl8TiKHSKe7v5ojf1aK8PrQbt0Hw6kS
verp/ruZIv9WmhifBZt8VfbA58X4zvo1sNFtOF3Mx2+xP4NL4Quivc+H1N+o
If9Xhthvqr1VSR8MXxTjK+XFj9Mb4Uti/HyK1T8dBktifXtmTGeyYCbRTM2Y
Xa+UkL+Mi/nomLv17EA4UyKTn0d970+GL0vU835ZxWl/+IoY38f7XXp4Dr4q
nufMJTUXy+BrEqU8HdPgqyryr2WJ9WDWZet2E+Fs4cuT6y5Mh3PE74k7sHNJ
FHxdomPRr/xsHsI3xP3d8h4f/Q7fFPvzuPApFxT543LFfueB7gb/sfAtiRbO
bT3bfyN8W6zfDcqNzY/Cd8T+9OEm56RC+K6YL9Ptsia0QL67e2J+3Xwc/EwL
vi9RuxnZV2Mt4AcS+S+620d3CvxQovl0fUaTZXCemN+r7xhErYcfSbTYN6qt
6g5F/j+x/y6w9H2drMj/J9Z/m342TbMU+f8kqlW7sMzkmSL/n1jf7jkVLKpW
5P+TyGK937ObKsgvWCiRRpJrybDucJHY3zQ/9m4UwcUSWTWa+r1gIvxMookn
jpaNdYFLxPqgsXSdhh9cKvrPWVBBPPxcuHvrZLt0+IVYn1q6TR52C34pvud6
tpxfWgS/kihKa0dGXRPkb3wtUYhRqrprR/iNeN+ju1bUK/I9vpVoWLstF76N
gd+J+TdVQ3PwUvi9WN86b+gydQ38QXwvzGtk2mYX/FGiN3YNi9+dhj+J8Wtm
oWWaBZeJ8fY6bnfaI/iz2M9YtFqfVwN/EfHosa+LRifkxywX9d9pWhn1givE
+1p6QLfDMLhSohuXVy+ocYCrJFrrmnX+5mr4q0SZFqlbQ0PhavH8vzd65RMP
f5No3ca7Mwyvwd/F/LHt7x35BP4h0XTTTc7pn+GfEtVpZXs0aYp8ozVif3mw
ze2V2vAviQztjMaeHQj/FuNVq3bBkSnwHxHPF37xuuUE14rr43RuNNoM10nU
X/9h76/JcL3YH12wbFRxEW7AyMPgt+Pp+3BDRuP2JM0eWAk3YlT10z8wvTny
uTZmNHLvbc86XViJ0WkbT29vM1iZ0ahnC39NV+SLbcKogXXGqssL4aaM5m+7
+XRCKNyM0eh85V7q8XBzRss2dNyumgOrMDLy4w8TSuAWjAbvGeJbUAm3ZPQj
MSHHrXGTv1ZlFNqmpGaLIdyKUaq+Uv5UK7g1owH3z5iMnAi3YbRV19jUzBFW
YxQ4xX7XfkX+3raMKieVze6VCqszumUdV2usyA/cjpGJlpJTj2K4PaP7Kg9K
jv2GNRh9W7h9Xlpb5BvuwOhFUUq7sT3gjozabjT/EWoJd2LUzLXZ3tolcGdG
S8zaH1rjBWsyyk83ahEVAXdhdKLq/RxrRf7krkzs3xu5RxfBWoxeB7r55r+F
uzFqcz4w3LYZ8jNrM3r8fcauie1hHUYqOsE2AyxhXUYxI/NHH14I6zFaunfp
1rDlcHdGPKa0rfkOuAcjaVnsT5MTsD4jZYcXsSa34J7i965Y+ufkQ7gXo7Gj
+/df9Bw2YKSlrF2dVw/3Fu9Lp6vp5j7If92H0bVIz+Y2lnBfRrFDBtwdsxI2
ZGS355FaUz+4H6PZkmfv3eFwf0YTlCvmreGwEaM4twd7ay/Axoz2N/meGfoD
HiCe96hlZuqtkS/chNHvG4Wh5/RhU0bvi375Xh0AD2Rk0X7UtQEr4EGMinZ9
81XeBJsx+pnkWzozCh7MqPW9+64Vd+AhYvx39Hmgfx02F+9j6KGVfm/hoWI8
nGtr4/8HHsZoZt/vTsH9kG/dgtGgtIZmg4bCw8X4DSkdenU+bMnoQp1qwzmK
fO/EaJ51G8dHB2ErMV4tw10/HoatxfP8+dSg6XV4BKO0RXd0n9fDIxl5xsQ9
sW6EfPSjxHwaF5zm0w0eLeLLl7DjLxT57McwSs9arp/mAI8V8eLIE1WnDbAN
I+PurcJ09sLjGHUds9Hq0hl4PKP+ycWDBl2GJzAKGdxeKfEjPJGRdjPzglNK
ivz/jN6cOa2UZ6zI/88oe1+V9MJKkf+f0bFY5/i8mYr8/4zW6MY6P1+hyP/P
aGq/nsUbI+Fp4nmZzdirymA7RhObz811K4XtGVntanrQtCHON5jOqGPboJfG
LeEZjIpP99Pe0RGeyejPtCLbd5PgWYxKXt89pu4BzxbjS80w1jICdmD0y88r
Q/8gPEeMf8rQvFYIz2UUEDbG98treB4jt5EjGx5XxfkQ/4n2VCMDjujD8xmV
3dB22qXwAkYNRx+PHT4fXijG+76ebpFusKPoX89xBXah8CJRbqZ/fX8UvJjR
ArtPfb8WwksY2Zu478/+Ay8V4+91VEUTJZyfsUzEIz3dBfbNYCdGp+r8hw/X
hZ0Z9Qr99FbPEHZh1K56fnN3xfkdyxk5Lz6l1W0cvILR5ZiqsFYL4JWMXJ92
GcAWwq5iPWnXaWdTd3gVoyYaj2Yr74RXM9qxda2/zhHYjVHT6JwCp6Owu1hP
PDVHTM2CPRg5/GqyfHsBvIZRyskJphV5sKeYfzlz8l8ozk/xYnSgJONgwHd4
LaP12lv7ta6HvUV7+ef/G6WC81fWMbqblO2sbQL7iPWv/TDlCMV5L76M/J9n
d+4zGl7PiK3Yqjl4KrxBxOcCNzUVN9hPPH//A+89t8MbRXyfGdj3WgTsz8gv
P883W3E+zSZGNlfvVdunwpsZrTtbm5B2Ed4i5l9pxAvzDDhAxOdDuePnlsKB
jBp97tx21WN4K6MPxS/vfvkGbxPzp+7u6twaOEi8z17BN7QV5/lsZ7S5YN4s
HwM4mNHH3s9MYwfBIWJ8b1ib9dEa3sGopnO3xrlz4VBGs1L1txUvhXcyuh2a
e8E4EN4l4r/tmzqT9fBuRtHlR/urKM43ChPtf+1Vm7Qf3sNoTLBSdPdzcDgj
2j53zjMGRzAamuj9y+8OHMnI8rH/DvMX8F4RXzVnrb5eBkeJeBQ+4VR0I5zn
tI+RuUpJ6jTF+U77hXMN5i42g6MZZeRt+SQNhGMY6a1f6XnCAo5l5NNr0o1O
ivOmDjAq99KqsPOCD4p4ZrG5i9Eq+BCjHn10Nb7th+PEfqFxWoDJRvjw/+bv
xaefzsDxYr/hY3D/50X4iNi/ae/qHnIbPsooOKfdvG2ZcILYjzU4bmP4BT7G
aFJRafaiP/BxRm+DuNqpGviEGP+qVTr/Kc7/OsmoVbv+5pWmcKLoz439d55b
wkli/dt24EyRBXxK7DfPNjfJmg0nM9qgc3bfTTf4tJjPs85b7dwIn2F0bmP8
+tqt8FlGLY4o9xgQD58T99/QOKo7h1MYXfU+GrcmDU5ltOpgbW7De3CamP9X
F6nOrYfPM3K/0vlUzHs4ndGZ7BndU5rh/LcLYr9j2D+qUgPOYORy697yH3rw
RUaTz16q7zoAvsTo69s/Uf2HwBKjcEOdNb8dYSbWk4q7UsxsmIt4auBzuovi
PLtMRga3sl69c4cvi/X2QzR98YCviP2s4+AHO8/BV0V8Nz29bupN+Bojxwsm
mW8y4SxGSlNa5bcog7MZvWv5zmZMBZzDaN/mE49y2inO/2MU9rZZiktLxfl/
jLYtN0xa3Bq+KZ7/pGud7rSCc8X+qM8099V28C0R/4sDQlRGwbcZedmOuO4z
D74j4nP92OFHFecb3mU0MFPP8c0x+J74nonL7T0uEr7PyMznu+v4q/AD8T1j
1Se77BL8kNHhNNNRq9/AeYw+EZ1e9Qh+JOLFC8soz9fwY0Z7JiZMmdMD50E+
YeQbebNOswX8VMSv6SpHrk6B88V+P3ta02MD4QIxn8f/7hQ4Di4U86Ol2uoU
R7iI0ZfQ0O/NZsDFoj83Z645tg1+JvYb3g67vcLgEvE+P+daeafApYzOOuxI
rk2Gn4vvua+vQjbWwC8YLS5zGG73Hn4p4uXD3Nn7SuBXjGaUGE8Y1grne75m
VD9B51a4KvyGUZ9+D26sMIDfivUj4IZ0URd+x+hByNI9v83g94zigza/zLCH
P4j9po3r16eK80w/MlKNeF9dvgf+xGiY/46lt6PhMkY5eR0SVx6AP4vvhQth
Jg6Z8BexP3repk/gZbhcrHeT/1htqoUrGAV5OKkvrIErxX42eISReZNOf10l
1rfypzqjv6H8q3h/PuWdQnugvFrst6ynLXPpCn8T41Gj9KTLdPi72F95prc6
sAz+Ifaz3Xz73zKCfzLq98vkqdZRuIaR+nftU80Xwb8YefdsOHrWbvg3I52G
+oN+PIL/iO+35UPz7+XCtYzmKCvtkUrhOkY919k9CVHG+bz14vu18X+jqxrD
DTht73S0S1Uerm/I6Y1HeOtleihvxOl9J1Pb4eZwY06BzcymTlsGK3GacbvO
pW4srMz/PZ+4CafJQYfWGnjBTTmdrHU4z0PhZpzOv9+5IWEP3JxTyfWKAKVD
sAqnkFOhT75zuAWnofQkKv813JKTp59z1qASWJWTUqFetEUV3IrTo1CPwg9d
cD5za05jdatDojXgNpzMw8q3BC2H1cTve+lhbWUPt+VUVNx6sKcjrM7/PX+6
HSdNy+drYiLg9pz2+j6Zau4Fa3CKmO42wUBxfQdOtrGLV5e9gDtymjdJs0Dp
OtyJU5NLffx1iuDO/N/ztTU5jf+8/PEaLZyf3YXT2YBUm3wbuCsnhyUOO/d8
x/VanGr+SBNLzFHejdOhk9v8Ls6HtTmdyLMMXO0E6/B/zyPX5bQnd6XFskuw
HqdJRwJWZF6Bu3PqrOEsBb2De3Ba2qaNV8QxWJ9Th+2dwx5Wwz059R7oWmEy
EOen9+L0n2dPByVT2IBTn2qW4qAO95aV9+FEfc5eOTEb7stp5sWY7BWTYENO
x5wL2+cFw/04Zb3O7Kq5Be7PKX/1s9eP58NGnCJp9Hf7eNiYUyH1t/i2FR7A
/z1v3oRTnbeViV4FbCp+37v1vY1K4YGcfqvvGH7HSOuvB3Hq9nHIzwg32IxT
xyxz3/2z4cGcXjv5TY76jfpDxPuVEh5mzUW5OacnmTWLek+Fh3LKi52aVDkf
HsZpVH76qqAtsIV4X6HW84KT4eHifaZ1P/woCbYU4+XH67qUFJg4nYqd5lg1
tNtfW3EyGxlzKqEBbC3m8/ItPwYYwSNkHinmx7Za3VIreBSnb2mZyh+7wKM5
aRv01TwWBI8Rdox87JIMj+VUG3e7vfFl2IaT+4vqpF5L4HGcPnvwH/lP4PGc
Wp4IsVd9Dk/gdElt1OUmJ+GJnJImPXrhoqn915M4bZRUzYNbwpM5lXdUu67S
F57CaY7Bg7dq31B/Kqen/k7ql3VQbsvJOvpLaGVXeJoY752q62aOgu04Fd8s
KplhCNvL6k/nZMX0L23ygGeI+RFm+LzeHp4pxvfyvFBlb3gWp1fWx9dsmwfP
FuPVg5o9mgk7cMpuOGJfzm54jnhfvrubJi2D53LaUVbeXMkdnsdp0+a2JVHp
8H+cEnqbVRunwvPFePLeV2zzEl7AafTRMev3lsALOSUXnE2s/QU7cnJ5Yq6d
8AleJOJXXUP/SRnwYk6tVw9p6vUYXiLuZ9kqQqefzl8v5aT3u/L8szbwMk77
n8+nQ6awEyePKr9k9wGwM6d92bfqHEbDLqI/6nq7H7SEl3PScRqSfGAsvILT
+h1DfgxaCa/klN40cMPi6bArp4JDCcdbr4VXybxaZjcxXtqNWetsAbtzOqOt
9zl8Dewhu98aTjGNgzaF+cGeYv528zfbdQv24jSu4Eni0kJ4LadVvpfX+aTD
3pzs3vhMLr4Kr5OV+4h44nZk7tEbsC+nO587+s5qo/vX68V4KTS99aErvEHM
d7VTexurwn6cNGx9Il/Wo/5GTkb1+UmO/VHuL+Jr7sBbuo3hTWI/MNbslI8V
vFmM58ePXOfowFs4dS2un3WnDO0FcCqtbGbUxxzlgbL2t3I6MnRkycop8Dax
Xva+tSBlHxwk4vn03ybqM+HtYv3aFOTccSMcLPYru7U/SyFwCCfL7Qc17lvA
O2Tth3JSj3QtmREB7+Q0Mb3tlTRXeJeIJwkLWfJVeLeIb77zNh5LhcM4Hf6y
cnJWc72/3sPJrdf9wOQalIeL9dnYoKfmAziC086PG6KrSuFITh8mlN2psUf9
vZwu51ZaLFgPR4nxlpm+YWg5rt8n5r/eMkONj/B+Ud83p2i8Ba6P5hSQXLPN
0RiO4bQlekwThxFwLKdBr24YDG8NH+Dkc/5spVkwfJDTlLSY6+9c4UNiP/Lu
9cXg03Acp3uHbxSPCYMPc0r75pyTsxCOl/XnCKfna7MO0hb4qIgfUad6VLft
/tcJnBZYP9BIeILyY5xSM9ZeOZoDH+ek4miktnoffIJTv9CVt55Yo/5JTgYD
23SNK0d5ooiv2clhOulwkux+p2T9SZaVn+aUaGP7OawHfEbEI0uzQZYJ8FlZ
f86J+Hl9xtxfE1CeIqufyumTsecw80w4Tdb/85xGWJpXdu8Pp4t4y0ocEr3g
CzJncFIu3mdYtgm+KPan81XvXtDp8deXxHwcGmufvwaWRPx5sMEzqjHMZPW5
rD+ZnJz3MGWT/fBlWf+vcPLrknqv+zv4qph/udpnjW7D1zjNzdjMVoTCWSKe
fbbq6rUN98/m9G7S5PznjnCOrH/XZeU3OE2LCddcZwzfFPNrwd3gnYVwLqfr
+fUTAmzhW7L73ZaV35E9n7uy+9+T1b8v9g/XA+/fjIYfcPozx/3z1Er4oez6
PE7xcVeCFgzT/+tHsv4+5nT1pf4SveYofyLi3witvtlZKH8qay+f0xLfcl+n
NFxfIOLb48XLtXThQk5Rm7W8L1nh+iJZ/4plfibWQ5cxO0pOwyWcVD8eG9Zm
JtorlfX3OafoBo5dB9n1/OsXIp6UhgRI+bj+paz/r2R+LWv/Dacqyy3j54XD
bznt6pfV2W4N/E7m97L7fRDx563qnBM90Z+PnGa7eDZIrkP5JxEPvO1jGgWg
vEzs93bsXV59Ef4sq/9F9nzLZe1VyFwp63+VrH9fZfevlt3/m3g+Wx0T9Wcb
/PV32fP9IeLNZt+0Q0N7/fVPTiu31wbv2A7XyPrzS1b/t+x+f2Tt1cr6Vyd7
HvWy+g0y/71/w0za/crdx/oHyhtl/nt948x/21fK/Pf3KsvKm2T+27+mmXSj
y6jbb9/BzWT1m8v6oyJzC1n9lpn/Ph9VWX9byX5Pa1n/2mSSar/Pl1Z/xv3V
xP3uWrco79b3r9vK6qvLytvJ7tdedr2G7Pd3kNXvKOt/J1l/OsusKXteXWTt
d5W1ryWr3032/LRl7enInreurD092fXdM+le72lFKqz3X/eQ3U///8v/D+G7
5oM=
       "]], 
      LineBox[{{7976., -12.676076274775909`}, {7977., -12.676076274775909`}, {
       7978., -12.96375834722769}, {7979., -12.4529327234617}, {
       7980., -13.369223455335854`}, {7981., -14.0623706358958}, {
       7982., -12.676076274775909`}, {7983., -13.369223455335854`}, {
       7984., -13.369223455335854`}, {7985., -14.0623706358958}, {
       7986., -14.0623706358958}}], 
      LineBox[{{7988., -13.369223455335854`}, {7989., -12.96375834722769}, {
       7990., -13.369223455335854`}, {7991., -14.0623706358958}, {
       7992., -13.369223455335854`}, {7993., -13.369223455335854`}, {
       7994., -12.96375834722769}}], 
      LineBox[{{7996., -12.96375834722769}, {7997., -14.0623706358958}, {
       7998., -14.0623706358958}}], 
      LineBox[{{8001., -13.369223455335854`}, {8002., -13.369223455335854`}, {
       8003., -13.369223455335854`}, {8004., -12.96375834722769}, {
       8005., -12.676076274775909`}}], 
      LineBox[{{8007., -14.0623706358958}, {8008., -13.369223455335854`}, {
       8009., -14.0623706358958}}], 
      LineBox[{{8011., -14.0623706358958}, {8012., -14.0623706358958}, {
       8013., -13.369223455335854`}, {8014., -13.369223455335854`}, {
       8015., -14.0623706358958}, {8016., -13.369223455335854`}, {
       8017., -14.0623706358958}, {8018., -14.0623706358958}}], 
      LineBox[{{8025., -14.0623706358958}, {8026., -13.369223455335854`}, {
       8027., -14.0623706358958}}], 
      LineBox[{{8032., -13.369223455335854`}, {8033., -14.0623706358958}}], 
      LineBox[{{8035., -14.0623706358958}, {8036., -14.0623706358958}, {
       8037., -14.0623706358958}}], 
      LineBox[{{8042., -14.0623706358958}, {8043., -14.0623706358958}}], 
      LineBox[{{8081., -14.0623706358958}, {8082., -14.0623706358958}, {
       8083., -14.0623706358958}}]}}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      NCache[
       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
      1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
      1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -15.273793688306661`},
  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]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 8142}, {-15.273793688306661`, 1.4179514231559174`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "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]}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{{3.785003466427495*^9, 3.7850034763522387`*^9}, {
   3.785003506656761*^9, 3.7850035279403973`*^9}, {3.785003558770405*^9, 
   3.785003582849557*^9}, 3.7850036590215187`*^9, {3.78500372032237*^9, 
   3.785003755582879*^9}, {3.785003794389751*^9, 3.785003801551887*^9}, {
   3.7850038600098743`*^9, 3.7850039066366453`*^9}, {3.785003995477704*^9, 
   3.7850040433445587`*^9}, 3.78500482809217*^9, 3.7850053303088083`*^9, 
   3.785006116816091*^9, {3.785056891624435*^9, 3.785056917777589*^9}, {
   3.7850572794770412`*^9, 3.7850572903202963`*^9}, 3.7850576616058693`*^9, 
   3.785057733942786*^9, 3.785063510525573*^9, 3.7850646381587*^9, {
   3.789820924287415*^9, 3.7898209511296062`*^9}},
 CellLabel->
  "Out[215]=",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"tData", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", 
       RowBox[{
        RowBox[{"Quantity", "[", 
         RowBox[{"13", ",", "\"\<Minutes\>\""}], "]"}], "+", 
        RowBox[{"Quantity", "[", 
         RowBox[{"32.95", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", 
       RowBox[{
        RowBox[{"Quantity", "[", 
         RowBox[{"42", ",", "\"\<Minutes\>\""}], "]"}], "+", 
        RowBox[{"Quantity", "[", 
         RowBox[{"21.57", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16", ",", 
       RowBox[{
        RowBox[{"Quantity", "[", 
         RowBox[{"2", ",", "\"\<Hours\>\""}], "]"}], "+", 
        RowBox[{"Quantity", "[", 
         RowBox[{"55", ",", "\"\<Minutes\>\""}], "]"}], "+", 
        RowBox[{"Quantity", "[", 
         RowBox[{"5.77", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"32", ",", 
       RowBox[{
        RowBox[{"Quantity", "[", 
         RowBox[{"14", ",", "\"\<Hours\>\""}], "]"}], "+", 
        RowBox[{"Quantity", "[", 
         RowBox[{"31", ",", "\"\<Minutes\>\""}], "]"}], "+", 
        RowBox[{"Quantity", "[", 
         RowBox[{"15.87", ",", "\"\<Seconds\>\""}], "]"}]}]}], "}"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7850582222461777`*^9, 3.785058233197236*^9}, {
  3.785091499131219*^9, 3.785091529298004*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tFit", "=", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{
    RowBox[{"Log2", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"#1", ",", 
         RowBox[{"#2", "/", 
          RowBox[{"Quantity", "[", "\"\<Days\>\"", "]"}]}]}], "}"}], "&"}], "@@@",
       "tData"}], "]"}], ",", "x", ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.785058234789083*^9, 3.785058316373475*^9}, {
   3.785058353021956*^9, 3.785058353982479*^9}, 3.7850583994503117`*^9, {
   3.78505845364515*^9, 3.785058453928129*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{
       RowBox[{"-", "10.919686950725108`"}], "+", 
       RowBox[{"2.006789423582779`", " ", "x"}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Linear", {-10.919686950725108`, 
     2.006789423582779}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{
    1., 1., 1., 
    1.}}, {{2, -6.731720879223929}, {3, -5.0872394411908575`}, {
     4, -3.0398494069726665`}, {5, -0.7248861453540679}}, {{1., 2.}, {1., 
    3.}, {1., 4.}, {1., 5.}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.785058261893118*^9, 3.7850583167277937`*^9}, 
   3.7850583541983747`*^9, 3.7850584046666822`*^9, 3.785058454267872*^9, 
   3.785091533090296*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Log2", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#1", ",", 
          RowBox[{"#2", "/", 
           RowBox[{"Quantity", "[", "\"\<Days\>\"", "]"}]}]}], "}"}], "&"}], "@@@",
        "tData"}], "]"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"tFit", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{
       RowBox[{"ColorData", "[", "97", "]"}], "[", "2", "]"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.785057971969727*^9, 3.7850580830023727`*^9}, 
   3.785058221488821*^9, {3.7850583313816633`*^9, 3.785058407210636*^9}, {
   3.7850584584440813`*^9, 3.785058458720736*^9}, {3.785098280897551*^9, 
   3.785098288548439*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],

Cell[BoxData[
 GraphicsBox[{{{}, {{{}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       LineBox[{{2., -6.731720879223929}, {3., -5.0872394411908575`}, {
        4., -3.0398494069726665`}, {5., -0.7248861453540679}}]}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAnX5iBjFkez582GAu4dYlwMTTIExX
IFk/gA9r0k3VJcD/xr6DICBpP4VGdXa60yXAncCNHwUgeT+OtIm+k9AlwGw9
dW33H4k/oZCyTkbKJcDT+2iU8B+ZP8ZIBG+rvSXAB9viJ+0fqT8QuaevdaQl
wKHKn3HrH7k/pZnuMApyJcCur4nbbC7KP3eEpsi3BCXAZz/Rmexy0z9Y1P38
o54kwG7lKeO0rtk/JSB4y5A6JMAKIYQn3zjgP5qVHC8CziPAjhDLKqFg4z8f
cGAvsmgjwGLbVL8DzOY/S3TOxOb6IsBxxYRibyfqP2R0X/QbjyLAsXAMUxhJ
7T+M2Y/AjyoiwKF7a+owV/A/XGjqIYi9IcCCn/xR9OzxPztc5B+/VyHAANPg
QLx68z8HTAG49vMgwCZ0ZnhUKvU/emVI5bKHIMDk9ZdWC732P/7jLq+tIiDA
SuVqfZJx+D9QGH8cWmofwE7kkCseHvo/f2DmDlqTHsDqw2KAyK37P8xyjDrX
yh3ALhHWHUNf/T9p2IaQXfEcwAo/9WHc8/4/JAjAH2EmHMBH7Vr3IlUAQDCL
TdltShvA2MJkAVosAUAUBiHHe3IawLWIxF4g9QFAFksz7gapGcBmBXXgzs4C
QGnjmT+bzhjAY3J7tQyaA0DaRT/KrAIYwC9nK85MYQRAJKAqib86F8DPEiwL
dTkFQL1NanLbYRbAu66CmywDBkB2xeiUdJcVwHsBKlDM3QZAfpC74Ra8FMAK
3HpIbrQHQF9T1GK65BPA5aYhlJ98CEBe4Csd2xsTwJQoGQS5VQlArsDXAQVC
EsCQmmbHYSAKQBprwh+sdhHAWpRdzgznCkBhDfNxVK8QwPhEpfmfvgtA8AXw
3AuuD8Dj5UJ4wocMQFiFd0hpGg7Aoj0xG81hDUBgq6cI2WQMwK2FdRFnLQ5A
pGVVO0PMCsCHVWNLA/UOQJoPj9avOwnANdyhqYfND0AyYHHGLokHwJgpm63N
SxBABEXRKKjzBcB/wI2YS7kQQHTQ2d8zPATATRtVpcokEUCcS27/wYwCwEFu
x1sRiRFAAFuAkUr6AMCfHGIkzPURQAgidvDKi/6/JMOnlk5bEkCAtuai9Vz7
v5AtwirSvhJAYCpvJiU++L9m8wTRySoTQIDrSFN52/S/YrHyIImPE0AY1R1l
wrLxv2yCU/xKkRNA0OmEUqek8b91U7TXDJMTQIj+6z+MlvG/iPV1jpCWE0Dw
J7oaVnrxv645+fuXnRNAyHpW0OlB8b/5wf/WpqsTQIAgjzsR0fC/kNIMjcTH
E0DQ1wAkwN7vv5qjbWiGyRNAMAHP/onC77+jdM5DSMsTQKAqndlTpu+/thaQ
+svOE0CAfTmP523vv9xaE2jT1RNAICNy+g797r8n4xlD4uMTQJBu49BdG+6/
MLR6HqTlE0AAmLGrJ//tvzqF2/ll5xNAcMF/hvHi7b9MJ52w6eoTQFAUHDyF
qu2/cmsgHvHxE0AAulSnrDntv3w8gfmy8xNAYOMignYd7b+FDeLUdPUTQNAM
8VxAAe2/mK+ji/j4E0CwX40S1Mjsv6KABGe6+hNAEIlb7Z2s7L+rUWVCfPwT
QICyKchnkOy/tCLGHT7+E0AA3PeiMXTsv77zJvn//xNAYAXGfftX7L+8GFpU

        "]]},
      Annotation[#, "Charting`Private`Tag$141775#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.9375000000000002`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1.9375000000000002`, 5.}, {-6.731720879223929, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.785058012185809*^9, {3.785058062951374*^9, 3.7850580832349863`*^9}, {
   3.7850583426184177`*^9, 3.785058408046142*^9}, {3.785058455108177*^9, 
   3.785058459228675*^9}, 3.785091533739656*^9, 3.785098295086089*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "^", 
  RowBox[{"tFit", "[", "7", "]"}]}]], "Input",
 CellChangeTimes->{{3.785058386832859*^9, 3.785058477063302*^9}, 
   3.78506383677318*^9, {3.7850915410821342`*^9, 3.785091541656537*^9}, {
   3.78509844755682*^9, 3.785098483105493*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],

Cell[BoxData["8.741246451133405`"], "Output",
 CellChangeTimes->{{3.785058395254241*^9, 3.7850584775526667`*^9}, 
   3.785063837484005*^9, {3.785091534969634*^9, 3.785091541930415*^9}, {
   3.7850984450125093`*^9, 3.785098483493142*^9}},
 CellLabel->"Out[97]=",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Quantity", "[", 
       RowBox[{"2", ",", "\"\<Hours\>\""}], "]"}], "+", 
      RowBox[{"Quantity", "[", 
       RowBox[{"55", ",", "\"\<Minutes\>\""}], "]"}], "+", 
      RowBox[{"Quantity", "[", 
       RowBox[{"5.77", ",", "\"\<Seconds\>\""}], "]"}]}], ")"}], "16", " ", 
    "2"}], ",", "\"\<Hours\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.785098739458117*^9, 3.785098761159773*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],

Cell[BoxData[
 TemplateBox[{"93.38462222222222`","\"h\"","hours","\"Hours\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.785098744320797*^9, 3.785098762761623*^9}},
 CellLabel->
  "Out[100]=",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   RowBox[{"Quantity", "[", 
    RowBox[{"415330.76", ",", "\"\<Seconds\>\""}], "]"}], ",", 
   "\"\<Hours\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.789864568431135*^9, 3.7898646115539017`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"627962e9-b7e0-4522-91c1-a872c1829f1a"],

Cell[BoxData[
 TemplateBox[{"115.36965555555555`","\"h\"","hours","\"Hours\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.789864611844674*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"2ccc1fbf-388f-4931-a956-b768507e520d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   RowBox[{"Quantity", "[", 
    RowBox[{"528330.62", ",", "\"\<Seconds\>\""}], "]"}], ",", 
   "\"\<Hours\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.789864620940146*^9, 3.7898646325142736`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"a8cc9c6c-6fc3-4b82-9191-4d7c4984dc2c"],

Cell[BoxData[
 TemplateBox[{"146.75850555555556`","\"h\"","hours","\"Hours\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.789864632797861*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"3e2cba64-6d05-4547-852b-bb9117d96801"]
}, Open  ]]
},
WindowSize->{759, 1196},
WindowMargins->{{Automatic, -1918}, {Automatic, 2}},
Magnification:>0.8 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3307, 78, 176, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
Cell[3868, 100, 668, 18, 49, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
Cell[4539, 120, 417, 7, 26, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
Cell[4959, 129, 819, 23, 26, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
Cell[5781, 154, 1819, 48, 67, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
Cell[7603, 204, 963, 26, 42, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
Cell[8569, 232, 756, 18, 43, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
Cell[9328, 252, 2200, 55, 99, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
Cell[11531, 309, 1525, 35, 93, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
Cell[13059, 346, 1310, 29, 26, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
Cell[14372, 377, 660, 15, 26, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
Cell[15035, 394, 1672, 42, 72, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
Cell[16710, 438, 506, 11, 26, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
Cell[CellGroupData[{
Cell[17241, 453, 321, 9, 26, "Input",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"],
Cell[17565, 464, 17018, 333, 199, "Output",ExpressionUUID->"305f9fe3-8a8d-4a5c-b42b-c23e67a6afbb"]
}, Open  ]],
Cell[34598, 800, 1933, 50, 87, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
Cell[36534, 852, 1515, 37, 87, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
Cell[CellGroupData[{
Cell[38074, 893, 1315, 33, 47, "Input",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"],
Cell[39392, 928, 51099, 912, 202, "Output",ExpressionUUID->"e1f95041-b6aa-4781-9b15-f8e2c4b7aff3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90528, 1845, 2334, 51, 67, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
Cell[92865, 1898, 39983, 756, 199, "Output",ExpressionUUID->"8e44c7c9-5ce5-472b-9910-b5854ac7e6dc"]
}, Open  ]],
Cell[132863, 2657, 1054, 27, 67, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
Cell[133920, 2686, 1187, 25, 67, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
Cell[CellGroupData[{
Cell[135132, 2715, 3066, 75, 137, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
Cell[138201, 2792, 42678, 808, 196, "Output",ExpressionUUID->"79776383-7b0a-4c8c-96fb-ec0fcc44679e"]
}, Open  ]],
Cell[180894, 3603, 482, 15, 26, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
Cell[CellGroupData[{
Cell[181401, 3622, 1084, 23, 26, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
Cell[182488, 3647, 1648, 23, 30, "Output",ExpressionUUID->"c0e31b1c-6cff-4223-a724-2c5b4f4824e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184173, 3675, 650, 17, 26, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
Cell[184826, 3694, 848, 12, 30, "Output",ExpressionUUID->"13476d45-5bbd-4649-8fa4-e986b06fb75c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185711, 3711, 558, 16, 26, "Input",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"],
Cell[186272, 3729, 351, 6, 30, "Output",ExpressionUUID->"df7c4f95-664c-4667-af1e-fe8e47cb5783"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186660, 3740, 1347, 36, 87, "Input",ExpressionUUID->"c12fa5e5-5063-4b4c-9c3f-33314d3bf3a5"],
Cell[188010, 3778, 435, 10, 30, "Output",ExpressionUUID->"2914ae7c-4997-40c6-ae62-793d718e2cea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188482, 3793, 515, 15, 26, "Input",ExpressionUUID->"999b2b2d-cb71-4e35-875f-2e890e432c80"],
Cell[189000, 3810, 239, 5, 30, "Output",ExpressionUUID->"6c8cbe80-6b6a-4d30-a4d8-b1258c4d2ceb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189276, 3820, 229, 5, 26, "Input",ExpressionUUID->"13f9cb8e-33ff-4686-bbb8-4d58374d239f"],
Cell[189508, 3827, 208, 3, 30, "Output",ExpressionUUID->"0d50940b-c5f5-44ca-810a-714e1ad8f681"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189753, 3835, 553, 16, 26, "Input",ExpressionUUID->"8272a1c8-4c17-4097-8634-a997066bf642"],
Cell[190309, 3853, 23348, 402, 185, "Output",ExpressionUUID->"6ff7dd61-33ec-4b7b-bbe0-cb1daa8344fc"]
}, Open  ]],
Cell[213672, 4258, 2099, 61, 87, "Input",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"],
Cell[CellGroupData[{
Cell[215796, 4323, 1206, 30, 47, "Input",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"],
Cell[217005, 4355, 21683, 442, 200, "Output",ExpressionUUID->"e31e8467-ff32-46ec-80d5-174702afc3f4"]
}, Open  ]],
Cell[238703, 4800, 1458, 44, 94, "Input",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"],
Cell[CellGroupData[{
Cell[240186, 4848, 1042, 25, 47, "Input",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"],
Cell[241231, 4875, 24214, 484, 188, "Output",ExpressionUUID->"8893f64b-517b-443f-b85a-3a6f0281d005"]
}, Open  ]],
Cell[CellGroupData[{
Cell[265482, 5364, 664, 18, 26, "Input",ExpressionUUID->"6bf8aea7-b7b9-4d5b-a161-210bee9bd86a"],
Cell[266149, 5384, 17301, 312, 198, "Output",ExpressionUUID->"79498c18-6a57-441c-9406-458e4e9973ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283487, 5701, 1167, 25, 26, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
Cell[284657, 5728, 76969, 1284, 190, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
}, Open  ]],
Cell[361641, 7015, 1553, 40, 87, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
Cell[CellGroupData[{
Cell[363219, 7059, 632, 15, 26, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
Cell[363854, 7076, 1038, 28, 40, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[364929, 7109, 1030, 27, 47, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
Cell[365962, 7138, 3907, 81, 193, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[369906, 7224, 347, 6, 26, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
Cell[370256, 7232, 316, 4, 30, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[370609, 7241, 589, 15, 47, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
Cell[371201, 7258, 253, 5, 32, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[371491, 7268, 333, 7, 26, "Input",ExpressionUUID->"627962e9-b7e0-4522-91c1-a872c1829f1a"],
Cell[371827, 7277, 226, 4, 32, "Output",ExpressionUUID->"2ccc1fbf-388f-4931-a956-b768507e520d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[372090, 7286, 333, 7, 26, "Input",ExpressionUUID->"a8cc9c6c-6fc3-4b82-9191-4d7c4984dc2c"],
Cell[372426, 7295, 226, 4, 32, "Output",ExpressionUUID->"3e2cba64-6d05-4547-852b-bb9117d96801"]
}, Open  ]]
}
]
*)