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[    258668,       5094]
NotebookOptionsPosition[    253152,       4999]
NotebookOutlinePosition[    253485,       5014]
CellTagsIndexPosition[    253442,       5011]
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[14]:=",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[{"lognum", "[", "n", "]"}], "+", 
   RowBox[{"\[Beta]", " ", 
    SuperscriptBox["n", "2"]}], "+", 
   RowBox[{"n", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}], "/", "4"}], 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"2", "\[Pi]"}], 
      RowBox[{"\[Beta]", " ", "n"}]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7860366301695232`*^9, 3.78603671133499*^9}, {
  3.7860405792534246`*^9, 3.786040612454341*^9}, {3.786040708688937*^9, 
  3.7860407113402042`*^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[{"ClearAll", "[", "Ss", "]"}]], "Input",
 CellChangeTimes->{{3.7898179003480053`*^9, 3.789817902160972*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"4442d61b-8ac4-4392-8a54-81f967a3e8ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Interpolation", "[", 
    RowBox[{"Normal", "@", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"Thread", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Normal", "@", 
           RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "@", 
             RowBox[{"dat", "[", "\"\<Cs\>\"", "]"}]}], "/", 
            RowBox[{"Normal", "@", 
             RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]}], "/", 
           SuperscriptBox[
            RowBox[{"dat", "[", "\"\<n\>\"", "]"}], "2"]}]}], "}"}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}], "[", "x", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, 
   3.789819474816937*^9},
 CellLabel->
  "In[104]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ss", "[", "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}},
 CellLabel->"In[9]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ss8", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"logZ", "[", "8", "]"}], "[", "\[Beta]", "]"}], "-", 
        RowBox[{"logZ0", "[", "8", "]"}]}], ")"}], "/", 
      SuperscriptBox["8", "2"]}], "-", "\[Beta]"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ">", "0"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.786037096706629*^9, 3.786037117949012*^9}, {
   3.786037156235767*^9, 3.786037158427763*^9}, {3.786039171339127*^9, 
   3.786039257691778*^9}, {3.786039522415203*^9, 3.7860395339911833`*^9}, 
   3.786039617250888*^9, {3.786039887363777*^9, 3.78603992005735*^9}, {
   3.7860400739360933`*^9, 3.7860400756260147`*^9}, {3.7860401895870457`*^9, 
   3.786040191039853*^9}, {3.786040498728237*^9, 3.786040506800436*^9}, {
   3.78604071946595*^9, 3.786040725122241*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"19600c28-5fcf-466c-b87f-667b0f106dc0"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "64"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "53"}], " ", 
     RowBox[{"Log", "[", "2", "]"}]}], "+", 
    RowBox[{"Log", "[", "135", "]"}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", 
    RowBox[{"14", " ", 
     RowBox[{"Log", "[", "\[Beta]", "]"}]}], "+", 
    RowBox[{"lognum", "[", "8", "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.786039535285647*^9, 3.786039618611538*^9, {3.786039898955435*^9, 
   3.7860399210303164`*^9}, 3.786040080270445*^9, 3.7860402110068407`*^9, 
   3.7860405093410797`*^9, 3.7860406173934937`*^9, {3.7860407048467827`*^9, 
   3.7860407266448603`*^9}, 3.786380877554284*^9, 3.789747057335539*^9, 
   3.789816741881899*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"6c93bebf-e58f-4c6f-b240-c9606f805231"]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c8", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Cf", "[", 
    RowBox[{"d", "[", 
     RowBox[{"SelectFirst", "[", 
      RowBox[{
       RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}], "]"}], "[", "x", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, {
  3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, 
  3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, {
  3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, 
  3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, {
  3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, 
  3.7898194634932632`*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   RowBox[{
    TagBox["InterpolatingFunction",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquarePlusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
               Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AMHnRIwVTPkXRMWw0
Fdo/Z6Z2GHK9jj8FZS60Bi7rP6M6eCVgNJs/aslGZ8ww9D/r/IISyZ+hP8qC
eNpvqfo/ofdilACKpD8VebNxPtcAQP7j6SXWBqc/IB09Xc4dBEAQEHazpk+p
PykcpROTqgdA2LPaEmO0rD9wLA79xCYLQELCNjG3JbE/EKmJTQBnDkD0Gk9k
sAK1P1jAcTS49hBAjI7QNthEuT9V4qf19JsSQNnW5qa5gLo/8YxeUOg4FEBs
dSgMCP23PwxlhBD2+BVA5un7whVMsz9VczOECJsXQMvakd7lj64/Hq9RXTVg
GUAGZaFfv1aoP4Vz8M8YHRtAMrWj0qhkpD8Zbhj2ALwcQLl216m386E/LZav
gQN+HkC3wDJKOyCgPzj6Z2AFESBA/uiYEuy2nT8ZwK8ylvQgQAk3e8qalZs/
Scq3UQLUIUBnd2E4XOeZP49vhMpwpCJAsyOKF1SQmD+Vqwh2bIYjQMvnhfgZ
T5c/soJRe2pZJEBB37jud0eWPx6eWs1DKCVAK83a16NelT9KUBtSqggmQI/6
crFAe5Q/jZ2gMBPaJkD+dlSa8LaTP4+B3UEJvSdAl095z9X2kj/hqdqf2pso
QEBbcPNsRpI/SW2cV65rKUBv/NK0ua2RP3HHFUIPTSpAw50y0DIVkT+wvFOG
ch8rQJ+8K9kckJA/PvZRF7HtK0D+j+d3URWQP4zGB9t8zSxAmxOXoK4ujz/w
MYL4Sp4tQHJHIimBUY4/FDS0SKaALkBBty3Gwm+NP0/RqvIDVC9Af+rIuwup
jD9t2bB0nhEwQCXOnfeV8Is/khVoiQGCMEAYQBP90zKLP0KfAcvl6jBAbgjo
VrWIij9S9PalkFwxQPC7J92I2Yk/imtMJynMMUCviET27TeJP00whNVCNDJA
Je1gALmniD9wwBcdI6UyQBFk6gLzEIg/H56NkYQOM0Bkc3Su3YyHP/WdY6zT
dTNAcbgX46wPhz8raZVg6eUzQLsLJuhxjIY/7IGpQYBONECBXABLgBiGPw1m
GbzdvzRAalmJpgeihT9WbOncKC81QHzC0/EaLoU/KsCbKvWWNUAj8VEiaMeE
P17fqRGIBzZAslBeBgBehD8dTJolnHA2QAcb67Zy/oM/PITm0nbiNkCVKgNL
F5mDP4PekiY/UjdAjnY2U4E6gz9VhiGniLo3QJCWQKBd54I/h/kLwZgrOEDM
AqjiWI+CP0W62AcqlThARhQRgd0+gj8+GeT4//84QCsKXW5v8IE/LI+uqA==

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$34628#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.10352669071911737`}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquareMinusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
                Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AMHnRIwVTPkXRMWw0
Fdo/Z6Z2GHK9jj8FZS60Bi7rP6M6eCVgNJs/aslGZ8ww9D/r/IISyZ+hP8qC
eNpvqfo/ofdilACKpD8VebNxPtcAQP7j6SXWBqc/IB09Xc4dBEAQEHazpk+p
PykcpROTqgdA2LPaEmO0rD9wLA79xCYLQELCNjG3JbE/EKmJTQBnDkD0Gk9k
sAK1P1jAcTS49hBAjI7QNthEuT9V4qf19JsSQNnW5qa5gLo/8YxeUOg4FEBs
dSgMCP23PwxlhBD2+BVA5un7whVMsz9VczOECJsXQMvakd7lj64/Hq9RXTVg
GUAGZaFfv1aoP4Vz8M8YHRtAMrWj0qhkpD8Zbhj2ALwcQLl216m386E/LZav
gQN+HkC3wDJKOyCgPzj6Z2AFESBA/uiYEuy2nT8ZwK8ylvQgQAk3e8qalZs/
Scq3UQLUIUBnd2E4XOeZP49vhMpwpCJAsyOKF1SQmD+Vqwh2bIYjQMvnhfgZ
T5c/soJRe2pZJEBB37jud0eWPx6eWs1DKCVAK83a16NelT9KUBtSqggmQI/6
crFAe5Q/jZ2gMBPaJkD+dlSa8LaTP4+B3UEJvSdAl095z9X2kj/hqdqf2pso
QEBbcPNsRpI/SW2cV65rKUBv/NK0ua2RP3HHFUIPTSpAw50y0DIVkT+wvFOG
ch8rQJ+8K9kckJA/PvZRF7HtK0D+j+d3URWQP4zGB9t8zSxAmxOXoK4ujz/w
MYL4Sp4tQHJHIimBUY4/FDS0SKaALkBBty3Gwm+NP0/RqvIDVC9Af+rIuwup
jD9t2bB0nhEwQCXOnfeV8Is/khVoiQGCMEAYQBP90zKLP0KfAcvl6jBAbgjo
VrWIij9S9PalkFwxQPC7J92I2Yk/imtMJynMMUCviET27TeJP00whNVCNDJA
Je1gALmniD9wwBcdI6UyQBFk6gLzEIg/H56NkYQOM0Bkc3Su3YyHP/WdY6zT
dTNAcbgX46wPhz8raZVg6eUzQLsLJuhxjIY/7IGpQYBONECBXABLgBiGPw1m
GbzdvzRAalmJpgeihT9WbOncKC81QHzC0/EaLoU/KsCbKvWWNUAj8VEiaMeE
P17fqRGIBzZAslBeBgBehD8dTJolnHA2QAcb67Zy/oM/PITm0nbiNkCVKgNL
F5mDP4PekiY/UjdAjnY2U4E6gz9VhiGniLo3QJCWQKBd54I/h/kLwZgrOEDM
AqjiWI+CP0W62AcqlThARhQRgd0+gj8+GeT4//84QCsKXW5v8IE/LI+uqA==

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$34628#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.10352669071911737`}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["3", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["False", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   InterpolatingFunction[{{0., 25.}}, {
    5, 7, 0, {65}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
1:eJxTTMoPSmViYGBgBGJHBgT4s/LjJd+kAPvDXZwK2X867N98nXytJXKlvai1
VPuv2Gf24nMO3td/9ta+oObtTNXGT/bhCSdehZ3/av9ty+H4yaY/7ct/ZG9y
2/vH/rzne+l4awaHm04TmoXUmBx+3jL2ZhJhcTh5IvLGZT42h106amby19kd
ctTu5xQ/5nSI3rj/zTwbHgeT65lLlhbxOZwtlcpcKSPg8DNttvTlzwIOn3ik
fqnvEHRYmg3UsFnI4ZLE2sWrVgo7uHH0m/VViDgkb+lbpZYh6rA27+ucL/vE
HPZfOT+764u4Q4fgocW9jyUcWrRMqxdMlXaolLszd+ttGYfazWd7X56UcwDa
skdWUcFB75G14etWRQcNri+dNpZKDhzPXnys1lZ2+OR4Pu0qu4pD+/LwU0Ys
qg6JIUHqCzzVHI4qbCjKEFR3SH4X5WTHoeHw2EzqQPQDDQf1Q23Lw19pOtz3
752et0nLoSbRKNRglbZDdbO+z7IuHYc3gTvkWrt1HQL+SBRfv6TnwK2iUdfz
U99B5vUjM6kJBg5bzX8cSpEydJDWv6vCNtHQYZ/BTC0JViOHSwz3mDhnGTk4
LLm/j0/G2CH/Q+vJkIXGDmfPAIGOicOBaAXHj5tNHFiP9huW+5o6RLZZXDu6
1xTiDiczh72PRWRPXjVz8ABZHG7uoLtp7vvlz8wdniYuvGaSb+EAiX1LBwCB
r+DA
    "], {
    Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
     14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
     32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
     50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
     65}, CompressedData["
1:eJwBFQLq/SFib1JlAQAAAEEAAAAAAAAAAAAAAIeCmNKa6QU/vy+r2LGpQD9V
qkWdX7pgP0BHiNaEl5c/BR+hpwYUnT8MxvNqa7igPx1c4sdTbaI/e2KfSA/z
oz9Otq3KRFSlPxlmHafWnqY/3o6u4i3npz/Lvz/TI0ipP4FSn2kj+ao/PBaJ
TgvrrD8F6BHAYeuvPzwLB6lwULI/y+IYW9IRtT/GSaGa3l+3P9jtAQKJP7k/
Mb5mcedQuj/hBNi1x3S6Pz8iDigHNLk/HaZeDo1ftz9lXUwfD9u0PzLdEAWV
P7E/LLjU+9kgrT9TyyHD78upPzzHWaGBl6M/5uOB4QjNoT9kOFXjPMCfPzCS
DQm3i50/zlc+jEZ2mj/W90hUqjqZP/Vwisu8ypc/EBTiCz+qlj8c+kPEaIWV
P4WYVRwqPZQ/DqCWIbmFkz8ilWMj6bqSP17NX/M6EpI/t36/tsxWkT+RKwkR
79OQP4rxJCXZPJA/5HOL3kB4jz9J2wCF3WSOP1ArvDMpIY0/+OFQWuAUjD+H
VPkoqBuLP4DWHQc1Poo/v/zPEy+MiT/i86Kx2OiIP0y+pj5BH4g/+9wetkx8
hz9JrtgjONyGP3GipxKvPIY/YBgRxZuuhT8G4+H3Vg+FP4eaK35oooQ/Xh9C
AYAohD8ywF+2H6SDP6AbMao5NoM/22St0Q3Fgj/Nzsb0gluCPzhnRGlv8IE/
FdrwBA==
     "]}, {Automatic}],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "[", "x", "]"}]], "Output",
 CellChangeTimes->{{3.789816770006812*^9, 3.789816807584139*^9}, {
  3.789819463906452*^9, 3.789819478604794*^9}},
 CellLabel->
  "Out[106]=",ExpressionUUID->"d46af3b2-77be-4b80-8679-279619719d6c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"c12", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Cf", "[", 
    RowBox[{"d", "[", 
     RowBox[{"SelectFirst", "[", 
      RowBox[{
       RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}], "]"}], "[", "x",
    "]"}]}]], "Input",
 CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, {
  3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, 
  3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, {
  3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, 
  3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, {
  3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, 
  3.789819496014751*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"13991a8c-a9a3-43e4-9f23-4e47933f94eb"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   RowBox[{
    TagBox["InterpolatingFunction",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquarePlusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
               Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   
                   LineBox[{{4.23728813559322*^-7, 1.6723187929613287`*^-8}, {
                    0.4075442368114362, 0.015105759570018952`}, {
                    0.8493684310116413, 0.027192875510333083`}, {
                    1.2619136842955307`, 0.035523113371547975`}, {
                    1.6663664373410705`, 0.041602316780044835`}, {
                    2.105099571504193, 0.046446590096994256`}, {
                    2.5145537647509997`, 0.04963379789099925}, {
                    2.9582883391153882`, 0.05197202083611144}, {
                    3.393930413241428, 0.05342572279814811}, {
                    3.800293546451151, 0.05459481375745209}, {
                    4.240937060778457, 0.057861790601668156`}, {
                    4.652301634189446, 0.07188627196101569}, {
                    4.862585798899008, 0.096508842977757}}], 
                   LineBox[CompressedData["
1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAKbdylveWGECCQF20zbS4Px6vUV01
YBlA9M60AKpcsT+Fc/DPGB0bQBKw+xnW36Y/GW4Y9gC8HECJM0kG3uaiPy2W
r4EDfh5AvNvoZYnGoD84+mdgBREgQMIny20Z+J4/GcCvMpb0IEAR8sIww8yc
P0nKt1EC1CFAcqShL9oSmz+Pb4TKcKQiQMfaA7l6tJk/lasIdmyGI0C8oOji
aWaYP7KCUXtqWSRAqemSmY5Rlz8enlrNQyglQLmQsEVSXpY/SlAbUqoIJkAU
AjkQSnCVP42doDAT2iZAwXnXoK2jlD+Pgd1BCb0nQPUZp/vw15M/4anan9qb
KEBYrZN6BSGTP0ltnFeuaylAR4tRPCeDkj9xxxVCD00qQDSZqIK445E/sLxT
hnIfK0APs0mj9FeRPz72URex7StAG+3NoaTWkD+MxgfbfM0sQBP76HiOUpA/
8DGC+EqeLUBm6XqLPL2PPxQ0tEimgC5ACuu+O0bRjj9P0aryA1QvQKsAqkLB
AY4/bdmwdJ4RMEDqEkO2SkCNP5IVaIkBgjBAJ++ch9t4jD9CnwHL5eowQJSo
wZnMx4s/UvT2pZBcMUDxVtuiHxGLP4prTCcpzDFAYUWTJstmij9NMITVQjQy
QJ91bsmuz4k/cMAXHSOlMkA5svpNfjOJPx+ejZGEDjNAiZTOxy+oiD/1nWOs
03UzQElKGN9FJYg/K2mVYOnlM0A5Cahx+ZyHP+yBqUGATjRAYeiHUnkihz8N
Zhm83b80QLm35Nkgo4Y/Vmzp3CgvNUDRrXjDwyuGPyrAmyr1ljVAhMi1FXbB
hT9e36kRiAc2QGnpDN3LUoU/HUyaJZxwNkCQ7iyDOu+EPzyE5tJ24jZArjm6
GNaGhD+D3pImP1I3QKItcr8tJIQ/VYYhp4i6N0DjJko/esuDP4f5C8GYKzhA
rTUG+9xugz9FutgHKpU4QNY0lXOjG4M/Phnk+P//OECrSUlHhsqCP9QPUOY=

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$34953#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.096508842977757}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquareMinusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
                Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   
                   LineBox[{{4.23728813559322*^-7, 1.6723187929613287`*^-8}, {
                    0.4075442368114362, 0.015105759570018952`}, {
                    0.8493684310116413, 0.027192875510333083`}, {
                    1.2619136842955307`, 0.035523113371547975`}, {
                    1.6663664373410705`, 0.041602316780044835`}, {
                    2.105099571504193, 0.046446590096994256`}, {
                    2.5145537647509997`, 0.04963379789099925}, {
                    2.9582883391153882`, 0.05197202083611144}, {
                    3.393930413241428, 0.05342572279814811}, {
                    3.800293546451151, 0.05459481375745209}, {
                    4.240937060778457, 0.057861790601668156`}, {
                    4.652301634189446, 0.07188627196101569}, {
                    4.862585798899008, 0.096508842977757}}], 
                   LineBox[CompressedData["
1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAKbdylveWGECCQF20zbS4Px6vUV01
YBlA9M60AKpcsT+Fc/DPGB0bQBKw+xnW36Y/GW4Y9gC8HECJM0kG3uaiPy2W
r4EDfh5AvNvoZYnGoD84+mdgBREgQMIny20Z+J4/GcCvMpb0IEAR8sIww8yc
P0nKt1EC1CFAcqShL9oSmz+Pb4TKcKQiQMfaA7l6tJk/lasIdmyGI0C8oOji
aWaYP7KCUXtqWSRAqemSmY5Rlz8enlrNQyglQLmQsEVSXpY/SlAbUqoIJkAU
AjkQSnCVP42doDAT2iZAwXnXoK2jlD+Pgd1BCb0nQPUZp/vw15M/4anan9qb
KEBYrZN6BSGTP0ltnFeuaylAR4tRPCeDkj9xxxVCD00qQDSZqIK445E/sLxT
hnIfK0APs0mj9FeRPz72URex7StAG+3NoaTWkD+MxgfbfM0sQBP76HiOUpA/
8DGC+EqeLUBm6XqLPL2PPxQ0tEimgC5ACuu+O0bRjj9P0aryA1QvQKsAqkLB
AY4/bdmwdJ4RMEDqEkO2SkCNP5IVaIkBgjBAJ++ch9t4jD9CnwHL5eowQJSo
wZnMx4s/UvT2pZBcMUDxVtuiHxGLP4prTCcpzDFAYUWTJstmij9NMITVQjQy
QJ91bsmuz4k/cMAXHSOlMkA5svpNfjOJPx+ejZGEDjNAiZTOxy+oiD/1nWOs
03UzQElKGN9FJYg/K2mVYOnlM0A5Cahx+ZyHP+yBqUGATjRAYeiHUnkihz8N
Zhm83b80QLm35Nkgo4Y/Vmzp3CgvNUDRrXjDwyuGPyrAmyr1ljVAhMi1FXbB
hT9e36kRiAc2QGnpDN3LUoU/HUyaJZxwNkCQ7iyDOu+EPzyE5tJ24jZArjm6
GNaGhD+D3pImP1I3QKItcr8tJIQ/VYYhp4i6N0DjJko/esuDP4f5C8GYKzhA
rTUG+9xugz9FutgHKpU4QNY0lXOjG4M/Phnk+P//OECrSUlHhsqCP9QPUOY=

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$34953#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.096508842977757}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["3", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["False", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   InterpolatingFunction[{{0., 25.}}, {
    5, 7, 0, {65}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
1:eJwBGQLm/SFib1JlAgAAAAEAAABBAAAAAAAAAAAAAAD8qfHSTWJQPxHZUeYw
qZs/u9bep6rQwD+Qn41cN6XSPxGPxMvTOeM/xXQhVn+E6z9XQ+IeSx/wPz9v
KlJh7PI/HebLC7AP9j8yIHu9++P4P39N1qiHaPw/SPlJtU8HAEAQr+sX7MYB
QIT1fw7zZQNAiZgSSfQyBUB4tHHEWvwGQJ3X2CWqtwhAQj7o2ay6CkC7m6c6
5KYMQJ8fRgiPdg5ATI47pYNVEEBIbeLkfocRQGItPgXAWBJADhXj/E0IE0CO
QLyuX7ATQNc07zhFJxRAHy457pSOFEB4l4v4TuwUQPWc9L7xNRVA4PPDCOFx
FUBYxRuZR74VQN+mP/uRAhZATRWMSupEFkCWBKipZYsWQCodrP9z2BZA9gt2
w7YlF0Bjl6jeGngXQNl3RfC/1RdALLe0GhJXGEAKEXAIVQoZQOVhodY0zxlA
qcE0DB/xGkDhtOBFX4EcQCcxCKwcGh5A2iCTjJwFIED1nPS+8RUhQOtunuqQ
ayJAn+V5cHd2I0BwXwfOGbEkQNnO91PjJSZAtvP91HipJ0CJQWDl0AIpQCuH
FtnOlypAOiNKe4MvLEDM7snDQs0tQF66SQwCiy9A7nw/NV66MECYbhKDwMox
QB4Wak3zvjJAkDF3LSHPM0DYgXNGlAY1QI51cRsNUDZAT6+UZYiTN0AAAAAA
AAA5QGun4C4=
    "], {
    Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
     14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
     32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
     50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 
     65}, CompressedData["
1:eJwBFQLq/SFib1JlAQAAAEEAAAAAAAAAAAAAAJXCyDo4sgQ/0jPEHdmMUT8n
/fx5ZWh1P8vplA66+YY/9Abxz7tXlT9SwkTXBhmcPxDZ+YWgcp8/kVu7u6Z2
oT/Bx7eBzS+jP+V9bHFWiqQ/HpQIeer9pT85qlNlwEenPy4DhXB8Tqg/7MjH
EdAZqT/fGnWhWdapP2nq5RWmbKo/2ILNHDfdqj9UHGfMhEerP+9TzkbMnKs/
ZMV0h6r3qz/TOHzR2cSsP3hB8QSrEK8/SBe7P85xsT+Mkavgv3G0P+X/pg9G
I7k//g/m86G5vT8zqX5nZjHBP3aAZN6aXsM/LL0o4pDyxD+kkksBiwTGP/YA
FDP6+MY/WxFc/1ZWxz+l0BQprDLHP+hT6EKcjMY/ONvprUVRxT/O40nrDrfD
PxkBm62NycE/ai/wnhUbvz/h4xWlO3G5PzkHUy4vfLM/NXzprw5lrj91Ql0B
8JOnP6XR3KJrUKM/96k2do0roT+RLstaMBifPwf5av2Qhpw/2YAaTSkQmj+6
vnmZrXyYPw/yk4xU55Y/69EpRfVSlT/o3r4nw+iTP6LP9tFx0ZI/5Nu1ZT6x
kT8dV/dS8a6QP2gjsfzxio8/avVzWJXNjT9ragTbuxiMP2IauTvjaIo/pEog
4dIQiT/dUVsiTbiHP0vDgliHVoY/K9GiB9INhT8HjogBR+yDP3W5/UGGyoI/
ElcBxw==
     "]}, {Automatic}],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "[", "x", "]"}]], "Output",
 CellChangeTimes->{{3.789816770006812*^9, 3.789816807584139*^9}, {
  3.789819463906452*^9, 3.789819506051046*^9}},
 CellLabel->
  "Out[110]=",ExpressionUUID->"45eec759-6cc5-44ad-b355-16c56c1102c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"c8", "[", "x", "]"}], ",", 
     RowBox[{"c12", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "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}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVVnk0FI4T3+QKlV33fSZUctaGmpGUiA6SKETu+0woLHITSoh1H0uOnGtF
SCoJSfUNFZKjw5V0ys/vr3nz5jMzn8+bmfdGytbzlD0TgUDQ30Ag/N9KJ68W
UsXzDxDYw8JfT5kdaGJXkHB3CgVunlsvpX+qQ0dgVZG8UzJ0rQYVp389BN3K
3o6sTrnA2eGnaf7aFB4nDOp/d6yGsfDvJyJKL8ITzYjmL473oYjz4O4LR/2g
J2XEe8axHxo3xy2Px0RATEb6kzSVARiVe2CSLBgJO53AQq16AHw3sKv7lkaC
D1tKsE/5c2A3Tjg72hkF//TU2xbyXkBUnK39toVoEHwQpPs18TVMtVlPi8gm
gEErm/GU43sI1GmaWlpJAZU12+/8C++BqlNEytqTCgmS1n0y2mPgKrBvuN0/
FfxsGf6mXWNAn/42Eb+UCoemvLoahsbBP2ncactUGkx8fXsh8PsHUEsn0y/X
3wTJ1abs1T0z4IfVzZasmcBLtV/gC56BKzJ/kpf2ZQI78BxSuj8Dckm2oVru
mTAf5vHZ6sgssCQebZgczIQ25m2a7Wc+Qbva+/7bWVlwniv1NSXwCzhqXTB5
LZINzzbv2cR8fgFMP4btMp+mwqAhKaMvZAFUqwZcprfkwn+xc3KZ2QswXp/D
rLknFyZZSg8pjS7A6t472xUjc+HvqkCYueUitIh1clO35IHi3K+VO2eX4HF9
/dEdBXkQ09c6edpsGYJTBevZ6vIhiSvLVzJgGbqDU17te5APNwwCmD7fXAZa
wlZB0xf5kNutJBn2chmKRED64Ld8aGzLtSw3/Q6JFY5BXKoF8LEqfPDfqRX4
52A+N1FRAAeT9dpLj/+E4gCOrhMphRBmUE8b9PgJe6OEpx9SC6GNRSZtNfEn
mJZ7SyneKQTNEIKDSe9PaNLncG7vLgQ15xbONf1f8DpYkL79TyHI6qqcMTv4
GwZbH0+s2hQB6w/ROWaNvzAQICrwRqoY7Hf/3qyymYBpQzq016ElcGwkulhQ
nIC6S3P86vEloB7Nt5+wm4Cy91NFE9JLgPm9slv/CQIG/mYWVKksgYIkxx73
GwQkRrETzgyXwPuvQ9fKRTZggFK2p416KZy9U70mo8iE9skmrXOzpYDm+29x
ajHhL7cb7+2+l4I881Olb4ZM2MNqfHyMUAY/LafOd7ozYbK667cFgTJI5xS7
Z3OXCUvfcZpePVwGL1ziAnPIG1Ey503R3eIyMFKwX+Q/wozJfM9Lsjxp8Dve
v+WtGTPuUtzXuhRMg7K5qKgiB2b0PK1hZRVDA+b6EiHVa8xo0HGOySefBowD
MzpGD5nRqCxe9tYQDeRMXVMjdFlwR0T0WS0oh6HG4HMGJixYnlA8QTAqh3Ch
BDmiHQsGL0kTxi3KYfTdHQaVwoJRRVWMpYBySHOem2juYMHt53aFOtWUAyHU
W20BWDHg3s3Bp/IVUDUevtp4nBVtbl0LtyZXgOWh1EdXrFnRr7DNhk+/Aho3
1VlyhrKiVYv+h1nHCnC7sRwh18aKzGOF1nq0CnhDuzR0TpsNe8vd3XTU7kDt
0BX/J2R2TL+Sv/LCqRLKoi7aThxlx9xep705oZVA3WN4/I8FO9oMU2UL0ish
LkNQYdcVduyom/ls87AS7M7VjV7vYEfVT18p97dVAe/kjK65wSYUf5Qa5LpU
BRw3+5W9LTdhg4ZJsfzmaiAcbhSLc9uEP50fCyvIV8OX0ogfLUmbcF+x7bPv
VtXw0FW8QuLFJnyzdKLkaX81BHwzIU1bcqBHfOn5gxdqwK1Ic23NjQMFhaWu
8XnXgO1pqS+CVzkwbJqnlDO8Boyb5h4a5HHgc/tbOjb5NbA9OPZy1SQHxm/0
/1DyoQb+Y7o/5u/OiXTLiF1xHndBi6RYzRzKhUFFFmuu1Fro22Dx5FkyFx6b
whWH2lqwWYz9kJ7HhfpHj7OGdNdC5MCsgEInF+7QN81enFvHJ9HCjFg2Y8za
5icrWAc2nAqn0uM3Y/XGJveemTqIZJb/vj1jCy4GDUjY6jYA//KZrYtlW/Di
1NlzaWcboOxDtAKjeQu+Nt79tsuzAZ51Tp8/NrIFT3R5Rspkr+PDS7u9xLdi
LkHGrGK5AWirchnNRVvRuEnZvauwERz/pOYUm3NjkRZp19mlJrhh/OXBZRtu
1N4t2jnBTIf2fL1PRk7c2Dv3J0NPgA6C+j/3rFziRprrpuAULTo8vnF+4PAt
btySsiwgQqHD8nTjinAuN8oJ6T04kkYHSS1usfkSbhzOY046WESHwPFO51uN
3Dipn7OQ/ZAOCkryG2deciMoP1tsZWkGs/BwhXtvufHz7K48db5moAwNH7/+
kRsHX6Ubesg2w3BQYjb5Ozc6sWr0CB1shrhHSxqxvETk3WskGXK5GRqFj507
L0pE4j/HrjvXmmHCvZiiIkvEO/cL4jPSmkGT17z/jRoRza39ZKl3muGzTauT
ogkRi/Tdp46ONINgPX/yPwsi3hN159CeaoZDbF4Ng7ZEzDsUlTax0AzZldJM
wT5EdLz32/8oCwMeE0LkjwcRMV36lQT7VgYsm7w0lqEQUX5Td/8lQQYc+x19
+2kKEUmR7yccFBkQaDTekZtJxHql6PRJVQYU5WnO+OYT8eQ1WNyqxYCBb2lb
9GlE5E4/IjJzkAF/D39VF71LRD7nd9puBgyQzzpsuUBf15e69DTlJANMv+aG
d7UT8W1pyY1N5gyoTDvV5zZARLEztWVLdgwYnqpYxv+IyIiwaLRzZgCrJosI
3xgR3fOKlkI8GKCaaKUzO03E3hX6gQO+DLAaa3JsnSei68D94NJLDIhTIyal
/FivHzAeRw9mQOM1l3r7NSI2qR028g5lwMSbB8P72EiYeIK/6DmFAVt2iW3Y
spWES/xBXm+iGKAZFrB9gp+EQQOZaTExDHB40W/UKE5CRnfO3Ls4BqTKKfjF
yZFQT7fKdjSBAW2XKVlWSiSsSf42EJbEgE+9I+2qe0iY9P2mcG8yA/glNaZZ
D5DQt61Vsu06Aw76Jm0e0SPhN7W0LrMUBnh2T6tVG5GwIPfA9M11vx3vuO40
IyH1sB+P/7rP3eJVSLMi4bLD34ZP6/k2Ghojco4kPNwZUbqyXr+m+hepyJOE
msJN7Rnr/QmKbQZSgST0UdYdHljnd7KIQqGGkTC1e6iXus6/QPwIQySWhAeo
gt5M6/qWMjiXMlJIKHy5JfdP5Do/ngEF/iwSPhV0UYkLZ0Ba4o0LaQXrfA88
/1d5hQGTbGczuStIuKcyZ8zhMgPUKWLPE+tIyJJ3gb/WjwGRf8fZOe+RkFb5
Imd2fV4vA0owpouEs31Be5ucGBDguruG8pKELa2xfYKWDOj++G167S0JOQ5R
JqpMGCBgQ5e4MkVCj+PPNd4bMoBuqpN86cf/9d94RFrfN/Z+lkfLayQc2pEp
Kri+j+ZHe/55s/Og7jTfuxZ5Bvzab+LhJsSDhnUZLyZ4GWBAFyiZleLBvJDd
4k4cDMhSHX3roMiDa5XWTNfX1u9ru73RBS0eNGNUdj2daYYQ7ks7zc7zYFXa
JzfupmbojdO6+MKeB4ub9rQ/ojWDGAsh+4QHD96Ss2ZTzG6Gtl8xnIahPPjV
zIH6LbQZCB+yPkE+D94RIe+g6zZDRENbmcJHHox2kQq+2EKHod0RYyVfedBG
CTnEaXSQLT8iKLvCg0Pzql4Z6XToog5Ei7PxomQ/SeiVFx1YYyYceBR48RBd
2SBfmg5xFqzbVt14cc9qXNRwSBMcUOZamfXjxRzu9+59Tk2wyEJ69CqEF98U
PvzbYtoE5nfFnGsSeLFXUnXSYWcTbGPXqLS7w4uBNDvSheFGaG+w0+j5zIuG
BiTtepVGWOHu0LvlwocN5hy5JkP1UD7VzR/pw4cfKiTpvm31cP5e77RXEB/u
U66qSSmrhy7H/2IN4vjwVSV2PQmph5S2+WerND4MKm0nam+rh51u4mYXZ/nw
wCyfYmNAHdg9CnZQceLHAiMbT0fJWrioLWe84smPx7/F509y1oLD3QGNlkv8
KLK8S8z3x11wur2NRS+aH3Oh4Hh3313w8OwvNC/hxw+xM2Szq3chSEBmPHSS
H9NlXNpiJmsg1bHHss9GAGUndCZFEqrhxqifbpqTAOYxEg4NO1fDzZMSO8y9
BHB0Mo/38ZFqyNDy+z0eKoDb/Qx8VJmrgbpVPPM7VQBv25fK6YVWQXmT9yvR
twI42V8dH3S1EjrYhE66nhVEz3x19qn8CpgqVDJ4c0EQ9bjrlBwiKoALD+ke
cRFExUbH/dL2FWAe6KkhEyyIZkdk84wVKmB+5qHQSLYgUsfaTELqy0Gsx2fC
YEwQi36Jahq8osFBh5gR+owgfpn4ciy+hQZOTNQhuUVB/GSpZPU3jwb1mk+6
mZiEMPo+i2ykGw0MKyQqGDJC+Mzw7llJVhpcTuj1VXQUwntuJqe0dcuAKj/h
luEphF0XOnW7d5RBV9cPe9ZAIVw8ULefwlsG3KvS5hMxQvhCN2Q8aaoUSt0v
a2eVC+HRADOWxYRSeGksx8IxJ4S7fCIKYydKQIUYlj7rJ4yvHEMvplUVA4P9
tfyjEGGM321MGcsphoMEpZaiyPV4hanV8cRiMJ0feW99Qxgv+BzckeJWDAHP
9iq8qhNGnk0a3Dk7i+Fe7HxL55Iwan3ifXCztgj0mazHb3uJoNh03V32oUJ4
/qvB93KgCArkuhisrf/rFotcrGfCRDAlUc53C6MQXMcYiqTrIqjTNm3sn1cI
SW38fjHVIvjv0+J8oXshDAX1sfrPiaApy6ONalyFYPNt/05jN1EcsVbn5LUo
gM0kwsCQnyg+HVbY/MC4ABjKnb6WV0QRr7oLx+oWAK/H4RanJFGMDblgfXZX
ATyeMTaIqBHFQ2wJfRuZCkD5nbUTfVkUzetSvv+uygfCk/Ai6Sti6Kpw8sAy
Xz5UTuvq06LEUM3TvmOFKx8sWFm/7E4Sw961vTGbmPOhXjdObX+uGNpffKBq
vZQHTm2pnWc6xLB/Xnpvd38eDNQVjiWwiKN/PWX4XGIe5FMfiv5IFMdk0dpL
waQ8yD638/XpdHGUcN/JYsqZBxnCaSn1VHF0c95J2MucB0npNqw+1eJIZ8lU
2/slF4KS/sx/GRDHjK97tF3qc+HUVZUHEzwSuM+Oax/5cC4wW+U492VK4NO+
tKHqS1RYE2GW3VUggQlWuWznXKnw+43Lu/hyCbTNVWYRsqbCwmmyydEWCXzI
5jHddZgKo0YvtLtGJbBAS2h1jJ8Kw1Rm9rdbJbHT+wwPNyMH6pI0RwZPSeLG
hp6Gao4csL29hYVhJokra8J+7wg5QCqbUMq3WMdzmkUJ/sgGr444iqetJOoV
fzxV9SEbdi4PK3D5SKL07ZEgq9ZsKDobHKiXIokubmUb2n2y4YbsPT56vySG
BCyzEj7eBj/G/hM5x6RQsq73ufqHLGiweMT05oQUqmjrBPwZzoKV3ycaeE9L
of8jt4Yng1lwWeuicMJ5KbzV+DIvpDMLrt6LmwzykMLzDU4B+wqyILrtdaD5
dSnU4QvspNlmQVandz7PkBTedrgXtX86E+73FC/FWkrj6dKDEV1MmVArOOB9
xVoaj3kbGrr8zYAih98LXnbS6M1fksq7kgFxTMfnz7hKY7ufQWLAbAaYav78
vC1YGsV5pOs9BzLgE83gY0eWNDbY5b9Szc0A3tj517/eSGNSS+SHUcgA5yP7
Wp3NZZCTT4f5ccItyC5TaXB1kUVGzcC2i2rpkPKtNdzr0jZkkiox/o/zJkyV
+wc4+chhW80SXOK/AV2HUzMolO14cVzhuodcGmw4PjyRHCaPfUYLCjcsU4Gg
07gh77ICEq5ra/woTIEYgR9Gg9GKuHWnyaLo/HXwsrDr/BGxA0uuYGWgyXUY
D1e/CDd34ig315urbsnAm5Y5HJu/C1X9C98pGidBCbfi5Ue3lfDzZCAx73Qi
dPhI6G2v2I0/vcSZ9SwSgCqZJ7rfVBltPfxTf12Nh9aQ3wSnAWV038+8/V9t
HEgZsv2VOaOCNPrasbLxWKjvV4h/M6SCnPJVH9t2xEJC9z9lyfOqaN5De7fT
KwbSfGddbEZVcfCmTt1STzSE8IlvlT6rhlTz7GQO1WigKbD0+I2poUfHuyv1
qdeAdXmDUIeVOlZxEbsPs12DUuW7V6nT6hiW3hO0PzAKFGzLjVfdNdDCUKpc
eT4SRo42157+rIG9tVaBXy9FwmBh0C7w3YMRQxVSW/9GwM+6k9rSS3tw2RBe
xsZHwBrdp+Gax17cYOWnlSwTAYbKh/VCvu/FD+ay27ybKfDo/G5nV18yxt8q
Dz5hTgGSnVNLjj8Z78ryq5aYUcDKKX/zwCUysprFqP81pcCKD0+teggZ/ywz
JGgnKSAb8+P3aiQZ9U8tUlkNKRBWez/hejoZR/7YtQ7sp4Am24mahmYy9qa7
2RTLUOAaVyzTTAsZ7x39XMEiTYHnxE5T4TYyPhHXPe0gSQEnUfVfVzvJ+OMq
/YG8GAVuqQge1H9Kxmd6pyRq+SmwbDn2YniUjJ+tNhq/3kQBvCAkt/k9Gd/F
zzbvZ6dAvMOpQBgn46RQakIRKwWkvbtEiz6ScbrsopPvRgqcvFZm7z5Hxp/t
pZv4V8MhO368KXeBjPWy+1pC/4TDzHVhjsElMq7GbPhv9lc4hN1OqNrzg4y/
CrxP318Jh968hwTnX2SMC9vTpPg9HARK/p26/YeMTlVu19K/hYNtxd7iZ6tk
pLQXPGBaCoeqGq8fa2tkfGjg6Om5EA7/A+FyYBE=
       "]]},
     Annotation[#, "Charting`Private`Tag$35553#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3c8Ft4Xx5GZ/eCxhewGQj0pnZMREVkJpahEpRKZDXqEjLJl7/l47E32
KglR+VYSEioZZWXUz++v+zqv+77nc879497Pkbhw09SejoaGJpyWhub/q2TY
ZmaKWPoRGs+qn8spp45UM8vvuO7oA9MX3RlWhlWgxbMoS84xDEhVH6PfftGC
TqVbDoyOqaDXANEf5szgeeiA3pJDMejFnOCSoLkEL9T9amccmoDC9s17L+1t
6I74eGvaoQ+6KhLBLM0PHsXFvohS7oeK+PwD/vsewm5HsFYp7gdx58hyn7aH
4MIUcceF8hpI7919E8f84a+OauN82iCU/9cRjYRHINDmrfXz8RD8PqBsJ2gc
CvoNTEaTDp9BTETlwZRgJCj/u7BEnP8MRx0UaOetIyFU/HzvzsOjsMT/sTE8
MRJuX6hzM28fhf5U/7BU4SjQnnRur3wzBhm03d0E/mgY//nJznPpCzzKPF7m
sxkD4pvVSZv7p4Fzrtt89+N44E2xn+e7Mw1jojoGl9vigRl4tPc2TQNwp3cZ
/4mHOd8bP87pfoOz/vXJBy8lQCO9tHrz6e+gYZf7+ur+RLBhixwie87A/LfW
rORXSfCKfT8Lvc087NKicO9uT4UBA0Jc7915GHCV4X7+MxX+C5qViU+ah5Zo
Zt9w1jSYYMjV3js8D/kvBhMCVNNgY5Pf1/LMAvxTYxr7/TANFGb/LFOtfoH0
sboaNfF0eNTbMHHKYhEObC/lntLOgCdsCa7i7osQ553Ac8MiA6L13el+xCxC
R9yFkWGHDEjt3Cvu+3YRfpg5T9wKzoCqxtQzFPMl0FkvMPDuzYCvRQ8G/pou
Q63qktCySSZohuk0555cBekPr0pYdbPAV78if+DGKky2HTxtcSoLGhl2Rm0+
XgWNY9sPhF7MAvW7NJfNelahP0yHt84nC1Su1LP+0/sDFLGnkrzVWSClpXza
QnMNNATYvrBLZgPjisgsvdoG2J9IdTrwPRu0y0KGFM03oGNfprTccjaQr681
W7tuwPNJOSIXXQ78/TIUVVK6AQcSW8pfCubASn/kwbN7NyFi9rbWA70cmKYw
+5fL/oVji3eEvmbkgL3iGrsyOw32nz3vFmCQCyc+BmYLiNFgASPXD1OLXFAN
5NOgUaRBbbdKLza7XKD/rOTUZ0yDbSPTurruuZDxxKH7ejQNesUcdBlJzYXP
P98EUIRpcVm62Th/LhesqMX/dirQ4TVb121nyXmAlhpPWQ/RYdcer+/rwXkg
R/9y728DOjRSY1YNjcqD1TOTNq3X6dAiFi7cz8qDWFbRZ7aldBgj4GdG7ciD
wavBnsmkbXhk9L8eXYZ8MJS3XyDq0uM+1M8v8M6HtRC3+k8W9GgZd+SFyIN8
yJv198+6TI93XYtcyYH5QF+RI7gvgB59057e3xWdD3VHpo8adtBj96mS7UvU
fJAxvxbpp8WAUMWlcG04H95U3Tmrb8aA6Tt3vpYdz4cHgqEy3BcZkFFl99n3
U/kwPEKtSyEz4ONggorw73yIujI7XtvCgDbnW92FWChA43NLZR4YMbMKv7Oq
UKBo7MFm1UlGnF+c1BYkUeCMdmTXvfOMSCeuMySsQYEqlvIzrD6MKBcmWEOj
SwGn6EU/mUZGNOKt3DhuTYH3+R5vzh5mQjPdkI/J9ylQ9uae2wsSM5o5J9vF
NVEgz//ShfHjzMg5zuxb2kaBlP0GJ9etmbGwSP5FSxcFguME5PfcY0bqrqjo
530UuHi2fDi8hRnXecxE73ymAO/EtJalPgtqylMGX21SwP23GWHqzHZUnnQ5
FqRWAE5Z6v/+OW3HGNenIYOkArhwSmJG4P52POlEEyhwuACMqmc79NO249H1
H2uRmgUgeyfIq2hiO4Y+0D2z7WQB/EfXNOp2nRVNjJx2DV0ugEMEhWJ6HzYU
oqQm9cUUQC+t9YtXYWzYQHPTpjGuAGwXgr7EprGh0bqkaUliATzs/8Yv38qG
DuP+RIP0Lf5Jvq8hAzu6jaYFxFO3+PvvE4hEdnQ1SLS4X1wAv66zVH6WYUeO
4NSz18oKgN/wyrdbeuxoNVhcbluzxbPKm8aGsONK7+ndL9u3+DVLp/NJ7BjB
yWJA/3xL7/ujALlCdtTujFvQf1mw9e5M19X1suP+KQ2fbQNbfGDezs/cHLim
yHRIdXSLp5dbko3jwG9nu9eF/xUAcfE050IeB5bHq3kv01Eh70ugfF0tB3pm
RdN8Z6TCq9YpmxMfOVC0cAUkOalgW8bvyTfDgRE3bRmv8lDhV7pu5MgGB8oG
Bcz181OB+CC301mME7/qv9Gmk9jK5zw0elCRE1OrbRv7pKlwyJZpnQ45MYv+
tlurwlY+cFCMsePEiuerVaJqVMjflImrzeJEmtpNzXcGVDj806KMXMmJEtNa
l1ZNqNA7HNBj0MmJH1iyVg0st/TrJ2lGpjjxSNGdmMf2VBDTGFR9wMeFE+qs
Z7LJVJhS/dHyVZQLPzdm9t8LpkLJ7m0n9WW4sEX322xUJBU0RVSu8BzgwksL
2uiTSQWH9cjkbEsufMvzrqu/iwrRRjNtXrZc2KxtqWDfR4XmdJ3vho5c6H1S
2kV9iAoCeqv7lz248Hpb1mr5FBW0E01sun24cFfMe+tz81RwnqX4pQRy4XPu
c99O/aHC82ib/mNPuTB32HqAxFYIi1NVy0KpXOgcdcpYgVgI4oe4ROdyuFC6
M+uom3gheI61XnlaxYU2zjodO/cXgvxeuW3Tb7nwaljp0YOXC8HiwQP5Z5+4
cHb4lsEJ10Igv/lwMvwrF7rrhVu89i2ED96Pk0hLW3r6M9UayYXA2DvZyrbJ
he+OU5V3UQthnwR+G6XnRkFS3+/Y+kII7vqlFsTLjd/KNOOWPhZCldCJszYi
3LiRy5cyO1MI49ezycpS3KhsY6zi8rcQ1Hkt+96rcCPbe1oz6Z1F8MO2wVHB
jBtnXrlbRrgWgUAFMeyvNTc63cnvVg0qAm0m58qBC9woG2JofSe1CJIKJenu
uHDj+YxZgb+viuDEWmDiywhuVOyzSFlXKgZPw7GW1HhuFGnrtXfWL4asNPVp
13RuZD4ts1ZyqRg2jv1UFSnlxusHKUMFicVQGGXa69TPjRILjdqE7SXwYbJg
Ef/jRvrpyp/HhUqAUZ1BmG+UG12CTF9uKpTAudFqh4Y5blSvfWrw1bAEOPaI
0nJwEtD+OIcLbUIJqPu6y44TCfiUe+61Y1EJXB7sM6wSI+D4uYKKC20l0OhF
Tji3l4Db3V/LC86VwM3OKZViQwKG84RPjBiWQjNSr+22IODQ4n010yulwFXv
nJl/joBWC8Yrx/xLoaT4DyHrJgFfSQ44nGsqhV9xrL/iIgg4GCZi1aBRBpo8
/fLEBAJGijGzhZ8vg6jH0XZRGQSsZQmNNyaXgSpZ9PXjcgJ2PDymWtRdBu7X
FEvIbwm4sTa9ct6hHDq//p7694mAv6zWOGQiyoHftmbHvUkC3lP1GP1XXw41
5kfDPFYIOPAjKYOWrwL+aJjdcBLkweUquczatxWgX8Of802CB1fleC/xs1RC
wr7hT5cVtvaPQWWeRiWoy9ob2h3iwVFFoN6iVMJdLo/dFjY8OGlm7DgbWQU9
wYcuDdrzoGV7pox6fxWIMtAkGd/gwdx9bA39HNXQ+OcRq4EPDxaVMhK/h1UD
zZeE75DOg2NDbItiGTXgV9mYJ/+VB8ubaQ2uctbDG0W/0ZyfPEj1OHWDcLEe
pCi6AlLLPNjz+2jJz+p6aE/pDxRj4sWYvXpeCvbPgPHR+GUeeV4UP8eWRn7V
AMHWjNKbTrx4NYLZLPdqMxxRYlv+dpsXl660l+rEN8MCA6Hr3V1eNJE41cLz
vBksS0WvlITy4tlm3UlJmRaQZlYrvEjlRbsYjh6LiRZorryo1v2DF71S1E8m
nmmD2yFXGKt/86JhXbeed1AbyNrdHMpc58VROtbBmaq2LX93x+seKx8qyaVZ
6nG1w5mLkQ1Ku/hQT9fxsUV9O3AcjHsiqsKHL2Mr2ZUn2qGVI+X89kN8+NPp
0FsRtg6Qq8unndDnQ9rcs4/5rTpgmatF5+lVPjxK3aTGTXYAZbKT+NCFD+lr
j/sIMXWCzbOeKWdvPgwoZjc8LtMJ7Q7/BekH8+H1hRqpLttO8NAYsT4QyYd5
0UNNdHc7QYFnYpdUAh+avDD4+D6mEyIa515t5vNhVmxmpUpHJ2hHL6V8L+VD
mcBGhswPnbB6Zf3mUC0f9tQkrwbMdkIB0B5tb+Hb+o88kuppuuAcHxOh9AUf
Sr40EVDh7gLCD7Yvya/58EMmvGQR74KOZkJF8Hu+LfNRbK6+pws8YwX8Pcb4
8G0ju3kTqQt2O4lZXPrGh6KeLxyjNLtg9KiUrMnCVr+/T+4r1e+CKH6FVY0/
fNj2g8OYx6QLjv1UfKFAS8SdorftKk51wVqrWgI/CxGXbnyGQ5ZdUBR36Bo9
NxFrBeMGfmzFdjeOHl4QIOK9c2+DP57uAl5tXfYRcSI2F+kksG+dfy5oONIt
R8T1O0/3+Rt3wd050+JqJSIWHPDy19nSV+yw9M0iEdHILL7dZKu+8YRzJhFI
xPOYI1G4VX+s8yXJ+3pEFOawVzPa6u/4sau/rxoTkVY57tD+rf43hJ3bT1sS
8Yv32KDX1v2ULLjFaNsS8fMVx5titF1wsevOZWVHIhLvmvvIz3XCpcMyRss3
iUjNPFHOONwJl0v71eo9iKjFFVpwqasTHGTuiPr6EJH7dPIjvdJOcEyUZtAJ
JKI2O+u16vhOuMrVP8MSRkT1mYF1sm8nXPP3ftMbu6XXZ3urwL4Tbtzsy7TM
IeJqnRv9r12d4DzhFSJaREQrtvs08uydcMtKynW8kogz7ko2cj874LaWl6ZT
BxFddsUuleZ3gDf/zjGfCSLGR+7IvknsgLuhr55rzxCxm3nHJ6u5drhH61nC
srilz+Nj69TVDr4/enyitvFj8ho47Xdrh4Amd7FcSX40po6ERD1vg0iH7jO9
tvxImy2wYWzZCtHDt7WiHPnRe4dny6hcK8SY7Nhl6cyPj+LX7DX/tEDcodtr
Yz78uF3Gi/o9vgVSOMXil1L4MUguzG7Px2agVN96J/KJHx/kFTQ0tTYCdbdI
49gEP5IX3OW2X26EwvTO7JwZfnSeLiz6ytIIJSHCbkob/CioaWUYaNYAVec7
eLSFBdDO/H7Uylw9tDAJmlyzEsBYdamaaqtamMzcq//eTgAfvuO6LspYC2yo
raV7VQBT1y2l2sprwNLzptrOOwJY9PBAWBehBuamOwQ/JgngO+a+7X6fq4DX
/yPheLYAMtofDKyOqQJ1iQXW6sKt/XD3eVHDKgiwEvkb2SiAJWtZ972aKkG0
22Vcf1QAPz92PaJeVgGalx99rJkWwN+f+N713KoAR7qUNzILAiiqTafjt68C
KtRfdNLRCSLT8mKyeXU5GBTsKKjbKYg7rZWF6fvLwCu0x1XBQRDVf+aRdNRK
IUVu3CnupiCK5ykec2Ishfb2FXtGT0G8fdrcPfC/EuDalLQcfySIKnbPDUJ9
SiD3utfhBIogPiFLmAyXFEMPS5gac7kgzvt4GefbFcOv7Ky97vWCKJts3C3D
WwxHRvrETXsEkTIgqsd/vwjeGskwbJ8VRLerqTKs9oWw9v3QX49lQZTPPVMR
J7nljwJNVr7+3eLVPyykjFHBqenutxZOISygbY79c5EK25QGX3kpCyGzcbym
lFcByPVMd04dFMJuv0HmiqNb/t/xb9MpTSE00+GpeMhaAAlp8mXKZkKox67z
pieDAsrcvrHfbguh3MLwkurnrfmLeUiu664QNq0cUeevyAdNmr31WQ+FMJVG
vWo0KB/M5z5+Ph8thKVMTgUEUj64vzog/65cCBVuvZsyS8mDZ0Fz9a2/hPBp
YYj6WGgu6Dw4ZpS2JoSNoWRN+2u50OuZPHqPThjF5ySTAvW35lMHA4aDBGFs
rs9YSNmeC3THco2KlYXRa+rm+KeIHNCjOz+W6CyMXRI9Ld112fD6T6Wrl6cw
Wm9K71PPyAbrBTbG077C+NJcJV8mOBuujdYpEMKF8cYSxfLGmWx40ki8/ahY
GPucP3vd35YN/FXXGS9XC6NDSs5w4mwWpBW2x2k1CeNe7Zw06Q9ZUJrk0vC3
VxhvuUf8cSvLgjfevYxus8I4Oj1d0OeQBTYu0vGmy8LIZKDzls8iCyav3N2l
9FcYiyTO11VrZ8GKpYLxD3YRzKaw2zPuzAKhAwHxdntEUD9F9k/0l0yw/a2x
28hJBM9kf6DLdskEdgJN/5vbIki2uS0bfykT6pRaXc/cE0GeeIHW1xaZwHvj
WL3jExE0Px9mt3IgE55PG+n7lYigqY+gO3UtA9yYuGdZakUwzcxPcv5HBkjK
DEaEt4ggMTdB/8anDLh78fT75AERDLF6XEZsyQClkfOONYsiKNiXeYEmJAM+
bUiwwaYISvokXKe5nwHBwhPFHQyi6NFdqaF6KwMmLB1XBoiiyNvCN6BimQFx
g84BP0miGMeVdOKOXAbQvHiQJXlPFJNOvIi4+TodCqe09PL9RfHqaXoN3a50
sGZknFF8Iordaqao05AOFVrBKhqpomi8Pva7JD8dHBsjW0+3iOJCyK8wxYfp
0F+eORrKIIb2QyNZ7JAO6SkdIiuPxTBuvZT3YnUaJJ3dPXQqVmxrvnXaF1yc
BnFCUREVKWIY8GuIoS03DZ7E2jK6FIuhzB/XFce4NPB+sj430y+GP+iS5H29
08D0vnLbOM8OrM8JnaYeTQP6c8lXeuN3IJvm9zDuylT4J0wvtSdjB9Zd6k/c
zEuFtfdXR0IoO9DMULXoX1IqzJ8imR2v34FpX/47qO2fCsOGg4fbh3fgoROG
qm0WqfAhhZ75E6c4ij+8cO/UegqUP1H/OGC6FR+1k23RTYELiRwMdRbiaEKf
HtigkQKEvPG96dbiyNMUJNypkgLOLcHkmxfEcTyn9MH6jhTYvfhBns1FHAO5
hhsXV5Mhy+qOp06EOCoPptewFSZDtNQzvpo+cTQ3lg5WEk2G23UaxsknJLBd
Kn7nab4kqLTuontvLIE1p4cre9iSYHnNuJL3lAT27vtno0+fBF6HLgmF2khg
4AG/Zza/E+H+s+AJ7xsS6PLus/6X14kQ2DjkaRkugX1anTfPhSdCQuutdJ43
EriQL7ZQR0iEpu7sX0FnJDGBo+KRhkICXNE92HDFcifuCuhsn8+Jg6Q85cpr
V6XwjvjeiKjDTyHid8MDZw9p5OvuPhHBFAuTFDd3RxcZfHLeav0fYwy0H4uM
I5NlcTKD+UDN9migPflhPMxXDs0uX+FM3h8FNEeraNO85NGrdILnt2ckPOJf
MRwIVMDSg21Gv+ojwNn6YuuK3y60/Nt7eZ0/AsYeqF6CmN04qsrq98clHHij
4j8Epe/BiJkTFg21YZDDpeDVlbgXSTSyhzcqn0CLyw4d2QJFfL7JS29c/BhS
xNNENMyV8F2sjt7L56HQcHeNxrFfCbO1gntafoeAhAHTxs7TyvhDtOtemmAI
VPTJh7x/o4y2lQ5a01bBENr5V0ncZh/WS8u5YGwQRLl+u2o7vA8by7Sjar89
grt8YpySVipY+db/gsDxR5Avz9B9e1QFNx1WjvpkBgLjIq1gyzlVfHKW6/MI
ZyDkKpXeT5lSxdtLn4p7PAJA/gLFaPO6Grpl8bya+u4PH4/Xlp36oYaa0WdF
+G/4w0Cm9x5w3Y/PVPb/aZt5CKvlJoclf+3Hj4NV6V2eD+FfjUtlwI0DuJER
6NrH+hAMlI7p3F06gHoeD1PrE/ygy0bxyjVXEiYIKVROqfkB4aJjfbIbCYXP
Lz9WVPWDc47p7P0eJLzWK9Xosc8Pll14ylTvktDBwEOKRdEPpB6trG0+JKFR
eBKTkpwf+JY1hYbHkjD69X7RJ0J+oM5kXFJZS0K5cDGlkH9kCGALopuu3+IL
yZ8+bZLhNXeruVAjCSkTLaNKG2RwFFH9c7+VhHNNadNDq2R4qiygqfeShNJr
QRvyv8iweGZ08MMwCVlZrBRGJsiAdoIy7J9JqGNQobj/CxlCLpt6whgJHXfI
Bj8ZI4PkrXaRrK8kNE2UPIIjZDAJyLO/PkvCfeVC6blDZEgKGatOnSehrMWw
Id07MkyHC20f+EXC4U6zkzZvyOCbGFq0f4WEXooqxryvydCT1kFz5Q8JLarI
J537yMCf89c0cZ2E43KnM3tekeFCwYHsV5skfGqUZSDfQ4aiEueVf/9IOD9r
oxfQTYb/AYfZZFo=
       "]]},
     Annotation[#, "Charting`Private`Tag$35553#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->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, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.789745832906107*^9, {3.789745922812866*^9, 3.7897459870360823`*^9}, {
   3.7897460304253473`*^9, 3.789746045846365*^9}, 3.789746092164731*^9, {
   3.789746401807321*^9, 3.78974640470884*^9}, {3.789746869925735*^9, 
   3.789746932679536*^9}, {3.789816835959427*^9, 3.789816907171157*^9}, 
   3.789819479448543*^9, {3.789819529023327*^9, 3.789819534547029*^9}},
 CellLabel->
  "Out[112]=",ExpressionUUID->"ca9155e3-bfd3-4546-9d9d-841e39a4c986"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c8", "[", "x", "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.0001", ",", "30"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"d", "[", 
      RowBox[{
       RowBox[{"SelectFirst", "[", 
        RowBox[{
         RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], ",", 
       RowBox[{
        RowBox[{"With", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"L", "=", 
            SuperscriptBox["#n", "2"]}], "}"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#1", ",", 
              RowBox[{
               RowBox[{"#2", "/", "L"}], "/", "#1"}]}], "}"}], "&"}], "@@@", 
           RowBox[{"Thread", "[", 
            RowBox[{"{", 
             RowBox[{"#\[Beta]s", ",", "#Cs"}], "}"}], "]"}]}]}], "]"}], 
        "&"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.786037574237903*^9, 3.786037624143293*^9}, {
  3.786037715905655*^9, 3.78603772178903*^9}, {3.7860379429219313`*^9, 
  3.786037989672336*^9}, {3.786038220212557*^9, 3.786038223471775*^9}, {
  3.7860382782743273`*^9, 3.786038282507113*^9}, {3.786039734995592*^9, 
  3.786039744997678*^9}, {3.7863811689372*^9, 3.786381171328402*^9}, {
  3.7897469834615707`*^9, 3.7897470224937277`*^9}, {3.789747180279215*^9, 
  3.789747184972273*^9}, {3.789748265791451*^9, 3.789748277340621*^9}, {
  3.78974977133543*^9, 3.789749784133391*^9}, {3.7898170039497128`*^9, 
  3.7898170481323433`*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"018624ea-3752-4268-8269-52d7c0cc8dbf"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlXk01Psbx8d3xmxkmUFZY+xrokSWz5dQUsIVEpKoi0SbhBK54qZQIku6
QtdSiFBRHtwWlL1Sokhk32cGxW9+f3zO57zPeX+ez/v1nOecR8E7yNEXIxAI
87zz/1szlFHxKIAF02UyLtov1cDSifukyo8FOStCXnqNauCp2/+i5hgLZPeS
/LbVq0HSz8Lml0dYcF6EG2b+XA3YruaDnw6yoDqQdHd/pRqAUbAotocFWfoV
Ixfy1cB55V2QoxYLkqQjw1v/UoOoi/Fa8xMKkPd3wsMgazXo/ypx/OoRBXjR
76FIe64KWx6aVJp9l4fUzdjQcxNViLvaZh3iKw9nRKL2cl6owKv4WRPas40Q
LixlHGegAkHdZ9YO1siB+Wh7zZZqZVB5r2Tn/q8sjFUY7TTSVoZPnBJt39sy
kFTedKAxXwki5/zk8zKlYbmzKdtPVQn0cx3uJsVLwbN51wC/bEX4pOm/uSJe
EqSL7lnHyilC+Ad3p/7rG2C9kYyfRg4LNLdFEKsvrofqbhtTTUkWtAa9ffny
kgRUBn8Lts1QgEhPG7HoQHE4aaBT9FZEAbSC/pm3PiQG57Oyjn6Jl4e3LmrD
5keYIEvLGhcRlIcw9hefMQcG5BrhdUcpG0EqsIH9xlEU1Eil7vw0OXiT3i22
30wEwr7d0c9flIHh9qgrXR5CUJPWl5o/Ig0KcrUCfkcE4XLr5utbJ6Qg9OO+
ggNmdNCSHm20+iIJlbhVQJUpFUoVenosvm6A0cmpfUo7ybB+ySlsYWQ9GFHm
9kwqk+D5D5bW1BcJCGp3DmapYzB753q96w9xqOcXf1DORwCZs0nSLr1iIL4q
xCx4s1L34OFeV7dPTDhtXy3V+IFT51h1Of3qBANo4Yw/UhLn64RPzaidnRWF
93TvsnDWdN3RRrPLl4VEIWRTsDnTbqTuZMPApWEjEVhHe3NMJ7uv7mz4Casb
r4Sg2idsTedKS93ZzKTfNo7roFaaobX1cDG6H9N5Nu6jAMhsf5x2ObQL2f+k
1/LfpUMUlfVCM2MAVSC+liPJNDiR7Pt4b+0A+mHRZih9jQZuUoVFQf0D6IZQ
4ufuOBroaemmVbAGUcKjoXy7SzQY3GcWbFw8iHLZp18fDKKBRZoby7b2Ozqv
FQdCdjQgqdyM9e//gVoEuUG+gjSYKfkQkUAYRufYwtp2VBp82SZ1uoQ1jKom
+PIMSDR4bJNzaO7oMCoUc9xB/kUFn8BSw7DpYcRsMfoja5wKLx+3jMUTfqIw
E+3R2GYqxO4g7StkjaGC6NRnNrFUOPNoIDrGYgy9vt30YFM0Fbw31lUd8h5D
r2iXkdhFKpiunJeTuDeGdinrPGw9S4WF8unJaIVxVL7pdgnmy/OzehPc5SeQ
5DOBuS0WVLBPegLb8AlUdFM59SlvDsxWby0wvCZQCXtgcqsRFSQ/27s33Z1A
OgyrcjFdKrQnv9I02DiJJttljI7I8v7jK28WlptCSnz+ITJsCmgEJa6OmU6h
dF/xyLUZCmzoO673ymMKJZOkr7wfp8DCE9WMiDtTKPzO580HBihQFHzHb1Rm
GrWU6AtWtlBAMNgyZmDdDArT/y4ceIcCRFV9uTbZGbRlV2ujUxoFlvsUntRq
z6ByncVE9WQK/LRdG0/bO4NUp6Icc2Io0Kj67A+7azPIKulRVZ4/BcK+blKs
EZxFL++Z/nlIjwIiLQeHfsvOIjE5FGGpQYH7VVfy8U2zSHtiuyCdRYHOa19V
XznMIpvaHeQtojwek0StjtRZ1HYn7fvnSTKAas0ks2AWPcw4sSl/iAzOzJES
56ezqKs31MS2lwzRY2abv/TOornfMKL2hgyfb09tHZGfQ1X5En1y/5AhOEaK
o643h9TcUmJrbpGBHGz95PiOOTTm+bZQ9yoZ9HZmb5/znUOR9Zmd986S4e/F
veh30RxK9zpnnLWLDNsdH+5ibp1Ho4Y+3c4/+KHd9BPN2XoeNXN3O6j38MNR
df6W2y7ziBbdVdLdzA83CB575cLmUdNvPfcnpfwwViLoqF43jzqlK6n/neOH
DIHjB5HNAur+NCU1TOCHpf80TgR4LKIvOXc9gtaIECxkc9/jxCKSH91j4DZN
hGGXY/37IheR51bfEZOvROgcy7XbksPzx7+5qVdHhGIR2U2/hxZRv3qEnvEl
IrDcjI9NLy6izQ1NTS3BRLide+DuAJmNEoolDaMPEyHGIFX4lRob7fO+eC5w
BxE83IVnrh9nI/WEhPn9NCJ052urRV1go9bjuS6OKxjsnrb1On2djYqsL6Tf
mMTAIDqu3aWMjQ6KDebMdGLwoOU+dXc9G306uxC0/hUGLPGXuEknG0XTnHVS
nmIgXMD3SH6BjW7pRxLu5WAQO7txlMHPQasHg8NNUjH4td1MgV+Cg/ILIp+i
qxj8fBeWPLqNg9a1dX/rD8HAc316U+8uDoqTXkv1CsSg26uar/UABzlVKya6
+mBQPz9/sjycg/6dSNR98gcGhqaMorwEDjIMZqWr7MGgJFZ3MPUOBy18jH+1
wQoDpXY7qfgSDnKp5wbcMMMgQzLQMbyOg7Q7A73TDDEQOXL178B2Dlom5wlq
6fPyPihsODTAQcHDDn6ZOry8i6+XHeY46OSN4/H3NDA4jYb1LIlcNNKxc9FC
FYOxOFKAgRgXme5eOnhRCQOvTlaumjIXLYQVpjizMPggbd4rZcBFIYvUf97J
Y7DH9xBz3U4uknCYKPyxEYOGkgu2ay5c9KlIVCCHpw25mZdn/+Si6R6GLcbz
l5g/q/l+not2frnCElTAQPlqz/z7v7nIPc7jQj2vflY3W/NNJhcFdvtcUFbG
gCEn7vPsARfld228YKyGQdwx/awHz7notb75qQgtDFbLHLqzW7lItLmNErIZ
gzPLQYLJX7kI1cfEKG3j8ey4bnl5housrrQcvmLK47n2IOIs3xJKtT+3KdsS
g48fmh8fYywhZZlbN/7k9dtOfnTigOIS+ohwy2EnDP7zoyjv2bKEAn3Oiaz3
xGB7hbKHmdUSorZOdy8fw6Ds145bus68enVDkcmnMFCx9n7HOraE9B5/E+q9
wONJvMQvHrqEZkQuXvsYj0E86/nZpfQllLzfstU8D4NLngV73hQuoYWgzwKx
jzAIzbipmPZ0CREN3bcfqsPgKMO/Y8unJRQLzy1ef8HAAluvHbxhGb0+wt6h
IkcEIzOMhNSW0dYQe7GKTUTQDZv8vM5wGakruDoXmRNBbq4xrthlGZ16IOgn
cIwIywPBQ8Opy+iReWGIdzURZmXdayrvL6Pv39zvpbwlws8DO2/EVC0jD7kr
SvqDRPjQIYuzPiyjhsSuHQVCJCivb870EF9BZ6KWPy/6kyAgR+mP7psrqGp4
Q4qcHj949wlr5OauoGsKytsYe/jBTXKFcKpiBeWdFqfpHuWHXckdJcJdK4iy
llKYmcEPSlEX6baMX6i8r3H5FB8Zvnj11Ncn/UIRmm90TrSTYa98gm7ptd+I
/FwvHblTYSjpsU5X9m/0ZJxZZcPbV2F8fVqc0t9ISYqkKnydCvcHtdVRJ8//
rdTs1QsqrOa1KbRJrKLo683PG2VoUKbOZE7fXUV1s9qHTjbTwDrDWJT5aBVd
DNP07Ojn7V+6j/C2hlVEft9v8nOOBrSJxwKRQ6uoa6WPg0vRwbvEmSSsvoZK
/J0t5o7SQUw/Y1GnfA0NcEbvrczRoSi3Yd6xcQ113KHnniEKAC42PhvSzfML
Zp0qYwpA4KLx1Av2GuJv6F08rS8A33tPnP5XloBLGhHHbYMFwCRb5Pg2bwIe
hfm8OD0gAJMsJw+XcQK+5GkYGvVAEEK7W4td5gl4itvrzsPVgkCKtVl2WSHg
914Ha6g3CILMqFmaqwAfnuLilBD0URB2l6p3HNDkw72Gei7OEtbBfeM1S/cA
PrzsiM5btv068HQq0jo8zoeP2NZGXRtdB61/EX75j2P4O1v5qjE+YajO44YG
DpDwQOWy41uiRSDGJa1PDKPgsgSfzPCbopBkm9TMT6fgST0OfgFpopCJ4qvZ
ohS8cHe4+8FMUShXDU/uUaDgcqsbHMxyRWGA42mVZU7BK/xWc20qRMHstspD
xSgKzvyxy1+5SxS4PZURegQqHutm5z/LYADpXYmfIpWKDxjnkyclGCBc/6+z
mAgVr/Mg7X4vxQCVwnRd9kYqfu7R7M3bLAbsP39h6Cmi4odlnArU9BhQLmm1
xzySirsuvHgS7ciAALduaftVKt4v8+bKthsMuE6vC9Gm0PCVIGXf2lQGlD0r
7KCL0PAXMR9ktmcyYEEq8spLBRouXP8tViuPARG96vPbrWi4XZbQdFMlA665
RzYrJ9Bwz+oRA/FPvPeC/srEWzScm1nHTexjQGet06Vvd2i42vKJYvogAyRk
NQwyS2l4mhehYGWMAdl93TkiXTR8M2n8a/EvBpR6apxfkaTjjv67VWXkmNAp
JN7dw6LjKxarkqsKTFh4saZTpUnHb5rGhTYpM8Fw4/uhYFM6np/zH7+4NhPc
2uqQnTUdD3E97Zqsy4SIyKIMzX10PCdd59C0PhPga6T9sBcdl+T0m+zazoTB
RP/iRj86rmYc+c7MlAkkfD855xQdr2nbGiuEM0FlBh2+GE7H+5Y0lCstmLDr
H43agzF0fHW3vIeuFRP87cXXG12j4+/P0T5c2MmEBALhlEQqHZcmPtXOtGFC
SdnY2/lsOu7ik8P9y5YJHV7vVTv+peOWxsUNxnt5PCIQXVJGx6NICiLP7Jgg
UV/Ud/UpHU/MK/Nc3cfjO3nL0K+BjpOXo1XIDjw+hUs3rVvoOOOSX28rT0d0
+E8pdtNxTp/C1H5HJmRH7bfh66Pj1SKl727zNGzG8/p/8PIUvP6ZwtODAxpr
NVN0vPWAa+lOnibdEHdL59DxgHnJlBJePRULQmUIQQCPDzUSem3P450bE3ai
CeCbfolkXufl8b/33n8zQwB/GDtdh/HyJjjCSyFpAdxUakpAYQ+PFyuWn1AU
wLcWt0mO8Pjby2+FN2kJ4I/zRpMdef2Z97704f5WAbz+AEPrsCUT/gdcdCsd

        "]]},
      Annotation[#, "Charting`Private`Tag$46867#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAK3gSs7FrIsDdQ8Jop54owERU+Li2
aSLA9h+obqycKMBeMN6+u2ciwBD8jXSxmijAkOipysVjIsBCtFmAu5YowPZY
QeLZWyLAqCTxl8+OKMDAOXARAkwiwHIFIMf3fijAVvvNb1IsIsAIx30lSF8o
wIF+iSzz7CHAM0o54ugfKMDe3xZsi2MhwJCrxiGBlifANK08tT7jIMDmeOxq
NBYnwIiLz0Z2ZSDAOld//GuYJsDGifE8CbofwJWQKFT6DybAb9R0/1u7HsDq
NWq1o5AlwCbVJE5cpx3ARTbC3KMGJcDZ964tZZgcwJ5Hh0wofyTAf/JpIKSb
G8DxxOTFxwAkwDOjUZ+QiRrAS51YBb53I8DZK2oxs4kZwJ7hZE7P9yLAe9Zc
VN6OGMDvNt7fZHoiwCs3fAO3fhfAR+dtN1HyIcDOb8zFxYAWwJkDlphYcyHA
f15JFIJtFcDxetS/tukgwCxvoPNGXxTASAOAL5liIMDMVyjmQWMTwDDvh1Et
yR/AevbcZOpREsDejTzQ1bcewBptwvbIUhHAfgQiYrS4HcDImdQUVT4QwCwx
NIBApBzA5tCBh9NdDsDXfyAv1ZQbwCEevAtpYwzAdaY98Z+XGsB410+oWT4K
wCCDhz8YhRnAtUBFa7Y9CMC/NwKhxoQYwOnt7k8kRwbAWA5Xk32JF8A5B/JM
7SUEwACb2BHieBbAb9BWcCIpAsCb/4qjfHoVwMEFFayyAQDARBpqwcRmFMAV
/g4TqMj7v+lWI3AVWBPAc1C3GsPW97+Baw0ynFsSwAl7ElOUj/O/JjYkgNBJ
EcDVCmKweyLvv7/Ya+E6ShDAdi9wQRNO57+lOhunW58OwA0JyGcunt2/6S+4
o5x/DMC3ZHr/LofLvxTVtsZJhArAvBsSLDVhqz9Z5g4CUl4IwBw6tJeDeNM/
hKfIY8ZcBsCBCCK+K5rhP6isNudLZQTAhkMET6ki6j/mHf6CLEMCwHrfLyO7
DPE/Cz8nRXlFAMD5xCpua131P5eYUz9COvy/iSK9dfmZ+T8GO8E3tP33v00g
jDCvjf0/Qz3yfP4J9L/tIlRdV+sAQGsvrOX9ge+/zoUA/GrrAkDoo/pqr4Hn
v7ek+Hht4QRAiFA07kpT37+EV5fdFAIHQD10fZIfnMy/a1rUG1D+CECf0ZWK
ojyZP44Kv3YtBwlAMuPt/0+rnT+wuqnRChAJQBv6orr+DKE/9Bp/h8UhCUAF
C/svrHulP3zbKfM6RQlACy2rGgdZrj+NXH/KJYwJQKO4BXjeCbg/r14qefsZ
CkBz/rImSuLEP9IOFdTYIgpAngBe1R9wxT/0vv8utisKQMICCYT1/cU/OB/V
5HA9CkADB1/hoBnHP8Dff1DmYApAfg8LnPdQyT/RYNUn0acKQJAgYxGlv80/
9BDAgq6wCkDBIg7Aek3OPxbBqt2LuQpA4yS5blDbzj9aIYCTRssKQCIpD8z7
9s8/4uEq/7vuCkDQmF1DKRfRPwSSFVqZ9wpA4hmzGhRe0T8mQgC1dgALQPCa
CPL+pNE/aqLVajESC0ARnbOg1DLSP4xSwMUOGwtAIR4JeL950j+uAqsg7CML
QDGfXk+qwNI/0LKVe8ksC0BCILQmlQfTP/NigNamNQtAWaEJ/n9O0z9O3Ue/

        "]]},
      Annotation[#, "Charting`Private`Tag$46867#2"]& ]}, {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwBEQTu+yFib1JlAgAAAEAAAAACAAAAoP+PmYqhG8A2aaKtXCokwLcSVuAN
oBHABDMtmgpWHsB6DcMyYgsIwF8twt96xhjAYSBzTtfr1r+l4/lmICoOwMl/
Jwc9YrG/VcUrWep9DMCmlHMgQp3CPzQFOwWiXwvAAKEzg1/T0z8MSVzElZgK
wHZNhP2MGN0/+erLBQP2CcD+HZKn4b3iP+/1HbMNbQnAWDNcAiek5j9xmsCG
rPQIwN07R9+LNuo/UW0YlbmDCMDpqGGjNHLtPzFugiDgEAjAneqxbEk68D+0
yUXAP4wHwPdJOqSSePE/Q0Tx86f9BsDrFnAVKsryP/qCyDhsMwbAfNLM2c8t
9D9t4sxvmRkFwGE8teiaYvU/p/AQP5D6A8D7bpva0kr2P/tkuzH0JQPAY13a
3Bob9z8P++XiCIgCwNYZsjVW0Pc/QQ3/vTIzAsBgLYTUKa34P59GjChSKALA
ggQNHZp6+T/QWNYfr4sCwEhtzIyVH/o/KPLkGhAmA8Ag5V5Nstb6P2TShXd2
DwTAdHvr9DjP+z9xCxPgZZQFwLZPno5mo/w/Wwg9EdPuBsBz/nDXAUD9P3CI
VfGW5wfAd48gMjXl/j8XwsYaDxsKwMisakwcnv8/3NXMiWLfCsAd0tFGq1MA
QGewuHzUyQvANIFYEjCzAEDYK7yeP10MwMEUVgftXAFAhdl05/8+DcBKXhyb
Mq0BQF1FhIy1oA3A4zfvlN8UAkA3XxHj1BgOwD6n5UfTbgJAYvZ4dTV8DsDx
SnAdN9ECQBZuziRF5g7AJOqULX1JA0ApeBDhEmQPwO5RQgb5jwNARs5zGOat
D8An8JWv1eMDQNdmNPteARDAGmL1tYoqBEBKBq0TCyYQwJpcS29XfgRA0+9i
62RQEMAqCcIHMrsEQFZ7qrsJbxDA8xq7vR8EBUCvG26amJMQwKOh0HsGRAVA
jOMMiM6zEMC85vmayYoFQCWOHy1s1xDAMPVnpY3hBUAzOoRn7wIRwCR24PSl
LAZACG7AVHQoEcDS3JAOE3UGQBiNv3CVTBHAhkCmzs22BkBnZdAIy20RwFSP
FBiO7QZAmpMvL0uJEcArhpyJviEHQBvtTzkxoxHACZeXdNJiB0CfOEI3FsQR
wCsW6aX9mQdAObn6sHjfEcDA2a6nCdEHQBNmvQAb+xHA5qZTDBoJCEBMQsJv
aBcSwGRg6y4APghA/jrb7kkxEsDuW01oe3gIQCArmOYZTxLApIbSxzqiCEAA
Xdq8AGQSwD4PF3540ghAQhOIb+l7EsCEzumIwQYJQC48YaeFlhLAw5J4jK8z
CUDiVnbSJq0SwMDNZFMwZAlAPoIbZf3EEsA7r6c9ZJEJQE94zYi72xLAM43t
90HACUACvel3VfMSwHIc1O8=
       "]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.011000000000000001`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.011000000000000001`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-9.21034011459786, -12.385111543896043`},
  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->{{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},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 
       6}]]& }, {{{-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.41431317630212, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.903487552536127, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.433483923290392, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.111728083308073, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.824046010856292, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.600902459542082, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.418580902748128, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.264430222920869, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.013115794639964, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.703782474656201, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, {{-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.02375108873622, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.86960040890896, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.41431317630212, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.903487552536127, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.433483923290392, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.111728083308073, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.824046010856292, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.600902459542082, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.418580902748128, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.264430222920869, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.013115794639964, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.70805020110221, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {3.2188758248682006`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{
  3.7860397462562437`*^9, 3.786381174561144*^9, {3.789747009546315*^9, 
   3.789747022798468*^9}, {3.789747180816671*^9, 3.789747185304206*^9}, {
   3.789748266139413*^9, 3.7897482778578568`*^9}, {3.789749766836547*^9, 
   3.789749784531066*^9}, {3.789817009861409*^9, 3.7898170488613443`*^9}, 
   3.78981956418874*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"471fd61d-b901-4c45-bbb9-afb7a2622279"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s8", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Ss", "[", 
    RowBox[{"d", "[", 
     RowBox[{"SelectFirst", "[", 
      RowBox[{
       RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}], "]"}], "[", "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}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   RowBox[{
    TagBox["InterpolatingFunction",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquarePlusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
               Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAEBa1ebwPEXRMWw0
Fdo/xtBI9Qoxaj8FZS60Bi7rPxyub5tGrYk/aslGZ8ww9D+DIspNiM+ZP8qC
eNpvqfo/u7iEbRampD8VebNxPtcAQApj7UbaOK4/IB09Xc4dBEA7HoXvqg20
PykcpROTqgdAC0qINE8Euj9wLA79xCYLQCLQ75GVacA/EKmJTQBnDkCraCC/
wEXEP1jAcTS49hBAx+urmRZlyT9V4qf19JsSQN49kRrmyM4/8YxeUOg4FED9
c/PmuPbRPwxlhBD2+BVAAY4VwBNW1D9VczOECJsXQBwHfyRzF9Y/Hq9RXTVg
GUCAR0XUKJnXP4Vz8M8YHRtAPh894xHO2D8Zbhj2ALwcQDyTM62vxdk/LZav
gQN+HkCF1mk3h7TaPzj6Z2AFESBA/P+174V/2z8ZwK8ylvQgQFHJGlntStw/
Scq3UQLUIUDaBW/wgAXdP49vhMpwpCJAkRD9lMKp3T+Vqwh2bIYjQOyoKzWw
Ut4/soJRe2pZJED9Jngd7OjePx6eWs1DKCVA9ccdL/F13z9KUBtSqggmQIYg
iOZQBOA/jZ2gMBPaJkApV7Z6EEbgP4+B3UEJvSdA/qR3tZ6K4D/hqdqf2pso
QPL67Y9wy+A/SW2cV65rKUAuDQBvzAXhP3HHFUIPTSpA2ElNe/5C4T+wvFOG
ch8rQOP16UlJeuE/PvZRF7HtK0CqAtzS4a7hP4zGB9t8zSxA81t3uEDm4T/w
MYL4Sp4tQDixkaRoGOI/FDS0SKaALkCqfw6DPE3iP0/RqvIDVC9A/uXYtDJ9
4j9t2bB0nhEwQGpLHSMCq+I/khVoiQGCMEDjPdNwatviP0KfAcvl6jBA7APi
unEH4z9S9PalkFwxQMVKc9b0NeM/imtMJynMMUC7qL83eWLjP00whNVCNDJA
4AL2tAiL4z9wwBcdI6UyQHoG3kL+teM/H56NkYQOM0A22vUgMd3jP/WdY6zT
dTNAsIQXb88C5D8raZVg6eUzQD+6jRG/KuQ/7IGpQYBONEDRTetYOE/kPw1m
GbzdvzRADGkirvJ15D9WbOncKC81QBMs988rm+Q/KsCbKvWWNUD7b11sMb3k
P17fqRGIBzZAAR3TjGDh5D8dTJolnHA2QDL+U7yCAuU/PITm0nbiNkB2deaC
uSXlP4PekiY/UjdAc0fyC6FH5T9VhiGniLo3QHctReaxZuU/h/kLwZgrOEA9
Qsd3yYflP0W62AcqlThAMOXG/yOm5T8+GeT4//84QJKO6yhXxOU/+lm9dg==

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$54449#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.6802173423024718}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquareMinusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
                Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAEBa1ebwPEXRMWw0
Fdo/xtBI9Qoxaj8FZS60Bi7rPxyub5tGrYk/aslGZ8ww9D+DIspNiM+ZP8qC
eNpvqfo/u7iEbRampD8VebNxPtcAQApj7UbaOK4/IB09Xc4dBEA7HoXvqg20
PykcpROTqgdAC0qINE8Euj9wLA79xCYLQCLQ75GVacA/EKmJTQBnDkCraCC/
wEXEP1jAcTS49hBAx+urmRZlyT9V4qf19JsSQN49kRrmyM4/8YxeUOg4FED9
c/PmuPbRPwxlhBD2+BVAAY4VwBNW1D9VczOECJsXQBwHfyRzF9Y/Hq9RXTVg
GUCAR0XUKJnXP4Vz8M8YHRtAPh894xHO2D8Zbhj2ALwcQDyTM62vxdk/LZav
gQN+HkCF1mk3h7TaPzj6Z2AFESBA/P+174V/2z8ZwK8ylvQgQFHJGlntStw/
Scq3UQLUIUDaBW/wgAXdP49vhMpwpCJAkRD9lMKp3T+Vqwh2bIYjQOyoKzWw
Ut4/soJRe2pZJED9Jngd7OjePx6eWs1DKCVA9ccdL/F13z9KUBtSqggmQIYg
iOZQBOA/jZ2gMBPaJkApV7Z6EEbgP4+B3UEJvSdA/qR3tZ6K4D/hqdqf2pso
QPL67Y9wy+A/SW2cV65rKUAuDQBvzAXhP3HHFUIPTSpA2ElNe/5C4T+wvFOG
ch8rQOP16UlJeuE/PvZRF7HtK0CqAtzS4a7hP4zGB9t8zSxA81t3uEDm4T/w
MYL4Sp4tQDixkaRoGOI/FDS0SKaALkCqfw6DPE3iP0/RqvIDVC9A/uXYtDJ9
4j9t2bB0nhEwQGpLHSMCq+I/khVoiQGCMEDjPdNwatviP0KfAcvl6jBA7APi
unEH4z9S9PalkFwxQMVKc9b0NeM/imtMJynMMUC7qL83eWLjP00whNVCNDJA
4AL2tAiL4z9wwBcdI6UyQHoG3kL+teM/H56NkYQOM0A22vUgMd3jP/WdY6zT
dTNAsIQXb88C5D8raZVg6eUzQD+6jRG/KuQ/7IGpQYBONEDRTetYOE/kPw1m
GbzdvzRADGkirvJ15D9WbOncKC81QBMs988rm+Q/KsCbKvWWNUD7b11sMb3k
P17fqRGIBzZAAR3TjGDh5D8dTJolnHA2QDL+U7yCAuU/PITm0nbiNkB2deaC
uSXlP4PekiY/UjdAc0fyC6FH5T9VhiGniLo3QHctReaxZuU/h/kLwZgrOEA9
Qsd3yYflP0W62AcqlThAMOXG/yOm5T8+GeT4//84QJKO6yhXxOU/+lm9dg==

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$54449#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.6802173423024718}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["4", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["False", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   InterpolatingFunction[{{0., 25.}}, {
    5, 7, 1, {65}, {5}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
1:eJxTTMoPSmViYGBgBGJHBgT4s/LjJd+kAPvDXZwK2X867N98nXytJXKlvai1
VPuv2Gf24nMO3td/9ta+oObtTNXGT/bhCSdehZ3/av9ty+H4yaY/7ct/ZG9y
2/vH/rzne+l4awaHm04TmoXUmBx+3jL2ZhJhcTh5IvLGZT42h106amby19kd
ctTu5xQ/5nSI3rj/zTwbHgeT65lLlhbxOZwtlcpcKSPg8DNttvTlzwIOn3ik
fqnvEHRYmg3UsFnI4ZLE2sWrVgo7uHH0m/VViDgkb+lbpZYh6rA27+ucL/vE
HPZfOT+764u4Q4fgocW9jyUcWrRMqxdMlXaolLszd+ttGYfazWd7X56UcwDa
skdWUcFB75G14etWRQcNri+dNpZKDhzPXnys1lZ2+OR4Pu0qu4pD+/LwU0Ys
qg6JIUHqCzzVHI4qbCjKEFR3SH4X5WTHoeHw2EzqQPQDDQf1Q23Lw19pOtz3
752et0nLoSbRKNRglbZDdbO+z7IuHYc3gTvkWrt1HQL+SBRfv6TnwK2iUdfz
U99B5vUjM6kJBg5bzX8cSpEydJDWv6vCNtHQYZ/BTC0JViOHSwz3mDhnGTk4
LLm/j0/G2CH/Q+vJkIXGDmfPAIGOicOBaAXHj5tNHFiP9huW+5o6RLZZXDu6
1xTiDiczh72PRWRPXjVz8ABZHG7uoLtp7vvlz8wdniYuvGaSb+EAiX1LBwCB
r+DA
    "], {
    Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24,
      26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 
     62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 
     98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126,
      128, 130}, CompressedData["
1:eJxlzPk3GwYAB/DoKu4jYUZVDbWa9HC0qhb5Wlnx5nl56ihG1Fxlfa7Ns7dO
K0TcReeYLnPWLaZbpbRFR3iljjriDrkcTye12LPWuuP3ff6Aj1l4vE+kEoFA
YBL+73wDo6EjwZ/GZlZMVW4p46Nv5bwTmiO0vjOt853NLjhsV3fspxp1+LV8
wmH0hKFwMy5VU4UJF/dsQWZ5OaJ+qLe2SCmEsmlNI1GfA/MZvbhqmzJoDili
4x5WgxzdnzH5FQcmn4mHL1+vRb22miFrohbfhFd56CjqQKVdIRuFNsK7q33E
zfceXAqgc+JGG4yiTBoFPzbAsnRAK0GlE8JCrvjURiP46jzOqb9/xmgfpi08
mvHm1wvdg448pPtUXbN43QKKc7hrlm8PqAY53hrbbag8HfhoxaEXypuk/qvb
HXjJ5dr4c56CqqHSnEC/D/8OHoXkN4hRsWHwFOkBSm4fV9l4PoQhz5pKIYOH
qIjTXb8HP8P8b0qHctCNZGbrwAeCUdj2RiVu0HugTj128Y7BBESH5x8Mf9mD
V4nGZ32OvADMta1UznYjyj1GXe47BZOGUO2C/76bLF15dPU0IkO8THWWfgHR
gC7UdpyF3Yqucik6Yem+ztiMFeDkw5mDhffbYX/u/njx+TlcHjUbkI82oyUj
IzfQaAHU4cCa9PI6vPPk7U7k3ALWJeki1bEavHQufPfrxUVEOPpJqP1VsKER
d74oXIJNiZYaL48Ddv7SIoe/jPEAWv6llEpQ5ZP8EP8VCPY9fFucvodqdxB7
UEeIPxJyRx+PlMPIgWpZ2yGErr5YAy1leLLz3jg/ZBVH37gOxrBKUWTsdfXA
cA2sCr+j1s7fYeWIE5MYsAbt6jKzbtYdqF3vKRusXoN56ecWWz0laGslqEqF
awgdYyicyCV4pBhrS7ISgZfW1/XcvxjZLnkxCyEiFFPUSPLpIkz2JV0RcETI
3T1uuUAtgrvC01k2K4I0OU/oknobc25u63t6YnguEVgrEYVI8VMYqIeJQac8
tv/QrABJxNUOcY0Yf4roQWv6+Zg7WLwZKRKD7fvaqsk4D1buS/8QjSW4JTBR
OUfLRdAIy0r5Uwn6/prQO5OfA8kumcRPlUCsqO2c38yG64yr12SnBF69DbSP
TbNhOFshsBZLcLB8rMvrBhtNmTbbsWQpPLnzFo7LWdCKKaPnu0qRWNtI7qBm
wX5P1rWVKEWYIYl/l8uC/X7koZP3pCBKRPv+Oizkrgu9+59Jwa6kpMXUZqIp
7W0icU+KUNOLSresMhEv380QmMlg18/oMq3PACX9qaatpwzVxrYtFxwyYEzj
RnOTZViKaH+hxWdiMWT9kuddGcbGh/aYwUystm1ZBwzK4Bjtdi3+VTr+BahG
6i0=
     "]}, {Automatic}],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "[", "x", "]"}]], "Output",
 CellChangeTimes->{
  3.789818360124195*^9, 3.789818667629681*^9, 3.789818746856895*^9, {
   3.789818811882657*^9, 3.7898188177936583`*^9}, 3.789819583555128*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"74adcd61-8d07-48ce-971c-dd83b1e3ca60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"s12", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Ss", "[", 
    RowBox[{"d", "[", 
     RowBox[{"SelectFirst", "[", 
      RowBox[{
       RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}], "]"}], "[", "x",
    "]"}]}]], "Input",
 CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, {
  3.789818340608953*^9, 3.7898183589082117`*^9}, {3.789818732506002*^9, 
  3.7898187360151863`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"db5e13eb-a70e-45e3-bf97-b88ce1b857b6"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   RowBox[{
    TagBox["InterpolatingFunction",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquarePlusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
               Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAICAtunvPEXRMWw0
Fdo/M/qEJOk7aj8FZS60Bi7rP6kesncG+Yk/aslGZ8ww9D9rzxAuOlOaP8qC
eNpvqfo/Wfy/iRMupT8VebNxPtcAQCTBduRWGa8/IB09Xc4dBECBWX3ZPpi0
PykcpROTqgdAQ9Sje0xguj9wLA79xCYLQF4GCrgVIcA/EKmJTQBnDkAo7Lkg
4e/CP1jAcTS49hBAP/RC7TwWxj9V4qf19JsSQF5C3Rvwask/8YxeUOg4FEBs
kzX8hyXOPwxlhBD2+BVAH8ers6Zy0z9VczOECJsXQPMzKpHmwNc/Hq9RXTVg
GUCZmHTabnjaP4Vz8M8YHRtAWDUhsYT52z8Zbhj2ALwcQJ93P9lqBN0/LZav
gQN+HkDmELf6xP3dPzj6Z2AFESBAEPhzKu/Q3j8ZwK8ylvQgQLgzDbcepd8/
Scq3UQLUIUCfrAea/TPgP49vhMpwpCJABqgu0eOJ4D+Vqwh2bIYjQF0u0IVM
4uA/soJRe2pZJEDcwceO7DDhPx6eWs1DKCVAVpd5I7p64T9KUBtSqggmQCml
8cp/x+E/jZ2gMBPaJkCo6rvDUgziP4+B3UEJvSdAFV3pTRVU4j/hqdqf2pso
QKLr7FHol+I/SW2cV65rKUAchbItA9XiP3HHFUIPTSpAbebGNxgV4z+wvFOG
ch8rQJjRi3r/TuM/PvZRF7HtK0Bz+bkTEYbjP4zGB9t8zSxA3+hDMwnA4z/w
MYL4Sp4tQIh1nhCL9OM/FDS0SKaALkDvqfTU2CvkP0/RqvIDVC9A9Zb7fQ9e
5D9t2bB0nhEwQFLZ//kFjuQ/khVoiQGCMEA6e48Zs8DkP0KfAcvl6jBAGwpT
yMru5D9S9PalkFwxQL1sMhx+H+U/imtMJynMMUBlb6p/Gk7lP00whNVCNDJA
cOY9QpB45T9wwBcdI6UyQN6Hw1CLpeU/H56NkYQOM0AtAt+uls7lP/WdY6zT
dTNAt15hdPn15T8raZVg6eUzQMre67vKH+Y/7IGpQYBONEBykiXh/EXmPw1m
GbzdvzRAGs3s3YVu5j9WbOncKC81QI+VQI16leY/KsCbKvWWNUCSfpTPGLnm
P17fqRGIBzZAqJxzY/ve5j8dTJolnHA2QPFtvuurAec/PITm0nbiNkD6Ss+L
jCbnP4PekiY/UjdApYoT3Q9K5z9VhiGniLo3QAf5RP+Yauc/h/kLwZgrOEDp
1wzmPo3nP0W62AcqlThAWeWr1Aet5z8+GeT4//84QFV4plmpzOc/ZeHFWg==

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$54516#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.7437330962163836}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquareMinusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
                Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{{{}, {}, 
                 TagBox[{
                   Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                   LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAICAtunvPEXRMWw0
Fdo/M/qEJOk7aj8FZS60Bi7rP6kesncG+Yk/aslGZ8ww9D9rzxAuOlOaP8qC
eNpvqfo/Wfy/iRMupT8VebNxPtcAQCTBduRWGa8/IB09Xc4dBECBWX3ZPpi0
PykcpROTqgdAQ9Sje0xguj9wLA79xCYLQF4GCrgVIcA/EKmJTQBnDkAo7Lkg
4e/CP1jAcTS49hBAP/RC7TwWxj9V4qf19JsSQF5C3Rvwask/8YxeUOg4FEBs
kzX8hyXOPwxlhBD2+BVAH8ers6Zy0z9VczOECJsXQPMzKpHmwNc/Hq9RXTVg
GUCZmHTabnjaP4Vz8M8YHRtAWDUhsYT52z8Zbhj2ALwcQJ93P9lqBN0/LZav
gQN+HkDmELf6xP3dPzj6Z2AFESBAEPhzKu/Q3j8ZwK8ylvQgQLgzDbcepd8/
Scq3UQLUIUCfrAea/TPgP49vhMpwpCJABqgu0eOJ4D+Vqwh2bIYjQF0u0IVM
4uA/soJRe2pZJEDcwceO7DDhPx6eWs1DKCVAVpd5I7p64T9KUBtSqggmQCml
8cp/x+E/jZ2gMBPaJkCo6rvDUgziP4+B3UEJvSdAFV3pTRVU4j/hqdqf2pso
QKLr7FHol+I/SW2cV65rKUAchbItA9XiP3HHFUIPTSpAbebGNxgV4z+wvFOG
ch8rQJjRi3r/TuM/PvZRF7HtK0Bz+bkTEYbjP4zGB9t8zSxA3+hDMwnA4z/w
MYL4Sp4tQIh1nhCL9OM/FDS0SKaALkDvqfTU2CvkP0/RqvIDVC9A9Zb7fQ9e
5D9t2bB0nhEwQFLZ//kFjuQ/khVoiQGCMEA6e48Zs8DkP0KfAcvl6jBAGwpT
yMru5D9S9PalkFwxQL1sMhx+H+U/imtMJynMMUBlb6p/Gk7lP00whNVCNDJA
cOY9QpB45T9wwBcdI6UyQN6Hw1CLpeU/H56NkYQOM0AtAt+uls7lP/WdY6zT
dTNAt15hdPn15T8raZVg6eUzQMre67vKH+Y/7IGpQYBONEBykiXh/EXmPw1m
GbzdvzRAGs3s3YVu5j9WbOncKC81QI+VQI16leY/KsCbKvWWNUCSfpTPGLnm
P17fqRGIBzZAqJxzY/ve5j8dTJolnHA2QPFtvuurAec/PITm0nbiNkD6Ss+L
jCbnP4PekiY/UjdApYoT3Q9K5z9VhiGniLo3QAf5RP+Yauc/h/kLwZgrOEDp
1wzmPo3nP0W62AcqlThAWeWr1Aet5z8+GeT4//84QFV4plmpzOc/ZeHFWg==

                    "]]}, 
                  Annotation[#, "Charting`Private`Tag$54516#1"]& ]}}, {}}, {
              DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
               AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
               GridLines -> {None, None}, DisplayFunction -> Identity, 
               PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
               All, DisplayFunction -> Identity, AspectRatio -> 1, 
               Axes -> {False, False}, AxesLabel -> {None, None}, 
               AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
               Frame -> {{True, True}, {True, True}}, 
               FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
               Directive[
                 Opacity[0.5], 
                 Thickness[Tiny], 
                 RGBColor[0.368417, 0.506779, 0.709798]], 
               FrameTicks -> {{None, None}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}], 
               Method -> {
                "DefaultBoundaryStyle" -> Automatic, 
                 "DefaultGraphicsInteraction" -> {
                  "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                   "Effects" -> {
                    "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                 "DefaultMeshStyle" -> AbsolutePointSize[6], 
                 "ScalingFunctions" -> None, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
               PlotRange -> {{0., 25.}, {0., 0.7437330962163836}}, 
               PlotRangeClipping -> True, PlotRangePadding -> {{
                  Scaled[0.1], 
                  Scaled[0.1]}, {
                  Scaled[0.1], 
                  Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
             GridBox[{{
                RowBox[{
                  TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], 
                   "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"scalar\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["4", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["False", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   InterpolatingFunction[{{0., 25.}}, {
    5, 7, 1, {65}, {5}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
1:eJwBGQLm/SFib1JlAgAAAAEAAABBAAAAAAAAAAAAAAD8qfHSTWJQPxHZUeYw
qZs/u9bep6rQwD+Qn41cN6XSPxGPxMvTOeM/xXQhVn+E6z9XQ+IeSx/wPz9v
KlJh7PI/HebLC7AP9j8yIHu9++P4P39N1qiHaPw/SPlJtU8HAEAQr+sX7MYB
QIT1fw7zZQNAiZgSSfQyBUB4tHHEWvwGQJ3X2CWqtwhAQj7o2ay6CkC7m6c6
5KYMQJ8fRgiPdg5ATI47pYNVEEBIbeLkfocRQGItPgXAWBJADhXj/E0IE0CO
QLyuX7ATQNc07zhFJxRAHy457pSOFEB4l4v4TuwUQPWc9L7xNRVA4PPDCOFx
FUBYxRuZR74VQN+mP/uRAhZATRWMSupEFkCWBKipZYsWQCodrP9z2BZA9gt2
w7YlF0Bjl6jeGngXQNl3RfC/1RdALLe0GhJXGEAKEXAIVQoZQOVhodY0zxlA
qcE0DB/xGkDhtOBFX4EcQCcxCKwcGh5A2iCTjJwFIED1nPS+8RUhQOtunuqQ
ayJAn+V5cHd2I0BwXwfOGbEkQNnO91PjJSZAtvP91HipJ0CJQWDl0AIpQCuH
FtnOlypAOiNKe4MvLEDM7snDQs0tQF66SQwCiy9A7nw/NV66MECYbhKDwMox
QB4Wak3zvjJAkDF3LSHPM0DYgXNGlAY1QI51cRsNUDZAT6+UZYiTN0AAAAAA
AAA5QGun4C4=
    "], {
    Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24,
      26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 
     62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 
     98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126,
      128, 130}, CompressedData["
1:eJxlwYs/EwgAB/CtxHUPj7v2qYkKnz5SfcjppNz5kUd6KDO3aJfu5Ll03brW
5TxO5JliGDUU8oh5nITWvB+ZzGMqzHvmMaWyQuns3B9w36+e5wUXbyKBQAgn
/F9spn0f0fRHK06T8IDFAxWQkm7x1h17Y9Vr1qIriafgIWlPMiXcHIbKlUBv
PxbMd1w9HeBOR8dsivrj5Sj0CbvHL/gEYUFV0S04yUHKzzH/mCbGwaXJrl+V
nIG/2NXWBmVsaEqWI7Mu3oX7XECXTVga2HSBIP9yNuqS/E9QHtxBY1v11U6T
exgwyXVWHcnBVEgAkxaXi5p6swDN6wXYkvJZ4EtlHvQvuYQUVBZjfxHVu+FQ
AVTbN2jIF/6G8drI34KP34f0lF3XKqsCc8I2rR5yIfh/NoeaulZhTJuV7d5X
iJGWJG4c+PB/OUXKDygC4+TKN2v0azAQ3qmzb6QIgvNpb7Ji6+Gq4yu6doiH
+1ncM0pGI95SuxxEGTy4L4pXryib4NV6KbroAw8W+xpCKudb8MwiWCxpKYaw
3baSvqMNV2wUKjzNMtSmO24OfS6E40YBupjl0P1S5HKA+RTxbN54PfMhgsip
bunHRJhazddwMOAjM0Gwy1DWiX81pt9n82uxvTzo9qOwbpgVhvr6mDZia/3O
pczUHlwO8xrlejRjaUY+6eosxu7aHROJ71qQLwy8GqAQIzfpKPG6yhOo52Sb
FQl7sUTYYPbp4xMI9zi28m4+A13rp1UarQ3WfhzHxRPPkdezwaj42zY46A4k
9JFfQE6VH8yIf4Lt1LWzf7x+AYuh2RJ7SisW+P3LLyr60CU7/Eq9uhmfYqok
Wqx+kInpJTfaG8HN5f6y02IADJP5O6TN9dA7b2qrpiOBVEbKs2TyQavIz20g
DWK/GtXYJLgChx0sPdfPDuK74Nkyde9S3FOctUuVDIF18DRxPrkA9Hat9Wel
w8gTD+ecc76HiBBVSpNwBB8KzS/f2JWNMOvY2NHWUbCNO07t2XQXtDlPa2XT
GNSWGcrEqAz8cO0RW3ZxHJIwbScjTS7WLDOpe4fH8bgu8HZJ8C1463ULOc5S
aLxLjnedSUX/cy8NW7EUr8RG9osuHASpEgaJxycgH60zbJYnQ/TWa++vVRPI
6V4SM8VJ2LLOhzVmJMPkUKW3VTkbBh+/ljmlyaB78oOLojQRZyr8bQ0Jk/Az
KF9RxCUgi7c7Vc6YBGPxdzdO5w2ojG8NSZdM4hxDZUiwKR6Liq6KSKcpeGrz
LWV+cdgW8dq3tGwKuUe2SXs1Y6Ejkn7usXEaIxS6vtOjaCRQyd97RE/jaHO4
WzQtCsUrZwXKpWnsEueo9X4ViddfdLwP9ZiB2s0Y4qG5CJj31NALRTNg8ZU2
UU/D8R++lwbJ
     "]}, {Automatic}],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.789818360124195*^9, 3.789818667629681*^9, 
  3.789818736796588*^9, 3.789818818957527*^9, 3.78981958445508*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"d6a711e2-2f0e-428d-8dce-4ea95f7261f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit8", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"s8", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "24", ",", "25", ",", "0.05"}], "}"}]}], "]"}], ",", 
    
    RowBox[{
     RowBox[{
      RowBox[{"logZ0", "[", "8", "]"}], "/", 
      SuperscriptBox["8", "2"]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"1", "/", "8"}]}], ")"}], " ", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"2", "\[Pi]", " ", 
         RowBox[{"\[ExponentialE]", "/", 
          RowBox[{"(", 
           RowBox[{"\[Beta]", " ", "8"}], ")"}]}]}], "]"}], "/", "4"}]}], "-", 
     RowBox[{"logN", "/", 
      SuperscriptBox["8", "2"]}]}], ",", "logN", ",", "\[Beta]"}], 
   "]"}]}]], "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}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"0.1419909084763723`", "\[VeryThinSpace]", "-", 
       RowBox[{
        FractionBox["7", "32"], " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], 
          RowBox[{"4", " ", "\[Beta]"}]], "]"}]}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`logN -> 
      21.65166476666278}, {{$CellContext`\[Beta]}, 
      Rational[-1, 64] $CellContext`logN + 
      Rational[1, 64] (20 Log[2] - Log[6] - Log[
        Rational[1, 2] Pi^Rational[1, 2]] - Log[
        Rational[3, 4] Pi^Rational[1, 2]] - Log[
        Rational[15, 8] Pi^Rational[1, 2]] + Rational[35, 2] Log[Pi]) + 
      Rational[-7, 32] Log[Rational[1, 4] E Pi/$CellContext`\[Beta]]}}, {
    1}, CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEWDk9rl3lLVj+1P3sGCHgsHA6e2Rx9te6p/ayZ
QCBp4dB1Uj63v+mpfRoIqFk4+OmEN7i3PbU3BgMLh4viGtP+dj61BxvnYOFw
RPbe+o29UPN8LBwYnOPOJ0+Emhdp4bCT2fm78FSoeWkWDvvCf2gdmgE1r9jC
4e/VCXl5c6DmNVg4XEs3OySxAGpej4VDZ/MjtYOLoebNtHD4lrRtXvpyqHnL
LBymer3U5lkNNW+zhUNZ54kL69ZBzTtg4WBfub3ffxPUvDMWDrp1+tnvtkLN
u2nhIMp+ILV7J9S8ZxYOKb18TWp7oeZ9tnCQm3rt0P4DUPMYLB3ur3mpFX7k
qT0AWZCXHw==
    "], 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`logN, $CellContext`\[Beta]}, #], {
     HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7898190432299767`*^9, {3.7898190857153063`*^9, 3.789819091977379*^9}, 
   3.789819585687628*^9, {3.789819631032202*^9, 3.789819636628154*^9}, 
   3.7898200010500107`*^9, {3.789820617302545*^9, 3.789820658889573*^9}},
 CellLabel->
  "Out[198]=",ExpressionUUID->"8d55ea2c-d0f1-46ce-9113-d087b7dc0709"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit12", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"s12", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "24", ",", "25", ",", "0.01"}], "}"}]}], "]"}], ",", 
    
    RowBox[{
     RowBox[{
      RowBox[{"logZ0", "[", "12", "]"}], "/", 
      SuperscriptBox["12", "2"]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"1", "/", "12"}]}], ")"}], " ", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"2", "\[Pi]", " ", 
         RowBox[{"\[ExponentialE]", "/", 
          RowBox[{"(", 
           RowBox[{"\[Beta]", " ", "12"}], ")"}]}]}], "]"}], "/", "4"}]}], 
     "-", 
     RowBox[{"logN", "/", 
      SuperscriptBox["12", "2"]}]}], ",", "logN", ",", "\[Beta]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, {
  3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, 
  3.7898196670555353`*^9}, {3.789819741878034*^9, 3.789819742314652*^9}, {
  3.789820032771653*^9, 3.789820044215356*^9}, {3.789820592678129*^9, 
  3.789820607802986*^9}, {3.78982066564784*^9, 3.7898207068254957`*^9}, {
  3.7898224619322357`*^9, 3.789822468070911*^9}},
 CellLabel->
  "In[221]:=",ExpressionUUID->"4efd9ff7-727d-4935-a6af-8855bb5270f5"],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{"0.08695911028648745`", "\[VeryThinSpace]", "-", 
       RowBox[{
        FractionBox["11", "48"], " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], 
          RowBox[{"6", " ", "\[Beta]"}]], "]"}]}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`logN -> 
      43.82158767202141}, {{$CellContext`\[Beta]}, 
      Rational[-1, 144] $CellContext`logN + 
      Rational[1, 144] (43 Log[2] - Log[6] - Log[24] - Log[120] - Log[
        Rational[1, 2] Pi^Rational[1, 2]] - Log[
        Rational[3, 4] Pi^Rational[1, 2]] - Log[
        Rational[15, 8] Pi^Rational[1, 2]] - Log[
        Rational[105, 16] Pi^Rational[1, 2]] - Log[
        Rational[945, 32] Pi^Rational[1, 2]] + Rational[77, 2] Log[Pi]) + 
      Rational[-11, 48] Log[Rational[1, 6] E Pi/$CellContext`\[Beta]]}}, {
    1}, CompressedData["
1:eJwt1HlU1FUUB/CRo1kYqYWI6AHBDNQOekLhJnF+V61GERcWIxgoNAXEBDyK
IaUoOKwyhJrDYsO+KQ6LCsjesAqjYFAEubHEU+SIS+Myp7Q3073n/M7v3H++
v/fu572f5Y4Qt10GIpFoF3907/8L0MRAPONZJBOaNTY+yQaA1m8eDGw4ygTp
A9dq82mAJ1UbymKOMWH9UISxcjrg+++1D2+OYoJhf26okyHg8OCT1ybRTLim
5vU24Aztjel3eJ+s4oEzAU237tYWHGeCW7W59MFswLra+v5gKROMlWKeCDhq
1pdpH8MEfdxcwCrncrdXvE9P4zUP8Iy196PWWCb46AIXAM5P6g1PimOChX6B
vP/CasIjngm65YktAfN8NjovSGBCHo/rXwT46pD7qRHe++vqA8CSGKH9XCIT
lugDAfd4G4/tO8GECZ4mXQa4XP37JCQxQb88W0CbisTR17zfx+NyVwCqhhxa
2mRMsNMXoGL5XVlSMhOe8fGpVgGeDYn/1ONHJui26wqANw7AX2YpTPhet+HV
gCmzn4QO8d5JP0BA/7m1rPAkE/QcyD08UzcEnyKPtYCZWbIzK0+Tx2eAq5tz
rmtPk4cYUJI08LjpJ/JwBlSqHUSxZ8jDhc9ns+qli5w8tgA23Tp8+91U8nAF
1H4eovwjlTw8AH08MnYr0sjDE7Cy+41ZO9PJwwvwnajK7CUZ5OEDWGhXaj6Z
QR5f8Xmf18RcOkse2wE7ymWDh34mj28A/zaMnCcoyMMf8MIPXeumZpJHIKBn
V7jX1Uzy2AMoq0n0lmWRRzDgUqO3xO7Z5BEK6CTVmJvmkMd+wNmj24Zv5pBH
GOCH47Yp2bnkEQ64yVO6zD+PPCIA9477li/NJ4/DgA3b660m88njKF9fRFHk
xQLyiAIceryo47tC8pACOkav/MexiDxiAfvu354vKiaPBMApd62tW4rJ4wTg
Vgtj87hz5JEMmOBXJHI5Tx4pgGWS+9dnlpDHaT7P9j/jekvIQw44LjluK79A
HmmAi6+xRm8leZzl96XH0Mm8lDwUgDvMnuQPlZJHNiDzzdHmlZFHLmDtpoWO
geXkUcC/nxEasKyCPIoAe17IIx9WkMd5njcnI7r8InkoAUeyjuw/cIk8yvj5
cBZvcbhMHhcBextemmgvk8dlQL+S9M66SvKo5uez0TYosoo8agALcmo0a6rJ
ox5wYMq6vVOvkEcTYGeMuqftCnmoANsGJQvja8ijFXBbgUaysZY82vl9SVFE
G9WRRydgyFqJvLuOPNT8fPitkKfUk0c34J1kq2j3BvK4AfjRQXvJnEby6AOc
XhVq0d9IHv2ARzS/dac2kccA4ERv0Lfev5DHTT6fp3aa+SryuM3/L89WBd1S
kccQ4K8RYV2KZvIYATSyfG7q10IeY4BesY1ulq3kcQ8wYGNv+HAreTzg/oYO
iblt5PEQsPrryfid7eTxCPAYE4Ut7iCPp4Bmn4S6jHWQhwbwy+drZhVeJY8X
gOsrIpoCOslDy/c/zcLXpos8/gVMjbUbu9dFHqKP0b6nTlKsZsJ/SvkIoA==

    "], 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`logN, $CellContext`\[Beta]}, #], {
     HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.7898190432299767`*^9, {3.7898190857153063`*^9, 3.789819091977379*^9}, 
   3.789819585687628*^9, {3.789819631032202*^9, 3.789819636628154*^9}, 
   3.789819668850231*^9, 3.789819742671688*^9, 3.7898200469962473`*^9, {
   3.789820593415386*^9, 3.789820617938416*^9}, {3.789820650005217*^9, 
   3.789820707095992*^9}, {3.7898224624031363`*^9, 3.789822468629485*^9}},
 CellLabel->
  "Out[221]=",ExpressionUUID->"ffeff05c-4235-40d0-8626-532170640c37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"s8", "[", "x", "]"}], ",", 
     RowBox[{"fit8", "[", "x", "]"}], ",", 
     RowBox[{"s12", "[", "x", "]"}], ",", 
     RowBox[{"fit12", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "25"}], "}"}]}], "]"}]], "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}},
 CellLabel->
  "In[222]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Wk8FHoXB/BJtiw3ZN/3cGWnyXWdv1CytRCqS0KMUPaQZaxZC9kqRKRQ
