(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 753583, 15450] NotebookOptionsPosition[ 683640, 13972] NotebookOutlinePosition[ 734314, 15027] CellTagsIndexPosition[ 733725, 15007] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["AkimaInterpolation", "Title", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[204401]}, CellChangeTimes->{{3.7548370778099117`*^9, 3.754837083791069*^9}}, CellTags->{"Title", "TabNext"}, CellID->18217985], Cell["\<\ Interpolation and smooth curve fitting based on local procedures.\ \>", "Text", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[204433]}, CellChangeTimes->{{3.7548371060484*^9, 3.754837151068769*^9}}, CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->40452676], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"extrapolateSingle", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", " ", "y1_"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2_", ",", " ", "y2_"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x3_", ",", " ", "y3_"}], "}"}]}], "}"}], "]"}], " ", ":=", " ", "\n", "\t", RowBox[{"{", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "+", " ", "x2", " ", "+", " ", "x3"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2", " ", RowBox[{"(", RowBox[{"y1", " ", "+", " ", "y2", " ", "-", " ", "y3"}], ")"}]}], " ", "+", " ", RowBox[{"2", " ", "x1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], " ", "+", " ", "y3"}], ")"}]}], " ", "-", " ", RowBox[{"x3", " ", RowBox[{"(", RowBox[{"y1", " ", "-", " ", "y2", " ", "+", " ", "y3"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"x2", " ", "-", " ", "x3"}], ")"}]}]}], "}"}], ",", " ", "\n", "\t", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "+", " ", RowBox[{"2", " ", "x3"}]}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1", " ", "x2", " ", "y1"}], " ", "+", " ", RowBox[{"2", " ", RowBox[{"x3", "^", "2"}], " ", RowBox[{"(", RowBox[{"y1", " ", "-", " ", "y2"}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"x2", "^", "2"}], " ", RowBox[{"(", RowBox[{"y1", " ", "-", " ", RowBox[{"2", " ", "y3"}]}], ")"}]}], " ", "+", " ", RowBox[{"2", " ", RowBox[{"x1", "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], " ", "+", " ", "y3"}], ")"}]}], " ", "+", " ", RowBox[{"x2", " ", "x3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "y1"}], " ", "+", " ", RowBox[{"4", " ", "y3"}]}], ")"}]}], " ", "-", " ", "\n", "\t\t", RowBox[{"x1", " ", "x3", " ", RowBox[{"(", RowBox[{"y1", " ", "-", " ", RowBox[{"4", " ", "y2"}], " ", "+", " ", RowBox[{"4", " ", "y3"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x1", " ", "-", " ", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{"x2", " ", "-", " ", "x3"}], ")"}]}], ")"}]}]}], "}"}]}], "\n", "\t", "}"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"interpolateSingle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", " ", "y1_"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2_", ",", " ", "y2_"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t1_", ",", " ", "t2_"}], "}"}], ",", " ", "x_"}], "]"}], " ", ":=", " ", "\n", "\t", RowBox[{"y1", " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x1", " ", "-", " ", "x2"}], ")"}], "^", "3"}], ")"}]}], ")"}], " ", "*", " ", RowBox[{"(", RowBox[{"x", " ", "-", " ", "x1"}], ")"}], " ", "*", " ", "\n", "\t\t", RowBox[{"(", RowBox[{ RowBox[{"t1", " ", RowBox[{ RowBox[{"(", RowBox[{"x", " ", "-", " ", "x2"}], ")"}], "^", "2"}], " ", RowBox[{"(", RowBox[{"x1", " ", "-", " ", "x2"}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"x", " ", "-", " ", "x1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"t2", " ", RowBox[{"(", RowBox[{"x", " ", "-", " ", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{"x1", " ", "-", " ", "x2"}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], " ", "+", " ", "x1", " ", "-", " ", RowBox[{"3", " ", "x2"}]}], ")"}], " ", RowBox[{"(", RowBox[{"y1", " ", "-", " ", "y2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "::", "npts"}], " ", "=", " ", "\"\\""}], ";"}], " ", "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "::", "ordsid"}], " ", "=", " ", "\"\\""}], ";"}], " ", "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "::", "per"}], " ", "=", " ", "\"\\ \""}], ";"}], " ", "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "::", "dmval"}], " ", "=", " ", "\"\\""}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "::", "innd"}], " ", "=", " ", "\"\\""}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "AkimaInterpolation", "]"}], " ", "=", " ", RowBox[{"{", "\n", "\t", RowBox[{"PeriodicInterpolation", " ", "->", " ", "False"}], "\n", "\t", "}"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"dataIn", ":", RowBox[{"{", RowBox[{"__", "?", "NumberQ"}], "}"}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", "\n", "\t", RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "dataIn", "]"}], "]"}], ",", " ", "dataIn"}], "}"}], "]"}], ",", " ", "opts"}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"dataIn", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"_", "?", "NumberQ"}], ",", " ", RowBox[{"_", "?", "NumberQ"}]}], "}"}], "..."}], "}"}]}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", "\n", "\t", RowBox[{"Catch", " ", "@", " ", RowBox[{"Module", "[", "\n", "\t\t", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "=", RowBox[{"N", "@", "dataIn"}]}], ",", " ", "periodic", ",", " ", "dx", ",", " ", "intervalSlopes", ",", " ", "pointSlopes", ",", " ", "X", ",", " ", "ifun"}], "}"}], ",", " ", "\n", "\n", "\t\t", RowBox[{ RowBox[{"periodic", " ", "=", " ", RowBox[{"OptionValue", "[", "PeriodicInterpolation", "]"}]}], ";", " ", "\n", "\t\t", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MatchQ", "[", RowBox[{"periodic", ",", " ", RowBox[{"True", " ", "|", " ", "False"}]}], "]"}]}], ",", " ", "\n", "\t\t\t", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"AkimaInterpolation", "::", "opttf"}], ",", " ", "PeriodicInterpolation", ",", " ", "periodic"}], "]"}], ";", " ", "\n", "\t\t\t", RowBox[{"Throw", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t", "]"}], ";", " ", "\n", "\t\t", "\n", "\t\t", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "data", "]"}], " ", "<", " ", RowBox[{"If", "[", RowBox[{"periodic", ",", " ", "3", ",", " ", "2"}], "]"}]}], ",", " ", "\n", "\t\t\t", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"AkimaInterpolation", "::", "npts"}], ",", " ", RowBox[{"Length", "[", "data", "]"}], ",", " ", RowBox[{"If", "[", RowBox[{"periodic", ",", " ", "3", ",", " ", "2"}], "]"}]}], "]"}], ";", " ", "\n", "\t\t\t", RowBox[{"Throw", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t", "]"}], ";", "\n", "\n", "\t\t", RowBox[{"(*", " ", RowBox[{"check", " ", "data"}], " ", "*)"}], "\n", "\t\t", RowBox[{"(*", " ", RowBox[{ "ordinates", " ", "strictly", " ", "increasing", " ", "or", " ", "strictly", " ", "decreasing"}], " ", "*)"}], "\n", "\t\t", RowBox[{"data", " ", "=", " ", RowBox[{"Switch", "[", RowBox[{ RowBox[{"Differences", "[", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", " ", "\n", "\t\t\t", RowBox[{"{", RowBox[{"__", "?", "Negative"}], "}"}], ",", " ", "\n", "\t\t\t\t", RowBox[{"Reverse", " ", "@", " ", "data"}], ",", " ", "\n", "\t\t\t", RowBox[{"{", RowBox[{"__", "?", "Positive"}], "}"}], ",", " ", "\n", "\t\t\t\t", "data", ",", " ", "\n", "\t\t\t", "_", ",", " ", "\n", "\t\t\t\t", RowBox[{ RowBox[{"Message", "[", RowBox[{"AkimaInterpolation", "::", "ordsid"}], "]"}], ";", " ", "\n", "\t\t\t\t", RowBox[{"Throw", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t", "]"}]}], ";", "\n", "\t\t", "\n", "\t\t", RowBox[{"If", "[", RowBox[{ RowBox[{"periodic", " ", "&&", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "!=", " ", RowBox[{"data", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}]}]}], ",", " ", "\n", "\t\t\t", RowBox[{ RowBox[{"Message", "[", RowBox[{"AkimaInterpolation", "::", "per"}], "]"}], ";", " ", "\n", "\t\t\t", RowBox[{"Throw", "[", "$Failed", "]"}]}]}], "\n", "\t\t\t", "]"}], ";", " ", "\n", "\n", "\t\t", RowBox[{"(*", " ", RowBox[{ "finese", " ", "linear", " ", "interpolation", " ", "when", " ", "there", " ", "are", " ", "only", " ", "2", " ", "input", " ", "points"}], " ", "*)"}], "\n", "\t\t", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "data", "]"}], " ", "==", " ", "2"}], ",", " ", "\n", "\t\t\t", RowBox[{"data", " ", "=", " ", RowBox[{"Insert", "[", RowBox[{"data", ",", " ", RowBox[{"Mean", "[", "data", "]"}], ",", " ", "2"}], "]"}]}]}], "\n", "\t\t\t", "]"}], ";", "\n", "\n", "\t\t", RowBox[{"(*", " ", RowBox[{ "extrapolate", " ", "2", " ", "points", " ", "on", " ", "each", " ", "end"}], " ", "*)"}], "\n", "\t\t", RowBox[{"dx", " ", "=", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1"}], "]"}], "]"}], " ", "-", " ", RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", " ", "1"}], "]"}], "]"}]}]}], ";", " ", "\n", "\t\t", RowBox[{"data", " ", "=", " ", RowBox[{"If", "[", RowBox[{"periodic", ",", " ", "\n", "\t\t\t", RowBox[{"Join", "[", "\n", "\t\t\t\t", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#1", " ", "-", " ", "dx"}], ",", " ", "#2"}], "}"}], "&"}], " ", "@@@", " ", RowBox[{"data", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "3"}], ";;", RowBox[{"-", "2"}]}], "]"}], "]"}]}], ",", " ", "\n", "\t\t\t\t", "data", ",", " ", "\n", "\t\t\t\t", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#1", " ", "+", " ", "dx"}], ",", " ", "#2"}], "}"}], "&"}], " ", "@@@", " ", RowBox[{"data", "[", RowBox[{"[", RowBox[{"2", ";;", "3"}], "]"}], "]"}]}]}], "\n", "\t\t\t\t", "]"}], ",", " ", "\n", "\t\t ", RowBox[{"(*", " ", "else", " ", "*)"}], "\n", "\t\t\t", RowBox[{"Join", "[", "\n", "\t\t\t\t", RowBox[{ RowBox[{"Reverse", "@", RowBox[{"extrapolateSingle", "[", RowBox[{"Reverse", "@", RowBox[{"data", "[", RowBox[{"[", RowBox[{";;", " ", "3"}], "]"}], "]"}]}], "]"}]}], ",", " ", "\n", "\t\t\t\t", "data", ",", " ", "\n", "\t\t\t\t", RowBox[{"extrapolateSingle", "[", RowBox[{"data", "[", RowBox[{"[", RowBox[{ RowBox[{"-", "3"}], " ", ";;"}], "]"}], "]"}], "]"}]}], "\n", "\t\t\t\t", "]"}]}], "\n", "\t\t\t", "]"}]}], RowBox[{"(*", " ", RowBox[{"//", " ", RowBox[{ RowBox[{"Echo", "[", RowBox[{"#", ",", " ", "\"\<|data| = \>\"", ",", " ", "Length"}], "]"}], " ", "&"}]}], "*)"}], ";", " ", "\n", "\t\t\t", "\n", "\t\t", RowBox[{"intervalSlopes", " ", "=", " ", RowBox[{"Divide", " ", "@@@", " ", RowBox[{"Subtract", " ", "@@@", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Reverse", " ", "/@", " ", "data"}], ",", " ", "2", ",", " ", "1"}], "]"}]}]}]}], RowBox[{"(*", " ", RowBox[{"//", " ", "\n", "\t\t\t", RowBox[{ RowBox[{"Echo", "[", RowBox[{ "#", ",", " ", "\"\<|intervalSlopes| = \>\"", ",", " ", "Length"}], "]"}], " ", "&"}]}], "*)"}], ";", " ", "\n", "\t\t", "\n", "\t\t", RowBox[{"pointSlopes", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"d", " ", "=", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#4", " ", "-", " ", "#3"}], "]"}], " ", "+", " ", RowBox[{"Abs", "[", RowBox[{"#2", " ", "-", " ", "#1"}], "]"}]}]}], "}"}], ",", " ", "\n", "\t\t\t", RowBox[{"If", "[", RowBox[{ RowBox[{"d", " ", "!=", " ", "0"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"#4", " ", "-", " ", "#3"}], "]"}], " ", "#2"}], " ", "+", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#2", " ", "-", " ", "#1"}], "]"}], " ", "#3"}]}], ")"}], "/", "d"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{"#2", " ", "+", " ", "#3"}], ")"}], "/", "2"}]}], "]"}]}], "]"}], " ", "&"}], " ", "@@@", " ", "\n", "\t\t\t", RowBox[{"Partition", "[", RowBox[{"intervalSlopes", ",", " ", "4", ",", " ", "1"}], "]"}]}]}], RowBox[{"(*", " ", RowBox[{"//", " ", "\n", "\t\t\t", RowBox[{ RowBox[{"Echo", "[", RowBox[{ "#", ",", " ", "\"\<|pointSlopes| = \>\"", ",", " ", "Length"}], "]"}], " ", "&"}]}], "*)"}], ";", " ", "\n", "\n", "\t\t", RowBox[{"Interpolation", "[", RowBox[{ RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Most", "[", "#1", "]"}], ",", " ", RowBox[{"Last", "[", "#1", "]"}], ",", " ", "#2"}], "}"}], " ", "&"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"3", " ", ";;", " ", RowBox[{"-", "3"}]}], "]"}], "]"}], ",", " ", "pointSlopes"}], "}"}]}], "]"}], ",", " ", "\n", "\t\t\t", RowBox[{"PeriodicInterpolation", " ", "->", " ", "periodic"}]}], "]"}]}]}], "\n", "\t\t", "]"}]}]}], "\n"}], "\n", RowBox[{ RowBox[{"expr", ":", RowBox[{"AkimaInterpolation", "[", RowBox[{"arg_", ",", " ", "___"}], "]"}]}], " ", ":=", " ", RowBox[{"(", "\n", "\t", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"AkimaInterpolation", "::", "innd"}], ",", " ", "arg"}], "]"}], ";", " ", "\n", "\t", RowBox[{"HoldForm", "[", "expr", "]"}]}], "\n", "\t", ")"}]}]}], "Input", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[204497]}, CellChangeTimes->{{3.75482541521215*^9, 3.754825434267219*^9}, { 3.754825498820619*^9, 3.754825513986711*^9}, {3.7548257983852053`*^9, 3.754825807392256*^9}, {3.754825896458527*^9, 3.754825908342857*^9}}, CellTags->"TabNext", CellID->1328037598] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ ButtonBox["AkimaInterpolation", BaseStyle->"Link"], "[", RowBox[{"{", RowBox[{ StyleBox["f1", "TI"], ",", " ", StyleBox["f2", "TI"], ",", " ", "..."}], "}"}], "]"}]], "UsageInputs", TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"], "AttachedInlineCell" -> CellObject[204465]}, CellChangeTimes->{{3.754828638801477*^9, 3.754828645034042*^9}}, CellTags->"TabNext", CellID->121044399], Cell["\<\ constructs an interpolation of the function values fi, assumed to correspond \ to x values of 1, 2, ..., using Akima\[CloseCurlyQuote]s method.\ \>", "UsageDescription", CellChangeTimes->{{3.754830471076795*^9, 3.754830485307448*^9}}, CellTags->"TabNext", CellID->274605684] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ ButtonBox["AkimaInterpolation", BaseStyle->"Link"], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ StyleBox["x1", "TI"], ",", " ", StyleBox["f1", "TI"]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ StyleBox["x2", "TI"], ",", " ", StyleBox["f2", "TI"]}], "}"}], ",", " ", "..."}], "}"}], "]"}]], "UsageInputs", CellChangeTimes->{{3.754828638801477*^9, 3.754828645034042*^9}, { 3.7548305074178123`*^9, 3.7548305151684227`*^9}}, CellTags->"TabNext", CellID->249848312], Cell["\<\ constructs an interpolation of the function values fi corresponding to x \ values xi.\ \>", "UsageDescription", CellChangeTimes->{{3.754830471076795*^9, 3.754830485307448*^9}, { 3.754830525650806*^9, 3.7548305294324102`*^9}}, CellTags->"TabNext", CellID->870049899] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell["\<\ AkimaInterpolation returns an InterpolatingFunction object, which can be used \ like any other pure function.\ \>", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306489446983`*^9}, { 3.754830937766231*^9, 3.754830983148477*^9}}, CellTags->"TabNext", CellID->107622986], Cell["\<\ The interpolation function returned by AkimaInterpolation[data] is set up so \ as to agree with data at every point explicitly specified in data.\ \>", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306489446983`*^9}, { 3.754830937766231*^9, 3.754831043629899*^9}}, CellID->944673112], Cell["\<\ The function values fi are expected to real or complex numbers.\ \>", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306489446983`*^9}, { 3.754830937766231*^9, 3.754831105197967*^9}, {3.7548313026894217`*^9, 3.754831303783484*^9}, {3.754831358397182*^9, 3.754831358397565*^9}}, CellID->159022581], Cell["The function arguments xi must be real numbers.", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306489446983`*^9}, { 3.754830937766231*^9, 3.754831105197967*^9}, {3.7548313026894217`*^9, 3.754831303783484*^9}, {3.754831359285708*^9, 3.7548313797646*^9}}, CellID->202963305], Cell["\<\ The interpolation works by fitting a third degree polynomial curve between \ successive data points.\ \>", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306489446983`*^9}, { 3.754831406811614*^9, 3.754831459569824*^9}, 3.754837237516737*^9}, CellTags->"TabNext", CellID->2016071315], Cell["\<\ The interpolation automatically makes use of local numerical derivatives.\ \>", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306476848583`*^9}, { 3.75483068955648*^9, 3.7548307674746027`*^9}, {3.754831511840549*^9, 3.754831548223316*^9}, {3.7548372433464003`*^9, 3.754837243970729*^9}}, CellID->812751102], Cell["\<\ If the data are periodic, only the data for a single fundamental period are \ required. The option PeriodicInterpolation is used.\ \>", "Notes", CellChangeTimes->{{3.754830609224091*^9, 3.7548306476848583`*^9}, { 3.75483068955648*^9, 3.754830853286105*^9}, {3.754837263427967*^9, 3.7548372638020678`*^9}, {3.75483776543626*^9, 3.7548377658901443`*^9}}, CellID->661549126] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ See existing documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["\<\ Construct an approximate function that interpolates the data:\ \>", "Text", CellChangeTimes->{3.754831648397894*^9}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "5"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.7548317782429047`*^9, 3.754831828656289*^9}}, CellLabel->"In[74]:=", CellID->7099978], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxFxX1Qk3UAB/BnDvbyDPe+59kmjg2FUFA8DKxY8AVRyIWKIObLoXKnEJzy Ig48DrjjDliWd2ieF4xzLDRW2TA1yVPEsNTsxu1W84zm1blZmQwRlBMQqf7w xx+f+xgKyzbtmUdRlPE///9mTz9DUaOpr17Ndrzhy35C1tKlNa7eMXJWjLh2 QPiU/OzPQAGz+Rl5/wrnroYrE+TU06aoYdFz8r1Tv/H3V0+SJzNsP633TZH3 SVdtWrnkBfmrvd9NxB2bIa/5O6Jgqf8leXno1tzrDIVX27ZbeS9+nLvvZqY1 qYJDTjsUvFobPY8cMh2XW3537spjd27treeS15YdchUlhJBv7G4+XzI095m2 j2JqWkPJHnucOHE1j9zVn+Qdfzi3L/Kt2L6TfPI1a3ehJVOAEzl2teZdAfwB J80NClCI46LkhULsO9CTZukUornMoVDH0+hitdskWTSKuNdDnHkipHLqOfYZ GoM9xe6ab8KgvVyrud8jgs8hyhmOFaPzsF8elR+GvlUfLtZ1SHDElmGtpOej u3i2wtkhRfRtSejAuflI7/+ki7dbhpffV/1+bYsYFxq+/eCeQQ5j6M9Zt2kJ yoWeO6ZROaK3Wz/2fi3Bzs/tM8lfKpBc67x4cKUUOyrDL56rUuJSbsZxjkWK 4ap2y81sFfKVry19MCRFhjfcYjQy6K5u5g++LkPKc99j0WYWgw/avb0WGdzx kfcH31fDMRH76DO/DMmMK/zuSQ3sj4WXgkY5WLUgpcWtRfl4R3ViqxzpwQPc locLMNZ2pq7xHznUo+/8MSZeiHWmiip3igI8k6BSI9VhINC4yHxUgaHzUYxj QoegXqY1PFJgRNTfm+CJwEhRHseVooS5PWprY6Ien+YoV9S3KbFnHa8gP08P 8yID2zKmRJs5u25Zmh56yj/SukaFOs+NMC5fj7oGg7jTpsKAe4M3ExE4K1Tp zo6rMGWu5ie9rcOJpKaDP6xnsDgux6MJhMNqSm9KcDCIoW07fnlvAcylF5o6 pxnIHTv/KunTIGR5l0uRz6KkYDp+y68siqfX8ixfsGBUdKB0UoUE5cap2VkW ruaISIpS4l/AX40c "]]}, Annotation[#, "Charting`Private`Tag$23203#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 6.}, {0., 8.164721430080315}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "6.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxFxX1Qk3UAB/BnDvbyDPe+59kmjg2FUFA8DKxY8AVRyIWKIObLoXKnEJzy Ig48DrjjDliWd2ieF4xzLDRW2TA1yVPEsNTsxu1W84zm1blZmQwRlBMQqf7w xx+f+xgKyzbtmUdRlPE///9mTz9DUaOpr17Ndrzhy35C1tKlNa7eMXJWjLh2 QPiU/OzPQAGz+Rl5/wrnroYrE+TU06aoYdFz8r1Tv/H3V0+SJzNsP633TZH3 SVdtWrnkBfmrvd9NxB2bIa/5O6Jgqf8leXno1tzrDIVX27ZbeS9+nLvvZqY1 qYJDTjsUvFobPY8cMh2XW3537spjd27treeS15YdchUlhJBv7G4+XzI095m2 j2JqWkPJHnucOHE1j9zVn+Qdfzi3L/Kt2L6TfPI1a3ehJVOAEzl2teZdAfwB J80NClCI46LkhULsO9CTZukUornMoVDH0+hitdskWTSKuNdDnHkipHLqOfYZ GoM9xe6ab8KgvVyrud8jgs8hyhmOFaPzsF8elR+GvlUfLtZ1SHDElmGtpOej u3i2wtkhRfRtSejAuflI7/+ki7dbhpffV/1+bYsYFxq+/eCeQQ5j6M9Zt2kJ yoWeO6ZROaK3Wz/2fi3Bzs/tM8lfKpBc67x4cKUUOyrDL56rUuJSbsZxjkWK 4ap2y81sFfKVry19MCRFhjfcYjQy6K5u5g++LkPKc99j0WYWgw/avb0WGdzx kfcH31fDMRH76DO/DMmMK/zuSQ3sj4WXgkY5WLUgpcWtRfl4R3ViqxzpwQPc locLMNZ2pq7xHznUo+/8MSZeiHWmiip3igI8k6BSI9VhINC4yHxUgaHzUYxj QoegXqY1PFJgRNTfm+CJwEhRHseVooS5PWprY6Ien+YoV9S3KbFnHa8gP08P 8yID2zKmRJs5u25Zmh56yj/SukaFOs+NMC5fj7oGg7jTpsKAe4M3ExE4K1Tp zo6rMGWu5ie9rcOJpKaDP6xnsDgux6MJhMNqSm9KcDCIoW07fnlvAcylF5o6 pxnIHTv/KunTIGR5l0uRz6KkYDp+y68siqfX8ixfsGBUdKB0UoUE5cap2VkW ruaISIpS4l/AX40c "]]}, Annotation[#, "Charting`Private`Tag$23203#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 6.}, {0., 8.164721430080315}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "6.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{1., 6.}}, { 5, 7, 1, {6}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{1., 2., 3., 4., 5., 6.}}, { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12}, {1., 1., 2., 1., 3., 1., 5., 2.142857142857143, 8., 2.142857142857143, 5., -6.}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754831832905044*^9}, CellLabel->"Out[74]=", CellID->1965925619] }, Open ]], Cell["Apply the function to find interpolated values :", "Text", CellChangeTimes->{{3.754831852575452*^9, 3.754831887463834*^9}}, CellID->1239624102], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "2.5", "]"}]], "Input", CellChangeTimes->{{3.7548319024686728`*^9, 3.754831904395918*^9}}, CellLabel->"In[75]:=", CellID->1529980302], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{3.754831905397588*^9}, CellLabel->"Out[75]=", CellID->720615152] }, Open ]], Cell["Plot the interpolation function:", "Text", CellChangeTimes->{{3.754831943810355*^9, 3.754831952002356*^9}}, CellID->1718574231], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7548319541871233`*^9, 3.75483196647357*^9}}, CellLabel->"In[76]:=", CellID->662020169], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxFlnk4Vev7h5XS3qXIfpcdsfdSosxzcjp8CJlKMiRCKVOTMpWpaJCxlCEa nAqlCYk6hEQTyimlhEbNSSGFVL/398eXP9Z1X/da17WGd32e53kVvAOX+owV ERH5So//p5j2munUTP5HPc4DxkpslKufm0qmio+yJkU4npUZZcTHtm4TnVF+ yXWo3b5mlK3SJgF/bo/y9LDM5d/7e0bYr7/58F2LvhG22YcoXen4NkL38AbD 8+u+j3C3ZG1aoNzACK3ifTKWFA+OsGTDmedjfH+OsNzb7MJl3q8RuhnGzUnO +z3C+1X6oVmqIvgfr9n/nh3xfZQxAZtYz6oxI+QZ6c5XyRg7wt4h27O7PUVH mB9UZlxvOG6EykG3GQmJ8SPsX6WN149GeZDzae/xIrER7v5nSKs7fMIIK1ky zj16lN+Oqz++FTNK77yV0cf3jNL49M16p4xRfi854H2leJS+N1XS49+N8uhC c7/+j6N8eNvDyLt7lGaNqS/+6h+l4N53tS9jORg2XqzWQ/noSe0NZwEHIeOG uucIOVj42e3HDGcO/PT07TPcOcghOx9sd+WgklysDPXi4NtfZ4s66PnhniYZ 99UcHEv86ZfpzUHm6VOZeus4GFI+0srdxEHVvMUWMyI5OOf9tPxrIgcDpoP1 bw5zINnqFVVdw8EKntTkgRcctNauGeOmxoVV3akVOVu5+GraJhutycWa3lQn u2guJlyz1zumw8WzVu3uX7FcGFw18ntryEWvc+HwuiQu0q9I3g2y4GLTI1nT 4Bwu7Esrs5I8uRgQcuar3eDiZj7RqkrlInWxzxEDZiLK4q97sv1cxLwumzbj 6kT4jg990dQ0ETFVvNObl4ljdVBkmfihSVh5KM3qzvBkaPqpNtmtEoftTww4 lUngPym1SaHzJmNLi7OUwwNJXCnccVhNdAr2D45TULw6FZFjVJbceToFGtt3 eL6slMLEjgirjaUS6DF700AKeQh+INlgbyyJvsJ0nZd7CWzTxXd0nJFEuITh MusiBtaLLnZqSU7FNhe16a4vpKHRoOEXFzwVDSpzF7ybMQ3RJ5qH7Z9PxRPJ 8TbD+2TQG6Qw/+UCKdTGhWkZvpfF/ZyslLfFUvju/Nlsi7McHtVWxF+U5uHX ssinylnyqDtzIT82gget4oktpFyAe8obC3WieHj/S+RlUZUAz/JULndG8+Co ckzbqlaAgZzc2xaxPNwd65e+qVEAjbSMT9x4HiI+/eAceypAVmS49oEMHgRr tPrDxgix0c606kQxD2UGNlJfLIWIqv91w7GEh8xM6XNqtkIkWFY0jSvlobFn SMnPXog86L7wvczDf9HZF5uXCfFEb5aoajUPprMk7u/0F8Jcnmt9sZEHj4i3 q20ThJDtvvew7i0P22LTFNxuC8Hh6w0ve89DpKvMka5GIb6bHJzZ9YEHtZXq nKj/hGje7xFEPvNgc+flmf2PhEjU/yjh08fD5+MFDw6+FmIwStRWTIRAtL+n SkyExdt836BDYwg+3zm3vmwMi4dN9dkaogTu754c8BJlUcymvncRI5C78dT2 pBgL/+tycafECU4uunfklziL1kkG16xkCE4/i5Vrmcbipl72+w5ZglUL+SLz ZVmUegxLbJYjENu6NiRnOovUolrPbCHBJqmjjIuAhZWj/fCHWQSWzlt8U2ey MIgqmblNmeC5ksnwA0UWivmMrdQcAtmdazV5SixEfrRnG6kR3Ks0Dtk1m8W/ h/znJukQXPJUyNNRZ3GyrtFTqEfQWmjt4KjBIr1LI+6iPoGDXWRBoCaLTcb9 D9sNCY4vWeR+WJvF7FexQWomBAYFX39X67M4OOfw+bu2BL+fOR8z/JtFb59l /s5FBDruaZ1KxiwWV/cemWdPUGhioC5pwkLM0SY5fynBuoB/2x+ARUjU4Nro 5QTBy0SfCc1Z3LPM99Z1J/BWv5b8lrrqVAe3DysIQq4MOxRYsHiVX2DtvJKg W3lQWX4hiyX/LZut7kdQtnyF0R1rFueyRdlOfwJDjkfLOhsWE9YU8bPXEvxb 3ZcpZsuiekBswviNBMfWfclQt2MhW1fyuyKQvn+o2+Ny6mEpnt83babrW+y3 0HQRC/UZl950hBDs6Qi5YrqYRXzXqqcHwghCX0XUVVB/fWlyi9VWgvnQHKtp z+KIrc/10kgCM9UiVe4SFgPM1Mq10QRb7sTIBlJ3fFF5kd1OEPRZ3Ooe9Ymh JDd5B83Do5V+uxxY+JrUHDLbRdBeouHxmPo17voDA7sJagzqsmctZSH3kJ9Y uIfAeb2CMJD61py62DUJBOkedl8uUn/oHxgum0QQThaKf6OupTt9871kgj+H yFZNRxbJv276x9G+MuPnZT1f6u9uBa2cn0rQYaxnnkXd7IDAtXc/gcqm5IIb 1HNWNNgXpNE8Ztet7qY+pBS20DODYH1dxxYpJxYuPQom5CCB62DbW23qJVfu GjRkEdwwv1ZiR31yXLhGzCH6/4sOPPWm7r9klpLBEYIp5ksDQqhfl70v33WU 4OUkUddY6uybKObEPwQzpxacTaAeWTR7sutxgiYPc98U6o/CH46bkkvw7Gdb QjJ1HfOY4bo8Avv+jdP2UN87Re1b+Elaf06iJJr6x9bHnzQLCExmHN62kbpl 7s7ON6dp/gPmublTP75Bs/3wWYIIvZcFC6gPz21vdjhPEJ+csV6ZuuvYPQ0T igjaIpefEqNeekentqqYfr+4lvtLuh6SB5+VB5cQGFnJJV6mvn5V4oU5pQTG 8xQMEqjfUjU4/byM5uWD6SoX6ttqUrJsywn8il7N76T/58PTmvTBCoJai3zl POpOP/tST1USDGS/qF1JXdXALUG0hsCL6yV1l+Yh0zFl94VrBDafNjVEUR+7 uSbWq44gZlq20WzqrWeVIq7cpM9/VW8TRPO1oH55WMBtgu0Wx7slqRe+TQ7i NxBExaotPUvzuluhb23wXQL5qcNeD2iedQ5edVd9SMBsaGr8SuvhaGnvsict BE4haSc2UOc0z3La85hAO3Ch1VtaT8/Fk+0622j+78pwGmm9Je9w/fvwS4Jz nMt7va1Y/PgnaZ51J4FIkplUNa1X76pq/R+vCR5PHwhmqBsOKGo4vieI/r7t yWVa32829AgmfSG4ucHGu9GM1neS4vTyrwRWZqHiYtQrC5bx/XoJNDA+b74p iwOdVRJ1/QT/WPSeOEr7i/HyRJHIYQIFZ3tGcz6L02FVw7N/E7xf2utl/RcL kv514NEfgsF0/VNeRiw+Nbn06IgyWB1spBtjyCLLfOarj1wG27Ykh+3XYyHq 7fIsaxKD3NCY9iRdFhu3J7RZTmbwrdnebocOC4uKL80nJBkkGAqWr9ai/U+z ss6NzyAn5bbTd1UWdtOd8xsUGZguadi2aga9/2uNGnclBu+N9f10FWj/OM9p 71JmkBpsOTiGpXlHpaSEKgNz3UQ2Q57FGZ+ZUY7aDFrOdJxMo/OCW9yztONv BumBbV29k2lewhs3bDBhEGcqPyeVzpdjZvnxv8Hgx9oaZZVJdH1bXKtZcwbl Vi5BThxaf0NX5/jYMHBvGu+/YyydP+Z7RbpdGPC6Tb0Su4SQmuI/fbsrA//4 8kzPD0J4PjY1kHRjUPHNZ5faWyH6A/rX6XgwkLWr2Fv2XAjFfSseh61mMKTT URbVLMTOJyqFfwIZKDZ6jn11SQhsvOU+NYGBUYjGXEGkEEOtHyyvJzJIDMvj tIUJcXGBuM6WZAaZk8Q/7g0SQknGgfN0H4Ol9UFdnQFCiF9vKy3IZLAzrdfj L1chWmW6JyOPgf0ad99cXSECb5CajVcZGIs2Hw9+I0COnLfinX4GHWmO63r0 BTDUVdXw/sHg1PZf3iFaAjRbf5s7MMAgXmCg0qsigNiWOFvFYQYa/yrpPRMK sPH+maCosdJwV7+zbytXAJO4vho1CWnIl3jqlbfL48WXXR4ps6WhV+mSFxMl j5l1pzIXu0sjN2Hu+fYiOexTr1VprpYGuWUpO/6zLHz6xt2vV+Ej4X39nIAb 07DqQi+bsI+PFbfPXLLJkMbaHY7DNvv5+NX3p1c/SRohjqWPxdP4qKpoqRfE SiOuP3RvaiYfu1RCXD+sl8a5eYM/Dx7lw4+THuxtLo2Ba38enTzLx9aA6UHv e2mOmsVTrt/iQ0SoJO29mMGh3A3+cfV8WN9bynBpDnJDmhZYNdLrufFGhfMY XJJOHWps4mN1VQynj+a0w43n/6CFj6y/KtT8fhIod8oseNVJn8+d4vfrFIFW aYQg7w0fl2+LN8fTvm20u33Q5x0f67paC6TonLBTPlr84SMfJkE2ZxW20Tm3 jhX09PDR1HU6Wt2J9p35sYMlfXwUW6heO2dNsHvyq4ch/dQVV6Sp0H1FVlFu 0sAAH+W7/+5XUCE4ETPOr2KID6XUkymH6T7orIOPWdQwHxHaWjd5DEHpjJvy xr/5eH7eIDdxIkF1n9Lgnz987LCWniNC923/B5DaPOk= "]]}, Annotation[#, "Charting`Private`Tag$25333#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{1, 0}, BaseStyle->{}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 6}, {0., 8.16514129242469}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.754831967370028*^9}, CellLabel->"Out[76]=", CellID->1130388196] }, Open ]], Cell["Compare with the original Data:", "Text", CellChangeTimes->{{3.754831982705215*^9, 3.754831997921574*^9}}, CellID->1794068810], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"%", ",", RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "5"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7548320165688057`*^9, 3.754832035351766*^9}}, CellLabel->"In[77]:=", CellID->1018818541], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxFlnk4Vev7h5XS3qXIfpcdsfdSosxzcjp8CJlKMiRCKVOTMpWpaJCxlCEa nAqlCYk6hEQTyimlhEbNSSGFVL/398eXP9Z1X/da17WGd32e53kVvAOX+owV ERH5So//p5j2munUTP5HPc4DxkpslKufm0qmio+yJkU4npUZZcTHtm4TnVF+ yXWo3b5mlK3SJgF/bo/y9LDM5d/7e0bYr7/58F2LvhG22YcoXen4NkL38AbD 8+u+j3C3ZG1aoNzACK3ifTKWFA+OsGTDmedjfH+OsNzb7MJl3q8RuhnGzUnO +z3C+1X6oVmqIvgfr9n/nh3xfZQxAZtYz6oxI+QZ6c5XyRg7wt4h27O7PUVH mB9UZlxvOG6EykG3GQmJ8SPsX6WN149GeZDzae/xIrER7v5nSKs7fMIIK1ky zj16lN+Oqz++FTNK77yV0cf3jNL49M16p4xRfi854H2leJS+N1XS49+N8uhC c7/+j6N8eNvDyLt7lGaNqS/+6h+l4N53tS9jORg2XqzWQ/noSe0NZwEHIeOG uucIOVj42e3HDGcO/PT07TPcOcghOx9sd+WgklysDPXi4NtfZ4s66PnhniYZ 99UcHEv86ZfpzUHm6VOZeus4GFI+0srdxEHVvMUWMyI5OOf9tPxrIgcDpoP1 bw5zINnqFVVdw8EKntTkgRcctNauGeOmxoVV3akVOVu5+GraJhutycWa3lQn u2guJlyz1zumw8WzVu3uX7FcGFw18ntryEWvc+HwuiQu0q9I3g2y4GLTI1nT 4Bwu7Esrs5I8uRgQcuar3eDiZj7RqkrlInWxzxEDZiLK4q97sv1cxLwumzbj 6kT4jg990dQ0ETFVvNObl4ljdVBkmfihSVh5KM3qzvBkaPqpNtmtEoftTww4 lUngPym1SaHzJmNLi7OUwwNJXCnccVhNdAr2D45TULw6FZFjVJbceToFGtt3 eL6slMLEjgirjaUS6DF700AKeQh+INlgbyyJvsJ0nZd7CWzTxXd0nJFEuITh MusiBtaLLnZqSU7FNhe16a4vpKHRoOEXFzwVDSpzF7ybMQ3RJ5qH7Z9PxRPJ 8TbD+2TQG6Qw/+UCKdTGhWkZvpfF/ZyslLfFUvju/Nlsi7McHtVWxF+U5uHX ssinylnyqDtzIT82gget4oktpFyAe8obC3WieHj/S+RlUZUAz/JULndG8+Co ckzbqlaAgZzc2xaxPNwd65e+qVEAjbSMT9x4HiI+/eAceypAVmS49oEMHgRr tPrDxgix0c606kQxD2UGNlJfLIWIqv91w7GEh8xM6XNqtkIkWFY0jSvlobFn SMnPXog86L7wvczDf9HZF5uXCfFEb5aoajUPprMk7u/0F8Jcnmt9sZEHj4i3 q20ThJDtvvew7i0P22LTFNxuC8Hh6w0ve89DpKvMka5GIb6bHJzZ9YEHtZXq nKj/hGje7xFEPvNgc+flmf2PhEjU/yjh08fD5+MFDw6+FmIwStRWTIRAtL+n SkyExdt836BDYwg+3zm3vmwMi4dN9dkaogTu754c8BJlUcymvncRI5C78dT2 pBgL/+tycafECU4uunfklziL1kkG16xkCE4/i5Vrmcbipl72+w5ZglUL+SLz ZVmUegxLbJYjENu6NiRnOovUolrPbCHBJqmjjIuAhZWj/fCHWQSWzlt8U2ey MIgqmblNmeC5ksnwA0UWivmMrdQcAtmdazV5SixEfrRnG6kR3Ks0Dtk1m8W/ h/znJukQXPJUyNNRZ3GyrtFTqEfQWmjt4KjBIr1LI+6iPoGDXWRBoCaLTcb9 D9sNCY4vWeR+WJvF7FexQWomBAYFX39X67M4OOfw+bu2BL+fOR8z/JtFb59l /s5FBDruaZ1KxiwWV/cemWdPUGhioC5pwkLM0SY5fynBuoB/2x+ARUjU4Nro 5QTBy0SfCc1Z3LPM99Z1J/BWv5b8lrrqVAe3DysIQq4MOxRYsHiVX2DtvJKg W3lQWX4hiyX/LZut7kdQtnyF0R1rFueyRdlOfwJDjkfLOhsWE9YU8bPXEvxb 3ZcpZsuiekBswviNBMfWfclQt2MhW1fyuyKQvn+o2+Ny6mEpnt83babrW+y3 0HQRC/UZl950hBDs6Qi5YrqYRXzXqqcHwghCX0XUVVB/fWlyi9VWgvnQHKtp z+KIrc/10kgCM9UiVe4SFgPM1Mq10QRb7sTIBlJ3fFF5kd1OEPRZ3Ooe9Ymh JDd5B83Do5V+uxxY+JrUHDLbRdBeouHxmPo17voDA7sJagzqsmctZSH3kJ9Y uIfAeb2CMJD61py62DUJBOkedl8uUn/oHxgum0QQThaKf6OupTt9871kgj+H yFZNRxbJv276x9G+MuPnZT1f6u9uBa2cn0rQYaxnnkXd7IDAtXc/gcqm5IIb 1HNWNNgXpNE8Ztet7qY+pBS20DODYH1dxxYpJxYuPQom5CCB62DbW23qJVfu GjRkEdwwv1ZiR31yXLhGzCH6/4sOPPWm7r9klpLBEYIp5ksDQqhfl70v33WU 4OUkUddY6uybKObEPwQzpxacTaAeWTR7sutxgiYPc98U6o/CH46bkkvw7Gdb QjJ1HfOY4bo8Avv+jdP2UN87Re1b+Elaf06iJJr6x9bHnzQLCExmHN62kbpl 7s7ON6dp/gPmublTP75Bs/3wWYIIvZcFC6gPz21vdjhPEJ+csV6ZuuvYPQ0T igjaIpefEqNeekentqqYfr+4lvtLuh6SB5+VB5cQGFnJJV6mvn5V4oU5pQTG 8xQMEqjfUjU4/byM5uWD6SoX6ttqUrJsywn8il7N76T/58PTmvTBCoJai3zl POpOP/tST1USDGS/qF1JXdXALUG0hsCL6yV1l+Yh0zFl94VrBDafNjVEUR+7 uSbWq44gZlq20WzqrWeVIq7cpM9/VW8TRPO1oH55WMBtgu0Wx7slqRe+TQ7i NxBExaotPUvzuluhb23wXQL5qcNeD2iedQ5edVd9SMBsaGr8SuvhaGnvsict BE4haSc2UOc0z3La85hAO3Ch1VtaT8/Fk+0622j+78pwGmm9Je9w/fvwS4Jz nMt7va1Y/PgnaZ51J4FIkplUNa1X76pq/R+vCR5PHwhmqBsOKGo4vieI/r7t yWVa32829AgmfSG4ucHGu9GM1neS4vTyrwRWZqHiYtQrC5bx/XoJNDA+b74p iwOdVRJ1/QT/WPSeOEr7i/HyRJHIYQIFZ3tGcz6L02FVw7N/E7xf2utl/RcL kv514NEfgsF0/VNeRiw+Nbn06IgyWB1spBtjyCLLfOarj1wG27Ykh+3XYyHq 7fIsaxKD3NCY9iRdFhu3J7RZTmbwrdnebocOC4uKL80nJBkkGAqWr9ai/U+z ss6NzyAn5bbTd1UWdtOd8xsUGZguadi2aga9/2uNGnclBu+N9f10FWj/OM9p 71JmkBpsOTiGpXlHpaSEKgNz3UQ2Q57FGZ+ZUY7aDFrOdJxMo/OCW9yztONv BumBbV29k2lewhs3bDBhEGcqPyeVzpdjZvnxv8Hgx9oaZZVJdH1bXKtZcwbl Vi5BThxaf0NX5/jYMHBvGu+/YyydP+Z7RbpdGPC6Tb0Su4SQmuI/fbsrA//4 8kzPD0J4PjY1kHRjUPHNZ5faWyH6A/rX6XgwkLWr2Fv2XAjFfSseh61mMKTT URbVLMTOJyqFfwIZKDZ6jn11SQhsvOU+NYGBUYjGXEGkEEOtHyyvJzJIDMvj tIUJcXGBuM6WZAaZk8Q/7g0SQknGgfN0H4Ol9UFdnQFCiF9vKy3IZLAzrdfj L1chWmW6JyOPgf0ad99cXSECb5CajVcZGIs2Hw9+I0COnLfinX4GHWmO63r0 BTDUVdXw/sHg1PZf3iFaAjRbf5s7MMAgXmCg0qsigNiWOFvFYQYa/yrpPRMK sPH+maCosdJwV7+zbytXAJO4vho1CWnIl3jqlbfL48WXXR4ps6WhV+mSFxMl j5l1pzIXu0sjN2Hu+fYiOexTr1VprpYGuWUpO/6zLHz6xt2vV+Ej4X39nIAb 07DqQi+bsI+PFbfPXLLJkMbaHY7DNvv5+NX3p1c/SRohjqWPxdP4qKpoqRfE SiOuP3RvaiYfu1RCXD+sl8a5eYM/Dx7lw4+THuxtLo2Ba38enTzLx9aA6UHv e2mOmsVTrt/iQ0SoJO29mMGh3A3+cfV8WN9bynBpDnJDmhZYNdLrufFGhfMY XJJOHWps4mN1VQynj+a0w43n/6CFj6y/KtT8fhIod8oseNVJn8+d4vfrFIFW aYQg7w0fl2+LN8fTvm20u33Q5x0f67paC6TonLBTPlr84SMfJkE2ZxW20Tm3 jhX09PDR1HU6Wt2J9p35sYMlfXwUW6heO2dNsHvyq4ch/dQVV6Sp0H1FVlFu 0sAAH+W7/+5XUCE4ETPOr2KID6XUkymH6T7orIOPWdQwHxHaWjd5DEHpjJvy xr/5eH7eIDdxIkF1n9Lgnz987LCWniNC923/B5DaPOk= "]]}, Annotation[#, "Charting`Private`Tag$25333#1"]& ]}, {}, {}}, {{}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], {0., 0.}], {{{1., 1.}}, {{2., 2.}}, {{3., 3.}}, {{ 4., 5.}}, {{5., 8.}}, {{6., 5.}}}]}, {}}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{1, 0}, BaseStyle->{}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 6}, {0., 8.16514129242469}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7548320428341923`*^9}, CellLabel->"Out[77]=", CellID->466108970] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["Interpolate between points at arbitrary x values:", "Text", CellChangeTimes->{{3.754832139885021*^9, 3.754832156540015*^9}}, CellID->414824544], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", ".3"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", ".6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", ".2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.754832162702455*^9, 3.7548321804114723`*^9}}, CellLabel->"In[78]:=", CellID->586999621], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj4AAEALisSCPsYpATtp saA/NEYQs7RSvz91Da0CI2WxP2j9Nh+tLs0/apta4A/YuT95rgOqzVDTP96v D5ZHEME/ceBG9+361j8vzpNoZI7FP0JgcwNOaNo/MndYd8C/yT94q/oYjyDd P13cvrL5Ss4/SBlk/ruX3z9bbpgSfmDRP2B7vExzyOA/4bPx6R510z/Tr+ZW iIXhP3vXm1euttU/XMqAKNQk4j9uQGZj3dHXP4WFU3Q1k+I/+Ha2CnHi2T+f LSd4zt/iP5eLV0jzH9w/zaxuxlYU4z+O5RgkFTfeP1jBWkIsLeM/zY4Vy5I9 4D+2epNv0i7jP56R4VFNWuE/DD2LEC+v4j8ct72n12PiPwzccAHvqeE/pEvC SNmD4z8YEuRPugzgP9gC17iqkOQ/R8xD3eRQ3D8WKRR087PlPwcstzXalNc/ IDYUfe7R5j/BVkn2Un/SP9dlJFW53Oc/LJAfPz4Zyz+YBF14+/3oP7LZgxmX UsA/Bcalag0M6j+gvlOUJlmqPz5usarRFOs/wJQp+jF0kr+BheU1DTTsP04m kb2brrW/cL8pkBhA7T+VW9WW6WXBv2loljWbYu4/bnD5XYWQxr8u+MUo0H/v PxPrMlxqQ8m/T9WCdepE8D8wufTBi4DJvwzmNnwo1fA/MNjROZ1cyL8fCHNq zlvxP/C4/5W3LMa/mJ2Qf83f8T/wvKEwKgDDv5ZqQjoIb/I/oFlpu/DavL/q SHzcqvTyP0C/hf/EP7K/xF5KJImF8z8AEdgpWyySv/SFoFPPDPQ/ACeZVcCP pD+KINipbpH0PwAAvk40q7o/pfKjpUkh9T+QOwYEPzzHPxbW94iMp/U/OOxj QKSz0D8M8d8RCzn2P5DjBGkUtNY/aH+pweLH9j9Y8MvloBTdPxof+1giTfc/ ZHzDLay54T9R9uCVnd33P8jS487pZuU/3t5OuoBk+D+wWXlmywnpP9E6ngW9 6Pg/6E3XstPJ7D9JzoH2NHj5P+hiBj96h/A/F3PtzhT++T/NrTz775zyP2pP 7Uwwj/o/6i4JMeL39D8jn87xpB37P99O3yf8X/c/MgA4foGi+z804ZjFbLP5 P8aYNbCZMvw/FS6rQx1P/D+xQrvJGbn8P3DFwEcp0v4/ISTViNVK/T/L4IRK 1M8AQPZ40G7q2f0/pM7q/x06AkAi31M8Z1/+PyQPrF+5lANA03xrrx/w/j9G DuxZeRUFQNorCwpAd/8/wAsktMOEBkC2hub2////PzV5heb//wdALB7wIw== "]]}, Annotation[#, "Charting`Private`Tag$25503#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2.}, {-0.19923541040902526`, 2.9999998101694936`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj4AAEALisSCPsYpATtp saA/NEYQs7RSvz91Da0CI2WxP2j9Nh+tLs0/apta4A/YuT95rgOqzVDTP96v D5ZHEME/ceBG9+361j8vzpNoZI7FP0JgcwNOaNo/MndYd8C/yT94q/oYjyDd P13cvrL5Ss4/SBlk/ruX3z9bbpgSfmDRP2B7vExzyOA/4bPx6R510z/Tr+ZW iIXhP3vXm1euttU/XMqAKNQk4j9uQGZj3dHXP4WFU3Q1k+I/+Ha2CnHi2T+f LSd4zt/iP5eLV0jzH9w/zaxuxlYU4z+O5RgkFTfeP1jBWkIsLeM/zY4Vy5I9 4D+2epNv0i7jP56R4VFNWuE/DD2LEC+v4j8ct72n12PiPwzccAHvqeE/pEvC SNmD4z8YEuRPugzgP9gC17iqkOQ/R8xD3eRQ3D8WKRR087PlPwcstzXalNc/ IDYUfe7R5j/BVkn2Un/SP9dlJFW53Oc/LJAfPz4Zyz+YBF14+/3oP7LZgxmX UsA/Bcalag0M6j+gvlOUJlmqPz5usarRFOs/wJQp+jF0kr+BheU1DTTsP04m kb2brrW/cL8pkBhA7T+VW9WW6WXBv2loljWbYu4/bnD5XYWQxr8u+MUo0H/v PxPrMlxqQ8m/T9WCdepE8D8wufTBi4DJvwzmNnwo1fA/MNjROZ1cyL8fCHNq zlvxP/C4/5W3LMa/mJ2Qf83f8T/wvKEwKgDDv5ZqQjoIb/I/oFlpu/DavL/q SHzcqvTyP0C/hf/EP7K/xF5KJImF8z8AEdgpWyySv/SFoFPPDPQ/ACeZVcCP pD+KINipbpH0PwAAvk40q7o/pfKjpUkh9T+QOwYEPzzHPxbW94iMp/U/OOxj QKSz0D8M8d8RCzn2P5DjBGkUtNY/aH+pweLH9j9Y8MvloBTdPxof+1giTfc/ ZHzDLay54T9R9uCVnd33P8jS487pZuU/3t5OuoBk+D+wWXlmywnpP9E6ngW9 6Pg/6E3XstPJ7D9JzoH2NHj5P+hiBj96h/A/F3PtzhT++T/NrTz775zyP2pP 7Uwwj/o/6i4JMeL39D8jn87xpB37P99O3yf8X/c/MgA4foGi+z804ZjFbLP5 P8aYNbCZMvw/FS6rQx1P/D+xQrvJGbn8P3DFwEcp0v4/ISTViNVK/T/L4IRK 1M8AQPZ40G7q2f0/pM7q/x06AkAi31M8Z1/+PyQPrF+5lANA03xrrx/w/j9G DuxZeRUFQNorCwpAd/8/wAsktMOEBkC2hub2////PzV5heb//wdALB7wIw== "]]}, Annotation[#, "Charting`Private`Tag$25503#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2.}, {-0.19923541040902526`, 2.9999998101694936`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{0., 2.}}, { 5, 7, 1, {5}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{0., 0.1, 0.5, 1., 2.}}, { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10}, {0., 4.125000000000001, 0.3, 1.89945652173913, 0.6, 6.299137728369682*^-17, -0.2, -0.02237762237762227, 3., 5.6000000000000005`}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754832181641288*^9}, CellLabel->"Out[78]=", CellID->1290967875] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"%", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.754832183888771*^9, 3.754832197465796*^9}}, CellLabel->"In[79]:=", CellID->1806857349], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3k41F8XwGlBikooUmmhRYmyJTljya4oikiKSMkeET8UWUMlSxEKIUWy L11ZZ2TPPsxKqTBDJFnmve9f83yec79nP/ee2X3N9dz1VVxcXN3cXFz//zW4 Pt5V++O6OheX7TvB5Ifqa7TE3ahi2hAkExiS8sEejqclpXwUM4Naw3Bzmxwv MGzrL0oVswdCjWr8/oQQuGg/X/NEzAtqdXhOMd3jYeRomNYjsRBgj+YlhR/M hHSRsw8jxeKhu8lO2iT5I9xrS2y4UBkP1eYnnXsOF8OFUNqqvVbPYMqrwpOE imHDnHtgVUoCHP7Rz80zWgJ3e+LvTuxKhkoj5ocWqXIwfTp084z0S1gjcXV7 bEw1BPN93B8hlgl5I4UzxX51cEj3cXiRWyZ47nEuX/W5DrpDXX+QmzNhlcHS tWWeeti3+vBbWe8sSDTIj1p4XA9Ny5myPd3ZEGZaJyuY2QAbfico7orOhek7 Qf2F5U2QNOKnVbLyHjyERR5LZLaAhoRlJsW8ACJ3vhvbRmuBn5eU1/K9KwA/ s1e69du/wM4JX7t3RwphxajEYs+TL+DqpCTFNVwI0YWzRfz3WkHIviAnS6UI lDSe2kWfagcLy4wC9nQx7K2L1W+p6wQW2Yz/lXgJKAyaL28Y6oSHNnzXz2uV wL4f03cPT3fCRztX8dL4Eki3ruvj3tUFgi6nQu8pl8Kc29UEHt8uaLw/eIkn oAzsdQI97kl3w7H8zTwSfJWQ/FL6SKDjV1jPCbbW3YnA8fOtdX+KeyHJ6aLN YR0E3gNQQmjqhX09h203uyAQNXtLDuzvBfXcfjtyDQLt/i/Z5IVeqMhNKCmT rYWS9JYX69T7YPL8RLVhey3wk+8d0WzoA/OcxC+eAnUQ3fTYHIj9IGU6NV4f 1QBGGkXfFQoGQTxQV9UxowGc3wbfnvs0CJvepUfxlzXA8tgl79z2QfjHd17W lNEAisof9k5MDkJnbZknRaUR7ik+dxmWGQI/ueCVv2ON8G2pods5awjaNwoL yxKaIe9pOdyOJYNP+wlImiVBWMPUWjaMgKBsyRiJrwXu3BGYIBuOQOYjuehF iRY4ZxL3u+biCHQZ7R+0Od0CR2933bF3HQGZL8KeUgktMJWZW3jy5QhQm1nZ Rcpf4PvWOQPRfyOg+zlLsM2vFW44bnJOyKMARXJ3yUpMK6hfniQZl1DAKyjF Su51K5Casz4vIgpkwNOcp19awWq07NHJXgos1gRpXpJog6EUErchhwIFlVbe 32vaoFT0W2a+KRW2Fm+mcHN3wH8R2+WfsahgHb1oNiraAa+tt7f8XqDCK/ux L02HO8CYJ+z33lU0OCxSURFl0QFWaotXbmyggaa37TORwg6gWa9UFEnSQCnl Ynb80U6gnBWOOqtHg6s22ZdzKJ2gx5XtUPmUBiEG25OTf3TC/ImUBJ0kGmQr xfVEznbCn3LF3rYUGkwI+hne5u+C+s/fw9qyaOCNjE8cU+qCF8+teZ6U0SBa ck64+lEXpOvLBskP0aCUodXaodYNUWlJh8nb6dCnFzz9SLcbCCIO7lW76PDn /SdRo3Pd0CXurJa4lw7K905cJTp2Q4POcRcNGTqUbzn6p/ZJNySqHgiyVaVD hba4ZNF4NyhfDLD8cpEO1dlsz/j4r/Ah5lKtXSwdhjfIJp9L+wrnB/PlKp7Q Ycnj1qdNeV+h7FS9K38CHU7BN75H6CtwNRrbpafQ4VM/OTX051fQ/Xb+yvNc OiC+5mZvQg9MqMxlE+voUHczdbvlRA8M6Amd3zlDh48/bt2y+dMDdw2f+n+e pUPmDdUqO65e0LgFcHWeDqEO/ZdchHth9747iQlLdNC7tvn5A7Ve6HIkNw3w MKDDMnTb++heaEyprKkWZ8Cw3m2R1Uf6IPTXysRGAgPamk9e51Pug6bZB636 mgz4pMNfIqDRB1UHRYKCtBmQpv3GbJt5HySolN8c1WPANQL96ZGAPiD1hQY/ NGXAuLK5kEVbH/z2czBVvMaAOelTG9/d7ocfcXetDIIZoM7QbI682w9rgyv+ 6T9gwMNUvcAbD/pBYeDtPp1QBogKm7H2JvfDRQHePQoRDFDivtXxvKEfItt0 13yPY8BdclJs+PYBcPX38spLY0BtwktdB+kBUHQ2HfDMYADfuUyOlvwAaKxz mjjxmgHJxAJXjs4AlKXkyVZnM6CypOmst8cAzNjtv5z8jgFLsbMb7UlYn0GE a3klA7QN/zVr9AyAQGoC27iaAdE8XEG7qAOwj+moS6thwI6A9eyh2QHQe1Ee uFiL47m5p9NUchA0/tRZb2hmQKC2SRz4DELDkeXe5G4GrFp4u2m71BDoW4rK e31nwPY2zd9wdAjC2sjh8eMMUMgY7LU/MQQ294hXin4w4Lo+74v3xkNgtqXy ybdfDCAmX5PS9B6CKkk3TXk2A2JVxVSdmofAXrjMy/QvA3IECyViuoYga2bp tcECzgdDh1NEHoLberNuGv8YMBPp1bDEGgK+n8m/9i8x4AK540zcNjK0Tx9L HuAwQML/oV2ZExlCvWWCW3iYoGiyQ2fYkwxxqc/cXvIy4cy+4gPc/5FBwO+k hBsfEwJb6ZMGT8gwyBgu2MDPBIbEqbuUSjII244vHxJgQm7N7+i1G4ZhrfMH 2rIQE+oeR7oeEh2GtErm3fdbmDB0ffe5s5LDkLhE/mUtzIQNgme3JisMw86f tU4fRZjgZpOXcfjyMIxebP+ns40JShzb0vPvh0GV/nAH/w4mGBnX3j9dPgz8 7jL3EjDbvdh1VrluGMK+G36T3MmEOGXKd/G+YZhekZ84uosJP1ytxBjLw+As PDmutJsJXJ8qx77yjkCE6JfRj5hFN4gXNW4eAemJsCXZPUzQzBkwyJUaAePw joe79jIhhWbu72Y8Agqf2So/9zGhSLZE7xq+p0+l7NKxkGIC0V9YxOzqCKQo xwU0YJ7b9vWd8p0R+Cx1wyNRGufP1IS6kjICzySMs/cfYAJ3nYHmo4kRiLeq Ic0cYsK2TXmCgX9GwFKi55y2DBNkbdaR3bgosN1nZk885kv/mj3NhCnA5e6T JnuYCcXHTmdtV6OA4selk2ePMKElKNNdQIcCxKC8o08x09pXq3POUuBIb93d XswCt+r6GHYU+BpuL2QuywSH18CXF0WBexZNzwhHmeA//bLnxTMKBCTvcfTB /BRW0h+lUUDqjFFKPuZacvUJ948UaA8/cUJIjgl9ByV47GoosKblWaYm5gmf e91mzRTQn2P7uWMWE1a9pUKmwK2gXtcWzHLXkpUPjWH9L+Yfz2LWKfy7WoJF Ab6tBtI75JngYVSWwllFhdmsD/lOmMOfizpNb6BCpNeVV48wp43fUWSKUmG1 uOvmQsytIQrtTYeosM527Bobs+rGL6seK1KhK73r86ZjTMhJvqpsRaBC0anI y0cxi+77e0vKkAqS6lYqRpgfvI9JZ5lT4VFunJkjZraKVG+FLRXcwryLgzDb 1FetC7lFhZNUi0tJmFUHxj22BeN3T1wruO7/+q8FvmFEUeH5BiZP7//1T4oM 5ydQIS6hgDyGOcQnf5NPBhWK0Sz3HOZpbq3TGvlU8I1dubfqONYfPei7vowK ZgJiRoKYW0Xd3vd+pkI5Ic5rG2bVDB5mWisVxOQL5yUx58ikbr3ZT4WJsYb+ /ZhFS48bKTCokOUgvvUI5hBCS9DKBBXKKpfK5DDPtNiWEOepkPijrPoY5sK8 RS99bhpcUEor/j9/Z+nEvuehgZ/sPF0K807FJ7lb8DudV7yxmhezmd9I/d3N NBgNfn5mAPsfhQ5QRkRpoHBWPysRc90ar7+aEjRI6G37chrzX30klLObBsLt g20MXI+jsfxHBPbToHB6Z5kLZocec12PwzRwXjjz9Aeuf6pYxtV+eRqYvNzu ch5zj83EPTVlGtgkK53/f7+tz1ROyFCjQdJr0zOzuF81f9wv5NGkAY/3zlsy mH1l21tu6WJ/SWdKTHF/F3qKjXUa0eDhxXgVRzwfO1cKxF5cpMHKWmkxWzxf 5lqLx7ku0yAzqfeR1kEmRIfrnLl+jQZx+ldviuJ5XBAauX/0Ng2sf36NiMTz K2dxIDXegwYEo52jMnjeHVI9yxZ8aPBf4freanw/9Oznn6i/TwMJ+4Tcd/h+ KVRTNrfAe4pmMdm+Fd9X34Pvu9ak0uDm9fdVv0SxP81tEXte02AD/QPPIr7v ok3tP028o0HndqGcH5uYcMPh8f7gehoQyW+u8OH7Ne3tsMY3It6Tdrin5azF 88beb23YTgO16b9yJ1YzQfvepziRQbxnKa6/K7PCgF1xvxZyp3C8N/JGzH/j 9/pqYG7Rbxr0SVo4vsXvhc3xLZZVf2lwRu3L89+TDEjpUy1vXUWHeAq3lDV+ f7btiPRmidJhTXxRZ8wwA4TyDvxWADp4UI723q9jwId71a9OadNB+spJV17E ABNjk3M6+nTwOy1gGFiF3yO2z4eL5+lw98GaKb1iBmxQbnb1c6TDtXDNX9pZ DFjbcH0C4b1ovIt/y3gIAzKfLbwgxtPh/smQU1lB+L11fGTYlYz3qA2NGhf8 GXCfvySP8ZoOkdKpy089GbBissZpbTkdxBdzjAKvMuDvyKsxAxodBLVPJe04 yYBf81RKrxwDniiSrleN0aHUMbbOQIkBzq+3ckdR6RDUr56N8Dn1kG3VxoN0 EC1LvZ2rg/eE4cTP+a10vJ9aLflbM+BnnMXl7iI6PJ/tE9sXzoBvd8ClyR/v T9NtZh5UBsRZxeRk89Jhy9UAle+jDNj0tfDtNIcGlM7DEtY/8R7zpsxUHufZ qzCKeXoOc+ZAacw4DdJc9T3E1jPh1YvjKvW4rn8mG2JrlZggOZr3bkcY7suf VS2CMUwwFBc+MoTn1iXx7N6bT5mQNVj9TOIbFZS1mfcak/C96vOLy6iHCi2p /Ef8XzOBV8RN1aOQCtMmlrE/ypkgf+loFcWRCuplf843MPEc/tZfMvxKgcEH 8iO+J0YhKk+wfmsq/v+x4w1rdHQUxkI7n3pzkyHaqcQhfd83SJtKa9N82Qt/ CG9HbwR+hz+8fAKqz9rB61hDsWj9OIwrMHbvD6oD6vuGqK7dP0FSq4Nr7Mwb WLzZ8+Kg3y9IVxmbnKVnITOly49lA3+Bv3ppqe5/2Sif+9vD4yG/oPPxQZFj 4m+QTdK8+6mYXzAcr6jyxSQHfW4U1zN99QsyjyW9WCnPQ2GSV2fvtvyCVh75 5TGvArSlb9KIKD4BG1wDDhsZFiPnDG/Ntl0TIFNxiG39pBg1OHOUu/dNgMH8 qy1yg8XIe/XmvcOyE+Ab8dRIwqEEDcopLLA0J6A0qUNvTUApSovyy9p6awJy OWEBnS/LkYwG74pD1QS86n3pYlBYjQrz3u4fqJ2ApijVJ1az1UhB2MRUv2kC MmJkZMRUapDa96RMma4JOEGaUUv6VIPOPDpkyP42ASIqVldeNH9CHoPGSb5C kyCXQGkttK9FFe7xx6KdJuHnXV5ytnYdUierWC+7TILggY9VYlfrUJ32SKiL 1yRQyl72WQfUoZat0oMmgZMwLHlg8VxJHRquKQsUeTYJNm+zPy3sqUdc/OTW l7WT8J+q42HeuXqk+2q344etU3Br1YuoLo9GpJAkKN0kMQVB0lvb74Y1IsmY xdGh3VNQvrh8bPpFI/rn23ttzeEpePavqtmsoRG9M42wuUiYAvVNX/oYQk1o C/e0+fKNKQhrr7f8m92EuOZHhIVcpuBR+hP3tPImNDHR8lXacwps9j9SFWlp Qk0DmaYmAVNgH1+i5TzRhHwLLYxfP56CE0VZE/WyzYh6pVZbv3IKTss9dpzP bUat5u9W26ApKPlZR/Apb0blhs/rPBqmIPky3bK+qRk9UfYipLRPQcW7+ALE aEanNx5QYzGmIK0m+5X2NiI6tlZkcfX4FBxbtUlxjxQR7Vzkrtw2OQUCwU3t LfJE9PcbWVlzHsfn8uWevwERvf0Ue/zZehaodvB4X/YloqRi/5ncTSx4lP92 KSaEiELynD58EmHByukV08hYIrJJ0Do6vosFMlPWrSOZRLTZZf7QSQUW8A51 VfxuJaIVu9EfZ0+woNKm1NW1j4h+Wnbl2KuzwGZ3btVHKhE1nH4rHaPHgtsZ Tr7PponIZ8eVPXRrFiyeO6BTIURC10zkLgxfZUGYodbGs+IkdOYBd2S/AwtG 6LY33+8mIekfr6fb3FgQkmSlRTpKQkISd6RId1iw/3G8T4gSCS2f0bFs8GPB 8YGwPL5TJNRTPF5bGcIC2VXmvrf0Saj2e8VsSQQL3Goiv+ifJaG34lEHPsSw oMbnWATbjITuBx2Je5PEgr3PYz8mXCEhl48r9a9ScT6G0vue2ZOQ5beO+dRX LMhuIXdZO5GQnJHHlfh8FkTdfFij4UFCEoFaT2M/sCBnxtT+ijcJ8RYJN0eW skCUvHJW24+EZkbH/oVWsYBrU5UVO4CEKFvLZINrWRAbUHzNLpiEWgzCr/k3 suDHRjFCaggJlQRYJvi0sEDlo2hHahgJpRceavHoYEHmefJP+0gSimYuLt/u YYHFSLzLTDQJ3RVtk3caZIGfmruiTiwJ2em/vG5Pwfm4/FLc9jHOp79r8hUm C/JlDBbgKQmpFhDaLo2zYGP8q/yxeJxfxmbuC5MseHC/d6NpAgltFmEqmM6w QJ65aSU4kYSWdItvGM2zQOPV/XN3k0ho3C80RXcJ1+etxfjxZBL6eUHmRgYX G2gnFwpLMNuyt6zatZoNciHc08LPSagvYulFylos1+uTsMJsuHdMUZyPDZ1O g0rhmGur2zoS+dmQ3uSskYJZ6UKpk4gAGzbBjHoi5nzWy9VPN+LzRV/kfTHv iQhL3STEBjduKwlNzEl73JRjhLF+/lXcM9i+YLVF1/qtbKh9v4cRjjnEXONW hBj+vnVnHQ/mhamDa3kl2BCnbfH6Fo7HJVwoLWQnG7j+yIWX4XhHdy+qrNqN 5bX8nj9xPi5VMbsD97JBMkTXYQ3mTrNW52UpNthK6tuvfUZCOlPFPPcOsIHt 5e46ifNbHZaa/vcQjufqnsjqJyR0bPdDVe8jOJ6mmlIPXI83lS49v4/i88FZ 8xvjcP+YXXRxP4bld06ejY8hoSeTwMdSwPYC6YiD6/uf5Ga1nyewvgtjc1ER JDRbsdDrqIaZyVObj/vj5nmG65g6GwgYi0NJyPzhx9c0LSyPCpr3/X9/7Uo5 ZaPDhsJ3hpeUA0mIUBHST9Zjg8mo4g+yPwkdnjBf32+M7Quy4od8SKjczAhF muD8ZqcJ/PMiIa0aTU/182wIYgdbLrnjfMQcJWdZ4Ppq8/jk3iKhb3+kYi2t sL+va86Y3SAhjysSWgI2WL9N11oGnp8IuXVvvexwvuJVdmZfJiHhZI7NAQfM 9hmhw5a4v7n/CA3fwHzy8cCcObbfzfDTcsH+5sgZdxlj/V7VBkK+WL9McpOM GtY/UrTSeA/Xe9ie6quM5/90bpHvf7i+Pzcs5R3D+rcmiNMfYHmjhHHpAex/ hevPghhc370Or923YHvLeyKNM7G91llSAJOIDjuIqXO/wf0CDx8tDxNRWfvG meJc/H3Fy1BbfJ+1py1ZShRgdo7d1UkkomWNvoO/KjD7PD97IZ+ILj2MIIV3 YP3e+frcLkT0bSowQK0bx3/+fV3JdSJyv+gtz+7B5+n0dOPLRBR+wC754hCu Vw1f8n4jIiptUXOSHsPntwa1hRwgoi0b2XwN/7B/+TfZ38jNqLsmMkx/Gfej nLhdUDd+D5yleDo42N8xpig3qRkJtVxaPbRmGrgkcg3LSzCHNi6zBKeBrSN/ dOVRM9q0+Hxm+14s3zjJ+/NEM+rMVXTPkJqGdBNa8V/8HsVZdLKkD0yD3Bu/ lqm9zWhj6dpJ+SPTQGgNO/FYoBkJurt911WeBslQVecCahPa8P30sKfhNHQe LDU+H9iEWp/RLi0YT8Mmp6p3gx5NKFr73uB/JtNgmzGbquvQhNa/KuyLMMfn Fb+pDBk1If7L27vSrmD7AUupQ9uaEN9XduMXT2yPO++MQX4jWoNeFOxNmYa4 5PzEP7UNaEhNW4/6EsfTtEiVKmxABZUTtOcZ0+DmL9ilktaALpWeEhJ6Mw20 1SKV6wIa0Id3VC+uomkw2dPAuajcgGxS9qqONGP/ohPFc7PrUbnv24aE39NQ +NDv2XG3OhQzf/7yuT84/qY9GylWdcjuztKcwAL2t0AzwVm3DsdvvD90BZ9f GzSouLMOXb/BivBcNwOdloLRvi2fkdDF42dNds2A3BOHa8Qdn9EtharBdYYz kO4yWHr8CkK1nb355cYzuD8clHzkEBK5zQ50NJkBW66nSaHcCKEsKelGcyzf kiqx+vUntGVrnEeQLf7eSaklmFmDqhbs18/fwfK0sOknl6rReiR4ajQdy/Vm JGV3V6C3+tfSP/3B+kItQ59tLkIKh3erwwKWTyR8IA5+QJ8EaWS0iL8PbPjd nvEBdX69vPUz12+wfa/dZib/Ac1etoyp5/8NtVMHrHXOFCJ1DxN/4k7MPsu6 kZx81Plc3aJbB/PNF1ey72ehuV/im74l/AYuMKtaWQ5FJed1V8drzwLBrd7N 4XchBOqFphV/m4VO9Y79E1vqYfeIwcDr0DnovK7WHl3bDqrKIfFix/6A3teg 8B7HPrDe2bHA/fUP3B2W2diWNAJzLY8YbsHzsG+d7vo3vExIWmPjdW7fX+iZ dDpUqPcdtlBKXq1q+AvWiQHS0ZW/YG1AsNkJ9wXYb9Glru2M5zDXpoAh9A/E fSMSu6dnwON5wSOhun8Q2P4uXL1rDmpkwvk2uyxCebwrXaDpL2w28Dh8X3AJ 7MKWFYhZizB8pPOrb/USKMQoPo9grEDhS9g3arMM7zcdX1q7iptwuUBp846V ZUDG7myjxFWEoNCM4OG8FYhRaDU+Zr2G8G58xwtBIw6UpUQTIwR5COGpobaU MxyIel4/pyjKQ7A/Nyn13pQDHTmr/zJ28BAkqqsLjS9yoD+t3g+O8BAiY62a oq9xwC5Jy3OVEQ/hhlLyNL8vB4LL9LgKI3gIe0KE9XizOZDcFsufs5aXsKLi L9Cfw4HijjwXFwFewuAkszv7LQemZWbTFUV4CXEXP17W+cABoRQl16Z9vATO oXOeodUcuLbolz+txUsY7op9uforB+Qrefxc7vMSyh/O233t5cDisfNvNCJ5 CfEnrxx8PcCBxjzbNJEnvATDLNliTQqOh8CcQhm8hMq7baTgHxxwyQpbu/Mz LyHhiGKs6QQHPpYO358n8hLcGSlmu1nYnpgaqauTl3DAyJlaO8sBTX/1wnAa L2ENd09m3DwHBLo8Ta6P8xJoJSdv2v7jgL/kQLkmm5dQffP1UbllDozEK/yQ /MtLSNy1fo7D4YCfxTk6h8NL+B8aLBYU "]]}, Annotation[#, "Charting`Private`Tag$25587#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->{}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.3, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.3, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.7, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.1, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.3, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 2}, {-0.20003083414626577`, 2.999999771428574}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.754832198554511*^9}, CellLabel->"Out[79]=", CellID->1335551349] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->1575259], Cell[CellGroupData[{ Cell["PeriodicInterpolation", "Subsubsection", CellChangeTimes->{{3.754832259033114*^9, 3.7548322724715223`*^9}}, CellID->1112444199], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fp", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "7", ",", "2", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"PeriodicInterpolation", "\[Rule]", "True"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.754832291743469*^9, 3.754832312984889*^9}}, CellLabel->"In[80]:=", CellID->881893648], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAOa+/FgAA8D/i5WUkAADwP0MXnDjc TfE/RrabkIuq8j8aCmt4zbfyP6w3zCcFu/Y/SCgOe8IJ9D8U1m4vXnD7P/Xm 5F4WVfU/03rkTP5dAEBuMK5gf7z2PzrDM89PhQNAP6VLJewL+D8dm1a2t6IG QN2k2wdud/k/UoUlHS4YCkD5RJ/LTtz6P7A13mcpeA1AbRA3UjMp/D8LYehF rkAQQK1mwfYskv0/fdpclV7JEUBF6B9eKuP+P2a5bb4DERNALgVZU8MWAEBU g6zL9yIUQJ9bmwb8yQBAp6r/yg8yFUC9x0ebNnEBQH42l6+KJhZAQXntvnsm AkBARWCloiMXQAT7LFNw2AJAQarzKVgNGEByktbIZn4DQPs0aP+41xhARm95 zWcyBECx03X+mp8ZQMZhhrNq2gRA8GL8PldFGkCsmYwoeJAFQDLwiDmD3xpA 0qEsDjVDBkBMWV+8bFobQKO/NtXz6QZAwoSN8zuxG0DcIjorvZ4HQMHcpfFR 7htAwJunYohHCEAa+WRs/fYbQOPkrgoD7QhAljGalwVjG0Btc69BiKAJQJU6 KinQFhpAoxcaWg9ICkDZEQnaMmEYQD8BfgGh/QpAJadCyoohFkAau3sZ4q8L QMmPsY3tqxNAoIrjEiVWDEBm5E1iDEkRQI2fRJtyCg1AAJnox397DUAmyg8F wrINQGImtW6WFAlA/sR038BXDkBTSsBn91YFQDwF00jKCg9A6caMFrQzAkAm W5uT1bEPQJdg1dstZgBAO3uutnUzEEBbdSpWXo7/P7lTRJQBiBBA27zRWZ6d /z9WFCcq5doQQB0zs84HPQBAp3eGB840EUB+tCSZcA4BQM7lmtW3iBFAgnzE /qsOAkCo9ivrpuMRQFwsqdQbTANAoe8Jue08EkDgoSnaQJEEQHDznHc1kBJA 4BXrTce0BUDymax9guoSQPiSJLIYygZASktxdNA+E0C8rzk2r5AHQMLkgiN2 kRNAXUhEKH0ECEDtIBEaIesTQNdb9CPYEAhA7mdUAc0+FEAA30THxJAHQKJR FDB+mRRA2qN0AftZBkB2IyEXh/IUQLhaJSYEogRAIADj7pBFFUBGF365ybMC QH1/IQ6gnxVAXo0iyf5nAECwCRUesPMVQBRIwVSsbvw/ljaFdcVOFkDSn87B 2uf3P5tLQoUyqBZAjtFJ6gUC9D92a7SFoPsWQLfhrHUjJvE/BC6jzRNWF0BO 7XKimGzuP2j7RgaIqhdAxEc7aTaS7T8yFFD6//8XQOY3NLf//+8/3LCcIw== "]]}, Annotation[#, "Charting`Private`Tag$25646#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0.9240982108406048}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0.9240982108406048}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 6.}, {0.9240982108406048, 6.991201108611017}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "6.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAOa+/FgAA8D/i5WUkAADwP0MXnDjc TfE/RrabkIuq8j8aCmt4zbfyP6w3zCcFu/Y/SCgOe8IJ9D8U1m4vXnD7P/Xm 5F4WVfU/03rkTP5dAEBuMK5gf7z2PzrDM89PhQNAP6VLJewL+D8dm1a2t6IG QN2k2wdud/k/UoUlHS4YCkD5RJ/LTtz6P7A13mcpeA1AbRA3UjMp/D8LYehF rkAQQK1mwfYskv0/fdpclV7JEUBF6B9eKuP+P2a5bb4DERNALgVZU8MWAEBU g6zL9yIUQJ9bmwb8yQBAp6r/yg8yFUC9x0ebNnEBQH42l6+KJhZAQXntvnsm AkBARWCloiMXQAT7LFNw2AJAQarzKVgNGEByktbIZn4DQPs0aP+41xhARm95 zWcyBECx03X+mp8ZQMZhhrNq2gRA8GL8PldFGkCsmYwoeJAFQDLwiDmD3xpA 0qEsDjVDBkBMWV+8bFobQKO/NtXz6QZAwoSN8zuxG0DcIjorvZ4HQMHcpfFR 7htAwJunYohHCEAa+WRs/fYbQOPkrgoD7QhAljGalwVjG0Btc69BiKAJQJU6 KinQFhpAoxcaWg9ICkDZEQnaMmEYQD8BfgGh/QpAJadCyoohFkAau3sZ4q8L QMmPsY3tqxNAoIrjEiVWDEBm5E1iDEkRQI2fRJtyCg1AAJnox397DUAmyg8F wrINQGImtW6WFAlA/sR038BXDkBTSsBn91YFQDwF00jKCg9A6caMFrQzAkAm W5uT1bEPQJdg1dstZgBAO3uutnUzEEBbdSpWXo7/P7lTRJQBiBBA27zRWZ6d /z9WFCcq5doQQB0zs84HPQBAp3eGB840EUB+tCSZcA4BQM7lmtW3iBFAgnzE /qsOAkCo9ivrpuMRQFwsqdQbTANAoe8Jue08EkDgoSnaQJEEQHDznHc1kBJA 4BXrTce0BUDymax9guoSQPiSJLIYygZASktxdNA+E0C8rzk2r5AHQMLkgiN2 kRNAXUhEKH0ECEDtIBEaIesTQNdb9CPYEAhA7mdUAc0+FEAA30THxJAHQKJR FDB+mRRA2qN0AftZBkB2IyEXh/IUQLhaJSYEogRAIADj7pBFFUBGF365ybMC QH1/IQ6gnxVAXo0iyf5nAECwCRUesPMVQBRIwVSsbvw/ljaFdcVOFkDSn87B 2uf3P5tLQoUyqBZAjtFJ6gUC9D92a7SFoPsWQLfhrHUjJvE/BC6jzRNWF0BO 7XKimGzuP2j7RgaIqhdAxEc7aTaS7T8yFFD6//8XQOY3NLf//+8/3LCcIw== "]]}, Annotation[#, "Charting`Private`Tag$25646#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0.9240982108406048}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0.9240982108406048}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 6.}, {0.9240982108406048, 6.991201108611017}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "6.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["True", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{1., 6.}}, { 5, 7, 1, {5}, {4}, 0, {1}, 0, 0, Automatic, {}, {}, False}, {{1., 2., 3., 4., 5., 6.}}, { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10}, {1., 1.6, 5., 3.076923076923077, 7., 0.25, 2., -0.8, 3., -0.5}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754832315296282*^9}, CellLabel->"Out[80]=", CellID->1118263685] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"fp", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "12"}], ",", "18"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.754832319725215*^9, 3.7548323379582853`*^9}, { 3.754837016133628*^9, 3.754837037249941*^9}}, CellLabel->"In[201]:=", CellID->1472586208], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwUW3k4lN8XH9vM2IcZ65B9SfUlW5Hck0ikSLSoRFEKJZR9iaQFIUla7FIh CgmZa0lSSoWEhCj7vm/zm99f85zn3nPez1nuuZ/zPu/Inbxg7cxOIBByiQTC /3+3dXgPM5kqWNnfhIdAkIK2N2njZssquEJgrkCUTQouJ32evjOngtmEDvnk MulA9Vme/zWpgr+YGU9+WqZDga3qisqoCl69cv9l+Cwd9mrbEjwHVLBLmKZl 5wgdhoTDOCv+qOAh6rBdbw8dIifzycTfKvgo8/HZtGY6KDZ18Fm1q+B7/GqC Su/oUJVPFkpuUcG+JJffvq/oYB+tI9LXpIJbi7XP56TQYdn1pMR/n1RwTI+r JeMGHZLMb0v7vmftPzAo+uEiHXTWV8hVV6tgj+brh78eosM30qASX6UK3rtJ OefPNjrwvTP6L7VIBSve/IBt1iThacYFzaEXKvibTGRhQ6ck7Ap7qKv9XAV/ Lihk+r6RhFA0Z1ifpoLXDVRw5LlLgvQ6hZ3Cj1j6srY9ZiaSULZiaXosSQX3 Xv7gupcuCbNvnlpOxKjgqYzi1pJqCYhPaj2gf5Ml8/Z3aSVIgIYPx+GrESqY XnLij4mTBJzTPu4gHqiCZWayNA4RJKArn3IRzqpgKcFQstd6cQiI3n7pppMK ngihynROiIG42zm/5hMquMivqUn3tRhYr6+94nJQBXtv0LUdBzF4n+ETH7tT BZeFlPEXmolCQVLXq25pFTz4dO5Rkj4NroTlzoV+U8YFc5cCiK2C0BrIvOHc qIwP7xS4WmIkCGo+1tLm9crYZOwS3aZAAL65LuykVipj2XBYaozhB3lb47is p8oYZzyOnTvKC5ct7ynezFTGpl3Rqnu/80CD2dDr8ynKuLfy9MEgCx7wNIzt 2nJXGSslnvTpNuaGGpXODQ2hyvjvPft/w1YkEJdXZ+QHKOPV1cumZu1EcJMK s75zWRkz9t8xdjtNBJqQqt8xN2Xs8NdJwi+SC1x4A/h2nFHGG950Tz2S4oIK rs8pSieVceyjUbe1Ik5wWvKqGzukjNcqTXcNjHNA6Uzdke/Wyng6+uiT3HgO 4BuXGH29VxkfiY/OldfjgKI/DOqVncrY+sTP7Ptx7EDuEn7ibKiMm968edSy kx2OtTnrm+sp43vuJgZ6S2zA1cjrSFVXxn2cI16jXmxg995+Zn69Mrb1bxTw 28IG+VWFkZ2Kyrjd7Z9NOpMA7BWc9CoZZXxJSfr9tU8EOFhyKD9LUhmvG93/ d+djAjwreLbjpogy/sB3VmvemwBrz1abz1OUsVujiXqlFQGss6xcDvCy/PH5 aFeymQDZKRnLW4jK2Nv2l+6qGAGW7s/FSLEp43f59sYFHATYl2Amz7aihH9f flFQ+I+J0mMeFvfPKeHRjXu5TD4x0dz18d0Nk0q4IpyrsaOIiczDjTrzR5Rw oliTm2MaEz0Ounvhzj8lXHU106wqjommfAbYfXuV8LUz/vV/I5jI1HNb4rFf Svi/Y2b73gYx0UO3mPU72pQwgUkGDT8mmjjdU6H0XQkbjRSwb/BlImNHbSue z0rYEG9dTvJnoqSjkX/G6pWwgVhSjHMoE43Ytl/+XqOEr0bXyQXeYCKw2sRT WqmETzDKJervMlGCeeijh2+UMM3sQod2FhMNGH/XuFKkhIfr2j7mvWYiA6Rc 6/xCCW9qGbdc18hEsXp+h8yfKWE5Su6ni/1M1Kf1aei/LCVMvhn23YxAgK3/ yQRTU5VwquFi2hZBAkSpegotJCvhtWkdTl8ZAnTLv8vsvKuEd/kW5RJY8b4h 5vox65YSllI+nVx1iAAGAg3sPdeU8O5f1dmXXAkwxrleXypMCS9siIpXDGXl a+pvTryvEvZ48CVgfy4BpBpPXgtxVsJ1VNLbFQE2+FxT9bbMQQkLtBWPPFzP BqFlsrOzR5Uw254nvTPGbND/pOuUm7US9t79NuFZEKuewux2HEFKuHoqXc9o jg0c/N74Jugr4fNBNjXFIuxA9RAv+KKjhAcb1y090mEH3+Ot63ZtVMKzH116 n11mhx1brVc0JZTw2WjGu48r7NA8avaab1oRr8/vFf0uxAnX+nLGTMcU8bXJ 5wvp2pywtYOkHD6oiHnW69s6HuKER/XvEhZ/K2LRUMpU5ENOOJ2xw/PvJ0Xs IRPfG6fIBeLJqU/l6hWxuK1H9ZAJF3yMZXYfq1HE3ImDHOOnuUAj+K3l9zeK OMBEXKbtCRcsHtbbhLMVccLzA107FImQa5nktJymiD9HzU/xGBHBftf8A91H ivh6LJ+VwQkiVGsV8+TdUcQE3tmDJfeI4K1GMxqIYa2TgvXHXhJBRc7LT+Gm IpbU/PPTrZEIUQKbB+6HKmKidB5DikACQ65YmZYARax26j3aLk6CieWxgxQf RTzVqzoepk4C28Hcd9fcFfFa8kbLY0dJQO7mXa1yUcR8R67q/b5AgrLWc9qr pxTx4WMxdc7hJFhXq5rhZaeI/zNUNDj2hATpVZOf6mwV8Xfb6G7X1yRQYpTN SexXxB1ak10udSTIqQiXdbdQxPe3ClrtaSbBxjILc2yqiE/UZlvw9pCg4LWI N3WnIo7Y4jOaOkICreKuR6cNFfHJKbSHc54EJS+fvH+jp4jNbHHwJgIZ9As8 Jvl0FHE0fp1KI5OhMk+P7qDB0k/o/1AoQIYdz9lNXm1gxWczN3WVSobanI/n iSqKeGC+J2FMjAy7sxOSjsgr4mVTdZdgSTJ8yjhenSutiMXCCrIy6WSwTFMe YYor4lii0ukjLPnb43GRAzRFXKFjUZ0gQYaDD0tRtqAiHr/Q/22fKBna7185 u8ijiENECgpChMhw/J75HQuiIsbXXL1leMnQnUB9m8LGyofiD11lDjI4xXf+ nVpRwJ6DsQGuiyQYuJ1F2bWggGubjtteGSWBa/R5/fvTCthlW9zhc79JMHZz i9PImAKedOao0PxCAs/rhBg0pIBXoqJK/laQYC7iw+v4fgUsOsoZEp9DAr/w +J7+bgXcVG1sYRRPgpXQo7x6nQq42lzRlt2fBKHBijpRPxTw1aqApq4TJOAM HLX//U0BZ55SmP2zkwSRfiXXNT8r4CL36UVpZRLEeO/ubKtVwGvP3UMc+4kg 7ClE3IgV8Mkj9e7h1US4e6FdPaRcAXM45orxPibCw3Nu4UovFbD9xYt+gVZE eOYQq+aZooCTdRO9t2dywX/2R2zeJStgw4O9hn8ucUHhUflg8UQFXFLkF2C1 iwtKDxZ9rYxSwNmyw8ov/3BCnUWbL6+/Ava2Cdk1wDqv5uZp6faXFLAZ76d0 mQ4OaDQ996nQQwHH9SuphmZwQLPRiszhM6z4zDneGN3MAb1bZd9n2ijg/zal Z33ZxQ6rii4ihuosfAM+Ro5HWf3Q8NDnDWoK+Nh/JK4k1n3ieWhXpISSAjYd +W7p+YTVb28oLs5IKmCboOXWyXtr6NtYd+dzogLeqmP1zyRwBfGRm+7eZ2PF M08/onpuGZnKMfZFrshj4rzkIX7PZVRx4BGrluXx3Cknq5uuSyi79EimRJc8 XvPOz73pvoC6v+4+Tvopj1VNOlZ7JucRfXiL6Ox3eTzzymKO4DuPYqVFrzd9 kMe13zMThW/OIf+wb66RxfK4fPhtzmj9DCp6UKV4qUAe64RkmA7bz6DxooJf J5/L44pgKbZn89PI6V+MpWGaPD6g6hH0b/M02mexR2s2Sh4zZza/+PhpEl13 1h/pjZTH21/v0t0WOIlqgtdnNYXJ48mX2/c4q0+itXvi9pVB8ri0KlTq7N8J tLWQJJbrK4813/q1OadNIM+GuS/3veSxdEh8nr/DBMr703898jxrvUe7oU5h Ag2sNO+4dFYey/vfffOtdRzJi9YunXRi4WsLUOG4MI6Oqb96ZXVCHmfHTegf p4yje7vT3Qzt5PGew++tZMrH0DfHOKWNtvJ46vf3d5EXxhBfQGiXhJU8Hu4Y nGveNIZ2JVy4R9ojj9OZnWAyN4qu5NlbzZrIY/+1UILYh1FUUbeX+w/I45pb T+OvZ4+iud8G1U3b5HGLnZpNW8wo0ljcEFCpK4+pMj/SjMNGkaswXTt3szz+ cSu8jffKKMrewDN6f6M8DrDhsHW7NYq6jRezIlXksf1GNe/MtFEkaT9gf0le HnfWfYyfqhlFtj4/xE5Jy+NdP8r5706NotjYuiYrcXm8Svm8o4GFt+Fp8Q1D qjx2U2m91XRpDHHWZBptFJDHfxqf7P7bMIZQ551lCW55/Py1aIvZpnHkPxtW ROKUx/8lzUXrPRpHRQKe7rNrcnhAPG/YjX8Cjak4Kv9ZlMMlx0nXbu+fQOt3 WP1umpHDRjtaNmolT6DHXv/tzx2SwyfRjF3u1km05cb6/Il+OZxI/Todcn0S NT1W5NXpkcO7/9zattQxidgaJN+9/SGHe4v16lOjp5CTLEnvS60cVh75cO6f xAxa1WFPpGI53O0wJCAfMYMS96xOHSpn2bdW2hkyPYPeX57O7S6UwzdHrluc +DmL1Bp/y049lsMuVXY+/97Po5re9iDdZDnM2ZOu4WK+gI4ttLT735XDpWs7 jkZ+WUDRCp8SOKLksOIlhVn7nkU04VdKFvGTw+LC779kyq2gEuW4iS0H5HBc 0r0e3nACWBpE7Q3cJ4e/nNTrdWghwMD+yGfYTA47b6pZCVVlA4mgICczkMPL f375sH1lg8DvZ9vsNsnhytIjVlJqHGAUaoSDSHKYj1rWETLLBY0/p2/XlMvi NXriX43XvCDFKxKYXiKL+YbjkhIk+cDNQNflSqEsdnt6L/dFEB/wpfgCeiKL W1uvTPQY8cMep9WJsnhZXKAklkqpF4APY0Trl2dlcX/MNg3NdgqIy6oaxjnJ 4pe6rSGqJCFw2W+m5nFCFtMfzLtmawkBuegW+3+2LJn3BU3xlhCY+lFePQVZ HJpKvXpHSxjecUjS0sRkMcfpT+VPnalA09lGCBWWxUbSsvoZ16ngdPrYiD2/ LBY+GAhNz6jA+eFxrRSHLH799r/uFyNUuCZlOqTxSwbzHZu+dP8cDcI22+XK 3JLBfXNUfh1HEQg4Gqqx+ncddoAr/Du1xKDiY+LoUOc6bKUvr+a0TwzWtuU9 a/u2Dp95ZfHiwFkxCJNqVyyqXIfTZn8N338sBjd/aUm4Jq7D1oFWS9lEcUg6 8Y/tp8k6PJPu+qXnozi0f1mtrNu2DhcbnLjn8UccpIAWWLR5HR5JOfrs7ZI4 pMjumLstvQ7b3hV4FqMqAdk9yUO7ZqUx/1p553ioBBSf2ve9KFMaO/1Q82xU kIS5706x6cnS+FexM3+9riRsNQ7YGxsrjSVzVFs9zCShQjHnvWugNPZJ/jtQ z5pfa/vZKuRtpPE737Tfl19KAvGguB/FXBqffx3wqq5aEnbX/ae7hqQx5wvp 7IpvkvAx+2jBzw3S+MaDw92Jk5Lw7UxxZiyHNF7ewH1pQI0OtLaPjsGLUlhw JoR371Y6HNzdu85tXApvkVwrtDShw09VwfumHVLY9kCBygZ7OkjeVzqo81UK 37XUnmY7R4dj3AZUhfdSOCDwxHvPS3ToHnSJXnsphb/o7wlbd4sO8nYh5iM5 Ujiy+Kjzobt0cGq4S2p/LIX9tF6ZKafQYeBZ9ZXim1I4jfeHQFghHdToPw0z QqWwnOX0MF8ZHdxujS/HXpbC513mqtdX02HcVeqy20kpTB63OiTylQ5jzeYB pCNS2PPTqQyPH3QY2e4Xmm4phcd+NVe5/KLDUPaTiO27pPD6ZPuelV7W8wRb b7YZSOHPPuUaGwfo8NeXM9ZLSwpHjWZ1zY7Qoa9H866AmhQW8GyTODJJh15z x+SnslKYLZBfyHaWDj2vbqcYi0lh4TDm1MACy1+pyszf/FJ4dMlljLpCh66I kaf+nFIYHefUbFmjQ+eY5AuRZTqWFQyl9BKkoP2QWVHBJB0rpywKPPv/+xrs 82bPAB3/fjDavrRKh9b12ZV/u+i4y/f62G+W/eb45porLXRc9HSuxomF5/sy +wepT3Q8l+bUkvCPDt+cNn9+XU3HOi1rDwM66NDUeOK79Rs6Zn89maDYSIfP ujFtoy/oeKLs7JYHFXT4lFLx63o2HcfZ3FkbekqHBvJwr8IjOvabT3aSYeWn /qLEQOUdOtYTy/uzM5gO73ZenpoJpeOYB+kit8zpUJubOX/bh45N/3VV1G6i Q7XI9xW18yz/gn84SwnSofKfOsnxKB0HH32RdeATq36t7PlW9tPx+hv/NMxz JKHsTZTQvd10bNgUnR0VJgmvbw3SG3XoeN63VU9BUxJKZsTkXDbSMa76uieG JAlFx3cpcyiw8EyNaHh1SECBeoaGHoWOb7dpH28LloCn34+ZZA1J4jb7f8n7 i8Uhx+CWOfRIYuMblemfQsQhO+uNZccPSTy5RcJS2kwc0n1E7YTeSWKXCZ5g 9zYxeEBvOh+UIombL1bE8QyLQvLVNS/xREnsczJK0jtPFJJGN/q9ipLEY147 JQQviEIC40b4oJ8kfvFe3JE0IQLRp3Ym2dpI4phWAx+jIRqEPC+p2sQtiXML LTNHPwjDyJ7N/atrEpi3gLa4GCwMh0eekz/PSOCQSEL4CKsfamxKszzfLYFt LCwYlY+EoDf/1q/81xJ4cr4gqdCTAsYvHRbVT0vgz5Zq0duP80GBdYcU4ZgE Lh32mm/+yurv07bQtF8CP44h0fh388Ks1p5Ij+0S+M4a7+VmPR7ILtYRKaRJ YAN6+NFpHTIIHyzYeoVHApuHi7bWlJEgZE7t2H6CBK6QmlKWMSLB4S2yGZPD 4rh1IfT48GEicL/h2axZI44thuYe8D/jhMtHImzY34jjaxff7XLZxQm9i0yf b/ni2NOmfXjLXw4o05+t9EwWx8+NWnWfa3CAcseFXqNYcRzbVuF8o4Md7gQM cVGviWOX3wOp+2+yg1vFb4tXF8Ux04ayT2SGDdqO2XmEnxHHh/fxmu15wQbG q813DhwXxx8bzU92n2eDgkeWrxUOiOPspH1dk5psIG3Y0D69WxzreSeyPVom wM0u47UaQ9Z+pXQKs54Ac8EMuQRtcZzhOWmp84AAJ2X0TZzUxLGwLCfncU8C fGYUuWjLimPn6SMX7+wjgL6DehSnqDj+V+jZOatOgGzCsxfNvOK4X/bzjTRR AginKX7PZGP5xzXy9hU7AUJ2pMx5z4vhnVfFXtL/MtFIj4SkyagYPkQ8abnQ wESHwxK2i/wRw8tZJ1q/vmKiWnlBx/42MXx5nU7rnVQm0qi5cbX4sxgW3UDq Wh/HRA9PceZE1Iph2cilwJAIJuLmDPloWyaGf49qGYUGMdHlzMUxpQIxnCzZ ViHmx0S9xt7Cc1li+EE9b+BmXyba1z+mU/dADKu9mhZ4489EZRFnjyTGieHY u0WcyaFMpKzcF3g6UgxLbPAaYdxgojt19qm6QWKYpG5jK5rIRBUnJnmLvMTw 3XyD2rOZTNS3EO6z+ZwYvr370NGTxUzEHy/6J99BDMsgab/xeibS3fB038ZD Yti7mRRI+M1E9rXbyp7uFcOV5rHVV+eZKPL4ZyUVYzEsPHWvRYebAG23p1fk NovhsFqL87dVCMC2/ppLiooYduXbMOm0lQBq1eLNUuvEsME5Upi5OQECZrY/ F+MVwwvDuTcVLxIgM7pJ9C6bGOa3HncgXyPAJ+VTYcILotjFWp69g5XfdUeu H+HvF8Xbsi1ObmgggOmU5LubHaK4b9vbkKReAnjcytMgfxPFGyYoSt9Z9VL1 9huJgyGKh7fa1N7WYAMneemShSRRnD04HLI9nQ2eDRcK91mI4rJyN1BMYYfv V42DHXeKYvzWn3AVs8OK9I/BLj1R/Glcx2BjLzvstVrBP5VFsZVL9h9tZQ6Y KNp14QtBFLuZCUkbFnCAbnDHx7IiEVzEoN8erOWEE2Lnt2x9LoITjF3+G/7L CdcLCBnFaSK4m2fj9gIyF/zsVfIviBHB0t28p0/t4YJAUw/VbBcRfGPPZ8GI T1yQ1c2eoHBCBO/0v2z7ZpgLPvvdZabaimCZaf+r53mIIJNb1vrAiGXf9NZR /V1EqKZwRcRJsexLuIpfKCFC9GvXFkOqCG7SDZdATUQ4bP9NaYRbBMf+I2+2 HSTC2POUul3zNHznNddebQkSvLEmis2M0vAxjf3Zo+okuLrodiatj4a5Jl4y Gk1IIGmqT175SsOEecfO3vMk6B9NPfy0nobb74Vrk8NIUJBAenqQQcNpmk5z 2gkkCNh2fpGjhIYlZtwtHLNIsKu32awwl4Y5uXkdI4pJIHRjW7J9Bg2rPM6y v19Lgk719CHeZBo26X5y4e43EuS0kre9iaVhmZWAyou/SeAVdOHW6UgaDloX dUl5mASGiq0d1GAalvM2YjyfJQHPR4ONVd40/Gk9d93iGglaLmYEnndl2XMz LyKTyJAqztNIP0nDe108ipr4yeDK8JD+cJiGn5r3T5hRyaB7+of7ZUsapgM1 wU2MDGz8hpUKu2jY5ZJTvcb/38e8yhT4akDD1mI7S2PoZLhnx3siWIuGH1tL xASz5JNsni82qNGwgM1+7wUJMmzKaWO2ydLw6d22d2dEybCwD1ldE6Phc8du 012FyVAzm5WqJUDDvyrObrbhI0PMQ77Jbk4aDk/cx5bDSYYjO712xCxTcc6Z FfO9yyRQHPoZt22KiieshO41jZNgPBZ6BwaouFllL121lwRlW55oJv6m4sOO +tMnWPGL6OIP39lKxQGep/SvYhJYRXh/n/hExdubrPnScklA39ih8LiGilPG 469WJ5Lg77cd3nvKqDjNJL9yJpgEgbKCItlPqDjybOrfcjMSmL6/5HzgMRW7 ykXxnt1IAuHzncWEu1Q89SfQ4RA/K1/lTw8eDaPigWP3yKoNRPA6SXlC9mPh WW2Jl88mgiG3z3zxBZZ+4M7ymFAiNB80TqIcp+LAoWabEQ0ipKw+G3h7gIqD avhXZ4lEOJcppOdqTsUKlimFaR1cQJjq+vluCxU7WM/lCV7hgo3RfvQAYSp+ 2Zw0l/SWEyJq8h/3vxfGPOtbuxdIHFCZ5shf/1YYy+qObP1Rzw4LIbTAZ6+E 8W7BxI616+xwzsD/yIUUYRzXPdp5hsQO+4pNaIuXhXEB/XnL/jUCiD7pvMGn LIwv5994TK9dRZYRtxfG6MKYIb7N6Mr2VXT9lNGZr0LC2H3qyHGX1ytoSSbH OHFVCNeevfhSN28Z/U7yYsq0COFdaWx9OpmLKOcmzyWtq0I4adG39nP7LOpx eftHxF8ID6jyh348N4skTT2sFy4I4ZHHNne3rs6gKI5W9bdHhXBnc0zE7/Uz 6F3P9ccp+4VwkWWDwaHaabTG2MYfZiqEhSPNieWO0+hiYNrQLi0hvC3t2fXq rCn0zM7myPr1Qvif4XfpTIsp1LeVVM8rI4RnBb4Fjc5NooOzbllNPEK4p/zP Qa2Dk+j2dxnaK4IQLjyAct15J1F94bewu3MUnH+HPeJW7QTSP7/Vwa6XgjnC 9vuNGk0gL4vhzwZtFGwyrHTxAnkC5ao93i7zmYKF+v+apWWOo37y/ly2WgoO G6rgctgxjtb946D3vaHghjTRqcP/xtChdyU36l5QcNM7g+EPiWMoNuPsQk4W BYcK+TZOWI6hhitSZ249oOB6JHSJlzqGOBy+tLjHUXAk7/7KQ92jyMAwzNgq koKfq4dGUEtH0WUpnVeaQRSscOZfdmDyKHqx9E9OxIuCv7l9WWuKHEUDbcmx 8y4UnLkcenZf6CiSe72X+dOegq9+Nq7RvDqK7O4SzlfYUPDx1FMD5XdG0R2v V52PzSlYdKNyscqLUfRp/+k9V4CCH2xs4SpqHUXVqpvZhbZQcGPJB+Mq4hh6 zVwuTd3EwqNYHPtuxxjKba27oKFIwSrxDWrTkWMoPS9OGUtSsAZ9u03gzzGU dPXYL0shCq7rQPvu6I6j6KMqCb9JFDw8zmV3LmUccTn33e1aEcSfHRRvCPNM oAlhf461QUF8cK79rLTZBOrAghelfwhixX3Zg5SoCVR3PqvLoFYQr2tWetr5 bQI9bGh6E/BYEItLMs6Wu06iSN/TKg9uCeKuQrHcvLeTyFN5JaHMVxDbqaQX 6FKnkFmYiseitSAesWsI+1g/hbQ13v4SB9bzJ7LjSlSnkWyX9Z6tmwTxX6pW /9ytaTSnF6zsQxLEToU/OnWOzaD0yebOmXIBLCpandIrN4eiU86Z054K4Ie9 N53zkueQ715CqVaiAPZ+sOZtLjqP9j3dcMfTQwDHXnGafiOygJYcwswmFAXw yZH7zAytJdQvIP5aUFgASw2sz9StWkJNFXmK6kx+rK/ucE98/zLKFv/JdP/J j6Ust49c91lB1k3qJcPR/Ng8fX2P1a819Bz9kv83x4cVgjN3iDDZ4Ni6rSu/ 6nnx/h/mYdpxJFDYdjr7TBEvvufoufp5hgRDhxKsJlN4cX2SA8QeJoNf3EQm pw8vVu9nuhyX5YZEzqd7NyjxYoWf+23XXvDAlyGJFN8rPNjOJExyWx0/JJJ2 m7G78+D6NqFBexUBsFe8PH3rMA82vKyQx35dAEaOfzNNUefBKdnbHFNNBYH8 9ebEu1/cmKs7w/j6CQoYvV7eQdXnxulz1zZ+qxYC7ub1Iw+VuPF03vENUyNC 0DRxKFFZiBt3iH8vDxYVhhNqRUN6A2QseGn/6/ozwhD4yO2OQyIZx29NlY1h p0Jx+K++vCkSlr2t0uBHo0FgKu/tLV0krLos8rJDiwbGb/X0qj6QcF/Zx1Ll AzT4Nnc3ujmVhIus9w56xdFg7Ow+3eV9LP2CQZNGPhFQtWJE7n5OxN0R0Wdu r4qA9vW7y5vvEbHF2t1lf0lRAOx6gR5OxN68igi2iMIhDfFDY3ZEvD6rseWA hyhco1xUTuAh4tB1sDu8WxT6m+Tf/T7LhftcR3wVSsVggry49YMtFx74PiKv +U0MVuBL7ssdXPhCi3Moz4gY0AoDEiIkuPC205UHaTLiYBzXfGrDB068kTTt 4xHGmv/2X2P3UeXEvjeKas5tl4D8G8cuO9A4ccqmX9UPD0hAWZXmkBmBE1M9 LvpdPysBXzf//irVxoHF4n7y30iQAILw1rTqSA7ceyuuXfifBPCZC4jkenHg r+cID+eWJEA8rO/63RMc2PNcs2iUgCSoT8V6uGzhwCtROXr12pJg/20QCfxj xzeeDOmfDZKEczz41fw3duzc7Pq5MkYSLhslqvRUsuODmXukK1MkIfqlkWBR IjvOH1MYK8aseTr+QdeRXew46pLsqfNrklDfcNF6pyY79uEIbZvlo0Mz++66 jevYcWfJFl4ZOh1GPGfymLNs2Mwy96m1Lh3oB/YGZWWxYfLtO1/lXeiQGnjg ymA8G172e+vz05MOitlHIjaFsuEb9sHbtwTR4b9F5+hiOzY85TQ72BdLh5fy bnGLpmyY90XNZq1kOmyx8Ly7XYcN6+08clQpgw6QEvzonSAbtk3mEZ16RYd3 9VfTuFcJODTCkPyxnA7mUzez9g4RsAHvucfGNXT4TI97GveDgJ8iCW77Bjoc MLmX11JLwH9123xFv9Kh7fyjQomXBEzh0lrn/oMOx5Iyio+nEPDuyuL1jr/o cHr4xdt+PwI+YnRKZ90AHYZoJVXrzxCwh052Yv8IHS4YVrxzt2HpO+2QNZ2k w8yZ6g+FOwj4UC9mN5qlg29cfePsfwTsVFtwvmWBDqtln7/qSRHwwXWPEggr dAjra24J4ibgPZzCWdVrdOCXKnkVPspkHFHWDftJkALRC9XlvPVMxnf+3ksl LFmm+nPNnXQmY3t1TaAMa7+qSMdHehCTwRUQPC+zSAdNl3/fMw4xGckXinfV sPBsK5/u2KDJZDj/4P1IY+E3FiD0veJjMtoHFftlOumwz5FvZNu/NcaprozZ 8UY6HCoSn6mpWmN4jGw4HvuWDg4kpZU9D9cYbnscAvme0+Gc3WbO5strjA+a fa8uJNLBK28737H9a4zJn3ZO70LoEEgwp/VtWGMc8D0zJn6GDtcOHJRyI64x 7E3yXl6yoMPt7JOKM92rjFDfL0L/1OmQtHh+Y2D5KkPB7KKbrxAdnqdEGkR5 rDIKUnGi6hdJKJq6Y0zbs8rwSixSsX8uCZUmqRYPlVYZnqRi3Z4ISWgaLj2W 277C+LnVZf+qjiTMbRkK/GS8wtg/eJH3U7gEMG/OXbWRWWHM1Gesy2WdP3IX e3Tn4jLD8Pdykba8BNCv0h+N5C8zYqKfj7qViwM0Wbzlk1hmsLP9kS39LQa3 XF6sWowuMgJrwqTzF0XA4v5I8NPaRYa5rb/tzCsREGhYTyA+XGQcWzGvCXIX gfgNmewM80WG1F7b/QldNEgaSyJtzllg6O5dl3e6jAqZ3mFCIqfmGTMunDQb ZyE4ncWIv6g/z+BWupnxQFIIVFpXqJ+F5hldbA65Ak0UeLbFRzQSzzGedv/U L9xGgcIlV/qi9BxjhH9T2Op/AlAZaqv0q22GsfSf266uDm4ILYzP1iuYYfS5 Xgr3PcINO3q/qCRGzjCs2Pj19X+SoXanuZql7gzjWnm6Tg5rnmkgIvWqO9OM KyI3rI/yEiFqS2CBtOs0o79Sabf9Iy7Y6/Jms7/RNGPPp/dLHppc0PRBS1tr coqxmvSjVO80J8QveRTfrp9iyNMVWtZzcYLNhnzdkZQphlCketOjJxzwI0pV L2vfFIMvfdfViHl2SHrrXMamPMWYoarv08piB7ux9G32q5OMc7N3xH8eZAcp me6KsuZJRrtK3/AdPnbospQ2FMudZBRHxTSF1rFBaqgdwyt8kuHKxf6l4iob OBbegya7ScZZr7xxJ1M2kO9trtqoOclQKmXqJwqwQZ+w8M4b3JMM/uIzb9zb CZC907K2v3uCEbfHxov8nABnvKNMjEonGHLHtS+GhxJANetD3ePbE4wNHy+X L9sRYKiFuHv59ARD0eemXYw+AXKJxh8OGU4w/I26Dh6WIYD7livmRSITjAcC PaWXuQlwvCnwnlz7OOPShuQNFpNM1L15/n779XHGuuPRXKXNTLTryOZfqwbj DIafTVv2WybKC3WVlZscY6zUa4QSnjERLSfrlHHWGGP3ufWhRfeZyP/L7+wz R8YY9CCToy+jWPbmJIZu8o8xBmWjEgbDmMh0nc2m/KpRhtIlzhdmgUyUbxLj 8fXSKMPkfvGmal+WPff6VzPrRxnludl3jFiyfwL7vFjXCIP5uetUmT8T9ZQb 6G+LH2FEyDjLSYQy0e4/l4Psd40w8Fuw3HedZY+nEF9ZGmYof/D1MLvDRCKa wxxZ+cMMNUcaeSmViQKPKJnWnxxmGGVJ3rcsZKLe0BM3h0WHGf1FrDqsZSKz nPuNAh+HGOEvwl89+clEBV++UzRDhhhxRTNGN1jxEZ3nt7HVGmLUXpwb/stF gKB1u+/5/htkjOS98dekEaDPJKz9wYNBRtBjU8EUBQKYu1dIMywHGf99V3BV 1CZAYcKcQy/HIONtx1fLMhMCBP8590/VbYBx6EnhmzlXlj5PlpqF7ACj/cZQ VRQrv3s0f7tfaP7HkA/hOCKcSADxKwdmig3+MQa7/+h9rCHAy3UGbDv5/zKq 9aon+Nazgfiuy8anq/oZTedOJG81ZoMQ94LIG5f6GT4bF7uEHNjAokJRoOlX H+NSqgbKvc8G/47w04/n/2E84KBeu09l1fPdLm0fyx5GuF9NqAydA8IqxH2T OXoYrtSW26bbOWDwj3X529fdjGg9Kev7JzigRPP9Dk7ZbobH2SNzSZkckJZ6 4pF8zy+GNGX6n5w6J/CIsX89qPCTwWZQVa2AuKC0U89gPLiNUd9n9PDdSS44 nX7xSWT7D8asxFLFSgQXVG/qCSqNa2X85H39m/CRCwKMsZokoZlRYbhxRX8f EdR4Fu6+PPqd4RlAd3R0J0LbF3W2Pa+/Mey4Hyp+uEUE7aMpPwLOf2X8t7z2 TbOOtf5nhVz+ppHx5Ay/jJkGCbQvuP0e9vjE+GC/u8FmNwlilzqKpVQ/MiZd PYb3niDBSMSeqL2/PzBeki5yqV0igZlQ+cngxHrGs2c6D7pukCD7oZrei73v GV6NT9UdH5GAXTVZsJuzjpE1UGry5AUJ7F9x/6VU1DI6vfc5ZGMSlBn6Vezw qmG8HLJlt2kigWjDQLynWjUDV5flZ3WRwMv28NmMHsxIveQyEDtMgsdVt0Ny NjMYowHmmrzzJDjUdn4jT2oFA+2zEORhIwNlfO9PV4EyhqbzEfZwbjLUc226 1hj4mmGvdzzGlUKGK1J8WurDRYwTO3fqvhEhg77W8O/YIy8Zn5fnAh0lyNB/ J0Gi//YLhknHqf7/fw9zsMraK8ftGcPe7tLUPZb8fozS6GqWxXg1KaoiJEmG rVJflNWVUxldEtrEclEyWN+RZOvnSmT47ikVviVEhnOdm87+CI5kSDNjvlzm IbP4g/YV5duHGKfzMhheLLx8pd31/A+uoNxUd2/tORIoss1oEGh3ECXp+kaL ARLsyPYJ8rN7hIQYb5U//CDBi6xVJ7+mDBTnWZpUXksCQ1/EWzKdgzwFFUu1 WPFtNL9SOCWaj5KnnpftuEeC/Jie52KPCtGI73LLbCAJtjsqWNvgEvSo9/Gm uB0kuGpunDW1/w2qCTFrSZIlwSct54XYP+UoVeusW+QqETaFH/hyOhwjoQPF yK6QCE3zfxZ0PlUhV9+t/+yvE8HbzVueS6QGEVW7bG4dJ0KF7d1LGdnvUNZ9 wyMP2Yng0KCU4jleh1xFrI6mfeMCTlRSv2NrPeK8vXlJII0L9qj+oHd/aEA7 x4X6nfS4oH1JvFpq9AuqjiLuqzrCCcm/7uTM32tCryoybf7KcELddvqEg95X lHLijyOzjwNk19aHaAV+Q9d/FYyYu3FAc7Dpoza2FrS1OcF81oMdDELDfsrz tyPd0KoTHA4EONvNLReV344KSM5Z96UIkAhxLrOWHWhitb5O8yUTTRBS59/H dyLOrZ/MlDLXUMaVtyLu4r/RbtuFG1q3VlDEjpWcDqFelNXucqoxdAE9nGRY xJ7sRdGaapk3uRbQy7TwCeNXvej5Kck3XFHzqIuNd2u+zR9UKugsXvB4Dm2t lngfeq8P2dS+KtPomkH7PH+d0xnoQ2ckV55t8Z5BzvJpAkNb+5F33X89k3wz KD5M9eCB9n400aXRtrRrGo0YbelXkv6HFkxK1950TyL26aXr7e7/0OvQUxtL bk8iiYzKjbcr/6EtMUVCR40mkcaBsKadggNIoqv32PuFCbSLY5f3wokBtPhb qULi1QQ69opbPK9gAJ3nKP7lcXECeZ1qLHdkG0QSpe8vDGtNoJvUuBOi1oNI uENth9XsOEqtseH4mD6IypSfG9y6NY5KvMSfhEwPouOaIf+9UxtHjQqd5trG Q0jjl4jXtu9jqO97ythAwhByJ3ad3hAxhpbCT8U/6h9C+tG7Tn+DMUTRVtG1 1h1GX60qG92JY0ilb+gnMXIYndEoWtRvHUWGCflB5T+G0X+893b5FIwiG2NP OQ/VEXQCt1Ac7o6iyP8uXy3zGkG1t43+jkeMojJx/3+cjBGEvLYJbQ4dRaPs weaWPKPo+p+cU7ZXR5Hs6JW8+7aj6OgRrxcx8aPowI8ISl/qKPLeG14n8HwU Xau64fXfyCi6s7XKn/R5FL15Ht3qu2UMud0RefxseRSN3I3TqwkbQ+9aXdjV tMeQTOjdh/yfx9C+gAy/1z5jyPrcfeYhiXFUv5jXcrVuDEXYPDqZ7jSOFhs8 Bmpkx1GpYdq7kRfj6OaZ5vDsa+NoWDVLdcvyOEK7q/zsF8bR7RvN70BhAjU4 aU3J6U+gaq821VvnJ9BCv9+6vKoJ1OliZ6eRMIGatvELKvJOotnjnbda3kwg u26xUavDk0h1d/eYDNck0v0hHnFrdRIZbT8p+05tEjnwfKv3tZ1CRzX79p+z mkR9e6/zdxRMoRipgaKiB5Mo+/3FvLcXp1GO0Lm/R6omUWnXmXjpH9Ooijgi xvw7iT6/775ViGbQzMS4v5nmFMr82v1FW3IW2b2bh656lixYrdg7NYe8y/w8 w8emkB27j66UxzyKfrGcoUqbRvbmZeHkiXmE7zOJXiem0dqDi30l8wtI+Typ kTQ3jRTj9phmKi6jKVGxI5sVZtFhmfEf0X+ZiI/v/s3W3bPIhI8+92QnAZTY 6BUB52fRV10hk+4EAhweXidT92YWPbi8dVuJHhtUMpT77azmUFldnQUtip3F 93UvXg2aR7Y/wlVCLLhgJCRyvW02C8fmbneZfC7Yd6+tR+nLPPIiu1gpUIhA qfO3fi+7gCq2p9/c2EKERAWGFk/tAmLsPbJV4SQZUrtM527zLKGyzYmPEoJ5 gW0uKd9Bawm9iz7mf7eHF07yD53efGwJRb4cu2RjzAdKBlE/vuUtoX1n1537 Q+aHZ/ebSkX2L6NcIePnCtECUGRzJODBvRW0uL3ELraCAiJuz7Tc8Ao63WS1 /u4gBS6HLw8bDK4gF/e03cqiQqD38tGxLv1VVNZU+qHNXQgqBXu3y3WtIt8Q PvKYqDDIqGjNTRLXkOfTjJhaJAyhhlfzq9XXkPRkEnHtjDDsdFeWcbqyhiT+ TEpGlAhDfcM5whNFJgpPeEo6sIcK63vLS332svrgWNCegvNUuLnId3H3ZSba 4H9YzjSOCntVX/QMvmeihxu9v/M1U2Gw2s8xUYcATR/NbytZ0+C8bKXRzzYC GLkb56nuFoHsshKBf8MEuGCbRD7lJAJdNi/aZ9ZYfVdDMCw0VAT23kj1pCix wYKB02nHUhHYOBWWbnqRDXZJpolkKIvCUI0pewk3O1zaLSR6ZkUU5O3hc40U OxjznuFyFxUDu4WtyV/V2aG0+Of53Rpi8GGjmuaoLTtUGNJMA0+JQc5dvpOK 6ezgFP19E34vBmfOfK2K1+eAJ8HKnYvXxOExW0N06l4O+H1aWmbykTi0Pqg+ ku/AAa4bNmwtKBKHXU2vJj9c44DMuhvhYT3ioKyXKMf2nQM+F+5OPbFVAuy/ x4wK/OWADwPDRUF7JSDRPfKN1CIHuM2lNx47KQFc6b77t7LurVbhPel2tyRY /PXolQuunOBe4bto0C4BUlkH9gYFc0I7rcByz6gE2CALiVtxnGBquPCDSpCE Gq/thdmvWfKVNyJNipKQ3inT84uDC0S1Z0//OicJ7ZfF84ZFueBpaM75rABJ EBYS8ltczwXxSWdbZaMk4YoJu5CIFRdEP6Ee/y9XEhzy+8DiIRfY56+ciRqQ hAObdHYusc4BPe1pWOycJOzKjTDJqeKC+VQ4b8xJh03PlM05/3FBSXnSldJ1 dJBd72PxcpELzjcJCvhsoAMt5/0+Bz4ijPd3avduocNSlsuBis1EWCD2S5Zb 0mFU8Y3tOWMi2PK1GqocpUN3Bvdh8UNEUCbeqDM4TYe6tGfHvAOJ8KUhtcEh gA53Ho04b3xPhNEdt1Qup9HhmtR2l/afRLiXEDIs+owO/g+iz10fIQJfDX+2 3Us6ONz/70KfEAnWsk/Vv6+iwwHxkIvxiiTYf7AnYbyeDrvuffGCLSQQb3GS e/2FDhvvevg+PEaCQu3BnfKddJChVfmbX2DxSMFUw9oeOgjfEQpauEIC6bz6 avZ/dCAKnwzJTiDBGE8l+69hOizGvrxi84QERUodGtYTdBgR5LjKXkYCuyX/ EMcZln8xB64VfCLBx4gFWZ4FOnznz7xuz5rLJ2rzTfcss/yNmrnJN0WCkqIF JcU1OrzhNYku4yQDbUXncxhBCnJv3r3tIkaGboNe20WWnML9N05UjQxJJ4Rb V1j746/rJtQakOHAMWJi0hIdIkiRiZ6WZFDcsNb5Y5oOvtd+JMmy+pRyrd7U uyE6uHGpPvjsTYazMotS53/T4cRV30eBkWTg1gnM7PhKB2uODylqyWSQWGVv kqhmxStMIr0tlwwvLjT+1Sqggx7bucxrDDL0XaVr6DxkxS+0LFv7Gxk+aW+a Vr3Gih+T52lvHxmCfYx8JM+z4hd89HnsPIuHmzzgELGhw0LAyosRKW5QdxSz tpakw/CSxctkdW74l1KW/nxJErr8HhXtNuKGNrM08W0/JeGdj+GbzDPcUMHY Grc+ThJK52LKrf254VfAWfkUVr3nXvr9lhDNDbfDf836GElCvFdo9bGX3MB1 8HZoKOv8REw11fK844YZyt66OiwBvhfl3pf+4IbG+b2uj+JZ5/VC9UfaKjc8 WC8xoaopARtcOVs+mfIAGZpfzDiKg1FARTLlGA9MCt4PN1IWB7tb3g42Hjxg 9ERtzXxQDK4/7xvuSOKB2FnalXeuYtA3XMs+PMgDOP75+PQpUXjoFqHBHcUL fV18q1820eBV4PY5i1ReWGPM6l7vo0JD1Gx5bBEvaMT8F9STTIWFXGdT8V+8 YFo+8b6ASAWbURN7lf/4YEP7seu2nULAd54YZdLEB5nehKvp4oKgEFy5/0Yf H8wLhHgXRQqAfsxlscYFPmj5nLG7ZZ4fXPL/ptvI8QPZOu1zSQcf1I7VvTnl yQ+q514XyRTzQMdacMiTa/xQoP1S6Ys6D0wJbDEZTuaHi+atv71yuUFW/UmT Zw0/eA8dPUlh1UHghch/V2gCYEfI4ahgncs7ISjvnaoARKpulTOwJcKz2/Oe 3NsFILnKe/RePxe0vTizFussAOY/i2ptBblgnCFT2+wnANZyEmcncziB2PTj hniMAIi7D491mHCC9oSpSGqJALxMf/CVcpMD9hAIHX8aBGDKtv19wmYOOEkp TVX5LQB1Kbu/tXeyQ6yG6sYXJEFgv3npoCxihyfQPTlFF4SW6QTWhM26/62S XutqCAI1MqvmfSEbjHqQd1YeFoTMiqMhr3XYIOp2rO8TV0GQnRZvXWNjA7V8 8fzYYEGQUxBYtP5GgPpPqX/84gRh6FGH5cdsApweVpU4lSkIlUVyRiEhBODk Kdxn8VoQekpDt1w7RoB0Vb2rOg2CkLCcdG9+OwHAtOrNul+CIP2Zp2FIgQBd zmbjpAmW/pXLuj4CBDCsdon3ZaNAZmPJmu0yE8V83bhplIcCjpSQYuffTPSr e+K9I40C95bU/afqmGjjRNHJVmkKhHxVnRkuZKIApu+quQoF9rTXN+xIZaIG ge1JDA0K6NhdyPoTx0QS69i0tPUp4JkYsKHqGhO5bHrXmLOTAnrNFpwNwUz0 2uCGi/ReCuDDRj9G/ZiIaLGXI/4gBQzOlu+R8mUi26NCj4kOFPhrLsZtwlrP PNeyNeAsBeaMiksOBTHRtN/97+OeFHicOLO88yoTGd04ft4pkAKit7RDF6OZ KC5JjvtnBAu/c/PQmWQm6n7Sn7H3NgVsXLX+BD9lIvXXTw2rkygQ2VNA+a+c iYLr3H/qplPgFH+upPMXJmps2ez9/DkF5LWv5lBZ/E+qf1ZAtpgCi8lJjuuZ TOQ68+ZpQiUFYnZmzpnzE6CMI9iYu54Cfx77+Smy5rkj8kT/qXYK1Ah2XJVl 5SNncwPtTB8Fws7VFWlaEmABYl50jFJgpsjdw/Qki4ecEO2vJQjBvoz8n4du EeDbQ2Wre8pCMJyv/kB9gAByuUNDvBpCIGelYXWRVS8e5fkRoXpC0Dt79j9v OhsItOuWn7UQArefu4of7mcDczFTZQNPIUj/0ElNeMcG95V5qwoChED2cIfe 0h82GND5clQpQgjYCbHK3ezscM3mUJxAkhDYK7en8xixQ03cmZXut0Lgnaiy b7aWNb/yXf8WwS0MPXtsny61cIB0H3PfO6owiGQK/3Bf5oC1cp+PnOuEQeHb s5edspyAXc/UhmsKgyTBpzmcxTOMP+4quXJUGFJaGs82r3GCUkalZpUzi/cJ FOaxKXABMUD3BcFDGM5VRjj+2MUF9WrKOSFXheHUVwF/62gusLjJlRyUJwxH FsZEnGhE2HQySPTta2FwFcsLLdQmgoD+bPxKlTDc2eslbWNDhKbBvlsBrcJw yVJh34U4IhRWHSOXdwvDwZp44e/5RIi/33x1aUgYHj0WOXfyIxFszGqD/JjC 8LTDQaudjQQ6cgZLpdxUuNef35JHJ4Ho4qvLC1Qq6D2hu4Vrk6AtJ+OCjyoV htKOtfKcIsGbUPpIiSYV5MJL2p/4kiD58B2XOQMqHHXT15aOJsFxcrjjpf1U 2Pjko+mZlyQw7F76VXSUCgOp9poqNSSQLfW0m3GmwuKU8vf/fx/EFjvUquVB hQsXz1TndJOg98zJA17+VDgxcTLJdpQENaj9y8urVOjaeWw0boEEmWLWFlMx VGCixCMH2MkQMf6hfvN9KrSWHrh0m4cMp9/vMLmYQQWfsB9t24TIYJrypqog jwqzHk5S//8/larPZsOJ11RwPry9rVyCdS9bPi1Tr6ZCO19Wpj+dDEPKclsu fKKCy8kuiVCW/HEt6VV+KxXkN21sqmLtz22laIx1U0F6x9cTOix70fnXczcN U8Hdk+LYRCHD+WuE9e6zVFC8u9HtOjcZLO19s3KZVDgc5CJxgEAGDd0JuRFu GkxTmKe/zpBASMDl8QYaDbap/dR/9pcEU/2/JV3X0eCYt0bcaAsJvr89dO+Z Kg1OjxYFP69m8aC7X6hDmjQ4c0dUfCaXBHfdTWPXb6eBpxOX5w8Wb7pswuA7 a0qDBPvNac7+LJ4lveVGzn4adIeYl+UfJ8HW2XyugaM0cKojfKs2JMFS5uO1 0x40OFjOaRW1RISOQNGAbH8a9Dq//O3ImscqbGLm+6/S4N+mt9iIVU/BnMET TvdpkCzw7MNpOyK8/Sx33TuDBqnD/TGP/yPCStI7mat5NJi4u8VvMxsR/Dbx W2ZU0cB6wTE5K40LvA8+zOsZpIF2UBn94ldOeCULJpPTNHixN0p0YzInTA39 6SSssda3MCfKHTnhQsgGPllhEdi9zC9/b5QDzuWUnbPXF4GkppIr/Yvs8NTT nv28sQjET/lemyxjhwED9uSgfSJw2O+MkkUAOzh/Nfvw8KQIqB8VFFRbYgOH pTaVjpsiILZ48bHmFAEOWsz3HeoQAfbPQetjClfRXdEHgWf6WXNRVI/N2w2r qLnbkOYzLsLqxx8fe2SvoP2Xru1M5BAF9b/lu389WkYWj0XSmzeIwj6RHgGF pEV0y+WNXp+OKBQ/27n7vcQiatA8/nUaiYJ+k5HIn4cLyPR9JoFqIwqXxdIV l5/MI6MJrRP7A0WhNOeVJlvLLLpS9mPO4ZoouH39IF/iPIvw1YAYj1hRqJW7 Q29dmEHbJWre3s4UBbWIhp4m5RkU+Oe0bUq+KPAbBkcNVE2jsjye0fxSUThx zmOpjzX3bzWylvr8SRS6XB60c2VNoct8c69+tYrCWreE2hmLKVTcen/PaLco GIifnFeen0Sarj3+fLOiMCXY8W7boUl0USdCWIopCjsv789s5JtEBUzVZxu4 xSDwn1T5lroJtCnB46e5tBic1TW0EDCZQAXOK6p5ymKwdogk+L8Krjwcqu+N j3XsSWTMWGa1DmOkaL2fUiqE9pRIUSpaFFGSFhRFIrSSJFuRqAiRSqgsIV9a pA2ZsYRsmd/8/rrP+5xz3/fzLvc953Oe+5xTKv2EhdXZwGlinqietcLV53Ef USCn/vrgXE0Mj/o8CnfpI+a0JWs2LdHE6XllMWek+ogn2Sa75jhoIl3phH1i oZCYf/zxo6T1mlikPOjQv19IlDnayE64acK6zeVvuYWQAL1u/VZvTYROH7s3 b0pAPB/YfOfZQU38dVZrim4UEEsrfw4xjmni5JyuN8JcAfEq3m/pmTOakN1W OhGVICBW7pyK+3lBE3v2NlUmhguIN1aR31YkaiJhZP9Zm1AB4Sg/c1Z2iiYO JDfmlJ8WEPVtt04pZ2nikxQRj1gBsSbHtHH/Q028qPh7ayhDQDQdL2I0lmhC 4QgxV6VWQGxwWnbQ8pVYX8Wm0rK/AqKV3lCeUKeJVUR4rBVPSGwZdFUda9WE XrSCVtZBIfG5sst9S6cmftsbPl7+TEhsu3w4t/S3JqJnMusWU/qIzp0kkd6w Jkai5r2oDu4jPK3PO56a0oS8XcGYqqCP+ClPufmdTMGi7qhfP2f1E97ttwW2 0ymgUA+sNfPvJ3xDnp5XZFMgt3ZEiS01QPQ7Lf/oa0qB689D3HynAcKP8d6k fg4F2+uzXDqTB4iAFz018SspEJZNhHbZDRKjlwOof9dQ8MhxwOGmuJ6O7pLc 4+JKQZL9xppCqT/ECQWqvO5+CpbeNjleXf2HOOu8cvndePH7O/8uqDg2TCgw mxPkb1LwevKgyvO+YeLCn20/996lIIdb23p75whxKSEwzLyYgsYD9RPVrn+J ax/vVhZ9oaDEwHD4k/cYoXt/1gztbgquGl8hswfHiJQTz7aHDIp5xNCGzTXH x4k05gcJGxktJA3u9/x7bYK47y2LN8Zinm+tFaY6+I8oH/Is+eyvhcZfxp6X j0mgKTpNoBiqBT35GacvtYj3C4bfdedGaqFozlOdrRaSmL51x8m4m1qIuf7k Kb9XEttfetiKP2y4tHk4F+2ShnSCW/0DChXfXHF+uT8ZK6w2fT/zlAqHA8/e XEhVhmtDokb+SyoYrt5LXaRUcGDvB9svdVSUnLT+lrlDBVeSN2TO/U4FadvT qAdM8T6YvH6fUIkG41Zm8g0HVZxvXT260Y2GTfuTe2/mTkeKX6xRmDcNJYbT bF79Nx0FSg2b8/1o8LDr1XSTUsMnOJcqRdCwau6dxzXr1GCW6XiqIlfMU7tV jOX61VAXZK9kIqENv90hkklS6tCnHRrOUtDG1o91S6ro6ggpufrZWF0blo+w 8Zt4XTETdecZG2iDfGH86ucj6og+c3a98SptrHBgf6vuUYdDzMubRle0oT13 kv6oVgNp5oKIzFRt7FSMnr3qlwYmG9QPGuVow3FKP6lSciay1T1tjJ5pY4dl 1w+7uTOhcFWyy/CHNh7u/DeaLe5r1WkE35Cvg3pFvYzxQ5qg2+6iZszTQWOr D48h/k4Df0VLGS7VEfPizBCtdE0YGn9uNtioA3uH3TOCP4j5Ym7wUYPjOrBw 37R3wIoC2+KiSv1qHSQmppz4IqTg5pavOemNOiga51BKpbUwMimXoP9RBz8G Tg66UbVwh9jkrd+ng9eRVoq9S7Ug/XJESV9DF5W/hQz1RC1U1s3awPHQxdFL 82I+m1ERuCNis/8eXbRPODKWgAqzv21uLw/p4k3oE0f31VRc1T21yytcF9mZ Bg6VflQc8K0PvJOti0zl8jBaPhX6EuzjwwW6qOp+lT67gor2+CMnl5XpgnrU VVqqngrbEt3IH/W6eHy6fllBLxXair7XOCO6oDRwEjYzaWi8WZ7sL9LFrB+/ nUbNaIiwUE97KacHE9ujv5bMp2HQ5WmOF00PSk/Ph7avoSFDoPKgkK0H3dnu PQbiutp6cnuhjJkePF4nSOrupuF1hnzZHeihSbZRRTqEhpAFW58Pr9SDKYW9 d1BcV7Pq814tW6sHxWmBthGxNNz8u7Huh5ceHgQ9t7t1m4Z1UdnvZ+/XQ+pa 8kd2Dg3yeqIPYYF68PnSU2JfQMNh2/QOTpQefrQaLwqtFNd529h3/3g9lOY0 256voeGL76rulzf08GLq6X7rBhriJW4JNO7qQVlSRnD6Aw12l4cGvPL0kNf9 YdD3Ew0koxUjhUV6qOjaUjjcSUNhybVxmUo9rLN44k3tomGPc9/U+jd6CBmb sbi9lwb69yVS6c16WH8wwc9qgIaWIwnkkc96EL7ZyTcbpiFKsUfRtksPW4mc B2Wj//9faqFqwoAenkxcMOiaoGHEIlb957ge1GfPqsqcomHDDj8lmiQdJ3+o hr0hacPc9LpKpSwdvedMKVViWfHvS9W9inTkMr4fWyee/7O8T22GKh2iZVaf T4zRUBGppfFUnQ61i0a+6wZpuL7ORnOHFh20K6UbPonxB+j6ainq0rFufPg1 R+zv6q4E2kMmHQKH5gHr/5+v5ZfrbDEQzzd2EzGe0SAb3KMnxaWDahKn1yuO /9dl6sxsczrUuwNCU5PEfWPaIvba2XTY/lN0dj5FQ+J/u/Qn5tLxlbS+hLSH Br/bsYa3F9Ghc2HdnzInGgysfnD/LKfDKe1kUKwGDZIS03jXHOjI9ChglwxT 8bHGmm+zmo4TShlrGE1UXHI7PztuM13cFz4Kq6KoeKR0MSPFnY6KjL1nnntQ 0VYcR7vvScfwot6ej7PFfVHzmkT1PjpOqditymrVQl5d5tupU3SwDvNdrBS0 0HT8HpTO0nHvnox3eSMFoyYPHmpdoONhafv59isUEGefXLFMpIMTrTFfQryu vUOV155sOoKNg2hXjTQxKKxpPZJHh+oajTc2XTMx88Y7+7BCOj5nVn4YuDMT W8ea+SnP6KBrfmHG685E74Pv/5rf0yHLrAk6KasBeZZkwuJJsb6aeU9CStXA bZCRd5JgQMO6j0M/pAbnE/LBrrIMbDrXEphlqIakdtXtR1QZ6JV61Z8fNx36 8Xpm99gMnIr7SmXtVcVSmYWvKKsY2P1fZq1ooxK8H2Ku/hoGNPNcvCrfKuK8 x9KcWRsZsCzM+8RYpije/9tfcvRg4HKaZy5jrgK2B2x2O+PPQGrUhmKHuXII Z7s1xB5lgGSXzyU/IyOr0WNp8gkG7HqayYuXkzFgttu4+BwDx4zDFt5xl0Xo ryMjfTcYUNYZOef0UBq2V/a/TE9lwCTFs/n+Bmko2u+K33qXgV0TNDLpnxQS 7m+wqM1jQPfLQG/TGim4bnOUOFXIwKziFrkISSkw1GzrrYsZiFeLbYsolESO /+x96ZUMGHao7W/kSMLPwHTh1tcMDN9NuWIn5uNW/7GV1N8ysODSxZX70iQw GandXtPAwPzXL/PX7ZbA8wXqWSdbGOAfYslrWEjgrFAxyLqdgcCS86GvpkhY lSK1ou+LGN/b7w6hdSSorZmYmf6dgYV1KqkuaSS0Sv354drNAPFb8HD3cRJu FvYUzBAyUGnn9ahqMwk7dnWerhlkgKq56VPkAhIMtdrWnPzLQGRQpmsNkwSh GIz1JAMu1xZ431AmoSC4ul9IYuLuoZEIyriICDKreHZHhomfCbIWHp9FxKKO J9GuCkwEvGhlMF6JCOlLeVtnTGNiywchc8UDEVFjk8GtmcHE7awa0qtkEREz nDwRSmFio5YwPDJWRKy7m1hjpcPEsam20LBwEUF1ibkiZDChMXtGcXqIiOhQ iPC+o8/ErCTK1KcgEXGnJMTK1YSJVklfCi1QROzZFyA7w5wJZedLTavE4+b0 fc3Vlkx83Kww5XVcRIw0eKWFzmXCbmrDtrVnRMTT01sPWS1iwk1j/JVMtIgI nb1+iXAJE4xj/v98rooI218O0+8sZ+KGgn1dYKaIULqytGOLAxNtNyfJWk9F RIPdgly11WJZTenQwjoxC5+cFVK9nomMxRPtzT9EhOt9k1Whm5lwlnVQaZwS EcxtLG0rdyZ6dcp7VMXx/DWd9luwg4mUz+dD2mgk+PkrnNviy8QQ+fmqfHE+ rA0kN6n5MXHdPmddniMJ/1rH9KsDmFjy+01qrgcJZxd0v5gTykT2UEF2bCQJ jsKOOMEZJvznTvE9U0iYkdK6Pe0cEw4XTyZoPhbnX+o1SS2OCVvjebGkX+J8 1qQvENxholz+wr5RJwkcDb6pmJbFROR/5eS+vRIgzBLaNucyccJgzr2wsxKo iQ0LfP2EiRlDXQ/9KiXQscmz4HYtE3PszjV4E5IQCmcPPasX27Mszpq1XRL/ zpAtPzYzoWr7Ldk3TBLUB1kP1TuYcD+jFi/zVhLr5Afyw4aY+Pbz8o00dym8 Ljr+YJcOC2ZaBZKJ56TR4uQ0cJrJgkOemjD4vjR+/KDzUwxYcJua/5b7XhqS ai/yWvksqO74pl1Bk8GCPQp5K21ZCK2ePXE1QwZ2pI99XvYsPLp0NSS3RgYu Cfd4p5xZOLX5ocf8XhkEPHfOLd7MQtS54ckYU1nkUhPvm+xnYV6Hz0nFDFmU 5XkLlx9m4RqFOVn0Qrx3tp1n5hnEgkHi4SUXOmTR5ffp3vXTLCQr/PwVqEHG iFyu4MlZFg6tFt0KNiNDJjnUtPmCGP+prE/HbMlg1rLuKSex8GZZdozNITLM PYZ7jW6wsMV4YtvfCDKIv6+4tqksPLvesPv4NTIcLyT5bL/LQvfL7I2198hw Ze3JCclh4fU72daWMjL2FM3vvfqAhQ0d7kmX35ER5KTMffyIhbMsS9t/H8k4 ++Pz3vdPWVhdQYqR6iEj4Vhedl85C7c6l9BvDpORNv3Ub8VXLBzIO3L3uYiM h3fXmhjWslCwVrtxp5wcni/k7F1az4L78L1VodPkUP9+JGtbMws7yjKrpDXk 8Hn3657gNhYefzgv6KbIQSC6YnzlCwvOe5p8ODQ5TF7eu6fwOwv05H+DOWJZ gbswq6GbBVpymGkAVQ6U5yo9AiEL1nHd1QGacjDY1GGkMMSCd1q6f5qaHOYI H+zWH2MhZWLu5yFFOSw9czpzyRQLHyroD7ZKyWENdX23mxQbunu2j+SMkuGR p290TI6NNgVvt22/yThgO+qdqMxGx6MftcHtZIR8rM54qMYGpbvEQq2aDLOA mKVBmmwU35/17E4hGZ+nre9YpM1GI72WTE8hIzqTGizNYOOmZIx89Flxfmw6 NGs4bDhrRlVM7iOj/+OdhzHGbBgza7lBa8lICdjrtJ7Hxr6fm1eoziGDlDUS 3mHNhkpG0pnnw7LIsylhpi9ko9PELflvoyy2fTpZtncJGzIBqW7H7suiQlV5 ZMSeDfaelrLUbbI4dYTlpezOhhd39sOP+TKwmN5Ner+DjXkL5yUPnpZBZ9b9 60nebCww06Y8WysDm89zm1h+bKSW3knL7RPzsWXONvPC2MjppbRspkojXO04 Y1c2G4fca6StbCUxJ2dJKTePjRcjdNc3cpL4uUzOZbCAjeFbqtO7aiSwPCju 4vEyNprQE/FzlQTkOjJFcQ1sOEzUbdjrTELkvZZP5X/ZiPTdVvXtziQxb/n1 oPBJNvL0rDzJhpNET4eHhoMEBySPJ1s/ZE0Q9uoChw8KHLRkUZy+548TSsek SgQ6HHSofgs7VzdKRK8wv0pdysGTt5aUktXDhG97lM3rFRzEPl91raF3iHDY 96vXfxUHkwo3a2mRQ4RC/E2iYQMHL57s1M2r/UN06493hWzhgODR55gc+EO8 Llp/ibuNg3O0uB8LNP8QEV+UfkTs5iD/iMFImO8gsdPPO3r2Pg6ej55zEGoP ErYyL6y++XHwZrohx6lugJA2ORa5KJgDd7Mry10XDhDfSltm9YZyMLzkXvjc sX7iubPFpythHDROP2Fx8Ek/ERrQzRuO5uAm6XPx6sX9hLv8sv9S4zjI4eec N1HsJxZdTznlnMRBYMjhvacf9BE6vEmTqesclO1Y7eGyro+YrNjYnH2Lg+Vs 8355kZBoX/cwxCWdA4uG1cqvHgiJ4l8qhuRsDq4f+3uvzEdIXDm6p6Egl4M0 y+1VbHMhEaj86uj2Ag52K793NJoUEBtTGGzVIg7ImlFz/9ULiDmzjr8tLRXj 214b3HBfQGi8ag3Y+5wDB4lm5Q+XBcTQJku6VhUHZtLdXxeFC4j3v2OqX9Vy sCN4hXBuqIDID/ntd7ieA/ljloZjpwXEpenLtZnNHNhMF565FysgDqalvqz7 jwND50djEZkCwtlqat/xzxz8t+LdsaJaAWFe40Ix+cZBiNIR0qFRATFta2FF 6y8OWDkDwT94QkLYp7o3vJeDPusTPxf7CYm3p3zULQc4mKrcZlH0TEjkaLwu /TrMwUG3D+uDKX1EVAZrV8w4B55abNuS4D5iz/wTqgtFHPyVOTua2dtHrHzX VtQjpY/Qrz7nQ2f1E4Yec3YkyekjKa+yKOZwP/EzXFD4Z7o+Fu0vDZGWHCBe aq10vzVTH4fDunl2jgNEWk6anBNNH9t48xu4NweI7Y1btmSx9ZEQ5aF5bsUg sdjrsfQmI31Eez5r7kwdJOijavdlzPQRrrv+8RXSH+KzTg3Jw0ofjafmaX55 +YfYsts6XdNOHwrGvrnyAcPEvMk4p5eO+lhiqCC40D1MUGP6Rv3W6mNBqlRB n/sI0VqQbv/OVR/cDbrTldb/JdaRNAbO7NfHzI9+vt1uY0TwETvFpMP6eC61 283+zxiRJjzByQ7SR/m9kjuHI8eJoY89Lg2n9UF59bemtnyCiC8qf66TpI81 j2iBa+yniGY/n/hH5fq4IilXP9opgQ0/Kq26phtgTGicHPxV3C9dx1ZPzDRA htzGwj1L5ZD+3sxHRdsAc/+7+SLgrhxGKq6kWOoboGQhQSn3lUfCzf3yJ+cZ YNXewcTxMQV82Ehr19phgHLVG1QDORWQ6pyHud4GsLAo3cnzVoGhbfg0+Bpg XVhfY36VCgItB2x2HjFAtPuK9ZJh00CZXpWTH2WAQJ1/p94fU8WmGr8Q+wKx vlSf69PapoO57PoQucgAMzKrD9WQ1ND77OWeF6UGuNY4UiNtoIbQQsrGhVUG OLF5mc+vg2q4m1LG47UZQPrNqtv9pBkYCVD4qkYyxL5l80wPk9RRPjBrY520 IZ7ff/svRkcdkT5b30bJG4Iy7NXy//tMdbfnFUnPMMTDkJhl+w6rY9mqDZdG OIb45si7o/pLHfGsVJs2e0PkmHYVHKnSgNvN2qIEZ0MwNy0+IurUEO+vh3lr 1xvC8u+K/3ZOaaBEZYX2GzdDqI6tYjZYzsS3McFQ6UFDDDYlrp5MngmL+rnp txIN8dHq4IGBfZqoC26Q2/3NEHP/+cgHdVPQ2d7UF9llCD/NJ3f0JbQwNK+1 JUdgiBsmq7OiKVqgjn1O6/9riJT+gxnnbLWw078XgUpGWFAQfV05WQtBTX0G V6cbYbnXnuQDBVo4P+uPSslMI5T43jgVVq2FBwNjH0V0I9yYpZJePqiFSV9y UMRsI2zdPD/MbTEV094qbMucZ4SGC4P3LdZRweSqLK8ljMAMUODn7aRiRY+6 xjQ7I1DUPcZTI6mI28l8kOBmBFeHmpcr31GR/pKT9GSHEeoFd1vsPlPxhG10 os3bCLG3+h73Cqj43MlbpXvICC+FFXdV/n8O6L6w+06EEX7/vLTtng0NC8tQ X3XeCCNfv1ISnWlw1ln6uDvWCC8c0rS0ttLg324XZnrdCB70s3lfD9Nwdp6j j9MtI1zsyGbrh9Jw9crqtQfTjTD32fIbU5E0lG/cxCjMM0JFeO/GXck0vH+0 Re5DoRHGXv09MpxBw08N977RYiN4N53YNCOfBqUmr9IFL42QKqOoOf6cBr1Z u9PcaoxQE6r6vryGBotLPlGhdUboPJKoOKORho3Oh1xe/GeEpLNm99d/oWFP bgB+fjZCwhhGbH7QEKxy1EDuuxHmX/4voKiHhhjf4yrG3WJ8EWO6hX00pL4J HbYXGmHhxK1Ps4doKDQ589H3jxGGtZtuzRul4XVkRGXMqBFUKbGbn0/Q0N4d mfXgnzjflLaR2ikahCuiY99LGsPqheGLIZI2JDJiA4fJxlitlPJtm1hWJ192 11Q2RsD7XVWfJmnQ35lkO1fNGIt5W7yPjtAw9+U10y2axrCbvf7ZMgENDuxk 9ePaxjCYMH/p+JUGt9OpEzcZxghKqPZLE/t7sPNOZ7m+Meq1x8vXV9BwZnFm daeJMV7dvpFx8B4Nr64sKes1N8ZR2dV7/RNpkBtszx+ZbYx3s+4upZygwc7O /y5pvjGeKhS6e3vSEJWqcl0BxsCemF+HltPwZvzuRfVlxnDm25NXGtKgsnZx mK6dMb4s+tc9LEvDJanD+yzWGcMrMzFtWhkVTVuUdyxwMYbTi8zGpAQqNArS N9q6GSPjlswBC18qkjz/w2ZvY+zUE6bVqVOR/HLRjFPBxtgcWXNvkZMWOnRa yedPGiOPdkipVUtLXOcHJy+HG0N/l9KsP50UpOun/ci8aIzDGZ5nfh2gICdC /klDmjF+Wg0J1h3XRPHKJlfGW2MsvN0YneGpgclbvqtNGo1RscXppqSuBhaO y9rO/mAMuTIFg4oWcT/Kmstb+dUYURMXndNs1VGlmCxxcNgYxaWs4hjGDDS9 3Z1ermOC+MA7V7bVq2KmvtS1GqYJhpyb96WHi/tlyPWYJgPx+PPYfbMWqqLd rC6wi28C6Xay5eMN09AZY2mvamuCqXMm9zupyuhbLepz32eCR4Ze1uY9cmi8 dx4zDpkg9cca+8X+cngkT419dcQEBYPdmhsl5RBcYWlhetIEnt8/fellkqHA 33N4PM4EMYe2Wy0LlYHw/N8X95JM0ESis0m6MmjoOqPhcUOsP5v67kiZNJJS kh9VpZsgGbFbxsjSCJ7kko9lm2BCZ5DgP5CC+6bijWZ5JkgQuXw7uVUK+qrN o/FFJvheKLe7+pkkFHy2r1xRZoKe45YOQn9JCKr6rkw8N0GjOb8/gieJetbx nvtVJrBccXD9vV4JFJxQmL/9jQlyFu4K9r8ngaT2xCiNBhMMRIZ5/T0ogWNW nI+vm01QnLlout08CbjF5XOD20xwa4ZM6BlZCSzpI47zvphg+RL7/NIWEvTt 377t/GYC99zTGUrZJMjf3ayb0GWC6030HWdPk9Ar2bVvpUAsm1zuXL6NhHo3 /2eTA+L4m6012L5YzL+LJVXzRkxwev1bvlCfhMSZF7ftmDDBa1qApNR0Eo76 6TyYSeKihPlAuE8kItzeZUnUSHPRtO/WNeNvImKJsfWa4/JcBB9Qcd1SIyI4 4S9TzVW4mG2+S2+gQETIda75802NiyOPqM3tqSKid2GHTaImF2WKST6K8SKi /opvvJ02F1HWjs37z4qIh8Pj3//Rudi6LGdq9ISISFh9dvYDDhd58xitCUdF xNF7GuGexlxM0bVXzw0U45G/3aLJ46KWpORSL5YXe5kb1M7iIqbT/Yt9sIhg V5QeCbHmouZd+Ptrp8R4dOxf8xdyMfG2j50XJSJ+B7ZSfizm4nqXfGVgooh4 1+S1O8mWC1ODpTd+3BER+eZ/iuztuTC7pHz75yMRcfl8qILIiQuKRXPlXrG/ gV3KW/LXcbFrmkKfZ4eIcF16LdvLhYs0C5r681ERQaQYTlLcuNBrnB9bJE8C c7LQ4c12sX9zqqQtKSTIbrK5cWIXF6vsdrm+NiCh+2G9wMKHC6NL72P2WZOQ t/d39BV/LjLfCb3rXUmIrwr84nCUize1SlPHDpBwhCVrTjrBRbNy8yqtMBIW tdMbdp7lIvXgkkm5ByS8sdsww/IaF5Nmt3Pa1SQwGlna5JDCxcBJi/HDPAlw atkJXne4eFQzn/XZQQIh9n8oiblc5O7WV/t7TgLmDhd1xyu5UFOzyWErSSJu VY1ReS8XKQ/eU4IMpFB+gf+7dYCLnqhDG2wcpND7NilnYISLNUpzrsw9KIWl jrt4LAlTZJtcsD75VAojjtKzwzVMYaq118DNWRqbnRfBYZEpsE5P2cVPBuEX 70h42Zji4tPNzTMvy+BhvVLl8RWm2B3k8cb1sQyUVrcvy11jijz2/NWbxmVQ ujrQXm2XKez2yYqEgbLoif2iZOJjCqey0+F1CbKY2Wj7zuagKaZKUlb/fCiL fWs0VvsfM8WZQVbphd+yuHopWC061BRexLNOeVkyqhq/vU8PM4XaLs8NcXpk 0Nfmb2iNMcV7vzkWd5zIcIjTogzEm2LQJ0lPaycZQe9D/5O/aoo/vvu8Dh4j I31G11Vmsik+kNa+uh1DRuNaJ9f5aaa4ldchnZ5KxlTcI511maZwkcv/5ltA hkmTzhef+6ZQiPPgDLwgY5N6WErYQ1MUtp87z2ki48y6Xo+bT0yx1fdlO6nz //cBrWU9LjWF0vv7zYFCMj41FX+ve26K14kdC06PifufBjO9q8oUCbbD7zWk 5DBn/bldEm9NEbQnYqu+ohy2X+43pDaK5Wj+9azpcohu3thj8cEU1xdGr0ma KYdijWfZ9h9N0SVpbfNDSw6/1uv7en41xfbd1eYRNHH/vXIyUv+nKegX/bpO ieUznz7e7eoxxV6PMbMx8fw1DOuXWX3ifMrY5n4V66N7xXX6DJni2m2oW6rJ QZghFJmNmeKIZ4NclxhPSe9KnYF/pmjc32E1LMYbaX5n3kNJM6xQy8qfOy6O x2HSJn+yGQ5elnIgxP7qP9nib6Vkht8sny1SHWQMTTy6NKZqBtuh4IpLdWQ8 J9TynmqYYebCOrfxEjJiT/u+PU41w0/LyRnLM8jYVvW6h9Azg4PajYqwWDLM FNlykmwzdCjar6gMJKPmUtuScFMzvDGdtWPfYjKSWmZvW2FhhmWVyU+GxevL TmrscQUrM5g5hezOlSRDKnX5k2iY4SJ7xF1QIovGH6nNzsvMYNxesTMqURYp RlODanZmOL3d0z7mgCwWPCgwTVxrhpTSS+aTOrJQGJ5m77LJDGennAdDBmXQ ar3Xm7bVDPt67NSvvZSBfznjdvJOM/je2DDRuEsG9+uiKRlBZvD0jvmZeUO8 Xs3omb0nxAxGY73ztnlLw27jsrXc02YI7HYammkhjV+fJy7knTfDn+eRlKLn UqALvaWKks0QuTrhsXWbJC4p2QirX5oh9Lp6y24BCf4r/1b+ns7DidqNkfv/ jRF+4V3CyzN5iMvRz7GKGCMOVP6nBRoP4e4taly1MWLPwpL98WweLv++WTZu Mkq48U/SFlrxYOFjM9VycITYss/P9td8HuLvRRRmkEeITdk7DsaCBwpjXoN3 8jCxhmNb9WMlDymOecs0mocIWy3FQ9GuPCyOd459teUPYbNh8oa1Bw9rrfzb 8qX+EIgTvO704qHQ5/Jdp/uDxDzlel2r/TwcXRTzaUJxkLCyq1j59RAPPRYO 7+Y/GyAsI/IPRwXy8Gx37ZoL/gMET+JyzZeTPNxy/KD/6nc/wV0UPnwunIeq dcunPmX3E8bHjtAto3jYugpB3vv7CYMn3vafY3g4+f1h+/E5/QR72CXgbDwP Jq/ids+R6CcYFva3LK7w8GLB7bfrkvsI3f0L3ny8wcN6izKz7zZ9BC3H9G94 Kg/qL7eE2PcLCUq3LpN/lwflVe5Ln6YJCQ191VXt2TzYMXPkPD2EhNoOicCw PB5ar3PWBugLiWkpg6m8Qh7K1XOzmUMCQunTt7f/FfEwrdPk6pUaASFPbR49 XcbDO9cT6YpZAkJ24yuWWSUPCp/Ob8q8JCCk4h87tlaJx4utrG+fERCkhoyg U294YDnueGsUKiD+KV9N4zbwoNk3mOwbJiDG7aLqWpp5eDhcbZUcLyD+RgSP h7bxIFVcq913T0AMvfDlmHzhYXp8e8uFBgExIOHu3PxNHO/2j4JskYAQLnI+ dqKLh6Tu/O4gayHRe2xxupGAhzkai9cYBguJ7icWDe8HeMh/tCf3V42Q+DnM mjw+wgNbf8a5LnYf8d1Cw8Bwgofcpzq7tkT2EV/3y65pFInrqc634cBEH7G/ 5diiRZLmcFYyULaa308IDw+tjZM2h+PiAd2o4H7CZ4bv7i5Zc6hwwnzTKvqJ 3c5u8ZcUzSErunXq14YBokvYkvlL2Rz00ZHMgfQBYucFp2cLVM2Rf+de3cnx AWJHDXp+qpsjkt36YSh7kNi6lIX5uubIaF2pv3fOEEFqllOppJvjKkfaj5o1 RKR5CdvtWOZYIEGTdmEMEz3hRUc2G5rj6Im4ObOoI0RAtVNukIU53FxZh/Rn jRLRjsG6T2zN8SjXddHW/kmC/8Wjl1gp9sdQq+Nc3D+iaf/y4ip7c7TelC2U nDtFUGPVNnxwNseZW5mzzkaKiPT3GRdGNpvDsGNxbAtTAmWbmict95vjw8IZ n1xkpOHRXVxTctAcGxUTiARPaUgfTUlaelj8fgzNYuMLcX+4ttdyXZA53q2s 9lwUJoOWTxI+h06bI21Xt1OEIhnC7WbtDxLF8Vyn+NiUoQBd34gis3JzJBre tVfVUMUl0c7ZUc/N0b5zakIbqpC9ZPvg1wuxf6Xesh/2qEL4SCYzpdoc6Ron KpY8U0Up6UyS2ntzVLIFo2E7psM8bof6/mZxfFs0UyOjpiONY3Ox9oM5Mr12 NtMeTsd5O8mzZz6agwg54veepAbX+NAjIz/M4W2Xdp+doIZ6/W1/1nSZQy3J sIFarIalRcT+3B5zKJ79ei/4kxq4n6d2eveZw+fBmOkh5gxMGhzf0DZqjoj2 fweepM3AtadBs8sU+WBWRxQkxqhDxdHlAVWFD6Jo9QHrHHWc6rA2PaLKxwn5 zRbPX6tjj8wo21yDD2Ghf8AFCQ3McwpQT9Xlg5onV/L7oAbaOv3+hPH5OPuI oq+8aiYoCj4PVm3kw9qvtELtlybSbY4f7XfhI8WT1SslSYHl8WibOFc+4qdq Zj/WpsC5P6+51YOPr6lhEe6rKTjXMjy2w4cPE4k51QmPKRhPPbHk6Ek+5hQK uq8HaOHsx4uKOmf42OzZv4VzQQszZ6Y2PQvnY+TWu/1bb2vB4tyLnTLn+Vi/ 5MWnD++0sGe/fNTFBD5e7WUcaWZQMZpBXTfrCh9vOy9cL55NRXiniU7LNT4q 25kc25VUpK53zKXdEtt761Nuv5+K9vlx79Oz+XCVVHnR/4iKPf5p11fe52Py o/3driqxvvuFXr15fIxzRfePt1Khzmz9y3/Ex+d0n/NHR8X6tnSXNz3hI1X5 qFoHmQbzy+PnjjzlI2zHbZ3PM8X8XU5Hu7ScD88N/azkWTS0LTb74V7JxyLz XXXui2nwPkbcl3zFx6BfyrYCRzF/F3pgRS0faTmky+r//++qKd3zfTMfDstk ei5eFvN1lSemAa18aBRre9cn09C6vHqE0s6HWZTNhauZNAwV/z7r1sGHYomX ac1TGk4NTa6W+MbHvU0Fm0xf0KBqpkJL+8GHS+2TqJlvaDC9ZX6vu4eP2Jxz uwPaxPbaFgecF/AxtjHzRU+H2J76WoLXzwdnLedsx0+xvVWeco2DYv8WGJzf 0EvDzgj/hsPDfJzLb82w//99OuXhVzVH+bi5dsejsmGx/fHEHcXjfMwu6z9/ f0xs3zKTu/UfH08vZklT/9Fw07d4WCTiI3n3/580/A9V/ELT "]]}, Annotation[#, "Charting`Private`Tag$38618#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0.9218949328882825}, BaseStyle->{}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {5.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{-10., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {15., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-15., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-13., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-9., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {11., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {13., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {17., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {19., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-12, 18}, {0.9218949328882825, 7.001063122766649}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.754832338818324*^9, {3.754837023795882*^9, 3.7548370381551*^9}}, CellLabel->"Out[201]=", CellID->783870621] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->20767984], Cell["Interpolate random data:", "Text", CellChangeTimes->{{3.7548324274355793`*^9, 3.754832436826256*^9}}, CellID->11719121], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"r", "=", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "20"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7548324392351*^9, 3.754832457906375*^9}, { 3.754832500580913*^9, 3.754832500921093*^9}}, CellLabel->"In[84]:=", CellID->1715536274], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQAByVgAA8D9xY+Wk4AbsP2dYhD2r 9PQ/w7sboYoC6T/+v5bJDFT6P6tDXnrCA+Y/R8w1bUlY/z9AW2U75FnjP2tQ GYGqIQJAVk5uZwPt4D9rwheei8wEQHxQxCS3bd0/xYbcRtpJB0CLpZdgceHZ P9dSIUKE/AlApPmiOSn11z8MAxW2laIMQMSGC2gjt9k/mwXPtRQbD0BAEj9Z DnXbP/CHBIR35BBAHgSIfddt2D9AtgRzmyQSQEFdo3TfGs4/olZcHnNeE0DD sNTcFL67P+D683L4shRA/N/Aj0E7wz9LyG6NtPAVQHgXuKMP1dw/kpkpUR5J F0AGKlrl8wrpP+vcO9E7mxhAH5CIwUMg6z9wSTEXkNYZQDp/hOUQmuo/0blm BpIsG0Csas4zfOfpP19Tf7vKaxxAflA14QjK6T/J8NcZscUdQHUQzLGpe+o/ RQCINEsZH0DrzWAThjTrP3acjQoOKyBAFKTTYRaq6j+4OndPzdYgQLSA92pN TOE/kW1S9yd3IUBpEK9tdw3IP3NZWX1cFCJANPptMTwtqz9DRwDY574iQJEH i5HqX7E/qcmYlQ5eI0Bd5GJcEka3P/1N0SeMCiRA/VdAbGjDvz9aizWY47Mk QKayiir7gMQ/TV2La9ZRJUDFP1n/rhTJPy4xgRMg/SVAfMvYy2agzj+mmWge BZ0mQA6ptShZSdU/Jrt7B8Q5J0ABt9X7myveP5TeLsXZ4ydAgH0JWPKg4j+Z ltPlioIoQPpATohGo+I/jFAY25IuKUAYktow0YDgPxWfTjM2zylAJpsLu4B/ 3T+nprBps2wqQNwb6rtRvd0/J7CydIcXK0BqOoPbGhDgPz1OpuL2titAOasU sZkP4T9B7jklvWMsQFk7yT7AauA/Tkf5RV0NLUBmgOESQuXZP/I0qsmYqy1A lMLWkzJt0z+EJPshK1cuQAbyG/DCiNM/rKg93Vj3LkBKj76oTyzeP93lq3Zg lC9A42YefL1s5D9+El1yXx8wQHSMIcihluQ/WPzcWtxuMEAys+ItjZjgPynn rK0ExTBAAiDvpYay1z9/rpLvmRkxQNQyazevCNQ/IEDx4nxoMUCyu+A6ksXS P7jSn0ALvjFAN0yUMSJw0T+bL8dP5w0yQNINprW8QdA/dY0+yW5kMkCeky9l 1xPOP9PHyzFjuTJAqJqsJmityz99zNFLpQgzQG27N8+kTck/HtIn0JJeM0Dm xl0AD/rFPwqi9gXOrjNAmBZTmp0Zwj/835j6//8zQHz7PXBzfbs/E+e8rg== "]]}, Annotation[#, "Charting`Private`Tag$25927#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 20.}, {0., 0.8758395405412626}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "20.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQAByVgAA8D9xY+Wk4AbsP2dYhD2r 9PQ/w7sboYoC6T/+v5bJDFT6P6tDXnrCA+Y/R8w1bUlY/z9AW2U75FnjP2tQ GYGqIQJAVk5uZwPt4D9rwheei8wEQHxQxCS3bd0/xYbcRtpJB0CLpZdgceHZ P9dSIUKE/AlApPmiOSn11z8MAxW2laIMQMSGC2gjt9k/mwXPtRQbD0BAEj9Z DnXbP/CHBIR35BBAHgSIfddt2D9AtgRzmyQSQEFdo3TfGs4/olZcHnNeE0DD sNTcFL67P+D683L4shRA/N/Aj0E7wz9LyG6NtPAVQHgXuKMP1dw/kpkpUR5J F0AGKlrl8wrpP+vcO9E7mxhAH5CIwUMg6z9wSTEXkNYZQDp/hOUQmuo/0blm BpIsG0Csas4zfOfpP19Tf7vKaxxAflA14QjK6T/J8NcZscUdQHUQzLGpe+o/ RQCINEsZH0DrzWAThjTrP3acjQoOKyBAFKTTYRaq6j+4OndPzdYgQLSA92pN TOE/kW1S9yd3IUBpEK9tdw3IP3NZWX1cFCJANPptMTwtqz9DRwDY574iQJEH i5HqX7E/qcmYlQ5eI0Bd5GJcEka3P/1N0SeMCiRA/VdAbGjDvz9aizWY47Mk QKayiir7gMQ/TV2La9ZRJUDFP1n/rhTJPy4xgRMg/SVAfMvYy2agzj+mmWge BZ0mQA6ptShZSdU/Jrt7B8Q5J0ABt9X7myveP5TeLsXZ4ydAgH0JWPKg4j+Z ltPlioIoQPpATohGo+I/jFAY25IuKUAYktow0YDgPxWfTjM2zylAJpsLu4B/ 3T+nprBps2wqQNwb6rtRvd0/J7CydIcXK0BqOoPbGhDgPz1OpuL2titAOasU sZkP4T9B7jklvWMsQFk7yT7AauA/Tkf5RV0NLUBmgOESQuXZP/I0qsmYqy1A lMLWkzJt0z+EJPshK1cuQAbyG/DCiNM/rKg93Vj3LkBKj76oTyzeP93lq3Zg lC9A42YefL1s5D9+El1yXx8wQHSMIcihluQ/WPzcWtxuMEAys+ItjZjgPynn rK0ExTBAAiDvpYay1z9/rpLvmRkxQNQyazevCNQ/IEDx4nxoMUCyu+A6ksXS P7jSn0ALvjFAN0yUMSJw0T+bL8dP5w0yQNINprW8QdA/dY0+yW5kMkCeky9l 1xPOP9PHyzFjuTJAqJqsJmityz99zNFLpQgzQG27N8+kTck/HtIn0JJeM0Dm xl0AD/rFPwqi9gXOrjNAmBZTmp0Zwj/835j6//8zQHz7PXBzfbs/E+e8rg== "]]}, Annotation[#, "Charting`Private`Tag$25927#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 20.}, {0., 0.8758395405412626}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "20.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{1., 20.}}, { 5, 7, 1, {20}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 12., 13., 14., 15., 16., 17., 18., 19., 20.}}, {Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40}, CompressedData[" 1:eJwBTQGy/iFib1JlAQAAACgAAABq11fc4AbsPx9F+v5yhtS/LJRJTqAB4z8P czDOtdfQvywfMkaj8Ng/WAHw4b7dxL9owJG6D3/bP8eJGHBLAZ6/YBzMqUdq tj9dh6obZzGKPxq73CogJ+s/7nRl8SEVkj8EXoB16brpP8VOpC83Ij4/PocT jthB6z8NgTZmSiihvwDV8YUlq6o/hgS6haFMlz8AXf2LljG/P0Bbi+wcp7s/ mH+7lv65zj8nzxhQHdTBP363mkuP3uI/ViXjF1NduT9M0+Wn0DDdPyPsRKE5 i36/SH7DBKAy4T9NEtwvexxrv0zxxMRO1NE/lRGEYKPSq79ArAVhv2TlPytk ZefsX7+/mO3blQBy1D9NrL3qOHKwvzh3Mdn6dNA/l+SYeQyhrb+QBIh2i5PJ PxjiyOqslq+/8B0e2HJ9uz+p+I/jCyi8v4R4oo8= "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754832458712742*^9, 3.754832502119623*^9}, CellLabel->"Out[84]=", CellID->694377155] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", "r", "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "20"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.754832463906814*^9, 3.754832512728648*^9}}, CellLabel->"In[85]:=", CellID->674021925], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->8.96], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQAWJGIGZigIEP9lnXw+88YHtjDxVw0Jni6beA8TGUz+Gg I2/ktvjDDShfwCHjwMRd/PW3oXwRhwSZMyvds7ZB+RIOUrvvaCmov4byZRxY 4hpKX+56CeUrONi1C/fdcITJKzkwXP3Yqrp6FZSv4sAQ+7d7muF+KF/NYUb9 7mn/dp6D8jUc6rbP8u6/9wjK13Lwufx0+QWDu1C+joNH3WGWBUYPoXw9B5+P R474XbkI5Rs4OKxhTdyf8hTKN3SY8fb2VIaiK1C+kYNFueHNXyUXoHxjhwks HWXdk09C+SYOH2TlbhTV7rYHAOe3WsY= "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwUm3c8198Xx4XsvffM3kqp5ByUlaRIKpFCNFRIUkQkpSTFV0XDysjMysou QraP8eFj80FlRFn93r+/Po/n433vuee8zrn3nvvHR/rslaMutDQ0NGH0NDT/ /x23FnCjofkFFU+ev6AwzIKm5LFPg4K/YMxp/nH0ygz4UZ+xlGv8gpJHur1H p2aAK4g786bjL9hy+pDBRMMM7MliW1ioIOav0c97PJ6BCCa62+P+88DQavFy nX8Gdpb/fNK4tgC3a42uZatSIVS+oej5ym+4dXZZKOXyFLA1m0ylXFkHwQyO CIHRMSj6z0djQ28L+orETHpUD4Pd4hbVLtMtaPw1RoCtaBhWLR8rZtpsQZEX T9vyMoZBnyFJ+vSlLbjzm+dnsehhqPdu4y1/tQXnQ74bO7kNQ+cR1T+3V7fg r5mj5xK5hmGBdaRyvYgWf3uFtlScp4B64KGj69r0uBzzJLzz1CD4er007wJ6 bBo7SffMZBCqXCcNsyzo8Vqp8w2n7YNgcyho+xlXerQ90DuqxjoIt0QK+Gpf 0CPXq8bSoFIyfM0X6wmn2YrmjUsd6xJkODs9c0q0ZStGCL5iuP2rHz4M6Nos 9W1F/6dGL+kG++H393sWzZNbcT7Z5v1/3/ohrFBy350tDPiccqx8LKUfsoOt JUZ3MODRSyfqOR36YV28lJL+igHfnwgvjmzpg5ijD132uDOi78WWgJtFvWD3 7Bxl13VG1Cq0FQx43wvCnXqndIIYcU8jc+DD/3oh7thPK80XjKhvGudacqMX 3tnZ6Mk3MKKEpzyzt24vnH2hViTbxYjnycWJ+Yq9sK2PQVt6mBHpGFqOrwv1 QsqpTwpif4n5D1Rz3/4lwQcHCV4eJSYseFhdr1JBAo83K485dZiwVe+2a0wO CTQorUzsBkwo9uN0ZHAiCfKcgjcZTzDhlrLftJSHJPBKsL+51YUJ/Tn7wi3u kGDHqM4S7TUmnPluKLnTmwRFzlPTG2FM6LB1c9zPkQS+yVXOa8+Z0Dg34ETH MRLsmXg59OctEw7vohxPtCBB2flDXYvFTPjXMOF60l4SBKTKW83XMqHtpmZX +3YSwPS/xh+tTKhCuwFeqiSovpBXOT3FhOtWaUX0kiQIyQjfO7nEhH3tRfSL QiQ4MOtcOEbDjIssZ8iHeEnAoKavNcLGjEV8n4Z5OUjw9bLghyEhZoxm7cs1 YibBg6xf8uRtzEjD2jfXT08C858N7/o0mdFNvVWnn4YEbJqJYiQ9ZtR72qGE Gz3QfPX2f12mzPjLcs2debUHInKP8XTYMOPCXYcYnZUesFpQf9x6hhk/mvId rlnqAe7tTEwtl5gxuXT7jtyFHmj3Gr77zZcZdVc6xjd+9cDz/JKNryHMOCDA Rp/6sweO/X7mWx/JjLQ7F9WzfvSAwM7LizVxzCh29S0DJ8EkH2OPqlRmfEFR VmmY64EXRZLTFfnMSE1I0+sn+OSfP+fKKpkxsH17vxExXmx3++CnJmZsfkhJ 2ULYJ9/MOFFEYkaYrAdeYv3XJSGd+WPMaEa3eeDGfA+cWTt9OO8XM55cjTuh utgD0nq7GrPXmXFsskRE63cPjNzmOpDJxILHJz2UQoh4k8qnP6fzseA2vla5 bYQeLpvVe1KlWLD0we9sTkIveYgrSFZlwYhzy+cPEHpO3bmumajLgmzl03M1 dCRIq7TMeLufBVNzJ4YfMJLgwhZF+ddWLNhqTz8WzUqCubt9oi/cWDB8/2aU Hx8JbE9dj/rvOvFdZVGgVJgEldu5mGPusuBeiwkzE6IeosYOLEfFseCjY0rl e1VIsFZGufQ0jQWXLNL932qRwDn61uiTQhZ88DJ8zkyXBDuNc1sftbIgHmvr P2dMgjcSFibhZBYca3Xtaz1EAqaVifIHVCKezxVht4j67X8vlhFKz4rMfEK/ 77qQIJA57F6gLiuan5XkVAojwfSwzHrAAVbMMbwRcfQpCY6WlHv6H2XFY63H KjJekmDbxUVHv0useJaLWXMikwQNTQ57vN+yYsGP5dPm3STgidT5eZ6JDZ/4 u/41UeuFW26tLq78bBgfm/roJbHfx/DigLMMG9J2/W2j2d8LhfNvG5z02LC3 RcVry6leOGXNlnTqKhuOPb3Nk/CgF5IERu0Ok9jwc5ZJH2myF9h/+n8/NM6G qwfWXjxf7AWfL0LGFgtsmOJpzG76rxfMfC23m7Gxo3XaVs4nAn3wo/cTuxGy o/rx7qBL+/tgV3xk9c5UdtzLsWsP+VUfBIQ2RPzJZ8fgx6LMPCl9UHuF9lRJ FTs+Hm0Yk83pAytD78V9/eyoJSQnS6rpA7fJ49sOcHBgbJXeGZvpPshqjfzF IMqBA3w9u40W+mDpU0PZVwUO9DDxH96y1gdBj/YeszDgwArLiLVJ1n54qSUZ au3NgbN0yv8UVfqBImJ3lD+IA/2uPJw7r90P8vRPJXoec+Bgte5F99398LGb tujkew68Kid1PdO4H1Y/7w0Wy+fAz4VpubMW/YBp3ocHKzlQaYfM4OTRfmi6 NTHp1MeBz1YCz7MS5zePi2S+7CQHFn4u8tY81w92lnaB44scuNs3oJ3FrR9e 73pq8Z6GE1XPbpBiL/XDuFSjkDs7JyZW2FNIV/tBlYVuXFmEEz+01GKDdz94 Lu7NnZXnxFMdp4+6+fZD8YC3f9Z2Tqxgt7qcf6sfNusyza4iJ05X1ExnBPTD /uwJfu1DnDirMCx5KKgfHsZKjiye4MTeB63nY4L7oTXILqvAlRMr5UqEQ+/1 g+DFp343vDjxo179Y5H7/eBg02i8O5ATqznFxY6G9UPSPjretUecSEOZEFN5 0A9Ueb2hshec6P/j4FQiwZpc1zMCUjjR/LZ3dwnBPn8zb+BHTrzZGAYeBJeN TBjRVnKiqEjurTLCHm2TJFdtEycafOAfTSTWMyuwG7jXy4lrVYPNMqH9EPn6 aarJBCfax+14viukH7rvN3ozL3Li9dsQQSHiEbtGZ/DtHyfaJirwid3pBy21 16HGDFyID65/DiH06HxXcuk9GxeaHN84lufTD74CPUeZeLmQPvkEJZXQVzR8 UdddmAuXFgU8Lrn3Q8U/TslGSS58WFfFscWpH5y8VbeqyHOh/quJtgvH+4F+ 2nQmXJUL7y9zf8kk8v/+tEvbrDYXku1aN5qxH8zbg4oO7ebCQqOse9+398Oc 8ev4LODCB7q6HoVyRDylJcGcxlzYUrxaHypAxJO0eLjtKBeGOp1iXFrqg5vC XDu1T3Dh1CMejhcjfSAWoSr2zJELY8121Oz63gfnbrhM2VziwpLb0z6eyX1Q zfOV09STC9UM8pneRPaBVJbyrr2+XFjrf83gt18fDI79vCcdwoWcGUndKof6 4ORRP9kfr7jQfkqAJD7VC5/mBsyH33Eha+Dr6cWmXhB6AJ6d77nwhEL/P/bc Xuj+TF9V8pELI37ZuIsS/cNRtScO979x4dM7Xr4rqyTI/Tp/z6+NC91SmlbM +kjA5WyTebmHmO8d37taTIKWl8Lr1qNcePjI/cUQ4n43Z0p6IbXGhR+lk7/G jPWA4Whx5ydlbhTMOrL7WUY3vAsQXf+gyY1r8o8cjt/tBhqRANm3O7lx+XrN uyy7bqiwMvIMNeTG2WHmXFn6bthT0cxpfZIbeegl94bYdoH2ixHz2Qfc+Jf2 o/6W2Q6QPsxWJTFNjPetZ9/41Qo2hYddo35y43kRrYWrZa0QKv6MlWGZGyvZ /OSG77fC7Iyw7RwtD/78VGjyRaIVisMUZkrFeNBf+rkpvmwBy2pD/hNWPOhN /4bnnOM3CFIKLWmy5UGHR0v6dX8bIT+ywRFP86C+672glOeNIOJola5wgQcX Sn0nGZsaYHztNCwH82BFYvADLcOvcFvnpvuzIh6MYBIq97Oug+y4Mg7GCh7c 7CV1VvythRE6mny/Wh7MzLS+xfSuFkzbQzed2niwn/E/npaFGuC98vyZ5gwP 0utpl7MnVYNxd49u0jwPznW8jXe3rgbffaKDgn940LieyYyDvhoGWRMU/9Hz ooTr2Gtr9ypIT80ub5bgRUOT1Bef9lcCmXPxrIEcL0Y1B5hFbH4Grhs7mQpU eDHnmoRHlc9n8DlQfjROlxeNDOYlPl6tgLQPNH84gRcbhfabPVsohwHe/fHB B3jxXqZJRcuNcjAYaZy8cJQXO1zf1r58VAbeZhyPB+140XkX/5KFWBmk5BzR PurIi2fE/dLjs0uB7Q7p9u5LvOgaZD11ergEYEJUJtOTF59nTLL/vFMCnocc v0jd5EU0ylh2kikBkugEN1MoL+7ipbHU9PoEX9Ku/GF/xIsquekKK/KfoHDX 30HeKF78fNKm6MRgMSTV3a0TjuXFQMut6S4viuGZNdsHyde82N1Y90HRrhju DkdHySXx4mGO15dyRIrh6hXJmyrpvOh9PCaGZbgILMO1jXcV8mLMEiP50s0i 2CdcprqvjBdf1z21jjxYBKrvD/AaVfOiRYz9VJl0EYjofP9r+pUX5ZOvmtKs FwJzjR3FsoUX32l2S7n1FcIfq5F6m05CzxvRErTlhTAxeDHzZB8vPi0q/NGf WAhdl34/O0PhRXpNQ326J4VQuxrg5zrBi1KSWHIvoBA+hjE5XZrlxfM1xZzX PAshQSDKxHOBF0+cyp9pv1AIkUmi6r5/ePGG3N614vOFcEc7mS9gk9DvzLEZ TfdC8KhUXwum50OpAjrX9quFYG9ZPPyAhQ8VOW0e290thIMDBl+fcPEhV5rH 9rb4Qthz4VtWtADBDvTfxGsKQemPTfQrMT50Y66vl1woBKHQwVvvZPjQLtT5 RbFyETDwuZ19r8iHNDmRBQ2XiuD3u3nTTHU+LHZae7yjuAjGNG5pfNzBh7E+ x6L72IqhvZxe4NMePqQ0HNaPv1AMVQcj1iuQD0k7X62dbiuGnF7B0VpjPqyM nYJN/ARvzr9raLQg7DVO+Tt++gQRv5VzWo8S66VaKJ7bUwIXufX9Bxz40KqN 9nHPsVI4+ebLuRFnwn5HoSrrr1IwVTtiPnWBDwN/PKU7H1UG8mbOgks+fHi1 N1Ba/Gc58PfMbfy9zYdCZ5YP7UmrAHqXG2P/7hL+XLS9vfXiZxgOfJjL+oQP kz43dUbfrYS44pyDsu/58NLXqikN02oIN96jrZRJ6Bt/tMm8uhr8OmuEND7y IUrH3aqGGjj+q3t8z2c+4r1UIhO+vxZ4FDfuHO3hw9r/OkhdXvVw/z+z/CBG flznaeNePPUNxtQSDriz8+PSbcuaE1uawLB2tduKl/i+7ZMYd1oTrP/K+Csp yY/PLfp1dP81g6c5B1Ts5Mf9rreCL5xtBfuN9oZVF35Mf9yZamfTAZrn7Ie8 avmxJHPljwjxnnz8N//qqUZ+FL775fmkVB9Qn7DTGrXy4/bLCfrLD/sguaxi G88AP6YJlC2WOfaDiID0hZxFfmR5Y+Uqz0oG+obxpVkZAdw2UV8VoUUBkvoV FtcgAfzh4p722nMUmJ+mCrfcF8Cxafpmauoo7FkcVtwZIYDUrn/UrsFRiCuy MWF4JYBzzf8++piNgRPuCUnJF8Arz199cxIeh6gEr2ccpQJ4NTuZV85iHGrp MxN8qgRQinby6dmAcZBvkKwybhFA7Z1rLbuHx4F6ZOvmxKQAzmuQ40hvJkA0 X5/98A8BrHLgm5ptngALAV+xoiUBbHt+Mtl2bQKy+6h77m8RxLub/3iFbCbB +1zrDQVRQUyUkOFtX5+E5Drm+0+kBZFxcD9yy01Bt4JRzIqCIBp5W4oGWUyB 7mxB/pcdgsjNTnuTQtTohver+fOWgvjG2GGbuMI0qPd00rTaCKI9rwqPk+k0 nNnNwaV7ShCfhBZO57hNQ/VGoDqTmyCymP5edEqZhkXHkn1XPQRR/+Hr359q pmFb9aIFyVsQs08uBLBSpiE01PViapAg8kfcqw/jp0LR1Bs/rjBB/DVWYp2h ToUp894HvhGC2J0bylBgTIWDnBappq8E8VF0s99FLyrcvnavKOedIBq81Wfl DKNCVkdFvVCqILYwaTvef0UFrlit8al8QdTqD/85WkEFg9ULS1algvhTd2q1 ooUKnvZJdJ+qBNFqIO+8PZkKiRVkHumvgmjy2TW+iEqFTilBmQctgljfH0DX tEyFrcFWWvOdglip4rMlessM7Bx/gCf6BVEp7csmO+sMuJnUHK4aFsTfh36c 1eadgRdp6w5KU4LIx+cSvSE8A42sOz2e/hDEW79TNi5IzsD65Sv+f5cEUWJW nc5HdgbUWlMfOa0J4o/5G+wi8jPgoD3yqmGLEAazTpY6KszAk+eiGVpMQujO kDappTgDlcs2JS84hFC/UbhkiuB5u4iGLfxCeMMn9X6I0gzIlH4huYsKYZhy bdJW5Rng3G+i5CwthCe44m1dCV5vqr/poCCETYzUEzkETx8zbrRTE0LOWcPF UYK7B+tErLcL4ZFYOL9FZQZqzh+4eGi3EFZO3lhlIjjnV22pCQjhg4Lg+VVi fPzN/WyGB4Swf2A1sofgh7S19noHhXBM97r4G4JvhBtl7jwihO1JD/uPEOzM V7OheVwIO9faOX8R/h6JN7RUOS2EgsITmzcJ1pevfi13Tggbek7N/STiU8k2 +CnpLoTCvE2SRwkW0q0CkStCuCOlpe8toc/WKozkuy6E5pfWzg4Q+i2YVVI4 bgnhfaSu0xM81A5azEFCKLqpPSciNwNNpz4H0d0XQu3Ay74S22Yg5XKFzJ8o IXyvL+j5U3oGni3v81qIFcIzWoXu5VIzEHinvGb2tRDaHkvh8CPyd/JpmfNw uhDmxPd6VorNgImIXkF/jhBe9bUoNRedgR2JpVu7C4VQfv5KTS2Rf46CkpTG aiFUVlKUeyBA6EkqnvrYJ4RxH/5mneQk9HTS3Z1FEULuq4+vX2CfgdfUogep E0I4lx4pdYmoL9/1QuX4BSF8srh/pzHjDKhKFVwKZRHGhw00w/abVHh+PveX 3R5hLLFK1rUi6jfol6aBNQqjpqnj5deTVPC4mfP0kLEw/nRnaB0Zo4JpeLa2 4VFh3Ii9pXV4iArrWZneKheE0e11/Hh5BxWcl9P+bLwQxk6Ot4IapVSQO8jy xfetMKpEP31fWkSFiTcXohdThPG1QUe5QT4V3MxUtKc/CqP6xZK+vZlUuBT3 4WJnszCaRYPz/GsqeBlmD6ZvEUGrKSeFrCAq3I3Irz3uLoL2b2dW2oj9bTTK 96z9iggOvqqJ1jWiAr3udadDPiKolhOanAhUCB3W2TQMFsH7QQa+YbpUeLCj aJd6vAg+OJXrG6NMhci+T+n0bSIY/aTQlouLCkc0RG7e6RHBNbk6hkk2KvCE +Jmskon5lo9ef2Em9FLbO/aTKoLO+UUj7+moEBtYJt5PL4pR59MP/liZhhNd YrPHWEUxQDb5i/jvaRBR9i9p5RZFPXWYOLEwDXEd+47XS4ji3Yhat7+z0/BG /nNkrq4oxnDocQ+NTENL8A9mDhDFl/NGO8KI826TIh584YAonjAp34aD02D/ 6vZ12aOiSLJKLib3TsOjPxk/7tiJ4p37zltqe6ah9Fj/+QEHUczdufNsSRex Pteek9EXRTGIPq+Q1DYN5pfdO+aviSJTyofDW1qn4WZjrIWlryhO1Z08uLdl GkghK/qM90QxONSzYKxxGphG5IvPhYuiXLpqg03DNOwCW63Kp6L468jehz1f piHmb77szdei2LJ9xUGgbhrqbcfiupJE8euvJcEO4vz+/ZFXQDtDFEt2TX1N rCbOc26jJxG5oihofrM2rGoabDw8mWaKRNHa3er03cppCPn2LsikQhRHuvkn Ij9Pw0fFttXEWlHc1XktN79iGkbu0XjTfBPF+gQ2nh/l08AzqjFn3yaK9CER J/cRbIiOrp96RPHcpzfkhLJpuBYfMcQ/KIrHQ6bmJAh+u1pu5zkmisfkuQdz S6eh9fhcWwtVFFspVTT2BNMUiB1UmSfy9TshVZxgDR6L2vsrosiWbK+4UjIN Dldu7RvbEMUCrf/apwiOaEovRHox3Fgwb14kuEKpTyOeRQxPS7FUiRDz50KZ 0/5yiaELMyXoNMFiY7oytoJi+IIc9aGUYAsDt1d54mLo3zRF3kH4d/v1f3yc 28QwZmtq3leCM9bqH19UFkPn4pgvPkR8fXbLDF81xdCD79YnfUIPlkK5wG27 xFDXTFROitBrD++xv4H7xNAodN97EUJP96shnmQjMeRbez+gRugd2/xxZre5 GGr2SJ09QeTjq/Koc4yVGAqbe3TGEflauc8zuGArhtbBtq0rtdMgP25w/PBp MTyb92bBvX4a7r15a8Z0QQw5ci6LRxH1kL/+vdr5qhjmkQMcTb5Nw9iJf3ur fMRw72fmvTzNRD74HNT9gsWQwT5Za5KoN89rj993PxBDKx/D0F/t0/CupUxq e6QYPqb1nGQn6pXmgSjvbJwY/lR/ZxhM1LfmhPkj00QxFFFX8+nrnwZHI7+t yWliaHLaWWk/sR8qNkgrpwvFsIB5LujQKKGfZ8zA9+9iaNrMJ632YxrOL7P+ V9Elhr9f7znV/2sajvoFHcnsF0PL8LR/MYvToHT3Uv3DSTGsCLl6QOfvNHQ/ Ncw58E8MO7PpVui3UkEr90dwqbo4Porcfy9dgji/fhqrvH8sjt0Npyf6jlOh zatsPPqZOAK7ne/LU1QoW9F6G/JCHE3nmV1OO1Lh2T8x/rPJ4rh+MYFt1pUK yLm4KVYujsLDDF9kfajwSv1Ne9SsOI55Jd4qfE4Fq8srNwMOSqDXA7vbOq1U 4Cw/lDd3RAKvM3zX5e6kQgtbEtXeTgIFV+OYx3uocOiD1am9LhI44eZ3yIs4 j81n0vT+BEigrkOvjOQPKjDvpbl+/p4Etj1IM86Zp8LXh7aZ3eESeMLLxGzn byqYKNNJFMRK4FCigpXkOhX2u9v/u5YngYe9BZVOMs8A3ae8XcPFEvg7bJHx PtsMVDMxX7X6LIGkBN7IZOL+MUgtoKg3SeAm86kthfzE/TvJUT0zLoFOb5JU hYn7cGOny+rJWQm836Mv8pXoV8pCS7UbFyRwt/2zWy7E/bpH3i0x9Z8Eznik bLoT/cEul6oQF2FJ5PnI8y1ixwws5wuWd0pKorqZuGjKzhkopPf4bSQviXJe dmmpusR9mSTiKrNdEg+mvBq/rDcDi4tXXz/dLYmWBgb1GvozkGf0pZsGJbHj 2VHzfpgBzVEvkyELSWQNXnw3ZzgDP7Ub71haS2JUrlSq9f4ZyLorVVx+QhIN S5cK3x2YAY92n1+qZySRwb3ifI8x0W/JNCvGuUril+Am6yWTGZi9JuvEelkS r3Re5vtjOgMfqm6+8POSxCnZecMRsxniPdbaNn1TEsX2Jvvmmc+AspM8y4lA SVwaIVm6HST6p5zbhl9DJfHkWJ8DncUMpNJ0+O16LIm7mVYNggl2s1L6mPJM Em8K3ns6SbDC2zsz/C8Jf/obJzQOzRD12CV7760kfhUV6T9FcAqo2i+lSGJa QhXjRYJdntx9fi5TEp/rcjGcJnjbEKmp/aMkeqbYXNEieFRdY6thiSSqFZAH /m8/IeDevtxKScxWW528Q/DZlv7rUl8kcZj0R+kv4a+0hHbWk2ZJzLqjqGdN MOVy2MRmhyT+o/YUPSbie1s+KOHRJ4kVo8d2phLxO7LrHCdTJLFLe94qgdBH 4nT4E4tJIp/v/ry9Rej3okOB2XJOEutNDRPMCX35zGvvHl6UxAhTS5d1Ih+R lWfWrf5KYnP8q5hIoxlg3bVx/eg/Sfx2IG2EgchfTXfTShqtFFbSHc4eJ/K7 hedVfvpWKdw842DmQ9SD/iH3axlMUqh53bSyZNcM3A7bpf6BVQqnDH3EirRm oKRm68wHDimsaLJyvUL0lyubHe8zuaXQnN8gZZKo3x17Epyz+KRQRjJnTFZo BjyvX5XOFpTC7lkGZUWi38rJ0R/MFpFCmqCsgD80MzA3w/YqR1wKdQc5Z2IX if7mbBpfnqwUym4mqp7sokJK/I22PHkp/FeXyhNcS4VR0oGIj0pSuN+JVftR HhUcDo8wFmgQ64tF6B8Op0Lcw5zaAm0p3GkQqMdNnBe9dQFBhTpSOGHkHV1D nC82eqJrRXulsG52qx+zJhWibkwXFesT/sZeF0gWoML3vCLvTwZSGKsSrmGw Ttz/SjY/SkykkIPf4u9D4nxHgcfD5dZS+GbPu+4us2kIOHLqdYWtFC57lBlN KBL9xCOlU59PSKHw27qrgozTsJOuvrPSUQoXaY1VZyunQPXX5peai1IYzHuL r1V5CoQbr2Y1BBP+JsZuZe6fANutcLExlNCnr+ksc9YEPEd2xW8PpHBg5x2G i4ETwFWU9q7pCRHvZVqjs7ITwJA08vz7Kyl8zv/v1tOz47Dgb3Or66MU3o35 aObXMAoikrw3BIqIfDcJyNNEjoJBZZvn8RIptE7Iaha0HYVI2sMXeiulMKTJ k557eATU75udIDdL4edQ1pKShWG4EKm/a3xSirivrj1zY6bASILi4pKoNHoP 2JE1rUjAsn/yh46kNNK4bld+2tUDWuPJVB8ZaUw3Gr50+lQPBCrIjvxRlMYr +5KGzrp1g8QH8bZ1HWmU2DRqwQedcLKAJ5veShq1zdsuGv1shbu2bekHrKWx eDTrlnZgK6StPEkJtZVGngG+XC2eVvizm/0102lpbLNt0eT1aoGYCsbHbBek cURj/wl/tW/Q/mX9Al+INO70z+a4plgHWnMyesb3pdG+WWRS+WYtRPKYsfs+ lMbKwLJIteYaOHQ6Ors/Uhp1vW2ZTt2phq8LaksJ8dIYgE2nfTgqQUHIpq7z rTRqlCUpqa1UQOg+vxiGJGlkNJtZ1+ktB6Owet0L6dIYLx6xQ6+gFCrEHf21 iqSxQ3D16cm2IhA3umd5rkQaL5mkdoj/KITbbhmS0eXSSLF22EfhLYTdH1eq /tRIo2KDKXXDLx9iSeLPlL9I48PnmoMpZR9hecPI2b5RGp/T3j9FZfwI+aaR DJWt0rgtfMJ6oDQXeD0Ke+Y7pDGHKfEOaVsueD4bSJXtkUbjHztiWGJzoLWY 1u9YH5Gvud9XXvDngMag4sH7ZMJfjzuNx/dmQwTdYbFPFGlsWu2JazuTBbOK 1+eoo9J4eySV8cerTDho+apCbFIaN+8nl67OfoB0r6onllRpdLAMcj9g8wGY X0yeCZyTxguxP6tE2zPArYJdO++XNM59Tbz+zTUD6ke3040tSmOj4RGdBJ4M kGM+2cm/Io0v3TJy57rSIUQ9MNlklfA33uXVWk46jFin+NzckMY4o+2Jwknp YHCzySSDRgZTTy+5cGSnw9vXC0JkOhmU2Ndgwl2dDv9qhKgcjDJY6MRjm0zY c5jWL0UWGazd2CHbOJ0OojvCTydxyWCJyyujWt4MiGmQTbgoLoOzPptvPDwy 4PcPM694KRnc07st9XZoBtjwXd3/XVYG2w9Y0gq9yQBux7IJbWUZtGSE5aW2 DHi0ZKOyulMGL2WmDe3V/wDBkqH5YVbE/GiNtnjNTEC7wynB1jLIxtT3U/Bw JqxHCsUG2MrgWGmZGKNHJvjQZtzytpfBVj+dfUaZmeA2/t3wjJsMrp/RJytq ZYFlhnDbrkAZ9FLbLD1lmQ2sYyPV2sEyeJbpAuOGVzZ8FfuQrxYqgwe8ddvY X2aDQYR+rOwjGWyMYrx9ezIbdlw758gZK4M3btnvrjbKAeFdmXMT2TJIsbcP /jOXA91XfIaG82QwwL8ONelzISoV2gYKCOa4/jtOJBfYRNrz20sJe98+RPGZ 5sLm+vKtii8yqPwpseJGci6MVSNLzJAMPozomZtwz4Nsy075A5yyqBkfq60l lA+2c4+PB/LI4gfzT7oiu/JhPdwkrJRfFt2ulS3usc0H84aSaS0xWTze9DxZ JjofxozefZBQkkUXmeLaEP4CENntof3HUBadk8WOnpUqhBBZJv0MH1l0yF/5 +Nu+GOz+7D3GPSiLR1y+TfG7lIN9emwK/7AsGj1642/1uByc7H+vCI/J4na2 CLPsgnK4UJn1UoYqi9F2oi0khgriPpOmbF+WxZ6fb/y70yvgnRDjRVuObahm wl3cvPIZqLrtga/0t2HcyWTbabMq8L/p9kHuzTY85V8z4D1XA8XZqh0iCdvw 4Y9ak8u0tbA0/usvZ/I2TO1ME7woWAuXjt40WU3fhh9rrxy9YVAL9ioPR1oK t2Hdf4rKXdG1sIecIeTbsg1LFLT4KqAO/uDPkMaNbfhisNCJ9kU97LjxMeMz jRw2uVRT+rPq4WrmjfZ8OjmseAgKFbX1MCVMI/WGWQ7XPSk+8b/qoWeBq9SL Xw5jpP4KNJp+gcIk7XkxNTm043BnW1z9Al5MPqev2Muhtaz9KYPzDRCbpFyT 5CiHTmvjRY6BDVCBQ4p9Z+VQf5je7dGLBmC5abq0310Oa00tD3E3NUDCtEi4 iI8csqTKLzVpNUJr4+fiuidyqJmTsqhE8w2WXb0l1qLkkKHFp2KfyDcQo1MK 0YyRw/M17Axnd3yD83ujDr+Kk8Nd7weiB9y+wWaG88TVNDk09+YPjG//BqqP mfnEauSwS/XD50tpTXBUqeLmkXo5TFUdCo+tbQLfOs+h0AZCj2aWze6hJqjZ 6E+f/y6Hl1xjHR4JNMNJjyyDLwNyaMmTRBoIaYZAlnPv14fksHjfx7h3b5sh JUWQXXtUDo/9tBb1K2uG+cFAUty0HIYfj2l3XWqGsMPWVzyX5XD76Z3z2i4t kDXD2PX+rxzu75868iKoBTrvl+0hr8uhe21dEN/rFpCslGMwpZPH9uu72ORI LbDfvu+iP4M8+u4UqTyx0gIX/kS05THL4yNPc7l9Qt+hUPNPnDiXPEbUlqj9 dfgOA00faK155fFqBIdrfch3oHV3cgsTkMeQvT03VT58B8t3jdsXxeSR5/2P 0yn/vsM4d3zjVyV5tG5OeuNo3wpuVUtWX1TlUUv9lVqyVyvMXrXoqdOQxzus bS/Dwlth6fvaaLWOPP5KiP4mWd4KtBEnN8oM5DFapDTKUqENpFiENHNPyGMU aZ9wCn87JH26UphtL4/Ubfv3fdRpB0X3L3pZjvKo+WhRZrdtO2h89THLcJFH Wd6pmeTYdtAP7TqbfE0e9UlnAqtlOsCe9ln0iwdEfNTj/DTmnUDJpYrGPpLH Lham5btXO8HZyTAh5ok8Ph1r9DvxXydcrJzPehYtj/Sqskp/xjvBL8Dq6+N3 8hhEsZUrDe2C2FX2taBP8sgW/nTjcGc3dCyEnbkwLY+VBg/2+j7pBWRqk0ub lceEEPaCjM+9kCUuPDP5k4j33qct1J+98NA07brLsjyuhLruv2XVB/i64eEZ OgXk69tWEc/dD1lmLAW24gpIH1SwZvF0AMQcj/pFSymgVUSe0bfKAXjg/RI6 ZRXw2HlLCblfA+D8RrnxiLICiiGWOlqSQfS3+ZDFLgVcGRUbjWcahLC34cxG RxQwMEfvXOq1IVgu6GgJslHASQfZa/7xQ+D8TfR55XEFDJqQbNv8OgSwnCGh 76CAljJxp/w5KbB8sGn77osKKGh+S8fwHIXQi+/vDQ8F7NKy/JB/gwJtPvYV hdcU8G4D8+35cAp8eDdrusNXAS9RlfRrP1Lg3Aqbg8Y9BdwhEbOURDMMrWzH ZD3CiHhyd/Yh7zDoy8RPfQhXwKqieNNXcsMgckjNSzlKAZEmq+eeGTE+4VCY 3BsFPJvh6MoUQYwvjj7knKCAFfRlu6+8HoYPzWSexGQFrH9eVheWNQz3/1yO l/qggP57Xki2NBPjLSPyRD8poMtX07u+TCMwOrnv0MEyBay7PPmLVWAEwoLm Jv0+K2DWXNt9M9kRaM+3EO+rU0Ch51//K9cbgRuW60XMDQooXO91YN50BMSm Mo7ublLAhOnUkAabEXAVZQ2LbVcg+vufUmcvjgBrQYnM1y4FpO58kyfpMwI5 lhfKV0gKyHVSEG4HjsBqUMOC7ZACLrTG57I9H4E3ojcfh44ooLrmwaZ98SOw v0BRsXBcAX9lbZozpYzA46n7p/lnFZBBppB8rnAEtO/u+rP/pwL2S5+QXygf gW7RySjvBQXUsUM9vroRuFUQo5b0WwF7zEs/ff02AlKHjb92/FHAO3eEd3O0 j0Dd1O+zdOsKOHsr3Wa0ZwQu3E3e0P6ngJS68hRj8gjkF9Bvj9qqiIWB/Sfb J0bgxOH85iomRTR0ydjGMjMCm1Pn3OZZFTHERYcy9mMEEu/y0klzKuKPp1OJ 5xZGwFSsJt6KRxF/r24Pvf97BOYKPHUD+RWRNTc0/sifEYg6LNORLaSIybWH aWpWR2DXdNvlIVFF1DHerB1YH4GBu0FMnJKKqGG8hfbt5ggEiWkl6ssoIlPX l2Z2mlGQL6Ts85BTRG26Kn2FLaPw7XAkKV5REaWGT12cI/jqNHg1qyiiyR3G C060o8Af/JN9Q10RRX5oHwkhuETsTaqqtiKy6R/adZxgx0JLI3sdRXx6p067 n5hPb7VJDtdVRPEalpPcBKdNZ/qW7lVEGeFHNav/RsAy+DTvjL4i8kcV34sl /FsUY88SMVREd/1/hTOE/7GFZabmBxQxSv375d9EfPusLo3eNFVEWq//KguJ +EemRQPSDiqiutiXOs3lEQgN/ibUa6mID/c0P3NeHAEV8VsfmY4qYtigkIH1 rxFoLVS21D2miHFCwmMbsyPgbdU3dd5OEff+1XvmMj0CFcG7Jb44KOLwz4wr V4n30Tnx6eJlJ0Vsk+9q4CfyyVQUay3voohCxoMPbpNG4Ch1JezeRUW8fcci OqplBFaC38sWeChiYMkT9v0NIxAnfrxi7JoipkleOVBaMwITVoWLRr7EeukV h/4VjYBfkbcD7T1F/Peofsc6Ua/+zl+E1+4rYtLUnnPe/41AILdI1+JDReyP HnOpiiTiu/j54HikIn64E3WFfHcEnkqy7P4ap4gZ3zzNd7qMQOr9N7wR+Yq4 X1Twuyax/zJ2LLSEFiliUE6F4hmREcga3v/wTgmRL9rQ657cRH3updJcq1TE Im/1q0b/huHzzx0/rJsUUa2D5m127zB0H2/8KjymiN/M/V/6PByGXnrxEJ5J RbSu22SHwGEYyL0CrFRFHHV9+OzP9WEYYeUvXP9JjP/kZ2/oNAxznx0Th9YI PXp7X5ntGgZ6xd/+ybxKmNt9Lmh2mAJafyS3axkpIZ+fjkfuLgpIsJ5Tu2Cs hFNHInQ8VSnAIpGikGimhP5PpUoNpSlE/6gqxm+lhIbs94IEWSkQ+0R36197 JTxekrPp8HkI7iXc+qd1RgkjctlviqYPgWdBxd8L55Rw5LGqJ3P0EBzs3/9j wF2J2I89w3cvDsGm/JGeSh8lTBJZqVAWHYKZ3c/b/t5UQi8G3115jENAsuj5 pu2vhDRzzFr+S4OQ63m6MilYCZV1wlInWgbBucI9LSxSCa396XKN7w/CkbYP iVXPlLCORXqPks8g6I/9jF+NUcLo1NfGTi6DIMTiE3UpXgll3w5T+/YPwrdj d29ZpSthpvkrt+3E/VLsVnf9QaYSNsq38G1ZJUPSLaar1TlKOKOYY7xzlgwB 7yKcdxQp4bJSmh6ljQwX89scLpcoocUP66ATdWSw+8J3IqWc8P9cl4XRJzJo z708JFSrhHQzwTevJZBBkmbQ5MgXJeyq3n+q5D8ysPFKGz5sVELTbrq624/J MK77fud6qxJO7EnSuuFHhvaDVE2dTiX0OSJc8PEaGSoc1FQ8epTQTz2/ytOd DLEhHyUpZCVMrL97I+gkGe79tywsPKyEO0zM33VZk8EzfTff0TElZBB2PFZw iAwO5bc5wieVsF2CtVPGlAwHWz8z1VKV0Hhv7GkpIzLojtLSbcwpofARK+0c fTJsWz6woTNP6G/kH9W5hwzczA9WPJYIvRbdKp7sIsOmaNP8+xUl7D5wenl0 Bxlm1DlnKatKxHmQ5NehTQaSwdEJ4U0lvHDifvgZLTLU2URTjm5RxmSPE9L3 NcmQd57UF06vjNv3islwE/zGT7SrllEZ1T1Fy35pkOHRY4fvGyzKWLerlrSN +O779l3DTg5llM8JdvpAsMvHsZor3Mp49189hBL2c3obB6/xKWMsd8bKS2L9 1X85f70ElbH1Ju+L39vJcED+Pz4fEWU8Lu1qEK1DhkgLfw1fcWW0m2fiuEnE 0+95ztxPShn/tTuJvd1NBvkXZi63ZZXxRnb3A2Y9Mlz9rBEYIK+Ms1eavfIJ fUrH+V8FKilj+EbGyhsDMjCwrRfcVVXGOwYk7W/7yWClPdIaoqGMC9uKDXUI vScCshge6Cgj+xVl2+rDZNBKfi4drqtM9Pthz0eJfN3+5qf3eK8y6sppi6Md obeQiedTA2Vsidy8+96JDPb6ao+f7VfGqCNzL3NcyZDizJsabaKM2msVnvMX yaCXO0R+cUgZazITegRukOG8ua9Zwgll7ON6mtnzhND7qoNzkr0yOr4oW7sX Q4b1mP13UhyVUcJmdck5ngxRo1wF6S7KyLR1v0NuBhnKb6dJfbymjHpdOkYX G8nAlPhkb4G3MnpdFZIObSfD0YbrtkU3lNHovl50Yx8ZpvgNH5X6K6N7E6Wg aYYMvNl9KzUPlDFI5zNnPOcguA+zfu98R8T34N/g+9ODkM+4MN2dpIzpyp+n 5s8PwqYaib73vTJe65NwPO45CM/9kvaQM5WxlNmW8Rqxvz/z7ksZ/6SMvxQa btfnDQK/sYf/cpsy6rj/yN/OPgSxv0ovT3cq4wdW++onQkMg8orZYaBHGW2f p0f9kR0CiV9J+tVkYj1JOvm5PUMg/7L/3+NpZSQ9PVxh7j4EO3+Y3pXbooKB gVVUsS9DYBsje99GUwWddmy/kogUIOG1GybbVfBc7p8uS2MKnJypOL9npwou Vjw1XjxIAQc8aSqlp4KuP81fyh2ngCs1knnWhBjvqOm47TIFfPQ3w4MdVbDL zP+v6n8U+DN18LbPWRXkCvi5tDOOAn7PXlxyd1HByDZXy+3vKBAwtePQ4Ysq yL3n2tUtGRQIjbrIIXpDBdsbD9ZOllMgZoIUmRehgt6fmg/coVCAdkWgcvyp CmZcbpHsGKOAB+Oxn0LRKrjmSMfIOU0BY8W2Q3deqWDTWHi/3jwF8nQ5/fNe q6D+Balitd/E+W926MP4OxXM4r0YSP+X6JfdG1gsUlXwYnFSnhPR7571Y9xz J4Own9LJOkk3DC0PD7jnZalgy2s9DSvGYUjJqPoiVKCCr6N2fvzGPgw8Zf+W DxYT9oOY6chcwxDQtE/+TqkKpjjGrH0n+mXbuU8h41UqmN3mWGcnPAzVGysf hepU0MiOfG9OdBjUOXaOHvyqgsH5Mc1OEsPwUsKb5843FZx0VOUrkBoGBo08 g7wWFaR26LdNyAyDJ/y6Ot6mgvQPPW4vbxuGwcPqb4W6CPtrpx6Pyg+D+ZlL 3w+SVNA54f2tTMVhKLyavhnQr4KvVuYrrJWHQSZoSi1vkIjHu7+lS2UYIp7K nx4fVsEbz+hlt6sNw+o750dC4yrI0cy+/aL6MLjmJZQenFJB9lf/+fhrDEN7 NYUaMKOCsz6GLu6aRL/eISGS90MF5fuyfNS1hiF91N5sfF4FtfX9ZZoI5l96 6Sv0WwXDxSwpBtrDEEhU/8E/Kpj2o0rhCcGzfII9AWsqyKh+8+pHgu3kjjHk baqgmA2fdhbBtTrPdMa3qCLXJYfv1wjWNG5zFtqqipnqI8ZfCPtxtpzPDzKp YsZW2uo0wh+m84dqAlhVkelacLoI4a/3jfCFXA5VrP6lckGUiI9yv0F6nFsV u+irLmQSeljEMh4R4ldFVGMSaFcYhuLUA4EHhVSRllrf9ZDQd9un4OwAUVUU Kq3m7SXyEdlQNZgroYoBUlW7K8SGYb33H/u4tCrueHk/d6/QMHSu3rp0UFEV Qxrv7tvKMQzIWvIqQEUVxYIM5WyYiPeP6J/GXHVV/HOQstWAdhhC9LyVhHRU 8ZZEk93qEgV+WeTZHdRVRXH55NcNcxSwP/3rfsBeVdww8AzRm6DAjoBLE2MG qnipcLObp5sCbyPS+YUOqOIyh5ngzWYKsL2Z2n/QVBULb8W/Dqsl+pnPzom5 lqrY8NRPKS2XAs+3nD4TcEoVt+a8qRIMI/aznH6On4Mq+lElbub6U0DRTJLm hpMq+ijGeTN7UaAscvjNlfOqOCk40fLHngKjkq5DZ7xUcT6BfcdvNQpo619x MApXxcNF+YXfHg7BupNVFkSoYp62r3i/xxDU39Pa3PtUFc3XR+rDjw7ByebF +B3/qSLl4AmuPuL8CrL3JcslEvq98K698G4QWv2C7JlKVdG3tWbCIYkML1+f /UBfoYp1tTS/ooPJ4FxttE5TpYpXLSOXo86S4Q8zQ9zfelV8vXhEeUqS6D9e POyntqvipgGrF8QOgEfRs5PNVFX80P6xIjGoH9iXku2iRNSQZfzbtI1JL1T6 35hsEVdD0sYjniqpXvBmNPNhlVZDP8lvcbBKggGR2WchCmo49f582J1MEnww 0P7us0MNVVaqXtvzk8D8ScWBU5YEk9cHROa6YVMosvO/I2q4cMeJna2hG/IS nM512qhhadeku35yN4gU0gcdOqWGfbW0Jz0dumF6wLwM3NSQr5/7r1tnF4Qp 92hvu6uGXDoxJlJtnaCXn1p15p4aztJNKwXndcKvfX5W8WFqOKNBS2f7vBPs joh7CDxRw/4GTYvjJzpBwfdcGlOcGoKGpLjIdAf0bdHRPfBGDZe4DsRatnRA RDjDl6AENexMCr7Ckt8By6/TxlZT1bCIfWlMNqgD6ut+Ss4VqOFndsMWDZkO 8DtclaX0SQ2r0pvZ5lk7QL03ap9rmRoyHK5lO7LcDtGzOqeGqgn/el7R/W1q B1MfRqpovRp+P9LWYfypHdb/kXztGtTQd0NECFLawZn3dkzbd2I9vufZe+62 g1D8ITmODjV8yi80YHStHZrkJfPNu4n1PU9o0Dm1w4491W01A2r47lL5erZh O0zVPDtDQ1HDF693WCXuaIe4Qy4/9UbV0OM4j7+dQjvQOTGxF06roW5YOj8f Zzvwbd4uK51VQ86E44Ud9O0g/2r+YtVPNVylW3Q2XmsDXV1X0S8LaqgVyhLs sdAG5l19jU2/1XCaRtXTktoG9p6H/dr/qOEJi/FnUyNt4MFZq0RaU8N8rDWD gTYI/KDbS95U+///IX/bdLdBlFlm2OgWddzb41Z0rK0Nkiakdafp1fH4t/k8 cnMbFAbHTP5gVEeWhHOKK9/a4KsU639LLOpI3lyQjSe4t/yO8So7Mf5eZ25j UxtQTy79/seljjS9eoN+39tgfcUteSufOjrHnylI7WgDjmiyDaugOjL7eBsd 7m0DKe2j9Nwi6niLIfO5O6UNtL/XfxQQV0e9Bf2Chak22H9p7zkxKXUcGHDI HSfitWXO4ZGRVUeKu0H0vs02OJ+yrVpBXh2b9EQv/2ZpB1+jF9fUlNRR7a/U ASbhdnhIYZferqqOTwzvK11TbIcskZU7+trqeJXF1FTrYDtUFl3U2K+jjrSt rK8CHNqh3YYyaKarjnk5tCocXu3wO6Jh3zF9dXx6xH475U07MKjqz500UMdm O8VaoWKiHhry4s7sV0c75tXqO23toEcXt3bRXB2tlwL31jF2gOVbroxrh9Sx 5/qb5hfbOuDMvnsnb1ipY6V6zGaYYQcE3/D4dNdWHfs6By8nEvXcOIM3XpxV xyNdr3v2sXXCQFiB/BsXdfy1hIX2Wp3wQ065O8lNHXXdzkR7HO8E7jO8Ojke hD490/eOpxD7q3N8od5PHd9VTN37aNkFF66dTGjyV8dAh10VQ35dcJvj+5H2 QHU85JFq1/O+C96YFueQQ9Xxy8XaMT76bpgoe+ixFKWO16uSs/XrusE7WYMq naGOmz/EKlZcSFBez3pFKEsd/+sJ++b9igQMU5OLHLnqeP+z7373NhLEKr/d WCtUx/AnMi3J+r1Qls3F3V2tjpP6VtFU8T7YWjK/62GfOtocSYp9PNMPMS0f 7y0wa6DQSt6biIQhGPr5hGWaTQMjW9+f/0EeAkXuS0+GODVw2+kwmVg2CpRY b3vRxK+BJmcqGhNNKDBIev4hRVoDX3cU/XpbRgH50esdJ3drYGla6rjC22G4 Qn/U7ogeYb943Ku1lLgv5dTJJqCBze12Rft7iP7DbWJixwENPKweyHSffQQ8 5mxXOY4Q4++pBmjdGIGilV3SNW4a+HO2hpl33yhQA+jH/17UQG2vqWVr21EQ Y2hL1byigWH/xnaoXBmFu3wXNF9f18Bzz2lLIt+MgqVWHNy8q4EqzwTuj62O QlCxG13OPQ2kqBu+COEag3zQ+TIRpoHmSQFKiXJjIGLZYmnzRAOZQ+v7DluO wcQFGgeNOA38ytwrwfdiDIQXmqRd32hgyfH2zzbpY2Bx88V4XIIGrh7lZ1sv GYO8+9qXWdI0ULOUr9yzbwzGOf5pGnzQQLbTkmp602MgFPNt6Ua2BtIJcDme WRmDgCTn2+MFxPddKJnJPQ65Kloo9kkD6Tubi7+Lj8NY3gaddZkGjs2TlQ2U xkFwT+OXB581UDxD8Nbm9nEwr4oJr6wm8iMik02vPw7+pucOr9Rp4KUTSU1W JuOQ812DV71BA12DD/QOHR6HUdv1bucmQq+8D31Zx8dBYPDry1ffNXD/lqDu EodxMHOJdmhvJ/x56N5O4zIOt2edZJi7NfDYefZO/wvjkO2lPgG9Gvj0I++w +pVxGFldTfMZ0MDtD2T/cXmNA//dL5czhzQwm3Zsu7TPOJgyP9caG9FA3z3r Ifa+43Ar8sxvkQkN3HKQ98/nm+OQJaj26ci0BpZbtkaZ+o3D8Ou/t8NmNVDy TN/JReI7n3w9fv6pgS9fkI6VE/NNMqPolxc0MIHf80EiYd9vh+NX1WUNTP9x aC2BWD+zVOXRub+EHsCbW0z4RzH8c/jlugbek3bPGSb8522s5W37p4H6Ocub IkR8ialfZ4K3aGLMy5v0sUT8erNZhyTpNNH3fvK5OEKfbo3o7BJ6Taxn0ZlQ shoH5iInr3lGTWxcg48TMA4JqyZdj5g1kW3jlarwLmK+vvouRVZNbCkVU+hX G4crdaurDhyauBZ7aINXZByYmIftVzk1ccF8kDGCk5hv8aUimlsTbw/bzMfT j0NXx7O7TXyaGDCaX3Fvbgz2jqiy7BHVxBSLsI53RH2FZDuvfxLTROqUQtJo 5hg03Y77sVtCEz/cOk3b+XYM7AXZOnZLa2LOpt/zuntEfVnMvNqtoImubTzm XBZjUF2YprZ7uyauOFp9d/k2Ciwhw5KfdmjiYp5/uUrJKFgfEebZvZOIb4x2 Lj91FMZmwpZ1d2viMcet+wTujQKDtNtnXdDEKwwB/bp7R8E8XP6I7kFNpLST JiRfj0CUnYNRsYUmPj+Xp17wYAT65WJ0dC01MbI0+aLM9RG4VLlVRPeIJpbs bZx/cHAEIn6Pjew6roknOuLdc5eHoc0x0XvXOU1c5WcZCDYh+vsdUv9rsEyj mrq3KK42YhEl2jggtpY6QBWV/+UqhIicI/CsRBlKBREoLz4KrRasgMyxDKJS 9DlUpCkgIqUUFQsPrANDTIEyRObcJPAIGAqFCGgBRUAQej/uD2etvfbea52f xCqWYCj9Y0/Kw6eQtqPllkpMMDnfvVR79ikodsSXRXxLsB0G9QQeT8Flp7b7 fgLBhvW9ZpyxbnC0yt5knUwwqGuv1H1rN1jwTUqsrxFctdtioDRPA0H8lmp1 GtvHtIe5IkIDt/nxqkgJwc9WGqVu+EQDG220Uw8yCHrnXZ+L1nWCsSAb+TkE 0X8q7PD2TtCzNWniFxKUiQ6Iq+s7wNG25Wl7EcGboyXWg1kdkGAbPxpVzO5n 5ck68ckOmLHVrnj0G0FJwLa0cZYfx3Zn+9iUE/xlb/Pq7+Pagdi5BXdUEKy9 urckxqsdgu3mxUU/Jhi8LFw8SLWDzk6U86iS3Vu/aXVQvxq6wOSZTT2b16bN fl6eajDGljcdcoIXlv+cqaLV4IXxS2IaCJbVWR15vVwNbai1KG1m962T55u1 qKBuT3aEQEXwCnf+l3cPqkDP3i35/2qCKbERBqnWKnCwn5ce08FqV9FFq7Uq kNqLKko1BKNPyXzK+5Rwz8GEs6uXoMuKWSezBCUs1UuKV/QR3Nim6fnfMSUE 1g3MfN3P+umZ61vsoQQj58LxzGcEm0Osc3dsVUIIlxe6c4jgYqo7w2CNEuSt ES8ahwn+IH0eXqHH/ktPu4HZvwkG/P71PmkfA0qjHP8fRgkuDA8S85QMbO9c qLV4SfBB2Bt9txoGzl0/6lv3iuAdTbdh5EMGtP9ubBe9Jsht/jP//B0GbNZT HlMTBFceax6/fIOB7/tSW69MERxqCOalsHw8nDfpvGWaYMWqcx/GpDDwr6O+ 8soZto/APusvEhjIMpft9ZklSGlcYvZHMzD5fEPVyzmCm9MucehQBm6HDpVt fIfC/X4RZ3kBDBiKY+6e1adQYLN5sE3IgOqi5LJwFYV+I9n3nFcxYPHpzJLe 1RT6hnKmy7kMJPNE38WuoTBk3UHhVn0GBBKzxIL3KWxNieIZzCgg6+b9MMMN FC5oWiOt71HAl/cYzzYLCo2fdPe73FXAZMeyD7ydKExeFL061VEB80xrNquF FL4ssw4Q2yng3dBYq4MHKOQ8Nvs4gK8Ao8X9ri6uFN7gBRjztyqALyhLtPeg 8Fy+Sr+Pp4Co9ADdliMUBnJ/0nr2tsGUd2nJdBSFqQ7OTVKWx990+guv57N+ 1cK7wupWEGRUeei4lnj9zI0+f0EL8GvOhB86YYlcl8O2t6SN8GEU376nyRI5 m8Ja/7P0CWjCe5NjWyxxh0hy6ND8JyAJu9i8ss0SfcTrLn0yLof3vunzFSot senZR4xxlxw4gZcjSzotMTBdueB8gRx0n+kKzugsWR48cThJKIdiC8nqLQto VIVMhh5OrIfj2xz8qt+h8ZhXupM4vB7MzV/k+i2k8Ygi72biV/WQa+poefVd GtcFF4kFLvWQ9sHIgRlDGpNP+Qb7GNVDrMG+xKa1rI6XF579pQ4cByaGQ3fS aHL6yvG84looOv6qatSKxnkX8UHWT7Ww9vVI+gk+jT/u5z5ITK2FMc7gvuO7 aBy6EOtvGFEL2es1uUf30LhlKHMDn18Lbz+X+YqcaYzYFtIz9rAG7jPJDc4B NGqTWjzHCv4As8o1BR9fo9HKe8QhIbAKUjxc9Zk0Gu83j5bbfFoFw7qkwDgJ jQa3d8b37qqCIu6IiSqDxhcZgzcNlleB4POaa6dzaPxVo4gqKa0El8nQuO5C Gmt4E7dTDCrh5PYG91Q5je/7Gyuyc2Wg+n1+ETTQOJCnVnb9VwY2HtZLhxpp jKxZpPdepAxmY3Nq97TSyMk3vSNykkFyfZTt32oa4x65+/E7H0PGF5tMhX/R uDvT/Naxo1KYnfA+Pd5PI2/t86TXAimIzl/WZutofFRXnRWxRAobi6fTJ4Zo /KsxcaFHYQX8OtfK/XmMRrVr03Dqq3JYdnVRsNsrGmUrVHqNf5RDmOlu+fQ4 69/hgttMWjnwnfOT3KfYPmebh/bYlEO6tqvn7Rv2XlI15bW4HN6G8eDWDI3b y6iirzrLQLTIKfPgLI0vg5yDQwrKoDL926m5ORqLf3O6FHaqDP4BM0TxBw== "]]}, Annotation[#, "Charting`Private`Tag$26079#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, BaseStyle->{}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 20.}, {0, 0.8758396438195011}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.754832476036627*^9, 3.754832513899953*^9}, CellLabel->"Out[85]=", CellID->1550424726] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->461307998], Cell["\<\ Compare the output from AkimaInterpolation to that from Interpolation:\ \>", "Text", CellChangeTimes->{{3.7548326043412027`*^9, 3.754832613085208*^9}, { 3.7548327364736347`*^9, 3.7548327714077587`*^9}, {3.7548373876007357`*^9, 3.754837396294015*^9}}, CellID->421797184], Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "150"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"afun", "=", RowBox[{"AkimaInterpolation", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ifun", "=", RowBox[{"Interpolation", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sfun", "=", RowBox[{"Interpolation", "[", RowBox[{"data", ",", RowBox[{"Method", "\[Rule]", "Spline"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.75483284134398*^9, 3.754832922724629*^9}}, CellLabel->"In[86]:=", CellID->244353278], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ifun", "[", "x", "]"}], ",", RowBox[{"afun", "[", "x", "]"}], ",", RowBox[{"sfun", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "9"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", "data", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]], "Input", CellChangeTimes->{{3.7548329709896793`*^9, 3.754832983426055*^9}}, CellLabel->"In[92]:=", CellID->2103237387], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFl3c41X/YxymVcexxbOckLSMlUuJ7pxKiZJPsmTIyk0RKsouEtCTKOE5G RHykjFBJQtmydyIrej7PdT1PP39wva77fb/v931/j+Og2rrrO6xjYGC4hr/9 7885T6mJxYxwNYb/+7KPFLMUue9I/D8LFUhzjaX6/uO5mj0un1PD/nGf3kv+ 6tTEf9zOvzhekZrxjw0WBdvKUl/+41suz3VKU2v+cei1O9VycW3/2E+CZQtz SN8/1hYhOR4UG/7HGszUY9IKk/9Yd36UdMvj5z8mWTVWu1yb+8fCgtzEwM2F f9zSsOWF7enlfyzp/+ZChcvqP46NTRTg3MwA/8+FEatfOMMZ/7Hkuh37r5DW /+OR32UpM75M/3jBiTe96e+Gf0xjSI0OCdn0jze+UTCj3PiPLUMatqCo/5hz 3UrZn7v/scd68zE/2n+8e6PgMbeO/ziiJo+Hve8/7g871p099B/f3uTnM/rz Px6r5TgUvvAfq4dnkLat/scpmmrt1euYgU3Pueh5vCyaZW59Ys/MDFHfq9RT bTSQ9vvz7us5mKHNVn1kQ54+Sru5QSWNlxkk5DTNN8qaIwNWxeYecWbwz/qs ypRgjwrZEhhOKzKD0qc8/tFqT0RqlG5cOsAM3HGXNp5P90L2UW/vJgEz7GVn rHx51Qfxs/+Saz3ODNTg3RbX1S4iXw79M6dsmcGNc2lmv1kwUubmKj0WywyP gx8Vnnl7A5UJRHntHWWG4FbbjBty8YhptGpJZ5oZWkz8C2yy49GJsqUrDvPM ELmkr/l7WwLqtXKKSmRkgbPhavPHKHfQxufqTxeFWCCEID6dZr+L9FSWWl9r s4CH81nxV20paMjK8cDRHBaokn4T5MX1GMnvuV95Jp8F0msjJJs1H6OLTC0a viUsYPmguexn8GNEen7IIPMdC3z1bDroMfMY7Z4VPcfSxQKsQzKlpxrTUOC1 L/c/sLNCGy3Lvdc3HfE8B0Zjd1YIFK7dtRKXiU4JucRu9GEFvpUC74zXmSju 5i2x4gBWaE5Klls3konYz/bvFwxjhelnMZQ61WeIWfrahe+prODj3NV2cfAZ Ws2p/WFZzwq67xdcvmzJQgfFZjw5m1iBd3Qgc9fxLBQQLchQ+ZUV+g+8b5P3 zEKL511EqX2ssMBdLCPxOgvNyrEZ/VhghRPfB67f1c1GI/QTNU5SbICUvRqM LHPQNqqfoaA0GxgOHWvOCspBjrce9tfJs2E/Hs3kBznoh+fM2o6DbCDpW/uQ 6MpB3Xtu75vQZ4OuEM/v941ykdiT0upUUzZoK6ArZF3IRRa8Pwx0LdlArdb+ gHZsLvr2S8GD5sIGt3a5uqvX5qKWwq/PPILZYEyfpv93Nw3xSq0pUcPYYKbz 1GzCcRrSv7O1+nMkG3y/Onq5xJ6GPvn49e25ywZxaK9/xh0aqlcSEp7PZQMZ rcUvLLM0xJx56NnTAjb4sbaUu7wpDx0jn1UyfsUGC6zu+V5ieejdQql+8Ts2 sHo7a7aikYdQiUXkxQ6cn1F8TSchD00d2NLypI8NYvMrf49k5iHx8nHRj8Ns wGdT7fSzNA8FvQmgbZ5jA4dzD1iO9OQh2mH1BZ1lNkh4UusQNZOHuqtZwI+B BAUaQXUPGOhIrT7pcwOJBN8Tk41cuejITcda+DcPCU70vLPtJtPRg4/b7ChC JLjYUb+OSYKO1ppfznlLkeD0+7KtDjJ0JGcUpPpQmgTHtp+qfLiHjizbjoa9 302Ck/wCgpHKdFTe0UIWVyOBlHeo7IXDdDRxJtVa8whmg1aG85p0JNpr9/yC NgmyUnLLBXTpSMdWejZVD/eHdE+5naKjwIHZA7XGJKCpqkn4GNFRjmNp6E8L ElhtTPu23YyOOkdCGkXsSLDK3fPspgUdkVy1+DVcSCB5t55814qODk5yWXq4 k8C5cf8LPVs6OufenpHig3mEkeGlPR2l/nw4/e4SCV5TF2NqHOmo0ctJeToE +9F+joQ409GfebkQoXAS1NW8TRp2oSMZ/9/vD8fg+z08vGPhLB1ZLJfzuCWQ wMxDQ4ruSkdRgddPJ6WQwND9MZnnHB2VremkVz0iAfFlR6Qo5rFgvsmJDBLk NxeyfsJ64fWdiuRcEmimk6k7MGtffxJ0qIAEKUHbzHZi/4BNrrWur0hwOOmV ajPOk3VzD1ciws9r2xMzihMdfWdbNq2sJsEfu1f7+BzoiDXmzeOxBhKoh362 zcX7HuC6OcbXTIIjrysdxvE9zt7WUyDaSfDgqEXDB3yvFD7BQJduEowaXRQ3 xPesT+x5Fz9AggrJydHL+N7LgpnsFWMkKBmMKtHGz2PnPTfjkRkSeDbL8pfq 0JG5mNJDngUShFCeRjQco6NX1Gp5p/XswFvmOt58kI5GnkRdvMXCDnXeDhO1 SnQkuNWwqoyTHVTORuw+I09H/jt/GHCJskNtf1aB42Y6epaTlXpgM+7/orfx uzAdtctdGLTfzg5h33zrxnnoSFmB0e/VXnbQWJ9UM8JIR85FdejHAXaI3nZJ PuNnHkraF8fMcYgdcnZ4sBR256FFFYkUW112YA5jLPB7mYeKj6iWszmyw1Sc w+HrFnkoLPK6ltA5dthlMTt4+UgeMmz+8HXrBXaosA/ryZPOQzNWllOHgtgh OLfA+vUCDe28dEXCP5Edyu7lmVmF0dDim9rs66nscOfTOi9WZxqqZeZSjk9j h71wcH5Yk4bsEx/p0WjsEGVyqlyJmYYevHgTMlDDDt8644TZLueic4ssHLON eL5P2v7dprlIhdBP+dvMDtVaF79c3ZOL2hv784V72OHGNkeGpwM5iGdk/YDe As6j8H61US0HhYlraJRv44DRIMFLo++zkKFDTHO9LAdMf4nRt7qbhSRzWi3b FThAxj68btYuC1Xud/L7RXDAzpdzgu7Lz9GyYfizHaYccPKBGutT0efILbKe NTGcAwY9VjYfUcxEB5t57j6J4QDFCy+npOcyEJvQackXCRxQkJsfKJmfgZ5l jKs0PuLAv8+WzmrSGaj/Den8ule4/yuHKhvPU2S8eOKT2ygH3MhRblJ7kYaE u8Lt+KY5QOIkd9kOxzTU/aZq4dUcB/TuUoveJ5yGHCKVKBsYOOGpjAX51ZXH yFtc3POeACeM3RXjBniE4o9M8tQd5oSq0kLRYNl7yHjHtszzWpywNJ3HyXop BQlz2KjwnuQEgczYk29rklFaW4udpTknNKRG8leYJqH8s68L5zw4gYduaZLr eAc1xUUaUx9wwpYoLwV3/RiU4FM9VvOEE45HBYmI5EchU/O/Qeeec0LHvfrk RfZI1CPplVlcyAkOE4cFVUtvoKmX5ou6DZxw0yHa+P5AMMq/lxD1q4kTfo4O GnIcD0K+wR8pya2csFEhW0qwOgCtaalrDfRxQpyWdWXxYy9UJRfYdXMY+wu5 aakzeaAw3peeuyY5gbLX/ld7uTPSXpze8HWWE/bf9bWxsbNB7F07UgIWOeFU la2y1KwBanpjJ0dZ+998CfxsCwpI+8uJvn5GLmCYM5KIJxuinGrX7CImzN1G +Z83uSCOknCf8E2YGb2C8pe8kEfWU+I0K2aUaCjsdAk1p1axyLFjTiIC/ziE oMSQP/e/8HBBsMzjmIrycLToJeScwY/51sL4qG0UMndU2nNREPMexvlKxjgk ftyjRlwc9xetDzG8F4+e8g1MuezA/FpDxPhFCmKI00u8KMMFMLLWy5eYiszZ ylVv7sL9NLvkar8HiHNdYtQzRS7oPZJnMiiIP99MH9s5fIgLKhmlNl5F6Ui3 PtvB3hzrxSoUU19lo2dHBdm9z3DBo9uRCilxOWjdm2uFoda4bryxOschFxUX n1n/xJELKFHJN3+z5CHqU87HfRe4wMM/00tJ7AWav+LVaRnJBfLdHfkFwoVI b6Un1C2GC/RMf3229ClEWb460kG3uKBpmcTc/7EQWZ2XCrh/lwvoybdk7IOK 0HvzNnLnE+xvPXH578eXaEvrYTSewQVcQA3kpRSjoFN0x5XnOD/zlN+QezFS 0LxZJEzH/YopHa/ZStB9RRUDs9f4HuJaAV8UXqFFeuayM+KCGSetqBsBr5C+ DF+afxVmc7+rfegV2iQ5OXO3DrNYZkyARiny5HoY09qC/ZRtdUfVy1BjJJvS UBvOM9OR6R1UhrZu8u+a/47vwS30IaqkDHWs6snw93FB3IXt48bbX6Oj4+vq DSYxf8pMXZ5/jVIUnX12zWD/EyQj/83laObKBwrbLy6wVl6pStUtx38vkvyq FrFfcHr4p4flaNpydfODFfy8lufetdeUoyPPbT9eXMN5BP5cCZooR1OqslK7 mbih18Vc5Y5CBTocfruJtIkbGMqPURiNKlBS88KlERZcHyHr/vXGdaeq5oec 3PBoXfSxZ3Rcf7Et6BIPN3CR6pZ0GyvQ1ErUDhN+bmiS4im/NITrcSbBHCL4 reHNX8JBAKHJ76+lx/BbRaXl/gERGYTUpTa3VVOw/jDNVg8Quut+4+pjSW4I Dnouy2CA0MSrCdnLW7nBQ9S3eLs9QoeY9L+Z7sDzpa0u1HohlHii+NpeGZzv VV7TtxCsTxKV59qF83/NP3ImBut/hHSM7+aGmYgCOJmM9bLDYbV7sd/oH6Xc NKz309nzZB+et/Yt2TsL66tedAUdwPna7nSk0bGeRL5prsoNeqGX3BSLEBo3 DtyrBHgeR+u7HSUIweO+Hu7DuB4+o3f5FUJ3xjUiJ49iv1X+67KYxxRzlN5r 4v0Db33ZV4wQEczdn34c13lotOQChBLqfaODT3AD5ePLcD0a1vN1Klucwvd4 /fuLWSbWWx0a2GfIDXETJesKHmD984xYXhOsd9W8YZaA9b/YVKbNsJ/GzBft cKxX8xyqt8D7Ra2YXwvA+vDWWxlWeB/topj1rgiNNquoXrXFeWOd+6rNEFIT ezxyxgH7OVtX12kgFO+0MWG/M96vfziHZQ9CIy9cCX5XPJ9dmzVMBCHVP01j M+fxPec/n1RZj9BtDaXERg/s/7x+eutoBVLtYJgM9cXPJ/sA8928CnRbyjHJ 6iKex6/pIBBXgUbcGw6rBOL+kNnBN264zpSYMhuC9fe0ReK3VqDhEytHP17D evuYwoK/5ehgsvXP5zfwPk73DvxuLUdDstKaNtH4noaqra1XypGKf9yvg3Hc QDdzbnI/VY7iquYfCMbj/E3hwRQqrptUzn9KwvvptDZUlL5GccFGT9TS8fyl 9pjM1jK0V/bSDFsmN8gvtfydTS5D3749Uv32HL+euQVijE6Xoc0KE21eeXg/ uQe2xu2lqHDwKul5KX59pR6JXl/2CpnefmbmW47zdgzffOf2Cq2qfcw4XInz BKja36S8QhpJQoe6q/H8ICUe/qAS1K5N9+H9jPNzd8/N4PefwIWvVb1fcN7G 28HR714iavoKJ60V6+WdsoQdX6KzqxpZmp3Y79ZT5dW0IvQnr6v78jBmlYXe h+sLkQQ/m+bIKr7Pat85sKSjd2/k7xQx8IB148yhKJSHnN2M+6+u5wEGEs+I dAUN0WsfB4qx8MAjkYc0PloOUg9QfqHPxwMUz16nDabPkGOPg3D5Th6oPPDp 6OlH9xFrVKRThCxmE4MpX757KE/5RaGJPPaL2ilAvZKEFm/9OTGryAPB9Tn2 y/viUcSR+NBthzBzz29wOh+MaM8rJ26ZYDYdFzCFWOJ4jyI51Rz3Lw0KZ5Di iRG+7EMZZ/D8psrrv64lEpuD7ySW2mEWdk/Yn3yfSDQ+Cz/ceWAmzFJ/cHsG cWU9X8LecB6oC3JQ91hfQIjuv1mhFskD4TtMWnU4C4lSt7URzRgeWPTudDop XkTMfRtRPZOA50vrfWg+Wkw408uHrz/iAa7Wh0+3l5URemecVNpKeECP8a9h 76MqYvJ2p0NfGQ+0xNV3voS3RETdqbjxCh7wcH/9W7n/LfFO4eDg33c84L9/ bIPGzmpCmZU7dvtnHhDtORlP+1hLUItL+y+O8kCgjf5F7rMfiFkujghRYV5g /WHkM73cQkTwB5bMivKC4I0KySarr8Rm4bGhOgleCFbPNg+u/kqckqw57CPF C47GMn2n4lsJumLQ6gd5XggwiqqvV24n3MynPK4c44XZNxWdD7M7iLEnH036 vXlB6adtcUpKH3H12cGwEj9eyP/qZ/Xgex8hnJtVGBPAC1GbD9bxivQTWi/D uFWCeaH/kbWI0f1+4lmdWkN8JC/c7Vu8diDzB+E4SVM7msYLJSt2Oq1Ng0Sf UqzUs0+88P0b10Dw5THiwjud3WXNvGDE9urBYvMYsU6fVfXjV15o8+4vZdwx Tmw+f91wroMXmrWiaO9bxwn7J5dCYYQX6t3WP1HZP0nMye+PNRjnhZ0tgTe1 4ieJaxW/UxyncH2L+N/xyUni6TfP/Kg5XrjUly03kz5FKDntqni4wAsGy4yF +ozTRM3cxPv8ZV7oNjGwOm45TRhfzfpavcoLqU2Gid/LpokhTue+dgY+oPhQ K1mHpgnf+1KT4+v5gKGS569y+DSxUfrH4tpGPojzND+5Tnqa2KZhySXFzgdc h2RlLlyYIpwDDQlPIT4IFk3jEmGZJMZH4D7LHtwv/FVfwXSMCPRdeyaqiPWu BQ8ubRgjSEyvC3cp84EH06hobMEoISOxr9FIDc/XTCmR5Bkl3IxkVx5r80HT /dYMk2/DxFr/2MYiXVwvk0e60cNEjMcznjo93H/LVnib+jCRFym5c8qYD+Qf Rz+OpQ0RM2+EzA7YYW6vkom6PUgEn2yz13XkA/qx1DszuoMEV1eCh7ULH8z0 fjilxzpI7F7kDA9zx/PqLjayhw0QF+Q2FjdfwnmXipi+3vxBzKfM8rkm4H75 xhNK1X1ES4RHlftdfA9e5Y6M231EYcCUu3cKHzxKXlvcZ9NHeJuP1V9+xAd6 35WP1zL2EYbazv5Xn+A8B1bkG770EgoHhqRuZPABhBexrmT0ErNC/cFxObhf Oe/PqF4v0cxiLXcnD98TVGto23qJF0tdHcn5eP91bxqN/vYQHt++KT0pwfrJ TcLPHXuI6aTPE0Xv8L2DyToBBt3Ex/CTKaW1WC9PzRXk7yZo/h+OoXo+sA6s P2rwrYtwM32fVtfEB5VBSj8KXLqIE5rH9D58wfOuJGoPKnYRssrVq59b+aD3 RRPtPVMXMUF+Y9rRifuBQ6Eqq5No3ERs7O3BPEwr6gvpJLIXXhcM9ON9jOyX 6093EhHDB2xGB7Hfrsv5ocqdxNm2Eo6pEVwX0YzlFuwktGuVXs+O43wVvOoB yx3EzuJCl4UpzOVygW97OgjWzD3kPz/x/PLhqdnaDmI0kf6OYR7ndYg+zlHQ QdSFyV3YsIjrZm6HRR53EM98cyRYV3Cd+HZD4nYHEe648wPHGr7Pa9F6SlgH 4Wz8LICXkR8ovjfKtlzuIDQ1tm4XZOLHf0+c2Xf7dRDblNK/im7ix/9/snse 9+4gNm7dHEplxfWr1XcvYh7ifyS/lZ0fKtN69rzB+poN4t07ubD+QNavbUEd xNP5e5G7ePmhd8orsuBGB3FtUGj/XgF+YHCIzHZJ6CDsv94dUhbiB2t1YoNe egdxpJo/QVUU+8t0a50r7iC2FMUfUpfA+epe7nz3oYNgeso9rbEZ18vIZmeG O4gfCbGpx6Wwf9bJMFWmTqLqGru23nZ+eHQw1+7slk4izTtywVAaM/+VtNFj ncRVe5anZnK4v4N3rtKtk7A1vKFvuRvnUShl+Z3USagf2cBgtxfPq6pMiKnp JKh7Q3Od9mF/WV+NuIVOopf3CrOnKtbv3v5j0K6LqFy/WuQDmHmr5I8+7CIe /gqwCziM+52Ont3S3UVYfvGtCNXCvKLueNGxm1B7O+caroP9rptHLud1E+IF F4SiT+J+wUQbntVuouu2m3eiEdaPFAyJpvUQJacGpZxM8X3GBZe553qI21wW bftO88OM74u+1C29hEaM1oFv1vzQFNqxmBzUS1B0K8ef2/GDx9eB95tovcQK 2777AY6Y94zuEezpJeg3tzCInsP7p4yz7NToIyI0772YcMN+Y+cF5AP7CPtN PHblnvxAb/610FfQRwhd/1tt6Yf7f/H46W/vJ64Gf498fBXXj3/nypT6QVgQ p1QvXMf33VbkoePyg1Baq51SD8f++ekSdNoPYvxS0amBaH7Qs6rPLFMbIAz9 4sjbkvkhbsyVtMV7kJBT2vR+4R4/cHFsj/tTPUgwz18OqHuAX08LLF1PhYaI 8guuXS7p2P/5MU7vmiFiq5vGk5w8fC+zoWBCaYRgkC03vJyP8wWTlroTR4jv 4wobTxTh1991l0KbpREi1oXqMl2K/Qqbdgu/GyUW7f/I7anB+S7Gzt71GCea Jb16173H97N+tut27ziR0z9660sD7ldl2XlVf4KwsW6b8/6M+22z43UOThL1 p/NLiztxftncwYZt00S68I5z4T14/q1DJYWZ00TQt4diZv14nxByXzPfDKFg Eh28PMwPI/UxnS3JM0SqvrOG6i9+WMxWnz5I/0m4a4k3V7EIQPAkTf4R5xyh fmvAuokkAJUP+0MJpzmC71vWdBenADAnNiZsrZwjSp33sS/xC8Cz4YEvn33m iY3hepq7NuO6Fg9Tzcxv4n7N1Yp7BwTA//QrXvety4QHh5buc1UBMJU5tHYg fplQN+bEn0MEoD1twz5HxhViZPDe0mcNAZgRcvTr7Vsh9m4o2stsIAB65h4e 0QWrRMPh4SxvVwHwLQ+5c/MDAzyIzN1/1U0AoqrSzNU5GcHji1ddrKcAwHGp 2JenGEHAjmEoy08AjhRaKbe0M4LtVSFqX6gA2F6U2Lk0vQ6WKo/f1U0VgLRL fkEx6htgmxo9dOsHAfhdPnWDI4gV5gzdBRiaBGC7g2rqnWZWqHKVe/6tWQCS fHuvtmxjA8vknI9R7QJgrBwmE9jCBglzz4R+/RCA/u8MxaFK7MCQ/TgPLQtA ZpfI+B8OLmgnx3eYbieD9vmxFjOCFzLk9N32SJNh+ztpnjwfXvA6ys1IkiPD zmbKR5ccXuDwit2KFMggdaRtjkuED458jPSUIsiQ/FnXWm6VD15cu7Zp1ogM d6hbakZaBCDip49CZCgZSBwRod4twpB5dt7JOIwMwvrr1EsERODdD+9U6k0y CC5AhaOZCKx99dpQEkOGnLQ1rg29IuBZ6tk2kEwGn32LG07OioJp6PlLanQy DPLU25hIS4DPn4k8lgIy/Kn0aXf2loDbPucGWorIwN+QGjdaLgENTq66rmVk WBKU+iW6gwJqOi4SSTVkoIZ82shZSQEpfoe3PzvJ0K/AVpm8SAX1mIGF1z1k 8Era7JNL2QyWm+xlwvvJELS9mbSiuRmSlmzviI+QgXbWw/tIymYoutD/fnSM DN7nUqLg7WZoHrdZK5zE99n/hew3sRlI3dZOx3+R4XnzMDmBkIQdJr33BH6T QXZ6rSXARRI0mqya+hbJsOZz705qvCTYavUw5a7g/Tg6Li+VS8KVKsv9/mtk aLfpeHFrRBJSVbrPH2YUBDjZHfZ8yxYoKTyTxsEkCEm7I/4O+WyB2QwLtqcs ghDMnj3EIyQFnJROwoMkCIsz7eUMrlIgk3zaW4VTECh847Xby6XAMdK86zOf IIRPympstd0K39xN89YkBCGuRPvpR9o2qFQ2NDBVwsxVW3Fbfye0HpB0sN4v CPKXQ4eO5e2E8YOzvs4HBYFh/sQfFZI0CByKS/FXx/7ka+49NdJwTquxL+mE IGy/G9TPTMgC2fyIxzdHQUhgLynSFJMHt0t7o83vCsKWibhjY7IKIFrBV2ux KAiBmfoZf5P2g+Q6lv22uUKgdcVye9/2w3DyWs/aA09hKFzKd1vU0Yat1aNV ndtFQFF1mLjhpgf+eqWns6VFIH4Tty7vJT1o6IiYuygnAldnqjel3tADj1np reS9IpD509vqySM9KJNwu3mKEIH0ANvI8GY90AuYPVljJAL2v055piuegku7 VjrzrorAo969hj2Lp+BjaYNP0HUR8GMQC5pi0geKRiqHbrgIrHbQNi9x6UON hSqMRYvAl2SvIoYd+sAVceXJlmQRWF5amWsz1YeMgfVnk/NE4HxSt9+DYn1Y dG9Z55wvAk1w54P1W304vpJ+T6lIBC7/usYk/kkfZrg1PnwpFYGTxwumw4f0 QYUIl+eowfliamgS/AbQlExauNopAvq0+66angYgQpM5H9MjAs7hlNLsywbg WKXzI7lfBJI7JnSYIwxgdSzqE31EBBh2nOfITTMAzb85R1+PiwD7m4wt8zQD SOD9UFY7JQJj7IonlMoMYOdB9mfdcyJQwng668kXA/DRkxUfWxCBMA3/d596 DKDSXjdhflkEWi7NV86NGwDp4nlWxjURuO1xJ55n0QBMoqODSYyisErausKz zhDSHuf+JjOJwgaxTXG8zIYwVfThnOQmUbjT+WSWxGEI17rZzQ6wi4IMq9mR MSFD+DQr++kolyjI1vEf/ShhCMKbThw9xSsKj7+2KmVLGcKLXTG7nYVEoSmI xqW32xC6gzlYE6VEocaFnqChaQjKkpxlP1VFYduDvjtT3oYQum/X7lUQBUVu x/cOAYbw8fjJTOYjouBmwH2p9YohOHjHxktoi4Lu4JbA9AhDuF3NeU7XWBQO PTg48euhIUw4cYk9dxMFNhvug87vDeFRDvcV64eiEMzqbDZANoKh2J1L+9JE Yd15r3U6okYg43XYi/OpKNyiNc7TKEZQst/HqSJLFK6TBNsddxhBU037SdGX onD/R6fBwwNG8Lf3IaW9URSUL3u77bcwAkt+uaqTy6LwwOCG7ZFUIxAJ0t5A GInBuPK9Dg1uYzAfy7cwMBWDOEJbaz2/MSQZixQ6nRaDlRNvtF8LGgP/rgnb OBsxIBzDZbdQjIGzN7qy77wYzIUzXGiUM4b16p8vXQsTA0mF97Nhx41hfIPp 7PtiMVhfBkU/rhpDWbRDj6GwOAimTmqpjBvDrt3JO750iEOp5LWhXJoJlHws 3fq0WxzY2PvK4l6YAJzrlPTrE4egkcuB3oUmoJcpIS4yLA5zb0I61EpN4IJY Bo/drDio8y239FSbwEuWgpVZZgk43TPZZtplAmr9jR94lCRAx2R4lym7KZyI Z7igHycB2SSdEj4vU/j0ylPHJl4C4hmuJ77wNQW93v6tHokSIMl/JflUgCno y1Z3RKdKQCbNZ/e9EFMwrr159P0zCVjelPHEKM4UrFZ4hOCNBExf7LZ1p5mC h51UpeysBIhGberwnjSFnzcTUw7OS4BizPTjGz9N4QJ9k8/xRQmgbrmV/WDe FLxXR3e4rElAq1Bl1rdVU3h9vE1LfwMFAm9tNLjGYQaVg/cKorkp0NzGIFYo bwbvhaRuMO2kQMnP9VKv/c0gjM/8t6c0BZaF/H8LXjaDI5yxDj0yFGiZN/IL CMH9TEuHS3dRwG2fQ/rxCDMomW5k8FCkgPWEm9+2VDPIrPYO6ABcdyNbNlSa wXXPd+fzTShw3+Iv3wK7OaifW+qUMKPAy083xhZ4zIHBSU4n2hyzu6zpGtkc Ai2SdjqfoUDk0yFB0c3m4H3s3LCYHQXos7kr95TMwU6Mz+amGwVI9v5PCqzN 4dB7O0Pr6xS4JkPY+bwyh63z/gk1YRTQa7DWEkbmQKLGtMiEU8Al2sq9+p05 tPuXGC5FUEDawCJRrskc3LazG92Oo8Ba/Q4u3WFzSLnx0ujdPQpcTm14USlw GmaPsphsz6eA8PGBtPyA09DuKX43poAC6U2/62VCTkP5fYW2uUIKHNwnxUG7 cRrC58+YvCnG97iiyliTcBrEn+abmJdTwLdvj7lO3mnQZrIwjaqjgIXYyNeS wdPwpIpmNtNNAc1FxTEwtQCmAldmn14KKJY6OOpaW4Djk+3FS30UGE1PU7dz toCd19L41g/iPEOH1bL9LSD/aOIn/nEKHMuX3JebbAGVdZePqizg56th1Bbc ZQFdH3V2h3FS4R6LE3f6uTOghlh6WbmpINm7N3TS5ww8yquJieWhQqor5/lD V86AfRxMJPFT4cPtsQbm22dg4tTezGwRKrS/Vs4WKDkDyy0iYp+3UeGB4e4k pY2WQO4YYxYFXFcJcH2XZQm/96S/CjtEhY2Rn2deFlpCa8SZsz/VqWDyg/VG QYUlJBxoaqg5SoXCR/HrGpotgSulKMbzOBV6R0irXiuWwGoWzFdrTAXxEBHl whNW8KeVn3LhPBW6bWIjJFatoEPuU1OnGxVkHOSX5JmsoTQsPOSYBxW+/tDK bGOxBn+llX5RLyr+fHMsWJHfGubv9D6t9afCD65f4Qoy1jBlmC0tdo0KH7t0 uQ+etoa+ZthXl0KFn4rre++WW0Pq9uMCZ1KpMHAxyTXnnTWYBhnN/7xPhZie CtO6Bmto2nG2QOQxFawuhLkKfLeGiuD4Xe6ZVMhy9F5lW7CGFLmhbQKFeB9O l602e2zAICJS0P4DFd7HP97RSrMBjt47C4sfqRDxcupS70sbqFd81BrdhJ8H B/PH2QobUO8rTCj+QoU9FY7Xd32yAXnlbi6271Twbj7WwDJjA6QheZb8ISpE n1LapKFgC3UqKiMaI1RQ1krPbFaxhdBbR2s7Rqlw6O9KotMRW1g+aH59wyTe h1neN8vIFkbiQxnNflFB4LD4mwR/W0gfje6dnKPC7W5dO/sQW7AiktDV31RQ XJ2/dDDCFlrHci7nLFHBdqvflo2ptnAbii0OrVCB0q9QsZBuCycS36i0/qHC uVD5/p+5tsA60SDsuob377e8M/fSFqoPtS79/UsFzm/0zr/IFv4HpjUGmA== "]]}, Annotation[#, "Charting`Private`Tag$26580#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxN1nk0VPH7B3B7lGUwZjDDGLvKkqJk+TyVSpRsMyYpjCVKliwtKkIlshTZ K0shCcmWFpFkSQlJkWxJdpNlpPS933N+X/3uP/e8znme576fc8/9nEtlelu5 cnFwcFzg5OD4733WV2mcnRNhxPF/l0uUzGHSTTf0P0s9WocbTQ9c8Wy9tsf7 9Esr7rcol3iVnrjiLgn22PP0nBVbsyU/PkkvX/E1j3t7q9LrVxwWfuOVRtzH FZ+kCCjyX+hfsSlJ0M1A5vuKd/FTd6/bOLHifXM/BK/5zKxY0OHNK4/w2RVL S4qioSsLK+5oVnzIPPhrxQqnak489/iz4tjYRIKIPAf8z6WRf9pFIjhXrMCl phcsyL3ikfknqdOBPCteOCJ+p/Uv74oLOdKjL1xYteInhKt+m37wr1jsHnDS vVevuLrSPup095oVVxgbPlvjJrRiOtv8ndcP4RVLf4lwxk/9c29N7cLj2X92 jdKV4+UQWbG/rKxvGuGf440nxBp2/HNrXBSdeuufEwJejdZn/zPD7u95z3v/ /FXBL7ei9J8ny+3Y+5r/WeiLWuoZ9v+bX+OsIbf8z6bt5v0DnDjMYnVlqZ+N Cl4du1/Gg/nF4pW4Uh4kXBkRELEKc4bZxEM/aeSTfxcdXI2576b+7gVV1JZe K6Ah9F/rcvZrbUKbYr+2c+Awg7DG2ypDlHjh9812Mcw2nvSmKGPE9pNyz5HA 3CXIXSRvhuzcdLVPS2LWvjGdYGGJnjKsf5uRMLuHfVYJoyFZM596WVnM076Z qap2KMQwOm5GDnPBhdyT4IAGNPPt6hT+m9cjV9GVie7ihyY91DCH9PH8SnZH HHEWiafXY5bvlP5l7Yns1jwzvKKJg5D2A/jjqj5IhCvxap4OZraR5uXL/ujo Oa5NlVswQ/P+4e+BqI7t1f1aH+s3PnnxtvtpdHpq99rv2zCb2e2JbDqPOo6W vp83xupTxE9UfghBGsNyp/lMcPCi9XanED0UDfYsvlYyxwF4Vc+IX7qI9jXd d3Wxw+rzNzWEZF5FeTslhfwPYfPODSizY2IQV014aZgjDjImpz9/2RmHKioO cWe74aDvRtkWrwPXEfWuSGb/Caw+27H7yedEdFburMlMAA4cXVezM4WSUWfa yBTHacztJ/QGd6egqOs1RnLB2PNzmoot29LQXLBfz+EozC7vhcdvZSCLpa9h XjFYnl0ql0xomSg/cO+689dwoOWrQlAXyUIOx5XO3EzCQavU3pdB0dmo0e4j sScbB3H86qoFj3LQTR196wNPsfqh4Dco6wFiF+f+cq/GAe5yb8FYTCGyWo/P OlWLAwvbcyUd54vQKoWJ6aQGLN85i0ql0mLki7sd09mBgzzzHbvvFJegnWNc TdYT2L7j5zlKf5ajVB33AM1pHIx85GLuP12BpoNb5Nb8xEEDVT1jI0clSsUn n6xl48A91kHsnehjNGmorrSBRxRGeHKPk42foOQ42xBhkij0jUotuQ5Wo1Gd At1GE1EYF9dQLvxbh1CI6MAdM1HwXNTs0aK9QglNgdEh5qJgw6cVonf/FUIO 24Y224hCyByltotRjxIiOq/lOIhCZY3/uU1Vr5FhN8dEWCDW//nW/qiEJhQX Qss2uiMKqXkPVC5atKJN6kHTa3JFYXbgMOXphVb06VOG4ad7oiCWw2hRfNSK 5DeOf/QrEgV5TsuQK4T3qPRbqOC9KlGQzg0riv/6HnWZFgeIvxeFuHjX9F1n 2hFFYo3JyB9ReLNQu8T5rhMV3nsxfs1WDMK3kDXu9XxBLJxwJFlaHHYvyvP/ 4fyOIiXOVrLI4uDi9bp5ndx3JC89OtxAEQfniU/WNKPvyFKhfkeAkjjQLz6u TTrzHRXrnP/ToiUOH8ICb7SzviMvu0mf4N3i4DgV+pXVP4JGs9/aDviLQ4BC daTG41EUmmdwqfKkONSLZppv7xxF0g/yS2POiGPvz5+55+co2lN+SVQ/RBzq vjGjtNTHUF6DUXN8lDjw7Dlmb58xhtwmCo12ZolDskBj81zYOOrXjVXKeycO byWuu8QYTaITdXs3PGkThysbpXu7D04iLqvVhm8/iMNFvpt5oqcnkfzxizaz 3eLAYdTDofNoErlkB4XBiDhcF97hY6U8hWa19GKtx8RBlJWl8Hn7FAp/Pp/q NikO8l5xDbsdptDdT74lV2fF4W7moYr2pCk0LOLe38WBBwtOZmUX9zQKvKk0 McaNBw4lxyRlsWnEt26QvcyHBx8hRP4rN41Udh3GKQnhoXh2R6AFTCP3szbI VwoPpxLGOE9enEZsATGzcDI2j+6bQ06eRleS3tGTKNi849TCffenUX6Jqdcz JTyEON7dadU+jcZG4KaANh7yup6tG1GbQWcDl/PIOnhIriSGjMEMEuR5Wqq5 BQ9w7tvsGcYMWk/Z/IZmhIcXZy/cMroyg7xo6kuZplj/G4OIgzMzaHlglK9s H5bHtCKwVpCFYnzyxBos8MA2mNperspCRVEKayfpeNAyMWg3ZrLQdI3Uga3O eFD1fuPB0cNCIfs/uuxzw0Pl6tKe1iUWwn1J8HH0wMNIftaoBvkn2sAWibjk jeWv0dNNOPwTndDgq2gLwvarbpXnG/2J5lJZ+GMJeJiuesCbTppDHZE+td5J eHD88qDy2o45VHpm0ts/FdvnXb61qOcc8rcbbTqXgXm1Wlrh8znEkhoIiSvA 6g0kB52PzqOp5PfjZXV4iLv6ZuJN9wJ6G7E/teo1Hlpnt94+JshGhadadlc3 YXlbv9y6YchGXozGrIZWrP+N+UBUJhuNE2sY3T14YGhXj3P7LKIficV1HHN4 yCgdytFRWUINlzRO8LLxgMvRr4p3XEJ5gQWU1Ut4cC9avnA+dQm50/POiHNK QDKLHvFL5DcalsjQUhaSAK3UDYMxnH/QYEJsupmSBEx7pLob/F1GX657+SfS JCB/xqQsu4QTKi2/KR1hSECc7UJo/gdOuI6z/7j5oASsfrnwZIrNCbti9mz9 5CgBxWrGCTrABcVXFDnInhLQU+DUU/SeC0JDPkdlhkrArR3Oz9w4eEDZa1d2 QZEE8JyXZchE8wGH+jObcyUSMLAUqMZdyQefxzbymZdJgGlAS4TqIB/EelA9 pqokIOJTo4T21lXAdvmtoV0vARm99CPbxlZB08GSqooeCXiTENDNOCAA3ntk 22oFCDAa5Hwz31UQtl8bcmwVJMD1xIbjg+mCgP+UP/VFhADlKWus3TsEocp9 s9CiBAFO4UMj6cZCwBdhYaIpT4DZudiZVyrCcLM+9HnaVgLUGaq+/PVbBJp3 fM/3P0aAgjr++kvTonAr6oFeqBcBJkVIZVM4MfBp92uI9SWA+NaFI8EbxIDg zDGcf5IAVyO2aIn7iQEzVIraH0aArWnCE4JsMVh8YZa0L50AfzkvqpkL4EHF qDhMuYUAV9TO62ntwXLYeBM4WrH8UaJhHJ4EqD2mce9TGwEMWxx1fsYQ4HBK wdurXQSorlzzHX0gQMJsntTPQQLsKwnhOulMBI77mUXVvwhggaz1HC9JQhcx vpuhSgScwVImGpaGHA0rL+11RCiRE1R0EyKB305RTkENImzSun23aBMJhP1i las3EuFUimLV/TASGL+N8lVCRHhKSC0wUSDDw/DwVSwaEVKb0zqlPGQgciZg Y1QYERr3qsvcXCUHuUfnjtAvESEkonpsniwHdYP+6dQrROgXrmt30paD5Q9+ vJUxRPiWxbN49JAc+Fb5fhxKIcLYmYhO01I5YIQdDzIqJsJsaPXb7a5UCPg9 XiTwiAgV3E1GRUFUuB7gOdRRRgRjz8ax9dep0Hzk2L5jT7C90y/z2ldTwWiv ByW5nggyAsqBV6TlQUnC9eVMDxEqH4oYKnTIw/aYoYWnX4mQs+fppTtj8nB4 lcv6iAEinHbr09rMrQDJi8wbsiNEMOz0LorTVgDBXscjZj+JsCzXGo+/rgBq tn1phHkimPsdolDzFWBXq0NrP5sI5BQFGVSrAMG1h/VOLRPBl0//VBFLAVg5 9mvuCkiCu5vGNwM7RRCR60E+gpJg4kz+WhKoCOtTDvrri0iC1rFvjA0JiuAW ZfflPV4SMnz7zba3KcInb0bRMgWzhndhtJ0SzI98HGyUl4QXBxSUqcFKIMa0 lbyhJAkNW11kSu4owV4b+oV16zD/dFn9mqUEL7bYWDN0JSGCaHEoMVUZOrcq uDrqScIIMb3gRZMyjBmwAt0NJGE60deB/7cyELbFpZ7aLgn8PqkjI04q4Lnn TX+yuST4qAjZPtuqCqFmaT8zLLH85W/jMv1UIWnfUd57NpJQfKGHcuOBKtRa 8qs9tsPyqj/XzVZUA6Kdsc8nN2z/Ey8l1lLWwnp78dB+D2xeMK7B1nEtbD88 EP/DUxLgsmfNpay14MkMqVg8gc37ph3ar7YOao8+XZYKloRTJ+VXHzBeD15B m6LtkrD8ZZ/u1OdoQPg57tvMVGx+bDBLZ0EDUoLbio/elATHr4+PRppoQl2Y T8eZbMzbW9q7JzRB+moBKa1IElzoe++fzNSCV+mK+d2vJSH0+KqG3NXaQH6O f23PxvIc99awUdGB9bE9PVpL2L59Kn9uMnTAwPEOi2dZEiplz1E2RuqAPdcm 2QfcUmCzaB9uMKkDN3dZB/wRloImvqiOise6IPvumsItJSnQjTrypPjQFpDr Ew75aoU51E7gQYc+KHAJ6DEfSEHVxrljx+9vg/3hX5dv+UrDidMFmbVMU7B6 MDUX5C8N2y2VWmTCTIHe+XeccVIa/iTotXhlm4K9qly32DlpyKwxaZ0eNIWj bxwrLkVIQ9XBuItHXcwgHD/g7XVbGjqm9Br7mXuh6s5Qn2GLNESGZCabWJvD 85bZj9Kt0mAjf6Qlx9ccauZ53i20SYOh4bG/k7Hm0GCi9OxhlzTsgB19+m/M 4cO4a4rSkDREKNdsebZjP0xv+m4ptCQNt0dKi3mJFqD86kdtjyoJ2l5e3Xp7 3gJOWVQdvL+OBNm/XIXfcVtCc3fk7GkNEtBOmt2axFmCD2udMhE7d4p0S9Dv tZbwhOJ1xRKRQPasZu7ew5ZgcYa1v56GnUvJk79Saywhm/flSAKDBMmtZ7Mf tljCfFz8BeeDJLgh99Ow7JMlpOVuesThRAKzJeHE0BlLGO4IJOh7kuCiqfGM lpwVBGku9RSFksCuPn9n2WkreFvVHHD+Ign4pe/LXQq3Arld6cL7IkjwlO6t sC3WCurtDWE0mgQPg6sm/O9YAS4yOFsxhQS+RumP3rZYQc4Q99GUIhIUfLs+ r0C2BrZ3B5d7CQlGj9c6hSpZYznupOmWkeBN8bW1DRrWMC26q6W9igRddpfk BbZZgz6K0BKuJ8HQJH/TQRdraE0RXAjtIcHvq6d+kHOsgVS4/njMVxLwLV77 E1poDW61ewdTBkiwNk+8saHcGv6MXn1XPILt3xqQxaq3hrUGQnm9syQo2V+t 8PibNYT3Ch3YKkQG5dDtJ2/K2MA7lvq7nTgyVD3fvHe3og1IrzLfaSlOBuZn layBtTbwUDNmg7sUGQrCdTQmN9tAb4jw6kQlMuw4V2x90NIGtiiIPJkxJENz tZ9e1gUbCNusueEPkKFkcfMa78s28NZsfy6/MRkyPEbbNKJtwNU/Np5iSgaz Gnrm5WQbuP5KxHMfnQzLKgv1GYU2MH4EJ3PPiwxyCXdTL3bZQEaBaLDjbTJo zWjEPFWgwXDs2sXNWWQY+7WJ2axCg/V+O/xE7mLPL55ivl9Hg0q9gCPP88kQ +Hy/7suNNGit79pPLidDR5HVZthBg799t+W63pAh6ZDy5mJHGhjXVaYWvSOD 8C3fyq0uNIjMfY+/3EaGZI47N54doQHBi1tAt4sMBxojiwq8aKCx5DYTP0gG VgXbT/ssDQ5LaNTu/0UGp7OSHeM3aHCHvctA5Q8ZbKxa53hTaDDa7VC+/JcM xi8ysyTTaRCYdS3/Aa8MJHIe/rE2iwbRmnPX14jKwEH3DkPeQho83fPU+bWK DNjrBSVl1tGAdN6UF9FkwDak7tGfCRrYjZbYWzNk4LRe2VDGNA2S6aTSIwdl wAV3zRT9pIGE5jgzzkkGmPwhEl5sGoj0Rb/oPy4DueX+ZolcdODe/j4o/JIM XHl80VKZQIcxXgarsUIG6LX3Eya20uFJtOtXG2lZOKS+8ahDCB1M7GO67GRk gUd2f0xYKB0611a8d5SThcb1PQN54XRgveav81SWhasfr51aiKDDWq6CvHBt WRCrd/mQc40OyYEs31JTWeBX9d/LzKZDgEMwDz5IFv7yXZ8ca6ADl0beH6nz slDo0GTLbKZD3O/WecoFWTh9vKy5p4UOBSnyP9ZdlgXUPabR20aHofZXLTvi ZeGec7uTxBc6WJkIJvndl4VeE4avB4sOmhtS1Nq7ZWGb5/W53VRbqHxbpXy3 VxbcjjuV6SjaAnj2KJzsl4UX7YV+aiq2YJFLkSV9x/LEftFRULeFEzI5Ys4s rJ9vy0cnPVsoF3i0xOKnwIZh05cka1swyu1g162hwMPKYakTdFt4bTw/lyhM AcVp56R3B2yhK1hveiueAm37SJYZjrbwa656KJRCgR7udfWpXlj/wJsWMV0K 4Gy3jHNftYX64MmmoS0UeD/f6vAh1hb2y+AayvUpYLz0QL4o3hYcGda1dtso oM7a1xeUZguhbz+VZ+2lQMrHtm1n72P9VcO3tZ0p2Pdo167aYgvm8RwnrOIo oEF82F1CZMC7x757neIpkBsZ5i0rwwCLvgFln0QKpI0rhSXKM8BK/VV3dDoF 7u2yiChQZwD99ZWdjXkUQL1+t08YM8BhSUwKaijYuVyVH+TPAB9npRfqLAqM HDkWpvyVATNXElMN5ijg92lP2/5hBpwoXhVgxqaAaGxOQsQEA/z//FDzWKaA 7jWLNtXfDHhq9nGPFS/2n9foN9EudQBefEt7FC0qB7gW1q4U2gFolFK6zLNW Dso/EgMH3x6AbY3ONo4X5YArU/NYd/5ByK4tPDDdKwf5SdtlCnMOAbF7lJ8M VNC3ObrKncsR+ttgc0MqFWInmX+t9J0gXdWMcCidCrd9vqTjtjkB4zxtbuYm FcKtpN637nKCVrWjj0iZVOy/xpX7gJUTPA+J1/TOpYJrtFF5hIcTpGoMqxBK qfD8yZmrbslOYB0ZJenSQoXdFIMKJbYTCPfdWGC/pUK7fEHvlmUnaNLJ6Ixu pUKCwuFGcx4mbO8vTahopwJDS3IyFMcErS29uDWfqXCD40OaoBoTBIe1BEqG qZDVOFedY8eEBn39kV0jVAiaPFI77MiEsGs7X3f/oIK2g/0ttSNM+GVgd5F3 ggoLm+1HKvyYMBIfxnngJxVCLfLG5q8y4c6P6L6JWSrIH5bp3xfPBAeUXB06 TwV276YnuSlM6BwtOFewSAVe8255lxwmXIcK+21LVBDdpf2ovoAJ5ok1+p2/ qcDz6on6+kdMWD3eLH1smQqN77rjEx4z4dW2zsW/f7H9j80P/61mwn8A9s4E bQ== "]]}, Annotation[#, "Charting`Private`Tag$26580#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3c81d8bl73HNbOlVJKKjCTnIfmqZCUrKwmVZCSSSiXZK8m+VkZUipDo ZEv2uLbMSHbWtfrd31/39b6f5zzP+/1+zvk85yNhe9vwGjUVFdUYDRXV/3+X XffNrGcGqP2h7ngQ3W2tZhcsYiWUZI+CtbK9ovlOod0FhzinE++i7VKVWx5r Omi5Vu56W6I/sjALTar8bIFG9It4axJj0LyGYdVJ5IR6eNf/fE3MRH3Hw9d2 XbiPnhUIeQXRZ6MDqisFMyM+SM4A0Rq75CDfWY0z+90fopAQf+HZ03ko653p zfM1vijlcVBm6Eo+kr/VsodU+xRdXBfo/pJYhJy/zzsFuQci6TrppFSDYnR3 h9Zvj0QQoopRvfqcvgQ9k6q9tt4YhPLkbeYNXT4jFRPzXVfFQhD97SyG6dNl KPC2zIjZ+zA0uCQoHLLyDS2Fa572/RqJtPsk/+3oVSAkv+ttCEMUKqyQGXV9 U4EIP4/MVOpFoaAItWwT60pEazSd+X4wCinJ2h6X/F6FPJpo5ZLmX6DI6zk6 pYm16H6r6bcrMy8Ru0t6b/1OLbK3rp+yPhyDQu4m2Xfb1CGb0IT/bt+KQQFP I32X99ajbXqbvTXTMcg36V6h7NvvSPI449drfa/QTrq7+imOBjTw8OQ2HU8s 8nlzq/m8awOK+11y46tOLPIsvjLlqPADxVk/07n/JRY5t50VTi9vRJyRLOGn wuLQTPfpnA9iTUidqJhR/C0O3Rg6pfjtcRNy1o36qb8Uh+z/HNMfPNOMZFub NccN45ElnaAff3MLythLcziLKQHN0gUxcgu0ou1ts245hQQkw8SgJ3i2FWmR 64jj1gnoDceugQO5rUgsZoD+68cElCm8snLmdhs6KxMeaaObiCbE3FQvpLQh z54zEQruiWiv5PwTo7Y2FLh/I0PpVSJKO/ib46p8O2qb0w2pHUhESYqDB33X 2pHdhF7RfqskNHDC3OX5gQ7E7hRf/8AnCQme6i4KM+tAsXzfpxjik1Ds6bbT SV860Dv+2uYv7UkoWr/GsvRRJzILnYguVUlGHRc1MiryO5Hc6tq974bJiGCC p+tHOlEvTZcd941kFGH52bP7dBfi0R2tuxyTjFpsFL8O3elCY9KsO5dzkxG7 XQHtr9ddaGvm76d4nIxCbryNXGYgoZArC1LdE8noxy3pnk1lElIr3EkirSUj ZtcsUZobJFQi85UgwEREAZ6puVyNJOTcctrV7iAR1XmLLglsk9BCHM1uV2Ui on+YoCwu243yGhxUqrSI6KnfyxrZiG7kQOS0P3mFiJw8iedXy7uRhR13RrwT ERnfyGkr/9ONdDu9kLknEYFlgcmz3T3o6Z36We/HRCStXz6o818P0mkItNsO IiKe03VXeTx60C9zTbPRF0S0rdD2uz+tB2XmPnosnUhEvw70305v7UEt6lVR pHQiahWaWLmx04M+pMVoTL4holL2+ftyMr0o8uJjLcsPRJSxi7xrw6wXfe1l NjpRTERhy9QBFc97kWdpqbhPGRF5TrKyB37qRTz3BWylKojIpo8vWn+sF3Wk 5DYp1xDRuSZxQQGuPsT0YVOgsJ6Ijn+TTvmp1odWjkaQY38QkWjBcakspz40 +nph71QTETFmquU5x/chqZcZ+mktRLQYqy2nWN+Htp/Ky9W3ElFfsGHJ9kof Klnb+8i8jYiqH1qo1Uj2o2QPqlkzCn7nal8dYtCPVp9cOFZHiY+1czln9Kgf EV6/2JVOyffExLtV6G0/Urhizj1HqXfznJ/xWF8/eqt6UDiHwsfoVNjAG8YB VFX2vK2TwlftaKytm+IA+mK/PeVK0XNAMm3qhN0AmsJcAo8pegl8ec67ogZQ 6AUdHppyItpiLFquxwNoJfr4i3WKXxOb2DtidgDdEjI8Z/uRiJrnvlOZCg0i VXuZecgjopKRDn+xs4Mob+Oc0svXRJTWOcg6eXcQsVgp9FgnE1FI3WTUu4xB lMDr/jw1hois324mn6IaQkEx9JMhz4hIO4VuH53sEPK4cZNa2YeI5F5w5DZe HkKVWerUlm6U/XZPsvhy8RCKcLd5xm9JRAs3D5+SnBhCb1lL3N8ZUPy0Uqqa JvxEF/YShSvPENFbzfMt95x/ohPjJ+7YylD2V8Dnvz8Iw+ifyh3ehL/JiPj4 a9H7g8PorIVgwaHxZErfq+69gGF0UyqkWK0zGW3favpn7jyMzjUsNMx9TEat F0dYpr8Po1fjEatBlPN35sKv5qbhYRQxbP9awyQZlWr9ifywNowy32s6PDmd jDJOrPDf2zeCLg8obCQKJiNPMaa9jI9HEAtthZJhVRKyP8S14vVqBJ1+bFHU npeEjJV21/5+O4J441iuTLxMQsf1Djr+6BtBya0Dv6rsk9DSw7N5YcdHUfBk 53UvmiTkNBR4nHdqFLGuO5CNDiaiy9ORdP47oygtv8NBmzURnVuNI63yjCGO cfmCnrkEdJD9jVeP+hhy+ssU2k553/061VCWkDCG3qvGUKspJiCbJOYze/TG UUzZ/dTAQ/FIL4fA9+LaOOIprGFLYIxHap8EJ2l8xlEm/QSD0UQcEmmSDpzI Hkdry/0GOCkO9W2da8qmnkCdD48vhTLHoUsWwZeOFE2gwKABztTOV+icEKu9 qsgk6o2/cUDnyEu04xwhEa0wiTZ//Rlr2olGHyt5Bv9cmER5oy61VM3RSPCG iFHCw0m0tWf0+oOb0Wi6RFZj4+ckqrCZZJlOe4ECjQ1ES9KmUGB8Tr0ebRSq j4whyR+YRh9yfrEGy4YiLUaJ/w7JzyI5nRP37hT5oAsrv1kjXRaRsNBTubNP H+Dlh023h30WkQ6bb8mF+w9xPOOH9iOBi8hPeohpwu0RnhLyim1OXUQf11XW rfJ9sZ8G/V7WjkWU9i90yzzhCS4L33PyucISytTSkDGy88cy0pevP9hYQnx+ s9kLn0JxR4FaYyP9XyRoF6lTuD8Me5/ac0SY+y9ypK8dYIwLw/X6v5dLD/1F T16VF1h6h2M7T0/fdYu/yI1pxbEyIQInVr945Y7/osyOPCx6IQqzWjfWXPdb Rv8Cmjkeeb/EC64f3j+KWEbfZXKienNe4k6/mLiXicuIiqRvPtbzEie9sblV UbiM4m79s9mlGINlV5d5dk8sI7Jk+rTeTAzWDxWxqz+zguzV9Sfua8fi4ynU ukMGKyjzNtcTe7dYLFAwqbRsuYIYPX0Z/ibE4pGeDyzid1cQn5aNx9xsLHbb q1XgmbmClkwW7puExuEXX5yp9zOsIuOhJGmlz/HYq/nijCr3KrJvNxQbGIjH FiPKJEOxVWTkHpPCS5WA9zLQvHmotIqiFioWNc4k4ELDVwYkh1Wkdd791u2G BBx7zefkjPsqeiLgcC11OgH7eF3ZR+27ily2ek9eYU7EZ5IPkQ/HriLdUwqH n2snYtJvnPKsfhV58wZ/M8KJuHQrIyihcxWVMaufH+pPxMkcQXc+DFPy+drT z68lYgcFI+3B9VWUvWe9KE02Ca/7Ts0fP7iGsgv+EU/GJOGBF0295xTWUKnY ps7kuyT8LfNjlY36GlK9a+zDXZeEAxt9XoWYrSFd/n0s0ytJmDIc0HjgGvJJ /PPc60Iy/m3fqyz9cg0xB0fijzbJuORTqpxLyhpSFm454+WejI0vykltFa0h NSmhgLRXyXhf2oaYRuUa2kqW/U2Xk4yXFyp3BzStoT2lY6OLn5NxZNhFNp7x NeTYrTpt05eMbQaFGMzn19Cd3onE0d/JWFZmnCplYw19fKAiN72ejBu/31k+ xLWOMvIWdAN4iZiRLqb/tNo6KkojGc9qE3H3RauuwLPraKlwz75gIyLOTJNq aTFaR1TXZW/kWBOxJhRXXr65jqAoLM3uDhFzhz8qS727jmz1plSoHhLx6OB/ RZOP1xFnEEv07udE7Hu/J8c9dh2xjpe0V74iYr2GlPTP6etImUbb0oBIxKK7 ryf9e7eOyqreLJlnEvGsw7FXZ0rXUfzrqxNDeURcVkSOCK5ZR7UHVp4PfCTi YLrKoLbWdSTXNCJzsYSIzY2C/PgH1lEJIU9Ko5yID6QbPrScXEd290h12RVE vLYo6JW+RIl/PGbrX0PEtTDm+nt7Ha3nXDrXV0/E0eG5N48wkVGR+/vW9B9E fHXI/ZoHDxnZW7lrjzYRsdxhVesvYmS0+luS9mULEe/yoTXbdYiMtGNOG39p JeLWhkbD/xTJ6MaYUaRRGxETd7/UCVUnI32DPgYbCnZ2tNTq0CGjVmtj1kFK /KnifbDblIzmws4vNlDysdLPnbC+SkbJVqpMB5uJuN+oSP61Mxl16uZmrlL4 vEl/ePjPPTLy+SkoLP+diO8tae0/9oxMubezlQ1S9Girc0h4RpDR8ghd7wpF L39Et2B5AkXPRf8ab4ofv4aIPDRZZPTxGlfnTYpfnw47sp/9SMn/6qBJPcVP P5+jjOHlZCRzwyA1nOL3xR/ru7rqySjRgoWu4jUR7xGs2BTsJCPO+d7Oy8lE vOgYuGLzk4zCUtFV6xgi/lZsMJ85TUYbf79S/wglYstLo6NyuzaQsxcP7vYm YpmMNwNerBvI/s28r6cLEW8suZG+8m8ggs9cks81Io6NoGk4J7uBvHZs5Asv ELHDzx9VESc2EOf7Xv0JIGJF2ehykuYGUv73iPuePBF3/tj7wfbyBhp+YN1e w0fEz9QOiSc6bKDjjAUCMvSU+A/HwrvcN9CN0Ul+0nIyjotRu6UdsoGmliQb F1uS8TmmMwOPYzeQrnVl7ZWyZLx1//z5LxkbqPO5Cx0hOxlbXTE9KFu+gcru SfcdeZCMOTqtYh2+byDVe02fEuyT8TetawypXRtIJvWdjaZeMpaUcZvgnttA 2SSz99qiyXhqNTiVLLqJhptid2gLknDc9ShO+UObqJ7ebQ+ivD/ODcQ+clLa RCXw69B7ryT8tuK15U89CpZs9j58Mgm7heDdNb6byCVxmBRUlIgl/9UE7IRs Ip4O0srlF4m407VxTSluEymPVXNa3E7ESia9XW8+bCKjraKaib2JeEvib2TE 6CZKYVDeoPdPwG+jyVQNc5sIqOTqlCwSsBUDlQvN5iaaeuObGXEsAVfMsOre 5d5CKU/O7S/ujcf+xVLMFppbKONY17+vYvFYSfrwvZf6Wygk//Nhgfk4PJUo P9VssYXWP+v5RZXH4fNPoFbdYwtN9XxVnDSJw5wXzJ/sz9xC2apzD9cfx+IK bLNo83ELcdJnfNM4R5kPcg428V+3UKyco3oWVyzu4r+jxta9hZQlzgV/SXqF 40dDN5YYttHAuc/s5DcxWNKrwu3r9W3k89BJiz4uGn+Vyl3c77GNAk7ZCp82 icbmXdEukb7bSMBAvSiXJxpHyTk6273aRvmNnde2Q15g6ln2G8w12yj2DjVd uHsUHr1iccVYfAclPqT53sQfgR9yag3jQzto3Zpt10REOBbER6wPKu2gfIkP XrcXwrChMI3l1oUdNOVMM6r+JhRXkHJM0+7voPo5BbVPjME45fya3hxpB8W6 T+1PuP0Mq24MN5uM7iBOvk/2OoV+uCe74ULF7A4SaPote2DtKeakTz4fTfsP Lez7+sXM8wn2/ab5n4rcP+TyZLp1o/IhtlaIUvMP/YdaBe3lBIpdcXh4DB/H HirwHBE++uq5PfI5FLI7az8VnA7rfbPb6AZyrHssjA5TAcZ9Rnf2OyONf057 bitTsNxt0b2LbmjZ+bRsiy4VDP4nrVnZ7o1MdRfOhN+nguRGgmB91DO0h+2c B0cXFXyi7aeVvfkCFQZtd3AE7ALQ3OPg9CcNRSlHRUqE7YLTbmErs6rpyOWX lJ589C7g1t771D0sHR3S0G8wTtkFOi0b+54cy0Bp5LRvSSW7ICYw2sDN8zWK cNR+e+j3Ljga6+ddTZWNnLRe+P93jhrc3DPHrmzkoXPL+zXN9KnhkOSTM+e0 36IDaWW7bhpTg0Li6trSy7dobHvCJ8yWGu42d/f4HH2HzD8pu3d5U4OOa5mB ku17pL13yPpqLjWYXmB9q9ifjySpD554xEoDar8/NTxnKkCrF97vHCDQgK65 sJ/GgQLUEKdQ3c5PAzaJliLVWgXI5ZiGnpQkDTyy//hI4GkBKrO5fK3pBA38 6XZdmV0vQEY4NFLIgQZumb6TD+4pRPtZeExqnGhg/YVXu87fQrRhHC98240G Xs3sjapj+4RS5jKzKh/QAFP9NdoJ9U9oVuRb+fVoGpiZMcrMyvyE/H2WfhdX UOrx6zkHXylCZvVe76/U0UDs0CK1l2cRkuH5d4eliQa62R+SOUKLUHsuC5V1 Dw0UP4hOVCsuQqL9e/no52kAmfvnPWQoRotSuf3vl2kg4Ii6xjvBYlTtdizV bIMGVrivmz85XIxuMKvJvKWjBbNB9TQew2JUfMJEw0iYFi4qjT/+HlOMgp4N MuxI0AL9+U5huqxiZNV2tSlrPy0scX8yHyoqRrTXXUw35WjBJjZIz76rGHUX roq8VqYFx1MputzjxegN1YMxXTVayLgx5Wu+VIz0YwOd087SQsNRQ45CthIk Oc5xXEePFo4XRBdUC5ag1SMx5BUjWuiNOC/ktL8EJdal+Z21oYWuo6Y191EJ us198Nzfa7RQMNCsN3quBGlYv+dIukkLTUWbhwculaCp1S/xC3dpob7+s4f/ jRKUZzQiyPOAFuSWXhyh8ihBLh/pE5Se0sK1vy27Vx+WoOOcMkKXA2mhJFNP 2CGgBJFvGSQ8DKcFr1/LooaRJejrj7tCaS9pgRySylQUV4KeHExMqEmghaA7 StWRqSWIeeJXAms2LRBcMrXz3pegZg1W4aPvaKFQ+fTo1KcSFJVyLPFiIUV/ rv6f2C8lyHjHWNizlBYU0/PPf/lWgoQsfBLjv9HCN7LmH92aEjT8OVX4ay0t +AXOfzD8XoIy+OsSRxppYVwm6nlNYwly9JgRpuughb1f2Y0yW0qQTAdX0oFe Wojl/+/f37YStHBUSUTnJy1EcYu4vu0oQYVhFkm3J2jBPsQtsq2zBHnNPBZ5 8YcWrCwOalt3laBT57KSihZpodFS8sElCqbObhTpW6MF6psaAgWU+Fq6paTt bVrQt3Lc5UnJF3SVX1SClg4YCJ7iKZR6uhWqyZrMdOBlo295mMKHIGYr6shJ B38lSUQRCl+Sz/PkYD46qFecbrldX4Li+/JE3wvTgba7c9ee6hJkrdye3L6H DmoLNGMVcAnaG7MmunqADsLadamyPlP6+VeYuPsIJV+O84pHAaWfBhpipxTo 4AyPv3VqHqWf7x2INifpoPvPXakDryn9ZAsV81Ong1VmSTmmpBK0fuMjMes/ Cj7vdON0dAkqq+8W+3GBDiQDjxd3BZWgx1LbxLmLdNCSaEmFfUuQlt8ecYI5 Hehd+X54h7JfmEf/S1GwoYO5fLP9UZT9FJUUleLjRAd95rdFCw0o/dwsFk9x o4OK6yV/kGYJEjQbTKnyogO2W2/3CiuWoHSeA6nMz+iAq3TPvQp+Sv/cLkjI BtOBY4m9XQADpX+tbqkGkXRwg2fIPGG1GBUGl6fGJtFBsu4cY2p7MfL6PSpR lk4Hd0bORUTiYqT6H2Pazxw6kD9pW/k9txjVUF9Mkyqig+w87VrWJ5TzauO1 51wZHex49TvwOhUj3a9Jabcq6cDPI//ilUvFiHRvKq2wmQ4uOGbnfN1XjOK7 2SR7OulAgTt8rImVcr4V5NM3++gg2AQxCP8tQr8WHqRrTNJBOa9frkt5EVpz 4M5o/UcHhLOG1QPaRcg86LNDNx09qDD8pTeVLkJledaHhljoQUq2oY6TpQg9 Wcz9+IefHpgjtoiKDZ8Q+33NCvqj9BAc9+qtIvqEXJOm/dgU6WEyimvCV/AT 6sQR2jyq9NCZ/dSQaqUQxdEOtkho08Nx2mO58VmFaG+Yx5CqDT34O5OMxWkK 0fN8obTT9vSQoq6kvtZdgKbbK66dc6IHvgmD3Zu5BSifn33WxIse6DxfOj8z KEAnUzM33SLowbDsfv7zqI/IsLBbIOcbPZh7Lr8x/5OPPpEeDLyvpYfY3vMK fh/zkQBZMqWokR5a3YeFG7zy0dApl/3VPfRwVDrtZyZ1Prpex6j4c4EeOA9c vsXO/w759p24yCvBAHfYDgSsjuSgsa2ffML7GSBk/GjTgGEO0hLz79tzmAFm Nkpz+yqyEatd+5WjJxjAJo5nlic+C72aveFy3oAB8p4ffH5W/jV6R5UY+vgx AwQ8OnF+jD4F0VfIm4k/p2DTWFe1+mRk9fjHXhzCAKZGupcOPUpCHNSbX7Ze MQCjVm2t8Wg8cqExn/Z8xwBUMRaaMQ9eomP0Av859zPAN/Z398OY/FAhSzTV ZQVG0LbckJF1DcesjYcaySqMsO342avPLRLbhVS9igVG8OS5KXbz6AvMy/ZX lnSeETLonx1S/xSD77IbWhrYMsLC+flu8/EkrMzFWfpfOCNIPFHLDLHPxF/4 QtyP/2aEW0lDan1CBZj2dyVZZ54R/vt0/XZZTgHW/UJ+dG2FEWIuz1eLKhfi YWuHkJhdTEDlWvLyovEnTJ+j8Xp9NxPYRIw3scQWY/2TZFLZOSag3/flpdTh MvzL2l7lTB4ThI8zF1V+q8RH5ZK+WX5kgpHQ8avVLFX4Hm2n1t0SJni24v6v 2rgKs+aoX8yqZqLMT6H+0pkqfGxJ2IlpkAnS2y7vBYEa7OPXkdTExgyX+uS2 p27WYUIO7DK+zQxGTJFl7ms/sMHu6+H0Hsww+5P9Y86JRhwRGClS7M0M85xy fJn3GzHbjdETAv7MMPrWMPjPTiNmPOTn1pdIyUdv1+JN3Yy38+rGrBqY4UYN 1ZLSVgtWFVlw5WhlBq6PaXwMIq3YO1SA6lsXM8jSOx2uP9mK129dF5YYYYZ3 7VOr9V6teEmW5dLYGjN0vfza+HahFU/l69Y67GMB9nBPkfPdbXi/hKeRwCEW KP2icV/ubxu2jySO1h9lgQpNpuhR9nY85rqwc1CVBb4+3s6MO9OOh+SilGYM WWACivbp5LfjzsKubBdfFuhOohNn8u7A3Pt2FCX8WYBbAvULRHVgw5dSNW3B LKBqqs09ntOBWzw8R+ResYDmutqbnJ4O3KC4W3DlLQvcjF3Q6pPrxLjEIvhe PwuIS1J38fd24jmVvZ3pIyzA+FdehX+uE4uW/xFunmSB0LDGkCLqLvywwvvd nmUW2HKdrGqV7sJqDbFtP1hZIW62ZPvS3S7srGMjuEpghfsifIZKAV04uXn/ VfHdrCCbp7k/P64L77QXLd/ZxwrPj/wQsfvShcv7O/lF1VhBv80NF5O78Ixl oo22JiuUbuglKzGSsPDw1Ry3c6wgxXc9UouPhH3Gl1TqjFkhxIn2IdsxEs6z L326aMEKRjpXLKpOkfDA1ONGoaus8MHhvQDtORJWneW0crnNCj/iO5clrpCw 0+2ezHgPVjAw8Sdv3SThxEXifPV9VqCLG3ptdZeEt1ZkH+8OYIWYFSX8IZCE ZbxWv58OYwWNT9xcqVEkbLFRTnCOZoWC0+c7CQkk/GVHJ6MyhRWC+J563XtD wtO+PLMzmaxQ9M9SzekDCQvSDCjwv2UF7V3n0GAxCZ97lv5QvYAVMm4V3vpR TsLeDDfrbn5mBZlXzGUKVST8JlCOMwazglbrZ2GhehLuY9kw/VbDChY3jzzx biRh5rCK1OkfrNBZ2jNk2ErCKpyB0zztrMDLJbkvvYOEb0Tpy6MeVnjw7f5/ N0gkHM8j4HN9iBV8hPSVs3pIuCHmZ/WLcVa4c4dt2rSPhDcEsti+TrNCk4iE 3sN+EpZOcDaeWmCFmevrZnwDJGwuokgkrLGCYi7VthgFBxG3J1W3KfWOZ0nH U+I/S9QcdaBhg1ljs66nlHxT6SH3IpnYYI+933w/pZ6AlFHlFw42EC98eTOV wkc7W4jlFy8baL3YONlB4eslPXaRU5gNqI3FL7pQ9GTnvUlU2cMGBbp30j0p entk3SbsDrBBdctVsak6Emb8cEI2XJYN4g5ZfP5WScLK8rs8Px9ng4TChqtU FD8dP9XjMRU2kCkX5sosIuFYpQhGdnU2KHqFC/Lfk3D9ZxMD5f8o8THiamLZ JLx+Uize9gIbaLO+TVsgkvCBr79GQy6ygdj59g7JVyRsCu8OFZuxwZPX21XF oSRcrHmqnMWeDZJXhXK3vUjYP/jZ2d1ObCDcp1Y8douEjdqbuqTc2GBIpkNR xpaEF6yt5tQfssG3wL4Xw9ok/DUz01vPjw2y6wnu506ScOjsHL1lEBtYD2t9 Jxym+H//kZhXDBv00BweKmWn8Kuoy32WyAZ2mhnJsTtduI6RU/lFGhucr0vt bZ3twnYxKfrv3rFBw/bnSp0Gynn7UPF4vJYN7nIe8Da+34Wd1pnYlxrZ4LdW /P6Za134JDKM/9fOBt1RWcadel24p3H0o+BPNvjSKXIqVqILE6ZoxvXX2OD+ mLpme1knHpbVcbHaZoPP2Zf4h1M78XuP6K2bNOwQYbzbXdm/E+vQ7ON9zsEO r7pU6qt1OrG/qJZW+X52WDr9ftfRtg5sdC2sveEwOwwcZZG/m9+BJfNIVj3y 7HC/99DyTlgH/nbCwfMvYgf7ujMHO8924A2jgOyDpuwwuJ7h6VrUjusTWo8r WbGDWeY8yg9vx69GBSo07dghaZSbeNCxHR93yem1dmEHeVf3ffV87dg5uIE5 JoAd/vtucjP2RhtWbSe8Sg9jh6OtSjQRp9owy+7Lkh+i2YHqBP2JUo42nJ35 52RjCjvsxK0/TvvQikcrWG9Rf2YHp/X10xe6W7Dxum6L828K/hBecfJ2IxYc DLjKM88O0Wts11ypG/FQReXa52V2iBXimNwX/QNfC1YUp6PigJSCEDa6ggZ8 R1TUNYGPAywkBF46D9XjF5qzhPrTHDAz+pzbb7oaGx/cn3XrLAeU3Xh9e8Ku GguyXznJrccBfm84a3MHq3Bad+dVK3MOyGCsmrJpqMQfb5QVLrtwgNEplSIU 8Q23RgQbSyRzQOs8z+x3yvyN9qiZrk3nAN/vv8OzTIuwqfm/h045HPCtbt5K iPcT/inpnlVcyAHryXfCS55+xHNF5usXfnAAlYOe0qDzG8w2eDDee52yHim8 07J+hF/zjM9dP8gJ69HsovwyxYgqQj/mngwnlOdUcgvulCBzlvJTgUc4weMY yed1RynlfhMTkq3ACQe5ZKr2BH5F9+b/k55U5wRGyac3D7JXoQsNudfszDnB TvC5g/xMA1p55D5gFcwJPxx1J6M6utCZP9QNF2c5gfMSWwH77BiKV3D0OLLA CRXft05Iyo2jhUdN4ix/OSFg35kcdc9xFM8T61m5zgknfp3ifrVrAs2dOrzv GC0XDPRZdD3i+4ViI0x82YW4IHXXF779MIWmFfIUv2tzwUjN+Q9lgTMI+XKN ZpznguK5kAMhTTMouuFuqK8uF/SlcAmpcs0iZK0+rmTEBd4rGprKsbMoOoAU mWnNBd/etjs8yJhDp/qpZp/e5QKra4w+IeYLKML3UrpaBhdYJx7OrzReQscP 319gyeICbTlH2e47S6i3N+VUbw4XeFWupNZHLaE98jPd7u+5IL318TpqXkKF E09Yc0q5wDD5td7t039Rz7l8D+42LmBuucyoLbWMfNa6Koc7uGBprit3VH0Z SWRscrwjccFbuqdP9C2X0Y1trTfaA1yQxTdnmv5iGW29Hxx6MMkF7d/0Ynh2 lpEYL4v21DZFH93jT4nfV1B1xdGXn6gIMOWlYiExuoIcnY1Hn9AQQPsn/Z3b Gysovy7VR4SJAIbP9P2vSa8iDW/lD4Y8BHh4dF4i+/kqsv95TbBcmgA0HXGv dhTXEHNIsEPQYcp62yixtvNr6L3yh0KTowTwG3lgfNVmDa1HbukuKRBg7t1r m+qANRSk+eLpfnUC5D7ybXcgraF3Od9mIk0IUFyfFpZrt47O/1TgTzQnwBdX F8UXd9fRFE+ueqYlARTlW1MkA9bRHt+XMaVXCXAvYJx48s06ijG+AWO3CWCr UnRPbnodyYf8vDHrRgCLazccz5HXUWuF0cs1DwK8Kp0domUkI+bDaJrFhwCF TlRaVnvJ6BENT/TxAAJUv82VDTUlI+ETgV/VggmwPiUblm5HRqXOO1PaYQRA Nl9VjF3IaLl36pRlNAGqglMsQ/3JKJLDytHhFQE8/TTOcEaSkeyZjijXeALw aYRbyCSQkWN++eSzFIpfL+u2ZN6REd0vOUJEOgEqnanXOIrJKE0oWzU+k+J3 jD9NICYjZCDikJFDgOm3m+av6showD8q8l0eAb6bMCmqtJDRvTKGspL3BNir aNLkQiIjviWfX5UfCXD8T4iZyiAZ6Vs6nOwuIYC5ra78099kNBs1cG3kCwFG HA8uUc2TUVC9QcSfrwSgbgkKYF8mo/07taUrFQQgKwoeyV0no2p51Yl/1QTY 0HgkStoioyvXP3Aw1xNA6+WV8DCqDbSTLKXC84MArK2OpR00GyihM8FOtJkA AS9VezLoN5AyM1f4gTYCbD73k9jFtIG6kP9nuU4CRJ6dap5k3kBuHptjqt0E CPbh2G3KuoE4cl3Y/+sjgFRVqrIB2wbKG55QNhgkQBTWsm+n4LN8l69eHqbU 48ns66PgX+dbQ6+NEaDV1qH5OgX7PT5TcvsXAXh05bwfUvJJFJeO3vtNAHav d3wCLBvo68wRNr8ZAmw9eTqgQOFjsee1Utg8AQS4zGi7KXzJJoK2sUsEiK8m 1W5Q9MSEhoekrRCgBGVYpFD0ylfRFuetEyBv7/WdWoofrev3Roo2CfCOt2n8 FsWvW7LzLBU7BPhX6Kkd/Zeyv+zsFH/s4obmDE7bE3NklBXXa9NFyw2Xn6Mb FlNkpNmiG/yTgRsGdnLjtkbIaIS2+tNvZm4IeLt9YHc/GT1UOTH8l40bUhQG 9D90kJGQyzvmHU5uMDwxf7b6BxmVvJZUYOThhhHzIR2DKjJa4mQPEhbkBiff eUNSPqW/vD4lS8Lc8FGq5aNPFhntEZz+VS/GDY4sWV9zk8jIQLL2tMc+biDN nDRMDSCjqf3H3c4f4IYp/rWX9g/IyFcmLUXiEDfwDWVuf3Alo3yFh9tNR7nB O3Y4v4dyPrRVZg5lyHMD1xfHko/nyWhYzdzcW5Eb3LpGLnOqkRGHtmKxlCo3 XNRNn7soQUbO5nMuj/7jBs3es8HTI+uI3tqCeOkcN3CehtKW1nWUfLWh6dAF Sj4rcQ95vI6anDKlewy5AWjj6e/EryOZR1bjR6244US82XDduXVU/bSRwHCF gvn8isIV1pFFgIr64FVuKN+KYGwTW0fBkXzJgde5QcxeN7Z8aQ1NpzebjN7h hn45tXcyUWvoSbaqf4knNywG2+a+81pDgm/fFIZ5c8Mqoy3Pa6s1dLbIn+uk Lzdc+zGXOnNgDWXXq/14EcwNGRv7/nYWrSJoyiNfD+OG6k2mV1Oxq6inTfAA RHLD0b6KmJveq4ihf9VvJoYbQoJzJMpPUt6Xs+/UzqRxA9tZ9NaneAXtLArf EnrNDQfLsz3J0SsoZjUoYTGLG2brhkKHXVdQzT/79aS33MCzk8f75+AK2ksQ +7hawg1RHiV9P6OW0Yhi+L7sFm7A3fhe6X9/kVu1zrEv7dzA2m4u08X/F1Eb Mp9q7uKG7uUozuOTlHlz65nRcj831C8MHP/ydAnZpd9/ClPc0OY0adlTsIh+ cTiO9FDxQNH1Jw/kf86ju0n7Zv/Q8EDoVW3xYw7ziP7Q2PoOPQ9U2VDTvZmd Q/u1rDj3sfHAS1XTZtnVWeToY4Rcd/NAilXhqtPqH/RnCpKY5HjA+6aHHtWX SeRzdydbWIEHGPukh2JkJxErbVnhEWUeGM75E3M49ReSEVNqvKTGA0jz5Tef pxPI+dLhzdRzPBD034egoFNjaKFit5nKVR7gNsoyNhAZRCvxSzw3o3lA1fNP qqFPFeoMcqm8/YrC36K7P5ivAhV6z92+E88DDxGe67pSju6YTzc8SOGBvIxn h441FaCl3aO+EXk8YPO9VN9F2x7Nx7bNfKrmgTdSVqmRgZW4OUAvvrSOB46q rTw5NVSN33k1/YcbeODPe7JX49E67Gz6Pa2+lQcusDX95G35gWf4K0z7B3jA w+SVpPvddvw7Jr+aaoUHIls+em1r9+N6f1k3unUegJjQLLbLAzj7bp4Y8yYP 1E+k93PfHMSOxtne3Lt4YcdI063K7yf+xZtyVIqNF0S9dWPvN4/gsejwxPP7 eIGLuN7lmTOBK/3Yzukf4AXqh9HjvqK/cNqd4DWjQ7ygEq4vzxD1C9saPTe0 OsYL9mOB4k53JvEw9yNG11O80Bn1et+Xfb/xYJTznZhLFMyVrhQqP4NLDCb2 OZjyQnkRjdgP/xkcxWnRrXSZF7TY+ZLP98xgrbCzKr02vLBkZjK84TGL8wP3 Ugk78cIA9eNh64Q5HKSd8GHGmRduDaQv/Ps5h+0YCFfLXXnhmevzqPd75vHu Z/9qrDx5YcgwlnFv2jx+4tsXnPqEF/Trg6JNNBewBTI45faMFz65nYgLsVrA ijt1cxoBvKD7r2XsvecC/nP/k8F4KC+oPVYOLMxcwLUqMjSfInghz0TnaXjZ Ak4hpxU+e8ELT9p/7NJpW8BGnhH8++N4wdMzssFibQHLKjJ8X0vghdInuwvf MC5ixpUH3vXJvBC1HGHTJLCIRwuWD8Wl8kJYeSyxYv8iLne7OXg9gxdUm9vA T2ERxx4bDVPJ4gUp/kFugsYidlswBZY3vNAXcHnK4cIi1nnfstifxwv93HOh T0wWsZSzVnree16ozlbotLJZxFSHy40efOSFPcodQWSHRdz3R55e9xOF30eH x3rOi7jwzZti0RJeMGeMfm7pvojDr0tcny/lBSNpspO45yK+cSBW8Fs5L8wz Ku96eW8Ra06yN0Z844XP0YvcJd6LWDTz2YMrVbyg8bX2jj8Fr9ttycrV8gLv XdO/W16LuF3SfZj6Oy9U5f1nLXB3EeeN/o7s+MELHYYKAV2ui9g/1eZ0RjMv dJtWnjrmtIiv2HQv32njBeP34XoHri1iVTHdzDOdlH5rqYUWWyxivqFqE75u XqDivF3bb7iIFxJPMk328oL2ZmVD5H+LuOHyx9LiAV44Q+67TlJZxBmCB50C fvLC4w0T90yZRfywlyhiNsoLgfN9RTvCi9g0lq/l4AQvjNfT0g6wLGJ5k1Df jUlekPS8K32SvIDZ+WjlfkzzQs90K1lgYgFPdXqPJczyQjjPJ3W3lgWcaOio deovLxzRSb4XRFzAd7l+rrGt8oLcyQnG088WsEHrpZyhdV6wSDuhd+P6AqbX Pc3qu8ML0QlhaF1mAQ+zlpbr7+KDj+xtAaasC7j0x9HbErR84OJ1Nlyhcx7f PivaXsnEB8DF8N1FfR5rRI7btLLygeMBHinjmTnM0/tmfpCDD3wmHOj0Xszh UkclNjIvHwQoRFaYd83i0PztBPrdfDBVWm5m6TKLbdarpHmE+aCkYWjakGEW 0wfoax/Zwwf6znnOqwdmcG8LX7fqPkr+5ffC0QV/cB7/4LVzB/jA7/clFVqV P9gw6/rTa7J8kEindPKkyjROqn3yNUGFD2LPcESJM0xhF/azF3JOUeL9Jjdv 3Z7EGsYcA0XAB4xb5ZU6Hb/w1EQCuU2LDwS8uIeSQifwcbpPxxkv8kHPL4mg Nz9GMcOF+1W8xnyQf+CtIJFjFPdFqxtKmvEBrVPUypjuCPbd23xbzZqyvuQY tc/Dn/jH6ck3d27ywbfTby8TG3twcvDbE0+cKXptfhFrGLqxS4d7fbgrxT+e 4IvMJ7ow31WqX288+WCBxn317YM2bPtkt8TIU8p6gUf6h4WqsELDz/dz/pR4 C+uX6T/LMSMhU20rkIIPXPhoaf0Jv0uVs+CP4AMq6bleRqZwTP52/tWFRMpz V/X8xJBvqJGRIHWZSMln2htbeaUGJev3FDqm8VG+j78oFeo0IM1hu/an2ZT6 lp1WanLtKOLfA7bSQgr+E7YW2zKA9qvlP5Vq4gNOJW7N6/zTaNnoNh9VKx8M v/nv5WjIH1R5Uzant50PTEm61iEMs8gqLq85pIcSLxM/fYZ+AUUvZ+/+O8YH 6682asjSfxFVbup7vEHxF7NICKySUXOFjUbcNsUf5qawiX7K/blHrMuNih9m yj7t963eRIr0yRv76PnBqC+PTzp5GzldiT8TwsUPzVqPakifqaCH/0W/6QF+ qD7VMHuoixYyZQ2d5Q7xg3aD7AMNazpwP8O1i1WWH+Q4/Xf3TdMBu3u4FJbn B6ugcb4X9Ayg2Rzsug/xw8Lj/zzM9Zngg58fw9Ilfshv7f7vgyw7BC16yAc/ 5Ycq6PvKFMkDWTdWHIz9+eHgR3m34VkeqB67kygRyA+dBhvRgecpc6vLna4k jB98yblaxpRz4lrq2j0exw9C628OzVP+N316675aPj/Y73X0a6oUBI+tmfdM Bfwwd+vuuwOHhSj3Gqfxzk/8EHb5GraNFYIfDjcv3PzCD3ZUlQV3XYVBTee6 WGwtP1x45FssLysK+3ivVS0O8IPnlQ9mpr/FQSNsfK3sJz9UprybyN0nAVYM djIBo/wwPdMl7mErAbFk25eiU/ywIRgpf2NQAliHbBzO/+UH7061gt89e2Ap 04LlNZMAUCvVGYf92gvflI0umioKwCHqHM7b5geBpCJ5zeaEAMieNTfvzD0I f1SX7jqqCgD8lhMt3T4IfOoR8V4aAvDIYayDJl0anM42jsTqCkBG+a7j9/4e An5zTZdeewGYH1R8q5ArC873j4eavxKAo2+bzPYoy4HwV546i3VKfb0A7fhI ZZAJHxg4uikA4ZfK9kdWKYOqTcYS7Y4AKJuYXsxZUQYL6uOib2l2g+zJ4lOq 5icgSeuixzb7bqjhjBMf26sCoi2Rksn7dgPv+WOH/uCTID7M7vvTcDekVpI+ RTMjkKRmOmH7djcsrNKZTc1rgJ7fz51kV0F4F/7Tqi7yHEjV/K4cOCAENTrB i0Lv9cFLv/Ry7iEhMH7deTvziz786A9avicrBE9uWNMdrNcHl6VDUvzHhWBK MUmSb0Qfvog5BxogITj21WM6lGAA+t5LerWXhGC6+F74iLsB3D+yOfD+iRA8 Ha19HXDEEJpLf3g8fCYEp2nzGOdUDEFcK5H9QoAQsHkszWprGUKtxSmYDhUC aWCYHbIwBM6gR+l744TgoS3r/cBAQ8gcp7kR914IGJjsqmuHDaE1jnXtyYAQ zDho3DfwvwhC72Ruhf0Ugi+jap28kRfBvlJnLG5UCHjG6r43JFyE7emQlvwp IXjxg0uC/sNFkFZlyx5aFoKmpGfJuO8i+A2xmamwCcP62z66g4eMQFmS48vi KWFoZ7LLXcZG8FTpyLFtEIbZ74Zm5fVG0HxeL4tRUxjmqh0G77YZwbU74S/E zglDgK9rVtmoEUTVcDhdMBYGlZR/O9G0lyg8OUVynIVBlHsswf/MJUjJ43pk QxSGAcPc4IGyS/ArXJqslCYM48cnPB2qLoGM+2l3jtfCcPNP7+Sv75eg5ISH w9c3wsDM7edfRboErbU9esJFwuC23rh/Zf4S/Bsmivc0CsMD76/qZ8SNQbO6 JP59izAMNoXcEZUyhqCsNp7n7cKgMG1MnjlkDHzONEyKPcLwq9RZ5oaSMchu 2i++GBMGMcfk1F8XjMGKV7ZSb0MY7uoHc/z1MoaMdS3V/dvCUGWx7bT/oTFM 91sX7fwThodSedMGT43hblrkm7d0ImB9RN87MNQYQo+sRLFwiUBiZfpFv1Rj KDtbdrVuvwi8v0CvWFhnDEIPz9GhSyLA9kdy1ZjNBMynP1pcNBUBnyfmvJjL BGKNhQodLosAp0rHYxE+E+A9MmMbcUUEHjke9CsXNQGO4dBvI7dEQMa8nBx8 xARoNNru+/mLwFHdAzSueiag8e5ER2ygCNyh5cw6c9EEfAXTpN+GiICkcUEy l4kJbC+59XZFiYC/9I+GcCsTWEvnUdpPFAHCkegRqVsm8IfOdOl7sQi02B21 aw4wAWm3b2eHSkVgZtZmWSzEBByHDqQulYvAu9DaoevhJjBRRNYTqhaBzdst NJMvTeCnQ8Jbp1YRsDCRMQ9IM4GO70OOHL9F4JNzcZRHqQl8Cb3200hQFD7k KjPemjABbYuwHnMRUQiU1RQcmjQBknRxm424KPwcmKs9O20CS3WM1U5SonAX VGS55il8qPOy/eREwafSaPLKOsWvu0uuhedEgTN3JVaA2RQ8rB/R8twXhZnu 5oz/pE2BWjZ7e/dDUVBfIopKy5hCxFbrqthjUXh3uVOSSdYU8uL2/D70XBTU Uh6xlx8zhfGOmqbTL0TBITyYf0fZFAy1WV+554oC67+u0CUtUzhyLO5gR78o SM8KF3FdMYWS5lKp10OiUCJeVxZgawrgNCDpOSIKfdLMrjtXTUE/S0xUaFIU ZB5V8vyyNwU3kUzC1SVR8NZtz8lyMoUipoLNJUYxeF8qxvXP0xTURhubCIpi YHdlk8kkzBRqH801jCuLgWvqv8Nl4aagJ8JZX3RSDL7H90VJRJqCjenFSnN1 Mcj38DGYfWEKT5p7i9J0xODD0hmaoDjK+tJfRLmrYvBQNRWNZZiC7gsqN8MI MTiZRW1wq8wUWj676lx5IQY2jmlT3F8pfIdHpVxixGDIqyurDFP0H67pD00U A/PHSoM8VaZgXBd45nu2GBRSf54Y+W4K1puE3VAhBulm4j5b3aYwLOH3V7da DBJ08nmaek3BVnulybJODNrv9Hel9JuC3cvuJ/ebxOCe1RmC4U9TcDySOFPU KwYc1xUUBn+ZgsvVfd8OL4nB8uzysYxVU1gMjIlXXREDNde//e/WKf7lM3ic X6fo5Xj5vnzDFO5s/z54fUcMAl7R8EztmELZ+e6zhnTiYP768gtXBjP4NpFQ EMpFmaM69t7XdpvB9937ntNKi0OGhbmluroZ+POYr7oeEocXmc4hlafNQJMj /NpPGXHgOeYudFaLsp6WfLr0iDhw1sSE2p83g5L5RioXBXH4zqtzdPySGWTV 3PHuB3Hwroj4uXLTDOy+5fzW1hCHGI0Lsh3OZrDny5Bp0WlxsCSLvytyNYPk fG2lSC1xEK0x8YjwNIOYBOFlLR1xuE7NEBHx1IzyXVl966OJOGjfD7VvTjQD DSfygJiZOPzxuzLJk2IGVA6yOqHm4qDz2f2GbboZ+FjESjtaikOAdWIu4Y0Z 3PnPaVLkqjg0NFMHfC82g6siPFcCncXhNfHM7sROM1D/ftXI5pk4SGu+Ez3K Yw5SK17Rtf7isH/kRYW5gDmwSoR1ygSIQz1r+sdQYXPo8SoxIgeJQ0n143zW febgfIDtUlSEOCxkC95xUTSH+OdFl6oTxKGqJXCk19wcls4wmRz4KA5eO73B QW8o611FX4UViAMXTXkr6b05lCfJdy8XikOB6uSszCdzCFixNKkoFodZmkuj q9gcRF9/NDEvF4e6jtusNCRzOEdrYRpSLw7U9G4yDLSXIb3yndnCkDhICu9r 53G8DLQFNxk9hsVBU5H4RPP2ZbBPP1BMHhGHvUbj8Y/vXgZpvzQemglx+MdY qr732WX4eCamhfePOLwx3RJnS78M3+ofnDm5Jg61CXt/e49chsFmnWP+HBJw kkuz9Ph1C1DDTMPMXBLQMJI7eMTNAlLe14aFEyQgaJ+cjcp9C7CLgJlYXglw vuNX8SDUAmYMjmflCkmA/rGct/ijBWx0Com07ZcAB/mT86eoLIG/f5pRGCTg 8OeKY1FZlrAql/HZX10CNLyq7vV9sARSkOWNRQ0JCGn07z1WZgnRKq0/as9I wFa2Czd7myVwxn8Kcz0vAe3WmaQHm5bAbObLU2csAdHKp7+fuWgFWyRecbdb ElAoG9bZym4N/bItrQPOErA9+6SbR8gaSv0DHv/nIgFHJ2SCr++3Bi/FzVFh dwl4Pf9V6QxYw8rL4dd1XhKgl57PUudmDXNGuYdE/CTAad296V+fNYy0g1J9 vAQYkEdj9CxsIPHAeT7LRIo+wzcFNnY2YPrw0spikgQofzZWfOBkA60HbxQI pUpA/OuZiB4fG/jq++LI7SwJaMyfe7E72QbiZX/t5yuUgEwds9jGURu4GBQs YNckAWKeih3HPa4A+/DLtfVmCr/HthNVD69Ag0IKKbRVAja1xu5ZB1wBjZHC 6OIOCchbc7lQlnAFjioPcbL0ScDT7ORXbFVXgPXXUaaPvySgi8bgER+PLdSf PDmlNSUBkn43R1xFbeFp5Jm6/t8S8O0lwajvgC1sqJo/o5uVgCzb6LD2U7Yw 9eLpLrO/EnDfXNvgiqMtZPwOHZ5dloBZ4ZyjUu62YI1i8ZNVCfh7+aPD+gNb IE3nPcgjS4DPGR2qmhe2EAXFFuqbEtA2ne6Ok21BN6biJGlLAq5Sy9nW5dgC 88wPwZs7EpDI1Nc5UGgLNeok8r9/EjD84FHnP2wL/wOfDbwY "]]}, Annotation[#, "Charting`Private`Tag$26580#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Epilog -> { RGBColor[1, 0, 0], PointSize[0.02], PointBox[{{0, 0}, {1, 0}, {2, 0}, {3, 0}, {4, 0}, {5, 1}, {6, 10}, {7, 80}, {8, 100}, {9, 150}}]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 9}, {-1.0924607066202, 149.99998806122514`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}],FormBox[ FormBox[ TemplateBox[{"\"Akima\"", "\"Hermite\"", "\"Spline\""}, "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]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), 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[{"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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.754832964367042*^9, 3.754832984007329*^9}}, CellLabel->"Out[92]=", CellID->1279459646] }, Open ]], Cell["Examine the region between 4 and 6:", "Text", CellChangeTimes->{{3.754833015007825*^9, 3.7548330405913763`*^9}}, CellID->1124512911], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"afun", "[", "x", "]"}], ",", RowBox[{"ifun", "[", "x", "]"}], ",", RowBox[{"sfun", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", "data", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]], "Input", CellChangeTimes->{{3.7548330519146967`*^9, 3.7548330554556837`*^9}}, CellLabel->"In[93]:=", CellID->1258625530], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd1Ak0ldsXAHAZyuxOXBHh9kqSlJSKu3emJMmUykyFkEyVMUIyRFLJEzJk aPpTCdVTpihPJUMvKhleqHCv+SXlf27fWt8667f23mf8zqfsdszqMD8fH98j 8vJaOZ1q0lCQ7/fzTbct6ser3N/2YwrnFLMTX2y5un0Rzyg+dLWJrU8L9uj/ 7Q8CZsnd7Dm7Cq0Yfp7lwiBjiH2vYGqBJcDzS+3UoxNsr5ENLQ2/rRdveXaO raLtn3FYkOeyI/Hi/NAVUXposRDPHzP1LiyB1MZRzWKecXgw540EmEip/9yx mDg3wbfWnQZ8+71eDPOsZLHYRV8GqnJLLicsIY7yjE4PkwO/L4OuasLEvYFq FrTloLrhD42/eW4VYekKqEBGfV6juChxzc4wl5hVYCHem3aH5147CYcENRDe q+hsLkasGez5uXotnBzMnD0vTpxxTlD3wAbQWNdVrylBLLx816YtG2HwJDP1 Dc+p76rdNDeBrcglVboUL+52TO/QVpC0apu6z3Mwv1Vfri40ZlJqbSjEFO+S /Ck2bFJPPpBOJR6WCy/nbgfpPXGJSxnEZufOPfTYAS1XGmwf8dxS1qTTbwKx vfwse2liHzvBDZ6mMOUf+ThLhje+xMr49N3QcSl4ZPlS4rh2fT22FZz7WFFV wzOjowBXW4PhyulYVzniRx43ZpbawP1Kf4UCeeJ4zaDj4raQ1u1lvlKReC7v 2Z/admDKuiHXxLPoZWFJc3vg9xka9FhOfO/bRTUfBwj4eTDyhhIx7fbefQ+d wFLJsUydxVvvkbw7f7sCxX0PTUuVuMdg33FND0hWoR7u4/naMY393z1A9FNb 5fnVvLh+z+lnniC039ZxRI14j1hYkYcXzO10LClcSyxvc16h/Sh8XuvNltWi YJQpS02oIADcvqpfaOT5c1R3mHIg9BaNDQRtJPmrEhzP5wVC9/KAhDfaJG6z TjupKAhaqSEdiTrEgV+zm+tPwKPpOK+fesR7P4yK7QqDzfdMqm+xST3dz0Rx IAzKfUUpdkBsL/ShMTwcSoeSH1Qgyd/dvKSrPAKud13i8zMg7vWamJOPgvPV +en9JsR1XUXdDdFw6MyTuiZrUl+0o1Xrdjz4Wq+O97IhftFqHi2aACHKl3ZL 7KUg/ri5IvxIAqRUH3lnZUvBGgE3Nf/ViVA5zRj7uJ94wfir/d0kEHX3Xjrl SOp37bkm2ZcCpcayfkqeZLxNlfOOn9LgESNGu564RqtFnLr0IjT0j84dPkJ8 rUmWaX0R3p2qP3PLi3dfQl7JP78I/JW+VzcdJeOnLtgKVVwCm1XPGs0CSD7b WNI4Lx3mlgQohIST/k+aFAyVZ8J1x5C7shEUzFW3rgmdzQTz+1FGVcS9KxzF 7LdehQKn80dnT1HQJcanm7/2Kpg9uF19/DTxCc8/Rt9kQbbbkGNAHKnfaFkh x38NsNohxzuVghaCAwuFL/PgbMCO5U7XiW0U483eFsHMtrYtYoUUpJQ1pScK FoO7kKNNFbHSbABtckMxGGcEJNCKKehXKa9gkFoMgk+yJxtvkPkzX0r3mJVA tMhU07pSCqbSPI2mXt6A8Nxcv0WPyHweGrJ2cG6D/6vvtddfk3jaQExX513I SeZKCv9H9mPRT4fbY1Wgym6Yb2FRsaX0ldH8xxooefvwwjNzKnbErv/ieP8Z eLdNtnafoKLP/abc7GvNkPRU9K5lPhVv7gkffK3RCmNS7ts+N1Mxf2v2/ZEl 7bDDZMDn9gQVc4yarMumO+GXvx50KtDQ868I3yjDLpj99f6xnDEN3VZ8WeEd 9AHMI/Z11frTUDf5fUfNr09wdWAqOyuLhhYR4ZY6DX2gduet+KUGGmaINV38 5DsATM/Ly0Y5NIzZF2huCZ/BOC7jrZssHdnayrU5nEFovxy8fqshHSVzXIyz ng6DbXKoltExOpZHyCedivwK8sM1n3yu0NHeKMv4JnME2Bv/VZ+po2NP1nrO nw2jUDCwa0XWNzquFdl4MNSIA3yijYnbRuhYbWwypbeLA06aON5NrKDWGcBn yQHZiI1Plo7RMfd7m3a0AwdSZBT2X+HSMcXlQW1wIAdCd44lpU2Tev/mg+vz OGBZmjoZv0DHg7U97i0/OPC/TlE7VT4Guf9eXhV8XBCfj61pIo5KdrqQKMCF RpOQ5MX8DOy9rjViIMIF3X7XVbGCDPS7IPV+jsEFVWkt+0gRBlIE01+ErOXC Qmhn3XE6Ay3c5Eyr3bigIt1eqsJgoLBi/c0Udy4YlrZmvSZG38E6dy8uJA78 fWK1DAOfP8+WWxPABRmzOrWPsqQ/87e+gtFc0FAoTTNUZOC7d4X93/O54PA0 3o2+moGtX4Ifjn/hQuSBuD01xEpJY2cyx7iQPxmje1SNgS6Fg1TTSS4Mr4qU aVrDQM/tzkeq57kQmHq8OVSDzH8hWGFaahwSXd029GsxMKPtTFvJ5nGoEtDl v8tmoEnrk/Wsc+PgWdrvagUMjP9aRDG+MA6y9gm1k8QWTyfe+qaPQ/C9t1Gb tjMw2D9Ori13HHRc/RceG5D8QeuYTw/GofJJ0XyjCVlvwiYRmb5xqAihzn6w IuPbp1tPbpuAcs7gN2EPBsrGZpuHCkyCmhS1rZLY77nSlyLRSbimsa3K3ZOB JW520d3USUg8ej624QiJh83dtVWaBOdvmxWifMj6/LQkCvQmQXQo3nzWn4H/ /Xd3NClkElx61O5+DifnJ66hmjszCRIvfU/UpTFw/+k4iT6haVAJ0l7je5Hk X3p2sVByGnTk5z8tvUTWrzg95MecBrcjCTv9L5P5qSr/kF89DRVC15cpZZDv Qzulvd5sGlzYXXUR2bzzfRZjd3kayksNpLaUkPPbP/pn4ZoZcEiTLSmtZpD/ ratzjc8sjD1aHPvwM9m/O5xVehJz8LHjDd8fVGnMlfzaHGD9E6Ss+lbd2SKN NKtMxfhDfLi5kjbj6SqNw/lpT5x28GO1hPLhuHPS+CrbKNI+URDPNAWeqimX xvQJS++b3YvxVkCBjkOvNC47kBkglS6C9NPMbIaIDHY4v/l2+IA4+p+8U8K3 XgaX2YypqOpL4Vpnpb3mDjJ44p+8kxxLKq65+c+tqlgZDNJsHTZfRMezg94F sWUyaPrPQObHCQZ2iarox76XQfaF96YSczLom7YsKVeAib9aNIwWzcmii9hU kOI6Jm78b1QtykAeLw9JiTzcx8Rtzu0TPdEKWHNrt+HZSCYKynclyrQtRxNX T6XKm0wsrHiQKL1FGemhTUUC7UykCs8IrjitgqYeyhmVxIpP/Zrn41Qw2iYs wbuDiQ39QyVvz6kgV2OdT3snE5PzOGXJGSr4aiB9fcE7JurauY0Jl6lg/G73 v/R7mFic83Tlxk8qOK8k1Hb6CxMtb5W1OLJZqCXpXK/9lYlhstvrDxiy0OtH VfkX4m9RnHZbUxZ2dfpcsRxhYujxZgMbWxZWJHY4KHOYKGZ6wsnBl4X+UwVD NVNMFI9PPZuXw8KSvp/vgqaZeD+KvaL0Ogt7X+1rVp1hIr/u1ffVN1lofkPs TuosEw3Vz2T2VLBQ3SkwwGWOiUkWsnZrX7Pw4K6XBxk/SH+Pt7w06GRhps6q vc+Ju3ZZ2du/Z6EI/f1mzZ9M1KElP08eYiHyaa/+l/iOS21xySgLg0dT5DJ+ MXH3Emp+wyQLS7uHxcwWmHiKdqay7zsLB5v0fy4Q/5WycnhhgYX/B44s8CM= "]]}, Annotation[#, "Charting`Private`Tag$26764#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3c8lW0YxxEJZR3O0bClUkKUWfedEJWISgkJlShREipJhazKriQiISt7 5NzIm1EkSeUce28imXmv/uL7udbvGs/zIGlz2eQsGwsLy29WFpZ/P9eplcIP fgy/Zr1RtaQ3ei/Ux/1j74TXLLUaJKBG/dleVuCJkLKnHw6QefN85btswFlr U8TLzMnPW5l2KzmAO64Gqec4kOj38R9WcwNX/FYVeuJJhI18A9YKAeeudhax DSD854wElTfzYzx/jWfXxBNid59eUWXKjzvYx8vqu1LIPOcVUY+b/Jhfixwy P5JNEi093orc4scNXtuiV5zNJodzvHULgSWuLZrHu2eTBKuHl/54QXx2wtbi F9nkUF5a6bU7/FhxeIum9Wg2eW7Tb3nFlx9brx+UdvfNIbjUItbxET/Oamp4 +Tozl/hd2S9ulQj1vNUCHzDzyYxmozrPK/B/363gM5ZPznFYHi0ENn71SduR pYDoRV95IPga4vPyH/HKFBB2+vOpDylQX8a/JdqhgPhwTVcpZPJjZxHWsNzp AnIzLs6ZtRjsciZ/Py4WkpELWwMzgPl1RhLLVxeRU8r5r06V8ONH/iQxaUMR 0fjwsSXvHdTncAneo1VE5oZndBwI2Aef8b/yLCJuqoZrv1byY+9dvw7oThcR l/q58sTPMJ/i1zMRLcXEKUXeSK8B+u+LeezZX0wc7p1h9gN3GCwVG00XEzuN mhm5Rn4ct64l5uOaEnI8KXrr2ybI5734fRUuIVpeqhGlP4EtU1aExZeQVduv 2Td3w/5MP47lnnhHOLhSfl/vgfhVY7nPbd8Rth6mz9pe0DdzeLOb0zuy8ETn uUUfP55oeTX/++47MsYh1Ng1APZzcf6KGe/I19ZszfFR6M8vWDJw+R2JDZ7g XTXLj8v6LnO8iigl1szXUgXAE6VcC0ovSonU1tO7zs1BvENJSWpyKUmqrrOs nAd9QmGep0tKSeaKN2neS3BPVoZTTe2lpMzj7IE5NgFcZlUy3y9DJz7VG6yS VwjgiVnBy/LydKJDa3IxYxfAOHWnuNVOOqnJ1X6SxyGAraW4+O7o0knjuPiA yyoBHLdeascnOzrpPttyf2iNAOavHsy8/IJOknIfP3nCC4yUM+yS6MR+hUG6 Ph/48y6c0Emnk5G4gqYkfgGs6L/j0ftiOplmhEvbUiB/lGdAWROd5MsdUhUU EsDGvhOTXAw6cfdYcbAcuMxpD313J50sUa9cEaeCvsWQM3ajdLLSxKicISKA WUq1fqSxE1Idt/JbwFqIl0tz1OcmJGC8dEB9nQDuUDLcUM9HCG/wNv7o9QJY osP4bdQ6QmjVXKePikH8xehMKQVCNu+pXPwkLYAbvv+W5T8K8UIi7e4yUK/V qHnnCUJGhhzLZTYKYOdB225dC0Kyoii+N2Whv7Cv0zJ2hKhN2vBt2yKAs2Lv crZdIeRpVf7kd2BsYF1wzI2QxefcTXfloJ/fW+4UeBBSdiA7mrEV5tX4HKt7 E6KfyCoVuB3qryy+oxJESKrnMXZVBcin8JayGELI6iMpfV3Aj45V30h/TEjD kvEbDSXoh+qcVhdJyI6mxOA+4EeX19hpPSEkPHX2cugO4H09n8OfEXLCLE5l SBn6/Wn2ki2OkGL5aWqkCug7yTpLe0nIBnb9ub07od6XpXZqIiEdWeOlT3YB b+bS/fKaEG2/fXG6qhD/QeZtUAqB90+UzySwxM+0YKU3hNhzo/0G6tBP23o3 1QxCajtCt/wGbgjhc4nOJGRbQR9PvAbsY8eD4q4sQkKCNcYOacL8tvAdoGYT MmEb0jAL7N24iaacQ4iJRld2ohb4B51cq55LSC7/rgjj3VCvUE5/cx4h1P4H 1xeBs3Ikn7HkE+Je2noyeQ/4t1VyVQC3hClpHUXQ35OngRcLCNFyuC/GguHe 924RYSkkJBb/ZEkDfqT2J+kmMAtNvttsL+yXGaDQBWwz6v3fCm3oN9ghRbGI kMr3Ta8zgb1TNqy2B5Z9ujng1D7wf7zJyB/Y3/nmRU4dqJco4PAYeEiv4XAO sOLeM0fvAh8SlVE6rQvzqIrhsALOmLpO4dGD+KgD1ySB+Ws//s4HNuabfFoH 9a/Eif+w2Q/9PqQ62QA3uV0t5tUHPW57+9qhn12GVTHFwN7Ss/O6wNHS62+f M4D+ZsoSwqH/+TmnM4IHYD5GUj8+wrwsGir20YFx8MuHwzBPehJV1uEgzIu3 unwK5i1xy2EV9RDkV1l7rgf24WNKHyoHlrDY4Fr6lpCeLYJ1lwyhXp9Ztxfs L7m56PF/h6GfF4/fF6cTEkXP7ztrBPmfVgsYpxHim5SjudIY+jmWndeQSoid W3qv3hHYt+267jC4J1OrVI1+YP6uZqvmV3Bfeq8f+plAvesVQuxwfxLUePVq U2CtBIok3Cvf3+ch9kfBP6r5MH8sIX97n3avOgZ6T+clD8F9M/PCgw2Ogz1o MsY6ipAnx/w7a09AfH7tB+Ng2M/u+7scT8L7ponsig6Ae9noE8hjDv3znAyp 9SPk+O8bOw+dAr2i0z/G7xAiGHH5QZ0l7E9Geb3WNUJYb11su2QF/dtncra4 wL3aXVDmPQ18pTrRxomQehXb1sPWMA95w2/K5+H90XRcqcEGOIbT6JsZIR7v TH2dbUGvQ8NylSk8L4nGDH47qJeyXe6VESF6rgfuHzkL9Zo2NYjtJ4RNaM/P xvOQf9fVON6dhEwuaGy/ag/3Mm5oeVQRns9u1buUC/A++ZBvcW8r7DNHSf6o A7BsJmeCJCGephvvfLsI8+aMN2xZTcgFTanma5dgPnymVi6c8D6QFt9KdYJ9 dQZ6/mKFe5oS+Xb8Mti1eIuzZ+jkV+jqLT9c/uV7Fy7XTieOjVMNLW6gL3U8 Z/INnUhsd03zvw7xIR3eoYl00vRg2m+XO9zbmoV5ked0snvv7z2hHpCPLfpr czCd8GXNpBncBC5rlxB2opOc4Dn/wjug7w71dvgW+F4Metid84F5nFRgC5Kg kw2680joLuzLUizJnkYn9xfnZy7fg/vmdZD/wk4nZo6Ldpv8QJ+wrI5VWylZ 0F/GkUEwr4S4XuugUpKVeHuDTjDo9Uk9mXSnlNixsMxOAjuLqdo0uJWSugKW TMOHcB+579c0WpeSF7JsohyhkO+IyM8A5VKyj51j7moUvB/2i4fXfn1HAgn3 2yMvQe8raVXd5RLyaZvK8tTLf88TWrM8WUJ4n1oaRiZAftUXXHE9JSTUNWuw JRH0tMeeiKopIdFbjkvZvYZ8Xxr9zENLSGJYfJhbGuRrej2yTbyEvDuv5vYs /9/7nMH8vLGY/G06U7m7APLxSSZbCxcTpB0o2FHw7/tmmvedvZhUbGjLkCmC eTZMuLt3F5HqL3f700sgn4Ju690XReSb5ucTZWUwv+YRRolgERnjO6fZWwv9 3VlN9+otIA3s207c+wj+Eg5X5RsLyNu5SVfpTzCvJfFHFfQC4tp9K+NMHeg1 yOp5EVVA5vIjJNs+w/OySXaPrD78fWf1H+f3JuiPeDWcSswn69JkmqrbQN/t eFtNgzyyGDc0cb4d7j/q3lLKjjzSGpG1hrMD9JbHbvq7Po/E3dbar9sJ+cXD BczGcslG06PF5d2gh0PPu/ZxLlGcvxtXPADx6m19b7/mkP363RfTfsE8zsfW mO7LJmNZ2/hPTsG8xlxYdmzKJuFr3XI4pkGf7Zp1E9zZpGto1bzVb8g/qv2V p/Et8Qre7icwC/lV1C6VWb0luY0e8W5LMI/TNSXUK1lEypK/Ga8SBPvg4ess 6eSvy270TVQQ4zOVWTwuiWTHiMIxNzFB3PFL6piQfCI5d07KkSYuiCWK5450 DiSQenPOqJMSgtj7DxatPp1Anu/7MtYqBfERwVerDrwkWsJnY/s2gT2kZdBb OI54FgYt/VEC+y6NpPn5SPLnL6NknZ4gZjm6zmVE/wKZGDlyouYfnzit3plg S4Zaqqav7wee9So+O32KMPNz5L/pA3dYqmhXqZAKp8AXDw8C/wr1uHvGDgW1 adxlPwL18mZ93tR5Iyn6kwNjp8BeYJSvHRyODt8y+1nuIoiNTU3W7DJ9jfp/ XdC5dEUQZ60/dCaW/hp529/MFLkK+nyXvEzkklGOafz9y64wnwdV5rFsKUhE blhJ9Dr0r1bs8CE/FXU2ewW43xTEzv9teXlOPgO5KiZpKvgJ4uTV3x9uT81G z7qnn8fECGK1N1Ej5/WKkVx68+rwSkHcMHRtyYTyH6LZR2wYHRfETKkVRqFz 9UjPN7rZRoSCZ2+4fZwtbUJfI9yVNHQoODe1sJ6yhYGOB3sq614GrlxaUhPt ROsHytovRlFwIf1T27PKHrRHpWfbTAUFP9n50PSh1CBabCyvjH5PwV1RWzyz lAdRkcsLC81KCk7rqyTfdQaRSqZ5kPd/FKzmF/5G7fwgkpP7MsxdTcEzXjli OmmDiCZBTxWvo+DYl3WaPqpDaIInerPBdwqW8rWMjjcZRhmp18qGgc14GKf8 7YaRo4HpiZAfFKxzlufUNbdh1OfL6//1JwUXN63jt3k6jFpZ7/dbMil48RC/ k2/XMKr945J0pZOCqxZ2VCxcHUEJ3QdlYoYpuElMW/DFs1HEwv0hQHOEgtmy DTkn00eRlSKebAHWLg0WNigbRSK3VOhrxyiY6rT6Dk/vKAqhip6ImqBg3udp b35uH0OeBmOBob8pWFOvZHXM+zH047L9L6UZCo4zuDJv1DyGdkZ2nfgCnPCw i5d7cAxNdDVv5J+l4BSqceYj3nF07iYhwfPQ71XOvv6T46jypbqs/AIF7xlX lKy7OI4ka3KCPgGfojQ/KLw9jpjCySd5lii4wne6L/7VOFLXkipLBda7LNb6 onAcRdrEyB74S8FPd2xkT/w4jqb9qcGDwIGinRYZbePoSOajKf9lCva9KTdA nxxHGd+4zTezCMH7ZJwutzCOVi/eK6sCxjrnZWkD4+iC1LLseVYhzH93qIbr 2zj6oO8RvJJNCDuvbM9kqxhHMpenpl4BP/JObWPNHEd3Ii6Z664QwmUJ2Rac MeNIq+vMpnvsQlgxg896o9s4erqKGSzNIYQ75hR+7bYdR3+2H5+uAM4qkB61 MB5H2TcOlLNyQn2TDaoZcuNos7DyqdtcEO/jUh/bPoaWPb9VXKOAngnqm5CC USQl/DVTSgj0SLw3KEkYRTqZDTGfga2nmJsnHo6igO6Pbluo4G/KUXPFfhRR D1XItYpAv4Rxjbl2FG0XzQzVEYP46ztf63uNIAvib0PZAvzSMKLUcBgVrtBi e7tHCEuwPmPvXjWI7DO7zpgg0L/mgnrg7AASOfWgfArYuzDSTmtgALlnN3vv 2iuEjVljC4uqBpDaGZflkn1CmEVYTUDSbwAV0JMWP+jDvPqumyZzDqB8D4E/ TBOwY0pYFV8/yh3vG151HvRpSOa/292L5PgEGguAs7It+dK396IX2zULz9nD fG9ZdqeI96KASw/vVV4AvTddRWtYe9HpYVVR74uQXzb2Q+yHHsTd73/4jwvo v9twJMOkB1m3yb3tvQnz4VS5+sS1GzUvHY0KvwX531vc23K+Gx0UvX1rnxf4 G+aKVZ3sRrssvhrE3wbeVcq/FXUjnpYbXRY+0K9jU3MkdzfK//aJ0uQH+ypa ZcyR2IXW1Dm5VYTCvgJ4xDw6O5GU686tTmGg9/h7OdbmTqS2frF9bTjYb9bs j6rtRDYXHhi4RED86LvG0ZxOlM+RuEEiGvJv3rha168TWe/5WXHrOcRzSq5O UOxEuZn7+NSTob/gGfVjIR2o5jh3ZQ8wromsz7jXgdqWGtwfpcD81M9dpd3o QFyHrLr6U8H+LWQN1b4DWQ2450WmA+cP29Zod6BVkhmnprNhHvrTCuIz7cgi VCQ5sxTqJyvLJ461ob8H/D8b0aF/G4Mm7Y42FLdidmYc2Jux7dLSlzbU6/pd V7EM8p3STf6Q14aczCK7sypAbxE1M9WrDXlvEBLProJ4ldXmlcJtSOrbXT2T ati3rKryZq42VBk8denXP6Z8qUtebEVcy43vdtRCfnmNGyw9rSi087F5zifQ F6wpxZPbil4l8UXmfgF/zU8L0Sdbkf7p26VHG6GeuATr58OtaIg23jMNbK15 L0pKpxVtf1CvvLMJ9J07+0ZKoRUVOgZ/yWsG/+zeFr+VrahWkWdNAQPqOWTm TBYz0cVBTxUzJuhdQu0rs5mI9+XQqT/AmM3HUSOFiUwptamqbWDPYWtZjGIi 5m9//cIOyPfd2HPCjYnGilfeK+qF+s6TUrEaTHS8f07pfB/wonM8lzIT0Smj 7UL98Pw00T4/2cpEwRe/ajoPgL2C13OzKBNtE4ubkh0GPROr2ljYmCj8QFh8 E3DZXrlXYQsMtOjma+QzAhz888XB3wz08fPFN62j4H9R+MrWQQZyuKNuGz4B 80m+cDKtkYEa07cJaE+CfkWbIIc6BtJoESfjwBJnjK4frmYgLuWV6w9OQT4h zQI/OgM5n56rngVm2Wcq31rEQD8CR9ySpiHeJez5iTwGSu5pbGSdgXoyJKM8 jYH4BT54ZwLjY5XOmckM5L67aLvlH8jfKnP5fSID7Y98EVA4C/kMttpaPWeg jIpQtXNzQjjux5BH7xMGoo7f76PMA1PV+cIiGahv/0Xtywswn6ncP2ceMdBh 19MTGxaB9yw63g1moPw4k9haYPyQI/5jAAOJ1ekecl+C+GLL1xr+DHR/Tm1+ 41/wj3z8sOE+A41s3Jb8FbhsTt4h+C4DHTURP35nGfQUkf0udxjonZcguwKL MLZO/ap28zYDybzhyGYClyXMGGbcYqCg77OnA1iBPfOiOG8y0PSKkTVqbODP 8VzW35OBLBTbS3qB8VoNHkUPBnpv0XghbAVw0Nrjy9cZSO7Bf7S97MLw/281 bcaNgULzCv8bA8Z9jdZCwPOdb67GcIDd48Ne82sMZMP7QvLASmHcUa7wscqV gWo1Qj//AS6LfLbGEnjH+fu3XnFCfF3k2nXAT8Pct5quAj2aGct/rzIQa5nj TxYuYRyX79TAA3b7ESu/DGAW4bMxGLhBxGSnBbcwltgm5vocWE1Xt5uLB+p9 kbWXgvpxLmqPC4AlmDwPPgOvit2Kzq4Wxt4S5v2JoPdyrdio4BrI7xob9hL6 a54ReFb2jzPOxla7M9AeaQ4DJ16IT9QSocF8koxmZ9bzgX65LIGQGwzEe3M4 sQbYW8TwmTzM1y25zeQ6P+jbF/ffby8Gam36wrJRAOK9d8X3ecP9CjpJVgFb c9HUGD4M9MGYW/uCIPgvXbCeusdAWZ+076ZTwL8QPwt5wECvuNsTjISgnsHb aoEgmI/+jcpJYO+WS6WFIQx0rzKHYxcV8gUn7rgSzkAebMayP4BZPHnq70Ux kBMe0fOkAc9HnSt5ykBm72T86SIQb7BQGR4P+8yN4N6/Hua1sy1zLouBxH8p bR0EZvlsly4Pz4eQYv3BwA3AGyspvvD8LL1ZGfxZFPyf9RknVsD8E67znZAA vf+lc0Q3M9B/nRTFeWDro6MVEwwGKhbPMo6RBP01hUedOhko4dnA4w4p4PlP W3+MwLzCTgpd2Ah6fFsl7DmYyPHLbxUeWZj/scsLAzxMZM0XeiwduEwZUx8K MpFBYG3k5Cbgt+7aByWYaMNdzbWecqDvg+rYvd1MJFD+XX3DVmCxvH1Kuky0 cvmqOR3YOkNGd4UhE417pj1jk4d6q3PviFgyUcUVUbFABein3tec6zYTFWQV 7ZFXBPucv3+PHxOljR07/fkf31es733ERBEOIXGUHaDvuEGzeQIT2dssS8Wo QPxIuAl/LRPxmXRuSlcHu+O297lirSiRto52SAP0DP4Ko29pRWqtJiuHga0H PtWPqrQiG/vKns1a4O/ulvfuYCvK9Xodn7gH+pMqTRG90YpOvrm0PmYf5P/E tv9PRysac07i1tQBfjqSajnWinx2tc/9/MeCzfuGFlpRWrnxD5oexPPY7nej wffuu3JEmD7wWZ9Zc+M2lMA+zxtoCP4DZettatqQWu2Ov1sOw/N3/1G50s82 9Omh42g1cNnUwfObB9vQzLrWjyuNYb9H9vYGcLUjfaUyfx8T8DfZxyt7qB2N WvqyeZqB//MQ+bIf7Ui1QHDG/gzk7zFQGfPrQKET9Y7CNsL40Zj3i51hHWhk S2BnObCzNtdEeGwHiotZUbfOThhn7XA78ywPvt8+0wmfzgnjBpEY++qeDvTj UPMRxYvCmF9kXCx1fyfy7HqS/sdNGCt+dOiqFO9CTeuPSydeh3wHrVJFtneh 7ccEnxi7gz7bPvP7Wl2oqyrgXooH+L/fEJlysgsdTL9x6tRN4M1LZmIRXWiD uyUXuQP6X9pKlPF3o9I1kmd9g6DePm9P0fU9KPGEr+GmYLB7DdJctvagoITh ndXAWchDl6HZg8zV81dyP4R9Flk5Tln0oBm7g8nBjyG/nc9T5bgepPDu2nB4 JNyPmbL+nFwvineodUmIg3vIdZmsOtKH/PMUzHXiId9shOm8XR9yZonQ7gUu Y3MV0XHvQ3siT1M2JUD++swe0Rd9qKV8Ojf1lTCe2HAeDY/2Icpa8dm3qbAf Mwb59bAf3a+66lWWC/kR/1JX7wDa4Wsx6pQH8/CYiRtZGkBtOroWovnC2Njd tVCQOojUKqgangX//Mtsc/UG0dC7ot/KxXCPu00iD6cMosPZyxdfE6jvq1He e3UIiTwPPBVSC/WuTjB/io2gN1cS1Cw6IP+6sJcZdeOoR3vnumVg52UmYR0e R2KUqoX4zn/2V0SVfQKF5gzR+7uEcfLM6O06yQnkPq2ke7VXGBeuv2X7xHIC 6bqVHQkYEsb2IZw5ed8nULtHq0PhNNxDvbeZSPMkotyhPRfiomKROy+/6ixO oZEfuoa5wAMFb8LYeKfRB0XXJVNuKj6hefhXnfg0cu9osAzjoeI4U63o4H3T qA0FiAnyUjELS01HVuA0Sv27+IKPAjzOsTNA7DfSvtn1kluUipPt11+KPTyD XK6nJ7MoQX6mmArrz1nEv+90e/o/XtiG1kzMogxeAeqpHVCPPqUtxzmHRl65 3s1TpuKGFVTdqJ1zyL5J08phFxV7n3+StDtsDlkr1VKaNIEPzV8jR+aR0XCf 12s9Kna2Xseay1hA8qcljh22oOIsE584PZlltDX1+5vCe1Q8lmYhk7JiBfbr c0y4l0XFiw9s9WSPcuKf3FLa9xhUXK9V4uelsBo7hW4IjFtBwyenr4RqJvFj a55pVzEFGr68Va1kXTkFR/TzcRWZ0XBnrJZs7TwVl70x1PG7TcPpx+3iJq+t w/pn7CUKUmlY4CZjJUeMGKZ4ViWt+ErDNmLb98w5SuID5yWjC4D3NG5O+3ZN EvscvfHAsYmGa36YFufdlsQT2xUufv1GwyEMvyLvMElc3x2plPCDhiNSfEy1 SySxv+G5d9ptNDww8dTNlUcKL0pwNN4ZpOFvNwS9ozOksDLv6fc7h2jYyMtG YKhQCjssFOYOAgdUHDiG3kvhn98uRh0ZoWEVXqU/09+lcH5Ak4XkOA0fSbic E8QqjV2mE/rLpmm49nBQiNMxaZzcufTD9TcNc24/F7JwWhre82a1m2doOEFv 9YEgB2l8OIUn/dEfGg6T5P5TeFsab7O6esV6noYlnftVUao0tj1YZyu0QMOi PHtkh3Kl8VO1TceqgZUY803RRBpzURiqiks0HC4yfY31mzTGLDu39AB/YDe7 UNIujd1HQ9ZF/6VhdplL4h5D0jizZYDn0DINv86ridb4LY37qrSXloHV55a/ LS9L4/8BJN6Z7g== "]]}, Annotation[#, "Charting`Private`Tag$26764#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nk8VN8bB3AVkgrdcWeQ7BUttjYh50lISKssqaSForKTSrJFVJSkopIl hZYvCclBi7XNliwVWbPNWGeG+J3fX17vl9ece8/nec5zrqLjmd3HZgsICJTN EhD4/18ZnbfkjwRMzMywNs/4GNQETn5+SCyhOr9+uZwVulKx8d7mWRJw8Pzf 0ZfKxxDfLndN8GwJcPbYryao4Y1+XHh+VFiI/F6yuf+ZcSiKf5f0cYGoBOiF 6ymletxC9I6wK9KSEiC70qfne2Uqkji+g1qjKgGBvOpsHa9cdDS0qLRsjwRM BsV5LH5XjvhzPZacPS8B//nlpR3WqUWXPbbKH0yRgJ9FyLHFogm5f+aVpHyR gMVWrUvlldvQ/atsMRGuBLS57rQdH+pAqgbvp6qVF8HcB+olxxi9KL0hP+aD 5SIodyscSmANIJeaka9NPovg1qVDZ04dZKNILPpy16NFENYTVDDbcBgNih/X 66xcBDfuvxaq6BlBW03/uGYOL4Ilmj47dY6NoWn3Tah+CQUy7Y+demvHkXa/ hpWPHAWYb3CzpXEcHT+u5MKSp8CSW/+0unUcfbabe9tWgQK53+y45O5xlLjl 22CrEgWKktZaqybHkT597H7XcgqM71W2pylOIP+8qH8TWhRox/h/X+c6gZ5p X2Tc0aYAtnHpd24TqD3TXU13DQVN9b/mbveeQGZJ+6zOr6Xg0dMf0/sCJpD0 FYUsgQ0UyI+Ozt0SPYHy9ufYz9OnwC/2Of9s9gSamG5+I2NCQY734VnWExOI 3b/LpoL4vcOPj18mJ9DfprJR360UDH4zPWEkwEUtudmr600p+Dt3gb7iPC4q PR354Lo5BRoLJZvSZbgo6qdusOAuCuK+ZM4M6HORUtEds8H9FAhUM1ZDABfJ Zop3J9hTYKV1fK1mEBfRd0ODzQ9QEK16/+viMC4S8XEvTD9Iwb5rhUWdV7lo YPU29SOHKThwKVnbKJGL8hK5ixqPU3DUJiFQ7Q0XWV6w/lHiTsEmRwtO6AgX dQ+fMDrlQdY7HRFQN85Fgc7nn0t5UvBfw6YQOT4XZe9JCj3jRfLODmOnCPCQ 1Io+rSW+FCifHJQ4t5CH2hoCrvidpyBT7/1Ns2U85KWZpqdxmYKJD1O5Tnt5 aGFaXloTsX/VRm1Fax5KW1y1KCycgpHht231tjz0Q5jd3RJBnv+Qrtc8xEMG rRtjr0RR8G2LzbfMEzwkcuVTf2cMBVH0D8M3F3jo3p/RxIQEChoN9OWVH/FQ 6ckX5/QTKdB81l0uk8JDPRwX2xZi0z8x88XSeGitwB9J2QcUdGRx93Y/4aFq 2W+R95JIPTWelh19yUPTVlln76aR/tJxexKBeUil1dla9zEFPVWJDN0SHjI7 qrKuidjEUWmys5SHbnvcY0s/oWBJmome5kce0rwe4XQng4KA0Vs7rlXzkGP5 Mav4F+T5AsrGZxp5KHyH4hqdlxTsDdv3quEHDz1raJFoJP5lvvHyxmYemuzY U83KpuB+itI2TisPxc4y3HL7FdnPhByt9oeHCsL/KWzIpeD2n+OOLh089Fs8 f7qBuGP1lTlPOnlotZxmATOP5Nvnp8vs4aGPunJacQUUDHnFmOX181B/yQ+x 9W8oUHpjKVw/wEPUtlv99cTPLzBEBgZ56JD1gnT6LQWClysaxDg8xPXky93C FOjQQW7SYzwkN/lqam0x6Yd0epXEOA8ZBbk31REPNrTIz57goZjonluSpRTw Kdkn37k8tCKrYUHsewqKPbmLtk3xEDOddt/8gYIr1hEfVvzjodnJe+sHict5 whXC06T+8TWJ28oomN4wnps1w0Pvby6aPUGskj2d4CfARy+u7TyeUk7qk6FY uWkWH4WHfFafqaCg/UsHO3c2H3ldXHgzs5KC1ubFXSfn8NEhf4sJ2yqyH+V7 0tKCfLTerRLnVJP9KD7UPirER537P+48+YWc10WCQzlz+ejrPqFXrK9kfyvf xuuK8FHhLiPpD8RR/6TPFBDHbi1tk6+hwOxyf3z6PD4KNJxl8onYQY7XzRTl I5dN8NS/loI3K7/bXSQ2XFPkUV9HQazTumSD+Xykrv6vIaieAiNvC69bxDJq +nqaDaTfXzs6dBELq5x70EoscX/LMa0FfMSRK5gT+Z2CY/EFgT7ELdI8J51G CmSZN1+8Ii6X1KnuJK4Nix8eJM4R99W8+YMCpl2ckdJCPnoomhsLTRSEz1in 7CCOEhrjDhAXdKWL+xL7Caw9cK+ZvM/FvSHxxEcnPUpMW0i9dJYJ5BDvGH+5 dJz4XVBvYAWxLocdkdxKwc/qE4I/iJf1awzu/ElBdphHeDsx1X169zRxjfwX 0S7i6bas3IxfFNTNNY/4Q/y3pV/G9jfp/2cvZzUTN3xfeVG4jYK2oM/u1cSl NSf/ZBNLjrl+f02c9enJ1sPtJH8vG81E4vjyngyxPxT8cLP3P08c8m65RCHx LVujbCtit6LjXic6yPr3mxtVie3zUxuZnRRkPRvoGSP5mOZ06L8n1ucbtxUS r32unOTeRcFN9nN8gVjhqaOQfDcF5rMmLukQz09NOlFNPHWva+kAqc/4g9+f zvZQYKBp9uQecftdee3lvRSkrR6YZ0RcEJ3Iv/SX5KkkbxdE6p8W2XJQo4+C dK6RsRRxTNjidy3EN8a/C/6/f5zP34ncMEDB1uWe3BzSX3t9G4c6iGEjpapN DB6svTcGSb21LJSfkP5kOd+SHRiioDq6yDNEmI+ivS6MXGOTenWGWI2Qfha5 dKxSk0OBlxOnzJ6Yf2edn9cwBWdSo63lSf+3VNXXTo6Secl7OeRIzo9V49un iWMUzE72VEkj5+tzR+olNE7ybgtq/kPOH/7nrRE8Qc5b7YEKS3I+H2kwI0X5 FOz0+eLezuehxfrThzOJ3+WVhfF4ZF6ZdulYTlKgy8sRn08ceji3K2aK9J+q oc8SMh+cb+4zlJ6h4Ks658jMMA+pT8TxlgsyYNCco5Hby0OP51z8WkG8Ilok y5PMLwUJp8cuQgzISj5yaWU3Dy1S22D1XJgBXf15qlfI/Bu1+/5i/TwG6I0/ QXN+kflYxHI2FmPA3n1jU+01PLSmasagmzjlhRTL+BsPZX7vpiPEGRCY8dkl 6QsPJbJfv6uWYIDOho9vTcm8DlSykd/LYEBVbNa3XR94yCQsvsFRigHrmzKX W+TyUIiw4FpKmgHTK2pOL8sh903YmZgSYoUG5088cn+gyyYWCosZoDJdURaZ xUM64aMlrUsYsKDnrLs9uY/UruzMslEm+8sPuvMsmuQhWigqosIA2cBxY+lr 5D68stz5NbFKpl3n+UgeUoqcVmIuI/8frx1RD+MhmajM+FpVBgSkpIsbnOOh BddEQizVSR4Cn7YIHyX3k5hX2z/i870XF844kPvm2i+DLA0GtG1+lMo+wENC 13N587VInoK0ThG5f6evHz1TsYYBlku/pc425yF2TLGd0UYGJDvHpapr8lDt LT8tXSMGPHzcu2nOGBf9lxh4oIt4o39vqzKHi6JTwyNuGDNgXpCP6aYBLrJ4 Fd/214QB3XDLy66Ti97X5cXc28aAqR63/k31XJTD4HGmLBkws33K53E2F8XG nP0P2zJgTplB09hJLvK4c+mnix15/xpuwsrjXLQzKUJUaj8DdKNVO20Pc9GC l3cc3ewZoKxt8u+BNReFfM2nFA+RfC8ISdRs4SJvcb5H0FEGFN8daq4i31P7 rvqvMT7DAMdd29nC7yZQSdrKmk5i+VRpscy3E2hVcYtbmBsDHNLTTpnlTaDZ IwbPytwZsD915q9HFvletJmjZubFALlvt7M8bk+guSpRcjvOMkDoWXbFypPk e7AgcZ5tMMnnjIaUn+gEUq6zTOcRN4nfEDEUnEDXBmZM7oYwwP5Bwmyh6XF0 VMExpDmUrOeVtsCHM44WhS2bORDOAFcL362C5Hv35K7no45XSf4+Dl++JI+j xT3Fv1xvMyAuuauduX4cWXiPCS6OJ3mmPDhwTH0cnZ+9YkUFMf8P5ZSxbBz9 lL3ptfQuA/KMdJbIscbRw13H5v1MYIBp/tD3xIkxpPJm3podjxhw9+ndG4Kv x9Cqa7vDtLIY0BC94uwhjTFksLZj1XgpOS+XLg18EhpFUzUl7+PfMYC1/ufp uKkRlO/+wF7vPQNqFDJY1iMjZH7aRQV+YIBT2I7G4t8jaMWKb32i5QzIlWhs X/dmBLEUip7Kf2JALR0bmnJ6BLHnx6tu+86AZUGsrZe/DKPkP+YqCX0M2NBm 2jnlx0ECoh+v6PWT5z3Qusg7xUEHNYHTRPzpdL3coCMHSV1YWyQ9yIAnxZ7O 2IKDrjGX2NxmM2B53KKxWQoc5L9tMPLGGKn3diEvoQ9stOt59Ej4DAPEKSdR vggbzfjXl3ozJCHOpyiAOdyP8uboz35pIAkGRd2/vnl0opyhrj4RJ0lY12Eb ci65GS38dNqn9IYknJ+VuiH503tkf0Mq/flbSXBafEi3eUUBHiwQDsnvlAQx l/WpScX1uLXum8DSRTTIRu7/nuHbjmuo04plxA/fRxhvu9GOP+4UNTxB0eAq usqwMbMdv6g2DM5i0LA3wCOhsq0dh7zPFlrPpEHF7nr1tNkfvCLnlujWxTQM XDT/HivTgX1u2kqeWEqDpX+731hWJxbf3bY8ayMNNt+0//km9eAUlgzLQpeG ig9H3nq/7sE6rbuF+4g/Z9osPfypBzs6v+9Q1adh/ZOgNAFeD84JeJyUYkCD eXZosMOOXmybcWpxwhYaFvwosIrl9uJkQb5Y5HYa6op9P+7S78M6ldrTapY0 dKUHxrTv6MPV110GyokbtNm1B4/04XGZ1irhnTT8CJrwk77Sh021isODdtNg 72Jle6uhDw8cCJvtb01DxooShXiXfrzhNTXufJiGF3mD63aEDuAb7M8utCMN 5Rcsjt+7PYD71SLbSog3eb+rrX4ygB8mzPkkc5QG7WcBC359GsAiQaPJ1cdp mL8qN6hIchA3WjTs0nSl4aZX+KBV4iDWDrtR1kJ8cW+mZ1/WII7ClpsiTtHA 0GZ/OVo0iEG7TLX9NA0j8bY5s38N4iesvJmb7jSY8gwKeuSGsH/7nawJHxpG FbKXmd0ZwnWL9ymn+NKw7cu8JCp9CKtbUXd2+pF6mlyOeps7hNvLroQ8OUuD mKHfgYLaIWyedW7//vM0GKsdKlgmzMayfgfm4Us0+PEThtv12NjnpfRFlyAa Qql4fytDNv76t36UFUzD3VG18DxTNg45YPnbLYSGLezdc3dasXG/IXqtdJkG n9cX7d+dYuO3CxWPhUWRvBhe8S/vsXGKTdj25VdpEHaVkqt8yMZRyX3ryonZ 6rrX61LZ2G5jrrDodRrKZhLF8XM2Hj9qnn41hoYq2YtXekvZWKPQuy82jobu /BPeUV1szJzbXLvuNg05C+Pc8F82nt4FhQ3E0rxfH/4MsnF1t+hVqTs0LHzk ZScwwcbOjIfqCfdoWBO5cXW4MAcnnax0T35IQ6HmaGilEgeHv9KwM0oi+e/M +C22jIPdBG4ZdhJLrFUQNFLjYIO4Q4zlyTTIW/UFBmpwcFPJaM7TVJKH2YM9 m/U4uGSBXaJ5Gg2vWlvGRA04ON0ah/YT88xVpT4AB/sMROxTTyfn50N0nqgJ BzOk5bkvn9JQ6wcnm3ZwMP9IyO/dGTSUrgkVW76bg9uf9ZaPENv8Xv73yF4O fmGUc2ddFg3J0hrKz2w4+PZ16aAG4tEMp9Nv7Dg4oCngpO8z0n96adV59hxs 4bZNL/85DRH7WxODHTh4zZtnynYvaNg6/GR6pyMHywhLLpgkXhWjYil2lIN7 7v1s0f+PhtjhqlgbJw7+0rXlQyvxm4Lqs53OHJyr9SQrIJv0X5yymuNJDg4t 8wwoziH1unGudMUpDuln+4HTr2iY/SWsOOY0B/80MrZfkkvmTZx9WOcZDo6c o15VRWz+/ITIMncO1ill6vq/JvVsk9Hb48HBHYEz6ap5NMiMtVCnPDk4BvWw vhOvfiEb4ulF8p/+GhaaT8OJJpPg494c/Lcwf2xNAQ3ieuWCJj4cHHfu0dF2 Yps7C/8t8uXgLbqRtdFvaLhWGOxQSczmehqiQho4LreVz/hxcMJr+5cDxMWn X+kKnOVgUx9jhYS3NBhEmd29QDy2Vv26WRE5/5Hv1ncTPxphTnOJrddeFdzk z8GW/824PsbkfbZLcgOI+W49zVbFNBje/yCURfxY45uZYAkNcwcXKpUR7x3M z/+PWELQbvMnYoGsR6qHS2mIe8y0wcRZLpG3xd/R8O3BC7tEYrsVXsJFxDI5 sZuciIV77b1d39MQn6ExJkuc/di4Q+YDmd/bB72LyPs5HFffU0HsdnhTjjnx gqWsUt+P5Hw/i0h5T/ab/2dGc1kZDY6TSE+N+Pijngd1xPMlPrmeJflQh7+J BZfTcDk7cfUrkieWL7igVUHyzZLzaCF5u/581P+LuO1dofoQqYdUYuT+a5U0 7MQd1gOkXu/3e1XqV5H9HJ/T3kDq6S5zYGMfcX9gaEkGqXflbXWW6Scyn1c6 7WaRfvDdxwobJ55n/rA/i/SPCi0wlvKZzC/+UJaGKwdfuPGtZtZXch8sC/Md Jf23YlfB5hfE9lppzhtIfzaIJ784+I2GzN7ru48d42DNq17X3tTQgAM82y8d JufnMsvMu56GcaHDzwrJeblmIpCv3EDmmXGO4r59HKwn1Lu8htjQdYNW0x4O jg0qENJopOFwVOB4kiUHm1w4UNLTRINd+5wG9S0cPKxnonm7may/rLBrMTnP D/jqD4xbaNgTJbphRJ+Dub4CFx610uDUKOvssJ6DMzySdex/0zBl8K9sjSrp b8N1MjPEwbdv8F6qcLAco2wyqY3Mq/fVf2QVOfhG9t+i7nYaGuUvFOZJc7Df qJaxZycNPVH9PnNFOfi/9++WMbtoyNYqO/ZXiIP7Yq1E8olnvW4ryZ/FwQfX na2a7qbhYK9ywhIeGxv7FO+68peGA/GTX7lkXgaY7F6zuo+Gx/0jigbtbJzH 7JD8Sly3uiz2TCsbr3o9t5EeIPPtn3lBXC0bU1zLg0lD5Pn+A1OjRWz862zr ybxRGhZbhir2xrCxlNkZi/1jNHBXGC7tj2Tj3TKz1KeJwxZK5DSFsvHHAhXO lgka/p5Ytd3/LBtnTrr4fuHREL4y7FjpITY+e4Ef3DVNw/tV2UOnVNn4v+1R xyJmaJiWi9u4VJHcJ0vktq4SYMILjWLfMmk2dijaLOoxiwkftTdkVIuysclM ePS/OUx433D/08vvQ5hxiZUoOY8JLbP0//zeM4T7G4235xAHBjWLTxkO4Y+a Xv/2iDJBIrEhdUBrCPv9/nrg5nwmeD2s/bhHfAj/RFfkKDEmiLTF9qmVD+Kn 01MPxBlMgH2x6wa1BnHIvpU7nxMXnw9NcZIbxAee2QrskGSCvsEjh1zRQSxx MNfhGs2EwpjdZ2vbB7DP2zOKC6XI8y7o6onGDGDD8+2PRJcw4bfbZR+7zn4s Wyex5ymxhHnlUYUv/XhsJZpjJscEqRKRkIK8fpzefO9IhDwT9ga6irlE9mMx PSsVESUmGG0/d/iNej9u4pWlCi0n77Oa6TPvVB92981KF9BiwqjzZsFfZb1Y YsuhX1nE1RGhw0+f9OJnYouY+7WZ0NM/6zVE9uL+VK/gV2uYkOcz4VSxvRc7 1+kdPLmeCVERikMWX3uwg1Ylo06P5Kv6rVCkqhvv6OsKeGzCBD/1u+k5cZ14 MDf+1d6tTIg/fcvjunsnjgoy659lSvL66bxJy6ITV0o/s7XfxoTzpv3+FQKd 2MTUe+0iC5K37ksZM6cObJA656//LiaUi99k+an9wasPKVhZ2jMh1vE/255L v7GN/rnpIeJyj86RMza/cYh0w+OYAySflFL3d+q/cUttJL/uIBNMoyMS7736 haNMJx7sP8wEN8NaRovDT9yv9fmv83Em7OwOrohPbsaZgucDg93I/sfk7WYa 63FjW4PaUneSf4KCRLFfPRbEWrUfiaX2zR9mSNVj+7PdS0U9mfCwWCvNy6oO LxjcXRXtzQSdsA9ldFUNdv2uxrzvT/JnbnE4teULXvn0e0ZeCOm34PZV7eMl WHbyVbNTKBMcMpQ6l4uUYDGL2PmsMLLeuQ0rjkgVY/bAThfvy+T3bLMyd5dC cr9WrtC+QvJ7O52UVZaDDfMLn2RcZ4KAxVmRva6x2LY86fH9u8TuAS0B39+g y10uySEvmKBQWtL4mfqBpHBXkuZLJrALbY8sfvoDPb19+GELcbTNupSRzU2o 2tQ6cW02Wb9gM3+rZzOiMgxvd7wi/WjqWxPS0ooSzkhHGr0h9V1aJfjmaBt6 wf3oIfiRCV8n9j5af7kL/RBVMgxpZoLgv1vyd2rZiDtqnK3SQvrtcriv9Qwb MX+dUPlA/LUxJnH9Sg7anf1SWPgnE1ZpsH2tgzmoev/mqsu/meBsL+6osm4Y FWU67I3sZIKFsvfA8P0RlGL54PiNIZLf54qBpMhxdPqGbOTDOSyQaB2eRFVT yGH+qJecBgtiW3V1SuSF4Va3+Lx8axbYezb9WhIrBsUZ240uX2TBHhvZ3/MW SoLpYWeF109ZQFmImbYPSwPDvyxtTi0LMEO28j5TAcycFONfE/s85A/bLFWA oL3nIlzqWOR7rthTZq0C+S7VcK2tZ0Gkx/7g7F0K8PlPnFZyIwscvMzmGlxV gPDtxwsNf7JAbk+DUK6QIkwpCNVc6mXBFrnpSf0pRVgjdujdur8suGceu65z vhKcnMzL6SWO9+rkxS5Wgh/1rrd39bPg8DqG2nw9Jci9UmevOMQC/Tracre/ EriPJncXj5L3uRfE3M5XgvS2f41eYyxoFDxScFpUGX5/tq5UHWcB38Z5dryM Mlg+mZ8VPcEC3U36obP0lGHVQU8PBz7JzzYoSPO8Mhwx/3REcpIFqufmeF2P Uoa7OsutyonvXzzIHE9QhnmM5g2a/1gQljHl2fRWGUBgnVoHcanEKW2bz8rg N3BNJn6aBYZ1i9JbfyrD86ae+RYzLCiJvdRwckgZusoM/80QW3B245kZZfgf 8QS36Q== "]]}, Annotation[#, "Charting`Private`Tag$26764#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {4, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {4., 0}, BaseStyle -> {}, DisplayFunction :> Identity, Epilog -> { RGBColor[1, 0, 0], PointSize[0.02], PointBox[{{0, 0}, {1, 0}, {2, 0}, {3, 0}, {4, 0}, {5, 1}, {6, 10}, {7, 80}, {8, 100}, {9, 150}}]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{4, 6}, {-1.092480902938636, 9.999999289232953}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}],FormBox[ FormBox[ TemplateBox[{"\"Akima\"", "\"Hermite\"", "\"Spline\""}, "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]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), 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[{"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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.754833058731173*^9}, CellLabel->"Out[93]=", CellID->74742403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->95944414], Cell["Extrapolation is attempted to go beyond the original data:", "Text", CellChangeTimes->{3.7548331316276093`*^9}, CellID->2065117373], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.754833232953857*^9, 3.7548332362609243`*^9}}, CellLabel->"In[94]:=", CellID->1074699640], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAlPIyEgAA8D9ceRkJAADwP5wSsJMW C/E/95tUWJWU8D+uoVVgpCzyP/B5O6KQVfE/bVML/AE78z8qKPNa0STyP/fr g+URRPQ/OvZ25qgG8z+M8yQamWP1PzwTP6T5EfQ/zR3WHfBv9j9pEHLqkx31 Pxi3r2y+kvc/t+EyTidQ9j8vN0wJP7D4P6rtbseuivc/8tn4dI+6+T+ScxjC TLn4P7/rzStX2/o/+8ARCGMI+j85ILOx7uj7P1oFZX/ZRPs/fjtbhTjx/D+r VG4Vz3v8P83FK6T5D/4/vhKjJQHL/T/JcgySihv/P9OLrc/k/v4/Z8eKZcke AEAiVi2CYyMAQM/I8KgmrQBAfkHSWQnkAECN297T6zEBQEaVd18uvgFA0CVh pOzBAUCpJPf8Cc4CQGqBa1xVSAJAXGhhHLHmA0CJFAq6+dkCQJzYebYpLQVA DhuKPvdoA0BGp7DSSX0GQOkykqpc7gNAXV/nuoe+B0BJgi68/X4EQFwp/d1e HAlA/+JStQYGBUArtsAYLV4KQBu3WNVoigVA6D7WSUOPC0C8wvKaBhoGQCn3 YE8IyAxAs98USAygBkDXhPjqrNQNQC80y5pNMQdACaX0PJnXDkAR/GIU6L8H QOyP/pkzrg9ASdWCdepECEAaxN8MMBQQQAbmNnwo1QhAPu015sF8D0AZCHNq zlsJQKZOaZxYxw1Akp2Qf83fCUCSB8YWKT4LQJBqQjoIbwpA3vnPm/CyB0Dk SHzcqvQKQJYoNnJmzwNAvl5KJImFC0DsgLmp+0f+P+6FoFPPDAxATuurGb4K 9T+EINipbpEMQMQsGp+7nuc/n/KjpUkhDUBgcFl+uzS/PxDW94iMpw1A7GR8 5fYe278G8d8RCzkOQEgshkBhuO6/Yn+pweLHDkDyLcoXb4X2vxQf+1giTQ9A cND6Q1C++79L9uCVnd0PQOF2J5zFdP+/bW8nXUAyEEDKU8njnZgAwGYdz4Je dBBAUw5nDH0WAcAi50B7GrwQQA8ZP6SvPwHAibl2Zwr/EEDRot8Gkg0BwLOn diaYRxFAp8u01cV3AMCQT+d40o4RQFwCHrlfCv+/GAAcv0DREUCSHaPuOJ38 v2LMGthMGRJAZu6/9qlF+b9Xod3kjFwSQMa2dVU7fvW/D5JqxGqlEkB2k0PF LLDwv3o8aDf17BJAggchhHGF5r+Q7ymesy8TQFw4/34FSNa/aL611w94E0DI q93Z1WG0P+uVBQWguxNAXmqwi9eU4D9bQ3P7//8TQAPKA+/+/+8/QJnBtA== "]]}, Annotation[#, "Charting`Private`Tag$26912#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 5.}, {-2.1560967284923502`, 4.019714547307581}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "5.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAlPIyEgAA8D9ceRkJAADwP5wSsJMW C/E/95tUWJWU8D+uoVVgpCzyP/B5O6KQVfE/bVML/AE78z8qKPNa0STyP/fr g+URRPQ/OvZ25qgG8z+M8yQamWP1PzwTP6T5EfQ/zR3WHfBv9j9pEHLqkx31 Pxi3r2y+kvc/t+EyTidQ9j8vN0wJP7D4P6rtbseuivc/8tn4dI+6+T+ScxjC TLn4P7/rzStX2/o/+8ARCGMI+j85ILOx7uj7P1oFZX/ZRPs/fjtbhTjx/D+r VG4Vz3v8P83FK6T5D/4/vhKjJQHL/T/JcgySihv/P9OLrc/k/v4/Z8eKZcke AEAiVi2CYyMAQM/I8KgmrQBAfkHSWQnkAECN297T6zEBQEaVd18uvgFA0CVh pOzBAUCpJPf8Cc4CQGqBa1xVSAJAXGhhHLHmA0CJFAq6+dkCQJzYebYpLQVA DhuKPvdoA0BGp7DSSX0GQOkykqpc7gNAXV/nuoe+B0BJgi68/X4EQFwp/d1e HAlA/+JStQYGBUArtsAYLV4KQBu3WNVoigVA6D7WSUOPC0C8wvKaBhoGQCn3 YE8IyAxAs98USAygBkDXhPjqrNQNQC80y5pNMQdACaX0PJnXDkAR/GIU6L8H QOyP/pkzrg9ASdWCdepECEAaxN8MMBQQQAbmNnwo1QhAPu015sF8D0AZCHNq zlsJQKZOaZxYxw1Akp2Qf83fCUCSB8YWKT4LQJBqQjoIbwpA3vnPm/CyB0Dk SHzcqvQKQJYoNnJmzwNAvl5KJImFC0DsgLmp+0f+P+6FoFPPDAxATuurGb4K 9T+EINipbpEMQMQsGp+7nuc/n/KjpUkhDUBgcFl+uzS/PxDW94iMpw1A7GR8 5fYe278G8d8RCzkOQEgshkBhuO6/Yn+pweLHDkDyLcoXb4X2vxQf+1giTQ9A cND6Q1C++79L9uCVnd0PQOF2J5zFdP+/bW8nXUAyEEDKU8njnZgAwGYdz4Je dBBAUw5nDH0WAcAi50B7GrwQQA8ZP6SvPwHAibl2Zwr/EEDRot8Gkg0BwLOn diaYRxFAp8u01cV3AMCQT+d40o4RQFwCHrlfCv+/GAAcv0DREUCSHaPuOJ38 v2LMGthMGRJAZu6/9qlF+b9Xod3kjFwSQMa2dVU7fvW/D5JqxGqlEkB2k0PF LLDwv3o8aDf17BJAggchhHGF5r+Q7ymesy8TQFw4/34FSNa/aL611w94E0DI q93Z1WG0P+uVBQWguxNAXmqwi9eU4D9bQ3P7//8TQAPKA+/+/+8/QJnBtA== "]]}, Annotation[#, "Charting`Private`Tag$26912#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 5.}, {-2.1560967284923502`, 4.019714547307581}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "5.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{1., 5.}}, { 5, 7, 1, {5}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{1., 2., 3., 4., 5.}}, {Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10}, {1., 0.5, 2., 1.1111111111111112`, 4., 1.2000000000000002`, -2., -1.7647058823529411`, 1., 7.5}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754833240224695*^9}, CellLabel->"Out[94]=", CellID->1671096414] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "6"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.754833298697076*^9}, CellLabel->"In[95]:=", CellID->2125554162], Cell[BoxData[ TemplateBox[{ "InterpolatingFunction","dmval", "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"0\\\", \\\"}\\\"}]\\) lies \ outside the range of data in the interpolating function. Extrapolation will \ be used.\"",2,95,8,22802914569884069103,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.754833300336268*^9}, CellLabel->"During evaluation of In[95]:=", CellID->1743191284], Cell[BoxData[ TemplateBox[{ "InterpolatingFunction","dmval", "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \\\"6\\\", \\\"}\\\"}]\\) lies \ outside the range of data in the interpolating function. Extrapolation will \ be used.\"",2,95,9,22802914569884069103,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.754833300360098*^9}, CellLabel->"During evaluation of In[95]:=", CellID->1843997814], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7777777777777777`", ",", "1.`", ",", "2.`", ",", "4.`", ",", RowBox[{"-", "2.`"}], ",", "1.`", ",", "12.470588235294118`"}], "}"}]], "Output", CellChangeTimes->{3.7548333003703127`*^9}, CellLabel->"Out[95]=", CellID->1734750041] }, Open ]], Cell["At least 2 points are needed:", "Text", CellChangeTimes->{{3.7548333326930532`*^9, 3.754833352318931*^9}, 3.754833385253552*^9}, CellID->1705947415], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", "1", "}"}], "]"}]], "Input", CellChangeTimes->{{3.754833413292791*^9, 3.754833413427329*^9}}, CellLabel->"In[98]:=", CellID->809571128], Cell[BoxData[ TemplateBox[{ "AkimaInterpolation","npts", "\"The length of data \\!\\(\\*RowBox[{\\\"1\\\"}]\\) should be \ \\!\\(\\*RowBox[{\\\"2\\\"}]\\) or more.\"",2,98,10,22802914569884069103, "Local","Akima`AkimaInterpolation"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{3.754833414213632*^9}, CellLabel->"During evaluation of In[98]:=", CellID->32402571], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.7548334142242813`*^9}, CellLabel->"Out[98]=", CellID->1276648106] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7548333598378677`*^9, 3.754833361934492*^9}, { 3.754833395990262*^9, 3.7548333961238832`*^9}}, CellLabel->"In[97]:=", CellID->1947572401], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxFxWlIk3EAB+AX3YzeGCtEStugxSpMyYqWVGOblh1gFkulUkPbxPVmTqvJ 3EihrUMmHatgJJTRVASPsItImtk2TGqlKUW0Lmwjms3l5jGXqz70/314eASH 1fLSGIqixH/9u7mngUVR49L/t7J8VkcmPqpKWJJswu+HY+p6XTgSLq5hLQqQ v4jrt3v246pzmnmRRmwfS2nsGsXPOfv6uKm/yLqNEvftCjymmxgYeYAX9Je3 bwnjD658QY54glwZoI/MGXAXz2D96sR3FI5uJTdIViq1uVfy8bNj/u8hC/5m Xiuf/Iy7e0Wdq4UhcgbNdkfKsYGTdVN/D1cm7spbM4WXZSz+WCudJOur2g7G GnB9QTuzwYEPlNTsjuVMkUfUtDBuL46/XvqyxYJZtevo4CfcxDzdrFk+TY4e Xyq5yuD5xk0ibwd25vTbPH6cJRLwjekzZLVQUpGnw4VpK8z2PhzMfN1WFhcm Sxf6ch/uxNkzg0PWS5j1Q7/N+QbXTfvPn+HNkjtsw8UBBT578VTq5RYs0I8P uH5ilXpVkWx9hFzCf3X60EnM98r0ST3Y+Ki6jI7iztbqlZYdv8mmPV7t0AUc T/FsskFc9CLpXXbiHFl+yz3aUIhpM2NnmrFGrEoP+bDJn3zjblqUrHhy/y1X iz3X2Oymx7hg64nZaBT/AfXl9WE= "]]}, Annotation[#, "Charting`Private`Tag$27106#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 1.0000000169491525`}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 1.0000000169491525`}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 2.}, {1.0000000169491525`, 1.9999999830508475`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxFxWlIk3EAB+AX3YzeGCtEStugxSpMyYqWVGOblh1gFkulUkPbxPVmTqvJ 3EihrUMmHatgJJTRVASPsItImtk2TGqlKUW0Lmwjms3l5jGXqz70/314eASH 1fLSGIqixH/9u7mngUVR49L/t7J8VkcmPqpKWJJswu+HY+p6XTgSLq5hLQqQ v4jrt3v246pzmnmRRmwfS2nsGsXPOfv6uKm/yLqNEvftCjymmxgYeYAX9Je3 bwnjD658QY54glwZoI/MGXAXz2D96sR3FI5uJTdIViq1uVfy8bNj/u8hC/5m Xiuf/Iy7e0Wdq4UhcgbNdkfKsYGTdVN/D1cm7spbM4WXZSz+WCudJOur2g7G GnB9QTuzwYEPlNTsjuVMkUfUtDBuL46/XvqyxYJZtevo4CfcxDzdrFk+TY4e Xyq5yuD5xk0ibwd25vTbPH6cJRLwjekzZLVQUpGnw4VpK8z2PhzMfN1WFhcm Sxf6ch/uxNkzg0PWS5j1Q7/N+QbXTfvPn+HNkjtsw8UBBT578VTq5RYs0I8P uH5ilXpVkWx9hFzCf3X60EnM98r0ST3Y+Ki6jI7iztbqlZYdv8mmPV7t0AUc T/FsskFc9CLpXXbiHFl+yz3aUIhpM2NnmrFGrEoP+bDJn3zjblqUrHhy/y1X iz3X2Oymx7hg64nZaBT/AfXl9WE= "]]}, Annotation[#, "Charting`Private`Tag$27106#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 1.0000000169491525`}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 1.0000000169491525`}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 2.}, {1.0000000169491525`, 1.9999999830508475`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{1., 2.}}, { 5, 7, 1, {3}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{1., 1.5, 2.}}, {Developer`PackedArrayForm, {0, 2, 4, 6}, {1., 1., 1.5, 1., 2., 1.}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7548333659818697`*^9, 3.754833397409861*^9}, CellLabel->"Out[97]=", CellID->738577084] }, Open ]], Cell["\<\ The interpolation function will always be continuous and first-order \ differentiable, but may not be higher order differentiable:\ \>", "Text", CellChangeTimes->{ 3.754833449858164*^9, {3.754833509432674*^9, 3.754833509911193*^9}, { 3.754833609812516*^9, 3.754833651866563*^9}}, CellID->1115600365], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"r", "=", RowBox[{"RandomReal", "[", RowBox[{"1", ",", "10"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.754833461555319*^9, 3.754833462417736*^9}, { 3.7548338599832478`*^9, 3.754833860164077*^9}}, CellLabel->"In[103]:=", CellID->215612598], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAzqHyKAAA8D+gasAdNKaOP+ApTMzy WPI/9B2PERqqqj/Jq8DYceT0P7KFUk5sUbc/tnsZd8RE9z/UdjbbKyHAP+3S aEQomfk/RrfDILpKxD/7I9N6GCD8PwPVI3msg8g/DcMhQ9x7/j/954FSKyPM P/qtRToWhQBAAQhr7F+vzz8TvnXqRsYBQEYbUO6ydNE/LvWXY+HxAkDE+pqr S+PSPzWpRxHCNgRAAsdAQ9Zk1D8+hOmHDGYFQAnx25U4ydU/7KIGll+PBkD+ a/eRfCrXP4U+sdj40QdArNxODDK22D8gAU7k+/4IQBriv1NMOdo/pkB4JEVF CkDWzTTZye/bP9LDHfyWhQtAIhvjT4Ku3T//bbWcUrAMQPdbc8gWW98/GJXa cVT0DUD7PW1/G5vgPzPj8Q/AIg9AKww5kmV84T8dV0vxODUQQG26yLvtgeI/ cl5bJhbWEECeKr8W4z7kP0h55D8obBFAvlbdSSx35j+UUrRz3Q4SQJ7C/dDM Mek/YT/9i8emEkApTvNknr3rPwDOA/C1OxNAkLrI4VLz7T8VG1FuR90TQAYt e3iLte8/q3sX0Q10FEBXV6Ck/EjwP7eaJE53FxVAlltFZTBu8D+VW+8W5bcV QCJjUF9uT/A/9C8zxIdNFkAYtRKN+QPwP8nCvYvN7xZA/va2Kj0b7z8facE3 SIcXQAFIHYZgFO4/R7GCL8cbGEBnxnqxcv7sP+W3ikHpvBhAeRhewEjx6j8E 0gs4QFMZQHkdKqjcN+g/marTSDr2GUDrwV/nefDkP6+WFD5pjhpA4zLVow4W 4j+XJBN/nCMbQK7OtMlC7t8/9XBY2nLFG0D+tdhAJ+vdP9TQFhp+XBxAbj+4 IXoB3z8p7xt0LAAdQP6s1z6j3eA/UK/eGd+gHUAKlySvcKviP/iCGqTGNh5A Ih31hdWP5D8WFZ1IUdkeQDHDwWT0neY/tbqY0RBxH0DzONGU7FToPxMBKVPq AiBAX6K99NOg6T8HBKnKnVMgQJYSqHT/yuo/u5BltOueIEBeBaCdpd7rP6p8 RSuL8CBAyqKBT1L87D+DOQTIrEAhQDM2Migh/e0/HID/1miLIUCxrGGBRs7u P/AlHnN23CFAosRyceeF7z+EVXmBHigiQG7SP4af++8/U+T3HBh6IkDlMBKU NxPwPwxEVd6TyiJAEk+yL57/7z+FLe8RqhUjQOIelbYRm+8/OXas0hFnI0A5 Xj8yfPDuP61IpgUUsyNAcMK880of7j/Gq+H6//8jQGnSRwJaIu0/1MXF2Q== "]]}, Annotation[#, "Charting`Private`Tag$28552#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 10.}, {0., 1.0269016223807959`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAzqHyKAAA8D+gasAdNKaOP+ApTMzy WPI/9B2PERqqqj/Jq8DYceT0P7KFUk5sUbc/tnsZd8RE9z/UdjbbKyHAP+3S aEQomfk/RrfDILpKxD/7I9N6GCD8PwPVI3msg8g/DcMhQ9x7/j/954FSKyPM P/qtRToWhQBAAQhr7F+vzz8TvnXqRsYBQEYbUO6ydNE/LvWXY+HxAkDE+pqr S+PSPzWpRxHCNgRAAsdAQ9Zk1D8+hOmHDGYFQAnx25U4ydU/7KIGll+PBkD+ a/eRfCrXP4U+sdj40QdArNxODDK22D8gAU7k+/4IQBriv1NMOdo/pkB4JEVF CkDWzTTZye/bP9LDHfyWhQtAIhvjT4Ku3T//bbWcUrAMQPdbc8gWW98/GJXa cVT0DUD7PW1/G5vgPzPj8Q/AIg9AKww5kmV84T8dV0vxODUQQG26yLvtgeI/ cl5bJhbWEECeKr8W4z7kP0h55D8obBFAvlbdSSx35j+UUrRz3Q4SQJ7C/dDM Mek/YT/9i8emEkApTvNknr3rPwDOA/C1OxNAkLrI4VLz7T8VG1FuR90TQAYt e3iLte8/q3sX0Q10FEBXV6Ck/EjwP7eaJE53FxVAlltFZTBu8D+VW+8W5bcV QCJjUF9uT/A/9C8zxIdNFkAYtRKN+QPwP8nCvYvN7xZA/va2Kj0b7z8facE3 SIcXQAFIHYZgFO4/R7GCL8cbGEBnxnqxcv7sP+W3ikHpvBhAeRhewEjx6j8E 0gs4QFMZQHkdKqjcN+g/marTSDr2GUDrwV/nefDkP6+WFD5pjhpA4zLVow4W 4j+XJBN/nCMbQK7OtMlC7t8/9XBY2nLFG0D+tdhAJ+vdP9TQFhp+XBxAbj+4 IXoB3z8p7xt0LAAdQP6s1z6j3eA/UK/eGd+gHUAKlySvcKviP/iCGqTGNh5A Ih31hdWP5D8WFZ1IUdkeQDHDwWT0neY/tbqY0RBxH0DzONGU7FToPxMBKVPq AiBAX6K99NOg6T8HBKnKnVMgQJYSqHT/yuo/u5BltOueIEBeBaCdpd7rP6p8 RSuL8CBAyqKBT1L87D+DOQTIrEAhQDM2Migh/e0/HID/1miLIUCxrGGBRs7u P/AlHnN23CFAosRyceeF7z+EVXmBHigiQG7SP4af++8/U+T3HBh6IkDlMBKU NxPwPwxEVd6TyiJAEk+yL57/7z+FLe8RqhUjQOIelbYRm+8/OXas0hFnI0A5 Xj8yfPDuP61IpgUUsyNAcMK880of7j/Gq+H6//8jQGnSRwJaIu0/1MXF2Q== "]]}, Annotation[#, "Charting`Private`Tag$28552#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1., 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 10.}, {0., 1.0269016223807959`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"1.`", ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{1., 10.}}, { 5, 7, 1, {10}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{1., 2., 3., 4., 5., 6., 7., 8., 9., 10.}}, { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20}, { 0.014965406629381173`, 0.2559272070887209, 0.23660283279138428`, 0.170844119293589, 0.3896606970999519, 0.15814439111248102`, 0.5667330162469535, 0.18837324972321334`, 0.9990028525685586, 0.2162498554229742, 0.9129929308988811, -0.2293566195192166, 0.46990518552552296`, 0.11609671404845373`, 0.7995768956867382, 0.22915326200893965`, 0.9928662484263584, 0.10204261154788632`, 0.910443276615202, -0.22027913408654531`}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7548334660988407`*^9, 3.754833865301528*^9}, CellLabel->"Out[103]=", CellID->1396037361] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\[ScriptF]", ",", RowBox[{ SuperscriptBox["\[ScriptF]", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], ",", RowBox[{ SuperscriptBox["\[ScriptF]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", "r", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7548335477203283`*^9, 3.754833548448073*^9}, { 3.7548335835658083`*^9, 3.754833586045314*^9}, {3.754833660332284*^9, 3.7548336843403873`*^9}, {3.754833730250654*^9, 3.754833759616062*^9}, { 3.754833840024475*^9, 3.7548338629325237`*^9}, {3.754834028545842*^9, 3.754834058032338*^9}, {3.754834093552046*^9, 3.7548340940133543`*^9}, { 3.75483431503316*^9, 3.7548343156640577`*^9}, {3.75483435235231*^9, 3.754834352485058*^9}, {3.7548369361374207`*^9, 3.754836941835867*^9}}, CellLabel->"In[199]:=", CellID->1877962240], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV13c81d8bAHBJ4mtd3Gtd635uGkZGkkjPkxWlIUJ2MkpSSoUGIUlWhVA0 qGggSUsliUpRyCiua887Ekmi3+f3j/t6v85x1uc8zzmH4bN/m5+ggIAAkH/+ /9v2Y5O+gAAfrkWc0l15KxlqJIuTNovxgd/71GCdeCo81KKMXJHjw+/M6+Hb 36ZCsl/jjdU6fKhsUz9uveoCWLQ7UQ+58mF3Kz3QWikdiiq9pvrL+OAtx7mc 25ENp1NCXtTt+QFBXsyf35bmgYFOuu2lpnEw5snatEQUAWOn3wOxvkngbpx6 9FftOTxPEZKJrfwNCkL3t76pr4J8CeEVuckz8Ev8apJwZi0Qsal56VlzYLRO XDFn80e49Sc0zuaJAN6vfPEL6J/htO5Aj6G5IC41+tSlKNkI4onxauPV8zHA Y9HMbVYTDPtdcHmgswBjr9owh+O+AqXCe3VXmTAWeAwNFDq3QlJKhpwUIYJV 7CzZPfR2KE2YbZKKF8Uwl+9FtrxvwBBctjpSXAyL+9tPjs3vhIFfz7P5R8Qx iRGxamZhF0wGyOZ//ieBNvTY9st5bHBJeBrQukASNTdHbJEpYMOze15aLDFJ HDiirXz2HhuiftwtHZWXxE+3LR4ffcQG8WOWr4X1JPFsWHmPSy0biOTDrDXe kqjqdThac5QNW8taFQorJdEmMS1GeEU3PGw50VFcI4mdhxKz41Z1g9w081r5 R0l0Q+MJ4TXd0GF2YEl1myT+Pq25T8SqGwJqRYy6+JL4vWx8l6RzN5z8ttqB xpDCV5rtbRrHuuGewJWkU6ekMKLK5OTJN90g9HrFDvUzUmgrXpH2uLYb3E/V LXqVKIVRh1lN/LpukBCcef73khR+K517v6u5G4Lnu44cLZLChQaHz2zs7wZd YYX1wd+l8KvIia+MhT0QX1MsI9FN+i1jtYdYD7Dj1rPuDkjhXPP6F5lSPZC6 8Ojh4R9SeOyXlAZFoQfChEbtDYQoGLfkyV+FZT3QvmBD1H0lCm6xmZ57urkH hAdoA8dVKKi05+OWeoceMKjp3minTsHhoKLsKZceSIgLlx/VoKB5rEZ+/K4e MFlYWLRUn4K+lYna18N7IFtEpDNvPQWrem7anC/sgZqhJvNDGyi4x3QJe6C4 B8bfXS0w30TBIukvZ7aU98CGs6tCu7dRsCJnUdKONz0wIxogpuZJwUDBMLlN rB5wF6tZnR1KQfeDRjsuyffCqdDu47eOUjC4hqdVqtYLtzr/viqNoOB/d7SW di/pBV7xCuu6KApSzQcFjhn3QrTj9W1/EynYkX+Bk+XaC7dzju/1vElBs5Lu WJ8bvTCuuyKHaKHgRPkVQwnoA/mszezl7RQcS3wXt9O2D9YIBjJNOygoJOSi /tahD043Xyt06CHnN+WR9HR3HyiES5bHcin4o09T1OFiH5hVDdcPCEujoj3f ZfFoH8Q7XhO4u0oaLW39etbk90NBYtn6GBNpTC34HOBT3A+11e+S3cyk0X/i 92zqs34QXvlDWdxCGpWs93eKfOmHGJr56n2bpXE48hjPa64fTrb0huj6SWNG pXNaiusAhLos6X14QRrDKBtj5BQGwcu96G0FRxqPvwhf+PnaELjdyGUteCiD rH/lpU28Uah6W5UvXi6D87ymbZb+HQXN4YFA2acyKG5i6RcqMga/dXWn1F/J 4KFnkxnj6mOQ/uKV1Jo6Gdxq0VYcbT8GDW1sPNgrg1GBqvi5ZAwspJh5LFlZ nHtSo0oL4MAdg/V7+uVk0TrFxI1ykAMyTnt1xxRl8UPG++1zxznAvvLw+bSa LKqkmo49uMCBE5qWzVRtWaxIiNx/6AUHHlv5LdhoKYtK6f+5rKVwQev47YDH obKYVmA5OVjIhcTgav2Eo7L4X0mSiVMpF7je3TPuEbK4uo3ZUPaMC6VW9FTB KFn08RAINK/jgolUypNN52QxeHZK4MooFzbcOCLad10WGwoazugs48G9tItN 5fmyuHLvoRUX9HggeaYk5+xtWRzLPGPWv4oHjXtH9HXvy+IPkQ/87dY82LHS 0zXiiSwOzBoGe/rwYPc7q7uUBlkc2XI+k5/Bgw/PfA73fpHF9iPVV7RzeKB9 PxLKm2XxgcM5ye15POCff9rk9k0Wa+flvAws5sFRN52/t/plkTK+afRmDQ/i uNRNZn9lMWFV8wb8wYMhtr485Z8sXg6qyzL8xYMNTZu7e+ZR0TSqlkudIcf7 JP5w/EIqcs4H7XMU5EPGqb85TTJUPNemPZlKnjs3qX3cPcuouMt0qcYDZT4I pG7NCNem4rKzDj5sVT64ir0wO6tLxSPHzTwXMvggJZiRWLCSisKit++v0eBD OG+95uA6Kl4stgy0Is+p5sCyL78sqbhcrd19hS4flg+ohwvbUFHqapeloj4f ejumazU2U3H+6SuUT4Z82PThrp+vKxW3dtk6fTXlQ4GVgkSoBxWf1vQ8jDHj g+Dr2LIYbyouWXbdTBP48Pixx/w8fyoepA7xvcz5wLgpdb37IDn+CJmMYBs+ HFc/bvPjMDke3Y3ULls+tFwe4gmEU/HMB/fJ9Rv5cO7C67XqkVRUDvCdEdzM h8nIQx2e56iYoRfeourAh60zXTHByVSME+VoOjjy4c4RO62T56k4bcBRiNrO B699GhE5l6j4Xnus440zH967tsp35FGx5IFL9U83PixqsXg1eouKO4Ty8jnu fDhpX+I/U0hFSxmd7WwPPqywOftIqYSKFjRX8xIvPuSsNHXYUUHFY/fPic/4 kOd+ye0/u19RsaVh/fKKXXzYpk29EVZFxRUKU05HfPmwkMnhX3pHxW2f49u+ +vHBJ3dH5u06KlYrKcAxfz5UKNbA43pyPjhRqxjAhxDK1eSWZipWNo25me/m w8dzYkYDrVSspZeHfiS9eGFY5+Q3KiZPaNRt2cOHqOi+2AUsKgbXyfh/JP19 dqs2rZuKryQc7MwD+WAU/qJpUR8V25e+iH1AOnVi2THDQSrKJiyRU9rLB6tR wQ8OHCraNDt5tZLOXrn7sC6fitdylj1dHETecyI/qYv9pKLZ5m6PA6StPhh8 HJik4u8Lkg5lpLOpmUerflPxtoJ57jhpnucskTtDRSJR3EprHx8sC33qw+eo iNlzdp6ks37Whm+fR8M2XsHzc6S5Zjoa+kI0rFx9JeMhaYv4C5/FF9KwcdGe 3q+kMxunjg2J0rDX49rt8f/XV/ZYUi1Oww/nG4dEg8n6AVWNV6Vo6L0v9R6d dOaDJSePydDweE7g7yWkuTOJy5xpNPxZ/+PL8v/Xtx5vNlCg4dWi8rV6/6+f 6hwlSafh9mFbS23SnG8VWiMqNORqrRkiSJtrEK1v1WkITFU9KulL+89EX2fS kDgexRAgPfZ0TOfEYhoG9f58PUCOb53QtnaXZTScXCAq/450xubHsYbaNExL 3bo4n/RYprIeRZeG6npukxH/r9976vuoPg0Pnn961u7/9XUG42oNaei18++Q wv/rH7UzyFtFw5d2ZQpscn3XVT3oPGlCwz0CB1VvkM4Qlz/rakZDw2U1/zxJ jzodNzRCGv4+tK5KjjRe7+6StqBhUlLo3vfk9x1Zec/ovQ0NT7Et49VIQ5R0 T/5GGqYemr/wDbk/0j4cSYraTMO6+IronaTBa13fKkcaanC8z6SQ+yut8FaK rDMNx9P30dVIj/wUM+XtoKFN6OOqQnJ/psW3nL/lRa5frNXOEnI/DzeamkX7 0HCMcneXNum1KteHPPxo+OV0akoeuf+HHuwF2l4a3ulUiYgh48PsuwAn5gjZ nw7N6D8yni5o+Gd6hdOwa9BO3ZuMt6H9dRamx2loMn7W+8FOslwoI3v8FA11 Cp2mrbz5MKCjZbMziYYpZySWGpPxaxqW+nNNKg2bb5l77iHjO7VqMlfhIg0P HReUzyDj39S5crIhk4aKc76Le3aQ5VHb89bm0zDLPN7FyokPhjrH+GK3aajv l/efC5lP2tuvmbUX0vDt4nsZ/mS+IVaMtR4qJtuTiLI/uo0PZf3R4oXPaPhe Tqg/gMxXbRtKDst+IduLl1FKsCLz3dTXKnYTDcu9rNjulmQ+zJ+RKmqh4X/8 jc1aFnwInLW+Y9NBw6GqT64vkQ9/iztZJwZpuLPrSGg5mW/VaGI2Q7M0POkz cWBKjw/Vr/XSHwnI4cfz186mkPl7d7BTT/R8OUxOE160aDkfSmqvH1cRlcOp 7Olxcy1yP0cYP9hGlcP1OzYnOpPngX+Xn9ILTTmUE7Ox6FbgQ1Fh5dh5Zzky P2/hGpHn0caulfJXXOXwea70hk1T5PlFvbvuloccVoX0/nb/yQMiKj3j2S45 NAiwOr17lAcZToHYu18OhQM4DfrfeRA5n5pmGC+H9YcX9WU+5cFWjwDT1idy eOZOX5XcQR6MUyQTlJXk0c7KXfdVMxcSaMefjCvLY9ezJsuxBi4QSiMD79Tk 0dgk5ZAcef7bM2ssDmvIY6nuDhuf11woWXly9pOePLYMDv1ru8+FYFfugcj1 8timclTbLo4LI3n1zj2h8qi3dOPt9JVciC5YE/fkqDy+XZb+J0KPC0r375Ql R8hjsYDrG08tLtiWx0mbRsnjn4Xf2QwGFwrera27eE4eTwYHHr8kzgV/TtFa qxvyqK+99rltLwe6jVI0ChrksfzHoxi5VA4crLbTf94oj8NH/pXvT+CA4Lb/ zOq/ymPHkV9l72I5QOw77TjxXR7d+E42EeEc8M07FoND8ugp9m5rpw8HJvRW pziMyiOzYJeHkQcHYl/+yvbnyqN/Y1ReijMHbraHlCZOyGN1W6GshR0HBqR2 d7cJKOBak+hL91dy4EiOBmd0vgIuarTNG9PlgLBW7+85YQWszDvxWFiTA0us PSkaEgo4EF4s/EmFA7uPO0KIogI+zO7JLZzPgdEhzBE1UECTied3O9+NwfEj cwXKKxVQqGWsaaxyDMSFKsp0jRXwi8g1k+9PxkBbbdXH7WsVUH9Q5otTwRgE b9eZub5BAWt0v0R9Pj0G/NeKO0x2KaCjUT9bxHQMora0+m7yV8C4Fnaclv4Y UDrTDnjvUcC/rNDr+kvGQP+3VHzcfrK8aHTdsMwYHFwu/LjxmAI28p8lSwyP wmT2OHVvmgIa29A2+aWOQnPCgar9lxRwe9LGQerpUSiL4O4PzVbAgiue4vfD RyHUdeTDiWsKmOhF/LrkMwrjij1RqfcUUMPDYZ3XilHgZX4Ze1StgAeDxyNH P4/AcEZJtcCkArKusUaezA5D54Xg0IztiiglYNapqD0E+21VG6tElfDd8OW1 Ekl9YH6+z/uzuBKObatcf+VEH1Db7/A6pZTwUpp3i0FwHzzbvUpimqaEZZ8F Eo9u6QPh+K02uoQSKh5dmeov0wc5NdEvL5soYV+T4hNqdi/UWQzeCd2rhD/P MHZFlvZA7rn7q6ODlTBocMn4yfweONB06F1KiBLmZolZJ2f0gNwugYE7R5Vw h4azZWdED/hEKzK6Y5TQVCO00cKyB6YrN17adEUJhVUP8IO+dcOStSUxiz8p oX5RFWWW1g0TjvvlBD4r4ZzbgvvGYt1QtXd5YXujEp5qmL/irEA3eGbdq09s U8Ldur2Ne8j3ddpEgeLPXiV8MDSJulVsELh7vfjVHyU8yn/+cfoQG+pfe5tn zSrh9LV1OjmBbLjcpvb1oAAdRcqh0WUnG4yEc/9oCNPx6ErHSsUtbAjamW2V KE3H5KsFYu+02NAmf/G7y1Ky/rWrd/5r7oJby7cFG2iR5ezqjYnVXXDISnqe +HI61i9x1LJ61AWSh1IWv1pBxy+KUg6el7rAsv5ciAbQ8evjBEETzy6Q6d8g 9G8dHbt3pDme2toFXTOil9osyf6vV8N8iy6IWBZfcW4DHbMOTCU/WdoFD2Jj F45vp+MVE5P6iV8sOHnZIrvOhY7lhhK3lUdZYFcqqHPTjY7EoTeHortYMNQV tc1lJx0DxI0zRN+zQNX0RM7LIDqe6vhaIX2VBWP2a/Qy99NRQ8N53DCdBU93 z1SFHKTjz61hR7LOscAxI3xoURgdA6//ll8azoKEH4dXnIuh40370ycCnFlw O3AywCmOjvStiw7UbmFBdW/oFcZZOvJ9L7rvsWHB3NdDC54kk/0J7XwcasIC +pafq2PO0/H60n881goWGL87GLw5jY5D6WPliTosCHkW0tqXRccnJw1jyxgs SF7xQ6zkCh3zLtY76iqz4M69A3jsKh2jFq2y4cmxoFaDH2p9g45zs0lvJqRZ 0Je7v1D6Jh0bxsa1UIIF8xR4nR236Xj7xemBLyLk/M8HyxTcoaOxmb/LHSEW uMTsO7a2hI4bj6X80pvthMN/x4pFH9LRoEme0zXdCRcOB/U1P6Jjtvg+3dZf nVDEHVW49oSORhNFhPxEJ9QF7N209zm5/k6zWtd+dJLvp5FTRi/p+EkgrOQg rxOEXAPL572mo+6rtbQUTicwmoZHPr6h4znPkFeTo52w1m6PWmYNHdPu6lJv j3SC29shh13vyfkczArLG+6EsLW745d/pGP4qXr70aFOSH88WDFdT8eneVyh SNKlegE/qr/QMfiW4pQn6YbCAY3UZnI+TvuTzpEeI/xd3VrpOD9KSmcB2Z7I lf7kxd/ouJ6vaPqRtAbN782PDjq+P1Sk3E32b57cN1XRRcc1rWNGlmOd4LnQ Vzu+h472gxPcSXL8x6J6vR366VhxYKDwFzm/zGmfdNUhOupg90fr8U54dLDn /fAIHZ2JBS8GyPVpHN05V8ahI6c3pKtlqhN4vt0GUXw6XrVfnyU/0wniLO+A jT/pyDC+uaVwrhOWObMvy/2i4yLfuwGJgiyw/uz1ufs3Hd1uhFu/FmZBZJXn 6rA5OmrGc8YYFBZcMWXts5injC9f1e+wpbHgSZnHDUkhZfyipa+dpcSC8Vvu YjdFlVEmR+5TtgYLpNQ74IC4Mq7fvsfWTosF2lluoaZSyng+Nm6eqj4L/M+5 dn6hKuORoldRDDMWtO93KZ5TU0aRP/Fr8p1YUGns6OBipIzF1dvLQlNY0GLC 9PNerYyBZ9/av7zEgtE140d2r1FGqXZOm+Y1FsitS80OM1dGrYW+jXsfsCDI 9mN35mZl7FD/8PDMVxbIu1oeaPdXxiXuWTDN7AJtd9no7j3K+LxMvsNleReY e/ZcHA5SRp+ta5XajLsgyCfq8fRBZRxaG1VouLkLqgIr5hQjlXH5sWfbvSO6 IPiYYZLrJWVMil404dDWBbEn5l/1yVbGjT/uSab3dUFWZGNJYI4ymrl9ih7n d0F1zIHmiDxl9F843CiwgA1Kiffol4uVMdg0IPGRKhveXll053utMroUtXrn OrJB+SW11v23MpYsnK579J4N2ikdHXozyijcVVra95kNa7zzx4XmlFHeMktO pY0N7oKGqvfnq6A477rAnQE25Fg7HJ6VVMHcTbkiBkLdoNpwnpmroYKGLmo4 hN2gzpaM6tqmggF/mOIuld3AFBRd7XNfBddqm0tdbuyBLbFdc7khqnhu/WYf tO+Hbfd5k8dCVTFGaWFBrms/OLX8G3M5qop/JE9azuzqB/el6t9lTqjidV/d ZcVH+iHwo/fjuHiy/K+n0b/L/RBL7dkffFUVF5SOLtAZ6Idn+X1ss0+kS84W LgobgJefJlqVPqtidrk/hzg1AK9/CTVMNarirPqGauWEAXhno/HiQZsqRi27 3yh4ZQC+jvllafSpYphFnnDGqwHgGw7aS8yoYspe25C3CwZh8dvhqo6lanhH 0u7U/aRBCNv6zO2ulhoWWK349j59EOq+J0yEL1fDeprthq6cQTgwrrVY3lAN HwXnKU/eH4TnasFn7UENJSLPmH/4NAhbI8a31Gwny/+UOImID8Ex3ZmO4mg1 jPcteLEuegjqn9UdPnlaDXuvbrrscnYI1K2vSG6KV8P8TuNJv9QhqHE3w5Ek NUzdFPthV+4QUBIi8xZlke0f2/Vw+OkQ3OqbH5hVrIZJnIF14rwh+JwlPhXd oYZaqxj7leyHgV6kvS+5Sw0LJXN3OzoPg3+VXW9WjxrGjiapRHkMw+xIYkPJ kBo6F/psubdnGDTXSBSwJtTwVDdzxPHUMJjz4rRzhNWx79er+t1Fw3Dl/JnO 36qkq7do64iMwNaWeCjZoo6U2PKYsIoRkISb0VfvqOM99f+uFomMAaumdL+m BAOt7b6t2uDGAY3l64PuSzLQ7eKzS0beHAhK/75bj8JAfL84TN2PA392CfkY yTLwwxargrFgDtDmOTmaKzKwb/Q/K/9oDtiZThu7ajDwUdTqoG8FHHheDIIJ Zgz0VdfZdOsnBzIzP6YN72Ngl2P56rpILrgHeFzctp+Bpa9dDe/FcEHdiHv+ +QEG/rNVnZ9whguFTVIpSYcYaLxESXJNCheeSTqc1Q9n4Im9Z0PCc7nQEdt+ IjyWgVEtu7WcKsj/DxnwF73MQFupdY4nJrnQB0f9Dl5h4Cf60uwfv8n7vqSI 7/ccBnrTRtb4/OWC/r1lO+9fY+CIrVyC8XwemA8GudnfYmCnVNm3JxQe+Hr8 3JL1gIHBH5bILNDiQYGtwOpl7xhINC1488CdfC91GN8qec/ATe+S3Ua8eLDs QIiscR0DLVtfqqvu4sGdjB6OdT0Dm1kyqkf38OBeb/UN32ZyvN+ivLiHeVBy 4qz4NTYDXz5c/JWTxAM+pSp8SQ+DfH9Pzbak8kA//89AUS8DKfMDFz6/yIPS D3tfvxhg4GYlg8JDWTwok9985PsYA79EW+XdyufB0wcybLlpBt7fq2Ur9YwH fyw3bsr9w8Beu9F1+RU8MGmLeabxl4EMzfUNK17xoGJuIs3wHwMFD39JM6/m wcuNrbbbFhBYNWXmI1bPgzmW1ON2YQJ/3WjX2f2ZB3DQZtFOEQK31eX4VzTy oDLz6dx+MQJ3GufqbmzlQVX/5YdJ0gSuET6SIsjmgWB4szpNlsBJZTtDeg8P LMQlkq9QCbz5Z72/Vh8Pqg1O7r4rT+CH4uJTBkM8qIn0VnmvQuCZmJXCHTwe fFDUOCOkSWBob/3bq7M8iKe6/grRIlA6ITBd4R8PrKVS/Lq0CUzNKFOzEuBD ldC0xTNdAusL3svfm8eHp7yPAgdWkv2t/r5vixAfjozMO9BpRKBrUVUQj7Rh v1HXBmMCtyZ09Z9bQL6nv117oWFK9h9kuumZMB8K3oZGfEcCK86KqnJEyPd0 ZeGwjTmBqkPLlENE+bDoOcul3ILAuoyY6z9IXyuxWXXemsCz7b42Q//xwfPu iVtz6wnsDNDZ5ynGB+VbpbQgWwIFTB+ofSF96bLyhLUdgavygwzvifPJ+6L9 rrJNBCYb9mdRJfggcz6ukbGFQOO57IvhpJPj+CV/7QmUMMANqyX5EBdSva/U +f/fY+5HihQfLIOmO9R2ENj/lbu4k7RgwHK7JFcCmwXVZxdT+HDSPVNztweB m57UXiwhvcb5U9ZXTwIVTSOd+aT/2AuKWngTWNM8XaUtzYfD64MGVXYRaL3u 2aXLpA3Mrzud8yXQXXKdUD1p/pqWt7/9CGwbEFebJV20SmylfwCB39a/HF4q w4cgA8xv2k1gbNGknz1pTZ3DsusCCZy65JB+hPTQkjvRRXsJdDgVFp5J+hbR 9YO+j8Dng0LUx6R9Vag7zwYTuNkmy7+RNKFg+/nXfgJ11VsOjpBmy5wE3xAC I8fcTP6RzpV4WPTlIIEemnUvKbJ8cBcZUoFQAsecquepkVaar5J07zA5f96g kCbptln7v4pHCbx+oOW9PumM33F7z4QRKOqit82ItMPP598mwsn9Q2RcXUWa wuXb+hwjMHNTwcOVpOuHNJ42HCdQ0Glhqh7pxF7XpWYnCRR66mC0lPQGVsql O5EEVv7UKVAmLdJeLaxwikDnGKNBCdI1TdOHT0cTONwnMTlDjj+2fnn/eAzZ frpj0wBp8/e7HL1PE3ha5m5MPemlk2FpNXEEZkt/zXpIWoKR3KwdT2BcXmt+ OulxuzzqxbMELtAzvRVKui3sieN0AoEtqvFXt5J+mf8pzSuRwMet1heWkc77 3NP8NolA36p/kf/I7xe8VGL7hVQCVT6e2naDtKMjkf77PIH5z9xM9pNeHbXq q+dFAnnh9szVpIXadm7XyiCwVrR07g25f0bmH00/f4nAhkKdiVjSDbqJX6cy CbzwdIBvTjr7TPn26ssEQq2BcDm5P6Me1qVr5pDrm9bC2Evar4v9NTWX/P4H 2jeokNZbJebkcZ3AiZ8qdWHkfq8Z8HL6dYtA+8ikYnEyHu7JHM5wLyBwHp22 8w4ZP+fXJrRUFZLxPB+0rUi7Z5Q5pdwj8I3LZdpBMt5+Wok6Ly0l8Mn+nV6F ZLy2haheSn5IoPr7ARE90i9zVrROlBFIu2/f9pCM94RJD+fXjwm8/HCaW7qQ D+o3S51dX5D7W/bk4hQyXwh/qb1U+ZLAACW65j8yn4z+7WhdXElg8DDbK4h0 ueNCl59VBPZEiuxeO58PdkLuLonvCFQbLKW9JvOVgV5I5vh7As0STn1VIi3v HtfmUkdgfEDY7d45HvQ8LHHRqCdwNmQ5U/cvD8J2LdjxsonA9ve5x2J/8SC/ qmgHn0XGv7S1l9YID4Qf7hU5zCbwaqUw+pL5dHfe0sfT3QRKjVd0ZgzwQCv2 BnV+P4Ef/5Z6DZP5uNQqo4E2SuaHy36jFt958PrdCSvTKQJX2vclN37gAfHU ZOLVb3J9JBuohe94EFs4dcPyD4G/Gx0ywmt4YJMQIrB5lkB2evNlkSoefN7o 99x7PhNfjGxT7XrCA1a9nX6cFBPLGObBITd5gK9E2f9JM5FlczVm+AYPbhTX JKfIMLFy1qTJ7RoP/FJxLJPGRFWDVj3dyzzyfW14+y6diZ7F5g7nyfNwppmu 8mUJEwU39V+3juCBwvcREWVkolOOQ32qLQ+mDPKfxq1joqadmEKKNQ9aEjwC f5gzkfdtoDbeggdpJp/raqyYaCT4xj/YjAfS2Y+SQzYy0d6D8UdQnwf/7Yii 1joxcc3BBegoz4PZFpr6wX1M/BLRl3ifTd43ljd87ghmYsfRwWrVTi5UxMWf Wn+AiQ757e/OtXMhwmimR/kQE+MmLdftaOTCr3T2zdowJh71tN1U9YYLfMe7 WiqxTPxzJDO74SYXehpx1btsJuYsfr+Z48+F3KUb5TyuMPHadATNz4cLO05u n/yRQ7ane0G1zYMLn5cFPqRfZ6LSXJ5oiSMXXkZd1N1/m4kBL0xfLTHnwuXl A0vkypiYd/zAGRNlLjgmnFPw/cRE+su00+KfOEBhp0/9rifXV/6N1mQtB+pW XmtJ+sxEnXz+9fYqDph3l6U9bmJibNpfqYwnHNAzZlHEvjFRw+9lcGceB8QH 9ERLB5i47qSq3J1wDrwzNR2yHmKi7BA22IdyIOa8Ve33YSbGBOtenSTvh3/W uJ5ewGGis9iidH1fDgxdjJm34ycTW+nbth/bzIH84SQ2Z4Lsb14FCtlywAsy X0X/YqJCmIv/WQsOtIzcO3FvmomUbR0h8cYcuICP3dfNMPHMthxvwRUc2Jzx 2rTlLxMXqlpeDtPhwH9jdUp755ioGGO2eHQJB96ua5n+94+JG7f+WuBKcOB/ UgTBiQ== "]]}, Annotation[#, "Charting`Private`Tag$38284#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3k8VN8bx+17GNsYyxhri0qbQnGeUpJUkqVFWUK2pJKtlLUka0WW+Ioo ZQtFKtc6thlb9nWGCQlRsha/+/trXu/XPeeez/N5PufcM4p210wdONjY2Pi5 2Nj+/9szd2InG9ssYk9Qui1n24qowvmRJwVn0aE6U5F71q2oSF108rnULNo1 5Oo7dLEVRTm0p2tvm0Xk6rMtT863Iv1eC4mb52fRdmf5oJ4zrSivwnrxW/Es UlYz5Ww80opCo69/aXKeQw6XnT1PbGxFN3LaSTK35lB42IdaI9VWZNOw28sp YA5dipuaOqzcinQ4F7ZzP5tD4o7iXzQUWtGsl1+aXs0cKho9bj8s1YqsLgUH vyP/Qo2nnJqzuFvRrm1xx559/YXSu1KUcipbEIf7Htne4V/I68e0hefnFtSe 93VKZuoX2uvJL6tZ0oKu7xCLSeX6jTyY6aZpOS2oYHd0V6bmb9S9xfqe/LMW tF3n4eXiZ/hz33/NhS4taMtRf/+2C/OoibvN4JhQC1p5IHdK3GketT+L9lTm aUGN9Z8o5p7zqDqFtGthvRk5G61U90TMIxvuGKvQ383o9QlvAcaXeRSlz3PN qK8ZqZldfzaj8AcV3ZYOv5bVjBRtHd4Jsv6gTf1fE1S1m9HA4Phj/59/EAiY C4Xvakbx5108f678QaaumZwT6s1IwOzavq+EBeRYXeQfQ25G8wa+X5LQAjJo uv/fE85mVL81smFz8gKa0OZJsqPRkftSMfOo6SLCHru4KJ+jo0/RXGIhFUso a1eDzw5rGiqMC/P73LSEnhVUHlKwpKE3yUKj811L6FgLbxvvKRpKeiVR7DC9 hH7O3NGh6tGQD6ZicVRmGR0rETi4JE9De38eThLwXEbb3YrldvY3oYKToUqx G1cQ5gjCCyZN6OUGnt2pUatoPlWnj7a5ESmFxGTEJa4hgdne/NIzdWj8u2bs 3Ms1pBF7cF7fsA7lnOq/e6JgDYm5HeysP1CHNGXVznPXrSHpFv6rmGodMiz8 JHprHmejL7+tF6noKmPM3+zUOpoUz7/onkhFuwwiXAvOr6N1kyTXJ5FUtPB2 5zkhx3XUVScvVRhIRQHed/bU3FlHn+2mYcCZih4Li/3Y/WYdBZzInx7VpiJL z5Ke6PfrKOqsFaNzGxXJ9VlRf1SsowspL65VKlJRZuarFxnd62hPx/zlUH4q chE8Eb0+so70qBwNF//Vou3Xf925MLOO+H69btSYq0W/u565lCyvoxjLcadV Vi2ySiXnPORgg2Zm0a8ffbVI7/Rc+j4+NhDhEEuI+VqLKFw1id82sAFTik1a j1aLvjk7PzhIYoP95IhXRV9qkbtmsd2yBhuUZ1zm5n9RiwJpx0jOF9lAIFz0 s5VzLcpa8bxvWMoGn6ptJV+z1SI/bGyfRzkbUD4fvDuyXINOhJz9/qyGDU6/ kjmx8XcNmt9wwHi8lQ3ELErkWr/VoEOKnGL3v7OBpOTz4NSmGjR0NDalWoYd lEjiHtsTa1ChEOepHxR22KUXpCXypAaFtnmyiW9kB1GLSceViBq09cLZy3a7 2WHzpcw/PwNqkJ+7wmZ2Y3YYbKH2WTrXIKm43GI9f3Yw1C6pljlQgybPKTg6 BrMD76P3P17srUFfyLHEqIfsEN2S47t7Zw2yf+3pNxjHDuw779fdUsPX/7Qf 7uSxg4M5a4s3oQadHGlo+jjMDjtVTope/V6NQjXGRvYc4oCB3m5z1RfVaKm0 pxsZckCaZON/QinVyOVQE83oJAcotd/7+S+hGp00L/hgc54DrOmaaWsx1Ujq tl94xA0OwGhNBj6B1SiLKryLlc4BG37+99rYvhpJm7Bv/PmaA97ubTzZYVON wnt/y67kcQD/esmKw8Vq5D7Vwy36iQNWCUOXX1lUo31iGb37v3JADZjdTj9W jeov7gt8wskJY5UT5b47q5HO+GavVH5OsJY8XvliezXK8ZBzzRbhhPjvHg1f 1atRTDC7OSbLCUiC94e5WjU6l9206cduTrhx4+LNdtlqRNtVLr+gzQk9Tf0Z RqRqpPe5QIwdOOFvpnwfTaoaKbXE/ZUy5oR7Az8sfxKq0eS8deshe05wMi1M yOGrRlZ3TWtPuHDC53fGi5481aiZ90jZWQ9OaI59c+EoVzUqlNny0v0OJ6h3 FGgKsFWj2zDvnfSUE+ptx7fzLVWhmYYxt8wkThCoS/lEWahCNmd6bQvSOIE/ l3hSf74KHXYsP07N4QRYNQ/Jmq1CQhFhCr9qOOFp2l/Nb9+rkGeRm1xcIyeU GL9cd5qoQv19JiStVk4YMagJ/DNWhd5sJonf7ecEQ9Wr+ZtYVciwLptH4Bcn XAi3K1gcqkIFM5GcuYuckJdF060crEJEqRtsJv84gY+QH/xkoAqN2eusxPFx Ab1lQMu0rwoFczRNKypwQeqffkOtrio0uTl/skaFCyhBfElHO6uQ6ekn41e2 cMEbq9wM644qREm7wMzVxOevWjOy26tQWB0aMtnPBVcqrooPtFXh56Jy/2/g At6vv9ekcC7XnerQNuaC8yNO61ktVUjNobVt4DQXCA1bSvxtrkKREcXN9yy5 oGYzxjyH83xRQpPSRS4Iqkq9UkGvQlb9d+pr7bjgSPZCpgbONRy2tU5OXCAy RH3+ilaF1LccqRJ054JhGxHjTTiv+Gz4fNqXC2JM+Dv0m6qQXdpc6fxdLrj+ pSxnqLEKNdR1vn8WwgVnfVi6QTjv+PmxUCecCwwC7z/YjnOCVGr+YDQXaPWk PRxtqEJsekE5AXFcsNN/9+EXOF9xcMxWTsbZQ6/kCs7NEUZZ1DQu0HxXObIX 573F2zOcs7gA4AtVGOfUfrE0oRwuMJHfeflnfRXi5lx8nv8O98tQvrQHZ7ct /YmmJVwQXBlY24hzx2ks/s9nLsgKu/SoFucDvhlPEqq4oDmliL8B54y0BzH7 67lglS0QOnEWqHeNHKJzwY5CqsYkzjd+ngoP/MoFLu9Cunnx9fuk9jxQ6eWC 7LWyfdtxPqgnHVI3xAU/E51NLuL82uFvgAuLC/YHxyjG4SwayfDfMMkFEWUa bztx9imu8Sv4yQUsdHSajPsz3P/a+8wfLjgo3j3ugbMBZ6TnwgoXvNwznNSE c96W69cT2bhhw0trHg3cfylTc/cDPNxwx/bslmSc/X21XYcFuWHOrYFHFO8X K03eKYjADW7UwuRInI3r2R1UidwwfVXiuzje76Kf32zr5bjB8/LMTDrOMsTG S65K3MD+CnJ18Lx8d3h89t02blCXPnkmBM/Xof8kRZt3c4MPbUvGkdYqlNST UDepzQ155oJ7CHgejY//t1fFgBuGxrql6/D8vgxRmgFjbuicqXZ797UK/fuS mXnRlBs+NhWxZ+F5z9uRI/HsEjcc5PpvJhffHzwuGrQie274Zp1kUNldhawz CoNbXbjhVkzi8FAP7p/Ux1/83txg7pHRodWP92O1tvVONDfIqH9rvMKoQo17 joUlxnEDcfv6FjqzCim709CHZG5Y55anHRjF+89oz/v5ihti9ti36eD7fR91 OMKughtKIigT76aqUMy63eF7VG4Q2nfOxHmmCk1oja0m07jhxIe45S34eZL0 dsqls4cbonfLiNB/V6G/McuGhnPcIL35tEHEahUya7zD5rDIDbV+rz/E/atC uZxspYH/uMH6BadT9noVuuTFs/ETPw+YXq2N/MlZjSoviHNvV+KBA2ze3xaE qtF9tW2V4md4QFXsce0cpRoNWRf47DjHA8GFagb/KePne+LuHSeseaB5I8Zr iZ/PE4I6/9135QGl2NUT3/Dz+/icgf9yMA+0XUofu7OvGol+ttEeLuaBg2Ov DBNMqtGlJ51LT8p4QCP+q8S7M/j572JUaljBA3qGVa3t+PfDkLRnX2ETD9QW ThB34t+XAC9ezdARHnB/cW70rEs1+rkjb4e6KC/s+Nbkbn6/Gh3gU54dluSF gyUb9/17iH+fhp/lP5XlBa9HBj9zI6uRWlTg9jU1XjDUoW/fEoev/8Nsa5su L9x/tzYZ+RI//zNXN3q78sJNnl+WHLXVSM7fY1z9Oi+8XfGX027Av59m37IY XrzAM0dr9aFXIx7OFlWjIF5QYhXxiXfh3x+bdGX5RF5YGM18XzhejfJkjilU U3lhg5EM139CNSgyOl5KRIkPzu4YN2s5j98P1CNIrzbyAXvOqTP+1jXIsS5Q Dm3jA1PGE89N9jUI1t2UrmnxwZ8b+QpeV2vQL3f97S0n+WAH7Jb+ea8GWZyc PRJ9mw/u+119bPmyBlE2GN0S6eSDd+45bzl+4PeF8H9fRcL4YdXM7HrltVoU o/U4VjGKHzbbXDQQ9sTvU2Nqp3Y/5QfrkNOfLX1q0eZDJo0WafzAIK6GMwJq UdpyekVKKT8cdD1T1BBbi6KcDHPVv/PD9WrpHSuFtcjF4Mn9o0YCEKe90Pv1 Vy0ynN94+JyJAHx0sKMVL9QitfTP7K4WAsB689H68UotYv77difKTgBOB2x2 1uegorPvtW52+gnAA0thXn8CFRmoDFlffisAjiVT7ic1qEiRY7P2PSFB+Hbg 74yzExXNn8hf2yQmCGWJFxgZrlRUn6hZ004UhGAPo5E+dypy33nolJqyIPx4 1EWEW1RUZnPBga4tCDJ+r4+N4/dfUywyVvaKIMzv3l3/OomKQu78+l5SKQjP 5Fk7lhrw+2+9T75tnSBgpbv2dNCoaIvEuqcgXRD66KKGuS1U1PpWkM26RxDG HW6/sOjE78f9KlI8PwXB5oSA7H0GFb3XtjxkJicE9GXhzWcXqGhs4VPSrJcQ JNQXFdQr1KE3ZkwZCX8heNqkt++OUh1yL+RJ3hcsBFrTA0Zb8fv94tXTyXej hcA7wpQUtKUO8X0bSxZ6LQQ0HeUzXJp1aMtXQsqmXiHotTivc/kYPj//yn82 +zfA7QiF7vBrdWjXhkiFkIMbwN5emK31eh1acCn879XRDTB/XvQDwbMO3VP7 99/MmQ0g+PJEQ7hPHYpJeZx2x20DELJyI84E1qHCR19eJKRsgABnzgfocR36 c0X8Zev6Bhib5jYKfFeHzoZ/vNLNLQxf7tgHniqqQ2U51upDgsKQN9zhIPO+ DgXMvS38QRSGYcUfmlmldUjo9uFKnh3C4PNs+lccVoeUom4NHbARhqijRoxO Wh0KLZBN13cUBh5p6oR7cx2aaK90MHIThoTPZ1K5WutQHlF42tJHGISCXoqq fa1D2i+yVm/ECMOmNVmxg711yKS4Wzq7QhgMPtmFdbPqUFGX/0A+VRi/z67a 7h+rQ1LLymkfaMLwuChrInm8Dg3oemys6RGGo393/jOdrENX6vj2Ds8Kw/hd sn7izzp0t0/7jKSiCAgdO3Xo/nIdYv4dlpLbKAJ1z7mni1fq0GGF+31K20Qg qYZ+mLFahwTs2213aItATMyT1a1rdShu2sXj+GkReE/6E5rKUY9y2J5HBgaK AHNWRHhEoB5xVe4+R3kgAqeu+nc0CtYjq8AmFSxCBCR1Wj8UCNWjDRyrn/4+ E4GCGtWWm8L1yJ3z/KR3ngiIpsac7CbUI2r13HupYhEwTNk0/1qsHpFDHga+ /ygCPVOZ773F61Ez10fp3zUiwOVvEiEkWY80eKSPuveLQLitQ5i4dD0Ko+aL bWCKwKPRjRuacWbcPzr0dkwEWO9bckNJ9Ujr6HC20ZQIPOuxctGRqUcxvN63 vs+JQMbxlkNTOE/UCR8MWxQBPpGN+5Jl6xGEZQlt/CcCVCX7o0fl6pGxisKU HbsovMrcdGT1fD3y4fpxeheXKGgK7MoZ6alHL1kfSth5RWFcRq5c1qIBtdYE ybfxiwLWPeaX1d6ANoXKfL8mIgoMc/KfgoZG1MttFJArIwpi9pJTifk0xDMm OXZHXhRku7jMbTbS0S4q87gxRRQU5jucfFLpKPy+L/GHqijE7yHGpoQ3Ix3e 7LxNO0Uha5Tw6+K2VpTExzeYcVQURhO3G6lMtyErQap2kqcoPHn6Wvi0eicK 9GTeyfIWhZXpEUEPm06UNfgXK/QTBc8/f+9uiutEP/N3GzQFiEKGcCvV4V8n CjJ7Yfo3QhTUXX4NEBq60KuUO66XMkUhsXaj8o4TPYjGk5Dn8loUfNgu3h27 3YNmrxXNeb0VhYvfr5/a+6YH6Rya9I5+JwrRtTpn0rl7EW3MMqTiiyjMZhky 35b0ol8au1OUukRBV9icGMrXj4iJJxnbe3G9W0Jb23f0owMcLsr7B0SB48/T 9Y9n+1FoR1r2mRFRID09g5m96kfSvsIfQmZE4dqqce0nNIB0q743j/EQ4K77 jh+nLg4iO3Vusd/8BDB2u8CheW8Q3X9KMV8XIsBmacfoorRB1Opo2U8UJwDy kxH0H8HHC9aOGyoQ4OaV9bCDtkMozCyN7e0+AlwY+5gac3wYvY4oPhqsQwDJ 7+e89zsMo7qa+qgLugRQKqKsRtwdRjyac3JC+gQ4maLEpVIwjIIlD2lfPUmA GdbqhlheBko/YRFw5DQB8jnH1djFGagq1KVO3owAivcd4g6TGYht4bF58zkC cH+Qu3lkDwPd7Rq9ruFAgNnKmzs1LjFQqvBSKa8TAeTXlhe0nRjoi4EQG8OF APMp4mLSNxjo74c9UTEeBHjLx37sZCgD+T4LfTN3mwB7wms+pmczUEJL4lzD XQLUjn5TNyxkoFLePK30QALwvkj6XVHGQAveXVTTBwSINCgP3trEQJ5nN44W PSZAqe5M1o/vDPQ0Zv+WiDgCvC9+U6s+x0BF9aeu2ycQwCp6RRstMdAvLZ91 iVT8+TUzZQY3ExGuRxhMpxHg8q1LCVeFmGhHdlpkbQYByodW7ZrFmOgaqUHW K5uA/3+dXeJXYKKo04N2J3MIMOJhWMNSYaK8h3PZavl4fU67vz3ewkRTyySt 7mICyIRUb3TWZCKXPhczrQoCPHCk5f8zZKKHYveSRasJYCqNbbx5goleGz0Z maglQOO2I38+nWai8bJPHolNBKgOFoytO8dEPL9bSq43E+BQzXHr8ItMpKbO WjvWRgAPJ4Vgii0T2ScLRa50EaClP6CJeoWJQr5SOtp7CcD1Vni2y4WJMgQ1 Zd8OEODboIZL2VUmqtI/Zhc8TIAbnizt6x5MNHL7YvaFEQLkuW+1Xr3BROzF 12d3fyNAHI237+wtJqJMhe4TmiDAliivNw+9mQhUku6yJgngVuTTGunLRNZW ebWfp/H8HRA2drjNRF7yYpNts7i/bOTqnf64X0O3hMd/E0BV8G19w10myvqv d9ffBQLkXHhvtS2AicptdC0JKwQ49uvAPatAJupSfHFb7R8B1poP7rAMYqKZ Ea60/WxiUD9XfU0+GPfjpVONCacYvDlfrZuPM9mBNuHAIwbp/JAkFMJEe9V2 bLjNLwYFa9qhmjifHH+yM0ZIDLq0361txtnx9aJ5pogYED5l8kzi8+86X/Ar ExODy0HElFs4x2/BUlskxYAWzVNFw9fP+6FUzZIWA+PRG7d+4vqoOffHl2XF YOSOVckgrn/o6qSgiIIYRFlVP3h2j4kWtp/coaIkBqeDXo3J4fUKz74z01YV A/UZvo6rd/D+vZP0PblJDGTTxk+F+zGR3g3flMvqYqCUoH/+hg8TWewerPTZ LgbQJfdb1YuJ3OdhLHKnGHievymTeZOJUr34NEr3iYGCZoIEjzsTfdjndoau IwbPHjmOj+P9bl5q8R7RFQO1TYWGcXge1vyeVQgdFoPQ3ZUfTG2YSOrAKkvx qBicTQ+ptrNiou3/LvHvMxKDg5a1l/TOMtHFe2qmtiZiYPmkHM6eYiJPCPfy OoPPl/F+EG/ERBHsM0mPLMSgYTzHKu0IE30Ofj/63koMHpvFFErtZ6KOwyS+ JmsxIM3r7g7G8z/F7b+VYScGJb1Ohz5pMJFc2OFbAs5ioOm9VyhKmYn2HHud qOAmBkSNXuomeSYyFhAq33NNDIS3LYtESzHRnYivPNa3cH2rBSfK+ZhoIMYu oShQDD4w1r1eTTLQ/Gnq5/oQMTjZEJGZOsJAQuJbmIMPxGB5Md7Oto+BDsTN beaLEoP4jcphxxoY6HliwCerJDEYapEJfPmSgS6kpw5xF4lB3uEHW0JP4+dd bdVLoQ9isH5g4YaLAQNt+T7mIv5RDILenN4uv5+BljQ0FikYrv8b/d+kMgPF fcFEDjTh+gpL1k+NDaOWHgbcGBUDQ69kyinRYbT3Lxev75gYvN/AJ1L/ewil Kmym3/uOvy/6xGh/1xByc7x+LvKnGPiaXtbtSB5C/PPsN16vioFH58cSXsUh pC+inDEkLg6lLWK1vtKD6M2uo87fpMRhZoMw4cWfASRm4aoxRRKHoL0jhy63 DyDG86JPywriIHBU8mxp+ADy33K4Q2KrOCg6ZBlmLvSjkiMO3McPi8PbOM9D 4Z/6kPqdV1dKPMWBXF+RELDcjSLca3aGe4tDW/eQ0z56N5qxYa5a+YmD4dug /fFp3ajwiGwMR4A4FKdcmDhu0I10RKJLTzwSh7sFpjbPIruQUboXP+uFOAxF mjfkCXYip/ojb0VbxGFqY9694do21Fhmd2u0TRyIhSFp8VFtaGvuPfShQxyk 2JjVfyza0Gzsx68X+sQhZnyLWM5YK/K+sO1v1jdxiGBx0pfYW1HPCSOq74Q4 9MkQuBjRLUgHrsQY/xAH2XnVm2TZFrSm8kLl16w4JOjesHmk0YxsiOUzNb/F 4Wtu9tDHUjqq4u8vfbYgDiWZU7ZaB+no/ozECd2/4uC9Nc5b1YSGJhg7iaLr 4mD2aYX/aVcTMvp6kjnCLgHu1umJnl5NKKfW9e17LgkQ/9J4w1G5CQmXht0K 45WA74FaMnGtjSg+8G/KVzEJ0EjJpOY/aECZEqwZ580SsGlbMO04ex1iizGJ 990qAdP3eH4PvKGi84JfdB9qSEBmeOOT92ZUJMIRH/FaUwJC6yQO62bXIt+f R7eMH5SAO8PvrLPMa9CJxrcO9uclQCtMOHj4UyX6c+/mwKVHEjDsmzHfd/sj MlkdDnaPkoBWyZ62fkYpeuNlrH43VgJeK0ZluBqUIuurqn4pzyTgQNhdFS3x EtRwvps4kCEBXbEez0OKilGK5v4z5z5LQFp8ov0P4QJ05AdH45lpCWAk/bOs rH6OkjSdbmnMSgC0hivFVCeh2Xt0iuBvCUjI/+1wujYBJUkkeFctSUD9tbOW b5ufohndbao7uSRhltFf7zv3ECXEWAYIy0pCwI3SSqNcO2xSM2dvg6EkmHBX bk2+8x+GAggjL49LAuuAdYbef2nY00avyICTklCvOHtz770XGLI+yNpnJgkd rvXWOgcysKdhXbFZ1pLgsW5q9+RNFqbbzzYd7CUJVaqtYuFnc7GYAPMMvZeS IKD1XrT2bzG2Z9vtWcFXkkAN5fxefeE91tubptubLQl7hatXjcreY0q7p7pv 5kvC6+a41rlbH7Dib0FC2WWSYCkcvi99vATrMSq4Jd4mCTNhuSuRxWWYgqSg 4cQ/SWhwYZjHzmNYTeWOuPdsUuDIrV5+XKkCc3K3GAnilILUG6kzYkYVWEHd izvy/FIwpaLxajqhAjvkp/XOVEIKBL4venXsrsQchx1kvmyRgpEZtdgrl6qw vOyKqVhLKVieXcnPuF+DHR/WJD4/LwU51eO7JrNrsAmJtwezLkrBYP2yziSt BlMKiIsvuywFH10i+6TEarF4CxcYvSYFZ4VuWiol1mL3OCWe7gmTgv11+ww5 kqiYnPbDcr1HUkCv9JZnllKxMve1CcMoKRibGfD27aZi870TuhefSsFdhtTn LvE6zKngy3homhQkKB4L0n9Yh5lcvLK/u1QKHGRfcY851mPTjwccmJ+koFNX Z9vFwHosvP50zI9yKah+/Ks3Mrkeq9l94Nt6jRTIdLRXybbUY1oChOhNbVKQ W3y6/fuuBkyxpGzE97sUeE0bTpycbsDKpzQ2hExJQe0+DbtLnI2YlVLmvqif UpBYrGO7kdSIxUdGR6T/wf04UjnzTb8RE7C339vEToSy2oijkvGN2C9R4XA5 GSJ46MrPHtjWhIVL3in9JUeEEHHyWqluE6YkMzlWr0CEf7+d3i6eaMJOK1P1 b6kSgdIxMPr5ahNWoHn3H30HEXQIujTHN02Yoc6U+svdRAjSiepYLG3CGHrn z/vtJcJO9813jtc1YSKGe0vUDhABm9fN1hltwtzPz3jcO0qE3LvDflrSNIzH 2uo/cyMiqK8G+A+p0LDUy4109RNEEAlyUzi6k4bR3bK29JgSgTdf8aDNMRq2 9d4l1o5LRGgK5fr7zouG1QTTxHhtiXDXfGHJLZCGWYXpHBy8TIR4jV1xk49o 2KNYqdSHzkRY5gh7uy2Nhk1mNFuOeBLhsVrOqa+1NCzo9YH7pd5E8Ds2Y5DR TMNkct8UR/kRod7Lb1Czm4Yd+3CfsD8Af9+sx0T6OA1jlM0jQjARJHX7rfx/ 0jAfzM59PBT360m0h8wiDXtdr9f05BEROG27bj3npmNAz1l2jsL963a6EihE x3raZDZBLBEyLI8sbRKnY7z9CyFT8UTo9x5YxBToWOqwfVFVIhEf8swxX5WO 7WW1MxOeEyGvMtnTVp2OOU7n6R1JJ4K8ZrD7hr10bG1O7qpsJhGurTmc591P x+IXwpPnXhFhU/vjb9WIjm1fXWqoe0OEowX8ovqH6VjtuuNSSi4RGhMae0MM 6ZgVV6eaZwER3j/qPPTQmI7N8+mbGxURge/hluMmJnRMRUyhcKGUCCPphdpq lnTss1Qkg/aJCE7YNwXN83TsjOyqcEY5EczH7DJ5LtKxSQVnXd9KIrwmbmlM sqZjQSrdrqdqiHD5zP6oOVs6JrP5SJJqHZ63xPg5AXs6VritqH61gQhCk/vn xxzomNEuxcU2GhFWD6vHh16hY8y90aqvW4hg8sa+e8yJjt2oMd75qZ0Il8zH 7CkudIzDVEC3uRP328i5l+BKxx4P1xkye4iAwqb3fMJZ6Wqo2Xw/EQiiN73l 3PD1Vg7Z8A4T4TZzOU0TZ/0wNjeZEZz/Br7jwblDstx72zciiNoKZkfj8+0z bgfDBBH0ROIftOLrze/Qjj7zgwgcvEonGpzpWEj5QpLjDBGsDPOXfXF9EsbF Wb5zRDjxVTdyxJGOZfZeL4yYJ0LnKzovJ17f3isa5f8tEuF37SXnfjs6Rp2f aihcwf3aNvfO1YaOWQS96az9R4T5oRBmEe7nmIgTs4dNGnLPenuxxdIxrxTV 6R+c0nBogtwmZtqM8aiPLq3xSMNijGkgldCCbTS4JKq6QRpGpDTmwgxaMac7 Zug6SRrYjILPPP/Yhv2YgBT+XdIgLHBSfvRuB3bHa+21nKY0hCRx4AduBybE 9blYQ0saPPb5376wuRPbqrCPZq4nDYPxNSFSbZ2Yu/m21RdG0mA+lZxgJt2N zVaSzulclobGWbfa2dBe7E/SLwnXp9IQbpOwO3twEOsI96i69kwaWHYRN7fI DWHFfjPXPJOkwfaX6geO80OY5/nJRv80aXhZeky/9OsQ9os0EhCTIw3rzDP+ +7Bh7GdC29T7GmlwM9PW0v/EwJrDTiWV1eH1l1tP7+9kYHk+9KNYozTkzfQo M2YYmPvZhvT6VmlQyaiWUFdkYlPEyrP9A3h95/14mgKZ2Pf4ghq2P9JgzHl1 8+7dI1j9/e03uJekob0T+z16dAR77ZWjILAqDZPuDgisRjAni9d+4uwk+DD/ +vxq8Ag2Jpm2Q20DCWpPEl7cbhnBqNzkoS2iJMg0X7kVxhzBMv8kP9IQJ4GQ 8l4a/B7B7DufjWmRSHCPkPW3SHIUG30a/fy4KgmmDly5+tJiFKsK2WBksokE Cj5jxhscR7F0z0eLZuok/P5Smqt4axSzM3tgemknCTjbzH4bPx7FGOL3+K7r kqCC7h6VWz+KVXD+e38LSHBSN8TnRuco9t9vv8t++iSwuzk1OsIcxS599SoP PkaCrbvf61GXR7HBx+6e8eYkOMq+ieuZKgsrPf1N9cpZvL4Oq61CGizssahV 974LJLA//bB9nxYLM4g6ptNrQ4Jwg4aEwmMsjHKi4kf2ZRJwYAOl7KYsbFVw X4qfI66HMW7Be56FFTxUYZNzI8G6wjehvc4sLNww+d2UOwmCdbtVrD1YmD2v 2OUv10lgxFVZpufNwkih67WXvEmQHnnbRjGEhc3re3lr+JFgj4mxh0o4C2vm mN7E5k8C3s8Sa4PRLCwooO/RiyASeEZHPPFMYmFW6LTujVASEBb3J5/+j4Xt XaubORRGghneUcq3DBYm+kUvTfwRCUSrAlU0XrOwH7ffn2ZFksBbVTpLI4eF UXW2cr6PIQFlV1bmWD4LS1tOLw59QgKBCXVlsyIW5ldKcrSIJ4H20WyyzwcW ZuYdQ9yYSII3p8gJph9Z2Pa9vA2LySS4xP4oevQTC+P74+9Xn0oCM6ufXOrl LGykaF498QUJomyOL22qYGFfbrgOOr8kgaDwf86DlSwsYedIlM4rEtDsJ88a VrOwG7NnQfANCZrtt1Gda1iYcX7LXH8OCSSEnd4drGVhau4GGTn5JEi1SZJp xZlt2xcz/0ISuFjVsEtSWVjfj908J9+TwId9zFEU5+I3b0rIpSRoPLV+rAof H+2s6PyzjAQ2R0XfbsHZZVOCTMUXEmhNSIcfw9c7PC5Mi6kgwZldpHEyroec FepvW02CQlVC1Rtc75L93+27qCQ4XcUmO42xsHblmwyOBhLs5ZuY+/aFheWM fI/92kQCq0WqQRzux/0XNvovm0lAjU4hrZayMFub7nnPNhLcaHN1IeJ+HlA4 mXWkA8/r553ak4UsTGqoxlKqmwRxJj9Db+L9aLxQWFYyQIIaz9OJ2a9Y2EuZ zW5hwySo5FqwtsD7e7f3P/lzIyRg03v88mMqC9ttGRmwMk4Cg5x3rzKesjBh Ka5dTZMkMGbucdyC52eiw280eZoECVh++pWHLOy5qZOB7m8SLHpHxHH7szAv wvDihgV8/5rOHHf0YmGnW82zh5ZwvzqPBvhfY2E8J/WFAtZI0NXNtGuxYWHX jpHbq/hlYKzpnQg7sLBDsSybViEZsMUMg07vZWESvW9+DorIwGzspqDjW1lY mdO+DcuSMnCwo2rzASL+vjATQw0lGfhMt5UW/T6K9bZIdR9QlYG6j+hPzsAo lkMcdDDaJAOsEEfr3y2jmOkr52CH7TJgURrVf+f9KJZCDSpP1pEB6afHbgbd GcU8hI+dyNaVgWIf9zLXq6PYIQuRgQ8gA04HBqLWLo5iE9+Sl9sMZGDV5vEw RW8U28P9fg/fGRlYITtTzq6MYE364288XWXA3r1CIdZuBEt9lKsd5C4DSodv 7hc/OYJ5fL1ZH31dBpaW3Fl62iOY1GW2sTfeMtC8DkOPhUcwuyCSIjMY1xd0 6vq290xsueL4sxPPZYB2Xkpy2y8GRuMTU7vwnwy8UbTkNuxhYKkmPcVO6TKQ VccIEipnYIcZ9u3Br2WgvKBZ9XEYA4tZ999QViwDDYsSgjEkBrZRryBYjS4D yYXxWTkWQ9i82TUptlYZgNLZK/r496XKdXt2b7sMBFwTCtBnDmKXEnOaI3pk QOh3WPE950Hs6fxr0u9RGQg9Gb994sYAxvb2RT62IgOmFhxXfJ37sOZKm0OJ /2Sgy8v7aaZqH5bco9B5g00WKMfypPcze7G9PKkrqjyy8IrDVjXdohdzs006 EkGQhV8NfadsdHqwHuKT/rObZMEuW+H782+dWNZ2U/dd6rLQx8oPupTQid08 QmAX2i4L0u3sNx8adWLCN6PVsN2yEF45aSmb24Edbn50XRXJQuZ86y4N16/Y u5AQ3l/mspD0dmYrsakVC5+7tftRsCyQy4bsW3dTsVcuf65Y3JcF9Wy5P57e tVjNqOdzxYeykB5w+PfixxpsrfMmd2mULNRNnNZO3F+NXS+73s1KlIW9qZen DHdWYGeDr97WK5CFGK3agY+0IuzW36l8/iJZeKN8t6xVoxB7fMuN1fFeFuKH BTxfxhRgTVdcT7h+koWBp+gP17M3mJ6xs0ICFfcnc9DickISpirpUD03IAtO jWFzh488R4eiWIufh2WB51bPod6XL9AlXvutYSOysMA8bB6vnokSlu3iyBOy cKdX7UyGQQ56f2Ok4fukLNDsnuv97stH7T9s14qnZQFUNT+yPr5DQkM2V47/ loX7SQ/OhZx7jzZbMpKlFmRhVvb3cOnWEmTQat3KXJKFR7Tw8B0cH5HdsWGu 3FVZyHt78tyP3jJ0r+qSts+aLGSX6Rl/L/qMnu8fuqrPLgcJznl3KzaUo9Li i+nCXHIgl3vo1uOGctS5bbCrl0cONo2mi/mGYOhXlpVgJr8cfAq9oq6jUIFE KAPIQ0gOuJ+MUqpuV6CtiRc894vIwc3EWueO7grk+Oj8YJuEHOTHfvrzLKoS 9V47m7+mIAfvNK4tJC1UoQotszNn98qBgdKfpJiCWtSlo+xgoy0HHAFjK4tC VPTjwC8vpwNy8OZaO63DiYqkDsYk+RySA0PuJOoMuQ65HaMxE07KwS7+CcLL kHpEPH/Yo9dRDlJv3uOV2NuEtlqJBzGd5UDpF+lB+8MmdOjSyJPvbnLQxpHv wzPYhNzsAkqWb+DP++rfNQfSUJXL5zXSPTl4bfvpNqOGjtxv74k8/0wOPnw/ URIi3YpC/Dn/s0uSA9+PP++L6LWixHvtBS4pcrC3PUrE/HIrqgn26PDLkIOO oZrjormtSCYiRzY5Xw4c7UU9juq2odrnKm/66+Sgh6LqVGrSjuTKJeqsluRA y/qIVKZ+B9oaPTCwY1UOhu0KJhIvdaADNi9/ca3JgXSdp5upbwey4thDzuWU hwPv+MOE8zpQisGZW/+E5eGikL1IkUQnIrfEKqeqykPPYN+l3K5OtD3tnPaN TfLwZLLfYHC6E+ldVzxloC4PDMu9jFauLnRJ/J3fzA552G62qMa5qwv9Z9na pndAHtK/ZnM9fdiFKAzhgGFTeaiYbmW7sq0b7XjXFVdkLg+xnE5rbdCNICj1 7YOz8vDb92wum1k3slHZ3q1xSR5cwo4oZPt2oxdOJ7YHOMvDjq0mZ9SqulGh tuRhMzd8vkFhf97XblQlMHhu0zV5uFt5VXKV1Y1GctxCWz3lQaB39vkQTw9S mns0QAmQh/mojX/bjvagXVVnfs0HyUN3rpmIj2UPOvRElq8hVB5Obev/ynTs QXaab3dffyQPsyfmPdhCe1C6b2N4Zbw8cEpZrjqX9yBlDn5tu1xcX+WQyYxq L54PytabBfKgVFh7gbarF+35sE8hpAj3t/X2g8uoFxm4OHJnfZSHnKfmB79Y 9iKn9uq277XyYK6H6ZFDe9H1rf01K/XyoJ+kYFIb3Yv87v8qEaTJwzPlU0Gq Sb3okY5i6rZ2efAolz1GyOtFeel3Xa4P4fVIuNrEt/eikr9xF4OY8iA9cNiH p78XVVjkmjxhycOL1ukCjdFe1CYwsPf9pDyMHcwNyf3Vi/rsf2+mTstDRnm1 AsdKLxopF5DvnpUHqlN2vwh7H5q/oc25vCAPB4+MvLcQ7kN/aSYL/CvykOit 2REt0Ye4Nzp9l/knD5bdluJBMn1Iqj++5QAnGfgVBOZjVfuQgmZe1QkeMvzl SYrL39KHNkXXvr/ETwZLuWXL+xp9SFt/PjlAhAy6LSrIWqsPHUoRjI4VIwPd be6y7YE+ZLSoFJQuSQZsX2S2HPShM6d1bhVJk0Fux5JIrH4fsnp72qlGlgxD 5ruelRv0IXtu5wudZDLwZu9Hmcf60FXrgJNjimSI3yzBd8S4D3l9fHZwUYUM Ed2f5lJO9qG74vl7+DaRYaJw1998kz704Cp1I0mdDLmffDbeNu1DMXWDMlu2 k6FnLvLm+pk+lKD4Z8P+nWRwMr/BOGDeh17cFmI33kMG2zFV990WfehNp/K8 1T4yVLx8LTeKc6HG/vGrOmS4H7Py47hlH/r00LTvri4ZCrNlB67iXDPqTI8G MhyZFZw2xJmuG1iRpk8GPfsm8iA+v+tZQtE7AzKkcZ+/vgXnobn8rKpjZLjS UcLaga8/frwu8asxGZ62snxmcX2zmUMRrFNk2LzC2OaM619a/3PvjykZVE7n cCbj9bGf33CTxwLX02mwEorXL1Cs4kg8RwaTBwWELbg/YsIHzm2yIkOA4/dj D3D/ZJ3OGGtbk0Hq5lx6Cu6vSpULMrIjg0RuvdxV3P+tckG7LjiQwUfiWskf 1Ic0vRJV3ZzIoJ/NurEP759ea4G0vysZPF03n9qF9/dUyPBa6nUyCPpQXM7g /TfN/fnnticZoo1DpZrxfFh0rU+d9SaDsNCRRQE1vL+bKP1i/mTgM+40b5Lt Qzand7T/vIfro2V+PSnVhy77QQMtiAwL+9pCn4r2IReaTcn9MDJ0t2g9cOTC +//HI+/yIzIY/PXs+vWvF3mQAzMhigzvxIXOH1zsRd4eL56sPCHDXc7jayrf e1GIxMg19//IsDQm+ImnsReF6f5yPJ5OhpOuCrkvK/H958hxaVMmGTL6Ir9y fexFj0uVjEfekOGw3+0vgq960X9WlzdZfCCD45dE7j0BvSg99KbC7o9kyE4M SRq91Yuy8oKlRD+TYcym8bK5ay/KYXvJ1VhJBusCxyf3zHtR2UsWQ5dOBtUz I44zar2onD7fLdNKhlMPXqbmy/SiygWulsV2MvhlVQrsFu5F9YaqX971kKEy UyggYL4HdU45JKqyyLD39bchTfx8mt0zfnrDKhmefc64KmDQg+YvLhpO/iPD kzSJHzOaPWjxPi/UsSnA42uM53GqPWitZ+P2QB4FCG4OS9nM1YME/Z0E/hAU wDBGTtytvBup1X6vGtikAMbKJi3nN3YjH5OyC2/VFSBeV9+2TrwbNfWHz/tu VwCeieLIpfUu5PFLXY24RwGuT4t/eN3dhT4puD88jRTArKziMIR0IRO/X6eo 5gr4/63Oc8btnSiDu3ri6Vl8vO+7JxyfOtFCzJPAyxcU4KWakJN/RidKfrWn iM1WAZ7t1GVU3OxEYx1eUvvdFOA+f5TwPUInuq2xOpAfpAAfKyfteg52oOay plt3Q/F6mPmHe9Q6EMXgufCJMJxjf1c8F+xAVCtdmIxUgPkXC2E3O74i0fB7 GSqJCrAa8sPi7OWvKIvF6ZKYrwAHz8RMrt1qR0vXOjicChWg55aep6FlOzq+ +jJ573sFiN3kmmCh1Y5mCQb0r2UK8FQPCiqW29B+FLZDmKoAqVt75Wm+bag1 UWgxaEABhAjUWcy9Fcnmbb0aNawAOgUKSw7HWpFjlfFo4ogCLJeS5KnKrejf ZERLwYQCaAsP3XPOb0GG6zlHPv9QANnEp7fv27Wgp+L0T3UzuN+LjwqJki1o y4ENr4fmcf+26rbH+zQjL5Nt5MlFBSjnXCwL2dyMKu1PPP2zgvczb25orJeO hHyvCrCvKcAv9W16Xx7SUQ7VAO6zUYBycGf3Lgs6am+1WBXkoADPofgvP87R 0WKf44dYTgrsE5tYe3SRjg79vL81hYcCARTTx0H2dOS0HD+uxEeBpEsurJ4r dBTJ+Sr9NT8F1l2vxUq50lEPsU66WIgChfPo79HrdLSm2P1VW5gC7B6CZfs9 6Uhl63gUJkKBlLLqdilvOroGvNxNYhT4/GVFIvgOHT01IlaYSFBA18tXT+Ie HZWZbbzdJUkB4TVWVUQgHfE4H51jSlPg2e2ggd336WjrTcucKzIUOHm9+Lpd GB2d9r9yZVqWAqZ7v9r6hNPR89gHg0tkChze3m16PoqOqpKfJdylUGCH7ecz ajF0NJ756gyXEgWcL0fl98bifhWUCIcrU2B2zwlHzyd0tKusrkFElQLUziXv had0dLamOyROjQJjR2JZ1vF0dLd5HMluooB5qFROwTM6etmzuJK2mQJiT8Oa JxLoqGGE94OaOgVkbowf50uio5kp4vWcrRTwUNitIpJMRxKLG7fu2k4B8eeu lv9w1mHXGi/RoADXRMy39ud0ZCNomK67kwKHODOao1Po6L7k2YvVuyjQPP1C bE8qHb1VcJI+tocCma8i32E4t272+dqsSYHGHY5vd/1HRwu7w6LM9uF+PlRn i8RZTi/hWJ8WBf4VDOY343zQ8DWXjQ4FBF7fKVvE2dG0FPu2n4L/n+Wj8KXR UYRVvZ+rLgWEuAIZ6/jzQscezTk9vJ/OY6tDOPd4TMx6Aa4vRetGJs5rfktv /x6kQGuat/4ZnJVD+a4E6VMg72bGtQlcn2G0tBLfEQr0SH5esMfZPXHTYKQB 3r8HlT31eH1PM7QSxA1x/+qLJCVwLss1PJN4jALKPY9zDXA/GCVnhRWOUyCo 5FKaDe4Xd5VTw0tjCmxzJM7Y4v5uofmEbDlJATXW53ijRDoy6QpDBaco4Lbz VJIM3o/fR+P+yp6mwAOvtVcTeP/iP774+MAUH98tofcijo4GnpfttjanwNSk F2f7Yzq6J1w322hBAYnUql1GeD6UAr7m7j1LgQq3W5M50fh+uDy1UfgCBTKs RH/vjKAjwc4llq8VBfr8l/TN8PzlGXCnf7tIgadlR+Vt8XzObybLfbGhwOP7 ss46IXQUMHtK1M2RAh+dEhx++OF+2VnRu6/gfjt+XLb1oSPqV6dwfWcKMO8e lKq+heezJJBL1o0CRM4HE4c96CjBv2ip4ToFcs3H5wzw/bn/J/Ze8yYFZDUO NhBs6WjIhnbjhSe+f1Q4Ntfh+1nl8LcpH28K3Lb5GDiH7/98ASJzoz8FgpX/ PTtsSEemd5RTn9zFx/dGF14+jOud1riwfo8C5DcPza8Cns82w86uIApUpxbu AS1c3zO/htAwCuxv77VkqdGRM/+D+3MPKcC4nPneUgnXe/uJ/sVHeL4IPcnv 5fH3X8r5sicK3z9fbrDvlMD1qQy9G31CAZqt/041NjoKjJ90PxVHgaiWwPbp FRpS4VtU/xRPgY6z06v//aEhlx8iWY8TKTDxZXm8epKGFt4dTDr4H57v9nEV gQ4aEkaZQf+9oUCkMmlXTDoNbbt1Lm9zDp4XAkfnjWQaMn67oa8oFz/fUo8c OvCUhh4RvXbWF1Cg+8nA7eBQGuKbNWDMfqAA/+wx11FHGuJ4MaF7qJoCW92U 9n9XoSHF7ufOtBq8Pwbvg7XkaAg2nI6zoFLgTXl6vLs4Dd3z/Tjl0kABuYhI 2Wh2Gvp7Ojz5SQsFlp6lv3gx0IQWOLYus/rxPN5sTBWKakKS2gyVa4MU0NTm jawPbkJ7rj01WR6iAJaSesTVtwnd7P/7asMIBbj1ByUd7JvQbBHdYu8Ent+1 xF1btJvQpP214gfzFDDSJlxcGWxEQ9TCa1s2KELjl4VbhRKNSHX7UbdcYUUY itcPvs/biNzi+p12iCqC2Tbuw4dWGtDKZS67veKKcP3x2LDHcAOSZLcwO0RS hEu6SoFvXjcg4/3LWudVFeG7pL9z9N4G9CkfcYTrKkJrW0WbAtQjDmLHmhBS BGvLzBOTGvXI8K7TajQoglXS2p3nCvWoyzh2Pk5fEdzOiiyUrNWhX99Hxl4c UwSt99mnmz7VoS0q95s+mivCw7nKvMs761BCAu3p96uKQLkVwHZBgIqsrlx8 YnpNEX7VwvMrS7WIsncm9pOHItD1OcWtx2pR9leR6MibihBBjYoVrqpFZcJn Hu70VYTACaz9mk8tGgjp9fcNUYS/KeEO+5k1iHJ9zJE/WRGMWyppC+nViIW8 HW48V4RtlXX1l6Kq0WthPvv+FEWQZLT89863Gu3M2Wybm6YIcy/Hhogm1ejQ uNuF01mKoHB8+4ux1Spkf/H3qcR3irCBX21v5Kkq9PoYm/bmekWA4yUv1sYq 0MSAVlZBgyJU2t6IaKJXoM0e18W1mhTBWVE8+V5xBXoTPzJt0KwIt55zq6QE VqCc0Zp0+w5F2BeYx8qVqUAF/g+F0hiKUCtAOWQcU45mRat8N44oAuPS8aeN 58vRzpcrY3mjimDEfWg7UbUcFTa6Vn4ZU4SEY7Hash+/oGLiSa/+KUUIzS/J bR76jObf3B+1m1GE7c909bBXn5GmHmYy+VMR1NqipO56fEYf7HeoL/9ShMgD T1Id2T+jj+/EGFLLihA+qyw0SvmEVg4fP5G6ogjPXbn6j0yUIZ2e4DLVv4pw RLtgziu/DN12/bwx958i6JzbaOLlVYY+r80/3bOuCC+anBf0dcvQ39htHJ/Z lMAx/K2EwPxHpKvqeE2fQwn+ahRuq0j8iMqPdx8z5VYCI2H78exvpWhtSKSk l0cJOI6KhA0+KkXohqGKLZ8SULmfs+3fVYoqEj6uXRNUAhep874375Wgqm/J RZEEJdgT7PSwT/YDaiSpPuDaogRk1fgPKa8K0KGGy2Y2oUoAmRqTKSpB2Muq vHOzQ0rAY7qqIJNciPEUufLdYiiBxS2dAfXBQswpY1PJMlMJLOcPWkgoFGHq IekSnN+UwJD7TbBzehFWeCS+RfKHEny5OVSt8qoYq6z3P7J/UQkuB/X0Dr3+ gA01G++8L6IMww4EK9vIMky6f5JPDpRBRrlp4NR0Bba46+XH+weVQdojqu8M byXWFX7RZe6QMqQNTjKPKFZiT3Vam6hHlOGUzLUN82aVGCHpfdT148qwRyaz 2+dTJSZwLkCizkIZanfXaamEVmH/8MvSjavKYN08uo1DsAYbaYd99UnKIPvi 7mgfg4qlbjoudfG5MvjEzi8xlqjYubvmf+ZSlIH/uk5Oq2gd1rrZpUj2hTJw r2lOuUEdVh7wROPaK2VQPjXVlpBahyVvH9soVawMws3me8ot6jGz8EfS9nRc n56cOfrQgIky4haXmpVBghij4tvUgDVppnVFtiqD6PDX2OeMBuwQs/hpyVdl YBxoOpIm0Ijt0BoSFexThiwNX/Hki42Y0NgO/sIxZWiZaztyab0Rq9+/f8Jg Qhkayw//2inehAXHHqnr/64Mf/0eHPip1oStHDgfyj2N+1F5543aySZs4kkw +7nfytAcojYVltyEvfweyZieV4aRJukH2XlNmDVKwIIWlEGDox8rqmzCuiZz /HOWleH5gRaB0PEm7DGUWB1cVYZyYJc3XmnCTsZX7u/6i9e/h5P+V4iGCUw1 ybiuKQNNqlPmmQINqz3Ytby+rgxvJ7x4ZHfRsP8Bwbt8wQ== "]]}, Annotation[#, "Charting`Private`Tag$38284#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3k4FN4XxoesJTMZGVvGjK2i0kKLuKdFFO1I+JYkpLKUyC4k2ZOyK7Jv SbLXRbIrVCj7mt1gbNl+fn/d5/O8933POfeP8zyXZmR56RYrgUDIZSEQ/n+2 Tp3dSyAwkIOu1L9AxThcwfvO/9wmBvJ6+1z1pl4c/iBLGokSYKCAiZUgRZc4 HHCrKe7wLgaK92yW6fgah0/81uF/oMdANVlPtXdqv8WZJdfnB3IYSIR7JKv8 QTx+Emj9qfb2FMIFmaaLWYl4366Xp0N/TCN2kUO/jGTTMO3Grfeb+meRkQxt xNsqGxcFsvF5liyg5qjmlQ2LuTh+M8f+mIAl1Oun7VBkXoRdDlaRaiKWkKdd IInNpQjr3vCZmE1cQjJG1Ymaz4swz0fe1LN4Cd09qPyjI68I2xhQaCuTS2i+ R1KOwF6MT6ZtJxpcXEY8B5kdJ18X4z51jVEh/hWk0BN87NuPT7j4/uZqVfEV 1Fxb1yLw9xN+FfU90VpuBT3K5bC4/u8TPsO4bFR9cgV99nWIYIh/xtmhBr8f PVxB6opGM3wWn7H74L3KluYV9J/v3oQrXBjTPYPevgxfReXCZp5WYiX477DC 86n4VVRnlSFgJVOC08+3uZzNWkW/KqaTLeVLsIKItB575SoavO9cb3G8BKtn F5EeMlcRV22wwD2TEswjeGO1YW0VkWityXctS3CjM8eY3KY1JGS3TenuoxKs d/piZT9tDe2USL5+x6cE3+sedNY6v4Y0HT8l384swftO+d3J0ltDWo2sSrfz SvBc2t6rPCZryEBGvd6spAS72TkdKHdaQxY/mqZMm0rwyQ4aXdx7DdnuEPQ0 bSvB3CcqiU4v1pCr638Cpv0lOJiXb3R/6hoKlB06YjJXgq/Y5LUGflxDYY93 1d9aK8GifwwqRkvWUGzL/eu3uEpxN2LNUatbQym78qeMt5TihISk2Lctayjb Y8XDWLgUm286G7jWu4YKfx8XMJYoxbutp530J9ZQ2R7v5JtypXimOdQ8b3EN 1T6pP3JToRQbxIilP2MlAO/EQN22ihyscnEq7iAXAXqiRiPlMnKwOFt5+MBm AnzUmDJXCsnBA7dvPz0mRADdlGWuq0Y52EIhx2hxDwHijMmqIasf8OO600K3 /yPA3jb4tPHgB5z4z8ZLPZ8AWlWRGfNJ77EDHjxo9ZkAlg/S/k76vcdnPXWH Q8sJEChWRBuyfo+Zm49q/m0gQI3Nn5etSu/xcdoGPq9hAhyjCbkUfM/CnWrP o78Is4ABUy56buIdFniZkaPizAJ8uvSuFf90/GTPYO+B46zwhLr5Jk9dAubx 86ZOl28A/kffLZ/wPsfDt4J13+9ih5jdKVs6q13Q8ddbSd/2s4OYh3RYmpIb imgNqxw5zA7VFo9kzPgeI02N14qSp9jB5JToqR7sjjLl0/lDr7GD/uxNjx/C Xuj+0tcGp0B2OHF5ZiWvwQ8tBy2qq0+xQwbnM3sQe4m0apwIt+bZwX1lb2nM s5coYwMh//EKO5jP/OFaYb5E12w5ZIq4OUCmSy6soPYVKtUns++mc0B2bkPu Pvsw5CW9q5R8mQPybwkyJX9GIlKx4eGuHA7o7bmcx6Yai669+LXwopAD6o4Y Z9LtYlG6+Zl89RIOyH1hkwApsUhd6MDB7FoO8FF9+cJpcxxys+VUeNLLAQdS mi2Zv+LQpHymvCyJE5ysrm7vN4lHR7kkGF1bOeFa9W0qa3g88ukKfRciwgnq dAcB8dp4JB3wePeqNCeI/oxgM9iTgK6Nask1KnPC14Pt3T/mE9C3hCUZuzuc ILB2LfyLdxISdbb6K2vNCQRdy6CewiRkrjWQ2G3LCSNZrk/XxpIQx4bvUmfc OQEbvXmodDEZqRjGSWwL5wSzip6LH4RSkN9BSl9jDCdcok6rN2qkoD+8fnFe 8Zxw9BErTDqnINtPD2mMd5xA2imxW7Y3BWUKn6Z+qeCEAn/jjW9TU9Hy1KdO uzpOeDtow1LanorOVO+LkWviBH/0ZKGTNw0N2olue9XBCUZTCYPCD9LQgfPP 28/0cYLmmdyOQwlpyF2aI2ptiBMU31b81GlJQ2K/JoVvMzlho/bfsmCldHQ3 3fjPtn+cMJsxX5B1Lx0VevwOb1rjhC4OrvffXqcjLv1zV5+yc8GpMq5kdloa 0tn3RfDoJi5Q2nLF7jwpDcVzH2plkLhA3jDhVPhaKpruTg9NEOACqXczW/sm UpF/4CsBIp0L+M4G5djWpyIHWT+hJBkuuNKuncH/KRWZVD4WRbu44PUdkcTs 9FQEa3fploe4YKdPYuiE73qexYnd389xgWplsYPJmVSkc46hGujIBY7HhkGn MgWJbz7zkPiLC3oVjtcrlCajbJ+VH0RvbsgRYw4wcxIRjXXHYVeeTSAG8eRL J+LQ4FxRBMOWBwyz6l7HKEWhWVNyfMPaZuB3GyZdUXmBdH0KTFvYeYH5IEp1 o8gLVJh+XbZzEy+0mZ53+DQfjNym0rJHKbwQff5jn8T7YMTjeLKUQ54XxKmP cxkSwYge8LDzqCEv7PssaODD/RxdyGkRTCnhhdCFwHOOKf7oQ7Nz+7sKXrja PZvXY+SPBBYl3uTW8YJwlT5NXdQftStbyZS38kJMqAyTP9APmVZyKXYxeCFL EYdn2vgilz+HL2+lEaHaZqK/Bz1D6YQo/8ePibDE0HRUb/ZEbKX7r4o/JYLc QuSAVYgnMnhcK4n9iGCwNnI+/JIn2sy6VLQcSoT3m59JjnzzQBYb9EbsMolg svNrvW+lO6r4MvVRIIcIr/byH8p54o7EPJ89/lhAhIpDN+PaT7ijb2wFgjPl RJBRY7HbVfIY7eEQVLNoI0L7TWXx7/luyLviHd/mHiIQ7vj5zNu6oW4vtc60 QSLsvd/GpCq4oUNqXSlnxohQNq31OWjQFQVx2j0cniICnWUmuMfIFQ1V8h7z nieCO/G56b4uFwTeiTwyK0To37bnqIe+C9KUpI4ZsZDgkLKot7btHHrENnpx HxsJ/Gacmi5cmUPx/bl5LJwk6E3pENU8NIcayt23NXKv3zdUMVUTmkPbnwgP WxJJ0F+3tqTcNot+s59xyxAmgXyiu5Ts9VnEMbh10GkbCRwM+iylYRbtq+jR 0BQnQQPfyUIabRb5eNlTRqXWdVf284J9THSEMyVz+14SNOl6P2I3ZaIILq6O t2okcNkUUNtlMYMMNlUcjrAhQblVuHWIyxR6bNPjlGhHAvj6eHjSYAoldizj bAcSfBYyv6GhNIUm3+0/VetGgrKyIxdZFxjIXSv20rLfOvO3y1tZM1BStNOd awkkCLdW7g6tmkDTe/ZH05tJkMGi3sERMoK8td4Q0g5ugV+0/1r6d/ai6waZ X4vHt0AQp+IZleIPSD8uppP9Ax/kkVlYnSkduOxrWTxPLh9I7tBuEo3uwDuH B83JBXxQrJISV0zvxAt79syLYz54efviieVdXfjlJ0w8WssHhV0XypTjuvH3 1m6438cHoQqxGz7l9+ITRIm3nWQyXO455lU0MIhT96ndHhAgw8axOxa+2/9i Pp07e8aEyNA891JH/85f3B31oWiRSobjPCPSS4y/2HnnyZ/8cmTYezC48sjy EM5TvcWucZIMRP9erkK+USzrlGSaZ0OG2kMevvloEvtZlO/1sSPDvGpuC4/L JJ4w7FkycCDD4cvDEjeKJ3G2qkgQqxsZunJlOj1FGfgIMTD/rC8ZjBv9bXeF M/CZOFvu/lgy3OXQS3IJnsLpIS9+5MaTgdf/QX3y+ynM+zQr+lkSGTLJ/jNN DVO46c7I3j0ZZGCIlyAZ4jS+qnBNzyGfDOZK0q3ffaexWZVqGuk7Gcysprlo T2ZwTaHRw75GMnDPb9qjET+D5TJcUe5PMqQ6S2k//DKDGc8Lfuj/IcOYj25s NQsT2+nvWk4cIINJwufD912YuPXsmQr7ITIsy7Zej4pm4iNgGqQ5Sobo7Kkn FcVMvCoZKznNIEM3lmwSXmJiQ8rnifIZMridUlk4KTyLy7jb8kPnyECvvyJm eXgWSy7Pu5svkqHssvXJcN1Z7DXBf1Z5ef09/viYf7GbxUPdeymkNTKw34gP Gn81i8/8ONfTy8IP32VMf9o9HMfpX++kfWTjh+BZHs+J6+OYN9/7oTcnP2h9 yd5/68w4tkpNQPob+YHyXLev7cA4booq4969mR9+X1sNvkQdx68eL0f/4OOH a/9OTyPmGF54IGSWuJUfxKsmY3M7x7CeieI+e0F+6Hv58uKu6jEspmFVISbG D2Z7e7KEY8ZwAn//xO0d/GBv9shyVm0ME4IuvLKX4wcX2aC2SPl1/6ZPys/2 8IPPRJLacaExTGR95ZeswA+RNi3UwJFRbD+ptvPvMX745KbYsN1/FJ+tSbtl rMcPLOFMeYOmETzr+qD9mi8/eFdbTZcZDGPVUdaay+P88Grn7YdB1oM4yE37 rUr8VmAV8rl4drUbZ6aUjD2/IgBdO1FPt2YLnibx+ogKU6DMrzpro3kl9tnq lD8tSgH94oEpZ3IlpguPDFZRKcAcZdk/VVyBL0pUnHgoRYGTGkc+thArcJaC y0q9PAUquNMK4j+WYwu9CStXNQrUePmVqbCU4ZG336702lAgjuV18oB8AXZP PuqVb0eBn4YtO+s88rFwRmpOgAMFOEqIGdnNefh0rtcWJTcKJLq4vXd1ysXJ VSq1L3wpkLp0o1Co6gM2Gc9UUY2jgPHo6bDIz+l4dUr0nkgCBapSCqPMjNPw qzmfyKkkCsiZycYqbEzFX9dMFqIzKHB3gCf1u3YSluSjZs/lU8Cq63vRhvFY 3KMYKJX8nQKEC1ec393zw/fLNfcWNa1zRGhaU5AXZr20Ufnbr3UebPk9+8EN 0+890WK2UcBt4cZvxtBNnP3vuCFn17pePHiXrHUUnfAm3BXuXed3kTmzK+bI +K2jBwxRoEQ7kXTQ3h0x5Q8HXh6lwBtuk16yjjfy/DwXYTKxzp+kchj7AhC/ Zk6i/RQFGvKnywY5g1HCb+tsP+a6/0WTrPZcCFI03fP59fw6W2SHfOkPRRXM sersfxTIUg9e2fsjAum4p/76urLO9Psmb0qj0SDRrKeVIAhzm/6t9ruvYdto qfHRDYIgLdp0oeP0GuaQ7VtY5RAEHbnUuF+kNSxz6hpJarMgxGnqnaqIWcVm TlrIWkgQzvkX+icVruDRIYjm3icIwbyOoubTS9jJdjVZVEEQMsUuWxgVLGEe tuKcPYcEoXO3bIme2xKWox6s01YRhKPn225q8C5hC+1dS7FnBKE5UClNbuc/ zCgVunrkpiDIbVk+PHljAc9GTPPfCRGEKrLzFZtGJv7pY1VmGbqevwvL24Uz cY7DhKVNhCC4q7FsdLjBxDZ6IzXObwRhu+OTYtepGTwt1OsWlC4IUb3+NN8t M3gyrHHsY7kg3H8fMxp7cQoPv8oqJ8wKgkqM21rM21HcEWxh80pbCNp38L5J VW/DlqfFmsq4hSGX1dZHjtGKZFSyPKTrhUHxhJmMhzETMbUsBQgNwqDMM5Rn GM5EZXd2p/xuEoYrv0zVVb4x0bXw9G9+rcLgZ2p6e/HgLAphJgvN9AnDd1+T NMtNc4iQFvsO/xMGnZ/Gewyy51Er5UWb7nYRML5146ACYQkl7r5ksU9WBFx2 91TyKSyhB6pbWHh2i4DXvKEu4/YS4n0QKI33i0DSM0P7tB9L6OQ3X2spJAIj GdeLaEnL6L2nJ+e0tgh4zv2HeM+tIp+ph/t9PUSg6UTG25l6AiSZz5rqeK3r Eoe2d/wlQHmfTRTtmQgobviSXsHCAqu/HrDnB4hAWFnrx3AFFrAutG7pDxcB nWNsVSiaBXQ97jmqZInAHxX9Md+7rPBweewd9wcR8BMbtHroxQrBD+/2//wo AsqrVrPX3rBCremds3eKRCD0k9fq3p+soKJ5mxpWIQJaR7NJrUobQGrrrS9T 7SLQephbQXITGxwP6J8v7hIBH6GQgs1SbHCN01jOu1cE9i2KqcyrsEHYotFL sSEReJl/QK3mPht8vN9bPTwiAmphuPaDHxs0jd5YzRkXgQW7MxeiE9mAp9PQ VGNGBAwOGl61+sMGO650RwrMiQAvZbTjKpMNTjVcb+hZEAE899DoBC87GJ3u YstYEgGzZsJfue3s4Fp27fCjVREQyvW9I3CcHaKUOu+dYBEFs+pbzfTfDJSf 818cL5soiI3n3SeXM9CvXR3NvzlEoY60kcj2joGmEw02JXCLgtMBgzRmOAMR xduRFY8o7NTNVBvwZCC5cH0bJaIotDoS+n9ZMpCJr15HI78oKH6JF81TZaDf lrrvVqmiMPn2j8hM7yQqOaR1WVdRFAY6l7uXn0+g5iMStwwPi8IH1SMO6sYT aPTotK3ZUVEITLcjhyhOIIFjQRGPjovCYYdpVdm2cXT3dF1P2DlR8N06lHpV chxR9E5a/TYRhWOaP2xyc0eRheMBf71QUYgsSOGyahtCop/5Kw0WROFiiI58 n2QfkmDlPmyUsQ28PnpJ3p9vQOc9u1ZjrMVAhxvkKl/lY+mvw2Xt26kgEeb2 cq6wDT+6UKifJkuF4i5f8whiO65t82Ha76aCjUwoUjFux1bTstKUA1T4mpsx /GRzBy6iWjy7iKjg+euP8lbDTnzBYfp8hTYV7j8Tngl378aOe5ba37lToa/C JjJfpg9/K6x96PKECp/N/z3ZeKkPi5+K4j3rTQVfXjcrA6c+XGGgDCP+VDiu 46tKaOzDJB/Xt5LhVAgZiJ1Uc+jHif0bzMPfUeEy2/cTLXUDeMHyJ6tZNhXE k7V275gfwBpL8ZGKH6mwrPFH0JE2iBlbTtX/KKRC/IuBcTHbQayEvOV5K6jA JrEcakL9ixvCeebd26mQc2zH2Kz1EBbJlLsX0EWFLRVbbTteD2GTMs2+8F4q 3DvDSvhaP4RXRvy+Zw1RQeFyGzlkxzBWX0tXLR6lQnBLZbTjlWEcQq4vqpyg wop+jszNJ8N459HNyZ1MKuQa+yvt6xnGthd2iY3MU4E+bP9ViDiCS43Phsz+ o4LrPZPzLMojmMf+3kaWVSq0TV36PWQ+gtMrToEXQRzq/A/D9oa3qKlBZ2kT qzgU+zu/STz3Fs3/Mcl9vkEcCAGlBKn6OHR80ksumkMc5ANOl9JqYpHZ4qu/ dC5xEA/wp71Rj0X+G5LikrnFwTig8bFY5Zv1fVYpmMMjDtu3ffBU9H6NLIGT vZZPHNS3/fDa4RSJop4/7VgQW88TI/sSjV+gssjQMBdxcSCJRWrw3AhGfxOS LrPRxSFMTIKH+9pztK+wspooJQ4MZRNh9qwAVN3LmSstu+5XSRQbDfVCc/u9 A7QOrvdLCI9qj7mNLjR7o6zz4mBY/Lsya+EZnlF7uSxyURzeRFxu2dnui18V xBY8vSQO3Y/qB+OxP26PKtx/XVsckiO63TW/BGGzm2MyvPrr/V/5GQs+IdiN cZ5012R93oairu2CUfjdRkqPjLM45Bh+zVgOT8C8KMH9dao47NhREzKol407 K7Itd26mgcsGT4/t/5XisLC6kOF7NEAl35+nmVRjA9P/XlyypAG//5aWZM9q LK448bzIigZDVy+LJsZV45QfxED/BzRImmlOfNNZjQt5Lz/ba08DXpnOopc6 Nbjd87ezvScNOvzHBlxP1WJx60ET7kgaOOpzH9GSrsf9yO7W/SgaXNiu4Xrx ZD1O5uUyboumgeSsX/k5o3q8N33HjYw3NOgLIJ0/HVOPj/+9q38xkQZnyijG KgLfsPF/M+fD39NAaId0wHaO7zj5NOHwjioaGDjSrFfvN+Ch9kOJWdU0eNeQ nwEeDXiHlTX5UC0NNktfGHF/0YBTX/WOn/pGA9zgcpMzpwGn95XHGf+kAV26 XZs024CznJ/xvOmmwXDDqyN0u0bMIJXZy/TS4Kj0bjvjp414b/y/wcw+GkQ4 fv2QGNqIs2vulH4apIGmNFNONr8R51DO2baNrdd3vEg9sNiImalefUYTNNjQ OKRvy92EFVTwhZFJGtyQdgvLF2rCucbysovTNOBrzNyifKQJF7zn6xZYpIGb NA/bKccm/O+kxtmYfzTodHwL3r5N+EirR6HUMg32NR5xrolswo53imUyVmgQ JN1UwJPehItXmSEH1mgw4Xh77lxxE15+vou1mEAHAfZtkhr+HVhZysTyBCsd 0pVyjke5dmCX/Jj2mg10OH5f48a4dQf+rNFy+hI7HbqTe11VjDvwaicx7zcH HVy67GMCdTowuq8ueYOLDvwCWz51q3fgkrCCVctNdFD3QP/cd63/fwciP/hv oUPWf1E2lXPtmNX+p/hWMh3Ohex/ITjcjk/wbA6I4qdDf03N+9tt7bh8n4tZ GoUOlEOLE5tK2nGFq+G26m10cOXTuX3hWTuuEZJ6yrZz3V9JvPZbpB178+vN WcvSAcU4Usjr+/oUMfBWlxwd5B/+bdBkbcdlbIsnCvfQgSSBT5QMteGCyTqC lQId2l0sdiR9bMPJX20c2oAOZor1TJvzbdjLuvxe9hU6uCf4+JI8/uDj1Te1 DJ/QIdeDvUBtpBXHl2VeZXTSwdAuK6Wq6hcWbBvhEgUJ+NW/c2r/zSbc2wQH qyIkwK8hos3X8huO2a4h8F+UBPB92WinfPkbvuqiPTsVLQFpHx34JhW/4YYd 5h9EYiWgOkLv9KXVevzZ7cUeyyQJ4LglnCfoX48jdw/KCORIgMVieHBCah3W 8vEVNK6XgHP08NN4oAaTul/OL3xbr8/PPWBVXYNrFd40+zdIwD1Oezd6Rg0+ 3pMTkvdjvZ8x3bwnNjVY/lAnadMfCajKFZTS3FCDeQblubMHJeC4Rhjht3g1 rlJSGjo1tK4rc0X5sFVjj+eqlW3DEmAo/+jg0aEq/O+o3hP2cQlw2apr8fpd FR564cFydUYCiroo7bdUqnD8sH/3OHM9r+mpHYVeha+jMOw+JwF/yuf5qtmr cPNIunP6ogQspLSclquvxMGQZ3BsaT0vSm2gI6sSn3tVqtS8LAFsgXlugSGV eONYrfCdVQnweSwjeuxRJf56rHlxbU0C6DahedP6lfh/7I8r4g== "]]}, Annotation[#, "Charting`Private`Tag$38284#3"]& ]}}, {}, {}}, {{}, {{{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], AbsolutePointSize[6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\[FilledCircle]\"", FontSize -> 8.96, StripOnInput -> False], TraditionalForm]], {0., 0.}], {{{1., 0.014965406629381173`}}, {{ 2., 0.23660283279138428`}}, {{3., 0.3896606970999519}}, {{4., 0.5667330162469535}}, {{5., 0.9990028525685586}}, {{6., 0.9129929308988811}}, {{7., 0.46990518552552296`}}, {{8., 0.7995768956867382}}, {{9., 0.9928662484263584}}, {{10., 0.910443276615202}}}]}, {}}}, {}, {}, {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, BaseStyle -> {}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1, 10}, {-1.9694566688565351`, 2.6572693254481803`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}],FormBox[ FormBox[ TemplateBox[{"\[ScriptF]", RowBox[{ SuperscriptBox["\[ScriptF]", "\[Prime]", MultilineFunction -> None], "(", TagBox["x", HoldForm], ")"}], RowBox[{ SuperscriptBox[ "\[ScriptF]", "\[Prime]\[Prime]", MultilineFunction -> None], "(", TagBox["x", HoldForm], ")"}]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), 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[{"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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.754833482255085*^9, 3.754833589797763*^9, 3.754833761132841*^9, 3.754833867202085*^9, {3.7548340348217497`*^9, 3.754834059274206*^9}, 3.754834094805851*^9, 3.754834316584858*^9, 3.754834353962431*^9, 3.754836944122814*^9}, CellLabel->"Out[199]=", CellID->121494500] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->5316679], Cell["Excessive undulation is suppressed:", "Text", CellChangeTimes->{{3.754834489072665*^9, 3.754834543997808*^9}, 3.754834980576696*^9}, CellID->1202758553], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{"3", ",", "10", ",", "3", ",", "10", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"afun", "=", RowBox[{"AkimaInterpolation", "[", "data", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ifun", "=", RowBox[{"Interpolation", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sfun", "=", RowBox[{"Interpolation", "[", RowBox[{"data", ",", RowBox[{"Method", "\[Rule]", "Spline"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"afun", "[", "x", "]"}], ",", RowBox[{"ifun", "[", "x", "]"}], ",", RowBox[{"sfun", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "data"}], "}"}], "]"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.754834833318674*^9, 3.754834862564188*^9}, { 3.75483490363026*^9, 3.754834962081842*^9}}, CellLabel->"In[167]:=", CellID->1055703715], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV2Xk8VF8bAPCxzdyxzNyZUdZk5iKpkNIiuU8lSqJCpJKtEiISUT+lkkIq SRLJUkmFkKUSWmxJyBbJmpAsWbLOvOf9x/185557lufsH1xHzz2HhSkUyl70 5//PuuL+BRTKCLl3q/NdCgWDm9TvflSxEbK4ob54CYHBLtPqb5LiI+R9pvH3 LUYYVDdlxctJj5DPzmkP24ZjUDF0RnWV+gipuFsmWFSWDsWKDN0ju0ZIy4LV XltXiEP6aR3LqgcjpHxCukmguSRc1T4TGbNplJw/ZC50ZD0Oy5eNLzC4/5fU dCoy/31MGrrJG7/Lu8fIFU9eWMdMyMCOqA0zI7wJsrBBfHeEjAI8OFnNVPtv ktw6vlqXraAE2PFLflD8j8xdM6Fha6wMct0GCwo+/iNDPySt3WaqDBr7prNW fvpHetxZztfZrQw7t3oM8Rr/kU6SDfl8W2WIXGRzWGzwHymyyr/Hw0MZFlUv s6iUmSIXnWQsyIpSBh2tr5qWnlNk3lv31vc/lOHgKLf3qNI0GXxxak76GBc8 UoqnSolpctlys71Kx7kQaH1IQm3pNKnaXBmi4sWF+4Vx2j2rpskFeutPLvHn wo+rMmfst0+T/aoDbrSrXLDjSeH7fKZJu/i4Hq1ULthbTK03qZwmAyQMx3g9 XDhBvWP65Ms0maoUsLvsFxfOF+gewhqmSQ3dphCX31x4sPjkpdJ2VL479b/E v1zo/P2nevPENKksvP7qHwoPHC91O21QniGbPg+pDynywPll9bXlvjOkb09c 8M09PPg+/lJX68wMueDvI+5dKx5YrY5vW3l+hjS+Xc6Pt+GBUbbbirWhM+Sh uD1nE+x4sOQF9nnT/Rny6POgS0GuPBh4tlnSunSGbGzZUVESxAOvlNzQoIWz 5AqnGyqr0tH77nidSwqzpARxrbsrE9WHCG65rDxLnjmd2H09mwd7kiw0wjVm SVYP/rgznwerH4xURBvMktJvxTc4v+fB1D0N+rMjs6T/f653fjbxIPDW/ZDG 3Fny9dIW7jc+D3heiU5b38ySq/akBDoJEVBqlkLmlMySDSl/HgyIEMAQT/t3 s2qWjCmf1x3GCEg4//Lozq5ZUkFcOqmWTUDx8SrjD1JzJH5K9sKsKgHC22Zo Wc5zZMHAeYfu7QQ8Up3vVnadI8/aaHtQTQkwEaEUX/ecI11G7EDNjIDIt2Kn jwfMkSX31+se2EMAocvqU78xR3pM9Ngn2hJgyFMvT3g9R+aHcopvuBIQPGd1 5Rp7npS0qokXuYK+P5I4nSAzT8q4CU0lXiXgfs2ga5biPMly6gzaGEZAbsrF nU1q8+TXqecq7hEE9Jm+YHM3zJPXXvs/ehxFgGm8ZHyO0zz5Lb419s4DAmxo Nowyl3mysW5mGEsi4LBX8rlvx+fJ9/3lPn7JBARu1XPk+82TroVeUqaPCMj4 c3TJtvB5cnh2IuDrUwLYBu9ftObMk18ayo325xKglMoghgrmyaKljdEJeQQs Y9tGUYrmyYRDkQs781H7ekd8VSvmyeVeMg/3vybgVISSvmfbPBmwzJKvWUxA 8w//UmEqnxyZu5NoVkFAz7aPaxdI8MmvnrcGD1cSMJqFP1mC88mHHzYeDfhE gHjI4zBTeT4pI53wO/YzAfpaDbuiNfnkSpMo7Ve1qP/OabcuteaTGzjbn3p9 IyBNzb6Ed4BPNnJ3H7BuQfH6fP2xggOfDOqT2afXSkCVwvBJKTc+KXm/U3fq OwFTec8lRwP55NiTw2ctOggQOdT2t/8in5T1dwojOtF4oUp967rCJ80pyr0j yKqW7g/rI1H91zQEXuwmYM+IhkH+Iz4pslV745VeAg7esVV58ZRPZtcTaZt/ EeBiECqelsknTyk2Os4gnwvvb7z3ik8ur/fNc+gn4Jl6que5aj7p3pP6hzlI gJiDaqLRJHp/5cu1gRECcMwqhJxF9YtJz/UfJUAx49LxdRQBWelguoz6lwCd +e71GuICMl3hw7+FYwTY3U2qk1ISkEbaKYtkJwg4BnX5VEJA3hHyT7mJ7PNL KEGwREDOhEr6YZMEhOk6uI2uFJBjHz0Ff5DzaxeLNmwVkHnf1eJjpgh4f9p8 4LOJgIzyGA2aQ65efK6m1FxABuUHZB2cJuDn8R9x+fsE5E2fikmZGQJGpBkX X9gJyOzeCHEv5LnXG4+lOQnIXpzjWobMFo/XjTuOvr9mLek+S8CiF1UKt70F ZH+7jPkrZHWbOaEIPwHpOBDdJjZHgMGj/dXnggRkyJLatijk7TvDck5fFpCr bcPNm5Etx1/FeoWh+htSpeTmCXDbLH/U6baATNm8xi0SOSnkcFB5LKqf8M43 X5CbqzLvrXggIIf5J37Q+QQw2XMvIx8KyKK1SbWAbGRtXPMvTUAKPe+47YP8 X1zkwIFMAfnSbvmyh8g5nW2i714KyBbT4Jt1yDx3n/XhxQIy4IddLSEgYN+L IovRjwJyPKg9zRj5xqS4x95PArLD4biVC3Lphr1XXtcISINArDYYef58YpJy o4CUaspc9AB5dengm+BWAWnmfmRDHrKrxLqmgQ4BSTFYqvEJOXHXxVHzXgGp ajrd34rcfLta4uVvAfk6ujGgH5nZKqcmPyog3y0q+T6GbKR8GM5NCkj9znzm LPJ/hzNte2YF5JLOQo4A2bbhv1cpFArs4z/N+78n/ZKNrUUoILJy0mkK+aZ8 RT2dSoFWd5bGL+TlhUMObzAKzO6txauQyw9JD3tIUOBsFH3xY2RnYb2zXAYF Aiqv7T+NLEg5RK/HKYDfX/mZRI41Do6+zKHA3pzygHkUvzUDacT6hRQ4kqXm 9gK5Nrwm87csBQ5sXPxwP7K71uTG+woU2D0TrDWH+g+rU/i0S4kC9hGarFvI yT6bbES4FEi+P7hLGdlA5ujPlwQFVtfcmkhG46OlINzbRY0CmuX/xJSQcUFT +OdlFHiXYBg8gcbjs8R5ufOaFLhRUS9kgWxsSDzWWUkBHbMTYo/R+A686lFy Zw0FzOZkCnXQ+JdfHmVmsp4CfM9Pga7/CHhZXdA6t4EC/XXNXTFo/gxyxCYd NlGgccb8+bdxFN/79zSWm1Kgt7NBfBDN50koyfthRoGtPwLvfxtG8e3uNby5 mwIZf5Uk3g6heKrrHJrcSwHGVGSoG1oP1mSX3yp2oMC3iyc696H1o85qSPmk MwW8zKdm+T8JOD7FSVc9SoG+/dJq93oISNl4qDzUnQL1n6w/5KP1ilU+MWfp h9q3UKfvKlr/OjKLLL/5U8D3loifKFofM+9efXbwLAVysm+5+zUTsMtt0YEj QRS48kcpyaiBgAjG1td+YRR48EKjLrQarcdWUf6xCRTYXu+onFGE4rvRrlYp iQLpu5NysgoJeKKmvjQ5hQL3Mw5gGWj93zb1uvnpEwq4KnqJRqL9IuRe99rC bAp8UHEcEMogQLRLZ7K9jALbtmcaR8QRUF85t9O5EuUfyz2uHIv6N7v0YV8V Baj0yrSndwjYHGxrNVpLASHz4UvPIwkIUr+QI/ydAqy+evNDaP/ke9R6q45Q wPKxtfx5bwL+zXoOu8oKwTrlaMu2TQR8zzZ2UFUQghPOVXLWBgS8c1v8tX2R EPhSpiMr9AgIb63OtSSEgGvqWxizCs3v1ysCDTSFgBdSnt+hQoBZwG9JtqEQ lOhS/RZRCXg4dUSjwFMISj+8vngGnU9CMw3iTnoLQVefgZ9cEQ9OuCxkaJ5C 5ZcWU1684oFe88fRpAAheJcv9LfqBQ9q8lQKwoOFILCO5BQk8GDOt8vY/p4Q RF74FegSwAOLiYOHaWVC4KXyyt1qGQ/yPz1mvawQgjTK3c4dajxQTBotdKwS glUf04U2cnnQaxa88G2tECSd07NjyvAgIPVZmc93IZgTHdtySpgHD/bPLu0a ReU/GYjd0cyFoZKYoTeKwuCtSCN3n+fClYivft7ewpDyPPTBmvfKUJZju2oX WwTouV+CLM8owdkHVt45RSKQU5Y29HpQHjbIOdqGOYiCc66DQ1G4DJyw7vrY h4uBkWmv+0NxaejzFfa9yxGDzfuC1PzmOWAfzVMzWSgGpcP1z8xGOLC7wfHy UwUx8Baus2I2ckDHotvIQ00MBgv3RTUncmDcrKdsbIMYTF4xj4/W44CfUW8F /4gYxJtaPlvsxYZA3YHP0oVi8OZkicaBCRw07qVvu1MkBgGnj5d9HsChiXLy vdw7MYj+UO9g3IGDdtVsvlKZGHjgta/3fMKh01EqRb1WDJovOa37lIiD4Q3t AP2fYhC2Bxsz3YWD+G9fNWcpKtwlNKqLjzIhd9eGxF4mFQZu7GFXWzLBKVeg cIxNhaPOGayhTUx4E3SF5SFDhcmp+btHFJlwXDZ2zo9LhZrxnHX6dQyo2VpY F6ZLhcMKrwfDNzEg+oHIueyDVGg2zFC205ICm4YGjrs9FTzXNk+HLZICefHU VBUnlF+g3oKvElKQcNK07rYLFU7vKL/wvE8SUo1uq54+SQWVmw3bo5Ml4dWg WpX+VSpUX1Jk7FKShLPcafuJMCpEK23TXMyQBIO9nyaeR1BBQOPtpvMl4H2R 5+LFUVQ4hPEZWj8koCoy31sogQpqvsTZ9wkS0LbORK40hwqXX19NUleXgAfH FdMD86iQ9JjGeiknAY5JQ5vXvqKC7I/UzXYSEtArccs9tYgKz128D9GGxWHo R2tRaCUV1j0dup6XJw6U4ONHzDuoEHZvdE+qmTi8KyBnad1U0ApmyTA2i8Ol IdaN4p9UaMmusIvUFQe6TW7Byt9UGFRS7p9UFAf2MoGk9CQVGrpWzuj8oYNK 7Y3sZgkaHGsyi7p+iw7ypjSOE4MGiSHZfvev0oFV9p/3H5wG0wN8/4pzdOC/ cV0pvJAGKmVX1/i406Ep1TBjmTINHhVoMRYb0yH0/FRa4GoaFDx5veKHEB3O z3qI09fS4OwCiRcF0xj4+f48dms9Da6pbCrOGsXA2b1OPdWABs/VE9vmOzHY aPPsUe02Gmg9H4mceY/BiJZ9kspBGkRXVLUlXsOgN61RKOMQDZ6NidXah2DQ prrTYb0jDfRfqBYaBGFQqaCnbHaUBu1dNq3WpzBIpknf9/NC5YuapQsdwiD2 Qui8kA8NPqSf+fVqHwY35ikHw31p8KCHWXPLEoOzY38UEs/QYNHwU/GHJhjs bS+7WxlMgxNO3inG6zAwtTWYtrxCgwSzqCbKagy2NOTYtIfS4FRh3IkWLQy0 PyXKjF+ngQYvUWt4CQZqRrJ+gZE0YCzceFFDBQPFkohG7DYNHl8V3LmsjAE9 78ztRbE04P9ea58ohwFF5+/44zgavG/eucl+IQaTz1wsdRJosH1TpQFwMOhK suIYp9AgPmjNgJMUBs2LqrxrH9HAy7r042NxDL7EbK7b/4QGzIdzslIYBm8i tG6eSKdBbnJckL4IBjrqssuGMlF5PSevsYQwSC2hfHTLpsFKDaoCTUADpf39 dv0vacBVrCMXzdPg1njt1JF8FB+nvSzLWRpgEa8ie17RIPAJ6+HTafRckrzc sZAGYdEXcJUpGowXh5W2F9Hg7tclxwonaeBq62N/8B0NAujnP/hN0KBj7MBM ywcazHfQ11mM02Dvta1RNmXoO2HDb+ZjNKhS09RsrED1kX1eePwvDTYVLyy3 qKLBpYr3M89GUTv2CRxqq2lQVER9JIW8fOzXrFktDV4kj9dfH6FBUnjN7aqv NFihJBm/CllWrUDLpJEGIs2fONPDNIgoSqwoa6aBaECWWQey6L5Qp62tNBB+ buDUjxzw13v+XRsNPssNH5FG3w+H7b8DHTRYc2yzpwOys6rhyrddKL6GeTdr kFveLv+04ScNllpUdTug+uyyWXC44BcNLEnKmQWo/qWj8/w1AzRwfFHr/htZ P6w3JmeQBsSeoupu1N4slS86OqjcY5XGuXwUD/W3eVUZKB+x9/3r9FH84q0f HFmBfi/tIdzj/tGAPXqF8hT9fr7Z5/BiFP8roV6x6ugpbLxf7+MMDXwKN1cT fDQf13ZX+aPnwN5lLokUDAxcp89dQU/7EY7wYjQOUkJDH74UxmAH8VNXHo0T 97za24dpGBS/+fzlDhpHbKMm/T46Bmv25h5bgMZZ8ZlUCJHEgHc1JB5nY5Db YSojj54xvBNrI6QxgEjPUqkFGDDe2NRKyGBgMzwXukgWg+mhpWI0RQxeZU5K 3lTCoMayyn1eFQPRE0WU0uUYGA3lUM+oY5Aff+NojDYaryHxD6Y0MMDPi1td RvPr8SuP+jE0r5SO3jmbo49BoDJLf2A9BlE/PMRtzDAYL5huOIp+p9T+yBK1 wMDVosvzpwFKH6RrUWWN5u/l7OSOLRj8VVqz+pkDBisGrSSadmLw9kTbxWe+ qFxL06LQXRh8V7Nue3wWA8PCzScNUD7eK8Hk3QUMDkRotT60wUB2aKOI5XUM QrXpT32cMNjz7N/JvidoPfJ5Y8L2R+3x6bQv6UHftWXxP57B4ISDyZbkQQzm tz7J8g9E83TH3aqkcQykZaLlOy+idaqk9PSMKB22FHgOZERgsPCbZwF9CR0e zPNCd6ZgUD3oN3jrBB2WH5EzEHqMgUas3vWtAXTIq2b+zUHliv/Z5865RIfq hLl9ihmoXivCA0Ri6DC/qXHp7wIMXIqrXXRK6GB7+WrFlS9oHTq8PT5PVhyk mSPYhxnUv0f5/UWt4lBfGBqyfR6tA6sCXg/+Eocod1XqFwEGlzLOpGqNiwOn 0lakBdWzMUUQ+k9SAtjBH+eHGXSok77ndo2UAHw29q8CQYfL5+OOlqRKgOSv rd9P7qBDkt7z9PJQSai63WE7vRO1S16GdfuuJIQbnvkWuAulV79scCpVEiSS MhuvWqH8Cp0yT5RKgvhBhdqEQ3RwPfisf7eIFGBfRz5+OkmHod7hwOfnpUCs 6F4GEUeHuUYixvgqA1r0Dbe136cDppTb8e0eAzJfDXbEJtLh/rrTGefTGXAg dyOb/ZgOOgWbgiTqGZD1vN2HkkWHyfguB44yE+ziCL22MjqcfcT1a3rNhHz/ px+ix+iwWKHz38fzOLivfv2NvkMcDmSfFSM7WPBsu+ODt5Pi8Ifp8ze4Sxom f8vjvdEScOjc3C3+sAzkWhiLRBlKwuoIK4ml+xTg/LbghJxeSbhguaY6/7QS 8NpMmpODpUDtWJCKT5oyhL7bkGF1RQoiVtWs3ZupDGOPl1+mhUmBYNcFad1c ZfjgzVjtdkMKJP76cvpLlOEwVndd554U+JV7XF36TRn12z7jkkwpeJdMcabR uKAZejT3R6sUtM/9NmLacyHa0+bajR9S4CPYFHXuMBcEltudN3dKQVWh5uRv Vy7ULF7GftQrBc0tOp35p7jg9XLo+PFRVP7NrJe8MC7kdJxSnaMyILf235GV L7mwYe2lKDkdBpw713yQQ+VBs6PcmvjVDMjYOmT+WJwHPhHpTcprGeA55Ldh LZMH6T+b5dX1GTBZGzZoIssD5agViWuMGMDZvm7NJg0eiI42PrewZUDZ2jyn wzt5UJW2tOzaBQZUyv6iud/ggUvjWxdWMAPWPrc19I3igZiwpfjtEAaE+h77 dSaGBwb7AnfGhTNAJXLezP8BDzJpX7+mRTNgpdUFQj+TB1HOZzvK0hgwaML6 0VbNg4NKX6aFvjLg5uQPfy8M3WflvF++bmBAoP1+vaWS6D7DWeB1qpkB6geW 9bYwCVCj7+/ra2OAXJRT3zIZAkbGehu/9DFAvvHi2EVVAu1L/Ox4PgOKF89Q aeh+tOZDoqe1EBPGZ1SLbA0J6H9ruIwlygT32wpiqcbo/pMTmnSJzoSLt4QI LTMCZBIW3nSTZsLURZrIsC0BaT6aHus1mKCX7bVG+yQBBzxrl44tZ8Lfpgwp eV8CmK4+P59pMcG7f8WC+dME+Bx6dUBZlwkqdiHx6YEEbDQx2oF2J5g/yB9+ e5VA/Wun3mDFhILVJwOv3yfggrxQT4QNE1aeUYujJxKguyAlYdt+Jky0Xg8/ m0xArPjAwjf2KL0fr9o0lQCniVNiyW5M6Pl1Wzv6Bbp/V17rOhGE0i9ZblX2 Dt0HJRpc5i4y4Y9dS++TDwS8N1UcDrnMhO+fdv8MLiXgRnXa7P0wJpCakQs0 KgnQqCuT/nybCb5O7Le8WhR/DvOeTQyKR8x77Zo6dN+02MvtiWVCWc3SAd96 Aj409KyYTWBCxEoJpcwmAuy+CRkvTWOCv3CraG0bAYby2z/nPGPC9YQ/S7a1 E7Bs/w0LyGCCvFSiW34HAVPfleytc5iwHDo2XeomILJjg3/wWybcs/RPKe8j 4DT3ogAvYUL6+x3G2AABhxwrg+PeM+FUTVoP/CZgeY9NZHY5iscT0bm4PwSU /Tr1tLOOCQFPOmQofwlIVy9cebyBCYGWtXTaGAFRx0Tzp5qY4OOqV0MdJ8Dx d+QHZhsTrW9uZSMT6D6/vMXkXjsTrg6lD7VMEqB1nFur1oXen7BvKvxHwNxQ RtvGX0zI3iXacnyagC6tf04V/ai+iV4DejMEVJwwGLAcZEKOxpYnlFkCov9W TbqNMoFdhS32nSNAe7KfGTvLhO67TYcxAQEL166MVuUzIXlmsXMsMn+DfoQN BQf1uf+4qhQV+Hn2onSPMA4ZXSJ+OkIqkMVncWdpOGxr/VS5TkQFTIW19Jay cQjX1Pw+RlUBwYuwWBcODha/O4440FB6h76Zx9I4pO322/kZWbYk8bWaDA6v JPeteICpQM856Y0qijisbtZdqSOuAne0vOKdFuGw678dUZHIJu2f55OUcLDL sNk9ipxpEPKWy8WB/9Sp+YmECpydnyYXq+GgmBzEoUmpoHvB3gd2S3CI2nGX tEXuOpBNua+Ow0HnN++fIm97416iuAy9b9b8up2hAtJn2jfLa+PgelQc82aq QJmGfvK+lThs0nz/Jw85oCVG5K4ODpXb7i2dQ+5Yv+eDjC4OSa7ZSedwFXg6 9WHrAj0cYL78ljdLBexSuY8sN+AQMF9CPEXGbQKpUfo4lK0eonUh++atLWOT OJjoDXwyYavA0qNRS/YADnuFyKdnkb8vHA25uQmHJaM1bc+QN/umbcMNcXin n7sB46jAhCrtiflWHJxvRhxZhZza4ES/boSDPyW9+wAyQ3dRpdR2HJ4vrvqa hlzS46+x0wSHh+XmRl+QfaIaQ8N34FD8n4r4X+SWses7JMxwYPErL+lIq8C1 5MGnJuY4LH7H3bALGSy2S4aiezrl0tdN7shjwo/cK3bjQBQnxVxGfpQl/Bmz wGHk724yAXmf46EV2yxxaIxJ1s1FlmS/uRZiheKjaXvmE3JRiexQ6V4c7mmt w9uRvb1OmVFtcNgtRxkfQVbl1qVv3YdDzVEfNaEFKtBco8kMtsXh4h3rx0zk sPNhnh/2o/xV3H0VkQ20+76IHMRhTbjPrSXIo+2G2lvscMBNVvG1kVOuJ964 cAiHqhbX3HXI1iR/pMQeh5ZXba8NkMWHbXcLOeLw6IgZYwvytstv3+53wuGC k03dVuTLi3jLc51xSG+Yvm2E/CEn+C5+BIfMDT02/38vbNpPdTuKg5R0hfxm ZOg29fnogoNp275WfeTAgMzOxa4oPgu2xeoiv2FJmwe44RCkv9V6OfJ0qt+b enfUvi/CbC7yGmhdquWBw9mdOpUcZJ8mgztXPXEYXR18ThQ5yyNJtOcEDi6i z1eOoXiNiFG9DbyR9fZ3/D+emvHH2mNO4nDSalNYJbL76s+mYz6of+txnWzk PseoJal+OMhPrvQORFab+Rcl7I/DjehecQdk55v7hQ8GoPZFmdzfhNxRxGtj /YfDXHJv9hwaL0rWl03cA1G8s4J0m5APDPXnlZ7DYYVsZGYGcpPii8gzF3Dw +Nl80xZZOkea0ngRjd/t3v+WI+/Zcfq4djAOAwIjq3k0vqv9yW0/Q3D4st9l 6g5yaePnebNrOJxPHf+ag+aLqMdKtycROLC96/76Im8Wu90scgOHlCA/2lrk t6sOZOdH4tDh3oa/QPPx5Y0BF14MDntMLtwLR/P17xKzxrN3UXzlRe0NkLWL XmxpikXpVb7JDKH5/+zPaaXweBx0uzbbGyOnmNDqJ5Jw6GsI3NEpidaPTtdN u1JwkDUTTbqArOxfnZ72EIf74y79XOS4x7evHkrFobr09nZbtB5FiaqQFc9x MNz7yyiLrgIX30JaXD7qn8b8Eb4Ymm+nJ+faC3C44iVTGoKss+qZOfEaBzWe RBUDueuxzMSTQhwc/bNcZERRe28OkXnvcPCZFPvBFkbjzTmuobYKB/GOX+ez 5gmwVdqjvqAah2jZ55uUkLOaaWdsvuCQpS+udQWt9447Tyq31+KgPB8esRft B+/WmLgNNuLga1Wwr20K7ff0KQqtEwdhuYa+SLQ/tbx/bmHShYPSLk2rzv// /yvQ6dG1bhx+bOMNrEDu+lu9Q7oXh0+rW8NLRgjY/P1hNPc3DlODt9Pr0P4n nGGxXH8Czadbe5fF/SIgyDLD2ovOgl2Om3dUfiPAedIt74s4C04FfTxc0UyA UYy6jKYkOjdL7d5ZivZvye+JjQMMFniH618oaCAgxinKylmaBXbzFwKC0Xkg 09vfwnoxCx6dfXMwu5yAHze2mG/UZYH0CZtc55cElOhQMu6tYcGgUXi9Yg4B KfVvGDNrWTB5MfFlXRYBrrJrqnP1WFBqvqxobSYBEwnqO7WBBXuwlt7eNFR+ htQOYgcLZqsiN31LIEDvc5MR3YEFr4i+3xJX0Hkr8PMWB0cWfN8lJ3fxMgHn tN5DgRMLNK/LSE9dQueRm+l6x46w4M4XY+/WIHSe2xusWeHGAtZuZlnIGXRe atdZeNWXBYzu6QhfDwLCR6/9xMJZkPhofWDaHnReSLrYZX+NBVoNvJqWXQTU Wvi350ewICt6Yy9mjvbrXOdvLjdZUOtYf9BuBwGJARs+l0ezQIy12HtoCwG5 Iv05VxJZkLm773fSagLaFxhewvJYEFhmJL5fmgDFgbAj2/NR+/0d9h9lE2Dz 9uu20AJU/xM3s7xwAuqOOElJvmFBa+xa7/PovPsh70I0s4QFBsKVWpdF0flz X0nqwk8s8P/jeVxnHJ3n4w0+q7Sz4Ecz1UCyjgd01fULN9HY4KYQHZEXwoOa jhCxeIwNVZeXeTKCeRAT1zg+RWdD5IOoAccLPFCX9vmaKckG29fJmaL/8cBI JOOGMpsNBpHCXsu8eXChU0WCsogNmn0a/4kd4MFcPE4p0mHDyx1Ho/tX8GBo YV+/vh0bqp/cOWJfie4rE1feBh1iw+qxEC2LMi68qF96q9SeDXZfc2u2fOCC T6Sb/i4nNuB+n2OV3nJhVmo4wsmFDY9UK41eveACJja5KtSbDT5/Dn28GsMF YkwksOkyG3Jvj90JceaCzZfFbO8MNqi98nAdmVCGDOt7VxgCNrg6vrE3EFGG knc14GHFgZwLDxIupi4Cm/GInbRHHHh19Hfnf2oKUFq9WdvzMQdunT3GeSCv AKufTLKbUjmQsuXfvjcMBWDa2TU/esqBufIgontSHkrLVjgZveDAv6+s2/2l 8qB7r+p08BsOrMFkbL4dlgf2ZvEUka8cGKoNvEYmyMF5xbeX3eo5QBnqlkiO lIOhSa9jXxs44FlsfZVyWQ4qnn7TTG7mwIjL08An7ij9gicFm39w4O/vEjJ7 vRwM9xl/CerngFRTStDDOlk48H72Rf8ABwJSve6nfpSFyviMqN2DHDDNMs14 mC8Lj/bI2HKHOVBifjzt2n1ZsHvT21M8zoFrDTJj0q6yUBUdW6Y+yQGxiAXx vw7Igp6XWdqNfxyYJBN1c8xlYYFarqf9DAc+n0jS2qArCxcornvKZzkw0Z53 fWKJLIy0LNLVnucAvvRe6xN5lP/LWpkYPge2G8axbaRQ/teDZwQCDhQvlVhN ocjC/wBTCwWS "]]}, Annotation[#, "Charting`Private`Tag$33690#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3k8lN8Xx6fEjLV5Zuw7M89EKNlTX/dkS5aSZEuyRItKSklFaREtUkmE EpGo7EslQiFbpEVaKJGQLeuM5Xd/f83r/Zp7z/M5555z7rkq3gEOvospFMrU Igrl/7/vXv6RoFBG0COFBwsUCg2uCXwNFuAfQalFNsYxxjSwt23+LCI0gnaW 9DjPB9Gg+VN+soz4CFLVf+4c/IcGb4ZOkLpqI8i4Wk/zW4sgvJQX0/ezH0Eb jz0wDksQhifHdBwbU0ZQfEnRKUvGUojSPnE9ft0oYl3+pfCslQFB4lFqwutH 0SXfoO3SfxngMR1XHmo7ijJXv9bcSWOC3sv8fm/nUaQb6HL5lQkTvm/qN9Xa P4oowcINmVlM0Alw/VcZP4qGsj6y+U6JQ8djQ8eB4VG0VzF+jaKsJGhqjEuY 3BlDZyOOn+mRlYFTidbrHNPGUNLpXemW2jLwTvjevr2ZY0jZa3t2vIUMHBu0 q47LH0M/v9QdWHpQBqofPzg4XDOGKnq8jKxeyYCb9raGlOEx5FJcNPtnjyxE 6led5lv3D2lm5BynZslBN4oZqOv+h3oT1r87PK8Aen/rL73u+4fOZb9ArUsV IeI2v2bV339ovuADn4qKIiyfOL7v+dQ/FCZ2MvmWmSIczPL9+1h4HHEfxR75 cUER5sTXDF/XHUcOWZdy+0WVQKq/Z8z97DiKLlO+MEFVht23lG+4Ro4j1+x/ I41LleGZ+TZdpyvj6Lm6a1mylDJ43G05vOnWOKql3g/TWKYM9x2fj6/LHkeJ WfldUxbKsKoiZpLTNo4OxYfFbT2jDDaxa7gjqhNoWZj6A+1JZajrvNbsqjaB 8vXlnr6dUwZLjb7UKq0J5Om/Zt0ufhWAqlibWKMJVBCUU3ZKXAUMRv4mGW6c QAHT80lOOiqgbJuCwkIm0MErfH3J+1Rgko//vHDLBKow/NF074sKHN60zTXo wwQSHmV+2vJTBUZu52l965hARhbFifN9KjCwyuPjk54J1PJjdIfJpAp07ShZ 5sCbQJI93+i76KrQ8HxPfTxnEpl9s5/xMFOFlMPNSzmhk2jl9y6h6TRViLDZ H6JzZhJt2zzz2vuhKvizRLpNLkyi5zrlu2ufqIJB24Zi52uTSDbTaV/YU1Vo 0nntHpWO1+svSU5rVgXu6POHg02TSPu254rGKVVwPPjQrEBxCm26GuuVasEC YyurxxWsKZSm/ua4nTULlJR/SzaqTSGDQxMFYxtZ0P+W3f9LZwpJHTW5ouHC gvCVKTGS66fQR+X3Is57WfBkKO5bSMAUCq+Sr4+7wgLa/nPB8HIKvTRKuPL6 LQtkuk0knr7G9n1u+Ym8Z8Fy15n8VQ1TqOlqUKJtOwvsLA4MqX6cQj9KXqo8 7WLBdQUXX/7BKWTXsbnTdJQFCs0aW+qlplH84l9MOYINOivbVjgGTCP5Qs2l QzZsME+/0tgYNI2iG5Kf7dzEhq1yVnstjk+j42axgh8c2HCM+iLd4Pw0ylYW SEx1ZcOLzgx5mcRplMvKqR/1Y4NVzHGh7zXTqLQ31cH7NBu2j6r07lKcQV90 j+YlPmHDgfsvp2tYM4hnFJtpkseGMOcdwhz1GcRnIF39pYANd14kaf/SnUF7 Shv2LnnKhu9RUic8N8ygNlO9l0ur2eChKkp3DZpBrJiM7fSP2N6HbNXSkBm0 tHdnlFM7thdprS91agZtKQ7gxnVge0MX3D5EzaCTfr8KBTrZ0PlscfrmuzMo fk9yzb3fbPDcMr3aun4Gzcr/MaybYsNBgVu2D9/OoMT+nOKCGTacfqq/g/Zh BlGKHiYl8NiQonT4XE3nDCrpyslwXGDDj4G/zaYTM0h22nXoggAJ3ue6fdYo c1G51UtOD5OEQ4Znjt4muWiqcErymAQJZ/qVo2aWc5F3ilUMvxQJqfYeT0r0 uejwzVwOXZaEbvnP07o2XFTkPqjwS4mEnUXNVzSPclFt+BN61HISvo4X6a88 wUU/gmhHczVI2KqX/G3VaS5iSd0wbNMkwbLAX8vwIhfFbZH7KLSShGV5tKZ1 d7jIV0Ixz1SXhJSR4SDzNC4a72epWeiRIK39SX59JhfdNJcXNNMngZaTvs82 n4vCD7xeusqQhP5HpiLONVxkIKDs+dEY+zeoXujawEURvl1OhWtI+KJBuLu3 cNE7ha2vr6wloTGrM9urg4tazq6l65qQ8CTzpM2+IS5KjlaPXr+OBE6fz78D /7iIq1hwaJEpCXeX2SQGTnPRf9/yvxZjjsmQGTi6mId+N02sFzcnIfB+8cVw SR7i9eVkJ1hiPd3JOufkeKhgMzG4cj3WwzrfEaHMQ6tfZFVUYnZI3bL88nIe 4lzwW9ZuRUL9D+N30St5qM5tptx9AwlmKqrHr+nx0CO59JGvmPVSRt7EmfBQ 0SY19RZrEh51fgpMMOMhhtFBXTMbEkilCpkkKx5Sm877nodZ8s6VPfcceGjs D5/SGVsSor8FEfedeagr5lxJN2aqgvvTDHesd6ZzCuxImE5cLvjIj4c05qjB Q5gPfiHynvjz0EkRi6cmG0n4IzvjkneQhw7U/Zd1EbO3Wxel8AgP3fXPsnmH uSOhNrP4OA891ja7K7EJ+/f5if3TUzyk6/AywxFzvXTc9PNzPNQi1OFzFbOp S2hKeRQPqdy0an+N+fmtnVaV0TxUpfGKfxqz3iebkeobPOQgyD9E2mN/JXXj a+J5aN/u6uubMLOdZOFNMg/lni2ZCMKcdHNRX0MqD5XeTJCOwyz+oe9q8wMe Yn9WmcvHfEW8xbD1EQ/FRNLSGzALOJZ0tuXxUMJ3fkYX5rAbdy58LOahrxLv LEYwqwbe87Eo4yEX82zmHOaajfdRYSUP1QzsH1qymYS9mg/kWLU81O1q007F LCaUNXWtkYd2fQ1q48ec//tRG+UdDy2tlPs5j/c7vc7JCfjEQ3FbAwX+Yeam 5l/6/pWHin9nmP7EfPd00S67nzyk+fpvfCNmc49Ss7LfPJS/Jlj4//r71jxX 0vjLQ3wJQUnXMV+WKecljPFQx3KpjQcwa0+9/ESb5qFxkxhVC8zv31cXBM/x kCCLkJfCfCy/5mrv4ln0id2w9heOr3zMG/+ttFkkdX044hHml/sb178SnUXn S3NmAzDvtHnL0mXOom89a1NWYKapv1u4Jz2LPu+qO9yHz9v+16eSU6xZlJVy t8AO83hlx40htVk0OWbHnsH5E3/3W8D2FbPoXUtF013MP9y6l61ZPYvU/Qra vuP8izDq5csymUWyT2/pBWNeLvmnU9p8FkU1L/kkhPlQ69CtyY2zqCHY5A8L 5/NiKy41f+cscjWPPa2A6yGDnOtW3juLHmmwNGJw/VjzUV5eDZhFTmav1eZx fV0v5z+2//gsum1M4zTiemTpE31qMfj/N399tXG91jHEX926OYveFxzvDTUj Yd+IZIpA4iwKX5veUIPruzBb3uVXOl6/I77RGvcDc1W1urvPZ5GP/7ZeOdwv +haW3xernEVttavfmP+Hz+Ob1unQmllkqw2qe3B/eR+va7StdRaZu19E93E/ 2rkUZUr+nkWVKcd2/jIg4fzs1sgrjDmU19llGr0C6/W7N3NXag61r1GvOKNF wp2Wwb358nNoes1m38O4XxbfP2v3iTOHlvd4G2zA/bXPNo+hsmYOxQqcVqgl SbBNFkku9JlDkZ3GV0XlSXChuojV7p5D61OvnnqN+7VvYNqpz/vnkOrcxuIQ GZzvFsbe88FzyNhIe/6jJAk5f3cts7qM7Q8HqPsSJDBMqvO+FM4hyWehoa38 JChmirGGns6hZ2R01sYlJGgw3GIpFXPorkKscd1iHJ/ekaPkmzm0OiDtYi6+ b45EK64N+DaH/ryqknfC91P795CaxQLzCMUmx08OsOHuKe0v6s7zqOd6tH9C MxuyOJ6Vqu7zKHMwwiK3kQ3FTVcfyHnNoxw3h2/V9WxolBs+LOo/j4ZPytn9 qGHDdMljkdGweSQtH+E+Uc4Gh5HlJqUZ8+hHm0HBWXx/83uR9ywn5xEr5SOf xSU20GlbLyDePBqhv/s8GckG+Zxz+40oC8jix+609Ag8X8x1r14utID+PlSR 5obj+zsh9Z2o4gIiFN4Whx1jQ2mr0pIPFgsoPOHGuumdbPA3ld3lc3MBffC6 YV+6hg2pF3zD624voD90+0utRtjfxtxErZQF5Lui7cBvfTZYOq9vmcpaQAaU aiNBbTao7gtaffnlAmqj+4qTbLz+ZrNw0cAC2n/oRkOFMBvSgta58KlQION2 MsTgeYmom5h1DKbAncSLoRJ7WNCVW+H4OYQC7wKIN5m+LMhNiHq0/SQFIgdC 01Z7s8DeX8HdLxyvL1kk4riNBdFiFs+DL1GguCjqq78dC4S2xobcvkuB6Z9m i9VXsWDJT53JzloK5Del3+yZVIUpXsDwXulFIGhmGfHmhCpsmdjuS61dBPJy k657nVQgMrot+NChxXDi/evgVbLKUFvopmvP4IPoxWnHJaoV4GTK1kOFFXww eChtzkdADtbIeLtd8loCI0PkO/1D0nDQ+efrPjo/7D7GSPibKwFh+v1N4i/4 wZDN55sqxYS4FL5TBdsFQCCsw835HR3YrTEF7cJUOGQ9xRpZIQqytlSmjxgV +O+ft9muJApEbeihv3Qq3MndIt62VBTmy/auWixJBe0Gz4z2ERH4lGmeo6FM Basd8jdtC0Tg4unprDA9Kmi+5fv1bbUIjKz0TGVvpwJnRX9Yu50w9GZ9XJSz gwpffRILdyFh+Ebaea32psLmaLlAyiphqJczVt64iwqvHxonbhQXhjSq+J3g QCogx9aTHl+EwKmzNqH+PBUOmNmUOfgLQVn0ymsHn1BBYqDWp+K6IOioSWsM 5VLhQcDwzbfnBSGzkvLav4AKXtJXGv8cE4Qb463TfqVU6PLX8167QxD2ugV5 bq+iQuuqo4NumoIgzXm60vojFXJGvvudraNBdMW9N7XtVPAziRQ2LKPBEteL PhZfqBAm0Kw8kUOD4UvbbkEXtp9oVBpziwY1o3PzBv1Y/1Cjs+UuGqy91Btf OEgFH06yycZtNMhnv9XRGcb7+RQaPTfRINk5xU9rnAplZvqT6YY0YIxGUrIn sf5Ah5R2DRpEXgy8rTZDhYQONRFJZRrMs9z0MnhUmOk+Dh7iNAh6YdrMmqfC 8n9C5nk0GvQ7aey+h9/tXWV+XSmLaeA5wlysxEcD2rV9JYKiNPgYNZuYxE+D QrFhr1ApGtiwevRl8b46g57PPBUavCxrentLiAYrhCxlzmvSwMCpeI8E3tcc RZOVwfpUoy4k0xk0cLsWvd7LlgbxqgcNo7EOhhzslnCmgViZS6swtpviuFLn vRcNZobU+anyNHjfkfowMJgGLY6N++ZIGlDsfoZqpNFAa3Cr8Cc7Gihqx0rd cBGEUkfbiov2NFDr3FNk4isI5i9MD5tsoYFf2Rq9yUBBcI9e+SXdhQaTtxcV R14ShIvagtlBPjTQkds6ZlwhCL1BZdaMEBocLBePaVITgpQ51Yt292kgbVod cGSJMIgvHaG94tKgr8nURPmrCPBXJOawkgQhL7rIkuVGh316zz8L2ghBg/mx 7sM5DHi0wTulfFII1MRDWIkaEjA5IEvvjROGQ7ZtKouSpKB4y3q+WHOc9wKi JoGOsnDa6vzdwl4RML2957BltzyofrNuTzsvCuOX28SktyvBGsNzsTI6YtAn 9qyrk6sM2xXfzixqE4OYxvC4i0qqMFl/5efB8KWw/KfAiiOmLLBdvNJYnUEH xmTa4qs6bFjIu3R7N5MOr49W8k3h/pfv1cd9IE6H3qQ9b9xXs0G68t5zjhQd nIKtklSADb9Oif/HlqcDp7hGP8aODSfnZpAShw7neqa6F3axIXv6lYWEMR3o 2yqjFRNxf85UyXBcQwfZJXXaa+/g/u4SJhC7lg7565r9nO+x4WiJYS0D0SFM ui4y4gEbTI9mWdHN6VB8fiqkFr/fOv5dtRHeSIfbfcEv3jWwQWjYbfMibzos Ub6xfAkXvw8jysu3+dDBQNRhVnSODREKqprFO+mQMejwXJyC5xHbPwL+u+ig I+Q+I43fUzOZwWXv99FhS7ATmsX3Z5937LLMYDqofVi3TlMdz48fm+Y2XqFD TUjKVfZWEpYcWOX/MJoO189t21DnjOdh/pvtfDF0GHu5M3+3Gwnluu4Fpdfp 4O6UdvHuDhKKYvp3q8bTwSQ7UaFnDwn3ranvJ1LpkFTaLNccSsLZcshKKqXD 3rWDA4JpeB4/Njnb+ZQOK9k/tWTTSdDRfbSJ9ZwO8hNPnZY9IOHnA6mJhy/o wEutdjLKxt+/NoRKqujQ4q31S68A+7cz6UNrIx36GI1tcVUkuCk6qEk00wHm F9UGvcLzbTv1hMtbOghKDFzYVIPfA3aHlTtb6XBK4tI+3hsSqgys/Qc/0mH+ 5kisZit+TwpOU6g/6OChX73o33esr/rxFuufdBiysmMmd2F9YT4ZV7rpYFy/ 7bPZT6xvrNlGvBfHx+/ZyQs9WN/X9DiVAZwvxvvGewewvpwtmmsn6KA3xFzP P4317RE8dWqSDqkbBX6FzGB9rIrWqik6SOzYKD/Axfrilwdv4NIhpeuGS/Uc 1he+qMppgY7z/2ebNR8Hwh1znAMFCWi5QDlSKMqBnZP+JW+FCBAzEgwSWcoB y3g1qRUiBIyzTFw96RwQ+XrvY78YAe+fqDfzGByI94ndulOcgK3XxtQXSXPg BP/moioJAnyUrFSNZDjg8UBUQkWKAPhTPbJXlgPsgYj332QICNbWoL2S50Du oZAtzkoEeF1J6zNT4cANcYOCImUC/LgSbq6qHDhaPMYQVyXAIy3z2l4WB9Zy /d+1sAkwfqhhc5rkQG24x2br5QSonb+Rc0ydA99jzDb9p0/A13DT0ERtDlTq UHISDQgwzfXw3LeKA/ffl4lxDQn4JXv1j5EOB/ZKGzQXGxMwdl+995UuBybu qtlpAwFFl7XtMw040L6u51H0OgLOJX/WcDLkwLPueyJ/TQko7I9JXsB8eplc 40MLAuyNl62xWI3jkyNqw7IhoPfJN07iGg4M29dnhdsSYJnWfZxcy4F3YxFC XXYEaL4fdczGHG9AqU+yJyBlgHXj4X84fu1l6rzNBBg4WP5TMcHxOx4S5boF x2Nif+tNzKzyMStJJwLSRt8sBCAOCHjmZAY5E/CsftbmI+a+RftobS4EnOxa JWYEHHhi0VN7dRsBklV3B/9ivvb73rIhdwKmRT8tMV3HgaAojwu2HgTExYle uobZuOmTpaAXAcoeRz6rmnLAPazJzMubgDrLLUd8MJ9aWQ1PfQgQoVXfu4s5 tav0P8KXANk9ne6fML+69sR4jx/ev6r6vpAZB3pN7xtW7iLAellU8GrMguMJ ejJ7CHjDsG3zwayZfnVV4F5s/xmnOArzRqfzK974E3C0V1cxG/NB6gkNlf0E ULZHC9ZhvlF6UC3kAAGxPfZHuzAX7/EjWwNw/qyP8x7H3C7rrqoeSMD1DSGN fOYc4DVsVgo/RIBzgXi+GGbF0PXynw/j/LA5S0hghhX/yaw6QsDmjs4+Scw+ nTqSUUcJ+ElaGIhjjohRY/4IJqBsomlKBHPmOkX66hBcH8RNjUWYG8aYoteO EyCAit6O4O8PpQkK/TlBQKvlhp9fMNO3LgisCyUgadjfqwqzrsAEX0IYjjfF yOY+ZqeSfsroKQIGoS45HPOx3V1zVuEENAUbOrthvi3zkZtyhgDffSlHVmB+ Ud8wNX0W6+tRmJrD8e46UTluf56AQ9n1n+swL9YqGc2MIMD8XKXcVczs74+G KJEEnDFUeG6Pef3V1AGXKAJ2XJ4uEsV8efRKD+0yAfcME4pD8Pk/ST370/MK ATvlY0vVMLduCeksjSYgpCJErA3nj2Txzs+7rxHguP3gExnMq3e5fXx5nYCg 3uLxIpx/7tL2bdKxBNy13nLBDvO942ua6uLw+b6cjjqA8/eVxqp65XgCVLwM J6dwvvd+5dQeSyBg7YzBg5OYNRGjUi2JgL1av94G4/oo5vtTGHmPgIcHfgno G+PzLfye15VKAC1Oemc8rjee7/snRvcJuDnUPTlphM+zriKzL4OA0U3ZRem4 PusvxyVZPSIgN6nf+40eBwb/u5yQ8piAcMkaQwHMS4fD46afEDDEFdM1wfXv uHl/TGYeAQ7Kjjfv4n7RKWF+jlaC45mR0LZsBQfk+y/5bSgloLwtM9JOiwMu 5W1WF58SsN7JZPqAJq5vPx9RkTICcr6/p6Qvx/6WnIlbWkkA+3bi5W8cDiy6 XH/Mvgr3C9E3/V24f5l4MrZdqyag55vWVCebAyW0VCVmDa5fuaPirbj/ZblW Zko24HxPH9Q/pYjjpSV4ybmRgE33XnbsUMD9YPHm/fFNBDQvDlVZi/tpUlbX KtkWXG8nLkT/xv33Km/hmcIHAo53Nj8XlMD1nmzSxO4koNTjnNBxIdx/AyNy fLuwPj0TCXFBDvy1aL6W8QPX92nThw+pHPAb2u6k9ouA0wuLd9Uu4YArCu3U +EOAjvEmsaZ5Ekx+PB/V+UdAfWRgwcIoCYLkasl1VAb87Hh1feo9CS1dF/iT aQzIzSAVPrwjIT7p4/i0IAM2Jc1rPW4h8dwW1JYrwoD0aPhi20iCJV9OjDKD AVu3yGhZV+P78wdbmKLAgNiQV5PGuSRYJx/mblNkAGeJ9VzFYxII16o/JUoM WN7Zsxfh+zylZUddgCoDdOmRh7UySKiouH2+cxkDPqtc4qtJJGE2mU6p0GGA j7LOrt/nSXjlumNYVo8BH9vK/xFnSbgk8eT7UX0GeM4v1BqcJkH2is2LFUYM cDKtRQHHSTA6GXH8zn8MOLQhTD/xAAlH3GbHQ60YYBKod+Ybnm+GJPv+rPVg AENsrGdOCfs/EVkevoMBlSe/7MiSJyHvvfqNGk8G5Cn1ZGyWISHouv9aex8G 1D2avBnDIIEnOhztsxt/74p3w9slJND4J3UvHmLAdEGHlkMfG1j/+MI+RTDg 3aRB+rZsNix5d99BPpIBqmfPZ3vgea8312KZVxQDsm79sHFPY0PWgQst/ZcY MMLn6bgez4/a/UKs+RgGNF5/7fz1IhufH1HHTmRAyofcKsoeNri8VWIcwnO1 36ax2WUqbDj+YuZsbi4DYkw3V12XZ0NidtvEUB4D2P9Ocqal2PD9woXP/oU4 HqUGr/PF2OADwym+Txmwjyqj85vHggN55Stdqxlg7Vh1zOYDC87d2G4Hn3C8 4sZ1ps6yICPcsCKsnQFfT9P78sNYUBtArHrxmQFXIjuE94Tg97rta3Hjrwyg yh1JeHWABVeXaH3V/YHP+/TDVCNXFtw+Mrt32QADkvqM5JlaLMhxTowUW8Dx VETkhRZVcNc6Sd1NYcKuU4x44XpVoPFtj6hcxISqWRfzqGpV8HyieC5oCROM 38SsO1isCgz+1FMdgky4JtQbP5ioCkH5mUczxJmw1pgrkuyrCkaixTtNljOh IsMr4e0/FaisaoEDW5lw5tRwyVKeMkQ+50vPdWJCyNHRO57/lGFjoYHgP2cm qN14qpc9oAwd6UmtwW5MyDrk4af1VRnGI3d7h+9gQsx/1sU9ZcrA2UQ5F7uH CWZ3yGx2qDJc/rKy9lkoE1JqY2bujSqBy3i0HTWDCQ8ub3gh9VQBappNtQMe MEFcu0TQ7r4C6D2cZHzKZIJwvOWdwKsKsNTDoz0jmwmqofujI33x+lotH8s8 Jkws3UT8pSuAfmLjsfNlTMjlzr6/vFMeGKZC9/namHBnqmuEtoDfS/LlEf7v mVBXv6NdsU8WhiYD97R9YILpHclQVqssvMn+vCKtHfsj+nZwOhWvl3j41PQ7 E2zOfB9os5CF4b71b8P/MMHZl5lkGSkD7tW8vD/92J9kcqPlQRmoT86J3TzI BNo4N1jPRQYyHKTcVIaZ0F11TeXrMhnwKOv99XKcCfTt3Q4uNdLQGHe7Vm2S CTK88A0Nj6XBOHBjVswUjpel+k3Nm9IgwSkO8OQyITJbT/aZjzScoex1qOMx YYd6v3WvtTSMdCjoa88xoVzOpoKiIw0eRa1S8fNMuKlHOSwog+1fPc9dWGBC NZnvRaFIw/8Akm6dcA== "]]}, Annotation[#, "Charting`Private`Tag$33690#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3lczF8Xx1vUfKd1vjOtUlpmiRAlkbhHKmlRiFahQrSTlFC0yFIikvaS JLRJm1ZUtJIkhWTpp6J9nbbnPv/MvN6vuXPOved8zjn3Kjl67jnCx8PDsxd/ /P+7tapPkodnGL3aLbyWl4eAm4JfzggKDKPbqHbsvgEBFqbNn0WEhpF9A6yQ u0ZA86f8RFmJYeRuaE2/LEmFt4MBLE3VYdQYsXN2n6oQVC0T0zpqMYzaAmZl PxuIQLafhmVjyjB60XpUxGEtDa6sDbgVu20EqXV21MqISICPxBVV4R0j6ARN JkZulQQ4TMdUnDcdQSVpbWaCphKwviq/39FqBMVdbY2KviYB38z79Va7j6B3 6jpykVRJ0PC0GauOHUGRkoHjBK8UdD7VthwYGkFP/Ejz7d+kYZXauOTWpFF0 cLhvn/ZeOQiMN95meX8U2d4NnX7sKgetwqluJzJHUf6hySWiIXLg99fsVUz+ KDqlft3rdoEcvHr60GuodhSti+KySySWge1au4aUoVHEnfAqcHi/DMK1Xgbx bxtDj0Q3eSBdBfiJogbe/BxD/soeilVuirD+X/21mj9jKEBiWt7VVxHC4gRW vfw3huQWPliKBinCyomzbi+mxlDCpUA/7WhF8Mo68u+p8DhK/nznq3KJIsxL bB66pTmOnlH0d1nzK4F0/+9R++BxVHf/jYH5TSVwuasYbRM+jmxjAvV77ylB qb6d5v6IcTTzwbfRJ00JHJLfnTK/O45ecFUu+T1TgnTLF+PbHo8jm8Dj9Us/ KsG6yqhJ9odxNPuEtdAopQwmtzdzh5Un0M3PIR4z0crwpvtms43qBBKwkfqx IkEZDNX+pL1cPYFKzWwqLNKVAV7eNrm9cQL98iwov1igDBuG/yVo75pAVmEC 67zblEHRNAVd8J9AUj56BeF0FZjkFwgVfjeBFKTvX8i9rAKnzO1sfD5OoMd2 jVoFkSowHJe3+mvnBLr29emL7DsqMLDOoT379wQyPGkL4fdV4PvBIs6e2Qn0 pDk5rKlCBRpeHK+PZU+itw1C7++PqUDKqWZx9vlJtCX+a/ad/UwIM3H317g0 icL3qtMl7ZngqiLyc+vlSdRfGNx4/TATNnzYWWh1cxL5296yOOLGhCaNGvsr DyaRnWTHt9KLTOCOvHj0t2kSnXSIsOZmMcHS69H2ZwpTaPPh7l9fppigY2T0 tFJlCgW1zK12m2PCcsX/pBpVp1D/a2GlcR4W9Lcw+39pTKESRXvxQSoLLqqn REntmEKvEqz2XZVjQfZgzFd/zyk0lLWt4egWFhDuIWegagp90VMOrg5ggezP rZIlNVOILG7RLQlkwUqbmfx1DVNo3z6f0sxgFpgZeAwqt0+hXy1tYp7XWHBL 3vqIwN8pVL3Z3O9eHAvkm9X21ktPo/XpoutciliwRr93WE9+Gg0v4S/8WsoC KE2JfKE8jXieFmqaVLDAMUOy/snqaTQYd5UtVsOCzAuLcGP7NHrlvM1wfSsL NNQ/rLH0nEZjR5otlgywQP9BRGOjzzTyyzj/j/uPBfvkjE4YnJ1GsWb5RX3D LPCjlD/YEDqNTt392pMzyYLy7oxlsvHTaHdUbN83XjYYRZ0V+lY7jY40Bj+q l2KDjaBW5v7GaTT/3SHLQJYNJ84NGbS8n0aeAWGiJXJsiHBxvlj1ZRpVUf9R riiyoRV2TaeNTqNyPp8VzSvYcGBEqfeYwgzqkTPjG9Zhg0d61XStygzy12k8 3KfLhgtWB4XZK2bQbbnuhK6tbEgqT1j7S3MGvfbTzc/SY8O3K9IBh3bOoAP/ bc4b28mGQd3CiMpdM8jIsVK/wIQNC0OWKQqWM+i+YUujuxkbFPbfqvniMIM4 ybS6Bgs2OCiL0mx8ZlDsp8AXmlbY/8fHysX+M8ist9G4zBr7DzfWkg6cQc4C yf9tscX+By/bfryC//9m1/5VB9jQXcr3YHfyDDLP1DtY6MiGYffUotz0GWR8 SSGf4swGHiWoF8+aQVEMP7U9R9igePn8UFPBDLqco5jUeowNh/ZObzKun0H6 ktmdF93Y4CV41/RRywyaHflanODOhqASrYPExxn0d1VIe64HG1KWnwqp7Z5B PGTul9debMhtJe+yfs+gHz9PNbz2ZkNVaO6jkP4Z5OuyUrDiJBt6Bv41603M IO3OAdcEHzaMJl3vSeXOIMWR9YkXT7OBb4/aOA8PF2mJ/mMf8mWDcrGLbKUQ F9lnsi2ofmxwDPnptFmRi/7ks3aLBLDhpPYl3zgWF53dbJZYhvlSv+KVmZVc tNLri+3Rc2xIs3DILtLior3rsjdknGdDPv98ldRmLrry3xo73QtseFkY/+E0 4N8To+cbMP9c9nla04SLJO1C33wKZMN4yxnhaAsuarxuMbU3iA1LgqUURvdx 0Q3yXO5bzBIbnq/dbcdFGxfYUxsvsoHZt3d77iEuyjzm1ZyKeX3C6D7xo1xU 7nhm05JLbNA3v+ni4cpF+5bYbT6E2fl5c8QqXy66FLmeJhDMhi/jz7XUA7ho QE1OeyfmfesTv64L4iIBWlnbZczNp0JC14dykeCb5IEqzIbPXFdrX+UiZs+u C+OYK0b3fNx0g4tu/9l9QzmEDRs0dM7r3uaia67rlEwwZ3srsdA9LoKp0xs8 MHPyiKZtSVz0Sybz/TXMKcNDPvr3uSjvgMXEfcwyaz8t25HJRZ/3TN0vxBzl WfF651Muig5lfX+Fmch54Gaaz0WMYKcnDZiDBq9LmBfh+HRsEm7GPLPap2x3 GRdtY6xbrMd80t3O2bIan7/q/dWXmPuf6IlY1eLzuKfnFmB2/LuiwKYB5ydj 3alUzF1qpL39Oy6icXk/hmO2dJ3mP/iRiz6NJ3acwNyY1f34cCcXiTAjg3Zg 1u+v3evczUX9EnYtCpjLV2TPHv3FRfctI+qGcXw2HL9z/3gfF7l5PXUtx5yd ec7EbZCLzk9srwjBzP7jNOYxxkUU78/VhpiTOSbx3tNcZOg16cePWeaYxnaf eS46FqTSW4rzF5UhO+DLN4sy1/QJu2Mmenmi/SmzSJt491cWcxDrj845kVlk EnfoWjXWg3d64dWLUrOoZ1mqMC/m/p+JGiFys6iO4zgai/XkqBLaGaY4i4QU h1LUMO9J27vy+spZ5Cd64+A2rMf6Hp3WSPVZJCz/zOc11ut2JeWzN9fPog+7 auz0MK9PGX4bs3UWvTJrf7QG6/1J9yfve9tnka1Wr2QirgfW8krZBKNZNHFK 0EEQs1RSxPHUPbOIoRZ3/e1ZNkzHr6Q+OTqLykfnH9FxvXl1kXnZrrNYr0Fb rM+woW/pjHWe1yxKat9fHYvrs/NeXWbh2VlEG2WmC+H6fXHX2ag6chYd8dWQ z8f1v/6TyfCr6Fm0e3Hn2RbcH55IacbWxs6iu/ncrv882ZBwh/dPQ9osojbt LKLifnIhOulye+EsMt8eKUE/gevfO9XJoAzvT/HVmhEXNtTuSkcF1bNo/Wun 0Hrcr8SEsqZuNs4iTbJt3BX3s+Sg58fMfsyiiJAfG04cwv3HvXHHa9E59J3f QM5qH643kxYVTcYcOtHUFti1F+drRetiqswc+iQTaGm7hw0Wvz4VBarMoZmf YnY7zHG/sv3J2bxpDr0hI7S7jXB/MuJS8p3n0MuFm7zUzWzIYM3/VDwxh/Ye cBnQ2sQGY36eqhuec8h0muJ/QJsNtyoE/NzPziHyVuT1BE02qGiRf1Sj5pCl nNpQpxrWq7Lqm+QXc2ixSN3XDs+n0Ll94RH0eXT3WQfnEp53t46mziRLz6Na 7Y/TmuMsSHr390T+snnUu6TpTM8ICwrTg80+seeR8cN1V9Xx/PxjmkdX2jyP JI2PGMf+ZIFpokhigdM8Uh/jhCa1sIC+9VVeV8E82qaetTMqnQUKmWIqgyXz 6MibeyNlqSxQo9ve5qmcR1slk+J/J+H53Dvsy3o7j05OHeNRu8eC05EKup5f 59EWubv7wyJY0PHNv5ZPcAF1NkhcuniaBcmBa7tWWC0gwdXymxP0WJDFPlSt bL+ASJmKfgeE99t046Hc4QVU5EWVVNBlQaPc0ClR1wUU0R3286YWC6aLnoqM XFhAR355PTVXZcGe4ZVbizMW0AD9/nK2KAsEDrNSDScXUJL+9VbzNnwf01t6 zOnOIlop0LZUyYYJaZePXHwTt4iWByu1lVsyoaMxN351yiJS0WarWFkwwdBq x7uprEX04t1sZOAOJii7+Wy6XrWIDhQemXyohdffaRZ+PrCIsp/cf2NDMuG+ zzZ8beaBv7u2J1nVqgD5ZmLO8gwPSBX2rXDnqMDUrOfQCRleODdTs+r7TyXY O3HgCKWOF9i2q03ijilCeOSHMydP8sGqZy5Kx6rloa7AVtOCzg9rGvMMPn9b CudS9p0sqMS8/LHX8QZp2CzraHvt8BJYCFiusElcErysftT8oQnAJ0Ml99VW dPjjy+d7jyEAVeEqBNOMDodilNnGUgIQ/0aUpbidDrs/OoY9lhMAPaln86rq dNDY+9PQgy0Ay4oGP5+n0GF816+6sc0CoBAQ+2JTCQlnDHvfLhwVgGLPFeJs JRIuaPU3SZQLgADzy561S2iwMj7b6G6lAGz4Yy16e1ocPvGceiX7UgDuZJjW fPgjDmsbZ4sV6gTg7O7BXX5vxaHHUTRd9b0AjKse6t1/TRz0o9ae1f0tAIqc VbRTpDgIDfiynUUFoTL9U4oHRwwKLTan9ooLgsRlvXdIVgycChfljtMFQYdJ iVEQFoOyi+Gkh7QgPHF0EBUYEgV3mbi5M0qCMFt89Y1vkSi8MyhvvaYlCDwS VLtJY1GISeEPfHZAECbrxPSenhMB648fGW6HBOH84IC6jqcILBXKzGQ6CULT 6JeYjsMikHzKtPWOiyCIswf4jXeIQKbhHZbfKUF4oG5ay8MQgdK/7EbdK4Kw MbrK6O1TYfi60Vi2tgDvr8JrhdKIEKS4L8u+UCQItybMHSd/C4Fj2qCedqkg nLtd9+xbpxD0Cke7ZVYKwpo4r7Y/r4Vg8FtX5dV6Qcgo3+L3654Q8IS6HzX/ Lghzqs4ZITuEgPk+6lmHMAXOPuu++CqPCktNKQwnMQpUXAuufviICmTd+ZP/ aBR8j2bTklKpsFB2Yh2fFObhp0uqb1LhU6Z+jpoiZoH8kz0nqXA1aDrrwnoK vH7Xk3pnIxWCZj2EqNoUgI2PapLXUeGM7+/j0ZsoENJ4ObVsJRWc3VpVM7dS oCz63eM18lTYYv0k470RBdp3BGhM8FFhWP1QGvMABRQSru6QbCWgN6udN+cg BfIfz343byTgK8vs8CZHCkTtTOhKrCWgXk5HcdcxCpQa5Sv4vCDgPkUi6Yw3 BQwX5ZYIZxAQd+nqPK8PBdauGm/uSSEgap7nwHVfzDLh5o3xBJwb+yeXGkCB YYMVCV9uErC/u+5efSgFRtM2Xxu4QICp7dYZy3AKnDj1Re3wWQK2fyyw7r6K z6tZ095/moC1DanS4zcoEJRQcFrHnQBqUcAd+TgKtBZPLDbYE8CjMTr+MIEC Ys+qlv60JmDyiYulRjK233Twttg+An6k7WPsSMfnvXCoOc2MgLJI9Zte2RSI PLk/tBoRoKEqozaYS4Eln/Zzr+sSkFnNU+P6DJ833t3SbRMB0ePvp48WU4AP nnUf1SSAiCy99auUAnEJjcxLawm4wLm/yrGcAuf2vvfNW03ACVufQwdeUmBj vfdxU1UCvo/ZcztfU4BGmZYvZuHzRxjctq6jgHHsVspGFQK2VUm92dtIgea8 nmQfBQJk2CXqxu0U8Lu7h+eHJAGRlalv6zoo4GKW7T3MIGCJzVUngy4K1Jr4 HGPQCRi6ZncXvlOgU06CuCtGgDNLf13FDwrEnOionRIhoLNiVcPm3xR4M9u1 zl2YgNqR+YUN/RRI6j69PoYgQPdab2zBXwqY5kx276QQkM9s0dAYwv5fXDtI FyRAtaKoMWcE60NvZfnQEgISrVKOrh6ngEdwHd8PfgLoI+E8jycpoFtmrdPH R0D4Ve841RkK3FL74C6AeUHFdn3GLAUWxFc93MBLgE+5XrPKAgW4D62Hz/EQ 0L9fzSUVfx/ug70dixQ4NMzgW47tegQVfjDC3H5lLj5BgICfz1qPN+P/maj8 1lqK933psY3IccxVZU0td4UIIG+I58tg3rC/8LikKAFuYcW7v85T4MlQEn+0 OAFQIvOjELPylcuJNBy3I+bjNg8wxyp7aUdKEJDuJZ6biVmszPq9sDTWif6a rirMIfu2uV6RJSBwTKL1H+aZwRUClGUE5KRfvqaO/XmE05NDcN4kgowXQjH/ UprdyKdEgN9TJaURzLYvfrYG4jynW77v98LneWfZ6DaPdWCdKL9HAJ/bcLBA MADr5HhOvVk25rLLiSnTK7Hu8hPaXHG8NJTCdHyxrlKbrb5uwfF8WOrRNqaO 969W5cDEcVpmaeXhrUHAveF75stxfm79Q8TQegLEDR9lrMFxu6BI6vZjHbeC v+NVnN/xkpmPx7DOC7ReFrTjOJ7Y+8Pz91YCBm12G2njOO4Pe3b/+3bsp2WP mBaOY+PyhC0OhgRke5mtacX60isJ+dRlRIDm96QTwTQCVv/dJ/wJ11XX2/0M ZRzHYkvTyqsWBIjtNNXSkSJAv1zv1Na9BCidmvp4XIYA+0j1rge4TmfPGDqL yxPwZ5J1w8YO+1m5Xyd0OQGnDi7bLupAQMjGsYN0ZQKurqU+9nEioEni6YmT HAKk7i06qB4lwO6F1kYDHKdU3kn6FxdcZ24qbHUcp+LWH2e3exDwPkVgvRGu 116fMmO6PwHPljU0RQABJ7/mL9QEEKA1cNhSRp+AeYNH+f64D1UzRRNLduA8 Sscs7QkmYCzczwDMcT8q8ezPiSRgS294pv1BAlLmla+apRMg61txtA6vW3VU divvQxyXmB+Xi8MJKGoWHy14REBMj392ZQQBzclzNstyCOh49PmLeCz2t619 xUAJrtt3230KnxJgG3blbXgL1uvssC79K97vYOB5XdyXoz0j1zj8JMDbynfd cBsBwi3zLpV9uL5Une5ZdeL4La64Uj2J/dXrHmf/xnXMTVz1iqSChPgw8ZpL AG+rck6eCRXayq9e3jmP833i2OjbPVS47cYSbFkkwPzyRrlxGyow6m35O5dQ IdFp9dR5FyrQQ2vmh8So0GMs33g0jAq02bhRORUqmP8ZvRxSQwWR/wy+nMJ2 pxcPbHhqIQSNd77bzphRoXifUPyQjRBc1w/4fMGCCsp9j/P1nIRAOC23/co+ Kqz4HtC21FcIhA7IvU8+SMX9Tqj9ZoIQEB+GaxpOUcF4qsrj1l8hEKiMz1FJ oIL/E7/fcbHC0Kmrb9SdRIWS0FcFH9KFIbf07/c4PDd5pm8WK+QJg33hFjr9 IRX+7R5aNfBWGPKfdvvw5FPhQLDKKfs5YXBIUNH5WkcFXgX1t3ecRaDY//Hr mDEq3NxSvklMTxTc1r/4TDURAqkLAstc14hD9buPT4rNhCBtt8XGkK3iIOU+ HHgMn1PCcs/w413iUPWAxa7ZJwRPN+wW4HiKY71EnQw6hO8BWeJB9bniUDbj LDx1WgholxLMHeRoIFIptuVXihCIZtfYX8igwZOdjikVk0LQ9GDXEs13JEwO LKX1xgiDdqYoc/NGCSjcu4P/tr4IhCZ9tJOWk4Ygo9Dkgl4R6BkMtq3hyoLy V+OO+6GiEGf92arr5zLYrB1yW1ZDDOwtEvLaCUU4oNAyw/tBDLwP2GlNnFOC yfqIH14XxUFaItO/c04ZTPnUdVbQaaAZ97k/zpAJi3nX4lwYNGj379JyMmFC /uE/3IcSNBCf/L1xBb5vy1SnvmBL00BFuvFANr6f/wqU2MJcRoNm9L0nwY0J 5+Zn0HI2DZaZ6DUQt5jwePq1gaQODeqNKn4KdzFBaMh2N68jDcI75TW2HGGB UVhFhZ0TDXI/E92lx1kQJq+8qtCZBlJbuldrebCAz7RP0PUYDZT4Tz9YfoYF M5lnytrcaFBoZvmoIRy/jxxvczLP0OBl30G3849ZUNveNL8rggadafEqmoMs WOKxzvVRJA1MlKot0CgL9ATudPBH0UAylqjegd9jFZr2z4pv0UBjG/Og2QIL nkf1uyjH0oC9PWmrmhgb0o0pbRNp2D5dbmzNajYEV0BWQjENjhiq+m7D79dO v8m57hIaqD5UeRLtygYNzSfmKi9ocDhXd9cP/P798VB64lE5DYy6WE0++D2t d3MQFb2kQYnbsZMel/D70znh4/tGGjw23Yry49lwiTrNQ+nB8fcZEXRtwPZf Pd1r/IMGFpMbpQybsf0LThkRP/E9XvaGvvx7bH+02USilwYKjjXjle3Y/pcH MUoDOB+dfw+292D7OXtX6U7Q4ItWhYHBFBsuWuZYeVNJyBNU8lm6nAPOk65F LUIkxCGJwQwlDhjGqkqvESEh4ve2wDVMDoh8SW3vFyOB5i3UtWYFB2Kdbu9z liDx++CS8rgGB3JP+u+1Wk7C6I14vUgDDkRLbHj2XJGElEK/qvodHPAtHKVL KJMgsSqcyWfMwX3JtfUdk4Sq2dlbh3dxoO6iw27jlSQsm3F59mM/B75FbTff okWCyOvevQNHOVCtwZMTv4EEwXG1mjYXDqS3lYlxtUm4ZBk/UHyCAydkNjQX 6pDgkFxo4u3BgYlkVbO1QEINh+RPO433nyNqomJCgq3dr2SeYA4MWdRnXTQl QTVXfDw6hAOto2FC381IWC19oFEpDJ9vA099ggUJRhLL5ldd4YBKxaiR1H4S Wu/YU3lvcECn6ZMh9TAJG8R8FRLvccD+QtP2w44kfO3cGvs+jgOB6q+gxAnv r+TRPZ4EDry+ma1z/CgJH+QbObuSOLBrf+iat64kjN+jKT5M44AXJUBNyZ2E AdGi0Jz7OH7FXqr+HiRwTzfa5adzoGOpvfIKbxK8o7PMHmZwwKlbQ+qKLwnK crxTZlkcCItSZfScIQF2/I1c8ZgDmdsUaJv8SXxfZwQtYh68TxXqCyCha1uA Y9xTDtD2LQpuO0/CAa8hs4PZHNAUnOC/d4EExV6Bywo5HPBz+T5vdJEEX5mg 9mu5HIiTbeemXCLhpqj0f5vyOFBe3zA1HUzCXGnhph+Y+VYXjWSGkdCY43tP 6RkHmN+eDPKEk1CsXp9SjHnHjbQB6ysk8Hy+/m1nAQeuj0T8Jq6TkC9TO2L7 nAPZacE/DkWQ8OA/z+pOzO/3+ncXR+L1u4deWBZy8Lvc+bPLTRL4nT+ytIs4 sOmYbXvVLRLWGnreSMZsL2PxQeY2Ce2aBjJ8xRxIPbu56U0MCbfThM89x/xa bV29YiwJ6+3VdwuWcKD3C7vO7x4JVrcmNu3GTI1c9vpdHAn6PWc0YzCvQvRq 1QQStvxu0fmIedcwpSIokYRgHWkzsVIOeKfOl3YkkWB//tixbZhv7xkrWpuC 9WrcGeaBuZC/ryA8Fe9H90rmHcwdBd/yvqfhfI5EvC3EPHukLXtjOta/AN9/ 7zErSNc/jnpAwjGJxflezPCmMvNPBtZXaZLwJGZH/+cPIJMEt2iuyCLm0JWP 02IfkbBPd9Ui7wuc766U5OEsElbuNutewL/XX49JMHqCz+txJmsC898t1++l PP1/Pl4f+L998aGLMdPZWH/rzCbfYdZIORNtkUuCOrnK+zlmy93uUZl5JGQd P9sQjfkMn1MEzzMSnnzazeeGOe6Z9VXrAqyPqQb6Vsxlzrsu5z4nweQIH5eK uVtSP4QoIsGrXOx5C47fsv5rR3cWk1Dy8l9tNGbrig9GV0tIeLXht88ezHdu yak1lOL9no0rE8bcetRJVKQM+/+XH1+J8ye2+fGQaTnW18gHcQ/MJuJj7yMq SNj2X5qU9P/zW3QpRryahPuq31utsR54r9f7WbwkoUPrXvAI1s/WQ3S7m69I +Ft4pzwEcxGRtpxRi+N7d/BVHNbb+Jc+Xss6EgqL7lyTx7w2b92v229ISGqW /BCH9ZplU50p1YD9OW7oCMF67l1NvWbViPWRonRzJB/3B77d7rFNeP9WAVXW mBOyvq9biud4Qr64vxSujxuzi6XyH3G95rWKm+N6a2zZkejQTkKtkZHODVyP RPqNwORPJJxzsHrz9gkHLpku11fqxPUR9klgDa5fn8StTcxu3K/sfV/nP8T9 1jss58h3Enb6Nr+twf3gn0HzzYwe7I8xsPzDAw4cHTywX/UXCXa2lOdfcD+x Qee71fqwPrJ+wONkDsQwaqrd+knI9Dx9NQr3o9b/RNKfDuD+Uj5FeiVywDQq wUV9kARPn0Pv5eNx/HpejGiM4f77o6NFM4YDAc/5206Nk1AasFDbf5sDxVdM CgsmSGhL29oXH82BdRpdZzdMk1Avl/7gbxTuB8Fcfp15EmKMl5btuIbrjbVJ ahuFDsUrXSx+XODAu++XBRIJOtjYuvdKncf9N6F9fJpKh0+BxT76ARxQlfD5 kCtCh+GS5R5Xz+D5xJ8TpUing8ROtaBqTxyvHqYwjzwdemt5L3524IBx4imu nQIdvx93aibYc4C0edlXtJwOpdptT61sOZDy7uAbT2U6BB7JHirex4HKyrjQ bg4dGp1O7mGacmAukcZTqUGHQ9384/HaWF82B4eWrqdDqOWel33rOXBNMvub rxZmtW7VtXj+LY0wKV+zkQ6RIs/yM1ZxYOO5sLNJW+igN6N7RAfP09O2c+Pn jegg6J3+YIbA/VjqT5+uAx0K/GRvvWxlw7uJ8IqLB+lg/vXiW7sWNuS1rYiu PUSH/zyFNw3i+e9zy1XXwokOUnfLCxdes2FWdCjSyYUOfVpb/zQVsoEQmNS8 epIO3Ol8HpV7bFAZ47/wKYwOmnnnhmKs2bCkNX3PsnA60OY7PPdYsqE314Bz +AodjmlrdApasCHL4/K7/mt0SBqScrLdwYa1/UIqC1F0PL938j7RYuP8k2+Y 8XQ4/mO/6RSNDdYty+knc+iQ0aQkIP+SBWfLZ4JzczFfsFERLmdB/OMPE4N5 dEh7s5wzWsSCb5cvf3YtoMN1bWZ71lMWOMFQypESOsSPpNysjWWBR16Fus0r HD8b0YAH7iwIiT5gBp9wvmjNc8MkCzIualde6KDD/oe5VlPCLKjzJNeVf8b5 sbq0a1KABUKmNRI6X+iQxagU/DbDhBtLVn/R7KFDjLvGYcseJsSdnjvBGcD2 VqSXdmYzIccqPlxskQ5rulp+bdFngv3qcxQXHgYQob6hZbpMIPgPhFXzMmCD g+gyDS0mHMpWCPFZwgDaZ+PlfGwm0AXSAjupDGi7WqmmRWGCT36mb4YEA7g5 zvW/6lRgo2ih89aVDLC8oh+xT08Fql++A499DNhUEZnUsVQZwl/wP8jdz4CT XQFJGaQy7CrYQB2zYoDSiX9yboQydD5IeH/GlgHWuu9Dv04owXi4i+PFgwzo sHrVavNOCdjmPCG3jzNg75VIncJgJbjepV5Xep4BoTWPrv37qQjW45FmlAwG eCBfwVTGcqht1lvr+ZAB+38Hu6zhKsD6R5P0T5kMYL14Kf3guwKIOzh0ZDzG 62v1tu96qgC1daudDPMYkCtkKXHDQAG04hv9QssYwKyZbn7tLQ90PaF0/g8M +PJ5g2prsRwELasIc21jwM510nvOJcjB4KT38Q8fGfBLO3lcLEgO3j7+vOZ+ BwPilSWv/DPE6yUfleh9Y4CsfIrWjQ9LYejPjpaLfQzwUfJqcvgjC/avZvP6 +hkg9bbOOaJeFuoTc27v/ovjdfCSUPoTWcjYI22rNMTA794bR694yYJDWe+v qnEGBHWJPdSckoHGmLg61UkGjGaGTqV2yICO966sqCkGCApsUZoukQFJdqHn IS72v+nLb7tzMnCJ58SeN7MMEPIPOHX8gAwMd8prrZ1ngLd0faXDVhlweP5e OnaBAQffqLzevBzbvxHKXVxkQCP65c/DIwP/A2D2HOA= "]]}, Annotation[#, "Charting`Private`Tag$33690#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1, 2.99212705118339}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {1., 2.99212705118339}, BaseStyle -> {}, DisplayFunction :> Identity, Epilog -> { RGBColor[1, 0, 0], PointSize[0.02], PointBox[{{1, 3}, {2, 10}, {3, 3}, {4, 10}, {5, 6}}]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1, 5}, {2.99212705118339, 11.86524960913645}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}],FormBox[ FormBox[ TemplateBox[{"\"Akima\"", "\"Hermite\"", "\"Spline\""}, "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]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), 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[{"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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.7548348675550547`*^9, {3.754834917019088*^9, 3.754834963836228*^9}}, CellLabel->"Out[171]=", CellID->683870088] }, Open ]], Cell["Reasonable extrapolation permitted:", "Text", CellChangeTimes->{{3.754834987660985*^9, 3.754834992464479*^9}}, CellID->392529358], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"7", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"afun", "=", RowBox[{"AkimaInterpolation", "[", "data", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ifun", "=", RowBox[{"Interpolation", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sfun", "=", RowBox[{"Interpolation", "[", RowBox[{"data", ",", RowBox[{"Method", "\[Rule]", "Spline"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"afun", "[", "x", "]"}], ",", RowBox[{"ifun", "[", "x", "]"}], ",", RowBox[{"sfun", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", "data", "]"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.7548346343089743`*^9, 3.7548346700824537`*^9}, 3.754834700869162*^9, {3.754834745419067*^9, 3.754834772175268*^9}}, CellLabel->"In[136]:=", CellID->784101506], Cell[BoxData[ TemplateBox[{ "InterpolatingFunction","dmval", "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \ \\\"0.00012257142857142857`\\\", \\\"}\\\"}]\\) lies outside the range of \ data in the interpolating function. Extrapolation will be used.\"",2,140,18, 22802914569884069103,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.754834661452868*^9, 3.754834702239736*^9}, { 3.7548347466537857`*^9, 3.754834773493952*^9}}, CellLabel->"During evaluation of In[136]:=", CellID->1447082783], Cell[BoxData[ TemplateBox[{ "InterpolatingFunction","dmval", "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", \ \\\"0.00012257142857142857`\\\", \\\"}\\\"}]\\) lies outside the range of \ data in the interpolating function. Extrapolation will be used.\"",2,140,19, 22802914569884069103,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.754834661452868*^9, 3.754834702239736*^9}, { 3.7548347466537857`*^9, 3.7548347735369263`*^9}}, CellLabel->"During evaluation of In[136]:=", CellID->868031606], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV2Xk4VV0XAHDTHVCme865MiUzKaK5tJchMhQqhJIoqUwRRVIkXoXMlRCl JFFJKWSIDA2ikYyJko55bMC3v7/O83Pdc/Zee5211vPcJS7e2w/w8fDwZPHy 8Pz/OmPulW7lfWbTq2Ocjvl5LkTsV1V7q+KEIv80MOanufBmqPdwjIoX4oZd +8wzwoWRh4bRHiohSMdQ+diCbi6EUeMyu1Vi0Rcj4dOGlVx4VWfWt0MlA/Hx VVhqh3LBOzOgwVKlABkZPTzBw+BCVXR06VaVcqQzqFdvR1DAYPqyfh5+i5Rm KqJjNAkwPb3v3CPbz+hq8Tb3pmgJKA480HGzuRMthOr9P7ji0OpwRMv3+DeU GfrAM2+bKIibxLhVwQ9UnTvp29K+AMQ+HChc4/gLaY50Lt96TAgU5T1yz7kM o85Pie6WlmxY2+H5Sj9hFFW8bAyRCGZC1Z8zFh+ujiN9odQPXncFwL2ivr48 bBIVnfB2viDHD1dcc6RI52n0aDJru1IRLyzb9XVq7sBvVDQ+IbfGiAc6xy0b wfQvkhh8ciVjbhaNdS3Spmxm0fGXE6tcHf6iuLygg3Z28+iy8jvhvnczSEWU vfXEVR6Q/PjbNC94Cj32OZMXe40XDOP0t70QmkDnS0eK7G/wgqtahdE87wTa y9xXrpTDC6auhRc2/h5H7DT95pICXtDzuate9WMcOdTxTX9/xguaBc3B4zXj aE72nAFq54WpyanV/GfG0eZXUa3DknxwM9HpocDvMfRBOZFlncAHiX+0E/Rm RpGpquRazxQ+WOm4ev+34VFUrpbuHpXKB4bWPY4Xf4yi3KU5DVXX+aAWNn77 /WkUhawovaDzkA928+92lXo8itT0vokSH/hAt/ZQUbz/KAreqSv5meSHZeUP x9J/j6BRmydbxhfxQ4/Vsf3SYyPIzU4vUBTHlUjYujJzYARZO5h8MVHhB3HX XWRl2whScXZMe7KaH/aSukP25SOo6chZ+VQ7fqg6LB0xFz6ClM6+V9tzhR9W 7szPsZQcQbsK+Ve4pfODjn+v+ID4CIr+qrvOO4sfro8rV0cLj6BJlGQamssP TjLB6NPsMKr9t/Pwzaf88KX8d+Si18PoUMCnvMFWfvDcsCD985FhVHCodXmI lAAY1mWufPhkCPVcFlwTKScAixL/XpEtGELc+nUoTkEAtnu/ak+9MYTOqKRa XtcQgBzXx0aNsUPI+puDT+16AbgZseyGlNsQmtjd/kDEUQC8FhjW2ksOoXVW XSuvXRWAwFeyfOMXBlFZP2PQ5ZoALOi9LX8wfBBtCtW8qXJDAI5N03mDwYPI qDCQLLgjAH+qs410vAbRNoKYKnsqAH394wpXrQeRS8uW4i+fBSBYULJoRnoQ 9fp4e2e0CcDBhZW3UslBdFAwRdWlSwA2fNWdshQdRB7rv136+V0A6PyzPyb4 BlFA2qkTM5MCsLWpt1j9F40uOBeuowgGeHYXaVtU0Ejkd8toK5cBa5bkzGiU 0Cgufj43XZoBTNaJhXKPaJTy3EJKWZEBIwEl9vp5NMpU+vFHVwe7vUc+5DKN FJ4tfDi9igGV63+N8yTR6KbNyiOl6xggd7vtwuWLNLoTEdpmoM+ARrdAY2Yk jYr6pcusrRhAuzec7wig0epQg2PkTgYorNVVZ/vR6OmiQ5qtdgzwDY0V2OJN o3Kzx2nOexmQv0augOVOo/q7Vqe8vRjgp1rt858Djcw2H1+l68uAo2WtqU52 NHrTkT445c8AavWvQLOdNHon8mtPyCkGZEbzJ7puo1GHz7lNMdEMuFyq8THN kEY8lZWy1+MY8INp3jUINFIS/ffvcRIDNloa/9u1iUaH831Lu9MYkCJiUXpq HY1i/+WnTmYywD0r+eyaNTR6YP4zUOgmA7rc1+YJr6LRzM+9a1fmM8DqDesA /woaSa+7yjV9wACpCD9ZVS0abfrv09SeRwxQynscemAZjVw+i3/yfcoA25cj 2eVLaXROZeujyGcMSD6qn6qjQaPb/v8lpVUx4OXy+mNVajR6XVPt9+AFA9ov ZpscUaXRMGd+e20DAwoVppS1VWgk4bpep+0NA1b6tyuIKeP4FvqLjzQzYAt5 3FpYiUb2vA9GBD4x4FNcX80SRRoFW9FvF31hwAt/k7gdCvh8r6neW97JgH/W ZbWZS2hUPeQSa9jDANeHricFsb/rZXju+s6AbtU9VTHyNBKKabXwHGDAbr36 vGXYy9oJzbAhBjwLrdn6czGNrJZaCV8aY8BA2NGSSuxjQRcG8qYY8KpxSKAI +1JDbUPlHwaYjDtCNXaJJF/uxzkGbA5pOT2E3XlQ778BPibkz579tArfn7f4 xMF5JhMOzJ+yu4KtxCwyJoSZYCP+nVyE17fFZlhZXZQJ+6valB5hH8nWYGzi MCEoPeSSJ95f7PiB3u1cJpzSHTpjgPdfaJBVfVD6/983m9DF8fkY3349eDET ftY8EDDA8Zvp5obFKzJBvt3ohQeOr4z2jn23VJnQ06tgWoTj79LYsLhJiwk3 +Db9uILPK0KWMd+rywQf3RLVtZo0yvWAzt9r8Hpi5o+P4/MeESpOUwQm7Jtw TarC+cFxGDu51ogJa2SfR3zQxeeVu8xx6xYmvLt18KPAahqdMsledNyKCWMc 1odn6/H5pHTNXNjJBGMO3DHWo1FNn1RL5i4m/L2zSX0Q4fMIj0956cwElTYh r8TNNFr+/rV/134mHLnIdUjcQiNrBbbNhDsTCjjuGx6Y0+hyZQhH7igTXldv 1zDZTqNS0ZIxHX8m+AtrOlXY4Pg7TTabBDKhxKHuvY09jZRnj8QdDWVCocnz pg5nHL919gtfxDMht3uj+u6j+DzGzqclJTNh3a4sn2B/GiXfKVu6/woTtvMF pRUH0uiEtLwZfxbeH93QFRKG34fZ7xH695lQK15Yvz2ZRvcfSVLiRUw4TET8 ME+l0RIvs5vdxUwYN95+0PkajQS68qtPVzDh0Hqyvi2XRq8qj/GUNzLhmjXn uWwljTYG3roY8w4//2VA2vgLGhWsaJHb84kJXB/bnX2vaJRwfYPevw4mmBu8 TpVpodGucL6g9YNMsJzeu7p9lEa9JnHjj4VZMGp/yThfYxDZ8jwPixBlgcrp QKMtOoOo7sm4uC2HBTavuyR51g+iO+p22pNSLLDtCDpbazqIfITlPHU1WHC9 6Qnn/uFBNNuY9/3eFhaEFlaX8xcOIq/IDv/TFixo08r28SsdRN1IlGFpxQL6 rdgYz4tBVHPfV3HIDn8e0JTl3zKIziesc9Y8yIJc22L3Op4hRNnWtd4+xwId IlFHym4IGW/MhgNRLOhI9x1Y6TKEjiuE5iyJYcHmBIW1np5DqGVovX9qEgt6 JNPfrg4fQlcjC8Sib7DgqWZGlNbDIST/NNnEu4oFr3+2z1VTw8jqmm/B0hcs aOWmjZcrDqPQc5Zkfz0LlFSb3Vu0h1GPteA35yYWCJgYix40H0Y3B4JDtnex wEl67vtE6DDSkNn/aNUsC1zj76d0TQwjBz59mTEeNoxkyYj28Y6gC/2yZwsE 2MCzwfXCUcERRBd9tlJdwIaewafpLbjf39tqTktKsyFjPrWqfe0IWnlaR/Hf WjaES12pzT01glAPT/zzY2ywODxcX7ZoFImdHpNrOsGGlVkX/LWUR1GPdO/d jmA2lNheyX2mPYrCberqZ8LZYFB6f43mllH0sj6GRyuZDZlfXFu3nRhFtvek fK4+YkPQeMi1+I5R5BG80vLYFBuCU7KvbikdQ5sWqXSE/mFDXGT8q8mGMST6 mHvk4hwbZPqW8pS2jKHC4T8Rd5iC4OAqxoqZGkPTLlXl3ZQgnG/XDLTQHUdh ptuWb10jCD0Gdo7yD8bRFcp9ocoJQTDujwm2ezaBnshYmQ+dFARtK83TN95M oBaFtVGPT+PPj9nu5e2cQJJabIZJpCD49PLsGZubQCkmt/8dTBGEiIWJjbf0 8fRzov9XbpEghDU0x29+OYliv7i/XDYqCLtlvzWX/JhCYRmHIlcdFoLVbbd4 I7b9RumNl2tjfYQh3PyHlJzMPDrllTgi67sASub6hSSu8cGvfWqS9i4LQVNN wdsqmAEXZgcEOt1E4N2d546xrmzYcjSp/s5hEbC1ML/51JMNAn160ce9RGB+ KzHYeZwNIa/jOOIBIlB4QMaUG80Gn6urFYzOicC9+OkhvSI22K4LQ3duiEDm Ku/mXfyCoOC/KCigWwTMA0WG/NIEoav/uZ5hrwj46psm1t8UhLTdHrxi/SLw ke1RQ94TBNKo4r/cYRFQj5JLu1IlCGzOgUvtc/j7f9U7Nn8XhKH794sMZEVh cM77nMpyISihTYZFHEThtqXrkeJiHIfYtPP1e0ShVlfMqqNCCAq1RpXD9omC RrFzzp86Icj1Td096S4KbGGrMOkWIbg8Qze0HRcF6bHFTyamhSBAICH7drIo 7CA3X/m7Shh0ZdrtDZpFocYzp0skTxg+Ka/tWa8kBtV22ab1IQvAXd1VK/Gm GFhG7xOy1xeBKlvHk/py4nD5z/OWR52ioLtrIJfIEgdBv9r3l+rFwOOs8Wc9 aQkwuM54Z3peHP5zY//hTcTu1VnM0pOAZ7L75gcIDniQ0/znhyXg6VwEv0Ys Bzz3pVsyz3EgdnRJ4po4DmhWXx0+EMkBl94yhc0JHJgeUFOtieKA0MsxfecU Dgj33bcPxt/bnex0JiWDA9cHKx+1XeLA3NLVs3z3OEBkaybZ3OGAkX3fVNtb Dhw1iNmo3ciBxoeGAzHiBFiobWncga9hekV98RwCxN4FZ5ni6+o6pa/JJAGi Ozf90MPXjC+MlvRFBJxptqlbgq+evPUv8pcQcMhkV80neQIWWFpkvVlBgFVD MWNSiwCzgZ27Fm4ngOtvbDxrQcCc34sd4jsJ0Km2HarYRkDh7CpL0paASG/X kTNWBEiJc41lHQjIfL93fnYHAT/XtOoucyGgxslNtxf//b9ze0S3+hLwWaPY xNmdgBfybrXRCQTU/nxdJR5GgHxX8yKvJAJmOYGpZ88SeE7Q87RMIaBXN2Vo PJwAbSmSkEjF9ze4yWyKJCCNU7PvUha+v0x2r38MAceYCrNZ9wk48Sru9fHL BCjRHbrFjQT4WkUMW+YTcPqOaeTlJgJOugFvXAEBX9wffQl8RwDza1BQ4z0C 4vqiQzd+IiBkdCzTuJCAf50b3lZ1EDDCc+quYjEBH5qvHH5NE5D8db9OXCUB 4cU2WV+FSKj88S1tOb6PdrP5f78WkCCt5/PT6j0BbQP63pMiJLx+uXLT0Q84 bnLL9QQ5JHxasm42Dz+nK5zZqi1NAl05UiLYRsD67cViZ5aSEPVp6dkD3wj4 fiR/OmoZCYbd/eMHewmIP3ejM1GLhDYPNWf3PgL6n1y8m6NLglEWr5rrD7yu xe5b3m4gwSOw0wl+4XXTkmfkLLD/WBdfHsPxYooeVNtGwqhz75mgcQJM5Bnb dKxI+JJkuM5hAufHjlFp450knJxe78eZIsC8pKHYczcJznfeTnr8JuBWZNBw mQcJcl8yz5bOE7A9y+dTrRcJrZvzv5zkIWG2xO1Zkw8JIQ1NnPW8JOwc2n6h 9xgJmnla6vf5SOC1Waq64BQJwV9EXoYxSNit0O7kGEOC1T8XnSocxwKfN+kG F0k4W6HesVMY/39Febt6PAkm/xKzv2PfcsxymEkioeFPWYTAQhJGktxsk9NI 8H5kEqEuSoLBN7vk4AwSfg+JCRRgJ68w/eCaSULKO+sr2mIkrG9cul0nmwSL +9ksbXESwlmjW9/mkeDu7f+V+/9zsemJfpxPgvWNHnYMtnr2+1fp90hoenDV gIcgoREem3o8JOFVgONAN7Zk0MnNgqV4v2YzM+cpEg7Xe4SPlJHQ/O9O5gj2 M8qp+nM5CetKTtns5JLg8hD0bz0n4YLX4DdSkoS7NEPP8CVer1t7aOgiEubW T5/UeE1CmXTAmc/Y1lH9JeKNJHAXCEQulSJhSvnV2u5mvJ5it9w32LA3buWp VpxvfctW/MF5lJAf6re/jYRd8lZ7QIaEvr++heYdOK5166PDsc9fttGW+krC V9/3w0xZEuezlGZxPwkafTOl49gq8guOZAyQMKCxmVaXIyHQazb3HI3zb+Fy KSdsOeFu1Z0jJPBUIo9KbB/7ZrcNYyScS5O9OIRdnfP8psIECd+W8eVLLcZx NbqpODqN8y/S9LMHdklCikvLbxKKHff1JGAv/BqZVfGXBJnZn32PsZ21Artv zZKQN6r3tQW78NThxbHzJPhXFL+fwRZ47ejkz0tBFP2gjJInwVZqa/pufgqm 5yKu6mDfdt/UbsigoCk43tsC++9jLemlLArXgaVr92MvT5t6wRakQF/RIToQ 2zn0mc93IQqktDb1R2MnuIVL1yygwEZ1o3kGdo25eW2WCAWpik+K8rGntCWO nhaj4OIGSqkUW41qld4jQcGXiJLLtdgOf6/VricoWCIrKNGEHd3tdlSSomAh 5XbxM3b5i2UyU1wKDKJWiXVgj9yZqH2/iAL32LbEbmyFuNKjD6QpUNYrW9SD vdM/TOaiLAXy+RuyvmJHOJjWeSymYH7ymXoX9hMk5mu2hIJDWjmFX7AHlD7L qClSIHDUccMHbBmhjDqGMgXH322qfoW9bXi/7zcV/Lwjj0yrsM98WCpbpUbB 6R2KjUXYhU/H6jI0KNh3nba8hd2b8dQ3WJOCR97+jcnYVPgZWYfleH/vl5ie xd5yyKR+jTYFW3ttKrywg7aJ+JE6FHSV+Gvvwr6r+1F2XJeCYK++qwi7UzKt vmkVBW8oQV5lbLE5F7+CNXh9r4z2srGP1Y/UH9pAwdEnSQIN+Lxv5Rf7mehR ICJ/1OwWdktCiJwyouDa2GREKPbGPQuOdRtQsHpN1NcV2F4G7+XKjXB+tOyd Y2JnqqY2XDWm4LCht+gXnJ8CY6qL7cwo8P5QLxyEvfrzUMNKCwq61dsmjbHd yx4dk9hGQVDO42Zx7NcRhi/fWFNQHmi/Owu/H3NHhPzzdlBQPNsv6Iatbd28 OMqGAl/2u1tq2EnSe/2N7CmoF9O/m4Pft933g+RLnSlYfvbch2j8fsYm67+6 7EKBz/v3vwC7MogdELCfgtsH0wbH8PustDnl1Qp3CpJLNAussOnWBwG3vSnI zNwoMY7rhVzFiSURR3H8bll6pGBbZaPXrn4UqBTM5q3BLvJ6s2TxcQpG5Upb /XC9Ceb/+To5hIJliws63pF4/YbrhdPOUDCW4Uk7YoeGXzC9HoZ9NutkD65n EYzltQUR+HwXmkn24/p3keVXURdLwSf255Ufcb2U2FIz+yaOgtkM3xVm2En/ kRs/JFCw/6np7TJcXy8LPnnSnYL3JxTLm4rr73Xh2Qe/MyjgCt22WI3rtZLF tpH5TArqCnYxLuE+mRN9bTnzBgWlU8I6k7i+311okCeRQ8HI/J7eXNwPHotG Zi+9R4Fib3/KBAvXfY74pT0VeD+79p0Twf3EYqfLR9cqnK98P+SNcb9pTHrI OVxNwbeYWcX/96N3pG1cQB0F1i2VezrmCGjnXo26+Bbnv2prVNhf3B+llYOr uig8t0pSlrj/+e4OKKn7SoHDDds3u3F/nEyrm3nzjQL+HUVdB3H//CN72P/L Dwo6rt2XCBghgF/+ntf4MAXQ3nfVF88FlNK6fco8XDA0Eor5hfs3XDk3zebj wseZrLKvPXjOEnkXQ/NzIZwjmvTxKwFlM4dLHrK4IO7cs+ZxFwEub9I4BqJc aLpUqu+I54GCAJ5aJzku7Iu/06SL5wvjhjqNyxu54Kcm7C1VToDPJqLq5CYu 5AR27q0pI+DKQ2e7vcCFSrttvUdKCaDTf59VMeLC8WvBNx8+ISDBd2lHkTkX +jL2TSs/JKBT+uLFZgcuIM8K8+QcAo572U4IBXIhptrBLDWWAJnV++tVTnJB 6oWTQ000AZWzR9MMTnGh2Izf4td5AoRiYoyCQrnQ9TS3SQvPYxl5NUk/o7iw QuStceJpPNf166yqT+UCuyphSbU3AYSraMC5Mi486y4+VLmVgKcasmZZ5VxI 6qv/HW5OgNOYhtyzSi6c0bS3NDYl4Haoce1EDRfsd/mZVBgRsCHzFLX/DRd2 iIxuP78Bx6vj12ODTi6cV1aXCFcjgHXz93mnbi6YJT2II1QIuOvB2hvUwwXF 7Nu1WYoETP1VYBV+50JniJNNoRwB56Uc7JYM4/UwLfryCAK0eg4u1Rvlwtn9 d5kKEnjey/Wf3zXOhV4Jv5YkUQLk1sXnxE1zQWfdvSgfIQKqea6dvPubCzzp LgdbWQS419+1rP/LBTX1mdFNDDxPx5Uo9s5yIe19rFoWHwEP7Oqn//+7j2nC ZiEeHgL+BydZOZs= "]]}, Annotation[#, "Charting`Private`Tag$32601#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3c81d8fx7nce41r3c/lWpGRRBq0COdNshpGpBSh0lIkklCSki1ZWdH2 pZJEIQnZe2RlJAm5ZmT7nd8/Po/n4x6fc87r/Xq/zvnIODibnyaxsbGp4j// f87tu5Rk6uyrva3vLw8bGw3unlqvWK9gi7ru20b6kmhQOzZwPlThEko0mSlf 5KTBxLs9IU4KNxB7nbVePzcN/ESmJY8rhCEpVlemM0GD6nLjX4cUklHZuTP1 oeto8NqDbnqcMwW9/3uMlLeeBh7BN1+FzaQgW4rOSt8GGnC9O3p2uu0xCk4M tZLeRAMlEn9PQeJzJJxO+WyzgwbOKVcrTRReoyHyhvb+vTTYlf1TwY/5BgUw +hwKDGjAdkpR15ozE4XI72uMMKJBpUf0o5CZTHRx/dgJpQM0sH7kbD3ZloWU 6rWurLWggfeYXENeYg76eCx7SMyeBnbXOlcOCeci37jTHo8daKBHuq/CCs1F FmZhnAqnaMAnshIkffMDKhP+t1bqDA2Stdr3+tvnoZtsSxFNTjT4EhKSf0Ch ENnT/UsPeNCgcKSjhjetEH12PCWXeo0GBYbreyqVP6MzoVmfxzxpcIxkz/ZE tAhx1kh9vOZNA8vCRVlpqS/I5szAiMEtGlhcfKx848QXxPaiz+WiHw3MJY22 dad8QV9fWe0NvU0D0+sxexPkipFcsGZ//h0aGO/Yepa5oQTRe8LWtwbSwPBX m8vV8yUo9w2/TW0QDQyibni2ppcgSy2Rqc/BeH9T1UEPNpWiEcqePVGhNNB+ 7fhKYNtXZJtR9Gk+ggaaNnw5l9y/oi85yspf79NgNy27sDbnKxq/rMwdHIn1 P8/eEKxehpTdnaUpUTRQU0icoqJyJMCVO/ExhgaqrbqLjr7l6Nekm9TRWBps 8R/mKPtSjk7eaqmdwrypf4ewv14FKuZd/Sj8kAYb73ev+XmnAnXt4VtMxqwM /gq65RWII3FPmWw8DRSTG3eyGVeiRYU3HOIJNFA4cA1OBFciUuz666GY1y1J GRXWVKKg1IO3FzHLWjtZe5tUIR+2zYfLE2mwlps42RVRhdZGKsuvS6KB9IeP FzSaqlDmLptQH8ySIlSfOYtqtKw9qC6VTAPxr6/uWMVUoz9dvrccMYu5WYTl tFUjVa42pzTMonKLMcJiNeiCA8/KIGaRptRHbtY1aGug5k7pRzRg3DJ82ZxQ g6QlwsXNMRNbxjNVu2tQXY7cfzcx03ujP96XqkWdCxJDLzALhmkWT5yoRd13 Hn6rwsyv9bPKJLUWuc1+8hjCzDca2Py6vxZp/vmvli2FBrSELd/55OtQJcmv k8DMY9w24HS6DuV2nUqRwcw978Oqfl6HnjHcZZQwc72Un1UaqkOb97ecUMFM sapeCdxQj1hrn9ooYyZTXKnD5+uR91bKGnnMQ0Y3BaZf1CO2oyeTRDFXhYYw lwfq0b2tk2FcmL8N1YRzCDWgS0MXpqfx+sqDmh/c29yAONPDazoxf9jYGct3 sAG9fi4q+QlzWl1fQqRTAyrmKvkZjzne5fcjZnADSlwxXueGOZg+9iQxrQFF v3fqN8Tsnf33hUxFA+I5NiAphvnS4cX054MNyEry0rcBrPeJOfZMZXIjqlMo E8zAbBrPlZ0p14gaX7ysvYRZR1Pgw3bdRvSxppFfBbNqj3BBnl0j+lG83DqI 682QlSstTWpEVu0Hl/djJpduqDAqaETHzUft5rFfZk9vqanrbES0Qz5mqZjb 07Ra2plNqCbpfN9P7K/KfXrtNjuaUJQu8ruBOY9l/L3fogm5ys3lMjAnbT0y MHq/CdUdpA6qYf+GNdsOXc5sQpS/rT8KsL993U+PztY1oQ9Bntd0MDt8dP3L RmtGJN0tPlpx2N86oZzCd5sRd90Egx33E/PnA674p81IcGaReSYa1/NOPE26 pBlduPappAL330jFC8YGthZ0y8hC8uYDGrwxLZbXut6CBHkdSR9wP6dMVSgW x7WgMJ6PXovhNIiMqt9okNuCVBufpGtgdmv/vs3sbwuyPLd1RwbOg112//RO X2pFM3lfFI7j/NhAWjEcCWlFQcNn7vjgfBF/ynnAOb0ViRkHvIy/R4Ol30KW nkOtKPyw7J6KuzQoct54OtThGyqLtF2YwPlldNP+zvvDbSjCIHbG8zquR/gX /VS3NsSXpyBvi/NQ8pEMV2hkG0KmrGPaOC8nCn8EnaprQz6i/7Gm3GkQs2If Qei3oxMX08o3XqbBgI9DwuXtHai2Yb5kwJEGdaHFx20OdSD5bSrGQaex/5Jk pYwudyDeG0XTyji/gz/1p6x91YH2z0bknsR5r7rs8LxevhPF1qZsfnYM18P7 5FsVRhdy/pxjctmEBudDSlzFVLvQVR3xhg58flgkym0jm3ahMSdKmPZ+Gqwv +JnzPbgLDU+QKpcM8fyLJwuCOb4jPpLFuf26eD9ep8qHp74jucmIL+rbaJDr ebr7WWMPSt2zT/eIMA2ea19oE5/qQS6b9y5L4fMyhuNyYzi9Fw0kuwT+EKTB 1VDvr56HepEn5f0aaxoNdqQ+eHWgtRelDDm4iHHg82Ogr/C6Ux+avV51v2mc Fzp5BcJlXX6gQ0P+dlplvGA+JkSz8f2BBrZW7fcr4YWqBkZgbMQPJMniOlBS xAt50eK3aW9/IL2c6vvq+bwQL63gMTv5A2XebnX894YXrNW0TlRd6UeCoZfp eXG80GF9YbOrx0/kez6A9/wZXgjqN3CKvfsT2Y742zud4gWN8/JpBdE/0XlL wYAL9ryQ6NktS83+ibhXHxrYHeMFuzgTkcSJn+iS1FytnAkv/G5VW/56bgCt vdF1gbGDF2ZMl6rEjv9CSnukal6w84KQQajjF/iNMv+Gr5kN5wG9tAKkbPYb HSGx+Q4H88A13lHRaPvfqKJt95OOAB7oqzeuPuv3G20v+bgt8yYPZB7h2iJY +huFLekW7XDmAdPzt+dtDYZQy6KKTfoBHogI9QxZOjCMnHRuVOtw8YBgy+ms ncf+oJSwCodEN26QW+uUdsdhHPEzilcltnHBru6L1TqRk6hBbLvdwxEKfFnw 3d+SMI3it4tPd14gw9nPFRWFfjPo2fI35dEZDnh48oW4sN0/RG7gDA+/QQKV Iz9mV07PowvvSlp5frFBz7RJHRgtohWZxp3tbStoqldsi4jlMpI4la65/ssi iki/fsbKahW5B2w11xmYQwoCXAeuJbDB1PQu2YaLsyjHxTc97BE7ZInyd0Xy /kVB+RPZR5+wQ/F9WDDj+ItOUOwL5V+wwxj1mLLI4jTiStRpzHvNDmLpow2v RqaRdTnp3+Andhjm4gwUr5pGK2vu6KLv7CDNyZc2GjiN9lYHdoyLkuA0pe1e MN80EhdZ6M+TJIFcX6vvNHkajdmdH72zlgSvs/r/2a1MoZhZ41UJRRLEsFe7 7B+fQkMytHWGO0nwy8+KdbpxCoVcC3NJsSQBmjnH9zxmCrWse0A1iyTB+ecl la7rppDRetFdF2NIsGdObf/KmilUqJh0NjCeBKvXVEsiRKZQmvKLyi+PSaD8 bntKFXUK3diaH6z6jgRlhd/CI0cmkaLWTwFGCwlMv0UIebydRN4WaqJtwhyg KWO+mqk3iSYtPxhOi3FA1vNxLzntSeRopeUpIMUB/vlzHkk7J5GZtUGngQIH GKK01RdKk0jB7ljihx0cUHSSXM4UwnW/cHttvBUH5Jfksjv2TiD5282KNg85 4MTC5YCuWxPoSBbHVsckDkjvpRyw855AIT/U1J1TOWBVJ6Rp9OoEmkFRRrfS OOBqa6vKGqcJVLZkcf7ZRw5ISrKP6zo8gc5d/ZbO6uAAl3791iaVCZT8jJI9 280Bwb3v7rYqTqCmlh0Fqz844M6HMvU+uQmkoRZbIzTCAZWW+97ziU8g2oQV a/sCB9x7UutWSZlAr891bLohzgnrPfYcCy8ZR/1x3DsDpDjhlZdnTVzeOGJW qKMIWU6ImzldmvV2HPkqxJs8VuIExrzmOdGUcWT209qlTIMTbvL0OKX7jKO/ x7+/5T/GCVdzioP/7R5H6qa92x4lcMIHlcrn9l/HUMEQmeXwiBO6Hy+9Y/s8 hrRvbXym8IQTKFVe1DcfxpBelqfw6/844e0Ed6J6xhg6yGDMFnzkhN/jUjuo UWPIod0wt7ONE7jUZzmCHMfQgIuzc3IXJ8RHycWstR9DZ7hj1jv0ckJYuklH 2bEx5KTxM3Z4kBP+1pqG6pqNoauJPtfmZjhBenum4z/NMRRsl6UuwiDDDsHX 2ceZY4h/vn2yg0mGXUNkj0n6GIq4v5qWJEGGZX8Byxj+MRRTvF98nRwZ5OsH bghSxlCK/O8FNVUyHJ411SufYSHZT3zv/m0nQ5PeRHL3JAs9s9x2IV+dDEXf 4405x1jov7u3unR1yLA/vfCN3yALZQ9JFJiZkuEesXBBr52FdtzSdRO2IAPb SgZ3TwsLfRQ7t7HDigwPc0pV7jWyUKFxTqLdCTIEW9TL8VezUEWGqY/zJTJ8 e8Dj96OQhYz3emxXcyVDJUriYytgodruJNasOxnCtMcsNn9koSb+PzY3fMgw POuxtegdC3W73NEODSGD/pOf39PTWIitqGjN4wgy1BcwOaRfsJC8wNJSThQZ JGo1Gc+fstD5V675fYlkUKIeFZt4xMK5+Sp+JoUMN6tNpN4lsdDbfcOePM/I UJy/Y0tQAgvNDZ/Yte0VGTQsWxLdYllIQj2BafSWDKSHQVz3ollI+963WZv3 ZPihteXJmwcsdEfhwPuAT2Sg9RkG7I5goZfu96ISv5Bh1CP/x6MwFqopLbny 9iv+/blkqGgoC9FPaqh21ZJh+0LanH4Q1i/LXWiiEeuf11q5dI+FjrK/neD8 RoYO/XG+8gAW8jYdrRfrJEPkhau1z+6yUMqj9W829ZDBeHZE8OEdFioZcwjb 008Go+yavhR/FhrUSr54ZJAMXa4Jez/dZiGe0I79F0fw+NVvBmN+LKTynbHR b4wMvQqr42qYTZVNeWOnyDCY80A/7BYLuV0PHkmfJUOaN8Ni2ZeFYivLKosW yOC6l13mFuY8UVJa6wquZ0/HezHMPWe07o2QKKAtLCVRfpOF2HOvnVmlUKAt 58DRQMzylGx9Bi8FHkUMXbPDbGg5vm6DAAV+OF/y24/5wlMlsjZBgUGZEzcO YA6bPj1gzqTAwhUN95OYs3RTS85IUOCMmq9zGObW+98fe0tT4KpKpnsd5rk+ pt99OQpc2WwcIYfXI7nlkP3z9RR4SakrD8WMboZBvjIFbH3z5fnw/hzqKqUb NuP5z0W+ScV8dw15dUCNAtcjmlz2YT3SnKBnficF3L4suvBg/WryvT7xa1JA rCr0Qw/mCZ7cRDmgwHsPLtMKrDdhPeW1S48CEbF/UDmux440lWMHDCkwM5sT 0YXr5WPwVMzDlAIBaWQPvUBcv5jeuWALChjG3lvzENe/9Jd4e8oRChTOT+lz hOB6+d+PqbKjwKiZj55oOAttaq5x7z1Fgd39iRtKsL/MZLks/56lgKPkk3e3 I1korugGIXWZAl4lDu17Y1goXyBvStUd61cl4W8Qh+tjO9No4EkB37d5s7bx LLRu+ULE5VsUKDNNM69PxvqqH+X7ep8Cp/frNee8xPWaCkqMiqaAUy5JTz2d haL/K1A+9ZACLhTLP3WvWOiaxFpjjlQKCPTYzavhftReHryrk0kB2UNlLb9w P2e+FxURysbzfWrJJxWzkMwl42d9uRRYu75OUO0rC3H2viq5+ZkClXdU1tbh PKgucmMrrKOAqqlJzFgHC2l6Pg8PbaIAEeX4+kU3C73e2i5l840C3lOfL7j9 YKHIx7u1lropcC9kYNJwmIWO+JOua7AoMMt4zuqZZ6EBg4jpHF4q1LvezyyV GkOH2Yr97gpQQXNuwDpfbgyVf5gWOkxQIa9OUaxMcQz9t8Fqy4w4FSKXNrKY amPIhVfqopoSFaR3t2e/MhxDy3Xpg28MqWCMdBpeeIyhSwHd7jf3U2HqUva/ fp8x1IcEyCamVNilUJaq6j+GSjNd5casqKDz0eWhwP0xFBSpbrfxDBWyTB+0 F6WPIZHD5R0v71AhG6KfUH6NIX3Np3A6kApLX3WUzoyOIQ/ZWy9kQqngrx3f 2DU9htrHNNzjo6hQc8E+kZ1jHCUEvBYMeUKF8rOV7Uh2HK39GG3g/IUKJ66R U0NOjSPTR66vlb9S4V5BHKheHEe37pgID1VQYdJH5tyoOz4vzbh/2jVQYaFz nXNywDh6NuJ9w7yXCh5vrpMX0sfRt4ajv/h/UoEervFE7/04ouTu2F89SIWh TMbKk8JxdPb2hJjeGBWa1iiRUxvHUdy5Wl+2KSrIxl8q1O4aR5Um//0umKGC an7vwcmBcbSwPeCg5zwVUsRInz6MjSMlyVPvty9TgfugtUD03DiyJulITrFx QcuHt7brOSZQ8NCa2685uaBvmyM8EZhABXULw+e5uGAbqeD+BskJNJrdZrqe xgVK9zbtz8P3hzcH9o2KSnDBwnB+3aljE2jbTVW5pV1cEMNfWv2seAKhfrb7 xW5c0ONlQ/4vbhIJ3pySarjGBXMyKs8DXkyifomBjG5vLuCPr0xxyZlE/pbl FXP++F5sK+13qmUSVVWEsm2O5oKCSg1as+AUOvxG3CXhPRec+io8WxI8hZy8 t5m4zXKBq8Ct3jx8v3wocpZP4Ro3eE+Yk5SfziC/5HMB28/zwAXabb2Lk/Mo qS6uLMyFFzbqBSbP8K0in0sPJta44u+6v5eMdNRI8MdeUfSoAx84m0g1+1Vw QvDyCGePIz8YqUrcXk3Gvh01GOe3FgARHyO+G4gHvq3b1a8hLwjUn0Hn+j/T 4OyGk5sfPBOEruZt8XfMBeDL4WNeOlJCMJQa886pVBDUjoykMVKFQN+tNX1d qxD0VTw6uPxYCOyNrtg0tQtBiLrl9K+nQvDolc5L7+9CMChepJn7EnOzF6nq pxDEd0fXH80UAjXH3DiDKSEgndSZSf4sBFuVOstq+OnQcDEONvQIQbeZ7srU Xjr49Bz4JdQnBP6WCR4mRnRQMuEIWvghBDNn/czT9tPBf8ul5upfQmDsTFGw PESHndN7HC+xhOBg1U4i1I4OydfGg98tCYG5dp2v93U6ON3Wb9OSoEOcrrbP gQw6zAU1/pZcQ4ebS2Yv97yhw53I43OLUnToSQkU25mF/z/VVSxPlg6x7G3l wh/w+j4nH9uhRAe1cB6FrBL8XJrt3aROh0HNds/TnXRYcHsxJG1Fh68TitR0 MgF3vVXnV47QwWhAskqfiwDC/xN3jzUdxALKk3t5CNj4oFkp0ZYOqmrvrnIJ EmD7dtVJ1JEO9+5zvtshTsAXltWkoDsdwioixzg2EXDPkWuB/QEdEjddm7c8 RMDpyjXJ3NF0UB50XyiyJEB3o5quUCwdHDO+GSseIWBx0iZobQIdOg6davxz nIBLPu/E0RM6WMbK79Z3JMAyyna39zs6dG3vztC/RoDqvyu9t9/ToaRdLs39 OgH81oG3g3PpIK9/tDnFm4AK6ezq+Hw67HNWS/vjS4BmOvfxj1iHyttiaw8F EiBbnO0920yH/AVTxzMPCViVr1q70kqHqr2J+kcSCPge0FtKbqeDDNNBbW8S ATEHePiEv2N9d7MpEakEcHecSFIboMNBxqLpzZcETIzzFLr8pYOUcfjbmBwC Pq2xXx1hEDA4cUj8XT0B8P7yYr0IAR3/5jdxNxJQut/vX7YoAeenbeKONRFQ 4/Vk/IYkAekbHjjMtOD5O3710uUJcNot/mypg4Cl6PNFGmoEXNRoP33kJwG+ Kl4F0tsJ4Jx0WHAdwM+vwR84d2JdZTwrAn8RQPubkVmnQcC0iRdPxm8CJM3H Uxx08T7DtGeL/xCwm9/tVpAZATs7l8d3TRNQ+MzfxxnXaTFir5nIX/werWhP C1wnZ/3BhnHMxk45l6WOEvCC31E+dpYA66o5+yw7ApQ+lY3mzBPQY89tG+tA gAZdW8h9gQCHeTFr71ME+Ci6629exPtU3G2uf5aAH/OW32OXCLh+10e30xnr 1m50V32VgJU1YdqfL+P99Smwt2P2e5+s8fQKAU8uKN10ZWNA0MBn1UseBHhe avdJYGcAv3fDpkOeBOTFSC5uIDEgkvihtMuLgNkneW7ZmON1SXKkmwQk1+08 /ImDAVKddOnf2AcZiZl5uzkZ8PiynESNHx6fmcPIwfxfih4Rc5eA23zJj5PJ DNi0y1LA6x4BjhSxZhqFAVn1p3ntgrCvnltMXcX8ceUuh1IYAUZIZ1abyoCw SZkHOyMIGFap93uK2WGgQHZvJAHycZeBzMWAHW1WWeZReP8fVjbaY+apmtKx iyGAUr1f/wPmnoLQxotxWBdu1SAebga8e6No7xVPgNwb/1krzMejbX1jkvH6 JarRAOYt9+YFnqYQcPTIBVE5HgZwekU9evuYgJbfjYI2mNsvbt78+SkBHORW hUjMr+yqCmueE1A7YnykGLPfodMHO7FvRVq4n7AwH9Zn6/n9HwHli785GbwM UFJPuDiTQcDXxHyv7ZhXlHcsk95gvSatyeaYm6QaQwTfEqCzI/HROcwvhJwk pd4REPLU0tAbszcnNUP5Pe4DD5vlQMym/1J3q+fieo0EFkRilh/RrNb/iH2x 6+3tGMxz39usLfIJyEpIM43GXFPvOmL/CethYiQTjjm1mO+682fsvzDH6duY r75/ye3zhYC1UW2lVzAbv9zzMKiEgOp41we2mKUSehTjvhIQ1s1no4d5KtTz w7NyAkxib0qvw1zmyzB8V0nAX1JyOxvmhCtv2oqqcU4dQ3fbsB4ujsZn6moJ COhSV0jDrHf012zX//u48GSOO2bR/b53h3EfX9V+sE0L86i2hMi/ZgKEYpOT V3F9irbmPOP8hvUiHZ8qwBwtb7ad3k4A76dUFXfM55mjpdKdBOxg0z+oiFmb J8BC5TsBJ6jS5t+wHwbHC64Y9uH5DlQsyGLO67fiONyP68G+N+EL9ld461Tk Sdz3vadNRI5h3pWvmHVjCPerouODG9iftNclOiEjBGQuSd3nwtyXYtv4cJQA GadCu1Ds78C7URPZEwQocvFcDMD+t/Xc7Fs8RUDQfw7PlnC/qDpVCTTgvn/f vPDcCXOnGdvmP3M4H57pLmvi/tq4xumiDO5Dj/zkj8m4X9kEqcub8DhDssPq 8Ar2IelxiCaeh3glsrwZs89QW/r/fbyZ9IqZgfu/7t2ekVAhBmSqLYWcwvnh p5X96z7BgH1/Xa8E4nl2lMv/iBZmgEgYTTXtH+7jTnJ7khgDguWvbe6YwTnB XvH1lQweX9Q7uTCJfRC868tbOQa8VpG0m8X7amGkFbxfx4BhWYmY0XGc/4pB 7z5tYICW9xazShbOR5P9qbVbcV/UnqnaM0xAUXtBYqMa9qXNGS1hrKObg0pc 63YGSMpVnvkxiPPYnT+8W50BQxtud57DuqcnNnizdPD7KL4rGr04H0csjvCZ M+Akg3H1O/bBypWvh4Qs8HiDyHNHcL5nLW83ET7MgD0CWdN1DQSICzH111gz oHbL85J07LPhnR1qKg4MuPNYQEwe+/TeHRuBA64M4DtmW8+H+0RToI7HzI0B rVSznaq4jybitCmWV7GPn8kLm+E+s8qQXj5+HdcjRFvpBu5LheYfI05+DLAf +uMbnYZ9s9axLCQSr+fvE+FcnDNrexvFLkUxwGTJi/slzqHrSVoXTWIYkKPL 4o/CObVFXJhBj2dACWXWwAbnWiJRah+bitdbIqaXHYD1ocgup2Yy4FeD24Sr O8650W613Dqc01vrPdYfIODmf0YBcQ0MSDZ/7OhhTEDn2fednk3Yh/79W4sN CIj4FXJL8xsDtsVyWhnic2mpZ3f9l24GsFcbvhLB51hL48PzNaMMuL0pUThP mgD/XMvUHzzC4NNbqibIosOWxn33/tCEQfl3p7DLML4XjOg4z/ALw2+7gNeV v/A9RWqTFjchDP13lRbP9dCh15/SsUVCGMyfGJXZ1tNBwzxX0FdZGErNLhgx M+kwMSrqK7VfGJiy2pvfO+F7C0XgjOJBYWApuFcanKWDwVryQVVTYUj19fzW fBLftw5NSuhbCMNf/svQju9J+/Iqcy8ex+9LqhaNNKTD84Dr4wVOwvA89zVb Bb6XHZf9bnssFLPnpg6VJiF47VKbpBuOxzdts9GrFQL2z4XfN9wXhowDThMW FULw/Fiq9VyUMGhGBWqdKhSCiSjHw9GJwvCmWV1393/4nkmdPFCfLgx9MRZX Kn2FIGOUrLWnShj0KOEnrTcIwYrGPy+lGmEgxZZcfSMnBGaBQ3lCdcIAT9kc VtYIwey66l19jcLwSPrNx0C6EMCJiG0+HcKgwR2vdXhREOsvvjF3COsnGyz8 tVoQFnM2SyhTRaDFYPYv64wgbEqc/crFLQKuW413JdgLgt2tTy6DPCIQ00U5 rntMEEr37StL5ReBNxd3a984KAghfY6XRUVEgMdZFDK2CYIkT3I5eZ0IHFfO Svi8KgCaNjS3Pl0RGOk47qgmJwDeHMM10TdEYJvyyOnFPXywskeDN9FXBMJl XDa1qPLBLf9go8d+IiB+zic2SYYP7pI3lb2+KwJx2jEapFUahFOvfC4PEwEp /QRT+kcaPOZdfjufLAL7ekvFjZVoUEkIxdp8FgHLRQWpRTZeEJFXt1/HxoSB /ozo6ze4AB7e+cdFYkK/5sh86XkuOMffFDrKwYQaOX8GuxX+Tpo7n/eOyoSy 4+YnDm7mAofaREJXgAmUrvlRTfyd+foqW5mtFBMmyL4zjppU0K8sV4rTZILi SpFc2x8yeFw6/JfHkwmZhS07L0hxgOSOUxUKXkwQ+nLRxYSTA4qWLyfq+jBh XrWndu0ICXhCQ/Wu32LCrTD/gaD3JEhOL40aDmTCNv3UZa99JCgbUt1eEc+E 7JI/pbVX2IFxUuDqnQImnH0en7HGaRV9VFpjnFrIhMi4dsU1aqvIdkpJ6lMR E7RXc4tn5lfQy1v6ZX9LmTDr3bFBNWAF7U7xETlVy4TH3hKfvz1aRg7df3J0 e5hw74lWY1nlIqI+mw+y7WOCZrhd8aGwRZThRD1xvZ8JhhpSuz+aL6LZRVlq 1iATeGSGkvi6FlCQuLWVzDgTFNyUZLuG59Hm/jPKWpNMsE6KNVJ+NY9a0txX j0wzwVg58dUhl3kkpX7/RcQ/JpAqhskqs3OohO2RV8Y8E+TZXH93f5hDZysy TCoWmZA1LtDn6DWHaBF5cgPLTLimfHKwXGsOvbWq+Le6yoQ+A95JNrY59D86 J4Qm "]]}, Annotation[#, "Charting`Private`Tag$32601#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3k8VO8XxzFmscXMHWtItiQiSpF6TipKlKSFkK1StmiTpahoIxQqWSuk RSVLX6Eoe9myy5ItZsa+E37P75+Z1/t173Pvc875nM957moHD/OTPFxcXNb4 5///s/vc48w8ArbnLipvwQjBTmtUqpVt0RnRCdQmyAU/h3vPhiq7o6hN6c9f S3LB6MedIa7KV1E9M/WumjYXXBebkLZWvo++Tz9ReXeSCypLjfsOKccj5yDd jbllXOCReKn8gHI6epzFR/sXzA1bMnuUr4u/Q/xPnuvefsANXE4qBla875FG RrMifzw3lF+OSgiZeo92ClRoj2Ryg1WCh9VYUwbaxfU1aHs3N/gNK9Tkxmaj b1rpdyb1eKAwJOSzqXIBOpG0LayulwcKWC0/BNIKkMD2tamzIzyQt2dNR/m6 Lyj6+oQkscADx3nsuZ5LfEUhlsKrlOgkOFywIL9KthBFx/wSLtAngbHOBmfx td/QaUO+6pIIEmgrx45TUSkaXM/VZarNC1oNBgunAkrRSEhBKGUbL2jeHCSV FJaiz7uyhTINeWF9t47ozV1lqFN828MhS15Qia/dzGVcjsZTxWXarvGCtBjV f9aiEp018fV4Xs4LZIoXdfBsNXoe/kuVdJgMA3uvCU+kViMzP57FamsyVISG iC/2ViOV5oXLD53IUHr318PbGjVopez5C0vnyXCPMfw8Nq0GzYZ7/3Z6QAam vML373G1SCeIl37pJxmUd4Tyigb/Qr/1TUy/6FNAvOchLebFL1Q3XSd1eicF aEExgqu+/UJlgvvHycYUYJWlMtdy1SOLu4aVKkcp8M6sSHGbTz2av7Lbh+RJ gS12M7tOujcgp/jEC8LPKbD3mn1Q1pEm5BM+s/IRFxW0wgoNky40oRc2bzfx U6ggnbCaFvqgCcdXIXxRgAqjBX/uOlU1Ib/FNyJaYlSIXrIPJwybkU7p+qi9 66jQ6+/w1HNTC9IpFFQdO0SFAD/HD+rMNtQScPquTgIVzoZ885LUakN/LNT1 U59TwSJWYSPZrA1VbRnkE3lJhTV5Pdm/77WhO+Qs3or3VKhacMy7R/qNfG/9 V9pZiPfj61Q6OP4bHfllzRvVTYWcKyfbk2s7UEbejhN6sjRI2e7SJDXegb7b P1y3vJoG0STP2jBGJ7LaMCr1WYkGl0L9iq8c6kSSgqc9JdRpoJP08K1pQyc6 V3/P8cxWGhzv7Srwce1CtPqi+6eP0KCupGdrll8X0llHNUi0pIFxWv+nkZAu pBBXbF5jTQM9d06G09su5BBq8lTMkQZSszMp+4e7UOm37+v1PWjQKiAcJn/u D5p67RExHEQD82G6oE3AH2TzX1Rd/G0aVNQw7zwK/4PKa1+8NrxHg9woqRuC H/6gH52SG/3DaRCzSvny9Ngf1BqZxBscQwMGz9pJTZ5uNCxr7jIRS4O7ves8 XRjdSFVN4daxBBr4pG1w6dLqRmohRRy+FzSw0t52ouJ8NyoL3tLI9xbHIwq/ eW92o/D9Giab3uF4Zg0sUWQ3SqJfjTz2AceTv+dQZmY3+rj7y6vgLByPkYVR /FQ3WrrDsAjMp0GLlYuG1+UeVJsi9GOiEr+/28j1UXAP+tzUNhj4E68/q5iW F9WDvCOqpPiqaRB7pV2emtmD+q5yF/HU0cDu8QGx2NEepG6b5/28iQZ0ObVD hcs9SHv85/X5ZhoUpdLC+1f0IuGqbznGrTRQzCnk26Dei77r66c3/qbB3wbt xeIzvaiWcU0u7g8NHtuI6LG9exHBU1ef302DPX2cSyK3e5H6bFllUw8NXk0m j1ql9KJLzddDZ/po4E5I9I5096KyoN0f+wdpsOrppJzoeC86U9ZUXcuiQY18 rY0edx/qr/lpmM2mgZbW3aabq/rQIqP4gMsQDabM/lVIWvchRe9lueBRrLfm Zipy6UNAqXbUH6PBEbusXU4+fQhJFklwMH/ycC9If9yHnN+O926eoMGZGeOF X6l96LCsHE89Zqlra7bMZfeh5xNmcWcmaeB3v+vDzoY+xHkVaxk4RQN1sfxh 594+lOaXGkCapkFH3JN19yf60L4HURuuYQ5TuuT8kacf5fTYekxihrfmyc30 flThvKDvOEODsY0a3Yty/chZ0jGuEvOzPIFVCpr96OxQ6EP1WRqQfnx/7La/ H6l2Cpp2YM48lNTwwKYfveSYianP0cCpzZ/xybUfiS1uDryIWdTR6kC7bz8y oeWG52AuYemE8NzrR2sp1UYTmC97EeVrYvrRo2H3NJV5GqjMj5BN0/rRhf8i Ph3F3BL4w8DrUz+Ks9XwDsB8ly/t2qPSfjTWgNjPMG+NCMrLa+xHB8Q/M79g 5kg4zP3p60cpUk9m6jHHJW7XoU71o7Km2uhezPtVVp5X4/2LogxtpoYwL7+b eXeQ+ItmbbXFxjC/31zPuST/F/2QMPn3/+t2X96vjd3wF426JLz6/3q6Ueip QviLDM2UFBsw70rLQ+sO/kVPFy6Z52P2FuBIRNn/RS19jO3xmN+4rRxf8vyL +A9/ZV3G3FVtXOl8/S/SDDO0NsbM1PJ5UffgLzrY6hotinlPZJq//vO/6Lzf fGwLzo/fdPORlI9/0ZPP2eejMb8/RtMU+f4Xlbc7y5pg7s3dzOdT/xcJrG1O nMf1kJA53d3T+xfZ9VQuJWE2uRb92XTqL6ozF9A3wBzwpzgyhzyA7PNtrNtw fTN3TrmtFhtAxJm7jm6YB5IVje4pD6Cxp8cOz2J9mJ29MWdrNIC2v5umzmF9 3fyRUVd2dADlrDxc44750/ru11rOA8h9jdeDdqxHuQmwpdwZQO82kokUrFeL w+c2n3uC1xfxtSyP0+B2ToJIa9oAUqKyUs0xj/ouFb2tGECLVVYePbg/FDvU Y8XbBtB8+xWP1ZiPgc3FQPYAssuLuHVshAZfefPWHBYcRBeXy1Zk4P4KD70S 8s90EDkbre5h4H78PvLy5CnbQbTBp05QCvfr7MHm7TXugyjiTbar1ACup9jm sedhg0hcZVMHpZ8GmgmTh/fVDqIG+cax+9gfnLgVNbL+DKL8eZaOXRf2C8dD tFXjg8iOx61GtZMGXCoZueMMFhr61CD8BvtLzXuPVTEWLPTKhax6AvsTL5Ew SzrJQrNnDvgtNNBgy8WqWreLLLSuDHZE1NMgUVf95o5oFjqcp6OVVkuDc0Ws gYEmFtJX2yp1D/ujSP3JjM3H2WjYnXRQqgD359AOloULG02onl4+mofvp8jK e/myUU/a7kdhuTSo3dIY8eYpGwVofI3gZNPgQZyh5+rfbDTAKBO1xX4tenqN poANB9WR+Hzlsd8bBpCcVdw4SPagsjtXHJ5vTzoTdvtzkKfNxI1mPC8aKx8J B8Rx0JrxQaXL0Th+TdrIZDsHzX8/meoeiv1nfuBth+0QetviX7jXB88Dorhv wX0IDV15EVJ5Gc8TtSQZyWtDyKjh3UejizRos7UMPZQwhCz/FSponMP+/q3c taxzCK0pHh3JPUkD2dBX6zLshtF7flvL8gM0UJBzTQtyGEHyH5Ivt66iQUjH 6qRQzxEkulB0sk+aBtOxTY+jAkYQLftjFVuSBmWSO28nx4+gWP7X0myCBq6E 1Oni1hE0ubxh/iMVz2eS04Pra0eRb2rqbs9hKiRP082KkkbRD+NT7umfqNDa wNlnmDaKxo7tPbI+iworskqNKt6Poh2bfou++kAF7/P+qO7LKCL3vlkT9YoK xqMD67vbR9Fztt5f3VgqDA9+EeKRGkPGGiJ2X69SYUu7W+WOB2NozeCv2w1A hfS1XqLOMWOoIZcdeE2fCoqXLp24/2wMBf6ikZW2UEFE+NpEa8YYupay6pOD BhUGIXzlhV/4fhdL3TQZKsS8yHBJYY6jPXoVvSfnKPDPZUZA4NE4ypagluS8 pUDhfIBJ/dMJtNdjVV8IPwWcv5SVFVyfQo5TNZkHs3jhiWOqlKjdDIo7cNL5 uAEJ1I/9mV46OYei85P9LSK5oWPiQBXsXUByRonOx9jLaLxTUlPs8CL6rzys QP70PxT+2uf00aPLKMhuzTrLFXNIWZhm6v2UC0fWmxYsN42yzwW8vp/ADRTJ Fzcsd02gu59HMy2fc4Pz7ZpnHnoT6ATFvkAxlRvqGrKH72lOIFrsjtrcdG5o tYxQbJKeQFalPDP9+dwgppn47tPUOFqSCTJAv7lB2k7H7+3LcbS78k7LiAQP 0JSrc24R40hKbL47V5oHLiW1L7nzj6Nhu7OcIDkecDj/coMN9ziKnjZeXqnC A2/OHPLaPzKGBlYLKu3ZzAMXy+WoQZVjKMT7/rnEwzzQkPgqxyhoDNUrPaQe fMADIRTyosnSKNq7RmKLWzQPFCnsD3CfGkUFKnHOd2J44IhJBu8TzihKW5da XviMB5LV1DT42kbR1Q2f72l95IFcpTudRz6NIpVtPcLMeh5wb1o2T78wivws tCWaREkwsH/7cfLgCBo7/GnPhCQJxuiLoiktI+jU0W1XhGVJYJ0/+8mqYgQd tDJqNVImwdXU05PLr0eQst3x2E86JLj59Qxr67kRVONyQy7mKAnWF66XufVv GCne+KVi84QEyS26I/WKw+hYBmnDqTgSkDUOee6TGEYhf7R1PZJIIM1YnmkU GEZTKHJvYBoJLDeGmqhPDKGSfxZnk/8jAX/V3IvmoiF05lLj66EWEkz5Vabo nBpC8cmUzOl2Eoyk9K/nPT6E6up18pb/kOCOaljS3wNDSE/70Q86iwQPxigB o7pDSHD06NCmeRI0OdIyBYSHUPqZlvVXpXiBxsUfciGfg7of822+JcsLJvm/ rqR+5CDxMl0ULs8LKxOVtoylcVCAcsyBZ6r4+p2uE+XRHHSwx+pciR4vDFWt HQ715KBJ698fVhznhUHTwicX1nGQSohgrvgJXlC16TdZqcBB1p/1i+QceaHD 5n52ixQHFUvG1Wm58EJCf19/HD8HRTfaTBzx5YUT82v372azka5Z58aEp7zw 4WB+hfQHNsobIA85JOD93u2xzn3FRtsD1ZKVn/PCUZmHlm4v2GhXxhXR9Fe8 0PlSv5B4zEb7mczpvP94wTnRP9wxgI1q3uilB+Tj9YsZ+W992OjQbvtTuwp5 od66KkPoIhsdu5TeWFnGC+NXTioIn2Ujh+Y9Oa1N+DvxcouT5GE26j3n4RHf xguvdEkShBkbneaLXuPQyQsPUj1G5fexkatez6PBfl6421KAgnaw0aVYf+/Z KV5o756PP6zBRrMbX2jmzfHClMlSEfc6NvL9WTFwbRHHz5905rsynhNL4pZU Mhmy673cQmXZ6J5dhq4Ykww5owLRGsJstGKueaxFnAxLO6tEIwTYKDxiOS1u JRn4H4Zc5KOxUXSRiZSSAhmCvF+TEDcbSRw/XzegTAZuXce9/xZZ6OnEk7tv VMlwdG9xXM08CyUq/p3X1iJD/ludpIJJFpLPF/o4s4kMjeviTjePsVDy4Y0u n3XJ0GNq7cI3gudocGCbwQ4ykOoeWH4YZKHMgZV5B83IMK+cLC7VxUI6gQYX RC3w++lRwiPtLPSf5Bm1lqNk0N2j96ytjYUKjLNj7U6QYeeweckCnqvQ89tC 0ZEMKbdkPDQaWeibL0lo4BQZjAv3/fGpZ6GyN2b+Hu5kCDwTaGZZy0LGuy9v 0vYigzxPlxOnmoV+tscNTV8kw6owM89HVSxkdul7cu4VMtxMvhpo9ZOF6law ba76k+Fwq2jSph94rqfSxQwCyfC0qLBNpZKFmtGWKnIQGY5NqG/bWMFCVs22 weW3yfCEm1J7tJyF2s8FbQ8NIYPD9alnD8tYiOvrV5ln4WQoGTxu31rKQorC //5lR5Ihdizl8zbMRrabf1c+/v93fvbX/BIWOvvW63NXLBmSrp25ZoX5/r+3 MVOJOP8WiRQm5g/7Bq/wJ5Ph+im9k6xiFqqPUbRclUYGZxvxV+2YZwdPbNn4 lgz7u8R6hzCv1H0qvvcDGc5HS8ivxOu3326ctskig/iaf14nMTs00Ru9/iOD v25S3w/MQcqmWbfyyTB04e/tg3h/Ly/ejowtJENiQLrLBOYf37+d/1BMhg5S Y2wGjm+EWDYvKSdDf/K2dWE4foajnlbbT6w3oWKlOzg/OhkX6aO1OB89+54m 4vxZcn8Y5W0kg83PDzENOL9+ZpxqyVYc//lGLRVcj8SENe/Wd5CBz++J12Nc r2/DDvd3dpPBIKzVWRnXs39bvNuxfjJIWFxRrKtjIfXfTLXrw2SIDNu/5gbW g9k6MzxOyfDFYlfI7WYWuuBzj/V6mgzhzmLjr1tZKFeCJ61hiQwyklULJp0s 1HF6220WDwWceM/nV/xhIe4c79PLFAqYtXl9PtXLQnsOjyitFaaA1iD3yzms X5cXquTtBAXeuJtljnJwfSZO9pqLU6DZz3sLZZSFGiJ+P/NbRYGDNb96QqZx PbrEr0coUEDBqURlaY6FpDUP2aesocA7Gfrq+7i/HKrKV9VoUIAnQf00P5mN gmXIy73aFDiQVVA3jfszzRU65jZTwPq+sjqPEBuN8ufEKgAFKpXmBi+KspG/ 0QvJy2YUWLdJTvHXGjZKjO6cvWdBgYo37Smf1Njoe59Uc+IxCsBqj7D8DWzE fzMiusIO7z8u5KeSPhs9/nqVkPWkQJWGSrynORtl6FoKFUdQgCAiI0lBbKQ4 fjc2MooCHLkov3P32CjqVd46pycUGPZeiJiLYCPvlXLGpCScL+R00S4B++ti f/CO9xQIefPU8/pnNqr8eoGroIoCO3fsb1o9x0b6V1LCQusokORvbnCUm4PS NzTL2jRS4HmPa2waHwc9eLZ12792ChxxMtufjP3+2E0eH70hCiR+KV2Y28ZB vUbhE9kCVBAQUxRVuMtBR7iKrgcLU0HNW1dWPZKDSj9N0I8QVLDpEW22iOeg V2uPak5JUaFSMPz+YgYHnROQddNWpcKM1jXLLHwOXqx63f9uDxVKeaeWyrYM IbEjpS0vg6jQGJC4u4E8jAz1X8DJO1RY5d0we4oYRpflA1NXh1KBrXkwTWz1 MGoe1rsYE0kFcyJfo0Z/GD29lS4S8pwKYnWl9LcXh5Hcf1FGHoVUcORkKEkM DSNVaaesTYtUGNuqfpI0MYKseHZIj3PRgLvCxm0Tzyi6NyBzI50XfxdOhzbP 8o8iTmaT2RpBGjwRsE1Ilx5F70z3cSRW4nOxxo+JehhFG69pKfzbQoP/Co51 8YaMItTNFVF0gQbzM1MCH9XHkMi1cdkab3zunlR21dIdQ90re9+0+9HgLAiN F+0aQzcPl5bN3qSBw62NO8Stx1BFWSiXRhQNnkrfeXPv3hg68k7q3NMsGtCy FDOfDI0hV7+NBy7g78gdyrNu8/nj6ImYs5CyNx98NnlRZBo6iT5Jm+0b9uWD kKifoplPJ1Gz/JY72df44E3821blV5NIQoNGNrrFB7aPTkRuKJ1E0UYv/52O 5oP3aarfWrnxacZ7gJ2WyQfO9yzZ569MofutzhXqY3zwSvCfaYDnNLoef+bW prP8MHzI4ens9VkUV/W45P45AfDJ7gpk3VhE/u4PR2W8BIE5EsBO9+MGtr2K hKWDEFjnlugta/HCvUUWb8epFTA+tJbnBz6/53KMRlZYCYOQW/x1IzF+aFTa 0q2nKAJ7y4MF52sFwXmto8bDZBEY73EVU3ouDIVHjvvukKUDQ2bk1EkKHUoe iJaZyNFhjXN7/FEBOvyoqmYek6eDwcdd6kYidGg23JXurkyHExlfdshK0WFU R/3P0/V00NLaMPNanQ6y4suG09vpoK9ykGenBR18mp4xXp+gg5r7P4F9CXTQ PsZKYybRgccxL0BWjQFdZQn7F5/RoerKFyOaJgNCdA9P9L2gw4btjRIj2gzo l/qqn/OSDgN/0qs/bmVATHtUteV7OtQQMqaS+xj4OTum4r/Q4bO4p4f5GQbU uD2GtR10mD8oHu36nAH+HaZ99K7/r29eHE9hgOoB0t35P3Q48n69wqVXDLip 6f6rso8O5VLUOK8PDNg8sfOU+xAdWl/48u/6woB475F7H//RgX1jJtOwlQGu Nwybtq1kwKdVViG5QgTM3q39Ky3DAMbesmvfRQgIemA9uyDLgPe5H6mVBAHx SV6SufIMuPV+ufKnJAE1X+KP66gywMv32N80JQK0/013rtdlQN5Gr3O5+gTM X0gdWHWUAYpnXKjqzgQE+2nNLR1jQH6cqnrxWQKIm/l8HVYMQINmCZZuBKg9 /KUaa8uA8qXqE5e9CLD9sOwqcYoBtZ9uMoL9CCgcOjomcpEB64XVDYfDCLh9 ijbP/ZABxJX41a0fCThZLhPPF8WAXfZVq5WyCTBQ0zagP2JA91U+L5dPBCyM 2dyVe8oAjsPqmcE8Atz9P0ohnNcN/Md2phcTcDjSdqvfRwY8yuw+cbCRAK2Z 8503shigM1lCNWsmYIXVnRv3chjgdy+7dm8rAWWrMitjPjMgqHzz1/UdBOi/ 5rP+7xsDfL4Y5OT3ESBflOk3/YsBwl5+d4YmCFhWrJBbasD5VhOfi50i4Pet zu/kZgYY2OdbG80QEG3KLyT6mwHX4M1kyDwBfC0n4rR7GRBBRIq1cTGhf+vF HVv7GSDZwt9oz8OEovi7fQYDDIhbG+rVQ2KCn1OWujkH6+LCxs1NFCaMjvAX nJtkgDY7ND5AkAk/zeUcvKcZELjrz1S7EBNeZW2iBMwyYFAXCB1hJjj62u0P +8eAB9xJkY10JjRSsjve8hKgDu72zWJMyJexX2YxCci21E34vYoJkOW5UC1G wM202Fu/5Jjw3eT6TKYEAXUrX+YWr2bCD9/nI1elCUgVsp15qsCE3y19nQxF Ao6k198RXsMEO8/pthmsGxRDDe7C3EujNv9eQ4D0pEbuGxUmcDar1KSsI+DC I2qhjioT/kWd/aqnTcB7RXsqXZ0JAeq+eas2EeBIqwr8jJm3+N4n3s0EXE/2 X22/ngmCk2/eV+kR8PnDvtI4DSaE38t/8xHrMvN8ftlGTSYwFapePt5OQH2k RH8JZmnzkUQHAwJ2xmxw+b2BCYmDy7FGuwg4V2tQdUKLCYqBIk/UDAnwF+rd 2YFZ7f2GiOm9uG90/W1+aDPhvZFBaNs+vN6/7N/WjUzY2Gl+56spAetcjJNT MG9dcSHw7kEC7nIe09w2MaEg+aa/xyECuuo+FZRhNtgWdcXiMAH3+bIvrNJh Qkl98kXdowTw6OmpeGI2ds32lLUk4JXQSGM+5ipSqRvpOAEz6levkjczwfxp 05kBa5zfXRHSezA3ag2c/GlLgM58bXoQZquKWfsMOwIoc4NaBZg77PlsHzng 66zrKWOYHeYkrfycsO4vG1LltmC9hasesT9FgOveDvO9mM+qbDU3xH18gH8y 2A3z8Jd9+9fhPjZ13JAUgtnrqLWxiCsBvxZRQgrm6WFXwync1+Y3yq9+xuwT 7G/Q6kHAxrjL2yoxL8nc3/7Fk4DhyYnmBszXs+L1XpwnYFB7YH8bZorpO507 Fwl4RFqK/T/f7f2i5X6ZgFNCnV8bMa/wq1l/6AoBJfMbP/3A/ID4o7rFlwCF i2kB+ZjFXo8py/gTMKTUL56GOcaAR4HnGgGR2ZG+YZhlWxmr/gZgX6qxTTuH +Zmnwsof1wnQlBmON8GszLdR/MNNAkiGHEsFzK8SdxHRwQS4TfI0T+J8rd9y WNj3NgHttW1ihZgzqk8K2N3FPnVLjnkbs87pS9TdIdinvvj83Iv5v6Vgkup9 ApLkI4GC+f7Y6oebw/H9lE+iObieDr158rsf4PvVrn20x6zTdDTDPJKACcVR MQpm/orxHXbRBHAH0re9wHrpyAutdXtMQHrtoLw+5o/vVOx9YwiYTL1W/BPr zTrKNiA6noDda5c2dmB9at6eE36RSIDR9MSCNWZe38iED88IaA4pPN+A9fzW rqLgRwoBD6yWznzE+l9ap7PI844AIYtsGQXcP3WytSEiHwiQ2isv4YH7K5Xu Ki2LffdxWMzrTNx/ZjNJW3VzcD4sKiLU1JiQVCTk4/GFgLWxHdRq3M+Xsl7y +Rfi+s06Xf6L+9345c4nd78RMKeu5jynzITx0CufkksJEDvzqJBPiQm7LPum 26oJqJh/zPUb+4uESUDwYC2eC4vtyl+x/3C2rxSb+YX7y/5xdpwsE6IUD25i YJ92C79F2S2N9TuSd35PFwFyZ6iiu8SZkNt9lHSkG9f34DvtCVEmhDWMP3Ds xc+T537xlMmELZ9VMq4OECD8Pc+tGfvfneDI0cxRAqy79plzY/+0vaIRUDSO 8zE0/8qHnwlarhXCNZMEfDt7e9sQjQmtB7k02LP4+YvHeAvI2B9kXN1WczMh 3fJ2sdAyAVUfd7JC8XMNqzp8HfFzr2/L7IsgcFxn7fW9h3Eflir+icL7OpTz 0CiYg+dtK7k5ThLrdH2x1n28LzfusuK32FfDyCFCpjguwQMmST9xnVzk1G1v VhHwtTkvthbX1Xj3wGW1H9g3HdQfN2Bd9G01fvezHM+biyvC2nWZcOrUV5eF 7wS8jq3xG9rBBIW1KT9InwkwZlkcEzJnAp9qW05xMgFL54sP0S2wL7aD1RLW ScbipgOiR7DvX981pIF1JEUXN5Sxwj51tqfFH+tucHOLtroDE1zV31/9jnV+ O8hG2NSLCY+28QXM4z4uljtVEvKACbfeNr2dwr4r11kr6R7JhNgdev7BWwnw idvmdiAa9wF/aovIFpxHKVEmI4YJK5/5ajI2EBBLfLd/lMSENd/ExUrlcXwU +cWk90x498C8cAbPKUVOu3ZOFd5Pwu0nTt/xHH2199bjGtwHupOx8l8Z0Oqc 1XqlDvv6HtPeFjy3w/tCAvUbmWCp+WLTRjz3/3VsrS5sZ4L3IvvZoyQG1Nc+ OfuDg33zsNRLcX98vso5nPSHXxSmtV/actYzQLN23222oCj4n23JOLGWAW2s HR5TK0TBZV9LcYUCA7Rk12/jI0TB1Tde+rYEAzpvUlo0V4rCaOz7rQncDNAz zxEJWIefp3bzo34dPn9yJAJkTURB+r+zynJudIilCJ9W2S8KU4tF74JO0cFI jrxfy0wUGCezYrrxOTT+0NhKQwtR4OErunPdnA77cstz3KxFIfM9x8dqMx1S bvmM5LmKgkmJuIzzsghYy/+2PR6K92dgtNh3WwTSz/2MMwgTBYMzr0yzAkWA +0vB77URouC1rrvcz0cEUo4nWc1GikJokIX+pIsIjEaeOhIVKwo5aX9Lbu4X gZvUMdPq16JA8u06ocoQgTcc8radFXg9s5gYVhaGhWyNleuoYsC1M4umsCAI 62Oni2l8YtBa77RZeFAQ7ALzz/Xzi8GuiIM67EZB+L5vX0nSCjEwROSHXhmC ENJ1ylNCTAxCnMuMC5wFQZo/vpSsJAbTHw5X7q4TAH0bwQtdBmKQomn8c+ox P/iRBn9EXRUDiRP3cjsnqLC0U08gNkAMvB/G9uW0USHw5r29z65j7pHJ8P1G hWDy+pL0YDEw2ZMoUfKACmHU819K74uB9I5R35OaVHgmsPhhLl4MImtk4stP U6CcoD+y+SIGZueyHZdLeEFMUddeiUscVJZFQ/7s5gZ4EjRD4xGHGoe4EDdV bjizoi6UQxKH2FVqD/tXcEPe7Fl8khaH91qNCQlNXODwM5YwEBaHgGcxm9Sd uSD9EleJraw4mN1JveMksIwMy0tVH+uLg3f/Ms8tpwV02f3IJP8VcSibFOpc TJxA0jpOZcq++H0HFx+VHptAXxc9Yw388fp4mdUnRCYQf2joLp9AcdiTbXtu 5uo4in/9PXLwDn7fl+4nlZZjqGRAa1NZDF6v3p00JDCMmI7Cl4LyxKHr7VbZ RY9e9J+qjHFSgTiI2MSk1NX1INtxVdn8r+LARdGJhk096GWgYcnkd3z/y+Wd fbN/0NZEfzGnn+IAdTnC8dMdyKGdnW3QIQ6JSq47VrbUI2ry3F3bLryeb6PQ 54hf6I0r9YRPN97Pgpn77b11aHpBnprRj6+nBO464laN7kpZHV09gvnaiKXo imKk0X163bYxfD+jekneqwjVp11cPjaBrxecVqWnfUGyuhGp4TOY7acmPqpk oW9cCb5v5jCPmw4Qpe+Qc9mbA2ULmLf76UvqJCPB8FyF3kXMziVhHP0o9OFo 2czyMmYuLvXZ7Mzt/wPG8dSS "]]}, Annotation[#, "Charting`Private`Tag$32601#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {}, DisplayFunction :> Identity, Epilog -> { RGBColor[1, 0, 0], PointSize[0.02], PointBox[ NCache[{{1, 3}, {2, Rational[3, 2]}, {3, 1}, {4, Rational[7, 2]}, {5, 5}}, {{1, 3}, {2, 1.5}, {3, 1}, {4, 3.5}, {5, 5}}]]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 6}, {0., 5.999999479591859}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}, BaseStyle -> {FontFamily -> "Times", FontSize -> 10}],FormBox[ FormBox[ TemplateBox[{"\"Akima\"", "\"Hermite\"", "\"Spline\""}, "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]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline), BaseStyle -> { FontFamily -> "Times", FontSize -> 10}], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), 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[{"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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.754834644838407*^9, 3.754834702469881*^9}, { 3.7548347468867702`*^9, 3.754834773712882*^9}}, CellLabel->"Out[140]=", CellID->1150787971] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->193619321], Cell["Robert B. Nachbar (Wolfram Solutions)", "Text", CellChangeTimes->{{3.754835021055601*^9, 3.754835025406104*^9}, { 3.754837576051607*^9, 3.754837580816403*^9}}, CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell["interpolation", "Item", CellChangeTimes->{{3.7548367787158413`*^9, 3.754836782781855*^9}}, CellTags->"TabNext", CellID->286151546], Cell["polynomial", "Item", CellChangeTimes->{{3.7548367787158413`*^9, 3.7548367873874693`*^9}}, CellID->1382825609], Cell["slope of curve", "Item", CellChangeTimes->{{3.7548367787158413`*^9, 3.754836793826947*^9}}, CellID->1708812108], Cell["smooth curve fitting", "Item", CellChangeTimes->{{3.7548367787158413`*^9, 3.7548367991999903`*^9}}, CellID->1692075445] }, Open ]] }, Open ]], Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->234336100], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->4373816], Cell[TextData[{ "Akima, H. \[OpenCurlyDoubleQuote]A new method of interpolation and smooth \ curve fitting based on local procedures\[CloseCurlyDoubleQuote] \n\t", StyleBox["J. Assoc. Comput. Machinery", FontSlant->"Italic"], ", ", StyleBox["17", FontWeight->"Bold"], " (4), 589-602 (1970)." }], "Text", CellChangeTimes->{{3.754835138618249*^9, 3.754835174887581*^9}}, CellTags->"TabNext", CellID->122131667], Cell[TextData[{ "Akima, H. \[OpenCurlyDoubleQuote]Algorithm 433. Interpolation and smooth \ curve fitting based on local procedures [E2]\[CloseCurlyDoubleQuote] \n\t", StyleBox["Commun. ACM", FontSlant->"Italic"], ", ", StyleBox["15", FontWeight->"Bold"], " (10), 914-918 (1972)." }], "Text", CellChangeTimes->{{3.754835138618249*^9, 3.754835171634471*^9}, { 3.754836712980214*^9, 3.754836724922202*^9}}, CellTags->"TabNext", CellID->1669934956] }, Open ]], Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Links", CellID->443077927], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->349784570], Cell[BoxData[ RowBox[{ RowBox[{"input", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "150"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.754835603277152*^9, 3.75483560580474*^9}}, CellLabel->"In[172]:=", CellID->1016036008], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"intrpl", "=", RowBox[{"AkimaInterpolation", "[", "input", "]"}]}], ")"}], "//", "Head"}], ",", "InterpolatingFunction", ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7548356480921793`*^9, 3.754835668265348*^9}, { 3.754836500588278*^9, 3.754836501116911*^9}}, CellLabel->"In[190]:=", CellID->152812409], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-Z0K3Y3\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-Z0K3Y3\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Head", "[", RowBox[{"intrpl", "=", RowBox[{"AkimaInterpolation", "[", "input", "]"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["InterpolatingFunction", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["InterpolatingFunction", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.00049`2.8407110778605076", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 16, "TestID" -> "Test-20180721-Z0K3Y3", "Outcome" -> "Success", "Input" -> HoldForm[ Head[$CellContext`intrpl = Akima`AkimaInterpolation[$CellContext`input]]], "ExpectedOutput" -> HoldForm[InterpolatingFunction], "ActualOutput" -> HoldForm[InterpolatingFunction], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.00049`2.8407110778605076, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004909999997835257, "Seconds"], "MemoryUsed" -> Quantity[-24, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836316988699*^9, 3.754836505037414*^9}, CellLabel->"Out[190]=", CellID->1427557154] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"intrpl", "/@", RowBox[{"{", RowBox[{ "0.", ",", "0.2", ",", "0.4", ",", "0.6", ",", "0.8", ",", "1.", ",", "1.2", ",", "1.4", ",", "1.6", ",", "1.8", ",", "2.", ",", "2.2", ",", "2.4", ",", "2.6", ",", "2.8", ",", "3.", ",", "3.2", ",", "3.4", ",", "3.6", ",", "3.8", ",", "4.", ",", "4.2", ",", "4.4", ",", "4.6", ",", "4.8", ",", "5.", ",", "5.2", ",", "5.4", ",", "5.6", ",", "5.8", ",", "6.", ",", "6.2", ",", "6.4", ",", "6.6", ",", "6.8", ",", "7.", ",", "7.2", ",", "7.4", ",", "7.6", ",", "7.8", ",", "8.", ",", "8.2", ",", "8.4", ",", "8.6", ",", "8.8", ",", "9."}], "}"}]}], ",", RowBox[{"{", RowBox[{ "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.06787096774193557", ",", "0.24361290322580686", ",", "0.48541935483870924", ",", "0.7514838709677417", ",", "1.", ",", "1.5232747497219137", ",", "2.6588565072302597", ",", "4.4328008898776385", ",", "6.871163515016683", ",", "10.", ",", "18.34149298976886", ",", "33.645168624479005", ",", "51.77809776430463", ",", "68.60735126942022", ",", "80.", ",", "85.50989010989011", ",", "88.57362637362638", ",", "90.88241758241757", ",", "94.12747252747252", ",", "100.", ",", "108.07999999999997", ",", "116.94000000000001", ",", "126.75999999999998", ",", "137.72000000000003", ",", "150."}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7548357055934*^9, 3.754835716016284*^9}, { 3.754836520995556*^9, 3.754836521442718*^9}}, CellLabel->"In[191]:=", CellID->1731201640], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-R7D3X2\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-R7D3X2\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"intrpl", "/@", RowBox[{"{", RowBox[{"0.`", ",", "0.2`", ",", RowBox[{"\[LeftSkeleton]", "42", "\[RightSkeleton]"}], ",", "8.8`", ",", "9.`"}], "}"}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"\[LeftSkeleton]", "42", "\[RightSkeleton]"}], ",", "137.72000000000003`", ",", "150.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"\[LeftSkeleton]", "42", "\[RightSkeleton]"}], ",", "137.72000000000003`", ",", "150.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000317`2.651574260049743", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 17, "TestID" -> "Test-20180721-R7D3X2", "Outcome" -> "Success", "Input" -> HoldForm[ Map[$CellContext`intrpl, CompressedData[" 1:eJxFy0EOwVAUheHbECFEipaW4j0LMLGAd9dgCRKm1sOOmrAAYyMziUQiMZD2 /okzeXnnfNfvjtt9JCJr+ed8qlIGe29hU+fO/xFMPelf4VDnzf4J10uVL07U +kjNN9T2ptpdS421cR1cF9fD9XExfYwfsA+5G+ESXIJLcWPcBJfhMlyOm+Jm uAJX4Oa4BW6Jc/QO79g9dx630h+KKYPL "]]], "ExpectedOutput" -> HoldForm[CompressedData[" 1:eJxTTMoPSmVkYGDQYxhCYPWZR3/jN9ovaZVT26p33v6adkW4jOB9++tPNJ6r 87ywhyj6YK/AyxcRGv/DPqemqj/MldWB7yKfhsFuQQeLOzc9hWqkHSDqVBxu 3VsmmhNu5FDquv7RlEsODruSFbfOeOzpwHzt9vV7aoFQdSEOXIsUuBYlhDr4 bEvx3qYS5tBeOaO9ckeYQ5NGBxCFQ9VFOjS/DtwhxxrtENt/6KuGTaxDvi3X 9cUb4h1uLC6w5TJPhKg7kOQAAP3QSb0= "]], "ActualOutput" -> HoldForm[CompressedData[" 1:eJxTTMoPSmVkYGDQYxhCYPWZR3/jN9ovaZVT26p33v6adkW4jOB9++tPNJ6r 87ywhyj6YK/AyxcRGv/DPqemqj/MldWB7yKfhsFuQQeLOzc9hWqkHSDqVBxu 3VsmmhNu5FDquv7RlEsODruSFbfOeOzpwHzt9vV7aoFQdSEOXIsUuBYlhDr4 bEvx3qYS5tBeOaO9ckeYQ5NGBxCFQ9VFOjS/DtwhxxrtENt/6KuGTaxDvi3X 9cUb4h1uLC6w5TJPhKg7kOQAAP3QSb0= "]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000317`2.651574260049743, "Seconds"], "CPUTimeUsed" -> Quantity[0.00032200000032389653`, "Seconds"], "MemoryUsed" -> Quantity[952, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836331999661*^9, 3.7548365221156*^9}, CellLabel->"Out[191]=", CellID->396336613] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"intrpl2", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"Last", "/@", "input"}], "]"}]}], ")"}], "//", "Head"}], ",", "InterpolatingFunction", ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7548357571582203`*^9, 3.754835772550007*^9}, { 3.754836535066997*^9, 3.75483653553724*^9}}, CellLabel->"In[192]:=", CellID->834386059], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-S4L9A4\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-S4L9A4\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Head", "[", RowBox[{"intrpl2", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["InterpolatingFunction", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["InterpolatingFunction", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000501`2.8503527236992374", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 18, "TestID" -> "Test-20180721-S4L9A4", "Outcome" -> "Success", "Input" -> HoldForm[ Head[$CellContext`intrpl2 = Akima`AkimaInterpolation[ Map[Last, $CellContext`input]]]], "ExpectedOutput" -> HoldForm[InterpolatingFunction], "ActualOutput" -> HoldForm[InterpolatingFunction], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000501`2.8503527236992374, "Seconds"], "CPUTimeUsed" -> Quantity[0.0005019999998694402, "Seconds"], "MemoryUsed" -> Quantity[-24, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836341990939*^9, 3.754836537960945*^9}, CellLabel->"Out[192]=", CellID->844618276] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"intrpl2", "/@", RowBox[{"{", RowBox[{ "1.", ",", "1.2", ",", "1.4", ",", "1.6", ",", "1.8", ",", "2.", ",", "2.2", ",", "2.4", ",", "2.6", ",", "2.8", ",", "3.", ",", "3.2", ",", "3.4", ",", "3.6", ",", "3.8", ",", "4.", ",", "4.2", ",", "4.4", ",", "4.6", ",", "4.8", ",", "5.", ",", "5.2", ",", "5.4", ",", "5.6", ",", "5.8", ",", "6.", ",", "6.2", ",", "6.4", ",", "6.6", ",", "6.8", ",", "7.", ",", "7.2", ",", "7.4", ",", "7.6", ",", "7.8", ",", "8.", ",", "8.2", ",", "8.4", ",", "8.6", ",", "8.8", ",", "9.", ",", "9.2", ",", "9.4", ",", "9.6", ",", "9.8", ",", "10."}], "}"}]}], ",", RowBox[{"{", RowBox[{ "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.", ",", "0.06787096774193557", ",", "0.24361290322580686", ",", "0.48541935483870924", ",", "0.7514838709677417", ",", "1.", ",", "1.5232747497219137", ",", "2.6588565072302597", ",", "4.4328008898776385", ",", "6.871163515016683", ",", "10.", ",", "18.34149298976886", ",", "33.645168624479005", ",", "51.77809776430463", ",", "68.60735126942022", ",", "80.", ",", "85.5098901098901", ",", "88.57362637362638", ",", "90.88241758241757", ",", "94.12747252747255", ",", "100.", ",", "108.07999999999997", ",", "116.94000000000001", ",", "126.75999999999998", ",", "137.72000000000003", ",", "150."}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.754835796709052*^9, 3.75483580535711*^9}, { 3.754836551578636*^9, 3.7548365519691553`*^9}}, CellLabel->"In[193]:=", CellID->1701445129], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-C3A8V7\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-C3A8V7\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"intrpl2", "/@", RowBox[{"{", RowBox[{"1.`", ",", "1.2`", ",", RowBox[{"\[LeftSkeleton]", "42", "\[RightSkeleton]"}], ",", "9.8`", ",", "10.`"}], "}"}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"\[LeftSkeleton]", "42", "\[RightSkeleton]"}], ",", "137.72000000000003`", ",", "150.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"\[LeftSkeleton]", "42", "\[RightSkeleton]"}], ",", "137.72000000000003`", ",", "150.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.0002119999999999999`2.476850858760743", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 19, "TestID" -> "Test-20180721-C3A8V7", "Outcome" -> "Success", "Input" -> HoldForm[ Map[$CellContext`intrpl2, CompressedData[" 1:eJw1y0EOwVAUheHXECFEiqIo3ns17sQC7l2DJUiYWg9rYi8SiURiIO39neE5 3wnHy+GUOOcq989T9k1ecm7yltu1zkce9zpfAar1iZpvqe1ttV9HjXVxPVwf N8ANcSl9ih+xj/lNcBkuw01xM9wcl+Ny3AK3xK1wBa7ArXEb3Bbn6T3eswd+ ARdxERdxJa7E7fQHiIiBTg== "]]], "ExpectedOutput" -> HoldForm[CompressedData[" 1:eJxTTMoPSmVkYGDQYxhCYPWZR3/jN9ovaZVT26p33v6adkW4jOB9++tPNJ6r 87ywhyj6YK/AyxcRGv/DPqemqj/MldWB7yKfhsFuQQeLOzc9hWqkHSDqVBxu 3VsmmhNu5FDquv7RlEsODruSFbfOeOzpwHzt9vV7aoFQdSEOnIsUuBYlhDr4 bEvx3qYS5tBeOaO9ckeYQ4tGR5NGRzhUXaRD8+vAHXKs0Q6x/Ye+atjEOuTb cl1fvCHe4cbiAlsu80SIugNJDgD98Em+ "]], "ActualOutput" -> HoldForm[CompressedData[" 1:eJxTTMoPSmVkYGDQYxhCYPWZR3/jN9ovaZVT26p33v6adkW4jOB9++tPNJ6r 87ywhyj6YK/AyxcRGv/DPqemqj/MldWB7yKfhsFuQQeLOzc9hWqkHSDqVBxu 3VsmmhNu5FDquv7RlEsODruSFbfOeOzpwHzt9vV7aoFQdSEOnIsUuBYlhDr4 bEvx3qYS5tBeOaO9ckeYQ4tGR5NGRzhUXaRD8+vAHXKs0Q6x/Ye+atjEOuTb cl1fvCHe4cbiAlsu80SIugNJDgD98Em+ "]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0002119999999999999`2.476850858760743, "Seconds"], "CPUTimeUsed" -> Quantity[0.0002110000000357104, "Seconds"], "MemoryUsed" -> Quantity[952, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836344123624*^9, 3.754836552766555*^9}, CellLabel->"Out[193]=", CellID->1229110265] }, Open ]], Cell["Minimal number of points:", "Text", CellChangeTimes->{{3.7548358243730516`*^9, 3.7548358273160963`*^9}, { 3.75483591073074*^9, 3.75483591612903*^9}, {3.754836346038637*^9, 3.754836348245875*^9}}, CellID->1676047876], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ifun", "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "1", ",", "0.25"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"0.", ",", "0.5", ",", "1.", ",", "1.5", ",", "2."}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7548358398439217`*^9, 3.754835847619501*^9}, { 3.754836569393482*^9, 3.754836569873266*^9}}, CellLabel->"In[194]:=", CellID->1420281599], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-D7L8K1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-D7L8K1\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}]}], ";", RowBox[{"ifun", "/@", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "0.`", ",", "0.5`", ",", "1.`", ",", "1.5`", ",", "2.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ "0.`", ",", "0.5`", ",", "1.`", ",", "1.5`", ",", "2.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000439`2.7929795180741155", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 20, "TestID" -> "Test-20180721-D7L8K1", "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`ifun = Akima`AkimaInterpolation[{{0, 0}, {1, 2}}]; Map[$CellContext`ifun, Range[0, 1, 0.25]]], "ExpectedOutput" -> HoldForm[{0., 0.5, 1., 1.5, 2.}], "ActualOutput" -> HoldForm[{0., 0.5, 1., 1.5, 2.}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000439`2.7929795180741155, "Seconds"], "CPUTimeUsed" -> Quantity[0.00043799999957627733`, "Seconds"], "MemoryUsed" -> Quantity[-40, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836356747974*^9, 3.7548365712783957`*^9}, CellLabel->"Out[194]=", CellID->770923490] }, Open ]], Cell["Decreasing ordinate:", "Text", CellChangeTimes->{{3.754835920380473*^9, 3.754835925736661*^9}}, CellID->933569002], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ifun", "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "2", ",", "0.25"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{ "0.", ",", "0.15625", ",", "0.375", ",", "0.65625", ",", "1.", ",", "1.40625", ",", "1.875", ",", "2.40625", ",", "3."}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.754835934964539*^9, 3.754835940864609*^9}, { 3.754836583930435*^9, 3.7548365843607893`*^9}}, CellLabel->"In[195]:=", CellID->877957523], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-A7D6G1\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-A7D6G1\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], "]"}]}], RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], RowBox[{"ifun", RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0.`", ",", "0.15625`", ",", RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], ",", "2.40625`", ",", "3.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"0.`", ",", "0.15625`", ",", RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], ",", "2.40625`", ",", "3.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000406`2.759041031409188", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 21, "TestID" -> "Test-20180721-A7D6G1", "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`ifun = Akima`AkimaInterpolation[{{2, 3}, {1, 1}, {0, 0}}]; Map[$CellContext`ifun, Range[0, 2, 0.25]]], "ExpectedOutput" -> HoldForm[{0., 0.15625, 0.375, 0.65625, 1., 1.40625, 1.875, 2.40625, 3.}], "ActualOutput" -> HoldForm[{0., 0.15625, 0.375, 0.65625, 1., 1.40625, 1.875, 2.40625, 3.}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000406`2.759041031409188, "Seconds"], "CPUTimeUsed" -> Quantity[0.00040700000045035267`, "Seconds"], "MemoryUsed" -> Quantity[304, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.75483636276639*^9, 3.754836585062718*^9}, CellLabel->"Out[195]=", CellID->50354334] }, Open ]], Cell["Special case for equal interval slopes:", "Text", CellChangeTimes->{ 3.754835957117844*^9, {3.754836650134153*^9, 3.754836667812109*^9}}, CellID->1445601026], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ifun", "/@", RowBox[{"Range", "[", RowBox[{"1", ",", "5", ",", "0.5"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{ "3.", ",", "2.5", ",", "2.", ",", "1.3125", ",", "1.", ",", "1.8125", ",", "3.", ",", "4.", ",", "5."}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.754835978655455*^9, 3.754835985295204*^9}, { 3.754836604681086*^9, 3.7548366052182693`*^9}}, CellLabel->"In[196]:=", CellID->1068441307], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180722-X2M7E5\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180722-X2M7E5\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], "]"}]}], RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], RowBox[{"ifun", RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"3.`", ",", "2.5`", ",", "2.`", ",", RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", "3.`", ",", "4.`", ",", "5.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"3.`", ",", "2.5`", ",", "2.`", ",", RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", "3.`", ",", "4.`", ",", "5.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000468`2.820760850906118", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 22, "TestID" -> "Test-20180722-X2M7E5", "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`ifun = Akima`AkimaInterpolation[{{1, 3}, {2, 2}, {3, 1}, {4, 3}, {5, 5}}]; Map[$CellContext`ifun, Range[1, 5, 0.5]]], "ExpectedOutput" -> HoldForm[{3., 2.5, 2., 1.3125, 1., 1.8125, 3., 4., 5.}], "ActualOutput" -> HoldForm[{3., 2.5, 2., 1.3125, 1., 1.8125, 3., 4., 5.}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000468`2.820760850906118, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004659999999603315, "Seconds"], "MemoryUsed" -> Quantity[368, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836366018765*^9, 3.754836685647932*^9}, CellLabel->"Out[196]=", CellID->1976424389] }, Open ]], Cell["Periodic input:", "Text", CellChangeTimes->{{3.7548360325184937`*^9, 3.754836040348916*^9}}, CellID->1900896219], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"PeriodicInterpolation", "\[Rule]", "True"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ifun", "/@", RowBox[{"Range", "[", RowBox[{"1", ",", "7", ",", "0.25"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{ "1.", ",", "1.25", ",", "1.5", ",", "1.75", ",", "2.", ",", "2.25", ",", "2.5", ",", "2.75", ",", "3.", ",", "3.352678571428571", ",", "3.857142857142857", ",", "4.433035714285714", ",", "5.", ",", "5.770089285714286", ",", "6.767857142857142", ",", "7.631696428571429", ",", "8.", ",", "7.697443181818182", ",", "6.943181818181818", ",", "5.967329545454545", ",", "5.", ",", "3.8295454545454546", ",", "2.4318181818181817", ",", "1.3181818181818183", ",", "1."}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.754836043107354*^9, 3.75483606538411*^9}}, CellLabel->"In[180]:=", CellID->1043376240], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-X3X4S0\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-X3X4S0\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{ RowBox[{"ifun", "=", RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}]}], ";", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"1.`", ",", "1.25`", ",", RowBox[{"\[LeftSkeleton]", "21", "\[RightSkeleton]"}], ",", "1.3181818181818183`", ",", "1.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"1.`", ",", "1.25`", ",", RowBox[{"\[LeftSkeleton]", "21", "\[RightSkeleton]"}], ",", "1.3181818181818183`", ",", "1.`"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000496`2.845996674322189", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 8, "TestID" -> "Test-20180721-X3X4S0", "Outcome" -> "Success", "Input" -> HoldForm[$CellContext`ifun = Akima`AkimaInterpolation[{{1, 1}, {2, 2}, {3, 3}, {4, 5}, {5, 8}, {6, 5}, {7, 1}}, PeriodicInterpolation -> True]; Map[$CellContext`ifun, Range[1, 7, 0.25]]], "ExpectedOutput" -> HoldForm[{1., 1.25, 1.5, 1.75, 2., 2.25, 2.5, 2.75, 3., 3.352678571428571, 3.857142857142857, 4.433035714285714, 5., 5.770089285714286, 6.767857142857142, 7.631696428571429, 8., 7.697443181818182, 6.943181818181818, 5.967329545454545, 5., 3.8295454545454546`, 2.4318181818181817`, 1.3181818181818183`, 1.}], "ActualOutput" -> HoldForm[{1., 1.25, 1.5, 1.75, 2., 2.25, 2.5, 2.75, 3., 3.352678571428571, 3.857142857142857, 4.433035714285714, 5., 5.770089285714286, 6.767857142857142, 7.631696428571429, 8., 7.697443181818182, 6.943181818181818, 5.967329545454545, 5., 3.829545454545454, 2.4318181818181817`, 1.3181818181818183`, 1.}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000496`2.845996674322189, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004949999997734267, "Seconds"], "MemoryUsed" -> Quantity[936, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836368956465*^9}, CellLabel->"Out[180]=", CellID->1230569052] }, Open ]], Cell["Invalid data:", "Text", CellChangeTimes->{{3.754836115555685*^9, 3.7548361239332047`*^9}}, CellID->607101053], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"Missing", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"Missing", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "innd"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.75483612580188*^9, 3.754836132851139*^9}}, CellLabel->"In[181]:=", CellID->318001044], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180722-A3Q8B6\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180722-A3Q8B6\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "innd"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{"AkimaInterpolation", "::", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}]}], "MessageName"], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000404`2.756896362942597", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 9, "TestID" -> "Test-20180722-A3Q8B6", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{{0, 0}, {1, 2}, {3, Missing[]}, {4, 7}}]], "ExpectedOutput" -> HoldForm[ HoldForm[ Akima`AkimaInterpolation[{{0, 0}, {1, 2}, {3, Missing[]}, {4, 7}}]]], "ActualOutput" -> HoldForm[ HoldForm[ Akima`AkimaInterpolation[{{0, 0}, {1, 2}, {3, Missing[]}, {4, 7}}]]], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "innd"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "innd"], {{0, 0}, {1, 2}, {3, Missing[]}, {4, 7}}]]}, "AbsoluteTimeUsed" -> Quantity[0.000404`2.756896362942597, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004030000004604517, "Seconds"], "MemoryUsed" -> Quantity[2448, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836374103259*^9}, CellLabel->"Out[181]=", CellID->337943298] }, Open ]], Cell["Too few points:", "Text", CellChangeTimes->{{3.754836152316877*^9, 3.754836155675775*^9}}, CellID->1628020243], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "]"}], ",", "$Failed", ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "npts"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7548361574903316`*^9, 3.754836159766129*^9}}, CellLabel->"In[182]:=", CellID->1648476511], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-R5S8X2\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-R5S8X2\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "npts"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{"AkimaInterpolation", "::", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}]}], "MessageName"], ",", "1", ",", "2"}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.00042`2.7737642882298923", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 10, "TestID" -> "Test-20180721-R5S8X2", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{{1, 1}}]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "npts"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "npts"], 1, 2]]}, "AbsoluteTimeUsed" -> Quantity[0.00042`2.7737642882298923, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004199999993943493, "Seconds"], "MemoryUsed" -> Quantity[376, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836378941286*^9}, CellLabel->"Out[182]=", CellID->1520356505] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", "}"}], "]"}], ",", "$Failed", ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "npts"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.75483617105096*^9, 3.7548361797248573`*^9}}, CellLabel->"In[183]:=", CellID->1119310874], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-R5S8X2\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-R5S8X2\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "npts"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{ StyleBox[ RowBox[{"AkimaInterpolation", "::", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}]}], "MessageName"], ",", "0", ",", "2"}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000419`2.772729020798287", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 11, "TestID" -> "Test-20180721-R5S8X2", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{}]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "npts"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "npts"], 0, 2]]}, "AbsoluteTimeUsed" -> Quantity[0.000419`2.772729020798287, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004180000005362672, "Seconds"], "MemoryUsed" -> Quantity[312, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836383818598*^9}, CellLabel->"Out[183]=", CellID->1305412067] }, Open ]], Cell["Not increasing ordinate:", "Text", CellChangeTimes->{{3.7548362067315817`*^9, 3.754836212075075*^9}}, CellID->537982175], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}], "]"}], ",", "$Failed", ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "ordsid"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.754836214767624*^9, 3.754836217389868*^9}}, CellLabel->"In[184]:=", CellID->1712171814], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-D8O5H7\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-D8O5H7\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "ordsid"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", StyleBox[ RowBox[{"AkimaInterpolation", "::", "ordsid"}], "MessageName"], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.004171`3.7707551876778216", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 12, "TestID" -> "Test-20180721-D8O5H7", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{{1, 1}, {2, 3}, {3, 6}, {2, 4}}]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "ordsid"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "ordsid"]]]}, "AbsoluteTimeUsed" -> Quantity[0.004171`3.7707551876778216, "Seconds"], "CPUTimeUsed" -> Quantity[0.0016479999994771788`, "Seconds"], "MemoryUsed" -> Quantity[19480, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836391874508*^9}, CellLabel->"Out[184]=", CellID->534385766] }, Open ]], Cell["Not strictly increasing ordinate:", "Text", CellChangeTimes->{{3.754836222882962*^9, 3.754836232065742*^9}}, CellID->2115032373], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10"}], "}"}]}], "}"}], "]"}], ",", "$Failed", ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "ordsid"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7548362470330048`*^9, 3.754836249659766*^9}}, CellLabel->"In[185]:=", CellID->411620051], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-E0X8T9\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180721-E0X8T9\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"AkimaInterpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"4", ",", "10"}], "}"}]}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "ordsid"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", StyleBox[ RowBox[{"AkimaInterpolation", "::", "ordsid"}], "MessageName"], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000399`2.7514878935187377", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 13, "TestID" -> "Test-20180721-E0X8T9", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{{1, 1}, {2, 3}, {3, 6}, {3, 9}, {4, 10}}]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "ordsid"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "ordsid"]]]}, "AbsoluteTimeUsed" -> Quantity[0.000399`2.7514878935187377, "Seconds"], "CPUTimeUsed" -> Quantity[0.00039700000024822657`, "Seconds"], "MemoryUsed" -> Quantity[296, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.754836394187789*^9}, CellLabel->"Out[185]=", CellID->373758508] }, Open ]], Cell["Not periodic data:", "Text", CellChangeTimes->{{3.754836258730812*^9, 3.754836264544775*^9}}, CellID->1204408544], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"PeriodicInterpolation", "\[Rule]", "True"}]}], "]"}], ",", "$Failed", ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "per"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.754836274639518*^9, 3.754836277730706*^9}}, CellLabel->"In[186]:=", CellID->1368265754], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180722-U3Z1Q5\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180722-U3Z1Q5\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "per"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", StyleBox[ RowBox[{"AkimaInterpolation", "::", "per"}], "MessageName"], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000423`2.7768553652070342", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 14, "TestID" -> "Test-20180722-U3Z1Q5", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{{1, 1}, {2, 3}, {3, 6}, {4, 3}}, PeriodicInterpolation -> True]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "per"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "per"]]]}, "AbsoluteTimeUsed" -> Quantity[0.000423`2.7768553652070342, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004179999996267725, "Seconds"], "MemoryUsed" -> Quantity[296, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.75483639645207*^9}, CellLabel->"Out[186]=", CellID->290457167] }, Open ]], Cell["Incorrect option value:", "Text", CellChangeTimes->{{3.754836295848781*^9, 3.754836301351594*^9}}, CellID->2077699859], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"AkimaInterpolation", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"PeriodicInterpolation", "\[Rule]", "None"}]}], "]"}], ",", "$Failed", ",", RowBox[{"{", RowBox[{"AkimaInterpolation", "::", "opttf"}], "}"}], ",", RowBox[{"TestID", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.75483630364038*^9, 3.754836303650484*^9}, { 3.7548364493664093`*^9, 3.754836467906803*^9}}, CellLabel->"In[189]:=", CellID->1202443361], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180723-P7V5S4\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]], BaseStyle -> {FontFamily -> "Times", FontSize -> 10}], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Test-20180723-P7V5S4\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["$Failed", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", StyleBox[ RowBox[{"AkimaInterpolation", "::", "opttf"}], "MessageName"], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual messages: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{"Message", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time Taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000463`2.816095988849945", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 15, "TestID" -> "Test-20180723-P7V5S4", "Outcome" -> "Success", "Input" -> HoldForm[ Akima`AkimaInterpolation[{{1, 1}, {2, 3}, {3, 6}, {4, 3}, {1, 1}}, PeriodicInterpolation -> None]], "ExpectedOutput" -> HoldForm[$Failed], "ActualOutput" -> HoldForm[$Failed], "ExpectedMessages" -> { HoldForm[ MessageName[Akima`AkimaInterpolation, "opttf"]]}, "ActualMessages" -> { HoldForm[ Message[ MessageName[Akima`AkimaInterpolation, "opttf"], PeriodicInterpolation, None]]}, "AbsoluteTimeUsed" -> Quantity[0.000463`2.816095988849945, "Seconds"], "CPUTimeUsed" -> Quantity[0.0004600000002028537, "Seconds"], "MemoryUsed" -> Quantity[328, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7548363986435757`*^9, {3.754836451022053*^9, 3.754836468544149*^9}}, CellLabel->"Out[189]=", CellID->713079863] }, Open ]] }, Open ]] }, Open ]], Cell["Notes", "Section", DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->359397282] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{"ResourceType" -> "Function", "ResourceCreateNotebook" -> True}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 355, 7, 70, "Title",ExpressionUUID->"505897c3-84d2-4667-acc8-bf1505040245", CellTags->{"Title", "TabNext"}, CellID->18217985]}, "TabNext"->{ Cell[580, 22, 355, 7, 70, "Title",ExpressionUUID->"505897c3-84d2-4667-acc8-bf1505040245", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[938, 31, 411, 9, 70, "Text",ExpressionUUID->"71fb4fa0-e2aa-4d0d-9d02-2f2e2e6672cf", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[2209, 65, 17942, 466, 70, "Input",ExpressionUUID->"3ad12fc6-cee6-4654-8411-9f8e15bfde12", CellTags->"TabNext", CellID->1328037598], Cell[21063, 565, 534, 14, 70, "UsageInputs",ExpressionUUID->"a4718220-75fd-488e-85d8-9e780b3630df", CellTags->"TabNext", CellID->121044399], Cell[21600, 581, 287, 6, 70, "UsageDescription",ExpressionUUID->"e720d400-3b6d-4071-a7da-70bd76da323c", CellTags->"TabNext", CellID->274605684], Cell[21924, 592, 554, 18, 70, "UsageInputs",ExpressionUUID->"4da3d57c-92c8-4bd4-abc1-7fe0a0be9b0b", CellTags->"TabNext", CellID->249848312], Cell[22481, 612, 280, 7, 70, "UsageDescription",ExpressionUUID->"1a8faeb8-7a1c-411b-9d01-8d5417c43ede", CellTags->"TabNext", CellID->870049899], Cell[23606, 647, 293, 7, 70, "Notes",ExpressionUUID->"3cab9f47-bc7f-41c5-a79a-d97f7fe4cd62", CellTags->"TabNext", CellID->107622986], Cell[24836, 678, 308, 7, 70, "Notes",ExpressionUUID->"549efe14-0ba0-4773-9cbd-1e13cd1af0fd", CellTags->"TabNext", CellID->2016071315], Cell[512671, 10111, 210, 4, 70, "Text",ExpressionUUID->"5fd87cb1-b258-4494-9992-0f6c7e43a387", CellTags->"TabNext", CellID->268773406], Cell[513523, 10140, 139, 3, 70, "Item",ExpressionUUID->"b20cb2c1-00ec-4509-b599-f49bc883cfdb", CellTags->"TabNext", CellID->286151546], Cell[515462, 10199, 420, 12, 70, "Text",ExpressionUUID->"2debe64c-9a80-4d81-a8a9-ea9d2dc9d2d7", CellTags->"TabNext", CellID->122131667], Cell[515885, 10213, 459, 13, 70, "Text",ExpressionUUID->"82a0101f-eb9c-4198-845b-79da86a948db", CellTags->"TabNext", CellID->1669934956]}, "Description"->{ Cell[938, 31, 411, 9, 70, "Text",ExpressionUUID->"71fb4fa0-e2aa-4d0d-9d02-2f2e2e6672cf", CellTags->{"Description", "TabNext"}, CellID->27787318]}, "Definition"->{ Cell[1374, 44, 832, 19, 70, "Section",ExpressionUUID->"8489b83e-494f-4bef-ba7c-a12717b09e18", CellTags->"Definition", CellID->40452676]}, "Documentation"->{ Cell[20188, 536, 80, 2, 70, "Section",ExpressionUUID->"4d7dea75-7bb1-4739-ae72-60abd72fc3e5", CellTags->"Documentation", CellID->491847979]}, "Usage"->{ Cell[20293, 542, 745, 19, 70, "Subsection",ExpressionUUID->"3ac6009a-3c4d-4e04-9750-6c6b7883bf5d", CellTags->"Usage", CellID->253280348]}, "Details & Options"->{ Cell[22810, 625, 771, 18, 70, "Subsection",ExpressionUUID->"f8815995-1785-4ec0-b3d0-b45e4c3cdb1b", CellTags->"Details & Options", CellID->123126086]}, "Examples"->{ Cell[25932, 709, 740, 18, 70, "Section",ExpressionUUID->"d372f49a-412a-4aff-af88-f566f9f30c7a", CellTags->"Examples", CellID->163631071]}, "Source & Additional Information"->{ Cell[511893, 10086, 116, 2, 70, "Section",ExpressionUUID->"dccd6aec-1e2a-446b-b880-97fe2f00c5e6", CellTags->"Source & Additional Information", CellID->127601628]}, "Contributed By"->{ Cell[512034, 10092, 634, 17, 70, "Subsection",ExpressionUUID->"7d81b568-17d1-4b08-b6c8-7db2beacd5fa", CellTags->"Contributed By", CellID->193619321]}, "Keywords"->{ Cell[512918, 10120, 580, 16, 70, "Subsection",ExpressionUUID->"efd04dfd-2dfa-43f9-8034-39da07cbf3c3", CellTags->"Keywords", CellID->56929831]}, "Related Resource Objects"->{ Cell[514061, 10159, 664, 17, 70, "Subsection",ExpressionUUID->"8be6c539-29bb-4524-a421-5dcfa644b2d5", CellTags->"Related Resource Objects", CellID->234336100]}, "Source/Reference Citation"->{ Cell[514750, 10180, 709, 17, 70, "Subsection",ExpressionUUID->"70bf686a-6f5f-41c2-90d4-28372de2dc15", CellTags->"Source/Reference Citation", CellID->4373816]}, "Links"->{ Cell[516359, 10229, 559, 16, 70, "Subsection",ExpressionUUID->"07c46f6e-61db-4d0c-b2ee-2c3ceb39b339", CellTags->"Links", CellID->443077927]}, "Tests"->{ Cell[516943, 10249, 724, 18, 70, "Subsection",ExpressionUUID->"c0420c11-dc12-4ee1-92d1-31b1f2826cc8", CellTags->"Tests", CellID->349784570]}, "Notes"->{ Cell[683530, 13966, 94, 3, 70, "Section",ExpressionUUID->"5b0f646c-2a91-49d7-a09b-ca21021a9da4", CellTags->"Notes", CellID->359397282]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 729173, 14904}, {"TabNext", 729337, 14908}, {"Description", 731272, 14948}, {"Definition", 731444, 14952}, {"Documentation", 731610, 14956}, {"Usage", 731772, 14960}, {"Details & Options", 731943, 14964}, {"Examples", 732117, 14968}, {"Source & Additional Information", 732302, 14972}, {"Contributed By", 732495, 14976}, {"Keywords", 732669, 14980}, {"Related Resource Objects", 732852, 14984}, {"Source/Reference Citation", 733053, 14988}, {"Links", 733233, 14992}, {"Tests", 733395, 14996}, {"Notes", 733557, 15000} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 355, 7, 70, "Title",ExpressionUUID->"505897c3-84d2-4667-acc8-bf1505040245", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[938, 31, 411, 9, 70, "Text",ExpressionUUID->"71fb4fa0-e2aa-4d0d-9d02-2f2e2e6672cf", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[1374, 44, 832, 19, 70, "Section",ExpressionUUID->"8489b83e-494f-4bef-ba7c-a12717b09e18", CellTags->"Definition", CellID->40452676], Cell[2209, 65, 17942, 466, 70, "Input",ExpressionUUID->"3ad12fc6-cee6-4654-8411-9f8e15bfde12", CellTags->"TabNext", CellID->1328037598] }, Open ]], Cell[CellGroupData[{ Cell[20188, 536, 80, 2, 70, "Section",ExpressionUUID->"4d7dea75-7bb1-4739-ae72-60abd72fc3e5", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[20293, 542, 745, 19, 70, "Subsection",ExpressionUUID->"3ac6009a-3c4d-4e04-9750-6c6b7883bf5d", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[21063, 565, 534, 14, 70, "UsageInputs",ExpressionUUID->"a4718220-75fd-488e-85d8-9e780b3630df", CellTags->"TabNext", CellID->121044399], Cell[21600, 581, 287, 6, 70, "UsageDescription",ExpressionUUID->"e720d400-3b6d-4071-a7da-70bd76da323c", CellTags->"TabNext", CellID->274605684] }, Open ]], Cell[CellGroupData[{ Cell[21924, 592, 554, 18, 70, "UsageInputs",ExpressionUUID->"4da3d57c-92c8-4bd4-abc1-7fe0a0be9b0b", CellTags->"TabNext", CellID->249848312], Cell[22481, 612, 280, 7, 70, "UsageDescription",ExpressionUUID->"1a8faeb8-7a1c-411b-9d01-8d5417c43ede", CellTags->"TabNext", CellID->870049899] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22810, 625, 771, 18, 70, "Subsection",ExpressionUUID->"f8815995-1785-4ec0-b3d0-b45e4c3cdb1b", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell[23606, 647, 293, 7, 70, "Notes",ExpressionUUID->"3cab9f47-bc7f-41c5-a79a-d97f7fe4cd62", CellTags->"TabNext", CellID->107622986], Cell[23902, 656, 307, 6, 70, "Notes",ExpressionUUID->"a2ee0e40-f964-4470-88b0-dca89da59fe4", CellID->944673112], Cell[24212, 664, 322, 6, 70, "Notes",ExpressionUUID->"fc84ed84-8241-45fb-b4c4-5faad7ee79fa", CellID->159022581], Cell[24537, 672, 296, 4, 70, "Notes",ExpressionUUID->"71b19d59-465d-4f72-b567-2dba461e7d58", CellID->202963305], Cell[24836, 678, 308, 7, 70, "Notes",ExpressionUUID->"549efe14-0ba0-4773-9cbd-1e13cd1af0fd", CellTags->"TabNext", CellID->2016071315], Cell[25147, 687, 333, 6, 70, "Notes",ExpressionUUID->"174aa4af-8eb0-475f-a271-f613e1c71482", CellID->812751102], Cell[25483, 695, 388, 7, 70, "Notes",ExpressionUUID->"7df36bdb-a1da-4f77-b31a-0edc030f5769", CellID->661549126] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25932, 709, 740, 18, 70, "Section",ExpressionUUID->"d372f49a-412a-4aff-af88-f566f9f30c7a", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell[26697, 731, 56, 1, 70, "Subsection",ExpressionUUID->"c142fc46-0bb3-4282-80d6-4d4ff33edc61", CellID->285421464], Cell[26756, 734, 147, 4, 70, "Text",ExpressionUUID->"8bb5b694-6b20-4d47-8bc0-bcd1d53672d4", CellID->221583938], Cell[CellGroupData[{ Cell[26928, 742, 297, 8, 70, "Input",ExpressionUUID->"5c52df18-0430-4c87-8a3f-ad1ddb3d092a", CellID->7099978], Cell[27228, 752, 12189, 248, 70, "Output",ExpressionUUID->"2655f3af-12c3-452f-a1b5-7427daff5ee8", CellID->1965925619] }, Open ]], Cell[39432, 1003, 151, 2, 70, "Text",ExpressionUUID->"7e663154-6b0f-4e7c-839f-0b0f8f5f205b", CellID->1239624102], Cell[CellGroupData[{ Cell[39608, 1009, 169, 4, 70, "Input",ExpressionUUID->"d3d574ce-d635-42ba-bc98-df2fbf01bb69", CellID->1529980302], Cell[39780, 1015, 117, 3, 70, "Output",ExpressionUUID->"37d3b2f4-8a02-4ab3-84a7-dbaa236e9939", CellID->720615152] }, Open ]], Cell[39912, 1021, 135, 2, 70, "Text",ExpressionUUID->"b4e36fe2-e029-4641-8433-8f8d5df42db6", CellID->1718574231], Cell[CellGroupData[{ Cell[40072, 1027, 279, 8, 70, "Input",ExpressionUUID->"4bd23385-6969-4d38-82b4-214533d0b65b", CellID->662020169], Cell[40354, 1037, 14310, 302, 70, "Output",ExpressionUUID->"b21bada7-63d6-4d5d-95ef-610c2a69de54", CellID->1130388196] }, Open ]], Cell[54679, 1342, 134, 2, 70, "Text",ExpressionUUID->"7166a1f8-117a-4ea0-a410-be664b6141a2", CellID->1794068810], Cell[CellGroupData[{ Cell[54838, 1348, 325, 9, 70, "Input",ExpressionUUID->"241ea1b8-501b-4bd9-8c6a-ab7c7659e711", CellID->1018818541], Cell[55166, 1359, 14678, 308, 70, "Output",ExpressionUUID->"69a60d1c-eb09-48ee-b81b-37f8c307f5e3", CellID->466108970] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69893, 1673, 47, 1, 70, "Subsection",ExpressionUUID->"02ddd648-911e-4f6f-bb43-c84cc27a2652", CellID->267254639], Cell[69943, 1676, 151, 2, 70, "Text",ExpressionUUID->"bb893fa1-51af-4c3a-8da4-3fffe0b46030", CellID->414824544], Cell[CellGroupData[{ Cell[70119, 1682, 544, 17, 70, "Input",ExpressionUUID->"5fbc3587-6d0a-483b-b569-06adee2c035b", CellID->586999621], Cell[70666, 1701, 12765, 259, 70, "Output",ExpressionUUID->"02e96e3e-489c-45fb-bca3-68e03320863f", CellID->1290967875] }, Open ]], Cell[CellGroupData[{ Cell[83468, 1965, 279, 8, 70, "Input",ExpressionUUID->"3b479a70-2658-4ce3-9c15-6af54d1595e5", CellID->1806857349], Cell[83750, 1975, 18799, 372, 70, "Output",ExpressionUUID->"4488199e-8216-4ab2-9a43-b16c99f46bb8", CellID->1335551349] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102598, 2353, 47, 1, 70, "Subsection",ExpressionUUID->"ba8ee0fb-1940-4aa4-a001-49714d858952", CellID->1575259], Cell[CellGroupData[{ Cell[102670, 2358, 135, 2, 70, "Subsubsection",ExpressionUUID->"cd90dda8-1020-4264-ba41-f7b5c15fd323", CellID->1112444199], Cell[CellGroupData[{ Cell[102830, 2364, 381, 11, 70, "Input",ExpressionUUID->"d05cf4f3-73f0-411a-a6e4-8fffebeaed2c", CellID->881893648], Cell[103214, 2377, 12784, 259, 70, "Output",ExpressionUUID->"629dc697-1040-42aa-923f-811770a5a67b", CellID->1118263685] }, Open ]], Cell[CellGroupData[{ Cell[116035, 2641, 355, 10, 70, "Input",ExpressionUUID->"5d518179-3516-4ac8-86a3-bb04bf70b141", CellID->1472586208], Cell[116393, 2653, 47547, 859, 70, "Output",ExpressionUUID->"ecbef0e0-99a0-4324-b898-b584ce712500", CellID->783870621] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[164001, 3519, 53, 1, 70, "Subsection",ExpressionUUID->"d493311b-4a22-492a-90f1-bef588818cc9", CellID->20767984], Cell[164057, 3522, 127, 2, 70, "Text",ExpressionUUID->"4239e164-14a4-4d1f-8691-6a1ed049a673", CellID->11719121], Cell[CellGroupData[{ Cell[164209, 3528, 342, 9, 70, "Input",ExpressionUUID->"6323f05a-fdc6-4580-87c2-eca0e5679d14", CellID->1715536274], Cell[164554, 3539, 13206, 264, 70, "Output",ExpressionUUID->"c9e81916-401c-4777-8a21-3604ccf28509", CellID->694377155] }, Open ]], Cell[CellGroupData[{ Cell[177797, 3808, 378, 11, 70, "Input",ExpressionUUID->"e0eb133e-2726-4ebf-83bb-29709751b3bc", CellID->674021925], Cell[178178, 3821, 25999, 447, 70, "Output",ExpressionUUID->"325417b7-3018-491d-9526-1bae00b37f8d", CellID->1550424726] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[204226, 4274, 66, 1, 70, "Subsection",ExpressionUUID->"86fe3916-7211-4609-b49d-239bcc79f0fb", CellID->461307998], Cell[204295, 4277, 286, 6, 70, "Text",ExpressionUUID->"b74b43c0-b218-4de0-a811-d44f6302688e", CellID->421797184], Cell[204584, 4285, 1272, 41, 70, "Input",ExpressionUUID->"9b636509-f4da-4540-8a75-11ccf73ce067", CellID->244353278], Cell[CellGroupData[{ Cell[205881, 4330, 809, 22, 70, "Input",ExpressionUUID->"526084ae-e7bf-4fd4-a962-3a8eac3b9314", CellID->2103237387], Cell[206693, 4354, 57721, 1023, 70, "Output",ExpressionUUID->"cc9449f5-46c3-4cc0-8ef1-69464819f210", CellID->1279459646] }, Open ]], Cell[264429, 5380, 140, 2, 70, "Text",ExpressionUUID->"b5916597-7688-4dc4-aede-0a49f663d6f3", CellID->1124512911], Cell[CellGroupData[{ Cell[264594, 5386, 811, 22, 70, "Input",ExpressionUUID->"506bb195-2c68-4e69-8fb7-d0686f47feb0", CellID->1258625530], Cell[265408, 5410, 39255, 722, 70, "Output",ExpressionUUID->"6a89ba68-fb5e-4ad5-9283-b66a1a226420", CellID->74742403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[304712, 6138, 56, 1, 70, "Subsection",ExpressionUUID->"53c6d9cf-ec77-4460-bcc5-ae5a5c18d6b8", CellID->95944414], Cell[304771, 6141, 139, 2, 70, "Text",ExpressionUUID->"3ce79fd8-2d29-4e11-a113-c696b36648a7", CellID->2065117373], Cell[CellGroupData[{ Cell[304935, 6147, 307, 8, 70, "Input",ExpressionUUID->"2478adb0-6c6e-4687-a1c5-156cd41f5fc1", CellID->1074699640], Cell[305245, 6157, 12719, 257, 70, "Output",ExpressionUUID->"d2d2fbf0-a9ae-4c61-b231-8b0687127d72", CellID->1671096414] }, Open ]], Cell[CellGroupData[{ Cell[318001, 6419, 256, 8, 70, "Input",ExpressionUUID->"60c72e2e-5e4c-4849-b347-c487e9ef8603", CellID->2125554162], Cell[318260, 6429, 419, 9, 70, "Message",ExpressionUUID->"77b6e21e-7c17-4aec-b6eb-13774c7e7f38", CellID->1743191284], Cell[318682, 6440, 419, 9, 70, "Message",ExpressionUUID->"8923eb2a-133b-40d5-8900-94be547e1b22", CellID->1843997814], Cell[319104, 6451, 280, 7, 70, "Output",ExpressionUUID->"9befcf06-6c94-4bc1-8305-150f6d0118af", CellID->1734750041] }, Open ]], Cell[319399, 6461, 160, 3, 70, "Text",ExpressionUUID->"ca04da95-d537-46d8-8785-82195d567299", CellID->1705947415], Cell[CellGroupData[{ Cell[319584, 6468, 204, 5, 70, "Input",ExpressionUUID->"fd3dd95a-6019-4b88-a017-aa997d3c356f", CellID->809571128], Cell[319791, 6475, 390, 9, 70, "Message",ExpressionUUID->"7610f7b1-d353-4d24-8a81-889b4c8f310f", CellID->32402571], Cell[320184, 6486, 123, 3, 70, "Output",ExpressionUUID->"d49785e8-543e-40f1-8df8-3dc43c206d69", CellID->1276648106] }, Open ]], Cell[CellGroupData[{ Cell[320344, 6494, 282, 7, 70, "Input",ExpressionUUID->"716293a2-e61c-481f-9081-a48131888f56", CellID->1947572401], Cell[320629, 6503, 11471, 236, 70, "Output",ExpressionUUID->"03ebd1d0-f0a8-40a5-9be7-f22e007f0d15", CellID->738577084] }, Open ]], Cell[332115, 6742, 316, 7, 70, "Text",ExpressionUUID->"76bd394b-ceb3-429b-bef4-89161ee707bf", CellID->1115600365], Cell[CellGroupData[{ Cell[332456, 6753, 346, 9, 70, "Input",ExpressionUUID->"4dd0faf8-fb0f-4d90-b03d-5bee77294e0d", CellID->215612598], Cell[332805, 6764, 13078, 261, 70, "Output",ExpressionUUID->"587845f1-310d-4830-b792-fd0d6d041e70", CellID->1396037361] }, Open ]], Cell[CellGroupData[{ Cell[345920, 7030, 1563, 38, 70, "Input",ExpressionUUID->"3f69aaaa-335b-4ba2-bf3a-9739a4123a5e", CellID->1877962240], Cell[347486, 7070, 59951, 1067, 70, "Output",ExpressionUUID->"59adc2a6-90e5-4a88-8f2e-7565265c0b5c", CellID->121494500] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[407486, 8143, 53, 1, 70, "Subsection",ExpressionUUID->"f153ecc1-e552-4b45-b70f-bf394a1e30dc", CellID->5316679], Cell[407542, 8146, 164, 3, 70, "Text",ExpressionUUID->"f7a72826-1b50-4185-9f4c-84876c9bb002", CellID->1202758553], Cell[CellGroupData[{ Cell[407731, 8153, 1514, 45, 70, "Input",ExpressionUUID->"f4f1b3e5-16bc-45f7-9113-42006f42a64d", CellID->1055703715], Cell[409248, 8200, 50858, 912, 70, "Output",ExpressionUUID->"3250a638-1ffb-4495-9203-03d64e8a45ae", CellID->683870088] }, Open ]], Cell[460121, 9115, 137, 2, 70, "Text",ExpressionUUID->"955382a4-56bf-4e37-9c17-8023a9d8cec2", CellID->392529358], Cell[CellGroupData[{ Cell[460283, 9121, 1712, 51, 70, "Input",ExpressionUUID->"e33c2294-6847-4e28-ab8b-57c980dfbecb", CellID->784101506], Cell[461998, 9174, 523, 11, 70, "Message",ExpressionUUID->"6db22a1f-aeda-42ed-88d5-c0bca46cc3af", CellID->1447082783], Cell[462524, 9187, 524, 11, 70, "Message",ExpressionUUID->"d07c7ba6-f422-4265-ab96-95fcf21adc06", CellID->868031606], Cell[463051, 9200, 48781, 879, 70, "Output",ExpressionUUID->"46b112bc-aab8-4a82-8bce-48e7855f370f", CellID->1150787971] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[511893, 10086, 116, 2, 70, "Section",ExpressionUUID->"dccd6aec-1e2a-446b-b880-97fe2f00c5e6", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[512034, 10092, 634, 17, 70, "Subsection",ExpressionUUID->"7d81b568-17d1-4b08-b6c8-7db2beacd5fa", CellTags->"Contributed By", CellID->193619321], Cell[512671, 10111, 210, 4, 70, "Text",ExpressionUUID->"5fd87cb1-b258-4494-9992-0f6c7e43a387", CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[512918, 10120, 580, 16, 70, "Subsection",ExpressionUUID->"efd04dfd-2dfa-43f9-8034-39da07cbf3c3", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell[513523, 10140, 139, 3, 70, "Item",ExpressionUUID->"b20cb2c1-00ec-4509-b599-f49bc883cfdb", CellTags->"TabNext", CellID->286151546], Cell[513665, 10145, 117, 2, 70, "Item",ExpressionUUID->"294d9fbe-32e9-460e-8031-24542e07ec18", CellID->1382825609], Cell[513785, 10149, 119, 2, 70, "Item",ExpressionUUID->"fd559c91-e277-4911-a74a-33d1d4cc9521", CellID->1708812108], Cell[513907, 10153, 127, 2, 70, "Item",ExpressionUUID->"de4e88b5-2feb-4c03-9764-2d7de59c73c6", CellID->1692075445] }, Open ]] }, Open ]], Cell[514061, 10159, 664, 17, 70, "Subsection",ExpressionUUID->"8be6c539-29bb-4524-a421-5dcfa644b2d5", CellTags->"Related Resource Objects", CellID->234336100], Cell[CellGroupData[{ Cell[514750, 10180, 709, 17, 70, "Subsection",ExpressionUUID->"70bf686a-6f5f-41c2-90d4-28372de2dc15", CellTags->"Source/Reference Citation", CellID->4373816], Cell[515462, 10199, 420, 12, 70, "Text",ExpressionUUID->"2debe64c-9a80-4d81-a8a9-ea9d2dc9d2d7", CellTags->"TabNext", CellID->122131667], Cell[515885, 10213, 459, 13, 70, "Text",ExpressionUUID->"82a0101f-eb9c-4198-845b-79da86a948db", CellTags->"TabNext", CellID->1669934956] }, Open ]], Cell[516359, 10229, 559, 16, 70, "Subsection",ExpressionUUID->"07c46f6e-61db-4d0c-b2ee-2c3ceb39b339", CellTags->"Links", CellID->443077927], Cell[CellGroupData[{ Cell[516943, 10249, 724, 18, 70, "Subsection",ExpressionUUID->"c0420c11-dc12-4ee1-92d1-31b1f2826cc8", CellTags->"Tests", CellID->349784570], Cell[517670, 10269, 847, 27, 70, "Input",ExpressionUUID->"8d8308c8-1e5b-461c-a831-da343b3b8735", CellID->1016036008], Cell[CellGroupData[{ Cell[518542, 10300, 491, 13, 70, "Input",ExpressionUUID->"9ae538f5-292c-4030-b10d-fce59f4e9aa3", CellID->152812409], Cell[519036, 10315, 8720, 185, 70, "Output",ExpressionUUID->"bf8102d9-47e1-40ab-8c52-ff60d1991ee4", CellID->1427557154] }, Open ]], Cell[CellGroupData[{ Cell[527793, 10505, 1915, 34, 70, "Input",ExpressionUUID->"19539cf8-af43-4d1e-97bd-ed9fdaf84940", CellID->1731201640], Cell[529711, 10541, 10015, 212, 70, "Output",ExpressionUUID->"d4d06429-3ff0-4832-b2d5-e4823da9e849", CellID->396336613] }, Open ]], Cell[CellGroupData[{ Cell[539763, 10758, 522, 14, 70, "Input",ExpressionUUID->"bd9b8904-79e7-4ecc-84a9-082d4644a690", CellID->834386059], Cell[540288, 10774, 8802, 186, 70, "Output",ExpressionUUID->"46e7db70-298a-42af-81ae-131958b6093b", CellID->844618276] }, Open ]], Cell[CellGroupData[{ Cell[549127, 10965, 1919, 34, 70, "Input",ExpressionUUID->"f6650490-355f-40b0-8771-9d9952e2b5b4", CellID->1701445129], Cell[551049, 11001, 10058, 213, 70, "Output",ExpressionUUID->"582b79c4-2afb-4e0f-a396-15958a375860", CellID->1229110265] }, Open ]], Cell[561122, 11217, 228, 4, 70, "Text",ExpressionUUID->"85ec945c-b3b5-4ee9-85bd-7f257751f4e1", CellID->1676047876], Cell[CellGroupData[{ Cell[561375, 11225, 825, 24, 70, "Input",ExpressionUUID->"d75c8a83-4cf4-4636-b00c-db7eb8732017", CellID->1420281599], Cell[562203, 11251, 9292, 200, 70, "Output",ExpressionUUID->"b5f2b7e2-1eb4-43f8-a544-366d8c12c616", CellID->770923490] }, Open ]], Cell[571510, 11454, 122, 2, 70, "Text",ExpressionUUID->"c18f0c1b-a18f-4277-bb41-51ff88469f00", CellID->933569002], Cell[CellGroupData[{ Cell[571657, 11460, 968, 27, 70, "Input",ExpressionUUID->"c7d40054-26e4-4ca8-ba82-5e6685d1137f", CellID->877957523], Cell[572628, 11489, 9635, 203, 70, "Output",ExpressionUUID->"b401ae61-0d2f-4389-8f0b-bdf5b5d18e89", CellID->50354334] }, Open ]], Cell[582278, 11695, 167, 3, 70, "Text",ExpressionUUID->"fc252c5c-5d1c-42d6-b24c-2c6caad05601", CellID->1445601026], Cell[CellGroupData[{ Cell[582470, 11702, 1089, 31, 70, "Input",ExpressionUUID->"2015cade-6fb1-4608-a7c5-944a561ae560", CellID->1068441307], Cell[583562, 11735, 9642, 202, 70, "Output",ExpressionUUID->"f2062368-438a-4666-805e-1c33bb313457", CellID->1976424389] }, Open ]], Cell[593219, 11940, 120, 2, 70, "Text",ExpressionUUID->"a62bab5b-688b-4aeb-9ea5-440ec66f1273", CellID->1900896219], Cell[CellGroupData[{ Cell[593364, 11946, 1666, 41, 70, "Input",ExpressionUUID->"7d261987-7704-423e-952f-61745af2ca28", CellID->1043376240], Cell[595033, 11989, 10204, 212, 70, "Output",ExpressionUUID->"dcf15db5-d510-4c9a-9e22-19fb36369c53", CellID->1230569052] }, Open ]], Cell[605252, 12204, 117, 2, 70, "Text",ExpressionUUID->"004fea3b-38d2-41d8-8729-86cc608c6ccc", CellID->607101053], Cell[CellGroupData[{ Cell[605394, 12210, 1101, 33, 70, "Input",ExpressionUUID->"d9b78094-a9f5-4e58-8d02-a6c634fe8c5d", CellID->318001044], Cell[606498, 12245, 10853, 232, 70, "Output",ExpressionUUID->"fa081679-c98e-43e8-8a6b-4c300be2681c", CellID->337943298] }, Open ]], Cell[617366, 12480, 118, 2, 70, "Text",ExpressionUUID->"e0b59613-2a4c-401c-8c70-3b04bc8529bf", CellID->1628020243], Cell[CellGroupData[{ Cell[617509, 12486, 491, 13, 70, "Input",ExpressionUUID->"c8169e99-3725-4d52-9162-118ba7461572", CellID->1648476511], Cell[618003, 12501, 10261, 220, 70, "Output",ExpressionUUID->"954db94b-34d6-4a42-a82c-1060fb8d4ae9", CellID->1520356505] }, Open ]], Cell[CellGroupData[{ Cell[628301, 12726, 432, 11, 70, "Input",ExpressionUUID->"dba7966e-740e-4ab7-a760-1ea9f9d0081a", CellID->1119310874], Cell[628736, 12739, 10163, 217, 70, "Output",ExpressionUUID->"b4451e6a-1fc6-4e15-a613-573e48ca8fbf", CellID->1305412067] }, Open ]], Cell[638914, 12959, 128, 2, 70, "Text",ExpressionUUID->"c6338606-0491-4270-8d07-7629d5567498", CellID->537982175], Cell[CellGroupData[{ Cell[639067, 12965, 704, 20, 70, "Input",ExpressionUUID->"b1d30408-fc25-410d-b457-9fddbea4b324", CellID->1712171814], Cell[639774, 12987, 10120, 216, 70, "Output",ExpressionUUID->"b484cfd2-fd2b-4b11-a89f-4a8744d02e19", CellID->534385766] }, Open ]], Cell[649909, 13206, 136, 2, 70, "Text",ExpressionUUID->"f97d4edd-eeec-4aee-94da-036f6a16cf27", CellID->2115032373], Cell[CellGroupData[{ Cell[650070, 13212, 771, 22, 70, "Input",ExpressionUUID->"6cead0e4-4548-4b53-bd60-1da1c2184711", CellID->411620051], Cell[650844, 13236, 10385, 222, 70, "Output",ExpressionUUID->"b78e27d7-e938-4725-aaa3-25fe8216dc92", CellID->373758508] }, Open ]], Cell[661244, 13461, 121, 2, 70, "Text",ExpressionUUID->"3d5ddf72-e2d9-463c-a863-d716698e3b71", CellID->1204408544], Cell[CellGroupData[{ Cell[661390, 13467, 795, 23, 70, "Input",ExpressionUUID->"ba201ca6-b45b-4400-9824-a47e3863d0a7", CellID->1368265754], Cell[662188, 13492, 10075, 215, 70, "Output",ExpressionUUID->"c17257c4-c9b8-44ad-bc87-fb0680091f41", CellID->290457167] }, Open ]], Cell[672278, 13710, 126, 2, 70, "Text",ExpressionUUID->"b2faae78-d127-42cb-a51f-7918af3900d5", CellID->2077699859], Cell[CellGroupData[{ Cell[672429, 13716, 914, 26, 70, "Input",ExpressionUUID->"9bc2e352-51a3-46bf-8f5d-5a61a22058e5", CellID->1202443361], Cell[673346, 13744, 10145, 217, 70, "Output",ExpressionUUID->"87a7cae4-e29f-4bbb-bfdc-8169142a7a32", CellID->713079863] }, Open ]] }, Open ]] }, Open ]], Cell[683530, 13966, 94, 3, 70, "Section",ExpressionUUID->"5b0f646c-2a91-49d7-a09b-ca21021a9da4", CellTags->"Notes", CellID->359397282] }, Open ]] } ] *) (* End of internal cache information *)