(* 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[    112765,       2510]
NotebookOptionsPosition[    111388,       2478]
NotebookOutlinePosition[    112267,       2504]
CellTagsIndexPosition[    112224,       2501]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[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"}], "}"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 FontFamily->"Go Noto Africa Middle East",
 FontSize->11,
 FontWeight->"Normal",
 CellLabel->
  "8/23/24 05:47:34 \
In[853]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"T", "=", "    ", 
     RowBox[{"(", 
      RowBox[{"(", 
       RowBox[{"(", 
        RowBox[{"(", "    ", "5", "    ", ")"}], ")"}], ")"}], ")"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A0", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{"x", ",", "0"}], "]"}], "^", "T"}], ")"}], "/", 
      RowBox[{"T", "!"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A1", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "1"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A0", "[", "x", "]"}], "-", 
        RowBox[{"A0", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "1"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A2", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A1", "[", "x", "]"}], "-", 
        RowBox[{"A1", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "2"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A3", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "3"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A2", "[", "x", "]"}], "-", 
        RowBox[{"A2", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "3"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A4", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "4"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A3", "[", "x", "]"}], "-", 
        RowBox[{"A3", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "4"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A5", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "5"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A4", "[", "x", "]"}], "-", 
        RowBox[{"A4", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "5"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A6", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "6"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A5", "[", "x", "]"}], "-", 
        RowBox[{"A5", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "6"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A7", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "7"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A6", "[", "x", "]"}], "-", 
        RowBox[{"A6", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "7"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A8", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "8"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A7", "[", "x", "]"}], "-", 
        RowBox[{"A7", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "8"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A9", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "9"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A8", "[", "x", "]"}], "-", 
        RowBox[{"A8", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "9"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A10", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "10"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A9", "[", "x", "]"}], "-", 
        RowBox[{"A9", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "10"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A11", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "11"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A10", "[", "x", "]"}], "-", 
        RowBox[{"A10", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "11"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A12", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "12"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A11", "[", "x", "]"}], "-", 
        RowBox[{"A11", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "12"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A13", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "13"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A12", "[", "x", "]"}], "-", 
        RowBox[{"A12", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "13"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A14", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "14"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A13", "[", "x", "]"}], "-", 
        RowBox[{"A13", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "14"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A15", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "15"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A14", "[", "x", "]"}], "-", 
        RowBox[{"A14", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "15"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A16", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "16"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A15", "[", "x", "]"}], "-", 
        RowBox[{"A15", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "16"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A17", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "17"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A16", "[", "x", "]"}], "-", 
        RowBox[{"A16", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "17"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A18", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "18"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A17", "[", "x", "]"}], "-", 
        RowBox[{"A17", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "18"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A19", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "19"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A18", "[", "x", "]"}], "-", 
        RowBox[{"A18", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "19"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A20", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "20"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A19", "[", "x", "]"}], "-", 
        RowBox[{"A19", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "20"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A21", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "21"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A20", "[", "x", "]"}], "-", 
        RowBox[{"A20", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "21"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A22", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "22"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A21", "[", "x", "]"}], "-", 
        RowBox[{"A21", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "22"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A23", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "23"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A22", "[", "x", "]"}], "-", 
        RowBox[{"A22", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "23"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A24", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "24"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A23", "[", "x", "]"}], "-", 
        RowBox[{"A23", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "24"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A25", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "25"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A24", "[", "x", "]"}], "-", 
        RowBox[{"A24", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "25"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A26", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "26"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A25", "[", "x", "]"}], "-", 
        RowBox[{"A25", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "26"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A27", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "27"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A26", "[", "x", "]"}], "-", 
        RowBox[{"A26", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "27"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A28", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "28"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A27", "[", "x", "]"}], "-", 
        RowBox[{"A27", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "28"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A29", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "29"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A28", "[", "x", "]"}], "-", 
        RowBox[{"A28", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "29"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A30", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "30"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A29", "[", "x", "]"}], "-", 
        RowBox[{"A29", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "30"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A31", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "31"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A30", "[", "x", "]"}], "-", 
        RowBox[{"A30", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "31"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A32", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "^", "32"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"A31", "[", "x", "]"}], "-", 
        RowBox[{"A31", "[", 
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", "32"}]}]}], ")"}], "]"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\:1586\:1587", "[", "x_", "]"}], ":=", "    ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"(", 
        RowBox[{"(", 
         RowBox[{"(", "    ", "A5", "    ", ")"}], ")"}], ")"}], ")"}], 
      "    ", "[", 
      RowBox[{"(", 
       RowBox[{"x", "-", 
        RowBox[{"1", "/", 
         RowBox[{"2", "^", 
          RowBox[{"(", 
           RowBox[{"T", "+", "1"}], ")"}]}]}]}], ")"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\:01a7S", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\:1450\:1455\:1586\:1587\:1450\:1455", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "^", 
        RowBox[{"Floor", "[", 
         RowBox[{"x", "*", "\:01a7S"}], "]"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\:1586\:1587", "[", 
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"x", "*", "\:01a7S"}], ",", "1"}], "]"}], "]"}], "-", 
         "0.5"}], ")"}]}], "+", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"ToUpperCase", "[", 
     RowBox[{"StringReplace", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{
         RowBox[{"StringReplace", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{
             RowBox[{"\:1586\:1587", "[", "x", "]"}], ",", "InputForm"}], 
            "]"}], ",", 
           RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", 
         RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", 
       RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "]"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"ToUpperCase", "[", 
     RowBox[{"StringReplace", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{
         RowBox[{"StringReplace", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{
             RowBox[{"Simplify", "[", 
              RowBox[{"\:1586\:1587", "[", "x", "]"}], "]"}], ",", 
             "InputForm"}], "]"}], ",", 
           RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", 
         RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", 
       RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "]"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"OO", "[", "x_", "]"}], ":=", 
     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[{
     RowBox[{"OOOO", "[", "x_", "]"}], ":=", 
     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]", 
   "\[IndentingNewLine]", 
   RowBox[{"Column", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"TableForm", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<OO[3/4]=\>\"", " ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"OO", "[", 
               RowBox[{"3", "/", "4"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"OO", "[", 
                RowBox[{"3", "/", "4"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"\"\<OOOO[3/4]=\>\"", " ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"OOOO", "[", 
               RowBox[{"3", "/", "4"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"OOOO", "[", 
                RowBox[{"3", "/", "4"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"\"\<\:1586\:1587[3/4]=\>\"", " ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\:1586\:1587", "[", 
               RowBox[{"3", "/", "4"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"\:1586\:1587", "[", 
                RowBox[{"3", "/", "4"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"\"\<FabiusF[3/4]=\>\"", " ", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FabiusF", "[", 
               RowBox[{"3", "/", "4"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"FabiusF", "[", 
                RowBox[{"3", "/", "4"}], "]"}], "]"}]}], "}"}]}], "}"}]}], 
         "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"OO", "[", "x", "]"}], ",", 
            RowBox[{"OOOO", "[", "x", "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"-", "1"}], ")"}], "^", 
               RowBox[{"Floor", "[", 
                RowBox[{"x", "*", "\:01a7S"}], "]"}]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\:1586\:1587", "[", 
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   RowBox[{"x", "*", "\:01a7S"}], ",", "1"}], "]"}], "]"}], 
                "-", "0.5"}], ")"}]}], "+", "0.5"}], ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"FabiusF", "[", "x", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", ".75", ",", ".875"}], "}"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", 
           RowBox[{"1", "/", "2"}]}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", 
          RowBox[{"Axes", "\[Rule]", "False"}], ",", 
          RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
          RowBox[{"PlotPoints", "\[Rule]", 
           RowBox[{"1", "+", 
            SuperscriptBox["2", "8"]}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Dotted", ",", "Dotted", ",", 
             RowBox[{"RGBColor", "[", "\"\<#FF7C00\>\"", "]"}], ",", 
             RowBox[{"RGBColor", "[", "\"\<#00F47C\>\"", "]"}]}], "}"}]}], 
          ",", 
          RowBox[{"PlotLegends", "\[Rule]", " ", 
           RowBox[{"Placed", "[", 
            RowBox[{"\"\<Expressions\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}]}], ",", 
          RowBox[{"PlotRangePadding", "\[Rule]", "0"}]}], "]"}], "}"}]}], 
      "}"}], ",", "Center"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"ToUpperCase", "[", 
    RowBox[{"StringReplace", "[", 
     RowBox[{
      RowBox[{"ToString", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Simplify", "[", 
         RowBox[{"ExpandAll", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], "^", 
             RowBox[{"Floor", "[", "x", "]"}]}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\:1586\:1587", "[", 
               RowBox[{"Mod", "[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}], "-", "0.5"}], ")"}]}], 
           "+", "0.5"}], "\[IndentingNewLine]", "]"}], "]"}], 
        "\[IndentingNewLine]", ",", "InputForm"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",", 
        RowBox[{"\"\<*^\>\"", "\[Rule]", " ", "\"\<*10^\>\""}], ",", 
        RowBox[{"\"\<[\>\"", "->", "\"\<(\>\""}], ",", 
        RowBox[{"\"\<]\>\"", "->", "\"\<)\>\""}]}], "  ", "}"}]}], "]"}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Simplify", "[", 
     RowBox[{"\:1586\:1587", "[", "x", "]"}], "]"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"ToUpperCase", "[", 
    RowBox[{"StringReplace", "[", 
     RowBox[{
      RowBox[{"ToString", "[", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Simplify", "[", 
         RowBox[{"ExpandAll", "["}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"Floor", "[", 
            RowBox[{"x", "*", "O"}], "]"}]}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\:1586\:1587", "[", 
             RowBox[{"Mod", "[", 
              RowBox[{
               RowBox[{"x", "*", "O"}], ",", "1"}], "]"}], "]"}], "-", 
            "0.5"}], ")"}]}], "+", "0.5"}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"]", "]"}], "*)"}], "\[IndentingNewLine]", ",", 
        "InputForm"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}], ",", 
        RowBox[{"\"\<*^\>\"", "\[Rule]", " ", "\"\<*10^\>\""}], ",", 
        RowBox[{"\"\<[\>\"", "->", "\"\<(\>\""}], ",", 
        RowBox[{"\"\<]\>\"", "->", "\"\<)\>\""}]}], "  ", "}"}]}], "]"}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Simplify", "[", 
     RowBox[{"\:1586\:1587", "[", "x", "]"}], "]"}], "*)"}], 
   "\[IndentingNewLine]", "\n", "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 FontFamily->"Go Noto Africa Middle East",
 FontSize->11,
 FontWeight->"Normal",
 CellLabel->
  "8/23/24 05:50:34 \
In[986]:=",ExpressionUUID->"b699807c-ba79-4417-afb3-34de3ee368b2"]
}, Open  ]],