CJM0ZDe4yLUMohhmLBGTCEUez4vzOef7OefdefGTcrp14ToDBoPp3a//d+n7
u0X54oX6+yNdMHJLr45VUcILFwGHGaj3+HNq9VuCKooVcPdBUvtyJnfasP4D
Heo/nPeyQWvrzSdLkXn9TjUfN2bcE6jIeRY+GbWuH8q393avoAgGvjfG+WMw
kJVurL+T8hw4vlMOWTGwQOXh5LatkHLAmBPicMaHoSt50GTDrRIwrKQ1MRde
oMdwzAeVvQYMu2lESbsQhLVVKm4W1AC+5YJncpsEsDFYeQZkEwCFPXVlUZOB
LPSj4ntKHeD/EMl/0ysPMhEPv/nE1ANiuLjgV6cEVY16WvQQIqCvR5OmVlWg
Wze6ftmtCZqXzHekZLWgXO9IuHZlMzhyD8k01ejAtwmXJ/5lLYA8fTb93U9A
uDDrzFpBG0j6EjY9TwG01186qJHbDtPBside6BgA26VyWZ/sDvB2FsghTZ6E
7GxLt9UUEjjSxd5XOZ6CzzoF8SoJXVAVu2lupm8CsuRvpV4x3eDoQGDTVjGF
Kt7M5aWQf8H7U2VxtpEl9KRN+Cy4fQDcqwNjkcVWEJ+T1f1AfQAa3oSzGExY
gzIOLmtWDgAHaVaxW9gGfFnS7viW/Qe8HORKxlo7+G2s9Z5eMATDSq4mHy0c
oJDvk2Wq+DCo7bgS0ruvghEtdko1dxiwYQSRjyWOkBQzirmVPQJBzyU38ced
QLAtxPBryiikUjJ3sYnXgZguM5zMPgbk9cC0P9xdwcGp10U5YQwq4llS583c
oPiAeJxHzDgUj5W1Joq5gzpq6VoMmYDWA2dYaKueYNrIYjnnNgU3RVqynj7z
BfU9pw1++hRcpSq0VoIfJEte7ZfRmwaDKCuFiQk/8Hd6F2DdPg3Lf4bI3hEO
AKM573bCMAUU1J6HOFfdhpmvn64FbczCI9Ijk2HdMCDfSyKknqBCHv2qxbP1
MOhRPXGoNIwKTdhr5qZV4VDtk1E1zkQD8sIp0XB+PERumO7p8s/BnGB9+tu8
SJDcrcvd1VnY/9N8+NBIDPDmX6fz3VkAjo50/1YUC6xwxEilaQFkEqaskl/G
wir+5pLD6UWQvR1TXB4XB+8Z5XSbbb9A0A+XgnWjeLDnSB+NCloGccVCvYyF
JOjj1DnEaE8H/knn+JeUNBg048npD6UDQwuj7F8S6TCWsCL/MJcO+qJJBoL2
6UBlem6kMkmHn7Hh4g3j6bCzK4C3u/INuHY+M+WRH4DSyvaPl5fWoEFOeMn2
cybE9zdSL9qsw/SSAdZN+hGcvG/c/PzsFritMXKl1RQC3rS2dPDmFiR6aAU2
jBfCeyaZB7spW4D/vsnMgHkKuqEYV6veLXC/84V/wvwpaLoT2fdMtoHB5j61
ef4pyBqq29qc/AmMUgcPG0gXA/Om6Aqj9g6M+1ermZWWwHXVn5zqnBi0/Uv6
5tftcrBQvP6N/zQjkuoPeid9thZ+JgUQP9kwIhn98HN/42rhxUpsbLErI0p9
Gy7oElkLjLUlQhpxjKjbVjOTXFML7/QXDCw6GNHb+ojS80IEkLf2SI82ZEJR
6J5c7RwBMBE+mnRgRq5VK4FjSXVQPRwW0I1lRRb0y9pxzER4EeviNHOGFTX8
OGi+J0eEfB2zs78usyKXpdDxVGMiJOYIKh4LY0W4X2lOv2OI4PxPzWRqCytK
EXC4y8bUALzUBUM700PIer2dKs3WCIHfrXjmr7Chvjukk8ZKTeBZrLu358mG
QvzZI20smsDpotSyYDgbanjvXJng3QSWdSsdpgVsKEgxRdG2rgmO3kkIrqCy
odGXk+1mMs0wxtA0HeDFjmqqr+lsE5rhLx6lSsYIDhTtWbqyvdgC/Qcud/fd
50AHuR3JKbst4PgtYTargAO1nksZ0OFuhZiBRQHFVg7E8l/jiS5sK/TfK8Vb
MHEibiHDd1/iW8GRXfFCVhInWnDdEYdjbRDDqLBxNOcP1Kgl4VcV1w5uv9Lz
ntlxISX3vafnw0mQYbncFuzIhS5XmOC6M0nQXGj8xQK37/rm81avSCBosqXz
4zYXCuzR3sudJEFXhv3AqWwuRPk1Z3hQrwsUVRQOLoxwodHi6AL6bhcsOTbi
lKy4Ef7u+Zmi5B641TmvWWnBg/h4xETVO/qgGb30ULbhQQUPx4SdKH3ARfQu
KnXgQWHC5+6n7/ZBVeU2T/EtHvSq55ASXbsf1nLY13LSeFDFFZPO9JJ+CPRQ
rYoa4UF4LPcQ390PEMp1W9nG/ghyfyMV+F/BACReZpbb9eRF1y4f+/TbcBD0
1Th+LPrzIpLpG6ncs4PwjYmHRA7lRV+CPUJUrwyC3Wsx96pkXmS9WqeK9R0E
OVbtV84veRFVov6vgSeD0Exw1u5Z4kWWvIvLXNuD8IOrxTj7Bh9il3HOyCwa
grK5Tv4Y333PvTCjvBoC+4beee8QPsRUNyEi/XYI2t3GEkwT+VDUatKh6N4h
SHu/2rdbyodO95ANWteHQNlT3MZlkQ91doYnYA2HwZl0x1Udx4/Ks16oyo0N
g4uevOWPW/yosyRp+ev0MLi+HtAm3uZHsVJZjS8XhwH3WI7J+C4/Epz0reX4
NQw3b30osivhR+YEzlwbsREIEZChRFD5Ufxmf7+o4wiku/Vc6XcUQEU84wtr
n0cgY9Lf8AFOAN303o7OnhuBzPMSf9p57+8T3gxproxAzl/+PykRAsjOXrnJ
ancE8g+LP9zIF0DUjSg2DREylNX5kEU/CSA8b+VL34tkaGEROu9xSRANTueY
27aTYa5IxXT8miBSw2y8efQvGTiQkeHpG4Ion8NLkjxIBrugW9oydwTRe79l
VW0KGVYXOoQmcgXRZ5aB3cxdMoj1+M6YTgsiQlyfHV1rFIKTe/2U3ITQhYBa
c5/8UVDnxmct+gujI4pzeVlXx+Ad66gCKVQYKepu0BZcxuAkRoVYHCOMdDlC
hY7fGAPr1YmpqxnCqOPSvDPJfwwC+44rkmuE0bQoHvd2P9caElaJrWvCyHQg
c2+megxMGK5SHnuLoMQHDgnJDOPg+P1vZUtPUTRAkXe9kzMOhfkdopsp4uis
YMA/KQ0foeae7sTgBUlEWbZLWyJOgP+7v8/lmUshYqQz13jmJDT1PFtLuCKN
GDzVxc18PoH76RON7nYySD7awRmj/hlyX6gTPG7IouEqpZLG9c+Q9r0x0vu2
HAryUu/AlU3BXFlAIM5XHk3ViLwYlpuG9lPpOVFRR5GRFsVRPXgaDpz9OHMf
r4D0YvrYC9umAWPw5kBBsCLSP6Ph8ewQBeIFNi0G7yqhmcpK7dwLFPC+7Ny6
Gf0nutVaLiqWQQFKpJYLZCojqSWj7ogxCvA+ePgxofAYaprpcjsmNAMlXErB
pMcqKFPGay3QagZafCWMj5aroui5uaxHqTOQL1kg+re1GipLYGOZJM1AY+hP
DG5ADeU/YTjntTMDUmYsOzK26iihzCW3TXMWaj8oJo0Pq6PTEqsz1OuzkNz5
W03SXgN96P/AQ3g0Cw/8Fm84Tmogr63vEc96ZiGUT/yw9CVN1LnZNeu9NQul
ikw9/tOaCJfo2TyoQAXm9QNCLQ5aiB9Yng5aU+G52uvw/HktpCF/sexiNBUU
ncosd720kcyWVOFoJRUmztRXX1zSRvRXX6qvjVFhsCjkGPjpoNkV+fSLB2mw
VXNeT3pNByk3R+rFKNFg760vIe7mcfSIOHVI5BwNzNROGYduHEcua70+zEE0
INmrunv4YZH8deek8Fwa8DjjiHkBWMRaIV8jkUcDB1wh58BtLHrTc6a3ed8/
fI9Ua4Vi0ZHf9YMMT2ggG7/5czcGizRGktXiCmmAr25KTs3ComtZjhqJJTTQ
ZTlXRajHopbRWae7VTSI40hgWCBiUeLVIw3yr2nwH3ertfB7LOJlxLB07hsn
qrUd3opFThlivow1NMhWFzxp8i8WjYZ05OEJNFi/Mj30cRKLPtYSLALf0QBd
E5LnnMKip27G7bxEGiS5XggCChYRNbqUa/Yt7dMuWkzDIg49wtBqAw3Ox724
7rWCRbbWacG4JhrkJlHqntCxKGdaDM/cTIOFVGG2wTUsqrd7F1S8b/zj5Aqd
TSxyGFJH0y006C3owLhvY1GYMe/h8FYaCJT8vvD4FxYRovgGRNpo4FR+/Fnf
LhZxnT0RXb/viirvzb29/Xu/aAXbdhr8D3MPDy0=
       "]]},
     Annotation[#, "Charting`Private`Tag$71242#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVz3k8lP0exvGhUTooKVlyZMtWGcNUNyfP9ydLi6xZikMlO5FI1DxZsqRB
tko1tlLhaWGkQtwziLRYJlmimOEWFU1lj3GcP67X5/X+81L1DHHwFiWRSLHL
+385t7XO75J4D9dlyEHm8VxcaEGrExS8B1mFT2Ps9Vy8UPaTTbpyJ2z1NTtu
WtOBmxMJAxRmJ6SV4e1DXh04I76bFHL9A7SZcLJ16tpx+YZzZuOp3VDUuoZb
INmG12Sqd6ZI9EBQaINdZ2Qr7uH51mtbcg8IL7rtJo++w4tElBMD43uBrPFZ
hN/6Fqcizquxc32wL0M8/GHNa/xA7SqbEd8BKJp2Sk0UNuHUJc+pjYIBSGE2
621ObMJTVI62qu8eBJo4trJybRMe7ll9xrFxEBx52ePXtF/i5iOnGis7eVD9
xSouK6QB549/Oh45NQQaKwjXsL1svCuNUZluNAxKrZElih04/ppitLrk72Eo
vkGit8jiOCs0u6xXjADHE4w+53u1eOzUgSXjjSNwedtQCYNfjassPmMu7hyF
F08pDH5NJb4hz1sge34UjAMd6s02V+LisN5cDx+FgvQTe53jn+A/YoK/eewd
A6YRNyLgUAVeR95izHb5CkyJ1i53cjnuLpnZHRf5HfpnTX74OpXg76R2ria7
C6C9qLpHJCIL51rJ5LTSBWD3klcc3piB9yRPaN5gCiDns4+99sZ0fFjsvrle
vwD067yKTBOT8YVFuZjDbj/hmOOK4/riUbjuxNz0gyO/YHCi/Mp4VyRcaq0d
dnKeBPnZp6HbTXIhTfJmmErEJOTcpWy1uJkH2QciRL9dnQSUNqSOpvIhv0lP
JebDJLSqzvfTHQrhaV2+W6njFKSnSNNkp+8A8SiWK3SYhu8XOnbbrS2BPVcs
2PdtZ0Eto0CMZFMOMQeelHCDZ6H0SopT7tVyqBNTz1pMnQXtow3xA/3lYEwn
+Rx6OwtlIy/knQNYYOhfI7G0bw4Mi0NjNWIrQMOM6uK8Zx6UqVNuS3mVsHJG
aYK8YwGgUprOL6gCcxajm+K4AJG1gVKFn6sg7uQ82zVsATxNYz9sUqoG4VB3
Vln5Avg2Nh/ed60aZtozjf6rtwheazZ/T0mqgdFS8YQKLSH8nu+L2e1RC96U
eSmqFAn5fDBr6Qhhw8G+pLvyyiR0U2htCalsoCXJmpAoJKTdIjedWsoG8oB+
UJsdCU0ukCbahtlwO8339clsEhL1qdkw7sKBgfHOxNJNIoi6qS6ejdXDkQeP
l9R1RRFD7but1UgDWOt4/9y4l4xOZ60eUfzTBPOMMzWfnMnILF/brk+6GYon
EhKKfMjo+YMs3mXNZiA/uadgkEhG2iFq/Gf2zVD916ip9UsyumQ7rX7wfjNo
OgZmXjQTQ4/yU0zCbF8BKTrUUAArkakhJco9uwVYnX+facHEkcHhiHy5qTfw
Hxndx+RoSYQF9fqTTNvB909m7t3D0sjAwVfZfTsXQpq+GD62lkFnjRYcHta/
h8uuK7csBm1AdgYtU/1WH+BE83kfqt9GlGCWfL7kehdwVinYBx6RR14ZfV9z
ON1AXRdzbSxcERlS1wTJfeuBY79NttkEKaElCNRc/b0XCvNeKs2kKqMUSeM9
tB8foSLNuI/roIKuZFLrmf19EF5tYpd7UBX1zqjuL3vQD/jru7+S3dSQ6UmF
c9Gxn8B/r1Gt/2F1tGK9u4ezyWdgFlMrAwM0UFD1GMNF+BkyftfGnjq7Bb3r
qmg1Zg3ASOmZCL/Tmsgzf0u+us4gNFpm5sTFaaFOG++HEvRBELH9yL8So42G
x973qDUNAsn0qUhBlA6iaEVKfpXgwSW5GWtuki5Sk+a5ljjy4JTrifqZi1vR
7YBri3+u8oAXS/OCq9uQnon+QepHHmzIuvExuXA72iptVfJckQ/3pHWjmm/p
oZ481l98Rz5wTm+20PqHgm7+iFYnMviQp1KgZOKoj/YJb7mKt/Chlj5P8mvX
Rw3M6QD6Ih9UrVYtqLtQEfmrGu8ZbQietOkwejup6A6dE1rvMwQpTUJ9FXcD
tI2lbRl1awiywsYCjvUboByf0ganN0NAl1Veq3bEEMmSipIk54agREfsdfig
IRJda9V2RGcYVk6KKHA8aKiY6Wy632kY7uuXX8j7QkMiWn8ZP704DDqepTaL
J3egqp7nsZplw9C3v4rl9G0Hqng8sPt2zzBw75zbDmE70SnWrHHCCgJmK+x3
q/3aiQThWrb3dQlYen66MjF4F2qWC06l2RFgpW9pQZ/ahQK3pl5YH0lAszvF
PzAMQxvKtltHMwmQOeFXk3sGQ7vUvPao5BLg4Vco1X4WQ+/aNXU4y54+vZ5F
o2PIysztjWg+ARqXZuYX4zG0afqVZ0IhATEsPCX9GobOS88NJN0jwHiVXVll
FYYseVlb4soISJRMFh2twZC4tZW9ajkBHevqHRXrMNRRNBjMXrafEm3uQj2G
5lQeRwtZBFynyu/Z9wZDnOOqs1GVBEy6Db7/2I+hC5eSLYOrCUDHFTSlBjDk
fMgqQ7KGAIaPQyTwMGQyINNaumy10EalIgJDofK1//7yggD7xGLvkxMYclmq
lz2KE8Bk8J7lCzBEaZoRLCx7NF3xX9xfGMqes6i7yV7+cyvl0c4ZDPmFYJQu
DgFvC16S/Ocw9DObxw2rJ0DuntDh1h8MGY4/9FvXQIDnP7vuvlvEkOpovuDR
sh+VnZpZWsKQ2FRVwMFGAv4HqCLzLQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$71242#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nc4FQ4XB/CbQoXInpeIUrJCNz85J6veRHZalHntPSMzXUVCoYwSJaOo
yPrZm0SyrpHtEhWy8iav94/zfJ/Pc/453//OAQsXA2s6AoHwdXv+n6Ixmxlp
xHRVAgErtETXVIp3Swo7kYPANEhH2z7gvWqN75vMw+QYsHqikEIN/qIarzR5
leV+IngWcDV1r0ypNsq62TKQnwLblkAdRP5SDeDaKtl6lgGuK3LlxlF/VRPi
NFX/RGeBbP5oYwQdA+SzRtWt++eCK3u6Bv0GCzRHdZ1dsc0H5pGjoY4JHLAQ
zkzzzXkLu9bHhu6280JgXb7k2rP3IKjpwWr6nAh76QwdvRKL4E04IdD8rigk
4OqbX9HFsJQ3HaTDLgFiQY8X3cJL4df91J1DM5JQUKGisOBfDgaMNJVZFmlo
UQ4rnbetAvvU2yvk9OOQq8JxSzG/GhS/plIOSCrB4qDVU8+cGnhw4z5/SR8J
bvHvHl96Vgfrm8xH5bJVob700k75lHqQsHnu920KYe+l3INuiQ1Akg8huN9V
g8REXduf0U2Q56bi3MWsBV+VnlGkI5vBmxyQHvTtDBzsXcx2Cm+BtKhSAtPg
f6CA89H8nH8b8HAdmTBY1oHW2EG3GdsOMOv69kk+1BAoSQkt8XKd8Oq91+/p
MiOQIsPl4/mdsMCQKnT3jzG4M8bedM/5DOPOL0e1n5jCX02FyoVnX4BtWqsr
45QZpHMN6z4gdoPvkaKcyXJz0Ji6PSKT0g39Dz1i9NKvw73wPoJLYg9cVR3x
z1WwAN46f/Xv0X2gYHUx8kC0NZTHiXVHMfUD8xyHhbeTDZhZfLSSiuyHH2vR
kd36tpC5gxjhEE6FEc6pmHgJO5DDmuZZ/0GoHW2Td9lyhHMVjLrTtiOwtNGa
8LbQHeS2LFa4F0ZA6u68NPWCB0SJmH8SUxmFrGhn98PfPcDToszLqH4UbiWG
XZOV9gKNadf6ou4x6I6lm6C0+MD49+EbvisTYLTv7tsCi0DovX+v6MHJSagO
mwgfJ96CVpmTe7IDJ+Fgv4TIvuFb8M7tYQGVfgrU2F7EPpcJhpCVc1vK3NMw
byUs4FgRAiKbxSmbSjOwXKjV9Jf+NnCmWS9w3ZyBf6uDgqU9bsNu4NCQrpoB
+8ynLBpjt+FnsPOc2ZlZOBiP1QLVEVC5S1y5+uI30GcSYrxKocA15ri+UN95
CI04IcWrFgXtLEp7dl1bgJx6gb79knHQpc2e9ClgAc6rZ7BcJsdBf+QPiccp
C+BeZtmznBUHk/RZGtJDCyBIVOsUPhwPfzZ5gk2vLEK0hvHCP1IP4ciP36t5
l5YgVY7DT0A9ASifKiaNTZYhMp9qWPPqCajFaFZnXVgH/+Gk8s/CzyH4XGF2
l/M6FN4ISzI/8xwq6cXiN6PX4XFQ/Mk9Ls9BOYBgY/hxHViYd8jnVz6H43bl
TFtnfwN/YEHMafMMOKgud9FEbQMWCl4wXX2RCQxrgj92Kf4B1pPrnJYaWWAt
s8Eix0JAjv78gIbGPNCRtF7kPrML7xTfKZumFsK77kCvFtJu9J9zbHXRKYd/
2I/k7wpixmJ36SePz9aA7X/jUl+YsqHhRdeCi6v18FB3vs7vOhue9wj44LSr
AarTNb/pkNlQqC20LIK9AXjPriut+rDhkMnhuVrpBmh+eK1TK5ENiX8qCh1s
G0BS+vDOmR42PFBhtLOY2gBz1yvIRwz3Yx9XkGVNXSPwFnLH/L28H1ck76jl
dzWCBqNrUZfFfmwKe5ieNdYIKa9F6W66bzt258+SrUY4v3EnuS12P3p/Exe2
VmmC1/EGnxw796Pn7ip30ZImcGmkHc/XYce30bKNXv82QzXmOUiZsKPngLbk
2KdmYCt3zcg2Y8f3Dx79sBtrhoL83+yZLuxYOJkk1sfQAktJTEtJsex4yG3X
gqJhC3g7yBSE9rBjmkpa+OelFmic+kXbGmZHzuSjfwMZW4Hneolw4DQ7uqy3
mF8UbIUSo9MxPmvs6L1o9vaRViv8PmXo7MjHgfU6rqU2qa0QwOYjZXKNA+/1
PkkOMG6Dj3f/sfpizYGLqGD4wKkNhOgJKXrOHKgV1Kc4dbsNKn9TmLSDOLDX
YifFtLgNCBNPvkE6BzIanXKIFfoIYUWVrySnOFDWNKqvcv0jdMuEjb78zoEd
G4dW0rna4WDOGd6DqxzIpMe6OCzfDvVpnXeIjJyYcMGYzca5HRgo4zYckpxo
uD++5OtsO9y9zCC+6ciJ8pqvR5/8+gSqssyrs56cuK9Wk+0CZwcs0rM39QZw
4k0ej0/mih1g+lbIriCKEx/7xhUk+XaA+G7F15Z5nGikt1lbuqMTqossFVvn
OHHBIT316qNOWGWr0Uy058I8MW0Bh+HPkDPdyB3uzoVJxdVmx359hmv/fqS5
+nNhbl2oMuueLqi37Y88d5cLDY6Kh0kpdkFs5c/2zWwulDKdCM263wVSjkQT
q1kuvLqkUGeg+QUsm27ayJG5EdWyL5cUdYOVioTuqgs3chof+r7c1g02bzsV
y3240SRVSoI43g3kZHF6zTvceCDk8ZDsvh5wdunIMH3JjeYbfiPS1j3gzyM2
FjTJje1vDthbs/RCQFR7s8Y8N8q8VSG2H+iFwB2+BXuWuTFMfdljn1IvBM99
DIrfyYPeQ+/n+c16IaLKm5glyoO5Iab2Z/J6Ic629cqn6zwY6Pl73gP74OGQ
p3o8mQebOKjVxwz64JG+8FFTVx48lpThUGrZB0n/eG6MBfGgXJ3KO82IPkhj
JT5eSePBmIICEfmWPsgpdusVHObBvybVt2y0+iFPSrBybJIHi3/MlYJxP7xO
b3zxcp4HLS9Ycsxb9kPBPQEv2T/b9zgdvVAV3A8fzBs4NAR4cVTcPeNSST/U
MPLpO1zixWnmNkqNMBWmM6TPUW/wouxoNjIcowIzaqifsefFryes5ojKVDD1
dVEUu8mLYWZt9B2GVPg508A3mMKLT85eLVO9TQWhVvfxc6O8KEb/rHBtlApq
NpTBkhle5AtN9e6YowKZLq1bYpEXTfz0Em+vUqFQuaWRjo4PwxyzX99nGgDt
XOHcMjE+tCfLzYgpDIBf1EePI7Z8+KY6v20paADSDo87Jrls7+lnlNYoA1Bf
v2bN4MuH3qkUvYnYAWDbFDUdp/BhqmHIfc+MAchy8lN5ksOHKZoy7pSGAejR
laDf+4MPTbgepfTQD4Lc/uCEWU9+fBP6ym7AbxDKdvcdbgrgx89v6ljlggdB
jSBdnhnOj2lxV04GRgyC0c/BEfOH/Mh67/DqatwgeLefkOx9z49D5PPjXrmD
8G/kz/LaJX4k7uk1aBsYhLN05mPJrgIoIhB7qvH4EFz/dUpK11EQawgknYzu
IWBhJ3R2ewqihkmXwSfqEJTJ1npcCRTEp3sIN1a/DgGns1Y5+b4gylCqOlVm
h6B5RvdcWIEgMsWN3kzeHALZr+bkkmVB1N3o2PlSfBgILSGZooFCaGbG/UXM
YxjS0xoE16KJaCxipSXC8BXe31ce7DIQwbMb+e/nWEfAs+yUXur5A/iG3+iv
ya8RqGp9sRR5RRTVnRnIlxxHwe7MyQo7UzE0TJcsy+kchZRXckUO9gcRWTu7
BU6MQeyvihBXH3E8LxoqL5swBtM5Xt5kdwmMULh18eG3MajXiksKDT2Eyb7D
Vf2nx2HHhYHxmODD6Mgb51YeMw6E0x92PPOTxLzV4tS91HGg8KzpdN05gpz1
OxrcxSfA9bJl7VrYUcyqKHq0134CxkIUrOCRFO7pyWXPeDsBnPGPByLTj+EX
e03mS9t/yUu2I35NydLooy/JZiY/CTXuwpqHcmVwT60l9br7JKSJPBM8ZSSL
Bdaiesp5k1ARsEEgd8riyHfrudMTk3BAm/GP2EU59FKV9pIXmoLCDsl71G45
1HcqVMnXn4Koxr+yItfkMcrr7NI6ZQriPWbtrw/JYxdrbe3R8ikI4CKyil46
jrc/xIgQ56YgW5K+1XP0OPrNyUk1CU0Dw/IOvhozBUzOk0wY0J6GLNm3t9Jo
CpjULTpxJ2AaJC1ydDedFFH0xoIPMXcaBv9T+s54ThETGroNH/RMQ1eG/zHw
UMKvVcdeU+hosP5eX0V0SQmVO4/ZxR6lwVaJe1GE8wlMXaDULxjQQFtWSzNg
5QS+W2omVQbQoOmajJ2DBwlXtJtrvj+nAbsluTzVi4SOaurhCRk0MCOns3T6
kJDHIfMEZNJg1Z3jnUIACYf1xN0evKDBQcraxmY4CR+e8ZKRf0WD4HdVUQ8S
SOh3fm7Q/TUNlBn1CopKSehBT79ntpgGEcyRdDPlJBQ9x/IjpoQGn/fXGvFX
kpBl4nK9UikNyIIKv2/VkrCG+lkjvIwGiXK8amfbSKioEvKIWEGD5SujXwaG
SPg4xMdXr5YGeINPgmWEhFefKXqsbvuejYEvjJFQfyfZPKWOBqJu9YKZUyQk
qisyz9TTQD/ilbXTj+2+F+qKbzXRIOXeWPHTBRKOkrxUDzbTYOYB/96uJRIW
Fr370LLt4OSoN0prJFzbO3STs5UGH581EOx+k1D7XXtz6bZ5Xv41SP4vCfXu
mTCat9HAIvfEi/ZNEjoH+J3Y9ZEGbwpc17a2SPjU4eSl7G3/DzlGjN8=
       "]]},
     Annotation[#, "Charting`Private`Tag$71242#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwdknk41P0axodrRBrnlTYcryaDItlpks7zDW1EkZDiDdkiWUuohhCRbCmR
lJR9ly1+dg5jmxBRtpn5kWgSxprjOn/c1319/rrv57nufbY3Tex5CQRC0Kb+
7/f7zHre9MAzEaKrXjAD8+SP8ffM6gHDuqGdtXcZ2J8T6jWc1E/QevpvgwNz
3djrXV+NoiV74ZNz0w+Pp92YHitkRCm5FwRJlFCuVjcWEfyZcPNZHwiihheJ
ol2YaIOf7szjz3BPI05cPYKOVcVSeiO3DUDkcb1hK047Zm1Lv6YQPgCp2lEe
GRbt2FseyVCX4EGYjSr9i6LahqmgutYpvyFIEEoffsPXiulX8xuxHUfgUnI8
AxdvxFQ2bBd2c0Yg3PZOTmNyAxZJ/qeToj0KLO746gdyA+ZtW+lj2jgKjilX
vJ8p1mN6bPfG0t4xeESzH4m7WouNz3y18V2YAN7BzmgOpRLrj4oojT7ChOFt
pA5xqwqsTenI1sy7TNCfCaR8e16OFXnEFwzysaDfZIfsjz1lWOCC/obWbja0
upUnu6qWYOT1suR1zUlIvWrZyknMxXam2HN2+U8CEU/IbDXOwQRgh54iNgnS
csIuCkLZ2E+a27T1qSnwtTQM0Y/KwGqIMlq15t/BV2TiB7ssDbMixX4O8v0B
BesNPFs0nmIdQppbiVYciE5UKXZYCgWGgcjzzgAOHCAs+bYHP4KB8FnZxGQO
PHf20v5HMAqYfO/1FIc5EFarFlNNi4W19T00i8u/gBBl4yphnAjys8uLOZfm
gJDcmeSunAZhndXMi2bzcFv1RctDlA9RpBde5Fvzm3ksDztuPsTr3+KdfjoP
rlzmTIxZAbxqViTT+ubhh+xXKBAshA81ry5nmS7A8nuxi7GuRcDKC2T8MVkE
3zDPR7qipaDz5ETt+3NLQAswuNYtWgk0/ZJMhtsSiDfylffbVUINHyVu/fES
aHXKxt/NqwStAILDBfoSUPp3ZBboVIGac9W2jdPLIKXWM9jk8BGkdVXMzXRW
gGTjpeCWUgNbuBKzRI014Auj5D51qgO9oojPSqZrEHM52WgmrA6CbqzUWnqt
Qaz4Sbd9mXXwZ+JzXEHhGrgrlliRp+qA2x175IriOpBIB48FOtbDZJZASPH+
P5Cz0LYkZN0A9korQipCBMR5EWu3V70Jzg49TBeVJKD5ANeXv02aQP3hrmME
JQLiFQiPfe/RBMQRZdeu8wS0ls2ozM9rgjdRjm034gnoQ2O4wun9zTAy0xua
9W8eNGdVbdEt0gKXcvI3KPK86Mqnj7e6elvBUM7+1+5TROTs18Wv9BcdViJ8
qr6aEdELv6ikJRk6ZMyGhLx1IKKx+KPhBdp0IJa8E1MNJaIFX9mRaWc6VP5n
8rhhExEtpQrbxDXQQdbUJfaBLh9yjjtr/tGrAwj3PdQ4sAXlDah57G3thKLe
uz7/pQogXem1fdNvuuGoiHw+8T4JfdPhSkvwfQLH1diX6RbCiFlxf+W7QB/c
bMbV8g1F0M/hazJhhf3wyHKLzLrrTkRcuTDpbjgAdi3+DipOu1HJh3uHBTMH
oY5fzNjlkihyNZ55JTf2BVS20xKmvMWR1vboCoboMFz9fUzByFUC2bfXVhA2
N/U6pUmC+1gSjeY6UR9ofIPiKK0hhgkZKZQM9h9RHAHvymPnX57dh7oq9i+I
E0cBa0ufC78shT4yTuXGeY2C86kj1c4WFFTieZu01DcKyRkqpS7XpVHz+K9t
24+OQczv6kD32zJo5WS1lEHiGLCzfG45ecqilPAzE+SZMWg8Gfs8KGg/qk8Y
S17VHQeec1/Gn9AOIPFi6dXEmHEgHP/Ak3pHDgnYlHcVfxmHsD1cQ8ZDeUQW
Ff81JTsB7pZ29dwHBxH5QTHTwmUCxgLVr8FTBVQj9bugo2gCdsYlfgl/fQhp
Di0WOC5OwDth+TstSYqIUeFvaKbGhDrPvSf2Zyshds7WeeTFhBRyqsQxU2WU
0WtuQsxlQnXACsGpWxl5Ziv3cCeYsM+Af41iroLmyVIJvX+zoKRLLmKwVwVd
yUs7dNyEBZHNf5TJVqpI3tQjxS+cBXFeU9evDqui66NpT1KqWBCwS/IvqUtq
yPs8OzFomgWZcnxt3qNqiN6hViIhyYYt8zxiddbqqLxhsZpylg3vlQvvpeDq
KHibeVZzABvkbLOM1m9ooJqwnTmm2WwYOlNRdHFaA0nfIn2v7mMDI83vEHhp
ImFtg7JsXhyWio21peY00be21IGsgzhslHuWhrodRvS278M8F3AwUD55ImDh
MGKikMHmABxarJScXbyoSIfZnj77BgcRO6eqlz5U5ECTO/EsDQdrp9dC3bep
SOKgXR+8xWHRc0eRegAV5TzyaY1Ox0E6jLuyHkxFtta2yyoZONCKsMjoBCry
vFgR5pGLgxb/+YLSCioqiZF0Z5XhEEoK552soqLWf6krR5bj0LO93lS8horo
h/zHVCtwcJJQX75XT0VuvRl7aJU4PFMR1TndTkV5yu0MsWoc5i+PfvoyTEWj
yCdUvx4HZCMmKzRCRaTab5acTY5wMPGFMSqqT0ojJzTgIOXRKPGWRUVG2Bna
WCMOxqEZ9jdmqUh29lz07RYckiPGyl5xNvs9Hv4p0YrDZLS4IGOOioRlBlH9
JtOSIvM0uVTE8VcoI7XhQE9tIjgvb/7DMmy4cJP3vPtjkrRKRe43rH+bteNg
m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA==
       "]]},
     Annotation[#, "Charting`Private`Tag$71242#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 25}, {-0.28932295368603306`, 0.743733095422943}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "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}},
 CellLabel->
  "Out[222]=",ExpressionUUID->"135b3efe-ff78-4476-a93a-5619a5cc390d"]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", "logN", "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
  RowBox[{"fit8", "[", "\"\<BestFitParameters\>\"", "]"}]}]], "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}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],

