(* 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[{"\"\\"", " ", ",", RowBox[{"{", RowBox[{ RowBox[{"OO", "[", RowBox[{"3", "/", "4"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"OO", "[", RowBox[{"3", "/", "4"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", " ", ",", 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[{"\"\\"", " ", ",", 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[{"\"\\"", ",", 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"] } ] *)