mirror of
https://code.rhodecode.com/u/OOOOOOOOOOOOOOOO/OOOOOOOOOOOOOOOO/000080-0-8-088-00-080-00-880-8-0-080000
synced 2025-10-21 09:48:43 +02:00
2518 lines
113 KiB
Mathematica
2518 lines
113 KiB
Mathematica
(* 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"]
|
|
}
|
|
]
|
|
*)
|
|
|