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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     64846,       1370]
NotebookOptionsPosition[     63783,       1342]
NotebookOutlinePosition[     64663,       1368]
CellTagsIndexPosition[     64620,       1365]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ariasD", "[", "0", "]"}], " ", "=", " ", "1"}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"ariasD", "[", 
      RowBox[{"n_Integer", "?", "Positive"}], "]"}], " ", ":=", " ", 
     RowBox[{
      RowBox[{"ariasD", "[", "n", "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"2", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"k", " ", 
                RowBox[{"(", 
                 RowBox[{"k", " ", "-", " ", "1"}], ")"}]}], " ", "-", " ", 
               RowBox[{"n", " ", 
                RowBox[{"(", 
                 RowBox[{"n", " ", "-", " ", "1"}], ")"}]}]}], ")"}], "/", 
             "2"}], ")"}]}], " ", 
          RowBox[{
           RowBox[{"ariasD", "[", "k", "]"}], "/", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", " ", "-", " ", "k", " ", "+", " ", "1"}], ")"}], 
            "!"}]}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"k", ",", " ", "0", ",", " ", 
           RowBox[{"n", " ", "-", " ", "1"}]}], "}"}]}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "^", "n"}], " ", "-", " ", "1"}], ")"}]}]}]}], ";"}], 
   "\n", 
   RowBox[{
    RowBox[{"iFabiusF", "[", "x_", "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"prec", " ", "=", " ", 
         RowBox[{"Precision", "[", "x", "]"}]}], ",", " ", "n", ",", " ", "p",
         ",", " ", "q", ",", " ", "s", ",", " ", "tol", ",", " ", "w", ",", 
        " ", "y", ",", " ", "z"}], "}"}], ",", "\n", "  ", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"x", " ", "<", " ", "0"}], ",", " ", 
         RowBox[{"Return", "[", 
          RowBox[{"0", ",", " ", "Module"}], "]"}]}], "]"}], ";", " ", 
       RowBox[{"tol", " ", "=", " ", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "prec"}], ")"}]}]}], ";", "\n", "  ", 
       RowBox[{"z", " ", "=", " ", 
        RowBox[{"SetPrecision", "[", 
         RowBox[{"x", ",", " ", "Infinity"}], "]"}]}], ";", " ", 
       RowBox[{"s", " ", "=", " ", "1"}], ";", " ", 
       RowBox[{"y", " ", "=", " ", "0"}], ";", "\n", "  ", 
       RowBox[{"z", " ", "=", " ", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"0", " ", "<=", " ", "z", " ", "<=", " ", "2"}], ",", " ", 
          RowBox[{"1", " ", "-", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"1", " ", "-", " ", "z"}], "]"}]}], ",", "\n", "    ", 
          RowBox[{
           RowBox[{"q", " ", "=", " ", 
            RowBox[{"Quotient", "[", 
             RowBox[{"z", ",", " ", "2"}], "]"}]}], ";", "\n", "    ", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"ThueMorse", "[", "q", "]"}], " ", "==", " ", "1"}], 
             ",", " ", 
             RowBox[{"s", " ", "=", " ", 
              RowBox[{"-", "1"}]}]}], "]"}], ";", "\n", "    ", 
           RowBox[{"1", " ", "-", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"1", " ", "-", " ", "z", " ", "+", " ", 
              RowBox[{"2", " ", "q"}]}], "]"}]}]}]}], "]"}]}], ";", "\n", 
       "  ", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{"z", " ", ">", " ", "0"}], ",", "\n", "   ", 
         RowBox[{
          RowBox[{"n", " ", "=", " ", 
           RowBox[{"-", 
            RowBox[{"Floor", "[", 
             RowBox[{"RealExponent", "[", 
              RowBox[{"z", ",", " ", "2"}], "]"}], "]"}]}]}], ";", " ", 
          RowBox[{"p", " ", "=", " ", 
           RowBox[{"2", "^", "n"}]}], ";", "\n", "   ", 
          RowBox[{"z", " ", "-=", " ", 
           RowBox[{"1", "/", "p"}]}], ";", " ", 
          RowBox[{"w", " ", "=", " ", "1"}], ";", "\n", "   ", 
          RowBox[{"Do", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"w", " ", "=", " ", 
              RowBox[{
               RowBox[{"ariasD", "[", "m", "]"}], " ", "+", " ", 
               RowBox[{"p", " ", "z", " ", 
                RowBox[{"w", "/", 
                 RowBox[{"(", 
                  RowBox[{"n", " ", "-", " ", "m", " ", "+", " ", "1"}], 
                  ")"}]}]}]}]}], ";", " ", 
             RowBox[{"p", " ", "/=", " ", "2"}]}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"m", ",", " ", "n"}], "}"}]}], "]"}], ";", "\n", "   ", 
          RowBox[{"y", " ", "=", " ", 
           RowBox[{"w", " ", "-", " ", "y"}]}], ";", "\n", "   ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", "w", "]"}], " ", "<", " ", 
             RowBox[{
              RowBox[{"Abs", "[", "y", "]"}], " ", "tol"}]}], ",", " ", 
            RowBox[{"Break", "[", "]"}]}], "]"}]}]}], "]"}], ";", "\n", "  ", 
       RowBox[{"SetPrecision", "[", 
        RowBox[{
         RowBox[{"s", " ", 
          RowBox[{"Abs", "[", "y", "]"}]}], ",", " ", "prec"}], "]"}]}]}], 
     "]"}]}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"FabiusF", "[", "Infinity", "]"}], " ", "=", " ", 
     RowBox[{"Interval", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"FabiusF", "[", 
      RowBox[{"x_", "?", "NumberQ"}], "]"}], " ", "/;", " ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Im", "[", "x", "]"}], " ", "==", " ", "0"}], ",", " ", 
       RowBox[{"TrueQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Composition", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"BitAnd", "[", 
              RowBox[{"#", ",", " ", 
               RowBox[{"#", " ", "-", " ", "1"}]}], "]"}], " ", "&"}], ",", 
            " ", "Denominator"}], "]"}], "[", "x", "]"}], " ", "==", " ", 
         "0"}], "]"}], ",", " ", "False"}], "]"}]}], " ", ":=", " ", 
    RowBox[{"iFabiusF", "[", "x", "]"}]}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Derivative", "[", "n_Integer", "]"}], "[", "FabiusF", "]"}], 
    " ", ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "^", 
       RowBox[{"(", 
        RowBox[{"n", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", " ", "+", " ", "1"}], ")"}], "/", "2"}]}], ")"}]}], 
      " ", 
      RowBox[{"FabiusF", "[", 
       RowBox[{
        RowBox[{"2", "^", "n"}], " ", "#"}], "]"}]}], " ", "&"}]}], "\n", 
   RowBox[{
    RowBox[{"SetAttributes", "[", 
     RowBox[{"FabiusF", ",", " ", 
      RowBox[{"{", 
       RowBox[{"NumericFunction", ",", " ", "Listable"}], "}"}]}], "]"}], 
    ";"}]}]}]], "Input",
 FontFamily->"Segoe UI Symbol",
 FontSize->12,
 FontWeight->"Normal",
 CellLabel->
  "3/26/24 05:47:23 \
In[1]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"OO", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", "32"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"1", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "7"}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "7"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "5"}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "5"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "3"}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "3"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "1"}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}], "+", "1"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"3", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"5", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Abs", "[", 
        RowBox[{"7", "-", 
         RowBox[{"8", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"OOOO", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"0", "-", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"Floor", "[", 
            RowBox[{
             RowBox[{"x", "/", "1"}], "+", "0."}], "]"}]}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{"1", "/", 
                RowBox[{"(", 
                 RowBox[{"x", "-", 
                  RowBox[{"1", "*", 
                   RowBox[{"Floor", "[", 
                    RowBox[{"x", "/", "1"}], "]"}]}]}], ")"}]}], ")"}]}], 
             "]"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Exp", "[", 
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", 
                  RowBox[{"(", 
                   RowBox[{"x", "-", 
                    RowBox[{"1", "*", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"x", "/", "1"}], "]"}]}]}], ")"}]}], ")"}]}], 
               "]"}], "+", 
              RowBox[{"Exp", "[", 
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"(", 
                    RowBox[{"x", "-", 
                    RowBox[{"1", "*", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"x", "/", "1"}], "]"}]}]}], ")"}]}], ")"}]}], 
                 ")"}]}], "]"}]}], ")"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"Floor", "[", 
            RowBox[{
             RowBox[{"x", "/", "1"}], "+", "0."}], "]"}]}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Exp", "[", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{"1", "/", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"(", 
                   RowBox[{"x", "-", 
                    RowBox[{"1", "*", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"x", "/", "1"}], "]"}]}]}], ")"}]}], ")"}]}], 
               ")"}]}], "]"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Exp", "[", 
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", 
                  RowBox[{"(", 
                   RowBox[{"x", "-", 
                    RowBox[{"1", "*", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"x", "/", "1"}], "]"}]}]}], ")"}]}], ")"}]}], 
               "]"}], "+", 
              RowBox[{"Exp", "[", 
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"(", 
                    RowBox[{"x", "-", 
                    RowBox[{"1", "*", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"x", "/", "1"}], "]"}]}]}], ")"}]}], ")"}]}], 
                 ")"}]}], "]"}]}], ")"}]}], ")"}]}]}], ")"}], "/", "2"}], 
      ")"}]}], "+", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"OO", ",", "OOOO", ",", 
     RowBox[{"FabiusF", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5`", ",", "1"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", 
    RowBox[{"1", "+", 
     SuperscriptBox["2", "8"]}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Thickness", "[", "0.00001`", "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", " ", 
    RowBox[{"Placed", "[", 
     RowBox[{"\"\<Expressions\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "0"}]}], "]"}]}], "Input",
 FontFamily->"Segoe UI Symbol",
 FontSize->12,
 FontWeight->"Normal",
 CellLabel->
  "3/26/24 08:10:33 \
In[139]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.00001], Opacity[
        1.], LineBox[CompressedData["
1:eJxNl3k8VVsbxw8pzae66pZkiG5UOmnQoPy4mqQchApJKc24uUV1idJEHITb
ZEiGTB1cuSVzJSHkKrlJ+8zz2aJ54N3v/dy3/e5/1v5+fs9e67fW86zn89lG
OwJcdmkyGAwNDQbjv+OxgNHUG4Hensma/x0n7NKM8WUSMG3U0n2kT2AceSFk
giEBw54pb0xsCIzNWbU1m0VgsmN0+fptBF5s+aSttCZQ9Ecf80UogeHXbSeE
sqnvfj5l8jmVwOJJdyb2exPwnxM4W1xJoNngfkhpAIFLOPNmz2sC5iaPr88M
J+CxNsGOzeAh1v3b/RMcAnqFn88O6vPgNq1+lXE6gbxlF6JX2/AwdUJlTT6X
gKXJsYhN23go1OBqiKuo74d4D2kO5SHr9KKM/a0EHEftX9mZysO1xXKr5z0E
lgR0BBdU8vApdMGiCySBvi9++ya/5sG4Ovht/yCB1WGkVDLIw/q58gIbJg+X
vDq2ROjz8dLizYMXBjyU+fLPF4OPvb4/PXdj8dBev74g35uPrWa9q/UpX+Uu
RMzycD6myUtDLznxYNWx98u863y8epFT+IHyWV7M9iSr+RjixVqREciD5h3v
Yyt5fJiOET20COfBSbcx2pchwJS7STpBHB7mH5ptJtYXIPDT33WDaTwQfbdP
D0KAR7sd9/3C5YHTeq2D7y3AqX3uv8yt4WHYswK+V7gAo/dssU5p42FKW8lv
y64LkHgxSusNtU/TmRNH8KsFOLnRaVZcLw8aOemuhjwBAmxX2usw+Og5eS7B
lCGE2awFc9cx+XBx9fNK1BdibU7ZoSYDPuIcD4qSIcRulz1FFiw+mjLbfHy9
hVDG39ogoM6l03jr1foTQgQOThceZfNBDKxq6E8VomZ3gk0ddU7hrSYRkZVC
HNmZ/NUtgA9lw5xP+T1CzOE0FLeE8bFZP9435ZsQaxw59QkcPmKv6cfMMBCB
Ndz5+vB0PrzHZfw83kaESb02h325fJgTEfJ6bxF8Dzy8OaKGj/oXUc4/hIvA
nRTyLLGVijfvzTNLE6Hh3oyGpz2U/2CHuBuVIqx+t1vXg+TjnLx1YWmPCA+8
Xux6NEDx3aKm2G8i3Nz8alw4UwCn4nIjhoEYm9mvIuQGAhSllg95BjG0fx2l
XMoSYIx00osgbzH0zFtud1B5WeJxbX/uCTEsdKpDXNkC7DANe3MzVYx8zsqr
Bj4CuBuct0SNGH1DH566FiiAdFSU9lKeGEvygnYNnKDy7Cpp/DoohpBflp0f
J0DDw4MbNhlJwLE35a1IF0D/olPdcRsJtPMTeRFcAUa6m90fsk0CYXqS7fga
Kt529qnp4RLUPnhw5XQrlefz5xeNSpNAK/TcxlWEACM+j8uJqpHgh3lr2st6
BfjJJzbzIE8Co/EL142h8n5wrEuiLkOKpDO3jbjjqLxtlAdbGUkxYtauvkWG
QnjvaFoghxT2Dczz/iwhGju2dt3fKgX52fFEH1UXz60SnotCpUj0rPD3ZAvx
qvhS/o2rUqQ5VVUyfYS40HZRI/WeFLlB6qG5AUIULjgdbdUlRXj8FJ23YUKw
F9w4OeK9FBV2XRFRHCGwp+Tk0IkyfDR+JB2aJkTBQGZ9iYUMVy7Zc5u5QpTs
MGOddJJh+PBHVqtqhMhJ0jgW6i/D4axDtRmtQvxg4RmwJEqGtZ0l2Q6EEBvm
GFcNuynD1MVGp7tIITJj3cZeuy9DeXyU2ZRBIeZVFqr398hQHX7OPJMpQuSz
v8ttvshwP6V0lg5Vh92rrGPlE+UwZx8+28oSYeW02F9i5svh+2Ve3nKqLudc
99vq5yjH5We69bFsEd5u6iuYvkeOhSsv287xoepuaLHD41NytBKrym4FiDC3
sC3NI0UOyxBVLz9MBJf4jrR5ZXIMyTSL3sERwa//ZTS/jYr/dlH/UaoID3VI
0xiZHBrKhPHBXBGWTUrs0dZSYMHwmm+jqkWIO7U37aSeAhYGUq5LiwjTt+nF
rlmoQFJjZq2QqvNrHzcZtWxQ4OMNTrOnWgTjK+1NO3YpUDueuVh/UIQBlCwt
DFPA/dj53QlMMdLz2x1W/K6AYtz8eIW+GK5ZbzplhQqIrAJ041hiEGfW+6yo
V+B14t/XplD3Yu0Bzp+l3QpkSW1Ero5irB4i9grvU+Bpm1XMS+qerNvalSgc
ocRX8c65a/zF0J+dkXLMQImY+OmsgTAqXuLhk2KphNzy5Ts/jhipHvVy5gYl
1oysu11K3aOEq1mpdduVGHloxbMNXDGq8m+z+4OVaNaWqJqqxIhrkBzdf0GJ
txYz/JJaxZjwQFHulqGE1N07cxwhRpHNEZekP5Xozn34MpAUY/4Xk+ZZTUpY
xtce0mNI0NI0mmNMKMHJVmgWMiWYN7DiwtF+JUrLxm0h9SUI/4S4BcNUgGfj
2FCWBKOXHTj4s64Kj81LKklrCeI/jI+pmKPC3cS5zYVsCSrUn3JO2Khw5H1W
+jQfCW7NdrHN2KjC/DMO/ocCJLgi1/rNepcKrnmnr06g7m3fj01qnRAVDn9V
1f7OkcCn9JnbgfMq7LB3vtWSKkFZoAnP4ooKt2fZf3biUus38KyNC1QYviwA
d6okcAnti71RoULtKzPhvlYJ+NmMbrsWFY5yJ5zUfC2BF+P+kWM9Knw7/l7k
oJYgFsV3TNQqSLr9c4kBCcYe0Y8gBlRo2z/Rz2OsFD0ZJVk2Y9Uw4DidNDCQ
4kJkxsFsfTWsCs/sTGZJoWvj7XJ8rhrun+Tos5ZiScbOj5or1OjsEhy7zJbi
b1vTkIj1amySjuTO2CbFLGMvZrmHGjfezMn19Zfikk5OQOAeNdw4Ak1VmBQj
H1xZwQxWQ9uzwc0zVgprttPMI5HU+vdsh09Mk0K+TDPzboIaQyaVhYdzpeC/
yN5xJF0NcermvrYqqm88Z14aUagGq4Jz/0ArNd89m+v7ytUI1n4Xo+qRItLX
8FBuvRozJOo/75JSrD26d27eX2qk1wpyFjNk+Jy6u8KMUEO3cVj8FaYMrsJj
oUkKNT77VXWtNZThWJBsS+kHNbosMqd2s2QI2d9SV69JIvJDpLERZKgbOrvI
bwyJJOfPUcVsGSyrvFfnTyaR3ZWi+GmbDO0mKUFvppOY9v5ZviRABuuJTXvb
zEn4jBkx3yNcBvfa9Z5LlpDIcNlXXMyRoXed/qoiWxLr5vjEuaZT8Uus5pc4
kOhbELmnmyvD5okt+5tcSfhZ3hg2qVoGop1h/9tWEjZP3LWutsrQ+HBn7U0/
ElMSlnzRei1DRW3xmc/+JDYrbjmXkzJE2VUzK4JJ+MLQ34hB9aGDkWXjwkn4
11afOsiUg3HDXePyWRI9nf0ftQzl+LiI63qSQ8JRz313BEuO2KLBK9nJJEze
rV9kbyOHYeUfWoapJOobrB/XOclxrmGb7vwsErsbvd2NfOTQTI6Oismn5vf5
wa4pUA4fY20XVgmJwybvTT3C5Vi+YGeT0R0SawV/dVzhyFFQ91vavUoSEZar
iZ/S5Uhe7OkVc5/E3T/Fwt+5cmzvb3ta2UBi05Op9q41cqy85bNRt4Wk6t8h
qI7qm8dnPsiZ8heJ2Xp5yRMJOZ4nzZhwppPEZ/W1KaW9clyc+6Ge2U3iMVmZ
tJihwPjVKsEYgsRORVfnASbV9+ZqhVQKSOw6HnVUZaCA3q79fcclFC/dq7OR
pYBNSfTTCjmJpujusVo2CixzeFTHUJOwGB2meYWtQN7eLUEtvdT5ntWt4Hkr
4FDgM21jP4kvyQ7Pfg2g+mzp+Z3N70gkdORJlFTf3VesEfLqA0n1n9QtRRwF
CtxLV3d+ovIVFBM/I10B/edvI099IWHkn1d3gqvApEzz/mdfSbC/eW6cUaPA
5stnXTUHSISWW73itirQobPcqpvi4EOTzJU9CqR2/bw8eJBEZ9Xp7iBSgczl
Lx++othyqfFpYoDaz96szkGKv6xxi7nEVGLwn4fEBeeTnpqGSjD+eXox7fyr
6c4smnXcntgrQPNItmLvPjbNfq9SZAt9aI71c2AVB9JcNm2m/4Rwmu32/j66
Oo7mNv6iTKd0ms02tWokcpUY+NefdNu3quk1tJ6dvOVwciutN25fF+1G0Hr5
TMvd9b005011Wq7HUH3fLyNzILBynOq77ubxMtXOkNaPjPoj4TiL1r85GYgH
oILGvxz54O783WxaD2yW9uj60LqX5urIPwJoXWdBKvktTPXd7/yPUeUXObTO
VmSFjU2juf2QW0YHVwXNf9no3WD0+hraX2DWC//cVjp+hnxVsTNBc5cXT9lD
0vFbGoPV0wZpf2jOYN9kqr/rM75+yf3RQE3vp0bm286i+dyJdoG1Dc1pB2Re
cWya9dSJi8x91N/nv5Tir80NoHXeGrs0fhjNnDMFyds59Por+u3OPkyldee3
AZ2/cmneadxoOKKaZrsNBvPYLf/nb9SINKKH5icfDLU3qWk/ISFPWiYP0jrZ
/6vXBSb5ff1dKesEQn3yu277svTxORat663ZkDsetP6gkHBc70hz+83hru3e
NL9+6u2ywp9mF459UX8YPV/8GlaHJ9Vn/+ev1dyO+o+g44NuKg7acun4H53r
BFVVtG4Ua373bCutf3h40VWToPXm2aay7STNZ+L6B/6p+3/5P+cN97A=
         "]]},
       Annotation[#, "Charting`Private`Tag$29341#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], Thickness[0.00001], Opacity[
        1.], LineBox[CompressedData["
1:eJxF1Xk8Vfn/B3CpyRot2nGpVBQ3LappeTEtstSlUCEpYVoGoUlmLElFqktJ
iyxJssRtkVZbpVL2Sch29/2eY6iULN+j+f0ezj+f83ycz+N83o/PeX9ex3Cv
/1ZvZSUlpVGjlJSGx1B/TeqOjc8d05SHx4neyue8tNlQn3V6/Bt9NsaTZ0Mm
GrBxSrEweY4lG1q3N+zKorPxMf1But1uNpp3fleRr2XDeVX1qcYwNlRvWE0M
Y7AxqmKLypdUNpZPeTy5x4ONmgrDoPZiNqpoL0MK/dnYZJ//3LWTDdM5lTfm
RVLreAdVrVTi4LzLwMsIJhuhfDtPjj4HznqvN8xOZyNQpf6ariUHMycWl+Wx
2LAuNJpmsJuD/FGsUcISNoKbY5qjwzi4dXJZxsFaNnxegPtXKgfXl0tXfexg
43p/pPqqYg6+hy1ZdpZko/tyxPa4Dg5mlx793DPERhHjz+RVQxzYm0nvWGpz
8Ntru9GFely0mv/7qpnGQSQ/ve7ZWi72e8396EznwOJq1MO4XVzsMu7aqE/V
NTHCkSkJ50JPWhh2xYGDpcEHLbPSuGhvvp3fS9WpqHRwWFDCxWh3+pqMAA6u
ptTTV3dyMX+coMI8koMj3mbHJw9yMf3JJZ0gJgdOBcG1m3V5CPj+6cVQGgeJ
MQuStdfw8MZ3y4HDLA72mYh3X3Pj4cQBl8NmZRzMsve5e+dvHjR/37k2pY6D
wtX1K3RTeEi8eGbMv50c7I+JC3R+xkPUNgeT+C4OmI7h3pPaePC3Wm+jo8TF
HsWWbcl9PBibLDGz1ebCrp6lcXwaH5tuFwW+p3GRWPo8RLyCD9+tv981p3Nh
QdNrnbGdD3lCwWYeuIjICz5YdZSPgKFZ/GMMLqweqO6ySeKjzPeC5QsPLkxc
XTbOLuTjz31J/c7+XGQfLmkI+cDHQubbezXUvqlfdlFJ7ubDegvz9QUmFwER
J8TLJglAV3W8oZrORXC6q9OCJQJM6bI84sWi3v/8GkE4COB1qCJbrYwL3uvi
UfMOC8CaEtKYWMuFS8hR0pQpwNtnRm/rO7jwUH1UGn9HgI1ffGe4klw4cNde
8aoS4JV7s/cbat/bswb1VaQCZO9oHx+pzcOOace+TVEXYgej/biUxkOftlJ1
hLEQKsEa8pV0Hu7HZfo92yiErmnNww/gwerIv6YePkKY65SGODF4+Ksu/+6H
E0LkMdcn0zx5ML8/QaPgphDdv1ScuB7Aw9zDjSadL4RYkRvkPRjBQ/rZN1eE
nULwuUVZefE8nC9/I7AdEoJpM5+zJp2HspTpead0RVDJS+QcZ/Gwd6t/rO5K
Efjpl6wmlPFQ/n7uWLUdIpS/enXtZC0Pr2/vE9YGizAmLGbbBjYPpxOs6OKL
IkxaZN1Q1MXDAQ2t+y73RTCcsNR2nBIfkQcyxBk1Ilw69dCQNZ6PLU2mjJUK
EdRMvLuXGfChT3z5XKAmhs1b7Vg/Oh9nnWukYUZikH1bIrrBh8oj9zjmOjES
3Z77uTH4EIkkxtG7xUhzKCnW9uTDY1KB+cMwMXKCiF9y/Pnwyjg39v1VMSIT
put8Dufjw9L+IysfivF8XcvxM0w+dn5d3NraIMa32W/Ev6TxscAvYo8vIca1
KzasKhYfq8e5N9M0JVBVfbNqQxkfo9OeEAuMJThyK7A8o5bqO174kNF6CTY1
3c+yY/Nxg6HvtW6PBDOXG55sIan1tk4e7/i3BE8TzhhPH+KjL8b+e1GSBKWR
MaaZ2lQfWIdaWzyQ4GVKoYkOTYAz1hKrvGoJTBlHTtfSBbgy7Z23uVQCrx+L
cldbCmDbf1VffawUVxtnvD7PEKCppOJ4B02KpeuvWi30FMDNLK7j8Sopatkb
igr8BTAIXV+Z4CyFRYiiixsuAJv3QOulnxSjM43j9lJ9G5M1rYGIpeYPXNR/
kyrAEfuqp7SbUoySX5hwlCWARt2vN6xKpFiiWjagUSpARUhC78EmKcxpYtbW
GgFmvmo/SZBSXHqXWc7voOp/2BrurC7Dt5vMKjdCgKHtqc5Vs2Qon6C9XH9I
ALOAgSV6a2RwCY31vaAthKPL7dhSFxlk4xcnyPSFyPRXlh/zk0Gwyn9GPF2I
9MKt+5ViZOhM/HR9OoRIinfqzUiT4ZbYUuC0RYg73BzltCIZ6utWnWv1EOKT
1o7RO2tl6BfuM7P2E6Lsisnn5UIZziXMog+GC/HL0kbzykEZpBatX3yYQjR7
F+femSKHtfqLh4WpQsgd/CpLFsqhHrimcTNLiLroFc+C1stRpSJSvC8R4uuj
sXPcXeX4bG7kc6lWiHgVadunw3KIXTwyx7Op9b/J5t2JkaMtp6I1gBRCk6l2
51mKHBYJ5YG6SiIMpj4bciiUg5klU87Xps5NcIDMuFKOwqLxO0l9Eea1B8zx
bJcDbu+0wugiRNf+k6LRI0el6f1icq0IbTfyFoxVUeBJollVPkOE+Wdy9/2u
q8CfX2+l63mKYH3tu5GBuQKLT9n5BfqLkKRrf2DJegWcck8mT4wUwaTladb1
HQoc6VeUX2aKkMt6kud7UIG9No4FNakiqE6aUZ4YpsBDE5s+Bxb1PHfpsrEJ
Cqj+6o/HJSIUnu1MEGYoUN5uzD9QK8JcYZe4/6ECx1gTo5Q7Rbg3XXVs7BsF
Bv76KrAjRMiqNENoswKiNr8c9qAInz9et2ZKFag7ONnHVUsMnd6GDfN/KEBj
OkTRaGJ4JnRYftQksCr/1L4kuhhJHZYtHD0CLt+l6F4rRktXZXykKYGmFl7o
VYYY1R8i9xuuJbBdrM4yonIguNd63q7NBG7+uzDHy486x1oZ6mPdCTgzecqK
cDG4ES8zUw8SUHF76+x2Xoy+rpBGzjECtGdWqpPTxGBkyF/9Ektg9JSiyEiW
GIGdKlPjLxMQpu7orisRI2T/7ZTGTAL058yXh2rF0PotdLHkPoGjKl/OKToo
l2+6VFZKwEhEPHpCisH+mDlnezWB9HLe7eVKEmykP9Zw/URgxruxCde0JZh8
hly9WEigz6ekZZOBBPMKJtk+6ibQYp45s40uQdEi2bMZgwSie6NnG0KCv1n1
Rf2qJC459p25x5BAurp5ZqgOiayWFNnc3RIo0QvOivRJ6H1tzBP5SxAdbunE
NSbhOU5tsWukBPzXbf0uS0lkbD1w7x5TghzX/HE1a0jYLvSMd0qXwORkcnK5
NYnuJdG/t7EkcI3KXlbuQMLH4ubYKaUSvB6n82XzThKW1S5jkmup+dLRx6z3
kph+YcWPMZ0SJHnUW+w+QGKHrMDxKSlBFI2c3hRIwgsGfoZKUnwqFWxrCSXh
V1564g9tKTbGjPbTjCLR0dTzbYyBFNbfD+glxJLYouvie5wuRdzh9liHeBJz
vtgvs7GUUj3oqetymcTrt2srXzhIMc3sYGdXCgnfdx4uhp5SlBj9/aP5JvV+
z0nr3gdIQfTZH+3LIXFkztf5rpFS5C7UpAexSGzi/fPhGlOKgm72p8RCEsct
NrLnpkuxm4xP5D8h8eSRkH+ZJcVlq+JfU0pIbK+eaeNURuXsqChF6EuS6n+7
oBd1VI6qKW9WfktigW5u0mS2FCruvcvHVJHoI65PL+yi5ieG1RjWkagkiy8t
V5LhcbKWy8t/SOyTtTQd0pbhQlqFk2ETCe+/zhxT0GRYevCE7sVPlFfu19lG
l6EtfL7y1XYS7+PatMZYyrBc9CbgDpuEuWa48jWGDFPMxkncedT+np7xnONB
5e6t1KhGAYkfSXaNwf4yFPbpfncWk7jwIVckD5dhxbG3PlFSksqf1J13mZRb
NBfdl1PfK+hcglG6DL+ZlEjyCRKGfrkvIlgy2IbMr/XqIsEYcNtmVCbDWZbw
2PRuEmFPV7WzqJw1XvOsNb6HxNHAKabyDhnmGCRZ8z6T1H/pZFsQKcNckYb2
kq8kLFbOPsmmcvfurIRoh16qPmvnc1e05dhgHLZ9/zcSZx2j3JQN5HC4n8/Z
853q39j2WY50OfJu6Q4t7iOh41xtI4Mci/4wLhqkrM6Q7T/AkGOG34S72T+o
/mxPkSz1lMN2Y3m0fT+J8z529HsBcoT/ennfJ8pFevP8JkbK4fTj2CLGAIl1
+y9rlsbL4Z1Oty+hXMddlumQLkdwz7ayaYMkjLfXjkpkyRFZ3ETzoSzePVAy
q0yOiNAV6QWUs5J2HkmqpepXK7kppvxuj22cM1uOU5akkf4QiafzLHxfd8kx
LbvM1pZy7kyH1bpKCoRVT+YcoqyUORhQPF6BRv67mWcpO7u2pq4zUEDt8MbZ
mZT/1Hhw4S+6AhK21rlHlAccaMJBKPC8sirzLeXoV08W+zIU+Dyb9Ucj5YAq
cccMTwXGxDv7sim7K2+MfuCvwMczib5iyjpLUsmBcAViCGk0QXnxtzNPLzIV
yJafS+yhzJDdCtdKo55XraT1Um4IdM74wKL+C/VTe75TNvwyFGdfpsBM+8fk
j+H1bjX75dQqMKvDxmqAspF0wz1HtgKp9RqWg5Rb3DnyDlKB+T6LOMPe+e4o
oTekgMurk3ZDlFGVwcjWJvBlsVXSsI36f+RMpRE4cbGzfNgBZRKvBjoBV83g
jmHHRDTw1loS+CYIJYaddkjiHs8gMHXo09dh6xKJy0w9CZQsevxj2FdS/FRY
/gRUlykPDptjvS6NG05AvEBvaNjMU3eS9jAJWN/M/uk1PetOV6QSaOd3/LTj
Z/+mYBaBhtgvP71v9jsDNSrXB9/3//S6zbRFjBoCe2cO/XSMhloau4MAt+Y/
V/caqGwnCCqH/3NISHXNtCEC1wb/M9kT7H5Wm0Tz0H/2TrHl8anc7v8/W7UW
VsbQqT75eXVB13pzzgSM+FU+e4v9lhE3ZKs6NXiMuLPeY+savxFvZdrc7Qkf
cYI1/YMbc8S1puv+zU4dcVC27A8r1oinOr7glZSM2PC86ZPTtSPurbjopMwe
cdWC+ZI95IhPxff8/A7/7/8Bv1lxXw==
         "]]},
       Annotation[#, "Charting`Private`Tag$29341#2"]& ], 
      TagBox[
       {RGBColor[0.560181, 0.691569, 0.194885], Thickness[0.00001], Opacity[
        1.], LineBox[CompressedData["
1:eJw11nlcTPv/B/BKtHCNJVLSFKEoIxEueuWGJDWFUGmxFV0qLYSrxUW2TIuy
VYq0IEMKhTYp0mYJ0TL7Pue0CEn1O93v4zf/nHk+Pp8z8z6fz/vzehzjHUEb
dqupqKioqqqoDF+PBI2hvnHwrX2K2vB1wm61uJ00Dkxq1fVrDDkYR56PmGDE
weh2vS4TWw7G5qz2ymZw4L32XMl6Hw4+u/dpKGw4sNvYTft8jAPNzJUTjjE5
uHM1yuRXOgeLJz+Z1OPNQV7ztrmi5xzU0V9EFAZx8JFl2bWngwMLk9eZs6M5
aLAJ/4upwsWFzQMvolgcpChGnRwy5MJtWvXqGRkcnAvWP7HGloupE56X32Fz
wAs8dmCLDxf5qmxVUSkHOVfUBG+OcXHr5KIbfzdycPvUQ41P6VykLpYt+9jO
Qd+UPX/cfc5F3zGrRedJDlr9M+7rdnAxo+zQt54hDnp9JUWiIS7Wz5PdtaVx
YR7UExVlyMNXy66qz3Qu7NdW3bkHHvbunPXRjcGFV3fK4RxvHrzMOtcYUnX9
VaTrax3NwzRZ4bHLLtT9KYvmmGby0PY5J/8HVWeDvMaJX8bDiG2MFTeCuaCd
vsKx4vJg+ofwpWU0Fy0nvE44qfChV5ysE8riwq9Q45/XhnwE932pHLrORUFU
I6cFfNT4OwccYHNR6PyWV+DNx78Bmw/MK+ciaT59Az2ajzF73G3SmrjYciEg
X5HBx8Wks+pd1HOq/vHe+HgZH8c3usyJ7+SiuPDm7DwOH0ErVznoqPCgPTav
4dIQH2ZzrOato/FwuTQvVDRNgLU5j0Le0HnQyAxZX2UjgP+GPfctGTxkZ69Y
u9dLAEXCPSc+tS5BJVabr0UKEDw0XXCYycPROqHGxTQByv0TbSupdSLcTeJl
TwU4uCvlt1sQD+Qz3fu1rQKYs149aIjkITVzh9GBfgHsnVnViSwe+sMrpqYb
CMHQdM3UzOBhDNNx/8wVQkzutA3fyeahekvS9xBPIXbue5mrVU6NZ1bO/+sf
IdiTI5ovNvJAC7Bw+3RViFdPZ756287DoYrHi6qfCLGm11/fg+Sh/vH29ZYt
QlRt+7y7ZpAH+sDX4h0/hMjd2jYumsbHT53rT0ZPEWErsy1GRufDaXl8idYS
ETTCRiuWMviYRDccanATwcCioegDtS8mZS0C9YMiWOqURWxi8uGTRGeqXRTh
DmvVNbovH5XLi3ICCkXoHvny39RgPq7YuBww+SDCktuhuwej+BjlpHUpp0sE
Ae9R9p14PiwGx+yNGy8Gy8GUu4LaR4uYw1tXMMTQuHORG8PmI0MQtNR2vRiC
jOSV48v5ePWlbFza32JUVFVdPdnIx4D2nZbq02KoHzu9cTW1z3xSxd8uV4yJ
8+3fPeqk6p/hIx5TI4bx+IXr/lARwPLv4m/ZfDGSTxUZs8cJMN/gCfuMmgRa
c3Z3LzISYNWdjzdt6BI4vKKdCWQIUFkYwbFbJgH5yzmqGwJojAl2jXWX4KLn
s0BPpgAdp2YlZIZLcN2l9DnNV4ALn174diVJkBdKjMwLEsC6PutP/fsSRCfo
6Xyj+maFq5E44Y0Ez+xaYs6yBLD9PvKwlVSCnzNqJCOvCyCU3K18qC7F1csO
7Dq2AG26FW6bpkuhqVmzbHW5AGvaU94thxTht0IqbjQK0PnDPlnbQ4q1nwqy
HTkCPMh8mCw/KMXUxcYnW0gBdiUMji9KkKIk4ayZ3pAAywU+3Lo7UpRFn7bI
oglRMu5XvqxGihdphXN06EIk5fbF/uRKYcEMj21kCPFl6HGs6qAUO/vn315u
K0TYmYMvXPVkuNKsX32BKcSz+KvXri6QYeGqKyvNfYWYnbPKpslJhkbO6kf3
goRQFBQ2qvnLYB2h7ORFCvFIPrjiZJQMI7LMzu1gCcF6l2oqukLNH0gyrEkX
wmp1VYpTgQyqisTxh9hC6A387Iitk8FKs3xgdJkQiWEaj+sFMljSJewNDUJE
MJ727fotQ3JtVoWgXYij+8s2lU+S4+dNVp0nQdU7m6e9wEKOivG0xYZDQgQH
7273XCPH5iNn/BNpIpBJnUVN3nLIxy1IkBuKsHZqTq5/uBzCZUH68QwRrPl2
wTlxcnRc/JKqBxH2nSv2oWXJcUtiK9zkLAIjy35PQ7Ecb5uWxX31FuHLhf1e
s9/K8Vu0a559oAghd3d8KRTJEZcwnTEYKYJW4Z9zmwbkkFl/7fVjiVDteLhn
uY4C9tqVRYXpIrin1ATJTRXQDlnR7MQWgTM38NIUKFCnIVa+KRWBOXui7YWN
CnyznOmX3CiC6YntRw/uVUCy2TtrHEcEsxjVrMJIBVrzXn4NJkVw3qZi5pCo
gHVCRYiBihiHtO2tVuYowMqWq+XTxNg1MeRZSokChY/GuZOGYuRmD4S51CsA
z9qxx6hzGLHhqKEPV4HXFgXPSRsxTl0zN27pUaD44ry6fKYYn6yWzUnVUOLg
91sZ03zF+EALKSnVV2LBKcfAkCAx3uzq7PQwV2LT7ZPXJkSLQW+9vd0SSoT/
VlZcYolxYcf3mtMuSuxwcL3XkC6GWuyIjc7blSia4/DLhU2N6+ffR6gSmn8G
4UmpGNEmJSrl/ypR0WYmCGgUY2NtjZNvshKH2ROOq3WIwTc4K0m5pcTA0e9C
R0KMAc+IOSuLlBC3BuZxBsU4nijs/v1Siaa/J/l5jJXApeywrlezEnSWy3E6
de7HZe7tqBQqsSz/1K4UhgR/7phZdalXic19MnTbSBBGNw+gqxP41MI/coUp
weIJPdK0iQS2SLTZM30ksPtuHfPRmMDNLvO8nYESLHcv4Z5nEHBj8dWUkRK8
Vfjfn2tDQMPzlZvnBQn2eLRcS3QkQH+6UnPSdWp+8weDj+4ERkx+FB3NlmD9
5XWCRH8CovSt3U2lEmxJn2w2K4wA4xnrxb5GCfb+rGDGxhA4pNEbp2yXICP0
tnN1HIGZYuJxMSnB6VMjPWuuEsio4OcsVpFiqc61nfY5BPRrRyVcpUmhfa6o
/mEBgV9+pS1rjaSIPKxe8L6UQItl1tRWhhSj/GrDxK8JnPhxYoYxlTtSK2uL
Mx8IJLv+OvuAKcX0Rl2fpg4C2S1p8lk+UuSkHavQkxGY9r35jjhIiqfZbcsG
vhHw/UNrgUe0FF0FjoKAIQI3NgQ8eMCSImSC73GpJol15r7xmzKkaGue98+3
CSS6rU7saWVL8Wf2ZMMpBiT8rG+OmlwmRUPcQtdmExK29ZvVrzVKsSOfoRg/
j4Re4pJ+9Q4pYmJrCsKtSWyV33MtIaW45zWw1xkkdsIo0FhFhu9TWCNK7UkE
VpT9u58mwzP91KydTBLtn3p+qhvJ8OmMo/TAFhLOBpv9YxgypHaYq5R6kzDp
Xb/IwZbKHeu2gT1+JKpf2byudJEhd6KqsmA/Cf9a783GvjKcdX4Q6RBG/b7v
RLs3wTJ8ncWqtDpKItzku6lHtAxTuj3DQ2JIrOW//3CVJUPMQtoDn1gSMdZr
OLMyZNh8PdgvJY5E8WOR4BJbhrLtwfmMJBJb6qc6bCqXYcDy1CLtKyTV/46h
lU0yGLFrnyWmk5hrcDtlEoeaX3yk/9xNEr+IVL3CThkqkhTez3NJvCafJy9W
kaP3UojSL5/ELnnLp300OfRDdHfUPyCx++jZw0q6HGP1RM07H1FeuldnI0MO
UewPVlQJiTfnWseq28qRndpXUFVKwnJMpNpVphwJUY1LUyqp9Y3Vf8alcvSt
wahf5tUk+lMcm8OC5LCddH6J6DWJxA+3xYpIOU52u5osqSep/El3v8+SY1fM
UyK7idqv0LiEmRlydG2frNn6noRx4O3KKLYc6f3ko6KPJJgDnhtnlssxYtbI
fdktJI6VLGtjN1LjZ7k9K1tJHAqZbKFop3Jf/4v9/XYSn0pPtoaSchR/9kyc
zyVhvXTGSc4g9Xyr5i/241P12bvFXaYpMH3mlII8IYnzrsc91YwUCDuunlEh
JjHtTNt0V4YCzKY9/ZelJHTc6h3kVA5r6l8zPyInoc2U7w1gKrBAr1zXSEn1
Z1uadKGvAudtI3PqCBIX/BwZD4IV0N34NN6tk8SjabMDJ0QroP74pfXdLhJ2
ey+NKYtXYMR7zt1RPSSaeIuyXDIU1HsGkWH1jYTZlkbVi2wFlk1xDF3TS0Li
M1A6vVyBov3WnR7fSWSnuIenNCpw9m/TZIcfJGq3rzvnxlGgNIFhvOQniZLZ
1v7VnQpYPbTWovWRuD3VZbmBihILz5nPq6GskjUY/HycEgkBWWMjf5Fw8/ia
bmekRAGXxtXrJ3Fw9MPEowwqh7dm/3OL8oALXTRI5ba9/uB0xm8SJ6qKF/gz
ldgzTcv/JuXgOkm7vq8Scz2caZMGSGxTW3PiYZASZ1Ife4VR1rFKJwcilfh3
aLrvK8oLfp4tSWJRuZow7YneILW/8luRY68r8fnjdjMvyu9C3G58YCvxJb6v
Io2yce/QufXlSqz2qnZtphx863NgXqMSW5/FlasNkZgpW/3AlaOE/FLZXQvK
Ldu4inZSiX9+uHi6UHavPURMG1IiqCKhbj9l1N1g5tIIvM34bXpm+P7f/Xm6
dAJmRxZ9SaccXC7d+Y7K7do8v7wCyqej3vFtbAmYJni8raR8fZ90WzyTwPvQ
ExsaKRsQFxdZ+BIYudXq4BfKl9MCNdhBBI7d5Ip4lLn2dtd5kQSUpFqqlDLr
1N2U7SwCzRsC/EnKK3rsYl+mE5g0+XlWD2XXb0GfwtgEpnJsLX9Q3jWj1kir
jMBC7XmFfZTtnOjzmQ0EwnqTWP3D9Y3Wus5pJ9D7uFRrgHL9DyONLQSV+6Wj
Rg1Sjoiob5hC5e6kgXVVwyZ7wradp5GQGtfbDlHenbaOLzCkzqEq5/ywV34t
fH2aQSJzzIfyYRvYO+WNp3I0/F5r27Cr8jnO651JpJ0MJob9Lldz0zsqJ6Xn
TX4Ou+Ot94YVgVTf5Wb8HvYGlsP9nkgSo+e9HRx2gj3jgyeLhKAsa2jYjRZ2
XblUjtHvi/9zaK58/0o2ifmV/f9Z17WSX0rlTlP40H82vmBRHNtIYnbf//zj
ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU=
         "]]},
       Annotation[#, "Charting`Private`Tag$29341#3"]& ]}, {}}, InsetBox[
     TemplateBox[{"OO", "OOOO", 
       RowBox[{"FabiusF", "(", 
         TagBox["x", HoldForm], ")"}]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.00018]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.00018]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.00018]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.00018]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.00018]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.00018]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.00001`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.00001`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.00001`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.5, 0.99}], ImageScaled[{0.5, 1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0.5, 0.5000000039062495},
   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]],
   ImageMargins->0,
   ImagePadding->All,
   ImageSize->Full,
   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.5, 1}, {0.5000000039062495, 1.0000000000000004`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6], 
           Thickness[0.00001]], 
          Line[CompressedData["
1:eJxNl3k8VVsbxw8pzae66pZkiG5UOmnQoPy4mqQchApJKc24uUV1idJEHITb
ZEiGTB1cuSVzJSHkKrlJ+8zz2aJ54N3v/dy3/e5/1v5+fs9e67fW86zn89lG
OwJcdmkyGAwNDQbjv+OxgNHUG4Hensma/x0n7NKM8WUSMG3U0n2kT2AceSFk
giEBw54pb0xsCIzNWbU1m0VgsmN0+fptBF5s+aSttCZQ9Ecf80UogeHXbSeE
sqnvfj5l8jmVwOJJdyb2exPwnxM4W1xJoNngfkhpAIFLOPNmz2sC5iaPr88M
J+CxNsGOzeAh1v3b/RMcAnqFn88O6vPgNq1+lXE6gbxlF6JX2/AwdUJlTT6X
gKXJsYhN23go1OBqiKuo74d4D2kO5SHr9KKM/a0EHEftX9mZysO1xXKr5z0E
lgR0BBdU8vApdMGiCySBvi9++ya/5sG4Ovht/yCB1WGkVDLIw/q58gIbJg+X
vDq2ROjz8dLizYMXBjyU+fLPF4OPvb4/PXdj8dBev74g35uPrWa9q/UpX+Uu
RMzycD6myUtDLznxYNWx98u863y8epFT+IHyWV7M9iSr+RjixVqREciD5h3v
Yyt5fJiOET20COfBSbcx2pchwJS7STpBHB7mH5ptJtYXIPDT33WDaTwQfbdP
D0KAR7sd9/3C5YHTeq2D7y3AqX3uv8yt4WHYswK+V7gAo/dssU5p42FKW8lv
y64LkHgxSusNtU/TmRNH8KsFOLnRaVZcLw8aOemuhjwBAmxX2usw+Og5eS7B
lCGE2awFc9cx+XBx9fNK1BdibU7ZoSYDPuIcD4qSIcRulz1FFiw+mjLbfHy9
hVDG39ogoM6l03jr1foTQgQOThceZfNBDKxq6E8VomZ3gk0ddU7hrSYRkZVC
HNmZ/NUtgA9lw5xP+T1CzOE0FLeE8bFZP9435ZsQaxw59QkcPmKv6cfMMBCB
Ndz5+vB0PrzHZfw83kaESb02h325fJgTEfJ6bxF8Dzy8OaKGj/oXUc4/hIvA
nRTyLLGVijfvzTNLE6Hh3oyGpz2U/2CHuBuVIqx+t1vXg+TjnLx1YWmPCA+8
Xux6NEDx3aKm2G8i3Nz8alw4UwCn4nIjhoEYm9mvIuQGAhSllg95BjG0fx2l
XMoSYIx00osgbzH0zFtud1B5WeJxbX/uCTEsdKpDXNkC7DANe3MzVYx8zsqr
Bj4CuBuct0SNGH1DH566FiiAdFSU9lKeGEvygnYNnKDy7Cpp/DoohpBflp0f
J0DDw4MbNhlJwLE35a1IF0D/olPdcRsJtPMTeRFcAUa6m90fsk0CYXqS7fga
Kt529qnp4RLUPnhw5XQrlefz5xeNSpNAK/TcxlWEACM+j8uJqpHgh3lr2st6
BfjJJzbzIE8Co/EL142h8n5wrEuiLkOKpDO3jbjjqLxtlAdbGUkxYtauvkWG
QnjvaFoghxT2Dczz/iwhGju2dt3fKgX52fFEH1UXz60SnotCpUj0rPD3ZAvx
qvhS/o2rUqQ5VVUyfYS40HZRI/WeFLlB6qG5AUIULjgdbdUlRXj8FJ23YUKw
F9w4OeK9FBV2XRFRHCGwp+Tk0IkyfDR+JB2aJkTBQGZ9iYUMVy7Zc5u5QpTs
MGOddJJh+PBHVqtqhMhJ0jgW6i/D4axDtRmtQvxg4RmwJEqGtZ0l2Q6EEBvm
GFcNuynD1MVGp7tIITJj3cZeuy9DeXyU2ZRBIeZVFqr398hQHX7OPJMpQuSz
v8ttvshwP6V0lg5Vh92rrGPlE+UwZx8+28oSYeW02F9i5svh+2Ve3nKqLudc
99vq5yjH5We69bFsEd5u6iuYvkeOhSsv287xoepuaLHD41NytBKrym4FiDC3
sC3NI0UOyxBVLz9MBJf4jrR5ZXIMyTSL3sERwa//ZTS/jYr/dlH/UaoID3VI
0xiZHBrKhPHBXBGWTUrs0dZSYMHwmm+jqkWIO7U37aSeAhYGUq5LiwjTt+nF
rlmoQFJjZq2QqvNrHzcZtWxQ4OMNTrOnWgTjK+1NO3YpUDueuVh/UIQBlCwt
DFPA/dj53QlMMdLz2x1W/K6AYtz8eIW+GK5ZbzplhQqIrAJ041hiEGfW+6yo
V+B14t/XplD3Yu0Bzp+l3QpkSW1Ero5irB4i9grvU+Bpm1XMS+qerNvalSgc
ocRX8c65a/zF0J+dkXLMQImY+OmsgTAqXuLhk2KphNzy5Ts/jhipHvVy5gYl
1oysu11K3aOEq1mpdduVGHloxbMNXDGq8m+z+4OVaNaWqJqqxIhrkBzdf0GJ
txYz/JJaxZjwQFHulqGE1N07cxwhRpHNEZekP5Xozn34MpAUY/4Xk+ZZTUpY
xtce0mNI0NI0mmNMKMHJVmgWMiWYN7DiwtF+JUrLxm0h9SUI/4S4BcNUgGfj
2FCWBKOXHTj4s64Kj81LKklrCeI/jI+pmKPC3cS5zYVsCSrUn3JO2Khw5H1W
+jQfCW7NdrHN2KjC/DMO/ocCJLgi1/rNepcKrnmnr06g7m3fj01qnRAVDn9V
1f7OkcCn9JnbgfMq7LB3vtWSKkFZoAnP4ooKt2fZf3biUus38KyNC1QYviwA
d6okcAnti71RoULtKzPhvlYJ+NmMbrsWFY5yJ5zUfC2BF+P+kWM9Knw7/l7k
oJYgFsV3TNQqSLr9c4kBCcYe0Y8gBlRo2z/Rz2OsFD0ZJVk2Y9Uw4DidNDCQ
4kJkxsFsfTWsCs/sTGZJoWvj7XJ8rhrun+Tos5ZiScbOj5or1OjsEhy7zJbi
b1vTkIj1amySjuTO2CbFLGMvZrmHGjfezMn19Zfikk5OQOAeNdw4Ak1VmBQj
H1xZwQxWQ9uzwc0zVgprttPMI5HU+vdsh09Mk0K+TDPzboIaQyaVhYdzpeC/
yN5xJF0NcermvrYqqm88Z14aUagGq4Jz/0ArNd89m+v7ytUI1n4Xo+qRItLX
8FBuvRozJOo/75JSrD26d27eX2qk1wpyFjNk+Jy6u8KMUEO3cVj8FaYMrsJj
oUkKNT77VXWtNZThWJBsS+kHNbosMqd2s2QI2d9SV69JIvJDpLERZKgbOrvI
bwyJJOfPUcVsGSyrvFfnTyaR3ZWi+GmbDO0mKUFvppOY9v5ZviRABuuJTXvb
zEn4jBkx3yNcBvfa9Z5LlpDIcNlXXMyRoXed/qoiWxLr5vjEuaZT8Uus5pc4
kOhbELmnmyvD5okt+5tcSfhZ3hg2qVoGop1h/9tWEjZP3LWutsrQ+HBn7U0/
ElMSlnzRei1DRW3xmc/+JDYrbjmXkzJE2VUzK4JJ+MLQ34hB9aGDkWXjwkn4
11afOsiUg3HDXePyWRI9nf0ftQzl+LiI63qSQ8JRz313BEuO2KLBK9nJJEze
rV9kbyOHYeUfWoapJOobrB/XOclxrmGb7vwsErsbvd2NfOTQTI6Oismn5vf5
wa4pUA4fY20XVgmJwybvTT3C5Vi+YGeT0R0SawV/dVzhyFFQ91vavUoSEZar
iZ/S5Uhe7OkVc5/E3T/Fwt+5cmzvb3ta2UBi05Op9q41cqy85bNRt4Wk6t8h
qI7qm8dnPsiZ8heJ2Xp5yRMJOZ4nzZhwppPEZ/W1KaW9clyc+6Ge2U3iMVmZ
tJihwPjVKsEYgsRORVfnASbV9+ZqhVQKSOw6HnVUZaCA3q79fcclFC/dq7OR
pYBNSfTTCjmJpujusVo2CixzeFTHUJOwGB2meYWtQN7eLUEtvdT5ntWt4Hkr
4FDgM21jP4kvyQ7Pfg2g+mzp+Z3N70gkdORJlFTf3VesEfLqA0n1n9QtRRwF
CtxLV3d+ovIVFBM/I10B/edvI099IWHkn1d3gqvApEzz/mdfSbC/eW6cUaPA
5stnXTUHSISWW73itirQobPcqpvi4EOTzJU9CqR2/bw8eJBEZ9Xp7iBSgczl
Lx++othyqfFpYoDaz96szkGKv6xxi7nEVGLwn4fEBeeTnpqGSjD+eXox7fyr
6c4smnXcntgrQPNItmLvPjbNfq9SZAt9aI71c2AVB9JcNm2m/4Rwmu32/j66
Oo7mNv6iTKd0ms02tWokcpUY+NefdNu3quk1tJ6dvOVwciutN25fF+1G0Hr5
TMvd9b005011Wq7HUH3fLyNzILBynOq77ubxMtXOkNaPjPoj4TiL1r85GYgH
oILGvxz54O783WxaD2yW9uj60LqX5urIPwJoXWdBKvktTPXd7/yPUeUXObTO
VmSFjU2juf2QW0YHVwXNf9no3WD0+hraX2DWC//cVjp+hnxVsTNBc5cXT9lD
0vFbGoPV0wZpf2jOYN9kqr/rM75+yf3RQE3vp0bm286i+dyJdoG1Dc1pB2Re
cWya9dSJi8x91N/nv5Tir80NoHXeGrs0fhjNnDMFyds59Por+u3OPkyldee3
AZ2/cmneadxoOKKaZrsNBvPYLf/nb9SINKKH5icfDLU3qWk/ISFPWiYP0jrZ
/6vXBSb5ff1dKesEQn3yu277svTxORat663ZkDsetP6gkHBc70hz+83hru3e
NL9+6u2ywp9mF459UX8YPV/8GlaHJ9Vn/+ev1dyO+o+g44NuKg7acun4H53r
BFVVtG4Ua373bCutf3h40VWToPXm2aay7STNZ+L6B/6p+3/5P+cN97A=
           "]]}, "Charting`Private`Tag$29341#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6], 
           Thickness[0.00001]], 
          Line[CompressedData["
1:eJxF1Xk8Vfn/B3CpyRot2nGpVBQ3LappeTEtstSlUCEpYVoGoUlmLElFqktJ
iyxJssRtkVZbpVL2Sch29/2eY6iULN+j+f0ezj+f83ycz+N83o/PeX9ex3Cv
/1ZvZSUlpVGjlJSGx1B/TeqOjc8d05SHx4neyue8tNlQn3V6/Bt9NsaTZ0Mm
GrBxSrEweY4lG1q3N+zKorPxMf1But1uNpp3fleRr2XDeVX1qcYwNlRvWE0M
Y7AxqmKLypdUNpZPeTy5x4ONmgrDoPZiNqpoL0MK/dnYZJ//3LWTDdM5lTfm
RVLreAdVrVTi4LzLwMsIJhuhfDtPjj4HznqvN8xOZyNQpf6ariUHMycWl+Wx
2LAuNJpmsJuD/FGsUcISNoKbY5qjwzi4dXJZxsFaNnxegPtXKgfXl0tXfexg
43p/pPqqYg6+hy1ZdpZko/tyxPa4Dg5mlx793DPERhHjz+RVQxzYm0nvWGpz
8Ntru9GFely0mv/7qpnGQSQ/ve7ZWi72e8396EznwOJq1MO4XVzsMu7aqE/V
NTHCkSkJ50JPWhh2xYGDpcEHLbPSuGhvvp3fS9WpqHRwWFDCxWh3+pqMAA6u
ptTTV3dyMX+coMI8koMj3mbHJw9yMf3JJZ0gJgdOBcG1m3V5CPj+6cVQGgeJ
MQuStdfw8MZ3y4HDLA72mYh3X3Pj4cQBl8NmZRzMsve5e+dvHjR/37k2pY6D
wtX1K3RTeEi8eGbMv50c7I+JC3R+xkPUNgeT+C4OmI7h3pPaePC3Wm+jo8TF
HsWWbcl9PBibLDGz1ebCrp6lcXwaH5tuFwW+p3GRWPo8RLyCD9+tv981p3Nh
QdNrnbGdD3lCwWYeuIjICz5YdZSPgKFZ/GMMLqweqO6ySeKjzPeC5QsPLkxc
XTbOLuTjz31J/c7+XGQfLmkI+cDHQubbezXUvqlfdlFJ7ubDegvz9QUmFwER
J8TLJglAV3W8oZrORXC6q9OCJQJM6bI84sWi3v/8GkE4COB1qCJbrYwL3uvi
UfMOC8CaEtKYWMuFS8hR0pQpwNtnRm/rO7jwUH1UGn9HgI1ffGe4klw4cNde
8aoS4JV7s/cbat/bswb1VaQCZO9oHx+pzcOOace+TVEXYgej/biUxkOftlJ1
hLEQKsEa8pV0Hu7HZfo92yiErmnNww/gwerIv6YePkKY65SGODF4+Ksu/+6H
E0LkMdcn0zx5ML8/QaPgphDdv1ScuB7Aw9zDjSadL4RYkRvkPRjBQ/rZN1eE
nULwuUVZefE8nC9/I7AdEoJpM5+zJp2HspTpead0RVDJS+QcZ/Gwd6t/rO5K
Efjpl6wmlPFQ/n7uWLUdIpS/enXtZC0Pr2/vE9YGizAmLGbbBjYPpxOs6OKL
IkxaZN1Q1MXDAQ2t+y73RTCcsNR2nBIfkQcyxBk1Ilw69dCQNZ6PLU2mjJUK
EdRMvLuXGfChT3z5XKAmhs1b7Vg/Oh9nnWukYUZikH1bIrrBh8oj9zjmOjES
3Z77uTH4EIkkxtG7xUhzKCnW9uTDY1KB+cMwMXKCiF9y/Pnwyjg39v1VMSIT
put8Dufjw9L+IysfivF8XcvxM0w+dn5d3NraIMa32W/Ev6TxscAvYo8vIca1
KzasKhYfq8e5N9M0JVBVfbNqQxkfo9OeEAuMJThyK7A8o5bqO174kNF6CTY1
3c+yY/Nxg6HvtW6PBDOXG55sIan1tk4e7/i3BE8TzhhPH+KjL8b+e1GSBKWR
MaaZ2lQfWIdaWzyQ4GVKoYkOTYAz1hKrvGoJTBlHTtfSBbgy7Z23uVQCrx+L
cldbCmDbf1VffawUVxtnvD7PEKCppOJ4B02KpeuvWi30FMDNLK7j8Sopatkb
igr8BTAIXV+Z4CyFRYiiixsuAJv3QOulnxSjM43j9lJ9G5M1rYGIpeYPXNR/
kyrAEfuqp7SbUoySX5hwlCWARt2vN6xKpFiiWjagUSpARUhC78EmKcxpYtbW
GgFmvmo/SZBSXHqXWc7voOp/2BrurC7Dt5vMKjdCgKHtqc5Vs2Qon6C9XH9I
ALOAgSV6a2RwCY31vaAthKPL7dhSFxlk4xcnyPSFyPRXlh/zk0Gwyn9GPF2I
9MKt+5ViZOhM/HR9OoRIinfqzUiT4ZbYUuC0RYg73BzltCIZ6utWnWv1EOKT
1o7RO2tl6BfuM7P2E6Lsisnn5UIZziXMog+GC/HL0kbzykEZpBatX3yYQjR7
F+femSKHtfqLh4WpQsgd/CpLFsqhHrimcTNLiLroFc+C1stRpSJSvC8R4uuj
sXPcXeX4bG7kc6lWiHgVadunw3KIXTwyx7Op9b/J5t2JkaMtp6I1gBRCk6l2
51mKHBYJ5YG6SiIMpj4bciiUg5klU87Xps5NcIDMuFKOwqLxO0l9Eea1B8zx
bJcDbu+0wugiRNf+k6LRI0el6f1icq0IbTfyFoxVUeBJollVPkOE+Wdy9/2u
q8CfX2+l63mKYH3tu5GBuQKLT9n5BfqLkKRrf2DJegWcck8mT4wUwaTladb1
HQoc6VeUX2aKkMt6kud7UIG9No4FNakiqE6aUZ4YpsBDE5s+Bxb1PHfpsrEJ
Cqj+6o/HJSIUnu1MEGYoUN5uzD9QK8JcYZe4/6ECx1gTo5Q7Rbg3XXVs7BsF
Bv76KrAjRMiqNENoswKiNr8c9qAInz9et2ZKFag7ONnHVUsMnd6GDfN/KEBj
OkTRaGJ4JnRYftQksCr/1L4kuhhJHZYtHD0CLt+l6F4rRktXZXykKYGmFl7o
VYYY1R8i9xuuJbBdrM4yonIguNd63q7NBG7+uzDHy486x1oZ6mPdCTgzecqK
cDG4ES8zUw8SUHF76+x2Xoy+rpBGzjECtGdWqpPTxGBkyF/9Ektg9JSiyEiW
GIGdKlPjLxMQpu7orisRI2T/7ZTGTAL058yXh2rF0PotdLHkPoGjKl/OKToo
l2+6VFZKwEhEPHpCisH+mDlnezWB9HLe7eVKEmykP9Zw/URgxruxCde0JZh8
hly9WEigz6ekZZOBBPMKJtk+6ibQYp45s40uQdEi2bMZgwSie6NnG0KCv1n1
Rf2qJC459p25x5BAurp5ZqgOiayWFNnc3RIo0QvOivRJ6H1tzBP5SxAdbunE
NSbhOU5tsWukBPzXbf0uS0lkbD1w7x5TghzX/HE1a0jYLvSMd0qXwORkcnK5
NYnuJdG/t7EkcI3KXlbuQMLH4ubYKaUSvB6n82XzThKW1S5jkmup+dLRx6z3
kph+YcWPMZ0SJHnUW+w+QGKHrMDxKSlBFI2c3hRIwgsGfoZKUnwqFWxrCSXh
V1564g9tKTbGjPbTjCLR0dTzbYyBFNbfD+glxJLYouvie5wuRdzh9liHeBJz
vtgvs7GUUj3oqetymcTrt2srXzhIMc3sYGdXCgnfdx4uhp5SlBj9/aP5JvV+
z0nr3gdIQfTZH+3LIXFkztf5rpFS5C7UpAexSGzi/fPhGlOKgm72p8RCEsct
NrLnpkuxm4xP5D8h8eSRkH+ZJcVlq+JfU0pIbK+eaeNURuXsqChF6EuS6n+7
oBd1VI6qKW9WfktigW5u0mS2FCruvcvHVJHoI65PL+yi5ieG1RjWkagkiy8t
V5LhcbKWy8t/SOyTtTQd0pbhQlqFk2ETCe+/zhxT0GRYevCE7sVPlFfu19lG
l6EtfL7y1XYS7+PatMZYyrBc9CbgDpuEuWa48jWGDFPMxkncedT+np7xnONB
5e6t1KhGAYkfSXaNwf4yFPbpfncWk7jwIVckD5dhxbG3PlFSksqf1J13mZRb
NBfdl1PfK+hcglG6DL+ZlEjyCRKGfrkvIlgy2IbMr/XqIsEYcNtmVCbDWZbw
2PRuEmFPV7WzqJw1XvOsNb6HxNHAKabyDhnmGCRZ8z6T1H/pZFsQKcNckYb2
kq8kLFbOPsmmcvfurIRoh16qPmvnc1e05dhgHLZ9/zcSZx2j3JQN5HC4n8/Z
853q39j2WY50OfJu6Q4t7iOh41xtI4Mci/4wLhqkrM6Q7T/AkGOG34S72T+o
/mxPkSz1lMN2Y3m0fT+J8z529HsBcoT/ennfJ8pFevP8JkbK4fTj2CLGAIl1
+y9rlsbL4Z1Oty+hXMddlumQLkdwz7ayaYMkjLfXjkpkyRFZ3ETzoSzePVAy
q0yOiNAV6QWUs5J2HkmqpepXK7kppvxuj22cM1uOU5akkf4QiafzLHxfd8kx
LbvM1pZy7kyH1bpKCoRVT+YcoqyUORhQPF6BRv67mWcpO7u2pq4zUEDt8MbZ
mZT/1Hhw4S+6AhK21rlHlAccaMJBKPC8sirzLeXoV08W+zIU+Dyb9Ucj5YAq
cccMTwXGxDv7sim7K2+MfuCvwMczib5iyjpLUsmBcAViCGk0QXnxtzNPLzIV
yJafS+yhzJDdCtdKo55XraT1Um4IdM74wKL+C/VTe75TNvwyFGdfpsBM+8fk
j+H1bjX75dQqMKvDxmqAspF0wz1HtgKp9RqWg5Rb3DnyDlKB+T6LOMPe+e4o
oTekgMurk3ZDlFGVwcjWJvBlsVXSsI36f+RMpRE4cbGzfNgBZRKvBjoBV83g
jmHHRDTw1loS+CYIJYaddkjiHs8gMHXo09dh6xKJy0w9CZQsevxj2FdS/FRY
/gRUlykPDptjvS6NG05AvEBvaNjMU3eS9jAJWN/M/uk1PetOV6QSaOd3/LTj
Z/+mYBaBhtgvP71v9jsDNSrXB9/3//S6zbRFjBoCe2cO/XSMhloau4MAt+Y/
V/caqGwnCCqH/3NISHXNtCEC1wb/M9kT7H5Wm0Tz0H/2TrHl8anc7v8/W7UW
VsbQqT75eXVB13pzzgSM+FU+e4v9lhE3ZKs6NXiMuLPeY+savxFvZdrc7Qkf
cYI1/YMbc8S1puv+zU4dcVC27A8r1oinOr7glZSM2PC86ZPTtSPurbjopMwe
cdWC+ZI95IhPxff8/A7/7/8Bv1lxXw==
           "]]}, "Charting`Private`Tag$29341#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6], 
           Thickness[0.00001]], 
          Line[CompressedData["
1:eJw11nlcTPv/B/BKtHCNJVLSFKEoIxEueuWGJDWFUGmxFV0qLYSrxUW2TIuy
VYq0IEMKhTYp0mYJ0TL7Pue0CEn1O93v4zf/nHk+Pp8z8z6fz/vzehzjHUEb
dqupqKioqqqoDF+PBI2hvnHwrX2K2vB1wm61uJ00Dkxq1fVrDDkYR56PmGDE
weh2vS4TWw7G5qz2ymZw4L32XMl6Hw4+u/dpKGw4sNvYTft8jAPNzJUTjjE5
uHM1yuRXOgeLJz+Z1OPNQV7ztrmi5xzU0V9EFAZx8JFl2bWngwMLk9eZs6M5
aLAJ/4upwsWFzQMvolgcpChGnRwy5MJtWvXqGRkcnAvWP7HGloupE56X32Fz
wAs8dmCLDxf5qmxVUSkHOVfUBG+OcXHr5KIbfzdycPvUQ41P6VykLpYt+9jO
Qd+UPX/cfc5F3zGrRedJDlr9M+7rdnAxo+zQt54hDnp9JUWiIS7Wz5PdtaVx
YR7UExVlyMNXy66qz3Qu7NdW3bkHHvbunPXRjcGFV3fK4RxvHrzMOtcYUnX9
VaTrax3NwzRZ4bHLLtT9KYvmmGby0PY5J/8HVWeDvMaJX8bDiG2MFTeCuaCd
vsKx4vJg+ofwpWU0Fy0nvE44qfChV5ysE8riwq9Q45/XhnwE932pHLrORUFU
I6cFfNT4OwccYHNR6PyWV+DNx78Bmw/MK+ciaT59Az2ajzF73G3SmrjYciEg
X5HBx8Wks+pd1HOq/vHe+HgZH8c3usyJ7+SiuPDm7DwOH0ErVznoqPCgPTav
4dIQH2ZzrOato/FwuTQvVDRNgLU5j0Le0HnQyAxZX2UjgP+GPfctGTxkZ69Y
u9dLAEXCPSc+tS5BJVabr0UKEDw0XXCYycPROqHGxTQByv0TbSupdSLcTeJl
TwU4uCvlt1sQD+Qz3fu1rQKYs149aIjkITVzh9GBfgHsnVnViSwe+sMrpqYb
CMHQdM3UzOBhDNNx/8wVQkzutA3fyeahekvS9xBPIXbue5mrVU6NZ1bO/+sf
IdiTI5ovNvJAC7Bw+3RViFdPZ756287DoYrHi6qfCLGm11/fg+Sh/vH29ZYt
QlRt+7y7ZpAH+sDX4h0/hMjd2jYumsbHT53rT0ZPEWErsy1GRufDaXl8idYS
ETTCRiuWMviYRDccanATwcCioegDtS8mZS0C9YMiWOqURWxi8uGTRGeqXRTh
DmvVNbovH5XLi3ICCkXoHvny39RgPq7YuBww+SDCktuhuwej+BjlpHUpp0sE
Ae9R9p14PiwGx+yNGy8Gy8GUu4LaR4uYw1tXMMTQuHORG8PmI0MQtNR2vRiC
jOSV48v5ePWlbFza32JUVFVdPdnIx4D2nZbq02KoHzu9cTW1z3xSxd8uV4yJ
8+3fPeqk6p/hIx5TI4bx+IXr/lARwPLv4m/ZfDGSTxUZs8cJMN/gCfuMmgRa
c3Z3LzISYNWdjzdt6BI4vKKdCWQIUFkYwbFbJgH5yzmqGwJojAl2jXWX4KLn
s0BPpgAdp2YlZIZLcN2l9DnNV4ALn174diVJkBdKjMwLEsC6PutP/fsSRCfo
6Xyj+maFq5E44Y0Ez+xaYs6yBLD9PvKwlVSCnzNqJCOvCyCU3K18qC7F1csO
7Dq2AG26FW6bpkuhqVmzbHW5AGvaU94thxTht0IqbjQK0PnDPlnbQ4q1nwqy
HTkCPMh8mCw/KMXUxcYnW0gBdiUMji9KkKIk4ayZ3pAAywU+3Lo7UpRFn7bI
oglRMu5XvqxGihdphXN06EIk5fbF/uRKYcEMj21kCPFl6HGs6qAUO/vn315u
K0TYmYMvXPVkuNKsX32BKcSz+KvXri6QYeGqKyvNfYWYnbPKpslJhkbO6kf3
goRQFBQ2qvnLYB2h7ORFCvFIPrjiZJQMI7LMzu1gCcF6l2oqukLNH0gyrEkX
wmp1VYpTgQyqisTxh9hC6A387Iitk8FKs3xgdJkQiWEaj+sFMljSJewNDUJE
MJ727fotQ3JtVoWgXYij+8s2lU+S4+dNVp0nQdU7m6e9wEKOivG0xYZDQgQH
7273XCPH5iNn/BNpIpBJnUVN3nLIxy1IkBuKsHZqTq5/uBzCZUH68QwRrPl2
wTlxcnRc/JKqBxH2nSv2oWXJcUtiK9zkLAIjy35PQ7Ecb5uWxX31FuHLhf1e
s9/K8Vu0a559oAghd3d8KRTJEZcwnTEYKYJW4Z9zmwbkkFl/7fVjiVDteLhn
uY4C9tqVRYXpIrin1ATJTRXQDlnR7MQWgTM38NIUKFCnIVa+KRWBOXui7YWN
CnyznOmX3CiC6YntRw/uVUCy2TtrHEcEsxjVrMJIBVrzXn4NJkVw3qZi5pCo
gHVCRYiBihiHtO2tVuYowMqWq+XTxNg1MeRZSokChY/GuZOGYuRmD4S51CsA
z9qxx6hzGLHhqKEPV4HXFgXPSRsxTl0zN27pUaD44ry6fKYYn6yWzUnVUOLg
91sZ03zF+EALKSnVV2LBKcfAkCAx3uzq7PQwV2LT7ZPXJkSLQW+9vd0SSoT/
VlZcYolxYcf3mtMuSuxwcL3XkC6GWuyIjc7blSia4/DLhU2N6+ffR6gSmn8G
4UmpGNEmJSrl/ypR0WYmCGgUY2NtjZNvshKH2ROOq3WIwTc4K0m5pcTA0e9C
R0KMAc+IOSuLlBC3BuZxBsU4nijs/v1Siaa/J/l5jJXApeywrlezEnSWy3E6
de7HZe7tqBQqsSz/1K4UhgR/7phZdalXic19MnTbSBBGNw+gqxP41MI/coUp
weIJPdK0iQS2SLTZM30ksPtuHfPRmMDNLvO8nYESLHcv4Z5nEHBj8dWUkRK8
Vfjfn2tDQMPzlZvnBQn2eLRcS3QkQH+6UnPSdWp+8weDj+4ERkx+FB3NlmD9
5XWCRH8CovSt3U2lEmxJn2w2K4wA4xnrxb5GCfb+rGDGxhA4pNEbp2yXICP0
tnN1HIGZYuJxMSnB6VMjPWuuEsio4OcsVpFiqc61nfY5BPRrRyVcpUmhfa6o
/mEBgV9+pS1rjaSIPKxe8L6UQItl1tRWhhSj/GrDxK8JnPhxYoYxlTtSK2uL
Mx8IJLv+OvuAKcX0Rl2fpg4C2S1p8lk+UuSkHavQkxGY9r35jjhIiqfZbcsG
vhHw/UNrgUe0FF0FjoKAIQI3NgQ8eMCSImSC73GpJol15r7xmzKkaGue98+3
CSS6rU7saWVL8Wf2ZMMpBiT8rG+OmlwmRUPcQtdmExK29ZvVrzVKsSOfoRg/
j4Re4pJ+9Q4pYmJrCsKtSWyV33MtIaW45zWw1xkkdsIo0FhFhu9TWCNK7UkE
VpT9u58mwzP91KydTBLtn3p+qhvJ8OmMo/TAFhLOBpv9YxgypHaYq5R6kzDp
Xb/IwZbKHeu2gT1+JKpf2byudJEhd6KqsmA/Cf9a783GvjKcdX4Q6RBG/b7v
RLs3wTJ8ncWqtDpKItzku6lHtAxTuj3DQ2JIrOW//3CVJUPMQtoDn1gSMdZr
OLMyZNh8PdgvJY5E8WOR4BJbhrLtwfmMJBJb6qc6bCqXYcDy1CLtKyTV/46h
lU0yGLFrnyWmk5hrcDtlEoeaX3yk/9xNEr+IVL3CThkqkhTez3NJvCafJy9W
kaP3UojSL5/ELnnLp300OfRDdHfUPyCx++jZw0q6HGP1RM07H1FeuldnI0MO
UewPVlQJiTfnWseq28qRndpXUFVKwnJMpNpVphwJUY1LUyqp9Y3Vf8alcvSt
wahf5tUk+lMcm8OC5LCddH6J6DWJxA+3xYpIOU52u5osqSep/El3v8+SY1fM
UyK7idqv0LiEmRlydG2frNn6noRx4O3KKLYc6f3ko6KPJJgDnhtnlssxYtbI
fdktJI6VLGtjN1LjZ7k9K1tJHAqZbKFop3Jf/4v9/XYSn0pPtoaSchR/9kyc
zyVhvXTGSc4g9Xyr5i/241P12bvFXaYpMH3mlII8IYnzrsc91YwUCDuunlEh
JjHtTNt0V4YCzKY9/ZelJHTc6h3kVA5r6l8zPyInoc2U7w1gKrBAr1zXSEn1
Z1uadKGvAudtI3PqCBIX/BwZD4IV0N34NN6tk8SjabMDJ0QroP74pfXdLhJ2
ey+NKYtXYMR7zt1RPSSaeIuyXDIU1HsGkWH1jYTZlkbVi2wFlk1xDF3TS0Li
M1A6vVyBov3WnR7fSWSnuIenNCpw9m/TZIcfJGq3rzvnxlGgNIFhvOQniZLZ
1v7VnQpYPbTWovWRuD3VZbmBihILz5nPq6GskjUY/HycEgkBWWMjf5Fw8/ia
bmekRAGXxtXrJ3Fw9MPEowwqh7dm/3OL8oALXTRI5ba9/uB0xm8SJ6qKF/gz
ldgzTcv/JuXgOkm7vq8Scz2caZMGSGxTW3PiYZASZ1Ife4VR1rFKJwcilfh3
aLrvK8oLfp4tSWJRuZow7YneILW/8luRY68r8fnjdjMvyu9C3G58YCvxJb6v
Io2yce/QufXlSqz2qnZtphx863NgXqMSW5/FlasNkZgpW/3AlaOE/FLZXQvK
Ldu4inZSiX9+uHi6UHavPURMG1IiqCKhbj9l1N1g5tIIvM34bXpm+P7f/Xm6
dAJmRxZ9SaccXC7d+Y7K7do8v7wCyqej3vFtbAmYJni8raR8fZ90WzyTwPvQ
ExsaKRsQFxdZ+BIYudXq4BfKl9MCNdhBBI7d5Ip4lLn2dtd5kQSUpFqqlDLr
1N2U7SwCzRsC/EnKK3rsYl+mE5g0+XlWD2XXb0GfwtgEpnJsLX9Q3jWj1kir
jMBC7XmFfZTtnOjzmQ0EwnqTWP3D9Y3Wus5pJ9D7uFRrgHL9DyONLQSV+6Wj
Rg1Sjoiob5hC5e6kgXVVwyZ7wradp5GQGtfbDlHenbaOLzCkzqEq5/ywV34t
fH2aQSJzzIfyYRvYO+WNp3I0/F5r27Cr8jnO651JpJ0MJob9Lldz0zsqJ6Xn
TX4Ou+Ot94YVgVTf5Wb8HvYGlsP9nkgSo+e9HRx2gj3jgyeLhKAsa2jYjRZ2
XblUjtHvi/9zaK58/0o2ifmV/f9Z17WSX0rlTlP40H82vmBRHNtIYnbf//zj
ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU=
           "]]}, "Charting`Private`Tag$29341#3"]}}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
      AxesOrigin -> {0.5, 0.5000000039062495}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
      ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
      GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, 
      AxesOrigin -> {0.5, 0.5000000039062495}, 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]], ImageSize -> Full, 
      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.5, 1}, {0.5000000039062495, 1.0000000000000004`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
      Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         Opacity[1.], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6], 
         Thickness[0.00001]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6], 
         Thickness[0.00001]], 
        Directive[
         Opacity[1.], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6], 
         Thickness[0.00001]]}, {
        HoldForm[$CellContext`OO], 
        HoldForm[$CellContext`OOOO], 
        HoldForm[
         $CellContext`FabiusF[
          HoldForm[$CellContext`x]]]}, LegendMarkers -> None, 
       LabelStyle -> {}, LegendLayout -> "Column"]], {Center, Top}, 
     Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellLabel->
  "3/26/24 08:10:33 \
Out[141]=",ExpressionUUID->"7d0295ed-c431-49cc-9cbf-6cd1fb622c72"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{-4, Automatic}, {Automatic, -4}},
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All], TextAlignment -> Center, FontFamily -> "Segoe UI Symbol", 
    FontSize -> 12, FontWeight -> "Normal", FontSlant -> "Plain", 
    FontTracking -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}]}, 
  Visible -> False, FrontEndVersion -> 
  "12.2 for Microsoft Windows (64-bit) (December 12, 2020)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"bda66dbb-c3e7-454c-8e2d-9a39cf5233a8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 6970, 185, 431, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
Cell[CellGroupData[{
Cell[7553, 209, 7373, 220, 89, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
Cell[14929, 431, 48838, 908, 999, "Output",ExpressionUUID->"7d0295ed-c431-49cc-9cbf-6cd1fb622c72"]
}, Open  ]]
}
]
*)