O
/
OOOO
mirror of http://CODE.RHODECODE.COM/u/O/O/O
1
0
Fork 0
Code Releases Activity
                                       ◦⸰◦○◦⸰◦◯◦⸰◦○◦⸰◦                     ⚪                     ◦⸰◦○◦⸰◦◯◦⸰◦○◦⸰◦                                       
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4763 Commits
1 Branch
1 Tag
5.0 GiB
 
 
 
 
 
 
Tree: 540d8b007d
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '540d8b007d'
${ noResults }
OOOO/𖣠⚪∣❁∣✤✻ᕭᕮᗩߦറ⚪𔗢⚪🞋⚪𔗢⚪റߦᗩᕭᕮ✻✤∣.../𖣠⚪ИNⓄꖴ✤ᑐᑕИNᑎꗳ𖡗ᔓᔕᑎꖴ⚭ᗩꗳ⚪𔗢⚪🞋⚪𔗢.../𖣠⚪ИNⓄⵙ✤ᗩᙏⵙꕤⓄᴥߦᗩ⁜⚪𔗢⚪🞋⚪𔗢⚪⁜ᗩߦᴥ.../ᗺИ...𖣠⚪ИNⓄᔓᔕⵙᴥᗩߦᙏⓄᑐᑕ🜋ИNⓄⵙ✣ᗩ...

2518 lines
113 KiB
Raw Blame History

(* 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"]
}
]
*)