Cell[BoxData["0.021472788440523752`"], "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}},
 CellLabel->
  "Out[224]=",ExpressionUUID->"d5b365b4-17d5-4745-a5e1-e646a528553a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", "logN", "]"}], "-", 
     RowBox[{"ns", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "/.", 
  RowBox[{"fit12", "[", "\"\<BestFitParameters\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, {
  3.78982037403331*^9, 3.78982038294141*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],

Cell[BoxData["0.06180877242384175`"], "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}},
 CellLabel->
  "Out[225]=",ExpressionUUID->"0b79b77e-b068-4046-83cf-7e6ade1463f0"]
}, Open  ]],

Cell[CellGroupData[{

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

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

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

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

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

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

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

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

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

Cell[BoxData[
 TemplateBox[{"93.38462222222222`","\"h\"","hours","\"Hours\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.785098744320797*^9, 3.785098762761623*^9}},
 CellLabel->
  "Out[100]=",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
}, Open  ]]
},
WindowSize->{692, 1060},
WindowMargins->{{2, Automatic}, {2, Automatic}},
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3308, 78, 246, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"],
Cell[3869, 100, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"],
Cell[4540, 120, 417, 7, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"],
Cell[4960, 129, 819, 23, 31, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"],
Cell[5782, 154, 1819, 48, 78, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"],
Cell[7604, 204, 963, 26, 49, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"],
Cell[8570, 232, 705, 19, 50, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"],
Cell[9278, 253, 2200, 55, 114, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"],
Cell[11481, 310, 209, 3, 31, "Input",ExpressionUUID->"4442d61b-8ac4-4392-8a54-81f967a3e8ad"],
Cell[11693, 315, 1031, 29, 176, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"],
Cell[12727, 346, 1256, 28, 31, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"],
Cell[13986, 376, 610, 14, 31, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"],
Cell[CellGroupData[{
Cell[14621, 394, 1035, 22, 39, "Input",ExpressionUUID->"19600c28-5fcf-466c-b87f-667b0f106dc0"],
Cell[15659, 418, 845, 20, 53, "Output",ExpressionUUID->"6c93bebf-e58f-4c6f-b240-c9606f805231"]
}, Open  ]],
Cell[16519, 441, 502, 10, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"],
Cell[CellGroupData[{
Cell[17046, 455, 812, 18, 31, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"],
Cell[17861, 475, 15340, 302, 67, "Output",ExpressionUUID->"d46af3b2-77be-4b80-8679-279619719d6c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33238, 782, 812, 18, 31, "Input",ExpressionUUID->"13991a8c-a9a3-43e4-9f23-4e47933f94eb"],
Cell[34053, 802, 16484, 320, 67, "Output",ExpressionUUID->"45eec759-6cc5-44ad-b355-16c56c1102c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50574, 1127, 814, 17, 31, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"],
Cell[51391, 1146, 17682, 314, 234, "Output",ExpressionUUID->"ca9155e3-bfd3-4546-9d9d-841e39a4c986"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69110, 1465, 1944, 49, 99, "Input",ExpressionUUID->"018624ea-3752-4268-8269-52d7c0cc8dbf"],
Cell[71057, 1516, 31232, 622, 233, "Output",ExpressionUUID->"471fd61d-b901-4c45-bbb9-afb7a2622279"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102326, 2143, 566, 14, 31, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"],
Cell[102895, 2159, 16072, 314, 67, "Output",ExpressionUUID->"74adcd61-8d07-48ce-971c-dd83b1e3ca60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119004, 2478, 522, 14, 31, "Input",ExpressionUUID->"db5e13eb-a70e-45e3-bf97-b88ce1b857b6"],
Cell[119529, 2494, 16057, 313, 67, "Output",ExpressionUUID->"d6a711e2-2f0e-428d-8dce-4ea95f7261f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135623, 2812, 1240, 34, 69, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"],
Cell[136866, 2848, 1845, 46, 67, "Output",ExpressionUUID->"8d55ea2c-d0f1-46ce-9113-d087b7dc0709"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138748, 2899, 1399, 37, 69, "Input",ExpressionUUID->"4efd9ff7-727d-4935-a6af-8855bb5270f5"],
Cell[140150, 2938, 3329, 70, 67, "Output",ExpressionUUID->"ffeff05c-4235-40d0-8626-532170640c37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143516, 3013, 732, 17, 31, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"],
Cell[144251, 3032, 17420, 311, 234, "Output",ExpressionUUID->"135b3efe-ff78-4476-a93a-5619a5cc390d"]
}, Open  ]],
Cell[161686, 3346, 482, 15, 31, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"],
Cell[CellGroupData[{
Cell[162193, 3365, 957, 20, 31, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"],
Cell[163153, 3387, 1045, 15, 35, "Output",ExpressionUUID->"d5b365b4-17d5-4745-a5e1-e646a528553a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164235, 3407, 524, 14, 31, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"],
Cell[164762, 3423, 370, 6, 35, "Output",ExpressionUUID->"0b79b77e-b068-4046-83cf-7e6ade1463f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165169, 3434, 1167, 25, 31, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"],
Cell[166339, 3461, 76969, 1284, 238, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"]
}, Open  ]],
Cell[243323, 4748, 1553, 40, 101, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"],
Cell[CellGroupData[{
Cell[244901, 4792, 632, 15, 31, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"],
Cell[245536, 4809, 1038, 28, 46, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246611, 4842, 1030, 27, 55, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"],
Cell[247644, 4871, 3907, 81, 240, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[251588, 4957, 347, 6, 31, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"],
Cell[251938, 4965, 316, 4, 35, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[252291, 4974, 589, 15, 78, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"],
Cell[252883, 4991, 253, 5, 35, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"]
}, Open  ]]
}
]
*)