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[    453791,       8867]
NotebookOptionsPosition[    448043,       8772]
NotebookOutlinePosition[    448463,       8789]
CellTagsIndexPosition[    448420,       8786]
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}, {3.802427601491159*^9, 
  3.8024276275718613`*^9}, {3.80255411623153*^9, 3.802554136732387*^9}, {
  3.802554309395567*^9, 3.802554327528305*^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[{
     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"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"Method", "->", "\"\<Spline\>\""}]}], "]"}], "[", "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}, {
   3.790881720932847*^9, 3.7908817264181337`*^9}, {3.7923749537341022`*^9, 
   3.792375130677185*^9}, {3.7924029511957493`*^9, 3.792402985526917*^9}, {
   3.7924030254849777`*^9, 3.792403084016642*^9}, {3.792403114379051*^9, 
   3.7924031279076014`*^9}, 3.792403261936502*^9, {3.792404599160046*^9, 
   3.792404604084053*^9}, {3.8020866648177557`*^9, 3.802086709879932*^9}, {
   3.802166142883629*^9, 3.802166150569436*^9}, {3.802166213474002*^9, 
   3.8021662967565603`*^9}, {3.802419515484016*^9, 3.802419528552248*^9}, {
   3.802419566209362*^9, 3.8024195904623747`*^9}, {3.802419634366872*^9, 
   3.802419638891492*^9}},
 CellLabel->"In[9]:=",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[10]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Sf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "y", "}"}], ",", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", "=", 
        RowBox[{
         RowBox[{"Cf", "[", "dat", "]"}], "[", "y", "]"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"Interpolation", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"#", ",", 
            RowBox[{"NIntegrate", "[", 
             RowBox[{"c", ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "0", ",", "#"}], "}"}]}], "]"}]}], "}"}], 
          "&"}], "/@", 
         RowBox[{"Normal", "[", 
          RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}], "]"}]}], "]"}], "[", 
       "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}, {3.79088174691607*^9, 
   3.790881879203828*^9}},
 CellLabel->"In[11]:=",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[12]:=",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],

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[13]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"getData", "[", "\"\<~/doc/research/hadamard/data\>\"", "]"}]}], 
  ";"}]], "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}, {3.792404552519981*^9, 
  3.7924045542821417`*^9}},
 CellLabel->"In[14]:=",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[15]:=",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
    Association[
    "InitialData" -> {{12, 64, 25.}, {12, 128, 50.}, {12, 128, 50.}, {
       16, 64, 25.}, {16, 128, 50.}, {16, 64, 50.}, {20, 64, 25.}, {
       20, 128, 50.}, {20, 256, 50.}, {20, 256, 50.}, {20, 256, 50.}, {
       20, 256, 50.}, {24, 128, 50.}, {8, 64, 25.}, {8, 128, 50.}}, 
     "InitialShape" -> TypeSystem`PackageScope`Limited[
       TypeSystem`PackageScope`ColumnShape[
        TypeSystem`PackageScope`Limited[
         TypeSystem`PackageScope`RowShape[{
           TypeSystem`PackageScope`AtomShape[34], 
           TypeSystem`PackageScope`AtomShape[34], 
           TypeSystem`PackageScope`AtomShape[60]}], 
         DirectedInfinity[1], 3, {All}]], 15, 
       DirectedInfinity[1], {}], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Tuple[{
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Real]}], 15], "Meta" -> 
     Association["ID" -> 163174602661232], "RowTarget" -> 20, "ColumnTarget" -> 
     20, "Shape" -> TypeSystem`PackageScope`Limited[
       TypeSystem`PackageScope`ColumnShape[
        TypeSystem`PackageScope`Limited[
         TypeSystem`PackageScope`RowShape[{
           TypeSystem`PackageScope`AtomShape[34], 
           TypeSystem`PackageScope`AtomShape[34], 
           TypeSystem`PackageScope`AtomShape[60]}], 
         DirectedInfinity[1], 3, {All}]], 15, 
       DirectedInfinity[1], {}], "Type" -> TypeSystem`Vector[
       TypeSystem`Tuple[{
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Real]}], 15], "Path" -> {}, "BaseIndices" -> {}, 
     "DisplayedRowCount" -> 15, "DisplayedColumnCount" -> 3, "DataRowCount" -> 
     15, "DataColumnCount" -> 3, "SortPaths" -> {}, "SortDirections" -> {}, 
     "HiddenItemsMap" -> Null, "UpdateType" -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{
     TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               RawBoxes["12"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["64"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["25.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["12"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["128"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["12"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["128"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["16"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["64"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["25.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["16"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["128"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["16"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["64"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["64"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["25.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["128"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["256"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["256"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["256"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["20"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["256"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["24"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["128"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["64"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["25.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes["8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 1}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["128"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 2}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["50.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 3}, 
                "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    StringJoin["Show ", 
                    Which[
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    ToString[
                    ReplaceAll[
                    Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], 
                    Key[
                    Pattern[TypeSystem`NestedGrid`PackagePrivate`x, 
                    Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""]], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    StringJoin["Hide ", 
                    Which[
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    ToString[
                    ReplaceAll[
                    Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], 
                    Key[
                    Pattern[TypeSystem`NestedGrid`PackagePrivate`x, 
                    Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""]], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    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}, Spacings -> {0, 0}, Alignment -> Left,
           Dividers -> All, FrameStyle -> GrayLevel[0.7490196078431373], 
          BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
         LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, 
         ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     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`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             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`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; 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`$vPos$$, 
             TypeSystem`NestedGrid`PackagePrivate`$hPos$$]}], 
          TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     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`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[
     Framed[
      Dynamic[
       Replace[
        MouseAnnotation[Null], {
        TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
           Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
           Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
            Blank[]]] :> (
          Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
           TypeSystem`NestedGrid`PackagePrivate`path$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
           TypeSystem`NestedGrid`PackagePrivate`pathType$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
           TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
           TypeSystem`NestedGrid`PackagePrivate`localHold[
            TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
          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, 15}], FontSize -> 1]}, 
    DynamicBox[ToBoxes[
      Dataset`DatasetContent[
      1, "Path" -> TypeSystem`NestedGrid`PackagePrivate`$path$$, "Grid" -> 
       TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[
        TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
       TypeSystem`NestedGrid`PackagePrivate`$state$$, "VPos" -> 
       Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
       Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
       TypeSystem`NestedGrid`PackagePrivate`$topBar$$, "BottomBar" -> 
       TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[
        TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]], StandardForm],
     ImageSizeCache->{163., {155.296875, 159.703125}},
     TrackedSymbols:>{
      TypeSystem`NestedGrid`PackagePrivate`$state$$, 
       TypeSystem`NestedGrid`PackagePrivate`$grid$$}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>
     Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]; 
      Needs["Dataset`"]; 
      TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = CreateUUID[]],
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.790500873928317*^9, 3.790680744086668*^9, 
  3.790681304959074*^9, 3.790881552322233*^9, 3.790881662895382*^9, 
  3.7923746610938683`*^9, 3.792404584560915*^9, 3.793457947950061*^9, 
  3.801993488439518*^9, 3.8021659380229473`*^9, 3.802177639203734*^9, 
  3.8023535290439157`*^9, 3.8025515944029284`*^9, 3.802689200114045*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"50478f07-ce1f-4ccf-b25f-71f47b0f2386"]
}, 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]", "128"}], "&&", 
       RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sample20", "=", 
   RowBox[{
    RowBox[{"d", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"#n", "\[Equal]", "20"}], "&&", 
        RowBox[{"#N", "\[Equal]", "256"}]}], "&"}], "]"}], "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "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}, {3.792374662080278*^9, 3.7923746621818542`*^9}, {
   3.792404618078377*^9, 3.792404618278862*^9}, {3.79240470105615*^9, 
   3.792404701157148*^9}, {3.792404764681065*^9, 3.7924047648849792`*^9}, {
   3.792404827458228*^9, 3.792404849799734*^9}, {3.8019935044318123`*^9, 
   3.801993504950218*^9}, {3.802165933059615*^9, 3.802165951654866*^9}, 
   3.802166521639855*^9, 3.80235352882937*^9, {3.8026891863603067`*^9, 
   3.8026892468326187`*^9}, {3.802701602078568*^9, 3.802701602206174*^9}},
 CellLabel->"In[80]:=",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->CompressedData["
1:eJxTTMoPSmViYGAQBWIQvck167C76RvHi5H9YFo1SvIZiHa1VAbTSRWMpz8B
6Td2C86DaKvFC96A6Oyw9WB6puzHs7E2bxyZJnwG0xmN5QlxQFoy4mQyiJY4
7XQgHki7uruC6QdFLWUNQPqe7OMaED2H0/RoI5C+cOL9CRD9KqH8fjuQXvAo
4CmIvlI65fd0ID1ji9wfEF1hnM4+A0jPmy3JAaK/zdWctRRIv5lsBKat0kSm
LQfSYceOgWmbtn0cO4E0R2gyJ4i2+Sybke/4xlHayxpMtyk8FyoA0kWdFcIg
Wj++Qh9Ex6VbG4DonFL79CJnoD+feoLpG9v1fHcFA83Pfwem9warG3aFvHGc
4mgLpgEOPaQr
  "],
 CellLabel->"In[84]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"3", "/", "\[Pi]"}]}], ")"}], 
      SuperscriptBox["x", "2"]}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c8", "[", "x", "]"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c12", "[", "x", "]"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c16", "[", "x", "]"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c20", "[", "x", "]"}]}], ",", 
     RowBox[{"x", " ", 
      RowBox[{"c24", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.0001", ",", "8"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", "\"\<c(\[Beta])\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"All", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3.8"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
      ",", "\"\<Low-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\)\!\(\*\
StyleBox[\" \",FontSlant->\"Italic\"]\)expansion\>\"", ",", 
      RowBox[{"n", "\[Equal]", "8"}], ",", 
      RowBox[{"n", "\[Equal]", "12"}], ",", 
      RowBox[{"n", "\[Equal]", "16"}], ",", 
      RowBox[{"n", "\[Equal]", "20"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"ColorData", "[", "97", "]"}], "/@", 
       RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQB2IQveXA9HOxNm8cBbfxXwXRSRekHoDog4/DXoDoE1pT
3oDoV4wb34PofheJryC6K6YUTC8s6ZGJA9LbCvrAtNi/5DAQvSqnNw5EL5Kt
qGsA0gJh4Z0ges7/W+cagXTJx5MXQXRDcvmLdiDddqvlFYh+dHL/LxCtbPfg
D4j+XLJBqgNIJ65YpgCiz0Zc1wDROh5huiDaIOj3ialA2s31H5hm0qz5Mx1I
M//K+guib6wr5JgBpPc0rwLT+xM3z1oKsr93F5jWO1yyEkR/Llq5FkSzzXc8
DqLX6KicANE80frTlwNp7n99YFpUs2oOiD4WVAOmUxw3cO4E0jMthblA9LMN
/4VA9CvOkyIguo7zeMh52zeOQf7MYSC6oIU1CkTzKJ4H01/Y7M932L1x5Ns1
8waI/qbBXZTo+MbRjsmtBET3nVatBtELFqWBaZGoRwYFQDp4qqMRiLY5bxhb
5PzG0eqcahyI/vD116O9wW8cnX78fgKiZULPr34OpKXDroFpANzG+Wc=
  "],
 CellLabel->"In[88]:=",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwV0Hc8FXofwHHzEG726BgnqyibrHK+P0pG9oiEiwhlRilEQ0fIynii49gu
ukZyTzYZ4eBaGde+x8xxZddj5LnPH5/X+/+PuJu/lQcDHR1d1r/9X7EHca1j
ulggcQZ/a+c51km+vc1JoLkDq3Iwa0ptCr5W82tlxLNgwBsqRt7frcKfaxq/
oZ0YAW9HWt8ns3fg+8Td6Q9Mo8D4l663k6lDeMLC5Ii9TQxE10YWp61O4fG/
WZeSHRKgRSMqMqxtAX9Q7QGxlcmQJfi+/1htDW+Xnitbq5oKcvhbVJr7Fr46
ZJp3hZwOhypuFfS63/FcN079FNDOAM07I2afyg/xPtq2K/qNb2E70NmF344e
uoSTh4IRCegtXjFkZzPB64jbM4OuOWBgvhN/pMQKyD/K2js/Fzr80xmU2TmA
aNGi8+ZMAajFtluzm/KAse5MlaJXIVztXbvr/hsf/FA+PNtZUgS7YlU/zp4R
BBteTZ49uRI4s8cbsJ4kAgxM16Pj/UqhOLTSYTMcB5U7QYdSle9gnmXXseKq
OHCMVixZq5YD7QL2bkO8FNR97rtJC64A94y87tcmZ6B68r6X7s1KkHvxyI0k
KgNuvSnT48T3kL/Lc9l27zw0lfV3spyuBlHR/dnTuirAX+T8bLilGrgDHv5w
8VYFH9I/l7Jd/wA5FrHy+kw1wCayV6nnk2GcfnajRUgDHgQYED3O1AKjrOYX
tmeXoM9r9LpyZy0oZm2M4LZ1QMrVg/vIsw6e2g4Em/sCDFk+J6SW1IN5N4N+
JF4XFFSbA9rkmsA6W/LEn1FX4MV5s/OJfU3AvEr82eqqD1OS04sOfs3QM1qi
p3/5KujHPpb/r10LJKVHkDd5DWE79G1eUsYnYK7gNV2lXQNzx7FXzSLt0CO+
h5W/aAWO4WZFK0Ht0Ky0UBc9YQVexI5m7p52kPHwOJMYbg1Ppj5s3XrUATfw
4i4FXTZQ6Zhkzzr6GaAqwnnliR1wORlJWSZ2g0DOAGE00AlEHrfohC51gxtm
c/boojPIZGnY5etQQPJ1AdMQ66+ApqVjd2kUYIp3s0e2LhDoxLCRYdgLpbu7
3QcYNxhyqq+n0vfDgdFKa2GpB8w8Vhlhv9EPfcXcvTjp20DLKllXq+wHx0ym
ixs5t4HhW0/SZcUBKL5gYJxK9ASsYl1b2vQAHJuAwtd8bzCuSJfV1h6C6p/7
7J+3fKG0wnz32fYXOKVhwVnUFQRkkzIFNZERqCfLq1P4g6HtK5vX4pURKMc2
ZD+/Ffzv388TBukjEJlI0ybT3Ydf3lxq4dAahUG5tGSs3gMIeCIblx4xBvrq
vC2zcw9B3ZJRvPTEBLhE1Yk7JkSA3rqLw02VCZiNrybJrEeAeVxTCsfNCagM
+9U51iwSvDoeYfx/nwAxhoUhAusTyNDaoKmaT8LzhcDSmD+fwKH4NLkxdQqq
uSQz472ewactsskgbhYqMJNhCV9ewMOZaXmywSzw1BT3FHMQQIHCxPnWfxaM
eEmjbPoEyMy1GnRvngWNzmPRIjIBtGS+nwtXnAN+6ex7WlnRwD32uoKzfw7G
akxVh0Ni4JMapUb9JBUeojs8w27xQCx1kpWVoMJLOfnOhfx4CDm9mSGsTgW/
VkEN/GI8yHMIhdE5U6GOdsuwyysBMuY9dChlVLBVG1fSCkqEwNf0rU6m80Ax
e8PRSUkC8Q3NnqhXC8DnNSDJwJoCO2bjbDJ5CxCJ4Xh1XikFuspCjHs+LkDX
N22ZSPsU8LtL7uaeX4CVvHuHBSUpULek2kXSWoSQOCM+mmkq2EwrdNQsLcKo
Rxq9KykNCBSp5jW0DGFQOLTt/AZWC7g+2Ox+hSBCodkfziRAbPRGhBOr8HDZ
lJ41gQTp/pszH0VXwfse84PIRhJc1h5iE766CtyYvMIpkWwg9qe4/Z2+CgFS
yaIW09lgvi/A46dJg3qSZE18VQ5Um4sGRoetgVFAzIC4YR483pdVrKP/BnG7
vEK+pYXwS6fYR1mdLcAbxYb6HJbB/TCd4cq1HVg9iQ3/XP8B9Oge1zL4fQfl
rtGYgcYa4C/QeuonvQ8lESvvSvubwERIkLew/BCY6Kq292NaQSwkRlzg/DFM
EpskXBY6IDS04eXAOh3K71kR9Bzvhje57R4HSgxIYLPcw+dLH2jax6mqJjAi
Qv9krtWlQZCOIgLrIhO6+IeQvF3ZMOgLNVW2SmFQCHk/5OWpUVi+SOKJjWRB
g0S22HnqODR0Jvyl3saK7t8Rub2WNwm88zrJG+JsKHn12CGgcwY+BmlEG4Sy
I8/jnYYaxr8hwUeX+ryeAzHrlW/kZlJheeeEQp/gSZQkdTBj67UA9xapMweO
nGhEwsKx8twSFEozLs+bcqECZaUr+nvLYHV65/rAPhe6KeZowX/0FU6Z+z5S
JHIjg5zCwIs7NMjt0Ofjv8aDpN3zOvTOrUP/g8tm3Xs8KNIorzD4wgYIOnZr
b6TzItk/PVwbr23C6Zjy7KwrfChtPP9D/fMt0FsV/ti4xIc4bKX1Eiu3gZ1Q
7vv7C36UlyS8ETi3A2neOURxFQHkuRXUj9T2QPMpNuLEsACSfT51qSn0OxDn
tsdCngoiSmlh2n+XfgA22HbBXkoIrbRnbn26sg94valE1nYh9E9fV3RLwQFI
2rd+wAeeQr8aJWuT5Y5AIk8pdpkHi/LNxJo4C34CVfXnuEArFrXrq2EzJeiQ
Id3mZz4/YdS/kETJ2aFDnXQ+ni9OiiDnaEMcvpEesRpdfRLeIIJ8BUir828Z
kFtH8bUlZ1Fkx2dzmBjAiNzClchiP0XRS2+TzkR9JiQVJpgxXSqGam4wj3xQ
ZkbHZQQFThMcesnUe53Cg0GrzTmbM2Y45B5/TPkkgEFfBuuqyy1xKEnUK7MW
i0HFu+vaZnY4tGg9blwqgUFWOnYG8W44FCJ0YStRBYMKes+6sD/CIXX6OQcf
KwwypHUlsxThkITlQYr3awxSOaLajBXj0K32fj+fdAwS4TwS/O0dDv3A/1Xg
n4lBmyrKpKvvcUjMOE4iJA+DMkMzSl804JB5zV332CoMWjtxp41xGIdMdkQZ
WocwaFQ4ijA8gkNtU3pJlFEMapEnGeWP41BcL/HR8AQGpVkO9evN4NCp1m9O
S1QMwmdoTz39ikNYZh5frm0Mknlnk225hkPnZGa/CH/HIN5GPzfxbziUYPX3
f84eYNDKXN5Kyw4OWTRGKSJGFjS01fAu6TsOlR1JM5mysKAGpjE/l30cctI/
VHVgZ0FFApvKSkc45JrK0uzJyYKSZdh3j49xqHbVoPA+Lwv6H0E9j3A=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208435#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQLVfWfei6o5Q9AxhcsN+39vxxdoUtcL5/zPWe/TJH
4PxV6/2/Nn2+Aucf/LTN56L8fThf8YPF6ZaeJ3D+qyUCm0O+voTza39p6u9i
fA/n8x6X265p+wnOL622vbzhzRc434mhdidT3nc4X3SJZWOe6i8430dCXHjp
uj9wvlx5p6KY9n84v6pqT8eFdwwOMP6MhUdSfxswwfkWEd3Gxn3McL5qyxx7
jqcscL6rxL4Nh1TY4Pzn1vOEuurZ4fw9x/tumh3mgPOFH9tO/KDIBedvLzZv
d6/ihvP7chwfNe/mQZj3hVPvrDgfnF/09NG93zH8cP5SVebnj30F4PwghS9h
F34h+JL+uZX6cwTh/IVHXUVEvYXg/PNlzn4nvyH44jEnrT5ME4bzFTrXzZ/r
IgLnO72S3r73GYLP3bYud02rKJw/NXPBHEUjMUT4NUrVcV5G8Oc8+Hy9vFEc
zpcqCX0SoSIB59s53ennOILgK0cc2mxXKAnnKy0y6HouJAXnPzL+d0PsEILv
wfDxmEieNJx/nCEnvZVPBs7n8HRrqNmD4CcdXeH9LE4Wwa8x2Cb3D8FXqRaf
eXeVHJz/f22bHr+PPMK+1ycmsi9D8CdqcH/9/x/BBwAP3+w9
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208435#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwVl3k8lN8Xx4VKEWYe+zKDtGiPEsI5JEJJhayFECUprUiIhBbpS4kKoaI0
IZRCslSYGWQ3M1L2JQmV9ff8/npe79d9vc4953PP59z7KLue3O/Oz8fHt2sB
H9//v7Rz0WXNBnLgruPR5xw9r3fb47fY1UE3yNx0p61x6o7+G61+RlDoGfhW
mWSCa3L11xS32OncCgKpxAeS63Qr9GuV3RZM7wmDPXMJLq0F9fpXf7Q32lpF
gt0hUTuWJEdf/8mBzHz7m6DO8xKpb/uhP53nDlGM22DUVS3iazakfzA+Re2N
xn/AWBQep+s9pp93nkP05cfD68SP1BqDP/ridrJzUjoJcE2h6dLW9Bl9bx3r
vp3vE8Guw7+o02wBfJK/XX8GH0IOBK11iBSE2CAPbp1LMiTJbJHKXSYEeDLs
gNfjFFDxG2bcaRaGJMtSvXsr02D74MiNvYpUMDPg5mz0TAebv6cbbntJwN/N
M6uqnmXAs+bPa8eapcCK0KJOrnsGtLsfzhyTUwB+QZuIGz6Z8GTKpn/zCA0Y
434zqowsSJC30i36pQQiTS97Dmhkw1mOxpchGVV4W1nrMHjmJUhi1grrihWQ
137W08CBAdbLFmhvCF0FrjV3OC1Jr0ApdVdYz7q1UPyCVbVYKQ+KnBJPqqdu
BsmMQ6ENpXnw94FdyPI36uD9cFj3kctryIi0IwRaNEDulnCO5uN8MC5a43Rs
vSac8zVJcl/5Bkq7Odk9W7dDrWeTzeaqN9CDi6xto3VB1cWdMnv0LSzMbRvy
69OD+n1Xrv73rAg8pWNo5Y4IGzRKfD+uK4a6Q4eiVBx2QPhai7W3aovh6Nbt
eVRVI+hYzum29ymBEZONmoWjRrAz6tL6fwdLIcTk5HaJOGP47Z+YGpPwAe7q
XPN+tsQM9jo2Xy9RKIed74/T7rMswTHQIqPPrxxO2a5e1e6wDzyTKkoo1eUQ
XD1wTG1gHwR35I4duVgBlfTJ8m6RA8BwjLEVaqoE+85jJk+PWYO4k6nqvluf
wfPzXHZpuD0oXCrV8+/5DFa29YF/NzvA6gfbDj7W+wLDg8OOyp0OgJwVUROD
X+DWHxkzNHSCU078owm7auB+VaRUhagz1DsVFXUtYEF28lOXGOkjwL2k3ihs
xwLffZNt3wKPwOCDZyNbGCzInTvppvz9CPD/rI7ZsZENgdYpt4/muIHcxrcf
4zhsYGDdqikHDzB7Ga+mo1MPsTFjJpFtXpD5cu9E6O+vkBTZuW6+xBfyd7/Y
sEWhEeL5X4sHzvjCx/6lnt1GjcC1sDGw0T5F6lvZZhLfCJsSe1yV807Bsnu6
pSLaTbDIa//zpdmnwTdYLTo+qBnUjKxPDOScAc19AsqZS9pgdiRbcnLuAnwY
y99dR+fB1mHKj7FdIXCBy1mfb8ID5m0xf/5TIbDhi6BY4kkeREnQlLYlhMD9
lP11biU8+D74SUNsIAS0V/9ZE7ixE1jp8mnnb4QCpTn2pRirEyr2ejsR7Vfg
w5YvhZqiXWDpIXW+LOYqKI9qVYdd/wE/864V3HO+DgNp4rlWE/1w4MfzeNae
OLg0pbbx7YKfYGel2/a+PgmWVdEK1PTG4EEL8fsZJxXOBug1MIbGYYnNZNfT
kCdgyHfpDb/PH+j8qiaiI/EcJNO0Q3xWTMGcvFDPtgcM2C0jTaRnz4CP0FSb
smwu0M5HKkutnYea6yUeT++/Bn//d9fYI3wo1aV13vNkIdxLKXef3sSPde67
q3I1i0DLNlpD46YADtmVWVkeL4YVYUkg1C2Idjqt2/RHSmGnTDGjTHUR8h+z
E7UuKIPe7Q+pUZcXo1ZTEv+voXJ4V3WzVfOjEDJi7v0RsKoC4rve7VHlpfgt
9A09xPMLFPhtizDxF8ZnF3BLKz8TbnobdF0pEsGc3PcSYxNs6B1fsqFWWhS7
updXdTk3wOnuLu60oxhGcPdkJjQ2QvoKgd7ve8RxrMnuQJxFC+xXGrdhT4nj
BuX51u/NbbBsYVCD9aw46pU5U/M72+BT/2LL9nlx3MP3NS+0vw30c+VNewQp
mPjqubTwdBusNd6xfUaUgnpXGKebFdtB0DuWvno5BYflc50PurZDfsGmvsvm
FPStTdlT0NMOp5Leui20oGDZxfd3KkbaYV2I0bcoSwquNhLprZlsh1Qz27Y4
awoGhk6fqFzUAbc4l2uyDlPQJs1O6MjKDvAUYDGa/Si48+v9F+puHSC798TF
jUkUdEozncpq7YBxRovY4EMKumraJ+391gFMqlFGRgoFpYWfuPb1dUBok1yD
4hMKvnLtmf77pwMGnD6tE8mhYIuOePEdSQ4UeS/v7Ksi8zOQMbpvwYF45s1z
aV8oSBifYIdZc8B305SIcy0FH96NmXZ15IDqOFu7uZ6CCbq2zH9eHLgeEHSn
gkPBRmPGrpgwDjhFtRqn/qYgawvHw6mAA1pDRhynSQqathypvvSeA1QLhp/s
Pwo+e/bl+O2PHKikRCTHzFGwRvHB/lgWBzYkbJkKWkJF/40n7KZ6ODD/5NYL
BzoV85YW2zkTXGhbMr1DWoWKb6gOvTkyXMg77tFWr0rFuZfLA/4qcsFzo95i
szVUHCvkf+q4mgvs/AFnra1U3GXHe3tNlwspFTslJM2pOOId2+/tygWPd+u7
P+6hos1wo3OrBxfW5Ermn7akIlfZTFX7OBk/ufsg25qKr2IzrtT7caEyIDwx
2pmK228w9nqHcWFoc4UK/zkqetRPXNJ+zIVXq1/8Zlyg4s0bzXtbM7hwjh5X
fjiAil8bFoJ3JhfmRdw93gdTUW6Fs9/xV1yg9glmXoimotC3qDWsYi5oPTTa
/DOZihPrA2LWNnNh9r91/A8fU3HPq3Cx2VYulEVLNOzOoOKwmeGTDx1cML/4
40xmFhVLjBSVVLu4cMgqrNA9n4ruC6gaFkNcWG7uHSnxhor6ApZ+hSNc6DOw
sv9YRMW016rVkr+4cGqj6ozSBypGq+l9eDbBhbCl5dBRTcUsy6AKzTkumC54
Lh7NpKLlH0apNh8PRP/e+aZdR8brUGzYyM+Du91HrtxtoqJaC0NvYiEPHDvM
rYxbqaiT/D2ufDEPlBo0Vky0U7FC6NjCiCU8yCwVqNr/jYo7fmat6RbhgU/B
4N0FP6hYPBPdGSzKA43sBk9GDxXffxbKFhPnwbvEx0tFh6iodMcwZhHBA9a5
HRafJ6lYc3PHWTsZHrjdnOg3/UdFhyCf2IuyPJhKfxL+ZZqKOU1tZ2/K8UC1
Ufh9NR+BVcvkYuIVePBm6L3tbgECSwt2VEUq8sBC0He8ZiGB886OFadoPLig
8XUtcymByTRlaSUlHiwzv1plsYzAn6Kax3tITnXVOsISI3BvvnBEijIPtvkP
zO2lEjiwquPYPhUe1NxOus+WIHC68LvUJMkuzyw090kT2MbnEn1rOQ8mS/nq
62QJHG7575OiKg+ut+Sc2K9AYJ5jGTOZZOVRtyUNNDK//g0PZVbwIH+xdPoB
ZQLf0VW2hZO8m/4Zvy4n0KOzO6GH5G+aAR1WKwm8tbeyUnclD85ZrL/QuJpA
5QZKcQTJwh48wmYtgWgjG1xFcvKl2y+b1hMo4m0lOkPy1rgd5gc3EShKiz2x
YhUPvjyf6GlWJ+tNxMc7SD5c/iTUdiuBl2fr82xIHm+3o7VuI/Ct4Ycnh0iO
/C381k6HwMID10IcSKYJF1u36ZL58mWa7CE5V8X3lz0QuI3/xbwGybt0VG60
G5D1/lV4KUYyd9/X1Y5GBPZ7Rzl0kvn4eV0t7zAmMIcVtTSDZKEQLWcnUwKl
/Qs/OJP88N7ANMecQIMXOVfFSdZgJN09ZEFgQKzi4dekHp+qLDR4lgTqb0+1
3EuyE4+PdfgAgStTRpy5pL5jkznHOq0JHEt/HedKssJK6dRv9gRSk+5eMSPP
55XeZz1XJwIzWjftyibPz9g6oLXrMIGZFga7FpPsG8YT/+FGoMapKUoC2Q8L
k24/dztK4Mbnu3r//064n7tjV7cXgde17cT4SK7oenK5x4fU87DhSV2y3+yn
7OSPniLjV/XmmJH9OEoRKej1I1CY3u9sIc8DOQPfkb4LBH7XYBGaZD+/tFWJ
8gogcNOCp6pyZL8b+X5dMXCJwF5OecFvKdI/j7ScBkMJHOT2BUZI8ECgYODv
8XACTayEiwxIv9xjJv03FEHgqoCnd35ReFA2y1czfJ1A7Ysl69TFeCDt+Fln
NJ7AHQbHM7eR/qwZdRzNSCD9sE36XCDp3+Dw0XSnJAIJw0OGr0l/92VLU6pT
CKxoeDnDT/q/cIFHb/pzUt+6wFaxKS54x/9LcnxJ4Gj5cNTEHy4orb2xn8gh
/VFx8xKLnC+RVnnvgwsILHdaZ+JMzh/7J/z/OZQRyD/+bf9kLxdEdeNNqRUE
znJfjgd1k/OOrTb/qYrA8JUTsjPkfFszZXlMs5b0n1uU+FcOF6Z3P0JKC4H0
xvb70/VcSBrbPlw5TOBqPoPUTUVcsIxgpV4aJVDlQrv/wkIuCCocsd3ym8CI
n7HOrDwy351RH1P+EljSSY80zOaC3r2WhEABCVzoJZv1NJkLXL2zxuqyEvgv
8V55xBWynsjsRw+MJLD9+/Z3mwy5kKYvorTSRAJlwwWWK+hzQW3cKznbVAJV
pyd9+XS4oH54RUqJhQQWBtaI5W3mgtHWpNRvthJ4b/7Uxc9K5H31LTJ9xQkJ
3GgapFw8y4FX2u5ZL+IkcOmt1zL2uRwwHJAveN8jgS7X5ORmxMn1LZOntPsl
8JWmoluJMAeULrPXvR6UwA3eQulBizgwR4SnPh+VwCzxf4t/TXdAkd7IjcQp
CfTd36WV3tMBW26Xul0UlcTODYEBZkUdsFLLnbpVUxIX90wuD3XpAOGr2See
h0vi5wfSd9+ktEOcV3KSsroUfndY+jy9pxW0QuSCljRIYf+AtZOWfQskdf5u
Ph8ijUaUHtnJj00gd8b6h62qDF65XNgTfKwR9A07bgmVy+DFF8FXru78Cstt
y3L1T8kiP9+9B4lbG8CMonCwwk8W7xuZHfu3mXy/fTk7ZX5OFoXOmmfYbWiA
Ml01A7sAWTyqOHhceVUDuCrHMP3CZdGDsF/LlGmA1AGn/qcJsth3d//RpJl6
ULn0j0aUySKzdClduJLk1E1RvVQ5NFfizNCc68Gr5bhJmqQcPkwwMml0rAeG
6BNBFxk5fJM/qXPTrh70AxQvtynK4Uv1ZkmhA/Vgb7X0TO1qOfwSE3pI3pj8
D1n0wylXXw6rBasPFa+rB/7jdzdfPiaHVFnN4Z7pOujSmGuRKpPD75lb9hql
1IHE/Gt2Zbkc5se2E8kP62DnlxOfzlXJ4R5GMGc2sQ6eOnMKmmrk0Mf82rmS
+Do4eeNdfHyzHEYz7gXZX6+DmR5/K6lhOfSs9Pw+fL4OJO//YUnKyOOaz94y
ly3rYBffr0oJH3mMOaW8X2hxHZgNnY6M95XHrGfyUXOCdbC7Zdxcxk8en9Ye
3DrJXweWjL9s+QvyeDzmyLf+OTbYOvO1q4TK4/OPJqe7JtngWSr2c1O8PJqi
caR0LxuuBW+Q3lMsj7kawrORn9hQxed9NFxUAZuMu2P23WJDnxdrhx5FAXNf
71E5f4MNSxvUlSYIBSw1rJJ8GM2G3en/WtxkFbDI3VRpNIINbNMIMyNVBTS3
HWWkBbOhJTZ1vYCOAlqUu63Ze5qMp9r6O9hdAY9Iw6s0GzYImRoHB75TwB4H
Psqa5WyYqvdbtahEAXVKXRLeKbNh0DGFeeuDAo5aGW6wVGID03dG4XGlAqo8
mPD3V2TDnXs5bz6zFTCsBW62S7OB1kf7LdWtgFHrF4mwRNiwNeKP+6tlivhd
h5Y0PMIC14qn5j2HFLFm4K+2ySMW6P/Yv/6IiyKqDc4IjyexQE5gVrTziCLG
vV8bm3qfBfW4r77Vk1w/KlwgGM8Cw3f/bGtPK+LN4GJjznUWqOSaeeRdVcTs
C5cSuf4s6EoeCg7NVsTCUe9+OVtyv8BN+bQ5RayMiy/Sl2aBk8y7V3V8NFzy
48SZlZIssM0zeREmQEPj7zpcMYIFFkOH0gaEaFiY1l3cK8oCHccbsfkEDV2/
JEdnLWIBVXfAx0KNhgLT2ktCJ5nwcfrxqiArGi6d+Krk3MwE1QDpBE4mDe9G
aN2LesCE0W0nDru+oOGIZOOC0UQmFI2Xreh9SUPBxAM3be4zYb+PT85oHg37
EpJFVt1lQrBLRbVACQ0DRaqjG2OY0G7iN6fWQEO1nPbZo2FMiJVgHTk3TUNp
3wf9Tt5MmH9xdYPYbjpO37Lw8wAmDJQk/+Ja0LG3vF69V48JX+ve5mXvo2PN
stHlXrpMeDoxomNxkI7VOmXxvtrk/noHTW640nFgbHvKDQ0mpNWscha+SMdi
bxeH+VVM2DX46fbiDDryX3/W+IbCBPXZLqvmp3SUnXiUd0icCQpis9JPsuh4
5VJQqqAYE36pb35o/IqORoPnMw6IMOG+f0Jm+Ds6Gka2bJxbxIShJcc+CjTQ
cdEeW7OwmVpokg+72tBIx1aOQoz2dC2Urn9o+riFjqljd+t//quFuH31LEMu
HdvOUUwP/6kF/QSdjpB+Ol7vjWk3HauF1VlWj/YN0ZEZdb1n0a9aIN77uCr/
pKNE0s8f5T9roa8zta90nI4uJdoFO4ZroX7sXVbMHzr2GVZeExyqhXeCzT7O
U3T0kF5oWjlQCxlSvzZvmqVjUXTV5LX+Wri9Wnhifp6OfIe4Mbv7auF/+XGR
iQ==
          "]]}, Annotation[#, "Charting`Private`Tag$208435#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwVV3k4lG8XFsoaZpgZBoNCKUIqS3FORUL6IUpFISRFRWSJSlJRlooUlb1F
RKREskVlmTH2ncjOTEhR+Ob7673u65zn3Pe5n3Od63kVnM5auXBzcXF9XsHF
9f8vzTeivHUnFa7rObftbl/Sj3GdEQ0bdwYprbgU/ah7BoU6oznBIRdg0qCT
rVb9xmBDSdthvahgyPLIa1zBrDSoU3Be8dc8FNpkPI7F2jENwgY7m22tb0Hl
Au+b2+FdBgbPDrwsOBIJynLvXvn6DRr8zXeB8JwYGHKmaPVVjRsciktWKdS6
DxT7ZMdKyrRB/sVu8ZGCOPAMOVJW1DZnIHZYaoms9xDuWKV6dSj9MzijZzNi
9DEBEhScM62WueCLdAzzAj4BU/YKbktNXrgb7NrT4JgEYsnTpzKf8wGeDT1w
KjUZ/q5IcldyEYJEi1L9eOU0MFgZLGjYQgDTnT1v1N3SQVrZsvqStAT80fy3
rvpFBqjrBsjXh5DBWlyHOKf6AmbqGl2M3kkDN+/BG3c8X4KatIWCZigNcma9
/ynmZEL9n64Ih0J5EG55PXRAKxtuDS8mqXWshQ9VdUfHL7yGlQztg3HXlCC/
08dt59EcEDMOPR6vvw6cau91tyXmQvGL3wkaAxugJItezSefD/zfQ6Yf+GsC
KeNYSGNpPjQwq23ZUZvhzJPJHU8d30KksuH9Y9laQI0SerMttQDahdkhjjzb
wPeccaKLciEAOa7UaPV2qHNrOahZXQh6mdPUmBM7QNHRhbB48gOUmHrxfSzT
B6bltbD7L4pgJDnYqN4UYZPWp3MVqiWQuqza4GS+G65v3L8xqq4ELAQdj+VQ
DKFrbfePI56fIGpaM6rphyEYhQepzR8qhW2nqw7cv7MHZgISUqIflkGCPiHy
kaAp/GfXevuTTCVcdN/JEuqyALtL+zNGvCshZfXedebuluCW+PkToaYS0o79
MMpbsIQrXXnTJ/w/Q/M9zZYhhQOQYxdty99SBQLX39W9u2UDYvYmipZRX8Fl
9Qifx8cjIBNUqh8w9BUEFcKX13gchfWPtQ+l6n+DCzvNoZ9mB9itFP5r/Btc
215YdvamPZy352Y/3FsLxW5RpUxdB2DaFxV9X0GH2qfHHl6xPgE9QZubhQ7T
AfZJ1+gWn4Dxxy+mtuTQ4eociWtM0Rm4WTXRu9UZ8E8abVTnnYGq/qEitpsB
lhM+UmuzXMH0dZyKnh4TKijD0eq73OHl6/9+hcw0QWV3z+/i1eehYF/Wpi0y
zWAyvUW03+w8VIwKuv0wbIYvB6+7u4af5/hb1WEc1wyknuNV9/i9YHX8jlJh
3Rb4JFUncV7AG85dUYmIC24Fy53p5N8yPrDNkkfhpUAHuKQ8id17yx/Kpgv2
Ncj1winfXrZB/lXw6+lWKzDuhRXUPNf47quw6RuvaMLZXrAY8i+Q5AuBR8lW
Dc6feuGvLly8cyQEdNf/3nBJvQ/I+rMRhjzXgNB697UovQ9mlJ+0NBwNhbIt
395vE/kO/0KLKbnrb4ACW6cm9PYgZB9dUbu48Q6MpYnlWf8ahaADGxNlZ2Mh
aEFF/cMKFlTkaImcLHwMq6tp71T0p2HyXpNJo18q+ATqN+ZMzAI12FtppfVz
2MUVVMjt+RuEl5JG3ClZQErTveqptAChTz8HvdXLhX2SFPH07H/Ap6xStIue
B7SLtxTIG5chmRhYqXqiAAICim8yprhwMsqrckm7EOKTK13+anCjz8lTu3f0
F4GObYSWViQPBjMJa4srS0ApNBH4f/Biecb9U9M1pWAkWZJTrrgKcx1rvDuo
5TC8/Qkx/DIfOq7S8P14tQKKqyPbt1Xwo+akRYJSXSWID+jHsBUE0ezTo+ZX
6lXwzlv7hnGAEBK0uF4136qGyDM7v18rEsYDPgvt7XVfYHhWYFMdRQT/RPl7
auh+A68f33v+2oniRXuhyw9f1ICg91OR346imBF1b9WD1zWQzGVnMO0qinOR
1R0P3tYAQ7r58cg5UWRLPw9LLasBNatqu+ZQURTOsSkaaK+BkZLMjuxXnHqJ
O2VFhGrhWPyFFsd/ojhUQenbf64WFu5KXsvmEkNGq11RtW8tVLXPUVV5xJBr
amSnURAn/2Se6Tp+MVxu1I/YH14Lt0NUX8oSxfCbwOkXCWm1MPaedkpQWQwb
I/Zwq3XUQroSz/CAuRgKv72rE2tSB9Gj5fEPLMTwz29HBzvLOgjICjE1OyCG
FnepuPFwHVhs5c5+YyuGtw6N+/a51cGC4QqfqyfEcPfyyM+XNzlx52VuOX8x
XF2tXtrwtQ7+pfylHUkTw8cFtcsiB+ph2LWIsfqZGNrzC47PH60H5obAkLIX
YkikNHSwnOvh2ZuFH+tfi2E3Y535om89WJXPv/pdKIa5aVpKKQmceP9vvVi6
GG6IP6KgOcyJy88eZCyI4Vm3eQHrm3RYvTK40WZRDPHEWh/Vu3T4Mspn0bks
hkEzy1uIiXQwyJM2GeIloEznDeVVnL2wcc/u7f9ECChe/WPxbhsdeM/clVu/
loAvfOr2qZEZUPBOY+SyGQHrdEqles8y4HziB+eV+wk4IlqcXuHDANWrhv3h
Fpx8VqVTbiADUkxtO2JtCCgYvoH+/AYDorov12YeJ+Cq4wQRwSQGuPHQc1q9
OeeVzDQzmQyQ+s/DXz2RgPUe0r1EbIDZnDbR8ScEHEr7JDVi3AD1RMOMjGQC
Rhx+WlTzXwOEtFAbZZ8RUMy9/G3J8QYYs/+iKvyGgHb/jQkfutIARWfW9o1U
EzDIouqOV2UDxNVH+qZ9I+DGErYp1DXAOY0FYYc6An6M7RmUaWkAxVmGbiuT
gH+PazoIjTTA7cDge5+7CTjj89PygzAT7MPb96TMEFC+jP/QjcNM0Jkw7Laf
I+CyimKj7wkmEPfneEvNEzBZh/rX34MJVYQbSdFLBGx8FLyy+CoTNj3cshAs
QMSfFWECWzKZsPwsKuuoHBEZSRWGMtyNkPzZSIJkRsR18klN5LJGcC1W+1Fh
TsRhQljPo7pG2JBHKvCyIOJawZeftDsaIT/pxyGGDREfqv/tK55phKrA6wkR
DkR8lpUat7CuCSY0P6/h9iXiiHlbh3dsE+Suz5rJ8SNiz7rllU9Tm8BXLrby
eCARy7j8/Idym2BZ2MX14xUiJh3UlqqpbwLiCO9LvwgiiiTccvgp0Aw6Tww1
WUlENE5XvDVwvRkW76tyP0kl4vvHNS8nY5uhPEKicV8Ghy9t4SkloxnM/Acv
vMwkYqqw5XhNVTMcsw5971JAxMZpbdtigRYIFayErhoiWnwrVGXHtgDdd/f+
r3NE9LbKDj/9tRWcI3+NmswTsaJ9PiOsqxUW0p9d//aXiH0+e3wqWa2g2Cz0
sYZLHMstnfhekNvAT6tpY72gOI4Nq66VcW3j7HNngUaaOP4nJxzTKdQO3qfC
Krv2iOMMr9L13Rc6gP+qjoO9iTgOX6ME0253wJP4sb/dZuIY5chjuSatA75U
79fqtRDHJe1/vOlNHSCjTEnpPyKOfwTm1j/S7oTP359dHvIURx75tYnHV3YB
xe6rHjtOHCXMffP0yrqhlm3HzngojpXetDcjfd1w5To73T5RHC+YZFBquHpg
JJtCqEkWx7dnurTUdvbA+xWuw+mvxFGrXeviycoeOPKM+/7RcnGkNloaf2jq
hcTp7ZNVk5z8Q3TFayL9IH8r++ljQwkcl9ohqJIyAGkGwvLKxhJ4zU1soKxg
AFRmTyVlm0jgIdYKoTM1A7D5uFLyp/0SKBwgcWBmdgAMtyam9NtysPBz/uq9
g+DWfytdyUMCbbb2lu+bGYRcXZfMrFgJfGG/InTecgh2jUm/+zgkgYEBBeee
KIxC7pa587qjEvimWXvhkvYoyF9mqL4dl0D/dcKPLc1HYUn8esortgR6XSvp
7vQbhSL9qTsJCxL42yVc+DR9FLbElDr7i5Bw1Zon2SoBY6Cs40Lcuo2Ef6zO
OZ+oGIfYEKjL0SFhka7M9d2t48BbJ3VTdTsJ387pXhIcH4fvjvWLa5GEnQkz
mqbECXgaoT1KNCXhwquPVUHHJ0CyV6CUbU9C86vuOtqzE3BDZTDgjAMJhb6M
r9yxahLmvEu2jjiR8PRIVwxNchKa+b0ze0+SsFgihx6wfRLubu6Kqz9PwsN8
3QZXr0yCUFi2x6vrJMz74LysyzMFj8zddx27SUJ0EulVlJiC9SRlilgECZWl
akU6FafAMO1xqXc0CWMFx2PSjabgUvlt8e0JJDTNj/aND50CwfC9IxOPSXjo
H8uh4t4UxFvyfnySREKtU5fa36RMwdu+QFfuDBIuGyVc7/k0BVNL7oVfc0jo
kO2u6/SbU69KOTIwj4Si5qorM3lZIBj53UmtgIROFwyCCwgsUJY9IhxTREJy
a0SYxEYWHN9ucty2ioSZucT9Q0dYMMW9covgVxKOPx4q0XdlwaVvpfzFNSTU
/PI0wuY8C+IP67yRayDhuig/2cowFjAurls53ElC9y7GochsFhyDgfb4HhL+
Zh/uaX/HgolVT7NN+0lo0f8itL+UBfxxZNvsIRKO3rsqspbJgjh7pqrDKAlH
znr1He1ggaJS5AriBAk3HP2Xvf87C3bmr8z0+UnCzXXZig4/OXyBZZfXzZLw
/ZmuP0F/OHy7g6zb50jo726kar3MggDm7OKOfyT06Vc4KLGKDfyPcphTSyQM
CdfaLi7AhjjHM8+SVpBxTce5ukkhNrxhD1jw8pHxacp9360ENuD7p0oFAmR0
T54zSxFnQ/3lowsnhcn43CrQbIzEBjtjCl1KlIwhg3utV0uyYVykMbWGQEY3
8iUjISobAloi/YIkyEjUXb80IM3hf2Jqrk4hYxnJ3v6BLIffZdWafikyqq/K
slSSY4OiWvncXRky9ndozd6R5+iZDaoxlCPjqMdBlwYFjp5i3aQ5BTIq8kR/
Zq3h6Ln268JzRTLu2Ou1dXQtR49ZrsmRdWRMtk5v/qjIhjGiB014AxljXgxX
eSixwa9j/cxHVTKKbBbZMM/Bq1IGq8+qk3FsF6+8gzIbYk8lJSps5uh7VPM1
hYNnLZV3pG8hI5uqd6yUg630XnWu1ybj2XDXmBIOzl2zOfCVLhmPploHP+Zg
MaH3VI0dZPwhLYX2HOw5o/8hz4CMX3MKWYscvrrOisPaO8moEXUy9jIHq1aa
zH/YTcbJRTPN7xy94a/o8QZ7yGhueLNCiYNH7tvolO8lo+uJXftMOf0ZB3W2
Gplx+ien1/zH6T/DxfHiV3My6jT07tzG8Yd3/zDZ3IKMKhXKrxc5fjpt8yhg
WJFxb9Mb8QwaG8poMzbWNmQsyCg7q87xP5i1dP/oETLyF/qI/pBiQ1dr6JZe
OzJu7ck6QODc5/ZSwSan42TcHRUZTSOz4U80WdzdmYwOke9+dXLm46B/4ptJ
VzJ63GrTuC3KhreOa6zOnyLj4OUVebKr2eC1eVOMnycZmcI7o3/wsYFBzdf4
d46Mq8LiPGRWskGdR49x2ZuMCqXn47Zys2Gi0Uj0hh8Z5ySskuU48+zqY38n
NoSMzntWarR0saDSfkBV6joZg37x8lxsZsHaPadqE2+Q0fZJSkRfHQv6yD5C
abfJ2PpoqUG0hAVH3t++9SaOjH7PCTxjCSx4n0RU2faQjJEU2Nd5lwWUW/Ff
ChPIuF/4U+iDWyxoOpzGV5ZExvhwcTjvy4L//hZdp78ko/Cwnn6WOQuyB3Yq
HcjizOP5+87zu1ggXFtd2fKajIdz5S8QdFjwLbGRpyefjKaejV/TFVhgaDB+
daKE039tdajz9BToXKUGCzSS0VMo53N/+BQUDF3Vrmgmo3FV5iqeS1OgtW+U
famNjPmXZqNmz0zBJsr7E+xuMvbO9LqZ758CxSwbk9YRMkY7vPj6R2QKCO3R
EulLHD83/zhbdnMSxjT4MnEDBfmmkzbhsQlwi/N0XlClIOnHbXUX0wn48bdZ
Nl+dglzRhzQ9t01AX1Va9LqtFKzK2xK6WWQCWux2+YogBQs+Lr3IKR6HiptB
O7tsKDjjZ+mTTx6HxL6Z1otXKThenLJpoXQUxlyV7HhCKXjBJbn15atR0Jk8
2BcZRkE1waSuA/Gj0DRfOJIeQUHeYqGMmLOjICx+Zb4xloLpZ3vn6mVH4ZKR
sLTGSwrGbF8fNuw/AkdfKh4bYVLwhhvnqbZlGKgXbAZtFSWxuJZc9aF8EKyi
eFJblSWxdvSix9GcQYh4met4UEUSbUO32Ag9GYR/fat7D2ySRFnV6n8P/Qeh
x7yqfb8OB8t3bQrQHITUddp0w32S+M1v0tAubQBUOyU/aFyQxI9axo9i476D
81yV32tfSbym1nfCKOw7PCb4aG/yl8RfVzbGrfT9DiJ7G/I3BkviZ/VxpXc2
34Gdf+u18k1JzJzfFNVD+g5vIxfSZBIlcbrQfrXJw34w2NUVxV8picHTirPb
svogruO028cqSRSVHjftfdwHk15/0eurJLrafWt9HNkHianU6c56SQyPcSMd
O9cHC7yHrV+3S+IH74CsqS198K66WfIgSxL3Lh1ZywztBQ1zenIqVQo/Fb+y
fNjVDTd/HAuwlZXCpktqd0MquqE3aMpqtbwUSqpsloh92Q2R2at5LypJoaaz
RskW/26YFN3naqohhf1zr2sOSnbDS+aXDT+NpPDAPufjQ/ZdsNa2PM/gvBRq
ab/ItObtBFOCzKHP3lK4V8rGBH52gNc3nwUzXymsuepyxbinA8p3qOw8HCiF
FnfCTHPed4CTQnS993XOLjTS1+vz7ICUMfvR5w+lkLb2Um5SXzusCZqniZdL
odFPk60dbW1guu1A+cNKKSx6PRCBX9vAi/XKRb5aCq28U7tLC9ug3NHhlVqt
FAavalsQSWgDpz3VuntbpBDcE5jdx9ogRTTWOmhMCuvsFg5tHG+FNSka4cNE
KnJr6Oc9I7XCqbbTxmkkKrq9OR3Oy98KOSLPeB0lqWhml6gbuNACBoGylztk
qRhXe+/i294WOGIteKFuPRWXtkgwbTNb4O6qQfs8AyoW/o4u3mrcAu075KTP
7aSiP0ljg8z2FpD3PtKmakjFCi7LSin1FsjuZVhlmFDxiIMx4zClBb69/2j8
0JqKZ3ITro6MNAP36Qeal92pKKz+t1UquhlMkplT2z2o+N+TtyHHOP8P0a2r
X/05S0VXd1b8u4BmoBmGKnv5ULEy77V1hksz6Mmel3a5QsXdDda08zuawYtu
utIsjoqf4vTj4ieb4LvWUhu5nIrywul/7OybQGL5LaOqkoqPi4Z5CDZNYPTN
44tvNRWzM39VN+1rgucO3e9aaqkosuePQMSOJjh7pzgurpWKPlvNjr+WaYJ/
QwHW5EkqHu3PPlfS2wikR7/pJElpzGh74a96rhH2uLyu/kyVxqjDRKWkU43g
p3Hyk4+sND6caBqXO9EIXVUt2c1rpHG79zbr3QcbIWXm7Z1YNWm8o04zI+s3
wibzC2ak3dIoJS8YyBRuhL1cP6skPKXxwGP1EFYeE0wnvG7FnZPGXX4df4Rf
M2Ff26yZpLc02u50vLX5JRMscv4wpP2kcfR3ytfYJCbYOnB1rgmRRi9znatF
d5jgVirK0oiTRmJY5R3/U0y4eWUTxbxEGlO6lcgeykwIP5PTXl8qjd9CvNi+
a5hw23ZzokWFNCp5VJ28QWNCtMY2Besv0rjmXtS/IjIT4vv0Nx5lSuODmBZX
Lz4mPEdzODUkjRJ/yjwFxhqgmuvMyesiMqj64WDZzbwGGDlF361PkMHj+DCH
P6cBBBs3y/8Sl0HBXLE7ka8aYF/6fJuzlAzyGg3XZKY3AMPkhqmhogxu1Um5
tyG+Adrupqjx6MngO4tX4RuDOfUU22euuMgg3TtjbN68AQQidzB03GRQab1v
s5xZA2z4/fQV210G5+HkSdO9DXDmq6uLwzkZvL045JS1qwHYHrMtECiDJ5TU
hl9oN8CfAtEPS9EyODDAG+27pgH4TfZcuVQsg5e36vKp/GXAAtN73apPMtii
Wpv47w8Dxu2S66PKZLDs44vTjXMMqD/3Tya1SgYNmKkJ4dMMuBf/pvArQwa/
LD6Kpo0xgDZCmyH/kEH5li3Kre0M2Hrjt0vualkUKfPQsi9igDJBafV2MVlU
PjdwMKKQAZIJVvmVRFkMuvS4v+gdhz87i7uNIosDO6YIivkMKG058XRJQRYf
BHTJi2UxYJ8yo81smyxuv1Ox1/IpA5w+PzcbOiaLlwjF8g7XGWAwaKV2wlEW
G4LFGe3XGEDlWRTpOyGLdYRoe5sQBjDRktnuJovcK4oFrS4zYFfxvG2dlyzu
E+S94OjPgDV5pq75YbIYQLuV0+LBgO9JE1dCsmVRzq1WXNiWASWf4pyWc2Tx
U9lJ/48HGfCoBw0v5cmiyVCE/zkbBljJxPL5vpdFvqIS7LRiQPkD/chT5bI4
fLQuq8KcASmRkQkWLbL4Zjia0rObo/+SRgFtSRarZ8NSVDQZYC9ZnNvARcO5
Iuu3P9UZYJtvnBXKQ0M3aetDRZsYsH/iWNoYPw1l67brH1BlgJ7dnbsF4jS8
YFFgELuOAcQdY577VWi4VyMw9DiNARV/U9cFW9Ow9eyDmD/CHP0P1NdqHqLh
s/N3f00IMeCDVhFt8DAN9QLS738XZEDOaSbJ9DgNAwTCgxr4GZDYycVLdqfh
7kSH2o+8DLhQZN+XdZmGI48H2x7P00ExkPKw+yUNpTc9WBHVSQe2tsdxpywa
FtbZcve206Fotlxp+DUNxc2Cv2m00cHK0/MNO5+GVauL09ub6HDF8XMNzyca
Tmls08V6OnQaey+pNNJQhVv8yLEyOtyVoJ/w/UvDxc4Vft+e02E5K2yT6D45
VAjzli4JpMPYp6SfPfvlMOZU4L2dAXRoaviQn20phyud+w9V+dHh+a8pvf2H
5LCl8VF+ow+HX/+Q8R0nOWTHrTdaPEuHtNp1DkL+crj4Wm/xpjMd9o5/ieHL
kMP8Q9kqQfvpsHnxu3XrcznkKksSUjang4zoIuVZphwuVwkKM8zo8HOz5pM9
uXJYx8fvus6EDo8CHr68XiyH11cNeA7spsOEgHsFT6Mc3rYtsY7WpUOLdGhY
Y7Mcmsdu7DDVoUOp2hOT1DY5LImaurBKmw6xlkz6rh45PKkpP3JlCx0MHup1
XR2Vw+ETVfkh6nRYn2n91HJCDvnc/JqMNtFB/KOnkwJLDj8cruEVVKPDSF/K
SOmsHP69Nn0/dgMdmNPFmdG/5fC0cOyMnQodinlbPR0W5FBzjY+D0no6ZJB/
amosyiF56U/HlDIdYtYL/VpelkNV/zCnQiU6/A/sACFc
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208435#4"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwVl3c8Ff73x4VUSsXd17UyUkayKuucRMMK+ZaEJIRKIVLSUCkqo09EURlF
EpIoVFZEuMPOJrPsURm33/399X6cP17nPM8578fj/X7JOJ+xduXn4+OrXMbH
9/+npP+d0uaddNDR0jA1mebqR7lNrwv56QJhEz2eIs/+M/iwfTj7cvA5kH71
gJXQnGOw+VPLYZ2Iy3C8wtM54ke5Qa2My7IF8xvQo7dzWPc0xyDkR1ujrU0o
jN5zq+xOaTcwSD2QnmcXDmO7ITn9zg+DhVxXCMuOgvaRcFuHnp8Gh2ISN33Q
eABLFFdF801TBrnnOwhDeTEg5xyIOuNzBusP07hknTjQFVjk5zNcNDil878h
44+PIahENvTB+mXwVTyKcw6fQOGzg9bSuwXh/mW3TvaxZxBVqGXoUbIC8MyN
Ax7JiXD6UfMtreDVEG9ZrB+rkAJHvPfJfBgWBZOdnTlb3J/DhF7zrvdbifBn
6+LGypcvwCh2b49QPBlsCNvF5pRfQh83bVqmWRz4BQ/euueVDlVs/4C8VEnI
nvFdlMt+BayeKVNSrTSsacoaOKCRCSpvH2XKTMlCQUXtkZ/nsqB6j0dCS4I8
5Lb5ue88kg1aP4yi9tptBOea/zpa4t+AOXnvHYnlSvDpNbNyhXQuBOkKzt6P
3AqkF47B9cW5QFLPsHyYpg6nnozqPT32DgQzj28o+6oB9IjVOdrJeSB1gWVy
XkYb/M/uiXdV+ADnD74fitfQhVr3poNbKz+A3lS2leJdPZA75iq6dKIA/lT6
16X+0geO1fWQBy8LYTJP4UeuM4KqxuezZcqfQKR+7sBzz11wU8lCKaL2EwTd
Cc49rm0E7bId/XZen8Ey5q+BgJAxGIcFqfw9VAx/ThiltGbvhumLj5Mi40pA
/gBLO0LTBPbbN9/9zCiHxHerYkv/WIL9JYsXQ77lECX24o7ybStwj//yWfRb
OcTNUs1LadZwtf3t1PELX+DRtZwVnrsOQLZ9pO3KpgpY1x0TEpD9P1jvsE/O
KqIKhu4kTAlP2AEjqFj/4kAVqPJ79TsmHgHFhG2HkvWr4XK1W0+pjT1gh3zY
7M9qkGhdVMwtcQBvB/6JuL018HazpouQnRNwHAoLe5cxoUch0D7q0nHoDFJv
XH2YCR0120IP9R+HnwkvxzSzmXCNOh1G3e8C/OPfIndtYUG39mD3LXlXoG8p
KIvuYIEZfwR7eacbmGTFbNLR4YDEPeY99iVPSM/aPxs83QCN5msHtLW9Ic/s
taomoxHcP6UZi/p5Q9mwsHu/USNkv+zJssj15s234vuemEaIahO+PanhAyKx
esVrdjSB0culB8xtvnD26qY7MZebQVT58Y9MKz/QthKQSV/1HVRpvu9W1lyA
kqk8M7ZUF7QHvkhXHrgGAZ0dKnl7uiAkrLafuD4YVKsF1z0+0wXlF73z5XSC
4VGiNdvlcxdESipmFoQHww7F35svbemG5kmxrqId10G0+X7WOmY3XD33byv/
wxtQoln9XnttL9QrMRrrT98CmYnt327c/QEnQq7H8d26ByMp69/azA6D7OwG
vj8GMRA0v2lLwbJxYJI8bFbKPwGRSsn8TfpT8EbglB6xLBn8AvXrs3/NgO0k
eUkoNw0M+YI+8Hv9hv0lwmnJ914DKWXHNS/5ebA89c3+avAbMKNSCM8zF8FW
4t3O9xtyQfJ8qAxZ6R98Ug6toZXlwcWLRbdZY3woVbKu5u3zDxCbWO66oMaP
TisXGt/bF8F22zsaGuEC2LkgrXzL8jPI34iHlf2C+D/HG41X6CVgTP2UXSon
hDMr8g0TvEthUPeJWNiVFaiyTvH31d4yKKoMb9UuW4kKdjF+Otu+AKFPP2pC
Rhh9/8fYmJhUAfm+227tubgaI45SO5KXfYXwUzt7rxeuQa14lbLwXVUwOLNK
tZayFtUjlmFmXDX49Pd2Ltivw7nG1s+d7G/wXF5gsM98PTY8OhsRtlQD1tIz
B1nz65Ewp3uOql8HtP2nL2yJF8X502a/448xIfGLMZFkKoaSqjrRahYsYPrv
sqiaE8OsEdln70ZZ4BI+O7zvrxhyNAkKUhMsmH+eerN6QQybqs+FhE6xQK5x
9cdvfASUchPudvrNggCNBqU6YQJaS/ik0pexeft1WVUvScD0inZyOZENvh4h
5e27Ceh39PlGA302rLy23clhHwGDw/nWNAEbnsSOLHSYEvB9nqn0WUM2fK20
0OiyJGDzl/4Vr/awgaFASeqxI6DoWY6kvjUbvvSmXhnwIuDI0dtt7SfYQLGv
0pmIIeDoBqru0Wg21EzYT7yII+CAqN71B7FsuHpz4rlDPAE30Rc21j1mw1Am
RfRbIgFzDGUrLZLY8H6Z2+DzDAKWe5cybmWxwS6V/8GRUgKqdRob9VazYa1e
zD6xLwSkaLJ6XOrYUMra9O9rJQEV5UY6f7HZsHne0lO7loAPbyTsEGllw4LZ
UxRtIeCZNWchapAN8VO6oxWjBDylUXXq3XIOWN5iJgVNELDUx/RkzCoOCDKO
22pOE/CP7XG7yyIcOGUcVpb4h4C7HppPHidxQD+2Je6SABFL/D0P35XnQKe+
3251GhF32U5uubmHA9KhmU8TjIhoTFrkz/uPAykGa6QV9hBRSDvOMjyWA5tm
PJ5l7iPi0L+UDb4JHFA/Kp/42YKIj6tWM46ncsBIKz6px5aI49HyPT2FHHDv
CX0uf5qIg19iB0MGOfArZlA+8wwR7xlFiMMoB7zNjF9o+xDxUp05V2iaAxfz
+VL3nCfixtaGhAouB+7eO5/mcY2X/3j3sDClHt7scH31OpqImRUqGxtN6kF7
vFRJO5aItzpCo55Z1UNBinTGp0dEdPlW8vOybT2Ur2vPYD4lYvBj+V1+bvXQ
1G+dOfmSiJNdtiYW1+thPgrfaH0i4tLg8Ib+4nq4vOfJ1k/FvPzfazYsfa0H
gaWFN7vLiPi9e7pYhV0Pa9zzcw59JeKKncLxbT31IGmgmnuBQ0TKBS3dIMEG
MBwRz/84QMQDc0tx5/Y3wBvNOe8dw0RcV7fy/rbDDSB9haX87icRqx87zTCO
NwCXcDMpY4KILb8MXlidb4BC/bF7j+eJOFZr/J9fYgNoRhW7XFhLQinF4S2w
1ADJbY+kZteTsPAwNl1Y1QhiCn7fzxJImH3LpbSH1AgTBZss3akk7NQ/oKK3
pRFe/7ive2gDCb3PS6aqujSCwnZXMS1tEj59yDf2vLkRooOhNns7CWfiUjVW
DjaCYC3ttrIuCe/1XxhImmuE3mN1S7LI0+9vPnGD3ARP72wbFjMhYWRteP7q
w01A7VpVPOFAwoCgfBXOcBPc2vTj4iknEu4X8valLDXBnO8nrSFnEiYTxvhT
1jdD40rfV10nSGjl3/Q+dnsz3Fdvj6nzJqEk+2Ue9W4zrA7JPJ1xk4Tn+mry
8gxb4JG5p6HjbRI+0RyN1XJoAUWSAmX9HRISXW+3ywa0gFFKQrFvJAm1i0TW
HMxqgUuldwm6j0n4U+5Vs7FsKwiH7R36lUBCe4HJsHM7WyHWSvDjk2ckDPFp
+ijj1ArvugPd+F+Q8JPI1M5/T1phjOv5oSqbhIHzNfsXN3yHSxUK4YFvSfiS
cyLExvg7CIf3OqvkkbDfaixKx/07KEjYrYkqJOEr/vLe/KzvcFR331HbChLm
NE4UvDZuA9b5jcsH20jIsjE7eT6iHRyhrzW2k4RaounpmYXt8EvoaaZJDwlF
Ps6XxA61w8oYsm3mAAlDdWzbI4w6YGfu8ld+kyRsEhMvsl7eCazAkisbZ0hY
9WB1lse2TnDcFWTTOkfCW8ENR/d6dsJFzsyS3iIJ5bb2Xz/B6YSciT5LwRVk
9H0Z2+if0QX4/ql83ioyvrKvzCT1d0HdlSPzJ9aQcbPmr4K967rh59r65G+i
ZDRNa9AnmXSDnErp3H0GGTfRhF5Tv3RDtMezeBl1MgartQpLcXpgxkpB77km
Ga9EryY/mu4Ba52MNsVtZGQ2/KcQRuqF9avf09X0yFjmcc6zzq4XwjKYsQa7
yUhMCpNY/bMXLo9zHxyxI+OJTJ1+Z9kf0N58Q7PLnowXNQczP5v9AN1i4Qbn
o2QMp8cPJvv/gD+RZIKnCxk5awyahGp+gI+6alSAFxlPTzuuswnqBzc/h3vR
wWRcT2sza5sfgHKHPmXaTTJGi/iOSqoMguxuj5r4W2Q0fkMtnDs6CN1kv9Up
d8koHHR2uWvlINi9vxuaE0PGxRbVWNOEIdi/UHiTmU5Gqal3RYOuI7D9Gv3y
qnoyjmyix5p5jUHewLVtZY1kVDLx0uv/MAYaZsMTl1rIeCC/NGez0DioUt4f
n+gg42CWxNXsZ+Mg9/p/+5qHyDgqfVn4tdcEiLZGEp9zyXhyle3MsoJJGFFb
8Qo3UzDhcv71zIsz4B7j5TKvTMESCW0n1bQZ6F9olMjdQkGDY+N8hY0z0F2R
ErlRi4KaNzjfOtRmocne0H8tUjBDser+m8FZKLsdtLP9fxSkBR8e3G3zG+K7
p5vPX6Pg5nABdqPAPIy4ydsL3KCgiAKb6LlpHraPHuwOD6Fg8BWfgwkW89Dw
98PQ8zsU/FbaF5/2cB7WEK7+rY+m4GTbXenrsgtgF/cm6GgsBee9Dr+TNl6A
NKm+ZT8fUTC2Sj1d3W0BjJR3C/M/49VLuhz78cUCXDJeI66WTsHA0tHUOzKL
UP1N/2lhBo8vTu7tJ4NFoFqfkd2TRcG1EW2SWkcWIdeRo+SYS0Hi3Pzvd1GL
wN8vkD2cR8EwXevxmleLYHlSS9PvAwXFfFVJW78swq/zsXp3P1Fw5bqUUdrc
Iuhwq4opJRQ82W3l+kJkCW7fWDBKLuP1Q+j9HCq3BHJRjuYFXyn4Oo56SMZy
CXwokWzjbxR0eeny4ZPLEhQnlPyPXUvB0+Kp1+8GLMGRdDnHIQ4FD0qT83IS
liBN7WCvbyOv3/FzD1ZkLcFc3i23f828/UisWHH98xIY6X8YCftOQXdJlceS
zCW4XzbiRe6g4OGO5/X1HUvQvY8xndhFwf1uBerxP5dAlWV+XqWXgql42cjv
zxJUt2dfMRqkYPzDEycD13GBerxXgDVMQXWCj1ARjQtuw4TbR35RsELS8r+t
slzIPWO8ZnCMgnT5IMMWJS7wz/lH+kxSULx0x5kUDS5YXkojcqcp6DElbxWm
w4Un/N9jQ+co+GdaYcNl5MKv26slSH8pGHBi2+wFYy7orNNPfLZAwew56s8b
+7hwO9pLXpnLu5/+tJ+pZlxoEn/2Mp+PivruXt0/Lbggl8RW2SVAxUSyHcfW
kgs+igI5dcupWPrVPWWMFxdnamrbraTiIdaR4TRevFbLraBfmIrKizKK1/dz
wb7woYG3CBUvhioNBZhzIX1nVeniOireb6xvDjHh8nzj/O7bYlQ8+Zc9/mo3
F3ZbKH8jkKjIvp55enAnFx40OOx/SqHi4e+fwrfrcaHXLqJ+M52nV838+ESL
C2o9xYfyGFQseitTT1flwuUTU207pajYOPPCNlOeCzWjsk61MlTs8c5ptWNw
gX7ufz9s5agoMbF3SEaMC9YRAsnNClRUOLLsMa7gwp30N8cObqJirmy4352F
JVjsFuk6oErFjn1jxI89S6C5WJjAUaPi9lfhHZn1S3Ca4mlvpUHFSnVSUlv5
EnSaV7RabKdiktZCaG3KEpA9zsXW6lBRdOKoach/S7D/xoZDZvpUHDLp3+x2
jXcfCy437DOkIkHZ6EmT3RIkb9zGNDKj4sO7b8+ICy1Bu2H/vTILKs7mJBGc
xxeB6PifmaEVbx5X2uV+Ny9CyIPxKjhIRWLl8gOjLxbBfVlauY4TFTvrZBZd
9BZBuY1aoHaOin164xJC5gvgMlcRkOVPxdvz0m5KKguQIOq3TfUCFb2dBYjd
axZg7V52rtJlKrqFOx9sqJ6HidzQLIXbVLwX2ePcA/PwLnw+hRFPRcUovTI2
5S8YGLZHrCzn8T5aazn3dA5ivp90/1hBxZvRp07G+s7BqM8C+lRR0W99XJHp
njmIT6ZPtdVRMdAs7bn++CzMCx62yWql4rLrzc7ROAv5lY3Ug+NUZE1s44r8
mAY1c2ZiMp2GEwO9RfwWk3C73/GirQQNrSU3XopRmISuoDFrEWkavqsffuny
bwLCM0UEz8vTkP+diujzNxMwus7MzUSNhrGz+5dHUScgnfN186QxDeO+pzSk
DIyCrG3pWwNvXn7vUFeVhmEwEWUc+uJLwyd0rd7b8cPgU+03b+pPw597LHU9
XYehVG/TzsOBNDy4ja2U92cInGUi63xv0nCnUrOUqfwQJI04DKfF0VBmdEu5
+sMBqE7Ov7slnoazVrcutJ0YgCl7UbW8JzQUubdwVGzHABgyy/3Lknm84U82
qHX0Q+9bJcHO1zTcvqZ3eKtyP2wI+itJKKWhh9Obkoy+PjDRPlAaV07DkGv5
AU1FfeAznuEqXUnDHTHLR87H9EHpMacMlRoazhQm3qCZ9oHz7sode5toKEar
Non/0AtJ66JtgkZoyK1NeheQ3gPVX8d+C4zScOh0aYxLWA9MXdv7OGychvF3
KwbfefaA4cxCz8MZGlrOtXwMUe6B3hbnMzlcHo9tsCcntxs2JKmFDYrRsUt9
75BmVhd4tJzck0Kio/P9OBzx74LstamCx6h0rLml/yoAusAgUOLKdwk6KjYc
iyXVd4KdjfC5WkU6GtUciFgm2AmJYcZbw5TouHzlOdOtnA4YKr46tluVjhmO
LjmyiR3gr/LbvViDju17izSMd3bAfaEfDm8N6Lz34XyiUlg7tOpJiZ/dScet
Z3bbyTi2g7SvXYuyEY9v4AZ/mXo7ZHaxrF/so+P2tWqvuB1tUP3+4544Gzru
dTr+XUivDfhPPtx6xZOO5tt1jnEI32FfImdM9zQd+w9wIpQnWyGyWSTjzxke
3zMNFGS2gqTRDQUfPzqWj/7Okb7bCjoS3uKuV+l4IvdvX+fqVvBhmiw3jeHx
RwYUuEm3wIflIaUr4ni8jk9etwq2AJ9eyZXyx3SktpNK3w43Q3jatnn9RDpu
tLl2PTa3GdKvyY2rZdBRqfLIB/79zdCrwW0hl9KRFqmYaRLdBMR/71gV5XR8
KGFFE7jaBMbVp7/6V/L6qRTavuZkE6Q5deQ31dAx4bx//2rDJjhzrygmppmO
/Fcv7Xg23QiLAxdtyKN0TDvW20fk+QnVHHWzinEef6JboOmBRjgaNLLLf4qO
Dkm/uz8bNkIpwU6j6Tcdg9eQTR02NMJt3CEWwy+OfoEvJ/b+aADSo99MElUc
s1o/JH/3boDdrlmVX+ji2GMVIOTi0gABaic++0mIY3ntlXvihxqgvaIps3GD
OBasn/Ag6DdA0vS7e9Eq4rhrX+kifXUDqJqfMyXtEsfTJh3TKln14ERV3vXF
WBx33PyV6p5SD1F9fTp+e8Xxy7jsZHVcPcxcOLC50Vwcnz1qixW8WQ+FL9RX
Rdvy+Ba676BDPezlm6wgeoljtJT890vEejD55RMac1YcMz8ciohYUw9mLTOm
VF9x/NPwpvOTYD1YZv9hiQfw6hdeGPKe5YCtE1/bhmBx1N7YOyTVwvPDxevG
1WLEsdpmmYp5Egc8M6Le5MSKo+dgavS/xzy/Hks4p/lYHLUYLfNfozlw9izl
77Zn4vgr6IHF01AOBEhLCUC6OGYbz0hY+nDg9lVVivkncXzZ/3zBm+ffw05l
t9YVi+NthzYND0Oef7ZVj7csE8dAlRup3vociFTTlrH5Ko4eNetrcjU4ENut
r3SEI45dXhfr/kpzIA3NwWOAF3vsP6HMZUMl36kTN9cyUKL70ffkYjYMeTB3
6Ysy8H7v8dTyIjYI16tLzxIYOGZVZDb2ng1mz/+2uNAYqOtlM3zkDRtY+26Z
GMkxsCp/V++TJDa03E9SEdBh4JX37Mv5IWz4u7BcuFCPgXT7Mv2j19lAd/UY
8AEGCkxpTq+9ygb7bWpPe40Y2K+qtjLkAhu62z6uL93PQKWuXXvYp3g8cq3T
V10ZeP2fhyfThg2rwvVY290ZKHslr2rcig2bfz/NmPBkYNf1CW3KfjacqnJz
dTrLQK1HcnyB+9gwcXqmCQIZKFL+I/OBARv+5K0r4EbyeDLlfQU2s2Hlvt1X
LxUxkH9zw0+X5WyY5/huFPrMwOW6D2JOC7Dhp31iXUQJA/W0G0suLmND3dlF
RnIFAyOKlU8kLbHgv9icD1UsBlbMOoXKz7FAckhymtzPwEpF2tL4IAu0bv12
fSMigVOtYxt161igICovorteAo02XPhbUMMC6mPr3HIxCTTnZmTof2PBfOZr
/haKBJ6g/gw2/cqC4qbjT7kyEvjA6emFW6UsMFNgtZhqS6Db0cSmc/kscP6S
ZjrgKIG2rTHJtUksMPhhrXL8mAQWNT7eHJvIArrA0tru4xJ452SUhcszFnDQ
itPqLoE/qoNclz1hgWHRX9taHwksMAyItYhjwYa3Jm65IRLIfC1+WCOSBb3P
fl0NzpRASqCDCfUKCz59jnH+ly2B6y1iY8Qus+BRJxpdeiuBVJkXsDaIBdaM
6BX+7yUwb4r7dFUgC0of6od7lErg1tD6o+vPsyApPPyxZZME1kwUCNuf4fFf
UsuT5Epgrif9UIcTCxyoRW/YfJKocnba8ddRFtjm7nl9Q0ASM05/ebPoyAKL
X44pIyslsZS1W0XGgQU69vfu5xEkse+dlOqFwywQ0xvxstgkiefbHQecrVlQ
tpC88bKNJB498vX0KmMWyAVS4jrSJdFgoGeMT4UFE9tOH3V+LYl+neN7bZVZ
UDhTKj+YJYk1ay7KZCvx+vHyypnIlUQGgWJ0bDMLrh778k3gsyRuzq5bVbWR
BW17fLmb6iWRIrfhecYGFtwnMo/7L0ii/NXWks9UFvx7HaK6zkwKfzJiR4SF
WDDy+dlkp4UUhv75mOm5nAUN7ILcTCspPCBS218tyIK02TEdi0NS6F5189Vd
AV59/UN77jlLoW3xmXukZSxIqdnotPqCFO60/tcY8IcJe39+jVrxQgq5S1WC
H/qZoL7Ua9OcJoUtidcUH/xgAmPdEiX1lRT+m94ndbaPCZPqW5/sfiOF0Tvi
r2/uYcKji3HpN4uk8JiqNPllOxN+rfIsE6iXwo5o/Zaaeibv/38jpL5RCl2c
iH25HCYUqzzZl9wihecs1+cnsJkQbcVhGnZKIUd8It+byQSDOJ32a8NSGHwt
ZLXsNyYovrJ5avWLp5cpNhetZgLho5ezzLgUlgYI2fBVMWGoO2moeEYK03UU
0rsrmMCZKnoV+VsKAzXf/WF/YUKRYLOX07wU2ggWrSwvZ8IL8uRWtSWePuxB
a14ZE6IUV8/++yeF/aaxnumlTPg/yMVTKw==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208435#5"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.922526, 0.385626, 0.209179]], 
         LineBox[CompressedData["
1:eJwVl3k8VV8XxolShjKUO98bGSoSElKsRRkSKkkqlAxpMkspQ0JSpIlMRVKS
kIRUipT0S8697jUkQ2bKmJT5ve8/53y+n7PP2Ws961n77C13xNPadYGAgMB2
/uX/d+bpKxUNhlTwucWNlHac1L/u9ntZ5E8XGPxx34IqH2fwUrc/PzjMDxZd
1XVVks4zWFvWuF/vWjCUFL9NbjApN6iRcxGctgwHuYDLr7bHfTWI7Grm2dlc
BuG/E1HDnAYDg0d7sosOxIL56cL9zFU/DKYLXSE6/zpYLVlvoWPda7AvPn3N
yw23oOLcRtdfAUMGhQEtMn1F8XB8V4t4vvlvA8n9lDlZvUT49lP1Qz3vr8FJ
vb19xm+SoSLiieF4y4zBJ9p1jh/ehR85yoeqNAThRrBbK9spDZ77ebvd2iAM
6Bm+51hGOqwJDstO8xOBlF3v9O8oPQDmrc+xJ14sBXPD1oL17pmQfCVxovaA
FPzTmFGuevwQrnYdCZsPlAEbGV3pCdXHUCQztF+UToYFwraXYjyyQU/DW52S
SoX8cd8ZhfwnUDQudvaBAQPE6/N69mzIhYOOS5599JaD0o81B3/65YGRuV/K
ld/yUNjs7254MB88v9v8LY1QgCNfbrY0pjyDdY+6lEOblaHsaW2VyMpC6M0S
F061XA8rHjqG1b0rBFOPXwmNj9Xh5N3BLfecXkCkgB9j0wsNoF4TK9DOKAKp
cZOXS7o3wGkv0xRXpZfwghu8TvOxLtS419tqVL2E3Dg3G73hTaDg5Co1e7QU
HMKUA5/obwbO7ouRtx6/gvR/r/NqfuuD2oa3Xu9Vy0DMaW3xzQ5DiFCxUrlW
Uwabh/9zN31kBN9XtXQf8HgLP8OYMRpeW8E4Omjd5L538GjSY+rRUmP4HZh8
Py6xHAz3UeOXBpvBTvuGq2/plfDLvHLxhPQusD9v9bDPtxICjmuWL7i/C9xT
PryV+q8Szr/oDQ7esBtCvz8fcz77AcaPDV1742AN+fZxdovrP4JdUL/R+lob
kHTYrrD7WjUYFB7aaaZwAOhB7/QDe6rh9PJbjICmA7A6VWdfhv5neDJl1vwn
7iBgi2L0n5+fIU9IPLlxkQN4OywYSTT7Ai9q/c+NLToMHIdXrzoEa0Hgi/lF
za3O0BqkyRPbXwsbv0jbxec5w8/Ux0Na+bUw0dR0djHDBRYM/xe3dT0BbwL3
NyybdgHq+tL3t1sI0CW4yj7v3cA8L36Nnh4HTAqa96RePA7ZeTv/hP3mgvnF
SolqO28osniqpkXnwfyGHTv0E73hfb+oe/c2HviG0MMlvnnz9f34zTSeBzRZ
/1Pv7H1A4s6Wd+Kb6sEF25Td3HzBK3TNlfjgBiC3jMsfjfYH7d1CctlLvoEW
y83HTCYQyseKLNisNgja1OO2aVkYnGltWVdk2gZpKb+VNTaFgdpn4WXJnm0g
kemhscs5DJLSrdkub9tAW1xbT7gkDDat/rv2/Pp22B3AIhk7XwSphht5y2rb
oer3Tl2t8nAo1/pcor20A0YWxciWJl0CuRHd/8KvdkHBOzF0KIuBgQeSz23+
9MPbx6hmfzwegqbWrC8VHIYEW4lzOU53QaKKWbxGfwxuJt/TzBvMAP9z+nX5
v8bBdv35Qa3BLDASCHq5wOMvpG2F99O8p7DiwaYLHopT0PZERetk3jOwIJNk
MnNnQH5uXVjnvkJgBlyWk1WZh48tPy3/my+CwMDXUcSQAC7ctemD2s+XcCe9
0nVafQEOmpj+1sh+Dbp2VzZsiBVCDPl6UfrRW1AMT4HF3cKYcvf7hxvm5WBM
LsuvUFiE+to3o8MeVkDv5rvS0SEiSFHtnLrJ9/Hrqtgm7feLsSSyPOmx/weQ
6dS/PiInimpBFFfo+QjFvjqXTAPF0N7cOy93+yeIPWnYcfGVOFK+d2oUxFZD
7/gStRrSUow5f22FRu9n8OnuaJ22X4bskyU7Rld+gUxFod5OS0mc2XGxdtKi
BqxXjtsSU5IY8Ucjmh79FSg7T51dnyKFfxh31jtn10L6B+PlK3ZIY1/hc+eh
kwTUnt5qVT0hjYRIcU7nDAEk+2q9kXgZrDt1SzwwmA0rL+feS922HPWyZj50
LeSA0QCt+E3PchzNrnJ4GsIBscjcUzkRK9D5Zb2f2G8O3D6WliKnKYuVQzcD
bp2sA90L1OAldbIYmHh0N+V7HRT1XNB5z5NFTd8ae4HWOthg0T9yvlEWt+hc
mOxtqwM1UonzSIssOj1cufBlZx0oPN27vaFPFv8JKuk5/6wDqaa45Zlzsmjs
NVXTOlUHA+oiT3AtCdc01fVnUbngHu/hMqVKQt7NlqXP6FzonuYxCteT8O+N
XWWlTC60f3wQp7yRhFIiod858lyotzc6vRRJ+HbN6r+yKlx4HxVk+H0vCcmq
GqV/NnMhpf13Q8AFEi513FVncogLA26K9kLhJGyS/q1zzIkLuoO27bGRJMwx
dW2KceYCd/JlX+YVEt5S2TLUcpQL4jKhk3W3SShwtWtlkhcXzhuL09SzSegm
TKhfD+PC5//0773KIWGKpsit9nAukK09V5nmkVBfN2JQ6xIXCh05Ko6FJKQ9
V2ANXeHCr4A7W66WkXDWnVX99DYXDmYrOPZxSHjA2Gz1m2wuZKnbdvjySPgi
0/zq1adcmCi65DbfQMKR9qhjR/O5cOP9gIdsCwmFnx7TNiziz/89P2RbLwnN
75IK4ir48zt3CBH9JPRWWBVQ9YELbv0yUQd/kfAmoSMiUc2FBROn43xGSRhq
eVfrYy0X9Jbpp6dNk9DQgR0208KFqNseiqpzJDzd4ebw4gdfX1ra42IBMu4s
LDwU2s0Fn9VCBV8XkjGgVSzGapAL2YbVFTPLyKiwf5NCwywXqH57u+wUyFhD
+y/HWJ4H1teEMhqUyPjvveeiSSUeXMl+5mS7hozR6xZvKVLhwUy7RNseNTJa
dZ8zM9/Ig1bLj01WumTUbtNY98aMB7LH/O7U6JHxQwMlP8OSBzvD5fdZ6JMx
L4XMumrNg3elwdztRmRUv/I6yd2eBxnKOrXbLMi49GCsyS8vHnw36o55b0VG
vZ+vCvef5sFyx5sWRrvJOKjuETV6jgeRt4arwZaMmhbti0su8aAsLzWqzI6M
xYKd18ZiePD38w5T/YN8Vh1R97zFA3fBrEq9w/z4hlbFmdznQRrd9uLLI2Q0
3pIm/PQxD5p0hI10XclYRG7wPvqMB+Yeh99uPE7GVd1R9PJyHqg2k0vV/cj4
37UnXoe6eeAy8fFM3mkyNpTfDnw7xINUKX8dtbN8fXmJSVv/8WCpGbtQJZiM
1pSShnti9TBSeDlPKYqMIcfO+jtsqIfVhI5HZjT/e3MRQSn69eD0s1tVIYaM
h8tg42KzeuDIGWXL3SCj+4Ol50Mc6uFF7NQDegoZubR5q/Qr9TD0OMs5+S4Z
HeLW3vudUA9KH2zlqelkjBldV5L0oB7uTBfcIz0kY69L662BsnoIdD+RJJ1P
xtUCTnpZf+uh4CJl//UCMm6lvpAsWdQAP+9WkSRfkPGG5dXRVbINYM9bdVui
lIxLujVZK7UbwMDo+7XFlWQUIUUJrz3XAPHfTri/+UjGlzavytZea4BBn2n0
qebXe63n5YqMBkjJoI41fyWjQIs14+vXBpgS3m+T18Svx6KikJeqjWCd2qfq
8p2MwnWeej3GjfB445mFlDYyxmnOyHw81Ah2bglFYV1kLNzLs8q+3QjFVTyy
7TAZSTU5m46INsHSw66jomNk3Lb+2ObINU3g9m+8+u04GWk7Dh46v70JZNcs
P7dmioz6TIn3o1eawC/aumVGmIKdoepB12nf4It8x4tnIhQMHXuc88PwG6x6
5R3rJkrB/e7bPbYc+wacn3FALKPg538K6XqvvoG6ZW16BpWCWcJ3/p071QxR
3Y6BdgwKfnFgyJqlNkNb0JC1xEoKRk++7jj7tRlicyWEAxQp+Kfh0Xbjjd9h
cJmFm7k6BVn/XameXNEC27KaDeY1KbjxXOh7d+sWSMETpMKNFMzJqPyRFNcC
Ft7RnxibKahuWqrjJN0K2ZxPa0eNKfgg+biWgmobLDhhJ/TQjIKt68q5jgFt
sF+or/nADgo+WXGlJaGyDRZricRU7qLg6B0aPVGzHdxuGw8nHKTgV2UvIfn2
dihbx6uycOTnUxWTsHfpD1jx0SVN0ImCleZ3Vj/X/wGVExd3n3Cj4MdFRqvn
7v2AVXYVzw28Kfgp+zPJ17cDzKXo+z74UtCR3tI586gDfD77T+04TUGzSO/q
3y0dULFljeH+c3w9owMTkqw64Yhc3FffCAo+XfT15+9tXRD9rd976hIFrZbp
CFZE8vclN7euuBBNwX/b8j1In7tgwaK/B2OvUfC15UCZ4N5uuD/g0J+VSEGv
jivVBWd64HNG8dX1KRSs8JnmbajsgTF7KfWiuxQsUU8+nCDVC0a1laffZ1Aw
UCF3o9yLXuh4riLc+pSC3w7cuLFPrh9ET0U8csmn4GT6qMPF0H7QVGoz/1lA
wSG56/80f/RD2J0b1/8VU/BGg+eUyeMBkA+aZMpUUJD+T7hI8OAvMNfeU5FY
ScHj0i2F72t+gc9wjuvKKgrWXEjwpRkNQoXT4Zx1XyjYIuXC6FAdgiMmVZvM
6im4YjDiUcnSEYieX9nytZGCPMEHnOPWI1BQEhi6t5mCKY/CcvMTRmCBilrV
kXYK7v6pq9WuMAr3l922CRqgoOXKoz+7dozB509Df4UGKdhjsMDOOXEMxi6Y
JUcPU5Ajk1bysm8MjManfySMU7Dv76u6squ/oaPxiGfBHAXTKXFNzL5xkL+v
Ht0rTcXXxaYrP/f/hWONJ0wfrKDi5Gr3CbeD/yB/6SNhJzIVmzuHFVVq/4HB
OUbINwYVnRKt1huWTsIBG1G/mtVUvv/UnaYSpuHGoi6H5wZUrH0Vbrr5+Tw0
bWHRvAyp+N5QUFaVKYArfQ80qm6j4mbfP/JdRwQwt42wfridigarH8l+GxTA
zyVvTBNtqJjq0T00vHgBLjiRoBFynIriuxpVpXcK4/Z0ztDmU1SsrNwr8TVB
GOMaJHL+eVLRkGjdLdcujMxt4Uo+/lQMUpWctPRaiHoMb5prKBUjv4891b+8
CC/syWmUu0jFFds7/yl+XYSfLvfebo2gYkvWJusUaRG0nXCQtLvCj2dJpeRc
ggj61Jov3BFPRbfX7rNB8Yvx5cLICpFEKibuWaDzibMYBbaUh1QmU/HoRrhz
T2IJxmbpTOmnU9F8wcVP7SFLkNfqUzyVQUXhoWuFEUVLkL4i16/4IRU75UkL
fgwswewLCsPqOVTMFHo20mopiqPFh3IGc6kYTFCzus6Lou5Q0rHsZ1S06bYV
+v1YFEMU6pWOFlKxZPXaMxVcUfx4QKprVTFfT+/jhlqzoihx3SK9/SW/fiGC
GVqrxNCm6pJj6msqLlra+q/JRAw7Nsw1ylZQ8dpQ00zFJTFcPv+C+FhJxfmM
aLvdD8TQ+POpT6erqAgdMZy9ZWJ4+rbiO6XPVJR8NyddxxPDrMMtxfVfqFgw
Mx8/PiCG31Ru50XWUvFQl5IWd1YMxf9aPNLmUFF+9Vj30aXiaFAhfK+HS8UP
5p4JSXRx9Ix5HR/fQMU7iTbR8qvFMc3OL9bkGxXpXe6b76mLI2eVauTEdype
EFnyRlJbHIWHO4MetlHxto/l7cWbxFG7NNnftoOKD1szGQJ64ugesefUom4q
TqdfLnquK46Ju8Rci3qpmOIwp5+pJY6fae/t3QaoOPqhd2/qOnGc6Qm0kR2k
IvlQxJbcVeKoVqBp8XGYisfJCfWCJHE8FDSw9fQYFSXGVJ8ILxbHOLP7m5X+
UNGTLS+36q8YVsgc2FD/l4pvDuTspHeJ4XirlErkFBVN7Iwb9b6KoWJ2tbz2
LBU/hcrEb30hhrb+F6g981ScvavFG0sUwyjcJB2/gIZc37TJf+fFsFRsdInJ
QhryhO1uTjuI4c/6LMEJERqayFQr6G8RQ6tT5NG9EjT8UGyU+XBUFEN1ib6F
kjTcwnbu3PNZFAuEotpfSNMw/rFN+7c0UVyR9Ld2BZmGUQtFm7jbRNHENa/q
A5WGfRN+HpXLRfGM+tG3/gwapl9WuePftQS/f6zP5cnTUPRJTnp00BK8//tF
zO11NPSVK6dsvr0Y1Sz9dqzYSkP2pvX+p+4swsNk1a0fjGlouEvMe2jvIrze
2annb0ZDl4Id3h6Si3D87J61PEsaZkTdPbHt4kJ89VBzyW07Gv4SvL9x1ylh
NBMY/bjcg4bzByA1TnsBmv/yuRzvRcPwNQHrd44LokXj+A6yLw1PqL5SLngu
iLvy/xG0MzS0f/ixI15LEO0OCzTLh9HQ9pqGj+sGAXR/t2xYPZ6Gl9WcZROT
Z+B4zvVnBXdouP6S1v1TSjNw8o6Mn1YyDUXqblZEP5sGLy/SpE4aDXvIY1JX
qqfgzEqWEGTTkH7ubeZ/tEmIClUjWZbR8FZy1qcPk38g+mR+09d3NFSUp959
lvQHrtpppux6T0OnTLM7nVv+QJy6tpzNJxoGxL4Krrk0Dnfa9VUOcmhIjvvg
XabzG5K+vB38zqXh1RFNK/vOMUgpMcx3bKBhtu2Xkq9xY5AWZ7zxyHcaHlDW
O3h6YhSy0BKO9fDrYfRIcSV7BLJVawV/9tGQGXxDAa6OQA55d+XJnzS8bfb6
mqLpCOSP2Gz3GqFhk3u7aV7EMJSk2e8JmKJh7NUrM7fuDULp1dYVkzM03LuS
FpmtPAivzxxuDJynoV/cHbOCgl/wbpeLQ7AwHVuok/Ofqn9ClcDJoxFL6Rg7
Ln5tatUA9B2r3aovRcdXIbwcxRf8/2Wd5so/MnR0ntd9GmLWDxaZk40uFDoy
dn9khQT0AbH9kvk2BTreqhdPtl/QC6MFA0ozSnTMmQs5cvJRD0jTrYQK19Ax
6CXlpKtJD9gMLX+9aj0dE0dqjFLjuqHxxv11Qnp0TDjMUKTs6YLJ6YWir7bQ
8dK+hxOGIl1AdT3W4wN0NFZcl2Bf1gn2Our3OrbRsaDpS0CReicEpd08l2RK
R+Uuk/9m+zvg7pK/+6zN6fhwQ3X5gQcd0N78RrJiJx07LobN9zA7QNBYbvCs
NR0X/B69VtL2A+Rzw6s19tJxtC0mxC/jB7iE7ghLP0BHLXnJa6c2/IA+habf
oa50tMkwHp7a2w5LYrcQuu503H4mfzqR2Q5r/97LGTlOxxjpIv8+XhucrHZz
PexFx7+a2l6GzDYYOTVeD+foOH7J4z+fzy0g1bDv+d8gOup4p4nYn2sBTXx1
LS+Ujk9ONa65vrYF/KTDzFiR/Hj/qN1xifkO/4qWlc7F0bGiZLfLXrdmoKz0
jS+6SceT7yczfenNoHe53scjno5j62ZIXo3f4PzBVJXWZDq+u7x/52ubb5Ba
KbA4/i4dg6+lTfyW/sbf/7l0WabTMaL2vxNf2U0gIKCS+uYhHX9z3ZR/2jWB
3LHYs/6P6Tgd3vBBXr4JjDije9fl8PVS0PR+OtgI4Q9KlqY+o2Nyimy9akgj
LN5uEnr+Nf/5N0ZFagl/v8/xVV70lo5+Q+Mb567wzxf26V+vldPR/vhGBVfH
BvjqNUPP+MiPJybOM1yqAW7eKXhZTfDrNVDR23uhHsLl2w/vqaOjrIr36q37
6uF0jsTiFh4d90ctDdFXq4ej2pvz3BrpaG3yfI3Iknqwe+duO/KNjrOUmPXG
Pfzzm3n87NkWOpYKmQ2EVvJgM/f9A6F2Oh6TTLEuecA/zzmO7ojpoOPPcs8Q
kcs8YPYxf8t28+cLidy+xpsHkj4WSWm9/PeddmeL7OeB4MxZw7UDdKxPPxxB
0ufBWMSjvue/6JjqdXt+N4sHXct41/SH6bjQdiquTIgH2TpXVF0m6Zih/aF0
9gEXUspL6gan6Xj4udklbjQXYnb0BAbM8ftnb0VsoScXgnky8oKCDNTS44w/
sOGC1yHD6mghBgZk5HFy9Ljg1O/htXwRAyc5YXXp8lyw9k0h3V3MwM4aDykj
CS5sm60uUxZj4Ee1Y/4qU3Ww8dJf12cSDNytujrpZm8dKEkpSmyWZODlRiqz
ta4OyMnWhZXSDKS+oa7oLquDJYqhB61WMDDEaW238OM6mMp9uqCRxEAfofxT
e27WwS/d5sdOVAYKbZVs7w2pg5aKxbt/0hmY52na7eBVB18ttP/5sRjYVZ85
m3WkDt7VO9+bk2MgW+5eqvmeOig4fN0kSoGBmh2OmnTDOsgYKBuUUmYgpWdA
fcn6Orjl9+tW8hoG3mhGM+GVdRA5R9miqMrAuern5yJk6sBCiWjcoc3XQ/vi
/pPfOGCQPxvC02VgKav0487PHFivp6J8aDMDl9iR5GZfcmBlpd3XPn0GBpfd
VvnwmAPSVpH+PsiP75K4RlESB4Qan9NnjBi4NiP4ycJYDow7/XgfYcznM7Z6
Fy9yoMF/i3SiOQPDaivdlp/iwKf5Yy/lLRmo2P6qvuUQB0ovJxzO2cnAK7nG
sTp7OPBE5oOItjUD110y3q1lxoGU1LHctzYM3LdOdH6rAQdilVfabt/HwOon
f8+kaHEg5JnlLGc/A+UmPAYVVDhw5EPWjh5HBvbmG5KGqfz8uqzXOTsxcMKR
WDcuwwGq0OzSdmcGqk/RQhXFOTAh92jE3o2fT4CaaN0CDnBwN6fJnYG3zqoV
P/jHhtxD089tTzCw5q9Ee8AQG6KDM2/XnWLgCffM5PouNhi9nrSr8WGgSfVJ
9Zw6NjCbM/TM/RnY9DD30Mh/bJiatKRXBTBQfF/NLvVKNhTo3G97d56B5rUu
5mXP2RBra1GuH8LAq6SClndP2HDcf+J+6QUG7q85s/LwAzbIPzd3K4xkoEjt
V4GaeDbMscdNNS4zsPZJ/I+9cWz4NnJ3Te4VBnpc6J7dE82GomXbxVRiGbg6
+GWCRAQbbqj9/vUojoEPLdDkaCgbFmQn+yYnMTDQN+hZ1Ek2tH4y3ktO5cdz
aqq/5ygbSnuHtW/fYyDMt1bpObMhflESWfo+vz4BA4duOrDBR3HbVOwDBr7J
jX+6x5YNVtuGmsUeMbBEkjXna8WGtc533kQ9ZqCVutcyN1M2LAozurcwh4Hb
an4EKxmxoSPtV2hYLgOzk8uTtQzYUPY2/sh8PgMHftW6VOixIakVt51/zsBX
BXY+ijpsOD07oDj5goGCCZd3iW5ggzX9tsjpEgbuzOwTVVFjg9pm6B8rZWDx
/nCb+NVsED3Q/9nzDQMzFFauWbiKDT1nbub8esvA14KCnK1MNlQk6Mceq2Bg
7GCCaBqVDXeLej17Khlofydb+gKJDYG867udq/h+kT/8Tns5G2zHN29or2bg
MXH/8DOSbNCU6Vnu8IWBZxRTe56Ls+F+bGzyrnoGsgYzte4IsCH4qW5QTSMD
m/XmVjnOEHDgS4ejeTN/fblkemDZPwK0f17FqhYGPv2zufPqOAHSojry29oZ
+HvHsDKOETC0+odQeQcDbz+JW+g7QsBn0yvd+t38fr4s2L9tiICHbhurSnv5
+efVOK/9SUBYRFuWzgAD334I8k7rJcDxweXowl8MTOj3NtvXRYDe+w0nNYYZ
yEl7vb3uBwGyHS2WuaP89cT4ZnlTGwFjAlHrVcYZuPB7qchMCwFHzqsXMecY
KLPwW9tHLgEO5NfP2AJMPO+Yv/YEhwC7QtOn4UJMPPBhU/YCggCrX44PBhYz
sSCSHnr6MwHbowbupYox0WVKJHRXFQHbFE4n71rKxOQW0YmZ9wTAO8EEISkm
vvGGVW/f8eOzj7lRJMNEP3rGzZk3BGz8R449JsvE1FmF2qWvCVC/9eAyncLE
c+W1x56XEqCirh5RS2Oiz9nDu+AlAUpfXoWGMZkIkGcmVUyAnLvp+Y1yTBT5
rK2sW0gAXbguoG8VEy831L81e0YAKc3RN1mJiTRlC9H6XL7+WwY8rNYw0fJ1
25LJHAIkGv2PC6oy0en0gV+7nxCw2E/QrVCNiWcZS+rPPyZASDLG6agGE19V
ZmrYPiJg7gnZgarFxOrs11fJmQRMmj6wq9Fm4sKrmb8WZhAw3rneJnQTEzOV
8m9tSydgOOTVzg1bmDj3Zodb8T0CBmimO3oMmKhr36+tc5eA7mKOSaIhE9cR
rmOPUgho3+NoZLGNibMzGpJyyQQ0D/frz5swcbeL0PSnRALqr/hvKtjO13vW
q/jtHQLeT2coB9swUXXRAkexmwSUJaxfpbGPiblq8dvfxxFQuuEVs2s/E/9Z
3nhGxBLwotaEmmDP5J8zn0dHxRCQf4KzwvwQE0OebtuZfpWAJyKOUrNOTHx3
5qJvxhW+/zL6xfNdmGh3e3U/PZqAdPBf7HyUiSNP4molowhIaRYQlj3OxFNx
Xj0jEQQkBFyd/3SSiVzGrMuGcAJuyJCnz3kyUfJxZ4nyRQJi8jIm1HyYuJJE
NrsTRkDUjvVjP/yY6L3YYFKTzxd7SwdvBTBRyVFqU9YFAoIvmvSbBjJxe9Gf
hNZQAs6yOF1T55kop+NzaTiEAL9XDu1PQ/jfnxELnAgmQOEcKbElm4mHnO9L
CJ8kYETn1KEjT5kY0cKSazxOwKvxCsXePCbu97CZv3GMgMhn5F8nCph41PPL
5b3uBFh7eBSMFDKxNk1qEo4SwFSpPONfzERZwoJ20I2A/l4KTL1kokeJpO1N
VwJCnT78J/SWP79dd/FCF369TH3n1tQx8aHv3kP19nz9hKsrc3lMvJVzdeEy
PvuUM69saGTiheF3UboH+X7b/Jmk38LELZunnE7u568XanIau3r5/eE7lEmy
5eu3vNb59DQTX7Jcs5p38vudrbB2epaJYx2EihKf18QGjoQIsJCdFRh93oqA
dyJKQZcXslCg43CxriUBg1Pn41OWsfD8aFS6jzkBJcUcezlpFroOqe/N2U5A
uN/qVQ+Xs3AhbT+t3YwA6lBdXh6FhRlsIevNpgSY/VhbXbGKhXnGgeldWwlY
fjf0mqkSC31lPTNk+Nx2oH7vl9UspH/ZtczMiIBskip9twoL/bSFEiIMCTjN
vdDBW8dCY+d2UQIJMLrekHVAnYW5jKAtKnyWsFrn2abJQoWhrLkkIKBR9OJG
l40sNPDtmZDn84Oqxuk+HRaaMZK0yg0I8ApXqzilx0Ln6tGtp/i82TA8amwL
C0NHzu5i8nnRXJNVALBQbrAr7D99Ajil61fMGPLHT4sKnuRzakBEc+g2fj7m
KSMTWwhw12pOX2jKwjfud4OO8llrVN09ejsLg6I+DVdsJmD+aaTaMgsWPtCL
Z0nyeeBt2mirFQsDvn1bjnoEcNmlhbm7WfjsylJ7r038/uvkBgTbsPDA1rLw
bF0Csv4M6VntY+Gxia8jEzr8eoosmWMcYOH8v83f9/I5iLKqfNCeP15yklSp
zfef/j7TmCMsnLh5vaB8IwFbdnqLOriyME7l/iNzPis5XalRdWfhfitdWr0W
AZK+mXEzx1nIzeJKOfF5Ovztni+nWKiW9Ifbt4GAnvgm2RQvFu46bvTsOJ+J
rN9NJ3xZmHngxFinJl/fL8qHxc7y9b8ANc80+PX++em6yEMWSi1/vPy0MgGa
sx02DVksPLcm8+ZyPtOXzZIePWGhB+PTrzwlAkY1Ne6aPGOhp23SHE+RgO/b
djjJFvKfd9bWHObzR1tXhZ4iFjZ5KV3qUSAgKTAxO+I1Px94ONC5iu+/q89P
7X3LwjX7LNTs+exxt0ZdsYKF5TSJa4Q8AVsrBIsrq1jY2iXyPVeOgF9Ljr8X
qmNhcHDf8R0s/npIC4+s47HQVJqdmcvk+3/d3e0ZjSyMLqA4SPH59m5OrVEr
C7/5W9s30AkwSNT7fqGfhfozIe5+VAJWP7G5t/sXCxd83GLZQSFA5o3HEblh
Fpq3eV7dw+e+9vt978ZZ2MU00QMy309jr5/E/WXhSGSC+ksSAa+FGzwOT/HH
r14dv5HPD2VHNdRnWfjJM1GtUJaA66vF/szPs1BkZ8AbLT7/D7sex6U=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208435#6"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, 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, {0, 3.8}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
expansion\"", 
       "\"Low-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)expansion\"", 
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}], 
       RowBox[{"n", "\[LongEqual]", "16"}], 
       RowBox[{"n", "\[LongEqual]", "20"}]}, "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}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {40, 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 -> {40, 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.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {40, 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 -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   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}, {40, 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 -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 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}]}, {
                    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[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               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[{"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.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], 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.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], 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.528488, 0.470624, 0.701351]; 
                    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.528488, 0.470624, 0.701351], 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.790882453336982*^9, 3.790882501867523*^9}, {
   3.792374664527342*^9, 3.7923746907782507`*^9}, 3.79237474803944*^9, 
   3.79237499411572*^9, {3.792375026306861*^9, 3.792375134052556*^9}, {
   3.7924029902370977`*^9, 3.7924030406404753`*^9}, 3.792403090008027*^9, {
   3.79240312149918*^9, 3.792403131515787*^9}, 3.792403267420866*^9, 
   3.792404636833185*^9, 3.792404705061488*^9, 3.792404770664214*^9, 
   3.792404832025153*^9, {3.7924048760483913`*^9, 3.792404882613935*^9}, 
   3.792406490904468*^9, 3.792406637758203*^9, 3.792407145350552*^9, {
   3.793457972918446*^9, 3.793457981677313*^9}, 3.801993531088336*^9, 
   3.801993840422288*^9, {3.80200117688089*^9, 3.8020011925311527`*^9}, 
   3.8020866850937223`*^9, 3.802086716606737*^9, 3.802086751096583*^9, {
   3.802165942532137*^9, 3.802165953078238*^9}, 3.8021661564482603`*^9, {
   3.802166275396001*^9, 3.802166302092602*^9}, 3.802166522900576*^9, 
   3.802177643344718*^9, 3.802353533774496*^9, {3.802419573869814*^9, 
   3.802419600668242*^9}, 3.802419642563301*^9, 3.8025515949663277`*^9, {
   3.8026892051075783`*^9, 3.802689248070465*^9}, 3.802701603517775*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"addcb650-971c-447d-9e45-ff6aab4a2549"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"4", "x"}], ")"}]}], ",", 
      RowBox[{"c8", "[", "x", "]"}], ",", 
      RowBox[{"c12", "[", "x", "]"}], ",", 
      RowBox[{"c16", "[", "x", "]"}], ",", 
      RowBox[{"c20", "[", "x", "]"}], ",", 
      RowBox[{"c24", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0.00001", ",", "50"}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", "\"\<c(\[Beta]) / \[Beta]\>\""}], "}"}]}], ",", 
    
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<High-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\) expansion\>\"", 
       ",", "\"\<Low-\!\(\*StyleBox[\"T\",FontSlant->\"Italic\"]\)\!\(\*\
StyleBox[\" \",FontSlant->\"Italic\"]\)expansion\>\"", ",", 
       RowBox[{"n", "\[Equal]", "8"}], ",", 
       RowBox[{"n", "\[Equal]", "12"}], ",", 
       RowBox[{"n", "\[Equal]", "16"}], ",", 
       RowBox[{"n", "\[Equal]", "20"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{"ColorData", "[", "97", "]"}], "/@", 
        RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}]}], "]"}], 
  "]"}]], "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, {3.790882229195242*^9, 3.790882338816361*^9}, {
   3.790882392082082*^9, 3.790882410199548*^9}, 3.790882481218687*^9, {
   3.792374703041896*^9, 3.79237470544767*^9}, {3.792374752269224*^9, 
   3.7923747523930387`*^9}, {3.792404902068869*^9, 3.7924049086980267`*^9}, {
   3.802086743964109*^9, 3.8020867457475*^9}, {3.8024195819822483`*^9, 
   3.8024195828431683`*^9}, {3.802419647305911*^9, 3.802419647693857*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAAH5kSIJ4GJ8DRZMLVkzktwN5e/Qwy
BCfAkCqtwic3LcCcJOj5xQEnwE7wl6+7NC3AGrC90+38JsDMe22J4y8twBbH
aIc98ybAyJIYPTMmLcAM9b7u3N8mwL7AbqTSEi3A+lBrvRu5JsCsHBtzEews
wNQIxFqZaybAhtRzEI+eLMC8RvyDisMlwG4SrDmA9ivAOJssup4mJcDqZtxv
lFkrwHxDL/PGjCTALg/fqLy/KsDzubga5eUjwKWFaNDaGCrA/kY6TyZKI8Cw
EuoEHH0pwDyiQnJdoSLA7m3yJ1PUKMBDUR2YqPshwPUczU2eLijA3hbwyhZh
IcCQ4p+ADJQnwKyqSex6uSDAXnb5oXDsJsAOVZsaAh0gwMAgS9D3TybAcaZ+
lzoHH8DrHm8Bk7YlwCs/1NZcuh3ASOsZISQQJcANBRowxYMcwDjOvE3YdCTA
VWdtZhkzG8Bcf+ZogswjwC9xZaKV6BnASYTihkAnI8AxqE34V7QYwMuf1rEh
jSLAmHtDKwZmF8B+iVHL+OUhwCd8KXj6LRbAxYnE8fJJIcAcGR2i2tsUwEBY
vgbjoCDAol210eKPE8AG9RQ9zvUfwFDPPRsxWhLAtGadhhzAHsBk3dNBawoR
wMh0M61WcB3APzG0BNehD8ADsLnt1jYcwNv2CZEnOw3A0ZLkM38DG8BC9XrX
T6AKwAUSHVcTthnA+E3MUQQyCMBgvkWU7X4YwHnfOIaQjwXAIQd8rrMtF8Af
wO7FbPkCwHT3Vs6h4hXAFPuEOdWPAMDuFCII1q0UwKjdbM4q5Pu/zs76HvZe
E8DIeZCRwwH3v9a1w09cJhLAL7RGa/w38r9wRDGG6vMQwFnAZnLJC+q/3t5Y
M8lOD8CTgcHdylngvy2PL45J4gzA5pckxqxcx79GeCGjoUEKwAhjblkdyr8/
r7vz64XNB8BbBH+15DDbPz1OD0C6ZQXAzVTkIUII6D+UGUZOxskCwBffw4zw
4vA/PT9dkF5aAMAxIl+UECr2P147Hxmdbfu/BMdnhZBY+z+MlhYoHT/2v5zb
Vwf8FgBAWKbOnrVp8b/rmuAR2LUCQHRPehP7V+i/6f+I6CcoBUD4drFxdx3d
v8QV6LMnjgdAO5BxLfLaw7/ILr/W1ssIQAAAAAAAAAAABzanTg==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208552#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAA7zn6/kIu9r8AAAAAAAAAAC+0Rmv8
N/K//S2cnTSyz79ZwGZyyQvqv4SzjYu8UOK/k4HB3cpZ4L9K8jIguwLsv+aX
JMasXMe/86Y1Zq1C878IY25ZHcq/PyAgkdTkKvi/WwR/teQw2z8G+1ksfPr8
v81U5CFCCOg/KzL2BzIZAcAX38OM8OLwP4MM38WZiAPAMSJflBAq9j8QrqzJ
KSwGwATHZ4WQWPs/egAxwmnDCMCc21cH/BYAQJT41IYdLgvA65rgEdi1AkDj
t12R+cwNwOn/iOgnKAVAcA4DtKQfEMDEFeizJ44HQF6ZspmkUhHA1PIrxU8o
CkDmh1SiuJ8SwJV1j6LrlQxARkkGkYbWE8Aa5zo+w6AMQAkC3F7y2xPAnljm
2ZqrDEDLurEsXuETwKg7PRFKwQxAUCxdyDXsE8C6Aet/qOwMQFkPtP/kARTA
4I1GXWVDDUBs1WFuQy0UwCum/Rff8A1AkWG9SwCEFMCwF6mztvsNQFQakxls
iRTANIlUT44GDkAW02jn144UwD5sq4Y9HA5Am0QUg6+ZFMBQMln1m0cOQKQn
a7perxTAdr600lieDkC37RgpvdoUwPsvYG4wqQ5Aeabu9ijgFMCAoQsKCLQO
QDxfxMSU5RTAiYRiQbfJDkDA0G9gbPAUwJxKELAV9Q5AyrPGlxsGFcAgvLtL
7f8OQIxsnGWHCxXApS1n58QKD0BOJXIz8xAVwK4Qvh50IA9A05Ydz8obFcAz
gmm6SysPQJVP85w2IRXAuPMUViM2D0BYCMlqoiYVwDxlwPH6QA9AGsGeOA4s
FcDB1muN0ksPQNx5dAZ6MRXAlJkh0w==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208552#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwVlnk41H0bxfmNWTHWsW9Ttuzhlcf2/RVJ5CkllBQKZWlXKlsIMWOPFglP
hahUVCRuWetFPYXKHrJF2Wfsr/ePc93Xua7733M+h+l5aq8XxsPD076u/1/F
W6JKWSQ1aM094da6WRt6Dq8I6POpgZTcF7vjutqQqTyyUMerBh+8LEyWtbRB
pvjtl4llVbA9JyOprK4NEg3HY8xnVGGlZOTTOQVtEJir/N3VqwoeLb1WYvza
sLjH761smSos1Nno7B3UglZK7cFbfqowOplC/pSuBRXWy5FxNSoweI7dXv1b
E4zvaJVnqapAg/ymH+0OmhBsqTtTz1KGa2MqhjyvNWCm7LXMz58bgYVvXlUU
0YBVa5PdqrYbwUbj0M6jgZvALHfbWbecDcCK7I2526QOlg7yN/OXmBBqozM8
rqoOPRKTHyQ8mPC4r/CyO0sNih7tHL9cpgSV1tHpTYOqQN9/RwaTVwKa+fM5
NxtVOPMwNMOErAiB6nnZpKcqoIla2w+Vy4OtIievkKICgkQZvbpIOcieK5G4
FKAM+30CvKUNZKH/X49zNnUbQfeMV+6NEWlIvON/01hpI2zOt+c6l0iBWISk
n0v0Brh5xVKT5C0JgR+u+cf1MkEteFPQorYE2BSZic9ZMkFOWj63o1Mc9p0t
7I26owS5bqX/9ieKASZ8MurhuCLs+Wguu/mgKIxYfVapf60Ax7q/bPWjiUDY
tWXtU37ygDaX8H3NEYI0m5V344Zy0DlPTVYzFYSvbmPb04mysG3u8tfd2TTA
G0U3HaiUBq59kwOfPgX0c5eNdyZKwaVe4+ikRCKIHA9vVbKVBEX4Xee/gEGy
vuuolZAEiC9F/dWWyAP5Ol3GN36LQ363f4vG4FLVp6J/YkwqxKDxUlJyDS+n
itr6gOj/QBR0S6z9lrdMVwURXLNl74jAAfA++55/rKrFSkskLEoYUq9Wd384
0Fd14zB/o6KsEAxlKNcXHWqoIuaU9xxREwTK0ZMH5D9UobpSVY51CD+48oWV
Dup1oiCqU0SqBA0mNV4bHI3qRF2eilyOMA2iHKae/fjaiXqvGrW489PgSdbR
Jz2hXYg3KuIg4qEB9pdN3rembsTYfllMZ4wKbS9jd3kb9qE167SM2koqhPxy
sDj4qR+5pDv+3e9LhcbQkyHSi/3o2mBEZL0XFURF4yu+bRxAL7pjbJ64UyHP
uNbE+eIAOrZanRHjRIV/rxltcVQYRPb7ctIObqOCipKs3t/+P9H1Skv2Dhkq
NDsOMrdRRtCjnwEewe8pcLb/3V1j3RFEdI2xKq6lgNTpHGldpxGE523801dF
gWPxh0Xk7o+gTSdadhq/pMBi9TeeeTSKHuXvb6zIpYCqbnNvwcUxtLOpt4B4
hQJNFYWu2Vlj6Ca3h48bSIEztnFf0+vGkIXHeNXAaQpUeO34GCn2C4m1Zeg8
8KbA3szqSrenv9Cxo/J7wIECodSXd0WGx1EqqVK7TYUCyhlp0hT6BErnP2gl
o0SB98rnbqwaTqDlVfaWPTIUEMf12L8iJtB57dEZFp0Cjy48Cq5T+I3CbSS2
mM+ToX0gy/WS0x+kVfmBS3lHhuAzIV9PhfxBrBqnV4pvyMBcc93nff8POval
eEC+hAz+MtJ2+6b/IPSk2LT5ARmu5u+8K7FjErnFuJ3riyGDZG8Na7J/ErVt
21EraU0G5V39AoLcSUTwkP0aZkYGvTIe9ibBKRQX/zivXJ8MNqnmbM8tU2hV
2H7oHwUyXN7xit0aP4VCIwZSlGdJEF3SJjiVPYVE1SeOYaMkSGXOsgVfTiHW
l7ffC7pJULSkl2DdN4Uc58K2O9SToOfpo4TXhtOo8GEDDKSRYEzuPb1t5zQS
9jc2n4whAef6cMLU4Wl0znS14e1lEggfU07UuD6NMuV+bL55hARbpbISM7vX
vTXxlLkqCe6HJyeFR8+giv7RaIk8IhRPPBW+e2cGLbxX/cGfToS3B1uSyopn
kGFBgGFdFBHaDfmTpztmUMLjLVdYHkQgj0YlH9OdRa8GXgsVSBHB1yEoxebb
LAqqLFg2COWDC5Xpol4Ts6j49ds2XV8+iNQsTbmKzaH9sqtuYk58kEmcTinX
mkPfZ+x6i7X5oKXML1Xr6hx6npiTJ99NgM0bjqQJa8yj1DkVKu82AtRabUz7
YDGP6nfd1/umSwAXn+HUqH3zqMQsSGpGngChRadSucHziMkbtENlCQPRjwap
z5PnUdxVjsb+MQweTHFS/B/Oo7Cf8tTF7xg0GYWn9H2cR/f+G+7QWo7BkQNW
KbcH51GdTkikQhEG01coKY4L8yj0WsUsbxYG0tVJyY0bOMhPvVonOxKDogHH
5IgtHBTfGaPlcREDnCSdbLaLg9yexX1r8MPA2y4nqTiQgwiljawMJwwWAryS
fOM4qLP4HUfEHgNW0qYk5XscdF761629VhgovZhI7HnBQTqlOYe9zDB40fYs
8WYjB+USdO86/QcDa25g4t5uDrJ7GKBqoItBh4xJosA0BzXrO/eTNTAIMF9N
qCdxkfJQhHCnCgY87u8SwmW5SDX8SNjjDRikRkQnmOhxkVv5ae1wJQxUH9gm
zFpxkQL1VqCjIgblDfSEJwe4SOB5vrDWurcf+8w+fpKLHtoclaSu//cJZLA3
RHJRqT5xdYKJwXldV3ZXBhe1Frg3diljQN6ryE4v4qKQyPAf7eoY3D4/wNpT
zUU5NRlr3doYaGfksWjtXNTUJmUwa4ABlPmxase4qOhp6YisKQaOXbqs0DUu
Mlv69MvZEoPh1Zl4Y/EF9GbN+EThLgwuM1/HT6svIKPk8u9SzhjQrYLji8wX
0NY01xf3PDHI8cbjvfcuoMGuk7MWpzAwvM4Xr+SzgM4ZZpXPBWPQWNgY13Fl
AY0Lt5nXxGPg2sKKS0taQOk1Ux8e3sEgQowRRylfQFKxbpceV2LAMPp+/V3L
AvKwMxJo+heDfJe714MHFhDu9efhn58YfLyrcn1SYBGprpRxBEUI4AmjsY+Y
i+v9/c/AqBoB5vsfxx4zWkS1Hq8WWIgAcupGsd+OLCK2imfS0GkC+D63joHn
i8j80/BtiS4CrLTSYi43LCJqKl/aFy4Bkjgt0YZdi2igg8TwluCDV2bO0fnE
JRS1R9790z4+4GvwuZbksoTyz1tJ/27lg7oh1sYhvyXkPh/GvDvDB9Gk59Wm
YUto8czOm+6i63m1Xl4ZerCETgZtJejsIQKtLumC+cwSqm83lDBoXuduTZnP
GHsZZQ56ahc2keBzfw8Rz1lGFi7NzwLGSZCC8d2/UbKMWjbnec7zk0F82999
eOcyKhr8OWFuSwap6n6XDPUVFBlzi5RWQwaFKn5bq5oVpLAodaYjnwK9PXoj
t9pXUGZ7rS5pnTfZq/uj/4yuoGfvE8paeijAtMh+d1t4FbWoyC/oi1FB+a2h
6ZTbKhooW/XyvEgFzTduWlncVRTdGfiGV5cG4x0RH2b415D0EaPDIVY0KFrM
O75TcQ090xN0eXSABjom0/dnt68hUnh9vFIkDfTLouXtUtdQCHkwK+YzDTI7
ncnLEjw4LW5BqOUoP9xavXrxIpMHr1Z5+Y/+BX5IZxYNT2vy4InVKhfsY/kh
2YencRTnwcOMT6PiQn6InsmP/erLg/t85XW/8ocfTvMvUl9U8uD3rBzsB/wF
wMo0U8DXmxdf4iU/D7YThK2H64N/nubF2TIGNmdcBMHi6uS4+xVenBvC22Pr
JQh/NVg1Oyfx4kMaV4QehwqCzr4J9vZyXvz8mqP5f4oFQcrPQohJx/BsnhPq
dsJ0+HW7T+RbKYabSUfONzTSIdTM1CGnCsNpN1mHrL/QQbTnRpLvewy/Jrx4
u7KbDiZMO6GVLgy/cNYsPn2aDnF5pQIb+Ai4kbthROX6/tEoiSP77yXg58wO
vnALEALfZsOVtd8EXOdQta8pWRhG12JH1NSJeH7guGXlA2GoZYy8UEsg4wNp
PrnMDhFondas261Ow9MuUzSi1MTgRmBi7q8bArj6tZL20MPiIDNsYlGTLYBX
SO8waj8qDlkuQ99vFwrg7yMVnXVOrO85U3MR22oBXC7Y0n7LeXEo5/0Vlj8u
gHfKLtsz4sShj23t5mUpiL88ErFbsVQcNB+uSPZOCuJif/kKiQowoFiy4MXL
JUG8OSlKw1+EsZ5/x90JJDruPM71eCrBAAv/wmhzOTr+iqZSZcpkwB79A3N3
dtDxoB3D28q3MNZ5VfLZJYuOQ5q14mNPBizpup/UK6DjHc0dxWs+DAjP4adR
Suj4cmwHT3AAA65HeW599Z6OW5mLTcUGMSDTVriYMUfHHyeLzK2wGaBU8cZu
Yo2Od2qPSvmlMuCBts9wLU0I122hmFveYsAT4UqF80pCuORx/aeE+wwwiDhR
bqcphB8cOn/HsYABr2fEnTYaCeHHs5wujD5hgJkXTC3iQjgjP3XyQgkDqtv9
2J/thHDs4pzEozIG/A8btXGo
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208552#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwVl2k4lP8Xxsc2zwxjbEO2QpaKbFEk+j4hFVJSCWmxZE1IvzYhWbIbkhaU
EoqiokLMkWRJ2lGypiwRjW024+//6ry4r+u+znXefD5HzePEHm9BAoEgJEAg
/H+qXJdWzSOuAvmYU2u3WuhC76EFyjrhVeB/V03xm5ku5GiMsBsFVkHow3bs
uKkuKJbXfp7gaYFqnM7PK0a6INfkG28xrQW+flPXh9boAmW27u+PPi1YwyrC
YuR0gbM7oFapSgskYzt+vppcC19Ir12vB2hB1Kszt/A7a+GlDe9SYoMmGBHC
lNdxdMD05trqPC1N2POIUGfjrgPhVvrTb5I14EdZeuyJBm2Yrnqh+OuXOpg7
QVSqsjbwbcx2admqg8m+poYPUWvA/I5lqHv+SnCoo58ld60GK8fl14q5avBW
P6Jh/7rV0Cs31Sp3VA1wx97ypuxVUPpgx/i5KlWIVQnu15/SAuq+m4qCy1Vh
vYMw/tJJC0IKI7LNMBUo3Oi991C1JuigLx0Hq5dD1UtaKVtGE8RFFA0aLylD
tWbMUPUZDdjnc/yYgpES3ClX8T3zQR30Q7zvZI0ogO+F7OHdOupgWLyT5Vwh
Dw7/eIVO9JVw7byVDvHYMhCZ1M45OKYGq8LXnOHoysFbb/PIqw5qoKyw/M73
bhqcGo4L+XVPFe64V34cTJMBK6mYDH+CKux+b6Fk6CoN9ANVmoFtK8Cr5/OW
AFEpIFru0UyNWA7IsEK4M18CShNbP1/Ypgzdc2T6qk3iMHE3+vWhZUpgOXuu
c9dtUaBT7Xor2hWAtbPNUXgdCZQ83CE7Vx7O9pnGpaeJgOKe7V/RvmWgAn8b
A9mCkBcJL6Tk5IDGjdn4NY0Ankx/XHOKBsU9ge3aQ1yGPcWscvCZDDSfTac3
CMwzsmPAT/u6NOhX2ATwTJgMaxmKqVyCFLjAsdAWsTEG3C3l7zouCZkX63ta
XfoZRm4awfuGqPA7W+NN6cEmhivRMjJ8lAIkzyCX5a0MxPsYXtBqLgYD9uXZ
ApGAfh/UcrmxQQw2+96PnpGvR3UyjdbHDcRgPu/mge/2r9Bvj+gpZQ0x8KdE
CRdWvEbykSf/FoiJwe7h7QctYloQ4xPYH+kWhVSHCZFn9I/Ixqdxz7ULouAm
HFk5ZNCNuvp+1Kq+I8OU9gsjz5huFKLF4wQ0kSHG8d/jgc5u9O/4yI6X9WR4
lOf5qDfiB2p1iKYEPiOD4MbtRV1tPShJYOtd7DYZvj67bH/MuB+1ZHhs0Q4j
w4U/jptdPwwikXG2FleFDM0RQRcUOINoPtUheUCRDNLSSS+71H+i8h3NFe9k
yVBk+trM+fRP9PM82eaFGBk+xm4w2btiCBWL9/n2zJNAU1XJwCHwFzIMtLCM
+kiCd3uH1CxJI2js/XgXMYEEoYOvck31R5CqqXwyO4YE8sH5Cvr7R9BlI0My
M4oEXkmHpJQLRpDTq6yymTMk4NR3EebQKJKPkOq19COBlv67vvunx1CJyfhN
aTsStL0scbudN4bsv0es8NtGghDbxM6rjWOI/fDk6UYrErz03vb+kswfZLb9
21iqOQn25NTXuZf9QSMDwTaH9UgQQX6WKzU8jtxibtVxpEmgkX1FgUSdQHYj
WS4lEiRo0TiZxTeeQF5RermeFBLQcIOUP9ETiKDy0G9chAQP/nsQ3rjiL2L9
la10Y2PQ8TPP7ez+STS5sdg0dACD8JALnScuTKJ2z7aM1F4M1BbdnI4VTKJ3
nMsqj7sxCFRUsHNiTqL7eibyoh0YXCzekSu3bQp9dGnvor3FYFlfQ/LU4BQK
uMkJKXiGgYb9IEWcNYVWP3GTF6jAwKCKkLJG/B96GXLQ2esxBtszLVI8TP4h
amfYPYtSDM5te57yJekfejtwaLvVHQx6yx6kvjBmIpV7lVt60jAYU26hft3B
RHkTRR8qUzCYTxhO/XeIiUL5wWFZSRhIemmkaScwkYeg50bfeAy2yOel5fQw
0clb2WqOkRgURNHTo+KmkXvZoplwMAblE2WSuTenEbyDszpBGNS6tqdXlU8j
k4eFXvsCl+5jLEZnfl/KIwcry3wxwEZj6F76M2js81p6yFEMaPvvSl20nkEr
yKe9bx3GQLWhnp7rMoNcdwwym90xMM3l0zsuzaCNTzKFSa4Y+DueydjeNYO6
arLrCHsw+K/uqrT3xAwKC4gw7tyFwSWdyoyLgrNoYlLb6fpODHJEmBnVa2eR
UvysWud2DIpDJWU6t8yiEB8lzk4bDCr79DKn988it9MqbwutMGivCshce3EW
eT7W0py2wOC7VqLMjquzqKKq06rPDIPhzOJM75JZZPBZz+iWCQYzhCaZaJhF
PHOvaj1jDAhBvzLzvs4i+0NuSQkGGFC6hWg1Y7MoIsTaqmQtBvLbV17pXJxF
SdkHA9JWY2C48vAVSe05JFBy1yFBBYPX1upXWjfPoVNr5m4XKmJwwGc4M8Zp
Dk1vagsNkMXgT0JJ5mbfOVQTtmWiXQKDiNITmazwOWS4yUG5mYyB9HujzCf0
OeT8+SpzpxAG9/7NZwQWzqFlQZU7nXlEaNsQldH/fg79GR8cax4nwmEX64wb
Q3No4n3QhMwQEZjnSRl72XPo+sC7oZLvRIjLa6NTqfOooyzP5+IHIijUp9Ob
V86j9SZf5GIbiVD6cy892mQe2axyLS2qIgJOVKCb28+j6SJV+rdSIhyzy08v
PzWPQpx2TEulE4F93DvdP3EeDRuPHPgdSYTk9DXpGrfmkXRor7l/EBFUn06k
9T6dRzVE57lYNyI8/fo47VrzPPpr61WxchsRbFin0vb0zKNUpsyn1YZE+K5o
lkZhziMxjYGd5xSIQDjyKjVKiYV+Dwf5xQ+JQGZ0XKqZAQttDX/yVqxJBLTu
2abOWLNQRujV9ONFIlDdRE195MJCAmynoqxYEdg59inFN4iF9q6r/eN3VAT6
KdkpKy+x0Itnfu0fzUQgTN8t5Uc2C6WgfIcXUiJwI+xn8u56FpqjrBhlPBcG
3eyiZNEOFmI4GEm/iRMGqApIfj3GQs7UdmNpJ2EY5k8nmdLYKOv8aPDRn0Jw
Tu1FEnM1G4lvffDVu0gIqNbhSaUWbCRs1VPY6CsExgnCSao+bHTG0T1Rb0gQ
mkuaE7+fZyN3R91HiXmC4NaenHglnY32jXuw2fsFIVpGNpFUzUaWMVnvaA0C
8D5XM2GKwkFcabrZ/gwCeMDo5QdqHIQfqFn8akOAucGHl702cBBhICFBkr3I
UF694XLXYQ5iH7Op+fmdzyi35cRnhHFQ8LlBWcG9fIbV8bp4+wQOMnBpZd3+
ssDoSIuOJ+Zx0A0jBfyo+wLD/4lNPDzhIOFUFz/WXx5j4Yto/LkmDmrf5z1e
nshjpM+3xxn/4KDH+Rte5hryGBqKmXF/pzjokXzPrbIljj83d44rFuGi7Hbr
Nvwel2F7WCnOQ5GLBj9MuCiFcRm9F/tilfW56OyGPGt/Ry4jpOBubIcVFz0y
YNf0W3AZwk0+sekHuOhJ2QVbIzMuo/F3svrvAC5aVr/L/9BWLiOO+KR+UyQX
5b7a99vvEJdho9V5mJ7BRf6fa0e9YrkMzIa38PseF2EXDacOVHMZzd5qOeZV
S/sE3bIq53EZl2NtzDLauMhSYd1pD3seY8e9gK7hPi464+VU5XefxxBtTP/P
YpqL5uq7jjlLLzDeDlXSMok89H36zdaEuAVGsnD3kxEFHhpzGHWoI/IZVGvN
yUych1jFWNAljUXGe0/blFEnHorL6Qi9ylhkpF86oYN8eOiU8QefvYYEkGqo
8hlL4SGHhSySWw8BPg32iuD5PPQpNd64aYMAZAgKF2RV8JDlmN6laboA0Cwd
+vFuHmrtS7BaYycI8vWDB7JXL6CYGabln1oh+NaPzY9vWkBOj5dF35MXhhsE
3SzLXQvo3liuh2eIMCjhpz9OnFpAthvsysjKIrCCIWZr3bCAQpVL0rl7idDX
azByvWMBWajmCDzJIcJt/r64ydEF1LOrxShlgAhqm2+/uiHJR3452s5nPDAY
dG88MqXOR1Yz9hVxeRjcuTDG32rCR6brz5Q971ziXa3xpn/ufDQ81nBicgsJ
fv1w+WYTwkcDtCMRiidJUMiLOJ0Tw0cPCi541OaTYLV5y9NtJXzUfsmTPbbk
I6Nufx1z6/jonPTGgXdLfvPgvMwU8yMfGT5vu/J6Kxl0atzX5rH4KMzAaadB
MhnGv0e3TostIgXWV6EPpWQo5RT57lBZRLMbzxt2vyWDnhmzYGbrIrpf35AK
IqIw6bLMytZlEaWqfaF3q4pC+VnzgVuBiyinvL71k5korKuKW26XuYiO7NL5
dzVAFKa7SmpuFy6iq+eFoxKjRaGC9cFlrmoR5X8NTCu6JgrrTZWu5vcvouvD
UwR4JQo53c4YT46Ab57pDCqSEIPr/IunT6sRcK/Dn6+JqIvBVbXSYaYOAc+1
dPnRtV4M6D6E5lGcgN9dsgMpVzGImy6+3OlPwGsV2aLVuWIQLMYhP60j4Npi
HJ0WeQoc19M4p9dCwHVz0v1sVlGWeOowdv8zAc/Tl354ZT0FvLPvtN4eIeAm
s3KmZY4UcFW3S0qVFsC/pZ6MN7tMAetNORT/YwJ4yeDBk/1TFNhy6E34r2AB
3KkmqStjgQKbL06NHzkvgD8MyNpjICoOG5us3zmnC+Dlmo+sDdTFQc9pImVr
tQDu6bn7qOdecZAP2CyhRhXEt68z/7WiQhz+3OiX6qoUxKfuxnf4BlAhwnyT
Yz5DEMdD7YL7T1FBujcr3b9FEG9etS3JMYoKZmp2Egs/BPGYNkRTyaJCYlEl
ZaWwEC7kGll0tI4K2hWJWOAeIbwRPMSpkhLg/854YfGvEK7V82n9QLkEjC5e
Hlm1WgTnF3xiNP8nCa9lR56uSsVwSXUv9/gHUvCFqdO4a7UoXmvg84E7Lw1Z
p9Lu/Mmi4HVF5pbi+jRQHDbb3HCbgr81+5ly2pgGeQd+f7tRQsHFPxdeGdi4
9J9sspCyrafg4byI3kprGlQL/IksHqfgHwipQt6uNOhPsXH3thLHKTeP3m+P
pYFO4cKyvilxfKrEUzX3Bw3Kl91/+owrjh9sG2ohDtKWeLB3VyqRiquE134M
HqbB5sCSOAtlKk78WPZrK5MGu9e5zN7cRsUfSklaTmOyS35U8elAHhUn15fM
OxnJAlf/SJDBfSpeww++wjCVhah8MVFSBRV/ckpKU2ezLCTEeGx53kLFSy9c
2y60QxZybCXLZWepeN2tnZO1h2RB9WWN3cQiFe+JOzqu6yUL93R9hl+LSuDX
miIKcv1k4ZFk3YowVQl8/zWvyHNhsmAU7VdtpyOB4+fxp7/PysKLadp+9Q0S
eNpn0uvdkbJg7g3/OLjEUj9H90WMLNR3BKR8spPA14yv8VVOlIX/ASxVALg=

          "]]}, Annotation[#, "Charting`Private`Tag$208552#4"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwV12k41O0XB3Dr/AZjbGOn7GuWJHls9y9EabGEsqQi9FCppEWiItmXZCuE
R1G0oyjm2NKqxZIskZItYsYyw8z4z//VfX1e3OfFub7nuu+j6h/mFsjHw8Mj
xsvD8/9zbb6kShFBG7518VnnWBrAdz82yURAG/Tvl+np/WMABRrjzDZebXge
4CjXaGYACo8aOqdZWtAelk4fXW8AMu2Hr1rTteC8qt69jToGQFponBkY0gLF
70my3RQDWHYJbVCs04LufF661Mw66CK2eueHasGTGux+ZvE6eOnAik1q0YQ5
/XTNWIY+mN9cV1+kpQmeC0FNuT76EGVnRH+VogHfzAMuQZMe0OueK4yOqkPG
H7cTQwp6wHGwcNZyUodrC4zbqjG6YFVqe3JfiRo81vJx8O7RATtX5byKFVWY
2aMVXm6sA99lZt/KHFSF85xAS7kcbai6t+1PZJ0KFIe93XBxRgvIHjcV+JRV
YEtJ/Q6SmxacuBOda4GthVe+//I/eK4J+qirx7deGXb3yX/aKqkJooIKxm2x
SrDWXmmP0BkN8Ag+GiS/QRFqSjq/tHWog9GJwNLscXnQPvx0qkBXHdZX7GTs
qZaDuq2dI4XpapB33k6fECQLx62mTMrGVUE7SvfssoEM7H8jWdO3QxWU5JVL
+/op8NsrsESjTAVK99V8HkmXgqtDBUNb2GvB5aO14npvSRi/23j13es1cGiw
c3OosARItF/s74xUBrS+WuBriRi8POQwUGqnBP2LQpnalqJQrhj0fq+UItgu
RH51LhaG6NXmlbC38sDY+d5VwIQI6q2mjQL5cnBuyDw+I10QBKc95G1cZGEt
zLQdYfJBsImrYZy4DFBW4v7pTueBTy9CbWYnKFAxeKRD79cKtefDTrdXD6Xg
9bmMzBbeJSpxeEMIK0MSjKodQlmbaFR1pM2ui5EALwg6+UZkkjovYd0S5y8O
WZeaBt96DVMzJhyFKO/J8DtX41WVbztVbDf5pEwHCYgBx7yU31KR5/zrkylr
RODHjke5vDGAAhIjLD3kRMDm8N3L83JNaIfnK2dVSRFYKrq5t29HM/LmGQ5o
ERSBENJFgTvVrahEZCDcaFoYXMa2+lrHvUG5HbI/K14KQ9quacHazM/oH7/0
FFM/YfARiKn5ZdyPWp6YeORVCcGs3vMNAXH96H6j/9i3O0IQ5zr3+MfXfkTx
LDNXKRGCB0UBD75HD6Dq3hjzF9lCwPfP1vLe94MouT08XT9GCLprE3YEmQ6j
ZySFGpabEFyYcrXx/jSCBDmnRlM4RHgdfeyC/PIIYrdVDZ9kEkFSMvllr/pP
1KQ7v8Zvngjl5q0We878RO7fHvvYTxLh8xWzTe5rfqFfH1WPuPQQQVNF0XjX
kVHEV90cdPYhET64/1K1JY6jaaZKd2wQEU6ONBeaG42jvSdL68L9iSB3vETe
yHMcZaZFVBz2I8KhZD8JpbJx5Pvj7J6DnkRYburlWUQTiN/M9W6KAxG0jD4M
3T0ziR6rbKV/0ybC+5eVPsVFk+j6G73LShpEOOGU9DWnbRLtUR6bPKRChJeB
jh9jpaZQpe/7h5g8EdwKmhr3PZxCpXezrXOFiRAtVFsoMfYHnfRIvfV9BgON
3OvyRPI0Gk0KWr08hcEbjfBsjuk0yrZVCjYYx4CCG6dOXZ5GER8bTK//wODe
6XtRbWtmUOM7+Q33ujDo+Vnkc87zL6ooGTIhvsRAdqglZXZkFjG7Ldz70rn1
d4yQRBmzaDo7R0M2FQPjOp5UXdE5lMxU+O2dhMHWLOtU/01zaGCgmbYUh0Gk
47PUruQ55BAafyg1EoP46m7RueI5NBduMk44i0GW6nyqaO0cWuPa9SMhAoOq
FeM0h+E5JGllK1J+HIPvD++lPTeloevRh+xcgjGYVHpD7t5GQxf2LKpJBGKw
lDiWNudHQy3bxwf7/DEQP6SRrpdIQ7pVrCsJfhhslitKLxikobw65+ZtnhiU
XczMuBhPR/wXjme5O2LwaPqheOFNOlIf5v1yYwsGDd4dGXWP6GhOJ2/PhB23
H6YimbQ+OtrEZO64hWOATcRlHjKaRzs18zWOW3D76fmfxCX7eXSKHzqY5hio
tDRlFnrNI/bgs40pmzAwL+Rk9sTOowq7lqR3phiEuJ69trV3HvFL3E6qNcLg
dGOOZOD0PFK5GumSYIhBrH7NtUt8C4gx2nw8wACDAkHatfp1CyjqRz/RTB+D
ipPiUl83LyDpondlBnoY1AwZZtE9F9DmNyE/DXUx6KgLzVp3aQFtFObP3KWN
QZ9WktS2nAX0Q1dF46gWBmNZFVmBlQvI7NCNomxNDHiOjWYVdS8gm44LKfwa
GJD6+SkvJhcQ84jkwa3qGMhtVbv+dXUBBb2oFchRw2C92v7r4nqLiFPWu9dJ
FYNWe/Xrb20W0QnzFvJTFQz2Bo9lxe1eRINNhB9qXEdXhWUxohbR70U+X5m1
GEh+3JD1JHMRySqnHcxfg8HtuaVrR+4sIjvZbWVqXL83u3ht+OMicp44+Hyr
Mgb7veyv3fi1iC54uTJGlTCgnSdec2cuonj1UrckruOL3meSyUvoXH4brxnX
8k0Zma/VlpC8cvTmCUVunn66Z17etIQMxcd2lXGNE+QzrXYsoe18Fw4Hc92p
M5ixeGAJ3fgk8cyE66DtJRmPIpZQl9T9YkGumUcDM0KSltAz/Xz1IQUMUjJ0
MzRuLSF/H+WNjVyrPJ1O//50Ce06sdpUwvXT7sfpea+XkDNl14MErh0YEelu
g0vI+LB+9wmu+xQs0km0JTRvmEf05fqoNSftFYGBbqYhCQeueQ40p11UZCDf
O3YPDLnOuhyfZmHMQEbK2ucpXGvddkqbt2eg+osa8/PyGNS3k9MeeDFQWExQ
33uud05+ST18jIGWopW78rgeJuWmqsUyUIVT0DEPrk8Z+aQO5DJQ6mGO0qoc
N89ua1NzqhjI04hocY3rG6d+prg0MdBdo2FBEa4NcstThHsYyC1LsDxQFgOo
C01pneTeV5fVK5LBwH3AKCV6lYEYnZOkh9LcfHHoyeYUJpoSX61NoHDnX/V5
Mk2HiWKevGHJSGFAto9KrrJmov3H8vS2SGBQEoQnB7kxkabtuCiHjIFpokCy
SjATFVl+ZuuTMHhd+Tqp7zwT8XiL/35OxMCnIyXpegYTFe/qdE8TwGBm1iVp
120mquj0T85eJcBlKekkYj0T5UjlfK1mEkDa7FticwcTZfLoKT6iEaBib2Fi
1E8mChZO2LZhkgBW5w8mmjGY6HZJSdjEEAE+FmomzpKW0ZEtuR0XOgngDxMJ
91SXEVlptKKglQCLI/cTDpktI/nMTcbzTwiQKHgyYc32ZdSuKJi+sYgASjpm
Cb37l9Hlg3lf2FcI8Mhp+eq1U8vIdSGoxPdfAtgdbby6I3EZ1dnGTZs5EqAn
/fJVQtEyqjLcNntlDQFCnjhchSfLaEzEqcpvRhDYXcJXI9uX0VNHtzBmjSBk
LHXEmw4so3feQ0fiTgmChkJW/MzsMuo/XXgvRUcQnlntia8QXEHJhz/kwCcB
cNqvGO+vsILsc6VbLY4IwPdLQ1eUjFZQS2C4XNgyP5wo++9Kj90KInl84/kS
yQ8C7cFXMvauoKFZRp39NB+0/U5R/x26guQDKqv++PJBPOFJk2XMCvKbD/Ve
18QLmAOL/fv2CpLx8LVqCOWB14GqBVZ1XLv9J60eukpNuOJgce39Cor0+WlR
Ps+mCrdlnLamr6C6nHO1Yexl6rtfNZQsAgt9Fm/Jr0xiUlME+p+My7PQWuO7
V3p1GNSdGjyuNgYs1JUUr8zuX6SS7TX/ZuEs1FPpN7L+4QL1Y4BT6sRuFurr
005IvTNPzYgN00fBLKS3+O+rzW/pVJf/rr+5HslC/MkdfO9U6FSJlrrgyVQW
up6U4a35gEb9MvJdEC9hofi81MmNZ2jUa3wCZdnVLDRCj5EwuECj7lbTtZ1q
ZyGB2IGZdU00KsV21zDez0Kvbh69N2xLp3YfDI/OmWGhp8f62us4dGrOpTyl
P7xsdFsoNWv47zx1T0lD/WZpNnLN+RjJkF6kyjWN7M3VYaNnZXpvnYOWqN+G
saU/lmyklrFNa+MAg3qDxyDb1pmNTIWqO0nHlqmK+JnP0xFsdICWGvnoNZu6
hiriZN/CRvtU/0mmuvDB0Hfj8fweNqKUj7xiKvJDMccj/u8EG61VjVp3e5Af
Dqw5r7GFzUajCTL/fckSAFWb4uYb4hyUox5l128pCCP72g7MqnOQbukMe65L
EEovTHK2bOIgqeQIm879BAgoFCu86cRBAQ0/b0l8J4BGg6nl3D4OKvc583LR
GYPRAa9vDic46Ov75+JVNRjcYUWfKYjjoD8FD+8vihEhWKlMmpbLQZFb/hba
HCCCjtWbp46VHOQ4JaEkUkGECZ8Z18JGDvptYrXp8xgR7p2XmqV95qCGXZuE
WGuFIOSmedrWUQ6qNdFUMnYVAv0X+9YVMTjo3AZt621RQvCn7/JbusgqEu+j
v/YsFYKq5fLD29auIv2vzja5rUJwVOED4ZbJKipzPW3p+ksIDC1oZfNbVlFt
vvrJZV5h+Osla+fktYocmVMTVcrC8Oic1Y9bR1ZRx4aI5KubhMGkLl55e9Yq
CrtV/8ApSBjovZUviu+sIkOfpfCk88JQzfjktVi3iga1C6uK04Vho7liTsnw
Kno2lyS6oUYYCvr3YCwZHjyLUiRTyhSGfM6lM2dUefD8IIX1E8IikKNaNUbT
58Gn307rvVQUgcxgntcTOA/uFpJcaGMlAvH0ioSvITz4N8tanX2RInBcZFno
aSMPXk49M277VwTsLQtIIUG8uNNZcrZIKwk2+72KGj3Oi5d7i29+/IkENpdm
/xw4z4vvyo1g2Q2S4J92+w97MnhxFZt1A0aLJDDcPZ26pZ4X1xe4wNHRFgW5
UBsxVTIf7na69kt8vChM3RiW6K3hw8MFH5QL2ZAh2srStYTKh+91jxeP2EoG
ye/ZGSFv+HB3437dfjcyWKhuF2MP8OE+DZ8j8oPJkFReQ1IT4MfnRPXX/8gg
g151EnbEjR9XX1ppqBkhQ8gHU/bqDD++RbvYYihWDCZWE8a1dQTxXtrxIKsD
4tAqPf5UOw3DR8wo5YNZEtBF029z1hHG3+20cDP4IQnZEemlU9kkfNDxjpGG
HAUUxixsWopJeJLywcRMZQoU7f397UYlCf8q2E7mqHH3K0trCacmEl5y8cWV
LgMK1PNOxVT8IeELIYfUouwoMJzqsC/QThQXP3fq6q9jFNC/w5YdmhXFPUh0
s4Y2CjySvfu0dkUUP7txw3W9dxTue+XunEYg4xKPpE3zPlHA5khlvLUSGV+Y
Ue0N5+6dLiZeCzcdybiyOJ2uO0fh/veqv+wtIuPPdMY6YpWkYcXowDHju2T8
V+b8vmlVabhYIiJMrCbjTMdPlZ7a0pAY57/52RsyzpiZbtQxkYYCJ/FH0gtk
XOzgp/73jtKg8vLF9ulVMi7gz3/UbKc03DYIHmsVFsMdm1+FFbtJwwPxxjWn
VMTwT18CPE7vk4YNl/+t364vhsf8yrwy4i8Nz+kUT3UzMZxUZ9nsfFgarAJh
bhkXwyXNt1g0HpWGpp7Q1C/bxfCCciUVw3Bp+B+XbkUl
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208552#5"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.922526, 0.385626, 0.209179]], 
         LineBox[CompressedData["
1:eJwV1nc8Vf8bAPBrnuu6rnXJ3qskkkrW5xQpo0FUiHxDykxDQzLzzcwqM9Gg
kBQNKveRhL5aVMpKUlbENa5xx+/8/jqv9+t8znk95/k8z3M+6odCnf34SSSS
OB+J9P+rap6UWpGwLpxZr0aPLDGAfi8O1VhQF1Sef+BJXDeAQq2RxWY+XdjR
HDV+q9AAFKpfdE6wdUBs/7eX7TkGINty5F/LGR3odTgXppRmANS5hsne7zrw
87+wd8/OGcDS7sAXinU68OHeyn+X9hjAJ/Ir97xAHVCb2T5zWtgAntuy45Ka
tCEg6GD2Ea/VYFqwur5IRxuKiulK5xv14by14czrFC3w5gQF39TVh5m6pwq/
fmlCubCwJUSvAq6t2S4de02wPTRTxxtaCRY3thz3LNGA1yE5O00sVoK1k3Lu
nWV1oEVIL0Vc1YN+2ak3sv+og0C4dcOvZV2oLLf7c65ODa7L3bezdtEFmmuB
Ar+yGijT11JePtGBsNILOWaYKrSFOtKcVXRAH336cqBeGV5r9hZ0nNYGMSEF
o+Y4JVBMc7od1qsFrv7Bh+XXKcLzRIX97HVaYBjmd+PKiDwIrN/VdTlNE9be
2bGwr1YOSB1JA2azGpAbYa0vfHgF1B1O/tboqAG651eeWTKQhbC9+jzXanVQ
kle+0d1DhwLfZ9r3hdXhhuejj4OXpUH9j8jt4YNqsPu9peJadynYJJWfq3RJ
FXz7OjcHUiThGx6rcnS9CqC1tYJdJeJgzd9XgRaUoGdeJEPXXAxgu42HMSjC
lrlzXbuKKbAjN3NcPkgBFna0Owkak6EocOkQa7U8nP1umpB+WQiEF2s0mB9W
gCpMNgct8sP7sjLc/Kws0JfjN32+TIJa2YsPCjfKwJ2+oHerhpYZQpYt8Wa9
0tB6Nj2jiY/FMLzQvrKiSAoMa20D2RuZjO7Wlp6EM5LgBoePt4mOMTQGnN7r
75eArJjGvjduA4xAybFDui9o8DtH63XlgRbGivW0rsgGKpB9QtyU3zBQh2Gc
SaiYKPxwrM7hiwKk7PzG1AATBasjd2Nn5RqRQcnjk5MkUWAVFezvdnyJznxA
N8/NUiCAGi1YWvsKNW81sKvvocDu4e0HLOPbkJX0Se3ucgqk7ZwQepzxEcW5
Tmk/caCAh2DUoyGjHjR2LaS2JlcEplY9XecT34OMajUHRzNFIN5p+sGPrh4U
3JvD1UoVgaoin6r+C72osrlTuTxGBPg3bS/72t6HNPcdq5gKEIHPjy85HjYZ
QPp3N988aSUCkeNOVu4fBtEq/2OVcaNkaL0QEim/NIjkH58f8xkig5RU8vOv
mj9Rf9P2HrvvZCgzfWW27/RPVHP36ZjOZzJ8vLhho4vKEJo84eyi00gGbTVF
o51Bv1Cg1FClVT4Z3roMqW8hjyDdc6bWM7vJcHzw5TVTwxHkf9xlfZ8jGeSO
lcgb7h1BB6WuJrdvJ4Nvspek0q0RdCyaP+AZToalxq+keTSKdjc8pnYbkUHH
8O33u6fHEJ9jTIKiFBkuiDy+Jjn8B1X88ufv/IqBVk62PJk2gSwb/WyOfcag
TevEFa7JBKJ27EqX7sCAjhuljsdOoO4hFd+g/zAoDy8/36wyichVZe3+DRh8
+VnkcXbvX/RGrI2TfBuDFd+bUqYGp5DGNtqqujPE+x0HqWILU2iL7yHzyVMY
GNWRUleKTaPQ4w379U9gsD3LMvXQxmlkSsl9/yIYg3PbnqR+Sp5G1cVsOxsf
DBJqP4tNF08jZxrdrd4bgyz12VSxx9OIkRRYZOqFQeWyUZrtwDRSFN7Su8MN
g/775WlPTZjItXfyWs8uDMaU2mif7ZgIhc/8zdqBAStxOG3ai4kKqt4/dnHA
QMJX6/KqRCbCGmu//bXFYLNc0eXCPiZKMdWbSrXC4FZ0Rnp0wgxaQY8RO2WI
QfXEfYlrBTNIUiJ1vt4Agxfu79LrqmeQX9ELXcpqIh8mohnM7hm0UwJlv9LD
ABuNz/A1nEXBXYFj5RpEPvfelIyxmUVmAliAhToGak2NGdfcZtGYV0FGlyoG
pte4GV/iZtEPh+tC+soYBDidydz+dRbJ8part8lhEN5wVcpvYhY1OQSX6K7A
IE7/UWYM/xyykI1Ok5TFoFCImVm/eg45CmbFC9AxuHNcQrpr8xyKaP57XVQa
g0ff12TN7J1D9KSSXmUpDN7VBWatjplDkhn3PnhLYNCtkyRtd3UOcZqiLmWI
YzCcdSfLr2IOpQtN+LfTMJgltUjHwhxy6BUIliRMCvmVVfR5DkWprLviLYYB
tUeA/mxsDsmcs+mro2Igt10ju4s3h+o7925WJrxW42C2xKp5ZGQZY88visEr
G83sN1bzyEeVrphAwWC//3BW/J55dPjE2WxpwuOJFVlWR+aR/tbU++UiGFyo
DM1aOD+PvsQG+DoQlnq/LuthxjxqbfAtnyNjcHualRlUOo+uNvOduUvYlP48
U+fZPJLBZl4eJty+ITpz4P08svtIizYgfNDNJjN/aB65HLC7ycEwYEaQM10W
5xFeek+1i3BCUXsGjcZC5cp7h+sIyzemZ7RqsNAmBb/x24Qrf7pkxG5koXfq
HMUCwriwfIaFIwvxtj0NyiPcqdeXPu/NQotmvsxiwocdStKrT7HQNrGMjw8I
Lwb7pQcksdBe9XDDdsIp6SvTta6zkKfdj7VThNVqJi7317CQ/sAmnjIRb83n
B5dzW1no+3xcgyth24VTl537WAjl+uTkEO5WMLtMZbKQi4baw5+Egy25aa+F
F5DEk7KNZkS+SN4v06IVF9C9V5lOBYSzYhPSzIwWUH6p7iqMyLfObfu0WZsF
9PSg159IwvUttLQqtwXUGDLUxCO8Y6wj9UjIAqp/odaXQuzfADUnVSNuATnc
2+inTezvSUOP1N6cBfQkjJLYRjj/5M+U3Y0LaE/gd64JUS8GOWUplC8LaEPE
F182YagLTHk1toASpkKL3v+/3rgzyab0ReR08nVVniQxD9SfJjP1FtF9q6gr
6US90mzOJ1daLqKd0q2hWUQ9myQKJqv5LyLG7hz5FzIYtFa0JnVHLCL9RNrc
T6IfPN6lJGWnL6IHZn96ZIn+iZWWSSLXLyK6TOenYgUM3l/TTpyiLqGUrRPl
1moYHILRS+XqS4ghcS+vjejP+cF7l3w3LKE/5uH8HpoYKOltuPT14BISDStu
ua5D9OdD23/h4RKqulN98B4xDwRb/C+m719GfTlqTpmWGDT/TtH8HbiMFtKG
fRMRUU/CDxvNo5bR2FYLPH4zMR9s2Zzft5fRybNSibFbifj91Ast6pZRd3NV
VPw2DC5dtDXLbF9Gyi6d3Dg7DCjN6eGWM8T96WDzncQ8+2/oET1LmI369/qq
koh5lyLY83BEno32edLLLuwm9kuL5GRlwEYjHq2hz53+nz/tv1k4Gy1rnHhc
4Ux8v4996ugeNoq083G32oNBelyoPvJno/epK374Ed59M7st+xwbnXob9ZpF
rJdsqvMfS2Uj7SdaxYh4X8dgvxBewkY5xVVf3Yl4MvkFb12pZaPTxh1XfIh5
ukdj5ZbxFjby2NkvK2ZBzL8tOwfwHjailQpuFjXC4PM/Jy5cnWSjmonY8HFi
3l2NyVX6w8dBar9m3F7xhGFfyYv6zTIcxMu7cRLrFga5xsH9OXocNHXpte2J
28LwbQBj/THnINeLFh3sA8KQTzK4smUXB809CHHoXRYCdzXndbmHOAgPC3jJ
ihQCRfz0x4lTHFSQLCig1C0IvQcLQ60TOSiws4i7RBGEwqhGsbxCDjrV5y2n
JiUAntd/V0ze5yCyymy/0DAfqDBE7W2aOCjOLdl0LJME3/uNRvK+cJC/vNQP
BWMuo5jrmvB3lINiTrh3ulOWGd4qEVpbORzUwDr2QaiFxVC3Kn6ZL8FFDKk+
2dnUWcagZ7P3lCYXzY0cleAlTjNuRI5xt27kogH9MtWq+gmGzzXxawX2XCR3
5symDJ9RhtYLE/NpTy46HvnN/qPTb8avXrdvtmGEffP12l8PMUrZF04XxnPR
jZtrwmQGhhj+SrdkmDlctNVLJFOx5DdDz6KtZlsFF/118lM4vjjKGPWYdLrW
wEULGd2WMlWTjPII6SnmR2K9daqnkSWTEVBgmrb9Fxf9YswVNqfOMfSfea4u
WuAiZpr6f3dVFxl/umPfzIjy0OA6j+F9H9iMyqWyI3aqPOTJV+fWYECCYIW3
wteNeehZJavNYYgP1pgxb81u5SHsrfahzycF4K/bCmt7Nx46YufuaNorCNVn
LX5cD+KhM2skmT+lhCEs75+ouSgeIiWsvfyW6E/jugRlhyweOn5pvXXDEgYz
XyueFZfyULbxwK/wcjLULnxwm6/joTHHaHXDDSJwUm6e5fCWh2oGE658LxaB
9aaKV0sGeEjdJiM/f0kE5vfhJqwZHrJZ3NmDm1Og55nx0VIBEr7+uFSEQzAF
njtsNXUSI+HOnmmR83kUKOzZh7FlSfhBwcnoijoK5HFjTp9WJ+ENQ3/rWF8o
cFW9cpipT8Kb3MSTL05TINvmy76QDcTzdQbeJ4nzboY/qXUUJ+FhnBiJCXlR
SEtaZernQML3hWSTpQxEIeWey50BVxLOWhucxLMShYSZO5e6Akh45Vyd3zZv
UYiT7VxwPkXCiw+5JxmHikL0Js6Rd1FEvO4m3L5IUYiIcrJrzibhZg+1W9cV
iMIx0SWRmgYSrne/gJz6SRSC12idW9NGwh2bntD9BkWJ88XOsbudJPxES1rq
0l9R8Mu58aZ4hIRvSyuoX0OlgrumQ3KaFB9ucdVnYttmKtiYF1IDDvPhszWy
btl3qbDZ6/X5X8f48Hx7+B3wmApWMVN/vCP48Id6o5EjL6mwqcXm7b50Plyn
/YeWdQ8V1uyZSN1az4fLPQwWXk8VA7lAK3F1Gj9uH3vd9n6QGIznD0h+fcSP
w8GmyjBNGlywMHcqYfDjNps5o1MGNJDqv5Ie0MaPx6s9fxJoSgMzdQdxTi8/
HqZdWr9nBw2Syh5RNQQF8Nz7PR/Gw2mwqjYJC3IWwDusA0xN22gQ8NaEw5sU
wLf/bA4/FSAOo7xLI7p6QrhRuLOrmbMEvJIZqdFNw/Dcm7ZntP+VhE9M/eZd
ehT8aYxJ3PpOKbhy6vKN8StUfOPDne++iNBBYdjMqqmYiqOR+l4hcToU7f/9
Lb+CikdXFj5aS6fDHXNLSftGKj7saPMtSoUO9XzjUXf+UPGQpqTxeWM6DKTa
evpZi+EbWCmq/3jQQb+Us+L7lBj+cE2XiW8FHapX3K15vCyGFwUZlh6rphP/
O5ddacI0fEfK7XUxj+hgFVSRYKlEw4tDdZnVDDrsNnabK9hGwy/qik8c+EQn
zou1HfuLaHgzNnU2m0eHZUPvEKO7NDzu1P4IMyEZiC4RpZBraTj1+QVNJkUG
EuMPbX7SRsPrj+YeLZCVgUJ7iWqZORpu5xu6g71GBtSeP3OY4NFwvr7dZa7r
ZeC2gf/wK4o4nmfw2avdXAaqJBpUTqqJ4/wXB9bI28nAutij9Q764ribx7jW
zC4ZeDpD36u5QRzXeYNvYO6VAQs/mF7CxfG+IaMMOS8ZaPwSmNrhII67em2M
PuInA/8DlWMekg==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$208552#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}]]& , Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, 
     AxesOrigin -> {-11.512925150175361`, -14.815407399112459`}, 
     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], 0}}, 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.512925150175361`, 
        3.9120226906332793`}, {-14.815407399112459`, 
        10.12663078905547}}, {{-11.512925150175361`, 
        3.9120226906332793`}, {-14.815407399112459`, 0.}}}}, 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 -> {All, {-14.815407399112459`, 0}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {
        Scaled[0.02], Automatic}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \
expansion\"", 
       "\"Low-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)expansion\"", 
       RowBox[{"n", "\[LongEqual]", "8"}], 
       RowBox[{"n", "\[LongEqual]", "12"}], 
       RowBox[{"n", "\[LongEqual]", "16"}], 
       RowBox[{"n", "\[LongEqual]", "20"}]}, "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}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {40, 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 -> {40, 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.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {40, 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 -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   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}, {40, 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 -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 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}]}, {
                    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[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               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[{"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.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], 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.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], 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.528488, 0.470624, 0.701351]; 
                    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.528488, 0.470624, 0.701351], 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.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, 
   3.7908818555386677`*^9, {3.790882251610034*^9, 3.79088230753218*^9}, 
   3.79088233976814*^9, 3.790882410673272*^9, 3.790882481813483*^9, 
   3.792374706008803*^9, 3.792374752964991*^9, 3.7923749956929092`*^9, {
   3.7923750272817097`*^9, 3.792375134900605*^9}, 3.792403136221466*^9, 
   3.792403269523156*^9, 3.792404639923942*^9, 3.792404706203754*^9, 
   3.79240477113796*^9, {3.792404905237535*^9, 3.7924049091758623`*^9}, 
   3.7924064956964693`*^9, 3.792406640845828*^9, 3.792407146166306*^9, 
   3.793457995015514*^9, 3.801993539213942*^9, 3.801993854444618*^9, 
   3.80208668565763*^9, {3.802086717197608*^9, 3.802086752921731*^9}, {
   3.8021659444702873`*^9, 3.802165953601725*^9}, 3.8021661569732447`*^9, {
   3.802166276010775*^9, 3.802166303583931*^9}, 3.8021665232773647`*^9, 
   3.8021776440699177`*^9, 3.802353534336429*^9, {3.802419574160919*^9, 
   3.802419601097328*^9}, {3.80241964290504*^9, 3.802419648188257*^9}, 
   3.8026892489469557`*^9, 3.8027016044600782`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"8f31c4e7-3f9e-4970-8ffa-82ae946fa101"]
}, 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", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s20", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sf", "[", "sample20", "]"}], "[", "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}, {3.7924031541862164`*^9, 3.7924031725229*^9}, {
  3.7934580243954144`*^9, 3.7934580247386847`*^9}, {3.801993872175102*^9, 
  3.80199387669166*^9}},
 CellLabel->"In[90]:=",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"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fit20", "=", 
   RowBox[{"ff", "[", 
    RowBox[{"sample20", ",", "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}, {
  3.792403162844507*^9, 3.792403169274756*^9}, {3.7934580282594843`*^9, 
  3.79345802877892*^9}, {3.801993883164137*^9, 3.801993888363929*^9}},
 CellLabel->"In[94]:=",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[{"s20", "[", "x", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"logZ0", "[", "20", "]"}], "-", 
          RowBox[{
           RowBox[{"logZ", "[", "20", "]"}], "[", "x", "]"}]}], ")"}], "/", 
        SuperscriptBox["20", "2"]}], "/.", 
       RowBox[{"fit20", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Beta]", ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"s", "[", "0", "]"}], "-", 
        RowBox[{"s", "[", "\[Beta]", "]"}]}], ")"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"None", ",", "Dashed"}], "}"}], ",", "4"}], "]"}], "]"}], 
       ",", 
       RowBox[{
        RowBox[{"ColorData", "[", "97", "]"}], "/@", 
        RowBox[{"Riffle", "[", 
         RowBox[{
          RowBox[{"Range", "[", "4", "]"}], ",", 
          RowBox[{"Range", "[", "4", "]"}]}], "]"}]}]}], "}"}], "]"}]}], ",", 
   
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n", "\[Equal]", "8"}], ",", "None", ",", 
      RowBox[{"n", "\[Equal]", "12"}], ",", "None", ",", 
      RowBox[{"n", "\[Equal]", "16"}], ",", "None", ",", 
      RowBox[{"n", "\[Equal]", "20"}]}], "}"}]}]}], "]"}]], "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}, {
   3.790882634773901*^9, 3.7908827218832617`*^9}, {3.790883013752141*^9, 
   3.790883013839507*^9}, {3.792406738076473*^9, 3.79240674231993*^9}, {
   3.792407225415324*^9, 3.792407275163086*^9}, {3.792407389924787*^9, 
   3.792407391131912*^9}, {3.8020868653471622`*^9, 3.8020868811244707`*^9}, {
   3.8025540559940042`*^9, 3.8025540630900307`*^9}},
 CellLabel->"In[98]:=",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:eJwVj2s0lAkAhseXiLJyqVTYLUNtum0kt7wfGg4rUtpcMg1hUNFSqVg6siUp
DWZKWZcmKWuzw0iuxeaykbbCmDQfUiIS49JYNdb+eM776znveVb5h+8OJGg0
2s45/t/bmdevRFmG2NQtkJoJzThYZxZ4j013hL1Es9rEmoNJ7RMWW+n7UBGk
9FFoy4F3gly+ks6G5uVNLlUuHKhV1fmp06Ow/pS2drc/B/0iupYK/Tya+A83
Hk/h4OW79qH59KuozOY96B/k4O/DGz0V6fkgPjTelfFT0VzkE/K93gOMM8O7
9HalQ3y0wLxusBYB+kdbV9B4ePPzQbfz+Y0YSS44p9B0FfekmXu6e5+CiI0v
MJFkgGJfyxrofA5r/7NPfSdvwIG3WtV4tg2s7iQxn52Fcpkqypd2osYzJFUQ
lwOXCzlB2tOvsEhpeiatJRe1XlOK5csphLCb+wp38bGu8IszN74HpV8jpPL2
WzjN2CAbH+1FNa1oNifsNirl1ayo2D58OOd6TdP5Dha55dn5jb3FhHtAWJVh
AVwfDneHn+3H0VP83AzXQnCd+vzo3wzAqPBk0hT3HoZDN/sidhDPFgUdvBL2
J0wLJVpxakMIJqb1B2oFSE7otTeMH4bL5icbmEtL0B7D2DS6ZAR5oncrX/CF
MEjxnGXd/AS3UwK9JOf7sNX1o+smjcLJNn230lQZBmgNRtd3jyFvqObYlU/l
WPZDR2CzmhQsrYbB5VOVcBrZftWtXooEWlGv1ZoaRFbuNQpKHkewwdrsfvYj
GLbpSDc5TCCqzWqiuLUW/3y5uDJZfRKnR8McjiX9hV+Kf9pm1T6JOrYotTau
HsUlLSm/XZrCzYUpawK4jeh5LGWk7v0Mi/OHxDqrn4C36rG55WIZwr4ONjnW
tsBt4Ue9rY0y+JfU22lEPwNtfgOr7tI0xOMisSOew8LZuYdw/BedGeaXbbNe
IDQ7trpdfQZho5bzXhNtMCCZIp/mGSSe4fyxeks7uo9w+0zPfsHGsor8CpsO
pP8eszPH+StCPZiZvTtEeG6qPlGjKIdaYPaJ9QadUGp1l4W3ynHMUI+XpiCG
zcTQSGT6LFwafCMZrWLMFutwuEY00k6RbXIm4RW6ItO8KpJopPaQd/QJ+y5E
vzr4yHyARsYo7dFkjnUhU5mV02OvQBqf8zGWX3uNCmvTIvd8BfJClOR9mosE
mcuY+3UVCbLKccUSgVSCFZZ1gor5BLklwGtf+qQEGfuNlL2UCfLG2kcJUTIJ
eLkjAq4qQQa/98jdLpcgxThOWV2DIMcOv+5rUqEQj5xiBX2CNLnomdv1HQU2
+82C99sIMv50wy2pK4X+Cw7MXy0IskJkdvKlO4WAwoISAyuCvL5YYiH0oMAa
i2CybOb+Z8jE494UvKPnCcU7CNInX+DxOZCCSwr9QIs7Qdql1S6UxVB4IkgU
hu6Z8z+4vhXFUXBqG1ZR2UuQIp3qwrJ4Cg7LS4UMT4I0c76kFpVIAXyG6kMm
Qf5CMjQm0yjU1N894MsiSI2Sbw+18ShYD6iVzvgR5GJ+QmlJBgXzDR0HzAMJ
8sdZR92IbAr33SxLO4LmevXbzN1vUtgakaV6PJggjxg4OGzOoyBMJ1haoXP9
GaU71O9Q2FIWVCo4RJCVHpamIwUU/gPx+Uwz
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwVkms4lAkAhce3hCkN61bRlkx6Jkm15FbOJ0sPXTxEbmEQcslU2lWytVtJ
igiDJIko1maNS6F8mkjlEnJPH1IaJbmvYsfqx3nef+c9P46GF8/Oh2AwGHsW
8p05aalxocb+plWqFYcv70qh1m/1uefH3omL2gOHlmimUFNKvxnpsx3hhMUH
Y74lUy7nxWI1th9k/FxdYnOTKbmHQk8WOxTc0lnLBOlkarCDrSjLjoSMw7bV
15/wqVfv2z5JsZPBjX/UkmeSQD0P2ugkyb4D+RV/8BIdo6m6Ald/zsoHqFLR
UECcP9V1JM9QOPQYZJaj4qqt4Xh71Nsm8k4tUvKu5Wcsv4p742n7evsbILNb
XFQ+fx20X0q6qLMZRyK5i5qVs2CZtIapPd+KDKf4HTUpd1E2w0SZSidGJTmr
xBL3sDsqw1fpazemuQYtSyML8dh5WrJsOY0DocKedPNirM+fs+af7cNqlWyT
zOZShFnozEyM9sN/TfnHWrsyVIgfcUNPDyDd937/YeZDLLHJ3uE59g7aPy/R
iUyoxF5quJd3bhCN19ncuNwq8K0GPNlLRWi077EdIYQYDtjkhtND+NpMfZay
eAK9/DeKZ+Q+YVlg8t9umdWIPt9vvvbsMHyfparyRDVoC7fQHVUewW2z+Owq
q1poxjrNczO/IHcs0zXr9jOYqXuy1S+NosentwKi5xAxnmql2o1BYppFqu+s
g+rmdp86uXHYWwcFC67Uw2pke7JNzTgC2/qru142IKTCQcs3egLHw3fBbMNL
rG1dNq5rOYn2kNHNhYZNaJq7rBbNmkKggX57v6gJvwv2G5i0TcEr6cLS1/xm
CIrqY2/ETONox2e1zQYt6Kset4h3+BdhWjYm6wZbkKRRbWgsP4MUx6e6YVGv
YLP480r92hmsYFs/4HNawZB6yhXGfAVfXGtn29EKI2vrPmLnN6yrcBX6n2xD
wM3Tj9pYsxBEDJmv4bRDk3TvcK2bhf2WmFSDhnb0HuYP6J2bg1PY9gjl4A4k
/hW+J8P6P+xv+vBngnonmvVYk5WSYgTJ3N0XTHViUaPtDK9RjLC9XgZDvC6Y
Tn4aCUmcx7Aup2DDym7MC5Zd5WsxyOMTUnP1ld14HZLgXH6JQU5W97jIBb/G
qW7vKkMRg4w58fxKnkIP0qS5GX3mEmRkrXC/vKAH5dv0CmzvSJBh7NJNKtw3
SFN1P6AuSZAXvKneEwSNFcbCwnIpghy4uXFqjxSNawe0pJ2lCdKs5wZTU4ZG
0q2RQj6TIGftw/Ub5GjEap+RZikQJM/S6LLGwk/PIkMg8RNBOnOKtr7QpeHn
91bmgwFBcr7kxKi50RiMsnSPMCLISG2VrFEPGgfz84o0TQjynV/EgxovGtyx
Y+5cU4K80ec9wDtEw+XUD8VdvxDkjy2rjapDaOyOZXvU2y74i1PfBV2i8aLw
YnHAPoJ0HJP9ZhZDw6p1WFbWgSBLdE6yVONoWC4vKbZwWtiX42j8mE8DWRZM
yn3Bl6wUp3yLRmVNrocblyB3tJ7L/phFY5tIrmTWkyBvyk+UUzk0DHXaPQx9
Fvqjmt/759MotTEuafclyKIacta0gIb+sXTmr4cIUoH4R15JQKM4keAqBhDk
UdNVWkPFNLbc9y0pDCTI+rArJpX3afwPLXRHcA==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwVj3k01IsDxflGKllaSOIVDYqnUrLG/UYRWcIjIkslFUrWSouHqPCsY4uS
6qG87IpCFNkalHVEM6VS9imaYYaf3x/33HPPuefc+5E7ds7aneDj47u9qP/7
vxnpcUE6p/XzA9Xbt+fEQ1nD/YkHxRiFeXek+/PjMb02UHs35TD4HeRkbxTH
40j4/PwGigeyyuzMvlXFQ+RFnZsYJQiZDzpdKzvj8bWHsmY5JRKvspe/LSES
8P5L14ggJQXe1YOiv10S0OS1zV6AkoMF9Utn6RsT0VLgeHqr7DP0XzkYc60v
CX0+j7Tqvtdiy7F8zTMpyfh0/rhlZM4b8LpUM43OpuIJK8PmI/Mt2ktildyp
6Rj0SL0z3NuB5HxrG7WXGTBKll+hstAJg4NKCmkH7qKCvQIVkr148Iq2U4Kb
BbObWSfXcuiQnHjMFbXNRq3DjEDF+kE42vz0dPp2H8r5XFNqKAPcd0SIdPBD
XNqvyv45ycQj2nKvCfkcPJ+vcg26+hnLdgXfWS+eh5WWDw3cpoawsG3CwIL3
CBY1ox/PhX1FUmDuMj6d/0A1+exGER2GWmOA/FBSAUbP7DiKq98xIBS2tGqm
EOr5A2uuiYzgeCSjzd26GNHhTEOF0FEcDvZNuZ5fgq7L+7dPSozjUeWEmfGe
MmyOtV9wzZ7AlquS9h8Hy7FXxo0ic2sS2b3yvwuvPMMwX4NiuvUUKmbyKpY4
VmKdWrd7iwgL2wwELKJ2vYDJuF6KZT0LleX7HgzLVMPvua3iyeifuNgga7Ba
6SUUOqVY241+QfvynfE23Vq0c6M2RItNI2ClnN/4hTpcKbbT1O2ahnXSp2z/
V69QXNIamxkzA/8UK0OecD0Yr1n7E2x/w4V64VRcTAOS5V5r6YizwRYZOiC1
qRF69fYUyTVsJLnSNCoUGzF0akyMJcFGqaLYXWfVRuwslPyWt4GNPR8Slj/V
acRb/dPU9UpsmPG6Au7aNkLASZTF1mOjfuSxkX10I3yT7R8/9WTD1C7wXBiv
Eet1xpITz7KRPqHMqhdowsuBv0PPnWcj9vw0VXRlE0QVHjsoBbGRYO0XWizd
hLwSnlBKKBsaoRLVRlpNYLRnnwhMY+N5rZxXgX8TLIXHZHe/YaMp96vuCKsJ
GufY1pbNi3+MVre9nGuCzPslN06/ZWPD5iCrLIFm/EiXZmW+Z+Mfzt7bVySb
EaF8oGEpg42CNF50qU4zXpjcP9vLZiPm+Yp72643Y8sNh5pgZQ4cxhPcKJtb
IDZ64hdVlYPfGvcEfVVbMGPps7VwBweSr58UvtVswat1kYlDGhx4LgyXFZi1
wDmn1MPckAP3ac8X8kEtSGoQE9/oxIE4y037G60FfIINrnUxHCRtSk4UiGqF
hOTrYzlxHBwfSFWNTm6FslLdiehEDrKrvl+gZLfiL5PqU3Zpi9l0pCSyohU5
MeU+Px5wEBfNXy7zvRUWkjkhq19wcHCvGuffg2+RoXQj69gPDp436A/IbKSh
SCsi23hsce9Ooy+hSkODSfiDPyc5eJrQL8bToWHSMyR3ZnqRL/Zyh9phGgwL
LxTe4p9FgvDPmIw4Gn5onX5ZLDWLo0vXrI0TaoO2qSmDMJ6FROKmbceWtOOf
DTUqiqazCJB2TPVf2Y5Po7uCTMxnIR0cdokq0Y7oWFnROJtZyKUaJS7Z0g5G
56SurOssSpjxsjfN2xHhkpKieXEWEVRjQ93b7XjnP2Th9XgWTfJXAhT2duDM
3atVXWJz2HvrwSW/4nfYTDr3OLbMoa7m5sPSzC7QZWJ1dWlzSIkxftOd24U4
Ts1d6Y452OdqjE6VdGG+WO5UX/ccxiqi01Y3L/YVvrDtPs1BXFthnD3dtcjp
JW3NmQOr4Ad3h1k3+HsuHj2gxEXThHet3VQ3npU8qlVS5qI/3MfFYq4bZ+P6
FYRUuVCxk/DWEezBBxO98fqdXLRXzapNSPXg2Qu+a4b6XPSGUVTb0AOf7Mgs
fVsutP1qVRyjevDRm/pZPYyLdSK3yp3W96J7hV68dQQXle7mlVHyvWjNGdL3
uckFf6L6xXyVXlQyd6U/juXiwiZ5/Vd6vUi2fXdIPoOLggHVa0ZuvTDTE6sW
K+PiF8GUz3642F95M/XHVy5uba8X3EbpQ1HeDqNlP7jwWOq4JVelD7lGvT8V
xrjQoJa/kdjVB2qIkqXbTy7iXcrbWvb2wedXvWDvAhdHuhQPPXTug9IHwq9e
ioea0jnzjcl9SHp82TzLlIfTRkO/P3D7UDEt2XjDnIeQ9E/bowg6BlFkcP4Q
D5mudUvUltGxpfOLpoEdD9Gcgubja+h4wbWQH3LjobbDYMRjKx2fzeV+K13k
wWX2euCcDR07J+uzCnJ4mLrp28G5T8dhHdcNqY948FYIFn6VS8fl8FlqyH88
KAT5KkT8R0eD1PYoqxLeIv+C1mw5HUf2pgb8rOahctWDe7eb6AhNOGOq2c2D
rH/0+44xOjrUxX5VC8xD2Xb47tOd/dDApmdfhOax2WDXPU3NfqSbqF1eKTyP
ej7huGLdfpxwthE4smoeJX+w/NP29YMdmbJ2WnYeHUXKkqp2/fijf+NuFc15
TOkvbb94oR9ef+8ITDk9DyeR635elf1YSrNin6PNI0qqJlV09wfo/xoZ90ta
QNx7DYNN4gNYKJaKpyrykVFDK18H0wbQ75foUHmLj+TrSPDRoA4imH78pdYw
H+lS6Wlz1vQjMoRcsxiG/GR3Gc/7FOcjKveoF1jl8JMVe3arxh9hIGOds5OM
AEF2RpxMOlfEgLROXVGlIEEyv+aAVcxAmpOikIMQQT6zG2T4lzKQfG+8iLqC
IPfUHxK89JSBWJVrQmKrCDKTdO0Jq2IgFFnF/H8QZC5hmEdtYsDD49Oyb5oE
Gf4k6K9iJgNfbxo5X9cmSPu/7r/f9ZmBE/mPSjbrEqRooJ5p2RADrlO+zq76
BOkSOCP77BsDR4KXlPbtI8jygxJuVWMMmMVSXFqtCHJKy+l4A4eB5qIbpWds
CHKkoNrbeI4Bk87R5cttF/8d3RrQyGXAaH1Z6X57gpQQU/duXmAA9/evqHEm
yEFqK0ETZKK6Ps/lqCtBRh642mUhxMSeYZGyOTeCLPtdm9W2jAkt1W4XLXeC
jOJIy3UIM1FuqVPWfZIgQ3z0u61EmNjte2dFwCmC7PtTPPydKBOlSYTrmjME
WfBPirKNOBM7n54sK/IkyAiJD03vVzHxP/TbxQc=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwVkHk4lAkAh8cXTSlNJYuiHhlqeehYMs7ft8nZYU1LdDC2RaxdlaJkKWnl
Sm2oRKvDkTyunIMYOQopZZzh+1iMxRCRsKz9433ef9/nVfnJm+tKMBiMg0v8
75SE+Jt+Bh4mdtsCCE09f2jscc10Z1ugKOusoIvyx9QGX31d9hGs4Xhcvhl+
CUdDFhY2sd1xw9J+YaorADKllS4sth+UPHfOVoQEYaCVLbuSHQoN+4kLmh7B
+NAvHJZi30Hj3ZTTgoJQvPbSdpBkp2LwBjN7evst1Gcd8/hWuQhNaZ3ca2kJ
aD+dzqkcEmD/qorCK7mP0XvmpE1oai0Gpk0K66fSkDmRcLiHfoOZDJ+1Fs8y
0e1+94GorQkXzC1lExdzYB63VVpzsRnP7u/an9Wbh+IZaRR/0waj/Tlz5kWF
OBCW5LbhaweqWcnhG0/wIXCclixW7EZosU/NcsMyaGTMW8cGU+BcKKC0ReXw
N9OamRyn8eRVrb7YVICShTKeX2AfGmofOtpmV2K1TfJel09/w7Mp/xRXsgqH
ykd6vK8OIO2gXmPPuWrEWvW5sNeIIPdl2XhWdw1GPHeeQOAQvqZLS2ze+Qo6
GV2yQTLDCGgKPKXw4DUiQ2hTteAR+BFa5dmTdRAGmO0YlxNDJsXSS+jaANVo
h0XeozEIfbOERk1v8L2SC1spfBzy3B+097LfQsSoUY/nfsKsTZZ4yOod5He1
uNbLTEA94EPZlal3sBIb37GpnsCQifIwP7EJPiV26m6Rk5jlJ5oa/Pgeas0K
EzvMP8PCqOT29YX3eDcfsSmSNYV+XxZLufADfs+11zMUTkHRMkzE9WpG7vOG
6MSoaYRtTio+IicEVTVh9qfdF1hljuY/ahAiTqWKY7B2BmambU9L/Vpgs2pU
Wbd2Bu2/ieb8trSCIVXDq4z6Cv7hHRcvCluhb21NERaz6DCWFVsFtcHzr8Ay
IWsOFrTWDZ5eO1RJp9Zj9XMYD+tXM+9rR8+vsX06V+ex63XlpjcRHYh5FnAw
yfpfCAQtRvF7O9Gkw/r8QnIBN8tD7faMdmJ5o+2Md+MC0n297ymkfITJ52Gx
T8winKoCDBOOdWExV+FWrDqDPCS/TSiW7Eanz21HfjiDjFRdER9a2o1LHScr
OCIGydT9w37MvQcJTF4SZSpBRopjOPNMCnwjnSzbVAnSeEtwp+pJCgnyTseV
JAky8r3x7O4iChsNKnP4UgR52SLkVWYxhXvH1ZmOTII8V1oXp1FCIe6hOCdW
miCPpxz5busLCtGaQUzWOoLU9D/jta6KQjCSciU2E2SdSnL32FsK7u69Kwb1
CHL5mdUvMwYpDISZO13TJ8i5fu6t7UMUfs5If65qSJBjR+85P/mHAu/TWSee
CUEK96nP3x+lcPTSsrz2fQSZrEDqRkxSOBDNdm6wJUjTCp9Uj0UKdTnX8zwP
E+QeXf75fgYNq+aRlSvtlnrSGftcCBrmivl5Zg4EuT4minKQooHHZtLlTgTZ
656qaLmKxovqp84neATZ8nF08OVqGkYimfw5l6V+W50CrKHB0Wpx5rgSZI6h
gKu3jkaBjUF+ixtBPs5mqjxfT0P37APp86cI8q7aoTHtDTTyYgierCdBRsXH
lKXL0dhd6Jaf88vST1ZnhLo8jf8A/r9P+w==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#4"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwVknk4lIsfxcckJKUiuaGuZWi9JEXIGZQuNwqptDCUlHSNFJErIZVkzZLI
0jKlW10koj0q175mFvLaUpZLKOadd+bn98f3Oc95nnOe7+ePo+np5+RFp9Fo
ZTP3f72bmZEQZHrMws3y0L5+QSJWbfR65K2zDfnmI6fudidiUjlw0wadPYie
Z7Xj6EAi9kWJxWo63piIWr91bDwR856/9VDUCcLnx3XWqnOT0P9JR2mOzkXs
v/N6qmxTEpr7Wgdn66Thd1b2w93pSajy/W2vtA4HNTcEP+j7k1H9eP+xlRql
WPhI5w9NtRRw2fkmb7++Qf7ZSea9z6no9j+04yLnA25sY/Smv0jHo++Zzp+J
WvQ8/hi6YDgDnd7pNwfaG8HNjYnz+DULNqla8qslLfjLSC+gvzAbz6bk8Uyl
HWVPtw/e2ZiL7ZdzjihP8+Det/W0Zkoe3rj+kH72SyfirIcCvqy9jVV/i+xS
Irog9k9imX68g5Cta6fGRwnkyinm04I4KBe/YAWF9UC/OsPCzvc+FHbcsfIY
64Xgw/etDzwewOHV0Ge/yH4EDNl9neI8RIptj4fO/AFMGgq3XJH5B0M+BgcR
9hWanNyXP4wLYPR3h9K5eYNY0beef/t6IWKjCGtGxBDWRFYF8qeL0Bq6VX90
8Qi0Jv74VplQDO34vRJW3n/QTAsvn21WAkt1Dx31mFH4ma5VSSVKMUB7r5vh
NIYQvRav+R/LsGRdm1f1vO+gSb6d7L7/HLYjm9N2VH6HzKrIG8pZLxFQ7qJ7
JHYc5f23lZp9X4PRovpd32YC/+TO3St18Q0aRFfUYhUn4WYgul9U9RZ/Fe42
NmudxMJVw4tmqVagsKgmPuvqD2jfiNBodq9EV8X3rUkuPzE9vKZmXet7pGpW
mJgumMKC4x6HR60+YsfcYY0NH6YgNgxcuLGsCrTZ71lvr07jpvMbK/cj1Vis
UuHJSZhGeIHswWbfaqzSe3s4NnkaKxcsdbYNqMYu25dHd1+fxvECk8+m4dXg
XH3K/nZ7GrPKNRqMMqrhoMIJX/R8Gm7jXhZ76qqRqXcpx/PbNCa1dsjHGNdg
k51dF32bEL/OnXXfQakWcWqvVuvaCZG/PtxeRq0W3UPrg2zthTjAPb36nVYt
YuM15ic4C3G1V9i63bAWXS2jZhosIUr/vDHBc6xFtHtamnGwEKO7gt8xkmrR
dKrXwfeBECcHUnFhcR30bFwz4h8J4Vm1YHBSow6hS+r6CguEePX0Ct9Ptw6M
spLQ6RIh5KN+6p03rsMZSUx+dIUQXWRuvc6+OiyLWSeT2yGE7AXveeZ5dfDJ
DnvRqkhCf4v2Bw2Legxr9Le+W0TisjfjTOW2erAz7UcKFpO4KXUpJdyxHoHX
1ZfHqZEoUZzvv96rHueTy8Jt9Ej453N+3r9aj/SLP6xLLEhMlbHsTXrqoSbj
duCOJQnZ1C/Z+0fqcTOq8lTyFhIbHCK7M6brcfv8tTt+diQ47caWJnINeHzW
UHbFbhIBWUFFH5Y34L3fn/+mnyCRQPmYrHFqmNlba3c0m8RZVe7d+r0NqPHd
TJ4KIME30m696N6ApmMKaxyDSexT4BqanGhAx6H8q3MukGgtTn6Se7kBE3v6
d4Zkksjl2bFUPzQgqM3+2NFsEkdtJQPM+gYIdxWf351HQsnq/pnoTw2gOUUV
Gt4joeoZIn18oAEK27WUB4tIZLCdV+bPbYQ20+3T/moShhyO+eW9jeCpx5uZ
1ZH4xzO2NdWzEQnTr7KXNpKgTqq3Vfk2QlyoeZTbRsJTbTA87/xMntE3tbub
hGubq7fBw0YkzfVd6jRN4tXB7JXmCk2wHcgMWyci4WAZQvui2gRaZW33AsmM
f8eQes1owp9h+g/qpUVIPWm9SIwm2I19N7NfIMLXnaY1xYFNkPoUfPB3PRFe
nRib2DvchNKi/Dd6q0TIvqp+fj4100/gM2TXiqBstHjlT4VmCGw3j1QaisD4
ESF0W9uM0ue0c9YWIvQsz7kYyW4GO+9ijoWLCA9VDWK7JM34fCKlxyhy5p9B
ob+JRSva5DcnOkWLIOU5Fivl0ooaTq8F+7IIWpMl3gPHW1FGrM94EC/C2Bmv
CzIZrUh1adqplSlC8gqfDzY/W7F9s+JLxWIRbLnCGG5RG6x5T4+vLRUhXtIc
za5ug2mQ2y9/lM/wBnwooPW0YUXBw1PRb0S4MxE8QF/0CbMY21dTtSJcWWHn
s93vE8oULqd/6xdhQ1wcXZbRjoL7BjZy30R4PcusW8usHfds2scZwyIMacom
LXZsR0q43g6PcRGe3PKWDgltB3uicna7ZIbPKTlLtbEdegJ6QKUqhReZUbwI
NhfLgvN/7VGjcHBAycY/kgtlFac62nIKure7e3RSuaDvzF1pzqDw52GTfG4Z
F53v0FW4jkLANYNcHykerj0Itc+xo8COkbqlFsnDs0mVj5fsKRRdr9G1TOSh
EwVW/jspXHFRVlqfzcOKlj5jq90UqroiXf4q4+G5yEGr14OCuueJ2JIRHgib
r5k1hyk0VGfP/YPkQSYxckmxN4WE6CaTR7J87GSUKkSfoBC8YpFK33I+euw1
f+oFU7gnO+e0tgMfcunl/gtCKfQuDjth6crHmm6XoakwCo8D730xPMxHYGAM
URVFYSRs/+xrwXzIZ49XH0+g4Bqon+CZx4fhaGXOY85MPpabVTHExx5Tllp6
PoXy83PK/Cb5CI0SpoQ/pGCuZqU0TfHxXlX/imMRBcnsTsm9+QLss0w/Pf6S
QphSXkLibwJEJPnYGbdR4PS9q5A9JgBHIF25nEvBgr2vr8dPgBrdbMgJKNwy
OMTjBAqgUt5sxCUo1O8JWPY1UoD8HvPlZ4cp+CXd2uCWJUCjkeLES2kxZrs9
uftXjQAb8Wtpn6wYw7/15UU3CZBhuy5UYa4YJ0L8nUPbBTjs5iy9b6EYGq5d
Bw16BZi6mKY8qSHGt5uqS2uFAizjL9+w2liMEP1zaasYHfA9bxCYdkwMtnq7
dRy7A41XLE1f+opxyVddmXa6AxtTncS9fmJkNihU+AZ3QJJ/KtowUAxHRtIb
k4gOJLWUptZGiHEhIsQ7M7kDz/QsS2ZlilFJi2Z/K+qATJ3jlF+dGA5b7LfV
jXYge+MauUuNYuj18LwCJjpgki2jmtMyw6O4a/+SqQ74sMuNG3hi3Btsaz4g
6UDtIkaQwRcxcq1f2PbN68S1PVOToxIxKsZOvtJb3Qkt4ua4/zoJxE8ONN71
7ITFxOBIwDUJqMMKtY+rOyEpVE1M0aUxz8Qe7OyL+wx+QLJrWcyMX2p3dtea
LpzlHXptMkBjZnk7ery91IVMWVZOl7UU09D9Lqnd3YUyc6PHjhwpZlhl3dBi
KwKZS9wOqEvTmRWU7/u+DAJLTd8WlM2mMy0tr+r6ZxK4fkBX1lWWzrz+Y0Oo
KItAau5IQYo8nTnuaCWnlEsgfvU5WcWFdGZP7qbb4BCIQE6h1DI68zb/7/HU
IgLe3t1yX4zpTJU0lolFDYH+yzZuFzbRmVOhZw58rCVw+O/8Im0zOjMk0ifI
qZ4Aa+ykG8uCztSXX5h0pInAvrOznnC30JmVzh3749oJbI/Xca9xpDMDzuba
C3oJ/Ftw6YmPM53pZFzV59VPwLZlaM4cFzrzTenD0/99IWDzS/GTrXvpTNW9
g6H0QQK4tVX+lRudqcX6sWrFGIGXlffdD7LozPmyLdcLvhMwH5hXTHrQmVLP
5eXMJgiYrG1zN/GiM08t8aq1/0ng6Q7T4rYjdCb732s6n6YIbDh5U/70UTrz
S7n2KZaQwJNrdJaSD525xUL1+VeSgGHJkeKC43Tm3bdnRCcpAv8D9e/Mpg==

          "]]}, Annotation[#, "Charting`Private`Tag$363079#5"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwVxWs01GkAB+DxxlqD2CQp6shkV2WLQw2V39sFO45ypLZc0ii31K5UclZW
aSuUjtqaISFJUaRci4rMFgllchsU80camcSEiMzufnjOY7I7ZIs/YbFYm/7z
/zdTks+H2+21f7jWStR3PRFLVvrnBXKcIC7b7eT8KhGjs4/Y2nC2Q7rqYt2d
r4nwPDk9PZ8TiA+WIy2H3ZKg/Ujkq8MJxyyzkgGiTEJfK0dPgxMD75l2+gs9
k9H4rnlAjZOId53rgrbrpqJm/887VDlZ0Hjyk7qf/TXU3vXaa278AIMS6b60
hVloO3CbK+qvxKbsVAPD1Fx0h+5xjcmqxvX4sMHjynvIU6S4dzH1UIs+sKL9
QyE6A5PSZBIxMhs+CtwzS+AoXMReqmyCiXdFu2VSKUrH2SidI0Eo12OZU9Qj
uMSlB8yeaMdESNi1SKsKVHqMqZYadqJwWBFxVrcSS3KnnAUnpNDwkJfIfhch
wsFi/PMQA5GM94dv1T94OP2YHx7Vg1ChW47W6mfQcr2x3ne4F49D532qFlZh
c4W8K+SvPkwEn8so1nkOAa/HlzNThtR4vzfl0TWQB6/Yiah+dHZM/ShpfwHr
3Ld6x7QHMIuHHlO3OsSfZDYsPiFHX8/6e8fy6tEc6bB8SH8Q2SlDcm3zVzBN
2KHkZ3xCv72KxGtzA9YZ+XKMzgxhc1Ww6MFkA2SsKrPkLcO47X2rN+++GAaW
Lf612gq0xj3XsQh8Dd7g2kTXZwqsrDWc5uo14tDDbWYB8Z8RP59yOusbsbhp
rmK54wiKiJO7ZmQTGqbOzo/XGUXj+KIyMbcZfxb8ump18yjMZlj2LlY0o6Cw
LiH13BicMhcakKstkD5VOPy97Qt2b+2JDvdshdDkKddOdxwuV2JGD2tI4Kr5
0dimehzBYzuXsYolYKlV8UXnJnCcr3GFE9IGW2dnKXH6igBfwSyxUTuCr0Y9
btaZxMbQsco5be0wpT6tXrWTGDbgRvTGdqDrN0GP9V9TEL/OGYXNG1zKidyU
7vwNOSkj2dZDbyC21hkpV53G1m/G/vlpb/HdS7fxkJfTGNtv5FHt1Qn7kYHB
Q5eUqB1y0d2n3wVlwdwLAjMWDdH0aRCKutBx6KJH2RkWPT1vUa8FpDjavucJ
V8aijyJO+TUJpUhR56dLN6hQ9rvoqkq5FGVrrO+6ZanQlpagp5M8BikGPt5G
qoSyZz+pmkhnMM9OlF+mRih/pH5lVAaDy95m6h7qhD5o6rhJMhkIrw3mC9iE
+gm+nNbMYpCw9Ji6zg+Els9Z7mR8h8EJpBeoLCD0oGFaNS1lEBjY/f37VYRK
FkQ+jxEz6Itz9DllS+gKZRxXq5GBX+7tQtPVhJ7uSsw+38SAP3zQh29PqFV6
YezlVgaeR2cUtW0kNN5k4JectwxcEji76twIpRzPmpf9DF7kxxYFuxMqVA2y
dR9gwGuSa2hsI1TeG3arVc7A0bC4yGEHock3LsRJPzHAdQd2hQ+hI2Y1PMUo
g/Jnt3bt5BPqrN5aeuQLgzUy7eJJX0LT3/eaT44z4Fq07OL6E+qSzWKrTjEo
cbUrbgkgNCN2ZkTsNwY2B9PYYUGEfg0y+qClZFB0ifD1ggndwlvieYHVDav7
AcX5+wjNNue+0Cfd+BeLLFhR
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#6"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0.922526, 0.385626, 0.209179]], 
         LineBox[CompressedData["
1:eJwVlXk4lAsDxTWmSCQRSglZihYpWcJ5EUUqlCxFg6Koayt9lduCShEhKteN
VJSUbEWW4iO51M2MfZsxlsiSLKHmfd/P98d5zj/nn/N7zvMcZQ8/+2MMISGh
0jn939OTk26fNTxhcupYF8NuOBaa24699FbdiZawJemK47GYkgk20FV1hMGN
WonR6Vi4hFOUgqo3+vqr18cJx0GipMJdUvUsag7Yvv6+Ig79zarSC1Wvg7kz
xVPIOg6cvsah+ap34bRtJPLCszjUnNzoxFTNgITE3vDJU/GozT50Yt2qQnjM
Gh8x1klAq3+mfsVgOV4POzJGfyWCH+C573pGNVbbMd9Id97Dy/Hk/dzuT9hN
nj+nJvUXurzvPRhoqQfjUqhS1K6/YZmoIqZFN4C1bVmSDy8FRTNiKJJtwfFY
F6OHdg9hcyPVS2a2DVeIxKjw/DSUO/9kFi3vwp3nEm537B9DM0tgnRDKg9Er
Lz+d8Sc4b7FhZmKsG0klxHav9AwUU6Wssxd7wO7eUnL74TOI73ti5v6jFytz
2pWUkp9j77thrl9YP2zHF1zZ/PUFEqx63FUXD+By750rxRqvMOyj7YqLg6io
kk4scsnB1qxO6UsSQ/je2OI0VZaLqPBuc7XQYcRMql5dpJKPxhCLTWPLRqF0
XFu1tKQAa2KcaFbad/CcMoUv+76B6Up31ZU3x9DX9N1ITq4IA0If1JPsf0DU
Xb71q3Ax5DY3HauVGMfLF0XP/IZLYDVqfHdf1ThurT/5+GN/GYKKHdS9oiYg
F1JhZZ7wHmoN8uObLCcxb1K9sCS3HF8EkQpRklOoOsJUEZutwJ+5B/W2N07B
bqO087zdlcjNq4v5+9ZPEK6OsocSq8CrHLeIc5jGxbAfZxIlq5GoXKlvuGQG
rpoJRx9d/oh9i0ZW6VbPYPyxneulXzUQmv+BVXFrFkyqbn90ei0MrK15jJ2/
8MbPTlBn+Qk+KRdLGyV/Q9bkyqesVf9iDeHWfKj2N14Y9AwuDfwC7qmEnq1h
Ati0H5f5r3M9msSMY+2vCeD5tOdJlWs96jJ6TfxvCPAuY7ldjXs93nZvSXoe
I0DLQOCJhhP1SHRg26okCyBV9WnN7Ll62BhLlkkWCGBeGat7KWkuL37j3rd+
ATT/6LMv66hHzjNtS9FvAvRv2Ht1glePp5YtE2ojAsT+U3ZEq68eCZc19rlP
CDDktt750Ug9/Cer5rfQAjQ02xYVUfXQ6GAEVcmT2BHpq56qzJ7bXcieVGsS
hw8RW4Z82Siakv0YsYfEIe47/+v+bHQhxyzAloRK7EnhjWfYWNvQp2d2kIRR
oJkg6SIbJYK9Kr3uJD6EVEqJxLHRbTmYXHeUxO61Eh7Cd9lYEBsmV+BNIiJo
wevFyWzYqhWKXztFYnrz+ysO6Wz07FGe1jhHokZj+mhhMRui94oDloSQsBJk
7jEvZ2M932F45iKJpJ5lYz0f2AgOvtldE07CzvzwSl82G2IpE7W+t0nkWWos
yfnGxqbBW5YH4klY7/jDWewHGwe2rC03SiQRt7VSKmyajQfVh19LJJP4Z/3H
nCYmBzpjVanZGSQ+pjH2GCtz4GjIUriXSaL5jcj2d2s5CAn/lXD5BQl12QcK
ftocfJDfFGmXR6J6dUelG8GBi+m9MxNlJKKHDf6T58HBpUidsfZyErO/h8M6
fTl43FjnU1lJQs64qmXXGQ5GT8xjJfxDolJqqfxIBAehcT7Wek0klv/ao1We
x0FGB7NqdSuJ3CNZ883ecVCnngLRDhLbHAVPFGo5kC3mbG3tJuHGbV871MPB
9vl/ZJf3khgj8oz7xzhg7RPVzPxKYue4reUuioPMHqPVF0ZILC6+MGC3ogH/
bmi+7zlGwl6U2MhY14DJswEyNhMkgs5OSWrpN8BEPH3hqlkSVRXMpJ+ODajf
KjlZxqRwjRZz6/67AdugVNgnQiF7nWWqe24Dkqw2h4gvotAav+VuXHUDjrrt
Z7pIUVjBqWtdNdmAmuNHP16WoXBbwk8xbFEjNgadicqQo/DF1CX2xZpGzFy/
KzO1ioIpGTrlcbARrnFPWxSUKbSI5NaO+zeiIrko2UyVwsjZUMkDUY2IzGlX
va1JQep4mf+dqkYotq/W1dKjEB2uG21u1oSwPu1ZO0MK9S8CnG57NmHgu2np
f4wpjJv5/Mq72oRc5lGLD+YUzgfIuQbWNcFi41MHd1sKw94Nnw94NuPkFe3g
uycobLI1vs581YL6SFPDspMUCmJiVTPbW7At0Z7q9aOQuEzJ855IK+jM09d0
gil8H+yYlmG1Iq6hMPFTKIWVkZWaHKk2THfVuExepeCzT8NtsUkbDg+2KSrc
oPDVdpW0rE8b1ClB+vEYCuuyp+z2lLehSMP0jXDyHO9R2Q2ffNqhqGN/QTOF
QsjJxH9b49sRauQJuzQK9saWZlYl7bCxu1r94CmFNkt/uZWLOsA7X9NsUDDH
K9NttjSlAxZX2/5iFc7x3z/o1l3RgcyYoSPXiyl4bzwXo9nXgaDHEgMN5RRK
Y+1bNTQ6seCz3YzfZwo7yqJ1s1M7kbJtvWhEPQWdHQpwL+mEfsoC+dQGCvmD
zopEcyd8/Iv1vrTN8fSLnr0u1gXh1oSdA50UmD/jjMZVupBs6u8o1E1BUXKH
c7xhFz4tVTur/ZXCbq8W/ZveXfC6QF/b9Y1CVvE6i56QLlA9rYmsEQoiy4KC
L8V2Qbsg+vXtibn84KP7jwrnftJxZmqMpkC5WsfL0V3Y8J49f6EwjWfrH2tp
SnLxYe2LZcoLaPgYKE5kKXIxM+uuaydOYykzzFPaiItYDyOLE5I0tOzjTGgr
LjRrZR2uLKXxrvC4qJ8jF4eSa0/nyNNYUK2dNeLPxSQzPbxGgUauQ3+A6J9c
RJ26fKdbkcY6++8nSyO4KDPRzZdSo7FQ73ns7wdcqHQ/mAjYTOPnxM5cvWou
iq3OCd/cSqMsPJNx/gsXB3L3S6fp0bgdUZ15ppWLa2GiW9jGND6zlDLuf+Ni
UC0wUMeaRnrXm1WTTB5Co21CrffQCL//56G7ojysmFaP87Cd65f4WV1JnAeb
j+05cQdpZOWf/jm4lIdXPhY/xj1oOLkoD4Ws5sGKs3reIi8aI666roEqPPC3
/1qy5gSNMI8xX0c1HmQksrX3+9FIKzH0Gtfk4Wy2vH/eBRp16bKfzuvyYDI5
NBp0Z66vSePD/bt4mC9WVHvwLg3/mrH7LGse6lZfe2qQRMMvbXaXlw0PLruV
POgUGjGHJqwP2/IQnHag8eZzGuKes2kiTjy8tC0tflhBYyaySvyqFw+KL6Ij
/h2jsVHbvNHsCg90rnxsgroQEWb72rAsl4f2oHjntzeFiEyL5fVGy7txoc3z
vf6AEJEaP5vTG9yNZBFWKs98HlGXvLf2dH033hptzbbLmEe0VBzVeabDR7Kc
2+GVTAYROFvY/iiKjxWGFTlv5zOIZTcltmyN5uP+YXURZxEG8dsl/2JlDB+J
D0dzEsQYREWK1kRvHB8xWpdEJKUYRMSXDfZq9/kIRWruPEUGEU8ETD56woe3
N1/0qx6DqNZP7furjI/+G5ZuVw0YhIxKuJHWez6OZmXmrdnOIAqO8W++LeeD
9SPQjWXCIKLkVBa3VvLhckE4v3UHg1gYZJq9rJYPmxjVI3V2DMJWimLdaubj
n5yIfJ/9DOL1JWWdla18WDUML1zowCBUQlf9zmzjw3J5Qb6FE4NgyhSf/tjJ
Bx5ZiL1zYxB1GgdFhHv5KKt6dsSVxSAuyojci+3jw2hAouC3O4N4+GetktJX
PvQ3NB3RP8YgbJ68XGH8jY/X+wwLmrwYxNP0zsjaIT50Ax+InTnOIHwyiSnn
ET7y7zBY0j4MwleNd3BglA+dN14FOb4MYt3LylfBY3z8D3b64bU=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#7"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          RGBColor[0.922526, 0.385626, 0.209179]], 
         LineBox[CompressedData["
1:eJwV0Hk41HkAx/Hx27EWaerRQXSa7KZDinLl86UoOiwe5ZiYqRAdUlt6XO1W
u5Wd6HCUHWePxlUaxwqVI6PcbCi1mPk5UuS+TWz7x/t5/f9efcTX3oNiMBj7
v/W/DwUxt/yNvc0O1tEDeYlC6GzzeOzF3o3x3J+LsvOEGFt0wciAfQjhghdh
mTVCuFydndVge6HQO2ajcEoIlWelPBbbHxuY9iei7FLQ/Zatqsi+Bjmjku5f
5FLxpqupV54djayk+FY9XhoqTm5yYrKFmHeBU5W+6hGqMl291y1/igV7TZiy
UBFazqQZln4qAW3loKjmkAPa76jtNeEr6I7mqZiq5OHxsMChXVqDTW19Fnyq
AG1e9+J63jVgIjvDzV78DFZRa5TWzzXiXLlp+q6XRcifVEL+knfQE/MD451L
sO9GgueiqfdYEFsccehpKUqcx5n56m3Yc5dTnqxfBp0MmU3kZQm85nb0Po4W
I8By4+TIoBQoE7OejZSjcPY51z+kA37C3H3up15jnm2yBW+oE6GM3qDnNRU4
UNTX7nulGzP+18WivVWItO7gsef34Kc91SpppdXo89l8GCGfYBLmaH14VS30
M1pVL6n0InnYKvbhX3XgX5XuXHu5D8HdZmebQurRFGSpO7i4Hw1H5iclmTVA
K9xpjps0gKvKooah6QaYa/LYmqGD0PEdD4hL+wc9jHLtGPshyKS+m5d4v8FS
vWaPKpVhvGTx3XuXNcK6f0e0rXgYXd6BYRYV3z4VOmp78kdg8Cau4tgfTVjb
qDasazUK/4ljIZ3bmlEv+1ODzxpDl447dMebEZx1cLtJ0xgyQzcwZKK3yMqu
Do+9OY4zyQJjbd47SMqGLe84TsC1jvymsbIFUavLDI0XTMI455r56foW2Cp/
WW7wahL+4kS5nSHvwZAv55benEJ710ANbfwBRjY2Emr3NExLJKqSzx/gEx/y
vIk1g7J0ec+U1H+hRdzeulbNwNyuRq/WtRXtpyI79K/IsEzr+NfzSm2ISA/a
n2DzFSuZ25t6XrWhQZ81+oI5C42EFO38i+34vtZu0rd2FvFrf7TQ0ZTAbLS3
/1zEHHi3OwYNAySYy1K7HanNIAIXP854gwQfzt11LghlkFPr1Q+o60kR+P5o
sWEPgzx1viP7fEMKgQI3QbJTjuitGEv7KpGiwFQ/004oR8w/+7WfBw3BUjeO
JpMilarF9YJoGsuMS0UF8hThyGWc1r5P4z5HW8FZgSL9/dHznsTQiErsF0Uq
UWRhpe+el7E0wtdfUmAtpIjTryuLPz2gcRkJWXIrKNLVF5K57QkNLy/6h4/b
KTIn3hFW/5pG9w0rt9+NKHI7e90Gl0oaxzLSsrVMKLImcXFlRxUN7tBZN64Z
RSyDvshP1NJwCfwup2UXRfhbYoOXN9HYF852r7ajiFq87KSPlEal6HqOjwNF
Uvk9SqM0DevGPkVFR4qYBjSmBHfSsFLPzbF0ooi7Y0bnrY808MBSqciNIsnK
HE7eFxovxKnuh7kUMZzaPU0GaJj2qOTO8ChS0b31XuUgDcONze6GHhTpK1Fu
bB2h8betcW6zJ0WCMyf8vMZoGJyNUzp/nCKs2A7W0DiNnAiKq+pDkaTQukcB
kzS25Hnmik5QZOvFwr3MaRr/AS0mXhM=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$363079#8"]& ]}}, {}}, {
    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, Automatic}, {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" -> {{{4.6991532510082564`*^-8, 
        2.3025850460025135`}, {-0.02372567994350283, 0.5930196265360393}}, {{
        4.6991532510082564`*^-8, 2.3025850460025135`}, {-0.02372567994350283, 
        0.5930196265360393}}}}, 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[10]}, {-0.02372567994350283, 0.5930196265360393}}, {{
        0, 2.302585092994046}, {-0.02372567994350283, 0.5930196265360393}}], 
     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", 
       RowBox[{"n", "\[LongEqual]", "20"}]}, "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}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                 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`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   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`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   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`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   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.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           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}, {3.790881893625595*^9, 3.790881903596817*^9}, {
   3.7908826353218327`*^9, 3.790882641285583*^9}, 3.7908827224551153`*^9, 
   3.790883014282462*^9, 3.7924032178994417`*^9, 3.7924046676549397`*^9, 
   3.792404725732418*^9, 3.7924047967098846`*^9, 3.7924067452244263`*^9, 
   3.792406942354463*^9, {3.7924072707485237`*^9, 3.792407275615801*^9}, 
   3.792407391544647*^9, {3.792407480674727*^9, 3.792407492098131*^9}, 
   3.792408564773666*^9, 3.7924088574397087`*^9, 3.79345805394835*^9, 
   3.801993606684061*^9, 3.801993935183337*^9, {3.802086861425941*^9, 
   3.802086881569778*^9}, 3.802166355135913*^9, 3.802166568488834*^9, 
   3.8023535815627623`*^9, 3.802554007075569*^9, {3.8025540586202183`*^9, 
   3.802554063614998*^9}, 3.8025541639955463`*^9, 3.802554388630266*^9, 
   3.802689292305612*^9, 3.8027016491069317`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"9963b39a-253f-470a-8961-9edebd6507c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"logN", "[", "8", "]"}], "]"}], "/", 
   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}, {
  3.7934580054599047`*^9, 3.7934580068511267`*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],

Cell[BoxData["1.0090511830903437`"], "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, 
   3.79088196776464*^9, 3.792403224556333*^9, 3.792404677038349*^9, 
   3.792404725798419*^9, 3.7924047967695627`*^9, 3.793458010300988*^9, 
   3.793458057319188*^9, 3.801993610026066*^9, 3.801993937627986*^9, 
   3.80208690202335*^9, 3.802166355203932*^9, 3.802166568555097*^9, 
   3.8023535816447983`*^9, 3.802554394967621*^9, 3.802689292377997*^9, 
   3.802701649157143*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"d6eb8147-5336-4f0a-af98-2c7f67894dec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"logN", "[", "12", "]"}], "]"}], "/", 
   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}, {
  3.7934580631993933`*^9, 3.793458065692689*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],

Cell[BoxData["1.0125023628299263`"], "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, 
   3.7908819681122227`*^9, 3.792403225338358*^9, 3.7924046779366083`*^9, 
   3.792404725843038*^9, 3.792404796806484*^9, 3.793458066147029*^9, 
   3.801993610528057*^9, 3.8019939378480263`*^9, 3.802086902436619*^9, 
   3.80216635525252*^9, 3.802166568605502*^9, 3.8023535816944637`*^9, 
   3.802554395477442*^9, 3.802689292421947*^9, 3.8027016491860857`*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"f74d6f02-720c-446d-9c38-444a61f1ed7e"]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData["1.0325392834736038`"], "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, 
  3.790881968518544*^9, 3.792403226396414*^9, 3.792404678984394*^9, 
  3.792404725889168*^9, 3.7924047968419724`*^9, 3.79345807241748*^9, 
  3.801993611036623*^9, 3.801993938056158*^9, 3.8020869029109364`*^9, 
  3.802166355296812*^9, 3.802166568655848*^9, 3.802353581745173*^9, 
  3.802554470825571*^9, 3.802689292471705*^9, 3.80270164921527*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"fab803c0-6c8a-4f51-ad3c-a478c5fdbd88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ns", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "/", 
   RowBox[{"Exp", "[", 
    RowBox[{"logN", "[", "20", "]"}], "]"}]}], "/.", 
  RowBox[{"fit20", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.792403234355908*^9, 3.7924032407627687`*^9}, {
  3.7934580759027643`*^9, 3.793458078997445*^9}, {3.802170148074904*^9, 
  3.802170153391099*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"03139c62-638d-4c12-b522-98250958257e"],

Cell[BoxData["1.2815918959240733`"], "Output",
 CellChangeTimes->{
  3.792403241270093*^9, 3.792403288655431*^9, 3.792407028286045*^9, 
   3.7924071620036097`*^9, 3.792407303664468*^9, 3.792408542078228*^9, 
   3.792408586893564*^9, 3.7924088327510757`*^9, 3.792409519590407*^9, 
   3.7934580794048443`*^9, 3.801993611470645*^9, 3.801993938230275*^9, {
   3.802086903264731*^9, 3.802086930875636*^9}, 3.8021663553437243`*^9, 
   3.8021665687075777`*^9, 3.8021701537550087`*^9, 3.802353581796845*^9, 
   3.802554471751316*^9, 3.802689292515863*^9, 3.802701649241859*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"834849b1-c68a-4110-8710-d6ab56b9cfdb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Sf", "[", "sample20", "]"}], "[", "50", "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"logZ0", "[", "20", "]"}], "-", 
        RowBox[{
         RowBox[{"logZ", "[", "20", "]"}], "[", "50", "]"}]}], ")"}], "/", 
      SuperscriptBox["20", "2"]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"logZ0", "[", "20", "]"}], "-", 
       RowBox[{
        RowBox[{"logZ", "[", "20", "]"}], "[", "50", "]"}]}], ")"}], "/", 
     SuperscriptBox["20", "2"]}], ")"}]}], "/.", 
  RowBox[{
   RowBox[{"logN", "[", "20", "]"}], "\[Rule]", 
   RowBox[{"Log", "[", 
    RowBox[{"ns", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8021761889474773`*^9, 3.80217620160071*^9}, {
   3.8023536321071033`*^9, 3.802353659958747*^9}, {3.802553848993369*^9, 
   3.8025538642868547`*^9}, {3.80255389437457*^9, 3.8025539020877542`*^9}, 
   3.8025544487830257`*^9, {3.802554494130415*^9, 3.802554503538479*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"c2dc46a6-3d44-49a2-a86b-2bc8d34ad4a2"],

Cell[BoxData["0.0006969425642958542`"], "Output",
 CellChangeTimes->{3.802176202806409*^9, 3.802353593729126*^9, 
  3.802353683597536*^9, 3.802554515526149*^9, 3.802689304101239*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"b65d9eb6-d781-4a0a-a70a-d4eab4091d42"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Rho]n", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]8", "=", 
   RowBox[{"sample8", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{
         RowBox[{"5000", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], 
         RowBox[{
          RowBox[{"Total", "/@", 
           RowBox[{"#\[Rho]s", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{
               RowBox[{"5001", "-", "\[Rho]n"}], ";;", 
               RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]12", "=", 
   RowBox[{"sample12", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{
         RowBox[{"5000", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], 
         RowBox[{
          RowBox[{"Total", "/@", 
           RowBox[{"#\[Rho]s", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{
               RowBox[{"5001", "-", "\[Rho]n"}], ";;", 
               RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]16", "=", 
   RowBox[{"sample16", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{
         RowBox[{"5000", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], 
         RowBox[{
          RowBox[{"Total", "/@", 
           RowBox[{"#\[Rho]s", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{
               RowBox[{"5001", "-", "\[Rho]n"}], ";;", 
               RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", 
          RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]20", "=", 
   RowBox[{"sample20", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{"#\[Beta]s", ",", 
        RowBox[{
         RowBox[{"5000", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], 
         RowBox[{
          RowBox[{"Total", "/@", 
           RowBox[{"#\[Rho]s", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{
               RowBox[{"5001", "-", "\[Rho]n"}], ";;", 
               RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", 
          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}, {3.793461158972835*^9, 
  3.793461163896308*^9}, {3.8019956674153423`*^9, 3.801995667797414*^9}, {
  3.802123697463352*^9, 3.802123877415626*^9}, {3.8021693040538177`*^9, 
  3.802169447751336*^9}, {3.802170593845665*^9, 3.8021705939372873`*^9}, {
  3.80217148950497*^9, 3.8021715258895893`*^9}, {3.802353599970759*^9, 
  3.8023536001673613`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Rho]PlotOld", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"ListLogPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Rho]8", ",", "\[Rho]12", ",", "\[Rho]16", ",", "\[Rho]20", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "}"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "24"}], "}"}], ",", "Automatic"}], "}"}]}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"N", "\[Equal]", "8"}], ",", 
         RowBox[{"N", "\[Equal]", "12"}], ",", 
         RowBox[{"N", "\[Equal]", "16"}], ",", 
         RowBox[{"N", "\[Equal]", "20"}], ",", 
         "\"\<\!\(\*SqrtBox[\(\[Beta]/\[Pi]\)]\)\!\(\*SuperscriptBox[\(\
\[ExponentialE]\), \(-\[Beta]\)]\)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ColorData", "[", "97", "]"}], "/@", 
          RowBox[{"Range", "[", "4", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dashed"}], "}"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\[Beta]", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(0\)]\)(\[Beta]) \
/\!\(\*SqrtBox[\(N\)]\)\>\""}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{"LogPlot", "[", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "\[Beta]"}], "]"}], 
        SqrtBox[
         RowBox[{"\[Beta]", "/", "\[Pi]"}]]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Beta]", ",", "0", ",", "25"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
   "]"}]}]], "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}, {3.79346111660496*^9, 3.793461171994597*^9}, {
   3.793462039441681*^9, 3.793462057865758*^9}, {3.7934625448030577`*^9, 
   3.793462557481504*^9}, {3.793463868489814*^9, 3.793463886376687*^9}, {
   3.793464001191711*^9, 3.793464012808115*^9}, {3.801995680724104*^9, 
   3.801995685414912*^9}, {3.802088044271686*^9, 3.802088143824456*^9}, {
   3.8020882136260347`*^9, 3.802088369761056*^9}, {3.8020885427596397`*^9, 
   3.8020886330439043`*^9}, {3.802088666259138*^9, 3.8020886692165737`*^9}, 
   3.8020887903319807`*^9, {3.802107154674386*^9, 3.802107220497456*^9}, {
   3.802107467370481*^9, 3.8021074715983543`*^9}, {3.8021145075699663`*^9, 
   3.802114510857387*^9}, {3.8021151115319757`*^9, 3.8021151251524754`*^9}, {
   3.802119993324555*^9, 3.802119994017742*^9}, {3.802120304178557*^9, 
   3.802120309718081*^9}, {3.8021205412757673`*^9, 3.802120579192766*^9}, {
   3.802120942530304*^9, 3.802120946371635*^9}, {3.8021214142463408`*^9, 
   3.80212142310493*^9}, {3.8021218825568123`*^9, 3.802121922087904*^9}, {
   3.8021236760749817`*^9, 3.802123683898315*^9}, {3.8021238427254877`*^9, 
   3.80212384295257*^9}, {3.802123892359234*^9, 3.802123896945738*^9}, {
   3.80212443436276*^9, 3.8021244537138844`*^9}, {3.802177584222899*^9, 
   3.802177584426332*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]], 
         LineBox[CompressedData["
1:eJwB8QMO/CFib1JlAgAAAD4AAAACAAAA/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
7CJAoYOhh4nLIcCnrnyW57EjQIC1fRxhoSLApU5AE2FjJECSg4uBPBMjwFMF
o5I6QSVAKfkomb4aJMDOiNLe4EsmQFfC0xVQaiXAmnecoiMZJ0C1DZVtSicm
wBPyQc9mtSdA/xQWRDd2JsC9UpYhjhUoQFmnXYSQ0ybAzTtO0ZE8KUApPW4Y
ILAnwPmgZ7PqMytAGgN/tErPKcAkufyH9DssQNz/5NPjnirAXkvIBz3bLECf
/ErzfG4rwLfRAN4CSS5A3UMqU0U0LsCneccpOnIvQN1DKlNFNC7AMZkqGJUE
MEA+oDojYdEswHWTGARWPjBA3UMqU0U0LsCzXNRG
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]], 
         LineBox[CompressedData["
1:eJwlU3s81IkepdEwg8wMM8Mg45HxmGVQURm/b200Fluyl0IWvURlsxWy1bZx
7fqgWNo8sl1lIz3U9tA29fvW3Gm7hhg18tplLuWxXTGYxdJsfe4f53P+O+d8
zvkc+8TUzTsX6enpJbzHB56vm2gPS9xEPLUPj+rPe0uWldfdVoXnEXucmlds
u/WWrHkTwFTVNBA9ezZlPfYZJ5tbTcO6RmSEoV7pPXX7OPki+M4vlSwlkaxY
HTlfPEF+tnqLbkjURZw7mH/Nc7+GvDv2um7JvX7i7hcHyyRhk6RYZe8rKxgk
nn10dd8ymymyoSDjZoXVMEGZZcKZ7inS6Wh04PGkP4j5o5rnBwqnSehJ7rDq
GyMGynbvUki0JLUqy+wHmwkiOPnelnsLWvLBgIXtf15piPWFXXYd9/8kqaH9
Hb9Jp4h/H/pn60z2DPmx3O+4eZ6W4L0ROA8HzZKxpx5Pu8TOED9eKbpz0mSO
3EubPb/bZ464sSGTLeyYI9dfWPPtOdd5Qj2o7rhS+xcpHXaX+HDeEUMl9TrR
V/OkXHwm4KC+HpzWuSuoYQukmUtFWs6ferCsZda5Y+k7ct+qH/57WaMPEb27
a7VT78jzvuw6kXYRTEZOPepr05GrixXHJToK9Li+TYMYPTSitD7INV4MmWlV
YfRWPfQ/v7eJvZQKPuMXHyrX62P81j2b6asNYbjlnCaM1EenwB1b5DFGMCfb
qTjpvwi7StylihwaPA95UZjycBG+js2rb3pIB8HKSNeCQAqeTnnfgM4Y7oZ/
bJ6rpKDN+GxCtsgUxBnFZ42jDHADJcPYKWkJqDZdVHarDfDqhcu06mtmcPbT
2pjSA4vx+xWj9ryjDCg5etWumUrFX19WbWXxmaAeTf+88RwV/f7F0M9tYMKz
qGP5bwSG+KrNoWc2gAXjntmKG7cNMXRBWieRs+DHu7WdPIkRVgfemVxYbg5V
9KIoarMRVojb6CZl5lCkSgiRbqRhsshUtmHQHFoHDk33PKThmohh6RMPCzDb
O81o8aWjWYduVXO6BXQfe1T0k5SOMrffn/rftICEltgdV0TG+PWECW9uyAIe
qTrlh34yRk3cbW81lw01vzvEfsI1wemPvvxFGMSGnOp62oECE7QOlY0zD7CB
+So46fliU0z4zrAkrIwNqYeobamZppgU68colrMh2bcw98g7U7z84S7jbEh0
P+zf+N0SPBFQJAjmcsDK902cm7EZtozcPNvpzwFK24lH1GIz7M9eZ2CTyAGv
+KrU/cYMpHrO0dvzOUD3KRC3RTNQVdqq8W/kgKT92PdfXmOgR+SLeN5rDtTv
d/a7TmOi2diz7n1cLiw5EVk2lcxEdlECO3U9F05bH/n8LzkTWY8vFDge5oIq
LmuUImRhpr5WWVfPBXXZEdfAMyw8i1fvZ45yoW6XFm6zzLF2wItS6mUJ/zuc
wdlYaf7/fN9YQnenckS4wgJjxYIHqb2W0BgXxHJut8Cf3+b1Hw+xgtHGqidf
57PRKnIi6LXSCjSbh6aORHOw0qf6lm8GDyKKpPmR67j4Ya1wsTUIc6JkLmJL
1Lu249cgvg34ZK5KF661Qvf3c2kEtsD94olVbTwPXQTd/5CsWgrldoPyNSes
sc/7kiIx0Q4+FafxbettMOhGb3uyhA+8quJdQ322uPO9WtwQH9JbGW7R5naY
llc4qDllD00RG5rKffjI3z4WvS7AAUbdfS22/8bHaUbBGF/rABe23rIsPGWP
dVJb9S10BGYyJYy7xQEntjdvC/nWCda1JPGsbR3xJUuztjVoGcw18f5QtDii
h85+Qct2hq5EL92lEifMa1CPlGqcYSafKstKWYajBsuZK3sFcF96mNYb6owq
WpLD3k4XaFgbv/MbEODSS8MSjz5XmKwhcoV5LriyPiAqRukGgU/jJ9OCXDH4
g0GHO1SaPr9ov80NeRjDXzshhJfCnJ85HHfkhXdbf6XvAZMj2dRCOyHKdlyO
/4zlCQkVEe1PjDzw1KDGrt1OBIPXS6sbAzww23Tj9RK5CMoTYpRrFoswPKU8
vTLRCxxrp2fK/UQ4EzFQU2HgDa8uxlguN/LCT7JOeobe8YZsSYjEMsUb/wbu
q9zI
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]], 
         LineBox[CompressedData["
1:eJwllHs41IkexsewrmPMYOb3G3ZcxqRc0lCRtP2+KQ6plUuunV2DYtkit1aU
1HFNtcKRLrK6oCuLNlK/b7psF04Iy5Etl6nluFbuYes5f7zP+8/7fP54n/d5
DQMj3HcyGQxGxGd98U9l4y1bA7dR9c7nzO7Nj9BdEcObnJ2uUczI9bXZt0bp
vY8lS0NznlLGu6h+x5YxejDnlVSroI0Ks7N++qBunG7Xl5Ll/a+pq7wX7mdf
vKc9S+R9Xa/LqPiXOqfqGB/pdp3Nww5VA9TE5iynqdaPdE1Z8tvokWHKbLRb
LL01QUfNaAz8tmKc6sgN37/v4iTdwviTqZL5gapuaDx2vXCKtjcW2KrNTVBv
a7LTpRem6T2pumMz0mlKPBYnP3Rhhv6S1u+bpUTU5bHq8lm678qvo5kB81Sx
R5C/ad0cbWfNHK9dWKRKJGt0FNo/0XfJZxlx2+XgRXG1bvXkPJ1+aGOpeyUT
BBduJecKF+mEXc6HTusoQMERduOQMQPP1b73LUz7CjJkbkUT9Qz0NpQtbVtQ
hNLBSa+MQDlsG0r2CkhXhjlNn1R1NSb6K0dtq2epwmyWLze2golbHoxxLS+p
gY9N1m8iqTya9r0O2bFGHZyXBM9layhguUGjz6puNoRoGBkNPVLA9ZVi2LqV
A45/LcQ/Tv8KEyxztYZNueB3vjYvzVkR1yz/qdmbowmls8kG8tpKaBf5n/SW
BU0Q1rcdlbxVwh61nLLD41qgMJgmK7+njEcu9LfZPtaG0HAD643JKvhDjFLF
yp08CCpJcT0mVMX5ydg3Z5t50Ob+c8axHFVsHT+V/IzkQ1hTZeDuYVVU6Wl+
zHXhQ/isj9WklRq66vHDtkbzgVvyasEmWg0lEx8ui/L44Dqwij1yTQ17ksw6
Kyr4YH7ZXI3Zr4aN/Wd272ngg6fqo+ZAXRby01bSp/v4oK/FkHa5sjCwq7hB
cYYPXpUrbESpLCyXf5e1TJ2A7zob46/WsFB4QlCapU9Aqd8dK5chFi4EvKmZ
khBwtLGMp2Cojh6VSn7JGwiQeSzeCfdUx4e5TsX5bgTIy8Qlw5nquH0uZt2u
AAKMw9J/Zd5XxxiTG6ZzewgQvU3z+npaHf0LxlzmEwkg990ILjJnY/MN+2eu
mQScVbYJfRPIxkMBx/XofAJapLd65c6w8dukSSOHiwR42OnFfdPOxis7ww9k
lxOw0fK/B9+zNLDx5lvG/ToCuqdTdIv+oYFsXt+nrU8IaJYpZeclaSD/T5no
3ksC4JAwsbROA+UkhRs2viZg1KMpK3NaA5uaqPuPBglQLKqJWa3LQU1t6vGr
CQJ4LHECacfB0qyk83vlSMi/ny+3zJ+DojecK60sEs4xJvU/JHAwqDkmzook
Qbr8oIXJOQ5erO+w/9mIhCbxjihD5KCscp3GiAUJpp9sAkp7OVj1JO7e+bUk
RBokeVcqcZEr8Bp3dCRBVnu3e8Cci6s3tB5guJPwLiYt8q4HFxUUoj9O/5ME
56baqtvxXKy2ma4PDiPhrP9ccFIxFwuV9oUMx5GwOXmt+txzLnafKix/eISE
oNqPnknTXFxgOySvzyYhbFg7w3GJJuqn/M/tdiEJoWdla1U9NHGHwYbxoGsk
jHovRvgc1sSh1N1Hre585q3a66xUpYlNBy+ms56TkNgh9to7oIn2AbImURcJ
aX75liw9LRS393owhkiInV7zx6PtWujbPWg7ME+C06vjnuontbD35lOdCY4A
WPcX3m9o1MKJrj+So40FoLWTuhShoY3RtebG1pQAft9d+fqTnzZWfseSbfIX
gLtFikPBdW3cb311vXeCAM50tJyXKPL+v79fBBAQBwZuITzst5TPG38hAN/i
2IbQVh7u98hWDVLTgarlRxMObOOj8JuDES+/14HEROsfDAf4WFEiXDg9pAO0
Q3NUUS2BcpPNZWavdaF/tMJc1Euiy7qiH5+tFsLhD5353lt08K/Ds/+2vasH
Ymub4pkOXdQvbhY+tDCA2d6qTZ6RQmx1cpENKxuCU/C/+i7p6GN0yr6a9FFD
KEsN6XCLM0DB5/vj9YpgyNZZku9tiJ5lnfLX3xjBdf/TVyUeIjTanHBkxZAY
njSspKR+Rhg04me/XtkYbs+IUSVEjAezasJVbJfCzcXQyp6TS/BE/3v9lohl
8JwdYXOiyhh3TfVLf7llAtnRTi4P5ZYh50thhBm8ajrRbh1ogpe+BS3pEXNw
CSGzJytMce75yNMHTAvo2b4tSzRqhjGOuZOK51fAoRmqTtF9OdbF5JAKlyXQ
L+oLrmuwwM7v41z1Ui3h+NLs/LyTErQsMCXzYqzAKW1R4eFeKyyJ/91kbdRK
eJe+JXZKxQrbVEJFP/60Ckjfqa+tjVbi3+L6OVI=
          "]]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.922526, 0.385626, 0.209179]], 
         LineBox[CompressedData["
1:eJwlV3k41W0TtmSNw+Fwzm87hySkopKyTylpka2FaDlS2lC9hIr2bAnthYgi
FZE3JcUIkZTQomy9RESWLGWpvtPXH8/1XM8fcz0z98zcM7emh6/TZgkxMbGf
ovPnHk/vr7HzcLDKly9Y3SLbWygTZxod8fut1Yv2fu6WhP5Cvwslruw5/1nF
Xnb5NO/lt0ILm6D2tqw2q+iLX7rcigYKHVKrP3mc7LI68ubV7pUSQ4WznpW7
1tUOWaW5fGj0XP2jcJWdsr8AxEGytaX7YPzPwrHYSbNut8iBxcSelEt7JbBz
ykzZ2w0sCOdrRi28NAG7TDqDW/XZ8KkzKEaBkkbdBy6OR9NVYJ1L13jBFhn0
/l2x9EyNKryYUTbz+jZZZKm1jtvJqkHlxrKdlgfkcN5VZfHQPnVo9thr9Hba
RFQ3POwWUMsFyQ1zXzt9n4jXv0fdsVDlwdxB9M4zVMC5JLppzBe9PQ8qi7sq
IHezcfnkTTwgr7TNqvRXwJuvuw+vPsQDj0zhFbGzCli9JmbLtMs8yPLQ+Nfm
pgKmxZ6vqM/mwXXhVo5HkQKui7hVUfCcB4plZx0H6xRw+CBroK2NB0YfVeRe
DyigxOvXd+/94oFevGl460RFZH9KOnZJnYCG7zi2apIinjkZf9xiOgHq5519
Q0ARrz2pWxBjTcDdOuH0CWsUUeGLW7ufKwFOkofVL+xWxCyLnMngTUBf1pbD
HmGK6LrNSf5hMAGFqlvM6hIV8XTHZs7zKAJ8U+j1bf8qop5V+nDnRQJGxXSj
bEoUMWzTugabFAKeurenT36tiJrmH+Z5ZBCg0z/ju0+7Ih4OXFe48T4B72Z5
J+4aVMRf908zVBEBr19KtPtJs3CKseDdiQoCQqJ2NtVzWdg4v3v51VoC6iJz
25dMZWF2iWRFagMBgRK38itMWPjh9qi7dxsB2XtJxVx7Fj7/8Z3g9hAQkdMa
8K+QhYmuKkmpwwTUbIzjP/RnocQjKRXObwJ+hIyl5EawUJTNgZUyJBQ7fq39
fJWFtz5f+x6lRILbjHvd5vkszAvrLbnNJSFukZpzdTUL9zToMbcFJMTw5dhO
7Sy0Tcs8cF6HhDmWGTm1YkrIzPNauM2ABNk82lSXr4TvGs3faM4lIZk8/emG
iRKa7XoZVmNJQqjexEmb1ijho6Cb1j42JAgPBerm+Cuh6+grqSE7EiJY0voq
Z5Rwq9SJ2z6rSLg952ZGQq4SZs2LH3njTsLjkOAo2zolTHHx2TbHkwQPnpQd
8UsJc3ojPh7cQQLvxLPNmcrKaMQ2Nn+8h4Qhurn14WRl7Fm7wLIjiISGrCbZ
pLnKOPfjQLHsYRKMOMIWJTtl/NY7ewYdRkL9O53+0E3KaGpG0NrRJChv/+f4
4UBlTPppyybOk8A+NJgmH62MAUtlun7HkxAVJLwbnKaMjTXbbRtSSOjkHqT0
UBm/Lo4oz7pJgurhFdln6pTR+bzmKf9sEjZfibntPKiMU30Xz5v+gIRbR6pC
2hXZ+KzN6lpzAQmVhe5tA3psNBiVrzlZSgI8FR9m2bAR/jR8pci/9pmldUI2
Ns8tGK6sIWFsr+5YbQgbe38F3ln7ngSLpV9imxLZWLZJemprMwl3jENqLxSw
8Sg3WGpbOwmxw3piC5rZOIkUVVi3yH61TyfnFxt3yo0keQ2QENC477ItXwVz
f3DEWkdI0EuOjpAHFTyl9bbFWYyCccUPXq5CFZzevS20UJqC47ZFh2uOq+AZ
p1dftRUpeJFuaX36hgoWrZZTD1Wl4IFdRezOShWsSddPbCMo2N/+7V5Brwru
njdwy0SDgjfSO2Kq2KpY5xm1L2wKBUnnC0uXG6ui9B8AplEgnXraO9VdFcfO
m6xTn00Bn/pweeEBVbwfv2z3KhMKCnp0gnekqKIpGC6OtqLgQLpLjVS5Km59
9cqqaBEF952Cg5Z3qiLYTXfrWkYBJjVutlLiIFERvlfNiYKTrPiDs4042G/T
HmvlQsG8Gtt0+TUc9M/6VSVcT8GxxztlpYM52LBVzPewJwWj1YvuDlzl4IYa
XkbKdgo2WHLTu0s4GKX7VbFgFwVKhwweXurgYH5IkU/dXgqSTbW6eHJq2Pn6
XNW3AxRcYad5lU5Xw7Eg51j5oxQ8kSpeMrpcDWsftXKYcJE/rRfsYnzV8Pbv
fy4aRFMQ6HtgsdtpNdwa+/WA1TkKbtX+2Op2Tw1l9zg8WR5HwZoE92cJ1Wp4
wylHZu1VCi4Tc/ZoDKnhtCO/MzzTKKhezHV25qjjXnu++vYMCurrO47uNVDH
ItoixDeHgp0akfOVVqhj77xFi/fkUZA3/v6Jr7c6il8z3r2nkIKYI4G6KyLV
UVVJN25PKQUlaRf8v6aqo/Y+onTPcwqa7QTCnkJ1JI0G7XdVU/Ajt0byc4M6
Dpg/MNvxToRPJz88/Ls6Vi46oLOlkYLS8JUWQ8pcvL4CVIWtFDjd+uWyZRoX
c/NmWgg7KfCSKeoynM/Ftjcm0p69FEx22HEl0o2Lqt/mV20ZoqDfxLhhhx8X
q5b0UhvGKLj0X5X1zAgunrwav3WNOA1hF2S1u65x0XZkyT17GRp0V4dbRT7k
oqYE6+pSRRpO61ct2F7FxT/ttUiVhjc+aZ5nPnOxT8R21gQNDfuvRaQNi/4P
CU0GAQ33Co42PJDnYUHoslNm2jRkKFel6VM8zJk/hTDRpyHPZ1ZQrwEPS0Xm
JjNp6JT6mDRuycN3XDlvk7k0fCLi+2Y58LDjyOh5EwsavC51dCt48nD0axea
WNMwdUFmoeduHiq4Nn4xWUKDqnW5eMoRHpr6t+WY29MQWVEsv/4072/+V9EQ
7Nq67EoSD/eNN6VaudGwcVgxyzeHhzd4n30XCGlINzLwe1TAw4dH6y4t8KJB
0sQtvO0572/83jTcKXEcL33Hw7BD1jec/qGht/GN3NoO3l/+CKJBOJjW1DjM
w+jm+kGvg6J4E+ZY6kkRaICWpv7HadD5qerczSKw2/EB/3gkDdLv3oWlEQTe
aJ0peS6WhvNmI71mWsTf+XGBhsynW2xbDAnsaCrWLkugYS91ImujJYErLpSW
tKfQ0N6VK3/WmsAasSYJuZs03J0Kjk8cCTTJa76qm0XDK5dvs5rcCKyrZR20
y6XBzEmrdHgbgdkOOy4HPKJhppZHdZIfgakhTSuvPaFBO/9iYv1+Au+v25pZ
W06DYcymAcdQAiUSBTayVTT8DPWvXnia+IvnGxocdPlL3RIIlG3v6N9fT4PY
9+EInRQCS7pGpfL/o+EpoZx+7jqB8claeeOfaZAx0a1WzyYwM180wHpokCq2
v8MuIrD+eLtp1KAoP51C6RYkcMHdQ3INozRUvpuJIy8I/NW//t4scQZyw2ti
1tcROHBme+IpGQaC1mTVHPtIoMbFlLJeRQYcW0KSGzsJTLmj8cKFw4CZfENY
dQ+BG/SeK5eRDKysLEkLHyHwpJeI4DQZOJTXdFFMgsS3q7sN8nUYOPVg6IWW
LIn+rst3Ws5gwMm992aXKonbfPuOPzNiQGzyajKBT/7tHzMGJDIzzqVpkuhz
guobmc+AbW5RjL4OiTba/hKXbRmgll6a4DabxJgwvdiF9gw03RhOzTEn0Uto
bza+igFaLkdps+h91i7vSb47A8kTXhRb25Kobuelc3QTAwU7+3gWDiTe+6mv
b7edAY5cGVnuQmLpnmW3NHczMEfLbyxNSKL+WKbsrwAGdkV8WVWwkcQMn6H4
wRAGbJ7vk5yyh8Sk1PMZQ8cZ2G0kHi0TQGJn//64XycZcOtTLv12iMQVPQG6
8mcZ+LT286764yRq33k5UyOOgQnzHqh/jybxYwErfnYyA+7ag2G2F0jUXYia
K9MZMA8Vd9NLIHG3pKXVySwG3m8VXqq+TmKCaLy8v8+Ap0O23PtMEv95OG2K
cSEDs2WsXXhZJC7Z9O+pm08ZEL5/pyZXSKKraB2Z/JKBc+vXNlaVkmjg+HhO
1hsGpoYEfyyvIFFTMLhzdSMDC18WpQa/InG5vUuLeBsDNQZOi/0aSZyUulDl
cTcD0bvX/FbtIJHToRp0epABg9lznpR+JvGF+BGTfeMMGD3+sP/XEIl2A6ec
/SbwIZ7Tp5Q3RmK2t+OWowp8SC3qku0QozB53fGziRw+FIxw1wwoURjw1if/
Fc2Hs0mLpSM4FC4v7mPP1OYDXSk/pkBS2FHU6Jo/nQ9jLze8shJQOHRMm+9g
zAePlGkvzfUobHs1qX7Ekg++VzWEKwwpTJgRGf5iMR+av9wMLzanMMoj7/ob
Bz5Evk6zqV1G4cQ/BbSWDw/jWhL+c6D+8t0mPjistWnId6Xw7LD0hos7+fBp
Uey37I0UPsrckEXt5YP+7a5GST8Ky/RMTz8/yIcVH9OS7+2nUHiKX3g/nA9y
pbudnh2i8P/66AwfVjJVJ4tPUZh55UzT3Ct8eBx4y6/iHIV67tFPhm7wwed+
oYxxCoU7+vXEnubwIcTT08Exg8IMIz2pxgIRPh4LtHMeUliduaDCvkKEn5nQ
1LWYwmVfJhix3/KhTyOsw7iKwv/ruxY+TJTCrv46CiX6H4YU9fDh1E7TbVHd
FHa1GJM4xgftzV93HRum0ONY39ZWWQG8XD+/yl2a/rsPcwUwJ+PsQgkWjQV2
B4e1tAXwaUil/o6Axj/02jZbABsv6Jg0G9IoEndRldYC0A0I6xu1pFG0DQ/F
rxQA9W1xgqw9jeyyhw+itgigwHuqpLyQxt72dFZekAAMuwq+Zu+gkV5w7rJF
jAC8rdvaqiLpv/ripgDuR51YdiWRxviGXgdOuQCWBl585FVAY7W7SIF9EUCg
I5tY9YFG5X3GtyxlNEAltdquT55BQXI1U8LXgJH00bnD8xjUVZp4L9VEA5qf
VY33bmNwfOzkRBkPDfB8rP3b4C6D6xyaZ6XFacCiwLiFmZP4ePOPPP6oAfIb
PrZ3XOPjdDkH5+fqmnCXzSpw5wnQp/GFM+OkCe65kQp+UQI8Hwjvz8ZpwtcP
Y0vt5DXw/3KYNQn+fXy7en2wBvrdUxt7HjIJoGurcV+XBq7ZWP5l9QYtyOt6
/N6oTBNtHcZ5/wRMhjum5R+4VZMw0Xza68sntCGwh9O4rUkLPzNpHbY9emB4
o++ZzKgOVq5bVi4TZQjLwgtbAkJn4P8Agm89bg==
          "]]}}, {{
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.922526, 0.385626, 0.209179]]}, {}}, {{
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[
          0.922526, 0.385626, 
           0.209179]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.368417, 0.506779, 0.709798]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.880722, 0.611041, 0.142051]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[0.560181, 0.691569, 0.194885]]}, {
         Directive[
          PointSize[0.0055000000000000005`], 
          AbsoluteThickness[1.6], 
          RGBColor[
          0.922526, 0.385626, 
           0.209179]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwVlnk01e0Wx5ExZBauaybzzPkp9TzXkFdFht6raJDIMWUICUW9JVPGV/Im
UYZQFGlQPI+SoglJImPmqGP6/c7B4bp/7PVde+219v581157ra3sFeziw8XB
wVGxEf9XlXT2nQKFol1+3jHzhjaK+Am/lmIQPQ58DGPXXFTkx01RVcWa9HQg
6dDHjvTjwdnmo4eF03JBe7ln3sq3TbjFMNSXl34LCBy7MCD3igvHSq0/XS+8
AySLb83t/8WJr2XZ7lq9WgZKBdYpZ2tOXC2S+ooZXQlmHLzLdOs48NvUzj+W
fKvB3V71CDVLDsy4JDQRVfEQmO4UETlbuo7OvarWogprAWMoUEru1xrazOUa
GJFbB0rk1hyd9qyha5CsWrj6BOhUxoZefsJGqnF5c6GXngG1lUQlDhM2etBg
acqIfg7yXBT33K5fRZarg5GnQhvAhKuHeeO+VdS6/a9nM74IHOIRiWZNrKBK
S4nzZtUYdBRteUGkrKC5Pu9b4RVNwDWGssk0W0FEzGNcW/ISRLaUnNk1vozO
y/GPzBe+AuHnhtl5+cuo+dmhTcb5zUAox3VA6uAy2nyoUi009zW4HMe9QJNZ
Rrm5jr6/r74BUZM9X7uKWWjAvDBRP+ktuO2UvP92CAupdc+VB11qBfTAYMcn
gIX8I6zf3YtrA3cVQFiXGAs9kMyZ+Rn9Djh0llo3jTMRWTsurBP5HuTw5O3c
28hEO10JA//QD6D1SOuazXUmasvsC530/QSktghJTrowUeL1a63ZRu1APTCt
bY8JE+nSgbtJdTvIEXinlS7FRJ9ok9Oduh1AqkTRJo9FoTC+zJiwig6wbrk7
cf8ghaS+WgiJa3aCj9aScf+0UOhp6Uj+w5JOoKEsmuVdTaE1W9NGRuFnUFhb
x9h2mUJFUv2OGQpdYNO7pU/sUArZjF0eNMjvAn2aDyoEPSk0+Ug/5JPsFxBa
NtZhtZ9CKZe+cgTnfgHew0N5OYBC+gfiM7dIdYOpg+NWlCGFOlW1VKqyukHM
9fBRD1UKybyKtp69+hXciFM05xKk0PMs1a5UwR6go2N6z4CDQke93nvrJvUA
2c6kZBpJIk7jiKV3vN9A0It0bbFZEhVzKiQEXPoGbvvWn3w0SiK7jhZpQa5e
4HqrKkO2n0TThcFlFXG9wLbXjW7RTaK0EBliD7sXCC5+khBuJ5ERbHo7Fd0H
7tzilElrI1GXiP+hJGYf2NQ45/z4NYmiBsWnNSO/gyy9AkZcE4n+Vf08+u3C
d0A0eAWPNZCo8by3ID20H9x73p0xXE+i447C+Xy/+wHU3eoe/JRE3AqPdcsC
B4A/3+ktyY9JVDZ7tGH39AAYkQ/R0asj0Z4GPsdx30Gwj6bkc+DRBs+615I0
YxBEtpYPs2pJlKp07KOq5RBQ+tutz3CjHt8kpGIZPwQE2hNzFzfycK/6iAPN
Q8CXpyYHbvSnb6K3BvIPg6kPj1JEN+YfLpb69+V9w+CnSryX5wafk+2rkJsZ
w0Ake95Yd4PfZjykua5rGNQFMa1CMImIKwoyH2VGgE/GEJdWM4l0Nd8HjB8e
AWeEf2x2fUsipdazaK1wBPQc/SLz8z2JJPy3SWwdGwHvbPi3/OogEa/gl5MG
Wj/AYMfe2YNfSbRcebHeLugHuBIj/U1zYx8js/3Ho5Z+gDddqoszUyTqTkup
y7AYBcfGS6g+BonaDCwEys+Ngjjm7vvqTBLVhP794BvPGFAI4p9GfBQqFbfi
nrcfA/zjLbxCohT6p/a32+a0MWBVVLJWLkOhC0t71rdLjwOjsr3Jn7UpFH6N
6eLqPg6mIzSdPUwpRKeVlgYUjIN2Zrab3i4KOZ3ldMzXmACxepWw3IVCSuwn
+WzzScDfEZ3y+TyFJAt8GFIxkyDHoXk4LplC/EDCRh9NAvnMmwr+1yj0O/7U
z6N2U0CU00NwoYpCjdzq27HbNKA8VfUfjVDoiFDW14tRM2A03IdguzKR032g
c+PFDIiXe/2J7cVENo6z52s5ZoHYf51cdcI27jnjD43RxFmg+rj8u0AmE61K
rIfb5v0CCQFFh1E7E30QNhfgPsIAbgM3/wx2Y6HOveLXP8YywOUjxmsNvizU
k/RLIy+fAbgvHPbRjmKhUZ4yG/3vDMD4DO+557HQKntr/EGPOeCd1+wo3M9C
2r9Y5L1D86CqxaPthN8ySvzYMPrnfxfBDZWW+LjsFWSVbovL9jPBqHFAt73i
GvIxWBY2EuaA5WLKPc49nNhBy2dO2o4b2pVpqI+q8OCarnMRrQQ/zDAXVM49
yo93iGtXc8cJQbOdyWO+a4LYdyXrZslBUXjheWklZ7EIDm6ZMKl2EIcREbQk
1atiONmdV50dKAkH83/L7g6XwCfexJw0oktDaz71dQkohZv4ZJ0DDslAieNB
aw28W7GRWPy1qXA5mLz5UvQLSgZ7LuzUdQyUh/nTLbsC2+RwUcFreeqqAhQ/
8IpX5I08rk3b3tfpogRXnHltP79QwOH1O51u7lOGFx0abdzslTBqK5lP8lCB
KtYWiaL2ytjPzqLB76AqvHLwTsplQgXn3zWqC/BXg4XecfaNlqo4c6HhQsgZ
dZh2v6duylINj1dERNLDNODoU0fR07rquHl31vWLF7fBhzu8DOsMNTDn/t6R
9HhNKIZ1R3TVtmGO/zzmLDyrBbU9tyvYSmjixK2UQ+cVbbj7fcac+FYtHOJ+
4iX1lw6s6nc6/UNAGw9fMPUGObpw/KZhfqCYDpbMzutNKtKD99Z6teIkdXGp
qPbZNzf04alUidogXj3cFKZou63SAGbxvbGQFtbHBUqF8jsPGML2ZOeniVwG
uCF2mYPebgiV/0kx81wwwMp7+VZV3Yyg5GCFYnSsIX70SSvlW5cRPPMzqjif
NMSpLWuGSkeM4bTFo2OKMUY4+/SUv+d3Y2hyRypwkTTa+B8URFQOmUD7Tf0a
YSHGuFyLpy18yAR+Dm0rcV40xryLnLJNR01hq6JpZnSwCS4zfHi+YMIUAlgl
wLdkgrW8KhzZQWbwHLS2sogyxX32z2r+/GkGUxJkvO7Pm+LOO9F64LQ5bNyh
XJpwxgwza50tVebNYZDsLuWCBTO8/jSsLuEUDXaKu8+5BpnjvYa7bWOXaPBU
5GJwyJw5fnPEwC/gNAEHIrxzXwfSsPgJ+vObEQTUeOHlP3OKho/Si4TbzxDQ
2s5vl0QoDZNhEjWmsQSEp9KmPCNoWC2RWmZfIqB0p8m+1XM0HF+DUjOuETDg
YZOVSToNb+dzelD3jIDz3rcXih7ScIJQEtfkcwJaOTlOvK2l4Q6xlwfkGgn4
uGK173cdDdPlTVnnXxIwe+nY2531NJxrJGP1xzsCpg/vuP/tJQ0vegx97v1O
wHo95TKxLhqGx2U1hAcJmFQ8UEF003DKSZcoMExAxZob1cd6aFgltFm+eIyA
xv0SL+5/p2HnhLs+Qb8IGJFADdmP0XB+yvCTWwwCPmy5NxMyQcOTGXKbO+cJ
yG/uycqd2vBzI7XKnCKg2G8sNT5Lw+8LX3P4sQjoMxikLsyg4a2lay43Vggo
u0/G3HSehr0qaSUf2ATM58d2Hos0XPUghFpfJ6D/pLf7RZKG/wdAk2OP
           "]]}, 
         Annotation[#, "Charting`Private`Tag$205849#1"]& ]}}, {}}}, {
    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[
       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(0\\)]\\)(\[Beta]) \
/\\!\\(\\*SqrtBox[\\(N\\)]\\)\"", TraditionalForm]}, 
     AxesOrigin -> {0, -20.559377287217877`}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {
       Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
     Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 24}, {-20.559377287217877`, -0.9684744693607217}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"N", "\[LongEqual]", "8"}], 
       RowBox[{"N", "\[LongEqual]", "12"}], 
       RowBox[{"N", "\[LongEqual]", "16"}], 
       RowBox[{"N", "\[LongEqual]", "20"}], 
       "\"\\!\\(\\*SqrtBox[\\(\[Beta]/\[Pi]\\)]\\)\\!\\(\\*SuperscriptBox[\\(\
\[ExponentialE]\\), \\(-\[Beta]\\)]\\)\""}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   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[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   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[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   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[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   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[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "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.793463886647957*^9, {3.793464003662573*^9, 3.793464013272131*^9}, {
   3.8019956706275787`*^9, 3.801995685949774*^9}, {3.8020869242774353`*^9, 
   3.802086931839355*^9}, {3.802088045447991*^9, 3.8020881442540092`*^9}, {
   3.802088215172125*^9, 3.8020882865276203`*^9}, {3.8020883178701353`*^9, 
   3.802088345595327*^9}, 3.802088376774427*^9, 3.802088568224568*^9, {
   3.802088611121944*^9, 3.8020886335692797`*^9}, 3.8020886695878983`*^9, {
   3.802107156099215*^9, 3.802107220950468*^9}, 3.8021074720514717`*^9, 
   3.802114511289742*^9, {3.802115112859208*^9, 3.8021151255889063`*^9}, 
   3.80211999439322*^9, 3.802120310466969*^9, {3.802120543130497*^9, 
   3.8021205794894*^9}, 3.802120946841928*^9, {3.802121415333844*^9, 
   3.802121423777544*^9}, {3.8021218830618753`*^9, 3.8021219225127363`*^9}, 
   3.8021236775727243`*^9, 3.80212378629697*^9, {3.8021238283177013`*^9, 
   3.802123843360074*^9}, {3.80212387819786*^9, 3.8021238976263657`*^9}, {
   3.802124436596198*^9, 3.802124454173592*^9}, 3.802166592314657*^9, {
   3.8021693743024073`*^9, 3.802169448910295*^9}, 3.8021705948196583`*^9, {
   3.802171490421248*^9, 3.80217152672799*^9}, 3.802177584736429*^9, 
   3.802177649426807*^9, {3.8023535952950277`*^9, 3.802353601047291*^9}, 
   3.802554524900489*^9, 3.802689328826398*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"13b84951-cc38-4f71-953f-0adb0f741a41"]
}, 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}, {
  3.793461179649745*^9, 3.793461184768985*^9}, {3.80199572501341*^9, 
  3.8019957253343067`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"E8", ",", "E12", ",", "E16", ",", "E20"}], "}"}], ",", 
   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}, {3.793461186910082*^9, 
  3.79346118901049*^9}, {3.801995729798863*^9, 3.801995730008172*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         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.0055000000000000005`], 
         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.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwtVAk01QsTty8vT9Z7/5eQJaKyR+S540Zo8wgllS2Rihfy6slyU/KkhYqo
KEkoRXoV0rR4RCFCyZ6luPf//0dR2fpu3/fNOXPmzJk5Z+b3O78ZTf8wt0AR
ISGheIH/jDOFYy3r/X9nt7vBuzh6BDvDSHtnp5ts0x8fL5iLjuK+GmO94DN1
7LGgA2WJy0dx9EyXn2JmG1v/7s3pWv9RbNfwI0oGe9krn7WmV5wdRffrol4u
xUPsxB+RouJ1grrKGtLh7gh7WFt/pJ83iuWF3OEIimTHV3BFaFkehn+fP3Lf
aIxtcdrQYpkpD1uEekSkkz+zubxkVr8HDzm6LKt50xPs4ymyTpyDPAxNVP30
3e8be5eKUkNCFg9/dmsMTLFrLAqDb1bycKDoDp3sO8t+IHFvjXEnD1daiIxV
zP1gn1KNteye4mEVUf93lIcw6PZz1J+w+JgUv6rArUwEDD12HedZ8jF6p3N8
looYzFgabTjkwcdLFeNe2cfEIdHmsKp+OB83aQ7ptc1JQNNEzAqnk3xs43M9
fZOkIM7l5sbAIj56S4X//lTmF7ghZclqq+bjumef5E2uzQMvxroZ114+Ggz0
Bm1d8StwGqd/rPjGx5KFDZvNu2XhYMQDz2k5Em3LdGD9ejnwydJ6PKJPYrTJ
WUXSQB4iOh85xtiRuGLZgeZNcgqw2uHihjubSVz5R2NSy5wC8E7+a1EYRmL/
vDOFh8cUQffZ2CGJRBITrg62WdUoQXaZ+BHPTBJ3RUqWmgUqw0wtJzKpgMTZ
yf19F5uVIaqnZqfjXRJbx85z6wkGjJUr8tlVJEr3N9fIr2WA3/XNy5OqSXRR
Z4Ssj2DA4nGdEZUXJBpPfM7XOscARe6ohn2zYH7cko7SUgb0iPWaz7aT2DB4
YW/oSwZIiez4+LaLRMYxM8waYIDE503Pt74n0b8z96XEdwaEfTpa1/qBxBLR
DymLf2VCrkF+iwtJotopVkGKBhP2FU+WZIyTOOfbV/7VmAm1ARIGA19J3Fgm
uYVrx4TgdLEC/VkSq8865Wa4MsGlzqr0mAiFHtORNjt9mbDAfrfDBUkKI/Vv
GUyHMsFQ9dLn1zIUemd+Wjt7iAlXrdWeT8lT2HyLU++SzISucuOWeUwK431P
qmMGE+50pI6uXEDhhrhJbYc8JlTbcc4aaVJYFLg7JrWECT37LQY1dClsuD0s
9OQhE0KSDGZYSyiUVR6YWf9csJ/th9A3RhQyeoa0Hr1mwp6PO+Mum1MobJxt
t6qXCeoz1cKRVhS+esV+8u8oE7RDcpscbSlUUGLXdE0w4fuahYsmORQWpMTl
7BMm4O3SjBONjhRq9ckVtcoQoHNftzt9HYUBzZFRpgQB9w7nL/J0pTDv6VvO
aW0CXDsTXeU8KRwqs5lPGRKwoCkIqrZQePd51KMcawIe88yCYnwolGd5jq1e
TcDCe1+CDXZQuNyuNUbITZBnrBh/HEyhmFjEl2/bCHDjntnru5fCfyy/Pd0R
QkB62pCOUjiF2ZJ/BpFRBDgEZToURFHYfT67pDqBgKbAEAWbaArnZB24tqkE
rLK2OTIWR6HGUZ7rg2wCAsYlzh88QuHWhXZjATcJuE2S6YNJFPIT9x43rRTg
9Vs3FX1CwE9sXpLMCwK6tYzbLdMo5PgOvdLqJEDt9JGYynQKddrfbxTiE5BT
u7jJ5gKFXt2jViOzBDjWM5wrcyh8f7tOZUKOBU87igNN8yic6HzDjdBlgWwX
13qogMKIiqW6FmwWXI2ITR4oprBsu8yQvTcLHqSpqQqXUfiXxQ3bTdEsEN9w
j7vyAfU//V1hQdflSe/KKgoHTUTPjTWxIPVCv8ShZ4L+jam/BMxTgfj52yvv
1lGo9lts2GsfFYhwCrky+IrC0utqc1l8FWg095t2fifQw2Rz4ZJeVahSuWze
OkzhWpvLe+qXq4HJudinXhMUfjw8lW5VpQ6NC9K2FIjSqJHbrFZtuBCUbL0l
JeVpbHVaO0RKacJL2jxznxqNEUf/LE+iNUEh4XG9pj6NLMH7U36vBYkaF13U
zGl0L+wQLe7TBtRrLwy3pVF7TXSCEV8HSmrt15g50RhAbeHYSulC27YO8QRX
GmNTyndLW+mBt4x6fswWGk8Njmu0hC0GQ/e5fx7607jz66DflXv6MLy5x+NU
CI1yPwljLgFP+VBTg3Aar20ARb+EpbA27cOU7UEap19Qdc9EDMGsP2PqexyN
kavPTkrkGIFBMS6KT6TxYeQZQizfGGwXfajOTqGxwyfKRT3RBCKlj/X4p9Fo
kmlAnIs0hf0nhTt4GTReP1irbx1uBtclspqsLtHYJh2steeAOYgk5LksyaVx
xMnwh+aJ5QB/N13qy6exutQw9GqpBQS6s2q23aDxjcK4XdOwJei/0hvPu01j
xbvk2UA9KxDvy3G7VvZ/Pg5Yw6JbAVv33adxE9+oUq93JXQ5239jVtKodMux
/y/338DKf5nt0Uc0GlinvYh7awsnOGleVU9oFFxLka8NwAuuekhntQBP49eN
A8p20Ft9+uLLWhp/wvf5ZgfS01EKqfUCPn/aMAeOPZlRNm2g0bsU+dldq+Cr
p45uQRONf/hINrL67WGzzYSTaAuN0qrZ2/WnHeCj0Zck11YaBxOyG4rYjsB2
VzEpa6dR6L/mDPIET/V8B43/AeExE7E=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwt13k4lN37AHCUUFKWMDPPzFAU7Ul25halklBUihAlFZWS6i1LkeVFSVTo
pZQtRL52OWl57WWJSrYS2Z4z9hbid3p/Pf/M9blm5nrOfZ/73OccxYMndh4S
EiCPoIDA78+p1OEGs4MWvMY9zxPcPvQhkVidayEzzbwjXKn9tVb96MytlzaS
Gz7xaiWTei6E9iP9zed7urO6eSVaUl+8cvuRRVL9l4OhAzx5zJyS7e1HapUV
Nu8bx3niW/XPtjkPIGuzhZ5cEISattLzmiKDaDJisVr6ZzHwrdRpgZxB1Ld0
nWh6qwR8n5A8zpxFowHtvktdKyThezW3SF+dRioFey2vpErBTHKlatg+GrnN
VG2LbJAG69XMXSvP0khiUdeUmegiuOHW60NF0Ejr3kLBwCFZiKupTpQuoJHs
Wr/9Xo1yECUmdrC/gkYPv4U91peWhw3lh4XDa2mkyXy2X8FQHlSexD3srKOR
3CGNCiUneRAYyf5l20ijtLeDfrt95aEq/jrDp4lG9XuuH14ZIw/Nunubj7yj
UXJEdNXHbHnQcW5xXfeBRnYhj6pKq+XB2rm0duVHGk34SIx2d8tDfgjGum00
Enr79knutDzMElDTMeygkeSXBP87sgzI40Hotk80igyNC9BfxYB3qVmKll00
evD8/cbrRgyIUOhNO9VNI/H+/T1nbBiQsWOhW+ZXGmXp5yiBGwNWPbuu9b6P
RjauO+cWXWLA+tauH1UDNLrRe0imOowBOp8LQ5toGqnyUif6bjOAWWpaZcOn
UZCTXevmRAbYL3+SUT9EI0W9Fq2DGQzA4pkydiM08jtnhxzyGaA2etKYP0qj
6fwbbFYZA2yFJA/cGKfRUg3uu6tVDPB11F0I32jUZji4/V4jA+jgpJiJ7zTK
fjmrKqmVAYsSmPSznzRqSf9p69bNAM7nRHx7ikbV378x5DADxJ7Oib46TaN4
G6mEpAkGjH6yuRwqgJFQibCUzAwDTl/V35ImhBGZzVErESa8bg1or5yN0aOv
D76FLWDCS/HyhnkiGBUG8V+myzGh5KzrC0cxjDxaVdnpXCZkzw1papqH0Zbk
zIvRy5jQ+rSYcUACI7aWi7HrGiYcMj2QJyCJ0bs2vSZFTSaYGXWGlEhjpHvy
dVCDARM4pVKut2QxKjmfZuS+mQnrb2yo92dgZPOzTnjcjAl5eyIPXacwOiJ8
Nd3dmgl7tY4KZnMxytKK+9Fky4RJqUu+PYsxStzr7rrBmQktV0se8ZZilMMP
6fQ5xoSua1/6M1UxUpfU0HvqwYQjVstHNqzCCO/baNB7nglpiQZK79ZipNk5
+kLUjwm3psaML6pjNMJfv5oKIuOTUo3U1cJIR5dBKV9jgsHsglopPYwSfm2R
ZEQzoT0iu2WKh5HXNpGBmTgm4NGb6eNGGLU1HN3SmkjGo7TX57sJRrRJSEVW
GhOUznp2zphitCtaMdwzm4x/BhrmWmC0/ISJ1qoCJgy/633FscKospv3oKOU
CbEKgTKb9mK05ufchtBXTMg5zdvuYosR/F7wNUzIjc89GemAUYdm6URNAxOO
vxmx+9cZI/70ucf7PjBBMtabN3AEo3KnOcu7OphQttTJafI4RlfkLgm79jAh
Xuf2pgWnMFrMJBU2yASjBdsaZDwxOi72I8FllMy/svNpufMY5X2XEej6wQS/
14ZLmJcwCl/S/HmXAAt2vXSzm/HFaNWgayCaw4LxW92z6/wxitxZRyvPZ8Hx
Lo38qCCMynaLyQZKs8BCb/an7aEYNaSuiO9msGB52eeTPdcwOqU1+khbgQWh
X40un4jE6L1z2IWgpSwwSc6j26MxmvM7AStZoKJ7RE8tBqPJaG072fUsSFgW
Xn/mLkb5caanrLVZoHbKwiUygcwXrDW5xmOB//RFnfuJpH7q6nhlm1iwc63O
3w+SSP7MVu0fMGVBPnSLX0nFiFEVfHbRTha03xouNUrHaHhzTwRvLwscdnYk
/crEyDNr+o3jARZU3RSpC83GqPWIwAk/ZxYoNfq+mvs/jOwb5DMSj7IguuCq
wKU8jMJU6PmlJ1lgVLI470UBRsXeZe7vz7Lgh/i1GKFijPreRr0ZuciCRCon
mPuUxHN+V8TcKyzI5H8xX4EwaizpkmEHs2DDtlvTymUYpc+cvr3mGsnXc+nY
eS9IPBH0RV4UC1LmpQZ/fImRqIfF8+2xLPC0vHfu7r8YpezMEdl3jwUP+9Mu
b63AaOXlmQznZBZoeq0+1lOJ0VlzjuzRDBbU9oxbnKwm80Ppe5/IYYGz2DGn
wRpSP1qbTDwKWRA1tiDJ8jVGgg80TnkgFvD2XEQpbzCSXqAS6/GKBXpXksVH
6zBSvsB45VFN/p/RNbS2ASOm+pj5yXry++HXLo6NGI3qFegee8eCSr/5Blfe
YlSz6eKyw20sCJhLK8Q3YfRwB0g7drHAPdu8NKWZ1FvhOn3HPha8sPYsS3qH
UXeT9hxnPnnf+weN996T948Yvjk8zoJBj6+LIj5g9GYrn2U/yYIgmxjFsy0Y
hd6LO7JHkAKl0UPjFh9Jf/qxNddchIJ6Wf+sxa0YKQpJ3Ns2n4I8n742mvj3
8tokTUE2P8c+uw2jIdLtjBgUnHSY+Hi8nbzfO/A+cCmQo6Usl3RgVBpoGq6r
TMGFTv/SauIcw6UM7RUUGEvmfnLvxOgV+bv2OgrEoupXSH0i/U9OzE1bk4J9
6nk6GcS9l39Ga+tToGdb4mr8mbyfHnimbUTB+uLIsSZicZu2fu2tFIgHizS7
dpF69uzO0TOnoG/OMGe068/8W1OAR74WnfmC0YWp9iTefgpidIXqJ4hT5L+e
2OhIQa53cuDJboyKrry/s9GFglOGQ+96u//E70bBbFWXdocejIJ8jVJ2nqZA
NbVAtqHnT/84T8Hyv5VtNn3F6FrHxzEXHwrKuS2CecRrnhnoeAaQeJuNKjm9
GA1aFnAC/qYg4Ohf94OIU7rWzYqKoEC64onfUO+f/eMWBX7fnllZ9ZH4218o
l9+lwO27K6eAeMetVy97EimQurvimFw/6Q8C7UJiaRQcyFTv8CLWLuy4p5JF
4hP9NPKW+H2jhI9ZHhnv+fUeawYwyrY4FuNVQkHtMyvPQOIk73arB88pyH8g
d7qDON/uSGZjBQWp43ZR6oNk/4vnbhZ9Q8HEeT4VNPgnn00UHNJzet5KLNrT
O/zXRwru6EnRajRGLwd+Chd/oiDhTOeDy8Rx95cUTn2lQGV/5fq3xJnFZAPD
FOlXu14swRh9DOjRCRsj+bvHs/Mg3vjEV6z1JwWiEg7nnhNPDx/IVRNkQ4k9
J2oBn6yPyKPx4SJs8I71MNpPrHA7sZw/nw13QsqVkokTHyvU7pVhwxaf4tVj
xPaq1QvLmWwoe61EwRCpdxfS4BTZ0Kfp7R5M3Lx7cE3xMjbk1/54/ZbY02b7
cYPVbDB6ufYtdxgj1xNDAZXqbFCVmLx9dPjP+tFlw85v/7CfELtfZQ39MGSD
hXDr6BTxZmVPoZgtbPAwPB5vPILR9SDVCGNzNlR+dtwRTuziaK47Zc0G7SD+
snfEN80KnxfbkvHUlNkqjGIka+ay7IoTG2ps+mYOE+f+WrHC7Cgb/PaPFmUR
v/IwfaR4irhQouQb8YrJTNFpLzZUnE76hzeGUYb7eNyYNxs6ui95XSVOSIrO
GA9gQ8ajn0Z1xH3Df8VOh7JhtGmJCWOc1BP2Upl7kw0j63lbHIiVH79epxBL
8lVpPj+FuLNUIm79fTZEcHULh4hVjJ8pWqWygfvvU1utCbIfzTLghWaxQbzW
StyX+C7ZXj7ks0HxjbBDJfHpopVLNRAZX2roBqlvGG11+l942r9s8E8Zvbaf
2IYcR5ResyH9VJH1Q+I1lk83ZDWxYSrgS8AQsSJ37PjuNjJejT1bdb9jtN18
72fBbjak9coZBBAvTjKWejpI5nvzN8M6Yple6fM3xtjQsvVxJOsHRrWCl7Uv
TLHhS5lm5WFis9HwXWdmc6DlvuzNHOJsN8vDV8Q5kNH9sHaa+L5dwM14GQ7p
r40T23+S80qze3EdxYEgh1noDvH2F0OS65Q5YDjT0NpH3FvWZlO8igP7pvPm
6ExiNO6vzLHQ4IC/8eTbIOLuusUffxhwwCKmJP898d3VfwfXmnDAsebx1hVT
ZP87WPiwyYIDen3D2j7E834X0D4OOPtYCzdN/el3ThzQXpO6QeUXqZeJOfa3
j3OgXs93kzdxSaZ9FussB8Ju2yk0E5er6tyo9uGAwN47AqunMXIM56D8YA6s
NFW7EEj83/0okgN+rj2zPhFn/hPZrvkPB3wt5Zx4Mxip2l57Pp7CgZDGGZUE
4mPDqgL/5nAgWLfHWkCAjzLUVYXbSjkwK/fbKifi+syNVeZVHDhgZhtdQWza
P1tdspkDH0fvZa0V5KP/7nefSb5F24JiiYWGi7zLMAcyR1wGxYT4aOCzBvPZ
JMnH5KbOC8QH/YeOdIlywclNUYgm/u88LMeF4OUar1xm8VGpmc/EEmUu5M8O
6Okg/t1eu9dzoWqf7eYDs/mIXO7Caoy4YLBjnn4PMTkNj8dZke/VHANPC/OR
ZHlRQdhhLqy1qd4lPoeP+D2pEoXnyQ3RpMIxnZjaGBWjf50LAnLLFVxF+P9/
v0jjguOO9ZYbRfkorpVvIVPBhZVV37U1xEj8tuQG1s+FRZnBv7bP5aOFFzQe
GYgowPAXkyL3eXzEvV/PfslRAOZCVW63OB+pLJiXm6StACniMvYhEiQ/k6Hz
RA4qQFiqie33hXxkZ9GhlhyrAGUC9nZ7ZPgo7ff1uFMBksPUhXTl+WiVmMWu
allFkIjaob+BxUfubbW72DsVwavzZoIth4+iz8GHm7GK0HtgvEhpMR/9dx2W
WAzMk/kJr5fx0ZncRZPV3ovha73Yudmr+GiPQ0X/bvslsE/usUOBBh9tsZiS
P+2lBOIRexbeNuSjeL2Vb2OuKsMwt8xIxJSPvrKTe7dgVWjYrlDU4spHNXam
FSJha8E/3ibcJYSPjH83TG0tUNgdOJ76+E+8loZw8dI2xYZyPhL479kKmvOn
9RZ94KP/A3nwO9E=
         "]]}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         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.7973564197222224}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 10}, {-0.9956235625, -0.8077915324999999}}, 
     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.0055000000000000005`", "]"}], 
                   ",", 
                   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.0055000000000000005`", "]"}], 
                   ",", 
                   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.0055000000000000005`", "]"}], 
                   ",", 
                   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[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    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.922526, 0.385626, 0.209179], 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[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "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, 3.790881982342059*^9, 3.79346118959251*^9, {
   3.801995726426937*^9, 3.801995732420045*^9}, 3.8020869421384163`*^9, 
   3.802087954618482*^9, 3.802166607229807*^9, 3.80217765154186*^9, 
   3.802353605171362*^9, 3.802554527026136*^9, 3.802689331153693*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"930a1ab6-cd4c-4165-9216-6f31dd6f1d71"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"colors", "=", 
   RowBox[{"{", 
    RowBox[{"Blue", ",", "Magenta", ",", "Red"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802104179964892*^9, 3.8021042187751007`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"7f334b13-fb8f-476f-af9f-ccaaaff3658d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cPlot", "=", 
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", " ", 
       RowBox[{"c12", "[", "x", "]"}]}], ",", 
      RowBox[{"x", " ", 
       RowBox[{"c16", "[", "x", "]"}]}], ",", 
      RowBox[{"x", " ", 
       RowBox[{"c20", "[", "x", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0.0001", ",", "8"}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"None", ",", 
       RowBox[{"Style", "[", 
        RowBox[{"c", ",", "16"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "colors"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "8.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{".05", ",", "4"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{".1", ",", "1"}], "}"}], ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8"}], "}"}], ",", 
         "None"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzV1IU2EAh/E1SZpKqdtElkGioxmW5oVgrcnbh3gT0mZH0TnYpl5E0BxH
FBMxE1uR6yZZhqAJVltfi0RwqEsE3RB3CkrNLhwrUseBClNk2uz9vxcPv8sn
23JT3yCVSCRqGhz94ArVaUWSNnbkC7R8VIXh9HduHQZOPhJh9MC7X/Dhpcwt
eN/YzHzKP8gyUcdsTmZG3MpBz41eExw+1trRSU3lqu7Bgf2V0G0q/yf4CXZa
W9bvUntWuqMwEvTHYI4uvAc3ea/KQTW/eHYcLlQvaWB+OXcKFup3A33Usstx
pjSvfc9FTYhd/weX3zQdekyduONh+s3vn4zg3+tjnp7h3XDT7n4NEwfJHHyV
nxuAKbUFrufU5LiTqcxrG4Cz+nZmPfHKxqn9JfIk+NO7nw6jsqACdsjmKoXz
ItFXJHDQ1n2wBqZkC8y/iaWCQyeSw77+ZbitSbabiUh00jIeOufVt+DQcCNT
URMptFENfaQIaoUzdfaLIjkbUpvg761YZNIgkgs7uz9g1jXh5Rr1KLfI/Bxe
e5taKZKKK/UT0Gc88RXOp5V+g10q7Sr0nGtgpu9UtcqpxT3hNhjJvdoFp5RD
Dli+YVQqqNrB7Qz4H+WyJJo=
  "],
 CellLabel->"In[78]:=",ExpressionUUID->"afd9fdc2-8f88-464e-964a-ee3b58355b95"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3k41O/XlpRQGMxnMGYmQhJFVFKZU1mylaRNWVIolUKpUJas+fKjIqEI
SbaEJMmxaxEiu1RSiGyz2MI771/Pda5znfvc932e88eRd7ho6cjPx8dnu4SP
7//f1PJDzh6pHGb0Tw/v3VOC5bv5brzmd51i9h5+VOcysbycnLbN31VplrlR
YXdTRuyycjNpiuST3H/MhX8iB7uuCZTTr4bJE+sXmTvOed0/cHNpuZdXaWjT
KB+YzUHn+dv85XGPqx3nNPhhcnhee7Z0SbnO0XAtrcilMMUKKiax+MqVAhOZ
K34JgJOy/doNTL5yA+myvErF5RBjp6241nQRB7Y/krjtKwif1Y6/zpJZwNK6
yM4tVStgTe/Mfm+JeZT8uTN6XF4YhrIcsryE/+Erj60hRl4icN9Yp0tZeg4j
z+/qu/VmJdTGLz+YtGsWB9hCGz5RROF68LPUlzYz6P6rr3fuhBj8uDVX9j1g
GoU9kkSnTooBOcZ3tYvvND7mO6E36SQGqzyFrCe9p7GJ2vpw8JIYPOzpMlq8
PI3qlnUnWgPFgGrm8ULYeRoHy7K6crPFQGvvz45+k2m0jbvcdvKfGAjaGtFC
SNP4RGnpwE9zcfiq7yMn+WAKo4Yq4+5biMNAjM3PlntT6JUTYGJ6UBx2zO6P
iY6aQovN/Ln5R8XBAmjxS0OncFZ/yRX/U+Lwxy7esMKTlz+9yM+4Lg79Yobb
Eg9O4b+UObp1mjiUSxxWiRCewgGnN02rnorD3h1ZBzqXTWGzqndAxTNevyMp
YvJLpvBp/uwvlefi8NnlnVTqFBctK2eyp16LQ+S37taL/Vx8+mNKN6ZRHBw/
9w6vfsvLr2Yfbprl8bHJ5oa5cHHVspsth+bF4V5pd2e4IxffDQladC+Kg8wC
KzzUnot6BVTj3wIk2Nj+a6v7YS6uN9yz/Z8oCX6qfcldtpuLAufvMFTWkMAk
JJpfSZqLRa80Bn1NSdBQEiXQjxx0Syw5vWwfCTxPd8SrlHBQzV//x20LEuwM
WWrpVMjBFJOjXTGHSLD5su9AfQYH//fVtz7LjgT8Dd8lDaI5eGZpY167Bwl+
FBF/v9hzUGb/hesbE0nwd32CgNQsG9l5HWLDj0hwtkC+9vMkGxsk9NPTH5NA
pPGgf9AwGwPaZFtoT3l8X/FnNfSw8Y/NO7WV+ST4rWsCv8vY+Ob8mu+DdSRY
rRZgK+vPRpvbnYYpLBJI4q71S+ZZqDOi/9WGS4JnlNjXx9gslNiX5yEzQ4J7
9pu/PRlmYS0pJDlqgQTegptzpLtYuOGB9uxNIQkgzj+McCpi4eLT/+UcZ0hA
rfQjydjzLHxcYyBFNpWAzV0rpwcaJtGpVP1XlbkEhGUmi76rnkTVAnKRu4UE
mNgIBcaXTGJh8q8jTYckYOYR4xCRPom13kEJ4fYS4PZ939ozPpM4olmjwO8p
AU2t0dYuypOo80hfcyxZAuw/FS5/dnEC5++p8T9KlYCS1+v5Kk5NYGW4VItZ
ugTwvY42/nBkAk2v91/OzJKArMyM8jzmBNpaBRY7FknALcnGJZ9EJzBQuJrZ
81ECaJ0N53ZljmOj555977kS8Pi689ZV2WN4OpIzZDzD03szLObUnTGcffI0
6MOcBGxjJZCTr42hYqvI2498ktB0NSbio/4YXtP6sr5BWBIG53ynRrpHUX78
tFALXRK6cpap2S8bRY+zwdU9hpLQwnoT5mAwgpQT73XHYyXBRJhfVjNgEFeH
5SY91JeCqpa+msQ93zBNb+VqZSNefMq7MoHvG65jn03ONZYCxbNmTzLe9uIm
O6XHuE8KYjLXPBnb2ov6mxNTfhyVAq3jpeEm6l/xzI+wJ0oXpCCj4s29IWo3
vtjmmJUTIwUhb9q9t4m245axyvVb4qTAUXbEJLihDUvSVmeXxUvBqZEj4bOR
bVgt1pPdmCQF5jGWeifE27Dtl2XuxDMpKLnbMkAht+JsNLzYXCYFqsKpGXJr
W3D3H+qrt7+l4Eqo/jvXvw34Qpvrtm1ICgyNys/uuNmAq32b1F4OS0Hou3Tn
RLEGXJAMSskel4KFNhEfsvYnfLNzNCJhVgoE56o6Zm59RO3o8tPXRcmwhp9y
hMt8h6nd8QyOOBlCJ6s+rumqQwnlK12XJMnQeeTyhuHLdThess7ijDQZ3L4+
u22cXYs5/Xe2H1Egg6Im6Dor1KCyjqPE5i1keKEdq/ZZvRJjApif8nTIILjG
4Pb+5goU+CQTqradDE/lL/gHXK3AvpMN82uADKsTOO6rqssxKXzrkIQJGX7R
tS82fSxD6W9C5eM2ZOAfKnb2SniNIev6vc7bk6HnV6Pe8X/FyPUo2zzoQIZT
exZV622LsXWFR9Y3Zx6+VuiMo8orvLOpJ7bBjQzqoSJNzxsKUSQ490J2EBk+
l2vmkFzyMN7cZbdtKBnEfuoJdRU8RxWyMkU8nAwnxzruvLifi/ppD8s9osjw
apl1xNC5bPSp/E9yewIZiGMCb28bZaDw7b2DIw/J8G3WRt3S+CnGHRB4+yiZ
DG8r1cSu70/Hl9+9nfjTyTC17/eunjNpOLrg8vp9HhmcLZq0yxuT0adWOdK7
gAx7ZS5evTeYhMKRfQ7qRWQQT9O6ZKz7CJVp1iuj35Ah78VfzfCpeLTbbmx3
tJYM1jGwU73zHo7yL9MWfs+rL+hfKeJ8F30+lK8o/UiG4y8uCoXMR2PcMZ18
xmeeP5VTo+zQSGy6unbZQDcZvnfxe/p6BqIt82dnXC8ZKtaHpv+jBeDI8qRc
kx9kOGTh2Ruc64srYomjub/J4FnSbz214ImxNs1q9kNkCFO00FT96o6KSpFL
JEbIYLf1y/rVeAF3FS7LujJBhs3Hv2Y6G9pgk3eF71o273/sO8efKrIPbffc
sOrkkuGxX/V8nhcZvZrZ8zv+8fi1982XmB1lrojPax5dIMON4MZHlvIOzNiT
558mLyFAzUkwoKTZmZk//tNCQJCAzMhy4R1qbkwoTlIqEiKAUaXWbhzrwWzw
PT7rvJKADz3M4cPdV5gnjCiNMmIE0NxS91nOXWUOi7akfiQR4CWDIqrc60yv
tshrN6QI8Ngjs+HjR2/mikcm5hspBDxL8amV97nBjHVcrvBDhoC2JDigIujL
VFSv5N6RI8B01aKe/xY/Zj77xkd9BgFlNzmSf9v8mFC6LZkrT0AeqURm5LQ/
s+EW53KGIgHECdbeO9/9mSdMXxhbryUgX85PgWUcwPwjcYG+UpWA+T+bXsg/
DmBe61JhvVUj4HK7f7jG7wDm8pT+uosbCThoq9qqKXOLGXM2OVF+EwHx/e9h
q+4tJvuA8o4n2gTA+gNCvXtvMS11s7tVthLwtmbfuxmjW8wXCpu8s7cRYDMi
33V/6y2muEixrMYOAmw3NRrXUG4xXVk7Swr0eHwVA6ojBnnL2l11bOsuAg5v
KdrLfhbAVKs2ninZw9P3qsJ/6ngA83Z2Y5yeIQHrvtLLYhb8mYP3DulU7uXh
KT7g1Ef7M41udLcbmBJQV6n8Pp7sz0x3PHn1vTkBh8LfBPwL82MK7BsgzC14
/r9XVe396st02HKhqMmSN68DAlt7Q28yK+isQ1aHCNCa2lkwIXWDeXNs4d5x
awK0+1zTNZuuM3vaA7W/nSDg88+c16aLV5nby4W/ONjx+Lr5eFiJeTKnowhJ
l9MERHwgfJc1uzEPX0/M/+vE838x+uN+oYvMlycVLN3OEjC3/KFjloYL033T
huhrrgRMzrKo1yLtmE2yhRr/LvH8dp2gebhaMTcu1W3y9SCg0tzR0DtrF3Ok
xUAs5BoBFZI/po4H7UenKzYRMQEEbDuziT/ukRtW2/xUkwkigN67MSzH8gqu
MTxbnxhCwETWMfuLa67jd+KKSNp/BJi7CTbTI/zQuvi/sPxYAoro56om1cKw
OFli3ZYHBITu9ydWXwtHSljcu9cJvPmpkfrOfY7AL8fSBCuSCTARFXHVORKN
++feBDVmEqDQMhtgGxaLuT93KR3MIYAsrX+9cOA+rqyvq257ztuXWIrcRvMH
+CGxZWlvIQEL4dp5SeqJqK837D9SRsCbvrlwM4XHqOMve1OohYDY4OVa9N6n
WPTbf2tVK08f19v1cXsGapkNjft0EJAmKHWt4ssz3EApPjX+lYDlVkcOPejM
QsWcQ8btgwTc2ltI4S7LQ1JnlNSTBQIS383dkg8pxEi96U+2SyhQPX//7Ff6
S1yZZhciLUABvwmVYKvil7ji4obZcCEKKP26NBAwXoQLAvXf3KUo8J/ZRcLY
8zX+0RDMAlUKvDGQ2sbfXoZnYl1Pz6pRYFHHVeDibcRfc620wo0UyFJNnMli
lOP32rSotZspYP5vG39xWzm2ndjtKQoUAH31gCKzSqwKvbGr5xAFYkKcdD4c
rMHE76z2q/4U4Ish8rI+fsQ/TkonlgZSwDeQw1ejUY86fw9/jwymAMZxkq1i
6/HLzOvBJ+EUcNCyq693+IQrJf1mWmIokNn5/H4HXyP6GKykamRS4K/4fKvP
2s94PFPRdrCZAs9C81WNo7+g7OVD/UcVpaH6reoZbl436u3u+d+KamnwCl+9
itPVj7Fd5868rZWGQBXhHR7T/fjXfQ7c30uDeTW55gf5Fyamyk52N0hDW7ZU
e4TFL5wVOGb1vFMaCtSbd0vW/MJXda3Sh8ekgfhhf8Q+8zdqmDc+TpWVAcev
0yaNpwdxzdHKAj03GViBxqETccNoQpI7UuMhA2n9xvN3nw+j+4crs6aeMvCF
HcJcUzuMlTvW7TrmLQODsnU/BFnD6CAf1eARJAPDQ7rpA6YjmPLHZijjgQz0
7e47Pjkzggo3ZuiSlTLgI5p76pPhKJpsOVj5oFoGpFYKiA5bj6L7WLbj6joZ
KHp2o4blOoqVJ+2z1etlILhliW5t7Cg6GNZt29smA9G1Yiddf41iiliM1Y0/
MpBvf+dA7c0xVEjRuD0gIQuCtIz7VRbjeLbjnFEaWRa+1m5h6FqPY57oU4GT
0rIgYUDSTzs1jnreNN8umix4fU7xPOg5jtZWwpc/qcjC0vZvgvSEcbyzvN+m
QE8WdGfjN5ztG0f+c/c1fV1kgVx4yU7yzAQaP24e3X5BFq6Q04dFLk1gVPuq
7OmLsuAX6bxj5uoE0vUDld2vyMK5lx+c8kMmUJfmRnX0k4UVwf+LSk6fQPdG
k2WmsbLQaB6YcrVvAvu0FjqISlmIqTe+wbScRKnFl0211bLQer8jouboJBp8
uPDOs47Hd0atf5fdJGbYf33VVi8L2klnQmjnJ/FiRGlsbLssDOxOKj4ZNIn/
fntZEX9lwSGlf0q5aBLJ8VONZGkqiA5oGc2Is9DQ8XldjSwVRvlWLrUlWHhN
wxmv0KiwZpfk3RIqC3tq23JbFaggIsR38bgyC1NYLyNi1Kng3HWzZ+d23n1i
ftmUvIcKDh3gcO8UC/fyTdRKuVLhStyk40guC01G3MNiL1GhTn2qQraAhWYd
bFNpDyo4yWvp73nFQou86SbqNSpUzlY1BiALj9rzdSsEUKFm5npsaSMLz5SL
jWnEUsE1QaGYMcbCUL8NFPMyKghIahU1rGPj7fN5nQ3lVJDgKsmaq7Pxv6Ob
Ei2qqGDNCnep1WBjlMYWeat3VDD+QB19tpWNcd93rj/eTAU+X9aBzQZszABz
5tnfVGjaaHfgtB0b6/jOOweJysF5Nyw9EcXGwbONe3aS5CAlQm8h+C4bhVs2
reZIysG6zLSA7Fg2mj2Z6TgtIweTQ6KBQ4lsbDIOMdFXlIMnrgffqj1jY8ed
FPWlunLAf/2lbl85D0+xk+XnKAd3hK7TtP+yUShyR5POGTkoGmyyax9jo+pU
Uva4ixwMjn+q9OTdn+ffOznaX5KDI3fPLTybYuP4BXYb01sOrjUZdvQt4eB0
kVjJQpQcJLb2x6aQObjC2NDPp1QOzj5z3uKny8HZZo+1y1EOpm/nJv63g4PD
Jx43/K9CDn6sL9seq8fBhkv/5FJr5eC3rZDO490cvBuX//p9kxwktPu9jDXh
IH2QziJ+yQFrnrFdwJqDm0OmHF+sosHx5gkf0ascVCYprdouToPncfPi9dc4
KJ1gWVgtwcv3ZYeGePH65+bwd1BowGc6sW36BgfL204lLcjTYJqy07AikINm
yk0dpltosAft/3B597lDTYbpb1sabHZ8tMCfxUG9fkv1Uydp0Potm3Qjm4Oy
S+dFv5+igcr3ndc4ORxshgPNnWdocM570eBHHgd3l84c/eROA6YpVexJEQcV
CkycCoNpsD5a5VVvBQf7kkf8AnJpoB82WanUzsEyjHVYzKNB2399dhc6OBjf
C/o+BTw99j8DCzo5aCkXI+hZTAP3ofWu23s4WHl/Z+TZSho013we2/aDgymR
kQkWbTSYZzsbsP7w+PtoFNEXaHBB54vJ6XkO2kiXvvjMRwdqZ3hU3AIHjxYa
5QQupcPTL3UOHxc5uG/ENu3PCjqUSAu8UuPnou6JiDtFknTQ8Ypz6l3ORYkd
f1z3raPDMc3zqnziXKyaS11704oO3ZSg7P3yXCy7v3GN5hFeverUNWsFLpZo
vaH3H6ODzXio3Ok1XMw710w2saODpWb6qIcSFxO7+QQIFzoYTuz7HbSOi5ff
2HzP8aXDwxek05c1uajoTXnwNZMORUkrfgcBF8e3XrBzyKGDUYFXn+0uLr5h
VyoNPKdD2dWHy7bu5qKlq2v+eCEdlFVW1fTv4aLfyZqPS5EOj65eNttixMVu
I4+FdS10kPaPSMo35+IdqcZTnnN06BN6Gi9jzcXFnOANYmYM2DDqRoxe4uIf
TJ7o3ccAcrDhzeduXPzyuaQw9wAD0s31DS+5czGDM6q77wgD3GKpi2MevP47
jxhFODAgR115/6AnF9Pq19qLXOfhVbniWx8u7h1+Fy2YzoCO2EmthRAubprv
s2rPYMBPKe+7OaFclBObpzzNYkD2E9KZE2FcnNik+cjwBQPMWAZuxbe5GO/1
IDOolAFvyb+FXCK4OCLkUrW0hQE3vT4FFdzhYhs1MLillQEuKYUW1ne5WK7+
yDi1gwGpDOY9vntcjDnQ3Li7lwHJPurBpjFc1Hug2+M/xICiWyJy3fe5qJJl
lXRghAFqxNP8G3FclHzr6iA/xgC/rfVVjAdcHPyeMljOZoB+YdZhh3guNk+W
ZkVNMeDUqp8d/AlcLBVod7WfZUDm+MO2FF6cTkxoaswzIP8u1WJ3IhejVUQ4
i4sMULiSYPCDF/8fLPi+Og==
       "]]},
     Annotation[#, "Charting`Private`Tag$451837#1"]& ], 
    TagBox[
     {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3k4lN8bxm1Jy7fFzHhfs5bQIpIK2d6HRIoWCaFSUokQ0kKkKC1ERUQh
KZVESbacibJU9ixFlpmJSAyzWBK/+f11rs91znPu+3qe88e5lx7ysXWXkZKS
OiotJfX/lWca0GXmJSJiuf5BZmOz2WZS5wtlvMcI+2v5F1Y2yLMpjzaGeatN
EhTjtrK7p2axrXGMlJE9RWyKZW7wcpBjM09fXaqkMUPwousHbF1k2efOlUTW
D0nBGfFF34GjMuyEtA/uf7VlIP/dy5y2RGm2vuP1deuiZeGB5/mzc+uk2Grh
yYTCTzmISGz6SKVKsTfjpTllqvJgxS6Zqz0zjfoMHyheC50NLzQYDQs//0Ml
ldHfdMsVgNp2nJXzfgqRuMax/KVz4Ug3u/FowV/01l/viuW5eVAZSn90qXIS
RXuZci4Vzwdz9/x+N/EE6hPO0arBFsDZ/Q7bTZdNIL+fnM6/LgvBbk162WPP
cZShJtvHtVkE+06eNvhaNoZslwjt6ycXQYAabXy50hhS3nHi7JrkxTAks3eR
YYgYpX3cTKZsUwRSp8Hium4RqgvctL1arAjnOrRfr7UUocPRon6rCUXwq5+j
O2AuQpMZTyI+/VWEiOuFxg/NREi1ed67z1IkeDf9ommRiQidWfdVo3YuCdR6
753rWy9CS/mH5zQxSRBj5DJ9UkWE/D0uf+iwIMF1WWevvCkhUgjTd91nRQK3
i+E+1pNC9CBh4O+PbSTgPVxTxRkToqrK7eu6dpIgMCR211yBENHVsYc9TiSo
wmKebuoXoo+cJ6G93iQoDepOtm8WIsyl2oAfT4JlgcGBb58L0Re+C/9xIglM
3pw49iVTiC5E8DP2JZOAaBj8/SNDiH5lY4s/p5Eg9XvcKXGKEBVIH+nLyCLB
R71i3anbQuT0ROaOcxkJ9mx5nLQjSIiSRw3/VPwhQe+RqK1sCyHaeaXu4Xk+
CZhv72M7NgmRHN3Ncb2ABE3s8KA2Qoi8Nl8rTxsnAeek5tbv+kJknNCWGCxL
hgKWedudVULUaXzKQkeZDG7m3LyS+UK05Gp2yn1zMgT8XhUT90mAHpnMX6Ju
SYbVlwvaPSoEaKXQIzXbigxPzs8KWl8mQDoH1NLQdjKseCK9MqtQgMw3JD/s
cSSDuNTxzNJMATrWczVD7QQZCOfPS+QvCdBgfJ9atg8ZdsxEJ68JEaCT1psf
6/qRodX15E6bswJ07q3UE8vTZGiatug+7CNAN6JOZ3qEkWHr/QWrpJ0FKHej
+/MXcWQI3TPm27RGgHSHyzR0E8jw5i6lfe0qASp6tCSr9B4ZKrgH4y+qCtCH
hR1ZdSlk0DVwuTmJC1DLT9vskadkiJuuCTOVFqDJWMjdUEoGg/SN+ovqRlGI
5YO1pWwyWDlXWFyqGkWy//7mWpSToe7OYZWf70fR/GNvXzlUkeF7dp+rf94o
Yppo5Z1tJEPUyJ25LxJGkdkA7e27XjIsqn5zSXvfKMpdLz65sZ8MP/aZl4Tt
GUVLQutXv/kt6TdzLLXYZhRNkyIeZvHJcH/tqZ99xqOo2HgoKmlSMp+YTS0Y
YxStj2UfPruAAivtHcbCW0ZQevs9lmgRBXbGfNfZUDOCFNVPffclUWDjwtag
qvIRxC9aufMYToGuU52T8Tkj6AXvlqGDCgVGGcj5c+QIUtd3V9ygSwEpp+zu
3etGUNxFoiZHnwKUR+/GFVeMILka5cjVhhRoe2PyPYc+gjgHa/8tAwpE337C
jJw1glKu6/UrbqWASaLD/JRmPsK75rD5+ygQ99wLzHz46MpK3jkvVwr81rhC
bjrIR2L/0g2/DlHA+WL7K2M7PmpW8H/edZQCV+IH5R/o89EtnY742pMUuDFi
+nRsehjNu5x9IiuCAgqDIcuD5g6jezbHzfZHUmBtgWdwUt8QWkFRxxZdp4C3
/JGZHR+GkPmj+2z/GAq0qF2Q9wseQsFlN0iGSRT488kx/VLfHzQ0fbywOocC
sncDZ1lnDqLgCvXooNcUuP3eWOAUMojmRnMOaeZTQLo4JFe4exCpM5zmxxZT
QFPsV1j57zc6YGh1wLGCAmFqt4b7tv1G9aeXz+prp0CM51JxbUM/2k9wvyV0
UiC8senN8dR+NCifkr21R9Kv5+fNbnj3I4V4JcfsXgrcTyPTXOf0I9O8Wc9P
jVCg5pWKtNXGX+gVn7tTbrYSCD9GjGy82IviPFKTl+ooAVfVL82pmIOEu9SN
MtYrgULBsTUBoRxka5DVvkJPCdLWKk5obuKgRfMKqNpGSqBdeVkhoroHXcuq
SzCxUAJflWiploZuFDI8fcfZSQlYt+ydctN/oCOn9kXFXVSClIG952e0m5F+
GDVkTpMSSC8eTlEtfYrye8P0ypuVYPqw9J19Xx6hddb9/OA2JVB/zHOmvU1B
WliBG/+HEpw6UqGePnYFqb7YY9X6SwnMGoPbwCaJWPwthpwxrQT5oZNfRgyL
iGiT8Zr90hgEXV1nmZRWQsx/dOAKLoeBU91oSYkcIhR8tCavz8Hg/aoMjQU9
74lpuS9dfmTJ+T0nShKvVhAD2rOfwyoMxre6q3TdrSOOxXsfnlyNQc/HoMBL
e+uJn3+bGXlrMFBecnaRQm890V3xKGb5BgxM80Ij7/9tIFpczAIXAAYTWO1k
NvUrUR553rRjDwYXK7S4OSptBAzxJuMcMTDknJ2aSmojSndb5+1wxmBDhuz5
YdI3oohJW17uioFR1L3bXVLfiZy8gvnPPDFYVqpfE17XTiR3C1pPh2HwYO9g
wAytixg4ouYiG47BJw0FwZozXYT+H/vu6MsYuC0vPMxv7CK+ThT+yriOQWdl
VWyraTcxn3RhoikOgyit9okTv7oJp8Tc8wcSJPsHnt0ZX9hDZLK40r/vYZCQ
JxX6UreHMF9tMVcmFQOOiffTgrAeInjzfJr2MwyGjFz4DxZwiE+fjVOKszAI
JG/p+LCGQ+C2PsssX2IQfvtJsWAHh8jb36ixPw+DmbDeLIMoDiHzUzanPx+D
Dw1fDx95xiF2em5Yf6pQUs/1Lc6p4BCDpxOMbpRi0BaFMfunOITBdDUbe4+B
VGL4da4Sl4gM/2ueXo6Br6nHpoXaXEI1dr9NURUG5z1cd1cf4BJ+WEzD5s8Y
xNgmxJgFcgn2/fd7GmowqM4vf/bpOpdwfqa6/1cjBm9/mD6dncclMrXtOf7N
GFxJs9ItqeAS4vwrR2ZaMfBWLZ4KauMS5saFA9e+S+Z9bUOaaT+XuFU+4K30
QzLP4d2vZ09wiW4ruiCtS9JPx8H8qtk8Qqve5rQmB4OTVTf9LlF4xKeOnFDz
Pgy+OaZYL9TiEbgbR7a+HwO7JAW3MX0ecaSfFOk8iEGJrI6G3CYekeezeX7f
EAYkXtFRHWseISMOjPEbwYA/xbsQaMcjdgZnkqcFGNDqdF59cOYRD2S+J1wV
Y6CXvm7N4kM8YjByHoMyIdEPl7e2P8ojDBYap6X+xaD0Y7BisiePiIzzVls9
jcFHkmDHoDePaKGlPn0rhcONZZuKd57kEaoPGzQ3yeKwbOEPmUY/HuG3QvZV
7Swc1q4oW+HrzyPY2et1nRRwkBvsjFKX8IINR4p+zsVBN3+RP19S71J81+Tk
fziEn6+Vq/bhEc9Mq8umFuKwaVlFTJYXjxivnLSIVMRBp2RDYeIxHmGxffVn
EgWHp4UOtjfdeMSdr/t2pGA4TNWvUr6xj0dwnG42raLiYBu7jRttzyO0e9gO
+XQcpA+yR+9u5xEhR0fbTVk49HfIrcnczCO+/FnmWrMUBxmGiRfbkEdQA/bw
HFVxGKoN8O3R5hG2N2XTW9Vx0P7CctqmxiOuP8s9aL8SB69Bg8lanEdMdf/X
tVsLh9SywPX6/7jE+qni+43aOOTssDu4fIhLnMCOu+xah8OqN+UvDDu5RKdN
xbft+jjEh/hPvi7mEkoeAQk1Bjjw8lXezH7KJXaEqzhYG+Ow+rDPDvc4yXss
CvlqZYZDraMN+7Qnl0hfrldnbo3DtmUxT28v4BIdZj+jyrfjMK4TIgwScQjy
/tvWZrtweBDae+l6O4e4fGe4mrDHwe3xnNOiRxzimHTmBwNXHIrkRHNpmhwi
lW5/qfAQDtE9ZCP5/zjENz05M313HLrjMqw0B3uIrd6uaMNxHOoPqb93y+wh
VrfjRdoBOMifrTQzVO4hDosrzrwMxMEpSpFUJ+gm7i8+pad1Fodzsz0Kcmu6
iQVbGvI0QnA4k3JcSzu0m+DnXX2pHonDbNmnv/972UW8iZ58RE/GwYOiTWr+
0kEMPc10S3qAw+PZD/tjPTsI9Y/2KtQ0HEwafZNGFTqIhL+vUrDHOPj013/p
JtqJc8c87ynmSPy0Og4sT/tGmJh13FT4gMO72/evH13dQsR/9zz2rgKHxQJk
4pndTPzx+wt+1TgMGnMDHq9pJpLTqaPttRK/vGFWgfZXYlJur93Lbzj8YpG6
ZTUaibeVzbj9MA4hyY5FqR2fCW2burR0qjKsLCm967s4j1jmWPba5KQy4PfZ
vQe9PqOti+kOH/2VQep0/TrrsC/I79OpyW2BynDVOWZqOK4GlRmtNN0bpAyF
voH9fqV16NDSmFr/CGWoJ0zkjeQb0cOBff2ZicowYjj94s+WFqRyfoJJKlOG
/delw7x9OtFW3d1liR+UoS1C5mTPYCfyG85yX1KpDJ8slcc+eHShsoOuWZpf
lKFWxyBkVLsbHbKo3LilRRlam8KTetR60MOFcXbnB5Sh4KZxTYcMF6k81L7W
p0iFPqz3fUBoL/Jo87R8RKHCqycfcsIKelHOgidyB3EJ+2e+UxrpRSZBjNDv
DCqoZM/raXXtQ052cwNqVlBhyvecb47BL3RLnrfvtQkV6sbi7pS29qNvRiya
rykVUvVF8y3mDKAl/k5tq82pMPRjOMLBYABld9XbPraigo3fJoKWNIA+Fbyz
TLSjgt2e8JXGDr+RjOfdtaHHqYC54jqcokFkldY4ZHiCCmNb+I0Xfw6imNb/
ssZ9qPA1M6OfvfAPYpqHq/udokJLEz2M7vYHGTBO0twvUOHSxW+DzrOGkF/d
1lnb4qlgciXX/4feMCqcdblsdiIVlH1T6eddhpGU0fvQD0lU2B4+3lFyYRhF
Z+pNGqdR4aePuimjahg9C1Md1s6igo5dRd26lXzEWTfdplQmuV/q0rP8Z3xE
nnlTX/GBCsyT0s4NhXy0+dOJqsBKKrzTE75nV/FRpuuPty1fqLDWOniU2ctH
PlEl8fGtVKhccOEEhzmCpnrP2Sn9oUKeTm1qp+Q/rPVKx7pimAoRZl/5J+NG
0IHzA5sCR6mw1CPhSXfaCCojOa1rGaNCg37rKduiERQJGxXjZWigv4R8627/
CKLcG6uj4DQoW1y0RstsFFm4v6z8SKUBgz81XmQ9is5oH0WnGDTovFfus8ph
FHVUtGQ3q9Dg0r8nb3I9R9FDwZuoOE0adPmW4YdvjyItm4BtlE008PcMxXx/
jCJXfPWmj5tpEHP3Vd663lEUy+UanNpCg+2i/Ib2oVEkPLt7VbMNDTY239f4
PiPJD4915sQ50sCpcbX8nSUCtEVqpILsTQMHv5pQtX0CtHXQ72q8Lw0EgUfu
fnETIOs24TbcnwYftqw7vP+4AO3MGa+nnaGBZ/pEu9lpAXJ0lWpXuUiDdVvd
MskxkjzHXjisHU+D4NMzgXNKBeh4VmzuqwSJ3jtfjn+5AHklkALWJ9Ggeypv
75cqAfL1xSb0UmkQIa503tIkQGeWsGSJZzSgfC5z9+8ToMgLWphNKQ00xzTC
ayT585pXzrdaNg3MFTX1dBcL0Q1HneSd5TQYqGiUjaUIUYy27lK7Khp4FRyS
ZTKFKKHbWMO5kQZtvSKv+1pClAk2hEcvDe43O5n62QhRpZTX0YgFdLCTmTgX
GS7J2x51m4wX06HyJlNXPlKI5jbpLBGR6MA6K3obfF2IrDMm2g4r0+HjVbaW
3S0hqre6stVclQ7nVfZWvpDk87ZbDzVlDehQmBbep1goRBN/Z80tNqLD8vRL
nCUlQkR19+j1I+hAfrhCYwUSIhc97RSOOR0KinZ9UvkoRN3t7xaV7aCDnM8N
y+p6iR/Vb4IL7nTAzvW85/YK0Zxoo3r9Y3RQi1urfL1fiFaNpWTxj9OBrs91
Xj0oyfPVR9xdfSX+LD/VuIwIEf+EsIUIosOL8YqYwL9CNJ6/sGg6hg63evkm
dxeIkIKVxYXgEjqUVW6M79QWoclG/+XyiA62xaTmtzoi9NslrfbmezqYfrVa
ELVehGp9p+jpFXSAVl6ihr4I3U54VVhdT4eGtt2EASFCzF9MgdJPOihEPtd7
Yi1CG66Muef+x4AITvXof+4ipL5Y7T/DRQw4ukaxMuiICOFJtnkfFBlgZE78
6z0q0c9+IdOGMYCBLUFvjosQu8UtZXopA7J0VAc2+IqQtXp92zZdBpByfK58
PidChz5mbuvdz4C7Lgdtk6NFyIRnq+l2kAEOVknSFTdFiCr7b0G3GwPqVfCN
QzEi1Ai7Gr8dY0BFK9nS4LYImZVMONb4McB97uJ57++KkMrrrUfyLjOA7mSb
cC1VhDipgxcuZjMgPneelXKuCJWi+EMzOQyYu8VbFXslQvc6wTz4NQO+LVn0
jvRahGzpcbMDCxhADWBoznkjQmV3jaM9yhiQv2OOwc8CEXoYHZ20s4UB4s+3
E93YEv/B2vnMaQb8qVLafblWhPbhJbkNUkwIZnSxT9aJkGOe5YtwWSbEFL4d
d64Xoe2D+x8NKDBBtjGmfnWjCBm4RN3KJzHhz07SUXazCCkaDXhvX8kEr8a9
R3M7RKj8b/ryEDsm6D6u/P6lX4RUg7DEH8+YIC8r8/OCtBjx9U4cOPSCCRlD
qoXLZcSoWFim1veSCXKsP0q1Erb19n7Fz2PC2wtyZ5XlxOjCwY+fZRETXK4W
UZ/Li1G7pf/0yiYmzLrjkV88T4xukevcAv8ywX7XPZt4ihjNvListdCaBZ6O
6/U3rhCjAZQ60rmdBUcT3xt8k/DXhqK87F0sOOBXVX9mpRhlioYMtjuw4ARZ
uyB/lUTf2MEy6hALBo+OnNPUFKNHX5a7zjvLAqMXbrNm64jRlt9VsbMfs6Ah
KJLnaShGOv84dq2ZLGgL4NdMS5i+8B/25DkLbuTk28YaidGIztoHFrksyD/s
ueaNsRjdO5f4LKKEBTPjPUbjhBgNzjleLtvEgslSPZ6nuRi10MIvNzWzoHp9
cvq4hNmaD6zS21hgV54rE7FZjOJ2NdaZdbIgMum/tGQLMTJJNOgI62dBs+Hh
I5VbxGjFc7uUXYMsyC7R0NhlJUakd96Hlg6zwDn7Z+x3Cf/qfviLLWRBlKW9
xeBWMWocLXkeM8aCXUTqnYBtYlQi1+rtOskCxy2yl6ck/FhpZK32PxboPK2m
hluLUeyKeaKZGRaU9BnvnmcjRv8DCRgJag==
       "]]},
     Annotation[#, "Charting`Private`Tag$451837#2"]& ], 
    TagBox[
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3k4Fm8Xx8lWSrI+6zxP1gpJqxLNSSK7kCQViSRbtkqFhKTS8gvJElFJ
QiVK6baVSLJHCin79myjsuSd96+5Ptfc15zzPdvcR+mwn637AiEhoSZhIaH/
P/dM8TRqzQn8xs/AM4a/JcoNhc69WuD7Gz9kTfv7uEy8XCF7y3lftWncX2Tw
vaarWLkFlSJ3P38W5+tOynkaipazTl5SUtScx2/tPG5PNxEpDw19E9s4IQQW
DSs899suKL+dWe0+o7MApqe4Cswo4fLNjpfXr48Xgd+q2Jslr4TK1aJS8YX9
ohCeJ/qsTESofCf1bWGlqjioq8abxzf9Q4Nb02XjwiUgobl9QXLqHHpTE9+5
qWoh7NQflu25OYvkfhrc4ChJwpeEipd9sTOoJFD3oknoYtB/s3xdTdI0ivfe
3nfh9RJ4afhiiXzNXzQoWKT9ibIU5oTnbPsFf1BAf1/3jLM0lMy8bvbe9gfd
VxMZ/Gm5DPp3r3m+Oek3sl0ucGicXgY7ZZ2MUsanEM3a5/SaVBl4d0ZFxnzf
FMp8t1NewVwW4n9p/C2vJNDnkB1WtVOywBhS2dKzmUAU51o9TqIcsKqSve+U
C9DyS/l304zkoaHr2fZEYwEyHGGUlA3IQ92F5dTeLj5aHJPvkxetAF6Fby6b
nuajhGMZqUrrFMH5e1nrhBwfbT5PD1vUoghLC1pOKr7ioeKB87pVbYpQ1xu3
Ir6Eh9ZbDHPOdiiCev2Xi2LFPKRNeenG+a4I/8VuNeQ/4yHVJ3tMvwwpAn7O
cqo2j4dkOq/L3/+nCEEBhoxDGTw0oiPxGDQoUO+x3vBfDA95JvoemdaiQEqn
qatLNA/1z7RhRWso4H4u1r/iAg/1vs++vmIjBSJvu5pERPBQu7NhyFKgwNPg
l6s5p3moKvbc9m97KGC6pjrxP28eSu3lfzl5ngL0+C9P39qQ9jzUnEWiKMDV
tXooY81Dm8cdeuNjKPC5WnuhmyUPtf59NXT/MgVe/nj8R8iMh5bIRfxtSaDA
yVmNJat28NDZnUsYOrkUUAmLVGFv5KG6jwZ3X+dRIFtCpX/3eh6i2vqpmBRQ
QMjvzmzEWh4qOtisebCIAk76Idzm1Tw0dvK2/pW3FLArU7QzUOeh/bmqB4ea
KcC5Zqw4qMBDOToOfYFtFHiscta8VI6Hpoovesx/oQC1t2EsSoaHblaN+Cp+
p8BBh/yt80tI+98Kw40GKbCuPvJiuAhp361PpHGYAgd0Nt0RE+Yhj2G52P1j
FJDJrnsc8Y+LFkyFXA/gUqDc93KS/V8u0pM2yMyYocD8lQTt4xNcFJvgq6b1
jwKZWaGt10e5qJ2R8ahEiArXi1sUHg1xUcBKkWcNYlQQzpc0KOzjotzttZWz
0lRYeiJYRaadi+hBe345qlJBsnD33iOlXGR7TSTrizoVDB7XF7UVc9Hl3Keu
DqvI87JSx+A5F832SvXYaVNhoGmwTzSPi7ot33dabaZC6UiO26E0LlI8FnT7
kx4VqCr6FYXJXGQdpbzXwoAKMfLmMcKJXFReGtZqakgFXuCzwdR4LspaofvZ
yIIKUykpKcbhXPTNsP9qlRUVMv1ETfXOcJH8wf8sDHdTgc6EY9InuSjm1mQt
7kCFsV1HGyx8uehtQVrsW0cq4B2UC3nHuOh3nbmJwX4q6KoQcd+OcJGncE61
ngsVTO+HP0x14qIMpsOFV4fJ7+l3n1Xdw0WduqKGm92p0KJ8AfytucjM1wVt
9KLCurmABPcdXKTVRS3VCaKCr80Va9NVXHRk6v2pghAq7G86KHRCmYvSZIJ1
tU9T4ZP6wz3nGVy0dFdTkWYYFa7FZi/yleIiTtGlAvVYKiy26VtZyOGglY26
vvfjqOBxNu6E9TAHuY72a6leJfV6lSxs/sFBzUqGuUo3qbDlVpCjXzMHvYif
zmamUiHJgh5+/SkHTTzKcUtJp8Kb7i97WnM4SP2dgzI9kwreUTvEftzloNsz
z+5SHlDB/3IYxf4qB4V6Hr8jW0j6E6XamOLOQc8u0PbdeEaFu9RyltJ+DhpN
r6Ese0GFKIkLZ3xsOMi5TSVBqpQKKhau87v1OGib4bdrC6upsP522R7hxRyU
+PW4Z9l7Kky/P1P2cXoSjQfMQEAtFcIEbNee7kmUmkXndTVQ4apmecjn7Ek0
LbrPvqCTCl+Fk+0urZhEtmlDWke+UUGrfb7CRHwSPdp4SozWQ4WNJYV+Br8m
kKNHUnHkLyosmvP6ry5tApXUtFEdJqnw90eZvaHEBFrq4s6V5FEh+z6+/1rP
OPL4I6hFAio4ZvUGi5SMI8VV8mdWTVOhd8Eqi71u4ygozvb7rCgNjBbG0w8/
HUM6lp8zs+g0MJDLou/BRlFs/8FQR4wGk64KcRX9I6jn3ISt1HIaNClEa/Py
RlB8vpToSTWSubdqwnRH0Li0hYeZDg32x2mtO6U/jIxyurbNr6MBTY32DZ8e
QqlwnFK0kQYfiDX0h8VDyOJE3AdsKw2GnsRru2oOodzmDxrcnTSQvRTmNyQ6
iBYcdxR5sIsGO2yvKS1+OYD2iQx1OZnTgLKkJK7v2ABauEHiarUNDbac1jpT
UNuPPBJ2Tibtp8F8vklO6+lfSMWx8vm2EzTwbdxPeZz+A5nJMPe+C6SBqj9+
ScroBwqoC542D6GBR/qrEwuGelGl/qrt+87QoAcIJRXNXnRY6XpDYDQNMjZ/
m3De8h3dGzkwnJNMg/LR9eeu321Hyuf+suQqyfgQi/XNBG+R2Sa7yuRqGjAU
9lzZwylFAZN57straKBQ5O90eKIYVbq65K2up0H4kovgJZ2PDhvXbNnVTup/
8fHbRzcf/J50gv25ERqkLl8b/lmjAle+pxM3KEuH8gJ7dkNJJ36s47hJtgId
pH/b3lLo/4oXLn0o6kqlw1DNxp+hst/wbWew8K8YHerkT2v+de/Gnewlgz6t
pMPz+tMX0/1/4DfFfx14vo0OYZw7qUo/+vFOfTbDfzsd8ibtrhz2GsCXBzp1
aBnR4YztzpKn3AE8v6fR9oEpHWzVjC7kzg7idS/LTJLt6fAthOYtIjKCLzie
tDbci7QXUNhb/3kcN81sntjqQ4dRtQuGqdsn8OtfpPL++NEhZK+btP7TCZxl
FKUeEEyH9vm0cOvLk7gedoLhHkGHmW7JTqWbHPy8XV6H0gU6XNaPrayq5OAf
Lg0mdEfTwc/86s0oHgd3mDqwzPEyHW5ZS/XPWHLxgM9mYuaJdNgr7Dq18DcX
fyUWUymRTIc/XxTvy7N4uJB+RXh1Cnk+8o5S2w4eHp+jO22QSYeJ1Qe8Vl7h
4W3dASXTWXSItj7raZnPw5kK+UElD+hQc6TncXkDD889rzqpk0eHm1u21R1b
zMe5JYfyxvPpcGla4fzICj6+eeLOsdyndEgeka6T3MHHw1Xb1Y8W0UEvUz79
gTMff+8k80ulhA7uCpHFz4L4uNQNi8zeV3Q4/Ov1Ro3LfNy+5uLBtDd0eC29
PGd5Bh/vW/+vQ7GSDmv1S9vF3/Nx+fkXje+r6dBQn9+d2M7Hd9b5fAipoYO9
8Qz1bj8fD0lQK1evowNL/7OpGp+P57h8L2mvp4NhtIey8Twf/6qZUBDzmQ5r
WA6X5CQF+JLfFg83NdMhoEvVP05OgG+rFL070EqHja3pazMZAtzv6pvExC90
8JyZ/bNGWYBnOAbFG3+lQ9Aedo/wCgHerKIVM/WN9E/aN5yqIcBFJ3+ee9BD
B+31ivtrNAX4ptKUYIc+OuhssHtipyXAPaPtfMT7yfNVFwySyPfJNovdiwfp
8O6skK3ZKgFex6hy9hihQ2JXxScLNQE+OxBqrzhOBw05h/qHbAGu/WydxftJ
sl6XYV4nqAL80LmRHSE8OrQlzIb2Swvw67vubVUnyHzVzP/AxQV4pZzT+vbf
dCgNpR7dN8PHBd0ymjHTdLj6Z3B5zQQfV8utVd40R4clH5bNHO7l4w7B5+kD
83T4EFm+JaGRj8fCFtnEBQx4pVzkVo74eOli7iJjMQYscvzqmfeEj4+25whP
STBgrLayoT+Zj1v5ULl7pBigm9bV+8WHj0dsbhwSW8Yg/x/Pe70d+Pgzkdje
F7IMcOnXbb1lwMcV7vz+rEBlgKyt2/ZhMT5u7F5Q847OAM9hfv/FIR5+Suco
CsYYkHGDlllbx8O/vW/Pb1NmwDaVWomncTx86c34B9FqDGBtFKelHuXh+AHj
9I0rGbC24FvXT0Mefo//4mrCagZ8MpBp3TTFxVvf+kTv1GFA1pm7pX8auLhY
nNo5Yh0Dqv22b8EecnHP5QneezYzwL7Bx1HZnotrWwaZK+xgQFWan99AKgd3
oWrteLeTAcO2MaFxPhxyz/mpF7yLAdPqI5sCt3JwwWk7jTZLUs+5M/3XH07i
rx+sW5TgyIC+dj93m/lxfJcQ9728L6lHK1LlP7sR3Gws4FKiPwNEhr/cse8e
xi06BObUQAbk/U5zcvIaxm0K/zQyTjGA7hYlZXF+CHd0EepSjmSAg7nHSq9b
A7hnufSkTiIDMjetaTe/3YfHRmhTLN+S+jP+njpu3YrHeRd2NpQzgL1yQdiK
zS34Fcd1qTZVDJBP9CvuYzfj13U2Kdl/YICi/Wr7muHP+O1eA839zQwI+GMS
mBRUg+eAJX5sgAGHVpUL14Y9wmuEvI9GL2UCJzVS2uRnLRo69nmHgQwTxP4l
W0aL1yPJlnXLCTkmdLatlhVe2YAs7v/tOEJjwuIz1gMfVjehRtOLZkaqTLBw
WTzLYLahjpv3VovoMYHX3BpfueQ7+jsjJvlanwkrmze12s99R3T3YwMBOBMK
dvvncAa7kbOuzt0+IyZ4CW6fbHXuRb1dZcsqrZnQv7FPNHNdHxpS7eRHuDPh
IuNAvXxUP1oUr9+42ZMJb4dTjUy5/Ujj9908jhcT1gjfsAlxHEDetR7uLv5M
6OlrKteSG0QcH0E7foYJC59vCd51agj9KZYu/XedCX3HlDhP1EYRbXlgYvF/
TJBb1uzofXYU6V1qD/BNZALX2kuC9mkUnd2fptmdwoT7K3OTUo+PISEhzbSy
B0zI6BZqOp81jhaaGkecfcOELW/1HAoryftOc+AKccSExtnLTxjzk2jUObPh
WgUTEhpa6h+yOKjBf5aZ9Z4JlzgeEvfsOOi/289e1TYyIdPB9dGplxwUpdzr
YtfCBO35vX/72zkoJE9q4fc2JlgnLGUdFnDQ0U1bCzw6mKC0NzDeRpqLHMs9
HThfmfApzOFE5kry/mqWOHf6OxOelJkou2znoq2tVdkivUxYvZov+ORI3mcP
cs2v9jEh4sD3S3Y+XMQaYvEV+8l8Fl+Qp5H372UBFncyBpkg893jj+oNLhKe
Pb1dY4QJE6zhdSoPuIgX/XDo+RgT7gldvJPxhot+SbddM5hkQuyMNLrRRO4X
upe1jvxlwjKw/uZEJ/e5ipct4zNM2LfcC8/X5qGr5gOhJ/8xId0jpPobuZ+F
tckpCwtjsCE0Kom+j4f8D22vjRPBwE5i9FmSDw+5Dvv6y4tjYPAE2/aQ3B9t
A1Mp6QsxUA2xMsm7wUNGc7VvVyzGQF/o8ZsJcj/dePG3+1MpDMI6eUOdBTyk
LqMmtXUZBhrD0pGvELlvpdgWVctiQFkWu7SgkYcWqUXst1LAYEvoy4qAPh6a
zn+yoIOCwZtCeXlVAbn/be565ErHoNLyS8hiUT76Xrlw9ygTg6as/5Ibl/FR
g8WmP0FsDBpeyr1mMvmovN3t7j8lDBQ/uks3reSjZy43jGNVMejediC/X5eP
skbejsuswKCmwrmIa8xHt4LGbqWswmDdrynvc3Z8FPOPpq+mhcE/kyGB4AAf
Wag3dphvwqBrrdgKpXg+2lY4F962GYORqelDLSl8tEZPc8WhrRgozIRdQ4/4
aHm1Y8OQAem/dZlYZgkfyVrFBAcABqlfFyhdq+YjkY7nzFlDDBITf2ae/cxH
AtcfVdE7MSDEO9Zf6+CjL8H6sslmGDxEz2X/jfLRh/ljr5QtMbAcdHY785uP
Si8lueRZY/AqhvcvcoEAPZZ7J7HJFgOPzDlvlSUClJrGy0f2GHD37YvukBeg
+BXLHUz3YvBZ6vhhW0yAwp9azjXvw2DpzzthD9QE6PC7HPOBgxho4fFH+esF
aNsv29VurhjkLVF4zdYTILrI3NJeNww6YzgaktsFaErpIcfZA4MVUjXiNqYC
1Ay7mzs9MfjR6zpwwFaA8g/NPHc4joHVaFKC334Bigu7n9Dig4FoZlvqoiMC
ZPjmr+OnAAwmyziWXoECxOrK0jMLxmBPcGmZc6gATf+1ZNacxGD1uxViDucF
6JnuvZ7ysxgU+q/bp3Wd1ONgUWEQjsGuubZSjyQB8gqeuld6HoNz/j47FdMF
SPm5mUdRDAZD67vyvXIF6F+TwGTtJQz2XbLab1koQF856avyL2Mghblsr3kh
QMXSpos14zF4MWJTl1QqQDe1+WMPr2Nwn290/MtbAVqQmxKYcgeDGf66icVN
AtT9YeceahoGzc/3H7RsE6DSwclNCXcxsFXOOpncKUCJ4neosvdIvVlVGxu6
BShAzWg6PhsDau8+13P9AmRlNNG1+CFp70IKXjUmQBput8tiH2EgKVqgbcYX
IPFIw7tieWR9bb0rueKPAPVljEVE5mPgaDf14vOMAL1FiYfnCzE4obn2wYJ5
AbrTDUZnn2NwKcuEe2ABgULmRtT+vsDAKaNx9xpxAtkyEyRCXpL9GNW8/aUk
gbS34sO8UjIehFnOqDSBJJ2G6/zKMDDrwE9gCgQaOPVf3hjCYD5K8X48jUCV
SQbxxyoxCGVrjhJMAqUXD/oNVJP5ttJL+MEmUGjbjd1uNRgwz/YdmVImkINg
6/reWlJfC/f0KXUCrZMbkD9QT+arzWu3sAaB7sXHp9i0Y+COuvUObyRQ2JPN
5z51YBBYwpl33kIgp/q+g2ZdZDwCXll4GxBo0+gVqPmOAf5156fXQCBZSV1l
o14Mfm5oixw0JNDEyh8iFX0YeObtnb1jRKA6k8v9Bv0YlFrE78o1JtADj401
pYMYVOTquCebEigyuidHdwSDhMncCJ4FgQ5mX4orGsNgUU0+d6kNgfSq1nuv
ncTgo3Mo84QtgRT7vlvmczGY8HZxsLEnEE8odo2mgJwfl0eOKjgQ6PBZnWLW
P7JeXk9Vtxwk0AHqm6dNQixoPn2wWcaVQI5FJk+iRFjw5rnhAWc3AlmNHcwe
WcgCc5+6qmxPApnGjtxNW8wC10Y9hfvHCWSkGpJis5Q876Pn3eRLILxcOElE
hgVxTksfDp8g/XO+erNYjgWfdjKfXAki0MY/1Phjiiz4tTf10ZEQAuncyr7E
pLHAsy7sW+FJAmnq6ER/ZrAgZterevnTBFKvfx0RyWLBUreJJo0zBFLyNDm7
UYkFPZFmc7/OEYgp2nJySIUFtwsl/hZFEIiScTAwRZ0FRo13v0pdIOOvP+Jr
tYoFNvqPfL5EEUiqI9hLWIsFz1x9Q31iCLQwSNijSJsFvUEerWtiCSSy7Krr
0bUsaDpS+QriCPTvMfUAfQML/lhUzh+9QqC/JtmOnzaxIOFuhI5HPIEEP9fY
R2xhgeOYprfidQJNhr+2Xq/Pgu0rKzJu3SDQCMPEfGAbC0YOvwwW/49A/SXN
xsnbWYAEBC/mFoF67Q4aWhix4MU/q4j5BAJ1TQ4bzBuzIPf+DXnzJAK1Xw7e
8syUBVbFNe/NbhOoaiZrRZg9CzI1Jm58TCPQ26Q1Kmv3sqB6s+O1+bsEKl3/
mvVrHwsmK69u+5FJoBefjelJziywqN3txsoiUOHxZgWzQyxoOFU6OkfyY4mD
MnOuLFh0PduVn03WX9bwksIjLIiYP4T5PCBQJh680O0oC2Trvht45hAotUtI
VNGLBXoZsvUhuQRKOnll/oM3+f38nl3qeQS6KUedOePHgjNJT9JXPSHQ1YKs
Ke0AFpTcjkgvIjnWfA3vRxAL2K/WfFLMJ9CFwdLxWydZ0NpubJpGctgF42GT
UBbse78DuRQQ6DS7+df0WRb4dF+7vKuQQEGvD/Q+CWfBSpsZeb2nBFI9Q0n+
nssCzseoHferCMTR9Tl0+AkLjvGeRtdWE+i1oFJtsIAFu8tq/cTfEyjmKXXs
+DMWSMyOT22tIeeNr+8zThELlvgnPTb7QCCWZvWp4BIWjB3tmlhVS6DhQRo+
/YoFhySHOsdIjnB991EEsUDrvPGo/0cyXyaB/1a1sGB+vR8R3EzGT7S2Or+N
BTlrPg5tbiFQQAXr8voOFmytnn8u2UrW29Y6isF3Fnzs2DBe30bOC22ltTaD
LPigrv9eupOMn/xnt5AZFvBbg+S0esh+b1LVmJljQZnvUUY3yaviQznhQmzY
qzcQG9VLoHIJ9XOXxNhwJ/L57sofBBqfPpuYKs2GudhV4Wd+EehlSbOzkiwb
XjWN79zWT6CooJUqD+TZEBgyPiQ+QCD6REtBAY0N92JlvbMHCbTrh0ZtpQob
fh7/0D42QiD59IhrJupsOCefcaJ0lEA9Tu176leywTR4ojJyjEC5FC3mbk02
pKExdcNxcp63nu9rW82GsrkNXQKSDW98yXHSYYN3UiojaYLsP6vVfj3r2HDF
1EFZbZJAHZIXNh7ZyIZP45N7UkjOrumYGdJlw7ZDIWkzJPtHaVf66LHhCe+p
mRWHQFu3R8Xy9NmQKXZWOpVk8X+dVidxNpj93JA5TnJz6RqF2e1s+KhY8dKc
S6C0k9FdEUZsyLNZugyR7LmhK1PMhA2yEaNeFjwCbeDqeMaZknq2ViZNkDz/
JEZb2oINv9+c7Eznk/2LMrjdVmygSZsIjgsI1NpUWpS/m7Svcu3DZoLsv5+t
J8Ps2WCizRiaITmHmNCz2suG/auuLnkyReZTYtE/zIkNua9d/pj/JtA5mkrF
uDMb6BcqPnWRbGuw1+TqYTY8OGvd/PUPgfStT0gecGeDnesKe5u/5PxzvfxJ
y5MNW5ymD1eRvCzw/vVZLzb4pPtyNk0TaCYK2dX7sGFU51DuE5IHEjsVU/3Z
cHS+Y6vGDIEac/idxwPZsIOzYXcBydn1K1wWn2aD8IZy9H2WzPfohxsSD9iQ
sf6o0Zz4FFo312f/JYcNY1OHOg5ITCGm9Bzl4WM2vDCfuFJBMnfd2nTjp2x4
w64NSV44hb4ZmbsqFrGhRP5eotSiKfTewV11oJiMz0nR6hiS74Qm50a/YYPF
L1/aRckpFHXluc8exIZpNY1cqcVTyDf9k45aJRtCElpot0neUSlcUl1D1odT
j3vJkik0tsirSqSFDZsfbpBQlJ5C7YyomJY2Njzj8dKfkly+Ot00q4MNAeNG
yHLZFErY3fzZsJsNYk3syGiZKbQtWe/b+WGy/j5aHvglN4VWPra/u3vs//HC
LgfLTyG5Mt/DSpNsOD7+w1NEYQoN9d4bKhewQaP4qoyi4hRq5r15fP03mR+R
03YpJL8R/eLrMk360zu3mkWZQg8UuWt15thQenXkWzrJN1YuJubnyXyra6Zi
1Cn0PwSPclc=
       "]]},
     Annotation[#, "Charting`Private`Tag$451837#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -2.995732273553991},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox["c", 16, StripOnInput -> False], TraditionalForm], None}, {
    None, None}},
  FrameStyle->GrayLevel[0],
  FrameTicks->{{{{-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0, 
       FormBox["1", TraditionalForm]}}, {}}, {{{0, 
       FormBox["0", TraditionalForm]}, {2, 
       FormBox["2", TraditionalForm]}, {4, 
       FormBox["4", TraditionalForm]}, {6, 
       FormBox["6", TraditionalForm]}, {8, 
       FormBox["8", TraditionalForm]}}, {}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{371.24999999996305`, Automatic},
  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.2, 8.2}, {-2.995732273553991, 
      Log[4]}}, {{-0.2, 8.2}, {-2.995732273553991, 1.3862943611198906`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  RotateLabel->False,
  Ticks->{Automatic, Quiet[
     Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }]], "Output",
 CellChangeTimes->{
  3.802176471458942*^9, {3.802176537825046*^9, 3.8021765812592583`*^9}, 
   3.802177653040785*^9, 3.802177720093027*^9, 3.8023536087086897`*^9, 
   3.80235375947283*^9, 3.8025545288135567`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"418904c2-3867-4abc-9f50-70af35b92fcd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Rho]Plot", "=", 
  RowBox[{"ListLogPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Rho]12", ",", "\[Rho]16", ",", "\[Rho]20"}], "}"}], ",", 
    RowBox[{"Joined", "->", "True"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\[Beta]", ",", "16"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         SubscriptBox["\[Rho]", "0"], ",", "16"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "colors"}], ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{".001", ",", ".01", ",", ".1"}], "}"}], ",", "None"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8"}], "}"}], ",", 
         "None"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "8.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.0005", ",", "0.5"}], "}"}]}], "}"}]}]}], "]"}]}]], "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}, {3.79346111660496*^9, 3.793461171994597*^9}, {
   3.793462039441681*^9, 3.793462057865758*^9}, {3.7934625448030577`*^9, 
   3.793462557481504*^9}, {3.793463868489814*^9, 3.793463886376687*^9}, {
   3.793464001191711*^9, 3.793464012808115*^9}, {3.801995680724104*^9, 
   3.801995685414912*^9}, {3.802088044271686*^9, 3.802088143824456*^9}, {
   3.8020882136260347`*^9, 3.802088369761056*^9}, {3.8020885427596397`*^9, 
   3.8020886330439043`*^9}, {3.802088666259138*^9, 3.8020886692165737`*^9}, 
   3.8020887903319807`*^9, {3.802107154674386*^9, 3.802107220497456*^9}, {
   3.802107467370481*^9, 3.8021074715983543`*^9}, {3.8021145075699663`*^9, 
   3.802114510857387*^9}, {3.8021151115319757`*^9, 3.8021151251524754`*^9}, {
   3.802119993324555*^9, 3.802119994017742*^9}, {3.802120304178557*^9, 
   3.802120309718081*^9}, {3.8021205412757673`*^9, 3.802120579192766*^9}, {
   3.802120942530304*^9, 3.802120946371635*^9}, {3.8021214142463408`*^9, 
   3.80212142310493*^9}, {3.8021218825568123`*^9, 3.802121922087904*^9}, {
   3.8021236760749817`*^9, 3.802123683898315*^9}, {3.8021238427254877`*^9, 
   3.80212384295257*^9}, {3.802123892359234*^9, 3.802123896945738*^9}, {
   3.80212443436276*^9, 3.8021244537138844`*^9}, {3.8021709261303883`*^9, 
   3.802171066377483*^9}, {3.802175860037815*^9, 3.802175862027673*^9}, {
   3.8021763298857193`*^9, 3.802176374541358*^9}, {3.802176436859355*^9, 
   3.8021764416394053`*^9}, {3.802176487694611*^9, 3.8021764909031878`*^9}, {
   3.802176588015765*^9, 3.8021765911996098`*^9}, {3.802177462202373*^9, 
   3.8021775233109207`*^9}, {3.80217767767203*^9, 3.802177699668241*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"19ba1574-8da8-420d-80f7-17a4f14ec9e1"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QQu+yFib1JlAgAAAEwAAAACAAAA/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
QBqekmbn3x3AWMXt6m2OIEDeRm/5UmcewAP+SAM=
       "]]}, 
     {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwlkmlUUwcahkOgoGRPSO5NaFhiSiuiBaqgYr0fKlS0FCXIah0CKhRGQUGs
gmL0KIvYKVWLCyJFK+BWMGBLRO8HVaYujASB4iCiQGhhQIgKhi3WnvnxnufP
c55fr3NMUvAmJoPB2PBuf3Oq3NgcGLOGqg84M+fW9Au6I2loRcDKyxQzeaku
//owva3B/cP4o3cpl81Ur3/zCD1w9IladLKVSvDxuvtrrZFuc1STFb1d1CXx
w+DChy/pkFLLiKArBmrXI9mJWsZruk22asivqp8aXZW38k3La7qmXNOX8mKI
mjPcqVRfH6W3j/P6f/7YSLUfS9y98/wY3cx4ypyZ+4qqftB45ErRG3qZi3QR
a3KU6qvJz1afM9FbD9mPjKtNlHIkzXLw3Dj9t+3YM0EpqAsj1RUTdM/Fa8O5
0dNUiSo2yrV2kvbxYhp15rdUqftCmVXbFH2TvJeTts4CHpZU21ePTdPZ+5aX
BWuZID13XXNM/pZO3xyw75TMCk4e4DYOujDwjO5lRFHWe5BjWFs8Ws/AMGfD
h61maygbGAvNibHA1kFNaHT2DJgUhh/isJgYNWP7mnq2LUzkRQh2VDLx819H
BB4/siDcO+9nhdoSXXu64tYv5EDABxsn83lWWOHUGD6/kwtxvFmzBu9Y4VKt
EgID+eD/p3lXQ/Z7mO5xTDTkKoDIs7rjWQHWuHDu1/owvhDKJjROlnY26JP8
n+xmsxDk9a2H3fts8DnraPl+owisBrIMFbdm4IFzva2LGuwgPtHJa7lmJn6V
alP5ySYxxJYeDDoit8XpsR3PCvViaA3+NufIUVtsMZ7Q3CMlkNCkjdkyZIsz
n+sbBKslkDgR7jnmycIgB0lCYIoEBKVPzN4pLHQffXVBcVwCQf3zuS8us/B5
5pzHlZUScLvgxmL2srCx9/SWrQ8kEGJ7Rx9jz0ZJ1if0qR4JOIoY6o4gNsZ0
lDywHpdAqPZjb8UhNlZY/pH3EYeADY8bd12qYaP8X9KyPEcCyiJveK4eZKM5
+lnNG3cCDjeWi62cOajS2kRqfAkwqN7eSAzh4O1jK0sK1hJgaVCWDuVycN1k
6pLN0QS4JGRfY9ZxMHX2VdfJrQQo+rJC3zdxMOrkyOrpDALInVc3FrtxUX91
2b2gXAIKZ3jHP4vh4r7obxzoAgKa1de7LU5z8YvMsVl+5wlQ+TikfdrGxYub
EvfkVxCw3OO/e1+yedj4Ux+jrpaATtNB++LPeMgV90wF/kaA3mCTfzyTh5Kn
BsWtRwTAPnlGWS0PLdyLfJd3ETCsasrLNfGwqYmquzNAgHVxTeoCez4K7aiG
J6MEiNnKdNKHj2V5mWe3WZBQUFdg8VEUHxXP+Bdb2CScYYw5vkrnY6w+Nc2T
JEE9d++82Wf4eL6+fdm3s0hoUq7f7ox8NGiX8F7MI8F1yju6rJuPVb+l3Tq7
mIRkp8wwrY0ABdJQo78/CQbdzc5+NwEu8G3Zwwgm4Y/UrOSbKgFaWaW8Nn1J
QkCTruqXXQKs9jbVb0wgoTBqcmNmiQCLbHbGDaWRsEqzmDN5X4CdJ4oqbh8g
IVb3OiTTJEAz10+zNJ+EhCG7HP8PhOh48H9rfykiIb7QsNhWJcT1Tr7G2Msk
DIe9TQrfL8TBQ1sOe95415u/LcCmSohNe89ns++TkNGuDN3WL8Rl0YYmRQcJ
WZEFHmwHESrbulWMQRJ2mBb+fmedCCM6Bxb1T5Ow8sk3IZzvRNj9013ZKF8K
7DrzS99GEY52/K5JcZGCaBP1YxLPDlN0bi5elBT+vUXbNRVph9oNbMOKKCkE
zzvod/KKHe72urQ0LF0Kp9ubz7pbi///vx+kEJ0GTmvjxNjrYXnc+FAKESU7
HsS3iHG3Kt82liWDqrmH0/eskaD8071Jj/4hg4wMr6+c+yVYWSo3nxqUAe2n
316sI9BiTF8+p8seeocr3RTdJK5eUvzPewvksP/V44Kwz2X45/6J7xfddACl
l3fJeLs9Opbo5bfnOcFEd9WKkGQ5Gq/dL5p9xQme+ieNB8c54F8r+cBc
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwlV3k41G0XlrJUZhjGzPy2GZSQyitLKDkpSyHeitKmtCBrSqVFC4pCaQ8V
RSSkaFWcUERRRCq0ML1EliwJ8U1ffzzXcz1/PNc55z7n3Ofc6u7+SzZJS0lJ
9UjOn3v4eneVg7uThXGHHWdpckeBXLzZ8aOjtRZ37wSQerndBdvPFbtyjD5b
aE3ixpW3/ygwtw7+Ks4WW0SpPa92/9BT4HTtdbN7VJtFY8rdsUFSfQUzn5e6
1lX3WVTGqnKGXQYKnB2UgkQwBk63FIWcvPi7YChWY2bGl/HwZurjqbuCpLF1
ir58Rj0bvOjvBS8vjMM209Z9Tboc8DJM2ZdEy6L2/RX/hl5XhpesARfvTXLo
O1q26FSVCmxxECtlessjW7Vp2EFeFeJqNBI/BY9HkySlMUe6eLBSc49x87SJ
yPvn4Kqd1XxQWq1le/nnREz5GX3TXEUARMyBaZ91FXAWiavU5gnAuW3ybfEK
BeRvMi6dvEEAXsxRK7ldCpj+pv2gywEBJIqbuVJnFPD18hObp8UJ4KR8SvW6
6wqYGnu27MMtAazqvWJcVaiAa47eKMsvF4D9qeyuX+8UsH8/u0csFoDyxplW
t3oUUPrNm9t3RgQwX11u+cEJLOQ0J4Zd4BFw3MbX5KAmC09FJYSbTyegpz0r
ecFcFiYX1lmemE+A35rLC7Y5s1Dh26qv210J0N+7qo7nw8Js85zJ4EtAx5VG
E+cIFrp6LZnwcB8BdHVlVFQCC0+2bOKWRxOgY1lfHJXNQh2L6/2t5wmwnGlp
bVjMwogNa+qtrxKgLl6So1DLQvU5703cMwm46hlm7/OJhQd3rSlYd4+A4cW/
qbAeFo7cO8lQTwjY+rP1RqgMG6cYi94eLiNA5J0RPcRlY8O8dvukagLmtzow
flpsvFU8tuxaPQGl+gpql4zZ+D5jcLWvmICHsMa+3ZaN5QM/CX4HAeGpFyc3
rmPjZVflxGv9BPw+/ciUG8RG6UcyytxRAt7tMCzcGMVGSTZ7lsmRcGD+44nK
l9h447/kn9GKJExOkl/QnMPGBxGdxRl8EnbcCVBcXsbGwHodJkNEwnv9xtEb
YjbapmbtPatFAg3JFc9/spEx8VjgpUfCsur8XieOIr5tmFOjPouEDwG7jDbO
UMTZARURVXNJGKnQSu5epIiPgtPn+1mTcKFbw0GwRRFdB1/J9DmQsHZFRBAe
U0RPmcMZfs4k7KxwN/95TRGzTRJ+1awmYZKo+WJdmSJeXeHnZbSRhLtp233i
2hQxp/Pop/3eJGiNWn1QHa+EhhzjOY8DSVBbZzcxkVbCjpWWc1uCSeh5o6ya
OkMJZ33qKZI/SILNxnGyMqCEPzoNZtARJBzcr5nNc1VCs9kErXmchC4D6NXy
VcLE37Yc4iwJuYP/mS0IVcKdi+TaRhNIiPLYa56SoIQNVVts66+SkJixaNbB
W0r43eZoaXa6JB5nR/VF5Uq49Kx6TNAtEr6Hmb3Z1qyEU/1tTKbfJyE1eo/M
jWElfC62SP6YT8KhrqJ/cggO6g1OqIp6SkKQlMZZFwMOwp+GfyHBT8EtTWkp
Bz/Oyu9/UUVC1ufNo/I+HOwc2XVz5TsSNIel0q8e5WDJBtmpTR9JmC7d8uNb
JgdD+ftkvL6S4JPapFFezkENUlJh7STo3nTLTvzGQZ/xvxI9eki4sm6r29OJ
ynh3gCvV9EtijxMw67SuMsZMqv2yVIqCAQX5TCN7ZZze7nWkQJaC+HKjyM5t
ynhqyavvmiwK2JVTU3bHKuMTl/G8IyoUkDVeGgG5ylh1XfeymKAgIcrnRP47
Zdxq0nPDVI2CTp/ltocHlbFuY/TuiCkUmBYpXY8XqaDsHwCmUVByt0e7wkoF
h86aruEZUDBk7XRw5mYVvJdgt9XZlIJ9TO3565EqaAb/2By3oKBjmeVUUZYK
er56ZfHEioKQtpVWO+tUEBymr2qzo+AH18jFfFgFibLIHapLKJA5MM/WUMTF
buuvsRYrJP7cO/f+GHAxKHukcv1aChzNlLPHenCx3lPK/+BGCtyaN2/3PMpF
typB5tUtFFAh24dOp3IxWvs7Kz+AgilXI2OSKriYF/LEr24HBWf2q1OxP7jY
+uZM5Y+9FET5xesU81RxKHhp7IRQCgxYLUUuZqpY/aiJy0RSEKbWtmHUVRUz
Rred1ztOgebXkPVSe1XRM/b7XoszkniL9hzQuqyK8oFOhfbxFHSL4yPHoSqm
LcmRW5lEQb/N2Kc+YlWcdmg0c2MqBUExyrUWo6q4w1HI25JJwcv3xm4MzcMn
tHmIfw4FpX20i7UhDztNrGwCH1Cwxz6u74sbD8ckG28NLKDgrZP71fZdPFRR
1I4PfErBjbiEhfbxPNTcTTwNLJfgt/i7u/AuD0nDXseA1xQ020nfPf6Ghz1z
7s/2fksBP+79AKeFhy+s9mptbqCg/rLMSwNZPqYsBpX1TRTciR730FCNj3cf
6Juvb6Vgx7Ha90/N+CiuMZXd2EnBalNdpUJHPqr8mFe5uY+C1z8qutvW87Fy
YSflNiTxpw5X54XwMSopwXP5GBrudIS7RZ7lo+2vhXcc5WjYVf7fzUmpfFSX
ZictYtEQJv+roiifj3/ay0qFBhY1K6W9mo9dErabT9BApPEViHaJ/ZAjV0BE
Q1vUibdeA3zMP2IXM1uThkot67T7HAHmzJtCmOrS0J/bNjVUJMCnku+m+jT8
OjKQzjMS4Fv+eF/TWTTU9Gvb+VkKsOXQ4FlTcxqmxfP8YpcLcPB7G5rOp4Ht
ZvvP3k0CVHBt+Ga6kIbOIp+Gmj0CNAsS58xxpOHHgkLV4mjB3/w703BiU/fI
3DMC3D3ceM1iFQ3ZgStlHycLME3wn7/lehrMuUfSxuYK8GFo3QVLDxrsajSq
bUsFf+P3peG4BvtHeY0AIw7MT1uyjYZj0cGB3Y2Cv/wRTMO9YMPzNu0CPP7x
Q6/Hfom/Ghn2Sb8EqIdzzYLCaVgR3T7grEBg+7/3heHHaJiQOnjOhCEwrUl/
7JlYGuLkq8p81Im/8+OcBN/RurA5OgS2NBZpllykofu2h6HmLAIXn3ta/PUq
DTMWPOv4bENglVSj9Ph0GsZ6TjjmsIhA0wcfk7SzaQidY3LoiyuBddXs/Q53
abAOYW94uo7AW07ecTsf0XA4Z7P4sT+B10IalyUX0vAsX5jmFUTgvTWeWdWl
NORO5xq/CiVQ+rLIWr6ShuL38utSYoi/eNZIppepUdhIFIHyX1u693ygoUHv
22f1NAKL2wZl8j7T0PVCzNJOJjDhyqQHw/9J8v/SPXZlFoFZeZIB1kFDim9v
u1MBgR/Cv5pF99LgcoBzX6aIQMvbB8bXD9Lg6T11zbxSAke6196ZOYaBUYPt
Pf2vCew5teVyjBwD+c9GLkS9JVDt/NWSThYDVoaWbd7NBF69qfZyBZeBBP/M
amgn0E2nXKmEZOD+cXFEUAeBUR4SglNnQFbhjbNgHIm1Lu16eVoMbAotinkk
RWKQq73P3BkMLGhLmaQ1gUQv/67w54YMOE5esi+HT/7tn9kMFNdcr5pNkeh3
mOr6NY+BkDzFsTc0SbTWDJKOs2Ugp5U9gNoknojQiV3gyEDk1gMlSUYkeqx3
nD3szIBe+/1VTQYknnZ4UJi3moHsFeHnL9uQyHPw0ArdwIBmWaX9HScS7/zW
1XXYwsD6oa1N9stJfBpod0N9KwMRJQtf960gUXcoS35kJwNGF1SfGXiRmOnX
l9AbwsDd4xz7Cn8SE6+dzewLZ2DHtQSrkd0ktnbviR+JYsDtUGF+bjCJizt2
ak84zYBv0qf0wEMkat6s0FeLZ6AnuvVjYSSJn/LZCQZXGLgS5aWuH0Oi9gJU
X3adAW+HE+Ipl0jcOnauRVQ2A2G3lY2srpB4UTJe3t1jILMjfM2+dBK3PZw2
xbhAguelwvSQPBIXbsiNSX8miZ9ntPhSAYmuknVkcgUDWrt+Pi58TKLev4+N
smsk/ljd4g6Vkqgu6vVxaWDArtl2X+5rEu0dV3wZI2bAcCCOqGkgUePaAuXH
7QyIBCymqZ5EbotK8MleBmwu9D1a1EriyzGHTHcPM2AaXRcxdZBEh56YpdvH
CcFo96SPun0k3vL9d3OoghBU+a7aM8ZReGVN+OnLXMnbtWvuF1kKd9b65b2i
hVBq/el3gDKF9kVdHH1NIbDLaxcHCSlsedLgmjddCEPTPrXbMxT2hWkKnYyF
MOFs7lR9DQrFrzQ+/JorhNHMANXEmRRenHEs8qWNEFo81yLfhsJo9wcpNU5C
ONQ7EDa4hMKJfwpopRD0FtlExEve/+e7DUJw10+U93Sj8HS/rNt5HyF06Gee
3+pN4aMst2xqhxCK1n7+phtIYYmO2cny/UIozHphs8WfwvUxwoJ7kUKIaKid
eSmawv/ro1NCuPlqtKY9jMKsS6caZ10SwvNBWd1TpynUWX28sC9NCNR8Orn7
IoXe3TpSz3KEEP7xwsrftyjMNNSRacgXgsvNpC/4lMLXWZZljmVC0NnjOuNl
CYV238YZcmqFcMWaKG0oo/D/+u6LEOIXbtezaqRQuvthyJMOISStu+2p+JHC
ti/GJA4JYVew67mL3RS6h3V5NsmLIB+yK2Es/Xcf5ovAd9GltXvG0ZjvsL9/
kqYI6is54r0aNP6hV7GBCN6NUaUPzqBRIu6iX8wXgWkYyy3AhEbJNtyXsEwE
le+aNpbZ0cgpeXg/erMIduV83W7tTmPn1+vsB8Ei6LCNPmcURCNteSbO/IQI
nL3TbE+E03/1RboIlowKfP6JozGhvtOJWyqCwAOngmse0Ph6tUSBfRNBl3JR
7oVmGpV2G9+YK6cGv133B9VJMSi68popFqqBXeO+/nR9BrUVJ965ZqoGAe5a
O0o2MDg8FDVRzl0NUrrrFN/fYnCN08eZqfFqwHufMS1VT4hWl7bsC8tTg0Zr
/19LPIT4P3az6PY=
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, 
     {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, 
     {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}}, {
     {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, 
     {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, 
     {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
     {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, 
     {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, 
     {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[
      1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -7.600902459542082},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox[
       SubscriptBox["\[Rho]", "0"], 16, StripOnInput -> False], 
      TraditionalForm], None}, {
     FormBox[
      StyleBox["\[Beta]", 16, StripOnInput -> False], TraditionalForm], None}},
  FrameStyle->GrayLevel[0],
  FrameTicks->{{{{-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}}, {}}, {{{0, 
       FormBox["0", TraditionalForm]}, {2, 
       FormBox["2", TraditionalForm]}, {4, 
       FormBox["4", TraditionalForm]}, {6, 
       FormBox["6", TraditionalForm]}, {8, 
       FormBox["8", TraditionalForm]}}, None}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.2, 8.2}, {-7.600902459542082, -0.6931471805599453}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  RotateLabel->False,
  Ticks->{Automatic, 
    Charting`ScaledTicks[{Log, Exp}]}]], "Output",
 CellChangeTimes->{
  3.793463886647957*^9, {3.793464003662573*^9, 3.793464013272131*^9}, {
   3.8019956706275787`*^9, 3.801995685949774*^9}, {3.8020869242774353`*^9, 
   3.802086931839355*^9}, {3.802088045447991*^9, 3.8020881442540092`*^9}, {
   3.802088215172125*^9, 3.8020882865276203`*^9}, {3.8020883178701353`*^9, 
   3.802088345595327*^9}, 3.802088376774427*^9, 3.802088568224568*^9, {
   3.802088611121944*^9, 3.8020886335692797`*^9}, 3.8020886695878983`*^9, {
   3.802107156099215*^9, 3.802107220950468*^9}, 3.8021074720514717`*^9, 
   3.802114511289742*^9, {3.802115112859208*^9, 3.8021151255889063`*^9}, 
   3.80211999439322*^9, 3.802120310466969*^9, {3.802120543130497*^9, 
   3.8021205794894*^9}, 3.802120946841928*^9, {3.802121415333844*^9, 
   3.802121423777544*^9}, {3.8021218830618753`*^9, 3.8021219225127363`*^9}, 
   3.8021236775727243`*^9, 3.80212378629697*^9, {3.8021238283177013`*^9, 
   3.802123843360074*^9}, {3.80212387819786*^9, 3.8021238976263657`*^9}, {
   3.802124436596198*^9, 3.802124454173592*^9}, 3.802166592314657*^9, {
   3.8021693743024073`*^9, 3.802169448910295*^9}, 3.8021705948196583`*^9, 
   3.8021709696284227`*^9, {3.8021710300512323`*^9, 3.80217106689748*^9}, 
   3.802171099437634*^9, {3.8021714947434587`*^9, 3.802171532277275*^9}, 
   3.802175862524061*^9, {3.802176337883368*^9, 3.8021763749160337`*^9}, 
   3.8021764911718273`*^9, 3.802176592312737*^9, {3.8021774825132113`*^9, 
   3.802177523649211*^9}, 3.8021776536990023`*^9, {3.802177690861484*^9, 
   3.80217772250681*^9}, 3.802353609246464*^9, 3.802353759926162*^9, 
   3.802554529328253*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"703b6729-885f-4b8d-996f-7370b4d419ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c\[Rho]Plot", "=", 
  RowBox[{"GraphicsColumn", "[", 
   RowBox[{"{", 
    RowBox[{"cPlot", ",", "\[Rho]Plot"}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.80217113290844*^9, 3.802171146562332*^9}, {
  3.8021757593645*^9, 3.80217576096896*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"84e35e5b-7f3e-4788-809f-e1b50bd74ed2"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
          LineBox[CompressedData["
1:eJwVV3k41O/XlpRQGMxnMGYmQhJFVFKZU1mylaRNWVIolUKpUJas+fKjIqEI
SbaEJMmxaxEiu1RSiGyz2MI771/Pda5znfvc932e88eRd7ho6cjPx8dnu4SP
7//f1PJDzh6pHGb0Tw/v3VOC5bv5brzmd51i9h5+VOcysbycnLbN31VplrlR
YXdTRuyycjNpiuST3H/MhX8iB7uuCZTTr4bJE+sXmTvOed0/cHNpuZdXaWjT
KB+YzUHn+dv85XGPqx3nNPhhcnhee7Z0SbnO0XAtrcilMMUKKiax+MqVAhOZ
K34JgJOy/doNTL5yA+myvErF5RBjp6241nQRB7Y/krjtKwif1Y6/zpJZwNK6
yM4tVStgTe/Mfm+JeZT8uTN6XF4YhrIcsryE/+Erj60hRl4icN9Yp0tZeg4j
z+/qu/VmJdTGLz+YtGsWB9hCGz5RROF68LPUlzYz6P6rr3fuhBj8uDVX9j1g
GoU9kkSnTooBOcZ3tYvvND7mO6E36SQGqzyFrCe9p7GJ2vpw8JIYPOzpMlq8
PI3qlnUnWgPFgGrm8ULYeRoHy7K6crPFQGvvz45+k2m0jbvcdvKfGAjaGtFC
SNP4RGnpwE9zcfiq7yMn+WAKo4Yq4+5biMNAjM3PlntT6JUTYGJ6UBx2zO6P
iY6aQovN/Ln5R8XBAmjxS0OncFZ/yRX/U+Lwxy7esMKTlz+9yM+4Lg79Yobb
Eg9O4b+UObp1mjiUSxxWiRCewgGnN02rnorD3h1ZBzqXTWGzqndAxTNevyMp
YvJLpvBp/uwvlefi8NnlnVTqFBctK2eyp16LQ+S37taL/Vx8+mNKN6ZRHBw/
9w6vfsvLr2Yfbprl8bHJ5oa5cHHVspsth+bF4V5pd2e4IxffDQladC+Kg8wC
KzzUnot6BVTj3wIk2Nj+a6v7YS6uN9yz/Z8oCX6qfcldtpuLAufvMFTWkMAk
JJpfSZqLRa80Bn1NSdBQEiXQjxx0Syw5vWwfCTxPd8SrlHBQzV//x20LEuwM
WWrpVMjBFJOjXTGHSLD5su9AfQYH//fVtz7LjgT8Dd8lDaI5eGZpY167Bwl+
FBF/v9hzUGb/hesbE0nwd32CgNQsG9l5HWLDj0hwtkC+9vMkGxsk9NPTH5NA
pPGgf9AwGwPaZFtoT3l8X/FnNfSw8Y/NO7WV+ST4rWsCv8vY+Ob8mu+DdSRY
rRZgK+vPRpvbnYYpLBJI4q71S+ZZqDOi/9WGS4JnlNjXx9gslNiX5yEzQ4J7
9pu/PRlmYS0pJDlqgQTegptzpLtYuOGB9uxNIQkgzj+McCpi4eLT/+UcZ0hA
rfQjydjzLHxcYyBFNpWAzV0rpwcaJtGpVP1XlbkEhGUmi76rnkTVAnKRu4UE
mNgIBcaXTGJh8q8jTYckYOYR4xCRPom13kEJ4fYS4PZ939ozPpM4olmjwO8p
AU2t0dYuypOo80hfcyxZAuw/FS5/dnEC5++p8T9KlYCS1+v5Kk5NYGW4VItZ
ugTwvY42/nBkAk2v91/OzJKArMyM8jzmBNpaBRY7FknALcnGJZ9EJzBQuJrZ
81ECaJ0N53ZljmOj555977kS8Pi689ZV2WN4OpIzZDzD03szLObUnTGcffI0
6MOcBGxjJZCTr42hYqvI2498ktB0NSbio/4YXtP6sr5BWBIG53ynRrpHUX78
tFALXRK6cpap2S8bRY+zwdU9hpLQwnoT5mAwgpQT73XHYyXBRJhfVjNgEFeH
5SY91JeCqpa+msQ93zBNb+VqZSNefMq7MoHvG65jn03ONZYCxbNmTzLe9uIm
O6XHuE8KYjLXPBnb2ov6mxNTfhyVAq3jpeEm6l/xzI+wJ0oXpCCj4s29IWo3
vtjmmJUTIwUhb9q9t4m245axyvVb4qTAUXbEJLihDUvSVmeXxUvBqZEj4bOR
bVgt1pPdmCQF5jGWeifE27Dtl2XuxDMpKLnbMkAht+JsNLzYXCYFqsKpGXJr
W3D3H+qrt7+l4Eqo/jvXvw34Qpvrtm1ICgyNys/uuNmAq32b1F4OS0Hou3Tn
RLEGXJAMSskel4KFNhEfsvYnfLNzNCJhVgoE56o6Zm59RO3o8tPXRcmwhp9y
hMt8h6nd8QyOOBlCJ6s+rumqQwnlK12XJMnQeeTyhuHLdThess7ijDQZ3L4+
u22cXYs5/Xe2H1Egg6Im6Dor1KCyjqPE5i1keKEdq/ZZvRJjApif8nTIILjG
4Pb+5goU+CQTqradDE/lL/gHXK3AvpMN82uADKsTOO6rqssxKXzrkIQJGX7R
tS82fSxD6W9C5eM2ZOAfKnb2SniNIev6vc7bk6HnV6Pe8X/FyPUo2zzoQIZT
exZV622LsXWFR9Y3Zx6+VuiMo8orvLOpJ7bBjQzqoSJNzxsKUSQ490J2EBk+
l2vmkFzyMN7cZbdtKBnEfuoJdRU8RxWyMkU8nAwnxzruvLifi/ppD8s9osjw
apl1xNC5bPSp/E9yewIZiGMCb28bZaDw7b2DIw/J8G3WRt3S+CnGHRB4+yiZ
DG8r1cSu70/Hl9+9nfjTyTC17/eunjNpOLrg8vp9HhmcLZq0yxuT0adWOdK7
gAx7ZS5evTeYhMKRfQ7qRWQQT9O6ZKz7CJVp1iuj35Ah78VfzfCpeLTbbmx3
tJYM1jGwU73zHo7yL9MWfs+rL+hfKeJ8F30+lK8o/UiG4y8uCoXMR2PcMZ18
xmeeP5VTo+zQSGy6unbZQDcZvnfxe/p6BqIt82dnXC8ZKtaHpv+jBeDI8qRc
kx9kOGTh2Ruc64srYomjub/J4FnSbz214ImxNs1q9kNkCFO00FT96o6KSpFL
JEbIYLf1y/rVeAF3FS7LujJBhs3Hv2Y6G9pgk3eF71o273/sO8efKrIPbffc
sOrkkuGxX/V8nhcZvZrZ8zv+8fi1982XmB1lrojPax5dIMON4MZHlvIOzNiT
558mLyFAzUkwoKTZmZk//tNCQJCAzMhy4R1qbkwoTlIqEiKAUaXWbhzrwWzw
PT7rvJKADz3M4cPdV5gnjCiNMmIE0NxS91nOXWUOi7akfiQR4CWDIqrc60yv
tshrN6QI8Ngjs+HjR2/mikcm5hspBDxL8amV97nBjHVcrvBDhoC2JDigIujL
VFSv5N6RI8B01aKe/xY/Zj77xkd9BgFlNzmSf9v8mFC6LZkrT0AeqURm5LQ/
s+EW53KGIgHECdbeO9/9mSdMXxhbryUgX85PgWUcwPwjcYG+UpWA+T+bXsg/
DmBe61JhvVUj4HK7f7jG7wDm8pT+uosbCThoq9qqKXOLGXM2OVF+EwHx/e9h
q+4tJvuA8o4n2gTA+gNCvXtvMS11s7tVthLwtmbfuxmjW8wXCpu8s7cRYDMi
33V/6y2muEixrMYOAmw3NRrXUG4xXVk7Swr0eHwVA6ojBnnL2l11bOsuAg5v
KdrLfhbAVKs2ninZw9P3qsJ/6ngA83Z2Y5yeIQHrvtLLYhb8mYP3DulU7uXh
KT7g1Ef7M41udLcbmBJQV6n8Pp7sz0x3PHn1vTkBh8LfBPwL82MK7BsgzC14
/r9XVe396st02HKhqMmSN68DAlt7Q28yK+isQ1aHCNCa2lkwIXWDeXNs4d5x
awK0+1zTNZuuM3vaA7W/nSDg88+c16aLV5nby4W/ONjx+Lr5eFiJeTKnowhJ
l9MERHwgfJc1uzEPX0/M/+vE838x+uN+oYvMlycVLN3OEjC3/KFjloYL033T
huhrrgRMzrKo1yLtmE2yhRr/LvH8dp2gebhaMTcu1W3y9SCg0tzR0DtrF3Ok
xUAs5BoBFZI/po4H7UenKzYRMQEEbDuziT/ukRtW2/xUkwkigN67MSzH8gqu
MTxbnxhCwETWMfuLa67jd+KKSNp/BJi7CTbTI/zQuvi/sPxYAoro56om1cKw
OFli3ZYHBITu9ydWXwtHSljcu9cJvPmpkfrOfY7AL8fSBCuSCTARFXHVORKN
++feBDVmEqDQMhtgGxaLuT93KR3MIYAsrX+9cOA+rqyvq257ztuXWIrcRvMH
+CGxZWlvIQEL4dp5SeqJqK837D9SRsCbvrlwM4XHqOMve1OohYDY4OVa9N6n
WPTbf2tVK08f19v1cXsGapkNjft0EJAmKHWt4ssz3EApPjX+lYDlVkcOPejM
QsWcQ8btgwTc2ltI4S7LQ1JnlNSTBQIS383dkg8pxEi96U+2SyhQPX//7Ff6
S1yZZhciLUABvwmVYKvil7ji4obZcCEKKP26NBAwXoQLAvXf3KUo8J/ZRcLY
8zX+0RDMAlUKvDGQ2sbfXoZnYl1Pz6pRYFHHVeDibcRfc620wo0UyFJNnMli
lOP32rSotZspYP5vG39xWzm2ndjtKQoUAH31gCKzSqwKvbGr5xAFYkKcdD4c
rMHE76z2q/4U4Ish8rI+fsQ/TkonlgZSwDeQw1ejUY86fw9/jwymAMZxkq1i
6/HLzOvBJ+EUcNCyq693+IQrJf1mWmIokNn5/H4HXyP6GKykamRS4K/4fKvP
2s94PFPRdrCZAs9C81WNo7+g7OVD/UcVpaH6reoZbl436u3u+d+KamnwCl+9
itPVj7Fd5868rZWGQBXhHR7T/fjXfQ7c30uDeTW55gf5Fyamyk52N0hDW7ZU
e4TFL5wVOGb1vFMaCtSbd0vW/MJXda3Sh8ekgfhhf8Q+8zdqmDc+TpWVAcev
0yaNpwdxzdHKAj03GViBxqETccNoQpI7UuMhA2n9xvN3nw+j+4crs6aeMvCF
HcJcUzuMlTvW7TrmLQODsnU/BFnD6CAf1eARJAPDQ7rpA6YjmPLHZijjgQz0
7e47Pjkzggo3ZuiSlTLgI5p76pPhKJpsOVj5oFoGpFYKiA5bj6L7WLbj6joZ
KHp2o4blOoqVJ+2z1etlILhliW5t7Cg6GNZt29smA9G1Yiddf41iiliM1Y0/
MpBvf+dA7c0xVEjRuD0gIQuCtIz7VRbjeLbjnFEaWRa+1m5h6FqPY57oU4GT
0rIgYUDSTzs1jnreNN8umix4fU7xPOg5jtZWwpc/qcjC0vZvgvSEcbyzvN+m
QE8WdGfjN5ztG0f+c/c1fV1kgVx4yU7yzAQaP24e3X5BFq6Q04dFLk1gVPuq
7OmLsuAX6bxj5uoE0vUDld2vyMK5lx+c8kMmUJfmRnX0k4UVwf+LSk6fQPdG
k2WmsbLQaB6YcrVvAvu0FjqISlmIqTe+wbScRKnFl0211bLQer8jouboJBp8
uPDOs47Hd0atf5fdJGbYf33VVi8L2klnQmjnJ/FiRGlsbLssDOxOKj4ZNIn/
fntZEX9lwSGlf0q5aBLJ8VONZGkqiA5oGc2Is9DQ8XldjSwVRvlWLrUlWHhN
wxmv0KiwZpfk3RIqC3tq23JbFaggIsR38bgyC1NYLyNi1Kng3HWzZ+d23n1i
ftmUvIcKDh3gcO8UC/fyTdRKuVLhStyk40guC01G3MNiL1GhTn2qQraAhWYd
bFNpDyo4yWvp73nFQou86SbqNSpUzlY1BiALj9rzdSsEUKFm5npsaSMLz5SL
jWnEUsE1QaGYMcbCUL8NFPMyKghIahU1rGPj7fN5nQ3lVJDgKsmaq7Pxv6Ob
Ei2qqGDNCnep1WBjlMYWeat3VDD+QB19tpWNcd93rj/eTAU+X9aBzQZszABz
5tnfVGjaaHfgtB0b6/jOOweJysF5Nyw9EcXGwbONe3aS5CAlQm8h+C4bhVs2
reZIysG6zLSA7Fg2mj2Z6TgtIweTQ6KBQ4lsbDIOMdFXlIMnrgffqj1jY8ed
FPWlunLAf/2lbl85D0+xk+XnKAd3hK7TtP+yUShyR5POGTkoGmyyax9jo+pU
Uva4ixwMjn+q9OTdn+ffOznaX5KDI3fPLTybYuP4BXYb01sOrjUZdvQt4eB0
kVjJQpQcJLb2x6aQObjC2NDPp1QOzj5z3uKny8HZZo+1y1EOpm/nJv63g4PD
Jx43/K9CDn6sL9seq8fBhkv/5FJr5eC3rZDO490cvBuX//p9kxwktPu9jDXh
IH2QziJ+yQFrnrFdwJqDm0OmHF+sosHx5gkf0ascVCYprdouToPncfPi9dc4
KJ1gWVgtwcv3ZYeGePH65+bwd1BowGc6sW36BgfL204lLcjTYJqy07AikINm
yk0dpltosAft/3B597lDTYbpb1sabHZ8tMCfxUG9fkv1Uydp0Potm3Qjm4Oy
S+dFv5+igcr3ndc4ORxshgPNnWdocM570eBHHgd3l84c/eROA6YpVexJEQcV
CkycCoNpsD5a5VVvBQf7kkf8AnJpoB82WanUzsEyjHVYzKNB2399dhc6OBjf
C/o+BTw99j8DCzo5aCkXI+hZTAP3ofWu23s4WHl/Z+TZSho013we2/aDgymR
kQkWbTSYZzsbsP7w+PtoFNEXaHBB54vJ6XkO2kiXvvjMRwdqZ3hU3AIHjxYa
5QQupcPTL3UOHxc5uG/ENu3PCjqUSAu8UuPnou6JiDtFknTQ8Ypz6l3ORYkd
f1z3raPDMc3zqnziXKyaS11704oO3ZSg7P3yXCy7v3GN5hFeverUNWsFLpZo
vaH3H6ODzXio3Ok1XMw710w2saODpWb6qIcSFxO7+QQIFzoYTuz7HbSOi5ff
2HzP8aXDwxek05c1uajoTXnwNZMORUkrfgcBF8e3XrBzyKGDUYFXn+0uLr5h
VyoNPKdD2dWHy7bu5qKlq2v+eCEdlFVW1fTv4aLfyZqPS5EOj65eNttixMVu
I4+FdS10kPaPSMo35+IdqcZTnnN06BN6Gi9jzcXFnOANYmYM2DDqRoxe4uIf
TJ7o3ccAcrDhzeduXPzyuaQw9wAD0s31DS+5czGDM6q77wgD3GKpi2MevP47
jxhFODAgR115/6AnF9Pq19qLXOfhVbniWx8u7h1+Fy2YzoCO2EmthRAubprv
s2rPYMBPKe+7OaFclBObpzzNYkD2E9KZE2FcnNik+cjwBQPMWAZuxbe5GO/1
IDOolAFvyb+FXCK4OCLkUrW0hQE3vT4FFdzhYhs1MLillQEuKYUW1ne5WK7+
yDi1gwGpDOY9vntcjDnQ3Li7lwHJPurBpjFc1Hug2+M/xICiWyJy3fe5qJJl
lXRghAFqxNP8G3FclHzr6iA/xgC/rfVVjAdcHPyeMljOZoB+YdZhh3guNk+W
ZkVNMeDUqp8d/AlcLBVod7WfZUDm+MO2FF6cTkxoaswzIP8u1WJ3IhejVUQ4
i4sMULiSYPCDF/8fLPi+Og==
           "]]},
         Annotation[#, "Charting`Private`Tag$451837#1"]& ], 
        TagBox[
         {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
          LineBox[CompressedData["
1:eJwVl3k4lN8bxm1Jy7fFzHhfs5bQIpIK2d6HRIoWCaFSUokQ0kKkKC1ERUQh
KZVESbacibJU9ixFlpmJSAyzWBK/+f11rs91znPu+3qe88e5lx7ysXWXkZKS
OiotJfX/lWca0GXmJSJiuf5BZmOz2WZS5wtlvMcI+2v5F1Y2yLMpjzaGeatN
EhTjtrK7p2axrXGMlJE9RWyKZW7wcpBjM09fXaqkMUPwousHbF1k2efOlUTW
D0nBGfFF34GjMuyEtA/uf7VlIP/dy5y2RGm2vuP1deuiZeGB5/mzc+uk2Grh
yYTCTzmISGz6SKVKsTfjpTllqvJgxS6Zqz0zjfoMHyheC50NLzQYDQs//0Ml
ldHfdMsVgNp2nJXzfgqRuMax/KVz4Ug3u/FowV/01l/viuW5eVAZSn90qXIS
RXuZci4Vzwdz9/x+N/EE6hPO0arBFsDZ/Q7bTZdNIL+fnM6/LgvBbk162WPP
cZShJtvHtVkE+06eNvhaNoZslwjt6ycXQYAabXy50hhS3nHi7JrkxTAks3eR
YYgYpX3cTKZsUwRSp8Hium4RqgvctL1arAjnOrRfr7UUocPRon6rCUXwq5+j
O2AuQpMZTyI+/VWEiOuFxg/NREi1ed67z1IkeDf9ommRiQidWfdVo3YuCdR6
753rWy9CS/mH5zQxSRBj5DJ9UkWE/D0uf+iwIMF1WWevvCkhUgjTd91nRQK3
i+E+1pNC9CBh4O+PbSTgPVxTxRkToqrK7eu6dpIgMCR211yBENHVsYc9TiSo
wmKebuoXoo+cJ6G93iQoDepOtm8WIsyl2oAfT4JlgcGBb58L0Re+C/9xIglM
3pw49iVTiC5E8DP2JZOAaBj8/SNDiH5lY4s/p5Eg9XvcKXGKEBVIH+nLyCLB
R71i3anbQuT0ROaOcxkJ9mx5nLQjSIiSRw3/VPwhQe+RqK1sCyHaeaXu4Xk+
CZhv72M7NgmRHN3Ncb2ABE3s8KA2Qoi8Nl8rTxsnAeek5tbv+kJknNCWGCxL
hgKWedudVULUaXzKQkeZDG7m3LyS+UK05Gp2yn1zMgT8XhUT90mAHpnMX6Ju
SYbVlwvaPSoEaKXQIzXbigxPzs8KWl8mQDoH1NLQdjKseCK9MqtQgMw3JD/s
cSSDuNTxzNJMATrWczVD7QQZCOfPS+QvCdBgfJ9atg8ZdsxEJ68JEaCT1psf
6/qRodX15E6bswJ07q3UE8vTZGiatug+7CNAN6JOZ3qEkWHr/QWrpJ0FKHej
+/MXcWQI3TPm27RGgHSHyzR0E8jw5i6lfe0qASp6tCSr9B4ZKrgH4y+qCtCH
hR1ZdSlk0DVwuTmJC1DLT9vskadkiJuuCTOVFqDJWMjdUEoGg/SN+ovqRlGI
5YO1pWwyWDlXWFyqGkWy//7mWpSToe7OYZWf70fR/GNvXzlUkeF7dp+rf94o
Yppo5Z1tJEPUyJ25LxJGkdkA7e27XjIsqn5zSXvfKMpdLz65sZ8MP/aZl4Tt
GUVLQutXv/kt6TdzLLXYZhRNkyIeZvHJcH/tqZ99xqOo2HgoKmlSMp+YTS0Y
YxStj2UfPruAAivtHcbCW0ZQevs9lmgRBXbGfNfZUDOCFNVPffclUWDjwtag
qvIRxC9aufMYToGuU52T8Tkj6AXvlqGDCgVGGcj5c+QIUtd3V9ygSwEpp+zu
3etGUNxFoiZHnwKUR+/GFVeMILka5cjVhhRoe2PyPYc+gjgHa/8tAwpE337C
jJw1glKu6/UrbqWASaLD/JRmPsK75rD5+ygQ99wLzHz46MpK3jkvVwr81rhC
bjrIR2L/0g2/DlHA+WL7K2M7PmpW8H/edZQCV+IH5R/o89EtnY742pMUuDFi
+nRsehjNu5x9IiuCAgqDIcuD5g6jezbHzfZHUmBtgWdwUt8QWkFRxxZdp4C3
/JGZHR+GkPmj+2z/GAq0qF2Q9wseQsFlN0iGSRT488kx/VLfHzQ0fbywOocC
sncDZ1lnDqLgCvXooNcUuP3eWOAUMojmRnMOaeZTQLo4JFe4exCpM5zmxxZT
QFPsV1j57zc6YGh1wLGCAmFqt4b7tv1G9aeXz+prp0CM51JxbUM/2k9wvyV0
UiC8senN8dR+NCifkr21R9Kv5+fNbnj3I4V4JcfsXgrcTyPTXOf0I9O8Wc9P
jVCg5pWKtNXGX+gVn7tTbrYSCD9GjGy82IviPFKTl+ooAVfVL82pmIOEu9SN
MtYrgULBsTUBoRxka5DVvkJPCdLWKk5obuKgRfMKqNpGSqBdeVkhoroHXcuq
SzCxUAJflWiploZuFDI8fcfZSQlYt+ydctN/oCOn9kXFXVSClIG952e0m5F+
GDVkTpMSSC8eTlEtfYrye8P0ypuVYPqw9J19Xx6hddb9/OA2JVB/zHOmvU1B
WliBG/+HEpw6UqGePnYFqb7YY9X6SwnMGoPbwCaJWPwthpwxrQT5oZNfRgyL
iGiT8Zr90hgEXV1nmZRWQsx/dOAKLoeBU91oSYkcIhR8tCavz8Hg/aoMjQU9
74lpuS9dfmTJ+T0nShKvVhAD2rOfwyoMxre6q3TdrSOOxXsfnlyNQc/HoMBL
e+uJn3+bGXlrMFBecnaRQm890V3xKGb5BgxM80Ij7/9tIFpczAIXAAYTWO1k
NvUrUR553rRjDwYXK7S4OSptBAzxJuMcMTDknJ2aSmojSndb5+1wxmBDhuz5
YdI3oohJW17uioFR1L3bXVLfiZy8gvnPPDFYVqpfE17XTiR3C1pPh2HwYO9g
wAytixg4ouYiG47BJw0FwZozXYT+H/vu6MsYuC0vPMxv7CK+ThT+yriOQWdl
VWyraTcxn3RhoikOgyit9okTv7oJp8Tc8wcSJPsHnt0ZX9hDZLK40r/vYZCQ
JxX6UreHMF9tMVcmFQOOiffTgrAeInjzfJr2MwyGjFz4DxZwiE+fjVOKszAI
JG/p+LCGQ+C2PsssX2IQfvtJsWAHh8jb36ixPw+DmbDeLIMoDiHzUzanPx+D
Dw1fDx95xiF2em5Yf6pQUs/1Lc6p4BCDpxOMbpRi0BaFMfunOITBdDUbe4+B
VGL4da4Sl4gM/2ueXo6Br6nHpoXaXEI1dr9NURUG5z1cd1cf4BJ+WEzD5s8Y
xNgmxJgFcgn2/fd7GmowqM4vf/bpOpdwfqa6/1cjBm9/mD6dncclMrXtOf7N
GFxJs9ItqeAS4vwrR2ZaMfBWLZ4KauMS5saFA9e+S+Z9bUOaaT+XuFU+4K30
QzLP4d2vZ09wiW4ruiCtS9JPx8H8qtk8Qqve5rQmB4OTVTf9LlF4xKeOnFDz
Pgy+OaZYL9TiEbgbR7a+HwO7JAW3MX0ecaSfFOk8iEGJrI6G3CYekeezeX7f
EAYkXtFRHWseISMOjPEbwYA/xbsQaMcjdgZnkqcFGNDqdF59cOYRD2S+J1wV
Y6CXvm7N4kM8YjByHoMyIdEPl7e2P8ojDBYap6X+xaD0Y7BisiePiIzzVls9
jcFHkmDHoDePaKGlPn0rhcONZZuKd57kEaoPGzQ3yeKwbOEPmUY/HuG3QvZV
7Swc1q4oW+HrzyPY2et1nRRwkBvsjFKX8IINR4p+zsVBN3+RP19S71J81+Tk
fziEn6+Vq/bhEc9Mq8umFuKwaVlFTJYXjxivnLSIVMRBp2RDYeIxHmGxffVn
EgWHp4UOtjfdeMSdr/t2pGA4TNWvUr6xj0dwnG42raLiYBu7jRttzyO0e9gO
+XQcpA+yR+9u5xEhR0fbTVk49HfIrcnczCO+/FnmWrMUBxmGiRfbkEdQA/bw
HFVxGKoN8O3R5hG2N2XTW9Vx0P7CctqmxiOuP8s9aL8SB69Bg8lanEdMdf/X
tVsLh9SywPX6/7jE+qni+43aOOTssDu4fIhLnMCOu+xah8OqN+UvDDu5RKdN
xbft+jjEh/hPvi7mEkoeAQk1Bjjw8lXezH7KJXaEqzhYG+Ow+rDPDvc4yXss
CvlqZYZDraMN+7Qnl0hfrldnbo3DtmUxT28v4BIdZj+jyrfjMK4TIgwScQjy
/tvWZrtweBDae+l6O4e4fGe4mrDHwe3xnNOiRxzimHTmBwNXHIrkRHNpmhwi
lW5/qfAQDtE9ZCP5/zjENz05M313HLrjMqw0B3uIrd6uaMNxHOoPqb93y+wh
VrfjRdoBOMifrTQzVO4hDosrzrwMxMEpSpFUJ+gm7i8+pad1Fodzsz0Kcmu6
iQVbGvI0QnA4k3JcSzu0m+DnXX2pHonDbNmnv/972UW8iZ58RE/GwYOiTWr+
0kEMPc10S3qAw+PZD/tjPTsI9Y/2KtQ0HEwafZNGFTqIhL+vUrDHOPj013/p
JtqJc8c87ynmSPy0Og4sT/tGmJh13FT4gMO72/evH13dQsR/9zz2rgKHxQJk
4pndTPzx+wt+1TgMGnMDHq9pJpLTqaPttRK/vGFWgfZXYlJur93Lbzj8YpG6
ZTUaibeVzbj9MA4hyY5FqR2fCW2burR0qjKsLCm967s4j1jmWPba5KQy4PfZ
vQe9PqOti+kOH/2VQep0/TrrsC/I79OpyW2BynDVOWZqOK4GlRmtNN0bpAyF
voH9fqV16NDSmFr/CGWoJ0zkjeQb0cOBff2ZicowYjj94s+WFqRyfoJJKlOG
/delw7x9OtFW3d1liR+UoS1C5mTPYCfyG85yX1KpDJ8slcc+eHShsoOuWZpf
lKFWxyBkVLsbHbKo3LilRRlam8KTetR60MOFcXbnB5Sh4KZxTYcMF6k81L7W
p0iFPqz3fUBoL/Jo87R8RKHCqycfcsIKelHOgidyB3EJ+2e+UxrpRSZBjNDv
DCqoZM/raXXtQ052cwNqVlBhyvecb47BL3RLnrfvtQkV6sbi7pS29qNvRiya
rykVUvVF8y3mDKAl/k5tq82pMPRjOMLBYABld9XbPraigo3fJoKWNIA+Fbyz
TLSjgt2e8JXGDr+RjOfdtaHHqYC54jqcokFkldY4ZHiCCmNb+I0Xfw6imNb/
ssZ9qPA1M6OfvfAPYpqHq/udokJLEz2M7vYHGTBO0twvUOHSxW+DzrOGkF/d
1lnb4qlgciXX/4feMCqcdblsdiIVlH1T6eddhpGU0fvQD0lU2B4+3lFyYRhF
Z+pNGqdR4aePuimjahg9C1Md1s6igo5dRd26lXzEWTfdplQmuV/q0rP8Z3xE
nnlTX/GBCsyT0s4NhXy0+dOJqsBKKrzTE75nV/FRpuuPty1fqLDWOniU2ctH
PlEl8fGtVKhccOEEhzmCpnrP2Sn9oUKeTm1qp+Q/rPVKx7pimAoRZl/5J+NG
0IHzA5sCR6mw1CPhSXfaCCojOa1rGaNCg37rKduiERQJGxXjZWigv4R8627/
CKLcG6uj4DQoW1y0RstsFFm4v6z8SKUBgz81XmQ9is5oH0WnGDTovFfus8ph
FHVUtGQ3q9Dg0r8nb3I9R9FDwZuoOE0adPmW4YdvjyItm4BtlE008PcMxXx/
jCJXfPWmj5tpEHP3Vd663lEUy+UanNpCg+2i/Ib2oVEkPLt7VbMNDTY239f4
PiPJD4915sQ50sCpcbX8nSUCtEVqpILsTQMHv5pQtX0CtHXQ72q8Lw0EgUfu
fnETIOs24TbcnwYftqw7vP+4AO3MGa+nnaGBZ/pEu9lpAXJ0lWpXuUiDdVvd
MskxkjzHXjisHU+D4NMzgXNKBeh4VmzuqwSJ3jtfjn+5AHklkALWJ9Ggeypv
75cqAfL1xSb0UmkQIa503tIkQGeWsGSJZzSgfC5z9+8ToMgLWphNKQ00xzTC
ayT585pXzrdaNg3MFTX1dBcL0Q1HneSd5TQYqGiUjaUIUYy27lK7Khp4FRyS
ZTKFKKHbWMO5kQZtvSKv+1pClAk2hEcvDe43O5n62QhRpZTX0YgFdLCTmTgX
GS7J2x51m4wX06HyJlNXPlKI5jbpLBGR6MA6K3obfF2IrDMm2g4r0+HjVbaW
3S0hqre6stVclQ7nVfZWvpDk87ZbDzVlDehQmBbep1goRBN/Z80tNqLD8vRL
nCUlQkR19+j1I+hAfrhCYwUSIhc97RSOOR0KinZ9UvkoRN3t7xaV7aCDnM8N
y+p6iR/Vb4IL7nTAzvW85/YK0Zxoo3r9Y3RQi1urfL1fiFaNpWTxj9OBrs91
Xj0oyfPVR9xdfSX+LD/VuIwIEf+EsIUIosOL8YqYwL9CNJ6/sGg6hg63evkm
dxeIkIKVxYXgEjqUVW6M79QWoclG/+XyiA62xaTmtzoi9NslrfbmezqYfrVa
ELVehGp9p+jpFXSAVl6ihr4I3U54VVhdT4eGtt2EASFCzF9MgdJPOihEPtd7
Yi1CG66Muef+x4AITvXof+4ipL5Y7T/DRQw4ukaxMuiICOFJtnkfFBlgZE78
6z0q0c9+IdOGMYCBLUFvjosQu8UtZXopA7J0VAc2+IqQtXp92zZdBpByfK58
PidChz5mbuvdz4C7Lgdtk6NFyIRnq+l2kAEOVknSFTdFiCr7b0G3GwPqVfCN
QzEi1Ai7Gr8dY0BFK9nS4LYImZVMONb4McB97uJ57++KkMrrrUfyLjOA7mSb
cC1VhDipgxcuZjMgPneelXKuCJWi+EMzOQyYu8VbFXslQvc6wTz4NQO+LVn0
jvRahGzpcbMDCxhADWBoznkjQmV3jaM9yhiQv2OOwc8CEXoYHZ20s4UB4s+3
E93YEv/B2vnMaQb8qVLafblWhPbhJbkNUkwIZnSxT9aJkGOe5YtwWSbEFL4d
d64Xoe2D+x8NKDBBtjGmfnWjCBm4RN3KJzHhz07SUXazCCkaDXhvX8kEr8a9
R3M7RKj8b/ryEDsm6D6u/P6lX4RUg7DEH8+YIC8r8/OCtBjx9U4cOPSCCRlD
qoXLZcSoWFim1veSCXKsP0q1Erb19n7Fz2PC2wtyZ5XlxOjCwY+fZRETXK4W
UZ/Li1G7pf/0yiYmzLrjkV88T4xukevcAv8ywX7XPZt4ihjNvListdCaBZ6O
6/U3rhCjAZQ60rmdBUcT3xt8k/DXhqK87F0sOOBXVX9mpRhlioYMtjuw4ARZ
uyB/lUTf2MEy6hALBo+OnNPUFKNHX5a7zjvLAqMXbrNm64jRlt9VsbMfs6Ah
KJLnaShGOv84dq2ZLGgL4NdMS5i+8B/25DkLbuTk28YaidGIztoHFrksyD/s
ueaNsRjdO5f4LKKEBTPjPUbjhBgNzjleLtvEgslSPZ6nuRi10MIvNzWzoHp9
cvq4hNmaD6zS21hgV54rE7FZjOJ2NdaZdbIgMum/tGQLMTJJNOgI62dBs+Hh
I5VbxGjFc7uUXYMsyC7R0NhlJUakd96Hlg6zwDn7Z+x3Cf/qfviLLWRBlKW9
xeBWMWocLXkeM8aCXUTqnYBtYlQi1+rtOskCxy2yl6ck/FhpZK32PxboPK2m
hluLUeyKeaKZGRaU9BnvnmcjRv8DCRgJag==
           "]]},
         Annotation[#, "Charting`Private`Tag$451837#2"]& ], 
        TagBox[
         {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
          LineBox[CompressedData["
1:eJwVl3k4Fm8Xx8lWSrI+6zxP1gpJqxLNSSK7kCQViSRbtkqFhKTS8gvJElFJ
QiVK6baVSLJHCin79myjsuSd96+5Ptfc15zzPdvcR+mwn637AiEhoSZhIaH/
P/dM8TRqzQn8xs/AM4a/JcoNhc69WuD7Gz9kTfv7uEy8XCF7y3lftWncX2Tw
vaarWLkFlSJ3P38W5+tOynkaipazTl5SUtScx2/tPG5PNxEpDw19E9s4IQQW
DSs899suKL+dWe0+o7MApqe4Cswo4fLNjpfXr48Xgd+q2Jslr4TK1aJS8YX9
ohCeJ/qsTESofCf1bWGlqjioq8abxzf9Q4Nb02XjwiUgobl9QXLqHHpTE9+5
qWoh7NQflu25OYvkfhrc4ChJwpeEipd9sTOoJFD3oknoYtB/s3xdTdI0ivfe
3nfh9RJ4afhiiXzNXzQoWKT9ibIU5oTnbPsFf1BAf1/3jLM0lMy8bvbe9gfd
VxMZ/Gm5DPp3r3m+Oek3sl0ucGicXgY7ZZ2MUsanEM3a5/SaVBl4d0ZFxnzf
FMp8t1NewVwW4n9p/C2vJNDnkB1WtVOywBhS2dKzmUAU51o9TqIcsKqSve+U
C9DyS/l304zkoaHr2fZEYwEyHGGUlA3IQ92F5dTeLj5aHJPvkxetAF6Fby6b
nuajhGMZqUrrFMH5e1nrhBwfbT5PD1vUoghLC1pOKr7ioeKB87pVbYpQ1xu3
Ir6Eh9ZbDHPOdiiCev2Xi2LFPKRNeenG+a4I/8VuNeQ/4yHVJ3tMvwwpAn7O
cqo2j4dkOq/L3/+nCEEBhoxDGTw0oiPxGDQoUO+x3vBfDA95JvoemdaiQEqn
qatLNA/1z7RhRWso4H4u1r/iAg/1vs++vmIjBSJvu5pERPBQu7NhyFKgwNPg
l6s5p3moKvbc9m97KGC6pjrxP28eSu3lfzl5ngL0+C9P39qQ9jzUnEWiKMDV
tXooY81Dm8cdeuNjKPC5WnuhmyUPtf59NXT/MgVe/nj8R8iMh5bIRfxtSaDA
yVmNJat28NDZnUsYOrkUUAmLVGFv5KG6jwZ3X+dRIFtCpX/3eh6i2vqpmBRQ
QMjvzmzEWh4qOtisebCIAk76Idzm1Tw0dvK2/pW3FLArU7QzUOeh/bmqB4ea
KcC5Zqw4qMBDOToOfYFtFHiscta8VI6Hpoovesx/oQC1t2EsSoaHblaN+Cp+
p8BBh/yt80tI+98Kw40GKbCuPvJiuAhp361PpHGYAgd0Nt0RE+Yhj2G52P1j
FJDJrnsc8Y+LFkyFXA/gUqDc93KS/V8u0pM2yMyYocD8lQTt4xNcFJvgq6b1
jwKZWaGt10e5qJ2R8ahEiArXi1sUHg1xUcBKkWcNYlQQzpc0KOzjotzttZWz
0lRYeiJYRaadi+hBe345qlJBsnD33iOlXGR7TSTrizoVDB7XF7UVc9Hl3Keu
DqvI87JSx+A5F832SvXYaVNhoGmwTzSPi7ot33dabaZC6UiO26E0LlI8FnT7
kx4VqCr6FYXJXGQdpbzXwoAKMfLmMcKJXFReGtZqakgFXuCzwdR4LspaofvZ
yIIKUykpKcbhXPTNsP9qlRUVMv1ETfXOcJH8wf8sDHdTgc6EY9InuSjm1mQt
7kCFsV1HGyx8uehtQVrsW0cq4B2UC3nHuOh3nbmJwX4q6KoQcd+OcJGncE61
ngsVTO+HP0x14qIMpsOFV4fJ7+l3n1Xdw0WduqKGm92p0KJ8AfytucjM1wVt
9KLCurmABPcdXKTVRS3VCaKCr80Va9NVXHRk6v2pghAq7G86KHRCmYvSZIJ1
tU9T4ZP6wz3nGVy0dFdTkWYYFa7FZi/yleIiTtGlAvVYKiy26VtZyOGglY26
vvfjqOBxNu6E9TAHuY72a6leJfV6lSxs/sFBzUqGuUo3qbDlVpCjXzMHvYif
zmamUiHJgh5+/SkHTTzKcUtJp8Kb7i97WnM4SP2dgzI9kwreUTvEftzloNsz
z+5SHlDB/3IYxf4qB4V6Hr8jW0j6E6XamOLOQc8u0PbdeEaFu9RyltJ+DhpN
r6Ese0GFKIkLZ3xsOMi5TSVBqpQKKhau87v1OGib4bdrC6upsP522R7hxRyU
+PW4Z9l7Kky/P1P2cXoSjQfMQEAtFcIEbNee7kmUmkXndTVQ4apmecjn7Ek0
LbrPvqCTCl+Fk+0urZhEtmlDWke+UUGrfb7CRHwSPdp4SozWQ4WNJYV+Br8m
kKNHUnHkLyosmvP6ry5tApXUtFEdJqnw90eZvaHEBFrq4s6V5FEh+z6+/1rP
OPL4I6hFAio4ZvUGi5SMI8VV8mdWTVOhd8Eqi71u4ygozvb7rCgNjBbG0w8/
HUM6lp8zs+g0MJDLou/BRlFs/8FQR4wGk64KcRX9I6jn3ISt1HIaNClEa/Py
RlB8vpToSTWSubdqwnRH0Li0hYeZDg32x2mtO6U/jIxyurbNr6MBTY32DZ8e
QqlwnFK0kQYfiDX0h8VDyOJE3AdsKw2GnsRru2oOodzmDxrcnTSQvRTmNyQ6
iBYcdxR5sIsGO2yvKS1+OYD2iQx1OZnTgLKkJK7v2ABauEHiarUNDbac1jpT
UNuPPBJ2Tibtp8F8vklO6+lfSMWx8vm2EzTwbdxPeZz+A5nJMPe+C6SBqj9+
ScroBwqoC542D6GBR/qrEwuGelGl/qrt+87QoAcIJRXNXnRY6XpDYDQNMjZ/
m3De8h3dGzkwnJNMg/LR9eeu321Hyuf+suQqyfgQi/XNBG+R2Sa7yuRqGjAU
9lzZwylFAZN57straKBQ5O90eKIYVbq65K2up0H4kovgJZ2PDhvXbNnVTup/
8fHbRzcf/J50gv25ERqkLl8b/lmjAle+pxM3KEuH8gJ7dkNJJ36s47hJtgId
pH/b3lLo/4oXLn0o6kqlw1DNxp+hst/wbWew8K8YHerkT2v+de/Gnewlgz6t
pMPz+tMX0/1/4DfFfx14vo0OYZw7qUo/+vFOfTbDfzsd8ibtrhz2GsCXBzp1
aBnR4YztzpKn3AE8v6fR9oEpHWzVjC7kzg7idS/LTJLt6fAthOYtIjKCLzie
tDbci7QXUNhb/3kcN81sntjqQ4dRtQuGqdsn8OtfpPL++NEhZK+btP7TCZxl
FKUeEEyH9vm0cOvLk7gedoLhHkGHmW7JTqWbHPy8XV6H0gU6XNaPrayq5OAf
Lg0mdEfTwc/86s0oHgd3mDqwzPEyHW5ZS/XPWHLxgM9mYuaJdNgr7Dq18DcX
fyUWUymRTIc/XxTvy7N4uJB+RXh1Cnk+8o5S2w4eHp+jO22QSYeJ1Qe8Vl7h
4W3dASXTWXSItj7raZnPw5kK+UElD+hQc6TncXkDD889rzqpk0eHm1u21R1b
zMe5JYfyxvPpcGla4fzICj6+eeLOsdyndEgeka6T3MHHw1Xb1Y8W0UEvUz79
gTMff+8k80ulhA7uCpHFz4L4uNQNi8zeV3Q4/Ov1Ro3LfNy+5uLBtDd0eC29
PGd5Bh/vW/+vQ7GSDmv1S9vF3/Nx+fkXje+r6dBQn9+d2M7Hd9b5fAipoYO9
8Qz1bj8fD0lQK1evowNL/7OpGp+P57h8L2mvp4NhtIey8Twf/6qZUBDzmQ5r
WA6X5CQF+JLfFg83NdMhoEvVP05OgG+rFL070EqHja3pazMZAtzv6pvExC90
8JyZ/bNGWYBnOAbFG3+lQ9Aedo/wCgHerKIVM/WN9E/aN5yqIcBFJ3+ee9BD
B+31ivtrNAX4ptKUYIc+OuhssHtipyXAPaPtfMT7yfNVFwySyPfJNovdiwfp
8O6skK3ZKgFex6hy9hihQ2JXxScLNQE+OxBqrzhOBw05h/qHbAGu/WydxftJ
sl6XYV4nqAL80LmRHSE8OrQlzIb2Swvw67vubVUnyHzVzP/AxQV4pZzT+vbf
dCgNpR7dN8PHBd0ymjHTdLj6Z3B5zQQfV8utVd40R4clH5bNHO7l4w7B5+kD
83T4EFm+JaGRj8fCFtnEBQx4pVzkVo74eOli7iJjMQYscvzqmfeEj4+25whP
STBgrLayoT+Zj1v5ULl7pBigm9bV+8WHj0dsbhwSW8Yg/x/Pe70d+Pgzkdje
F7IMcOnXbb1lwMcV7vz+rEBlgKyt2/ZhMT5u7F5Q847OAM9hfv/FIR5+Suco
CsYYkHGDlllbx8O/vW/Pb1NmwDaVWomncTx86c34B9FqDGBtFKelHuXh+AHj
9I0rGbC24FvXT0Mefo//4mrCagZ8MpBp3TTFxVvf+kTv1GFA1pm7pX8auLhY
nNo5Yh0Dqv22b8EecnHP5QneezYzwL7Bx1HZnotrWwaZK+xgQFWan99AKgd3
oWrteLeTAcO2MaFxPhxyz/mpF7yLAdPqI5sCt3JwwWk7jTZLUs+5M/3XH07i
rx+sW5TgyIC+dj93m/lxfJcQ9728L6lHK1LlP7sR3Gws4FKiPwNEhr/cse8e
xi06BObUQAbk/U5zcvIaxm0K/zQyTjGA7hYlZXF+CHd0EepSjmSAg7nHSq9b
A7hnufSkTiIDMjetaTe/3YfHRmhTLN+S+jP+njpu3YrHeRd2NpQzgL1yQdiK
zS34Fcd1qTZVDJBP9CvuYzfj13U2Kdl/YICi/Wr7muHP+O1eA839zQwI+GMS
mBRUg+eAJX5sgAGHVpUL14Y9wmuEvI9GL2UCJzVS2uRnLRo69nmHgQwTxP4l
W0aL1yPJlnXLCTkmdLatlhVe2YAs7v/tOEJjwuIz1gMfVjehRtOLZkaqTLBw
WTzLYLahjpv3VovoMYHX3BpfueQ7+jsjJvlanwkrmze12s99R3T3YwMBOBMK
dvvncAa7kbOuzt0+IyZ4CW6fbHXuRb1dZcsqrZnQv7FPNHNdHxpS7eRHuDPh
IuNAvXxUP1oUr9+42ZMJb4dTjUy5/Ujj9908jhcT1gjfsAlxHEDetR7uLv5M
6OlrKteSG0QcH0E7foYJC59vCd51agj9KZYu/XedCX3HlDhP1EYRbXlgYvF/
TJBb1uzofXYU6V1qD/BNZALX2kuC9mkUnd2fptmdwoT7K3OTUo+PISEhzbSy
B0zI6BZqOp81jhaaGkecfcOELW/1HAoryftOc+AKccSExtnLTxjzk2jUObPh
WgUTEhpa6h+yOKjBf5aZ9Z4JlzgeEvfsOOi/289e1TYyIdPB9dGplxwUpdzr
YtfCBO35vX/72zkoJE9q4fc2JlgnLGUdFnDQ0U1bCzw6mKC0NzDeRpqLHMs9
HThfmfApzOFE5kry/mqWOHf6OxOelJkou2znoq2tVdkivUxYvZov+ORI3mcP
cs2v9jEh4sD3S3Y+XMQaYvEV+8l8Fl+Qp5H372UBFncyBpkg893jj+oNLhKe
Pb1dY4QJE6zhdSoPuIgX/XDo+RgT7gldvJPxhot+SbddM5hkQuyMNLrRRO4X
upe1jvxlwjKw/uZEJ/e5ipct4zNM2LfcC8/X5qGr5gOhJ/8xId0jpPobuZ+F
tckpCwtjsCE0Kom+j4f8D22vjRPBwE5i9FmSDw+5Dvv6y4tjYPAE2/aQ3B9t
A1Mp6QsxUA2xMsm7wUNGc7VvVyzGQF/o8ZsJcj/dePG3+1MpDMI6eUOdBTyk
LqMmtXUZBhrD0pGvELlvpdgWVctiQFkWu7SgkYcWqUXst1LAYEvoy4qAPh6a
zn+yoIOCwZtCeXlVAbn/be565ErHoNLyS8hiUT76Xrlw9ygTg6as/5Ibl/FR
g8WmP0FsDBpeyr1mMvmovN3t7j8lDBQ/uks3reSjZy43jGNVMejediC/X5eP
skbejsuswKCmwrmIa8xHt4LGbqWswmDdrynvc3Z8FPOPpq+mhcE/kyGB4AAf
Wag3dphvwqBrrdgKpXg+2lY4F962GYORqelDLSl8tEZPc8WhrRgozIRdQ4/4
aHm1Y8OQAem/dZlYZgkfyVrFBAcABqlfFyhdq+YjkY7nzFlDDBITf2ae/cxH
AtcfVdE7MSDEO9Zf6+CjL8H6sslmGDxEz2X/jfLRh/ljr5QtMbAcdHY785uP
Si8lueRZY/AqhvcvcoEAPZZ7J7HJFgOPzDlvlSUClJrGy0f2GHD37YvukBeg
+BXLHUz3YvBZ6vhhW0yAwp9azjXvw2DpzzthD9QE6PC7HPOBgxho4fFH+esF
aNsv29VurhjkLVF4zdYTILrI3NJeNww6YzgaktsFaErpIcfZA4MVUjXiNqYC
1Ay7mzs9MfjR6zpwwFaA8g/NPHc4joHVaFKC334Bigu7n9Dig4FoZlvqoiMC
ZPjmr+OnAAwmyziWXoECxOrK0jMLxmBPcGmZc6gATf+1ZNacxGD1uxViDucF
6JnuvZ7ysxgU+q/bp3Wd1ONgUWEQjsGuubZSjyQB8gqeuld6HoNz/j47FdMF
SPm5mUdRDAZD67vyvXIF6F+TwGTtJQz2XbLab1koQF856avyL2Mghblsr3kh
QMXSpos14zF4MWJTl1QqQDe1+WMPr2Nwn290/MtbAVqQmxKYcgeDGf66icVN
AtT9YeceahoGzc/3H7RsE6DSwclNCXcxsFXOOpncKUCJ4neosvdIvVlVGxu6
BShAzWg6PhsDau8+13P9AmRlNNG1+CFp70IKXjUmQBput8tiH2EgKVqgbcYX
IPFIw7tieWR9bb0rueKPAPVljEVE5mPgaDf14vOMAL1FiYfnCzE4obn2wYJ5
AbrTDUZnn2NwKcuEe2ABgULmRtT+vsDAKaNx9xpxAtkyEyRCXpL9GNW8/aUk
gbS34sO8UjIehFnOqDSBJJ2G6/zKMDDrwE9gCgQaOPVf3hjCYD5K8X48jUCV
SQbxxyoxCGVrjhJMAqUXD/oNVJP5ttJL+MEmUGjbjd1uNRgwz/YdmVImkINg
6/reWlJfC/f0KXUCrZMbkD9QT+arzWu3sAaB7sXHp9i0Y+COuvUObyRQ2JPN
5z51YBBYwpl33kIgp/q+g2ZdZDwCXll4GxBo0+gVqPmOAf5156fXQCBZSV1l
o14Mfm5oixw0JNDEyh8iFX0YeObtnb1jRKA6k8v9Bv0YlFrE78o1JtADj401
pYMYVOTquCebEigyuidHdwSDhMncCJ4FgQ5mX4orGsNgUU0+d6kNgfSq1nuv
ncTgo3Mo84QtgRT7vlvmczGY8HZxsLEnEE8odo2mgJwfl0eOKjgQ6PBZnWLW
P7JeXk9Vtxwk0AHqm6dNQixoPn2wWcaVQI5FJk+iRFjw5rnhAWc3AlmNHcwe
WcgCc5+6qmxPApnGjtxNW8wC10Y9hfvHCWSkGpJis5Q876Pn3eRLILxcOElE
hgVxTksfDp8g/XO+erNYjgWfdjKfXAki0MY/1Phjiiz4tTf10ZEQAuncyr7E
pLHAsy7sW+FJAmnq6ER/ZrAgZterevnTBFKvfx0RyWLBUreJJo0zBFLyNDm7
UYkFPZFmc7/OEYgp2nJySIUFtwsl/hZFEIiScTAwRZ0FRo13v0pdIOOvP+Jr
tYoFNvqPfL5EEUiqI9hLWIsFz1x9Q31iCLQwSNijSJsFvUEerWtiCSSy7Krr
0bUsaDpS+QriCPTvMfUAfQML/lhUzh+9QqC/JtmOnzaxIOFuhI5HPIEEP9fY
R2xhgeOYprfidQJNhr+2Xq/Pgu0rKzJu3SDQCMPEfGAbC0YOvwwW/49A/SXN
xsnbWYAEBC/mFoF67Q4aWhix4MU/q4j5BAJ1TQ4bzBuzIPf+DXnzJAK1Xw7e
8syUBVbFNe/NbhOoaiZrRZg9CzI1Jm58TCPQ26Q1Kmv3sqB6s+O1+bsEKl3/
mvVrHwsmK69u+5FJoBefjelJziywqN3txsoiUOHxZgWzQyxoOFU6OkfyY4mD
MnOuLFh0PduVn03WX9bwksIjLIiYP4T5PCBQJh680O0oC2Trvht45hAotUtI
VNGLBXoZsvUhuQRKOnll/oM3+f38nl3qeQS6KUedOePHgjNJT9JXPSHQ1YKs
Ke0AFpTcjkgvIjnWfA3vRxAL2K/WfFLMJ9CFwdLxWydZ0NpubJpGctgF42GT
UBbse78DuRQQ6DS7+df0WRb4dF+7vKuQQEGvD/Q+CWfBSpsZeb2nBFI9Q0n+
nssCzseoHferCMTR9Tl0+AkLjvGeRtdWE+i1oFJtsIAFu8tq/cTfEyjmKXXs
+DMWSMyOT22tIeeNr+8zThELlvgnPTb7QCCWZvWp4BIWjB3tmlhVS6DhQRo+
/YoFhySHOsdIjnB991EEsUDrvPGo/0cyXyaB/1a1sGB+vR8R3EzGT7S2Or+N
BTlrPg5tbiFQQAXr8voOFmytnn8u2UrW29Y6isF3Fnzs2DBe30bOC22ltTaD
LPigrv9eupOMn/xnt5AZFvBbg+S0esh+b1LVmJljQZnvUUY3yaviQznhQmzY
qzcQG9VLoHIJ9XOXxNhwJ/L57sofBBqfPpuYKs2GudhV4Wd+EehlSbOzkiwb
XjWN79zWT6CooJUqD+TZEBgyPiQ+QCD6REtBAY0N92JlvbMHCbTrh0ZtpQob
fh7/0D42QiD59IhrJupsOCefcaJ0lEA9Tu176leywTR4ojJyjEC5FC3mbk02
pKExdcNxcp63nu9rW82GsrkNXQKSDW98yXHSYYN3UiojaYLsP6vVfj3r2HDF
1EFZbZJAHZIXNh7ZyIZP45N7UkjOrumYGdJlw7ZDIWkzJPtHaVf66LHhCe+p
mRWHQFu3R8Xy9NmQKXZWOpVk8X+dVidxNpj93JA5TnJz6RqF2e1s+KhY8dKc
S6C0k9FdEUZsyLNZugyR7LmhK1PMhA2yEaNeFjwCbeDqeMaZknq2ViZNkDz/
JEZb2oINv9+c7Eznk/2LMrjdVmygSZsIjgsI1NpUWpS/m7Svcu3DZoLsv5+t
J8Ps2WCizRiaITmHmNCz2suG/auuLnkyReZTYtE/zIkNua9d/pj/JtA5mkrF
uDMb6BcqPnWRbGuw1+TqYTY8OGvd/PUPgfStT0gecGeDnesKe5u/5PxzvfxJ
y5MNW5ymD1eRvCzw/vVZLzb4pPtyNk0TaCYK2dX7sGFU51DuE5IHEjsVU/3Z
cHS+Y6vGDIEac/idxwPZsIOzYXcBydn1K1wWn2aD8IZy9H2WzPfohxsSD9iQ
sf6o0Zz4FFo312f/JYcNY1OHOg5ITCGm9Bzl4WM2vDCfuFJBMnfd2nTjp2x4
w64NSV44hb4ZmbsqFrGhRP5eotSiKfTewV11oJiMz0nR6hiS74Qm50a/YYPF
L1/aRckpFHXluc8exIZpNY1cqcVTyDf9k45aJRtCElpot0neUSlcUl1D1odT
j3vJkik0tsirSqSFDZsfbpBQlJ5C7YyomJY2Njzj8dKfkly+Ot00q4MNAeNG
yHLZFErY3fzZsJsNYk3syGiZKbQtWe/b+WGy/j5aHvglN4VWPra/u3vs//HC
LgfLTyG5Mt/DSpNsOD7+w1NEYQoN9d4bKhewQaP4qoyi4hRq5r15fP03mR+R
03YpJL8R/eLrMk360zu3mkWZQg8UuWt15thQenXkWzrJN1YuJubnyXyra6Zi
1Cn0PwSPclc=
           "]]},
         Annotation[#, "Charting`Private`Tag$451837#3"]& ]}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, -2.995732273553991},
      CoordinatesToolOptions:>{"DisplayFunction" -> ({
          Part[#, 1], 
          Exp[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Part[#, 1], 
          Exp[
           Part[#, 2]]}& )},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
          StyleBox["c", 16, StripOnInput -> False], TraditionalForm], None}, {
        None, None}},
      FrameStyle->GrayLevel[0],
      FrameTicks->{{{{-2.3025850929940455`, 
           FormBox["0.1`", TraditionalForm]}, {0, 
           FormBox["1", TraditionalForm]}}, {}}, {{{0, 
           FormBox["0", TraditionalForm]}, {2, 
           FormBox["2", TraditionalForm]}, {4, 
           FormBox["4", TraditionalForm]}, {6, 
           FormBox["6", TraditionalForm]}, {8, 
           FormBox["8", TraditionalForm]}}, {}}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{56., 1.5}, {17., 0.5000000000000142}},
      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.2, 8.2}, {-2.995732273553991, 
          Log[4]}}, {{-0.2, 8.2}, {-2.995732273553991, 1.3862943611198906`}}],
      
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      RotateLabel->False,
      Ticks->{Automatic, Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }], {189., -109.45948351831635},
      ImageScaled[{0.5, 0.5}], {360, 204.45528159684318}], InsetBox[
     GraphicsBox[{{}, {{{}, {}, 
         {RGBColor[0, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QQu+yFib1JlAgAAAEwAAAACAAAA/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
QBqekmbn3x3AWMXt6m2OIEDeRm/5UmcewAP+SAM=
           "]]}, 
         {RGBColor[1, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwlkmlUUwcahkOgoGRPSO5NaFhiSiuiBaqgYr0fKlS0FCXIah0CKhRGQUGs
gmL0KIvYKVWLCyJFK+BWMGBLRO8HVaYujASB4iCiQGhhQIgKhi3WnvnxnufP
c55fr3NMUvAmJoPB2PBuf3Oq3NgcGLOGqg84M+fW9Au6I2loRcDKyxQzeaku
//owva3B/cP4o3cpl81Ur3/zCD1w9IladLKVSvDxuvtrrZFuc1STFb1d1CXx
w+DChy/pkFLLiKArBmrXI9mJWsZruk22asivqp8aXZW38k3La7qmXNOX8mKI
mjPcqVRfH6W3j/P6f/7YSLUfS9y98/wY3cx4ypyZ+4qqftB45ErRG3qZi3QR
a3KU6qvJz1afM9FbD9mPjKtNlHIkzXLw3Dj9t+3YM0EpqAsj1RUTdM/Fa8O5
0dNUiSo2yrV2kvbxYhp15rdUqftCmVXbFH2TvJeTts4CHpZU21ePTdPZ+5aX
BWuZID13XXNM/pZO3xyw75TMCk4e4DYOujDwjO5lRFHWe5BjWFs8Ws/AMGfD
h61maygbGAvNibHA1kFNaHT2DJgUhh/isJgYNWP7mnq2LUzkRQh2VDLx819H
BB4/siDcO+9nhdoSXXu64tYv5EDABxsn83lWWOHUGD6/kwtxvFmzBu9Y4VKt
EgID+eD/p3lXQ/Z7mO5xTDTkKoDIs7rjWQHWuHDu1/owvhDKJjROlnY26JP8
n+xmsxDk9a2H3fts8DnraPl+owisBrIMFbdm4IFzva2LGuwgPtHJa7lmJn6V
alP5ySYxxJYeDDoit8XpsR3PCvViaA3+NufIUVtsMZ7Q3CMlkNCkjdkyZIsz
n+sbBKslkDgR7jnmycIgB0lCYIoEBKVPzN4pLHQffXVBcVwCQf3zuS8us/B5
5pzHlZUScLvgxmL2srCx9/SWrQ8kEGJ7Rx9jz0ZJ1if0qR4JOIoY6o4gNsZ0
lDywHpdAqPZjb8UhNlZY/pH3EYeADY8bd12qYaP8X9KyPEcCyiJveK4eZKM5
+lnNG3cCDjeWi62cOajS2kRqfAkwqN7eSAzh4O1jK0sK1hJgaVCWDuVycN1k
6pLN0QS4JGRfY9ZxMHX2VdfJrQQo+rJC3zdxMOrkyOrpDALInVc3FrtxUX91
2b2gXAIKZ3jHP4vh4r7obxzoAgKa1de7LU5z8YvMsVl+5wlQ+TikfdrGxYub
EvfkVxCw3OO/e1+yedj4Ux+jrpaATtNB++LPeMgV90wF/kaA3mCTfzyTh5Kn
BsWtRwTAPnlGWS0PLdyLfJd3ETCsasrLNfGwqYmquzNAgHVxTeoCez4K7aiG
J6MEiNnKdNKHj2V5mWe3WZBQUFdg8VEUHxXP+Bdb2CScYYw5vkrnY6w+Nc2T
JEE9d++82Wf4eL6+fdm3s0hoUq7f7ox8NGiX8F7MI8F1yju6rJuPVb+l3Tq7
mIRkp8wwrY0ABdJQo78/CQbdzc5+NwEu8G3Zwwgm4Y/UrOSbKgFaWaW8Nn1J
QkCTruqXXQKs9jbVb0wgoTBqcmNmiQCLbHbGDaWRsEqzmDN5X4CdJ4oqbh8g
IVb3OiTTJEAz10+zNJ+EhCG7HP8PhOh48H9rfykiIb7QsNhWJcT1Tr7G2Msk
DIe9TQrfL8TBQ1sOe95415u/LcCmSohNe89ns++TkNGuDN3WL8Rl0YYmRQcJ
WZEFHmwHESrbulWMQRJ2mBb+fmedCCM6Bxb1T5Ow8sk3IZzvRNj9013ZKF8K
7DrzS99GEY52/K5JcZGCaBP1YxLPDlN0bi5elBT+vUXbNRVph9oNbMOKKCkE
zzvod/KKHe72urQ0LF0Kp9ubz7pbi///vx+kEJ0GTmvjxNjrYXnc+FAKESU7
HsS3iHG3Kt82liWDqrmH0/eskaD8071Jj/4hg4wMr6+c+yVYWSo3nxqUAe2n
316sI9BiTF8+p8seeocr3RTdJK5eUvzPewvksP/V44Kwz2X45/6J7xfddACl
l3fJeLs9Opbo5bfnOcFEd9WKkGQ5Gq/dL5p9xQme+ieNB8c54F8r+cBc
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwlV3k41G0XlrJUZhjGzPy2GZSQyitLKDkpSyHeitKmtCBrSqVFC4pCaQ8V
RSSkaFWcUERRRCq0ML1EliwJ8U1ffzzXcz1/PNc55z7n3Ofc6u7+SzZJS0lJ
9UjOn3v4eneVg7uThXGHHWdpckeBXLzZ8aOjtRZ37wSQerndBdvPFbtyjD5b
aE3ixpW3/ygwtw7+Ks4WW0SpPa92/9BT4HTtdbN7VJtFY8rdsUFSfQUzn5e6
1lX3WVTGqnKGXQYKnB2UgkQwBk63FIWcvPi7YChWY2bGl/HwZurjqbuCpLF1
ir58Rj0bvOjvBS8vjMM209Z9Tboc8DJM2ZdEy6L2/RX/hl5XhpesARfvTXLo
O1q26FSVCmxxECtlessjW7Vp2EFeFeJqNBI/BY9HkySlMUe6eLBSc49x87SJ
yPvn4Kqd1XxQWq1le/nnREz5GX3TXEUARMyBaZ91FXAWiavU5gnAuW3ybfEK
BeRvMi6dvEEAXsxRK7ldCpj+pv2gywEBJIqbuVJnFPD18hObp8UJ4KR8SvW6
6wqYGnu27MMtAazqvWJcVaiAa47eKMsvF4D9qeyuX+8UsH8/u0csFoDyxplW
t3oUUPrNm9t3RgQwX11u+cEJLOQ0J4Zd4BFw3MbX5KAmC09FJYSbTyegpz0r
ecFcFiYX1lmemE+A35rLC7Y5s1Dh26qv210J0N+7qo7nw8Js85zJ4EtAx5VG
E+cIFrp6LZnwcB8BdHVlVFQCC0+2bOKWRxOgY1lfHJXNQh2L6/2t5wmwnGlp
bVjMwogNa+qtrxKgLl6So1DLQvU5703cMwm46hlm7/OJhQd3rSlYd4+A4cW/
qbAeFo7cO8lQTwjY+rP1RqgMG6cYi94eLiNA5J0RPcRlY8O8dvukagLmtzow
flpsvFU8tuxaPQGl+gpql4zZ+D5jcLWvmICHsMa+3ZaN5QM/CX4HAeGpFyc3
rmPjZVflxGv9BPw+/ciUG8RG6UcyytxRAt7tMCzcGMVGSTZ7lsmRcGD+44nK
l9h447/kn9GKJExOkl/QnMPGBxGdxRl8EnbcCVBcXsbGwHodJkNEwnv9xtEb
YjbapmbtPatFAg3JFc9/spEx8VjgpUfCsur8XieOIr5tmFOjPouEDwG7jDbO
UMTZARURVXNJGKnQSu5epIiPgtPn+1mTcKFbw0GwRRFdB1/J9DmQsHZFRBAe
U0RPmcMZfs4k7KxwN/95TRGzTRJ+1awmYZKo+WJdmSJeXeHnZbSRhLtp233i
2hQxp/Pop/3eJGiNWn1QHa+EhhzjOY8DSVBbZzcxkVbCjpWWc1uCSeh5o6ya
OkMJZ33qKZI/SILNxnGyMqCEPzoNZtARJBzcr5nNc1VCs9kErXmchC4D6NXy
VcLE37Yc4iwJuYP/mS0IVcKdi+TaRhNIiPLYa56SoIQNVVts66+SkJixaNbB
W0r43eZoaXa6JB5nR/VF5Uq49Kx6TNAtEr6Hmb3Z1qyEU/1tTKbfJyE1eo/M
jWElfC62SP6YT8KhrqJ/cggO6g1OqIp6SkKQlMZZFwMOwp+GfyHBT8EtTWkp
Bz/Oyu9/UUVC1ufNo/I+HOwc2XVz5TsSNIel0q8e5WDJBtmpTR9JmC7d8uNb
JgdD+ftkvL6S4JPapFFezkENUlJh7STo3nTLTvzGQZ/xvxI9eki4sm6r29OJ
ynh3gCvV9EtijxMw67SuMsZMqv2yVIqCAQX5TCN7ZZze7nWkQJaC+HKjyM5t
ynhqyavvmiwK2JVTU3bHKuMTl/G8IyoUkDVeGgG5ylh1XfeymKAgIcrnRP47
Zdxq0nPDVI2CTp/ltocHlbFuY/TuiCkUmBYpXY8XqaDsHwCmUVByt0e7wkoF
h86aruEZUDBk7XRw5mYVvJdgt9XZlIJ9TO3565EqaAb/2By3oKBjmeVUUZYK
er56ZfHEioKQtpVWO+tUEBymr2qzo+AH18jFfFgFibLIHapLKJA5MM/WUMTF
buuvsRYrJP7cO/f+GHAxKHukcv1aChzNlLPHenCx3lPK/+BGCtyaN2/3PMpF
typB5tUtFFAh24dOp3IxWvs7Kz+AgilXI2OSKriYF/LEr24HBWf2q1OxP7jY
+uZM5Y+9FET5xesU81RxKHhp7IRQCgxYLUUuZqpY/aiJy0RSEKbWtmHUVRUz
Rred1ztOgebXkPVSe1XRM/b7XoszkniL9hzQuqyK8oFOhfbxFHSL4yPHoSqm
LcmRW5lEQb/N2Kc+YlWcdmg0c2MqBUExyrUWo6q4w1HI25JJwcv3xm4MzcMn
tHmIfw4FpX20i7UhDztNrGwCH1Cwxz6u74sbD8ckG28NLKDgrZP71fZdPFRR
1I4PfErBjbiEhfbxPNTcTTwNLJfgt/i7u/AuD0nDXseA1xQ020nfPf6Ghz1z
7s/2fksBP+79AKeFhy+s9mptbqCg/rLMSwNZPqYsBpX1TRTciR730FCNj3cf
6Juvb6Vgx7Ha90/N+CiuMZXd2EnBalNdpUJHPqr8mFe5uY+C1z8qutvW87Fy
YSflNiTxpw5X54XwMSopwXP5GBrudIS7RZ7lo+2vhXcc5WjYVf7fzUmpfFSX
ZictYtEQJv+roiifj3/ay0qFBhY1K6W9mo9dErabT9BApPEViHaJ/ZAjV0BE
Q1vUibdeA3zMP2IXM1uThkot67T7HAHmzJtCmOrS0J/bNjVUJMCnku+m+jT8
OjKQzjMS4Fv+eF/TWTTU9Gvb+VkKsOXQ4FlTcxqmxfP8YpcLcPB7G5rOp4Ht
ZvvP3k0CVHBt+Ga6kIbOIp+Gmj0CNAsS58xxpOHHgkLV4mjB3/w703BiU/fI
3DMC3D3ceM1iFQ3ZgStlHycLME3wn7/lehrMuUfSxuYK8GFo3QVLDxrsajSq
bUsFf+P3peG4BvtHeY0AIw7MT1uyjYZj0cGB3Y2Cv/wRTMO9YMPzNu0CPP7x
Q6/Hfom/Ghn2Sb8EqIdzzYLCaVgR3T7grEBg+7/3heHHaJiQOnjOhCEwrUl/
7JlYGuLkq8p81Im/8+OcBN/RurA5OgS2NBZpllykofu2h6HmLAIXn3ta/PUq
DTMWPOv4bENglVSj9Ph0GsZ6TjjmsIhA0wcfk7SzaQidY3LoiyuBddXs/Q53
abAOYW94uo7AW07ecTsf0XA4Z7P4sT+B10IalyUX0vAsX5jmFUTgvTWeWdWl
NORO5xq/CiVQ+rLIWr6ShuL38utSYoi/eNZIppepUdhIFIHyX1u693ygoUHv
22f1NAKL2wZl8j7T0PVCzNJOJjDhyqQHw/9J8v/SPXZlFoFZeZIB1kFDim9v
u1MBgR/Cv5pF99LgcoBzX6aIQMvbB8bXD9Lg6T11zbxSAke6196ZOYaBUYPt
Pf2vCew5teVyjBwD+c9GLkS9JVDt/NWSThYDVoaWbd7NBF69qfZyBZeBBP/M
amgn0E2nXKmEZOD+cXFEUAeBUR4SglNnQFbhjbNgHIm1Lu16eVoMbAotinkk
RWKQq73P3BkMLGhLmaQ1gUQv/67w54YMOE5esi+HT/7tn9kMFNdcr5pNkeh3
mOr6NY+BkDzFsTc0SbTWDJKOs2Ugp5U9gNoknojQiV3gyEDk1gMlSUYkeqx3
nD3szIBe+/1VTQYknnZ4UJi3moHsFeHnL9uQyHPw0ArdwIBmWaX9HScS7/zW
1XXYwsD6oa1N9stJfBpod0N9KwMRJQtf960gUXcoS35kJwNGF1SfGXiRmOnX
l9AbwsDd4xz7Cn8SE6+dzewLZ2DHtQSrkd0ktnbviR+JYsDtUGF+bjCJizt2
ak84zYBv0qf0wEMkat6s0FeLZ6AnuvVjYSSJn/LZCQZXGLgS5aWuH0Oi9gJU
X3adAW+HE+Ipl0jcOnauRVQ2A2G3lY2srpB4UTJe3t1jILMjfM2+dBK3PZw2
xbhAguelwvSQPBIXbsiNSX8miZ9ntPhSAYmuknVkcgUDWrt+Pi58TKLev4+N
smsk/ljd4g6Vkqgu6vVxaWDArtl2X+5rEu0dV3wZI2bAcCCOqGkgUePaAuXH
7QyIBCymqZ5EbotK8MleBmwu9D1a1EriyzGHTHcPM2AaXRcxdZBEh56YpdvH
CcFo96SPun0k3vL9d3OoghBU+a7aM8ZReGVN+OnLXMnbtWvuF1kKd9b65b2i
hVBq/el3gDKF9kVdHH1NIbDLaxcHCSlsedLgmjddCEPTPrXbMxT2hWkKnYyF
MOFs7lR9DQrFrzQ+/JorhNHMANXEmRRenHEs8qWNEFo81yLfhsJo9wcpNU5C
ONQ7EDa4hMKJfwpopRD0FtlExEve/+e7DUJw10+U93Sj8HS/rNt5HyF06Gee
3+pN4aMst2xqhxCK1n7+phtIYYmO2cny/UIozHphs8WfwvUxwoJ7kUKIaKid
eSmawv/ro1NCuPlqtKY9jMKsS6caZ10SwvNBWd1TpynUWX28sC9NCNR8Orn7
IoXe3TpSz3KEEP7xwsrftyjMNNSRacgXgsvNpC/4lMLXWZZljmVC0NnjOuNl
CYV238YZcmqFcMWaKG0oo/D/+u6LEOIXbtezaqRQuvthyJMOISStu+2p+JHC
ti/GJA4JYVew67mL3RS6h3V5NsmLIB+yK2Es/Xcf5ovAd9GltXvG0ZjvsL9/
kqYI6is54r0aNP6hV7GBCN6NUaUPzqBRIu6iX8wXgWkYyy3AhEbJNtyXsEwE
le+aNpbZ0cgpeXg/erMIduV83W7tTmPn1+vsB8Ei6LCNPmcURCNteSbO/IQI
nL3TbE+E03/1RboIlowKfP6JozGhvtOJWyqCwAOngmse0Ph6tUSBfRNBl3JR
7oVmGpV2G9+YK6cGv133B9VJMSi68popFqqBXeO+/nR9BrUVJ965ZqoGAe5a
O0o2MDg8FDVRzl0NUrrrFN/fYnCN08eZqfFqwHufMS1VT4hWl7bsC8tTg0Zr
/19LPIT4P3az6PY=
           "]]}}, {
         {RGBColor[0, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}}, {
         {RGBColor[0, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
         {RGBColor[0, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 1], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, -7.600902459542082},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
          StyleBox[
           SubscriptBox["\[Rho]", "0"], 16, StripOnInput -> False], 
          TraditionalForm], None}, {
         FormBox[
          StyleBox["\[Beta]", 16, StripOnInput -> False], TraditionalForm], 
         None}},
      FrameStyle->GrayLevel[0],
      FrameTicks->{{{{-6.907755278982137, 
           FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
           FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
           FormBox["0.1`", TraditionalForm]}}, {}}, {{{0, 
           FormBox["0", TraditionalForm]}, {2, 
           FormBox["2", TraditionalForm]}, {4, 
           FormBox["4", TraditionalForm]}, {6, 
           FormBox["6", TraditionalForm]}, {8, 
           FormBox["8", TraditionalForm]}}, None}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{56., 1.5}, {41.99999999999997, 0.5000000000000426}},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& )}},
      PlotRange->{{-0.2, 8.2}, {-7.600902459542082, -0.6931471805599453}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      RotateLabel->False,
      Ticks->{Automatic, 
        Charting`ScaledTicks[{Log, Exp}]}], {189., -340.8784505549491}, 
     ImageScaled[{0.5, 0.5}], {360, 229.45528159684318}]}, {}},
  ImageSize->{
    UpTo[360], 
    UpTo[445]},
  PlotRange->{{0, 378.}, {-462.83793407326544`, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.802175761479096*^9, 3.802175863775364*^9, {3.802176338770213*^9, 
   3.8021763755995083`*^9}, 3.8021765932282*^9, 3.802177501048196*^9, 
   3.80217753253866*^9, 3.802177654285932*^9, {3.802177701112014*^9, 
   3.802177722830563*^9}, 3.802353760449629*^9, 3.802554530020987*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"6183abe4-1482-48d4-b438-3be515fa5caf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<~/doc/research/hadamard/paper/equivert.eps\>\"", ",", "c\[Rho]Plot"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.802175767579317*^9, 3.802175836385655*^9}, {
   3.8021758677098*^9, 3.802175868234004*^9}, {3.8021766423740883`*^9, 
   3.802176642761888*^9}, {3.802177544143303*^9, 3.802177601792076*^9}, 
   3.802177663313095*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"c19fc7ad-2f20-4408-ae77-f80f7c794d03"],

Cell[BoxData["\<\"~/doc/research/hadamard/paper/equivert.eps\"\>"], "Output",
 CellChangeTimes->{{3.8021758144847*^9, 3.802175868789843*^9}, {
   3.802176340222908*^9, 3.802176376145843*^9}, 3.802176594528945*^9, 
   3.80217665251313*^9, 3.8021775016591873`*^9, {3.802177532816225*^9, 
   3.802177602515102*^9}, {3.802177660372542*^9, 3.8021776664299707`*^9}, 
   3.802177702601185*^9, 3.802177733014504*^9, 3.8023537672333927`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"9d6eec3f-fb1b-4010-8b5a-96f35f52fd2d"]
}, Open  ]]
},
WindowSize->{956, 1056},
WindowMargins->{{2, Automatic}, {2, Automatic}},
Magnification:>0.8 Inherited,
FrontEndVersion->"12.1 for Linux x86 (64-bit) (March 14, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"7dd147f2-d824-4b69-9ff8-d008132a0184"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3307, 78, 97, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
Cell[3868, 100, 668, 18, 48, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
Cell[4539, 120, 417, 7, 23, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
Cell[4959, 129, 819, 23, 23, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
Cell[5781, 154, 1819, 48, 61, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
Cell[7603, 204, 963, 26, 37, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
Cell[8569, 232, 901, 20, 39, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
Cell[9473, 254, 2200, 55, 79, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
Cell[11676, 311, 2250, 45, 43, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
Cell[13929, 358, 1306, 28, 23, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
Cell[15238, 388, 1314, 33, 26, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
Cell[16555, 423, 1668, 41, 62, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"],
Cell[18226, 466, 478, 14, 26, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
Cell[18707, 482, 535, 10, 23, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
Cell[CellGroupData[{
Cell[19267, 496, 317, 8, 23, "Input",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"],
Cell[19587, 506, 43127, 860, 331, "Output",ExpressionUUID->"50478f07-ce1f-4ccf-b25f-71f47b0f2386"]
}, Open  ]],
Cell[62729, 1369, 2481, 56, 77, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"],
Cell[65213, 1427, 1179, 34, 75, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
Cell[CellGroupData[{
Cell[66417, 1465, 2465, 62, 62, "Input",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"],
Cell[68885, 1529, 73084, 1329, 208, "Output",ExpressionUUID->"addcb650-971c-447d-9e45-ff6aab4a2549"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142006, 2863, 3383, 71, 62, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
Cell[145392, 2936, 56549, 1066, 196, "Output",ExpressionUUID->"8f31c4e7-3f9e-4970-8ffa-82ae946fa101"]
}, Open  ]],
Cell[201956, 4005, 1367, 34, 75, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
Cell[203326, 4041, 1478, 31, 75, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
Cell[CellGroupData[{
Cell[204829, 4076, 4143, 100, 98, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
Cell[208975, 4178, 55346, 1044, 194, "Output",ExpressionUUID->"9963b39a-253f-470a-8961-9edebd6507c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264358, 5227, 1021, 19, 23, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
Cell[265382, 5248, 2020, 28, 27, "Output",ExpressionUUID->"d6eb8147-5336-4f0a-af98-2c7f67894dec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267439, 5281, 589, 14, 23, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
Cell[268031, 5297, 1205, 17, 27, "Output",ExpressionUUID->"f74d6f02-720c-446d-9c38-444a61f1ed7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269273, 5319, 495, 13, 23, "Input",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"],
Cell[269771, 5334, 681, 10, 27, "Output",ExpressionUUID->"fab803c0-6c8a-4f51-ad3c-a478c5fdbd88"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270489, 5349, 500, 13, 23, "Input",ExpressionUUID->"03139c62-638d-4c12-b522-98250958257e"],
Cell[270992, 5364, 652, 10, 27, "Output",ExpressionUUID->"834849b1-c68a-4110-8710-d6ab56b9cfdb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271681, 5379, 1178, 31, 26, "Input",ExpressionUUID->"c2dc46a6-3d44-49a2-a86b-2bc8d34ad4a2"],
Cell[272862, 5412, 261, 3, 27, "Output",ExpressionUUID->"b65d9eb6-d781-4a0a-a70a-d4eab4091d42"]
}, Open  ]],
Cell[273138, 5418, 3675, 100, 92, "Input",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"],
Cell[CellGroupData[{
Cell[276838, 5522, 3687, 79, 95, "Input",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"],
Cell[280528, 5603, 42346, 821, 200, "Output",ExpressionUUID->"13b84951-cc38-4f71-953f-0adb0f741a41"]
}, Open  ]],
Cell[322889, 6427, 1557, 46, 80, "Input",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"],
Cell[CellGroupData[{
Cell[324471, 6477, 1148, 26, 26, "Input",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"],
Cell[325622, 6505, 34479, 669, 187, "Output",ExpressionUUID->"930a1ab6-cd4c-4165-9216-6f31dd6f1d71"]
}, Open  ]],
Cell[360116, 7177, 289, 6, 23, "Input",ExpressionUUID->"7f334b13-fb8f-476f-af9f-ccaaaff3658d"],
Cell[CellGroupData[{
Cell[360430, 7187, 2198, 56, 44, "Input",ExpressionUUID->"afd9fdc2-8f88-464e-964a-ee3b58355b95"],
Cell[362631, 7245, 27242, 473, 193, "Output",ExpressionUUID->"418904c2-3867-4abc-9f50-70af35b92fcd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[389910, 7723, 3401, 67, 44, "Input",ExpressionUUID->"19ba1574-8da8-420d-80f7-17a4f14ec9e1"],
Cell[393314, 7792, 13350, 240, 198, "Output",ExpressionUUID->"703b6729-885f-4b8d-996f-7370b4d419ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[406701, 8037, 352, 7, 23, "Input",ExpressionUUID->"84e35e5b-7f3e-4788-809f-e1b50bd74ed2"],
Cell[407056, 8046, 39956, 701, 363, "Output",ExpressionUUID->"6183abe4-1482-48d4-b438-3be515fa5caf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[447049, 8752, 464, 9, 26, "Input",ExpressionUUID->"c19fc7ad-2f20-4408-ae77-f80f7c794d03"],
Cell[447516, 8763, 511, 6, 27, "Output",ExpressionUUID->"9d6eec3f-fb1b-4010-8b5a-96f35f52fd2d"]
}, Open  ]]
}
]
*)