Cell[BoxData[
 TagBox[GridBox[{
    {
     InterpretationBox[GridBox[{
        {"\<\"OO[3/4]=\"\>", GridBox[{
           {
            FractionBox["15", "16"]},
           {"0.9375`"}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.1]}, 
              Offset[0.2]}}]},
        {"\<\"OOOO[3/4]=\"\>", GridBox[{
           {"0.935030830871336`"},
           {"0.935030830871336`"}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.1]}, 
              Offset[0.2]}}]},
        {"\<\"\:1586\:1587[3/4]=\"\>", GridBox[{
           {
            FractionBox["953", "1024"]},
           {"0.9306640625`"}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.1]}, 
              Offset[0.2]}}]},
        {"\<\"FabiusF[3/4]=\"\>", GridBox[{
           {
            FractionBox["67", "72"]},
           {"0.9305555555555556`"}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.7]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.1]}, 
              Offset[0.2]}}]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[2.0999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      TableForm[{{"OO[3/4]=", {
          Rational[15, 16], 0.9375}}, {
        "OOOO[3/4]=", {0.935030830871336, 0.935030830871336}}, {
        "\:1586\:1587[3/4]=", {
          Rational[953, 1024], 0.9306640625}}, {"FabiusF[3/4]=", {
          Rational[67, 72], 0.9305555555555556}}}]]},
    {
     RowBox[{"{", 
      TagBox[
       GraphicsBox[{{{{}, {}, 
           TagBox[
            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
             Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
1:eJw1lnlYTmvbxtOgSTsKkbapQtop2qGBs4QdSUmE2pWKstNAhAYz7cQ2NChl
2MaSFJWeBs0JoUhKg0rTGrLuEkrJ893ve3zv88ezjt+x1nHd13Be51oz3P3t
t0lKSEhIjZKQ+M+1ZYol/WfQ8N+rgBXx5u31UgzE067I10kJKDfVvCItx2B4
dUf0D1kBZTvWXWQVGfikr2moUxQQtPHnqDxlBodcb6gmKgtY5n1ueYsqgwvJ
Gd2pqgL+kfErz1djkBUctzFITUB/hcHUT1MY+LUZXI+cIkBx1W5GfjoDp10z
4yOmCbixQdzboskguF1mHDQFbAjf9VpuDoMiV+MD5rMFnFyu38vp0vOf3ar7
PleAT5HP4Rx9Bq92f69MnCdgx9YzTIMhg3UmKs9PLRDQfWbon6xFDCR09lyZ
v1DAwZY1Su2mDPKuaBTONBHwlPw68gMM/hVW640sEXAh0kS32pKB1v0ljuct
aH1rzOZ/+4PWL5fb5rdCQENcxN5aawZrdIXE0asEOCrkn5e1Y/Crgf1Q1xoB
4Sa+02Y5MLgfr/kz3U7Aom87+BFHBhF28yYvdBAgUWd9do4zg4ceV1jJTQJW
WR7YNcaNxjtVsjLSifbfT7u8yYPO499VRj9dBDgVPOoVezHomrf8c7a7gL74
qC1NPgwYQy+NedsFXLu0IVExgD7voevI7RAguSXWdvYeBgWzXjec8xXQcXOm
xY99DK6/PfjgS4CAlvHRClqhDMZWJN+7vIfm85/fYQaX0s+MiPcJ+Pv56cg3
x2h/XM9s3xgioDo5telzOINmmVUJPQcFxI1X3/kikoHnsMx+i6MCDtz0qRk8
y2Cryt3a9ydofwrlDnyIYlD+fcRufoQAIV7rXPpFOh+Pu457TgvQiNc+VJvA
QKTUOfD9rIBnmrvvZVxl8IdaUiyiBJyrufGg4wadt3vN2IpYAQrLHOZIJjFA
Q9ZL40sCpM3smutTGMy29fT3vSxAzWn+X5LpDKq1esVt1wTclXEx6sxgcLT8
Oqd2U0Cvn/zuzGwGf+qVSJrcEWA3En/yXR49L3OMZuJdAfpqQe8fFDKIPpoZ
VpQqYM7GRdKtpQy2tTIztR4IeLt+37WhCgZROzRSAzNpv5olQ15VMjAuX+t4
MpvOKzJQ72sVgyE/Hbe6XJpvuf7U2hoGtjIKP/nHAljN112y9VSviyebLS0W
EGLRN312E4M0hami0DIBZzjneHELg6kXqtMOVQgQiVLZuR0MrBsKtxQ+F+Ch
snq/MsNA2Y3/VvpSQPHcbftbeQajYnXys6oFLPbeZifdy8DMLtKmvYbWM//B
9rZ+BjqkNP3dOwHm0z46jBtksKNKb6ZMA+3fi/OZej8YhFVq7JneLMBK+oy9
lASLwa1MmGSrgFtbfZ/qSrNIGolPntou4Ojq+FAlORZlch6Skl0CVD5bXm9U
ZPH6/axZNYyAvIKaqz+UWWxTdTnRzFO9TUxrfKfK4p3drb40QcDsaH8iNYmF
8syvjbl9ArjEEAtuCotAE7VV/3wR4OY5WubxNBbWL3ze2w4IIHZB1z5qssjL
tZJYNSTg59P5wcWzWfxW8u2U4oiAWdvf6PbrssjQ7/4kLUEwqqRv7TgDFi0R
zro9kgTOyc7pjCELr+YxGZdlCF5n3WNVFrNY6mYz64QcwRMbq63fTFm47Fy0
eZEigd9N99VPwEI4fmxdvRKB/nR3RdaShavRybX3xxIEzE5VKP+Dhcm8s7yt
KsHz9c1t/da0HwvPVWlPJKhfenqush2LZwcOGHCTCLZlnXzQvp5F4xsDtZAp
BGPWbR+ruInFxZtvN2EqgeH+86m8E73vvTWmejqBkotpvsiVxeXpY4zXaRJI
7Hh+vd6Dxb7NAeukZxEEim9WPPBiMWv+/uUn5tD7eZ5lzT4stAMkySJdGl8y
QFziz6Ig7g0r0iOolB1KiQ6k/fij9YaOAcHNBTsMcvax+P2F/rzKBQQjjGZ/
bAiLLs2TrKkRgX9Z6ZmKQywmTRiT3bSI/L8fsOgx/LtDTDna5WN8xzHarxKj
4Z0mBMbH13TkhrPwNr2w8aUZweCrhNEdkSz08lPqnEGw8NZCrydnWahcW9mZ
b0Ewx8TOOCaKRb7fTAel5bT+L2vbH11k8cF+huTplQQFxvGV5xNYzNhVpNFk
ReB+82lk4VUWp+oGRJutCXJeBj1+f4OF+mQFvwobgnNHA/RS77BwCl65V9aO
4Iiz7d6aFBZt821V9tgTfC4+MPwwjYXUp9CgDAeC0DURmzszWLgpj3s41ZHG
i1HTkRaxOLjK1zV4M0HQX30Lm/JY2N09mJvsRLDGM11DtohFVaeGhLQLwXU2
15wvZWFz6bP3AjeCFL3l7/IqWIgVYubZuxO8in1o2VLJYuOO0oEET4JdkTtJ
XhWLTcvuleVuJ9C7pRjI17Aw/ntZneQOgsQwHW/Zelrv0Wk/TX0IItsuJDQ1
spCRvfWLtS9B1F9tt6VbWfw65tb+o/4EUw6F9Ha20/umoRbndhFstI9Oyehm
cc1pQO5cIM1n9YWlb3kWc9IuWGbvJTj8qlH5PqH7NaUrP2sf1fc+hZyGfhar
kiR7Gg4QNKUcv1Y0wOLnljNVdSFUD1fCvl8YZpEbwslXhBEsznaaKxKz0K9N
Umk6RPu55UR8rBQH7nB++rMjdH80o1srZDmYzBe7NB0jsEmZEd+pyKF+rd+U
thMEDgVDZ/OVOYi+H19fGE6w55vIpUuVQ36xQVpxBMH43BKfZ2ocsgO6hi9H
EniZWXNxUzi4mZ+x8D1D8LZdZJ43jYNhp2yZ61mCoom7a2M1Odw+9VpN7zw9
32/ssvLZ9HmUcRpRBIdO6E1v1eXAvjLyE0cTiGbHmmXqc9gcfjvpcSyBAmk3
aDTksFfWJuhyHK3fIswjbxGHtI2jAjZfIniaM+wrmHIYfXLb0oWJNJ/eQVbJ
nPKj5RNHXyE48dDiZpclja/OSGRcJXgc779QxYrD3TCTmkP/Euwdw44esObQ
qNOtN/cGQeuSNqunthzeiU3Cnt4k8IwucO9Zz+HnuQkvT9wm8A7qzn3myKE7
rf/EjCSCk2Ffue9OHDLGbjnSmEzgaHn09EQ3Doxz7ZyIFIKk6C07ezw4vI/w
njYxlUBFcZLWBG8OVo90dhbdJ/gxZob6gA+HC1orwlanE8S/TDpS7s8hwXxI
69kDAtuMCcVdgRz0cpzMPDNoPVqvlhbv42B+a+pgSyZBba5PtBDCoe/jxO37
Hv1v/zkoyRcNi7MJnHqJW+MxDsu2r/MOyCEY+Gq2dNTfdN4GDXsGcwlUw2s3
t0ZyeOqsfdg9n8BqyXoblXMcZilei+p6TGDw0PahQTQHFdZ4rWshQdzDixvk
4mh/b/8i5BYRqNeXVS9IpHpKWpesX0KgEbHk1MRrHEJvrSgML6X+Pfh7VtcN
Du4KK7xqywiunhknkk/i0DTxuaXpE4JPqcbfO1M4ZAb7OJ2ooPrrX6kyIZ1D
XkUF2/WU+tvAm0SDTA72Eg+KlzwnkA+/u01GxEF7+HTugUo6T1Ov0Xr5dH4W
8ktfvCDoC/HvVCri4JJxyVH6FfX34G9GjaUcbrSN3FxQRfmKu8twBQc5l8LY
oGqCTWvVy99WUn2vdf157TXdl5nZUqOqOQQsUbdpfUOgeOzq4a4aDpv2/Rk+
+i1B3b+j/UV1HBZnXLTRrKXnd9obNTdyeORwWdXhHYFmFmec18LB+enQrZ11
1H+SvSb2tHOo1ZcJjqun++Hs4SnPcIjR8j6f+57qJ+FubwvPQfPIn07lDQT2
4ncO8r0c/jI+GPyxkeCysHaA7+fwNTS8mGmi/pO4QjFvgENpdMzCrmaCTP8Z
A03DdB+VZ6l//UD975XVDJGYw+xTL2SEFuoP6zZodknxsPR0uT7QSrA1ujVW
Qo5H3aZTWoNtBCvcs63eKvLIrfKMbv9IYLkh8M2QMg/p+7bPPrQTFNcEX2pQ
5SE6yLuVd9B+7fMyUZrE4+x5bXFuJ63v/Rvr3zR4XEztabzTRbCzIiJBejqP
laFSkke6qX4btEv1tXjYDlVZeDMED/cr6Yyfw8NNPsjcjKX7Wxso0anLw+5D
vrccR99HjoVpcgY8rP2TS9soJ23beLnTkIehwaiCJJ76c9wb9wmLeRh9U9UL
7aH6iXgZP9+MR2WVWdgfnwjY0eOVZc15vDz50n6UQPAzCc76y3n029alP6Ec
9e5R91grHiEzDsmHEILGknsdH6x5+Don683pJVjyNjxHbMtj3Mb2/hbK03bd
f/F+PQ/djrvR4X1U74a52aM30XqYqerGnwliDo9r63HiYaL+gTRQLj3dHVLo
yoPQj4i9/dS/Cq4LHR484ozELZO/0H0ITr5a6sXj9kFeNo3yQ+eYOV99aH2d
r/zWfCVYOSKeqRrAo3RxQfpHylt0HjlxgTy+Odkq+HwjCA9et3P8fhr//rxH
Q5R/d1ycNxDCwzV7MgkdoO/7z5dDKg7x8Nrf8Wlw4H9+QPt9f1OHmPIvGYwq
d4zHsLreppBBAlnxQa48nOpBp1a/j7J6wFDcl0iaz9TlWTu/Uz+8+kWkfI72
u3GKqI3yLCcTtY4oHp+fjfvFeoj6kek2G8U4Oi+7F9o5lD3vNBbzCTyKTPJk
NIYJvr2uviO6yuOKPWwOUL4+I2Vb/Q0eyetdAhoov/xRvfXBHR69zh6m839Q
fxxpNGpO4ZFQXKMVSbnu7wVWJWk85lVV6DZStq2RfRGVweO3Sb6ftUdofstK
ZouyecQEruzdTblvydPimDw6381OPY8oa7hkGD4ppPO5Hr/1B+Uhs1/V2kt5
dC35bGP2k+r5zpvFORU0nkPy1D2Uqxb6LvhYySPn+PTQe5SfrFv/V1kVj99/
NTdsphygK1KNquEh1660Rl5Mv4fmSsZk1vH4OllR0YhyUOZFh7ONdB/Cn0ht
oVzjodKT38JDQ3teZxjl9teKX9+18/AsaW1JpBxYaWd2t5tHWeCb71mUNbhg
p2qeB+6ljn1JeUV0ryiN8EhaUJD3gXK4h7XQ1k/zad586xPl0D6tGIlBuq+Y
O2qQcp/C6uD6YR535LPrRijP6MgXi8U8JP8rhF78H2DOohQ=
              "]]},
            Annotation[#, "Charting`Private`Tag$17365#1"]& ], 
           TagBox[
            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
             Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
1:eJw1lnlUTmsbxptUipOEiIOEMqSUIRouFMcpCpVQB42aKCJDiAwh0dGsyEky
hFCnWXNKpVJRKkql9lD7KZok+p5vre/bf7x7/da71v3cw3Vfz1a289jmKCYi
IiIuKiLy33fzdEP6y+DSSe3iIr4b6yPXtNWLM4ha5mPMk24U6arclpBm0LPO
08ixrxuFLlvDWVkGPokk/9pQN7y3/xLNlGOgI62mGDPSjXXOQUbNCgySSwYq
xUQFXBtzoChLkcH5j/ayimMEfCvWnNk9nUFskFbpqbECZP88xIydzaDz6BvR
svEC7lqO9jSrMCjV+pn3Wl6Apf/Bt9JqDIIGlvHTpgi4aKTRwy1isEtr05wZ
SgLcct3OpGswWJKc1TRmpgAX20CmQZvGD67gMUdAZ+DwtX9XMjA2dZJRny/g
dPOm8W26DOxuXrzpslBACfn95wgY+C9U3hq4RMCNgNWLqgwZvDLOme2oJcB7
k97SgT8YsKuOrw9YIaAh4vKRdyYMJp7dKeO0WoCVTNbfUlsYNHcVGlwzEOC/
ev+s+RYM1joGf7+1TsDKARf+pxUDMdU4W/sNAkTqTK6r2TDY9EmYdsRYwJ+G
xw+O28vgq8IZaX1TAesPzCtqsqf1rDpyvXurAOvslJ7RfQy+VD7czFoK6I0M
3tXkxqBc3tU4eqeAOzcto2U9GbivjQiP/EuA2K4wM9XDDFZsnz/b11ZAe9yc
tSNHGTxrMxyc4SigeVKIzNyTDJ5fMfgl7kLz+e9zhsGApbZyjLuAS6VXA6rP
MVArbfpN3VNA1cMnTV/9GaxetN7yl5eAiElK7uUBDAIe3/S9fFTA8Ti3mqHr
DIRW9XprH9qfHOnjn4Jpf6s77zCnBQiRc4OehTO4Pc9s1h4/ATMi5/m+i6Lz
/VmSOP2igNcqhx4nxTAweG2QHXxZQFDN3eftdxn8PsG2f0ugAJl1FmpiDxhI
iMZeGAwSIKG35WN9AgNvXeOHu0IEKFovdRV7xsDU0KFaNELAozG7l39JYnDh
hskMpygBPQfGHkpOZXDisGJD8m0BW35GXnyfycD15oSzG2IFaCh6f3iew0C6
7fSOsHsC1LavlGgpoPkExmqoPRRQa370znAxg4iUKbPiHtN+fRTzqShjULRe
aXtzIp1XgJd6fyWDrU0fXayTaL5FGjPf1dD4qWfMw1MEsCpvO6TqGbisna+h
kCHAZ23vbNUmBuvjZwUefykgkLOJHG1m0OcZ0nAnV0Ba2hN2YTuDz115/ZKF
AuwnGh+TYxjI/P1b0JJiAXkLHY+18AxSbvSWrS0VoOPsuEWih4FsYmTajTe0
nqXPnT5/Y/Az5J+V8VUC1sxqtZAfovv1/uCpgRrav/K/k9VHGKTKlsho1QnY
KBG4TVyEhV1rl9HSBgH3bPeXLJJgUZvXOsf9owA/48iT46VZ7DlbpO/WImDi
V8PYRlkWaYedcre3CcjMrokZkWPR5eBRdrKD6m1KYuN7BRbPJaeoOrMCVEM8
iPhUFoyNx5zALgFctM9abjqLV3Y3Ro8SAXsdJMe8nMXCWfr+c7OvAsgW7zut
KiyMnvp37ukX8Ktk6Yk8VRaSZ2MmrRwSMN+petG3RSzO7znQtP6HANH8XlN5
TXp+orny2l8CbB7aPGO0aXzllOMSogRv/33MTtRhkXvggckvcYJXmzfaDuiy
eFZsmJ8rSXAgzs74FVh8PWZc7zmWQGO2nSxryCLM8Y7p9nEEnqpPZIr+oOeN
uXJ6jBxBqfnHz99MWJju/aTKyhPUG1xdKLeFxZzFZUoZkwgc/734vM2cRcdQ
ZaulIsG4rU4TZHew8HPWl5ynRKB97O8nvDXtd1LU9ZwZBON362al7WGhOXvd
+Y2zCERcSmPr7Vlc1HHKFp9D4DUaV/x8H4tsq7WHAubS/zMdCj+6sVjt7O1v
pErji3mO5nuwuNlRdr90AUGZ1HBCiBfNp7PxLhYTxGm5aKYfZXFWV6GrfQnB
T0blW5gPi4U7v5rvWErgUVgQWOzLwiHMa+4PbfI/P2ARMVy1d+YygpDdrZHt
52h/p684fXUFwarzm9oz/FlwEmYTu3UIhiqiJNsDWCiVf+/30SVYcW/FvlfX
WRirXoxr0CdQW71lVWgwi75El59qa2j9faZtKeEsAtiloXHrCLJXRZb9HcVi
vtgSmV4jAru4koCcGBalJYafXP4gSH/j/fLDXRa/DnWOq/6TIMjPU/3JfTqv
LazmuE0EZ23MjtQksMjPkb5z0JTga97xHy8S6bwe1Qc/3EJwctPlnV+SaD1v
/+yTNafxQhUXSKSxWOw1orLbksDbtXdFUyaL0/cce85ZEWxyeDZDKpeFwVJ3
xZqdBLFsxhq+gMW06uOuA9YECepG7zOLWSxXdUuQ2U1QEfbCsLmMRdXVKP0/
9hIcDHAnmZW0X9uaZXbaEajfk/Xia1gMpPxjdsOBIPrUAmepelpft/jKLCeC
gM83opoaWbCPK/ZnORMEu36Ol2hhYf3IdUKbK8F0X5+eL20sonS6r7e4E2zf
FpKQ1MmiYXj8m8oDNB/jGwa1PAsLmyle7Z4EZyoa5Z4SFoe/Soi+PUT1fVQm
veEb7a+Zm0rrYYKmhPN3cgdZpBypyyjzpnq4fer7jR8sjk0J9rt/jEAn1Xph
2igL20Ppn+JP0H7uuhAZJs5BR74i3fck3R+VkJZiKQ6Dr/WsfE4TbE5Qjvwi
yyHjIPPJ+QyBRfbw9Sw5DsPdk/o0/QgOD6Tt7lDg8NLCuFTpPMGkjHy314oc
tu19mtZ8gWCfngkXMZ2D7PzE+HB/gtq2tDWZszicWLDjL8/LBLlTDr0LU+Gw
bFWD5rwAev6BCeuKVOl5/Yaiw1cJfC+oz25ZxMHcqeNa3jWCNNUwvWQNDspO
ZuucgghkSJtmozaHA7civi+4Qetfe8o+cyWHcpFzu8uCCUrSf+wXdDnkut3/
dSWU5tMzxI5fw2FmaO9b/XCCCy/WxnUYchhwub2zMoLgZaTHiokbOUwySVE9
fZPgyDhWctCEg/FM0aXjogla9D9vLDHjoGEz1efaLQKHkGy7LnMOZVM/zFKP
IXD27sx4bcWhwWHGSMIdgoun+rnv1hw6Pj8+uCGWwMrQ7+qUvRxcahv52rsE
D0J2uXfZc4j43fWW0T2CibJT50525pA8+etIRTzByDhlpUE3Dqv7lyrqPiCI
fPPgbJEHh+zXJXrRDwnMkibndXhxSFsweYliAq1nboVB3lEOc0/oVx5+TPAu
wy1E8KHz6Ajw45/8f/85yJgYzbVIJLDuIXsbz3HYwLWujH9GMNivZyB6iUPl
Pv/w8S8IFPzf7WwJ4CB/6fXMnUkEG/XNN08M4lC/OlA5K5lA84XZC80QDq9n
6bpNSiGIeBFuKR3B0XvZ7O3WVAKl+sIqrWg672mL6u6lEcy4rH9lyh0O+y1W
H21Op/49tOzfjrscUg7X7ZTLJIgJlE8b+4DDmq7AsZZZBN1PVn3/ksBBc/5U
/bMvqf6+bZg4+RmHUr+RoPxs6m+D1dGayRwqom0GvucQjPV/5DgmjYNWn3/Z
1Dw6T919kupZHBirwz0m+QS9Ph5fxudyqLbw++VUQP39xMDyxgIOvvsLJhwv
pHzbbvePYg56snMTbhcR7DBVKqot4zDH2EjuySu6L3NSxUWraD15dVYVxQSy
52LOdNRweOp28HN9CUHdP5IeaXVUb0ZSDQ2v6flfti3/2MjhiPj5fqGUQOVf
blVmM41vbb6ku4z6z8N9U7raaPwgG36knO6Hjb3DWIZDU+X1bvEKqp+oRz3N
PIes/B6un/K20fcWY3s4ep/LPR2qJLglmA7y3ziEt4Z86qii/hO9XjZzkEMm
ydV585Yg2UN5sOkH1VfVz9iCaup/FRuV00Y5WIyt3xRfQ/1hq6VKhzgPG9Pa
gxG1BLYhLWEi0jz096tH+b0jWG+XurFWlkfDGDqg9wSGll7Vw3I8zuzJaUId
QV7NiZsNCjwMRqttFeppv47uWz1+Ko8VpRdm91OO/VBtsngGj3JFL9PKDwTu
xZejJGbzqIoeVxreQPXbMK9AYy6PFoPNtfsbCV4cG79gkhqP95dswrSa6P6+
8xL5sojH84rvUT2Uh6xyEqU1eZxPrQrM/Ej3x3H7rS/aPO74Xfp+5BP154hq
u8k6PI6csyzXa6b6ufwmcqkeD1uPD4UjlFnJSXJSa3hILo79/riF4NcD2GgY
8biqd3jQ+TP15/cpnRM28ohQrQyd3ErQmP+4/ZMJj668Y3OyKOvX+qePmvFI
TXdt3d9GMOvg0/IP5jxeXT/+fUI71bt2RqrkDh7+5RNeZ1MOPSP/ucuax8ke
2a27vxAUXO30ydnD49E0pXlDlGWyY4V2ex7uEctVojvoPpx4GFOwj4fx+s1X
tDppP2xC1frdeEjI3I+vprzh5+gcBU8e68TODbkzBLsWpFhzXjyyR/3thyn7
n9jqPukYj2jFPcNBLMEyK53MQR8eGa42Y6Zz9L7/esun2JfHr4zOHzHc//2A
h9al6ID7lH9LYhS4czx2yCdGq/MEUqOnuSJ/HoWuY7YnUlbyHI7oC+Ax7fhf
Zqu6qB/G9KXJBfFIsW9TzqY833q1YnswD72FQc9WdlM/0nXcLBvBY/7Nb2Lp
lB3uN+bxUTwu9kk5aQgEA2+r7qfF8Mg962nyD+VY5QTH+rs8SuLzfZUIwZuR
Ktvn93konSq0uUx54s/G5R8TeJQ+EtRGKddd0tqYn8ijt5AIrj1UTzVS5cFJ
PCymxV6uptyyLl81LZXHLpWp8Wt66f7rl+SFZvLY3p6/+R7lGbuTtF/l8NBd
c/r3CV8JhvV+V2wr4LHtilKKN+Ud96t10ot5XAqrc6mlXLliv1ZrGY+Zj9o+
rvxG76ut5q6FlTwW77qUeoOy56I0heAaHrXK8oSlrL1QLDS5jp6XLXlxQx/9
HkkOt7jeyMOzW0cqinKN/cSurGYeLup2EX2U297K9r9v4xF8UtXXuJ9+H5Zt
0XvUSfUdP74mgvIM7oR1FU/nG5fcyFNeH9KTlkh4yOcahK4coPO3NxE+f+NR
ETIhw5/yyd65oSJDPFwrV/nVUu6VMT5R/4OHUeqot9IggXJ71ujoKI+AnFJj
B8r/AUbWrPM=
              "]]},
            Annotation[#, "Charting`Private`Tag$17365#2"]& ], 
           TagBox[
            {RGBColor[1., 0.48627450980392156`, 0.], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQfV/aGUi+sG+QAdIn3tq7znR4fIP5hT2DwjzO66ff
2h+1Vp7HwgGU934y5c/5t/ZHMgOnv+R+Yf9gg8+t65ff2peF/WPczf/C/kD8
YuE519/aO2VMcLkvDNS/avPztbff2vex5h3dIw7UXzUjrOz+W/vPxw3k3kq/
sFd4aLCo+/Fbe27PohecCkD1hUozO5+/tV8c+v/DfWUg/zGroP3rt/ah7YUX
OTRe2DskWFY6vH9r3+ai/+GVNlD+5NLrPz+9tc8+kN2wUx8oX/Tz9Jxvb+0z
E3tf3DIG2mcldKrr11v7572/+raav7BfoFEyz/DfW/u6+z68j62B9s+X2a/E
9M7+xHvZv3/sX9gnvPfS/cv6zn5St5X2BWegf9bahk/kfGdf5mNj+M0dqJ5z
18M83nf2t2Z0ll71Bpqn9W4Om+A7+3CuPRPZA4DuMQj69UzknX27Va68WghQ
/Szlfxsk3tmbf8t8/TccqD5AT9JM5p09w3Xvfo0YID953ksmhXf2ns6VhTwJ
QPs6D7l1K7+zd81TPXonGej+hZ6m/9Te2Ufv2/bhfzrQfD2XT9u13tl/nDk5
6k420HyTdBk9vXf2C2aFzuEuALo/RTv8leE7e6aoaf7qJcDwULt4a4LpO/sn
S5Qc/5QD7btSt/GLxTv7+yJTuFRqgOadWLlmrs07+/8gUAu0j4Ghwd7unT0A
mXUIZg==
              "]], LineBox[CompressedData["
1:eJwVUgtMU2cULqWA8hxsWedcoAQVAiMCRnA6PLBOlBqXVthwgTCoFnUKJWVD
GCjSRNziA5iO2WFGh3WTIRsVmJiyFZlIoWKBDijjsQrM3AvsiDYgEmp3+JM/
N1++/3uckxsole+XcTkcThzd1a9j9ZQycNrhKNHHI/TVNYw9O8uA1Tuxei4B
4cprbx5/cI6BuBjXgngRQqHmmHmpnAFBYP3gyD6Ev/VrCicuMZAhcJJEShBQ
taGi8VvSL2tTPktGeEu1sWSwmnjPxecvUhC6gxQ3m2oI1xmqIBWhwnxNO32N
8u0+vl3pCO7vJYdwbzCgFvg/fEeKwHtXPG6pZ6A9fG1utgyBnxr5KbeR+qhs
nMkjCD+7pG/9t4n61AXO8Y8jzOesVTTfJtw7xdsuRxDbVWVDOsLr1m26qkDY
zM8f0eop/8VEafvnCCEfxfCsfxKfWhuyoRDhr6QT6uUu8rd0N+cVI3DGuUUP
jdRPGp9ZVoKw61xe+IKJ8PON2cNK6tu52X/QTP08TnnPnUFgg/ofu1mId1ov
2fkVQlH8U0HwGM2jKBsoPo9wYSZN5fiH3oui+0rKEVpbG9jQacr/r1+p/xrh
oJ+owIehfqbDwfe+QbgbKiuwzpI+OWax5QrCtiMyMW+e3ieoL01V0zyR2qxH
NvIbMzoPf48QFzCZ7LtE+cYPz7jU0v4eVDaHr9A8QQpWcB1hD+/CfmcOC3Ea
pavzDYTrmdmGMB7hXmtiQD2CUqQq9lrDwumUGh33FwS/Z8LaUQ8W1IGGZXMj
gu4Pc82KD/HDoqKJJoTp138dHXqV+Pd3u2t/Qwi+LH/i/AYLGcqz/m13EGau
FsXPrGeBExFzu7wNIeOQq8vvASy0v63Nl+gRnojz1ZNBLFi13kOiDoSXhsgv
7gYT7pn+zqsTYVPWQJgtjLBbtNDNgODU8fQD3wgWBCdvGbEHIa0urZHZQv4L
jhp1L0J/y03WbxvlR3nlfNmHcH/fnszFHaTvPWnfbkbI0UhF94H0/bEHxgZp
fwKpByukeXpE3bcsCLnBDe6du+k9f2A0eRShJ2n8kW0v+ektiWETCJad50N9
xKRv0MXOWxFkLWXaqSTKT8xqLZ1C8JRkveJxgHCs508JjxG2FFQ2zKaSv+li
pYVB8Erf0db6Ce07gj/38Sz9X0d7ai0HyT+heMQLEfIcmi7tYdJ3/PhD+Tzx
ukP3xo9RH6NJKLSRPzfX0SEnvXxrdOcCgtFtuf5yHuGqAFv0EoIm6mjEnROk
742qG1lGsDNBtqoi8q9YubjXTn6r5xTtv92DNb1E+B+5mhua
              "]], LineBox[CompressedData["
1:eJwdUwtMk2cU7SaPKTAMLx260Q6GwMQ9cGBX7K1ACArjqYDAHAIGVjo6QR6G
VQujKuLGrNitY5lEEJtU5lI2Le1gRYPCFEwoOEZJVsbz/3lc3VbB4WR3/smX
Pyfn3nPOvV8+Xo40+dDzHA5HROf//7OvmoEmU6Ew6TkEfk3cpOEkA9mRKX7j
dgjLA40Ok3UMWB/5RxQ7IoReCs2/Vc+APIedNa9FCHg3kX/+HAMizU6OvzNC
yN/xE9e+pH6Fh6r1RYQuvvrO2Ubi51qUy+sRclp6636+wADn7NW0CneEjv6y
zt+aqf4XVeysJ8IX1R8Ht12mPGH3TgVtRKjKSig1a8m/pbVN7Y3wZ/fRFd1V
6h+8WG/ZjPBJXO3+qXbSD5lp3u1Deuc3BNrpqZ8Nj9LwEMrED0PHjAyY9Ok1
o74IcXnfb3Y0kd5Jm9cOf4SLjEE0d5P4UEHnhwEI2uCo+8bbpGdO//VMEMKA
Shf5+x3CcQvi0a0Ih+skaLxH+LRx4ck2hOBLTiVzZga4AcNhu99C+EYWWOA4
Qv6WyWsnQhDqxpWNYxbyU7xt//U7COfE4612Vsqfwof7YQibjlc+mJogPtDD
OMtHSE1u0LbPEM9xT1oQUJ49SuHQHOUrtn/6khBBPmBx/Q5p/5W1PS+LEIrK
13WM/kV5CtJtMREIY9qaJtMS+Z9+TRcbhfDvt7LHyhWqT1RPiqIRdlzPDNKv
kp/v1itZMbTPDIVatYYF7pqHI4l7EG75NlhvO7Igr5AviOMQ3tPy1FNOLDT1
OYSXxyPs7fqn/idXwlfs7mYlIhx5pD8w7c5CNtdQlJ+M4GG4Udi3gbDk8s3Y
vQj54bHsV5tYsNq7bvdNRRia0IuMPixw/lidfSUdweRVPKzyJf/BQT/bfvIv
Wh/Rs4X6D9pWFjMRjiuCudbXqX5++4+W9xH0W1ThP7xB2Geov/kDhHU48aYl
hPA+F93nB2n+XbJcYxhhz6q8fbkIvR0rHy0KKO+8t0B4iPI8WGZcROSXl53k
nY+g0O1qmY4kXrrNxVyA0KmWhrrFEL4w6tMmRih1ZhyWYknvbkZ0ngTBunM8
pjeBBZOUV+tahJDX0JUzn0LzDZdkWaQIBWUzhr400l+76qY4jHBCZmMfZ7Ig
4qZejy9BSIusPuOVTfwBSYRzKYKmIUMyn0t6MsWnmjIEN6eNfp4F5JcsnMut
QHjizPNeKqT7eJVT+vQogrpfU9Ujpf1wlJ2fVSIktHt2T5cQn14vEchoHr8B
YXc58SPxL/QdQxg2FDYsVhJOuSE5Ikd49t6P0Xzd2uboKoT/AP2BDMA=
              "]], LineBox[CompressedData["
1:eJwdUwtMk1cULjgqjDVOQUKYURC3aQaRlwM28XRxuE6hzEJ9gtK6hqBmhdRM
VzZFlokd6DahUKBIgeHKw4nlVUGgWBQnYBUBlYdCFDr/HzlMYXVzwI7e5M/N
l+8733fP+e/1kspFMnsOh8On79X+eqUxkNrWWTqQhmCbWb/B7iQDI97+TQE/
ILik9+0cySD+HcmZiycQBGHRkUt+Jt4g7o84ieBniDL4ZTOg28y3H1YhaAy5
YkcNA5yagOVRGQge99pvBWgZMOUdfzKUibBMFfajm478ePt5kacRbr8Iqhsv
ZYDPJDOGnxCKTi02Oump/hupKfAXhKfnQ/8ZqyR8+5Ah9wxCzPNNS5ZWkz6k
caFbNoLc1qP1q2Ug/myuVaVGcEqvkDkYSa9vKR/NQWj+OIHre5n4YzfdozUI
f6XIx3gmOk+hxaLPQ7in/HvdoJn6GW0Zms4nfFa652UH4Rkf604twg6hx9Xe
TqovCLaVFiI8W9mwwO4W+c9ZDnGLEJy/L0odv0O48etYoQ7hbjFXbrxLen7A
VGYx5Y+J1g0PEj+SE/6oBMG7jgltesiAp6OvacWvCCXlCW4Tj0h/dI9cUYbQ
G7vvS6c/Sf9UoWs+h3CioGLqIUv9HufUTv6GIJrvj3Gaovlxn33xYTlC4aTQ
xj4nP06av6wCQasNd26yUX1XxLaMSoRauZdt6CX9H6/5vR1VCBE3BV7Geeq/
bErCnkeY3Sr2Hl/Ags6+u23VBQRJ9kgOx5GF+FnpBnE1Qri0QdDrzIKne33i
VxcRNooVPf8uYiE1VhqlNSC03VHmD7iwwPnu209qamhehxM+4rmzYAp12/+g
lvq737PFZ9krPs7Brh7hYIeq4A1P8lfK4nkNCFED75rXrqL8CYnI14hgOMJb
47qa/KuD44MvIVzvU3DGPmCBr57RhDYivNjeesHRj+rLCi3CJgS9bFvhWCAL
Ix5tXcLLCMmaHunSEPL7L3CzpJnuj6o7z3896V3AcqAF4QnXddFCPvVzuO+a
pBVhTg+xaz+lvIa5c4kmhKz+euvbAsoTuIri2hAGr1Q9frCF/Jafrvv8CkJY
b/ql+SjyS/NL+syMsCL596770ZTv45vn3073PbCxgbuD/N6yFftcRVCnLh6d
2E15We1y12sI5kxrSute0ucLN84QfrOlZPLxPsLDQYnjHfQelOVF5gSa3+R7
0+3XaR6x6tUzB6jeuiuu5g+ETbPzK12SaJ6R01X5NxB2ranfzSiIP1Zpn9SJ
kK7cetD1COVP3KiI6UII2h7SZEsh/6yuyve7EV6/96Ok5/Ad1IT/B6rUHLc=

              "]], LineBox[CompressedData["
1:eJwdz29IU1EYBvDbPrTK/oCRZig1iIIVSEoRqbxRSTbp360PkdUyG5VYSVYf
xEYEtdIPDdZoI2iQwSIhswldydSZrUJrm9NtuZabWwS70dtommhxe+rC4fLj
Oe9zztGcOC8aVIIgrML69///XZNpq9B3uPYDk1oxpl6bZBI2iFG7l2lF/Ywt
0yLT1S6V6YKPKebISEvMcOShY4efaU3VltykBc7RbJ87zHS9xLA7y4Y+tdY9
Cp90RtzyPfSdTi63Bpim/D6n5IBLdFf2jDA90LQZwq2Yb/5StmyU6f1vX3WH
E/mNijNDcPafyMZoGyxpb5mDTKGbRRX97TL16QPHy0NMewPqIYsL8yNiSwaO
betfKz3H+Z7ZwqdhpnTZW7f1BfJpOe/oR6b8Y65iTy/ySXtezhjTTGlBbuIV
3DEgvoMPOYc3d72BC3fqz0WYvJvOFk0M4vw52vkrPzF59h+oHfCi79clrxuu
XycttQSQ2+qq9VGmYq3K2hlC3pAqmPeZ6XLn3YO3I+g7NdbUCgdqsr91jyM3
Lnq0a5wp4c+aDCYwf8RrSsENg/tKH3+FKy+ajTHcN9VY5ZPhhfcz+XGm8js/
pHbG+3uCniewqabye/wn+lzP7LoJpqb0aqswjf2L1xvicHqBrjE8CzeLmroE
kybZrSgK7vNySlHgvxFPHLM=
              "]]},
            Annotation[#, "Charting`Private`Tag$17365#3"]& ], 
           TagBox[
            {RGBColor[0., 0.9568627450980393, 0.48627450980392156`], 
             AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData["
1:eJwVVnlYTWsfbS6lG+VmlmRKumXWwIoMqaSBDGUICZVUJGWekkRxmoRCFIlU
dJKL5og0CE23ufbg7DdKJdL3fv+c/aznfZ53r9/6rbX20d7uZe8qIyUlJS0t
JfX/Z8NYc/rLwH6hss+4IgmWx5i1fJFl4GHqGtj1VoICE52bckoMXN2SFUZ/
kCB/j10Uq8Kg4Z2GdXeFBH6Of6Sz1Rh0Bu49K/4kwdLdYcsaNBgoFAZsfFsj
wSX5fQUvRjKYGrW1+Mp/EnQVGU6QjGXQMdCrkdQsgcoqH2bIRAZtoazyvXYJ
7qwb7GzQYWAs9f6UEyfBuiDvcqXpDMYcleKdBQnOLTPo5PQY2DEeqzS/S+D+
2v1ElgGD0RGvF2X9kGCPSyhTM4fB4Z3VJok/JegI7b/0dAHl52IyzGZAgmMN
1qotJgy0eloMIS2gmIwf+A0GP46ox42WF3AlxFivzJyBkUj+TYqSAD9r01k9
KxkMCT3lEDJUQE108MEqKwby1zP/0hkmYL3yi3BFWwbOs8d7yI4QEGTsqTV1
LYMVvzq93o8UsKBnDz+wnsHJnj8X7McKkPpsdXm6M4OWmQectLQErDI/7D10
G4Nt0+LEiZMELN83paBuB4PWwwaJY6YKcHr5rHPQjcHKggU7P+oK+BZzdVOd
O4ONUz0uWeoLiL+27rrKfgYu51a9UZglQGZT5JppBxhMNh62OmWugNaESUt+
H2IQUNemM3yhgIYRIuXJRxhsfmSh9dxEwKZhduryJxhkLmlrnggB599eDKk4
zaCw8HW1z1IBZfdT6r4HUf0S+L+GrBAQPWKMx7sQBrIRul83rxJwOMG9su8y
gwmeAZY91lSfV0qH/7tK3+coKlxtK0CImRyWGsWgdK9eaZiDgHExU45XxTJw
fBvjpblewBsdn4fpcQwm6T5Tc94kIKzyzpPWOwy6Am6FtGwWoLx07XSZJAYP
rK9YOroIkDO1rf+SzOB+wRkheKeAkU6z9sqkMtjV2H3yj5uAB/Jb5rWlMzie
V+41111A574hPhmZDO7MuxDiuE+A7UDMuU/ZDBJ2OqeKvQUYjPSrfvKKgUFl
h1r9AQHTHRfINeYxqFMyyjbzF/DR4VB8fxGDXOuN1mGBdH/1MoGlJQwkhpKB
28fovkJ89X98oPs4xKh1n6R8CwwmVFUyGOp7OFPprABWp7xd8QsDVU8faafz
AgKXfJs4rY7BrJWvLsSECAjlnGMGG+h++13Drl8SIBansDNaGRTvd7SuCxew
Q93SX41hYLvCrr9RJCBnhqt/I8/g2TWpyoooAQt3u9rKdTLgrNsCpWLpPLOe
7GrqonlLPt/bdUOAmVbz2uF91N9HN56bdIvq9y48Q/831XPe9r5FCQIs5ELt
ZaVYqB9cojMxUcBdF89iPTkWL4zP+pk+EHDKMuaIqhKLGdWDvVopAtS/m9+u
VWERedxn5bfHArJfVsb9VmPxand8za806jfNx7WfNFiM5AYCS58KmCbyIrKj
WMgqLb5bLRbAXQ9cwo1l4Rp11T4lW8C2nQry/2qxuHHLaprXSwHE1i++WYfF
BKnqm7tzBPwpnhWQM43F1XjnQL18AVN3Veh16bE4GRe+eEqRAOncbzbDDVk8
35DdPPStAOf7zqnMHBa7XeQrXr4TUP70Iau+kEVRwu2X9z4IKFxt4dJjwmLF
yDr3jRUC9iVstywEi6lXpNv6P1L9Jm5XYc1ZLCvb5V/+WcD+aSnKBStZaJlZ
PvStEfDWob6py4qFyEaAZb2AL4svzlCzZWHWhE1qjQJcn5570uLAItdTuz++
WcBQu13DVDawOJCWpL6rTcAc//AU3omFzZrMKX0dAlS3mLwQb2Vh2OZy/zBH
/bXn7e0vO1gscR/I15cI8B1MKHrixuLixsKsx4SeZ+/Mr3dnEeLSF7rjO71f
Zv9grheLyokPU9u6BZQo9ieLfFmMs/K9ub5XQMLsPYZZh1hUzzYN6f8pYIDR
6YoMZMHnp9/1+C3AKz8vtOg4i0vDeQW1QQGiLc0xradZdOh/I/HSBEZnrFuf
B9Hz8mJORo6grzRWoTWExf3GoxYiBYL5d+e7FV5mIdaPmtmjRDDd2NYo4irV
91vCSQsVgjndNi3PoljUeSxxfqNK8NIopiQ8lsWwhkfXxg4j2J5QHPIqjkVf
YG9SrDpB1nu/f6vvsDBWvdeu8jdB2Kn9+imJLEIzNu21GUlw0nnNwcpk6scH
h+v/HU3wPefwr7THLDz3QFlqHMER6+CNbeksPnzy9N43gd4XMVJXTsyiX17d
9f1EAr+93+bXZbPYXBjdPTiJwHpn6jjF1yyGi2c0bJ5CcJt9bsbnsfBTsKm+
PI0gWX/Zp+wiFhV5y1em6xKURqaZN5SwWLTl7gLpmQTeIR4k+wML5cg89cn/
EOjfVfHlK1ncjfV5ud+Q4PpR3d2KX1hcOzc37tFsgpCmK7F1tSx+j3awzJ1L
cHVv0z25RhZbTaq5P/MJxh4P7GxrYTFWdkLxcCMCR3tRcnoHi0wvk1eaJpSP
5ZXFH3kWP1e5fDZfRHCitFbtEWFRUhEnZwGCfYeUs2q6WCTNuZLgu4SgLvlM
/OteFruiqkr8zAkGbh79eeUXi+YRq3d7LCdYmOk0QzxI73dPTzi/kuq56WxM
pCyHpQnGZkdXERTqiBqLFDloFKeWRlkRrE7WjmlT4RAdXBKZsJpg7cv+yy/U
OHg7tsdcWENwoEe8pV2Dnv+zIjvCjmDE81z3NyM55MycfT7AgcDN1IqLHsuB
aar3sl9H8LFFbJatxeFym0KSzXqC15o+VZE6HI7ekNk2ZSN9/75hSwumcbC2
inyl5URw/Kz+xEY9DscuPZRS3UwgnhZpmmHAYYRsSkzVFgJl0mJYO4fDpYd9
yjnb6PxLju7IXsAhf0vV0vPbCYqzfnkKJhxm99Yne++kfDr7WFUzDkbTyxxs
dhGcTVuS0G7OIabAOEZxN8G/MV7z1S04+B7+vrR5D8HBoaxCrxWHtMtGfTHu
BI2LmiyK13BoNbhevNyTYKfo5favDhxGxW5doO5FsNuv4/mb9Rzul6adeLGf
4NzRH9xPJ8rHp7/gnA/BevNTFzW3cbjHd3cuO0CQJNrk8XUHh6DXTcVNBwnU
VUZN/ns3hwXTB6puHCL4PVR7TK87h6lOtb8WHiaIeZ90ssCLQ/zA8IbiAII1
6X/ntPtyCDZKWHDoCJ1ncuninEMc9E9b+cofI6h67i4SAjnIKLade3Kc4Iva
eSelExxcx/81xf4kgVMn2VZ7msOHG899K08R9P4wXSx9noNhuEqN9xkCjaCq
jY0hHL6eNdj07SyBxSKH1ephHKSYXsfQIALDtDVphiIOEsko4wnBBNFpUeuU
ojnY7zspE36BYMyX/LLZ1zmk3z94QesiwbjgRRc04znMvai0LSyUoLxv7tP2
Oxw+7U362nOJIC50uHhIEp03LfGUfxiBJMXoZ1syhxvlO3Xrw6n/ulao/53K
4aez/DLnqwRevRXXDTOo/4bO7CgTEQwJeuAqL+bgtq9sm24k3aeJm4L+Cw77
1q+Ojo0i+Bbo1ab6mkOKTpbK92iqR0DPvNo8DmdWiSoWX6P45vYtv4o4LJJo
JiXEEmywGVPwsYRD29gqP3Kd5mVSpqx0GQd/Xf98+5sEKqfjTrRXUr94R3jF
xhF8vqXgJf7MwdZpaH5NPH1/m/28+loOn9dn8LNuE+g85YyyGzgUqt/W87pD
++e+m+bXFg63pGuf5CXQfDjv2DmE4RBZOTfzr3vUP7EPOht4DreXFYSbJRLY
D35aO6STw+JRIsXgJIIbgk0v38VhjL8oXXyf9s/15SrZvRzG56THNzwgyPDS
7q37xWHlYOaZcQ9p/5VaaIsHOdQlmjssSaH9YLdOp12Wx6GvH8MDHxG4iBoj
pZR4nJnexz58TLB8e6bFRxUew0dXNxemEpiv863oV+Ph4G6Z9OMJQU5lwLUa
DR4vjst5qKZTvQ65GauO4mE+7qK/UQadr7rCauY4HqpuLt3OTwk8ioJj5Sby
qDG9or33GfVvzZQ8g8k8xgeP7ruQSZDmr6o7YjqPW2O7aiPENL9VvlJtejx+
6Q3viM6i36P1rx4rGfLoDrwg8/g5zY+r4422OTxu7MmpepxN+zm6YvvfC3lE
yxaY5L2g/gl+HzPLlEfqhwd3S/8lYBVGqCma8ZD/R8+34CXBnyQ4GyzjwVTl
mpS+ov386VnHMAseDSomr3NfE9TmPmz9z4qHyEnv5+McgkUfg7IG1/CYtack
9lEugZb3o3fVDjywOexGTB71+5znmQobePSOfxgekU8QcWJ401cnHpt2HDc5
VkCQd7Ej8NVWHo0Pf7dvLaT99fK20LqDxzkZ5167IpqHgPtxeW48vPiNm2cV
Uz2cI6b/cOchM3N8xsQ3BCsGBidp7OchREyQKL0l2KT7zInz5REu+3RcA8VB
AXYeI/x5jHI1eJJfQjB3/cLs3kDK9/WPS9HvCETfbwQWHefxs82n2/U9wV/p
jAZ3mscws56FS0sJFAePcQVBPMqDlm9V/UDn2d8f3R3Co32SuKed4sa4brFa
GI8NbGlfVhmhvWQ8svUqjy3Kw/yOlNP+MXFdrRLNw0/TqtG6gvZjYm0OH0v9
MOPMCNVKgp7yskRxHA/LbA27Iopvaye7frnDQz/V/PeljwTvf5e5PEnkYRN2
RmZlFe3Dgdp59ck8qsSP1IZ+ovk6P9si9zEPBY+O/ByK11QqvruazkNzYlyx
92fKb2nuNHEmj7m32A3/fKF5X1ScE5HN493l3Al1FI/bkj6n8BWPyU65QyOr
CfpNx49syeOx+FS7gWUN9W9ixcKsIqrXivuanRR/mO85u7mER6b5vJRbtfT7
ZOewN/8Dj0czvG2X1xHs1xNrXK3kcXDe4PMWiufMkInI+Myjz/Ho9tB6+v8j
I2rt5Voeo+0yruv+R1C5Q/3riwYe8yyjnpZR3FKu8uNTC81fYOoxnwYC3xJb
0wcdNE+BXdsUGylfLsCpjOcxf+rkJ/coXi7qFD8mdP7TD7YaNdF977ASmrp4
TP1tqv2J4iPfJkdI9fH4YDPis2cznV/ZMuDLL8r/aIPnT4q1W18MDg7y0Dat
WXipheB/k3qOBQ==
              "]]},
            Annotation[#, "Charting`Private`Tag$17365#4"]& ], {}}, {}}, 
         InsetBox[
          TemplateBox[{
            RowBox[{"OO", "(", 
              TagBox["x", HoldForm], ")"}], 
            RowBox[{"OOOO", "(", 
              TagBox["x", HoldForm], ")"}], 
            RowBox[{
              RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                   RowBox[{"-", "1"}], ")"}], 
                 TemplateBox[{
                   RowBox[{
                    TagBox["x", HoldForm], " ", "\:01a7S"}]}, "Floor"]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"\:1586\:1587", "(", 
                    TemplateBox[{
                    RowBox[{"(", 
                    RowBox[{
                    TagBox["x", HoldForm], " ", "\:01a7S"}], ")"}], "1"}, 
                    "Mod"], ")"}], "-", "0.5`"}], ")"}]}], "+", "0.5`"}], 
            TemplateBox[{
              RowBox[{"FabiusF", "(", 
                TagBox["x", HoldForm], ")"}]}, "Abs"]},
           "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], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1., 0.48627450980392156`, 0.]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1., 0.48627450980392156`, 0.]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0., 0.9568627450980393, 0.48627450980392156`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[
                    0., 0.9568627450980393, 0.48627450980392156`]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False], TraditionalForm]& ),
           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[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
                    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[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.48627450980392156`, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666667, 0.3241830065359477, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1.`", ",", "0.48627450980392156`", ",", "0.`"}], 
                    "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.48627450980392156`, 0.]; 
                    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[1., 0.48627450980392156`, 0.], Editable -> False,
                     Selectable -> False]}], "]"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0.9568627450980393, 0.48627450980392156`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0., 0.6379084967320262, 0.3241830065359477], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    
                    RowBox[{"0.`", ",", "0.9568627450980393`", ",", 
                    "0.48627450980392156`"}], "]"}], 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., 0.9568627450980393, 0.48627450980392156`]; 
                    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., 0.9568627450980393, 0.48627450980392156`], 
                    Editable -> False, Selectable -> False]}], "]"}]}], "}"}],
                 ",", 
                RowBox[{"{", 
                  RowBox[{
                    TagBox[#, HoldForm], ",", 
                    TagBox[#2, HoldForm], ",", 
                    TagBox[#3, HoldForm], ",", 
                    TagBox[#4, 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[
          Rational[1, 2], 0.5],
        Axes->{False, False},
        AxesLabel->{None, None},
        AxesOrigin->{0.75, 0.930555556043837},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        ImagePadding->All,
        ImageSize->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.75, 0.875}, {0.930555556043837, 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], 
                Dashing[{0, Small}]], 
               Line[CompressedData["
1:eJw1lnlYTmvbxtOgSTsKkbapQtop2qGBs4QdSUmE2pWKstNAhAYz7cQ2NChl
2MaSFJWeBs0JoUhKg0rTGrLuEkrJ893ve3zv88ezjt+x1nHd13Be51oz3P3t
t0lKSEhIjZKQ+M+1ZYol/WfQ8N+rgBXx5u31UgzE067I10kJKDfVvCItx2B4
dUf0D1kBZTvWXWQVGfikr2moUxQQtPHnqDxlBodcb6gmKgtY5n1ueYsqgwvJ
Gd2pqgL+kfErz1djkBUctzFITUB/hcHUT1MY+LUZXI+cIkBx1W5GfjoDp10z
4yOmCbixQdzboskguF1mHDQFbAjf9VpuDoMiV+MD5rMFnFyu38vp0vOf3ar7
PleAT5HP4Rx9Bq92f69MnCdgx9YzTIMhg3UmKs9PLRDQfWbon6xFDCR09lyZ
v1DAwZY1Su2mDPKuaBTONBHwlPw68gMM/hVW640sEXAh0kS32pKB1v0ljuct
aH1rzOZ/+4PWL5fb5rdCQENcxN5aawZrdIXE0asEOCrkn5e1Y/Crgf1Q1xoB
4Sa+02Y5MLgfr/kz3U7Aom87+BFHBhF28yYvdBAgUWd9do4zg4ceV1jJTQJW
WR7YNcaNxjtVsjLSifbfT7u8yYPO499VRj9dBDgVPOoVezHomrf8c7a7gL74
qC1NPgwYQy+NedsFXLu0IVExgD7voevI7RAguSXWdvYeBgWzXjec8xXQcXOm
xY99DK6/PfjgS4CAlvHRClqhDMZWJN+7vIfm85/fYQaX0s+MiPcJ+Pv56cg3
x2h/XM9s3xgioDo5telzOINmmVUJPQcFxI1X3/kikoHnsMx+i6MCDtz0qRk8
y2Cryt3a9ydofwrlDnyIYlD+fcRufoQAIV7rXPpFOh+Pu457TgvQiNc+VJvA
QKTUOfD9rIBnmrvvZVxl8IdaUiyiBJyrufGg4wadt3vN2IpYAQrLHOZIJjFA
Q9ZL40sCpM3smutTGMy29fT3vSxAzWn+X5LpDKq1esVt1wTclXEx6sxgcLT8
Oqd2U0Cvn/zuzGwGf+qVSJrcEWA3En/yXR49L3OMZuJdAfpqQe8fFDKIPpoZ
VpQqYM7GRdKtpQy2tTIztR4IeLt+37WhCgZROzRSAzNpv5olQ15VMjAuX+t4
MpvOKzJQ72sVgyE/Hbe6XJpvuf7U2hoGtjIKP/nHAljN112y9VSviyebLS0W
EGLRN312E4M0hami0DIBZzjneHELg6kXqtMOVQgQiVLZuR0MrBsKtxQ+F+Ch
snq/MsNA2Y3/VvpSQPHcbftbeQajYnXys6oFLPbeZifdy8DMLtKmvYbWM//B
9rZ+BjqkNP3dOwHm0z46jBtksKNKb6ZMA+3fi/OZej8YhFVq7JneLMBK+oy9
lASLwa1MmGSrgFtbfZ/qSrNIGolPntou4Ojq+FAlORZlch6Skl0CVD5bXm9U
ZPH6/axZNYyAvIKaqz+UWWxTdTnRzFO9TUxrfKfK4p3drb40QcDsaH8iNYmF
8syvjbl9ArjEEAtuCotAE7VV/3wR4OY5WubxNBbWL3ze2w4IIHZB1z5qssjL
tZJYNSTg59P5wcWzWfxW8u2U4oiAWdvf6PbrssjQ7/4kLUEwqqRv7TgDFi0R
zro9kgTOyc7pjCELr+YxGZdlCF5n3WNVFrNY6mYz64QcwRMbq63fTFm47Fy0
eZEigd9N99VPwEI4fmxdvRKB/nR3RdaShavRybX3xxIEzE5VKP+Dhcm8s7yt
KsHz9c1t/da0HwvPVWlPJKhfenqush2LZwcOGHCTCLZlnXzQvp5F4xsDtZAp
BGPWbR+ruInFxZtvN2EqgeH+86m8E73vvTWmejqBkotpvsiVxeXpY4zXaRJI
7Hh+vd6Dxb7NAeukZxEEim9WPPBiMWv+/uUn5tD7eZ5lzT4stAMkySJdGl8y
QFziz6Ig7g0r0iOolB1KiQ6k/fij9YaOAcHNBTsMcvax+P2F/rzKBQQjjGZ/
bAiLLs2TrKkRgX9Z6ZmKQywmTRiT3bSI/L8fsOgx/LtDTDna5WN8xzHarxKj
4Z0mBMbH13TkhrPwNr2w8aUZweCrhNEdkSz08lPqnEGw8NZCrydnWahcW9mZ
b0Ewx8TOOCaKRb7fTAel5bT+L2vbH11k8cF+huTplQQFxvGV5xNYzNhVpNFk
ReB+82lk4VUWp+oGRJutCXJeBj1+f4OF+mQFvwobgnNHA/RS77BwCl65V9aO
4Iiz7d6aFBZt821V9tgTfC4+MPwwjYXUp9CgDAeC0DURmzszWLgpj3s41ZHG
i1HTkRaxOLjK1zV4M0HQX30Lm/JY2N09mJvsRLDGM11DtohFVaeGhLQLwXU2
15wvZWFz6bP3AjeCFL3l7/IqWIgVYubZuxO8in1o2VLJYuOO0oEET4JdkTtJ
XhWLTcvuleVuJ9C7pRjI17Aw/ntZneQOgsQwHW/Zelrv0Wk/TX0IItsuJDQ1
spCRvfWLtS9B1F9tt6VbWfw65tb+o/4EUw6F9Ha20/umoRbndhFstI9Oyehm
cc1pQO5cIM1n9YWlb3kWc9IuWGbvJTj8qlH5PqH7NaUrP2sf1fc+hZyGfhar
kiR7Gg4QNKUcv1Y0wOLnljNVdSFUD1fCvl8YZpEbwslXhBEsznaaKxKz0K9N
Umk6RPu55UR8rBQH7nB++rMjdH80o1srZDmYzBe7NB0jsEmZEd+pyKF+rd+U
thMEDgVDZ/OVOYi+H19fGE6w55vIpUuVQ36xQVpxBMH43BKfZ2ocsgO6hi9H
EniZWXNxUzi4mZ+x8D1D8LZdZJ43jYNhp2yZ61mCoom7a2M1Odw+9VpN7zw9
32/ssvLZ9HmUcRpRBIdO6E1v1eXAvjLyE0cTiGbHmmXqc9gcfjvpcSyBAmk3
aDTksFfWJuhyHK3fIswjbxGHtI2jAjZfIniaM+wrmHIYfXLb0oWJNJ/eQVbJ
nPKj5RNHXyE48dDiZpclja/OSGRcJXgc779QxYrD3TCTmkP/Euwdw44esObQ
qNOtN/cGQeuSNqunthzeiU3Cnt4k8IwucO9Zz+HnuQkvT9wm8A7qzn3myKE7
rf/EjCSCk2Ffue9OHDLGbjnSmEzgaHn09EQ3Doxz7ZyIFIKk6C07ezw4vI/w
njYxlUBFcZLWBG8OVo90dhbdJ/gxZob6gA+HC1orwlanE8S/TDpS7s8hwXxI
69kDAtuMCcVdgRz0cpzMPDNoPVqvlhbv42B+a+pgSyZBba5PtBDCoe/jxO37
Hv1v/zkoyRcNi7MJnHqJW+MxDsu2r/MOyCEY+Gq2dNTfdN4GDXsGcwlUw2s3
t0ZyeOqsfdg9n8BqyXoblXMcZilei+p6TGDw0PahQTQHFdZ4rWshQdzDixvk
4mh/b/8i5BYRqNeXVS9IpHpKWpesX0KgEbHk1MRrHEJvrSgML6X+Pfh7VtcN
Du4KK7xqywiunhknkk/i0DTxuaXpE4JPqcbfO1M4ZAb7OJ2ooPrrX6kyIZ1D
XkUF2/WU+tvAm0SDTA72Eg+KlzwnkA+/u01GxEF7+HTugUo6T1Ov0Xr5dH4W
8ktfvCDoC/HvVCri4JJxyVH6FfX34G9GjaUcbrSN3FxQRfmKu8twBQc5l8LY
oGqCTWvVy99WUn2vdf157TXdl5nZUqOqOQQsUbdpfUOgeOzq4a4aDpv2/Rk+
+i1B3b+j/UV1HBZnXLTRrKXnd9obNTdyeORwWdXhHYFmFmec18LB+enQrZ11
1H+SvSb2tHOo1ZcJjqun++Hs4SnPcIjR8j6f+57qJ+FubwvPQfPIn07lDQT2
4ncO8r0c/jI+GPyxkeCysHaA7+fwNTS8mGmi/pO4QjFvgENpdMzCrmaCTP8Z
A03DdB+VZ6l//UD975XVDJGYw+xTL2SEFuoP6zZodknxsPR0uT7QSrA1ujVW
Qo5H3aZTWoNtBCvcs63eKvLIrfKMbv9IYLkh8M2QMg/p+7bPPrQTFNcEX2pQ
5SE6yLuVd9B+7fMyUZrE4+x5bXFuJ63v/Rvr3zR4XEztabzTRbCzIiJBejqP
laFSkke6qX4btEv1tXjYDlVZeDMED/cr6Yyfw8NNPsjcjKX7Wxso0anLw+5D
vrccR99HjoVpcgY8rP2TS9soJ23beLnTkIehwaiCJJ76c9wb9wmLeRh9U9UL
7aH6iXgZP9+MR2WVWdgfnwjY0eOVZc15vDz50n6UQPAzCc76y3n029alP6Ec
9e5R91grHiEzDsmHEILGknsdH6x5+Don683pJVjyNjxHbMtj3Mb2/hbK03bd
f/F+PQ/djrvR4X1U74a52aM30XqYqerGnwliDo9r63HiYaL+gTRQLj3dHVLo
yoPQj4i9/dS/Cq4LHR484ozELZO/0H0ITr5a6sXj9kFeNo3yQ+eYOV99aH2d
r/zWfCVYOSKeqRrAo3RxQfpHylt0HjlxgTy+Odkq+HwjCA9et3P8fhr//rxH
Q5R/d1ycNxDCwzV7MgkdoO/7z5dDKg7x8Nrf8Wlw4H9+QPt9f1OHmPIvGYwq
d4zHsLreppBBAlnxQa48nOpBp1a/j7J6wFDcl0iaz9TlWTu/Uz+8+kWkfI72
u3GKqI3yLCcTtY4oHp+fjfvFeoj6kek2G8U4Oi+7F9o5lD3vNBbzCTyKTPJk
NIYJvr2uviO6yuOKPWwOUL4+I2Vb/Q0eyetdAhoov/xRvfXBHR69zh6m839Q
fxxpNGpO4ZFQXKMVSbnu7wVWJWk85lVV6DZStq2RfRGVweO3Sb6ftUdofstK
ZouyecQEruzdTblvydPimDw6381OPY8oa7hkGD4ppPO5Hr/1B+Uhs1/V2kt5
dC35bGP2k+r5zpvFORU0nkPy1D2Uqxb6LvhYySPn+PTQe5SfrFv/V1kVj99/
NTdsphygK1KNquEh1660Rl5Mv4fmSsZk1vH4OllR0YhyUOZFh7ONdB/Cn0ht
oVzjodKT38JDQ3teZxjl9teKX9+18/AsaW1JpBxYaWd2t5tHWeCb71mUNbhg
p2qeB+6ljn1JeUV0ryiN8EhaUJD3gXK4h7XQ1k/zad586xPl0D6tGIlBuq+Y
O2qQcp/C6uD6YR535LPrRijP6MgXi8U8JP8rhF78H2DOohQ=
                "]]}, "Charting`Private`Tag$17365#1"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[1.6], 
                Dashing[{0, Small}]], 
               Line[CompressedData["
1:eJw1lnlUTmsbxptUipOEiIOEMqSUIRouFMcpCpVQB42aKCJDiAwh0dGsyEky
hFCnWXNKpVJRKkql9lD7KZok+p5vre/bf7x7/da71v3cw3Vfz1a289jmKCYi
IiIuKiLy33fzdEP6y+DSSe3iIr4b6yPXtNWLM4ha5mPMk24U6arclpBm0LPO
08ixrxuFLlvDWVkGPokk/9pQN7y3/xLNlGOgI62mGDPSjXXOQUbNCgySSwYq
xUQFXBtzoChLkcH5j/ayimMEfCvWnNk9nUFskFbpqbECZP88xIydzaDz6BvR
svEC7lqO9jSrMCjV+pn3Wl6Apf/Bt9JqDIIGlvHTpgi4aKTRwy1isEtr05wZ
SgLcct3OpGswWJKc1TRmpgAX20CmQZvGD67gMUdAZ+DwtX9XMjA2dZJRny/g
dPOm8W26DOxuXrzpslBACfn95wgY+C9U3hq4RMCNgNWLqgwZvDLOme2oJcB7
k97SgT8YsKuOrw9YIaAh4vKRdyYMJp7dKeO0WoCVTNbfUlsYNHcVGlwzEOC/
ev+s+RYM1joGf7+1TsDKARf+pxUDMdU4W/sNAkTqTK6r2TDY9EmYdsRYwJ+G
xw+O28vgq8IZaX1TAesPzCtqsqf1rDpyvXurAOvslJ7RfQy+VD7czFoK6I0M
3tXkxqBc3tU4eqeAOzcto2U9GbivjQiP/EuA2K4wM9XDDFZsnz/b11ZAe9yc
tSNHGTxrMxyc4SigeVKIzNyTDJ5fMfgl7kLz+e9zhsGApbZyjLuAS6VXA6rP
MVArbfpN3VNA1cMnTV/9GaxetN7yl5eAiElK7uUBDAIe3/S9fFTA8Ti3mqHr
DIRW9XprH9qfHOnjn4Jpf6s77zCnBQiRc4OehTO4Pc9s1h4/ATMi5/m+i6Lz
/VmSOP2igNcqhx4nxTAweG2QHXxZQFDN3eftdxn8PsG2f0ugAJl1FmpiDxhI
iMZeGAwSIKG35WN9AgNvXeOHu0IEKFovdRV7xsDU0KFaNELAozG7l39JYnDh
hskMpygBPQfGHkpOZXDisGJD8m0BW35GXnyfycD15oSzG2IFaCh6f3iew0C6
7fSOsHsC1LavlGgpoPkExmqoPRRQa370znAxg4iUKbPiHtN+fRTzqShjULRe
aXtzIp1XgJd6fyWDrU0fXayTaL5FGjPf1dD4qWfMw1MEsCpvO6TqGbisna+h
kCHAZ23vbNUmBuvjZwUefykgkLOJHG1m0OcZ0nAnV0Ba2hN2YTuDz115/ZKF
AuwnGh+TYxjI/P1b0JJiAXkLHY+18AxSbvSWrS0VoOPsuEWih4FsYmTajTe0
nqXPnT5/Y/Az5J+V8VUC1sxqtZAfovv1/uCpgRrav/K/k9VHGKTKlsho1QnY
KBG4TVyEhV1rl9HSBgH3bPeXLJJgUZvXOsf9owA/48iT46VZ7DlbpO/WImDi
V8PYRlkWaYedcre3CcjMrokZkWPR5eBRdrKD6m1KYuN7BRbPJaeoOrMCVEM8
iPhUFoyNx5zALgFctM9abjqLV3Y3Ro8SAXsdJMe8nMXCWfr+c7OvAsgW7zut
KiyMnvp37ukX8Ktk6Yk8VRaSZ2MmrRwSMN+petG3RSzO7znQtP6HANH8XlN5
TXp+orny2l8CbB7aPGO0aXzllOMSogRv/33MTtRhkXvggckvcYJXmzfaDuiy
eFZsmJ8rSXAgzs74FVh8PWZc7zmWQGO2nSxryCLM8Y7p9nEEnqpPZIr+oOeN
uXJ6jBxBqfnHz99MWJju/aTKyhPUG1xdKLeFxZzFZUoZkwgc/734vM2cRcdQ
ZaulIsG4rU4TZHew8HPWl5ynRKB97O8nvDXtd1LU9ZwZBON362al7WGhOXvd
+Y2zCERcSmPr7Vlc1HHKFp9D4DUaV/x8H4tsq7WHAubS/zMdCj+6sVjt7O1v
pErji3mO5nuwuNlRdr90AUGZ1HBCiBfNp7PxLhYTxGm5aKYfZXFWV6GrfQnB
T0blW5gPi4U7v5rvWErgUVgQWOzLwiHMa+4PbfI/P2ARMVy1d+YygpDdrZHt
52h/p684fXUFwarzm9oz/FlwEmYTu3UIhiqiJNsDWCiVf+/30SVYcW/FvlfX
WRirXoxr0CdQW71lVWgwi75El59qa2j9faZtKeEsAtiloXHrCLJXRZb9HcVi
vtgSmV4jAru4koCcGBalJYafXP4gSH/j/fLDXRa/DnWOq/6TIMjPU/3JfTqv
LazmuE0EZ23MjtQksMjPkb5z0JTga97xHy8S6bwe1Qc/3EJwctPlnV+SaD1v
/+yTNafxQhUXSKSxWOw1orLbksDbtXdFUyaL0/cce85ZEWxyeDZDKpeFwVJ3
xZqdBLFsxhq+gMW06uOuA9YECepG7zOLWSxXdUuQ2U1QEfbCsLmMRdXVKP0/
9hIcDHAnmZW0X9uaZXbaEajfk/Xia1gMpPxjdsOBIPrUAmepelpft/jKLCeC
gM83opoaWbCPK/ZnORMEu36Ol2hhYf3IdUKbK8F0X5+eL20sonS6r7e4E2zf
FpKQ1MmiYXj8m8oDNB/jGwa1PAsLmyle7Z4EZyoa5Z4SFoe/Soi+PUT1fVQm
veEb7a+Zm0rrYYKmhPN3cgdZpBypyyjzpnq4fer7jR8sjk0J9rt/jEAn1Xph
2igL20Ppn+JP0H7uuhAZJs5BR74i3fck3R+VkJZiKQ6Dr/WsfE4TbE5Qjvwi
yyHjIPPJ+QyBRfbw9Sw5DsPdk/o0/QgOD6Tt7lDg8NLCuFTpPMGkjHy314oc
tu19mtZ8gWCfngkXMZ2D7PzE+HB/gtq2tDWZszicWLDjL8/LBLlTDr0LU+Gw
bFWD5rwAev6BCeuKVOl5/Yaiw1cJfC+oz25ZxMHcqeNa3jWCNNUwvWQNDspO
ZuucgghkSJtmozaHA7civi+4Qetfe8o+cyWHcpFzu8uCCUrSf+wXdDnkut3/
dSWU5tMzxI5fw2FmaO9b/XCCCy/WxnUYchhwub2zMoLgZaTHiokbOUwySVE9
fZPgyDhWctCEg/FM0aXjogla9D9vLDHjoGEz1efaLQKHkGy7LnMOZVM/zFKP
IXD27sx4bcWhwWHGSMIdgoun+rnv1hw6Pj8+uCGWwMrQ7+qUvRxcahv52rsE
D0J2uXfZc4j43fWW0T2CibJT50525pA8+etIRTzByDhlpUE3Dqv7lyrqPiCI
fPPgbJEHh+zXJXrRDwnMkibndXhxSFsweYliAq1nboVB3lEOc0/oVx5+TPAu
wy1E8KHz6Ajw45/8f/85yJgYzbVIJLDuIXsbz3HYwLWujH9GMNivZyB6iUPl
Pv/w8S8IFPzf7WwJ4CB/6fXMnUkEG/XNN08M4lC/OlA5K5lA84XZC80QDq9n
6bpNSiGIeBFuKR3B0XvZ7O3WVAKl+sIqrWg672mL6u6lEcy4rH9lyh0O+y1W
H21Op/49tOzfjrscUg7X7ZTLJIgJlE8b+4DDmq7AsZZZBN1PVn3/ksBBc/5U
/bMvqf6+bZg4+RmHUr+RoPxs6m+D1dGayRwqom0GvucQjPV/5DgmjYNWn3/Z
1Dw6T919kupZHBirwz0m+QS9Ph5fxudyqLbw++VUQP39xMDyxgIOvvsLJhwv
pHzbbvePYg56snMTbhcR7DBVKqot4zDH2EjuySu6L3NSxUWraD15dVYVxQSy
52LOdNRweOp28HN9CUHdP5IeaXVUb0ZSDQ2v6flfti3/2MjhiPj5fqGUQOVf
blVmM41vbb6ku4z6z8N9U7raaPwgG36knO6Hjb3DWIZDU+X1bvEKqp+oRz3N
PIes/B6un/K20fcWY3s4ep/LPR2qJLglmA7y3ziEt4Z86qii/hO9XjZzkEMm
ydV585Yg2UN5sOkH1VfVz9iCaup/FRuV00Y5WIyt3xRfQ/1hq6VKhzgPG9Pa
gxG1BLYhLWEi0jz096tH+b0jWG+XurFWlkfDGDqg9wSGll7Vw3I8zuzJaUId
QV7NiZsNCjwMRqttFeppv47uWz1+Ko8VpRdm91OO/VBtsngGj3JFL9PKDwTu
xZejJGbzqIoeVxreQPXbMK9AYy6PFoPNtfsbCV4cG79gkhqP95dswrSa6P6+
8xL5sojH84rvUT2Uh6xyEqU1eZxPrQrM/Ej3x3H7rS/aPO74Xfp+5BP154hq
u8k6PI6csyzXa6b6ufwmcqkeD1uPD4UjlFnJSXJSa3hILo79/riF4NcD2GgY
8biqd3jQ+TP15/cpnRM28ohQrQyd3ErQmP+4/ZMJj668Y3OyKOvX+qePmvFI
TXdt3d9GMOvg0/IP5jxeXT/+fUI71bt2RqrkDh7+5RNeZ1MOPSP/ucuax8ke
2a27vxAUXO30ydnD49E0pXlDlGWyY4V2ex7uEctVojvoPpx4GFOwj4fx+s1X
tDppP2xC1frdeEjI3I+vprzh5+gcBU8e68TODbkzBLsWpFhzXjyyR/3thyn7
n9jqPukYj2jFPcNBLMEyK53MQR8eGa42Y6Zz9L7/esun2JfHr4zOHzHc//2A
h9al6ID7lH9LYhS4czx2yCdGq/MEUqOnuSJ/HoWuY7YnUlbyHI7oC+Ax7fhf
Zqu6qB/G9KXJBfFIsW9TzqY833q1YnswD72FQc9WdlM/0nXcLBvBY/7Nb2Lp
lB3uN+bxUTwu9kk5aQgEA2+r7qfF8Mg962nyD+VY5QTH+rs8SuLzfZUIwZuR
Ktvn93konSq0uUx54s/G5R8TeJQ+EtRGKddd0tqYn8ijt5AIrj1UTzVS5cFJ
PCymxV6uptyyLl81LZXHLpWp8Wt66f7rl+SFZvLY3p6/+R7lGbuTtF/l8NBd
c/r3CV8JhvV+V2wr4LHtilKKN+Ud96t10ot5XAqrc6mlXLliv1ZrGY+Zj9o+
rvxG76ut5q6FlTwW77qUeoOy56I0heAaHrXK8oSlrL1QLDS5jp6XLXlxQx/9
HkkOt7jeyMOzW0cqinKN/cSurGYeLup2EX2U297K9r9v4xF8UtXXuJ9+H5Zt
0XvUSfUdP74mgvIM7oR1FU/nG5fcyFNeH9KTlkh4yOcahK4coPO3NxE+f+NR
ETIhw5/yyd65oSJDPFwrV/nVUu6VMT5R/4OHUeqot9IggXJ71ujoKI+AnFJj
B8r/AUbWrPM=
                "]]}, "Charting`Private`Tag$17365#2"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                AbsoluteThickness[1.6], 
                RGBColor[1., 0.48627450980392156`, 0.]], 
               Line[CompressedData["
1:eJxTTMoPSmViYGBQBGIQfV/aGUi+sG+QAdIn3tq7znR4fIP5hT2DwjzO66ff
2h+1Vp7HwgGU934y5c/5t/ZHMgOnv+R+Yf9gg8+t65ff2peF/WPczf/C/kD8
YuE519/aO2VMcLkvDNS/avPztbff2vex5h3dIw7UXzUjrOz+W/vPxw3k3kq/
sFd4aLCo+/Fbe27PohecCkD1hUozO5+/tV8c+v/DfWUg/zGroP3rt/ah7YUX
OTRe2DskWFY6vH9r3+ai/+GVNlD+5NLrPz+9tc8+kN2wUx8oX/Tz9Jxvb+0z
E3tf3DIG2mcldKrr11v7572/+raav7BfoFEyz/DfW/u6+z68j62B9s+X2a/E
9M7+xHvZv3/sX9gnvPfS/cv6zn5St5X2BWegf9bahk/kfGdf5mNj+M0dqJ5z
18M83nf2t2Z0ll71Bpqn9W4Om+A7+3CuPRPZA4DuMQj69UzknX27Va68WghQ
/Szlfxsk3tmbf8t8/TccqD5AT9JM5p09w3Xvfo0YID953ksmhXf2ns6VhTwJ
QPs6D7l1K7+zd81TPXonGej+hZ6m/9Te2Ufv2/bhfzrQfD2XT9u13tl/nDk5
6k420HyTdBk9vXf2C2aFzuEuALo/RTv8leE7e6aoaf7qJcDwULt4a4LpO/sn
S5Qc/5QD7btSt/GLxTv7+yJTuFRqgOadWLlmrs07+/8gUAu0j4Ghwd7unT0A
mXUIZg==
                "]], 
               Line[CompressedData["
1:eJwVUgtMU2cULqWA8hxsWedcoAQVAiMCRnA6PLBOlBqXVthwgTCoFnUKJWVD
GCjSRNziA5iO2WFGh3WTIRsVmJiyFZlIoWKBDijjsQrM3AvsiDYgEmp3+JM/
N1++/3uckxsole+XcTkcThzd1a9j9ZQycNrhKNHHI/TVNYw9O8uA1Tuxei4B
4cprbx5/cI6BuBjXgngRQqHmmHmpnAFBYP3gyD6Ev/VrCicuMZAhcJJEShBQ
taGi8VvSL2tTPktGeEu1sWSwmnjPxecvUhC6gxQ3m2oI1xmqIBWhwnxNO32N
8u0+vl3pCO7vJYdwbzCgFvg/fEeKwHtXPG6pZ6A9fG1utgyBnxr5KbeR+qhs
nMkjCD+7pG/9t4n61AXO8Y8jzOesVTTfJtw7xdsuRxDbVWVDOsLr1m26qkDY
zM8f0eop/8VEafvnCCEfxfCsfxKfWhuyoRDhr6QT6uUu8rd0N+cVI3DGuUUP
jdRPGp9ZVoKw61xe+IKJ8PON2cNK6tu52X/QTP08TnnPnUFgg/ofu1mId1ov
2fkVQlH8U0HwGM2jKBsoPo9wYSZN5fiH3oui+0rKEVpbG9jQacr/r1+p/xrh
oJ+owIehfqbDwfe+QbgbKiuwzpI+OWax5QrCtiMyMW+e3ieoL01V0zyR2qxH
NvIbMzoPf48QFzCZ7LtE+cYPz7jU0v4eVDaHr9A8QQpWcB1hD+/CfmcOC3Ea
pavzDYTrmdmGMB7hXmtiQD2CUqQq9lrDwumUGh33FwS/Z8LaUQ8W1IGGZXMj
gu4Pc82KD/HDoqKJJoTp138dHXqV+Pd3u2t/Qwi+LH/i/AYLGcqz/m13EGau
FsXPrGeBExFzu7wNIeOQq8vvASy0v63Nl+gRnojz1ZNBLFi13kOiDoSXhsgv
7gYT7pn+zqsTYVPWQJgtjLBbtNDNgODU8fQD3wgWBCdvGbEHIa0urZHZQv4L
jhp1L0J/y03WbxvlR3nlfNmHcH/fnszFHaTvPWnfbkbI0UhF94H0/bEHxgZp
fwKpByukeXpE3bcsCLnBDe6du+k9f2A0eRShJ2n8kW0v+ektiWETCJad50N9
xKRv0MXOWxFkLWXaqSTKT8xqLZ1C8JRkveJxgHCs508JjxG2FFQ2zKaSv+li
pYVB8Erf0db6Ce07gj/38Sz9X0d7ai0HyT+heMQLEfIcmi7tYdJ3/PhD+Tzx
ukP3xo9RH6NJKLSRPzfX0SEnvXxrdOcCgtFtuf5yHuGqAFv0EoIm6mjEnROk
742qG1lGsDNBtqoi8q9YubjXTn6r5xTtv92DNb1E+B+5mhua
                "]], 
               Line[CompressedData["
1:eJwdUwtMk2cU7SaPKTAMLx260Q6GwMQ9cGBX7K1ACArjqYDAHAIGVjo6QR6G
VQujKuLGrNitY5lEEJtU5lI2Le1gRYPCFEwoOEZJVsbz/3lc3VbB4WR3/smX
Pyfn3nPOvV8+Xo40+dDzHA5HROf//7OvmoEmU6Ew6TkEfk3cpOEkA9mRKX7j
dgjLA40Ok3UMWB/5RxQ7IoReCs2/Vc+APIedNa9FCHg3kX/+HAMizU6OvzNC
yN/xE9e+pH6Fh6r1RYQuvvrO2Ubi51qUy+sRclp6636+wADn7NW0CneEjv6y
zt+aqf4XVeysJ8IX1R8Ht12mPGH3TgVtRKjKSig1a8m/pbVN7Y3wZ/fRFd1V
6h+8WG/ZjPBJXO3+qXbSD5lp3u1Deuc3BNrpqZ8Nj9LwEMrED0PHjAyY9Ok1
o74IcXnfb3Y0kd5Jm9cOf4SLjEE0d5P4UEHnhwEI2uCo+8bbpGdO//VMEMKA
Shf5+x3CcQvi0a0Ih+skaLxH+LRx4ck2hOBLTiVzZga4AcNhu99C+EYWWOA4
Qv6WyWsnQhDqxpWNYxbyU7xt//U7COfE4612Vsqfwof7YQibjlc+mJogPtDD
OMtHSE1u0LbPEM9xT1oQUJ49SuHQHOUrtn/6khBBPmBx/Q5p/5W1PS+LEIrK
13WM/kV5CtJtMREIY9qaJtMS+Z9+TRcbhfDvt7LHyhWqT1RPiqIRdlzPDNKv
kp/v1itZMbTPDIVatYYF7pqHI4l7EG75NlhvO7Igr5AviOMQ3tPy1FNOLDT1
OYSXxyPs7fqn/idXwlfs7mYlIhx5pD8w7c5CNtdQlJ+M4GG4Udi3gbDk8s3Y
vQj54bHsV5tYsNq7bvdNRRia0IuMPixw/lidfSUdweRVPKzyJf/BQT/bfvIv
Wh/Rs4X6D9pWFjMRjiuCudbXqX5++4+W9xH0W1ThP7xB2Geov/kDhHU48aYl
hPA+F93nB2n+XbJcYxhhz6q8fbkIvR0rHy0KKO+8t0B4iPI8WGZcROSXl53k
nY+g0O1qmY4kXrrNxVyA0KmWhrrFEL4w6tMmRih1ZhyWYknvbkZ0ngTBunM8
pjeBBZOUV+tahJDX0JUzn0LzDZdkWaQIBWUzhr400l+76qY4jHBCZmMfZ7Ig
4qZejy9BSIusPuOVTfwBSYRzKYKmIUMyn0t6MsWnmjIEN6eNfp4F5JcsnMut
QHjizPNeKqT7eJVT+vQogrpfU9Ujpf1wlJ2fVSIktHt2T5cQn14vEchoHr8B
YXc58SPxL/QdQxg2FDYsVhJOuSE5Ikd49t6P0Xzd2uboKoT/AP2BDMA=
                "]], 
               Line[CompressedData["
1:eJwdUwtMk1cULjgqjDVOQUKYURC3aQaRlwM28XRxuE6hzEJ9gtK6hqBmhdRM
VzZFlokd6DahUKBIgeHKw4nlVUGgWBQnYBUBlYdCFDr/HzlMYXVzwI7e5M/N
l+8733fP+e/1kspFMnsOh8On79X+eqUxkNrWWTqQhmCbWb/B7iQDI97+TQE/
ILik9+0cySD+HcmZiycQBGHRkUt+Jt4g7o84ieBniDL4ZTOg28y3H1YhaAy5
YkcNA5yagOVRGQge99pvBWgZMOUdfzKUibBMFfajm478ePt5kacRbr8Iqhsv
ZYDPJDOGnxCKTi02Oump/hupKfAXhKfnQ/8ZqyR8+5Ah9wxCzPNNS5ZWkz6k
caFbNoLc1qP1q2Ug/myuVaVGcEqvkDkYSa9vKR/NQWj+OIHre5n4YzfdozUI
f6XIx3gmOk+hxaLPQ7in/HvdoJn6GW0Zms4nfFa652UH4Rkf604twg6hx9Xe
TqovCLaVFiI8W9mwwO4W+c9ZDnGLEJy/L0odv0O48etYoQ7hbjFXbrxLen7A
VGYx5Y+J1g0PEj+SE/6oBMG7jgltesiAp6OvacWvCCXlCW4Tj0h/dI9cUYbQ
G7vvS6c/Sf9UoWs+h3CioGLqIUv9HufUTv6GIJrvj3Gaovlxn33xYTlC4aTQ
xj4nP06av6wCQasNd26yUX1XxLaMSoRauZdt6CX9H6/5vR1VCBE3BV7Geeq/
bErCnkeY3Sr2Hl/Ags6+u23VBQRJ9kgOx5GF+FnpBnE1Qri0QdDrzIKne33i
VxcRNooVPf8uYiE1VhqlNSC03VHmD7iwwPnu209qamhehxM+4rmzYAp12/+g
lvq737PFZ9krPs7Brh7hYIeq4A1P8lfK4nkNCFED75rXrqL8CYnI14hgOMJb
47qa/KuD44MvIVzvU3DGPmCBr57RhDYivNjeesHRj+rLCi3CJgS9bFvhWCAL
Ix5tXcLLCMmaHunSEPL7L3CzpJnuj6o7z3896V3AcqAF4QnXddFCPvVzuO+a
pBVhTg+xaz+lvIa5c4kmhKz+euvbAsoTuIri2hAGr1Q9frCF/Jafrvv8CkJY
b/ql+SjyS/NL+syMsCL596770ZTv45vn3073PbCxgbuD/N6yFftcRVCnLh6d
2E15We1y12sI5kxrSute0ucLN84QfrOlZPLxPsLDQYnjHfQelOVF5gSa3+R7
0+3XaR6x6tUzB6jeuiuu5g+ETbPzK12SaJ6R01X5NxB2ranfzSiIP1Zpn9SJ
kK7cetD1COVP3KiI6UII2h7SZEsh/6yuyve7EV6/96Ok5/Ad1IT/B6rUHLc=

                "]], 
               Line[CompressedData["
1:eJwdz29IU1EYBvDbPrTK/oCRZig1iIIVSEoRqbxRSTbp360PkdUyG5VYSVYf
xEYEtdIPDdZoI2iQwSIhswldydSZrUJrm9NtuZabWwS70dtommhxe+rC4fLj
Oe9zztGcOC8aVIIgrML69///XZNpq9B3uPYDk1oxpl6bZBI2iFG7l2lF/Ywt
0yLT1S6V6YKPKebISEvMcOShY4efaU3VltykBc7RbJ87zHS9xLA7y4Y+tdY9
Cp90RtzyPfSdTi63Bpim/D6n5IBLdFf2jDA90LQZwq2Yb/5StmyU6f1vX3WH
E/mNijNDcPafyMZoGyxpb5mDTKGbRRX97TL16QPHy0NMewPqIYsL8yNiSwaO
betfKz3H+Z7ZwqdhpnTZW7f1BfJpOe/oR6b8Y65iTy/ySXtezhjTTGlBbuIV
3DEgvoMPOYc3d72BC3fqz0WYvJvOFk0M4vw52vkrPzF59h+oHfCi79clrxuu
XycttQSQ2+qq9VGmYq3K2hlC3pAqmPeZ6XLn3YO3I+g7NdbUCgdqsr91jyM3
Lnq0a5wp4c+aDCYwf8RrSsENg/tKH3+FKy+ajTHcN9VY5ZPhhfcz+XGm8js/
pHbG+3uCniewqabye/wn+lzP7LoJpqb0aqswjf2L1xvicHqBrjE8CzeLmroE
kybZrSgK7vNySlHgvxFPHLM=
                "]]}, "Charting`Private`Tag$17365#3"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                AbsoluteThickness[1.6], 
                RGBColor[0., 0.9568627450980393, 0.48627450980392156`]], 
               Line[CompressedData["
1:eJwVVnlYTWsfbS6lG+VmlmRKumXWwIoMqaSBDGUICZVUJGWekkRxmoRCFIlU
dJKL5og0CE23ufbg7DdKJdL3fv+c/aznfZ53r9/6rbX20d7uZe8qIyUlJS0t
JfX/Z8NYc/rLwH6hss+4IgmWx5i1fJFl4GHqGtj1VoICE52bckoMXN2SFUZ/
kCB/j10Uq8Kg4Z2GdXeFBH6Of6Sz1Rh0Bu49K/4kwdLdYcsaNBgoFAZsfFsj
wSX5fQUvRjKYGrW1+Mp/EnQVGU6QjGXQMdCrkdQsgcoqH2bIRAZtoazyvXYJ
7qwb7GzQYWAs9f6UEyfBuiDvcqXpDMYcleKdBQnOLTPo5PQY2DEeqzS/S+D+
2v1ElgGD0RGvF2X9kGCPSyhTM4fB4Z3VJok/JegI7b/0dAHl52IyzGZAgmMN
1qotJgy0eloMIS2gmIwf+A0GP46ox42WF3AlxFivzJyBkUj+TYqSAD9r01k9
KxkMCT3lEDJUQE108MEqKwby1zP/0hkmYL3yi3BFWwbOs8d7yI4QEGTsqTV1
LYMVvzq93o8UsKBnDz+wnsHJnj8X7McKkPpsdXm6M4OWmQectLQErDI/7D10
G4Nt0+LEiZMELN83paBuB4PWwwaJY6YKcHr5rHPQjcHKggU7P+oK+BZzdVOd
O4ONUz0uWeoLiL+27rrKfgYu51a9UZglQGZT5JppBxhMNh62OmWugNaESUt+
H2IQUNemM3yhgIYRIuXJRxhsfmSh9dxEwKZhduryJxhkLmlrnggB599eDKk4
zaCw8HW1z1IBZfdT6r4HUf0S+L+GrBAQPWKMx7sQBrIRul83rxJwOMG9su8y
gwmeAZY91lSfV0qH/7tK3+coKlxtK0CImRyWGsWgdK9eaZiDgHExU45XxTJw
fBvjpblewBsdn4fpcQwm6T5Tc94kIKzyzpPWOwy6Am6FtGwWoLx07XSZJAYP
rK9YOroIkDO1rf+SzOB+wRkheKeAkU6z9sqkMtjV2H3yj5uAB/Jb5rWlMzie
V+41111A574hPhmZDO7MuxDiuE+A7UDMuU/ZDBJ2OqeKvQUYjPSrfvKKgUFl
h1r9AQHTHRfINeYxqFMyyjbzF/DR4VB8fxGDXOuN1mGBdH/1MoGlJQwkhpKB
28fovkJ89X98oPs4xKh1n6R8CwwmVFUyGOp7OFPprABWp7xd8QsDVU8faafz
AgKXfJs4rY7BrJWvLsSECAjlnGMGG+h++13Drl8SIBansDNaGRTvd7SuCxew
Q93SX41hYLvCrr9RJCBnhqt/I8/g2TWpyoooAQt3u9rKdTLgrNsCpWLpPLOe
7GrqonlLPt/bdUOAmVbz2uF91N9HN56bdIvq9y48Q/831XPe9r5FCQIs5ELt
ZaVYqB9cojMxUcBdF89iPTkWL4zP+pk+EHDKMuaIqhKLGdWDvVopAtS/m9+u
VWERedxn5bfHArJfVsb9VmPxand8za806jfNx7WfNFiM5AYCS58KmCbyIrKj
WMgqLb5bLRbAXQ9cwo1l4Rp11T4lW8C2nQry/2qxuHHLaprXSwHE1i++WYfF
BKnqm7tzBPwpnhWQM43F1XjnQL18AVN3Veh16bE4GRe+eEqRAOncbzbDDVk8
35DdPPStAOf7zqnMHBa7XeQrXr4TUP70Iau+kEVRwu2X9z4IKFxt4dJjwmLF
yDr3jRUC9iVstywEi6lXpNv6P1L9Jm5XYc1ZLCvb5V/+WcD+aSnKBStZaJlZ
PvStEfDWob6py4qFyEaAZb2AL4svzlCzZWHWhE1qjQJcn5570uLAItdTuz++
WcBQu13DVDawOJCWpL6rTcAc//AU3omFzZrMKX0dAlS3mLwQb2Vh2OZy/zBH
/bXn7e0vO1gscR/I15cI8B1MKHrixuLixsKsx4SeZ+/Mr3dnEeLSF7rjO71f
Zv9grheLyokPU9u6BZQo9ieLfFmMs/K9ub5XQMLsPYZZh1hUzzYN6f8pYIDR
6YoMZMHnp9/1+C3AKz8vtOg4i0vDeQW1QQGiLc0xradZdOh/I/HSBEZnrFuf
B9Hz8mJORo6grzRWoTWExf3GoxYiBYL5d+e7FV5mIdaPmtmjRDDd2NYo4irV
91vCSQsVgjndNi3PoljUeSxxfqNK8NIopiQ8lsWwhkfXxg4j2J5QHPIqjkVf
YG9SrDpB1nu/f6vvsDBWvdeu8jdB2Kn9+imJLEIzNu21GUlw0nnNwcpk6scH
h+v/HU3wPefwr7THLDz3QFlqHMER6+CNbeksPnzy9N43gd4XMVJXTsyiX17d
9f1EAr+93+bXZbPYXBjdPTiJwHpn6jjF1yyGi2c0bJ5CcJt9bsbnsfBTsKm+
PI0gWX/Zp+wiFhV5y1em6xKURqaZN5SwWLTl7gLpmQTeIR4k+wML5cg89cn/
EOjfVfHlK1ncjfV5ud+Q4PpR3d2KX1hcOzc37tFsgpCmK7F1tSx+j3awzJ1L
cHVv0z25RhZbTaq5P/MJxh4P7GxrYTFWdkLxcCMCR3tRcnoHi0wvk1eaJpSP
5ZXFH3kWP1e5fDZfRHCitFbtEWFRUhEnZwGCfYeUs2q6WCTNuZLgu4SgLvlM
/OteFruiqkr8zAkGbh79eeUXi+YRq3d7LCdYmOk0QzxI73dPTzi/kuq56WxM
pCyHpQnGZkdXERTqiBqLFDloFKeWRlkRrE7WjmlT4RAdXBKZsJpg7cv+yy/U
OHg7tsdcWENwoEe8pV2Dnv+zIjvCjmDE81z3NyM55MycfT7AgcDN1IqLHsuB
aar3sl9H8LFFbJatxeFym0KSzXqC15o+VZE6HI7ekNk2ZSN9/75hSwumcbC2
inyl5URw/Kz+xEY9DscuPZRS3UwgnhZpmmHAYYRsSkzVFgJl0mJYO4fDpYd9
yjnb6PxLju7IXsAhf0vV0vPbCYqzfnkKJhxm99Yne++kfDr7WFUzDkbTyxxs
dhGcTVuS0G7OIabAOEZxN8G/MV7z1S04+B7+vrR5D8HBoaxCrxWHtMtGfTHu
BI2LmiyK13BoNbhevNyTYKfo5favDhxGxW5doO5FsNuv4/mb9Rzul6adeLGf
4NzRH9xPJ8rHp7/gnA/BevNTFzW3cbjHd3cuO0CQJNrk8XUHh6DXTcVNBwnU
VUZN/ns3hwXTB6puHCL4PVR7TK87h6lOtb8WHiaIeZ90ssCLQ/zA8IbiAII1
6X/ntPtyCDZKWHDoCJ1ncuninEMc9E9b+cofI6h67i4SAjnIKLade3Kc4Iva
eSelExxcx/81xf4kgVMn2VZ7msOHG899K08R9P4wXSx9noNhuEqN9xkCjaCq
jY0hHL6eNdj07SyBxSKH1ephHKSYXsfQIALDtDVphiIOEsko4wnBBNFpUeuU
ojnY7zspE36BYMyX/LLZ1zmk3z94QesiwbjgRRc04znMvai0LSyUoLxv7tP2
Oxw+7U362nOJIC50uHhIEp03LfGUfxiBJMXoZ1syhxvlO3Xrw6n/ulao/53K
4aez/DLnqwRevRXXDTOo/4bO7CgTEQwJeuAqL+bgtq9sm24k3aeJm4L+Cw77
1q+Ojo0i+Bbo1ab6mkOKTpbK92iqR0DPvNo8DmdWiSoWX6P45vYtv4o4LJJo
JiXEEmywGVPwsYRD29gqP3Kd5mVSpqx0GQd/Xf98+5sEKqfjTrRXUr94R3jF
xhF8vqXgJf7MwdZpaH5NPH1/m/28+loOn9dn8LNuE+g85YyyGzgUqt/W87pD
++e+m+bXFg63pGuf5CXQfDjv2DmE4RBZOTfzr3vUP7EPOht4DreXFYSbJRLY
D35aO6STw+JRIsXgJIIbgk0v38VhjL8oXXyf9s/15SrZvRzG56THNzwgyPDS
7q37xWHlYOaZcQ9p/5VaaIsHOdQlmjssSaH9YLdOp12Wx6GvH8MDHxG4iBoj
pZR4nJnexz58TLB8e6bFRxUew0dXNxemEpiv863oV+Ph4G6Z9OMJQU5lwLUa
DR4vjst5qKZTvQ65GauO4mE+7qK/UQadr7rCauY4HqpuLt3OTwk8ioJj5Sby
qDG9or33GfVvzZQ8g8k8xgeP7ruQSZDmr6o7YjqPW2O7aiPENL9VvlJtejx+
6Q3viM6i36P1rx4rGfLoDrwg8/g5zY+r4422OTxu7MmpepxN+zm6YvvfC3lE
yxaY5L2g/gl+HzPLlEfqhwd3S/8lYBVGqCma8ZD/R8+34CXBnyQ4GyzjwVTl
mpS+ov386VnHMAseDSomr3NfE9TmPmz9z4qHyEnv5+McgkUfg7IG1/CYtack
9lEugZb3o3fVDjywOexGTB71+5znmQobePSOfxgekU8QcWJ401cnHpt2HDc5
VkCQd7Ej8NVWHo0Pf7dvLaT99fK20LqDxzkZ5167IpqHgPtxeW48vPiNm2cV
Uz2cI6b/cOchM3N8xsQ3BCsGBidp7OchREyQKL0l2KT7zInz5REu+3RcA8VB
AXYeI/x5jHI1eJJfQjB3/cLs3kDK9/WPS9HvCETfbwQWHefxs82n2/U9wV/p
jAZ3mscws56FS0sJFAePcQVBPMqDlm9V/UDn2d8f3R3Co32SuKed4sa4brFa
GI8NbGlfVhmhvWQ8svUqjy3Kw/yOlNP+MXFdrRLNw0/TqtG6gvZjYm0OH0v9
MOPMCNVKgp7yskRxHA/LbA27Iopvaye7frnDQz/V/PeljwTvf5e5PEnkYRN2
RmZlFe3Dgdp59ck8qsSP1IZ+ovk6P9si9zEPBY+O/ByK11QqvruazkNzYlyx
92fKb2nuNHEmj7m32A3/fKF5X1ScE5HN493l3Al1FI/bkj6n8BWPyU65QyOr
CfpNx49syeOx+FS7gWUN9W9ixcKsIqrXivuanRR/mO85u7mER6b5vJRbtfT7
ZOewN/8Dj0czvG2X1xHs1xNrXK3kcXDe4PMWiufMkInI+Myjz/Ho9tB6+v8j
I2rt5Voeo+0yruv+R1C5Q/3riwYe8yyjnpZR3FKu8uNTC81fYOoxnwYC3xJb
0wcdNE+BXdsUGylfLsCpjOcxf+rkJ/coXi7qFD8mdP7TD7YaNdF977ASmrp4
TP1tqv2J4iPfJkdI9fH4YDPis2cznV/ZMuDLL8r/aIPnT4q1W18MDg7y0Dat
WXipheB/k3qOBQ==
                "]]}, "Charting`Private`Tag$17365#4"], {}}}, {}}, {
          DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
           AxesOrigin -> {0.75, 0.930555556043837}, 
           FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
           GridLines -> {None, None}, DisplayFunction -> Identity, 
           PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
           ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
           Rational[1, 2], Axes -> {False, False}, AxesLabel -> {None, None}, 
           AxesOrigin -> {0.75, 0.930555556043837}, 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.75, 0.875}, {0.930555556043837, 
            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], 
              Dashing[{0, Small}]], 
             Directive[
              Opacity[1.], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6], 
              Dashing[{0, Small}]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[1., 0.48627450980392156`, 0.]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[0., 0.9568627450980393, 0.48627450980392156`]]}, {
             HoldForm[
              $CellContext`OO[
               HoldForm[$CellContext`x]]], 
             HoldForm[
              $CellContext`OOOO[
               HoldForm[$CellContext`x]]], 
             
             HoldForm[(-1)^
                Floor[HoldForm[$CellContext`x] $CellContext`\:01a7S] \
($CellContext`\:1586\:1587[
                  Mod[HoldForm[$CellContext`x] $CellContext`\:01a7S, 1]] - 
                0.5) + 0.5], 
             HoldForm[
              Abs[
               $CellContext`FabiusF[
                HoldForm[$CellContext`x]]]]}, LegendMarkers -> None, 
            LabelStyle -> {}, LegendLayout -> "Column"]], {Center, Top}, 
          Identity]]& ],
       AutoDelete->True,
       Editable->True,
       SelectWithContents->False,
       Selectable->True], "}"}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Center}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellLabel->
  "8/23/24 05:50:35 \
Out[1025]=",ExpressionUUID->"674b58bb-e2e5-4e43-bb55-80dbd6522d4f"],

Cell[BoxData["\<\"-273.06666666666666*(-0.0018310546875+0.0018310546875*(-1)^\
FLOOR(X)+(-1)^FLOOR(X)*MAX(0,-63/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-61/64+\
MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-59/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-57/\
64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-55/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-\
53/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-51/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(\
0,-49/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-47/64+MOD(X,1))^5+(-1)^FLOOR(X)*\
MAX(0,-45/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-43/64+MOD(X,1))^5-1.*(-1)^FLOOR(\
X)*MAX(0,-41/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-39/64+MOD(X,1))^5-1.*(-1)^\
FLOOR(X)*MAX(0,-37/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-35/64+MOD(X,1))^5+(-\
1)^FLOOR(X)*MAX(0,-33/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-31/64+MOD(X,1))^\
5+(-1)^FLOOR(X)*MAX(0,-29/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-27/64+MOD(X,1))^\
5-1.*(-1)^FLOOR(X)*MAX(0,-25/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-23/64+MOD(X,\
1))^5-1.*(-1)^FLOOR(X)*MAX(0,-21/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-19/64+\
MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-17/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-15/64+\
MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-13/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-\
11/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-9/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(\
0,-7/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,-5/64+MOD(X,1))^5+(-1)^FLOOR(X)*MAX(0,\
-3/64+MOD(X,1))^5-1.*(-1)^FLOOR(X)*MAX(0,-1/64+MOD(X,1))^5)\"\>"], "Output",
 CellLabel->
  "8/23/24 05:50:35 \
Out[1026]=",ExpressionUUID->"454ae7b2-3235-4042-806b-c1bab102459f"],

Cell[BoxData["\<\"0.5+(-1)^FLOOR(O*X)*(-0.5+32*(-16*(-8*(-4*(-2*(-1/120*MAX(0,\
-63/64+MOD(O*X,1))^5+MAX(0,-31/64+MOD(O*X,1))^5/120)+2*(-1/120*MAX(0,-47/64+\
MOD(O*X,1))^5+MAX(0,-15/64+MOD(O*X,1))^5/120))+4*(-2*(-1/120*MAX(0,-55/64+MOD(\
O*X,1))^5+MAX(0,-23/64+MOD(O*X,1))^5/120)+2*(-1/120*MAX(0,-39/64+MOD(O*X,1))^\
5+MAX(0,-7/64+MOD(O*X,1))^5/120)))+8*(-4*(-2*(-1/120*MAX(0,-59/64+MOD(O*X,1))^\
5+MAX(0,-27/64+MOD(O*X,1))^5/120)+2*(-1/120*MAX(0,-43/64+MOD(O*X,1))^5+MAX(0,-\
11/64+MOD(O*X,1))^5/120))+4*(-2*(-1/120*MAX(0,-51/64+MOD(O*X,1))^5+MAX(0,-19/\
64+MOD(O*X,1))^5/120)+2*(-1/120*MAX(0,-35/64+MOD(O*X,1))^5+MAX(0,-3/64+MOD(O*\
X,1))^5/120))))+16*(-8*(-4*(-2*(-1/120*MAX(0,-61/64+MOD(O*X,1))^5+MAX(0,-29/\
64+MOD(O*X,1))^5/120)+2*(-1/120*MAX(0,-45/64+MOD(O*X,1))^5+MAX(0,-13/64+MOD(O*\
X,1))^5/120))+4*(-2*(-1/120*MAX(0,-53/64+MOD(O*X,1))^5+MAX(0,-21/64+MOD(O*X,1)\
)^5/120)+2*(-1/120*MAX(0,-37/64+MOD(O*X,1))^5+MAX(0,-5/64+MOD(O*X,1))^5/120)))\
+8*(-4*(-2*(-1/120*MAX(0,-57/64+MOD(O*X,1))^5+MAX(0,-25/64+MOD(O*X,1))^5/120)+\
2*(-1/120*MAX(0,-41/64+MOD(O*X,1))^5+MAX(0,-9/64+MOD(O*X,1))^5/120))+4*(-2*(-\
1/120*MAX(0,-49/64+MOD(O*X,1))^5+MAX(0,-17/64+MOD(O*X,1))^5/120)+2*(-1/120*\
MAX(0,-33/64+MOD(O*X,1))^5+MAX(0,-1/64+MOD(O*X,1))^5/120))))))\"\>"], "Output",
 CellLabel->
  "8/23/24 05:50:35 \
Out[1027]=",ExpressionUUID->"75bc9a06-4f29-4324-82ba-ad243eed203a"]
},
WindowSize->{1680, 960},
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->"8e3d3569-6290-49a7-9e70-032aa06fb7e0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 7107, 186, 504, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[7690, 210, 29898, 897, 1419, "Input",ExpressionUUID->"b699807c-ba79-4417-afb3-34de3ee368b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[37603, 1110, 70873, 1324, 982, "Output",ExpressionUUID->"674b58bb-e2e5-4e43-bb55-80dbd6522d4f"],
Cell[108479, 2436, 1531, 20, 154, "Output",ExpressionUUID->"454ae7b2-3235-4042-806b-c1bab102459f"],
Cell[110013, 2458, 1371, 18, 122, "Output",ExpressionUUID->"75bc9a06-4f29-4324-82ba-ad243eed203a"]
}
]
*)

