(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 226960, 4628] NotebookOptionsPosition[ 219898, 4459] NotebookOutlinePosition[ 221670, 4511] CellTagsIndexPosition[ 221627, 4508] WindowTitle->CubicSplineInterpolation | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell["\<\ Construct an approximate function that interpolates the data:\ \>", "Text", TaggingRules->{}, CellID->933084130], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", RowBox[{"{", RowBox[{"0.", ",", "0.6", ",", "1.", ",", "1.3", ",", "1.4", ",", "2.1"}], "}"}], "]"}]}]], "Input", TaggingRules->{}, CellID->482655342], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, 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+/FgAA8D8AAIArtYpxPkMXnDjc TfE/0DUeqr58rz8aCmt4zbfyP77Z0mWeBsA/SCgOe8IJ9D8Oz+nQhEzHP/Xm 5F4WVfU/CHEmZAUgzj9uMK5gf7z2P3cPYVlkmtI/P6VLJewL+D+bkHsJbMPV P92k2wdud/k/AJH8hkcK2T/5RJ/LTtz6P6qGmzDIHdw/bRA3UjMp/D/02JA8 NN7eP61mwfYskv0/aB9067Hd4D9F6B9eKuP+P3L/+ZyPJuI/LgVZU8MWAECc 5klFY13jP59bmwb8yQBA9mr23cCi5D+9x0ebNnEBQPwDtr0yyOU/QXntvnsm AkDLB/GkWPzmPwT7LFNw2AJAbXS/UPIh6D9yktbIZn4DQDPCo6rRLOk/Rm95 zWcyBEA2H+x7zUfqP8ZhhrNq2gRAroX7IOFK6z+smYwoeJAFQPRQDeE+X+w/ 0qEsDjVDBkC+fXZxUmvtP6O/NtXz6QZA7K/MGYhj7j/cIjorvZ4HQM8BOp22 b+8/wJunYohHCEAI95HpHDXwP+PkrgoD7QhAJP+NlMmv8D9tc69BiKAJQNwu jNubM/E/oxcaWg9ICkDZZdp9VazxPz8BfgGh/QpAcd1SMXAr8j8au3sZ4q8L QDeDhQ8vo/I/oIrjEiVWDECcCAmPQQ3zP42fRJtyCg1A9KSoS/F48z8myg8F wrINQL7ZNjVz1fM//sR038BXDkCiNcgfkyf0PzwF00jKCg9A3ldX7e119D8m W5uT1bEPQFeqYoPXs/Q/O3uutnUzEEAQ6Jmzpun0P7lTRJQBiBBABFehmFAQ 9T9WFCcq5doQQKH6P4m1LfU/p3eGB840EUDvvjoYvkb1P87lmtW3iBFAwZOG ty5a9T+o9ivrpuMRQApn3WbKbfU/oe8Jue08EkDHJtNeaYL1P3DznHc1kBJA Zq5mQGiZ9T/ymax9guoSQKqiuZQzufU/SktxdNA+E0CoOJ133t/1P8LkgiN2 kRNAS0RYSJMQ9j/tIBEaIesTQMYAL8gqVPY/7mdUAc0+FEBezIafkaP2P6JR FDB+mRRAIznB2jsO9z92IyEXh/IUQCTkuWOejvc/IADj7pBFFUAp2RquAR74 P31/IQ6gnxVAfHwHOw7W+D+wCRUesPMVQEm7Cq4qn/k/ljaFdcVOFkD4GXPo 25v6P5tLQoUyqBZAixJU6gK6+z92a7SFoPsWQK3EaKWG6fw/BC6jzRNWF0AW hhb+Nl3+P2j7RgaIqhdAqYIYKdzi/z8yFFD6//8XQOyTbr3MzABAvZ3D+Q== "]]}, Annotation[#, "Charting`Private`Tag$883843#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}, 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, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 6.}, {0., 2.0999998854990647`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, 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+/FgAA8D8AAIArtYpxPkMXnDjc TfE/0DUeqr58rz8aCmt4zbfyP77Z0mWeBsA/SCgOe8IJ9D8Oz+nQhEzHP/Xm 5F4WVfU/CHEmZAUgzj9uMK5gf7z2P3cPYVlkmtI/P6VLJewL+D+bkHsJbMPV P92k2wdud/k/AJH8hkcK2T/5RJ/LTtz6P6qGmzDIHdw/bRA3UjMp/D/02JA8 NN7eP61mwfYskv0/aB9067Hd4D9F6B9eKuP+P3L/+ZyPJuI/LgVZU8MWAECc 5klFY13jP59bmwb8yQBA9mr23cCi5D+9x0ebNnEBQPwDtr0yyOU/QXntvnsm AkDLB/GkWPzmPwT7LFNw2AJAbXS/UPIh6D9yktbIZn4DQDPCo6rRLOk/Rm95 zWcyBEA2H+x7zUfqP8ZhhrNq2gRAroX7IOFK6z+smYwoeJAFQPRQDeE+X+w/ 0qEsDjVDBkC+fXZxUmvtP6O/NtXz6QZA7K/MGYhj7j/cIjorvZ4HQM8BOp22 b+8/wJunYohHCEAI95HpHDXwP+PkrgoD7QhAJP+NlMmv8D9tc69BiKAJQNwu jNubM/E/oxcaWg9ICkDZZdp9VazxPz8BfgGh/QpAcd1SMXAr8j8au3sZ4q8L QDeDhQ8vo/I/oIrjEiVWDECcCAmPQQ3zP42fRJtyCg1A9KSoS/F48z8myg8F wrINQL7ZNjVz1fM//sR038BXDkCiNcgfkyf0PzwF00jKCg9A3ldX7e119D8m W5uT1bEPQFeqYoPXs/Q/O3uutnUzEEAQ6Jmzpun0P7lTRJQBiBBABFehmFAQ 9T9WFCcq5doQQKH6P4m1LfU/p3eGB840EUDvvjoYvkb1P87lmtW3iBFAwZOG ty5a9T+o9ivrpuMRQApn3WbKbfU/oe8Jue08EkDHJtNeaYL1P3DznHc1kBJA Zq5mQGiZ9T/ymax9guoSQKqiuZQzufU/SktxdNA+E0CoOJ133t/1P8LkgiN2 kRNAS0RYSJMQ9j/tIBEaIesTQMYAL8gqVPY/7mdUAc0+FEBezIafkaP2P6JR FDB+mRRAIznB2jsO9z92IyEXh/IUQCTkuWOejvc/IADj7pBFFUAp2RquAR74 P31/IQ6gnxVAfHwHOw7W+D+wCRUesPMVQEm7Cq4qn/k/ljaFdcVOFkD4GXPo 25v6P5tLQoUyqBZAixJU6gK6+z92a7SFoPsWQK3EaKWG6fw/BC6jzRNWF0AW hhb+Nl3+P2j7RgaIqhdAqYIYKdzi/z8yFFD6//8XQOyTbr3MzABAvZ3D+Q== "]]}, Annotation[#, "Charting`Private`Tag$883843#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}, 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, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1., 6.}, {0., 2.0999998854990647`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 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 -> {"Columns" -> {{Left}}, "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}, {0., 0.7711111111111111, 0.6, 0.4644444444444445, 1., 0.37111111111111106`, 1.3, 0.15111111111111108`, 1.4, 0.22444444444444442`, 2.1, 1.3511111111111116`}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellID->316491482] }, Open ]], Cell["Apply the function to find interpolated values:", "Text", TaggingRules->{}, CellID->121693360], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "3.7", "]"}]], "Input", TaggingRules->{}, CellID->511143737], Cell[BoxData["1.2363666666666668`"], "Output", TaggingRules->{}, CellID->33739865] }, Open ]], Cell["\<\ Plot the interpolation function along with the original data:\ \>", "Text", TaggingRules->{}, CellID->820448394], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{ "0.", ",", "0.6", ",", "1.", ",", "1.3", ",", "1.4", ",", "2.1"}], "}"}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellID->372532630], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV03k0VW0bBvBjSIbDmR0qFEKRqVHRfUuDqYTkjSiFNKmkvDgqKqEylpJm lKQiFELGBiFEGvSWMVPGs88g5dvfH3vt9Vtrr2dd97XvZ96uQ04+khQKpYd8 /v+WMfGeTaGMAoVyqniRxrHVS2Q/cKxlSP/rNCrp6Qy7v1vS46mk4x6tf+++ G8ovasyYq0qa7q2d6XoUQga+DIMpaYuAdp7DaRhJc6w86T0Kpwx3u1tBEnxS hr3Tb0ZhdM9LTUWNNHgwpfr8b8IYbDY5pv7v96dALD2SWr9uAgrX+dQQ6lXw xSFQ50U7H4znu7X1P3oH7sG1Kx7tF4Bea0n5suYmOEuvTDo0RwTSxWy650Ar WEf5XN6cIwZ+b/YMrZjP8PRg1ncJ398wnTB4+NLab1C0a03uc9Yf8OybAqkd P8BtReSCC+l/oeDeuymvgQ5oKl167Ko+BSU1EmKaT3dBhcNfvRABBUN++f4p HeuGU3sPz/UslcAs/fgtn217gbVysfnCy5KoUhlhN5j3E8Yn7R6e9ZRC6bDu jpmTfZARULD67QppfDuv0b/IcQB0A95waLQZmC9l4bU0dRAILxPs/jgDF5vK dxm9HYIrsoOxd57IYGvLqhvt1GE4e2vSeDh4JiqWZC/SNBuBDb/chJousqj9 WmZ4GYzCp0pvCTcDOaR/jEuM+G8UCqKqPecSclh1XdJk4PAY+M449qOhQR5H +4O6ZymMw+6A0ALqNQXMNmcMfbg0DkZ79BvsvajYU2g+S5c9Ae+ZBgrHzBQx Ov1uUGrSBLx4HJFqIKWEOx7oMlL+ToCMvcusKzJK6Hdub5Y9hQ+O/bopEvJK uPOE+oZpCT781KpP/khXwuSjsVFeM/jASuEmnlJXQv+7MHsWlQ/7T2dHtZgp 4T/2OX/cVPkw+5+Px3iHldA7g53BXcyHUImFm+u+KeGk0opR99186F2r8Emn Qwm/u95Sq/Hmw+aooR3h3UqYUFy1eJEvH7RpTw4tG1TC9RfoKpN+fKibsyTu tkgJt6Y450b680F9xeqGQBYNl6jZPNwXzIdKfyd7NRsavumGrm2xfDB4urgl yJ6GJ34c596K40Mywd7e7EBDh1+Nml3xZF5e2/5zW2m4UFxcsieJD+yY7efH dtNQl0kZ3nWVD74ZvrU1J2i4narybu5dPsi3h1j759MwZWX95Wf5fFgW9EAx 7jkNJyZbXSsL+ODF/NT8pJiGvFZn2fpnfCi0XuoxVk5Dzfoe0++F5HkFI0cC 62k4GtB1R1DCh4pY79SQXhrqTNqeHqvmQ8lc3SArKh1jXGsy2S18cPIv+/xB kY6RD3Nj/5Due+Fi7k2jo7JKhldPK9m/6xmJs0w63v6c2Zzbxod9FzvOv1Kh 4zyXbX8svvJBZTL1ts18Ov7qknXV7uTD0Q/0WofVdDzIEOkZj/DheOXolATS 0c8kK1JulA8huY1G+ZZ0VJGeftVB+lRc/GWVdXRMO5zPjx3nQ6wd3avDjo4/ jKz12gk+PKiiiQK20TExsYNmNcWH73lKOsmB5PfrNn23kyWg8+7wP9bH6age dUtJWo6A3oSG85NBdGwicmxekB46FDvmGUrHYYkVfToKBEzqK5XqRtAx7F7j wLgiAZx0xS1FcXSMPjA5fweLALtL1Ij2LDousLkbkKBGgKFR0ocj2XRsXtS2 UkudAGat6vyZj+lI2SZwzCf9ZVrnjUkuHXkl8460aBCwb7+l0rnndJyyPRxP 1SQgZs3xaybVdDRUl7Pw0CGgdvT708hvdLTwVLp1zpAAm415XcZ0Bo7YXVRc ZUGA+aoKszIGA83PaKTdI2284H2cHYuBNaWvGhirCVCZMbjKV5mBBYfWDvWS 7i3RvJQ6h4G+B2PdLyABEQaJa2UWMPBWZf/PaisCShSOZHy1ZKD83vnXJ2zI eWoN90QeZWC+7a/LJ1wICLvbPOXwnYGtXw7kfDpAQNm395adPxgYNytAw/gg ARTV+sjATgYeL0rOPEf6TNxrekoPAz+7bFFc7k/ABV6JducgAx0azS2uHCLg 2tZ79oEiBk7J3JntGUBAoXzI9asMJho4Z4qp/5L9rwvqWMhiovrvnff3kjYP D9QpZTPxgfxg3CvSL4X+OR1cJl6/E80JDybgVffu6oXqTNx0/AJNHEJAa9nG oZKFTOwgItOIMALGA+aZd1gx8cp8ywC9MwTcddjjeHkdE19UL6VeIe1o8MjX ZgMTJx69Z8icJSCnZ0VCri1pSz2fHtL+/2zuDXdk4un7/21+cI6AAYuT8Zo7 mLhKa3zHhvPkfsl+694dwkTpHMvgnkQCEns0J7k8Jno8DlP0TiLAstKPVhfG xL0MmeVdpG+H8s2WhDNxrM/YoesSAZ7DCnHSUUxU5HgVDiST+/JhpVnGZSa2 zi5N4KYS0HTz6sXeHCbGPhvjjacRsEv3bEXYUyYW6m44wksn53tyhGDnM3EW T5Y6M4PcvwpbD6vnTNSeSTVTv0eAU9eUwe1SJmaaVsVuySSgWderblstE0WW W5U7swloyVmgUN/FxA1bTSWinhHgbaYM3j1MnJH6sFHvOQH8Csmjv3uZOHgu xK+WNPvD1y8LBpjYmLiVoBURsIW4mBU5ykRrcd6d9Bdk/2bjNviHiVH7/UyJ cgI+VhZH5Smz8I34y82VdQQcv2lYsUaFhTOXB7eOk1YOuStuUmXhygqzXw/r CXAxidk3OoeF27zmVs99T+a7tc1+kRYLg5xC9DnNZB88Ee2+EQslZTnlCz4R ULds2ZVr1iyUgsi/sj0EHGBmvV9gy8Iafo31d9LUYTXZIjsWOqqrXXrWS97f jBnBbZtYeOcI3dSvj7xvrFY3tgsL56ZK3G8bJODN6FH1WC8WHpCr3NI3TkBV Vm5GeAgLvzW5l7ZJCKBR1/+xKY+Fe2LdjXskBfBf+sLnXWEs7Jp9XjghJQDR zbQ368JZWPs28RxHRgCGSZcH5aJYuNyJ3+QnL4CrocEmiZdZ6Dzn5CJHlgD8 7S1L7+awULru4aCJjgB4b//UOD9lYd7Spu0HdAUQvb64QTqfhbZHRmwz9QSQ jot/+D5nocsJozRtfQF8XjJfSr+MhbmNB/cYGQtgrZqcTd478nyPXdtjVwpg 1nBjS1UvC9PttbpDNgtAlrtkyrWP7OtgOu29owAEcEVrqJ+cT+5olrazAJoT PALYv1hY8FLNtMVFADFLB2g+E+T/s82+t9ZdAGKelJ0MhY0qLq+pB3wF8Elh WYW1KhvdR8oV28ME8GpJSl/7LDY+a/+hvfOkAPI9pmhH5rCRzjte13NKAPFP Kj1TNNgY1KbbRJwWgLWzw1T/fDa2G92r14sRQOE1v+XnTdmY/m1h6NdkMt2C 1Ef1dmzU6dToD8kVwPjE+ozTG9kYl9IvdM0TwKay8etmDmxsEUpKLy8QgIyz 7YUMJzZW9+5T/V0ogECeeF/YNjaOr/7tkVougM3vXfUW7WFjgGfoMYtGAcgf Y6ddiGCjcnSPCmNMAL5Qfm3NGTYmKGbtMJ4QQIXcgUTRWTYG6o7WOxIC+Pdm Vbh3NBs3btugkyoWwM/XATvN49ko8FEc3CAphOpZTWpDN9hIfeAyJM8Wwony i1ftitjoNKNKFs2E0P+t/JK4mMyrR72UukoIW35PxN8vYaOtYYK72EII+svc oqXK2bjrln36izVC+PRQJ+TFKzau3x4M7vZCML3y0l2/hY0xjgb5M3cKoefg mLrCCBs/PpZ1Vo8Wgv1sl4xabQ4ucdfYENUphKvdhuXuOhxU1jVotukRQvcj 2a9Duhx8djb5kmKfEEKxhE7T52ChQUJV6i8hZPlo8ZxNOLidF9LbLBKCXM6Y U7sFB+WF05qPaCJ4tTaWMryVg78ovy6qgAjQ/7U7I5qDDTelu6UyRDD5qX99 dQwHddrH/k3LFEGeFdU06AIHm7asJtZli0BH1VH2WxwH/y7ReJCUJwJq9Zf8 zGQOxrvpaTpViuCT6rAippN5oi+HbP8hgkM17HL/lxw0HqtpeKIuhptzdmnX ERyMe9TsnJIuhhWL9Q13CTnoJipc+jRTDM02/OUiEQd9TE79rM8Wg0xQpJ32 FAdFHj1ligVi8G/KCuBJKuMuo+NuT2rEAJET5QY0ZbwwX8k49KcYfoyc8bio p4ybxyafmC+aBK2q+8mb3JWx90r35zsVkxC3qHJhc5kyGrV9rimSnQKfCemm twu5mNafoHsj4w945Y7PjY7joq2LxMhjr2nYF+E8ZZvAxed/M1cQe6ch0Dm/ jZrExeE5660wYBoiiWOx8clcTBjh3umOmIZsM/HvKze4GHxszn3f9GkQVUx/ vPeQiy5YOsexbxrim6kXq19zsevrybZuMwpeSzvoF/mWi1bR8v4uqymYFthg Zf2Oi28ah0LfrKHgM+X4yXcNXLSoTaI8s6NguxvL70MrF29kHah47EFB3S5V q84uLsbAlgpuBAWN80PU03u46PuRrZUTScGVZ7+KfX5ycWNQ6ky78xS0172R 0z/ARe2jH92jLlEwYP9c9bExMk+y9Lp59ynIMw8XP53gYl2FoLH+IQXPKna2 BBJczDL07eHlUPDqk7TzIhEX7fddzeosouDdU9J7iie5qDDz7faUMgo+dPRZ w5viYlG40zWnKgrma75SW/2Xi64Vg7uV3lCwbEJHPD3Nxe5su+K6Ogr+D0AV rcE= "]]}, Annotation[#, "Charting`Private`Tag$883905#1"]& ]}, {}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.}, {2., 0.6}, {3., 1.}, {4., 1.3}, {5., 1.4}, {6., 2.1}}]}, {{}, {}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 6}, {0., 2.0999998621315275`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->983815043] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ "Interpolate between points at arbitrary ", Cell[BoxData[ FormBox["x", TraditionalForm]], "InlineMath"], " values:" }], "Text", TaggingRules->{}, CellID->581814258], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", RowBox[{"-", "1."}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.96"}], ",", RowBox[{"-", "0.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.82"}], ",", "0.3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.62"}], ",", "0.75"}], "}"}], ",", RowBox[{"{", RowBox[{"0.13", ",", "0.91"}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", "1."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", "data", "]"}]}], ";"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"ColorData", "[", RowBox[{"97", ",", "4"}], "]"}]}], "]"}], ",", RowBox[{"Point", "[", "data", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.82681042755683*^9}, CellID->952109479], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Xk4Vc8fB3BStmSLiixlSyVJRIpPiYhIipC1b0RkS7IUUSFlKySVtSRE 2qwZZHftsu/33Gu/S1SS8pue5/fXeV733HvmzHxm3jMe2y94mDquYWFhWWFl Yfl3VYRNM6urdDSVLuvyF189fklH/FqmI6uz5yr/ZtDR2/f75Ba+09FdQ9cN j4/TkbK80QXqLB0ZdnyziYqhITWBOwOkXny/LOp1iPw8OkJmNj0poCNLAbur fL4zyDS8JXe/HR2lLLcJLQZS0KOjgyf2WNGRdVXzPqoSBXX/npqUM6OjpU2e M7ZUApl7rpURNaQjHnVXtglTAp23PPSMRY2OojrVX0oqk9HF3a8ftPDSUYHH c6VVznF0ve3OlUsVNLRjXf8Zjp0D6MGsb+9iMQ1l6wcZR2b3owwOl6Oh72lo 4R2dtG1nPyKBkfDzbBryGlZsDd3Th6TeCn/ufEhDhiUUpUXtHtQam8WjdYmG LP+4z5undiIiL8m32YGGmPLk0257O9GvhsgxC2v8fTY2ieDKDiTD6vHh6mka up+l6fSY0o4CvNSsXx+iIfecZu4+31YkZ9qQK8RPQwP3fKdH5RvQYfdS4Qxu GhL9OM/qdqkenY7MC967joa2GAcW1r2qQzeqY88YLM+jb1GN9UN7alGnsuXv YGIe/UirdNc6VY1ubpwxmC2eRxb0zbL9DSWou3v9TJXDPGKR8Xk9JJ+MQi5+ rMi1nkexXprb7NYnIsVF20cJ5/B9kW2hQktxKGLju8MuRrhOL4X500ZvI01T ixj+g/i+0AXfope+kNX2QsWOfx7xcz9N1QpPhzN2xlwn1s8jdemCv8/1M4GF /nNYmX0evf16m3p13Uuw4jUMZ1+ZQ/oWa0xeeWUDnxGz/83kHMrmPR8uL1wA fk2awSsVc0gsakBNo+EjyFpNnqGWzCEphfU7SsM+Qed0rHz7hzm0VFptqXms CBS4iI7MnDnEMIm9Z/epGMb1ImUME+eQ/W95gbi7ZWBQ29P45Mocin56wIrk WAnilR5CamJzyM1M6McQdy2QBFV9NDbPod0ChqZWRrUQ4LjcpSk4h5rtNKzk Y2qhh/vuIx3OOVQWqjZVwV8HsWbJgqaLsygv0MZSgKce2GZr+K+QZlGtOOWa HKUB3mlGenrWzyKKoNmPPPFGsI891X61ehZ9ajPhzTJrhHLVgZiA4lkUdGUs eOlLI/jeovNGvJhFv74K1FkmN8G0sOiGzBuzKELLoGZqLwmSnEfdsq7Pop2l cnKP7UlwvOwF6bX3LDqpfGH9QCwJMuz3PnjrPIsUKDMDsgwSWOfqrK84O4s+ Mhdn+HNaoO2IB1e/wiyqvOf3gW9DG3x0rVnHNzyDyp07Hxxrawf1be77snpn 0Ml3OyqSiXYo7d5so9k5g2IvOhcN/GqHSk3XD671M2hY6YCrqEwHNPEJ/tdQ OIOys5tKK653wNh7u8qQsBnULyTA3yTWCdwrywGLe2eQ6LsXEfaXusD+wT5G f+g0urTnI0utdA8sPQyMQDCFiuoV1G4XDUIm74hI0jgVudvEuAZvHIdnBvu8 u+5RUO32Vxd3HyEg1M3Bb+cJAskvJymI8k9CIFvOde/5CVRNvyj2pGEaHG61 yfRkjyPPdkrNzZ+zYN6fqjWcOY64FDwD/1udBQNlTwsiZRyNKcbv1OGYAxWC /8G3+HEkdmrK88emOeDUN13gDRlHA78DGiUOzEE+39cqPctxdG2TaGzw1Tn4 nTJgW8I1jk61o/GImTlI+ExJenZ5DLlZvOH+0TgPtn7JQWqOYyh08slv5Y55 kN9/6mKn3Rjysxw5dblvHkqzi/dymo0hlzuDOxqo8zDy6H7dVRhD3w1Sy46w 0WDH5X2LBkJj6AnwZcgdooH3nuWUb4GjSJP2cqo1iwalo/I8eVIjyD75nNHw FTrcOMz6JnnLCHpR4nnE8iodNJ/0G93jHUE8jvuftfvRodI0MsZpeRj98BN/ WHibDvW1s4LbO4fRFm2bxMNP6NCdmy+SGDKMAipNfl7/QgfadZUdt8aGUKjp kyldbga87eZpcO8ZQh6pizfLeBjgtY/ibEMaQirCuv2KfAxYnEnI0SgeQi/D f5F5hRjw2+bnnu8xQyhsRMzygzgDOHVKVS7DEKrkeKuZoMQAaf4j2mdTBtEn snjzu7MMiFYaD7j8aBBJqxjxCZxjwJJJ6PtbEYNoXaNvk5slA0hxNTJvvAeR jUx4tpgtA3w2nuBg1xtEZbZHN9teYkDdJlNSEX0AnWk5au3sz4DL4hfNtx4d QJ0z6VdSnzKgW3NdzL4DAyjcVHD+zXMGaNlm1evtHkB62xi/SlIZsDF1St1H eABJmFZXNGUyoHzbla0t0/0onOTI2ZbLAF4Z37Ggh/3oEkeb+n9lDHi3K+Ly BLkPadMsf1b0MUCyw75kd38fWk0MNvIbYMCD6wc5r7X2oTKak83eIQY41sy8 5CjpQ99tpN4kjjJgi63RuEJ0HxqUmJAwoDLgZpygxXX1PhSvqzKms8AA/aVn ujxRvYif5Vlw9HomfEy5Fm8W2ovfV/kcywYmSOkak1Ou96Lsu/V/PHiZ8Dtu 9da+C70ov/Nxqb4AE/J3Xyg3V+tFOy0vrhvbxAQhux3708d7EM9+a5+s7UwY rS3cduBADxpdAJvHqky4ceaXjrpCD/octiL79gATtowfcdGQ6kECyeoi9WpM MFlpK9Ti7UERj81D6AeZUKlM09ajfkWpxzQv7dJiQlrqLkeLxK+Iwmey5sRx Jhze433P6sFXVJqX9l5Hjwl9pSVvrEO/oveSvEla+kzg79H/Ye/+FfkPO60o GDAhhOdSuMvxr0ifV1p70YgJF/wzXwf86Eb2i/Yae8yY8Jd9tuXGXDda/i5q y2POhOR45W9BE93oP+mYz9PYnQVVGrdbuxH/uZZ9qRZMOEYdbb6f1Y3qrn/4 u3ieCTJnxGjPzLuRgHFDxskLTKAoJCijT12oqHGwr+AKE3YFvaRN5Xah1ods yY7uTHBv+5gjmN6FFl9dPS/iwYQlrx4pp/tdaHLH3HiAJxO4izZv3GDfheqS AvjlrjJB6WjyghVXF94vaFHifky49jCn4M7fTvRgkivrPXYpudQ1f6ETUdtc G/X88fuFDZJZRzrRX70qlcsBTDBvFuvOfteJtjJobx/fYEKgWeqHH+c7Eemb an/CLTzeWQWe2053IkFVqSWeECasXUIKBsc7kcYp0z2h2NHJYy+eK3WivBua w06huB6j2xN01nUir55AJ5E7uL9KyqfdlzuQ9LdqgxDsXaHaG5LoHSivgWQw if1e5r+7s/0dqHLzVNqbu0yoc3lx7WF+BwIL/2LpcCasL/uwrzyzA611FIy+ gW3CUztPSepAiXzzd7qw+/Mpjgdvd6DHBXL9gRFMmFuQMx8714HcVCcVP93D 46OrJsht1IFmDRq3s0Ti8UnUa92v3YF2jbse0sf+q+58PFyhAzmxvqN0YgsE vT6gyNqBFHYH7ey8z4SwT/IN/D/bkYHXWAjXAyYs015ZLsy1o2vKxdqAPWGX daO4rx0hubUsWdjmSbK8T1vb0XGrxD892E3tL1Jv1rSj11wDjuxRTHh3NLNa +2076hwq9LPHlguQOiub1Y5YWC/K3MdOfpdO4XjWjgbS2TQ/YIdKp3G2hLcj Oyu9ItZoJvw4L5lccLMdeXtzicphX45P2f3wajti5fw+q49tuu658Tm7dmSb d2f0HnadptjYQbN2lFB2fE02tobvUy8xw3a0+YR7Yg12fr4o2+oRbLPIZ6PY UpNP4scPtKPG0Z3Cv7ATJUXkahTa0YXpQRaBGDz/LJKKsqTakbD3Xvsd2AsN iQOuvO3oCevPwFPYl1g3uRmvxf3jvHfQAfvT1V2/HRbb0GLMkpsXdgohL7Fj rA2pPO7edAs7zGzH0bnmNlQnkacWhe1eJ3uxsKgNDcvxtidhm6vJhPtmtqE3 BffGMrC1sqVyDsW0IdeSNy652DtEtrewBLYhAx0ut3fY/JGSjFqnNnTTZPdU EfbSsvjG+6ZtSGMkY6QMe8xV7ICJVht6P//3VAV2w5CopfCuNiQe3HoYYb81 ErkxINyG8h6mvfx3P6lic2oqaxt6JL/2fjn2rb2bqi/OtyL2oxHzxdjOaUKU nf2tSGOorOU9tonARk56TSu6sLxH4Q22eqjA7g9vW1Hh0ytcL7G3LfAZ+z9r RTaVXE5Psbku8nppRbSiJ85x2rHY37p54tl8WlFS/KPU29gDuuuLGuxaUYxO 6s1r2NWfuAaiDPHz/I4NO2Ln7OD8Y6rWipT38aGz2A+T2LdtkW5Feu5x0trY AVzrjg3ztiJpJcv1itgXAticMpZb0LLvd98t2AazrPcuUVsQy7HvTqzYytYs eQqdLcglfnJwCtdftOVvK/NzC3J2Pd/Tij2b/1voRkIL+p3DZpuI3S25rHY0 pAX92Gg+dx27PHbJiv1KC7Jgc1pjgf3A+3tarE4LEvNdrt+IrXCArvBygYRs Cp80+OP57aQYHFwyTEKqo+t5T2KnyvF1ttSTULjo2lQxbMHNe6//eEpCn6/Z ZhXj9fTzp3uVng4JOZDTbIfw+lRi/N1orUhCf9J3CqVjX56KdvLcQkLnqJOi F7GH+vLXP5lrRq7lQxIUvL6rS2hmM/HN6G91lFAXzoeVwqDsv0HNKKQ7+1Ik tmoO729Bl2bETmQLHMHOTlZMO6TZjA6X7L2ShfMlKtB95gGlCek5aJnb4fyx 0KQF7T3QhAzbYmNCcZ49VA3qOLatCbG0HMuSxG7ewytjwd2EtEs0JMtu4/kr odh4a6QR3RMhaczjvJRevbKxM6wRiUn8p6CF85RWOf/Kp7cBNds+Snp0E8/v kpvLEVUNSPN0i/xmbPvCDUbPcxtQtVSO3BOc113pe77VBjcgBUkZ96RAJhSH Xjm8Gf+ddjljFe7gvL+tM99e4lePOJfvRgtcw/3Xnzul8l89Ikj2XME+TGAx mm3NN6pH4wtm62fxfnLDbJqUKVWPfL7BqwpvJvg6URqiSHXoVurk6bN4/3GO GK502FaHxGT3cGm4MuEkqeUtV0MNmtUkfViwY0JkO2nvnXc1yHI0wn4/dkN3 c/7fZzXomS8l28uWCbrDjXkLXjVoUGOv4Iw1Hg9abfbw1hr0gWPAsskS15O/ Iq3Q4wtqkVA5e+IME4TP5sdabq5GWzJUc3R1cX7K3S/VZatGXknKvJd18Hr7 dYnYR69CHYaPT0Udw+2nbFfnrq9ChFC9W/tRnO9T8aOlvlXohy33thP4vEC9 Gago1lOJJvW8iLX4fOF+Ki7p806EuoRPFr3egZ//o5avQaYU2Uw9FKlfh/e3 nIxqrV8lqKZGoj96LRNcbYOvfWwpQR6NKm5mbHh/r1MfzPAtQeUL9XyjLDgv E3KzbjYUo/uOHPbEbwYEqMRp7ncrQoERbZVFTAZoe1u7prz/gLokcy+E4fPZ y0FK1PSdfFSpWr1tJp8BNqfFPgz+F4+ydb980jvFgBLuwK/V1x7BH+eINcdJ dFCdYJUIsSiAXxq/4UUXDaQZZb80qktA5pVV8obheTiR2d9ibFENzqFJNXvq 50DXSJDt+8d6OMlq3ch8Owsxdr23lIpIwLNR0vrUmxmoNxbfYCLYAQbtXrU1 SdMwv104qDO5C5QvmZ4QSpuCaz67HWI29UBDDiU8sWQSeof4TZ0a+iBQReCl WRcV7P0PT3KcHIQEjl9C9RupsOtiw1ea+SAER+aUVPJTYcH4bM1Xh0GQKauy Kt9AhTAZt/TM64PwIrLkcQkHFfLanp6HzEGQz/olTfpNgV+yv9t8lwdhZVYA mRIUeNhZUkzJHgIi6UwT/RMFrD/rviK9H4IDjfcLd3+ggGx2R8L7iiGYa5ur cimkQPHNae+Q7iFIqa36by6XAiPyInvEWYYhR3iic306BXYF+6WfPTcM2xxN kz7cp8CX3WqRX9aNQNyrjMiiCxSw3Xs2k8k3AjdcpG0c7SmwpOxVLik6Ajq3 p9SFbSmgoJFLC1QcAbffLfyBlhSI15c8o3JuBFxfTzvYmVDAyZFD7GX2CFiY h0Tc16IAZ2rvmzDDUUivFRvzF6NARsZi3QezUajbyMvvKkqBw1kCYxN2o7Al 4+MV2y0U8HxjKAg+o6BX/vGToRAF+suQ789noyDy0Cb1CA8FcvpegTNtFEbE XZriVwiQ4yqfeqE/BkHhVrdoIwR8q1e8nGE0BhWGfCFKwwRUhKXPppqOgVvf 13KfQQLM14bTkq3HwEGfPM3WR8Dd1dOLsZ5jQHjwqGt2EEB8n1y9kTQG2nqr 8WI1BGRMbNxsNjUGT5wyuhNyCXBPD0synR+DjXMThttzCNCw/yVi8m0MImSi thVkE9A5PCJmuDIGxbku1I6XBLD2v5Y6yj8OF1lM1qikEWDfBop71MehU+Gg q2sCAeLlrrrrIsZBb7z4Tn4IAUIiy8vuUeNQuaBGdr9FAI9vxNu+h+Pw7WGk snIwASt7X27Nez4O1eyyr6tuEDCQOcI0fT8OSgURYmv9CEi8fzolbWQcLM4P GG/xICB6avQMNzEO39notpzuuL+67lw+0+Pg7Vt17bcbAT6rkT56i+Ngri/6 eeYyAaZXawxoXBNQG/m9b96JAN7zaj8PqU5AwMR2v3A7AtiLa/NeakxAxYJH UrYtAX+Ezl7gOzIB63mcvpJsCJhr9WyZMJiANeM1ORLWBDRp52Tes5+AII5X 05MWBFSnqlsuOE4Ax+EYYSnskpU6XhvXCdiVKORid46A7E9kfyXfCYgx8HpA NiMgfJe4Se/9CehOIc0InCFwnXPXHY2bgKOzP/0dTQnwJQ6W5SROwEjgx0Pl pwlwSjGXC0qfAMaSg/VVEwJ0BGNXZIomINRoQJ3TmIDDHhLvossnwDuLGXrN iID9pLxLS1UTIH8hlpt6kgCpsMbOZhJ+n7iR3nZDAliW17z2npiAyOLNcS0n cP3I/QvBk3g8vpwetcauJL3VipqbgE2SCVx0fQJupdp2v/qB+78u78dW7LEI VcmPvycg701J2Sc9Ao5481yuZiHDJ7KOw1nsVZ3S1SFuMiSr6JsmHSfAVjHO YIaPDG1XllO1sCs2Oyf8FCLDZq+Uzkld3P8Z4d2CkmRIEFSa1cb+G+Nlrref DAcuv+IU08G/99dPP6tOhm/PhJ/3H8O/vyA556BJhl0bbSWTsYNUW0Ju6JGh kv0bUxp7ROIF6d5JMvhlXNeZ1yZAizNw8+PTZLCvMLxXgv1nQP5N4Xky+Lw/ Q7PCtq5Z/VlhT4blnCp+JezyNz3aJEcyXLT7tpMTW+zxm6j+y2QYGV1ziHyU gBu37vRRPciQeIhftwp7yOW89KIPGUpC1E5kYB8+o+zOGoCfX5WgH4b97DBX CW8wGb5z6etcwV6RHWMTu0MG58uumuewrfmKjHfeI8MSU0xVB7t8KerJgWgy 9Bb4K6hgi01cJI49IoPi+xSZHf/abz6093QSGRTWv5YQ/9f+B8EA2+dkWKn7 uHXTv/ZTpmtcM8jQ8n1cTPBf++GVfP6vyNCcZSAtgP3b87FVWB4ZZKZ5lDZi W1m5v3xUSIa1JF2dLdilx3QZaZ9w/WwFHbZhi+4RO5RfRgb+tzHhu7EDNi3c LavE9WobKD6IPbDa2N5QSwZzEv8PA2yN6bStPU1kuPXR+IgddnLndSdyGxm0 kguTfLGXy4wLGd24XvfMWeL+tf9SduVPPxn2PbLyy//XfvTK8fWj+H7tAGvb v/b9uuK2EGRIUlp8/g3b3yFnSHaaDFMTX4xEcH36DEJ27KeRYWDWSfAYtrqK hfeRBTKkWC3PeWAvsbNznv9DBuMsp6lObAvGkKnzGgLi0/3Xc+H5Utz//vk1 DjzPgKmvje2X57A/VoCAA6mhmyuw+xLUg55vIiAluCeHBc9H9WC+xpyteN4D m81x7J+nP9vWyhIwkXReahA7tL9gWGs3AZ8i/vxSwvOZ1yHDuliJgDAkGBKJ LecZbpV7CNd9g3amPl4P737698vgfv19ve/oG2zNYDeLFHwdSIJ4Ybyezkaf No/DOeDn52DHxB4T1vnKjXOll2YwcBGvR9fnB87ewbmUU/2Hbwg7NG+r6fVL BExFXS78itfz2yaKkc1NAmxYeRe/4/V/2LSP1BOK61BIdwvH+VDf32RoEoHX eQ8jVwznx8hUwYljj3BOha2EmOJ84eEI0N35moAtHdSPszh/kqLdajLyCcj0 8Ap/it9LepPdMbEPOJeTvHadwvmlIatzlA/hHIm/OVOF883lGK/m924ClO56 BXw1J2CxiaXcfQDXvdZsNRP345bpgsbUKB6PrHUOvjg/kxz61AdncN3Nr1bK WRFQF5yhUsVCAcWy/Zs/4TyWKj+gEKVAgST+9w6xjgTkH9uZy65MAaECa5vn ON8PNm/ddUuNAqe3Bp3Mx+NgMsAif1WbAqecu7iHXHBeLDVJW1pQYFHq2t5L eP8YVLHbKnuHAqSYVTNNvN84/VLlu3uPAjzPh7fc8SeA8ZmHjRJNgVi24MrW AALW6pXOvHhCgTwWly8eeFwVLYVLZQoooFvi+HkMj+utm80WMgMUCBC6kB8c TQC3dsbJO6MUqPphZ7suloAEdv8jBD4H+X1J4IyJw3WLkZN/QafA7SPsp/Pj CXz+D/kpvY4K4vVhvWJP8XypU0uUVqLC2A/HyVK8H7+N5I28rUqFtVWkwVv/ 9utTlJtkDSo0sI+NGuQRcKrvoWOmLhV8drqIzRbgeTMzryJ9ngpXG+MeWBcR 0Mz7oksqjAr3Lz67traeAM9z/AJSQ1TgvZ/Y4jVNwIXsvcmy41RoZbA3xc8S YPbLWHonlQoKRu4+ZfO4vadRqkoMfP/ejd6N3whYN8ptpbV2Ev54C3xnLOP1 7rQu00phEpI5GCE2GyhQc21Z5dGNSfA03hLCoUqBT3UiFYkhk5C9wcgiA9fp 9eaDeslhkzD0xYjlqAYFokuuW6bHToL+xw3194ACln8Wbxa8mARvnjXGJwwo QLtDr2smTUJxdIxqCD7PicQTFmvFp+DZz69cQzEUUL8tuclHagqKTG0WVR9R wNzbqou8Ywoq+x3uxCfi86dJu9EX5Sl4a+uRbPcc13lDuXao/hT8N+1buwef L//efaTA4jMFKwobjHPrKUBc12ZZaZqC8JrVUZW1VFhz6eZn1/YpELPw3iXH SYVt5sUBg1+ngOdt43ExHirYqCh+Lx3DTnu/vEmICj0MkRn/H1MwJXvK97gM FRpdmF0/t0/DyoL/QjSuU/75tFcLftOwhalX3nafCiq90svsQdPAO8l+nj+W CmWmr06K3p4GRb6hM2bxuM4n8plHoqYhS93IYu4ZFchq5Yei06ch8ctUs3E+ FbYI9bXJN02Dn+mCFbWDCqEkviWbrTNwTqx59ZLYJJzTDNZv+DwDb9N2py1W 4HH/TuWrrp4Bzm8Qe7BmEi7kG/eW1c/AN2f/xdDGSXCTlHAq6JiB1j3PxaW7 JyGU9fPtRMoMDIx68T+ZnoT82uWKixtmYeB4ipO18BSsNfZVZbWZBas9vnr6 nlNQaHtFSmNlFiy+lLoz9k/DhY8M8TTWOdj6sPo2VWMahHh8RNg55sA5XGLH xNFp8C0J4O8UmIOi3doSM6emQUMo4q/LjjlQPX5s8bDbNFQ3Zgw8MZ2DcNE7 HvSX09Ct0vfwV/Yc7F8tlY0Tn4El7mNsJWbzoJrflbVRYhZMOw4dEE+iwaB/ 5ouzh+eB+9D6qvLnNOiINxC4f3weql4MGFpn0iAoLvdQg8k8KPn5OzzNp0Hc C9Rm7jgPvJJFD0RqaXDGYe+22uh5aHRTJgt/o4HWe7nSyYl5OMK5M5b3JB2K so88PBVLgyWvJdH803Q4e4VUYP+UBgWD9S+NztGBWaRa7pdFA4kCp7IHF+hQ eab21edyGqyYvaBy+9Ph4tfexeRpGhRlSmpyZNHhS9CXihc6dHDfQK/PyqXD c8MrobImdJC7XmF6vJAO6Z5hRm/O0yHewMb5bjkdMtV2s3R608GbmfyIrYsO l6Y113im02HX+csSmX100HrloLDzDR3Gaw6+1h6hw8kszcvTxXQwSeqrCJnG zxvS3hHcTgfONdknttPpsNs46PXZITog1+vdlYt0uH4tUXffFB18vx63s1+m wysPoT9C+PP//78exi1DOv5d/wc1wMMD "]]}, Annotation[#, "Charting`Private`Tag$888037#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ Directive[ AbsolutePointSize[5], RGBColor[0.922526, 0.385626, 0.209179]], PointBox[{{-1., -1.}, {-0.96, -0.4}, {-0.82, 0.3}, {-0.62, 0.75}, {0.13, 0.91}, {1., 1.}}]}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->831597498] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Plot a natural cubic spline:", "Text", TaggingRules->{}, CellID->614811637], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "0."}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "0.3"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "0.6"}], "}"}], ",", RowBox[{"{", RowBox[{"1.", ",", RowBox[{"-", "0.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.", ",", "3."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", RowBox[{"data", ",", "\"\\""}], "]"}]}], ";"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"ColorData", "[", RowBox[{"97", ",", "4"}], "]"}]}], "]"}], ",", RowBox[{"Point", "[", "data", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.826810435284597*^9}, CellID->233671795], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnc81d8fx41CKSuFpKIU3xQio+R9M8qqzIxKkqJkaycUQpIkIYnskZW9 jiLj2vNe8xr3ZmRcI0Lc3/n9dR/Px3uc13uc+zmi1k6GN1mYmJgSmZmY/v+r c3O8rXLipioT09DPWnNv1U3qu50pQhrAxFL6dL7zGsh9joj+JmQMXmffJsd2 OoFuEyn3k5ANEN6pq+h1eoKpzXJ5qJA7DG1c3uTe8QYGpF+qvxbyAZlnaUMX Wz9D7M6LfoFCYXD3ws3cgaos8Ob4djhAKAGeNyceOxiKwMw8Los+lwfCiOgg wGgBTob3lXN7EWQ8Ozb6sqQbIm6bWkqdRTDt8HgPvb0bDnZKWfE6IuCvd+rX +t0NqqmkG33lCA6qxC00CJOgODU8v/BYJRjbSIQLPiXBtNFUmW5zJTyU57Np VCaDScqHBrftP8D2bTItPrUHxA1mxqteVUOB5INQwuV+2O157qRtXDUkJTQ5 Brv0A8/X2FdbC6tBxGDYiPiyH1Y5jI4ZjGB7lJvKtrx+aK0sdBtU+gkx7ukJ RZwD8FjGe+Mv7SfcsU0oyyscgGZufv5jhFqYsI62OcNCgarTDjfbTGqhOfHR dcNdFCiyrylwt6+FvNVMf4P/KBBf+9C8NLwWfBRMLHYbUuCh50CM1nQtFD1e PtwdSwGx2STJG1F1YJgxlv5EZAgeNCtDxGI9eP3ozlnIHgKuY/m0eg4iNMd8 zzlXPAQJr2WC1vYQQUVkZe3d9yFo0zvcY6lJBEluVped7UNwpIHfTTycCGtH 70+Uzg8BpXY2KVexAYReu7t9OD4M574ncjU9boRNz9LHX2UMw+B+0fyN4EZo LB7YPPltGNy9oi/LxDcC3/bNTwilwxAH71LeNTRCC8e4Y3f9MKyVe6lZ7GmC b6Xz/km/hiGr5PL9sfImqNcooJH2joBAHu8gM3MLzIS0qD4PGIErQWvG1F0t IBXhcP5eyAh8saE11Ei1gJfwIcdrH0ZAamdx8SuzFsgY4BsXTBwBtftW73dm t8Audd6m/ZUjoBBtmhQm3QrdkgZdPosjcN0y6WrKYCu4HrTIiLs0Cj46wpGR E62w+UQJ58Mro5CkENIZuNgKk2vhwZrWozDF9VjXYWsbLC7MM9U4jMJ9dF75 uEIb/PG8k3zFZxSC9v/hL3vdBjaf2e8NZ41CwYh6Y4tKO1wsvj+kx0SFbi3v udfn2uHvnSOF85uosJRZsUvPsB2eNgjyh2yhguIT5et1tu2gupFuncNHhaId 0kuVoe2AZgSvBx+kQrHG7v254+3gvEfuUu5ZKvSmmWo6L7TDo3Cx5lYdKqzy vL9zbKMd/hn5dP66QIWTA9z5aTs64ONGRvDKJSqU3NusE6/aARe7l2uKb1Gh LInuFhbWAbrZkSWJPlTo33Ys0vBzB6SpXDU97U+Ff672FTxpHXAwrjGw8RUV TsMvjteoA4JNywvbQqlQQer75DvZAUaqukoPYqmAOGpr7xM6wZgfzkmXUGHI cdO0vG4nsKw7BRHKqcDUdYZvwaQT7hj6OWtXUoEQV3bFyb4TXqe4CKjVUKFS OXfONrwTVGuSZ5rbqPDjzidh86lOYIwVnjAdo8K3CXt7y6VO8HMKEy2coEKC 3cnSG0xdILZPhMg9RQXfWyQLR/4uuHV80DCdTgUta96oFypdENrQdOHVChWU hykT/me7QF2h5EjOGhX+s8pUDtbvgihCal3LOhW2Wer2RNh0AavzSY1lZhq0 mPsKZgZ1gXI/6fzsFhpUko3svoV3Qdivlwp9nDTINhUrKortgkMcb0fQdhqE miDTqrwuyGs093PjpcElg5Vwcn8XLK67cfgI0qBfy2En69Fu+MlPMNYRp0FT 7ambHIrdsPQuNOHHIRpUnN2av/1MN3gI/a6Qk6DBZ41kY0GTbrjkZm7EdIQG 1oThd0c9uiFzUy+bugwNjFDW6PGX3bDFnPObtywNNFSfySm97Qa9I5FSxcdp IK4i3KGW2A06vvcC+E7QYFzRhM+sCcfnUP44KtOgp+CA9VVSN+R/iBd0P0kD 4on5HOvhbjjutnub6ykapMu9MXD40w1mZxtvmZ2mQXTu1ThXRjdQ+/qbCao0 CJKVmnuwhQRZX3S3iAENHKXrQ56LkKCOMbPUTKDBtcwPQy8Pk2BVbiUt6gwN 9I/eknktSwK5rm1y19RocPwIa+sHTRJ4Rq1VtqvT4EBa275PF0nw4EpGrbcG DfglY52+mJPgdC1vgqQmDf4cOs391YEE/9oTKTfO0kB1RK028CEJzILpGizn aOD3ScvT7gUJ7ubYQQTmZrMLimeD8Xn24S3iWjTYxW88eyCSBGmTzEtpmC1b zJOZE0jQZCn37bA2DZICr12jZJIgfCmXPRqzArN9S1Q1CbaeL39or0ODZ2XO Lx+2kODrbbPwGsw1D+7DpV4S0G5anxfSpQGX3NNlORq2O9+IuYHZdMY7i5dO Aubi0YBEzLGpL21nV0kw4GDPQ8E8bvN6X9NmMpyueH6cR48GMvvfkdJ4yCDc k0NXwvywL+KNvzAZ3Ka9dM0xV4bHnLt1iAxq/z1Ud8HMYZjAUJclw/OKfT1e mPW3pxWKqpBBuoexzR9zZF2WE+MsGTRSYyl+mEde5B8eMCBDxdVAAw/M/0Ep peQKGSLENW/YY3ZdrfwQYUuGJmnznQaYS/JrLt53JYN5+gW7Y5hZXBrZjT3I oFT79QorZh2pdiTrTwab3I35FlxP6BjpAfc7MvR+rD8Shrnvy4D09CcyvM8N Z9fHfNBydIyYQoa34jN+rJjvCk18TvlGBuIBs7RM3M+8zhlTvwoynOy/4mqA +d+bRW6bejIMePhQfuN5aOiu1p7pJEO2oum8B+YgNiavfRQyfFW6ms6OWcSD k967SIadjQf4WPB8bynxphQxyPCgbLHSFe9D5sIuq/CtPTCfJSTY9//9uSPW arC/B0SveH0PxfvlJy7hL32kBxpd2/lH8P41Dx0lbFfogWdakXySmC1NlbPr dHvg11QidwzeX08N/RB40APnTsfuPYj3v45hoiXyvAeynDw6ZfD94Cm9zLQW 1AOrZB7lE/j+xMraOhd86QHJbU94xPH9qtz7TP9ocw84C6qxxyngefa+4ODs 6YFH4gVn7PF91X8fUDk+2gNnhkWlj8rTYJjzvUzCSg8wiTKLR+D7zrKSziMs 3gsV1KpXW6VoINyktgDSvVD4xysj/T8ayMf1dNko98LBvLEwTUka3NRm/5h5 vhduOThU3MD/N3WR1uJq93uBR/Whl/Z+nN9hhd3Wqxf2HI6bzN5Lg9UzIZOv AnsBiU/u4xWhgdRkeVZXTC/0fvgwXSpEgzcnhU7eru2FX6XPREv5aJDClb0n uK0XxCtq6OM8uL6Rs4zcvl7Yq5oYzM1Ng/lA9+p/s71g+HtI8Rz+/7zU13Ih RLAPVGxd9KxYabDnqd+Nwtt9sFV7clB5ngon9EXO9rthPhPYsDhLhQsH8ySY n/UB18uvr1OmqeDZODytE9oHUrLKYavjVBjZc/rhYEkf6Nx5UaBFoUJq+ULQ 5m398KejO/s1kQoKDKsCo8x+cEvg9yn/SAW985XPNYv6QSDdeCk+ggo3Pu67 qPijH6q3DIS+eE+FEMXBsd3d/cBvaad37A0VJpwuC42s90OkTmej7HMqRA+Z PHU+PwCObmaWc/h7yvxDR+311ACIszXGmByhgiBPGpfn0gB8I5gdtD5MhWOW W/qcmQbhqI7ysO0BKlis1roZ8w9CjdlHlmvCVMg7rpkorDIIgXo6s2tbqXAr HjjSXg1CbHNaA318FBp95Jtr8DtwVFXGvv7zKJzkbmB5e4IC7ONsf8OiRiEl 8rriZQIFJNYaPpi9H4UXmcGxsyYUEC1W4KsLxP7kcVdBbwrIcxxk1rqH/Y98 ErhDosDh91tUGrVGQW3ieTab2hDsZSu7QZ8YgX0hv1dSZ4ZgqJS83LRzBCqu e6bmLgzBj09HgmW5R8BSbod56d8h4KEqyb/hGIHo7pNFjSzDwCQoWaW0NgyC IoH3Z3cNg7Xb9D3NoWHgS5NYkIdhkEhzfqKdOgybq29OoTfDYJNccHuv4jD8 XqYMdsmMQNjV6Wkudfw+nSwlcgWPQltQwalX43juIsmzVCoVkplct66PdkPQ 7fxbsQd/wY4m9c8V9DZYIqRT7TzHgE2n1oE0Xgfux6vzdlWNQ5BUsSUpuBwo mdWv2kQnwS6ohZfvvzhYu9P5UfLxbyhqnG+dCkpAxgpX3x7z/A0+nylPlHkT UQbzLz85n9+gkfvhN+F9IrKMWHY5Hfwb7E6VDD+LTkLff+7WMvjyG5SM1r9k Jqegl/uvLz4k/gbjS/t0I7Mz0I7uab263VNA1n5IUdHMRUfOsG/cKp0Czai+ 5q9JxSg7Lf0wuXIKnifx+OSPFiN5fn0D7Zop2LzLhTdgfwlSGYtIONI2BRxm O2dCI0vQhdf/6dJ/TQEsvyNIBZQi157zEY/4psFDOJOkbVmOil3Cjgfdnobd oyrRd5wqkWqf0pV1x2nodxCiPAmsRD80Bnwd3afhSnDIglNiJSIKHOrR95wG 8aOMo0x9lai/vNBz5/tpeCqZK1uh8R0xbe1rjKmchkZz3tIovh/o3BdR2xyB GXB4VrNV4kMVko/gOlSzZwaS4jcN9WRUof3Ba9Re0RkIoSy/dfpRhVYfdVlv kpqB0EeSp85OV6GvBgGWpoQZcNeauhtzphrtYJ4zWbebgdVR/8/j1GpEuVap oV0yAynxI02XdtagRpOvrJZoBi5Ise64ergGFelG/XCtnoE/pYqZGso1KFTR nRDdPAM3mjnCC6/UIE1uCZXZkRmgtXn8kfxSg9Ir3si955wFIk1XU/pwLXog ck1s+MosZLer5B8TqkPW+jKX+q/Pwtf8HOP5Q3XowgvmQNKtWdATseMKl69D hybi55qcZ6Ew3NnH42Id6swbryzxwfa/bTeJL+qQjJ7rtbCMWdBJphrr/qpD ezzV373JmQUV8eR09vk6xJ7LXxtYMAvrEexTX9br0KBA4THvyllQf/Zo4B5/ PQoaXVt36JyF6c2sjq8I9Wj8sW/0uX+zcO9kabRNaD2avHTELo6JDjKa8bFs 0fXIir6DZR8rHQj21jf9EuuR7gHaid0cdNBXST6zr6geiQW8/MTDR4eh6uje gr56FCHmrBjMT4dKlkLHc9R6xFVm1sYpgLkldip/qh6tzEhuZt9Dh9bfiqVS 6/Wo1bjx7ro4Haw2fio930NEZ2fy2J5IYLtfZjbLQSIqe/kp9u9/dNivxXP6 +hEiSi5x7FyQpgNdOyylSJmInu3nVZlUxucL06+1GRPRYvFKl60KHZxVFnnU LxPRHaMRJ5oqHbxAmPnddSIy8fsWP6ROh5Dvh/KaHIhIasqEk3Qes7/vaqYP ERUZ66FAfTrwXN3W6BdIROrlam6qRlh/Wc8uxRAisgiW7ks0w/kMfeREPxLR ryXxN+aXcb/iGXyXY4nI9doe9e2WmPPW/RwSiShAZku6+w3MehXn9mQREX8k w1LiFs43vfdL0TciimVe4uu3o0O2j2rG0SJ8fvvIY3VH3O+6pcm4SpzfvUyH 7xGuR2iu9VsLzj+Qu/HzCe5P74ztrg4iWtdMzX30DNe/doBm0I3zC4TvHn6B 84U6fzXqx/k9g5rD/LBd7BDbbgqud/z5c60AXJ/WRaviYVxfsdNkVjCux09J /sUvImoWvRVz4y2eR0l46ddxXG/gFUOBMDzvooRrOZNYz7whW0M4zv9a9nDw FNZzWbvkWSTOf26bkMYMEW1UgePxaDyfBVaVjllcv5SC2K8YrP/zWPipOazv vVR3ZBw+z9RPxmMe61sXCzyfgO2SWdwRC1jfLSFV5mQ6xIrJngpaJKLCZu75 vFTcD/2+YvM/RKSmyJZkl4HnhZ6GMi1hvZ//me/JogPTM2qDF2YLjoXtrTlY T8Tw3V7Mv5wnvr/Iw/pF1J9uX8Z6eyj3FAuxfkEy027M62e6JX8X43ojnJiZ MPunNQ7ElOH8qWQfhOP5d1S9NURYr/nIWzPMsU+KNdl+4Pj8y9INWI8UNWul uBrra9hhI4C5SC/pq0Mt9k/uUTiN9avnR18XJeJ5mz7NVMH1NYu829nViP0n iG07cf0WfgH1/i34/NthyXV0rHfG00OlHTMtWcEE98/F9L4svRP3406nb+k0 Ef1Dd2nxJLxPbBMf135jvRI3Ik17sf1nnudOPB/+t+bnOQfwfAvYlLbg+X1e uciMKHge1K8N3TQiKiCq3D5Ew/qPK8UyhnA/5eREesewnrvFMxaDRNT0UbLt 9STul1CjXEgfEVHv7lL+M4vtrCNl/l1E5Ny1bTplHtdj8YJLrx3rOc0ad+UP 3keLeZeJZiLawU3nqF7F8YH3AnJriai9PPCl9jquR+7v4v5qIgq9K87WwsD2 xlgnR7zffEQL1t5NczC07JuShPefz/fn+izXHM7/piooGcfLWT29xzsHhBQZ 9cUvOH5kdXV1xxyEKKtsnIwhIl6CzN/NQnPAY5CnciuMiHjWouaFD2D/RwL3 5T2JqDX1hEuc+Bxkb1m1D39ERCFmrbOHJObwu/hVPcmNiLgLNk/LHsV2l762 v7ZExOXiPHZOEdvJYrl5F4ho25hmv5suzmdf4y+4i4ga3w9ZrJzHfOXdWzcu IgrSeNLzTH8O9IM+WGSyERHnl+zuABOsr8NWvWqpHm29Ktz2+Rqu54AAp31X PeLooP9scMP5FyV1CoPqUZ33Kw2D+9gf2c/wvKhH/jKHqrofzsF+F4d0nUf1 iD34cuWwB+bcdl/Lm/WITbumZPkljm/dYcqhUo82oY9ZB6LnQCZtQu32aB3q VdHQosRgf0H2jYbuOpRVMjUUFYfPF9hI3kKsQxYFp/n4kueg1SGJujO7DuV8 pbgz5eLzKftqXB/XIcvoAycHanG+4zlGGhx1SH53Y3sEcQ680iq1zVdq0ZYI d3vjJhx/0uqz9mQtynv3M7qhfQ7oGh6+ZQ21iPOVLaN4YA6Y7jiyTAXVoqJH 6dXhCzj/RYmJBxy1KHjZ6Krh0hxYKYSKn12uQTfu/fuzfQXnL1U7TqfV4P6f P+y7geeplkgm/ahBN+1mA9y2zANPetbepcc1iM9U7qL+vnlo1egqdqf+RPby pT1bdOdB31j1aXp0Naps7cooOj8PVnYH/t56WY12OtA9bfUxs0XdZXKtRihR /NBPk3nIjqKZN53F7wGBEFcvq3n8vYhiap2pQqUrNpzL93B+sSijZ0pViBNx nabGzgPdebXoa+53ZHVZkudd/DwMrZ+VPRH5HeUvq4+eSZoHpjHXBx89v6Nr Mo8CPqfj+Jd8/pv0vqNvcaNdFgX4POGd97RHK9FlnyLHtoZ52K+rZZTAWYnS ta1jK5bmgfCkJzTyZRmSlxJVhRXMog32rvplqIJrqA+tYR4bWOQTKkOtHVcF vjMtAJNEhlp6ailavGoeXLV1AayaWteU60qQqqv+07q9C1B5+OblntUi1Bql atZ+dgEIR7kC7BXy0Z/fu3l+hWP7FGv7fb40FPZprDY6cgG8WsbHWDxSkdzF PE+jaOz/QGKCZywFueSen62Mw/6yAnu+FSej6YdezR8zsJ1PT2uHeSKibf4V ZPADx/sOD1p4xaKufTlbyqexPquvGftrA1C+0TnWMI1FYHrkL1goFwOeWr6f 834tQmy01jeKWAWIDuiQ433/wJC3/PDduAY4qegTJnR8CQgFihk89l1wZW/L CnPHEgg2OLB8kB+AP8TXI87eyzB08SG36NFRiNhk6W548C9UporKKn0fgx2D +V9YqjGPg+iH5/hd6+FtrOyyArmFh3yj/uLvRKpl1gjfKtwMzn/g93kBXKOy XvP9WIWsA9QfcdFLUH7En4PXcQ1Um00PyyatAK+Oq9Rzrn+QVuYfLRbyD/qP tnY8KvsH1ubxmicaGZAdAweplutgpXKqQ9aZmXA1S4FXZGMd/nZss1P6y0Lw 8o3z7k/bAMefNQsWSZsIX8dFPnLpMUCaScCo7iQbwf+Tr9XgBQbE2i3n9J5h I9gYTotnGjAgZ2Gb9LQWG2FPWVn2eVMGpLpNefOZshEC31yuCbJmQKMEj4el GxvBTiFybusjBgiQnl9dS2cjiPnwa7EnMeBjGdleU4SdsKH0dDsphQHtjoHx FgfZCT3To+1J6QzwMRKadDrCTggx/Xb1bA4DrApG46KU2QmM/wzdfMsY0Dpb nkk3YSf0t72JYe1gQELs/vaYYHZCkd/yjY4uBpwqEK7Ie89OCDt1TTKezABg 08ohRrMTdBOP5akNMiDAVDt9KY2dUPKwqd57ggG7mryHLtSyE8KPnnhjMMWA f1WRf22a2QkuI9HGorMM0FzZxv+ki50goXeXUrnIgM2iu42SR9kJm5g7E0KW GfAkrOJe+SQ7YSj/1B2rVQYYanVEdsyxE8ruxEvLrDNgi8dAxcRfdsKHfZx/ GAwG7HWzpjIY7IT/ARP5wd8= "]]}, Annotation[#, "Charting`Private`Tag$888482#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ Directive[ AbsolutePointSize[5], RGBColor[0.922526, 0.385626, 0.209179]], PointBox[{{0., 0.}, {0.1, 0.3}, {0.5, 0.6}, {1., -0.2}, {2., 3.}}]}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->540163149] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Make a cubic spline with different left and right endpoint conditions:\ \>", "Text", TaggingRules->{}, CellID->201854429], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "0."}], "}"}], ",", RowBox[{"{", RowBox[{"0.7", ",", "0.02"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1", ",", "0.06"}], "}"}], ",", RowBox[{"{", RowBox[{"3.", ",", "20."}], "}"}], ",", RowBox[{"{", RowBox[{"3.8", ",", "20."}], "}"}], ",", RowBox[{"{", RowBox[{"5.1", ",", "62.2"}], "}"}], ",", RowBox[{"{", RowBox[{"5.9", ",", "62.24"}], "}"}], ",", RowBox[{"{", RowBox[{"7.", ",", "62.26"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"InterpolationOrder", "\[Rule]", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"ColorData", "[", RowBox[{"97", ",", "4"}], "]"}]}], "]"}], ",", RowBox[{"Point", "[", "data", "]"}]}], "}"}]}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.826810443770357*^9}, CellID->580629604], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV13k4lF0UAHA7w2AswzDJWtmSzMhW7hFJtkEqhEpSIiFbixJCixJSEUmL JaRshZgQKrJl35e0l31fvvv95fk973vv3HvuOee9ZF1O2xxjY2FhyWVnYfn/ 7yO758VRqmH6LCytv+jtt/WfLIqFPk44gqbtnmxrcfRGFtc5lYITfFAAY4bw 2TEEpbVeWHZPuIxGT2w+V+4Yg+oDtd0OJ9xGfhkftWoPpqKhPWJJBxMeof6r 8mGS+/PQb40rmvYJL1HHN/ao+3pMVN/K8ZtP/hWSYTuaJVjKRNl+4WnlL14h A3ohn5nuO+RRFCao8CEfnWoQmiZoV6KfOqE//i4Vot3W1Tpn1KvRN7iUHH6k BLVeb7lqKlKHfNLL2OwS3qGv2/Irq+IakdH6S1oPht+hLfoGaIWnCVHuGHgO qlUixXplRsvuJsQMrWk7UVuJPMtEXzypbkICzk0ZZ+er0Bnv0jt1Jc0oW3TU MsmhBmlokzRW77aikOvPwgae1aC2MrEU+ZZWtJfN/bX8VA2SCjzq+o/vC1r8 90c2+3ot2vpwUMn/4he059PcdFlZHapAQ+Xih9rQ2GW+pP71n5Dsl2KjLP4O VDLf0Cjn8QmpDMkaPjHoQDdPx3AcL/6EDLzEjLb6dyBNJ7LXP0Y9olHzAte6 O1C4trQBy+UG5LRTqt70USeS/afxTXakEV3oSHS6Kd6NFl8t8ueLNyE/kRzf TUbdyPXvQcW2HU1oSOKmBnh3I+1j650krjWhgnsNvb9qutGAzeOaR3LN6Nrg G1Zerx6kppZz/9XeFnQti/2dTVov8gXeDxaBLUhSQFx8rqoXFdkcn/+e2IK+ 731cLvm1F+kHyh6QHsbvKxwW7t3QhyyZd0RveLciyc2rO1Qe9aHYlknDTfGt SHHW43ZueR9qH2WcqSxuRV197/dn9vQhZwJvy/xqK/JID9zNKtqPTtlcvHUs +gtKCnDTkL7Yj/Jce8pZXn5B5lF1ETvv9qPpAO2/SV++IL6Zq6faXvSjC0mT 5i3UNjQU7MpmPNCPmDmMC6dQGxJ1T3wtO9uPOJjZz3mOtqEIC3chd+IAujHq xouy2pBzKl/pNq0B1DRbpdPd0IYG+pZESs0GkChB1t1/og01vSqXTj80gB5s 7ql9rt2ODN7NHHp1ZQBlBzCuUGrbUWFV2fTZjwNoPCq7IP9nO9pMatsn0z2A 6EmEUUuBDnRJnXZt448BVFZRtfPKvg50elewfjrbIGJpkfGVOduB2E2ZslqE QWQ0Gvyo9EEHSuKumvUTHET1PNoskyMdaOaCwsV5yUFEot7ZEs3diXY9uE3f ITOIbDdPOiuqdKJ8w57RzRsG0T3EuFll2Yk403mEPioNol7r7LfOvp2IfVFG T0htEMm4Ev4s3OlEvt4qX9k0BpFrgNu6O286kaT+ltspmoMoI6rKTL2vE71L oL0b0R5EvxNlzn9i6UKquWiuWW8QqecEZ7kpdCG51w6FJ/QHkV9FdxerSRdy /349OB0G0etmLUKyRxf64NvdHL1zEC2PxGtr3+pCXNct6FSjQQSzE8dbX3Wh b66/NzJ2DaJwHsZdr/YuRKOXqygZD6I6yewawmIXeqn6sToDm7iZMPtEqhtt DBX3a8C2Qm4bwKAb2Z3IKU3Ajreusu1x7UYCInFSHNidR2XCA6K6kWBRI5WM 518XEJwvlN2NZK+c1P5gOIgOR3UPZzd2I0LByRlpvL4niVrCJlPd6FZAxxcK Xv/37HiDEbEeFMTy2i5/xyBSqZjwvqjbg65fEWH/pzuI3C7caHFz6kEJ7js5 e7UGUZrOJjojpAelJ7j/8aQPor7Zd3e0Hvegs8Q2o0fqg4hS4DgnXdODaj82 xQep4vPymbPj+dGDzJsz3CY3DaJbarEl43y9iCmdaSggP4i4MmuD31n3Irc4 GyNlyiAycHMZyPTrRXyv484pCQ+iC/IrEHu3F92Q3zxUxzeIppI1OI729SLi g60f6pcGkNrBhmNmLH3oF4VLsfb3ADpJOVFLk+9D1rK/tq72DqDB2ORrHO59 6EaL8e31pQNonZX279/X+5DpuT98XJkD6AB/q0Vbbh9ye85xYWPCAPocySP0 bLoPRaWPRgh4DSDCrse+N8X7UaBPn/EXuwFkxKb/JUC3H92rfGbcuHMAlV44 c3d3SD/aMc9rdUR0AM3qCCxsedyPcnvaLs4u9SONuQwHSk0/kjVq1no73I8y fPqlfvANoJ+P3sT25PSjBLc9T67dHUB1l8enDfC8LfKjnGdKBtCGiwPBe6j9 iH/o4vGDfXifS+Ubzi/1ocrNDuQEIRxn/xfr7N/0Ie2MW51uBwaRmP3si6/K uL9wORF6TgyiFDOCjgJnH/I7pqzLODeIAkvq/a/096IXcu+TtJIH0Srve9vs m71oY/KiM88IzrsT1Jc+oz2oeqn21oXpQbS42WbweXEPcnG4wxznHEIjHgsH WK/1oGRxdbkuxSF00WLh5KJKDxKNPfY102sIxd5zVuQ71o1YI5s8zBaHUPyX 8l0dWZ1I+9aqjS7/MAoSdvGBk53I666qrpLMMFL2pv69ptiJetOjeLiNh9Hq 49z1FY86UFEdPK28PYyMkt21wiLakQfvy34dpRHUsbdW2ofyBaUJD7xX3D6C jl9qtTryvhV1SvLniDNG0OYtXsPSPq3IWMX9/IzfCDpC3+zB/r4FyZjLUl4y R5DRldE/O52bUVv0bWtFu1HEGZwkq/m8HhETKrTFPUaR3/bY4Pd9n9DOlD/S XBdHkXxDwpt6/k8oL3fP35HHo0gr/or9NrcP6Foj6/WH/0aRuIT0P9r8e4SE fKvFIr8ih4kuoxs73qLMeBstzqIxtM6U4fOoMabCPGo1I692DAFkdUSa3q8Y P58l6dg1hgJ+z/mTf6dWaB9lW321PIaWE3e7J9zJrKjZ+qr6sOE3tG170tDW 54UVo5+FbMqavqGt31zWfGWqK2QIzZ5nfn1HZwtKeRPlvlRUL1/oX7/yHWlv DWcTqP9ScWJc0eqjwA90JXTfQ++AtooXHSE0WY0fqGrsgPxiQ3uF/jP1xc9B P9D1ZGbr98iuioOGMZHKXD9R5E+ThqgNAxUJwYy0IZlfKHSDlpdO8NeKFknH j9z0X+jJ89uftb59rRB8fWJy8+5fiOmyYp1iPVYRNXl557lTv1BG04fRlE3f Ks4fLxgWLvmFniWFbDbv/F5x2FpC3mjvb2QUXvjV2Ox3hfKGkcfPrvxBmQ97 hx4UT1RU1Ac89fj5D31+wfU1WHOhwuOt0nyD5STaE7opwFmWg3nRczU59sAk ep0w6/1+OwczhtpqeODwJPKLMxiXteNgFp29cGvQZxLx2NGiS25yMFm2NW6c ip9EL6P7i44ucTATcv32UXomkUiW+IUjLZzMyocVr1yOTyG9VLrrCX9uZptl vN0m7yl09e6P9cRb3MzvKydWfwVNIUvCwa/JGdxMfkdhU/9rU8jP6+Czaz3c TDvKsaHInCm0rUL5dCjwMP/E8JJypqbQ3bO1n4u4CExK6L5Tc5em0bKphGNM KC9z7oqD19mr08j/yKSAdxIvs/3qodNLsdNIL8GufWsBL/PObXeftafTaDh5 0sfhKy9T+FGwP3f9NHJbPhGhZczH5GM+DRanzKC92W/9+lmJzJ9VWRfvy86g iajRolIKkfmx9sUlqsoM6o7ZahqwhciManxzWVp/BjUfc6WFOhKZHAMNVza5 ziCxJe2S3wVE5urKTLRW3gxajVr+8cGZn9nHunTzzZsZ9GOJ9YrdGX5mGSdL jF7VDJJJr8mpiORnnuPnjUXtM6j4R36gWB4/c27d+oTdyzPIcVbpbt8qP3Nc zzjlgMksOj8ybHsrXoDZiMwedlnP4vvhAeGwZwLMXEOr1IMHZ1Foj0Ki6WsB 5ikzh7RDXrOIV/Vvx94eAeZPB69nx+NnUfa4SZGxtCBz5GxCbuDgLNIrD7b0 SBFkBp3pnj7wYxZJWD0MPpstyBQ4tV5Pe3IWWe/4wuZUIsjUPfysdp59Dtmb e4s/bhNkxhgXDZ7dNIfo4slWwpwk5kZY3OigPoeO1Rxy9OAjMct09E/p6syh ul0K1FwhEvObas3Coukc8qrJ1RyXIjH1RdqFL3jNIW6T3HNHNUnML0RJe8fA OZQ7cbSES4/EPMnl/HB7yBwi3hQpjAUS887CV5WV23Noe57jIVczEvP3wIzR xcI5pC9yXv7XIRIztEvnunP5HLrxabS9yZXEpLQGN+vXziGp+2CR4k5iGtZw Oq91zqGdVz5yjfuSmInZ5MCQ5TkULEnc4xFOYqo/s397mHMeZc38fHE9isSs eZjMbiAwj1J4CoZib5CYE7EbYlhl5pHcNxblffEkZsQN9/YhxXlkXRrKRrpH Yq6LyFlXuXUe3ez8qfQyicQ0OauZGWo4j06suf94mkZi9vue/ediPo8yhC4Z LjwlMc94vtU03DePtl0M8NbIJDFTDu2qZD8+j0IDeWr3vSAxZ3bt6wm/No+e Hk3G8Scxr6H7ssfi5tGWd5m3espITBmdvuO7HsyjG0kxc/oVJKa56rFpztx5 xNP5oye/isQc3pCpO1Y0j+p2Oki+f09iBkr/CampmEeP9B4Vl9SSmGnC/vyR zfOo93turM0nElOb+Gbv8e55NPL0TOx0PYn5mXPl/u6RebSTjc//3GcS03UN Bjf9nkdWbH7U0UYSc2E+fCPPzDyyz8px29pMYt6crPP8vjKPXq4Wabm0kJgK v4n5dVwLKJ391umAVhKz5KvVQobgArrxlv7v1BcS02ogHl2lLKBX6ul3TdpI zCeGJ1q2yy4gxhi0s7WTmHPpesfGlRaQzovdco+wTYmC8481FtBsyxVn+Q4c L+/hawf0FhDn/fenrmJPfimU4jNaQN9NmjVasXfpXM0rN19AcspnYlg6Scx7 yY6GvvsWkEa4v7sQ9m9W9fYNzgsoKSUtlRMb3Njdu9wW0BCzmtKHx8d9bF+6 cXoBXdZ4VnAXe0wt6yYELaA1XaEDmti6ccGy0yELqE+2abgQr+/mnFVB+lU8 n1qOrgT28EGF3QdjF1BZhq/BIby/bcy5LoGkBVTZ8bMrEu//qsInz8rHC0iN fXAsFsenNyplzT97AYX4rjMLwfFT/+MTq1S4gHacOvmDgeMbbr1rQ9/bBTSi G/+EtYnE7CykvI6pwfGQcz10B5+PquRvU6NGbM8ny7wNJOalixV9cx0LyO2w 9CEXfL4bd7uxH/qB13fk72ohPv9zz3UShCcXkMtqO+srnB8NgvxKNYsL6KGL /L5bOH/8OvMtNxMXUehDUtCfchKzbnvk0KDoIlLhNub3wvlHfeTgFy+1iBi2 PBcb35CYle6siUtqi0j0rWMwvYDEFPv8RfWF1iIqOh7WrPWSxHTXyKhwgUXU Sz58g5pLYpKWLL9+sF5EhYmu78LScX4dkgsKdlhEniyyrDxPSMziqhnerUcX 0fPIMg3PVBLT+cYD9Xt+i6ieUjLbiuvt1fjpKrPgRZT3Ms+yA9cj5z7D/WtX FpHCtRfyJTEkZrbUz/NudxdRhfi/Rilcz4u5WrX0kkU0G3hnzd6fxLQU4XP4 Xon3N/CHf783ifkosP930qdFlFWZ+kLdA9cvXBFm71tEbRJI+/JhEjOhucWp eW0RVfUFq97YQ2L+1Hw2Hs6zhJymPzw+a0hi7kg8G6YttIRSKyurjXaQmKMu MpkP5ZaQ4pORm2fUSUza9KnpU7uWkJsFm7A6mcS0zfEZ7rdcQk0tfXCSH8fb zb+JYbeEPEJO/DmH+2lB54XsrR5LSPNDkq3+T0Em/e1115mYJXQ7ct+O/ieC TNuAWzZuiUuItpRm/ipWkOm3JQ46Hi+hYRZ7tq0hgsyCR4nr3hQtIZWRsG2b HfD4iMwvF3qXkPWPoHsUXjwe5VT++bqEBFtzX+rMCDD95vPynP8toZCYA+vY BwWYBSdf3wC2ZWSTHlEaXSDApDNqjTgUl9EF5bW5s/bYlK8F188so+uFQetP xfIzbZu/py1fWEYe+f6244H8TL9rv2NORSwjW57FreJO/MyC5SlPxv1lxNcp 9cZyIz+TPsS2QaRiGU1M+392xN9LepbMnUTeFaSwN/Jjfjkf0/aoQhif6Apy SYy7aJnCx/Rbp+hzQWoFLZXqqUcF8zELbm6xcFZfQYIvRo906PIx6Wf0OeX2 r6Ak3R1tvXm8TM3tjv6Zj1ZQLVnx5c5rBCbxV0pGUNYKmnjMfnenG4E5fH+o Z3f+CvJtKF/6YUBgxsy57RyrXkHahXYMtXke5s9XPoLy31dQpUpZcMRhHmaK UmTmA7VV9MzG/DeS4cb18aHXQ2sVvTqZty9plotpFkkk6cEq2q/E7ZdYz8Wc H70d0GW9isydhPpCA7mYNqkPDMX8V9H9KZ2KmTpOJrf4q75bpauoPHDstZoD B7P//TTpUPUq0vrMzp2pzMEs8NMyUmtYRQ/aN0LVIjvTpaUsq75/FQ1UsF1u v8/OLIuuDSSwraGdJvlJPq1sTG+OPqEwkzVk85lVeRedldk1wW0c0LaGTNHe p777liouzJz7wjawhuzy1LMdWhcrZBb+uNz6vobkWl4IMKwWK9xYvlzKWFpD A/XfLzjsXqg4y93k+IfEAonSyZK/lOYqOMUeJEhrsQDPzk87PJmTFVI0Om94 GAs4+uv5nnQarvhbcMraNIoFaiQd+JYkhiqY29LvkaJZoK1LNXQpY6DCVVdy U3ICC2yt2uicGdFdkWXAYlSUyQIy65OSLEhNFdus6oO/N7IAi23psVt3ipDl KdcJ83WsAApUsyTRn+jik6/9yzKswGRP+mgc+wu96HGrz96An4cclawU+oNI pu7pxC2s0HQz9jQ/3zhq2ejlVG/ACt67v84sSUyhfYOBH8yOs8J4vkVl6eEF 5Lj3+iPTV6yQESQoImzIDid1XlmbmLBB7nP7lKECEhwo67cnHmYHR9ZnygeF peFLJ7nu/C0O+JNp2ipwZRPIqntlfI/jgM+39m7VSNsEXpE1UfvucUBn9PNw 84pNQNgWuGfLIw6Ym91pd2xhE+jHdX4cfsUBkxfGGuROKUKGRVLDnnYOSNz3 +sNTGyU4XynTKi7FCb0bd7+JFVWBOomz+eGynHCrypFXX10FxHya4yY2cELu g9jX3WYqkCcdavtJjRPuKdqf/RaqAqMXRtouAiewpCum7xlXAUutZ51fj3LC oN7Va4Q6VZDLVunPz+KE+lekjfon1aB98zrPSy844adIBGngihpcfUFcNC3g hKB1+ZonHqnB+Ks/5OG3nHDxk7e5RqcalL95YUFq5oRQTXmfh0ZbwL6W9tZz jhMCvWyH9xHVIWZY78EGIy7oNVVbW21TByNXVeUJEy6wZo+fpQ6rw9zXda/L LLggYLPJBaW/6uD8Y6V17wEuSFQuYZK5toLqeAVf6EkuCBS+T1LX3Ap1K4bn +2O4wPTn6LBNzFZYo5g73O3jAm+TWq5rOhogbBV+03yYC4TufLPda6gBCpFl lazfuKCt39qG10IDTGZUVTzHuWCXg/4/OKwBsc38y8DODZvCiRUNVzRgw7XG 5J+K3NCuryxv2aAB2u+4Wx5u5gbVGwXVX9s0wHQece3T4IbYe95u7v0a4OWW 51Whxw28A8X69H8a8HrnbRRvyQ1iRRSrNkEamC3ZDO3w44aLm5pcNlvQwFnj OnkqiBts48EtyJYG3u5VezKCuWFj6MeSnIM0iO+gvRKO5AbU7Pqr3Z0G/fmi Yd/uc8PTJpMgmSs0GP9pXvwghRtqOiWFS6/TgF3uyi/rx9zQu/PcBhRLA8WY mb1l2dxweDPVgv0hDXw82xVuV3CD3L9zOUHFNAh/LGBvXM0NRokWso5vaZDQ bRy9VMcNjChZLcUqGpSYFM8ca+GGVCnuvrOfacCx4V6N7lduiGY6S7OM0uBu n/2JUV4eYO0cPnOZlw7ht7ZWmAjygBWV8fOeAB18DQhiOSI8MOl/0ipJmA6W T19X+a/jgVDFbI8jknTgOCUuza3GA+sjzJxnFekwuf6fv4cGD1hHyrScUKXD YFNNfeM2HggRSNWs3UKHUnrAuXuIBxTcHpiZbMPzL39pU7LmgZ4d52iHdtLh cG626s19PLDdN+4JfRcdLA6Hh03a84BBkg3n3G46KFbTtpa68EBMKJNsaEEH sQC+KOnjPBC+zouzgYHXozjSH+bBAz4uFa5GNnQYuB57w9yPB6IzTSeX9tOh fsfJkbwgHnCLCDu83Z4OJf8MdMnB+HmNU/nJg3RI2Dvxre8KD6xTnK67fYgO 5lQrw9N3eSDqzL37xON00G3YlNiahNfvVc/BPEGHTZfWxrVSeeC1bvIhl5N0 YBvJTWHJxONZRVz9TtFhPD5ixjWHBxLaiyxGvejQb+xs/uElDzhqzjwz9KbD myz+xdslPCBnjBSbfenwzPGr1Ww5D9S37olZO0OHeIG36Q5VPCCe9vublD8d Qpnxq+W1PNC1fhNDNYAO3r6e++TreWCseP6rciAdnBWMsiObeECk53C9RBAd zNqp7L+/8IDmrLPcAvZG3U95BX08kPdJMvnqOTqI/k7jlhjmgfwjHax65+nA mnLOOXiMB9aebdrfh/2XYVM49JMHPAl8Jd4X6NDLqkw0/scDDbMhFjPYH/NZ j2ZN8cB8b5S6RzAdXh/reiMwzwOVSnJhLdjPxF+SzizzAIuZ+TGVi3SI+xB1 vIOFAJG5XHP+2CHnD5frcRJAtdLK7hW212ZtciqBADVTSpmD2I4Dgp4cAgRQ fHmbwHqJDqa3v1WeEMY+EXlfBFvbsEKiQYwASRG8ZynYG2YSvLdSCXDgnGSd ILZwulftHWkCqL8seraA52OxN16/KE+ApXv99HZsW80iubeKBDDsIAylYmcI bdwUspkA80ITdEfs5T93VAw1CIBlz4Nt9ZFTnUuLANyqIoFP8f6ePPOnf9Aj gPBIXxENez70q/YNIMD3XeEG+Tg+5of27WDsIoArfEYK2A/13hsImxLAsTys OwLHd1Jc07jNkgAZzz11e/B5GE8/Mb23lwBy01ZRstiJTaKMg3YEeBg2/9v+ LD6P7PC9650IsLBL5XY4Ps+dV6cPDB0hAM+ml8mP8PknHHN1fOJGgMfCNnov cX7orzc6puxNgIHXHA0ZfnSIXcx3/+NHgC1mz4Rv4/waa5f3yjtLgFN3Q294 4vy7eYs9cFsYAfj5+Zgrp+kw7HHm/EIkAWQEdn/Kx/m7zWTkUtkNAlwK6stx wvndx1IVtTOBAOHaOg+icf6r92lEcyYRoOvYzQURd9xP3qTdrntIgJ7nTs03 cf2o+oYmWmbieG+9FufiSocLIwbZDmUEMPsz3xHhRIemipd5Uu8I8OT58sVC XI8KD2QLB98T4OTQm7EuXK/1tqzlbo0EeOASksSB65law2z0HSaAZiSVNIb7 QUkGmrrGwwsGRUFflvXoIHDlxZwFPy88Dvr4JFGHDi5HpJdJwrwwcdq2Ul2L DrySaxx3qbxQkK0eZaxBB/vr5WKP1XjBW/l7wTrcz+ZP7dAtteWFd3EGBndx /9v03vzIZnteKLY7Er0sSIf96xyjHjrxQm7cjL0TPx0KPp5rD3PjBXoeWhDi oYPPpte+5kG88PLo6wnTFRr8HNR43pfEC9UFym2UbzTo3au4jmWEF1TZrr8l vqEB33MtQ99vvLBSbnpcrogGumy7T47+wusRe1SslU+De3nHXtdN80JDV1vT kRwa7ON/bHubiw9Oxb6NKH5Eg881UtFyynyQ9cmPL+IaDd7piKwa+fDBv8OL jXedaGBlfPJTqj8f8PHqbxl3wN8jm3f3ls/yQff8e7q5HQ0WPU7TCkL5cP2X vhDcSwONlE8n5OP5wNbgT1OtCQ3S2MJbWYv5YMBiSIqiSQN1wZ5Up1I+6IMD 195o0KCcquH1poIPIND/9mF1GnTTB3l86vggJafqd4UKDYSPb9cf7OKD/O37 DWvlaBD2aTqjfJkPpqo+NYgI4+edZgGSrET42pMfLUWiQepommEAJxF+0zN6 1QRoULZi1b9ZgAjpmZ+fnOClwfSWHJFkaSJU33+3Zzs7DUK3cwzNyxNhf1HJ nyusNCDtOZhrq0iEDuFJyc41DVB1IewhbiWCwHX6zYRlDXCNP3bx/E4i7PEr Nrw0qwGTqWVmHcZEgBvWyaQZDQjJEZGgmRFhdfjguedTGvCg5l3+z71E0DXv 1lsd1wDlVsplYzsinOrvdi76/74wcNoyzZEIX3JdQ4P+asCXeakf9seI8JSw 2YT6WwNcOP2LCt2JUCMyr7j8UwPGherDhLyIEHHwWOS3HxpAVDm3/kMAERiP kW7/Nw1I1Gr+pXAer1dep+HHmAYoGim+CblEhK6BPw4s2Luc2vdqRxFhWTBt xHJUA3Tj33+evEEE4ySbvIARDVD7VLAn5zYR1nj2rj0f1gA5tifVxxOIwB5w e/7vkAaI6cQhuSQiqK0tVSFsXu/Qkt6HRHB4F3I1ZVAD54GP5t0nRDjaxe/D hz3ddzjPOpMICq630yIGNOC7qJUKMZcI5y4u7CJh95qhZzWviKC/ix6Wge9T TaFqspeLiWDZtiWUgV39RuqBXhkRQs26T3Jivxknis8yifC6WvbYxz4NyN20 fDvvPRE+OU3fS8FOc/5F9PhIhAQaqIViJ9zpjtzQSIQplylzf+xr9R/YBluJ wORZXheEfZH9TXBiJxHaDUxqrmH76mbM2/YRQVilxjsH283n7hnBYbyeoaNG g9gHMyL+fhgjwvHLgu7yeD1WA/7u4b+IoKVYzBWIbSR2bFR/nAiJkya7erC1 LWwPLUwTwWPllbkV3q9quGF3/gIRrhwbMWrHlinV2Oe1SoT3u+v2ncLxIk/K Nimy8wPHO0Y6+f/4KgmZjXDzg/Tf40casVcPsdQkE/lh8tfq80R8PpMJ/8BO iB/2d7C9CMTnN9bQXyosxg+KDUdi3fD5Nuq9fRkpzQ9hZj/un8PnX+2brbpT gR8q+f/yp+J8eZ2ZlL6syA+9Flxsnd81IFX8XLKPBj+QSpV4Q35pQLylO0VV ix8GZIW8xnE+Xr1iFzemxw/zZ6snzuB89Z3advXgLn7w9tk9XzCB46W8kUPM lB8iTKc++uL8dzhCvtRkyQ82UfJORrg+DBun/HbZ8cO5px8OyS9ogOjzvMNb PPB+b2ptb8P1xzP8sOfHaX6oKxBy1+SgwTLl1v4nfvwgtWkoPouLBl8jTplL XOSHb0coV7/w0aDIRVmb/TZez4EpAxVxGmTdl8h/e4cfDNjDqrUkafCwiUct KJEfZgeDrjhI0SBK/5v8n8f8IJTOcBmRp4G95BPBjiJ+4Iwo+MqF+5FivUYO lPLDwj+P7Cjcr+aD35lmVfDDgfC1r+t1cD8d6r8SXMcP5ANRtKtAg/YMiWX5 bn5oaiyrtrOiwTOHjPvR/fxw8PVE7mV8v/cnamnNDfNDs0yyIBP3S1FvW9+P v/hh5wOFouAjNLDRuvXde4UfAk7EKrD40UDuh1REN6sApJ0XZ3QG0WAiMVve iEsA9FxzpmqCaRCz+sFZXFAA/Ac7Vb9H0qDxPUfbWxkBMM/7+GtHMg3Mbc+9 4zUSgHTuJZa99TRYx0U45GciAFp+99jSWmjwq/jucp+5ANCPnL9C6KLBNWqh 1st9AgDf+mPkxmhQN/wv58BxASDVpZmGsNJhl8+xxCfXBIBjF2/c1HZ8/5Of 1hK4JQAKa09ZW4zoMPoltC0wTgB+c6eSPpjj77d2KsnsgQCYFMW9ZcHf58q1 7oiJHAG45lgiGo/vQ/o3rc7oNwtA6GW+Su0aOvidDCznaheAfpeHhUea6JBl nEJo7BYA5Usdws+66UBe+/Xw0KgApN7JfhTyjw6/T0fWh8wJQLk/TfOcpCYk WZdvqJIShJqBlX0n/DVhXlS1c/dJQVg0/BJzVn8bqE3YyJNOC0KAwwbxPrNt 4Npw1qvzjCDcE+2ttLPfBo1XajncgwXhd+qk7D2/bfBs1mXrtRhBiNnHL0/P 3gb7Ou9fqy8ShEo+w70fpbWgqyEsJYOVBK/jV4Nfi2vDEzG9u6wcJGAmma9P 26QNXocmbzlwkcD1dHv/Qy1tYJs4fJnIRwKexwVOHQe0QVVU39VblASpe3ak 0O5rwyWHeSXtTSToZomJvC6tAxu+eRbWmpPA7nL5CJ+uLviw7K8fu0sCT/GD XGOp28H3prglQUEInvTdC9b+AqDr3h/KWiYEkvkxKaqfDcHjYTxf/x5haPmh 8OH4U2M4e9nA6d8XYRgly7cp2+4BuqntgmmHMPRdrqo4eGgPjAsfv/OsSxjK KY6fI0/uAbcnNxqc+oWBMWq/oTlkD9jWduyo/yYMAhXVBzfl7AE1fq/1mYvC 8GJ0x3Q7hymM3ksccJERAbO1cblfL0yBkTd1pN1DBL6PTY4rTZpB0Lb9twhe IsAyVr+0bskMUstel233FgHz+kvCBA5zmKwLFn/sJwINx9/q1pPNIWGIu+F0 sAjUXMu3X9E2h37hddqEWyKwi8P9J+tFc/DyNxLY/koECCOjUhZsFnB36Zne 6QIRkF+j/bHgtQDmZYJ7WpEIyNZXhxoLW4Dwzc9VPKUiwBY737FezgKKntmd bavC8wdX83sYWMBqh+eoV5sICNt/qjhx0QKide+UPJoXAdh+mePVhAX8bKvS 51gSgeGpta8qCxZg7DNZ6bYiAn+VtycnsljCajrjkwqbKBz5LGK/X9ASvMi8 vYV8onD0t2XSLlVLsBy/uPJhvSjwxnpOzh21hKzrOZdVZUVBr9B83ZuTlsC1 qZfzlrwoaNOvmHv5WEK5k46AraIo5CxvuFFw0RK2fJpa379VFDTeaEq9uGcJ pGcnYNJIFBr/cG6x/mgJngZ3q213i0L0zpks8yZLqOt9b1K8RxQCGzuc9Not IURE3vqCpSiMmSTTJ4csYSKk7wiXnSh0lWrrVc9bQstBmzBJD1EI133l/1ee AXFC22t23haFUc5Dioe9GeB4sqTnQpwodLZFT3v7MWBjlfZE0R08PtaxLSCI ASV+mutUEkXh79VLK0dCGDDYoeYr8lgUWo8d5Si+xQC1FNn1owWiEJQ63OSa zYD52Ye09cWiMBN7PuvTCwZUMtbvsXuD92dqpqeYz4B9rFS/+rf498rozyvf MOCCq+jHghpR2J9dPBhcw4CPytwBVzpFYeLS2wixfgbEh125XtEtCloktbt9 gwxw7mV/tNCLn2/3ZE0aYcBENEv9qSFRyJWd41v4zgDKxILs/p+iUC/USDac YsDwniCtmN+ioH6JLlQ+w4DstFnzj39FYWj6VfGWeQYg26lA/SlRWPciVW1u mQFuxb8bNi7j38s+Os7HbgXqJI+Rw6uiMBBSnqHAYQWLJ37MJ7KQ4cEtswFt TiuIlhyTF+Qkw55tjJ693FZQEDxwdo6fDKpPIdmWzwrYjFo21EmTgfDvV8kV YSs4H+gnMCdLhh0Bjx/ailjBdJbY3AYFMrxecwmWFrWCb0IH68IUyaA9IaOV SbaC+oGRk2grGZzpGUrRFCvYJRKx14tGhvf5Lxy3S1hBubHi9mRNMgyOEl98 w87L8eRf0iHDL9q/ag2qFdw5P/OiaCcZbDyO6iVJWYHAi7v3vhqRwclZ8Z/K eiuIGta5LLqbDNdexXx/jX1uz0UbXzMysO/3raiVtoKpCzJ6jyzIoCx06dke GSvwzKuUb2Jgc+4fq8V2Fuee2WxLhtOnr4a9kbWCDtPMPsf9ZLhpffanqpwV WF00q7luRwZ9I4e3D7ANv966+8ORDNw0sRIfeStQzKfoPj2G47Eu4s6EghU8 GiuR+3KcDCMnBIZNNliBpKQTH/tJMkT6tzEfYPNfftR72IsMoc+MTXQ3WkFE geH7W95kKNwWvhiGzfL9a065LxmSnTfZfMSetFS+tC6QDMYW7zksNlmBR2j9 cbOzeP5Le92vYo8WelmdO0+G37JeEZXYTj9IOpnBZGD86D88j92+Ll+28xIZ lq6fXlFWtAKG1T5e7lAy9Ff8OOyAXRc2N6kZToZRXfGYCOzSn3rVcVFkEOl/ 5dqGTV/fn115jQzivgX4hm8FudYhdyZukGFWIeaRuJIVbLoid1HmFhlSsgVF 6Nipr6vdGLfJ+P+9ZU8LbInfboyLcWRgEZYtOIodK03QzrlDhjsHjf8EYPPt fS7Te5cMmdbbpCKxwyMsCHyJOP+ySkzisVfe/JvQeYDzj5rsl4Id8Od294kU Mqg7pD99ij0uQ6+6m4rPS+rxYCa2u23785o0MpCoDsrPsYcjg+JnnpDhCU9C 5P/PHUslgxXSyaDzQGblCXbb37JjezPJUHa96lYytqXcIcvQ52SQjDYxisNe PNkQPZhDhuJ8maFw7Gf5eg36eWQ457+gdAbbZjmTmPyKDED9p+CMvWZEMV8q wPH8I9W5Czs7OuK6fTEZdm5L26OMbdc+/bH4DRm27bh3iQ+bQ/oor1gZrkez dSE/cHzzjjfv8Ssng1WWqXU1tmMeutrCJMPmNLSQhE1YyKlTryKD0AXxi97Y Lteu7f5TSwa7hcFtJGyB1vkIs49k8FPjC+zB519CPV6TWU8GTver2Y+xRXIM d7k1k2FOaEpQBZs58zK8upUMgsLipj9xvnnqy1TLtZOBX48l9hl2dePyzoFu MmxUiTsqhu1N8Qjd0UeGxTD/hQ84n6WOdL1LGiCDvNLNwnPYAZOFYDdKhqHz ra9bcT3I6SmEFI2RYUupNvEC9uew2ArRH2QwOLkrRRZ7E/m0fvMfMsjq1SS4 4nrq1FLcbjqH+8HD4PCPuB7DQxLOZyzget+3LcgJW/0DRynXMhkuvgvq+YPr 96rDkE4VixhIDPERuLF1gxO1tvOKQY1m2HMq7gfJlUSampQYuM74u7Xi/mLK d973hrQYqG0nqgP27N4fL3/KisHB2vGPWbg/WX59r56+UQxMP5Ojz4rjeuS5 pCajLgY3Er79WcH9zcViQknYUAxIze7n0gWt4MLeF4u7d4mBTSDSYcFOsD/1 KXi3GKjb67kdELCCj8d+eP4wEwPj5+HrWfmtQOPi0AumrRjcu+oft5PXClhf NGuedhODbHrMt8u4P6eSXhnUX8XPx2xWlMYZ0N/qax/RJAaFpG51Y/y9Ufm3 HPKrRQz0XUWK9xczIIg3MsOqTQxOD6mcdStkgLBB0pxktxhkakePhL1kgHFu 1Z0XI2IQf5acX5zJgBdRoi2ds2LwZ4eThUAiA0J2FJmqSInDtzvN/xrPMaDB DnxjpMXB4KaozyD+fkr6fbw/IysO2i8aKicCGFCQ1f+9YqM47pOavOJnGPBd nDvSVl0cZrn7r53yYID15IGqYENxOBBbdHSfIwPk0hf0mtzF4U/29ekTiAHr k9O3KXuKg3XJbsmCHQygxu3bGu4lDqW++TdZtzNA9NLLjdpnxCE6zz/usTYD uA64C6VeEIdLU+kHOTUY8JOra+z0LTz/1k5n0w0MGFuOGPpwWxwcv1jxMfH9 YGSS3isfLw48Nt/fa8sxoLc/prnjnjigTMYdmjQDPheZlKE0cVDYe/wMQ4IB r9xe3xYsFAfjDQ296wUYkOvodsO9WBx+75lurCEy4LmNaGTVG3Gg0fd0+vAx 4Im+94XAcnG4oKe6vpmHAQliiscHasVh3uDZtgJ2Bpyrubv9Rbc4GCaM2PEu WoLhxsBvliwUqLlvuX/0uyXkdvmdCWGjwAVa5vPFb5ZAifZde8lBgex4iRMi 2L+nTomTCRQQSOrlN/9qCfHvXHf3CFHg7Tabli58PxpztEk/Lk8BwUdbTh7r sQQrkhXt/gYK6Fyt1HzUbQklVRYVHzdRYN2/v8YDXZZwU3lPx2ZVCtyRLdzq 0mkJWvOIe5pOAaNUp7+hbZYQFbf5eIgxBYaXbLao4fvZpLHK1EsTChgn2NtH N1qC46LipRFTCjxwDU7/+9kS1I8o3DVmUCD/2tv04gZL6FKj1hLtKOBzPmLF 5ZMlGA1T9uo7UMCe3sffiu9/uXfEBk47UmDvcuzWXdihy0JzLYcpQEwvy9ry wRKUP/Jsuu9OAf8xLyWpWrzfYK78jx4U+JKgkJhcg++v6hxo+RQFjm49zy+D 3Xp3bf8hXwqkCGdPKb+3hAvHZiM2nKdAAEdYmF2VJTSwjI69vEGBpQc6vSSm JZz8kPNB+BYFChpmfDIqLIEnNjD7zG0KSAuq7tiJvVOez1czgQKPShzcL5Rb wutdGiuvH1LA15f4mfetJewTWB6QSKNA+9hodX4Zjk/7+8pzTyggYT/Q44y9 +YR91PZMCjRvvnmotNQS0q6FiDBfUWDjfukz0SWWgPaazsoUUiApcK/Mbuxe qmjX5WJ8PuHWnWzY4jnpKYZleL+2a04hbyyhwN/n8pNyCtiJ2m/ciW2jr+fK +Y4CwYVNfzmxbzR+Vqp9TwHDuFP+ca8tQenePaJiHQXUPm1Xc8KuOezyL+oj Bax7gnsVsVknZwpMG/H6z2UK1BRbQkpJxd3nzRQI5dSPvou9PezqOeIXCqw4 35s9iR0gKgWfOykw7Td5URxbpG9MbksPBUpUH9wbL7KEvKd5nDF9FBjLPBT7 CfvXNqNP1sMUYP0VSY3Ejlrjz301SoHtWQlPj2NvrOuIEfmG82ODCKcp9mF7 j/1tvyjgapypI4q9Iqups+0vBTy/eRKWCy0h8ecq9e44BTj1Jh9/xdbOr1ud m6RAm/5NrmbstvOxQ3YzFLg8fketHNvXyLH6zRwF8iycJXKwSfwb0yUXKcBl u706GTun7d/V88sUUGK9ohqDbZryxrN3lQIVNtGMcOxvbmGMHawS4GWcpXwO O3yLhUYKuwR0d6mX+mDLzYuR1zglIIs3YPUkdgVzcO4QjwSEtX+eOIbteDWr m8krAbx6MbEu2IvWfm9l+SVgTFOw/zD2XUn91FBBCSirTm3+3/QR7rARIQnY +vX+yf/fb3nefMxIVAJ+xTOe/T/fab8kk6diEhDTLBb6/+8RdxxT4ZKQgPf3 jJa8sbM4twgcp0qA+vfNgmexd3+eH6+VkoCAt5tKQ7FHEypbFWUkYIdY5HI0 duihG0VX5SRAZTy1KRFbWnH//Z8KEvDV5CM9E1s59zS//CYJmHIn8r3+f330 q5cPKknAoYUQnTpsVJI2E6ciATpblt92/R8/KHOv3ywB8YY2Cb+x99W09XGo S0CI1wEmy//na/7PeoeGBJC+D+iIYQfYyenmbpMA5/RPwruwL/fr5Y5pSwA4 dZxyxr7huk9OWk8C+HYWC57FTvOO4o1BEpAWZCT9Cvtz1N9uHxMJqCj9qE7D +dglwMPIMpWAVt7cK/uxR+Nlq4bNJcBxDzfpPPZiqu3zvdYSIOzvWVaLveFN yXlNBwlYytDSOo3rQR19+XfKUQIe3mFZSsLWff/n6DNnCdilMTT8AduqWcZc /KgEdB7UFVPC9XbhR8S6BQ8J3DdCP09jR55OjdnqJQEPZFCAMq7f2Jk3HCe9 JeCtdKH6EewM1j+/u/0k4CdjfVszdqvE3rdlwRLQc5/6sAL3B2VTaeeQWxLg MeJr/Qn3F80m7ZbXtyVgsRJkhHD/gf02xhNxErA5nm/gAPZ+lytqLvckoObX d/nv2KHnfq0aPpKA57fno0Vwf+vKKn7InS8BsbXrVuIqcf/kmxmjF0qAfF+k 9Bi2paeGmkuxBDzbCdw6uD9Wbs4pKyuVgJ0eJ9cPYWfnpXX5VOPf13DW0MX9 9FJRtEhvmwQkJcdtFKjD8as8Gpk3j/P9R+FfNdz/fboET9vrS0JqVqfPEP7+ NNmemghpk4T3WgNXvi9ZgkpUjUxhhySY9RtaOS5bQkSptNWPLkm4uo7a0Ii9 Xa4l17pfEsgzj9sKVywh8982T7lvkjCr+HIseA3v7xrLt6p5SRjZYrp5mY0B dGZcL9c6KlQ7LHmnERhwa+o3n956KhykTnny8OL7wEZjvdMyVKBQfTtOYadG z9/vUKDChGfUv234e81/0OlAxmYqPPbMGH+Hv+djMxtb9iAqiHgbH3wjyAAD pRDWiwZU+JmwBmQSAx44dqm/MqRCipXpGW9sm6rrtyRNqHBTSLxQQYgBFTHj 5r+sqMDTK+0bLsyAeyoltTdcqBC06dLsejIDOn/4xbMdo0LvQ7u+QGxKxpYj QcepUNez8KYR+77C08WjnlRINKk2uSDGgESpmM16AVR4lNLgXifOgO4e08W8 ICq09uhkUyj4/pXIWbvxPBV2bW2sP46dKHb+sHAIFUwanz5gw/eXJEG3uB9X qWAackBBWRLfdxpkDh+6QQVOxSOcPtjrbvSott2kwuvtM9lF2A94rGuYcVRw OfDHUJ+Kzbp94W4yFfYs+ujrr8PjK2bf86fi+V/Js57HXnfxZWxYGhVmVd75 FmEnL25UPZ1OhTKB8f1KUgxImRI6ZPySCv66vk2r2P0v61XK8qngm9FerL4e 3/e8I+e3FlGhXTVq2xHsh7+Xb0uVUkFNnv3vW+zBrGLnuLdUsP45KvMTW8bd V4XApMI2X6MBUXxfS/36rXq6Gp+fV87kMezBx2m3T9ZSwUG70eAGtoyLk/Pg BzzfqYekl/+/398y9+kzPq/K87Kz/7//ILraoBnvRzvVSUwGv3/Q5HZxKxXO Vz3m18R+1PFW+XEnFZ5XB709hT18J2iO0kOFtlsuxZHYcra06pt92JKOEqnY LsJ/YzgGqbAzxmewCDutKcPp3DAV8iVfEOr/H3/zqPL4KBXejsrEDvw/3mL9 3LFvVFigtAZM/D+er6uq5wcVVoeaC1hl8fgPcTHWv6lw5KTSHhL2cKSlU+1f KpT2flWXwpYzJijvmMD5cVTEXRHbhaN69tUUFbKVyv9uxX5cebFKcZYKPvaT 5TrYoyE6MSnzVIiSKmtH2Apo2lF0CTt1E80I23UlV+naCs5ffoNmY+wnpe6z a2tUSI4Wzd2N/R8TSXH8 "]]}, Annotation[#, "Charting`Private`Tag$888678#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ Directive[ AbsolutePointSize[5], RGBColor[0.922526, 0.385626, 0.209179]], PointBox[{{0., 0.}, {0.7, 0.02}, {2.1, 0.06}, {3., 20.}, {3.8, 20.}, {5.1, 62.2}, {5.9, 62.24}, {7., 62.26}}]}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 7}, {-4.211003921315795, 64.65107210921656}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->429984777] }, Open ]], Cell["\<\ Check that the second derivative at the left endpoint is reproduced:\ \>", "Text", TaggingRules->{}, CellID->220235470], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fun", "''"}], "[", "0", "]"}]], "Input", TaggingRules->{}, CellID->561874223], Cell[BoxData["0.09999999999999964`"], "Output", TaggingRules->{}, CellID->757770116] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ "Form an interpolation from data given as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TimeSeries", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/TimeSeries", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->885043363], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ts", "=", InterpretationBox[ RowBox[{ TagBox["TimeSeries", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQeAsAH5fkT+MJZwJAADwP630mZni +ro/X7zfCQmN8D/UO7rRq8LJP3HzOv/uJfE/ARq7MN6b0j+R+okVs7TxPy9O 5PqhOdg/JRcuPqpA8j/0cyBBQlHeP/fT6Vt+2PI/ifphxmYA4j/YYJmaMGbz P+QzPaoaFeU/941gzr//8z9LCT5PbBvoP4rQfBSClvQ/XozydrPt6j8s44x7 IiP1PzyIsNzo/O0/C5a015+79T/jGJHiCWzwPyJw6BMtc/Q/rrtcN27S8T98 Y0NSfePuP98aLatJV/M/Npx97cQG5D/mUFfgH8L0P/rBXMNAvtc/U0OGNG1L 9j8IloYVcFHCP8YDSGmJzfc/ANOAJS2itL8Pm2NfoDX5P2gmwtDMgtK/vu6D dC68+j9WpyLiIH/gv0MZ/kq3KPw/anSDdVpB578tAH1At7P9P13R6Wc6pvG/ HbWOFoY3/z8AL+T1KCP2v3Eg/danUABArBofbBIy9b+HRDUyyBQBQLbQGLSu LPS/CFQa7uXLAUCmcCrooTjzv4zKSBprfwJAopqL/19J8r9Dn/nVK0IDQP6O q+jQRfG/ZV9X8un3A0A+beO9mFPwv7p9N57jvARAvCu0ySaa7r8SA2G6RH4F QBaRQN6xluy/1XM3N6MyBkA6yvzK6rXqv8tCkEM99gZAHJg2W4ms6L8s/ZWw 1KwHQMg5oMPVxea/kB7ljdNfCECpR13ipwPhvyeetvoNIglAwOMvZtPUvb8p CTXIRdcJQKKRmK5DVdE/XtI1JbmbCkDCAT/k3NPlP/6G4+IpUwtAYGLO2zSI 5z+hotoQAgcMQA9h2x3/M+k/dxxUzhXKDEBXz4IhBQTrP7iBeuwmgA1A7nIZ tBi17D8sRSOac0UOQB6GSghoiu4/o28VuCcHD0Cwm3zTlCvwP4WFtDbZuw9A +I5LanwC8T/N/Goi4z8QQA265+GB6/E/jCzSWVibEEDHf/sgDsXyP80PXkkB 9RBAixROhVOa8z8nIqsASFYRQBrhbcq2gfQ/N6pOaA2xEUBSSAXXoFn1P2Bh s5dwExJAVedpxKhD9j8LzDx/B3QSQDb53rsOnvU/a6wcFx3OEkDPaXxlG0H0 P+W7vXbQLxNAnJfwZKfG8j8UQbWGAosTQB4oTyNmZfE/XfVtXtLtE0Cq6whv SM3vPyddS+7VThRALt7lebLd7D+nOn8uWKkUQKKVqqjk1eQ/QEd0NngLFUAA 2hMw23dfv4/Jv+4WZxVA3be/x+1V5L8RBaV4z8MVQE0FvfMkIfa/FGnWUw== "]]}}, AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, 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, "ScalingFunctions" -> None}, PlotRange->{{0.016965744360214943`, 5.441221219515277}, {-1.3835839848642877`, 1.3915183708581556`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], GridBox[{ { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Time: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.016965744360214943`", "SummaryItem"]}], RowBox[{ TagBox["\" to \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5.441221219515277`", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\<\"Data points: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["11", "SummaryItem"]}], "\[SpanFromLeft]"} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQeAsAH5fkT+MJZwJAADwP630mZni +ro/X7zfCQmN8D/UO7rRq8LJP3HzOv/uJfE/ARq7MN6b0j+R+okVs7TxPy9O 5PqhOdg/JRcuPqpA8j/0cyBBQlHeP/fT6Vt+2PI/ifphxmYA4j/YYJmaMGbz P+QzPaoaFeU/941gzr//8z9LCT5PbBvoP4rQfBSClvQ/XozydrPt6j8s44x7 IiP1PzyIsNzo/O0/C5a015+79T/jGJHiCWzwPyJw6BMtc/Q/rrtcN27S8T98 Y0NSfePuP98aLatJV/M/Npx97cQG5D/mUFfgH8L0P/rBXMNAvtc/U0OGNG1L 9j8IloYVcFHCP8YDSGmJzfc/ANOAJS2itL8Pm2NfoDX5P2gmwtDMgtK/vu6D dC68+j9WpyLiIH/gv0MZ/kq3KPw/anSDdVpB578tAH1At7P9P13R6Wc6pvG/ HbWOFoY3/z8AL+T1KCP2v3Eg/danUABArBofbBIy9b+HRDUyyBQBQLbQGLSu LPS/CFQa7uXLAUCmcCrooTjzv4zKSBprfwJAopqL/19J8r9Dn/nVK0IDQP6O q+jQRfG/ZV9X8un3A0A+beO9mFPwv7p9N57jvARAvCu0ySaa7r8SA2G6RH4F QBaRQN6xluy/1XM3N6MyBkA6yvzK6rXqv8tCkEM99gZAHJg2W4ms6L8s/ZWw 1KwHQMg5oMPVxea/kB7ljdNfCECpR13ipwPhvyeetvoNIglAwOMvZtPUvb8p CTXIRdcJQKKRmK5DVdE/XtI1JbmbCkDCAT/k3NPlP/6G4+IpUwtAYGLO2zSI 5z+hotoQAgcMQA9h2x3/M+k/dxxUzhXKDEBXz4IhBQTrP7iBeuwmgA1A7nIZ tBi17D8sRSOac0UOQB6GSghoiu4/o28VuCcHD0Cwm3zTlCvwP4WFtDbZuw9A +I5LanwC8T/N/Goi4z8QQA265+GB6/E/jCzSWVibEEDHf/sgDsXyP80PXkkB 9RBAixROhVOa8z8nIqsASFYRQBrhbcq2gfQ/N6pOaA2xEUBSSAXXoFn1P2Bh s5dwExJAVedpxKhD9j8LzDx/B3QSQDb53rsOnvU/a6wcFx3OEkDPaXxlG0H0 P+W7vXbQLxNAnJfwZKfG8j8UQbWGAosTQB4oTyNmZfE/XfVtXtLtE0Cq6whv SM3vPyddS+7VThRALt7lebLd7D+nOn8uWKkUQKKVqqjk1eQ/QEd0NngLFUAA 2hMw23dfv4/Jv+4WZxVA3be/x+1V5L8RBaV4z8MVQE0FvfMkIfa/FGnWUw== "]]}}, AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, 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, "ScalingFunctions" -> None}, PlotRange->{{0.016965744360214943`, 5.441221219515277}, {-1.3835839848642877`, 1.3915183708581556`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], GridBox[{ { TagBox[ TemplateBox[{ RowBox[{ TagBox["\"Time: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.016965744360214943`", "SummaryItem"]}], RowBox[{ TagBox["\" to \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5.441221219515277`", "SummaryItem"]}]}, "RowDefault"], "SummaryItem"], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\<\"Data points: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["11", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\<\"Regular: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}], RowBox[{ TagBox["\<\"Output dimension: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["1", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Metadata: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}], RowBox[{ TagBox["\<\"Minimum Increment: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.09933622898917749`", "SummaryItem"]}]}, { TagBox["\<\"\"\>", "SummaryItem"], RowBox[{ TagBox["\<\"Resampling: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"LinearInterpolation\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], TemporalData[ TimeSeries, {{{ 1, Cos[1] + Sin[1], Cos[2] + Sin[2], Cos[3] + Sin[3], Cos[4] + Sin[4], Cos[5] + Sin[5], Cos[6] + Sin[6], Cos[7] + Sin[7], Cos[8] + Sin[8], Cos[9] + Sin[9], Cos[10] + Sin[10]}}, {{{0.016965744360214943`, 0.9973865299845299, 1.24591736467102, 1.8114088692820352`, 1.9107450982712126`, 3.013995043949912, 3.323754146542503, 4.551557869716615, 5.13709169763333, 5.334143602077121, 5.441221219515277}}}, 1, {"Continuous", 1}, {"Discrete", 1}, 1, { ResamplingMethod -> {"Interpolation", InterpolationOrder -> 1}}}, False, 10.1], Editable->False, SelectWithContents->True, Selectable->False]}], ";"}], "\n", RowBox[{"ListPlot", "[", RowBox[{"ts", ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.826810454883816*^9}, CellID->624038713], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQfXzn9ivl8RPtGcDgg/0mlR/q01+9t9/LGe+/T/qb vUjtG27395/t27/51x3vv29/kunK3fbff+xrDCQWf9N8vV9a+GBx5qR/9jsW Rn/Sn/htf+BEhvyVMhwOxz6vst0/++n+7IO/MnmmczlMvSjvsu/EU3tZZcFp p02EHAREFxswTP5mP71X/Ehij4jDNOaAD48YXtszRvfs1QwTdXBjdhA///7+ fvOqC3XnD4s6WN6t36+q+G0/qnsZGGDuhfFh7oXxYe6F8WHuhfFh7oXxYe6F 8WHuhfFh7oXxYe6F8WHuhfGHWvgCAHSn0KA= "], {{{}, {}, {}, {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{21, 10}], LineBox[{22, 11}]}, {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}}], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 5.441221219515277}, {-1.4104461161715403`, 1.4108888530620938`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->696224398] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fun", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", "ts", "]"}]}]], "Input", TaggingRules->{}, CellID->196246407], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, 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/CFib1JlAgAAADwAAAACAAAAQeAsAH5fkT+x4BgKAQDwP8Cweabi +ro/o2b4SFJC/T/7kyTfq8LJP5x5OLnmtwNAoVGyOt6b0j94gxhHnLcGQAg1 DQiiOdg/+ipEdtA3CEAQWMBRQlHeP2pOxsJndghAd9JP0GYA4j92gj5U7JoH QLaY67UaFeU/suPcKIW7BUDXzKRcbBvoP96S/GNqLgNA4xX0hbPt6j+IaX6I eWEAQMB+b+3o/O0/iADjeEI9+j9EfsDrCWzwP0rhCCViKfQ/GfRXQW7S8T8i E/2rqDztP9Z5BbZJV/M/fR8TSH4K4z8ICv7rH8L0P6aDl+9tDdg/I6oMQW1L 9j/8ESNW7+jKPy8BqnaJzfc/gKmlhKgAsz+wYpJtoDX5P/ivPBqCKbK/GdSQ gy68+j9O7US9r9PSv/hP2lq3KPw/g0OX/89n47+/2zlRt7P9P7FsmvKwlfG/ dx4oKIY3/z/+6uhLg+n5v9K1MOCnUABASTNR5jPp/79cZNg7yBQBQI64wDLm OwLAIZgl+OXLAUA6dfI0t4MDwGAnuiRrfwJAHLGxRwIKBMCSvtngK0IDQD7A luE/3APA/tqe/en3A0CyFCcatQ4DwF//7qnjvARAzjdKWWORAcA5f4bGRH4F QC16zu6AG/+/ToTDQ6MyBkD3tMjuan/6v1aRi1A99gZAzJy9Ccu29L+ZI/m9 1KwHQD2hwu2AbO2/VRGum9NfCEAFlxyT5sfgvwUH7ggOIglAuGwO7J9Mtb/w gdPWRdcJQCj3SN7H89M/zgRENLmbCkB0trpAFQvmP+cMWvIpUwtATyXjLekE 7z95cLcgAgcMQLeTr8Q/3fI//9uf3hXKDEAjQuBOj3n1P8DMLf0mgA1A+Bhf bDUU9z90xUarc0UOQA8mXw0yD/g/oRmnyScHD0ABcOCU52f4PwrzrEjZuw9A 1AyxOzVQ+D8z6p4r4z8QQMSd1fza5/c/fh06Y1ibEED/vx4JEV/3P4X++FIB 9RBAEXnbK1TU9j+HY30KSFYRQGKhHoGmXPY/JotUcg2xEUAmzlVVrCv2P782 8aFwExJAF1o/OOVg9j8UkLGJB3QSQK5w3h2vHfc/B6zEIR3OEkA0ENnT/f73 P/RLnYHQLxNAUBwRW72O+D9+rsiRAosTQLi6BssDJ/g/ApW5adLtE0AWK1mO HhL2P0IpzvnVThRA1jRYQq268T8ggDU6WKkUQFJpFSlYIuY/+FpiQngLFUCk BF0M4S6wP2344foWZxVA4mHHTYg/5L8RBaV4z8MVQPQELPIkIfa/j9XJIg== "]]}, Annotation[#, "Charting`Private`Tag$888231#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}, 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, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0.016965744360214943`, 5.441221219515277}, {-2.504887161360001, 3.0578150955932886`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ "0.016965744360214943`", ",", "5.441221219515277`"}], "}"}], "}"}], "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, 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/CFib1JlAgAAADwAAAACAAAAQeAsAH5fkT+x4BgKAQDwP8Cweabi +ro/o2b4SFJC/T/7kyTfq8LJP5x5OLnmtwNAoVGyOt6b0j94gxhHnLcGQAg1 DQiiOdg/+ipEdtA3CEAQWMBRQlHeP2pOxsJndghAd9JP0GYA4j92gj5U7JoH QLaY67UaFeU/suPcKIW7BUDXzKRcbBvoP96S/GNqLgNA4xX0hbPt6j+IaX6I eWEAQMB+b+3o/O0/iADjeEI9+j9EfsDrCWzwP0rhCCViKfQ/GfRXQW7S8T8i E/2rqDztP9Z5BbZJV/M/fR8TSH4K4z8ICv7rH8L0P6aDl+9tDdg/I6oMQW1L 9j/8ESNW7+jKPy8BqnaJzfc/gKmlhKgAsz+wYpJtoDX5P/ivPBqCKbK/GdSQ gy68+j9O7US9r9PSv/hP2lq3KPw/g0OX/89n47+/2zlRt7P9P7FsmvKwlfG/ dx4oKIY3/z/+6uhLg+n5v9K1MOCnUABASTNR5jPp/79cZNg7yBQBQI64wDLm OwLAIZgl+OXLAUA6dfI0t4MDwGAnuiRrfwJAHLGxRwIKBMCSvtngK0IDQD7A luE/3APA/tqe/en3A0CyFCcatQ4DwF//7qnjvARAzjdKWWORAcA5f4bGRH4F QC16zu6AG/+/ToTDQ6MyBkD3tMjuan/6v1aRi1A99gZAzJy9Ccu29L+ZI/m9 1KwHQD2hwu2AbO2/VRGum9NfCEAFlxyT5sfgvwUH7ggOIglAuGwO7J9Mtb/w gdPWRdcJQCj3SN7H89M/zgRENLmbCkB0trpAFQvmP+cMWvIpUwtATyXjLekE 7z95cLcgAgcMQLeTr8Q/3fI//9uf3hXKDEAjQuBOj3n1P8DMLf0mgA1A+Bhf bDUU9z90xUarc0UOQA8mXw0yD/g/oRmnyScHD0ABcOCU52f4PwrzrEjZuw9A 1AyxOzVQ+D8z6p4r4z8QQMSd1fza5/c/fh06Y1ibEED/vx4JEV/3P4X++FIB 9RBAEXnbK1TU9j+HY30KSFYRQGKhHoGmXPY/JotUcg2xEUAmzlVVrCv2P782 8aFwExJAF1o/OOVg9j8UkLGJB3QSQK5w3h2vHfc/B6zEIR3OEkA0ENnT/f73 P/RLnYHQLxNAUBwRW72O+D9+rsiRAosTQLi6BssDJ/g/ApW5adLtE0AWK1mO HhL2P0IpzvnVThRA1jRYQq268T8ggDU6WKkUQFJpFSlYIuY/+FpiQngLFUCk BF0M4S6wP2344foWZxVA4mHHTYg/5L8RBaV4z8MVQPQELPIkIfa/j9XJIg== "]]}, Annotation[#, "Charting`Private`Tag$888231#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}, 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, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0.016965744360214943`, 5.441221219515277}, {-2.504887161360001, 3.0578150955932886`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ "0.016965744360214943`", ",", "5.441221219515277`"}], "}"}], "}"}], "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 -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{0.016965744360214943`, 5.441221219515277}}, { 5, 7, 1, {11}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{ 0.016965744360214943`, 0.9973865299845299, 1.24591736467102, 1.8114088692820352`, 1.9107450982712126`, 3.013995043949912, 3.323754146542503, 4.551557869716615, 5.13709169763333, 5.334143602077121, 5.441221219515277}}, { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22}, { 1., 10.782322753740859`, 1.3817732906760363`, -4.235772826242115, 0.4931505902785393, -2.5446012928925597`, -0.8488724885405782, \ -5.219350772184007, -1.4104461161715403`, -5.491041451459171, \ -0.6752620891999122, 4.558830407887075, 0.6807547884514401, 3.558342061173495, 1.4108888530620938`, 0.4442053454566916, 0.8438582128147682, -5.063463200472125, -0.49901177664292035`, \ -8.036618578503298, -1.383092639965822, -8.319920066371822}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellID->733126529] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"ts", "[", "\"\\"", "]"}], ",", RowBox[{"ts", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]], "Input",\ TaggingRules->{}, CellID->586073618], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3k8FF4Xxs2MZezGDC0qhUSblEol5ygpJVSStWxZIomkVEgqJKFS0oJU kiTFj6iZyJJESNnJElnKOjP2975/+Xw/Zuae5XnOvWeJw4n9R6kCAgLHaAIC //971P/StsAj0WA31wUpAoNwalR5OI55Ez5X6BvvNhyEEM9PiW9LboHq49mm dTGDkOwgROnVuAuDbXSNP0pD0Ln7KttM4BHUm5hc+gXDkHl9x6Lbpk/BZriu UcN1FOa9St6bxX8N1kI7i/19+HD/a8R43tFMmNUYW7r8NR8W9596UlCdCcX7 HWID//JBTX3HdGXaGxDJ97Ve6DoO2o+70nrtsgDznc3UD02AxR1VicWfc4Dq /nDwucoU3A1MKQuPY8OoTvmeywGzkFmkdatFhANlVpdjI7Nm4c4euULeNg5c UKnI0+qfBYdDPxYvz+XAi1B3nZUrBXDc06Ip8slHGDBbzKfECqDqQ5sDFgGF 0F2hpB1pR0EJla3BJ3MLIepT7qTwWQoOPV/4Ony0EBq2qA+bRFMwP6tF6v2x T2DUMNaz/yMFD3y1K1tyqAhkaLS5ixWpGDTlpNenUQKirj8MB6uo6By8w0vQ vQQ+BGaGnO2m4h666qOFT0ug4hPvv+9TVJRndU+ZLCiFTorSWcoyGr5c4Zbz lv4ZTp3KDNx4loYNVsc1An6VwcTDNPfVcoK4Ltd3IeNmBdSp7VsttVIIDz+6 kA1lFbD+aum+2c1CGHr5soknpRKSaH2uXwyFsGnf7YtfTlRC37WgilFnIdzm 2zC8TfUbrDWZOx35SAj7JCfMp6lVkLfTeN6YqDAKUAIe31pUBWuK2LsS5IVR fpQyuGJzFXxeP695mbIwYoNomNXJKshYWhNVvkUYbz2dl/dfaxVoZ11P9XQX xq2wSdE7vxpcN5+sU/8kjPvXvncXrasGM7XUZU8rhNF1qV5Owkg1nGsR2StQ L4wx4ob7KpfXAKcu6LTxgDD+/mlxaWVcDYj73ywzY4ngZFlTZeHbGshZtHBf wUIRlPlgt8D6Ww2oc92cpZaJ4OZk16wwke+Q7H0/btsmEbzhdab7t+936JS/ kbLQRgSTHafWBUR/h5RimxXBTiL4zjwoSO7ld3jPjBgr8hDBTp3Qefqd32Fx 3uH8vvMiqC16d0/i/lp482YmLjNeBH8l/vfKWuMHbBo5X6xXI4Jqi7w8XXf/ AN39e0ou14ug1z21Vb5Hf4DAEcv/XrSK4ExMXGpk/A8YVl+T/6BPBOeHnHvy UeQnBCim5i6g0tFeQMupQuknrLly6La3CB1TzvcrNW79Ccv6tki9kKDjRl/b hFGfn7DY4snqT/J0NHOG+GVtP0HZoik8Tp2O8e08S63Jn1C2W/m18Go6th/O mKsnXwe6EXeVDq2l48lDS2KtjOqg/LGobtJmOubU1Ju5uNQB3fgS84EuHQVM Y5inguvA7J/qtXPb6Bi5ixZ9PacOHNjd/3UY0rH2U57JvZo6MCgIvnt8Lx0X 6J2Seva3Di44bfduNKXji01d1zgq9bBKQ9PV8RAdS5eXXBmJqodTfgkfVB3p KP0scIdAWj3US+3+XH2UjubK2oKSJfWwIFbmnKMrHbsUnl9Una6HgAWDy9cd p+PKu/a4bm4DfPh3xcz7BB1PsebPwroGULLecD72JB2pktfOW7o1QExSw4JI Xzoahm3f4hzSAJz9ez/a+9ExSmhq3PtRA5hv//5u/lk61l18mxP4rgEcDq9W zPWno+KMh19EbQNwr88X3Hqejs7+SzfEDTbA0vxDgU8v0DGd2zz6RLwRZqqT n44F0HHMO/ZNpmoj3Mzn3FgeREedf8bebL1GGHU4ZrrjIh0vuYtolts0wroM u5kdwXQs62b/q/NrBIdIh1crL9FR1ulMeldMI0R3rz47Ttiybc3x4ZeNUPUk 5GRaCB0TbP6smC0l33+jlL7jMh176hJ7xTsboWy8RL+IsMZBq+dzZxsh2XHd nhVX6Hi6StZ16fwmqG1Q/ulH+P3eL6pr1zeBh6HFTCphwbJLXbqmTXAu7saP T4SNDHSS97g3ASsr1LeI8M2CUQeLK01gcIU6lEa4QfflkqOJTaDCyzt8jrBS 3tG2k/lN8GHI5/sawm4bFz0K+NkEqnZ/XL6SeDLe/LC9NkzOW9m4eh9hQ3ch 0Q7pZlj83/YL6SSfdiWtt5tXNcPd0nfVf0m+5xocjsTsbgavFdQ9soRZMdFi vS7NoJvaSJlH6vXSkJOld7kZ7kuLMmmkngaUf3ZxSeT3VI3ufQukY2vOQokh djM45Ti/uUj6ccbL6L9dzc1AjZ7vL0/6xVA755Aw0Qwx/upiN87RMbX1uSR/ Tgs8h4OBfaT/TcYiTs/2t0D9FbFQ09N09BXeID17ogWWPJxzwPIUHaU+OL0z v94CB/N2eRt401FvVYGMcGkLtGsuWlBB9NjQOZhn29UCHosNWlzdiR7vK7pk UVthO8Q59hD9PhW/8N5payvoapeqxhK9Q+EL13yrVoh6tuz+JzuiP/8GJutM K9w6mbu9zpaOYr0bjxVmtoIEnrv7ivjlcaKznMK3VsioX33Bx4zoy/I2x3ug FVz5CrSF+4j/nc6KM1ht4PHvuf2S3aQfNT/sOcZtENRf7D1M/LxBw3Ojh20b 2P08c+z3BuKPa0KScz3aQP6+9y8O8f/9bVo5J8LawLlZP199OR0rXkdLKX5q A13X2NUVc+h4T1K9s6y6Dc7tzlUfl6Wjixsn9/SvNjC1XhssLkXmw5J/ThUz bbB83ep3v2l0XBtllHdh0y8w7Aww8f9L5ltfR5T6rl8g4HRZt6NHBL/sPOdc a/4L5FwGXbU6RNBp9jlj1alf8G7JZMuNnyIY6yni2pT+Cx5Gy1muZovghFEB a4tKO2Div4ol4SJYF9Sh36/ZDlpdJstvXRLB7LeCvg+gHf7uNjowQubxyQU7 a2et2qHc39L1zAkR7On7cvtTdDsMHr0sn3BABGvDa+WNZ9vh+0ZlvbNzRTCj tGeufUMHfNnkyx68JYyRU6KGsj0dcG+n5WW1CGF0X7PibOFYB9C96ntNLgmj 6t3j9UsZndAs/ffv8ZPC+MBlOK53Zyesuqx24I+RMIYLT80/ldUJ1qx2wyEB YTyqL73walQX5Go5t3XYCmH/bfdC20dd8O328m3m+4XQu7vETSu9C3SazN/l GAhhUHhQ9q8vXZB8osjOWEMI730bMtER+Q2lUtKp7FlBrLD5Hjx04TfcW8Qz rnkgiNq+cT3W7t1wXnht99VKGoo9VX67xuAP6NGl/T2lqTi66nN0aG8/VJVY iilETAHLdjhUQW0QuOknE/fsGAOKskziWY1B8Om4LHtIdQz+9qzK/blhEBKd hNU8RMag9JTbn5s7BmGlj/6St59H4VxEm6GE4yD8+nLB56PxKLTnVYhNPxgE r4JVX6nWI5Ax/0VEC3MIgvyLRFIvDMGDttJkHYUhkMi/PWNuNwThT3/n3yPv Qjx3M5G1fQic1ioNmGsOwce70l8L6EMwZ3fc3krjIaBY17QN3hqEgLNXpThh Q7D/aZJjuP0/2FPnGJU4OwQ9UTWHMv71AYYXHwwWHobk5xUiD9/3wQYddQVH yWGwu8elZF3rg8UJf5+oKAyD6d22bXZqfcB1OZv3bMMwOLKejmc59kISL/L3 y+PDQA0Gk/T2HuDLv9N51zgMEj//6RwQ/A1/SxdQ49uHIfsrJUShrgs6/ANL zv0ZBktovjw3rQsqWvT3b+UNQ9kyQbVMM9K3p5UuHNkRoC+I7zme0gkmG7pi ig1HwEd4w4lDVh3w9KDMn+r/RuC/K45aPr1t0KMuIB79YQQSJMpCtxYTH838 W2lSNAJiye1XdiS1QfrTSq8v1SMg2yFVL23dBtm8SH7hwAh82Lni6upHrVAc J0nPUh6F7C/Z54dCm6GrWWzZnRuj8LBgv63p23pQzZzYdTB2FH6YNDU99K8H 1yu9x5gPRmG1ZJzxAb166F9dln4jdRSsDnZ/+VNZB6OBYRtCi0bhXYlvyKuh nyCoRDc4OzkKSTdNkjIMfoCKs9BRa5cxkPqYqK2oUQObP8tuS/Mcg98XzrYo TVXDvpWLFad9x0D+dVbI6c/VEDC8uf5hyBhQa4tc6UeroS7Aa2974hhsuL4q LeNRFVy707jerWkMuJGHRTqXfIPh0tfCfvu40P+qLOZdQhmwVxxOidnCg3La aNwzJgda/DPWOm/jgWnZ86LOa2yY+kx9v8mQB/yQNemOgx9gs+uzqjZzHgQt FB4Qz30P2cmDE6u9ebAmUEnw2q48SF94ae+XFB7ILHySeswmGx5KpwzT5PkQ JDpW/+1kCrw/PHH+5wI+mAarNe1UeQZNL41EXijz4VvKWeUztU9gvtGQwn5N PmT4upj9WvcYYkM370gw4kPbCxU6hx0PkZSvd3Qu8UFA+Nx0l7MfBIwM6fgO ks83PdPIc0hme1fZBzfy+MBZaG66SPwp++irqhK9WXL+zpRGo+xnbCP31/ul pMaBs+LwrLbcC/b8Di/XZyvGofRyxLXtkxnsrOp/N+udxyGol/7WUS2HnZJx pB48x+FuTfbDKLlc9v3IykVPfcdBxoZaf17wHTt496vn3iHjsGa90OPn3Xls 0wJPtnjSOOCpD1ZDhWx2/+uB3q3N4+CxNbrzRn8hu+2G7ZrkznEw7feq9/L+ xK45/tVXrH8cFuOO7YfHP7Hfqb8U+DkxDmpGcs/dxIrZoYke8l5zJ6B/+UGV 6E2lbJXoPr2kAxPglX6UEVtRzrb2+nNXuGwC7G6uKAz1qWHf8/q9eXfVBFRH WRfZldawG7w6mq7XTcBoJN2oa+F3ttXJ5sVy3ROgkm2wbryMsHdVirLgJMyv NAk6ueoH2+pUbg7qTkKO0unyclY9+96pbKuQHZOgzEdxCd96dsOpN1MlRpOw zHurgOSPeraV70s0sZ4E7nltS8t7DWyr04mltmcm4YbEuhZc2cS2OhNW5585 CTLiCv0+p1vZ985c8f+QOwmPeGXBxzta2Q1nLi2gfpwEm9gMgUdqbWyrsxfs wionoaTc/OLbO4T9T/bc6Z8EU2N7eeFzv9hW5y35b1WnoFbxSN9P8w62ZZD6 3H/3pqC9/uLiepdudpKHu0tW4hSUDTvPHk7pZvdavMw+lzIFm0ozc8z+dLPP a2oepGdPgVHGo7Zojx72w3btmCVVU1CekiXjcOYPu11/l4SZyDREvaF8rnjS xz4m6iKQ6zMNhw+W1z9SHWSfj0nuCTaaAWrng5JzomPsOEnBkcYDM+DmwazY s26MnR3qOK1lPQPrvf9NTdiMsQcDlGS73WbgmbSQ5N9XY2wn94Qte67OwNMd X6/8OcBlG+nfj2QWzAArpWbn6xgeewH3plbyxllosuPJyPeOszedHNGd1p2F zqpn/m2SE2zz/v2G5gazMEdoy9gZzQl2VDvjMP3gLGxcDA6sMxNswcobVz28 Z6FwpZYAjzrJ7n92rUHr5SzIvbt4wl96it2SpsdxYAjg7oAVm0ZoM+yTbcz7 31gC6KvpFZ6iOMMWZP32050rgBc2hupobZlhq58L15ivKICZi85OVpycYZ8y rHlYRfb2rGvGnszmGbb4b6cLuEsApU4Y+nW+mGVrK4ZuXhQogPF/dnwOuS3A +bLfSj4iWAAvmuxaXJMgwDl8ZeXw+GXy+T+VoZJpApxLA9+e10YIoJNaTKpB gQCnIm/evOv3BHB4sGGsbECA42TxgjeZJYBKJ3VrluhRONHRFW/r+wWw1+1A 96Z6CicyQuNv1KAAtmx/1f+9ncKJuBq1bNeoAG45L33Lsp/CuXJh/73sSQGk Pn/erzhL4fi7/Qi8KUbBTotmdqIyleOg17J7rxoFM7cJFV50pXKO6ECI4EoK zmtOnJ/nReXYbEx4n6dBQQdL38ctZ6gc81UOa5ZvpKDX3esenaFUzu55v+VE DCiYEKvws+8ZlbN2aKCN40jBiUKv9qFfVI5Gv/H8My4UPG9+OrC6h8pZ2f3q gIY7Bc2Nu5oe/KNyVJtPFj/wpuC4VPnU6BSVM//z2Av/ixSU2nzwyxN5GmfO J/MuzcsUPGOr69y8gMZhsf9b9CeU/P6y5aICyjSOVNbZ6ENRFFQ58CNcWIPG oSZOn9Z6RNh13pl5BjTObPzhjL4kCjouz9ibuofGmYpl/0l6SsHTte3eqvto HG7ERRtGOjn/Sk9lmzWN03tGaNvffApeey9ZediLxqk2lZRMaSD8PDj76m0a Z6zp7ejeFgp6bBXpeR9H48x1s2ka+UXBlSHKmW0PaJwjF1+8gD8UPLBdcG3/ Exqn/7Xh7p88CuptjPyqkEXjSOsOaV6YpKA2g5/xXw6Ns7bs7jzlWQqyvuV5 YT6Nc7a9u8dTmIrBcmufzS2kcYSZV64Ky1ERPCnNnZU0jvqjVSfS5lLRb5FD VE81jWO0otZ8/wIq3utqcayvpXFubldRfahMxSdVkteDG2mc7MovkvrLqCh1 KWNkcwuN02DtM/ZnORWdnEzvt7XROItPFXxav5aKLZWutSNdNI6+wLG0xvXk /N9Vp+17aByXCMati5uoOMdg3vn8XhonPdnO8StSUX5c+fvmfzTOltoZylET Kp5uNn1myaNxDts//SN2gIpvemvM1o3TOMEDe6syzKnY6c17PjFB45QKPUiY sqXiSknK8f0zpD7R+qFJ9lQsevGzr32W1GdR/4ldR6l4sEVDy54iyDHfsAVu eVDRYa7B9mWCgpyzBe2qm70Ip43OPyEkyLlvHC7V5kNFmwGhlmRhQQ6nQZN7 2Y+K0UuGb5WKCHI6nOubV5yjov4NzV0NdEGO8EhQUVUAFd+e1xFoEBXkLA9U e+kXTMUla64VlYgJcvaKf7u18AoVK/7dTngsLsjxuuN3vjCMihOU2rjjEoKc m8qKTm7XqdidxsldKinIyX5VvEc6morfN1TRywk3bPFcl3WLitTfATfspAQ5 0yVyCtZ3ST0Etpl3EF5s9p5KuU9F1a8xR82kBTn6bU69Tx9R8WH0n6I3hF08 JKqNHlPR4taHQIqMICec/yZ3+CkV7yqEx28l/DLEOvFuKhXvH/+0xJXwNxla mG46FVO+dc2/SHj0fqpX52sqToY73wglPEd9v0V4Fomv/cPVAMKbs8hdnUv6 tchFwpHwYb3EZT/ySf4hP5duIHzx6y7p8xwqsqxCm3gknmTLQe6ST1S89XtI O4VwufXm9WElpH4u0SbGhEdsQ3wGy6jY5rvLqovkN9+u4vWhCioaX+YdOU54 m8PcwQ9VVFwrFujym9TnmJPDatVaKnLOsP1MCUc7p3lcryN62BF35wWpb9sx /GPdSuIrvbdkPak//Xj4ssJ2Kua7XIpzJP3ROPH96PLfVMxcf1XnEulfgI9r O7+fildWOyjGkn4/9c1cbDdIxXK9CY8woocKv6nDJSNUvG2mQfEkell4Pqrx 9gQVLxsOzxWnkfoHNMybnib5svRSC4nePIJULJwoNJxIT39wXECQkx+S830t nYaxqq7Ft6dpnM4rVOY9cRrm9J0SZU3ROOJhRvso0jSk7lcqu0T0bXW97Wul HA3bqttaNxI/BN9YLrFxHg2bazO3nR+jcZ5Hn9r9cAENf+x+pps5QuPwb9NL PJRpeMX67MIR4qfYh2s4opo0TP1qvPFzN43zIcF/xkuLhpvlPyrHE392JX3S qdtIQ1dvy7bDHTSO1jOL3Ke6NPTeENCVR/xd8yooc7sRDSmPVdrKv9M4E6/L BlNNaGigaya1mswLpbcsDdkDNKyIfLn9Ipkn3jkpL9osaXhu8ZHW6c80jszH b8kXXGgonL873vQDjaNdOL+j8xgNl/5nVrgtj8y3IqclRp40XCkaob6MzK/0 z/wH831p+ClYsLz4NZlH1Yvv/BdMw4aLz9UdkmmcsA6vsKEHNHxgq24kfZXG mf/ScGlSIonf9WJDTTCNk3Za6eP+JzRcFTb0ITSAxvkm+p3/Jo2G1V/UXhb6 kvm6ZqPr6Twa1t2wYgU60jhPz08bTNbRULBLMJepQ+Iz+NH+oomG3dl3P/3a QOOUSb8KsGmjYVB8YGaCJo0zkGSX/b6bhtPWBy2GVEm9PhcuDeLS0Gv06scW GRqnQC5cUIgliCcPbs/6/31l1uqQkDVHEOe8K6BUN1I5v1O26DgrCOKK1d/y H9dSOaI6Az4lSoJYTUtOVPhM5Zg6mHaEaQrioUexCodfUTmt6fIFUiaC6O32 69z6s1TO1M7HgXPDBTG2sXGnO5XKibm6yDv8uiBenVx/R2aSwlEriXOaihJE 1gX/ZakjFI6ZQZRh2x1B3KC1Z9m7Tgrnpf4FZsoTQeTblLgbF1OIXw892/hR EKP6RA2Mr1I47M3ileZ8Qbx5O3N1swCFE7zKZ9FtZyHs/fg1KvLZLFt3Ros9 5iaEc01TvStvzrInK7hHzI8L4cSFsFXTgbPsU17+iXNOCWE7n+WkaDHLPvrm osq9i0L4eHmRUZDILHvXpqjlj+4LYdzZjEq2wwxbasfLDc+rhTDicfvbm+LT 7DibbuP3usL4da5WcaD6BFvXWbJDR10EGz7MsV0xZ4TNHfymKCtIxxnvmJMu Vt1sHXMDju4QHafKFGTKS0rZTCG7YfkGUXymnThaduA7VP8qe36uWRQP8ZT6 tEu+Q8yH9fZtbaJ4u7d4mdPmWpA9I/7tebco+tlWufxT/AEyfdkvdcbI52d8 Xhd2/wSpKkk3BxkxPHZeojXHrRHoD/JaXxqI4RXPDUmcub+g9KzqHdndYiT/ llU39v6Cq+bRxn57xVDKSWT1muBfICzj8h7NxLD5hahwT+8vELokG19jL4YN fxkeKu/agermZj5+XgwN3aDM36QTprXmfNV/I4Y+z2ytlA50g2q9TPtwthgO dfi4B17uBtMLYryEd2K4okh05MF/3ZBcNL14+qMY8hatH1JU6AEj885TWd/E UKRKyn9Law/E+71eoPpXDPM3juj9s+6FTe/2eIioiyP/YMqXrWoD4HB4x8Ws leJ4TF0IJA8MQAQVYh3XiONE3++QpAsD0LZ7LYe9URyTu3OZitUDENo4l3XG QBzXWilJOZ35Cz+nuvJ6HMVxVEtpYsu7f+ALQeJlD8XxA43WIy42BMmWC/w2 JYljsXBwXMH8Iaj2yWlPeSKOg3NW/7RfMQSrUwZzr6aJ43L7Mg0royH4LWPv uuOdODqd1u1Yd30ILNr1iji14ni0yz3/jtgwbL5MC/xPQgJzEm4Hh4wOg+uj R72qMhJYmIHrXakjEJu7xTyWKYG3MwU2b5AZgZEBn1W+8yWQHnreO3rFCKSZ dzauVZNAPfvIlQb2I7BQrUg7fbsEnhb2Xp1VOgICX64MJ/tLoGn38BuJ0FEw O+0mQQuQwLZT5zwX3hyF50uMVO0vSuCNTH8RhYejsP8Mw2phqAQeazQVa34z CslL73+8fVsCjTQuf77QMgo7g15HXckg5+lZtG5dMwb3V9xK7Xwjgalb6j4p bR6DwR+nP237TwIbrB4cHts+BndX6fBn3ktgQfKxTsdDY9DbUHzE74sE9mZu fuVyYQwi1zetdv0tgbPzJoflisegve3DruI/EihfbmnXVDEGGyMSHVQGJDBl Tvmh6J9j0NbuHNs2IoGWc4/ML+kZg7VRQ9MWFElcJ+Hq5CjGhdpe4a+GCyRx k6Lp+2O7ubAgQdN9xX5JfDTzRUL2AxcaZB+3Vx+URFuvE7lmRVyIu8yy8reU RL2OqsqQci7Iu/N2fbaTxNC4RQEvG7jA2PBe1eWEJN7taP+gxOWCcPmu9qQI SXzx2efjC3UeFOm+s9wdJYk/Dn4R+6rBg5DXK6qGbkqi5xzJyqb1PKDckeJg vCRyRe5JlOrxYMr++4OW55I4sKlrU6UFD4Z4Ryznl0jisfcP9r66xIOMY1Xf PpaR81NsDDihPPBs3rbLrUISrafXfOFc50F/wdKNObWSuOG10/uoOzz4fb2P Zd5JuJmm5JnKgycCthHT3ZIY/Pqs5XQ6D5x8KmhP+iTxadi9J+ff8OCXxevh kWFJjJJV4+zJ50GTst+3aIoUOioFNK36yoN7sT07NwlJ4VTGoTtQxQNLUSt2 G10KbzWf/KdXy4Mff3XSNWSksKo5M29uMw+qcqkRXxdJ4aycT5JMPw+KTSJ3 iupI4UI9wzhtET6EaSfJeYMUtqZol6qK8cFoSXZHwzYppC1dH0iX5EP1cHNg mqEUJlG/5j+V5UPL7VU5Joek8EP/+wmThXxIDNC7kmMlhdRo67+Ninxwcjlo tuSwFMreG6uzVuJDr/aFwWEnKfwWHFu2cRkfxhrL1WK9pVB7V9Vj+zV8yPnU xp3xlULbtDs1kWv54P9y9JPLWSl8V2TolqHFB4HABfabgqTwEKdn+ps2HySU POKarkvhdc9DpmHIh0qxIJcd0VI4IvdxnfU2PsSM3FyffksKZwqE+pfo82Fu UV5VYLwUbvpxRzZyJx9UXMXFlJ9LYb6/Sn77Xj50myrWXUuTwsKeF2U2JnxI 3bTu6egrKWxKm15QbsqHNeLW24qzpdC31e9T+AE+jIx4ymi8I/kp2axvMOND dlNwy533UjjmELxE0ZwPOump/m6fpLDoqsTjMAs+zMZ+2FVdIoUVsNLslSUf CgKr5bd8kUKzh0I5ZVZ82LVvIlOiWgoleDaV7TZ8EN8sddG3VgqtimIfttry oUJJyaSljnA7xaL6MB/MRg37XrVKYWpGByfOjg9zmm1z53ZIIWuDfISnPR8a ik5evfhbCl0yh85scuCD3Z045QMDpB4bFf69duSDctDLobxBUm+5pbeOOPHh t+tHtsqoFDZGm8TQjvLBY/Mfa+6EFLrJBFStduaDhvK0+pEZoq/fW1dnEx4W Z/BLKNIoJxiroOXCh6xRleI1QtLI3+/0LIXwmWbtW3F0adzz/kor05UPW4qN HKgS0qiwqrHKl/BMut0ad2lpPB0BERWEOXdOzdTISuOxougFi9z4cCkotFxH XhoFC15FORHOWLOC/3eeNOrvPpP9lHBL21flxIXS+DX/lGELYfFoL5MDS6Tx UKSJtfgxPmjrMc8JLZXGuHVvplcRPjqU9fQ/NWncu2T3NgPCMYkW1W4rpXFF +YfNZoTZ+yanFdZIY19KHv8Q4X7KQ/WKdeS8lX3X9xGel4kHgzZK42AZT1yP sIFDR9DaLdL4bPxaiCrhU7JX0jp1pXHJqv2iVMKJBWp1sdukUb5h9EUNia/C +wvN0EAadX0XBcQTnlLy1Jg0lMb9PmejLQmr18hYv9wrjeKGGTxJwuaX3lw5 sk8aF7sfL8gh9bm0zjyTcVAadxtb06wIZ3TwmwstpBFdVMqHSL2bb8aLnraR xvzlPquDCIvp665Xs5PGU5LDW4QIbxxts2twlEblkD3CF0n/nJIvRUS4SGMQ bfmjEdJvtuDnjkFPaVz6T/HSe6KH/rfu0o+9pbFZP2KIRXj+UaktB09Lo8rp Zb6ORD+nig7E5F6Qxm26t6i/id4Sfbnv3S9KY9iHdxrzCVcsjfuz8DKJbyA3 ZwfRp9qVFgyOkMZWtX6VS0S/Bzdc9NCKkkZtxVMrbhN9B/9Wvvv7pjR2xAZ8 f0j032zg9m93vDRKNH8yiyP+iBEZfcBMJfGE5k2tJP5i/xf7ueilNPbsnRKa If7rd9k05vdaGkU2M6GE+NOgNMCoKUca7a2OX922jw+ToaKTySXS+CLQ70jL HhLPpjTVQ1+k0V9P6of3blLvP8b7RSulUfFbhaiAIamv4a3nx39IY7mq3z9B A1IvMUWLDV3S+POCaNI7IPNix70GR4oM/h2xmtelSeZTfX78QpoMrvwrzVpF 5tlcj1abn4IyqLDX49WJ1XzYHaPSupsug/fzH1O6lvMhrSW9Q1NaBrdOlj6N VuaDt19h/+wCGdzC/hw2yyT+SOmfideWwfDkcPuYIR7M0ZHmHNwsg4cG95js /seDNZWaF6V1ZPDke/7zGTLP7cdO0y6BDCofedBq08ODT3oU+jEDGQy0rGgZ bOFBeIMcQ9tMBl2GXxRc+sIDeQlQ/n5CBi14Wypzk3hQ0B2y5fJJGXy7W9NB LYHcZ4VlBzb4yGDNnxy4/YDcF/7mIXdPy+AO/WyZY3d54PvneJfNBRmM5fdd pkTy4Hvx/Wdd4TIYU3MobuQMD2IuTqzgPZHBvfzv+tuNeaBri/opz2TwgkWN x+09PHIfXLGxfC6Do18WRnfv4sG2Qcb1vDQZfLG0QjBiO7lvD6v/DXwjg9/W KrJ+avPAVMcig/5RBu+p3Um/qMwDSV6W1vwmGby+LPjN1XEueG4onPzXLIOD L2Nq8sj9X+H7raCoVQYnBwb/Do1wIWq01/RkhwxGPy6xcfrLBdaw4vHSXhls Xbx+3LGDvD8Gwp6cHpfB3fplh5q/cuHCyjseRpMyaO3su2vTFy60uCevU5qW QXuntYZ3S7mQ0Pvh41cBBrZOyXKOFHJBpWekWYXOwFeNRS7yuVxY2WErXyPP wL41aR81n3DhupJ7c8pcBt5jalUWJ3Hhr/2Z5ID5DIwYjabYJXAhoy1m7fJF DPyWKzD/UTwXtFpKjC8uZWDLdcrMvhgu6NRrXtXQYqCzzu6suCAuPJgLxkIb GJgoOLTibAAXZg4ZyTVuZOCJAc0m2/Nc4PxwfnxlCwPN1d+s3niGC/rf49nN 2xhod0UsaIUXF4wqhfjX9jHwRVYxV92eC68MnY5tO8DAdxaSKpeOcEH2U0ET 34yBvbVhFb9suVCXE/jxqAUDm4Kdal5ZceFo0ng4HGFgcLK9apQZF0oXWEyP 2TGQIj+3RP4Ayf9O9ok0BwbSU0MOPt7HheFrPmbznBnYbcvxqTDmQoDvwMIR DwZaDgeDpyEXfv3bE/Xck4Exvi9+Lt1F4j2WSrXzYuB7R7GKDgMuiB1x6S73 YeCSJy8kffS5cGfXr4yn/gwMy9VxaAMuTBSAsu15BpZG1/uW63Lh8NaHt5kB DHRYuMqCvZX0Z621f9BF0i9v7Y+5W0i9FWq3W4Uy8DgrMZ2qzQVm7LpsmXAG ToW8/ai6kQunZWLUSq4xcN/QDHP/BlJ/IRNJrRsMDPh1Jv2DFhceBb4M7I1i oLdfqawAYeqE+HBCDKnvqht/d63jwue/pT8kYxl4eGGB/pAmqYfbMsNPd0i8 bsaNpoSjOi7n+ccxsH08eknOGi6M2Hau0oxn4Jmf95cuI2xety2h+z4DD4kH jj3Q4ELu/kTZhw+JXh7uerSA8IKvsyFmCQxcek9U8/FqLrR/zHf7+JiBWX9f 65eu4sIOHYUmvycMLLHMbXcmnJJ91nj1Mwae3MdPkCQsrlnH6Uxh4MeWgOv5 K4l/XmxYF5/KwEIx22wfwlVLbz/Zl8bAyy1J6usIayWMzKGnM5DlaDc2sYIL d+fvD//wioHnE58s+0J48lbG1KnXDCxPCq54TPiwtPSJFW8YyPAS4YcQLgg7 /uvXW6JHWf1MT8JLBcsP3M0m+ovZJW5PODRgebFxDgMXTKgwbAj38UO1hd4x MHvfn6ojhI19ulPz8hh4JemJtQfh1wM7Fnq/Z2DcmFv+RcIs1+QbamwGTh8w oCYQXmlQlkH7SOqbkd5XRlhfZbCqpYD48+QNNwGSjw1VfiT3EwPt+79eR8K+ bVtYt4sZOHza5Ng1wpEf7Nd7lTLwiMu4zC/CT+9fNd9TxsAk5uubeqR+H/xf +qmWM/C/KmvBl4R/WNTcpVQwMJ7XckqZ9OPvhvHcpkoG7mpU5CUTFpZTbPyv ivirmvZAk/Rv0Yj+VEwNAwfWeZ35THhj1bGFnrXEX2a74z1I/01fReka/mTg pWt+cxSIXlyvZx9RqSfzYFXzzHfCdw2pSQ1N5DzJbnN3oreMZWqFWS0MHOMe 7NtJ9FgqZNwZ1cbAwccxa9es58L4xzjVnZ0MzEsQW6JC9C2bwN6p9Jv4975M vwbR//KALtfpbgbWvTn7eucmLlht1nzxpo+BStfFfOKJX7znHiqPHGCg1ORU zE8dLoRzzw+4/SN6beoeVSR+y8ss1Vg8QvS3T6e4Fok+V9i9jZhgoMXxsZs/ iX+1RK/UukyR/Fs4OX7E30bdL7jbZhh42udVugrZ/y485mmPU2Tx3+FrB5/s JfNW4cb7o6KyaPfkQMj2g1zgjr9tQXFZXBi3d5nRIS5I1TXMKkjKIsPu9nIH Sy7ALdVt1TKyGMV+HJdN5lWCxIdi3bmy6LCySormwoWc3o7uefNl8fASk+dn 3LjwrVRUdExBFk/E7Vg35c4FyuWDe14oymL+MU3bVSe54DDdXzlnmSwGj8+b 2UTmqfJfhfrB9bKokb1+nsRtcr+wju4r3CiLFo+iZi3ucsF/S/rn25tkcThl uu4Nmd/fQvHd5q2yyBkVN4wh8z5A+Wh8iD75/L5ey94MMk8t0m3nHpDFvevW L/pcSfRWiO3gJYvhejqrTFk82NwbZiXrLYufzlZ2Vs3lQZdMTXWnjywaRDi+ sljIA53DRwvD/GTx2JwI+1OqPPjDD0uuCZDFopRK3yZyX+qvrnF2uS6LWeXP tmoe5sHE3aN9kamyGMv5bjCVwoOUiVmpbWmy6GrNKtz5kgcHbe6tHXtJ/v8q f/TGa7LfKlaetX4ti6kX3kfLveOB81NtulqOLIZeynX6V8aD6jfiSz8WyWLI VzeBF308CJJ7uutUiSxqbaVXPiXvk1V+6LHsM6mfUXdO/AgPQjf7vrleTvLb 3sw7MUneAx9b9KxqZHGzc/v3PLJvpla8PjzSRvojt/hBOtkPLdYYBT9tl8XP 7+MVlqzgg1DM7yeWnbIo3a+hEEbeU3YHFQbY3bJYUDPnP+31fJBvCjkX8VcW k5MUWTJk//u0VfERDMpii1HcXrUdfDj5KLdgeEgWZbzmbNHaxYdyh7+ilmOy yJ9/Z4+qMXl//jl0d+mULL6rbR71IPvZmj3DeXXTspgzPytowf/fo2kRrddm ZbHyy/mR9+T9qu31UXWYysRG9wPPasl7+C93edYHUSaanT40se84H+5bFNWd FGei5L++E+En+GD47siUiiQTZ4ptZjNP8iH5wq3t12SYOD/S8HKNLx+sBWeq Ds1hoopRWOueC3z48PlIssY8JkYd/ZupFMiHxTc+nhZRYKLSKe3XnUFkX5t3 WeG/RUxs6L9NVw8h+2Pr74HIxUyUvp1dkXqZDy+Sd3GclZgYnv4jTv4qH7w0 JI7KqzLx9GuNeS/CyD4/enzj32VM5Nb5bq4J58P6d5WixepMbBqo3dx5jQ93 AzWbHqxgotaNH9+aI/gwoX8z3XcVEwVsZjLZ1/lgKzYWtFeDicYjNXfCIsn+ Vml+YKkmE5VHm9dvucEHpds5S6fXMjF0Omn7d8KXrebzv2sxMST9uZ9ZFB96 FM+XpW1g4uKnZ0LzCO/uar4fos1Ep0uxK0Wj+fAyFU7YbGaiRVfY/K2EZbwS 9bR0mCjsXk8/RNh7PY0loctE7zfi6eaEayecfncAE1Nsn3G2ENbmFOfk6TEx nb6OJ0T43mW1aze3MzHiwHp6Fjlvane4rfsOJho1a6XuInyEjMHtO5k4qp9z k0PiLajdS1UwZGKkusG5BYRV4l99H95N4l1+dI4NyfeqHeNZmRET33bFLwok 9ehd6nM2yZiJ+ye9dl4m9TLq+77H35SJVDH3XZ6knq8yNizav5+JZRkydZtI vWVP3x1UNyPfj+xJ6w4l+9SWiQKKORNLt5294Ef69VPA5nb9ISZKeRgK/CH9 3Fz83uW1JYnneWvfFtLv+9cUN4dZk/PuFXBPBPNh1vSihL0tE480n/kZQvTx qVH/tYw9E/1/nB01Oc8H1cSnl3ocmHi3rOqBkD8fwpzp5hwnJipen8O758cH 46EvEydcid7Gr9x09ObD6+xVX3ceI/379X57LNEv6/yNR4oeRM+s6QvPPPhQ L3xAv/IEE+u+px9zIvukTvlb+Wcnmbg6cXW4NPHDw2j5PwE+TFyrVSV59wjZ nxY0XF/tx0Sr5XEKaMGH4l9b7ITPMjHmyxfZI2R/U3/2YG2LPxNvvdqyy8qU +EnT/uf1ACYuyR/Y2bmTD6a8gudHg5iYp7Q10Hs7H97kq5zfGsxE3NVZ0ajL hzM7exYPXGaippFZtC6ZBzTbE8eMrpN87p+K01nMB1dbpR7BG0w81/7o5NR8 4n/b2qPvo4ifTJYo35PjQ+zhLfarbxH9iwooe5J5tNxOxEImnuibqijhPcyD G3bvakvvM3HhuQGV+WTfGrU7fuDiQ3L+2Cfth108eG9fYzycyMQfVq4Om+rI vuL4aMf3FJJvj/e6rDweZDnuL4xIZeKI67l7G97yYL6TkN6ONCYGFMGimDQe dDi562S/YuKHwNqIH/d5cNp547q72UwcGFM9H3mOB/fdKhfbfGLi7uqh/Vc0 eUA5FvyQVczEdb/WBl5fRubzsfULvpYwcefF2+Lu5H7QcI+fo/uFibva7x5M oZP9zsNFanE1EzNUwlWWNnOh58TsZEcrE21uPbUducCFvV6ZZ+//In6/fO6y Prn/Mr2O8sw6mOiV/9PU1YkL505+GS76TfzmPtuuSu5rKZ87f54NkPqWTh87 yyT3+2mNn+6TZN64GuTCgzFYyRZKU5hm4jdH6bV/r4+BCr0p6MsM8WPPlvPH A8aAdS90+QoqC9M0jz9uPjwGI+9/Xeils5CnOcgMWDgGmUK3VNzkWZjk67Mu MnoUUo2Pjc+dy8KjrAorjcBRSLqDFaXzWHi/eFvFA49RiFEf8FNbyMI2EbWc Xwaj4L3X4Eu3MgunPBM9Z/kjoHmbf9JZk4V3LPcssD8wAmotFQby68jvb0p4 kL91BBYve6JQrMXCweyirl/LRkAmd1/RUm0Wcles+RM6OQyDTalzu3RZ2OG1 7ea2hGHIULFlOxqxcO/goeXrWodg9duPEvYuLEyXU2YFag5Co92RqPVuLGx6 iOprZAchVHKaKebOwj2pvhvWdv2DdmdthTeeLIyfK9yvdPQfxM57pS50moWe vKX71A7/hZmA+wbPQ1iotdxl0Q6tfqgw9AsaSmQhX1q95JxnN5zjsgSLH5N8 7a/mrF3YDWqPM6/ee8JCqUclCtZffkPw1EDk9ucsVLkvqSyo+hs2vHJ6cDuD hdXd15Oqv3fCQ9b+d5vYLLw3vu+7zrx2ONG6cvRiEwvzzEZGt4XWwaISBeWN LSy07zy9p636J1Ski+3vb2XhwQzFxrwFP2FlQM8r8w4WKkyM0LTSa6FnQbL7 il4WPlm1UupgaTU4WCl0fOexMLyLtvZC1mcwqxWtXsaUw4QluhqXjwXBpi+/ X301lMOJsDTOvsJ6dvE7wf+y9sghy8rdpiergb0/VenDg71yeKJHQm8opZHt EXa4/Pg+Oezbe0p0X1QzO2Hnjx5JSzkE/QV7hDLb2PRPRUuMXeVwWYLN13eR ney6/OSbFVfkUPbvoVsHnfrZR9MK7mWHyqGXuKdBQns/ezi+LfFhuBxqZXel C9gPsCXOLcjwjJTDlNyN62ds/7Jx061yqVg51DeNuOa8cpD9LOuSkMkTORS+ +0reXm2YrfUkUWLjMzlc7Or2dshlmM25xWYqPpfDPWLf9oU8G2Y3+Ewu+Zcm h4dLC8xeqo6wpdb66N54K4fXdedMzqiMsuOXRO/wy5ZD+7cy8lFOo2w1xiuj IzlyqE4dK1iUPMreNthrpZEvhz5qD+LXKo+xK1vpDnM+yKFz8OCLbIcxtk2l qtssWw5X/bd3zoakMfafD/pe3R/lMOjqlEnGrzH26XQHv8pCOZR/q1+qsoTL /h/xYZoV "]]}, Annotation[#, "Charting`Private`Tag$888311#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0.016965744360214943`, 5.441221219515277}, {-2.508072967831479, 3.065806310877301}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->959949527] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["A periodic cubic spline:", "Text", TaggingRules->{}, CellID->403135584], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"fun", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{"RandomFunction", "[", RowBox[{ RowBox[{"BrownianBridgeProcess", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"5", "/", "2"}], ",", RowBox[{"1", "/", "6"}]}], "}"}]}], "]"}], "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fun", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellID->757118308], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwUW3k4lW8TpiSRJSlbivZSUpYkGZXST0JCSCGRhGzZkoSKkuw72UUUkj1j 32Xfju0cu2M7dlm/8/11rvuaueeeed7ned6Z672OwOMXKgbbaGhoPHbS0Pz/ t/yRQP/W1hZGNESG09AQ4fiSmILNyhZOygoZLh8mgvtn+dxJyhaO/NkIYpQl AvmoznH98S1UlGTeBfpEUCiw8usibWF/rrZ3iDMRftxzp1EmbOF9qUm6Q+FE YJ0IN61o3kKb4vwrrb+J0MxdIferdAu9m3k0SINEEE0nZJ4q2EL6R8mj11aI EHhrRiAqcws5JuyDRhlJsNK//cv+VCrf3kO6lZcEmrZc657xWzjN0PWLWZAE eSxnn22P3ELREKO/wRIkOJBwtd0+cAvpTksYOMiSwOmK+nWK1xYezJdTylYk AbHVOM3wwxZKKwTpq94nwTWTN3y9b7ZQoPe4vfojEsRt9/94z24L35suGZbo k4A+7NtytfkWntjYQRfxlARPL/x5IvNsC8s+qZ2YeEaCquqmpiy9LeTiHk5M NybBab0R6bNaW0iMy9RepNo9V1a/x6psIUGo7EA+lT/9hZWb5zaVn7UXdz4h gfKJo++9r2+hhlQsD5Gqn1EoMU8vtYXqaEn/nwYJONTv6L4W3UIHcNGUUybB yym9+vkzW+hc0ETuv0mCdjcbSeNjW3hMXM+HU4oEEgc+JRL5tvBUivDR+XMk CP31leP+/i28eVDGwfYwCdblM9/Ws2yhlOcX46S9JHg0UDV9fecWli8erPu8 nQRF9r0P8rY2MUpr+uWpOSK4fqMXT6Rs4uV9dzZDaokwBLyxfOOb+NK456Nd FhFudpxj8ydt4kru93yBKCIw0muSnZs3sfgmo+HoCyKYRJjeX67ZRBfXkM/M 6kT4K+pSZlq6ia9zjX7vuUwEH/3vkVqZm8jGVqlXSUsEruINFdHATSQU0ev3 0/WDgwZ7UbLXJt7Do4U8RX3QM3P8rMCHTWRNKfHQse+DrweVd7LYbaKootPp MyO9cNwxJn9UcxN/JyyEEJN6QPSi3NEwvk28KdJrLjTQBap6F66/2LeJW/JT M2YOXWD9ie/xdeZNtFxkLubc0wW/++e/Tqxv4HGg/9lyqRPE3aN4pXo28PYd WzZFh3a42PWPvTd0A838nCM5S5pB8lUK7SGuDcxk2qU9+L4ctOKD+OdZN1Ay wlVE520ZODS4QOXODewZEVWtelUK+Uc0X79YXkfzy5GeVebFIFW34x+2U7GQ 44Wggjy4wqdD0Q1YR/5jbK+rbOLhkZw8q9jndTzJTdwc+RQNThZiQrverWPa olG2hGIYFJYzmaRbU/k/W5S8yz+AtFnOKK3qOgp/KKfrlvZFGdzTH8O+jpKq nMaRhRlYtp8tkpZpHTe/PdQSVsrEW2YsD3W3U/WsnFzVCL9RiY+pm29hDR8d /u/qr/4cfPSKriO4bQ1p6TvShWMKcaB5W+By/Rru9R64b0RbhIanadXUK9bw pa9M5oMfRWjatdG8N3sNvVR/GHRtFKPjxeW/XsFr2ELI+0s2L0OaL4ufp7zX 0PfrvR5WunJ0G5lXUPBYQxmOOwwX/MrxUwClZpfDGtaS+8J44iuQZWraw8hy DZXyf1tln6hEX9mpW5XGa0jDbSy/GV+JofPjFW4P1tBCc6xVPKAKD94eezd4 bw07kykrmzuqMSZmRPaawhrWG95b57OsxqS7gyVbUmtYvBb3llmqBs8kkd4+ EltDw+vNVpkhNZhGQ5T5c3YNe5vbj+nM1WDOz55Ch4NrmJ0wkGTiX4tSO7tf d+2n8jVPTsb31mLRoy4pCdY1XD1f8veLQB3KZnWsBe5cw9+GDR77dOuwkrk9 b3FrFRXPvVA7HFKH8gat9qorq8haWvQsuq4O/xY0S/yirKKc5uDm69U6VOFo Wt4zvop3Ty0pxB6ux/bnDVnmpFV8a8zluS5bj1ql9S8bulZRUPXZgrVePfbx 1IkKNa9iLB9D4bJtPT62rJn3rFnFK5t7Bczd63G4uipjomQV75xNUav2rUcj gUoL+fxVPD4w4zcdWI+TduXCSb9WkVd1c2+tfz2aN5bO7Eyh6uUtMct71uPC iZIfhnGr6Oxqp639uh7t3hSZloevIiUxo4LbqB7X2wvPHA1YxWdvlVyTFerR WejPhMvnVdxzpq9DXLAet7/PTya9W0Wmsqldo9vr8X1v7jMZp1V0NWDWGWyv Q0axnJNfbVYx4UzdAdW4OvTyzBrdMFvFYLFcdz2TOmQfykzQfrqKjuH6YyLn 6jDw8i+DfB0qfq31dn6yFrn90o/yaKxizsKZkKr4WuS/9iOm49YqBu2PfqC6 qxbjQlL0xK+u4pd/uj4PMmvw5Gwyf8ClVTQYlNDmflCD56ISI1VOr+J1KdNK zfBqFA1X+tFxeBWz9peduHCpGiWDl/9o866iaGxF47vmKrzpLddruHsV2wM+ VYqvVaK28yjvq+l/yHVZumX4ZAW6654Iic34h/0qPgUp+0vQS7vh28nv/3Be suTZ9s/F6Kdhm5Ma+w99B30+im4rxkjlyo5s/3/YaO0/+KoF8bfM0/11NlT7 T+/SE/r5OMCf6Lcg+Q8/X/54jfZTBo4dUIq1F/mHxFXaAG+bdJziWs7YFKTa NSKO+j1JwxU2uWYGvn8YNWUucN03BVloR9n4tlbw5mC8gZ59HHJsePHHLK8g X5r1LkX3GOT+Jy58grKCk+3mr/ujovDo7Hul86QVFHWroo0aCMHLpONeN0pX ULbJyoPe2R1lev9G1OSv4Puhmcb8Cy54s8smVSlzBXenWumtXbFDlaaKOs34 FZTpsIhyzBRDjXqznr6IFTS6qFUynPIYHlbvn9QPXEHVY2fpeF2swKjYkMns wwq2c66f4eNxBbM/LLzzb1Zw26tX5qEaH8AqN+u0nd0KVn3iKPOR/wR2vx9J bpiv4JJk63rslBc4pdPLuzxbwT8Fg8s5h3zALfWH5s7HKxgZviHxN9IXPJLU n3lqUf3FpM8MzPmBV/ym3Z571Pxoz0iV8wSAf3SCe+DtFWS2vdMity8QNISP ydtfX8GVHT8n1CiBcABjmbQvr6CY+ZsL+/2CgHjncL20yAo6FUce37EeBHE9 UV4CgivouWPq5tdTwWD0/JAy3ZEV5Lwlz67HEwxnViP2jPKsIME/cGdlXRBQ 3A+0VLNT/ZfT4+9AEGRyhvmnMK7g2CvH5xbmgWCXwK3+ZdsKJpxt7/jxKACk xII5LVeXMYowtprC4A80Zfu7VOeWUebX0W2DZr5QphIQepG8jGlFG17Dvt7g TtqrzTNA9Wd/1R066QkK5r58G13L6HziQZuhmDuwbbH19zctI7FOKE53uyu0 fv4SVVK9jDSH2IutfjlA8AGWx/HFVP/Z+U/e0yag/d3ziHsu1c6R6cr/UQyG qjwS7iRR9V9FLH22fIXf7jMYCUdT7Qm/k096vEOTkfen9oYso27sEc23fz7j wna3lE73ZSxSffLNKDYIc3y3meU7U/l1JpkZ8uHoKPD2XKTdMp7UevaB7BWF dOCUoW+0jMKPqgq/RsXjPge7nGm5Zcz8kyG5cS8NCQzL9k2wjKqspmUqNekY GfTycubFZXySJlhtcusXHv9tWWh/Yhm/aZrYqmlloTjFpIxu5zKmhK001lYX oLqhXiNPxRKm5O4dmpEux0AV+bGbskvYUOnZ1BDWhIUsPf9lSi3httPPldY2 m3C4xvS7gNgSSnuZnNyj14yi133M1o8toU3fWuc3gRZsFulcSN+5hFKCN9Ku +bbi6swz9UM0S6hzWtT1FbkVBVLWsj1XFlHu3OdPKzJtaH700Kun44u4vy7q lMlYG7LuM6Tlq11ESt9NzoWDHSjetPz4Y+kibg9x2rPraQc++uxRtpy/iG7a T3kLUjrwx47UD80pi1j/9sXtJOFObC+WHof4RXwXxz+Wa9aJG68b5VMjFjFC JeHtvuROVFiaZ3b3WsSkZpVgLa4utM5492Lx/SJ6GTB58tzuwjAzzqbHbxbx 546CZ80OXVhyOulCo+0ivvFLNTFN7ELyiKT/FfNFfDFzsrG9sQvZY+sWk40W cfOfTcO/pS68pPPoPpfeIib6EeOLuQmoy0vJeae5iH3hP7y4LxHQveMtz/zd RVwwuWI8pUrANL+9jrryi8juVWckZUrADqX43vpri1jkX0DmdSHgJtNFuHx5 ES024jxi/Ah4vKoq6psItR5Zvv6RaAIqumlt239mEXGkwG0rhYAvZSb1XY8u ooIuL8f23wQMX39dTjmwiHlnG48z5BGwLIf1xKN9i+hSa6l+rICAk9bR7rXM i3ggK1TKIp+Ae8+LkCXoF3HjWb/lthwCSk6V3U7YXMAI/U7fmXQCPk5ST927 vIC2h/jElZII+NFgjOXtzAJuct9YuhhJwAwBB/Pp0QX83jBqUuRNQEIvU/MD 4gIuFISLbDkTkDY0QqS6cwFVHq0NMr4g4En1cwHiTQsoKRzGuapFQGX24qXY 6gU8/nOv0aAsAe3+qmjsKVlA7/vrZr1nCBj1cSjXKW8Bx+MnyzfZCVh104Z3 MmMBU/c70j9a7sKZbQyvNb8voMLxazV7CF0o/UpQRjR8AVk5Gq82hXah4cU/ 0dH+C8g/UXGS0b4LP88rbmf9vIBkFZV/s2pd2PPcsmL89QIGV7j9Obm7Cx20 cxW+6iygdvd45HeTTtT9LqBrfH8BmW6b2ClAJ95c9bASU1rACZ3bGxf3dCJ7 sFZorfQCiukqcD3+1YHJLWujy3wLOM3kv3FioR29Dz9ZK9m3gLuXxMKvl7Wj jUUdixfzAqrf86Lz9m/Ha6wRYkc35vGF4perQuLtSJCXdlXumcfYoN0d8c5t WBSSEMjbOo/cJuFnTdXaMGGMJXmkdh5z3kqZ3BZsQ8v3/Y2O+fNocZ9AvRxa UaNNbkju1zwyfjKT/pLZitJH05bZv89j7QiUjn1pRcYS54NJofNYulFRnHK7 FSls4+etfefR/szeUuUzrdiuc/cGfJxHdePqmlmWViz4kavB6ELVn80MT5lv wZgNAZM2+3l0WY1ajyC0oLvCxzdRFvOoXKTxY6C0Bc3C5nyfP5vH646JL4N+ tqAqWStBXG8eeY009ndFtKDkpdJcWs15DPwjrlrm1YL87oL1dcrzaJPFPP/S pQXpO/yIQbfm0cHzWxajfQtOHluffywzj7r2zY+/WlLvG+snO4Uk5pGcpZ6v /KIFc0rreP6dm8c2Jxq3y1QcyS4mVHZiHgcZw5wdqf5uehFXvxyaxxb/WWth ajzjtB1qWpzz+ES94ai1awsqb5kaHWOdx/seW/ee+LSguGL7Kwr9PD57eqeC L7YFD0RIf8nfnMOHp93gT04LbptMiHm/NIcUpheuOs0tOCbJmnV3eg4HbnSp CVBa8K+HbfWBkTlc2OPlcIi9FTM7+3tGe+dwOEnjt41EK4aeuEXJaJvDl3J0 Ndf1W9HZJm27U/0cPj6q7RhLvT8Ny7k4/yufQzMHQe+MilZU4Hh7muPPHKq7 Xqn+vNWKF/THr/RnzmGP3cOJu1fakCvj7t3klDlEf/U8Xup+2aTJe/Iybg4L 6A4Mb6tqw5rIj5+Y/OfwrlvEVplhO6ZNzUW2f5rDhF005Qp/2jFQ6kFGtOsc nimIsdHj6sDHBMGui1Zz+Cz+2PzH7g5c21d//InKHL4w94xS8unCx7v6P6rJ z6H3wc9db3YQsGadMn3z2hzapouqNTsSMHSQI/vUhTl8fZb1oYx1N0qma8vN 7JnDIA6275S3vWinMPnUoWkWxU6Gse1ZIyIRNmufV8/itP1x1w1ZEt4SYRN+ WDyLHz9f+AZfSMjFI7oC6bMor8glZHN0ALNHX7nv8JlFprenTrgpDeKSC1OS t/Isbm7vLRwMHMZHNnzMLrdmcVXuVuhUzzBWPDtnYSUzi/ci9HL3HB7BQOV7 l9SFqfaG8RHNpBEUOxhWzctGzSdKZ6M4aRTD96SeZWaYRZE8+YWXI6NItwN9 NrcoeO2zg22CwBi2TgxokmYo+Clj/qaQ3xha554mJzRQkCD7gCFddxx7UqQU gysp+NPylY7Al3GUjVLM8EAKatHafjLPH8cUP939r7Ip2Fyu2/ZxeBw5Plg6 mPykIFvA7ffazGR0dHDre5hIQUZZ+dGmC2QcMg28pvSVgrmJL652qJFRQe9b gkwQBfcG/O3VsCHjL9U8xgtfKLiPZL/juj8ZeW7VmR35QMF0XTdal59kdLnc 18zxhoLdYzS826rISBaiiNPbUtBHcVvYz14yqhzeFrZsRsFKw7AaGwoZ8/Zx bI0ZUtCOvn/uOs0EHt51XJ/wiIIh24ja25kn8OP6xcpadQoeEU6/G71/Audm /hP8o0hB5icGPIx8E1jI9uLcJTlqPOkjWyz8E+hx3l/kN1Cwj3vy8kkqVlXJ vXhegoJ/3bwab1D9+a36LqcKU/Nn7Sq4zzmBE37bZU6doqDQrVAaRZYJzMo8 KRsvQMEAjArj2jaBLm13bgnwULCGLv9z4hwZ7yxZKkSwU/BGYnY7uZ+MXJzB ytxMFHwnbmDTXE1dv4t/VAO2U9fzmq+JYhoZddLL0g+vzODCg8gvSn5kXJpj yeMZn8HKnXO7Oi3J+FlUs4SdMIPj6XfUVhXJeNQmtoaxdgaXdzZ+rj5Bxrv/ Lnavpsxgg2mpeH7DOPX8uwzORczgr06L/u1fx9HJsW6C7DWDYfHFwzeeU5/3 lu46wXwG3/MWvdq2NobXr36na9GbwaRDKddjC8eQ4LK4u1ZlBvsvZ3Z5vBlD BvqPfPmiM7hq6Ue0/jeKX+Vaj/06NoO9Y4keXzNGUdzjoND3/TO48+w9C+1n o6i/+5d02Mo0irWPmXQ1jGAhe4/Oq4JpVEx8fnLZZRjVVI8bWaVO4+mPPl01 p4dxMsDc/HnkNMYlXk+ubhxCbu4dbx84T6PErUqeAM4htD4kFHNZdhrFeRNv O/gO4OkzzkNrtVMYWniV1TS8D4NuHH3m2D2J5aK2TjYVjZicwtt2rnYSVytc ZRbTGrBw796rg3mTyBGv9C+2ox5HSLTc8qGTaOzTF+sgVIOiTv1VnJqT6Ml4 5O/v3aV4a7hdtPbWJPJcz0oJVS5GbYW/UU4Sk8hYqGioL4royvPHbphzEoOH pwRW3uRgc1boyV/tE6gbokaf4pKII3y+/oYVE5j54P3Vk1bRuOrmQcOTNYFc ZsH1F5mDUOCeXadzwATSkJlGWp3PoGjeC1nRdxNYpOdQyGD3Dm4JPE0btab6 /3KqnqTOG+Yzau6KqhPYavx+jacpDtzU7yzQylL17r9LhsgkCPojq/tbZAJf hDQdlZb6AYWfRCQO7J1As++0nzQsf0Hz3Om4Buo+rczmn9pt8xtGNA+zuVL3 qQIjuBzWyQbmk3vGxpvI+Opws69BXx7wf2FQjSgm43OxeVFmqwIQXdpC5XQy 9gma3Gck/4FbD5cF6aLJeGCfmE/CNQTtsumgbG8yrjKOadtIF4G54Mj2585k XHsoXIl1ReDq2/vioDkZDbB31kWhGAL/tXY36ZCR6bmW3N7CYkjWrZN7p0SN H852oUygBAorS39JABlNvI0PjNuWQLNQ/qFJITIOvG02bysqgZGAjE9fD5Kx LiUjpGe9BP6tJy2rsJBR5s5LWpUzpbD7SbQ+/eY4kiPd2D2USoG/Nrghd2oc k3vlL7YZloLoBe/Lpr3jqH3jAsHDshRuhXxI5K8fx+Y98QarVKxN82Zva8E4 DjkxyzoYlYL5U5s3H1LG0bCqrV/7Xim4/TWdkAwfR6HTRrGLIqUQJGZwf/rT OO4nCv0LYiyF5HDt0uhXVP4x/9tBHdR6tqueU6OeO/+L23bIhVHrMb4dxvBg HKuUB7+sqlHrabq2s0B+HANSo9V3MJTAqoSk1QvJcXznkVial14MzFHn+w+f pubPr3PV7F4xiJrxZ3vsGsfsF55cfM5FcKuN88iVf2P439f2m8hUBNpSrF8o Y2OYMrf0SEsAwZVx0/B+1RgaS6xnWLH+gUd1vHv5c8fwCa0ONy9DAUh4XcKx pDEsu/ZjQHE5D6b3vOR0+DSGlkkHvB3yc0CLe7IyXHEMPe+5LOSN/wLhk4ST A62jOHnZ9vt/STHARF5uTS4fxU4/Z/7a9q8w8n3fW6usUTx5zCTwyP1QCDt3 t4sueBSV981HPknyAvqLVR4nHoxi2sPfV7V2OCBpZViMcnsUNeJb20yLP2BB 3vaBHKlR3M2Sx7B1wQctpEFS/iDVPnKioiYxDHtuZJFNSCP4j/xp1KY2EbN3 tgaKNY8g/1+XYY5TyehbPXtts2QEuYX+rSfbpqDcnbNhX+JG0Df7RE2RRRoe Zr0tpxEwggdM2H3uvknH9Uajef73I6hmkGEJrhmYoRp3O+PpCP5J3em/1yQT P+8vWXbQoMYrytYiK/1Go87+2Ov/jaBcJLv81oksvBa6obRbcgSFkgPia+az kE+bd7319Ajy3ShMK8vIxhW+S98ieEeQpmnXT4Mn1PuiX13VcPcIZv1cHDzG kIup0dY05zaGMfralu/riFx01/dNWZ4axviJ2K2hI3mofyxNo6hvGG1365m2 huah9Gg9nUfDMDbQZx4qo81HrqSJtLtFw2gvxaN1RiMf5413PeRJH8Z1lj26 7yLy8e+ZE7sGo4fxFHHfS7mmfPw2Lfv7u+8w/tmT0EOey0fXtMd61q7D+HAH EEZpC/CRpTPzFethrD3wKD1rIx8viUbm7jAYxt+5zvENw/nIsZRv8FdtGPuu HF1Nzs3HmeyuPUE3h5Fm0U162C4fa+yX/+hcHEaukt36eUfyMf7yPuOTJ4fR KJ2HwzcvD503Luyf5RrGHCXtzZYreaiFyiW5u4Yx+NSbv6OpuSj21szMZXUI ZeqEz4sx5SKHZ39+0MQQ6t7d9oSomYNzgcq7UnuGkHjibs6NoGxsjC5WL6kf wm/BzN0VpVn4I+VCXEfhEDJMnrAv7/+Nntmxs5M/h9Dc2BtiJzLxeQkHbIse wkbti93Fo7/wZOdS1xlXKi6kvXkrIx3pB5+euGY9hJ2444XV2zQcnuq0vm8w hGyp7Nfq3H5gzPZ8Vhe5IaQ0RiXeFU/CA+fe3OhgouYrFuzwX20orl6i+E6u D6JMVt5ozHN/7JLVI9JOD2LRjeqzUYWfMFDr+qszjYNIk9PofzjtPLK935n+ 1n8QGxNlfeQxHOh6vxw4wzeI36pUBhQuZMPAKI3xVZZB7Hktb3ZQKReK5yyy 1bcGkK0hX5LGIh+cGFRV3pIGkO6YPMm0BGFFhMu9PX4AJToNr0TfKoPJj1Hz zkID6KwXXJEiWw81AXuuBh4aQMlDbAy/nvyFpCgXr+9sA2hjeG2bqFsDGGY9 OdU+R8I4mlf6FsRGIJJO6ghmk9AlR5Ll774WaJFIr2kDEv7N1zpButMBQs8a XiWcI6FrrbskX1cHfAyZOmN7iITpDTMvpR53gszqqS9cW0QsYNSLSTTtgh/5 MfceFBLxZEKoY6VBNzBOFtGd+UFEiQwtx1893WBwoP/3egQRdR/JHvRQ7oED r3m5Il8T8dKU5ztroV7wkPbvIUoRMU/6j+cA9sGQWcbn9DNEbI/3v5XB0w8y XxulXQ4Qcbvme35Li36Y2uK+JrfSj6wtGn8O7yJCnK563FhHP4ZoWDByCBFB q9iX/mN2P7bcncEuZSJUuTDV1tn0Y2ePnebqFyK8GZQ7a6bej+bMIhJ6KUQQ l3X7wirej7dmflpnVhBhMq5oNm1fP1Y13dy92keE2B0b91QW+1CRTmn94iI1 vuGlrPnWPpRtP3TNehcJ2CpfcgVk9iFTEFt3Ji8JKk9kOIj79yFjoF3ZliAJ nNynezqs+jDu8M81LUkSiI2fBvt7fSjjyeRUd5MEk/89jeYR6cNrh4dvad0l QUxy7PYC9j5kEfXTZNQigSYT0eDhXC8y7jFNHdCl6pkcqNps6sVghpqr4wYk qKjTOB2V3osCxrQcR5+R4PXZAM+rPr24852xQIgxCUS9mqYHzHvxxzftp4pU PDHNfNdNuRedjp4b/M+Iqqck/+uYcC92yl3y9XlCAo209/sqWXvx6ONmC0Ed ErDuKbU1munB8pK7b/g0qHoWW127GnqQP5clx1SJBI7Nl6W+/+jBEH9d7sM3 SCAiYhep4NWDQXGRUTKXSED2y6SZNu1BRwn+2w3U9YheoDz+cqcHf36V2t96 gKqndrZc+GwP+p+6vaW6mwQsWc9ONO/uQZ9jsds1VolQvj/Bw2qym3qOw/gH R4jgaDswwVHXjY/SPe+tNxHhQudBxazv3bjSXxeSlE+EqJAg9n/G3egfFqzW +ZEI6qst1qHyVP/K5nIDcyIwP2DruHy6G1e9c6W/qhLB4YBHmNM4AVUvk0GI mwhqXx2O0hkRcEm82rjqeD+E/t6+s/E/AoqJZMoOD/RBX63neJggAYP+1RLp IvrAaCXyh8hMF3qIdipYMfWB491SCX2bLjzqhxZ8zT0Qt333nRK3TlQw/951 mpUA49wB57wMOzHNxDlhe1oXCAkfZNe61YkMVt1kB6UuyNEW7phl6sT/puwr n3/shNrfqnoCfh0oWJV55+lsO8w9jXjpHN2Oz/232//n2QIXnY5rKLi2I/Gz ulcIbws4+v+U5DJox7VG98Yjyc1AX1y89fNkO6q5kaqYy5uAh2fEo/9nG1ZE vGH2HmmAq3VCkdKFreisKfC82KoKvIWLKtYJzTjJ2PDWoj0DGnxizSGPin1W xmvb0oBl/j2PS0gz6rb9e1XxIxU+/b5jtlOjGb/ZRFYKlsXDe8nufextTUjc oTp7pcsdHGWXnpxoaMShx+8FL5slYn58F4vxj0Z0l7GSbFhOxlX6PzkpnxvR 8zTp6xubH2hb7br7gkIjFo6MONZ/y8DB8MNG9r4NyLXd4GHxpVzU1RnP31Ru wJuvlE7o1udhn0AaqxtrA94+xvBtTrMAOxOuZHt5/kX64WS/Yw8R/6Zp0Me9 r8e+RXbpva4lqGB1SOvUjXo8OGJ3YfBsKVaLjaT+2F6Pd8t3V+m0lmJZnpVa rnMdns6PvrSytxyvvpZMkoY6VPzAUUlMKcdCoN0o3ajFm6nBGqxXKzC3zCvu r0Mt5lvkkDu0KlH8g9rKvUu1GF1eHi5NrMTM/w4odC3XoH5f5W833Sr88Tdp ftC6BgWqP7+5dbcaz/iYyz0TqcEk5VKSb3E1Jt27GDY9W420DE3M6mdqMK6z 7No/s2ocMtc4TqTU4OGwT4FOZ6txsuN6mZV8LX59qELePlmFP7vIXtyRtXiA n1vaI7kKJ5Tp+7MnajF0oN+H5VkVGnIpMYuJ1CFXfMKw34kqrGd0srS1rsOA p6aXuEcqcXSbwlODn3XIflr0c2RcJdp2W8gOD9ah9+Qq8Yh+JQq/+Pa4d089 svwsFk0SqMS24G88opfq8ZOFu7sQsQJPigiWN2jWI4OoUs+vyAokco3nBVrV 4/ulfcKXHlZg4dEw1RfU57A9t8e1kLcC355fJYNvPTq/iu24TijHYW5s///3 0s0rxoLVweWYlBNj/ti/Hl/RnH+jeL8cP4493PP2IzX+qKwGPWc59p1QPh1p X4/+9RrnC9vLsOr5FbNCvXrkzzRhtAksQ15G1xG26/WYEuo8eFa9DEOI/uFl fPUo8da/YHhfGdLVj4QwzNVh2dNvARFtpXgkdXKUqagOlRULzNQCSrHyEY/3 xoc67BFtlGNWK8XvOBi2W74OjXiH+Ms5SvFLagGHEX0dLtCu/HNsLcHL9Nx0 8KcWmRsOpUzeK8HDLwRNeHmp6/9b5F3c3hJslqxediqpwePhco+0W4rRYiz3 EI9BDUo/e8FWp1KMarr6xr/Cq7FGyXXclb0Yj41sj2K9UI3q4kEll5uLcKOs IkintApfbEfr73eLMIDOdT6QUIlwmS9jX3Qhite/feJOLMdtcQ+u+4Xn4aL3 qkWkVTHyWLgubjuQhzmhbBLX+4pQRPp7omVYLmZ2vb9fJ1eETzpXmVRCc9Cy t8L7i3Ahlu8ObWULzkJDE/ZFNqNc7Osqfu/MmYV190NPksVycClhXIIS+Bs3 PPgTHOmy8fjVSxENAZloll5RcyM+E91fdhp4+WXg44PxQQZbPzHqGg3XJnsG XjOWL5bJT8Vc1pM1pr7pmLD+NPWF03ckJ9kK3fFJw5XG/57k8iViYMHZac6D qVjnlNHHnxSBFeqvVZYPpGDdx8HIyxiCy5S6rHbe7xgesC5TNBOAGsdM3gRw J+FKQVlG4+3P6IH5g9Zc37Bxtqt+Rfs95mky3VLlTMSF06Z7zR6+QV6vZLa9 ++KRJn9yR8mGBha26tjePBaH/LuCeJZKVUCXd1+fvVgselvPBkxcMoNtj2tk U2/EYGb4is6vLTuI+/bmO1EtGt2Os6VKnH4LN2dE2TkMo6jz+6Kh2Kd30Pi8 ddZrMhIzVMafmkZ5AMc/aVzcHYFCH09JOj39DBrvkzy1z4ZhTfa/X9teeEP4 Xg6t0jshqCpZcqWRxheIUU4nTpsFocGOz2+WnvrBUaHxBW+vAJRstpOWjfWH Z/n3SpZ/+KGbZhy4pwfAj1uFXx41+CCfqtAtH59AGPp+N+9j/xcccRDjE7oW BCYVx9U0+D0R33e6ni0JgkXi2swxPXd8Jyx+9RFbMDitNX6cj3ZDrvOmPF8E g4F+f8Kx4gFnvH81vNWLPRj49Jac+eQcUIBnQPRMWRAIBUZl5VRZoqr1Qxpx CAKnwIDORH9DbGI4u+7gEghu276x2uso4kvvF1PVngEwp0p/PdXvDjhb0JzY 1PYHHkHT4Uw9Q1DmFJ48MO8Ljrq7r8BPS/CueRSvpewDxoKPd8addQBnP+OE uQkvOLPWbUTX7gwy33ImX9Z8hDgi/V/xADfgv/vvYKn0ezhQcV7kmao70Ox2 kn50+y34fdcODtvrCUUpwiGBw7Zw9bLmeZpqH6CR8W25JLgb1lOn9UO++YHz thifp1bPMIffLfCCewA4c/nyreo5oDD9z7UnciFQFJju8pn4CSftZIU2j4cB UaH2iX23DyZOdOkG0UcADWsqkwh1/30x2jY49DgK2DR59UQ+ReKkwB3HdJVo 6DwvuPOVezTKdwftc7oWA1FdQn28vbFIr3j2FufhOGhk59zNlfsNnUQ0Uv8j JYLCQ65z5wLSsWcy5ub+pm/wxOJxR8NCBkomTPUPFCUBkctLuk4rE5e4XNkd o74Dlz7pVqBENppuptr+0PkJBd8Jt6Iv/MEfQ7TRu178gpBjQUZ7psrQZp90 I8fsL9hWF0z35m85St902DpklQnhT/9YpqVVYH3i3ENx29/g9qxc08emCieN B3n032RD4a7TeqnbqO/B2TL/gi/5oBjD8OSnbRPOCdCWVe4pgOmJU9avBpow T+XKfLNfAah+YAhkUWjG/zJ/3x0P+gPr305qHuFtQSPbBJb9UQhuygJDFxNa kUt1NpJtTxGYEzU9TOna0NHki/h+lSJISI1vDddtQ9mIWgOB1iJIWYxOfMve ji2b18sudhYD16LmzQDNDhTnHHhwhbsEpk9oHqmO68DQc87z17RKIMK1WPLU VAc+1i04rNhTAi+/rzze+bITK+y08u7xlYLLXA+XSmYnnvZZuav5qBTENNTu PaZ04lyx6NsnxFKwenk2yuRRF6oTmrmMBcpgKDHmvoh3F+bNmae9eFwGFdPt vRqFXXiQifXWy9gyCN6p9q50rAtdjqT2OwyVQcnPxChNVgKOXL5t63ysHIrj NF1oLxBQXnWc5b1hOZgclkqMVibgD5MPCZ8Sy2FV8Pb8+ecE3PPumLTPWDm8 Y9qoqnlLQOuI0rbAUxVQf9CR292fgJ2/9UzDjSsgsHSu7V0sAaX+btHFfK+A 8PufZvp/EDBqJCI8cbICoiTM72dkEZBu67Jo6tlKeFhWu8mVT0AjTkJthlkl BGpUtZ8rIGDdOTv9nJ+VwHDPu5E9j4DCt/av/aFUgs0exd7eTAL662b6lp6v gvBZwemUFAKu2KmcrrasAom7qgth0QTU9qEU//1VBbu9ZokVfgQsSvLSbF2o gs4dQvH/uRLwaMmZ2S6xatDaL3pBxpyA7oQa936balDkE7Kv0CLg5JwR/3B2 Ndja3Xy+co2ASkw7c8gr1RD4LvHf7EkCBuYwKYWJ1UDT7gcXkYWAfQZsI7ct a+DFlw8adXNdaFbEzZE6UQMe6uEnaLO6MMv04PeHJ2uhe1vqTfWALtzgOXKN xaAWwOGD4E2rLvR8ecb8RV8tUELIJ+8KdmHr4fM7+XnrgCc5LCNkRxfyNopF Nt6vgy3Vp0MdfZ2YfBrqzjfVwR/5r4e9vTqxqv/uyYXSeqjVr7xkMtyBbJ/V qbP0XyhZdhHty+3A+5IP1NWu/IX28tWwtc8dOOL/xC0r6y/sIr7w8xPrQDp5 W6JdEnUOz4tXzXRrR4XlV7anqH03W73d8IZGO8qryOw03dMI13KTEr+dbUef LdlIPsVGyJ96GePY2Yb8Wop1TpWNsGo9FR0q3oZlaY2cHcONcId2eOoZWxsa 7bynf46uCRzoe84pT7Tiz8z7q/0yTcB4m9uuIK4VVZgINyR0mkB+7sPMC9dW XNLT9vF+3QS7Bm5CgH4rSrPqnbya1wStxvTy3idbccBg0Cqkswmynp+z8WNu xfcFBji71ARVbv+09Rda8PTeMUb5fc1AS17J2t/bgvXPjNVjRJrhekOxVFll C5oXTUav3m0GJ6OxBJfMFuTgfDGlYt4MkeM0P4xiWzDHdFbiu1czeL3/yvjZ vwW1y6zctqc2wyUrjZf07i1Iw7vU8KC2GTwHMWHidQvGWdjxZo43gwWT8f17 Ni14q2rVcDdDC7QdnABVixacOPg648nxFoi528G140ULer3c2iiQbYGKjpJQ Ryq+UPf2v336LXB6+KpTk2ULth+mCzB92wJ/Usde8di3oIP9e2L51xYwNLit YObSggcbGc4cLGyB/TKbiYNeLVhy/JOtTU8L/LIIkPOJbEHD18ylf1db4JxQ /ODn9BZkbP3CcoK7FUyTikUp1Pp/nGbXenOxFQw438z/JbWgylv/+A61Vpj/ btEps9WCSx37Z89ZtwJH2Nlwbf5WDBEKkXL3bYUYLrlliRuteE2yuOjZr1ao rLyR6mzRipM3xmVvt7aCcDZN29OYVgy8u6f6zGIrHLZOUGfqbEWZh5fusOxv A+InAx539jYkG+k1zYi3Qe4nE4a1u23ob+2h1nS/Dbw/hO98G9iGY5+6HvqH tEGMpOnTRqF29A2iHXiZ1wamWzlaSi7tKBV7yvB+dxu8TGpRfkVoR+88ezMe vnbY9Z638kJwB0qMc7+JimoHF2Wnp59ku3Bg4ep2l+J2aDtbs96bQz1vNMYf 9Afa4VmMcLCXMAGJnHlfjh/tAM7T848fn+pG95taUSmJHUCI6WgBqV7sjA0t zvnRCbu7MoCTRESXnyU3Qhs6QUVi+J7uGRKeySdXv6J0glSAudkuOxI6N0s2 S1/oAg1Rg+UTbAN4krZ7oOx3F6i++XhQ4eogNu/e/jShvQvmrv0nePvzIDpy CU58WO4C8V76om1dg9h47tW8/CUCMLjcLZF7MYR2j3jpmgoI4EA3PtPnP4yH ja+7Z/QSwG7h8TaNnmGse/l8t/8mAQ74vz04cHgE+T/nc9yX6Ya0v28y21JG sCr/wbHe0m7I/CbLR0kfRctK16TCoW7g/vztWuLMKB5o+X42akcPHF1Vn68U HENz8pqYvlwPeGgZXpyLHEOepSN5skY9cKxMeKKpbQzLaBWkj3v0wHAM1/NK xnHk5A6/OV7TAxIpe9mizMYxz5fP/fxED+yfF4t0Cx9H7d1fq+2ZeqEhm+OO TNU4br3jZyoR7IX33g8UcHYcY7aiFRgVekFvb1btFBcZZe2PeKmY9IJ/e8Nq 9hUyjs7FNYR69sINc9VdjLpk/GhyfM9gSi8E28wcb3xDxjMjiSqC9b1Q/EbB dSmcjH91TvlbTfXCiACn4rNsMlp0JbflM/fB2fnVLI4GMnLcO8NJJ9QHlR6x U0ODZMyqS9VQUOyD7lcFAhWLZNS4eS7U36wPfHRmXeLoJnAN07p7vPqAs3ZK xoRtAiMvXeA79rMPAlUfftrFPYEyv349Mm3oA3HfCR+jgxM4cEYs6vdMHxzl kXV7yT+B7xKySBus/eDhwu574NAEnuSXOHJTuB++6G2b+I9nAmtCcp94KfeD 3h0sHN8zgaZ7Lye0m/fDyZ4FqbEdE9T7vGD0oE8/MMcpBpxfImMGvfSpp+n9 AJftltMHyKjmjMY/m/ph4CKfn1otGVf+yaQsz/bDYeHxIIY0MtZfIi0d2kWE CN8UtxxvMkYuRXPKchPh+Ifnhs9MyWj+67GE0Ski9XlmK164Scar5kc0PS8R YSLAafQ0LxnZzw7Zp/1HBFW2HwTjyXH8nWCQv/KMCN8ebNgechvH9/rHew44 EKHKc+Vlqfw4avCPrst8JELpjr02zCzjuBpiRJ33ieDzRfvo3McxrFM/pZOa R4QPNE+PF8iOYcRe8pumGiJU28s1f1wbRZnPz4u5J4igfONqg7/uKO6RPzNw ZY0IpGUx6y2WURygn9r2mIkE+62yjevzRvCds5lssiAJal05F2YZR7DGyqJS 0oQEP+7eZln4MoRhwhfGHjmS4JZnfBvrmSE0mZpjcPUkgR3b6hWFikFkfWot X5tCgujft0LeLQ6gqpZt/YMpEgRnvWLzuUrCPpnXLY5mA6CqavD4zX/dOBbD mfnp9QDYiNpuUaj90Rxdhn+o5wCEH89ySPvchTurR9RykgeAYXgEMxo6UPiu cuf8yAAEKdywXLnbii56R3qNdQZh88P2YqWBGvQs/fPH3mwQIrnp1hZEqzHw mEak++tByJnP993+qRK/j3vqJIQNwlLNt+ve18qw1WKJROoYBK6dmUxfG/Kx r8W7hDIyCFXpM6xKBTk4JiYYu7VI5bMvm3/N/I3r/3Se8HEMQdTuc6JsAT/x mEv1iIbyEMj0+i8etvBF4SH9yqc6Q0BsvlX32+QNSt7cTLQxGwLn20ZZzlX6 oMgo8szfcwiUmUY3KlUCQcOk/r/YsCG4FV+Wa93yFR7/fXo6I3kIjOQO8z11 iwMb3/CJhqoh2PZe4sjS9VRwXhCv6+sYggQ+4TqJX2nwUb0pZWpkCOb+XRmV /JkBX3nozZh2DIP4cW6zYwZZkOwYpcjDMQx7z3yxIPDlQGaf5LlTR4ahKrqR bqowF6piXlBuXh2G7Fs7GcuyC6CZjrFJTXkY+oXj96qxFEKPYVz6E51hGNN+ v2tCHmGkStrXymwYtL8znW0QL4LZ012WLq+HoaAv39guvwjWPa3u+XgOw61w E7pfIsVAP8MsGhU2DArZWUVFX4uB7e43jp/Jw3Bou4jh4FYx8Py6tvgndxgU 7znka6uWwNF9vW11VcPw6NWxD2YRJSBka5vV3TEMMYr1X7S6S0Cia08QeWQY nKMYwx+zlML1yym2/xaHwU3WxrJKvBQUI25qMOwYATaWpK561VLQ2CJKcHKM wMfGy8GZRqXwWO8V9/EjI2CuU2ldaFkKJqX7VkUvjICw15DYWatS+Le1zdb9 GhXbiF/lfFYK76Uo890qI8BD87foPjUeh32v+Tn9EUie0PC4JlZK3ec1Uy5W I+C44vZCcHcpCM1lG7e7joDUyJacYVcJFAjFj57yH4Fv1rajN6n1/Pfc98nr uBF4oh9yWECjBNoT35AaM0dgp+Xev7cYS+DJkMmjo+Uj8FTXr3BPZjHM8mt1 27ZR9acrqhrUisHpoZxG7fAI/CI8KG6fKYLdoaJtB5dGgHNky9HBpQhC2gVU LOlHobFBt5GFpQiO72VtKN8/CtM/NPgbjiFc9RyvMrk4Cm5vrJWe7/0Df6va bxTJjQI9pN2NX8kH7R1lJXs1RkFC4lwzfUse2DhFFuTZjQJX65P5vmc5kGJ+ L40hbxTqotKkJC/8gv1qf4LipMbAiPz0uSztV4j1SeZYURgDZeZM72c8ISD8 N8jn9kMqnpzcwXnBD27LWX6aez0GjfJWHfsiX4PzpRNvZHAMzGnfr5CDviCL Dce6XwMVy3mgyMsADMugtR/tH4PgYcsPC4xhmCXYY+lFMw5LvAUfildicILP x7Dn6ji8zRdYKBBORTstp8FzKuPwx0DxQK7vT6QPeq7r+ngcUvQ/rlyhpCE/ 202t067j8EGz+vRuvl/4Q0Gk47XfOJjwT39NEsjEyx78qk2x48BePlv+ifs3 qm9bu2NXNg6Xvp9484aYhYPSYzW1rePQMBWDV39ko/mrNrlDw+OwY88XpmST HNzMLimzXByHpADvXDbeXPy08PNqxQ4ysKzf5v+bk4tc5yMKufeTgb7cIFDy Rh4mmH68bHqcTO1tXSx/YB6KJNvmFImTQf/tTSaXE/lYNPJEjEOODGsv1bOZ HfPxfZWgpYo6Ge5cmN+gzc1HheS5H94GZFhS6e3dPZSP7J65E3+tqTjuHil+ PR+7TJ1PMruRQWrR31d2WwFGKckZ3PYjQyob8ZXuQj4anmeJ8Yghw8UyqxMW zfl4Zm9bX2U6GYxm34jMheXj3EIYL30xGaKM7Z3rlfMxp/2xhmwjGRqzaUUM ZvPQKedUgEs/Gfgtr78TcMpD2VBKU9E0GXIuPEs3Xs5FJsdslq0NMjj7Rsx+ e5iLzQ+dbl9hnoDO00zOsuk5GAw33F8dmABz/57A+LlsfCSwuzxXcAKCjaTM RQ9n49HtLbQrkhMQJaN2U1MmC8lDIdLi8hNg9PvuPcc7vzGtQveVteYEFOlo N+2Qz8QrH6cXKLYT4J53c9cUewbSmfw+f+7DBDSGv7rIS0zDmjuOZqaBEyAj 0uwULfUT1fcwjo1nUvkfhT8O9yXhgfnGoyfLqPkoPjLToU/EgdYgPcOWCeBn Vek4tTcOXwQf6x6YnQBiRNEe6tsQ3Q9d/dstNAk0dPdWT8rJoSItAxOP9CTI 6EiVljXaA8fgXzmNO5NQdPfI75GATxCdoF3c+nwS+IcbDq6RwyHvrF1m/bdJ qCJVvEL9HzB5+WcoHp6C5PHIj+nCRaCkwfc0dv80PD9vsmdJsgnYZ723BRyb BrYBUTGJauoc50EX+V50GuLsE1rK1ZtBK3+i9ZnKNLwlBd/We9ECTw7mXRP2 moZnovK/x/3a4Hj22T6BiGlgzh+/3MndDuNK0fZ7U6ZB+/yDljuR7WD21j1t qXoaRCyrtp7HdIDdkPrBPztmYGngQU+ZfxdIvq7J/cExAx8/8NhK7SbAxj5p tagjM8BxrDXH5i0BXOSOebpenQHmBoX1xifdIEsMPvFSeQZ6+QKpzXo37LTf XWqoMwP05GkpVuke8Eye//ff6xmocRpkM93dC4rXnwZc9pyBEo9dFvIvemFP D0H4bNgMOAXeYzne0AuBzCVP2XJn4JqkUe3Ld32gkSC2fVvVDDzY+6cxp7sP eCEpcr59BsiW8n1BQv0QZe7d1r4wA8H/HemtrO6HdDoXiSFaCmjw4/A8AxHY my7TP9xFgZH7364eFySCdcRiSxsbBZJ/yn1yuk2Etmc/oxW5KJCVGWhPa0wE cfFnLyoPUeDcglfpr/dECN525IrMCQqIrZ3iD40mglZYYOd5cQoo+AtN7Wsm Qv5T5YTkKxSIlPlUmzlKhAOijNZHblBgesw8OJTahznRlF0NV6CADk8XYx0z CfrrXrPuU6UAw+M/XXcOkkAm5GLv5wcUYLzDWXD0LAliDGaT6fUp4GZENFKT JMH2C9/t3hhTwOcqe9DQDRI82Xxyc8WCAsoGCRvtSiQorznIYWFPgV7dwHvn NUhwPKiTNO5Mrb+4W2nlEQnc9X1/PnanQN9e8yThJyQYP6fwuvsLBT4NK3D2 PyWB/PqO26pBFHAqfa7MYEyClCrkqo+kQKtkBdP//5/LHGA/ciOBAimdajR9 z0hgpieSWZhKAYHTHMN+VH7j2am3F39TQKVg1bxDnwTnVxOU0goo8OjA9gep VH3fCl2+U2UUeNxxXIuHmt+CL89EdC0F7B10jh1RJoGaTmsOTwsFynwTrP7/ /TxL0Ou9H4HKT11c45EiAdeKnOruAQoY3r/5cq8wCezLaA+/G6fAKp9vYN5h EhzYHLoSNUuB4+z7KyvZSVB4sUoz/x8Fvr3+7nqPlgR6Ft9fttPOgkGHRpP+ NBHovnv5zO6aBYXAo783u4iQOGSRupt9FuTO7xM9XUYE+YNq1Sd4ZkHm0Pl7 kylE8PbhpX10ehY6GujeK1D7dpHazQP2F2ZB3rk6dukREdrpBiT8JanxdVpe Kl0jAq/dN/Ma+Vm49q5R/tgOIiQ8EiOKP58F9QH5jxwrffBfMNf6XatZYDnv cyQ+tQ8mm9Y4TV/NQuHt6pfzun1w/kaJUuynWTAKv2b6r6gXCgSVkDVlFlZT S4vXnvZAy4pR5NjkLESkKNU91u4CmwsKedsXqXzxkmSr+U7gMjnXfnBjFsSN Fwe2eXTCo/5FZjXmOZB2a3Kv+9kB5HKX18Vn50DLvab04VQb0PiFa4eazYHK BGsJjUgznD3byKNAmYOjm0sHbO3LwORSVGDP8hx8W/1cpfihFFJumLObbs1R +46Ne4IBJXD6ERujF8s8sDQ4MsqmF8HJL8r/Gs7MQwHBYEqNkAuHZxs77j2b B0rI0g3e/QmgtxF1b8h8HiQYBJeSrGMgapdFg7XdPKQFJSjmpEXAocN7KgM+ zANbmrdIQbEXHLh3N6sjfh50Fwi6qkoeuP93k/+DgXnY35X43tcqDdWKo9km x+fBUYpeQIQhA/3rLTwdZ+ehcJvAam7QL9w7ssctgmYBntzWNOpMyEI2ThWr /oMLMNliJUJ2LkClI4dnXhxfgFY11RLFsT/odW7OmEZoAbT1PL+o/YfIfMv3 scCVBTBRNZprWStCRvvmu/oPFuCUc1yBnXMp/vcupn7+8QJYPi9Zd+QqQ3cf y//cjBeo/VjXg7SUMtyZzH413n4BZBi6be5Vl+PNrIECsbcL0OOSkxF6twLf l2RIVLhT4x+yYS5qq0C6bhXh0aAFqPhgd0i1qRKvjx5Osf26APY5aeqht6rQ ZX7uBEPiApS0/kwxza9C2t1+h05lLUBjyHimsV81ynDph+X+WQDdRM7R5yvV 6HxUhFO+fAGuGc9fTNKowU2pFpbnrQtg0RUq9oGxFt9k1XVG9CyAc+7/Krby cCjfLjzDGGbGDAlJkiUS8qNERT2PJUKLkiVKZIkSslQIWbPvWxKi7CFkjUcI 2fc9W/YlUfbtm+/P+zrbfe5z5lzve73XjCbGPGhEGPHapLYJKt/ZMxs5BY3o VTqyoF2k8tGuts3HNCEsf4mU1CrV/q9czVepCbnH5WHMd/+B6k+3ig95NyEa 9qyGt3SrwMg2d1kRNSGP4I8RLeRVcFUSL76+3IRwhAR9LPsqiBhxz2TlbkZe 7jFCktyrQMtYM85DoRnhd0JXTAVXQc7nrAvCD5rRa3v/r2/EVkF5YVHFb4dm xLDk6d0ktQrePvhoUOTXjHzNXNT3L60Csw8fdB5FNCPi+HPO08qrADyeGF6M akZ+ek8njG+sgksp4SJCYc2I1P0oO1p7FahrvCrd92pGAdeNXzTcXwWMC5si djbNiLH+nvzuw1UA43XT87SbUaCcNqO49SoQfJootHi2GVHK1HsevFgFtBY/ EjTJzShYUjUx8tUqYIvqxHEPNyHmbIVH9T6r4N3a12sv0ppQ6ImLktshq2Ao wsM66v//z30vtXfqzSogvxAwyhBuQuGc4vUG71eBfWrikanxRsQacTIsPH0V 3BD+G+wU2YjYXnMJbpasgqfK7J5Ocw0oCsP+R6RqFZz8M76kEtiA2B2ZSvUb VsEDguvSeZEGxPGE5nrNwCrgyDjqrnTnB3oztX1ofXwV8EAubN1sPeI0WB07 Ob8K4ozG58Wf1aMjGjP2wdurYMuqfMjHow5xn295p8u1Bgjmzw9W2n9HAnSx i3/urQEDSbmDtBOVKMUlvIjfdA140Te981KtRIIbAW5almtAp3h3mtcAIaF5 V7avLmtA6Vp64cGVr0i03eTi64Q1EHTo4PYaUzE6/U4i8OjYGigsczqvyf4J Sdi44YVn1wDNkEhx00AGEldud5VaXgM9L+pehKamIbFla5sb2HUwzGnMv373 AzpVWzmvR1gHoW+kAItyEhJ9y2xidmAd5LyOxljJJiLhy7nabrzrQFX1Rk51 dAw6yYlpDzy5Dqbeql+aaIlAQks3VGMl1sG5vIIRa75QJPhmSTZfbh30CPTI Wap4IgFLUIhU1sEQdAuNuOOEjisE/9d0cx20VS6ToMYT6qObGN+k4TrYCBd/ pU33APBWubxdNl8Hx6+wWUj8tQU80S2se0/XgSdOJ6JS3gUcs+AOIjqug9ir zeeKVz0At5wl/SF3qn+IGneWrQ84yl7xit9vHez300YrxwQArnny1n9h6+DN 2/RjauIh4EjlPVvZ2HVgptvY3z4RCjgjPy1cSVoHazls9RfNwsHhR7smmhnr oIGvqJi1JAJwgGsjhnnr4Mn5YYeh7khwiPWdjmXpOjB3LOnnLI8C7LML7Y5V 6+CyxfMUzSfRgK1CVu11wzrwi1TKZpmMBqzhATXhHeug8qUm6uWLASxmQxcT B9aBbVpHqrBADDhwUbQoa3wdiCUsnA2diwbMLC/FS+ao9ul26dCn0YAy3Zj+ fWUdTNN/dsotjgLkr0f4O7bWwYR3catdRSRgDH0cN0yzASqrm0fN3SIAybSM bZ64AXIdKFLK2HBAlCEFr7NsAGbX90oOIBQQmPUYcEc2gAEn+2FupyDAMJnh xsy/AXhK42n/2/IF9KVbW1wiG+DVjUmosO8J8MGqdifPbADMmwnfZU5XQGcc u3hWhmpXiqMfvGELcOfnTOUVqHYJYsB2oC6gpVwYva5GxXX6S2+D9RDNL987 ehpU/+CxLE5ojzCBJ6/aGVHrXU1c2RXzQ/uGDt9fPaby3+N62KQYivakflwK tKXaB40ND7yPRDujZhIpHtT40tsHlUbj0YZkGntfMjX/42N+gynpaJ2wETyR uQEY6gprg4yy0NqwMmE5fwPEVDqOuUnkoH8+09uEmg0gSq4cxrnmoT9DgmMy Exvgw4ckien3xSjA06i0fH4DFBwYtM3hLkUnRBPDwd8N8GI5WPxKYhnSdzqs pECzCdS73uqm5lagpsOMmao8myC3t5TrvUsVStVatrtzdxPQYvclAvbrkfze qeuDRptgOCN+w6n9Bxr++OjEvcebgIu/x+VqcgNiXf3Vb+C4CSx+Jc0tXqbe +/CeS2Yxm2DarI3/u3sr0m8rY3jetQn2u3K5swc70NbzjbGNwU1wixg8/d+F ThR57GyZ469NILhsclM/uhM1WWY/cVnZBNx4FQ7ra13oAvl9hxfzFriTszIh ntKNegp+ZtJzbAGNzg8nxta70dO7nF6+x7YAHWVKJE65B6VlhksHim0BnS0D 37HRHsSm6h0XcXULlDIrE203elHucpU9++0tsH31VaP8uT509c3+9Ri9LXCR bsTSyb4Puc+8wMY92gJnuHQseqb7EHfIl4GjNltAkTXmehtXPyqRXslPcNgC o6VX+Mev96M/3o9Nk322gI2ScsFOej8KEEsDAiFbIL+mdGOoox+d6JngSI3e AkePzwHPjX5U5cy7IpSwBXQlZq4Ncw4gfQH9xoyULcBeUjfVc34AbTXFfhDN 3gL1mW7eupoDKNKu1zn7yxaI15imN38ygMS5WLXFy7eALMvR+4fcB1BTtbp4 Xs0W6FYcDXEKH0DpfYXaPU1b4KnsnEdJ0gDyXuRy3eraAjicJ+lG9gAyovFI 4f65Bcr/+cjqFA4geGi2WX5yC7Q97BJZLh1AR0VvrJouboEnhXK/z36l8oFf uPxXt0DV+awYeaq9V/OIYs4uNZ/aEjjzZQAVPHJ73Em3DQwVpjb4Pw2gUNfp sHXyNmB8adEnTq1vGXGt9Aj7NpC8fu+vfcQAUkvPHwPc24B0MEKfyXMACVUc JhgLboMq/gWxw08HEF2nq7iP2Dbw7YcOOXoDaHx6UjtLahuEBT659VthAKEd Nde2S9uA/OZa6/LJARR3IC/ln9I2ENX8iushDyAHQY4WjhvbgPtIJH3RUj/S knFZldXeBuyK+Qu5rf2I2URV0evhNujjP/X5vl8/WnTIfZxutQ1wgaD0qkk/ aghiD29+vg22ynGbVZf6kWfx+BibzzbADrE+LlvsQ4bNVwgXQrbBMyf2evvq PnRpPFtcP4aKlc9ln4zpQxskJ9eUtG0w8kPF/PelPmRx/+BR6R/bIPt80viu Zy9SsXNQ1GvfBsN7SW1Rmr1I0HfksWv/NuAtjf9NEOxFo3mZpXWz2+Dj83/k pdoedBuvqKND3AGYNna+OlIPkjiS4fqSZQccp1/sVRjuRhRx5tREzh0wsRtj 7PS5G9XfGVqdEd4Ba0Ejmv663Uj2k124g9oOqMIIjMLSLnS4aqD0ncYOYFtL iUiJ7EJrPXD8m94O8LPrr0216UKd8ymEKaMdcKs72t/gZhfKxZAliBY7IP5p +fqCRBcKZLPVEbOj4iQBHnPWLvRIuN/11ssd4PEt8/DyRidSBiD1mecOcD0h spk40omO3/7YEhtArX/KtTOivhNhzUlrFRE7wPmUR/lMficadn569FfcDhh3 ZWkqft+JysJ6Fek/7gAeFwZW3rBOFJN60ULk0w4wd4MZF706kf3X5PAbX3bA 7/HIZGGnTnSrnVBmW74DRrd/seLsOpHYlNV49PcdYCWAPzhl1YlI292Er807 oKm4N2/BshN5jguFanbvgI/HQzpWrDvR3g8njqWhHVAmZWs+ad+Jnn9uSfCZ 2AFJPGI3Bp070Z8Y3hN8Cztg8aCl3rxPJ3r0yi677O8OOC0/aiJKvVe/Htad 1dymzuenhNKXtE509wZn+W+aXbDAxtwVV96JeqSeKPoQd0EQt9D0ZncnUueu bORl2QX2Qie0fy13oh90BzXKDu8CCZPSbasDXUh+0WTgNu8u0MUHZxVKdqGv XcWGv4V2gffFW3Itel1I6itp9rX4LlCW/Rza7N2FcpL1rXnP7QIhyTv2jV+6 UJINzvW28i7I7T6nyc3Tjbh0tfG/r+8C1/EGzHu9bhQplxH4WmsXxHszRjq/ 7UY+zOpxpSa7YEco2VZeqAfRbCTx336yC/QkTh//bdeDnEZWMxbtdkFwc2ZA /PceZJn9toTHcxe0UqKFfW160Uzkb1jqvws8Bj6cdmvpRYbOcvUa4btA4XV3 9OapPnT76nSPd9IuMG7v5Z5e60Pn507/W6jcBVGKc8ns1HuR1+7l5F2/C9rO vjlsyzuIREv6aHjadkF+0qCUcswg4vZxOaAxsgtMZTXIHQFDCCfYIFayuws6 AqKzOwOHUZuhobnXhT0QVP3AVsV8DKmqFPzhlt8DeQl8b2xzxlC1OP2LYpU9 wNHF9bNtdQwV7md5z+vsgScWd8PG3cdR3LuN5JvP94Ct+TW78Lhf6GF/8PDR gj3QSn9M6DOaRPpc59lCy/YAnviNhxYzhbTuj6vhqvfAaF6BoA+YQkqTkiVz 7Xvg2TUvmsWyKXR8uT+8aGkPlG06hD5Jm0Zckh4Nwut74IGndkDy6DQ6+FwU G7+3B+ruW00EH5pBNLsulp7kfbB7T/72NbcZNMpwXOWmyD4IbeRvSJGfRX1q za41p/fB+n/uSoOWs6g16Fmh9IV9oBRMa63yZhZVsP7g51bZB23hRjYRM7Oo UNtGN1R9H0QYyR67RZ5D2bFHQnE6+0DfQ5SXJD6H3vFY7s2Z7oODDMpN4lZz KMLo0Fl9y33gE/1YxcV/DgWkVD5ut98HR5veVvt8nEOes+ZJis774EBZ1wdY Podeih7sL/LcBxkOB7WjOuaQndVXJpGAfSB2VFPRcXIOPc4zUYoP3wcjpVE9 Q6tz6MEqxfnA231Ab9b9PJt2HumeK873TNoH8+cpYSOUeXTLyXBuPX0ftF6+ FGxwaB6pVBB5H3+m9pv4oJ/36DyC2ALt4eJ9kGnwYuAgzzw6p3gv6GblPvgv 9uWOIBWLv8Z/r6nbBz8eWKSrUf2FGnK2pVv3QXmropoNNR8P+c7pzJ59cHON 5qo/td4hdRpz7uF90DyfzPaaZh5RwjMTQif3ge334yxaf+cQvud2D26RqkeM e+bM6Bza49hjfPFvH2g4lqr91ziH1vRSFea39wHHqx93OfPm0LMbQhdzsBho Z5XQGhs5h1b+vOwzo8PAhyo2v3Pt55BlWLstHwED+RwLTS1vzaG5M4JMQ4wY KKRX2j0pModMux0zIpkxcOtyU99Jmjk0/qz18g1WDDwScYF8rXsW9Ze8eFl1 BANNKk1cnWxm0W295kMvj2FgxE20nik7i9p2ePPP8mMgU1Y2Ox43i+pB42ya MAYe4/cpd/ObQYpjx7weiGFg4QrlVb3KDKp0t+PhOo2BX5aN9T3wM6jo+1Ht 4PMYuPer6FfCi2mUomZdY38FA3ON/C87y02hquR+71dXMVC79s+Ry9OTaGRb XsVfHQPtpXijKvwmEUcWW0uiDgaej7sXLdA4gfwYy3obzTDwD/5d0T3JX8iq mW6e1xcDV66sevg7jqAAAatPooEYqOXS6v42bBilOfdZSYdioOoXlm769J9o /FTmv6tvMFBqtL4wv30Q3Q5S33uejoEPwEeFgEN96NyNtwdafmAgqThFaCS+ Dd1OxXX1NWOgn7vzE4xpK3q6/yTqVzsGRhkJXFkMaUYZOfDIZj8GGuBrKxT+ /EBHmaeOH5/DQNGVLF21kSp0wezGtNhvDFRM2j2oduIb0qosTj+/goEszKf/ +zlbgUKs/cVubFH5NJ6ml7lcjGjaxc85ErFwQtXPgHglFXGfjN3ypGBhvVqW JK/SeyTjRlsezIKFHDa+VVrNUchOokfuIycWYuYyXAZJAijEF+ByubFQPf2M aLiZF/g0llZbykfFgRs0o3KRYCrUSa1NGAsH3A3wxjkfAM3cBHlQDAtjX9L8 OGiXDo7JX2+bPI2FQ9bjtBbEbKCzwqO5fQELf8voTR7QyAf2qn6H8AALSzoe C1y+/QWEJf3tZ1bAwjXX+kgNmSLQeKtWX1ANC09Ih28zFJcCKVbB9vnrWJig 9eQN/emvILHbS+HzLSws/aceXRxWDkjRk1+eaWGh6vu3he79FeCZzmUhWV0s fHujQ56DthKMHf4Yi9XHwvNGYb9jAyrB1UEcuc4QC3fzhlz9Cd9AUZyxa4AJ FppP7R8SdfwG+PRrlm+aY+H6B9W+iuFvIPDYceNDT7BQNIo07iVdBTZGPXqG rLHwlWGoVrVnFXiQ9OtKkh0WWmYLa5fUVoFmI4Wyhy+wMOi4IF3GbhU4J5B8 6tRLqn6PO9x6T1aDpCmaxBVXLBQWdvntoVYNyGkPWIo9sDCb4YXF8oNq8MK8 ytP5NRbezqYcfWBdDX4J863L+2NhVFUIL4ddNbi+4GbOEIyFGwtX32paVoPi T2ODzWFYuNMVmnn3fjXgt5K7Hh6FhZx82bZWytUgSPx9pU4sFnY4/WFtE6wG G8uYM9zxWJjnm5pbSeVnlG/w8dd7LOT7y2vm0VQFWuwqD6V/pPK5n31XN7wK nJfi8bNMx8K2Z29zXt+qAh/WXXfOfMJCxlFp92vEKsBUMmK5mYuFI/Idq4ul 34CjIxirKMDCH0olIpnG38CkTIKGZzEWqoTLXK6j/wbUd/e+q3zFwp+tqUae HyqBwKuKjK5qLKyxXDbrikYgRI77aGwdFpo9WL0lll0Btmhcgu83YqGdjfzN wZJy0OZ10W6uAwtt+E5Fgvwy8NL/60XMOHW/Hjp4pMkWgemrXLnfJ7EwbHRL h4WxENyivOTzn8XCW4s52stdBeBEqAw9+zIWPto/OXhMMw90RJW2iWBo4Et1 gdcWMhngog6nwjItDWRubNB2C0oFaYcdvxTS08DKe1kfaoY+AOe487FyTDTw nA9XyPLPeCCUVGykzU0DE436uQ9xuQPXT4Vr7rI0MPcod1VfWCLyExAJeQNp 4IuiLpaty8ko6l3CyVxFGijLG3b04vxHlB3oc/fnVRrIGPfYYgKfiUrpdlf/ qtPAwh+ihSmOn9B356fBRE0aaL5/6bvSYA4aeqJbJX2PBireVz/2WywPzUy2 6F03pIFKeaq90Zfy0d97CqvGJjRw+2PYc4p8AdrrLgpyMqeBrW6hbunnviDi dVGhsCc0kC8w91klbyFir038lvaUBo5S7vRl7BQi3ktsesieBmKu/ztRWV+E RAt9/3U70MCJ0Pkpba9idE5sL3DBmQb+5E2L+iFRghRTbE7QutPAX4rhxRbN JegG93TlYW9qvDx7S4x2KdKN0tMV96OBngaxOh9bS5Eppe2vUhBVn2mf/lnJ MmTjrRh4L4wGBnCrdZR7lyGXvWJBuygaKHdVteZFTRnye3aq0i+WBm4ULYnb LJahyN/v77yPp4G9aR/eYLFfUaIp+9+iJBrIZtrh6rJXhrKG/QJaUmhgu9S4 MZwsQ8Va+wKTGTSwvtS2Kb6gDNW02KLtbBpo0LTlKmJRhtqUZnRY8mlgW7iW +0XGMjRYcXdFqIgGpoVYeWlGlqIpqXZ/UEb1lxeT+UdfilayLwtoIRrII+Sk GWtcgvYESyssqmlgyLdL3vWZxYiQIKbjUUf1DzJ03f9ZhFgPJS+/aaTWJzet oO1CxBN8yD+3laoPMg3zoytEovQBx+s6aWAxLyfz6HYBknbFVPzspdb/0nJU biQfXbea/UMcpfb/5GeukNVnpDt9z493grp/oQyxuVy5yOR+B/+5Geq+1n36 EmjzCb28UaZl8oea//ieprxHKsr8L/ArwtDCRO7seTe7CFSYitXqwdHCypA/ BXa+fqjq2LOlBQZaiDF7GU7weo4GmO7zcR6ghTzxcycfLrsDhj/iPna8tNDs ctGaJM9HYJzbpXFSnhaGCG0aHI/+CipCwbuty7SQ0fHW7zPNFYDDNmOqUYUW RvXqbnz3qASNZ185WN6khZZRO4dLqqvA6TKRhHwDWigmyjCjfrsOYGvd5y66 UvPH9gZJX24DuqmLZ5g8aKHUgfftkb1toMBHx3nUmxYef8R4wMi8HZipiTF7 BNFC8bjE8jG/DtDW1n+2/h0tnN34eDusqgvED4q73fpKC6017n7uWuwDG1/f NvBX0sI152CVwUf94FY8nnW1mhZ6/a0u/zTZD+gMh1KiG2nhxBsGm2tdA0Bf XvmPWSst7CvCXZ9SHgTF/HnnL3TSQunt/ovjxYPAYup109AALeRrmg6JDRsC tXUrbNnDtLBViTGEb3sI8KTfu+86TgvJ38YGPhj8BF2Pz6zwztFCt6Dn/v/x DQOxa/EyfxdpYX8LfyCtyzDwESN41SzTQrpZHRbznmEgszx86OEmNd7r7Ijr yxEQ0aFieG6Xqu+/+qqdHyPgd35BBgGLgzOSZrCdMAquRB77N4DDwSYGpZef RUdB0jO/i1kMOFhZe2Il6doo2NFe9XZmxMHhsz3pGRajQOu8Qdt1ZhyERzkz m31HAXHnrNHyISp+6pXuUDEKjH8mZlUdwUEWi0uFjD2joKKCtBZ+DAcjt3NE WudHAUfiM2DCj4PjU0kHavdHwVO3MR+pEzh4YHXEau3AGGh4cLWDXoSab/G/ 6yZ8Y+C4YtGRfjEcDInSKzgkMQZcBPhMMk7jIFuxSAbLpTHQhw/MdpLCwTkO c2k9lTGwzJbcev4CDvaVkpQbbo0BokDJn/WLOBg2m6P/XncM8Eu2HiiUw8FT DkMykwZjQFZh8rTdZWq/FzniYk3GgOatbY3TKjj4gDQnW2v2/++9B+z/XMVB 4cK+QYtHY8Db+kRUtjoOirI8lgqn4gTXi0UWt3HQ7e8J4iXzMVAcpNEnrEPl LxbFamM6BtremW/O6OGgS5TsQckHY2A2y5Uz9T4O3sQkVfvcHQM0XyNlTIxw sA1c+2WnOQaONGbe5X9I1ePk9/92r44ByYFvzmOPqPVCQkwFFcbAtdne+ARL HJRSkbq8Kj0GTDcW0T0bHFQSuuhrKTIGXOlxY0ee4aANVvRP1NExEMPOSTPg gIMdab7StpQx8FlAnD/GGQdfrgxxMeyNggZJJUUtNxz0ysu6p7swCn4p3DVh 9cJBXLlrkWU/df63bLw7fKh8poamVb6PglNP4+uvh+CgxIR61cM3o0DpVcEs YwQOWhjaT+e7jQL94AZiYzQORlwD/f1moyDk09pV5QQcnKoa5qg9Mwr+zV5v B9lUfmns3ioOI4C8abyy+xkH5dYkmX3OjQBBBqeDX7/g4GUjEmPt6jDQEUzV PFeOg+9lDl02fTQMyh7s94s34WCW6snTchepv4+nbNu/W6n7tu6NPBeHwMIr Ea5PnVS9cMTog3FDgDtBW//kIA6i0ULm8/8GgftgzjjvHA5iCMIfskIHwNu5 77Sjizgoe0xiQ+PsACjYHDwev0zVp7fBMqy3H0wdYnjIuUndj5aFnK1D/UD1 tsE8CwMdhBfN1918e8GBZuZ/tIJ0MExOWrlIugs0hMnIHhSmg6Ybbjk/USfw 1DH15BOjg5W/ZhYpyp1g41cZq5wUHRT9sXCr6lYHGN4yPeuiRAfnJta8kUEb yBIqf7ZhSgcv4PyU71fXAyVP882FVDrYJMfYgz3/GWBUI+R2Mungix8Bw3Yv s0EpE/Il5dJBoZr/ZOP9M8Cpt6ycwsV0sLglTjCjJAmw5qELD+vpII+da+ng DvXhaoTt5dgMHVRs3d+1705HsR9hzZ8Fan7T55WB6p/Q7cePGTHLdJDjfIa6 pkEuql+rjOPepINrqzd9JFA+yiZblOsR8DCr99Rfi9OlyKwziu4xGQ+LWAx/ h1WUIb433645HsDDswdEGzMUylHk8UPDMYfxMPT3vdm/RyrRS5mqve6TeFgq zHIvaKwKeT76tZZwCg/7dpQD0pyrUcAb3JK5BB4mdv+l0LLXoLh1pZHdc3h4 1MQk4YTMd/RB0Ky3ThYPmzCvV+vrvqMsTd/WUIiHB5/0/HdHvRaV5TcigSt4 KO9WOPbvdh2qGl8oWlLDQ35K8vvetjrUcICSW3IDDz+fte/RvlKPBqzUE69p 4+F9bvf/Rk7+QOPxT2MO6eHh8xqOuPLwH2iuOSxkTB8PGVuvUmY2fqAtke5X 9qZ4GDuoGNFa0IBo9NZegEd46F9l/MeI1IiIfoeeEizxcLa3f3zlbiNiKTln 3vkUDyUoHUxm6Y2Ic+aO4Tt7PPyp7XQk508j4jvkdOehAx4+TqXNyD/dhISV 4m5KOOOh9lLMfUOrJnTavlxl+xUecvGZjyanNKHzH4blvnviocjppDbTviYE O/fPB/vgIYXFpisS14yu0PCevhOAh9cK8CFcIs1IXUJemD+Emo8UlDql1ox0 DIz4FsPxMJUghUZMm5FBsCdnUTR1Hu9Fnf46NSOzio8sbm+p/dYmuJL9m5H1 Yi1RLQEPOc3LrQ9HNKMXXDM0bMlUvZzzV2iim9ErNcL2cAoe3lnNSf8S3ox8 HIX/pmXgoXv16Pmjfs0oJF1t3iYbD3Xq5yX+c2xGMX0Wv2Tz8BAiEwzBuBkl 0gcN4gvx0ErF/nCHcjNKk8rpbCvBQ3qC3PJngWaUa9LWGFuOhycTl7Zbd5tQ UcRytfE3PMR+Tv2k0daEKqpZvop9x8P0n8GOxu+aUO3KmYKNejyUrm/pOWnS hFp4NbOqmvCwncVfqvFEE+pRf/YhoA0P39+fJ1tPNqJh1+g4rS48rFZnbwfx jWgquziCpw8P9XxO/zO81YjWGLc9C0bw8JlGv7DMpwa0J8Pl7PILDy+KfBaU u92A8I8v2l+ZxsPddlYN6fUfiP2Hq8nQbyo/Nk5KmMQPJOWFU8Lt4WGJqNa3 my/r0KUCgUstWHrIca529SR9HVL6pSQVQ0cPvfjXt08F1yItOV9BUTI9ZOCX uq4d/R3Z75Lpb3PRw9evHlS4BlQj7l8KglY89JDf5lxU/GYVqq13uOx3nB4e 97ntM2ZchTgiJj0qRemhkdXDkDipb6hUuBxz6iI9LE4xxjfElCOMjsUWnT49 9L+px3l3IB+lXUw6zPuAHupIVGD+S8tDN/n7zsma0sOLrUvVIS8+o6TfCs9t LOlhT10Cm8DlbHTZ68i/YRd6aOO05MZ27SP6/ejmwS13eshT7muWeIL6fqL+ +jTba3r4b5n2czD5PZo58tdaLZgetg3YPHfefYP88hoWixKofCUvs+pIeKMz MRhyZzI9hDTxsgPIBQ05S4n+TqWHV0Zr3t/NeIpOqSQ9Op5LD1+tpuzN7+qC HrE+X1BA9Vcv/aJMbwNcWCnpusX0UPL7J4f3aS9B24jDdEglNf774e/WS6/B i+85+KwaenjVnkfh3ZkAwJs5KVBXTw+f9fxwwjKGgIaQI5fHm+ghK8dJZdQU Cmye3TTebaOHWYbv7jzTDQdH7r724Oimh37s7ITI/AhQI1eedKafHrbEuGf6 9kQCixN/v13/SQ9bVTuiqr5FATbyyTHzMXroE/yPJ9s2GlSs6GO8Jumh/I++ hNK5aGDaF3EscZYeOutammsJxACmioZLZYv0cOzjh84l3hhQnIzR71mmh8Pk x5Krw9HAwFfKeXmVHgqu5o516UYDgpVFHOMWPaSpMJHYDY8CebeTyk7s0UOW xhcOQz6RQPdC34A8DQNkTggkbEhHAFoeytY9PAPkcSlWdHwfBrLoFA87EBmg tZLMk73aEHB73uFcBIUBwjUaV53bgWC3LUc7h4XqL7O4pPXGB6QUTj5rYGeA iYaMKcoGHuB63JGoSU6q/5il5D8dJ5D48HXXEX4GiInLwCrKygIGJ7NG/hMM 8NUl88x7EmbIOkilSkSEiuv8zbTrHRH4QsqVOcMARxkt33EpBqKU+oUUBWkG WPlO6ePWeBiiDDW/U5Oh4jpHM+tb0WiYJsRfT4EBXvlymFdXLxEpsT91N1Km 8osp+E+8Kwlln7zl8FiN6s+ssS1k+BE5q7M+dNKg+jNdbTMoyEBc8THyb40Y YFcObdsuaz7y/OxwPvkh1U7XNL4TVYAWanTFMx8zQE+bOt35Y4WobJ6Lu8yW Ad6+kOtMd7kE6Z5/vzngwQDvUgpTpNsRiulKz+X8wAAHo514fjfVIsyMXypf GgM0lcugm/tUh8y2H8cLZzHA4mr+DzLB9UiaTyzgQgEDzPuYHHToVgPqscp7 qFvDADMEAz9KdTajSx7h+g/qGeDuUP2o8ecWlBJlp/moiQEGsKT1aQe1Ivty KQXHLgYomrqHxt63IVZSGXfsBAM8mXaX661aB3rJHceWNMMAPZKNbOjzO9CE hDNjxgIDzP9slkY+3InydcBWyT8GeFhcwd5jtBPdSqnu7scRYF0fa5+Wbjcq LfnQNMZAgFxB07Zd+d2Ir9mrepaRAF+lGz/lJ/Wg5b/KnzdZCXBfRvJWe14P CpFrCjgsQIABf2mXs3/1IqWK5DNDQgTYkfF20fx4H9q54DQQL0qAIiFdbaEP +pCZpLDQcUkC/JzoMd/T04e4P2Nbp6QJ8FO6oG0jYz/qOtVvny5DgHfiatwG QT+CJ3yqxRQI8N6WatdOXD9aS77/aFmJAD0VDMwma/tRFo/0gQJVAtyUaOCP WexHD95Rip9dJ8AkyYRszIEBxME5pX/+FgGala7mEiUGUEtUOd2OJgFekbg2 9P7aAPI8GJlVcYcAOXhpRcpNB9CFEAsNt3sEyO2UiyxfDqA/jIpbCoYEuNXo Xd4UNIBSfI+8x5sQ4LXEIuXFdwPoLv6v8g8zAiz2tHObSh9ALB4Nv/0tCHCI bimwJW8A1e+/j7xuTYA6uTohZcXUi/bSQfaAHQE2M//KrC4bQJKb6r86nxPg cD6i3aXiOXshvygnAhQS5ClzLhlAiSv74ndcCfD6v7OregUDSMuqt/eIBwH+ zjjd/SlrADEuZLsMexNgVo+yi2/SAKoy8xZ470eAgrjUg3RRA+jF5L0moyAC 3EVuxVKvB5DYg7O2gmHU+UQRQiSfDaCJYUbO2UgCVGKzLmc1GkCxehOVmW8I cKNuymiRqs+NvrKHlu8IMFgmIaVLagDhNMMpEu8JMG2nIW306AAqbX/05e8H ar/RbwNP0A4gwcbDtA5Z1PrBy/4V9f1oSHk5XSaXAF1wA/MX0vtRWE29+l4+ Ab7wPlWm6tOP9sqfx3uUEWDv+KCks3w/Krhw47ISIkDnnjcCTUf70aMiwQWG auq8CL4s9Bt9qCe3+3xQAwG26H978ia9D2Unn+mO6SdAURE62jjaPmTMQ3qp 95MAXzsUZxf29SLOd+N83GMESLY4aW35qRd5R4VaJ88QIKs18RtZqxfp+y6R stcJMENT0u55Sg9ixdflWW8T4IggTJ1y7EEN7vF3zuwToBw2ivDhRg+Senkt tRhPhMy4qRnDrW5EscqUr2YjQrNk93lN7W5kkhTN3HuYCCdOrUY/OtWNvnZ7 DM8dJcJzznSxn3DdyFz2riOLIBEuHclw+6+oC1VaXbkiKEyEhJrwvpSwLsSe LMl+QYwIPca/Pyy36kI1BHKeoRQRLp7JPnD+vy505OKmq/0FIkxBJe96DnQh G+vJa76XiFDatljRc60T1Se3H3knT4T027eB/s9OdKy3fDZXicqP9kLtq9pO 9IyYUVSjSoRV51hYGPI6UdPFKK++60TooOyjx5zYififumss3KLyH1Qa/BLS iRw/WPJitKnxSRs/WD07UXuv7tJBPSI0Vr5ioOLYiYRIyuUn7hPhheejPVa2 ncjl0hl/GSMiVB1+bPrBqhN1Pz1258ZDIlwRilSmpWLRj6QTRo+JMJyWPj/t aSdy71v/98yKCAM5LcZyn3eiftJElZ8tEUJOK9I5t04kDtpC4p8TISWn1Fw3 qBO9tvmqn+dEhFpem5KSCZ1o+GOaaK0rEb5Q6fk4lt+JJPsjtvo9iLAldfuf S1Mn8md0q198TYQ1V1n1hGY70Th4EoUNIMKCiQbmLUIXOmd7x5gthAhXjzRc Z6bqG5xy+fTJCCLciv967bVOF5rql8BcjCHCw5zXlJy8u9BFMneLehwR5p8X fMpQ0oUiIDHOOJEIT2as4NX+dKE52zXzFx+IsOHQPXhftBvJpY5LB6QRIdt/ zFqGT7pRzEALXWIWEe6lYy9YUO/rb3JZZ34utZ+H63GOe90ozi7carCYCDfi N87QJvegv6muF5e+EmFpl8ZHkZ0epDr4mET7jQjbY3iyv9zpRetyiqnCP4iQ ViEbo8bbh24xrQ479BNhmuEaLc1wP0qXH8sK/EmEXWoX/Cs0BxDmWbPj+zEi DMkTS4hsG0Cfhj6y/5glwiSL+umllkHEkKF1nWOLCFO7j2gNzf5EFYrF5YWc JGigyFL+8MIYMhqLlfHiJkHOm38veb8aQwwuziUafFS7QKngr9oxdKtI/suf kyToc1skke32OJo62ZwlfJ4EWY9ue/hb/kIUpvG38dokqNWtqnsqchLlZ9Yc fqJHghOb5uqmvZNI50pqtMx9Evz5UTqwk2MKJblZhPeZkiCphlmD4c0Ukvq3 5sfyjAR5zA/fIQROo8GQfoYxBxLs5mBsYambRq9OffXOcSbByZwDjo3706jB 1M39qhcJHqx5vUT/ZAbp95McvSNI0LjL5c2g5CyiffZ7/XYMCVZSzJgDH8yi NJZ2e/44EnwYUp9tFjSLVtSinlYmk2DoG94BvdFZFD3zYikolQSZz5/hv4Wf Q7Jeek/uZZJgx43fJHHhOeRdwWO+lUeChw+GSxo8nkMierTT9YUk+LY3UjzU Zw61rU8aR5eSoLaCneLD5DlkH1E/blJBgtfHL7S0l80hTolMA8kqEnwJ10Qq 2+cQag4cpqklwZHZvDLeyTlk/Mj6bvsPEnz2yHlwcnUOEeg1BhKaSfDS9Qez 27Tz1Ht4VseynQSleC0VNJjmkQbk6JHtJkE9q0/Kg4fm0cbQlgapnwSzakRv exydR+8cfrb3D5Gg4KeN2gs880ievfJG2igJ1hcc3ftzbB5N5yU1P5sgweCH adqRXPMo4IaX2uUZEnS4+VHiEPs8klh4+OPgAgl67vHMmTDOox4fVeXxJRLM 2ToxYr0/h5wETn3P/UuC6+21lieW5hBPFZOC6zqVDzNx/cXgHPquv1J5bZsE e+X2um/XzKFH212XuPZJ8PFKjnlG+hxiiin6OkfDCG3O9zU99p9DBZKxF0rw jNB5+HrWe/M5pNP+svg1kRHGp7q131ecQ7tP7ktpURih2Ft0uPTIHHpwbtH/ AAsjJGyEZKT/mUW1NE5jTWyM0FbWf+1l1SwKio4KUDjKCB8Kb8Udvkedt+Hx 8T0eRggzf5swCM4iLdE86dLjjPB0FalOYGEGcX9rHhcXZYQ0hkhM2noGufvr nVv4jxEKV3Ynq4vNoCnN2cDUM4yQ3pg16NfsNMqew53nlmGEz4SICZV3ptEl VtlgkiojvPKou9yIm7rfwz8maq8xwnNfRKZvN0wifLr2BfebjJCSlA407SZR y0XbyQ0dRrjLxKXXUjWB9B9myEw9ZIRctP1K2Wq/kGspx0ylFyP0f/5exevo KJrwTLn40pcRbmW1RembjqArNyTDpQMZYSJ/5uiJkGHEPHHjUnYEI6yJvozN HRlCieTXEW+TGWHKCcaAbJt+VGmwCp99Y4TuV74+F/DtQMdFPKIkvlP7daLJ uvOpHfmsMi8s1DPCzoEwim5HG1L3E402amOEHPt8EhmXWtBovtGi+gh1Xp20 WTFhdQhL3/FGZJeaP1AsFrPxBeF97NjPYckw/sk9dZmqPEQkHApXpCPDmV26 0AipHOrz7N2Ae2QyDFirK6reTEKHA/YYHh0gwzaxsajkI7GIm/ze6xkbGSbm ptkzsAciIaYpl+CjZMg8bKg61e4CToX4bL/lJUPF4QgV/Xth4PQBkRdpAmRY LC3ERMqPAzIHrZ9+O0WGftdS0oxF0wCMYPndLEGGWsRyX+v2LKDI9uXRwFky vNvzU882ORdcP7Rl9PciGbr54XkCWgqARkzc6L4cGUozROs/Li8EOofBPUYl Kv8c8yn30GJwL3asn0OVDGWYTr86qFoKHhzx1BK4ToaD+cn/7k2VgYdxgp0S t8jwqYgNY7JJObA4+uPGJS0ylKq8LHu8rgJYxz9uUtUlQ12FLw5KdJXA/hhF RVufDNO16VNOx1QCx8Tc70YPyFBV5dLzNK5vwIVXQ97alAwDFV2/bYZ9Ax5J qxUvH5Eh57MlnRfb34APf4yMryUZXiIWHHimVQUCP1wojrQhQ9NTK0jxQxUI E/gpmfSMDPdIrdJSk1UgOsX1c7YjGdp0WF2LO1wN4k7wiZW5kKHYp82uerlq 8D6tJqPOnap/fWgSWb8apJx8eKLLm2q/ec/vq2U1yMggfBj1I0N1WzeDE3bV IEcki2cxiAwf6fFvJlDtBVnX322GkeHvs2ZCL6jxxaeWD+Ojqf38Z1+FVawG 5dnhUSxvyXDY1upt0LFqUPWf1MFjCWTIJf7ytfVyFajL7QsWSSZDu5BK3c2S KtAk4cR4LpVa75vhrKNDFWjPO+qrmEntf8mTXlm8CvScqaS7mUOGCko3fHOG v4HBggfu9/LJ8MzfSXm81zcwepZu37yIDLX5LBne8X8Ds9KqG+6IDMkl0/Qd qpXgd/GCXXA1GZauKHWdSENg5Xzw8ts6aj+DDTdLP1WAHZmuuYJWMqQo8x6O jfgKmKH+z6kRMhSSE5YT+VUE2L5hdP/+IsPRIkEpUmIh4JRP7tmfJkPhe+6C hzS/AH7FmVaOP1T9ol/FymXkAakrNlWqGAr8s2tnFSSQAXxPk5YO4Cgw5vjf RNnnqWCI68ORfnoKvGr8fORozQfgvtxt95CJAjlqjoTJp8aDltjzJzy5KTBx 7VYnw1s3wOvVoaHGR4Gjkneu/11+BOysHr9iEaTaX3wTP6hugDgV3/UnnqLA V4sL3SqOvujhIiagXJYC+7oF9UdLElFp75tiT0iB6kfrpXXOJSNK1elJNUUK tHC1+72b8REVRBlfGlCjQNafNqcyzTIQvdvuo/c3KPDjPr4z/nMW0n0cFW2m QYHrPsIhMXPZCAPr/6zpUuANSsdlmYjPSEPY8GiFPoX6/htvmxyZh1JYt1S8 HlBgLYddw1ZAPro6K5J88BEFJuW6MhvpfUEJnTWtA08oMMxci/JIohCtlN/b ef+UWo/P4dbV7UIUExasKe5AgaFlEw1BZsVo/qWQ+/pLCnyb3UKeJJagSw+/ ZVe8okCheqUCmoQSFHpTd9DLkwLbQ999f3C8FE3I/KW/5kOBpyL5VV7FliJp wQBJ1gAK7NY7qdSDKUN+zAKGg8EUaGi1Xz2iVYZ+bpUHJoVToPmdtR+H4sqQ +KRWqXk0BXon69/fbC1DHq1LU+Jvqf32+vjvL5ehnhKfgxvxFKjv8l3zI/Yr OvmBF6IkClThM/lusleGXgaVWninUGDm1eKxsuky1PpC4821DArkfM2Ux1de hviMFr6zZlNgvV4nx2mXMvTsmtfK4GcK3PA1kOcSKUM/pLmPJX+h7oNm3xel mlLExVek9qiEAnn8lGgPqZYia0b1FxLl1P1aLSxd+VqCqtdmPmxUUmCbyVkL cLQEsY+5taMaCkxLaU598LgYmTdy7nnXU6CPl//ut9Qi9PVLvvD1Jgp80eq4 W9VRiB74TXoMdVJxH5csXCtAX+xccpN7qfES07Gvl/IRw/1DPx8NUiBGmGUC 35+Hss+oSG2OU6C4aIm9gksuwnKPP6icokCY+OZrtH02us3gFPx6jgJzg0bH FTsy0dZQ1gzbCtVeJ5KTeD4FKVrUh1xbo2IHD0vdhSQUuP3rnNcWFSvFa/rv xyMeziO+/2iYYKVfYMbZ2BCkrO17svMgE+S5mlpj6BwIQqY+tBM5mGAI9oSu FnM0GLCvdJDnYqLeM8zCUlACsIxY//H5OBM0uD9iy+aVBiLaTR6FnGWCdvEq cl8tv4BhAzeW+vNUe3cZLra5CJz4E1e6f5EJbshkhqueKQWllC6ilRITtDBx XfvNjMCYmnzmNW0mKD5Q+GrGvQaI1XIvEB2YoOStv4OnPrWAF5oXIuSdmeBw 5z999pVW8G1CU9bRjQkmyeng92PbwG3awIBZXya4ktYg2jfUDpzgtmh9LBNc dJgys73dBWpa2bv345lgP1uWIf1SF6DcP+0sncwETbPJhhifbpDkbN6ckskE s5UVRSMKekB9ae8Tr69McODiIMb0Xx9gUf3LVl7JBH+PDl247NIP7vZTKv7V MMF1k5IFS7oBsLR+mWLczATdfZKsWUmD4Nxrw8K37UzQeGQvXsV3ELizO+t3 djNBdv/uXRncEGA/W5AtP8wEr2iE0jUuDQGDmlYtx3EmKHiylshr8BOka8zv fZ5igjq1rJspTT+BrA3fDd4lav8/4lW+vBkG3thL6zp/mWDg7EmG9c1h6tvf nYSQdSb4UMHSbFBzBHDy2CvXbzPBwwXhHODTCDDKCVna32eCgKOqdm9/BPwP fViZLw== "]]}, Annotation[#, "Charting`Private`Tag$893667#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 4}, {-0.8477122863121775, 0.5442741660306494}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellID->35847027] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "The interpolant returned by ", Cell[BoxData["CubicMonotonicInterpolation"], "InlineFormula", FontFamily->"Source Sans Pro"], " is continuous up to its second derivative:" }], "Text", TaggingRules->{}, CellID->707643505], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.", ",", "1."}], "}"}], ",", RowBox[{"{", RowBox[{"2.", ",", "1.8"}], "}"}], ",", RowBox[{"{", RowBox[{"3.", ",", "5."}], "}"}], ",", RowBox[{"{", RowBox[{"3.006", ",", "5.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"5.", ",", "7."}], "}"}], ",", RowBox[{"{", RowBox[{"6.", ",", "10."}], "}"}], ",", RowBox[{"{", RowBox[{"7.", ",", "10."}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"CubicSplineInterpolation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"CubicSplineInterpolation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CubicSplineInterpolation"], BoxID -> "CubicSplineInterpolation", Selectable->False], "[", "data", "]"}]}], ";"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fun", "[", "x", "]"}], ",", RowBox[{ RowBox[{"fun", "'"}], "[", "x", "]"}], ",", RowBox[{ RowBox[{"fun", "''"}], "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "7"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.826810470010421*^9}, CellID->154079356], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV13k8lF8XAHD7jH2ZwSwIzViyVJZfSO5JsickWoiQUAmlpBRZomyFQoiS ypaQLUllGVtSZGmxVIiyb4V67/uP+Xw/c917nnPPPc8dOdeTtkc42NjYdPCf /39uzf4iy8Y2jdjqJhv//ptC/bwtpdGEaTRwOyv4WOUUCvR/akwSnkbVX45z GvtNobIdMccVZKZRS5VW+45vk0h9RLfSUn8aFT+8G+/U8QvJqiTvTg2cRmYR f0O+Vk0grqcWFzVmppGU+FQGz8Aouiu9RbRmeRqZxgS79+aMIoiUz9nJNoPs fBRDxY6NomCH3837hGdQSGKh4IvlEbT4O1f8ktoMqt6Z82ieMoLGDDgKW71m kPwRw8z8499QG6vyo/vwDBI5FsQh4TKECjLbaxLGZ1CakId0h/oQijk9nFEz O4Osu0aOrK4NIgtZARcy5yyKSw7PKskYRC1nnb+9Xj+LLLUDjIQbBlCzAs8v +SOziCheI2zM+Rk9XKW9sToxiwp0l/N5H39CUe82Pg4KmEV20jvzig5+QqYX 9/u9i5hFp+tahG5XfESs7oKF0NxZVNaWsmPmXD9qDN/zd3AUu7S/ZrNSL8o9 4DkgMD2LLhz+qtYz1IMiNwXX6SzPIgGzrwSH9B6081Pu5QTiHNJyv6zzjdSD 6jX/8IDyHLKWs9mnJPgB5fAKjx3bPIdE5hU+J7V3o/CB9c23dOfQ6rajVr1x 3cjo2q5rU2Zz6Fv34JZhUjd6PZwlfMcb+3jr7IJiF7pb+XS6xX8OpewmPhCc eo8ux7V0LgbNoZoR+dbl8vfIUG8+0eraHNLvzMsxMXuPXl03ofzNn0Ndvyhe z86+Q3UwKev0aw4FrhBTUlfeIv0fU4f/zs8hI4XcgzffvUWV12fu3lnF8Vmy e+3Me4ueDM8zhvnnkT5HzkLlwbfobviK0tEN8yilZ/lNT2wHklFb8yJqzCO2 sG7SsHEHSuv+m/dIdx5F8S0bWLB3oEQFDrWfpvNoU/Ypvy1Bb1A4i7jZ7+g8 Mr1B8HK70I7Y/Pj8xU7Oo5D6bnYbaEcXqAKlpWfm0XJl6ftb3O0owFtYezFi Hg1+5LRUT2pDHgISuudz5tF0UUWx98tWNFwmGSRVgJ3SqCmU0IoOOVGfPS+d Ry4qjw25XVqRQ5HUNrbXeH59f7UJzlZkar1+e8TQPAp8ennf5YMtqH6ZcVnh xzyCKDnHIq0WBNkKr5um51HCDzcDJeEWpDurvJOPbQGNmeuwOFjNqDxNJTKf sIB86y9wueY2I40dak2Wwgso5UWzqUBkM9qQtMksXmYB1akNiyGzZpSrr3F1 k8ICsqa5qDWqNiP575qtnWoLKOG8xblk0WZE/2/LLvK2BSQS3/GGd4CFUr7o xD01WkCD1bQThU0sRL6i12Fvidez0vG4+YSFBHq32aQeXECsO7tvaEezUFQI uqHntoAoPSv7x8+wEJfy9vcfvReQjtfA/aEjLBTSaUgO9sfx39hTR7NnobVz RntlgvD8CU/mkkxYKEje+OaL0AU0fcf26m49FlpsMelxicbjV+PfmKmzkP8p MwrH9QXk+e0VX9h6FpqkW+y/l7KA9iUaRf+hspB3vWWaURaOz9gn6bEoC40e t/r4/cECCtFLPZPNx0Lu4tZSVx4vINkCmaAOLhYafG7jpFSxgEx7HX7osLGQ o8eezOZanL+VDKHPq02oV2jvgHcjXt/WXOvZnyZkV2EvK/AGx0crz3n3uwl1 Ou87XNi9gKIS9PLk8fdtbsU2Sp8XEJv6o8E7K02o8SjR8N63BURsfqdm+rcJ 1R1z0ZD5idf/em2ExsFC1Scr5VPn8HxrD50lCSxUdkqERF7B+Uj7+0tfkIUe n/XkjOdYRCFbD49cJbNQ3vm6OV6+RbTv8P0MNmkWyrlE+RYuuoimY+94Ziiw UGaYb9c/yiIaNGSku2xmodQrrPog2UWUwk6MNdvGQknXZJ8uKC6ihxbrEhzM WSguPvC+70b8/V2DP9H78P4lvk2e+G8RLV/Rkx08ykJht5QiPQwWkXXwqP3+ QBYKvNPr4bhrEY1l5JqVpOP9uLfJocduEem0HX6cUMxCJx5Emdg6LqJiEdlz 8Q0s5PpYR8n02CJ6O7R0bWIW57c0gfLafxFl+VVfNOFvRvYVY0SDIByP9Dul l4xmZPEi5Ydm9CLyfWu7yHewGRm/nu4rSlhE0O/+uu9sM4Im0xbllEXkwiNz +3VyM9LqWM5b92ARsVp7nn/vakYyA/uO8zfg9bQfSNq4tCDK12LHyLZFRAne FPo9ogWRRom72LsWEdscV3p8QQsiTlWqLQ3jeHyHdOTXWtDsX8rUMNsSgi+5 9ur5regnh9+AE3EJERuarjv1taJRnuaOXuElVDzSw8ggtqFPQueK38gsoaxB yVxz7zbUINPnV62/hHr77Bwt9dpRnfxmV22jJaTzSi1zwrcdVStE2xZb4PEz qV+SH7ajInVdzdwDS2hM5WIRkf4GpRikzl8PxP+vU9ZpJ9CBjh/af9arbAnV cX97vBz/Fj3s6H8aWYPjsw0zCSl/i76B4/y9ehyPsEV25ue3yHG9s9+XriWU knJgJEOtE1mOuR/bs7CEyOyPXqd1dSJVf1/nbf8toxrZC1rqBu+R59eZjAMG y6ju+PGqyRPvUY7dqU9njZdRgkSWKsp8j6S2nNlfYr+Meg16leLYupDA6vk9 imeXUSDbs4je1i40EXHFRLRyGc1vfa334sIHpLBEjFSvW0Z2e0t9LJ5+QK6e V+stWMvIvYr9ucvkB9RvHrs9sncZsaTq5hiuPahFOHHryvIyWvaZ/UCw7kV5 qZkbv+v+RqbauZ97jPqRd+FTyapnv1HSuKhOTvwXZDizvtzi9W9EGWg4d+f9 F0TXvmH3peU3Ah6GCQ9lALXV+Fzn7P+NLPcXyInfHUDqbYr8Vsu/kX1kg/At p0E0M576d1jrD1LfVtlwKWQIBSpd/C5Q9AelsBXu3P/zK4q8Z1zqkrWCiFJv NM/Y/kBZdl/uJD9cQXwOCXPu4T9QNfeZmJbiFXSJvNoWUf4DTR69f0Tr5Qoa Lq8fd6SPI3tVLgpxeAW9/dNy78DoOFJ4+vLC4/WrqCZKPdU16idqbNQ3/pu7 ikqI3muUX1OIe1yj73bhGpo9rxd5OG0OCYmUdxk++Yfez1dZn4lYQbcny7/L NrNBwdmEgbev2MElGBTG29lBc6v+UPBWHihzdnd3fskBuYbf3Yv28UH7kz2x fMWcYBWgVqqvIATlTIHDEmWcsPN8fv6athBkpdZryVdyQqNyimLFTiHwD9X+ pFvHCXyTcadIR4RAwkZSxestJ7wlFQyevCcELtP9rKZpThjtOq1dICMMs+qu XBGbuaCFMrjiRRAByQLf8/9KuOCy/p1Hp3+IgFX0un8N5VyQUNpMej4lApEe by7HVHOB2Jm7r9gWRWBeVvUq9RUXFFc59p7jEIV3yaMpmp1csGP7dzMNuijE XTpUfnSKCwpD3pyusBAFrj2WMx0q3HBcZ4fHz4eioL9p5fTNjdzA1qH2/EaR KJwSzFt21OQG5cSnDzXLRGG4icA2rscNESFpikdeiMIL/ddCXObcoL+QtyGy WxSCFPRUdTy5IT/AJ+AZmxhM/1Y8mpXDDXvNX6a22YoBK3ZCtPIhN0yY/JfA 2CcGWXKPazoKuMHajLY/wEkMbMz+E/tXxg0poYrG7J5iUJJi9NypgRuSJ9c1 v7wgBqe2HCbRR7hBbbLTeiBHDCxbGbUa49xQK2HJfPlIDBjOY57mk9zgPiHu eLtIDLoiT9aeW+QG9tcJXTqVYqD1Idirl4cH/tn8VJVsFYPF02kvkhV54Jd8 +P6DU2LwhnjIu1CFB0b/CPLVzYlBbrqceMNGHjBQZBVILYuBff1D7/ktPEB6 0FDwnI0EFaQK8T2mPPDBq+hdhigJAkveHxPx4oH0jSFJbzeTYGVKgHItjwd2 HvQZfnOMBDeenE+LL+KBOp++WvJJEmw4NS6VVMIDmtxqbLb+JNi32CSXUc0D C27EWyWBJHi6elnlcQsP3L0yfpA/ggQneX8bvB/nASunzQHi6STgaT36smeS BwgnwsPfZJIgM+bDjk+zPBB3Ly/uYjYJ2oTLTL/jK+my2kTg61wSKEuctF3i I8CS/a2JgWISfJX/foSuQgCrKd8LTq9JEPRtz9i6jQTI0LGXDmsggVjuK2+G JgESLH9b3WkiAShnnVTbSgDb4DmzZ60kyNh48ByyIABHttj3kPck0JppXtmx mwAyX8D2QDdev0TnoukeAjRtkadv6CHBH22JMJuDBCj/EXi/oJ8EDvqdMW7H CPB65O2w/hAJJteQsOdJArA/mD3FGiZB5Iui68dP4fHdNSrm30hQZhhzM+A8 AUIUG+Y3jpLAgmuFEnSJAEJ36pYTx0gw3OB1+2IYAfjUB4iTP0ggamaSdeUa AbZvZdMM/0mCh3zl8jHxBFgUrEN1v/DztDHuJyQSQDhb2mB2kgQ+uznyUm8T 4NAT1YUtMyRo3fu8ND+fACrUhRtmCyQoDpEf8X6M40l2nmEskuBm/hXKhlIC cF6Zc13CdmG3DX5YTYDuHLJ36DIJjFUrHh+tJUAXGpzX+U0CFQepYYVXBIhS tQ0exV4sGDG+30wAnt77fsorJPjUY3HOvZ0AZtyN72qwX3I8yV/fSQDtw7xS JqskyFWT+DLcRQDCemFTFnbMvvMid3sJsBZ6xgbWSOAfNmh4+BMB9jz9ovEY 26FoZ4DsIAGM50dGyH9JoN+X92DgKwHIZ9Q9/bDluUT6M0cJsOxn96Qem7gx QODQBAE01i3XCP0jwa/9/QbSUwRYLauM2I39Lhz5fZolQJK3Ns8V7MrHOfdu LxJA56yg7lPszH7eDwf+EIAhNkjpxw7jPkmk/SVAsr9l1gK256YuvT52IiQx pPoIbGSwOqh7IoWbCP1kbm0xbK3IzDsOvESo9pxLlMSmPuF8JyFIhJv/uL/T sP9+9OT6IEKEOCWGvgz2N543/yWTiaBpcveDHHbLZk0vOwoRyk5OlTGxHzum 3CZJEWFreVCPMnZQiSvbjfVEEJskTGhgu3xu0rBRJEIVYezTFuydRLUjIipE oCS8Im/DFjm01BynQYTSbev3mWIvRjmu7vqPCMbXrrhbYX8sfakuqEcEo5S7 lXbYubwxide2E0F9e5WuK3aM1kyD+U4inOZOPOqF7edsv8xrRoSuvoEvvtj6 T2WdoqyJkMoZnx+C/c7lqUKEMxEEErya72FXXqPtN3IjApGPY3chdkb5pWuc R4kQoh0pV4HtKWA+HepDhMwZwcet/89PxZeqi8FEOKK5PXD5//kZ3vFzWygR VH2c/LjYydAs+EhmLRyvv/K5WgQ7ye1U2PkYIgS6sGADtrIwcVfgbSJMh3ky DmMXT4fmRt0hguNRzwlf7P/erfxLuYfXq6aJh2IbJk+VVOUTofFm+4272Afp PZSVZ3h+35/G49jDq9b+/HVE4JFh01zD9vzS0kqvJ4ILQStShIMMp7NrL+q3 EaHktKa7DnasYu634E9EWOUSFYrFJvPKGsQNEiHmS67hPey08dRbmd+IkFLX MlyFnVsYa/7iJxFMw+eOjmG/0AwoZlsjgsZes2RzTjLMIKMLYdK8sPMMcXk9 FxkC5Wq7E+V4weXtL8Xt2H85dDbmMHkhvVW/7RA2X6PKcL0aL2Rfszp9G3u9 JcmUx4AXOIJf2tC4ybB33zAp+hAvbLk4+lydhwyfdB1PpLrywo6v3Wf2YLvS PzQ+8uAFycu8hYHYPl+az7X48ILBnrOJ9dhX3J8M8F/ihSdxvxxcCWSo8g3J j7vDC/qvjbeWE8kQ92y6bP89Xhizucw3iO3Kc7iW8YAXvGPirfh4cXzp2zur i3hhYm3iPxdsxyaOpZHnvNCcbZIsykcGNpkIQ/SJF364ufy6yk+GLs8FC75B XvD9/AzVYD8qPbK3+ysvVI9ICU1i25oZex6b4IVb2TWyewTIkHOaEHfrDy9Y XBHcsF6QDKat0X1TFD7IjG7d/FGIDFISf4arpfigVzUiiCyM8+vi/TNClg/q dwQaW2GnLZr/oyvxQV5Dj9dr7J9yAkzTLXxwY0xiolSEDAmBcb5Ze/mgW+64 fpEYGXqYiQSbG3xAoCls55ckg6UiRefETT74WEkTc8R+pZThGZ3GB1ElknGF 2AUqD5pf3uWDDZsCom0pZAjd/OyaRikf3H7YlJFDJYPKtq/C5C4+eKMu/txL igyX7DQpPeL8sDH5Qe95eTLM7600naPyg3REtcJXbG+HbeeEZfjhSYayhsV6 MtgdMOk3UeCHiFceYdIMfB5cDqZX/seP72Ue61qZZHh/LEw2zYEfAjTrn5sr k0Ex7L2SUyo/jE7Z3BzYhPejhHOzRwY/eDPW7XXajJ93SFP3ZDY/OOykf/qI vYySzEIf8cMrm1ajjxq4X63aed+v4gda9ZaEr1pkOH7mQ/6vPn4omc2LoumS ocSrT/0iTQCabI1amYZkGEnh3XJFRgD0HjakP8emsXRRgrwAPCC/MbHfQYYw hbTddzcIQO2WO6pXjfDzfD3g26gnAOvaTsKqMRmWHD89ETooADccNPn4LHH/ sR7QunNbAM6bxs502JOhdoz7l+sdAeBpzvh21oEM20NV7yvcEwCTi8I5svvI YFxyTrwoTwAklPqiT+8ngzWZvFhThccPOawxHclwpNe0or9HAPYo3xx5fBjX s0uJrgRZELKkij+4nsD99HfvTJ+kIMgaqW1i+pAh8fq/Rxl0Qch5JOs+hp3y ypLGXC8Iwx2qTn6+ZLjLGP2jqSEIdjOqWbGnyFAxRq+xsRaE/5qd26bOkWHQ N8IgNkYQRrqV3zldIQNnXZ303QRBmFFil9odRQYF4dXV8iRBcOdDZ7dHk+FE of+zwXRBiGtVdVe+RoY/P5x1tAoFgRYTrsgTTwZxNz2Nj+2C+P7W1Dl3kwzm e6eYysJC4GqZl33vARme6u4XbLguBA3b/G+dbsPzz15NT0oWAr37rxpT23H8 eTUq7qn43r/yiLPuDRku0GXNObOFIP+7yEPhTtwv10YitxcLwbtWwsNn3WR4 U3earfaNEFwu7R83HiDDqEnCXDm/MEQn0YvU5vD7z76p72GEMJyvNXi2V0Yc zPVz4Ei0MLAtjNZWrxOHIPnQB3KxwrCwsXZIVk4cPk3qBaQlCcNpRl7k9Hpx yLxSJBJzTxguyl7bn6EsDoyqZJOTL4WhfkNLmJq2OKhLuT/VXhMGaiXHrw27 xEHOL8T0sJ4IdGnHK5WEiMNVdE7YUx//zjAxEb9yWRxmBf0/+BiIQFaM92mn cHGoz3Nzv2AoAvlEZoxQlDh4fDMOuWUuAjvUWjZdjheHAgfByvYDIvDBprf5 caY46BikKeqdF4F9e6RJSrXiYMVfxkOqEYETceTX+ewSYNhR9pqmLQoS++Wr OhMkYPdRSzeTSlFQVd9iNWksCQYVZstCumJglfNMiilJgYVN5BjVJ2KQun9/ VPQCBeovBnCc1CSB8+mJxSgCDQ4u3jtLKCTh+orO5VOiQxdTZ1gPn2vZNfXv pm5S4KHstjHxPhka8ywClT5Kwwv7g+e34zwfDauTTbdeB5v3jT8iZ4vDn+7f HXXnZME7zLhnG10C4MPky2UDOfz7i/iHPVECzMWPVOmuycEz6cP/xsmSEJoq qTb7Sh4q/kZyboiThE+JZ4cu+6yHttId47GiFKCzdp/oITMgZFvZ9+skCkjn SZ/TkmSAVhNjKFmcAgHkkJl4KgPS+7l7M6gUONYVJG8ow4Bj7KyGQjkKrNt+ 41CiIgP4dltmt2+mQFZrGu+YLgNMx+32CdpSQCXpbrC1EwNWTzXsEbWjQJuD mU+gMwOK17R3i9tToE7b5E7mYQZQRCWNpQ9QYOhGXc33IwwY3dKnqeZKgVei 87WHfBgQGeEkvMufAr/WFef9uciA17IejTE3KEA6IeD/NpMBMgOdVJ8kChR0 qhemZzEgMGPbid03KSB28KD+0bsMUKeJk8XSKDBRttd26T4D0kj1h29lU0DC z20bZyED/Hnk17KLKfDxxGVyczUD5H9+1qx4QwHP2OYJrm4GBOeZXUl5SwGb wOvnUz8woNfzaf+5dxRYsgzaqtrLgLjvMaH6Hyj4/G42sfzIgD9ftna8/EwB IasWnzNDDHjXmerd9pMCmjuMOP1/MeByxd7sIT4qlPLs9fjLyQT1TouoCQEq HCe7vjjFzYS+8e0nF4SooOVc1TbCw4RNMurbeElUsC6L/dvAy4TP4Tx9m+hU 0LtVe9NTmAk6thUiISpUYCO37ttGY8K3Y4VL0WpUuPzrjXksnQnxEfe+JG6k QhhTt79figkjlfEFDzSp4F51pdVnHRMS13madmylgmz+345zDCZM/qSEyFhS oezq53V0dSak8QgfVbKiAr9Jmr7RRibslOW20rCmgm1Y34D3Jiak75mhG9tR QTRcoaxYgwlm1c0VJxyp0D04cUxmCxNyrgRN1RynQsbHwp4QxATrbN8PjT5U +HD9e3EoMGGl2uP5W18q+P549vvSdibYTtpe+3aaCkoR17pO72DCPzsVRYFg Kig8ehCJTJhwQP7ToYOxVIg+65TuYMWEAt/2DMN4KqQaO8fL7sbja2s/KV+n wutsT41R7JyD2QeWk6ggP/Yj7IQNfr4kD/vkdCrsVhTSOmTHBPjqkHwhkwpH m0sjyXtxPjabdbllUYHaIRLCwtZ5o2KrkUMF7hlTV2UHJlwmzOzqyKfCVnZq /Zv9TOjaOxxTXkiFPRpDKv4HmKCY87414zHOd6bIZtJBJrRBudnxUiqMktaE rByZIBF0fifvM7xf308t5x5iQt5P7m07WqhgU0IO/ubKhFW9pfMb2qhgoZ25 8bAbE3ZHj1WLvqHCgbuTxz9izzNbdQY7qXBGQT+M5c4EA+cEreA+KgyazqyF ezAhoTD0lPtHKtTEUUd+YX9d8S+x+EwFtZuVu+2OMiEqZe8m2hAVrnSX3KV6 MnF90lQrxqjgHPVPIdKLCQxZgWOZ41Qg79r5px/7rM/ao4ifVPiY92SnmjcT pPgHFe2mqeAibQ8t2D77Oz22zlLhr6LeL/IxJrx88Oq+/DwVTlSkCzphexjd Xz+zRIUQa+2c79iVN2669v6mApe1JEXhOBP4h65kv1jB+a7r+OOGXRzsvS7u HxWefqYTe7E52g4eCmCngXTowU1CJ5hgR9uV4chJg+6Q5lfbsX+Xb6Sr4D67 GBIll42tmr7YQOSlQRt3gngb9qHQ574jfDSI+CwePY+d4BFOrxegQbUB+3ma DxNeWVg0ZgvRgNNFd3wb9vwmMb9LIjRYOXu/+xC2gkQf3UmMBnrPVfWDsfet 3GnUI9Ngv0e5VCr21UEPP4oEDeYeKZ8pwa5pUJNalKRBVu0Jk2bsybz5xvdU Gvzu94r/jC2b8MzvCZ0GKdrcu6awbQMuS8VL00CCW/HSX+zwA2ZNx9fRQDCk nMF/kgnlSMTfXI4G4p/T9MWxxxg9Ukrrafg+9qxBCpvGl9nEzaRBreS/Wjls yyl3/68KNLjhukuRgX2xS0X6pRINPnvFrq3HLq6abcrcQAMd91z4//jhzCr/ C6o02Bp1aYqOTQ4PkT6gToNQATZeMraxlwlryyYa3FMUjuHFDrQSOiWugfMh knR2Fcebp9ktPadJgy+rAS0/sT9R0llvtWmwgZEe1o8t9Nf1VNEWGlTU/Mpu 8Pn/eVOWidGlgcyaDaMI2581zfLaSoNlejFvEnZOYcUpk200GNg9ZX0W+8ON izJMRINjHYvLDth6TgKnBw1p0H9txUMU+7jhe5laIxpMaTdtGMf7m6mY1nzb mAYiPMvmddgcs4rrHMxxvcwy092xtXomm7UsaVB4YaZFA9uj5ulpMSsaLPC8 sPmL660lckdLuw0NdJdWXWOxV4/xBeTvoYFny9YJa2x1m8510XtpcDyQ2iSK fYPuHGC0nwb7kFXANVzfB4qDZJ+50CDMbzTmED4fMcnbW1Nccf2SjyYKYNcG Ec+ccaeBvfGLbxX4fMnvvNm62ZMGfFo33Xiwx/uenHl4kgYGakqll/F5lXoR KBfpR4PEneUzNGyrHNTmdooGtnft/Yvx+S7xaZdbd5YGvpzHtN8fYUIQ54+2 5Is0mHFUzVnC/WJ1hx5/eggNxg5PcJ7EvhR+zezuZRqwzf2R+Yr7TTi3emNR JA20DviFvjzMhFjCqRdNcXh81uW39s5MEDGtX2tPoIHmsdivpbhf3YgS1++6 QYNejrJcQeybvJWVgzdp0KJXvaUC97cs/rUnvzNpkLzZ32kY90d5S6vpf1k0 mG6Rb2Fg34+5o85zD9ejf/VHt324fgQN88Ue0IAnnmusx54JZcJXclQe4/11 bA2+tYcJTSTRW04vaJDue8j9lCUTzO1cu91e0sCqwfPsJQvcX5NKSd6vacCe P02JMmfCW3H7hDNNNOBq+cIeb8qEfsnb0fEdNHhRvbLjlBE+j3TmhZcDNFCI PrU7aSsTfB3PVDcN0UC+Dt311GPCXHrTcvtXGsTwyZ7Q1WXCsrR3QP8oDSyC Lh95+x8T2GUf+8xN0aBc+WbV+834vDB0DzPZ6GA7rvlUXRH349SIJSIHHUxI z/uHmEw4KvQu9icnHRIbG/qu4/dr9bJ3dSmBDvLOLOcxOSa4tKeTDIXpkOdY duwkfj8XnGFrPCRDh2+FW8K/ieD6n7B0NJSlg1+ZQpU7ft//c0mdZcrTQeK6 89MhQdw/LDTW/WLS4Zaz3L9OPhzvOvfA82p04LInVF7jYoJRc9OGFH06CLQf r3NdYoCPAfnleQM6aJ7wGCpaYMCtUhcHZ6CDxsbTFUtzDBjP+B2mYESHh/kG Fy9NMyDBX+VzmQUd/l19Yn/0BwM+0ePjOw/QYYiwTutWPwMCfOzn+c7RIUgm 7dFJfH+i/efOUjhPhyqz2laRSgbUrvmlGwbTQUt/7n7hUwYQY2ONgkLpoG+p d6G/GN8v8+uTfkTTwX5yLIztAQPqxzS0WWl02DemkHHhBgNIbsJnImroQJKj Dyt7MKByg7R5di2eP15ywcCNAY6zG2Se19Gh3Pd87G4XBuSGGjfO19OB35lh 6naAAXpZwRLu7XQYf5VbaWfFANfPE+WGX+jA3Nu2/pA2Awj3f189NEiHgnGj jg0aDCg4TnAOGsbrmb4dmVVnwOKKPKFkhA4jG1v2BCgx4CrtgIPcFI43enHZ kM6AjcNHVbbN4PxrPukdx/fnrkcB//bN0eGSdZdkHL5fy+hef5CwRIfcir+F jYL4/sp253zBbzqkHP/I7sjHAE9WwW7WCq4Pr9ainzwMEEioXv9tjQ6zbrql gZwMeOLAWvr3D++faIIgGxsD/gem9EuK "]]}, Annotation[#, "Charting`Private`Tag$884119#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl3k8VO8Xx2eGMXPHNsPcsQyyhKIkCaHuSWgj2iWFEiqEiBSVIons5Wsp UhKyL0VqLGUtRPY9pVDIkrH+7u+veb1fc+/zPPdzPuec58iduXToHIlAIMwS CYT//+ol98kSCJPY8xT9ghABUU4XUpd/jzKJFZU8qz87IcLxdi80FhWexNbL 8dwy/iLCKdgV4qQkM4mt63n6QS1WhKP2Y9trE/1JLJLmUhS8VoQjqxpj9p/3 JKa0d4uWK8bg8Bbu99OYmsSuxv21+rYoxGmoed1tNzSFaQ/94EnUo3I48Ef2 1O9prO1Oy0mh7Nn3zdYWtq++zmKEqMeBg5MPMKfTJ7zOF/zDxnYuZ8l3/sXS GrsKA9/+w1T/POINU5jGhsFqJqXqH9Yu8ePGB+dpzErB2q2v9R/mOZEwEk6c wUx+2l08PPsPK43yuJasNIttcHe13q41j0Vy6gte2uPrBtzdzXg9j5lkSLgc e7eIXXhVKPamlItFDP3nS/9BBIMphaL9lVxsNujKtdskErC3Rh7pq+NiJtO3 yP0yJGh46xLB08XFOKKK78yOk0CtQZn/wDwXa7idUC5WTYKp0f9WhjQXMB9Z c4bBUx7wXuf3XSBrATM2qWtZNSaDudP47SeFC5i9643jd2zIsD7HUl6jbAG7 anHWYeoqGbq0ta2PNyxgdh7FqgGZZNDfPdmRPLqA2XaHG0fR+WD13JkGLeVF bOoc9cPeVj4ITDHOt0laxPycad/X7KNC0pG+JzFpi1gBT9907BkqlJCvhNTl LGJNiK/XnA8V/jg8P6dZvohVnJPuPZ1BhWMbeMWpQ4vYDasRue80BJQKy69n KyxhZ4ySIqqrEPj4Ud94JXUJa+RNRYYV+GHAq1VjS/YSNvdoJHdMhx8W1jmt cSxewnjjZz63m/KD2v34+ebqJaxj0tXhlBc/PDRbSH/+cwmz7P7LkKnlB/uO YmFTlWXsYwbb1NNBAMijGp3xr5YxQ12i1bUwQXg8J+uZXriMqd+b47xPEgQt HmHGm7JlLM8y7L9fuYJgLzW2p+3TMnYzIOP57xZB+Hgg5TX9zzJmvBC6vpgl BEH5orEBaivYTZvFfrNHQiDLIWpGa61gsx3rboylCsHrhonGpztWMN5WboRT kRD8/F5P4RxYwX4fDBRZ81UI9orf8VpwWcHGnPbeMGIIA8135til7BXs/hpv SuwdYXh6b+ivb/EK9qC8dyA4Uhh0HzY9CHm/gm348WPj2SRhuJCd+fFl4wqm VvxNvqpUGOoH7bSGJ1YwW++73runhCHE+Ct6Qn0VKyzV+/VSlQ5C9KJWg9xV TLjgelL5XToYTIQ3fXy9iunZHMKKQ+jg9fliwz7OKnYi0f5gcgQdBkLkqg41 rmJ2dfsaD8XTIR8JzT/zexWrmiBqqGbRIZOosbecSYCnDqpRuc10MHZbs/u2 OAE65EfP/fmKvz8gYGQkRYAVl5GMNV10QDkjUKtAANmSxAjrITr4+SXqNGsQ 4CWbW3nkLx0OLlLXDZoToIv/YhWTzoDxC3OKKUcIINUmUh8ryoDArm8K5ywI cGAz15AhxoCSN+/W/LImgH/crch+aQas9fYQm3IhgJbOregpFQa8G7FF890J sHhPequEGgMsjpuJel4hQJ7T/J6tmxkQqqUizPUlwN/h83X7tBkwN9PPRwwl QEmSnuaYAQPC7T7xVoYTgOzT4FJkxACV1hJSQDQBDIbjpa7sYYB1fswKNYEA IRfnmr+YMqDGbf8cPYMAjkZxKUQLBpwZ1Jn5kkUAndQ13q6WDFg2V/obnUeA hUff3rdYMUBDnfhHvIQAZmrKL71sGRD/p+i7bC0BQClxSPMCA9qYb2ianwgw Zk24d9mJASJ6pZt2NxMg9Xdp3DMXBgTdfX/VuZMAB8n6hD53BlS+Kn98s5cA O8MIR354MGClpbIyahA/r7O06OAVBnjI1giW/CKAt6JNyysfBmQb12l8+k2A rNWA1hvXGTDq1HB8YIoAsxt5dxr6McDmTVMy3wIBigMRq2e3GGByqHPrYRoR BNbrxJXfZcBd725LeyEifE6RnVO6x4CKx703rooQIcndtswvmAE6Y4O1TySJ 4CMwHkoOZcBlxvCfPBki3Gzf+kjzAQOytH+IfpQnwn9z7fzHwhigeGf01LgK EVbUFbVdI/D908f9V9WIsN+k6bdjJAMSmv68ENlChJelLcJHohjQPjfZoKhN BPEbmxI3R+P6SE9P6egRIe7htxhiDANMd82yTDAibCBNcitxDjr/T896FxGa yo/Uej/E9Qrj2rjvJkLAVwav7CNcr8LFgID9RDDZrpz+BudtPcvpsWZEWMuN LjWKxfUjEZoyDhNBCDmpU4Vz9jrS7LvjRECcr8pu/Q/X7wCv5JeTRGApTl6O xVnRkw/7bk0Ezc3vNf7gbBNPtZs/SwS7iB9WWnF4vMtp9/gdifDMyP6vK85t IwJZMk5EmDPdMZ2IM0NIuGWzKxEs012sy3A20WTMG3rg57f8p9WI811LUWkL byIct+642oJzxU3U4OJ1IvwpZqyrw3k5VczB7yYRYu1SdubjrPNJIiTiDhEO nwv9+ABnj2l27rMgIp6PjUVWOGdLyLQVh+D6n7kgIo3zKCa7WBdOhHHrU52N +PmV7OVl+6Lx9XPS+D1xtg1ZazQVSwTCMZOXAjgn5Cld4E3E9TLbk/cQ16e9 Y12YWDIRTiQkKIniLLKqUqDynAhPtu/l88f1NVXc2Ln9JRHmNQ4c/IbHI2j/ phXzV0Q4cz2Dov3/+LhtVrDLJUKPhO16Xzx+K4+27PEqJIIj/6WiQjzeHsPa kYllRCgajRJZwf2RTdMtzikngldH+qAgzqPq+j2VH4iwV1JSiv5/P/mC0ugn IsjHEVvGcP/9Eti2WNxMBK1lPtNO3J/uCZubAr7i668IT5WEMCCgVN5Hrhf3 T/eGYkvcz0L72WYTA0R4WwSd4rjfY7tE15YNE8FJ3UKxHs+HdC7vZ4txIiiv ROgJBDBA897yU6VJPP6HCsjxtxlQJj7nNTNNBGvDLq60PwOatEfkwheJwOTZ bEO4wYBZz1rPahre138hitreDPAjV+yLESLBnNpezAHPX2pMyZqzIiSQFAm5 fR/Pb8mCjNoVCRJw8qSCc1wZAH9DpbXWk+DmqfNhTo4MCHY59OHZbhK0WOT4 ZB5lgOjKvjj3/SSovbF+65rDeLxCd10CMxL0GaZKBJrj+mVqSvQcI4H9y3Qb 9f0MaB1lOYvak2Csu+/HHMaANQ7dTP87JKj+MdOyX5kBaXMtv8yCSJA98UKN uBavZ4EN76RDSFD48HR+uiwDDJ+XOb6JIsGa9226XRIMuPDtydvJpyRwvPp3 ZwY/Awqs7eysy0nwOapdHf1NhyUpKkPyAwnEnU4+lPtFB6OujLLWGhLYOv2O l/9Oh7Yj06x9TSQYHda7S+qlw7+9/rWa/SToL/Tv29ZAB13NJDXaMgkOtxeH BabRwX9qV3cVgQe8NsnM9aTQoT5r5O4NXh6IzY5cUn5CB6v1mwZn+HmgWTn1 V3wMHXxl3kX1S/LA+vkrhou36MCh9swX6PCArThn6ZEFHagfbzy/pM8DVpNU O53DeL+6rXBIBXjg2KT1xU+mdBhavpDxZDcPGDjqWH41oAPPNPdU8DEeWNSO em21Ae+PvWKV1h488OfVwETkgjB8yj0cSsvhAWWlCJLWRmEoUhSwZRXwwMGj atQrMsKQ9F+VpvxrHljWzDOKFxYG91tbe7ZxeGCU7OIYMyUErINiquebeGDh d6HJngIhsJnsqqme5IHxtsDwNE0h+Kt2hjdgMy+YCmwkH5YThO6nkh3hW3lB wCSJoissCFWsloyEbbxgor+wk29ZAB6u7DpcsJMXbNTOnD7QIQB6nxWffjvI C68tSFqJoQJwx/kXZuDOC8Yfb9tsneYHsUzXa6t5vPCZ9/5Ts3QaHLi3ZvVD ES/o3jD/avqQBoH2n/1DSnjhUGd7kaY/DWZkNwRLVPBCwoYNgW9P0OBLzEjs lmZeuGg2drSAQoMHN04XOUzwwtrAyjeG1gjwHjaZalQlw1Jxd+TPJQpMcpUd kp6RQWljRrD+X16oCR1jvE4jA7ZujFe3jReS5LLfNuL32NDaSxJS+L4H92qJ rBaQoXzFmPHgFi/kxRqWnfpAhvQtG/XXC/PCZW1bUfYPMnhVd/jpK/LAnEfc +xhlPqh8mFncpk+ExQkB8fvpfFCaFvonf8sCFpl7LS4siw8eBtUPGExwMZXL o1LReXzg4zPMk5jOxSzmquUSS/ggJ/pFT54sFytc8lfNruMD3afuHXa0eewS wt3RMsoHVHkp7mDLLPZN/vs5tioFHhS87QNsCvMZPvxzzSYKRLZbjW+dmcRE UisurN1CgQSBDpW5tEkM1idd2qhHAblX1rodjEkscdPJq9h+/P0HDruNKn5j x/WbQ85epMBjTt+O5LGfWP3RsvyMDAooxjSNG/b1Yjk35X9cyKZA+ulxi5JX PdjDjLviKvkUUK5w5/e+3o3ZEA/5ppVQIMXi/a4GsU5sLvOH8fNaCjhwjhM7 jFqxnvb9V+0+UeD7yZqkMOEWrJyUm6HQTAFCZEpgWEczFmJxjf60gwL+/23Z 39T0GZPnpXc9HqHA6UWaLXelCqNu8hQ4PYbHsS2G73dgBfb7RNcO6QkKfk+b 1XET5GCvs5+lxM9RoMnkYtCxDUXY4y6kzXKBAvfSVHQr1HOx2+RLVMkVCnj1 ruN/bJeGOaq36nYSqVDD1+3WEZSIHTi5zTmWTIUN7ikXj/mFYZqBj58cR6hw eZ4smOV1E5PI5fnCEqTCzeMe9c8cr2Er3Y68bXQqEJiNezVTfbFhvs9aMUyc U7LdvUduYHWbt5w/Ik4FIPCn6LBuYdlWsfGiUjiLEc+E6fpjPnlnCJEKVOAs FvbXB93BbHqrNQ4q4//XejzOzQvAjKgbz9FV8f9vXMlz6wvE6Kf/1T7Q+P/6 Bl039e5hqUhI1P2dOFcvr+vmf4B9sSlUCrDGuerG4HtSNLZemGrqHY+zR6yH YdZjLGfyVmrQE5wFurN5XJ9gWl8WV2NTcLYcm3GSSMIMYiby3uBz1kDcUub3 3iTsJLtdfLEU/94bnqit81MsVDl12LeHCrItnOobqc9xxxlevy2NACG1LNfq VibmLffua5QcArLcCd3M6UxshaSz6ZkiAjatfrvu2r/CaB9Vh6o2IpCkkPel 3zQLUzAR3cO3AwHXyGKPUEYOdtRiSPTeaQToJ+Su90znYm9cb2Y8eILg+rww rRsvxB6UThacSEFggFp12FClCDvDZ/tu7Qt8P2qE9KJDEUZL2NlckoWfp3f7 ksxwEWZVTfr3owx/fmDoO9ZfjBFkAgywHgRumlte+DHwBttTf69zQpwGrp9X tD8y3mHtilGUg5E0UFcQvvwzuhIzURbXccbrEGGtlNvld5VYxbpEx3txNLCI Os2W/1mJZaq+qC1/SgOdstseo3pV2K3Npfc18mnguMNsm/L3Kkx1+zdhZisN 6HOjAgd3fMRuHNki3o7yw6Tu1p5z/LWY8u2Wdaf+44c0SZQdTW/ErPJ4Ntsn 8kOH0p8kGYNGLHxwy7ZLyfwQ2+91r/5yIzaPRe+99ZIfko4l+oe0N2J1S0cu PH/DDwUbY4OPmjdhTlfaMn538kO0dempV1LNWN75TjU/SQEY9jLgM6j4gumb 92s+icfrtM9hm1VowwZcA3aEhghCcK2+mpFfL1a47YTghwghoGWa1gts+YZJ HKvuTAsQBsFhzyOnu0YwObebe2x16RAb/aX+1OA4doC/gE/0LR2/n2RLuztP YQaNBZWSW/G5i4va5nnOYGYOJmd3v2bAH+HHZno889iO4r3zQttEQLrT+aHG h0VsVp0ZsiFXBFx33vYQv4PPhX6epEtbRIF2tTcgcYwIJ+dSvCivRAFenrs3 iddb8d0HjIazRMExOetolDgvtD2aFynPEYXO5No5bTm8T2wzzfIpEAX/Us/i QA1e2Hd9bvh3qShwD6Zq6B7F+wpp76HWOlHw5D9P58bh6wn92ZD8UxQe5Xic b1MmQ9vp2AXfUVFQyF1pzFcnQ3S2QY3luChMvbHkj9pGBvrBR2eZk6JgMRxE OL6fDJRoiLv7TxQMEsqGZ1zIMCcRRXHhY8L62vUtRkVkaFXUGdJdy4RI7SLx mh18MNTstAuUmOAeYbQjfzcfTPomPzNax4R6UdbJKHM+EGyjOZhvYMJYhI+P xhk+MA7sHTunyYQvlw+aj9/hg9c//GfDDZmw97OWxYEaPkh88Yk6YseEvt7+ jnpjCmQeJl0Yt2dCr3H0j6MHKFCyqlU/5ciEQx33xlqPUqDteFLokhMTnnvo dOfaUYBOvSwi4smEpciUgyO38LrrKC61PYAJpva5cYDXcfv1ZzdFPWdChENG YqY8FaRoUT89XzChH5PY57SOCs2jFckWL5ngtRp0Ul6NCvqZ8kyZV0x4pOny ym0bFRibhubTCphw/YqZYKIZFd5q2la8q2TCpIVzmZIPFdzRiGvJH5iwJpX7 xuQGFZTnOJp3qpkQ13WXff4OFSKLZV/srWeCH/elYMADKjjoDtxv/cKEcSFy 1t6nVBAB66Ojg0y4HMvqJ9fgdVw2TOjTNyYEWJarRjZQwZf4vjr7OxOGeFx6 mc1U+Fkho+v5iwnBAp8uLXdSocyoT4YwxQT/2WTzk2NUcNx/6idKQEFC6QVp nwACMhtCk+eJKAiecn2iT0egRaDMspsHBdNresmKTAR2fJb6lERBocS5vaWL jQDzYE+uqjAK+ipKs80qCLw/dvLaThkUvhPXrJs2RqAqEq0xkUXh/cP2zKh9 CNR9bmRayKNAJH8eWXcAgTZjwywXJRSqnD1ubj6KwB+tjYPxaijouL7QLz2D wIz7yMYX6ihYNR24TLRHYCEr2SdPA4WfiKaN/nkEyMosZq0WCtuR11bhlxCQ Els1ntuBQptO6kDONQTkD7+JIu5EwchOvzbBD4F1YZcHBHahwD5Pd/S9hcAW ys+rCrtR4F11q5G6i8C+f02Z5mYofDjJZrZGIODd/lQkwxoFUidf+9rnCPiJ nrIuskWBJ95HwQqvw3fMxDLLz6LgorVBKeglAmHV9406HFDw5e458O4VAqnF Ht5kVxRCcxzXpxQikDmt9oHujkLn9nrlm8UI5G36xZDyQOHBs4s9B98gUPbi VIaGNwqbV845trxFoPWRcZ/1TRQch4DfrBKBrhaC6kV/FJZ1I0ubq/A6L1zq deUOCktOcvJ7PyIwdncTIzQIBc1TXAarFoHJyl+nYoNRcGIbxF+sQ2BuNSU9 JQQFen5NV2E9AiRvccOScBQiXcKur/uMALXgS/iHSBTcIhv7zBsREJoM6W2K RuFNmOk/5yYEJB2JXiOxKASwePYHfsH70LPSyr9xKCBJuoG3WhBQGvCkrySg MEvK8XJrRWCzxehLZjIK/EeP+G5qQ6Cv5smB5acoND4gGk3iHLzt6PT3Zyhc GyBufdGOgHY6LfZzKn6+fUdNj3QgMCzJ0S9Ow/WrXwz9h3PEfc/BJ+kozNjN zoV34n5cUgkMykTBgGUQJNuFQGxvTOOJHBRiOa0K8t0IGB3Y72GQh0LSG0m1 aJz/viNIqBagEFGXb7OE85NNRWWiRSicn35Saon3SZOki2eWilFQ1ezfkY0z ly5H+f4Gha8hbqNcnFNvtWV8KkXBYfnYO91eBA7/vW9eVIbCUEBYiRvOhLM7 Zx+/R8FYid3/GOdXLXP/3S3H9e3jqlbgbGmYucO1EoWPWarJ3ThTCm2/WXzA 33+Ys2MM5wJFsaCd1Sj8ehjEO4Wz7cOGDSq1uJ+z8v+O4yxE8W8WqUchs28z 0o9ziZf2lcUGPL5KPHuqcXb4OS45/BkF0UDl7Oc4M088fd/QhELK8uMdPjhz ao/bFX5BQSr0/Jwhzs66gsjjVhSua95tI+MsmVHxKrAN9//0v763+PdWs70P XepAYb6uVPgCzh4hG/8d70JBpOSLoyDOcstD8dCDAlquP5qK6/nZORbW96FA GOBGaeF8rc/0O2MAhVYWzf4tHp91ZjzBC4O4/uecbXRw/vr+tdq3byhoNSjc Tsfj6a/u0lL/HYXKfRs/i+C8KVnBu2AErweD93a64fHvYXRKJf5C4VHYtt4P uF+2Tu+yd/mNgpBmZOhB3E9DZ7m04xMoKKnoPQ36isCD1qxsbAoFZR3t/kLc jz8LJbj0WRQG49d9+Yv7N8F74n7+El6//Cfj53D/7/31TD1hBfePtsZ03yc8 X05Yfr1DYEEPb7V7WQMC5nofZI7xskBm5NeoFZ5PPCtxufP8LAiuY75X/IBA jov5sUFBFqhgExbv8Xy16icv1gqzIL9eim1WgUARx9UwXpQFvhvcxA++R+DC beP27WwWzAuszvW9xvcLbh6RkmbB5dKTvhp4fbgdaTW/KMOCA1k9odfx+pGQ 7C5RIs8CNdv9pjO5uN7vH5/UUmFB0GK3kXs67q/q9U7oBhYwP1lK+6QhMPK5 4PrMRhYQvy37eafi/uyrS8zbzAKenpwBi6d4fi7N9attY8EzUp102n8IvOPx nxTUY8HOfxeM7R7h9ZBfkPhbH2d1dS4rBoEzkgryGcACx0vKy9bhCETrmNkp 78HPJ1/rdzMQgXmPFz/XHGfBbctOx0VXvD5e1+CuWLDAMObdFlkXBBh3ypA+ SxbYM2uC9C4ioBLVopJwmgVf+nc3Hz2H65W76iRujz+fsdAtfgLvJ7+PT9E9 WRDN3NjRgd+bA+2pC8QoFrSpf7gIPAicrZV+jMSwQIgmcrVvBZ8jNmwxYDxi QZX2oJ3bAhW4U6eCZeNZkBbO1+E5RQUn33xJLIUFpjrOG7h9VDgcfVrvej4L BKzTQ38V4/f8ioLrcy0scKINb3azpcLy2jrZla8s2Hv5mnDGSSp03e2vInfg eqnH1HcepUK0KU0Q7WFBU5pZP7qPCpRO68QtwyyghQ14UPG55c8E7Z3rDAv+ arhbtK9SoFTadnWUKQZPO44QpaIosKPQbbGRJQbJwuOnnEIoUGHi/69AXAwe VThT8wMoUHctZcJPSgzcE9R3K3hToKvze7/IWjGYXFNwMcyKAgsxFzi6W8Rg 4Vye+UMFCmwT8rgVfFAMjv25H3wan8PfPr/je+mwGBQ+c3/m/ZQPYHvM1SNH xYC/fZfAvTg+2ONU5CZzQgxeZj//EBLMBxZ187Z5NmKQpu7Qv+YCH3gH+hp0 XRKDIrfBLA98zi9eCeRReSAGkpN5ZR1xZAiZkovSDheDb3xBZG44GWyG38ob RYqBW2PUqOBdMlDr/u60eSgGjZ5mIehlMljGnL758LEY3BE7rpawjwxLqlrL pGwxoGW/GA/8xwsGJ77PdTeKganagUNf9vBCQ/6u0VCGOPx0zimHWhLc3F7w PUJUHO6cY9ZXviWBZvXawRhUHPg657r0ckiQ0EXuSJQQh9wt2kL8j0hwkVjz 4ZWcOLwrfl6haEcCmplJ8qfN4nB/YdtZkyUi7Bk9YiF4SBxEL2K3T68lQqWs /ceQSHHInLjmu+HFCuZffDR5kCYBMsoc0J6bwyzle06fDJUAgYdX7w/fH8W4 RZvYqhRJCH9+PSo5pxrz4fnVEOMnCZq03WfLMwbeM9dus1UksOGLZvrLH2Oz 7z1djs3QrrKhwoEkfWmcyJHUsqtRusaGtUcaEocFSJx3y24JBr5sMP/4Uc5+ I4lDDQ019LnFhgP6pltCXUichIyq6F/32HDBJen6xSkSp+qnxtaaODbIj1mn OXJ5OKJnha8EvGVDoPEuu3MifJzXKtL7kt+xYfS39P6Tmnwcq78qMmUcNrDY 67eeOsbHSb1l/HGmig1MSrNIQBwfRzfJl2X3iQ0aig4zdgoUzpnesSKDPjb8 vpppfk6byqE85wafHmBDk1/YBbYllZPpRLH2GWJDCJJyt/c6lTO3KE/J+4Fz zsn6gAoqJ1jS8rjcBBteGopetT+AcDYNOahun2KDqbdP5nU3hNP60nPVYpoN tZtFvj2ORjgy2yJehP9jwx6tlhOUboRTSXhyLZPLBpNbS/+ZriAcx5pMs5pF NigfOtb7RI7GEQgvURheZkNd2oDCiiGNk3u85t/qKhuOBcQ7OzrSOP8DkeuH bQ== "]]}, Annotation[#, "Charting`Private`Tag$884119#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlWs4VPsfxWf2YG9y3xPDFoNBcqLo5pL9RXRKlG5EoSJSh+qUXNKpRMiI 0BEVEnLLNYnk18kpinKZXEolR0ipGXKr8Pd/sZ71aj3PWp83S3NfwFZvjMFg 5M7r/26e+Y7LYAjp/rTeGdNpQ3gt+aw8GhfSf7ivO/vxiyEEHbtrR8oJ6Wnu bbGEXkOosIk9rKsupOVyAhYMPTUEwwHTqk0WQtq0ZJZz5YohcA2SN18NEtKX 6tVWjJoYgthd+9PGIiG9dsTFL99/KTQ1VL3x6hPRKZatHar9BoDgK3fPyBh9 SrHOJi12MbR6uOwtejVOh38OHWv6QwcOu+86ebBiki5ZqszMd9cCv6K7yvdr pmk1aw9bB1V1iMyyK/fM+EmrmBjK5g0pg/iwcXda0QwdFDk5a2OsALLylQLr 0jnazuXnzkOrxCHta+VHbiMDlh25EKjXIaI9w0B3uJkJwP9lpZT7oa7Cw8vL 4xEGa4bFW7vfMFBz6Ta+VAkLIqXJVJCTQcqFR0LnysTmdyVHs3UXIuG0nk/G LXGI7A4H3W0U+vlNmnMxXwIEzTU+pzBNdLk0NPXSHQkoN9/nkSmniZb8OayW VCYByXmE8xM1TeQy8VTzerUEbIvYYSe/WhPd/XXOoPiZBLRZfOPdOqSJAiSn LduHJeBlgVbfc4Em+k/rozdlgMOz6OjdVK4WCunfNqRhhMPtSaPtUKGFFHP+ 8eOZ4BDj3WHv/UgLgX5GwFJzHH630jYvfqOFrhu5BdP2ODydeqBiI6+NnC1a Y/cfwqHeR9jhF6yNnu+oLS8owKHO1tmp2p6HSs5oDfgV4xB1cjT8lzMPXSm4 wFlSjsOOPH6lpRcPeTK3ht2uxmFIup56fIqHJgoH7LIbcVASLBt4XsRDPZ32 wV7NOPSJN3Fkq3noEVZaoN2KQ+FqH/stT3go1iVU/mYXDtZp10sE73hIS0z+ 9Y1BHAL2SYW+ldNBhNEJaffPOFgkZRdpqOmgkV2vLRd9w0HiCfTuXayD2s7T R3tGcXg5+Ubx1godVFV8KyttAodr+idtB0AH3Xgt2eH6A4eDbopBix10ULh4 AKE6i4Mxvyjfb5cO8l0mMOtmEnAsKOZhooIWcnQz/SNFnIAqaRmBb60SWhF5 I91ZkgBVJ6md24sxpFLKalOSIWC3ZZP+bcV2evaNr1iHPAFJHY9MHY3b6X6J F6uS2QQI/O9t+O7UTj9bbnJwO4cANl60K/VoO128OyWNVCNgU/rNg5DQToeU 7WNc1iag/iU/OralnfZ8+9TYSY8AMd/wq8bCdtqWWOotb0CABSM4r0tOQMu7 TzbGGRNQscyrkbdZQOdIxiZetCLgVoKZZG2zgG7zvKsb4UHA+W2DUSPPXtH6 coRDUNp8vhOiHP/tpEuEZ3Oi0gnYXuWtcHOwk17V9nMuJYsAr6sxqeOSXbR1 8rey+wXzeTdB4TXHLtqN6uT8rCGg5b1P63BnF83Xy+kP6yHAcyhO9cJwNy2i 150KXyQJUdM9hXVyPfT9I2cK4tIlYZj/wJeztJfu1EnEnS5LQYfWWJmrYT+t F96+eM/VBZDcpqi9KWKIttjyfkV6mjSUdibsZzV8oXuPRFjyY2WgKvdV/7+e Qvqu6S6ZfxNkYU7Ykb83apRW2fm0+3aEHKT8mc06cPE7rXn0zO97zeThfUbW OofzE7TjggoJ8oE8xLld4UjfnqKtX1Y8Vl2pALGbd/5lkvuD3uyzaf/6KgUY b5EKNm79RVve2zAla6oIkjNfXdmiWXp8GTv2t1JFMF3e4mMUyID60yewABMS MpZkHYJoJtxcs9Frx0oSJuW7ztjwmXB2VP2J+WoSnCalr9glMMHyQEM0YU4C Vh+INl1lwj0HSuGmNQn79mxcuCuPCflqjzReOZHAixc9PNrIhPhq6bXmR0jI G6cVsyQx8D/+4YbmMRIYPcf1cmQwcDCsZBDHSXD9J88iTwEDqZse9YKTJCy4 RPoUq2AQHl1m7/8XCYcWD9bU6GMQ6OLimhlHgqFbnLdgAwZuE1kn8SISSlBP lXgMBpz1jrb9d0jYLdGX+J2PQcffU4qPSkiQ2jTo/18CBltNHe6EVJBwoFPE e3QVg42nJvpHakhY9FUi4VQeBmbYhq2CZyTEUssPjjVgMLV1TKO0iQTTvavW 9TVhUJl1fYT/goTBHHON1hYMjG1Ho9a3kWBjbPfqThcG+lFpddXdJEz97mbl NzTfR/brb5lDJHgHRqh8wFnQ4Z7yI2yYBMUHMd9fLmBBUrF1g+sXEhAz/uVD ORbIO/29ny0kQY2fGnFNmQUvMq2Wi0QkPGtL97xIsSB29PNs8xgJQZxs8xAN FuBJkHphkoTWrGKRsx4L6vuHfbymSQj7VNFkZ8CCcyuTV1r9JMHAqDp3pREL IJJmqc+Q0H287hzPhAWzHZ9afsySEFldv4dczYIHekk3OhlscDh9WMRdxoKQ IMvDFRgb3qRm32aosWBN45Bpghgb/O698+id3zOhkoj7S7Bhul1ZGY1hUOG3 9tVGgg1Rwi0v0t9jcKxm8KaeFBuUZWIi/nqOwdfdFpYfZNiw0u7XmGUWBh/T Px7fvpANoVW9LbVbMRDorOkz47Hh17W8mJpSJvS1HrYBXTYEHl7/vD+NCcKw zFu2i9kgNP+4QDaSCTIdUj5bfmND92su39OVCXaRbz97r2DDXU7KJXEWE6oG zo3Hr2ODf1Jk0ubtDLie20wMerEhX/mpxdORGfqA/n6jxGw27B4381IOmqLr drqFWqkvBO5Rv2Mjl77Qy12G89iZC4ETvF6so7+R9gu361xLKcGXDTYNhGNP XeQB4gczUQlO+Z4xe2ckqqtZtHdumK0M6hevxJ/Q+1V3bzaStSROGaYUHYQD y1moqdxmmK/AgTJdrbqSWgI95h54EnuZA4m8Pk6qkSw6d29H5gcpFbAPaJoU ZSogV60edze+CpwISKj8uI+NpiuN5u9RFQqaW8slx5VQCOtTU/JpVRjPuBC4 NkQFsXmme3UYFPgo50rDKjV0wn/nd6lgCvo/W3049lgdqa7yatANpSA2tjum 84U6ejhz9Jp1GAWGS4+usHitjgg+f13IWQrC/DMuiIvU0bWC+qRP0RRQotml KeoaqH7IeGVDKgUuEzUhtcEaiNwvFxjxgAJvBiUlxuGiqiWLNmY+pOB+y4B7 5SIu2j26RL0WUSCVWVbuq81FOWftnnyvp6DMauOeZkMuMssIU/JqpoAZHlxy xZaL9r39XGn9joJ08a6d+n9yEZ49HePeS8Hoq6yCN0FcVHgY9wjpo8AuJ4AR d5qLJn5q4WUDFHy1w/NHo7koRtXVWfMbBWujVs3UZHCRUZ+PwVoRBfEu2Fb/ HC4S5J2Ycxmb57H4RQ63kIvUTRNy4yfneTR6b4m4x0WPGemhhdMU9F5dnr26 lot8Gwo3N/ykwMRvZvrTP1wkHV+t3T9DwXmzRsdrDVxU6twwOTdHQZdUcpbj Cy76H2fKm80= "]]}, Annotation[#, "Charting`Private`Tag$884119#3"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1.0000001224489796`, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 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 -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1.0000001224489796`, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"f\"", "\"f'\"", "\"f''\""}, "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)], #}, { 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)], #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)], #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", TaggingRules->{}, CellID->191167666] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CubicSplineInterpolation | Example Notebook", Visible->False, FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[637, 23, 168, 7, 70, "Subsection",ExpressionUUID->"f030bded-fbb9-4b7d-b37f-99a8deac2969", CellID->904125756], Cell[808, 32, 124, 4, 70, "Text",ExpressionUUID->"d644f20f-8976-4614-b30f-0053609b244d", CellID->933084130], Cell[CellGroupData[{ Cell[957, 40, 1934, 53, 70, "Input",ExpressionUUID->"11aef737-93df-48e9-9431-fd23780fe799", CellID->482655342], Cell[2894, 95, 13504, 275, 70, "Output",ExpressionUUID->"37e59b56-484e-48a3-8c48-3445c1edcc68", CellID->316491482] }, Open ]], Cell[16413, 373, 102, 2, 70, "Text",ExpressionUUID->"6733cdb4-d7ab-4ae9-ba9d-afebc0a419ca", CellID->121693360], Cell[CellGroupData[{ Cell[16540, 379, 95, 3, 70, "Input",ExpressionUUID->"b0fef5bf-fc59-4035-9300-a9c799fa7520", CellID->511143737], Cell[16638, 384, 84, 2, 70, "Output",ExpressionUUID->"c46f2f0d-bf57-423f-9718-19812b8dc497", CellID->33739865] }, Open ]], Cell[16737, 389, 124, 4, 70, "Text",ExpressionUUID->"a09facd4-d0ec-4b38-b526-88ba5a27220d", CellID->820448394], Cell[CellGroupData[{ Cell[16886, 397, 418, 14, 70, "Input",ExpressionUUID->"aa64b92a-fa26-4bed-a6cc-92b5759a1ee6", CellID->372532630], Cell[17307, 413, 6647, 130, 70, "Output",ExpressionUUID->"8e4500ed-bf1d-4f43-8a4f-32fa8d694b41", CellID->983815043] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24003, 549, 159, 7, 70, "Subsection",ExpressionUUID->"d1a174ef-9b09-4099-9d3d-7b78c20f79ef", CellID->204653245], Cell[24165, 558, 187, 7, 70, "Text",ExpressionUUID->"2536f9c3-391b-4534-b72a-2d9acc12aff2", CellID->581814258], Cell[CellGroupData[{ Cell[24377, 569, 3139, 91, 70, "Input",ExpressionUUID->"2f6f6cf8-b54c-4a21-a915-98160395c6d8", CellID->952109479], Cell[27519, 662, 12182, 223, 70, "Output",ExpressionUUID->"4661f8dd-539b-4e7e-b788-5a36076287c2", CellID->831597498] }, Open ]], Cell[CellGroupData[{ Cell[39738, 890, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5e5100a5-558c-4c39-8cfe-ac825aa190ae", CellID->14107562], Cell[39884, 896, 83, 2, 70, "Text",ExpressionUUID->"a229e29f-4b4b-443e-bca7-e95107bf0b17", CellID->614811637], Cell[CellGroupData[{ Cell[39992, 902, 2969, 84, 70, "Input",ExpressionUUID->"5609d7d7-74c4-4bdf-ac41-2c54cf3101ad", CellID->233671795], Cell[42964, 988, 10436, 194, 70, "Output",ExpressionUUID->"4ce0cbdd-441b-46fa-a56d-6a049d0d2fb9", CellID->540163149] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53449, 1188, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4efdd098-5d49-4d10-b1d2-4deb60112ad4", CellID->14107563], Cell[53595, 1194, 133, 4, 70, "Text",ExpressionUUID->"38676ac3-f71a-424a-bfc5-cf354f6a2384", CellID->201854429], Cell[CellGroupData[{ Cell[53753, 1202, 3345, 96, 70, "Input",ExpressionUUID->"9c182d88-037d-46f9-ac4c-e777438c5b38", CellID->580629604], Cell[57101, 1300, 21134, 369, 70, "Output",ExpressionUUID->"b62f3778-92ca-4be4-861e-c280ace5cb4f", CellID->429984777] }, Open ]], Cell[78250, 1672, 131, 4, 70, "Text",ExpressionUUID->"46c4a945-c846-4341-9dd3-37478b20e6ad", CellID->220235470], Cell[CellGroupData[{ Cell[78406, 1680, 114, 4, 70, "Input",ExpressionUUID->"abfd4613-07d4-4c41-9223-d954a0fd8fdd", CellID->561874223], Cell[78523, 1686, 86, 2, 70, "Output",ExpressionUUID->"f88e3b4f-04ad-4f58-99a8-277c99644308", CellID->757770116] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78658, 1694, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3dc676fa-a321-41ca-88ed-6c9f99d41376", CellID->14107564], Cell[78804, 1700, 599, 20, 70, "Text",ExpressionUUID->"158c4a68-1ae5-4b5d-a880-23c85e737dab", CellID->885043363], Cell[CellGroupData[{ Cell[79428, 1724, 12278, 297, 70, "Input",ExpressionUUID->"3a8a1a47-cea3-4f23-865d-d4bff0ec12b8", CellID->624038713], Cell[91709, 2023, 2016, 50, 70, "Output",ExpressionUUID->"a47b965d-d31d-458e-9e68-3494c6131079", CellID->696224398] }, Open ]], Cell[CellGroupData[{ Cell[93762, 2078, 1833, 50, 70, "Input",ExpressionUUID->"d8714bae-312b-496c-939b-6a1700520021", CellID->196246407], Cell[95598, 2130, 14335, 288, 70, "Output",ExpressionUUID->"9e584a4f-dea4-45db-bc09-9a70b02b3d0d", CellID->733126529] }, Open ]], Cell[CellGroupData[{ Cell[109970, 2423, 306, 10, 70, "Input",ExpressionUUID->"79f610cd-64ee-456c-b1ef-df08f223d1b5", CellID->586073618], Cell[110279, 2435, 19779, 345, 70, "Output",ExpressionUUID->"1f50946e-e857-4b5a-b10b-6c6b159246ee", CellID->959949527] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[130107, 2786, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3f0bc3a2-7fa4-4ed9-b352-18e21cbf9fe0", CellID->14107565], Cell[130253, 2792, 79, 2, 70, "Text",ExpressionUUID->"ddcc5580-be85-4267-a0ad-5b6484b958d7", CellID->403135584], Cell[CellGroupData[{ Cell[130357, 2798, 2693, 75, 70, "Input",ExpressionUUID->"6b95de49-2115-4ade-a341-ec102a54ee98", CellID->757118308], Cell[133053, 2875, 41823, 706, 70, "Output",ExpressionUUID->"41ded368-2634-4c75-a2fd-6941dc6b1b3b", CellID->35847027] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[174937, 3588, 178, 7, 70, "Subsection",ExpressionUUID->"32472311-6b13-4964-aeb1-90e78ce226a6", CellID->232113220], Cell[175118, 3597, 243, 7, 70, "Text",ExpressionUUID->"012b24c1-1c48-4fb6-a688-30ebc2ad313e", CellID->707643505], Cell[CellGroupData[{ Cell[175386, 3608, 3030, 87, 70, "Input",ExpressionUUID->"be0c2b77-76d9-4d43-bfa3-548a0a66be8c", CellID->154079356], Cell[178419, 3697, 41451, 758, 70, "Output",ExpressionUUID->"67c2cd2d-35c0-4b64-bf79-a870ceaaaf3f", CellID->191167666] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)