(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    566005,      11292]
NotebookOptionsPosition[    547584,      10970]
NotebookOutlinePosition[    549618,      11013]
CellTagsIndexPosition[    549537,      11008]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 TogglerBox[2, {1->
  OverlayBox[{
   TagBox[GridBox[{
      {
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAKiEGSLED8//9/gvjRo0fsN27cELp69arY+fPnpZExPn137tzhBqrRBGJ/
ID4CxMfRMTZ9L168YL5w4YIaUD4AiC8C8Qcg/gvE/9AxFreC7PQD4gtA/BGq
7j8ujKz3+fPnLFC9b6H24dSHTf/FixfVofYSpRdZPzSsAqBuJkovsn5oOF8k
5F9s+h88eMBBjt0w/devXxcGso+S4m9k/ZcuXRKHpgeS3A7TD0wrkpToPw9J
ywOmn1L3Uxp+lMYfpemH0vRLjfwDjQey8y9a+fGOWDPwlF+gsPhEKDywlZ8g
d0D9EniexPITGd++fZv3PBnlN6764zxa3QHCAIDESDs=
         "], {{0, 26}, {16, 
         0}}, {0, 255},
         ColorFunction->RGBColor],
        BaseStyle->"ImageGraphics",
        ImageSize->Magnification[1],
        ImageSizeRaw->{16, 26},
        PlotRange->{{0, 16}, {0, 26}}], 
       GraphicsBox[RasterBox[CompressedData["
1:eJzt2V1vVFUUBuBGTfTSSygthYYKNHyVinrrpbcYfwBEJN5gUkyMfw9KKaVw
KCkQKCW1RNIQKg1gEE3QtdN10pMRZCaBzNQ+kzxt5nzstfeZfbPOu/vkD8e/
e6+vr+/sR/Hn+ImfvpyYOPHz1x/Hl2/OnP3+9JlT33515sdTp09NfHHy/TjY
H6592Nf3QfyvqmpHBwbCYNr5GoMNAw2d1AEAADa3/obtLba1aJ7rb4xR9x1D
YVfYHYbDnjASPgn7wv4wGg6Eg+FQOByOhLEwnj4Nx8Jn6fM21dcfyzHq8cay
xuGseTDnMJpz2pdzHMk5D+caduWa6v6p+czafU71s6p1+/cGAADYqt52/9va
++6tXt331j3v0TTeoj5e966v6lv3Vv/uWfWr9LJm9tzMpN+UW3eaVV9s00yY
CzfC7bAQFhvuhjt57maYD9er9c+VcDlcCtMd1AQAADafqXQhTabz6VyL+vhk
Xl/uLX1D6UFmw9VwrVrvL0o/cqta7ztKD3Iv/BLuh1/DSngYHoXfwlp4Ep6F
38Pz8Ed4Ef5Mf71Gff5F3vM8x3iWY65ljUdZcyXncD/ndC/neDvnfCPXcC3X
NJtrnG48r3afU/2s6uc11QO/OwAAwFbzLvrfksWVjK30kSV3KxncUlgOD6qN
vnc1PK42+t7iaaq/r+U1q9VG3/ogx1rKse9krfmsrV+l15R9WDLmkjWXzLl8
yvuVsmdLJl3eu5R9XN7BNLPrhTxX3seUvT3TQc2Xbfr7LWq3JgAAwH95m33K
u9Dt5wMAAMDmp2dlK+vGnu/2+yQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYPN42aZu
1AQAAAAAAICtrNsZIXRTN/b8xTbNhLlwI9wOC2Gx4W64k+duhvlwvVr/XAmX
w6Uw3UFNAAAAAAAA6EVT6UKaTOfTuRb18cm8vtxbcrOSwc2Gq9V6FlcytlvV
eu5WMrilsBwehJXwMKyGx2EtPElPU/19La9ZzXtWcozlHHMxa9zKmnM5h9mc
03Rjfe2uq15bvb6pHvid2NzKPiwZc8maS+ZcPiWDLnu2ZNIlmy77uGTVzex6
Ic+VbLvs7ZkOau7owEAYTDtfY7BhoKGTOgAAAAAAANDr+hu2t9jWonmuvzFG
nbsNhd1hOOwJI2Fv2B9Gw4FwMBwKR8JYOJrGW9THx/LaQ3nvgRxrf449krWG
s/ZQtZH3NdfY7rrqtdW6/fvw/9LMnpuZ9Jty646y6n8AhCP7tg==
         "], {{0, 26}, {
         2000, 0}}, {0, 255},
         ColorFunction->RGBColor],
        BaseStyle->"ImageGraphics",
        ImageSize->Magnification[1],
        ImageSizeRaw->{2000, 26},
        PlotRange->{{0, 2000}, {0, 26}}], 
       GraphicsBox[RasterBox[CompressedData["
1:eJy9lktLQkEUxyVdCBIELaxctYq+QduWbcKMPoCSRRsDC6JPp+Lj4vuq+EBc
iBtFfIYrpU7nPzQiN++9vmrgp/dx5j8z55w5c099z56HPYvF8mLnH4/37TIY
9L7fHvDNXeDl6THgv78KvPof/cELn5UfnjBHjI3J5/OudVBV9bhUKjmbzaad
iCxmcB9lAxKMmzmv1+v7JvpfG/DJjJkic8NrOut0OlYdfdoCjPXBqMx1q9Vy
7FhfgvX0MUa73bYZ6edyuTnrvPsZQ4Wv9PTRL5vNroTOGIiJu9FoOLT6UjuT
yVAqlaJkMin+0+m0YPEZbHTGQDwKyKtl+ugHjdFoRIVCgeLxOCUSCQGua7Ua
9Xo9YQNbozXI/aHVZ//RcDik2WxG5XKZwuGwANdo0JfrNIhDvFqtHi7zD+YW
i8VoMBgIvWKxKEDrdrtiHbAxiAF8pHAf5zJ9+Bca0WiUxuMxydbv98U64CvY
wNZgTyioI9r8QR/EEvrQUhRlrh8Kheb6sDHTZ1xG84ePMP/pdPpr/tvoL/of
Mcb9Jv7X+mcxP2X+QCMSiYh5VyoVMQbXMbP81I2vzM/JZCLyX+a+BPmPvbFN
fmr36pr713B/rVp7THy/tD6Y1cjF5zrahvVtB5jW5y21B/kVzpc1kecjfK53
Pu7kfNfO+x+/T/70++ob7NUEtQ==
         "], {{0, 26}, {24, 0}}, {0, 255},
         ColorFunction->RGBColor],
        BaseStyle->"ImageGraphics",
        ImageSize->Magnification[1],
        ImageSizeRaw->{24, 26},
        PlotRange->{{0, 24}, {0, 26}}]}
     },
     AutoDelete->False,
     GridBoxItemSize->{"Columns" -> {Automatic, 
         Scaled[0.6], Automatic}},
     GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
    "Grid"], 
   PaneBox[
    StyleBox[
     RowBox[{
     "Background", " ", "images", " ", "and", " ", "text", " ", "colors", " ",
       "have", " ", "been", " ", "adjusted", " ", "for", " ", "editing", " ", 
      
      RowBox[{"purposes", "."}]}],
     LineBreakWithin->False,
     FontFamily->"Helvetica",
     FontSize->12,
     FontColor->GrayLevel[0.4]],
    Alignment->Center,
    ImageSize->Scaled[0.5],
    ScrollPosition->{0., 0.}]},
   Alignment->{Center, Center}], 2->""}, "1"]], "SlideShowNavigationBar", \
"FirstSlide",
 CellMargins->{{0, 0}, {0, 0}},
 CellFrameLabelMargins->2,
 CellSize->{Inherited, 30},
 CellChangeTimes->{{3.765857410642704*^9, 3.7658574108441687`*^9}},
 TextAlignment->Center,
 CellTags->
  "SlideShowHeader",ExpressionUUID->"de7bfc40-0e1f-47ad-83f0-e309e061ddcc"],

Cell["\<\
MS-C1650 - Numerical Analysis
Week 18: Lecture 5: Piecewise Interpolation\
\>", "Title",
 CellChangeTimes->{
  3.559948400406288*^9, {3.764562310742819*^9, 3.7645623509502993`*^9}, {
   3.7649891811937027`*^9, 3.764989217008169*^9}, {3.765855210398777*^9, 
   3.765855219772847*^9}, {3.796446491936716*^9, 3.796446498415717*^9}, 
   3.827485243662786*^9},ExpressionUUID->"1507ff20-664e-4567-8326-\
649e27db10b9"],

Cell["Harri Hakula, 2021", "Section",
 CellChangeTimes->{
  3.764562359512897*^9, {3.796446501642173*^9, 3.796446502395644*^9}, 
   3.827485246450262*^9},ExpressionUUID->"8a4d8dd0-ed44-4cdb-b60f-\
79e2b92a737c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"054363bc-8214-4ecb-b8d3-e9fc46565c4f"],

Cell[CellGroupData[{

Cell["Hermite Interpolation (Textbook version)", "Section",
 CellChangeTimes->{{3.797060377294291*^9, 3.797060385370487*^9}, 
   3.7970605769755774`*^9},ExpressionUUID->"e84abe05-8a4e-426a-9265-\
491b41c95334"],

Cell["Let us implement the method in its pure format.", "Text",
 CellChangeTimes->{{3.7970604161610126`*^9, 
  3.7970604323729153`*^9}},ExpressionUUID->"1d441ef5-e826-4925-8e11-\
04bec8580c3f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HermiteInterval", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0_", "?", "NumericQ"}], ",", 
       RowBox[{"f0_", "?", "NumericQ"}], ",", 
       RowBox[{"df0_", "?", "NumericQ"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x1_", "?", "NumericQ"}], ",", 
       RowBox[{"f1_", "?", "NumericQ"}], ",", 
       RowBox[{"df1_", "?", "NumericQ"}]}], "}"}]}], "}"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h", ",", "\[Alpha]", ",", "C", ",", "x"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"h", "=", 
      RowBox[{"x1", "-", "x0"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"C", "=", "f0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"\[Alpha]", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3", "/", 
          RowBox[{"h", "^", "2"}]}], ")"}], 
        RowBox[{"(", 
         RowBox[{"df0", "+", "df1"}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"6", "/", 
          RowBox[{"h", "^", "3"}]}], ")"}], 
        RowBox[{"(", 
         RowBox[{"f0", "-", "f1"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{"df0", "/", "h"}], ")"}]}], 
          RowBox[{"Integrate", "[", 
           RowBox[{
            RowBox[{"t", "-", "x1"}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "x0", ",", "x"}], "}"}]}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"df1", "/", "h"}], ")"}], 
          RowBox[{"Integrate", "[", 
           RowBox[{
            RowBox[{"t", "-", "x0"}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "x0", ",", "x"}], "}"}]}], "]"}]}], "+", 
         RowBox[{"\[Alpha]", " ", 
          RowBox[{"Integrate", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"t", "-", "x0"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"t", "-", "x1"}], ")"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "x0", ",", "x"}], "}"}]}], "]"}]}], "+", "C"}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"x0", "\[LessEqual]", "x", "\[LessEqual]", "x1"}]}], 
      "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.796978555353187*^9, 3.796978607058051*^9}, {
  3.796978656401246*^9, 3.796978734429337*^9}, {3.7969789235288677`*^9, 
  3.796979131589995*^9}, {3.796979276056952*^9, 3.796979293608803*^9}, {
  3.796979404953615*^9, 3.796979413118709*^9}},
 CellLabel->
  "In[815]:=",ExpressionUUID->"eaaaa680-fc12-46b2-ac89-b1c27bbe5b19"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HermiteInterpolation", "[", 
   RowBox[{"data", ":", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"_", "?", "NumericQ"}], ",", 
        RowBox[{"_", "?", "NumericQ"}], ",", 
        RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "int", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Piecewise", "[", 
     RowBox[{"HermiteInterval", "/@", 
      RowBox[{"Partition", "[", 
       RowBox[{"data", ",", "2", ",", "1"}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.796978243284889*^9, 3.7969783027692947`*^9}, {
  3.7969783609134903`*^9, 3.796978376217997*^9}, {3.796978529636362*^9, 
  3.796978531839365*^9}, {3.7969785883268147`*^9, 3.7969785910438023`*^9}, {
  3.79697926120852*^9, 3.796979267090517*^9}},
 CellLabel->
  "In[816]:=",ExpressionUUID->"bd8f782e-141d-4ae7-aafd-31764052ad5e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"171f3777-e9dd-416a-8c21-2b0d2027b832"],

Cell[CellGroupData[{

Cell["Examples", "Section",
 CellChangeTimes->{{3.797060476797566*^9, 3.797060478586116*^9}, {
  3.827485259365011*^9, 
  3.827485262165627*^9}},ExpressionUUID->"f6b2bcc3-589e-44e0-bacc-\
3a5901202d5d"],

Cell[CellGroupData[{

Cell["Case 1", "Subsection",
 CellChangeTimes->{{3.796980138863452*^9, 
  3.796980142694631*^9}},ExpressionUUID->"f466068f-fde0-4c35-99a6-\
d6c1d94c336c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"\[Xi]", ",", 
     FormBox[
      RowBox[{
       RowBox[{"3", 
        SuperscriptBox["\[Xi]", "4"]}], "-", 
       RowBox[{"2", 
        SuperscriptBox["\[Xi]", "2"]}], "+", 
       RowBox[{"Sin", "[", "\[Xi]", "]"}], "+", "1"}],
      TraditionalForm]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"\[Xi]", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "\[Xi]", "]"}], ",", "\[Xi]"}], "]"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DDfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"\[Xi]", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "\[Xi]", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Xi]", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7658557248153553`*^9, 3.76585576852527*^9}, {
  3.765856099747439*^9, 3.7658561087971697`*^9}, {3.7658562304187613`*^9, 
  3.76585623308319*^9}, {3.765856294001314*^9, 3.7658563460351543`*^9}, {
  3.7658564173660383`*^9, 3.765856423194186*^9}, {3.797041740106389*^9, 
  3.7970417699609747`*^9}},
 CellLabel->
  "In[832]:=",ExpressionUUID->"14e3bf72-c21a-4162-a819-d5d4046f08cb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9, 
   3.7969797193659563`*^9},
 CellLabel->
  "In[839]:=",ExpressionUUID->"a05766e5-c88f-44e2-9e74-4e32d39b60e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["1", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796979723243587*^9, 
   3.797041711948943*^9, 3.797041808868678*^9},
 CellLabel->
  "Out[839]=",ExpressionUUID->"e89eaea5-3678-41db-9003-af6106a27f0b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}], ",", 
      RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
  3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
  3.79697916819952*^9}},
 CellLabel->
  "In[840]:=",ExpressionUUID->"baff61d0-597d-4a10-8d18-54f53caafee9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hpi", "=", 
  RowBox[{"HermiteInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}},
 CellLabel->
  "In[841]:=",ExpressionUUID->"5da57f4d-70e3-48f8-af94-5a4b7159beef"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         FractionBox["1", "12"], " ", 
         RowBox[{"(", 
          RowBox[{"24", "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "x"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"8", "+", 
              RowBox[{"9", " ", 
               RowBox[{"Cos", "[", 
                FractionBox["1", "3"], "]"}]}]}], ")"}]}], "-", 
           RowBox[{"3", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"2", " ", "x"}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["x", "2"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "8"}], "+", 
              RowBox[{"Cos", "[", "1", "]"}]}], ")"}]}], "+", 
           RowBox[{"3", " ", "x", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "x"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "32"}], "+", 
              RowBox[{"9", " ", 
               RowBox[{"Cos", "[", 
                FractionBox["1", "3"], "]"}]}], "+", 
              RowBox[{"9", " ", 
               RowBox[{"Cos", "[", "1", "]"}]}], "+", 
              RowBox[{"27", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["1", "3"], "]"}]}], "-", 
              RowBox[{"27", " ", 
               RowBox[{"Sin", "[", "1", "]"}]}]}], ")"}]}], "-", 
           RowBox[{"12", " ", 
            RowBox[{"Sin", "[", "1", "]"}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["1", "3"]}]}]},
       {
        RowBox[{
         FractionBox["1", "54"], " ", 
         RowBox[{"(", 
          RowBox[{"52", "-", 
           RowBox[{"72", " ", 
            SuperscriptBox["x", "2"]}], "-", 
           RowBox[{"27", " ", "x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Cos", "[", 
               FractionBox["1", "3"], "]"}], "-", 
              RowBox[{"9", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["1", "3"], "]"}]}]}], ")"}]}], "+", 
           RowBox[{"243", " ", 
            SuperscriptBox["x", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Cos", "[", 
               FractionBox["1", "3"], "]"}], "-", 
              RowBox[{"3", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["1", "3"], "]"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["1", "3"]}]},
       {
        RowBox[{
         FractionBox["1", "108"], " ", 
         RowBox[{"(", 
          RowBox[{"88", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"5", "-", 
              RowBox[{"18", " ", "x"}], "+", 
              RowBox[{"9", " ", 
               SuperscriptBox["x", "2"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "8"}], "+", 
              RowBox[{"9", " ", 
               RowBox[{"Cos", "[", 
                FractionBox["1", "3"], "]"}]}]}], ")"}]}], "+", 
           RowBox[{"9", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"3", " ", "x"}]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"8", "+", 
              RowBox[{"Cos", "[", "1", "]"}]}], ")"}]}], "+", 
           RowBox[{"108", " ", 
            RowBox[{"Sin", "[", 
             FractionBox["1", "3"], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"3", " ", "x"}]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"3", " ", "x"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"32", "+", 
              RowBox[{"9", " ", 
               RowBox[{"Cos", "[", 
                FractionBox["1", "3"], "]"}]}], "+", 
              RowBox[{"9", " ", 
               RowBox[{"Cos", "[", "1", "]"}]}], "+", 
              RowBox[{"27", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["1", "3"], "]"}]}], "-", 
              RowBox[{"27", " ", 
               RowBox[{"Sin", "[", "1", "]"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         FractionBox["1", "3"], "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.7969797235515842`*^9, 3.797041712009532*^9, 3.797041809143289*^9},
 CellLabel->
  "Out[841]=",ExpressionUUID->"5cedd568-7479-400c-9c8a-fdcc333d94d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "hpi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
  3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
  3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}, {
  3.796979732235875*^9, 3.796979777158802*^9}},
 CellLabel->
  "In[842]:=",ExpressionUUID->"6b98973a-4982-4687-9e99-759faa93d714"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mXk81F/0/7VYkn0pRdlK6qMsIVTOlJSUNVtItrRQoUiRPSmSaCGSkihr
ZazDtZN937cZs1nHjCVb+b5/v8f3O//M4/m495zzOueee+/7/XhLO941vbaZ
jY1taRMb2//7PwI7Jjc2GGiBiVzMn7Hg7ops+MoqA1X+fTD8wZsFub+U5eYX
Gah2U9aZeScWqMgbOFKnGIhnOK6jWpsFxwRDB5p6GaiIf+rO5kUm4MaZDfE5
DHTNwQqNOzHB9GlzxtGrDOQpmBYjeWEOHrSG3r5eNosWthnXbns8DZFT3r0L
hbNIv/TOi8M20/CZ8+ap4F+zyLnp+oHbmtPQBAaiH9Jn0fuuyTRYmgKZXNHS
jphZ5BKVmabkMQUt0V95tK/PIqGS/TyabpMgZ1qfISIwizI44/e886ZDV9f2
yQqHGaTVyGGkMECGIGd8WYbtDKLn/feTUE6GIwt2sW8sZ1Cf+JUNxzQyhAv/
PHHTYAbx70tRY94nw0lTq5cCmjNIgXpSRliQDF9bv6heFZhBS+7BodcMxsGn
4WTAetk0ktmhz7athwj7rWmXqEXTyFrOWf4sIkLHRLR8W940MivU/i8unQgK
28jtKd+nkalt1sdHvkQgnnu+78LbaXRuZdtlDRki6Nf0/I6/PY3cHUzQy3tj
sKf8rsgxiWkUqszpQtcfgSYhtftaO7HxnrkmHdkReHRttfOk0DSq5Y68WLM2
DD3cT2LPcE0jKcutVlpZwxBt/l7IdGEKNYW1MiYFh2HLVLXA7aYpNC14/LsV
aRAmRHfzpvhNodocmtBaUj/E3Rh1+/pgCvFcyGtb8+2HsyVfmr55TiGXC4RS
qcv98NleMTL3xhTyG9sy0SPcD7YZZ7aXmU2hYHzWMOt5H7Ti7m7rV5hC4e3S
QkMBvYB3rWbnH55E1Q23GrhDu0FD6o7y195JJOVXoDXi2A3FXTuvnOyYRE3e
etwDp7qh/KRrnmvdJErXKPPVZ+uGBn4hp/ofk6iP/1EcT0AXjP26Wh4Uho37
3T/PHtoJ3OurjxYUJ1H5Jq5W3Yx2eJH75WvEoUlUZvhmlO1lOwhcM+yQ2T+J
vKcLVome7SDa8umgye5J5FYvxbnjeDtIJev1ZW2dRHlXt3vrNLeB2pm3atf7
J5DCwsfz55itYB+pPNcfPIEEdAQT57ub4FFeTFjz4wmEw6VENX5rgjdD8xIV
PhMoLkK6g/i4CRoU8s+n35lAYxPHe+vlmuBos1aKt/UE5j/m+2PfRuDgO2Mh
rDKBlFzTeG8qNUDmSwvCRSIdpY+dyfKrq4PaggJT3BAd2YaqpVE/1wFxVGzi
aC8d5QokW0b418EOpUFR8WY6qr/CfytUvQ4C2q7enSikI4nKBk2Vb7VgKnhT
JiyajppqicVO8TWwHOMbjoCOki+377n8pQpoEhWTZ7XoyKfwpc6d0Cro+cph
0KJKR0MdtlrVzlXwq/iV4PBBOsp0GuNVkauCO6S096vCdKRBve0hmFkJ48pd
mWp0GnJXP+1aXlUBHSW7+EtJNFR98eS+jrQKKNe96nFmmIZOJFT7yURWQNLl
SbVLHTQUqCsf5G9eAVZBbMidQENdro3bpKbKoaVNoT0jmoaaRizqJ6XLgWDt
efRoBA1JjdHUe7aVQwa54E3xExq6ofVRfX0cQfjyaevfj2iokPnChz0MgY7U
5XGqMw2VV3JqF7SWQeHdJ4vSmjRkzxXBbvuwFNJWGiy/HaUhKy/FyE/GpfA2
RKBY6QgNzY3mFtvIl8K9dwn+IEtDfUU+bIf7CXAE/eC8wktDbcX1DcdxBEjh
G9kVR6QivS9srq2yJRBjA5yaQ1R046t00ODmEghOT17o76EiHD517RKpGBxP
O7WKN1FRcjZO+tnnYpDxpod+zKeiuY32838PFINQ1XlP3A8qqu/Df7jGXQyb
BTKuEjOoqFzuvJ3GTBGQvt3Wkv2E+e8uOCSRVwSfh1mMrxFUZHzTS6znbBHE
HDIbPhdGRYUWiivPFYog+AG+gR5IReEyT0zThYrAUdAn9ZA3FVnx8nmLjxWC
tO5f62x7KvLRZccPBRRCciZnLV6NitwlPlJedxRA9MqNXxZKVCRwBHcqr6wA
As82JP85hOmTV9fQyCgA+7FIX00pTH9Ww+bbTwpAUkRIuZQbizfrYhWiXQB8
Dvf22rFj/kp2D5UfLoB/WV3bNzYoyP3wnKDDngIYOfeOilukoPqZh8n1f/Mh
yVcisXqUggSinqccrsqHqPrHz64NYJx5XegRPh/8RUe9ObopKNmh0+BAej7Y
5Xwy0WugoNyPyRopUflguL4ZJqopiMvjwl2P4HzQPu+s8BxRUJvrzqCP3vmw
Z1yOsymPgubWzujuts8HHqXwBbccCgofdwpwMc+Hdb8JIu93LF783i+CF/Jh
aEcmwegjBcknB5WGHMuHRH1lz85nFESvJ6a0ieTDvu36DW2hFNTXxXs2mjcf
MhodZVoCKGj5bzExmSMfii++7qj3wux3WZ7JW8HDad6sQ7XuFHSjsPx7/jwe
GpprgqtcKci4Nfn8tlk89Bv+USlzoCBcpIp70jge7PkFIkpsKUipJP/d2Age
6K3y44WWFORzz+KY5wAe3KNPHc83xezv7JC81IOHZWPr2F8GFBRozyEZ0oGH
QMF7U7l6FGS/iuPc3IoHzo4InWwdTC9tKq21EQ9RMV8SMrQxPW3H2qfq8bDj
Uul8uiYF6VnaX7KoxUOScM+Fr6qYHvHMf3zVeNjfNZuSoojVO98tRbQSD5mv
OdeTD1HQGPoneKscD6rmUmZJ+ykouv73bh6EB4KoZmaCFBbfDhe1VooHnR6T
rfHiFBTHPXZCA+OGt7ds3+7A4pkq/6kg4MHUMiQvVhDLJ7/uRRzGAzsTeV7x
YPzrVHsJxg59ec5RnBRUWKEX8x9mT49rJkRsxuKbv/pEw9j9MlXk2V8yGhsd
aGWUYfXYteEWtkxGbY2MGR1MX+DAzpqQeTIKDEptGq/AA1eC0p6gWTLqcx46
0VqFh5c25738J8govDuAnwPLf4eEY7MvmYzsFcNEw7H6JA092v9wlIzmfs9J
mmP1k/sQ+9h7gIzoy40bbi14yL6S2X2vm4y4eBTDWtvxoL635rBHGzbf8ESo
XzceSkeGn9xpJCOrbdKN9/rx0HSVX/1mBRmJzdn64Eh4MJOSj3IhkJFxnG6Q
KA0Pg2M4qlMBpi9HXkx1Gg+TDp5v7bLISGD1oZrBHzx4ykTM2qSTUf2zdrtz
f/GwQko5ezkF03N6yeb5lnzgcu5euhRPRskVrJ2TAvkQvW/W0OQ1GS3XbH/E
IZYPOykcaYYvyQjncX/plmQ+yLloWJ5/grGg0pPtivmgeyOhQNsD49W3M6km
+dAkn8d/wo2M9DrlRP9Z54PZRNN1zetY/A+7qYnO+eB8699O1StkJE8Pb8ry
yYdgNwefg+ex8Tyn9J1f8mEkyi6xWIeMykdcLiXm5oPWD5vyC9qYv3deDp6l
+cBaNOe6cxTLF2dZJtiXDw4B+nE/95CR0gpddqdgARA+nSPoiJGRVG3CSymp
AhCrPjPWJYTpU5R/+VCxANq4QP4PJ1ZvP3OnXUYFgIs5WnicNY7cL3Dv4I4p
gMQ8paGmaYwnDvQ8SymA5Z7DbHa0cYRzLbKzxBdArri8XuDQOLInpZIH+rHz
LFWir7oWmz/4J+yxXCH8K2BfNkgYR22J8x4bzYVgPbBZYvTNOFJiJPOfIhdC
/voGticxf0k2k02rhXDn1OrTmCfjyEf1qHelfBEMN8zu7L07jgK3mdfsDS8C
wnDvMfsz48iYHunoalYMvlu+P/CcISE2yz7UJk2AO/F2HPZ0Ekr2YScOaBPA
UVH4jcE4CQU+rf0paUsAfRu/n/L9JNRnfLHA6h0BxH4ZzoxUk5ASkD1CBEoh
z3He8UIiCRlnC8Mb3jKYrThhuO8C5u/6agxBrBxIlswhwbNYPL/TBpWHyqF7
JtV1A0dCGuMLaaQT2H27i//ZgDoJlftITng6lEOEB7EqWoaE9v3w123NKAd5
6TDNvytEVGg32+asWwEOga37etKJyN15CX83ohIs+j9qD6cQkUDv52i15ErQ
V3G3IicREY7/n68QvhJUyQKRrNdEdOIMU11wtBK49Ezn+YKIyO+t3l4p1SrI
5u+uOHcZ8x9/sN6TVAVrSQN2RduIiOs/xYvXjGrgTSklLvHWGHKnVf6wc6kH
O5/3/seujaFMH9kn4cH1IH/UyLnj6hgSULBarEuqh+L0QkUu8zHUN5dt9LS3
HkZiI2rvATbeWXuNXf83HLilvKAvMoba6p//nVRpAM/Dq0ks31E09notiiDc
BMWj8jyZMiMoMObxiwscbSArgDttljSINILV0+7wdsHPQ+G3SON9yF/lTXpj
VR+M1vyQUlfvQV0P5kO94ofB/P//uhFntdvFbrVRoCi8UUH5nUjFWMpo+04i
CPp/Uz+yqR0ZR299Vxc1DgrqDIXU+SakzvpX/qeJAiFnZtqKfOqQWZqBmpgk
HUTNsqMv76xE02+7rz7FTcLPpRr++n3FKPzNdnqayDSkDlJeTIRmI+6rheIi
IzNwxUQib9DpNdK5PjZ0zYIB0/OLml7VsehPzkBhtQ0D/N62Ir79sahC2DhI
yoEBiYPBjaeor5DmcHhPiysD8ho7aozao5D0tqfPOYIYkLPgJksfCEX/3BpG
id8ZENgl3yVedRJpO4uis+sMKOL27a70ioUaZdnRMf05SD4s2pkj8xrCnxzd
ctVgDsKMc9oSW18DjWV9adBoDszejjd6H3wLbwlCPi1mczAnfbHy0HAcfFq8
1JVkNwdymntyYs4kQVLkRzLNYw5+/7p65sezL/DD4cuK+Ls5UCNt2htklQNJ
p/l+CQ/NwZFiS6bStxzQK7pPXx3G7GOyqsdWckBwU1bU2OgcbP+UqZZskAte
qZ5H0sbnYN3YamhjNhc4A95VSE/NwXBuzkGk/BOSqmpvNa3MwUd3u+qTBXlg
ks0TsyLKhETbbdlvRvPgW+cdm5ydTIjTy3s3w4mHPtrqB6ddTIiW4nb9YIWH
o+GNL+skmBDYhhf8iz0HcCoKKj6WZYKDEu9VwokCqOh49+WjEhNk50pWtCqL
QDJFs6vqPBP8mnVCF7DnPm4d3383LzCh53sjX/auYrCu6bjFZ8CE59cGZaU9
imFraP12U2MmzA2sGnBKlcDLGwcfV1swoaxG83PnYwJMBjXHWmDv29YJBfpu
mghWtry6f9SXCXk+0L3/GoJGo+jZz35M4LOouzoajaDuRBZBwJ8JFQK9903p
CEYJlZa0QCaI6PgaJV4oB/U0uYTAMCb4Fr5/GLxaDm3fr9CdXjHhfEp/s6FV
JSgu3LdlpWJ6nmS71NyuBJGo49QDaVh9boRsHA+phBaLCrpNOhPohw8rH8yu
hBMBRGv0nQnhhYGvt2ytAtbLcM77OUyobz5gU5hTBf+5CMu9KWTCuWUvujRn
DZQkCNeU/GbC7IB+UJxEDYi9l+uraGDC21LJ3fwq2Lnw6I5fbSMTqMG/L6zb
1sB7RPdtbGZCGO+enJ6fNcAW3ny7up0JtTLVXhF2tdBvEj7g2c8EXQOhLYv4
OjAwV2HW0ZgQ5bCNufK7DuYYZeqxdCb0ebGN/huug9aWOPMrE0y4lTRbzMVR
D/WvQGZ2EpvPaPCUsKiHEtcWns2z2PxXISSdpXp4Pz3aNT+Pze9ZqIhRb4Av
zVHVWzeY8GtyKuedfgOwnp0qzsR4/R/pQ6JdA8zGTn++xMaCqAPtD7+GNcCN
Uy+Nkzax4JdPlnJxTwOYRNBUD2xlwfpul09E70ZIbFEY59zGgpdXewOVCpog
fTJx63YhFoRNnwBqUxPYtPn6JWHs//Dz3wRSE7gz/PuVhFlwJ/b2I06+ZpDp
w58zFWGBYd2W+yPOzbCl58GO8B0s4FNUuh4p1AICE2uR5btZwEF4s/+0fAtc
5BeknxZnwT+9tfE/J1tg1fL38WqMZx1r7Z1utoBS6L6OKgkWtLy1tdYqb4Fd
uKrh/L1YPv/CDei3WyHQG//itgymL2J2e1JIKxwvFt8+hrG/mFnDpfhWWCPG
vTGRxfSpSJ5D1a3gpLejV3kfCw78spZq5G0Dg1lOZdp+FnDS5nZ9dm6DmJ3a
rnIHWVBnuIfXWKgdRJSn/NkUWSByhLjDU6IdXlGq/UwwtudNlXot1w42MZub
P2G82qig2qfVDha8JjdxSixQOH/Cxt6pHfyrF394KbMgWsfmm3teO/jdfB9R
cZQFQzKSv2LK2iHAqvkElyoLDm4eJ+TVt0PqLfNLhhhXlt9qWx5qh/gfWvg+
jBdPPvoTyN4BRpHWd6hqLLDWiNd9ZdEBvHOW9dRjLPi684rRL/sO0J+86bBP
gwXzS1KXu291gImG3z0HjCPx6W67AjrAePtXzgGMkUph7Ke0DqgdMxOu0WTB
vsO9xB/LHRB7La8r5DgLZqRF/Tved2J9cZE7S5sFGr6fPCq+dMKuD2KmgxgH
dx2+lpvdCf+auHDbgAU7np69GFXZCRcTrgk7Y6w9/WC3/mQnBBrmlojisH7K
H8iv0OyCZWqh8q1TLFC+kMzI7euCrDMGbWM6rP+7z8D8ldDUB10WeN3/z+Hl
jh6oeKrNNNLD/HMzCBbSPUBvshP0wrjw40+xvQo9cDDE7/B7jNcbNNsyT/WA
NTuHAxnjYGk9aHDrgUO9w3Sf81i/tDjvYa/qgc2pQuJf9LF6ySf1P7rbC3sP
sKsLGLBAr8xB7fSjXthhtXhfA+OJS/tfbXvSC01PLKftMVYIyNSLe98L1Fbt
yJ8Y/+wuLsDX9EKw8I06K0MWlAX3vpkT7wP/exnkn0Ys6B0SMHWp74MMd77C
DFMW6Edc67vf0QezvuduD2JM0Cy2CxnqA/4kp4jtl1iQ/NbJNXmuD9bi17hu
Y3zDOD90QKwfFiRbNdTMsP6qsikwvNkPPWuPqIPmLHDzzD155V4/bDpYuiBk
wYIRKfZq18f9sFea76k+xpWPs9vCX/XDH9Fy7RKMI45tmqws6gcxsZpDKZYs
kMj4KnGMewBmBjMfRV3G6nN57bOuyABYHtmIb8GYjcv4oNneAex+wF3mt2YB
2XlFzUNlAGTefS6LwThr70WjDOsBOK7kb/HJBlvvGGaQZMYA/M5qPz96Bdsf
D0/QOC8OQtB20vCkIwsOOdd3z1oMQoXwxcHzTlh/GppVdzsMgpbjYN83jMP2
uX1KeTAIqpPDw27OLMhsTbCBlEHgnu822bjGgpX9a63eq4Pg3Dn6x/Imlp/A
07Ir7EPw9bC2aD3GkWtCWWcEhqDOZstlzVsskGo/9FxIbgi2l96/IunKgrN+
1meyTYbAbmV70oobC2I6igop6UNgIr9FZsKdBbalumlNv4YAt4Ea3DxYsD+9
/c2vsiFI3dhbwcS48PGEZ1AXZv8wL3nDE6u3/K7De9iGQWGE2+M/Lyy/AJ9P
ZpbDYPqOPbzmIQuq/jv2vIp9BMxi3Y1EQ1lgp2iWwuQfAR5ZlFeC8bKKB0Fy
9whQe2pDnJ5g/aWVMet7ZATKxAOuF4Sx4LWe5CVVyxHgKzsU5P6MBS7XOCVS
00cgiPZ+6OBLbH1u7lPr/DkCpqcLh2kYv3c7ZbipdATc3g/cSovGzst7voFX
2kfgnsqg8n8xLDgWzCCLro7AuHRuju4bFnB97M0KuzAKHfc0zeoTWPD580Jt
nvkofJC+L56cyIITXwXHSFdHwTe19NXDDyxwz7ogBPdH4UDy5dfKH1nQX4K8
/ySOQiInVTH/Mwu+96XBjdlR8LPWzRP+zgK5bQT6F70xEJkiFCoWs4BVd+TW
Z4MxqPImWJwowfZL2Kepj6ZjoPInuE+fwAKLrU9n39uOgcfUzujbZSx4smGy
EO0+BlNJt3kaKrH+W6Rt+MWNwRXjG/uIjZhekvBOc/oYDF//qP9uFDvfP4XF
mc6MgcYe5VTyGAu07Fd2GbPGwF/F45AqiQUdwyMSF9bHgMuBs6yfzIJN/d9k
TgkQIeHBPz2YxPq1FY4c1iCCiMLMlNciC/YQXHXZw4mw2wdbWN55ENm1unrn
BRH8cI8Vbfjngcc7PLcvhggHT/z9vVNwHtYVU8UzPxBhgeCPjxeZh4GUEabp
LyLYfIkvLhefh7cRJknJI0T4wzcolXRoHvhsjv05rkaCO5bNmRn688BRWJOZ
qkUC8bWXv+ouzsNfETNHfhwJuOZ8N6iG8zDd4t5M0ieBpvWZe4qX5qHh9PeU
Z/Yk8NFel6bbzMPTQ3uMeyNIsDpnaL12ex7YVjd/8ySRQNoi3hq9ngf78f75
ABoJ7Hp6Eve+m4fyplztF9MkWCb7CgTFz0PgR7uutCUSCLsEvDVKmoeNM8Ub
Q9zjsOfGgevC6fPw76WHxbmj4/CoQNVVg4Dlu39si0ToOLgwplK5afNgy19g
ePDZONh78Gh1T8wDYflFvDr23qF9nNs8ZXoe/BqPK5rEjcNkrt8hfdY8rLm/
sw7LHIe2Nv+PlX/nYbXE8Mdc1ziQ1Jx2OIguwB+TUrua/WRwcaYGXj+3AMH9
OcPa/5Ghp99DfFZ/AfgcPtsWKpFBrEr39EPDBZBzf2qdcZwMcZ+EdD6YL4BZ
lInFKxMyXNz93EvCeQFyGygGVx6TQUEmsGo1aAFu6vCdXOwiAw/HOWfjigVY
aGAj3BnA2Nri6d2aBQg0ndeij5LhuSbze+zvBYhz6NMYnCSDwPfXm6faF6A2
4LNqBRsFxr0sbXpICyBDUFd4oUAB+QHNhc/sizCoelV8fygFpE+JbzlitAgu
K2r8T55RwHrnS6mRS4swV8qzhRJFgT1LMqGxVouw9Vzx5Jd4CsyvySjwOS7C
kcuixftyKMCutemajtciBD5utNo3QAF16oFvuYmLIFd77K2sEhWOvD4mm8tY
hNznfM9D1KjQUGwjJrC4CFpGlMfjWlQoyd/322t1EYz6Yq6l6FKBWh7rZsq+
BD6TM6qyNlSInPooayK+BI18XzplwqiQw6uXcF1vCdwtBQRlhqgwdG6fvHDa
EjimK77fT6TCWfpdz/rMJTBfMZQ9SKXCifjdsiE/l0Ar4YWa0hwVrAe2V3OV
LQH7KLe19lYa1Hau2Zh3L8F7F/YUawUaUFYMUpa2/oFqr1XVWD8auF9yyb57
4w/sek222rqHDiYV5suzuGXQCJHccV+GDn3RQwk/9JbBwtO6c/wAHaLOeT/3
NV6GGOM2gyoVOnja4y/vt18GHl7C6WA9OjhqXVFvD1iGf09iFdju00Hu6OWE
F+XLQH5wmm29gQ4tHLyj+edWINsmOW3eZwJuunztJNxeBdVe2VUO/wl45lYX
2eK9CiWmaRd3h0zAP4VjMbSAVag/n83EvZiAJc7H0YoxqzB+jHA86tMEWL2U
Kd9ZsApiIn2t8g0ToJRzevfFzWsQ3MS/fEV8ErQ4Zy/ZJa2B5ckAvfrSSWjs
1xJbnlmHoUUqf2XlJEjv+uFYubwOjtmGvSV1k1D9u+n16y1/wU1yr0tO+yQE
ks6XGe/6C8GbSkPeUiYBqnuey+v+heya1TJn3in4aGOudDnpL2w19FbbdGUK
DAvubOqz+Ac/7G7LaK1PwewTWoIYcQMc8XN7kjdNg49u35QgYwNEeO7v4uCc
hjDu20mifzfAu+iRQIfgNIzTLCWTeNhwWiLh/24emIbdyewPtxxkw1X+/jwQ
b4rZd9oebnRkw3Wp9sWspE/DXrPjL64OsOGWuXW2FJnPgEvRsNH+gU040/bj
6nviZuGN2/Q936UtOO7j2ysIH2bBtJDtXCbbVlzFl4ELtimzsG57n5fMvRWn
5PPQISF7Fr5RLANvSG7F8UkWRO6qmQWtgNMmNXpbcb/dVMZFWbNQXstzvD1x
Kw7HdTCa7yIDiLq9cuf02XHLHsu7s00YcCh4SdHWnB2XM1iXamDJAHy7V6SP
PTtub45LSaQjA/xXiy7UebPj1s2/ULkfMiCuzE+jNIUdV5AieZLzKwNGJYle
vBvsuDu8jLqvGQxocHgqE8/NgZN7UGZ69gcD9t50uqSwgwP3Wv/KjScEBqR9
ZTe8eZgD58l8H7ulkwFfBAX+nrTlwB2yubU3pY8Bt1ofS3Pc4MARqzW/nR5h
gGpwBan7HgfOOK6vLGiCAWa39+tFRnDguDann5dmMOCB7X2W5zsOHHJ90FW+
wADd7CVdhxQOnHf32av2qwyolK7RtczhwP3v93Q4tnVlwayEA/c/eg9rJQ==

        "]]},
      Annotation[#, "Charting`Private`Tag$653944#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVU3k41GsbdjontAgJibKUjnwVspROPAqVcaiUFtVYIqVS6aTShprS0SLS
qSyR0ixkGCLh4VjSNKLJlqyzmYWRpZN8Hb73++N3vdd93fd7P/dz/67XNOi4
T8g0FRWVj+T7/7kS9ORTU0MoHcaDvjdG4Pj3xXHfJ4bw3h733WmRI8Dm2Cwd
/TqE8hMS6+EDI7DKwitIohjCuI0h8WXOI7Ba+2oHr20I7YpKEvrGhsFFOMx9
mDeE1K7G1UEHhsHnegPL1n8I69ffaLLw+AJnGq8eC61QoqXrkMg1fABuKiLb
xkqUmDC5tULpOQBP1A6vj+UosXe5xjvOsgHggZduGl2Jq7a98b8pVoAZW7ec
n6jEW5VZ6ZFUBbxPyJ7tHKpEZtT0IgtfOSz1qWfN01Kie8CLfQ2+UmhuniWv
ChzEBs3sPYefiCAmuKiCtW8Q52+7/l/nOBGsHKMmJe8axPY5KvXLwkUQp1Ow
7rDXIO6+/vSN81oROPnsvqPlOIixJjYFIR+FkN341M5faxAX/qVXkjlDCGe5
Tpd/VAygdf7U02xaHyysPD5vtdEAFikPimec7gLeXPs/1uoPoEkDe6DUswui
QiY+Os0dQKfLSzLvmnVB60xakpv6AIphkyCvqRMSfB/N9RlTYL0/K+rFyk74
WVGjdYynQG7UmVzGcAfIdBdoZF1QoNwiLNQ9qR0eHOo5mn1GgTR+v1VyeDts
fP2Ux4hQYMH+S/+ZQWmHJwFWN9mHFOg7wbm5/6d22Mdym1WxQ4Ea5yJyXp5s
g0aX4zM+LVdgwGDtTJM9rVB0pGa6Zpcczcu171zY0AxrTMJtstvkeOJ7f1qM
cTOUNuvvd+LL8cvzjdfzfnyESqcjhUfeyPHRACWXVvwRuJpzD9TnE37WygwD
q4/Qy/GvjLkmR+7enUN8cz7M/DERNWYlx+mzB5+Y2jTBLfbT7HhLOWa8F3KX
6DSBVog338xcjmv1H7ekyRtB933msm0L5DhzdmiO1R+NYJKxuT33FzmGSNoP
f/3zPdi73bcP/STDmXzbSmUdDwJu2nz5FCtDpuGG0tozbyGqMPFaw0UZFuUa
BbA2v4XkzlGjqrMyzEjqzvhg8Ba4y1960MNlKN6ldrenrB5sG9ZmRfrJ8Cv7
9MXJ6fWgOsdtp84qGdLmaejYPq2DnDs7y37vk6KvflDSO80aqCsu9nHpJLhX
ppssrYa+nvky2zYpukubzFKrqkHP+rOuYYMUSwtY54L+qIbLTf7HZSVSDDFe
eKyh82/w0T5sdi1BitFvHL6pvqqC8cTzcQhS1L3709dX6xD6jarkG9dKkblw
Xb3qeAW0Zqt6vbeTYpjR4eFOTgVwSu9qdy2TYoDGuOeSFRUQLnj+aEJHisna
57znLy0HoU1zjr20H8McYgepNq+B/9pAs1zQj72HOrsXfy2FSnf/k25d/Uih
PYbwV6WQvkduv53fjwGGFb6JrqWwO0YFT5T1Y+WcARVt6it437T8AyuhH1Xo
tOJ8VjGU+UXY2sYTXjWUyj5TDCxRcXIprR9163+9be1WDHHjG/zeRvWjr/az
24XdL8HVZI9QEtyPLlqLXGoMXkLJcdpXU8d+tN959e2754Xw/Dt3F8O2H6MP
7SivPV8I969olVqv7Ee5b9R2p62FcOqvlEuwmOQLMD/2dIIDKzFfbb8G0V+/
Huvpy4GsOd0GD/okaFnwz8M60wJI3Atqjp0Ex96pNp/Mh1h6xtinVglSal67
TnTkQ9CGA42GPAlyPZL3TrufD2aR0quPX0qwSOP1qTjtfJhb7RHhki/BAGNq
Z/wwG6Zpsfz7WBJkTphWT+OzQcA4tnZxpgRdXvEXUe6x4UnXyFB2PPFX3/Rw
zSI2JFru6Np0jej1/S9++IkNsWeKuNJogu9Q5pS8y4Mg7bPPLCNJvmPT4U9q
Hpi6/+v3IkCCYZO9n6tuv4CMHLW6InuiT1nA1DPIhYTvhzg7rYle9zHXXZkD
0Ru5Gd8sJai7sqh5a00OBPTePO9oIsHo5MUN4xE5YDxvrk35TAm2ZEgOXOlg
wZzAU4uo0yWYHNUivvqSBZO5zbOmpsQY/eREBjWJBd2b/pK4fBWjr51j/4Mt
LEg/b5Ra0yNGlzdfGg35TLhdf/FGSAfhzxgv5xcy4ZJuT6RqixhVzHW19j9g
AjUvc9tmrhhbGgX3lYFM8P4xDWQ1RH82xmtsExOcPYKX/4mEP/0Hh7eSCQuF
S9V4heR+nahwdJIBs63jxo7miTGsxiJ4vZQBPy7I+jSYhD/uLffnM6BTL6ds
y2OCTXhPNBgM4B3QYH55SDBfLk1JZkAZO/yvu/fEWHn97IrvsQxIpdhEfLxB
5vuGf1oUwIAlsyjcpqtk35rhiX+2MoD1Lsjs/WVy39o5K2YDA0p/v8evPy1G
+QJUz/2VARs0ci3rTohR12KtqpchA7gNtbHVR4if96xZ6ZoM+OT9bVVFIMk7
3Ym1bYIOAZpa8a/3Ef/FomucL3SQNloIS3YRfDZcXtNPhxMJ63976UP2p0yd
pvXQYXyrXxLHS4yWgldvx9roEK19SsHeLEYmrYo29wMd1Pjxri9cSb4LjpRu
Lh1uJz5NYTmT+Rruxbtq6aC3vXyU7kj8o9WOXaqkQ7pOq2e2HeGNns7yKaOD
ebMyK8uK+Fk42/JL6JBzT+1HhiXxGxi/MllEBztfkx3p5oTP/ZbWyqFDma5j
TooJwUX7Tf0K6ODauu2Xh4bEn+L9Ii6fDtz7Yfvu65H8nAFRIME+u64UJmkT
fs2+EDHBHfqps+/OJrxxZeNc4hfYXhh8W430k/9bjayQ9PGgoSx+GslnOyI4
XEz62COZd+NfEYYpVXmJpaQPg6mj18ZF2GKRZhxcQfro0K+9MipC5rL2i11/
00E9xXphjFKEvo6fr02+ocOdvR6nL8kITnvbUddA+jAKajgvIvr0OgOHZtJH
Z5T5uR4Rulz5KvT8TIelaUkXIztEqJJ07pOakA4v9ue0nGoh+nmRjw4r6OCw
qHbFySaCt8x5c2KMDuXdXbTwdyKMjg+ZMpqkA89f0+FwlQh1Tbt1DugwYIeJ
xe2DZSJMnrHR+sciBnzudZEcKCZ5NCfa1/yHAfLAiPvUXILvftyS4s6ACLN4
5V66COWPgFq5nQHfBVkb92QRv56r564HMUA9uOWf7Q9FaGlrsWsihgEJS5Te
2+6RPB94e54lMkBfrPrc+w7pp65N9iWLAUsPrtnlQSN+zbmrDtUzwP1QSrHz
SRFWujkoePOZwLMo1Fx3lOCDss6T5L3tkPFCHUPJ/gsW7i90Y0Jw2KS+3X4y
b2vSDa1TTIg9Gnh2mQfxq72vZ9jGhO7b1NRSV7IfzWBUPMqEtfl7Kz2dSZ5I
jSsHtVkw8tVXPdyW7JcZ0HzNmwWBlykPChaS/6nh1+3wgQVlmZvKXOeT/imz
xzNHWTC/xq23eS65b+Y/WqGXA03qYPFNjWC/yWez/XPAJdG25LcRIUZ31qfK
vuVAaqF1J29AiJZS85BW41wYb12hQu0Xou6Ej9PJzbnANrTYHN1JeKGdXV5K
Lhg/M2qvqROivLK8y5nyAiaLp497pRDeQ2fFhjd54NcxzagnWYhh0tXPW7/n
wcsfU+RNCpHJrq2L02ND+PqJ64k0IQZ4KvzKKGzo4ir1244T/U8+8VMv2VDW
1bY6wE2I9k7mSZXp+XD+Z+aZiEEBhoVnnophcCD8IVU1QCpAuf3CU0FcDgRZ
6SR7CQUYEKO2nabgAGXvhQKLTwLMiHcdvLOyEOZzvAe7awQ4s9rIkFNcCIVB
o0GeqQLsDQ3vmN5aBMqqdd5LPAWY3HugPXp9CQh2DXdqbxTg6Z12d5zCSqBl
8NmRKRcB+t7yGbJPKoEyA80bHQ7Ez/yeqF1cAvEn+6oTzATosn1oleDWK7Aw
veb47/c+5O4w6WqVlkJgdOOSVnofUtZv2D1QXw47Pz127srqw2jt4Ju8b+VA
WXVityi9D4smUhf1Lq0AO5HWzZF7fWhiNZKZQasA9c0+o3Ni+tDl7YVfYt0R
Xmi2VG3a04czVZrTvEMr4b/pHdRXM/rQzy66OnLa35BcLn6QGtaLTfuuGn4+
XwvUs48urQ7pRXmmjHYupRYsbLcE8/17kbn7kbvV61oopZdYqfv2YrLMxqt3
oha6k+LrTkEvWjpfXe17vg5+DbMZo8wj+s8zPU9Ev4GIFRPpI+d70HKNh8qj
R2+htMdido5ZN04omtdYq7+HxVouG3akf8bxs7RN505/hALLuDCBsB3NqFXL
b8W3Q09tvomDQyuOPEh792dyF7QP0N3r/Vuw9+fJtCnTHvgfio0lfg==
        "]], 
       LineBox[CompressedData["
1:eJwl1Hs01GkYB3DSTRl2dbEubaZampaKZKP4brmtqZFSNIhudNnYWNN1k1ak
TWTpvq472ahQlKE0azQZY8RclWqLohExv59Ll43dd8/+8Z73fM7zPc95n+eP
l7nlh7URY/T09DaT89+tqNGP6GCrhTz23pi13z3H5/FFzvP15cJ1mVO5+yJf
ws653+7ygEwY+jW+vxHXiUTPty1V++uFLgs0BtknX2PaupLTXDOR0N3TU3Q4
rhs3h8UmkjnVwjeR+TEXLXtw+Unnqe5jJcJZ2vCB5tpebFxjVfFka5ZQEz2F
9TWrD1WTDqlFvEwcT/jqCGdHPxZ36H95dEMpVvB/Cdvpp8Ns3Z0PrqIq8DVu
4p0yHX5q8jg2+LYKV1oToiMe6qApbjQuMa9GDtu2KbxFh18insxmxlSjXsop
9lfpoGv7yJlgfQfmU2Tts57qcE/sUqA8fBfCO68WnejRIfhSJXu3ixA77N1b
Qw0p+P7+uMlvgwiVWavLLJdT0CWVRIqjRHjmzQy6u4LC+R2J/yxNFEEj/aE6
xJOC1t7egVUiwpRXzrfP+lBIESRkGYytg09OYMIIh4KkyTZEUFqHg942fmnB
FHze87TMCWJUGwWx78ZS6GtjHz1vJQZ/jyjEKY7C2ZqZFiaOYjQc87G9yqPQ
9XPDyk+hYmRy1/Zm7aeQzJhRqrkpRt27ADtuPIUHs+7zToY9QITlmh/5Jyh4
cUwNhm7VY3th4jmvXAppmw2pDw312LY41jM+j8Ijnt7z0Wf1GNkkUd7Kp7Ar
p6964ngJuBlRF5h8ku+XxloFSvApqvtezxWSz0js8BiWwE1uFsG+SfKawdpf
naXQM1XfWHifQvmbntJzbCkM5WWnvMQUPo12ZP8WJsUqn7Fs7gPSz1Z+oDBZ
CnmoauthCcnvv+5QrZFitsd2C4GM5C0i89v3NsKxUpL0TkUhPbw1YWGlDGtM
9LqzX5F5e5ehSyaD1Cx7tKCTQvyBgpFLHTIE+TQKC7soRGdGHZxg3AQeI9Wz
WEvBr94g7q9tTbBR8Nbn91IwXrBwe6rpQxRY5yauHiTvGU3haKOaMbm3P/nq
GBrJJ/sm5yQ24xkdqU0yoBH/xTppwIVmDJQM02FjaUQ7zvQR3m/G1SWfGzDG
07AtD7ZuZLRAMN+QwTWkMeG1zrxgWwtOplTdLjOhUe83g+FvKgeTUafZaElj
6vz26bFWclhwC8/oW9HYxLhsnWUjx+PCM7Z84o+Ndk6PXOWY/SHofucMGna+
y0I2bZUjPKDoebA1jdMeIUV7KuT47GZUutFXNJ7Omln+6z2Sf318XzYxa8zL
uxUSOaiX1xzsbWiI/tzV8v6pHL5dGktfWxpDbgffJYxTwEurFceyaAQvueCV
EagA49bAllP2NArNNq4u36TAn44O2ybPpzEwbM1V71KA5b7fOYU49daV3eZH
FMgu7eDEL6AhdBRk5v+hwN7WSO9QBxpz7Fvbb7xXIMPY0v+5E409Rpd6lGOU
iHbaEcxeTKOmJ2xoyEiJ99drnCqIA4u7JroylTjHWc495kwjxXZ4gciX5M27
w6cvofGWOS1ecVEJi8qi9fpLaSw5lB9Ty1eCJWLlBRH/rLKPKCtRYq/RWfE1
4unHvVeliZRobxjOC1hGw713nwX7jRIV6oXnM91If6+xxi6DSmyR7BK8IFbk
nNafO6rEkRazcjt3GpFrirTjTFWwTk37ppY4/Xbb7VoXFSpyvA89BY02k+3F
ZR4qpM+LibL+lsy7cyA7l6PCpIIzLluJBZZGSYc3q6AnTA/vJH6R4BbgckKF
zJy8F0+W05jX1uA9N1MFFo/Om76CRtyiQFezbFJniF39iSd2RTOHylT4u6/0
o5DYYWVef9kjFeo3DxZleND4iW/3MrdDhSInvlMd8YMRgSatV4XTuSHnB4iD
y+Q1u/XUOH6F/8bfk+xnmkHq3LlqSOPeCUaIZdHpR8wc1UgeWjrJxovsS2L5
4/hlahx4ZezEIZb///9j4+8t+UnE/wIfgBZS
        "]], LineBox[CompressedData["
1:eJwV1nc81G8cAHDEZWSPIiSrQVI/K6PPJSR7RUYySkQkkkJKohRJKVHKKlEo
ZWQlo1KocMct887McXfWIb/HX/d6v+77ep7n+3w/a7tPiMNpLg4ODllODo71
X/xUoem3kz1gJJSd/cuUAf5pV4Wv3ukBM9cyxRNmDFgxeTzv/rwHzn9rHElH
NstWmrB43QN63S0FZcipC6XkA+U9IFuhfawNWbnoW/Pmrz2giitIYiMHbzhW
hfndA8bXraREjzCgymOweI7QAwGk4ixVZCthdlrXdA98jR7MtkF+5J+Q8GWx
B5ganoreyAONYlfeceFAOnCg6ALyxXA173tSOMC6G+PSkKX46bXO23GwcxNP
ee76+s/fb5FXx8E7ceLFd8hu2hHhVB0c6Id7KTYgr7Qd+PXmEA4UNPfV/kDO
9lpVC7fCQePRcTM8Msx/TjRwwUFMk3Lr4Pr+d+KHuXxwUP481mgSOW67ObQF
oecH0suYyMqVAln3L+EAc3uD0jJyi1Xn/PE4HFAyT2VwmjPAbyjNQSEZB8Vb
jklsROaNdC4ZfYyD79yhmQLIRYIy/KW5OMjwdtIQRrbMI5+OeIuDS/uyukSR
p/RyGo2qcNAUMZgsjpzScUqOpwkHpP+avCSQNU/tvPyzHb1PIMl23b+XJrsf
9OJgSv675/rzF+6VaroP4yDHXuX++noSKmF3Fadx8IwneUIIueKTztj4Ig4O
Gj0NXj+Pix378LsNeBhmTyusn3eRWvc8UggPE9jtPFzImVHXl0EaD+9EO+VX
0Psaipq6bFTGw5OQh6FzyOSXvOUdGnhY8xDknEa+avhT6NEBPBiTen5RkRX+
3Dt7wgQPDfTbIyTkL2ccW5Vt8YB70gJdyL6rUopTrnigkpRp35Bf7szuuxKC
hzO69Yrvkc3rvbWNr+DhsaPm5wLkcUeV+3w38aAvplOZgawe+8Y8IxMP9teC
Pkcjd0iczz9ZgIcbWj1955BDiv7j2FGGh9yHh9w9kd/3fKr82IKHbT7p+UbI
ToFXxWN+4cGo+0OYOvIch3GICREPjctHqmWQ9dS/q3bN4OFy+IGKORTf9XH4
9JmtvfDPxpVUgOy1JWu2UrUX3pSoNqcic5Z4Wsfu64UK3BGIQjbpo3ILHekF
59tzqzbIbXtZYWoXekGlRoiLgfIPTxJx8PvWC9W+n6x3IVvcOd0b/qcX2m5W
UESQaw988rxB6oXsvJ2HF00Y8OKRb+CLmV4wadmZ1orsb1cRT9jSB2qHSzK9
kdlN7pU2AX1QdzCK9uAwA4IulBmdCOuD3ck5QleQKQo8zYExfbAxV+WAF/KX
mJJft+73QaMoZ4468h1dzokv1X3QVSwj1GrMANnil7K6/ATo7r85vXoIxaPr
cq6pBAEceByfUpE5eO12OckTYKrmdFQ78sipJe3Q/QSQ65Tse4b8Vt7KttiN
ACqaFacOISu0v+ipPkUAjest07uR06Lm3L8FE+C1eUqjBHJEb7Y/NY4AWXsw
1uNYBhxMm72+rZgAaox860fIZVgzXo2PBDj7JD0kDlmRnpli2ECAsKfls8HI
GCuTLNcuAlwv3Kd4FLmT5/GHB8sEOBplmcCFbPxhUj+XhwjBebXLs8CADz7Y
xjJhIpRs6hwbRM5oGG9vVyLCvvT72k3I/MEHnUh7iPD1rXzWB+Ro2QeECV0i
qLIx8S+RvS4bjm60IgJVIW/yDvLuU996pp2J0CckefYqMtPGqbnHmwiVc/Op
obD+PQfe1wYRAfOX+9Rp5ATloJy8S0Sw2rRMc0W2E168lxRHBLHAdDlbZGn2
jauhyUToV0gVMEUeGhE+dzyDCLqmrz4YIL/pzHKHPCLk0x/J/occ8WmHhWoJ
Ed7qbj2ihgwF5XqC1eg8WjO6ysi8qbCD1USE0n+/GXLIf678kCR2EKH8TXTU
FuSnp124v/QRIdT5TY84sp/dMKNwhAjnxOV4RJA1DUIG79GJoLmcJCiIvKSy
3BnBJsIhlfcMfuQvIon1J3hIoPzapooP+e6y2FsTERKcypb1WbczLTtLbSsJ
EmV7metW+L07SUyVBGIGRqECyBM1FZFLmiS4J8pLWV+//KXxmQEDEtyoZBmJ
rt///Y5jX81IcMmk4aEkslm0m0mJPQnonUo0GWSRM7T96R4kiAilaG9H7rO/
sD36DAlSscWJO5FzDf8J+14gQauTWb8mctCOpH9HY0iQ3RKI1UfWEZP6q3mL
BC+K8CUmyGsrOcTND0jguNVMww752+ietn/PSGC0N+yLB3Lan+oqaiEJaKsy
IWeRPepMX/0sJ0FP9pLuZWSVwt/p5fUkuL/rh8Jt5Om0E/GZ30mQ89FyTyZy
Vcz4hevdJLjrpuv9BjnO/6K3fz8JCHstPjcgWzpy2tlOkEDUGmvTjUzZKb1H
joMMrnWtPJwongvFC7ZyC5DhMnTqSCOH/tPkn5Qkw9MzxQX7kbm7zUer1Mgg
zttpGYDcUd/d81yHDOGlKUkJyI9fezUnHCLDvJuYVAHy7tjIHCcXMsTKOivS
kFkB3KkGPmR46J1SxIvys84p9ariOTKM8UalqCPb7S50n4kjwxmSd2Qksoyk
lgU+mQwvdLtvvkAeXmvQq88gg47j5Or39fzuwUveLSFD8q5Fw+2ovmA/+3KH
VZPBU9xPwBaZr5jOcG0mw6utAY5XkZ9e2/hrB4EMtVT5k4PITWq6SU08FKhm
ENurUb3y3OuUNytMAcxr37905MX9obXbZCjwn/tyyA5UD9X1i6ejNCggEB5f
lIn80Hybo5YLBbjqt1ukofqqYWUY5ONNgcQn1vgu5G+2rjdTAylQwSD1S6F6
ver8oHIqlgIMim1IDrLf6Y2yBYUUUKcWkdb7FUeAsnbXewoYsqQypdb7ZdAh
G846CtRz6U+eRu4Ii7p24jcFOPs7nPiOMkA3jj4iyabAV4JLpq8Fysfn+LcJ
lv3gK8qX4W+N4jOX1frhWD/EvP+++gvZ8KXowNDJfnjuPLbDwIYB599aikF4
P1D8A3okbFF81zRELDzth9Tl7AmyHZovel+B/3Q/DAiwX353YoApqfn4o8V+
sImMbbA9xoAZ+oyeD+cAuEzyteORk5iCDqkCA6D00qXrrzPqb+wj8VPbBmDk
A3twnysDVPlqx/LNB2B3wPUyWU8GML5qnM21HgBMYI3BZ+T6hJzJ5w4DkMJt
iD99EuU3d+J0pscAyP6XaFHpxYCba/as1PMDYPX32oUwX9Qf5kbXojMGgGpD
PuoYgOr5B7frV54NAOes2z7psyi/w9q5InMHIH1lwXkQWWL2PU/YmwFIjcf4
RwYx4PBUjEDA5wFgt5bNNoag+xoS33xsDO2fIqnSEoHmz5yEDIe/AxDy19es
7BID9L2WpO0Y6P/Eoq5nkajekSmylisDsJTzyOjaFdSv+14rHhIZhDyKynOf
q6ied4LGHr1BODizLPMigQFytYGmPLcGYZOhD7fYE3QeaTY7OHkQ+qyLTQMz
GbAp4lZZb9ogVJin/vyahebNvQVb3zwbhPjSjuqkbAYQ8iizDuWDcFs/LlIv
H827d+yzX1AGgVt4qlqnDPXTsX5H/pFBEOb6LtD6Dt2XaTBf+PggvPrYTD5e
zoDwtaTwI6xB8JWoFrldwQCHsGaLab4hkH/N3iJRxwAhd90FA+0huLTIS8O3
of5X1fKmQH8IUk1ezbz4ieJXwslHGDsEH3eOfjzXgebLjvPtQxZDsBY8dVXs
D5pHjIvybnsNQflUaOjtPgYk7pazw98ZgnMXUwU0x1F8s7leXxgaggkut7eX
BZjgNdzHjB0dAlF/1c2Zgkz4/LPsYPLUEByO1VGtF2bCteee3a/mh4CwBYMV
lWDCmsmnNRL/MJhY5XwclmXCv3uhzkf+Gway7Sdjw71MWFEZ2CAbPwwahQIf
fjkzwUO40mbX7WHA3Bi9FejKhNrF5Cc6KcMQVrXLh9+DCdE/DPbaZwyD9K2W
PU7eTFg+/9gt4c0wyAg9id4SxAR2jc27me5hKLTLTfOLY8KCfZ1ni8oIbE75
E7LnPRPi+krJB9VGYFhiU8f9j0wQ8s71qNIcAQ/FBcflKiaonk90KzYYAS72
Bhq5gQlOKfbO9+1H4G3V6N3BdiaUtVGtT8SMgPdxO23aBBMCDgsZzXWPgLb5
uaC1nSxgtXHUBhNGwNHZV1JkDwuuOTD1x/pHwE9T9qTqPhaa+3v1iBMjsDF0
cdj3AAtaY3O1GjmoQMBayClZsECxVkc9WZ0KJWs/nn0MYgFR6+RWlXgq0BSE
HUwrWOC3pC188zYVVv/OLrA/sWCmbtMGagoVzulpxFY0sID7yKeJ/CdU2Hye
BwvfWaDhKvlJuZQKSo/O0R+T0HlifhxXJlCBuEV+RwD3HKi26j5S0qTBPnwb
X/7xOShLEkq6oU0DLd6iNlnPOdC3pcYM69Oga1N4f5bvHNj2pp3OM6VBTo2M
+NvgOYic+Kul5E6DTcRZjOzNOfghlN+lmEADfPRn473lc3DeRURUkUSDut1F
MiYS8+BTuDdTZZAGypmmU9tl5uHYko3SLhoNitqWc3kU5kE/K1lbc4YGfj7H
f1DU5oGnn9/tIPcoHJDY79p7eB4y/Xjy3NRHQan+FGsifB6aL7K1HkSPgrzo
u2u5xHmQfjhynFtuDLSoWmWrNQugd2ObVLjiGDhrl9hual4A5wtuXcM7xsAg
1LdK8ecCpNn9sm7aPwaXoxxZfqQF2CRYaxxnPgaC8Zir1qsL8O/mA3WO8DGY
r3wm9Qi7CCOXjDlW2sZAxKjGcm/7IpS4v3jFjByHeZuNYL+2BFp4JTbm6jik
nNHa3MTLhhqHV1YyN8bBT1Q50VCMDd+Olsxik8cBr+2mb6bChmHdWoOUnHFo
Sr5j/NGSDVskejt3to2Dd69dDHcmG+J+Ci+e2DoBNR29FdGGy+BiFGv+rW4C
4ugXBWOerABpjib85csE8OqLM97nr4BPiQ2+5usEJI6pkmZKVyBom7xf6e8J
UBMQ+hnfugJxnHU3HlEnoCPL96wgawVKWtj1pwQnYTXlnFy+3Spw20Roc56Y
BNYQHywL/4N3nucU9VcmYV9I+zX6qzVY5D+8ofrYX5hMj8qM+8GJdfhtoCOX
MQ3lm0Nu4Gc3YPkNBBprn03DeKZnzu6VDdjGfIKlR940/IaLZvEYbqxm5GXv
rJJpMNpsqWG5lRsrtK3yrnTLNCxtXnu7w5Qb+z1o/7AkYxraDav15DK5sVje
XalCVnR4zFjp5j3Kg10MXZQpsafD0NGMX5pOPNhS4tcCaxc64DGshydP8mDl
S/1q7vrQwYqw7drvizzYlWP5NP7LdPjNVSq9MY8HW5m3zWjjSzqI6JCUa/7x
YIMF6V9fFtNB5lV0rh0/Bqt6qd7B7B0dfm0r4vsricE+tDjhf7OWDhV2/U/1
92CwF2YzH2zoosPKjy0iuzww2N3uZ+XzetH+6Yni82cw2MHmA6+NKXRwqRoX
aQvDYO0yeuuvj9Oha28NZ+IdDJaXq/DodjraX9pkKeQxBtsQeKn7M4sOYTeY
jJN5GGxEj9lJLzY6zwHcjHMpBqsBUhNra3TQ5F5iOdVgsP8DgQjkUg==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$653944#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, 2 - Sin[1]}, {
        Rational[-1, 3], Rational[22, 27] - Sin[
         Rational[1, 3]]}, {
        Rational[1, 3], Rational[22, 27] + Sin[
          Rational[1, 3]]}, {
       1, 2 + Sin[1]}}, {{-1, 1.1585290151921035`}, {-0.3333333333333333, 
       0.48762011801866256`}, {0.3333333333333333, 1.142009511610967}, {
       1, 2.8414709848078967`}}]]},
  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, 1}, {0., 2.841470636224155}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.7969797236469393`*^9, 3.796979778515458*^9, 3.7970417122308903`*^9, 
   3.797041809237568*^9},
 CellLabel->
  "Out[842]=",ExpressionUUID->"fe01c023-07dd-4ec8-aa61-92c1aa1f7886"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"hpi", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.796979976911717*^9}},
 CellLabel->
  "In[843]:=",ExpressionUUID->"fdb16fb7-5088-4656-9c59-2618f6cc059b"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1lnk41N/7/1FESdJil5RIFPK2RbdEJEpC9qUQkiRbC0mSIiSVJBQJY99C
5SBbTJbZjH1mjCxF9nWmvq/P77p+r39e1+M697nPOff9vO9z9l66buHOxcHB
kcHJwfG/f1bjLffbTyZRdGg2zm6cp84lVmWmN2ICXYz5+/zpE866lcQ70QjG
UX+HpmPYtWWUKTAkmkz/iRboCxtiSsdRqomKP/HxKOI9yvU2IbcFRfi4hhw8
zUQ5vvU1SJUAQ3FOqTUnmeh958XH9XkE0C6xrztznInCo/d9vSZDhLlFK17f
o0wkvUQoaBIkges9k+RSSSYKIvbLBk2QQS/xaNWxuRH013DzhqknvfD3E/eK
2ZsRJOdHf3DFiAZ3NuQF+08xkHi7wqOszp/g+9qJx2WcgRYsisb+sn/CpSM7
XpiNMFDnniEvdcUxMLG/Wyrfy0BjsVnLOtFjIFJ2dmqokYGGGz5r5B4fh/JL
85fOpDKQv5LdCZ4PEzBdr3N2/xkGal659p+QzW9wDe/cT8mhI4302W+f8mfA
ujf9+GAmHQnITpWYoRkwUfWzYabRkfqXuCVi9wyoMQVj55LoiPvWVFLJ0gzw
GlvMC9ynI3HRY2klMAuF28j1RrZ0ROZWymrtmIX1tD6naj468rr8KMqPPgcz
y3khdRvpyO3Bzdeic3PANL+T2PKPhux9LWPLuOahg0uimbxIQ3juPftq9s3D
ew9HpTk6DalZcDwVcp8H48O0dYUaGrKl6e9YYM7Di6+jyaneNDRnULzwqncB
nEJSwjTcaUjvB9f37IkFkD96zo3gTEMW3ntvZK0uQE1O1RFeKxriVimx8BFd
hKHnMc03AfNXkb5w2GYR5LxVFkx20pDOsfF7kYRF8FdaS5u7M4zErXV2v6pZ
go2Zl73lbwyjresVG2Jal+ClyI//nDyGkSXuZoAvZQk+b8jAfzcfRrf/5C1u
mMPs+wzXMmSH0cDCK0Fv+WV4GfXM6lznEKrgmAqQS1yGmmF5/nyZIbRkKuvw
1HYF7upwFqSIDKECqrNbsdsK6L7uNXssMIT0tlzIa7q+AnUWT+I91gZRYp06
Z8vDFWhp+iW0lzCI6rw/X5QtWQESrlD05f1BNMDPGWfJvQrTwWpy4bQBNENU
skjNXIViEn+rL2UAqa1sKt9WsAo3VEY9HfED6NqYFiOwchUWJl/kaVcNIIH3
tyrEvq/CuuOy0mL8ABp11yxvnloFXoMaNW8YQDkRWqs4tTXYJ6inb5nWj6R6
5sltVWsQp0y/7f28H/HvqNcwrl+DFfOIsvDofqS4+1Vt5fc1wD9r3F/gj9m7
7rS40rcGATtOb+Ix6keTJ62OCK+vQfNuC/ynP31Izn3j50qtdVDWmN/YwexD
d9NJu0+fWIeUi0m6zN4+rD6ezOGN1+F6MqVQsLEPaRe56OVeXAcRMftnXsl9
yPRqNak8YB28Jd2sxU/0ITVRZ6pE/jqQdLnjVdT7UH6WxMD30nU47pTdYnSo
D40FZNR4Vq/DjvRxzYBdfejJlTKpu83r8EX6mviPiV7UyhCSWRteB4H9QbSw
xF5kvUVWwEaQBaUK0d6MESriNsqCbx4s2NPtUn2ol4rU9g3Hp19lQWywFm9g
BxWFfzk65evHAvfGyQ+bqqnImpnH/HmLBSJOZnTFOCoypVs76sSyIPSZkE2w
JhUtiA0djChkwaTGr+w6JSq6pN7d9ayUBdZD3xb59lFRpAujL6mSBcqHAp+n
bqWiBkeaUmAtCxiNPR31jB7EK0BxT//BAuOVVEP+pz1I7eNmQtoECyrSApOs
InqQ7oPtymO/WSBjeHYkLbgHTX7RNdo3w4L1Z//CVS71oL6H0ZVBSywoPHTp
i7VGD+JHwUdiuNggTtDekqHYgyQbtaZucLMhOmSH3cTeHmQyLRtvyssG16bG
5Tv8Pajj7L+kwa1s2Oksd/QdnYI4j56G6yJsuM/NETFJoSDH43/KF8XYMI2j
dh3FUxB+qVHLT5INLSuPfZsrKUjaJyLqhAwbbif+zv0VQ0E8f/sarA6x4adm
04rafQqymHtuHKrEhgvDb43CgigoYSCC9/URNigqnhsVdKWgDzMPTQuOsmG4
qURaXZ2CCObVd04fY8PdC6sGmooUpF/bN7mgwwYRup6XtgwFbWolnHh5nA3m
rM6S4wIUpHqypqrmBBvqVKf1jX6SUaVdgkGMERsc6v67cnqAjG5KJvj8NGbD
illozBkCGVkNmqVrmLBB2YufdK6WjG4rB6t/MWVDRrqCu81LMvLIyf9w9jwb
dJT8H9vFkpF1a8tbOws2UGuqCxwiyGiJGv3N4QIbBCnGSy6+ZJQ/65d70ooN
+ZcTxC67kdFRIQt/eWs2WP2/j4y26wRvvXoRiyf/lUdep8jI8hGPbaoNG6RS
CnFXdchINDNM086WDTVyS53XVMlIWP2hp4AdG6wrdBeuy5NRkH3wVBXGc/oP
RfylyKhQubTd1p4NcV14nYCdZBRJTtw0i7GC007XoM1kxOsT9CHMgQ2XbmXm
3l4iIQbnZ5FQRzb85fn14+5vEho2pyxNYZySpDoXxiChHmUvYysnNqjL3N59
n0pCLp1d28swJhTVaz/oICFHB++Lm5zZ4KvL5/ywkYS4Nj+XtMB4c7v5g0c1
JITnz/F8jnG2TfLHx8UkFPuGR7cd45M/h9tjsknI6c+W9FWMaTflZp6mklDh
yV3PpVyw/HJe35mQSEIalHuS2hiLxFdqJkaTEOdYjr4pxuUSfx2SwkjIo2qK
xwpj8zzD+y8DSEggHudrifFvjacfkr1JaLoEwkwwjm4ifU9xISFT703aGhjv
vyAxnWpNQnUbXLLFMK6jXRZKNyUhRXx2ywK2HwdfnPo7fRJq3aH1vgnjlfU5
u0xNEhJWCtB+inHSY+17Hw5j/n0qks5grCwckflxPwndVLCr4MAYn/W9JVeM
hMQQysjH4uWpuv03TpCEcqJO2p/DeGOdjWAhDwkdHdafGMfinWGWoVbMIiKZ
g+LnbmGs0z9mUzpHRIdaDj7jwJjqeSS0fJyIrKXwZf/LX8BS0LvKISJiv3D+
PI/lVzCytqmKREStr07kO2Ocv51nsqaNiErjO580YPoYVXyhiiqJyEPSXeYa
pieFsA/T4zjMv37fSBamN9/Oijyhd0R0xdJZgIDpceUGRcYjhogmbWnl/Jhe
db79HIoPJ6Io+r9jYpie7+9cTqkOJCLje0H6kpZYvj8J79jqQkT6p4tHNmD1
cI5XvlPdiogi9r16PGaOxctWM8bFhIjWrks01Z1jgyTLZkO5GhHxDJ/eYWmG
xe9EyrwdHxGlGMrm/MXqMzAxryjyLwHpti+8jD+F6X+k5mrhPAEl75oz2m2I
6Seqf4RziIBoQ195uPWxemiXIOWUEhDdIPG5J9YfUiSUEggfCWiur+VIjhbW
P67pmrJSCcjc+nPNoAaWD0GnxnOPCOiWyf4yBTU23LFKL1+yJyAO1sp3U0VM
D9lFftLnCcjmlkiIjgKWrxWkaHKKgFbasHYmj9VXCi3rrTIBTacn63Ttw/I3
vPeFATcBRX+Ku16J9cNmr6zAxMJuFOX3JaeYhw1bPperfMnsRvq7rHI2bsT0
yt80NZrcjVqoLhLnONnQWzjqrvWgG0npiYe0rLPg9/wBa9rFbsRFl0o5hfXz
7WG56oc5u9GW5CjPBz0siKqUbxVc7kJ2tmVyt0gsWJv+aDv/uwv5rPuMeHRj
94dz9t0qahcKWsq+pNCO3W8nMhv0i7vQPGP3v/PY/WLB/fbsRecuJPFwOVsu
kwVyont/cNzpRCv7m67yX2GB4JM9M00enejdx1ORmy+zYGVNckeMRSfa7WGn
wOnMgtYBMdtdCp3o9ZitCtWaBZ4ZO0cP9nYgj7r3uUqnWJAnx8u20OhAmryl
2rf3sUBR/Y/ih3k8qjFZf11NXQePw/fuVQ/iEWlH86wncR3SD2wj/GjBI7+u
6f8EO9ZBSPhI8NIbPDIo8Ek59W0dlpd9640M8Oh8YGrghYJ1aKietppMakeX
Hv4Kn7u3Dja602FH1NtQ4/UlU9896/DAYKqrOqQFGbhGEtON16DB+Pc5tcst
qEHPTuL1iTXgMPvVUWjWgu7N/PsXo70Gd60m8JkyLSj22/MCJ8U1CPIYbX2K
b0ZL//DaVdvWwDN6sM5VuhlNZwqM6pFXwRT/o5ivtREdd62t6LBfhV2WhQm2
wg1oxm5US8BmBUqXmra17q9Bp0Otd9+HJfjQP/p0IrIQiX5zn5uqnQfH8xLl
/ZeTEE/E08jNhrNQvfkOuSHwOYTcPFp0K2EK/mNwSt23KQLPy78id6mMw76Z
z6vaDdWQ7eC8M9l2BE5n9v44a9MAO+8vPVWZHABDM6ENixUtwKx60x/mSII4
V77Z1e8twHvacv9GPRJQAzmG/w62gMMQFyVVhgTeadM1vDytcDtpoYZ3nAhx
f9r8JaxbISt/6238TSJQnz1gnFxqhbDdFgY74gngTVmoT1Rvgyy91UZRcheU
Tf4qemXSBsYGqVcP13QB6y/jbapTG6g+6C+2Se+COLnuW9lRbeDLHnWc9sLs
QwpUaihtwOBRVpHmwOzFPN7Rg9ohnKvBy861A+Kde8KVP+Gh6iVzosuwHaJ+
68BPPB7qJF+ov9reDmG33rPfMPAQa+n5/MUg5vf5tdubBH6AsveIyrGgNjjb
siFgyO0HSB9SmD2c9x0EjihfiRXqADdbvdlhiVaI+xttNn6tE8yvHEKZh5sg
KmZ6S9qDTkh+Uxv0jbMJwkQs2y687gS951sY0uRG8FXdY4QaO0EiyTT6xd1G
kCuzk27f2gUhgk1cVzu+waaxGdH3bl1g0PFJYTq0AVrOSm41F+qGjfqGss+2
1sHOw/Td/hLd4KKYZeZMQeCy9YN00oFuEAlsztmeiGCtXVGNqt0NIfGU2J7N
CBRP69i7XO6GHCW+nTOctZBw0j7Xr7wbjAMcnJJ4vsCAzJ6yxNpuCF/aZ3b6
+2c4yDXypby1G2ZK8QohsZ+hoc67a2WgG2x8QqkGOz/Dou7t5XBuAshHP+R+
f7AG7DRfGz6zJoB5wL8x3NUqyBZ2PFfmQgC9LDkVGfUqmF+StiV7E0DQQIVD
mLMKYityfETvEUDZuNAqNPkTINWq5+8+EsBPs/anwY9K2K/UQy9ZIYD0sNLo
v7MV4Mf/5heRiwjJgYzV8L0V8PWX0+IiPxHMlTMOPVwoB+u8n7zae4lgc5mH
XyS1HKLllo40nCaCfILK9+uzZTC1d1cYIYUImmkyd+QqSkHzzrsb9VlEcKm7
T69MKIUIkpJ7cSERpD8sFrX6lMLuR6dM4xqIMG7353XAgVI4/jtYzGSSCLzM
9aOL6SUQbbhRQGuBCF2Pu33S75UAIS2BU/4v5n/CQ6PDuQQ8zueOcwuRwIYj
92XN3hKIr+yrrNcigTTuzjYKrhj6tl3JKz5JgpBj4JkfXwz7vebfppuRQORx
0F2+gGKoEud/GOpKAvmtkr9tjhcDLVz3gtZjEmRMli/klBaBQt/3U/LPMX8u
r+53RRRBwFFrbeG3JKB59VP5LIuA96fv3sViEpi/NxEsXy0ElTMZf4qpJFA+
c6Bl8Xwh3M1SHElnkCCcP6C9RqEQmtlVlLjfJNCLKpp6sbEQ7Iq7v/pwkKFO
4HNFwucCyOJzKrHfTAa/Rzf8SpILYPrSZJbJToxjGf6TQQUQsWtDrLw8GQTl
GkM+qhcA3jf+nrAqGcI9JJ8pihTA7lbxmzw6ZJh5yCWOX8v//+9T4HOb4ROu
yIcFYp0Z0ZYMyiOxbWdz8+G4ktmJhstk0MtVf+CYkA/EYXf5jGCM1aNnCK75
IKU1Jx5/nwwuspI12qb54JkYti0shgwJwtPG9Rr5UPpr84ZrL7BxS3+5K/vz
gWXwask+Hdvv1b00RaF8OJW2b9Iklwy0ozfZQpz5kLBcNKhVRoYu/DCf2CwO
9ue1Ngq3kIHjwi/RpyQc+G6wquLpxuyZd1TXWnBQ5UDHLfZh8UnY7PbkCw64
Kq+lM5nY/gcEtY6X4sB021oicRpbL4lXZ3cuDl56RkU1rGDx6Li6LPQOB7R6
odslXBSY+Vm+qJaCAwXx9GsZ/Bjfd6q/m4SDwIBDrvG7KeAXM8KcjMfB7s1/
vljvxVg8bffJWGz99FIRKUUKuDBGDy8/xoHdf0EBo+oUCC/KHdqEMatNqyv/
BAXMK6iUQIzTXNiHAkwpkPD4UuuJGBzAUt2jYxcpwCGr4eYTh+0nJnKE6xI2
PnLKfikRBxF7jaHNB5sfGeFES8bi8WnLm2fBGB/slzqUgYMm084lmwgKZFzU
N+vJwYEHI9FC+ik2fzk3ZRQ7P2+IdeHYKwooW26ssq7FQd5Wsc1F7zF7cQPr
Q+04OJM56B5UQAFBZ4cDbr04+K35rl63CjtPol4v5wQO4jrcJLm/YfaxzD3c
azhQdpO/hf+Bne+RDs6XPx+6V3+RnlMpULdHVxGk82Gn7M1YmWmMo/mJwpge
KmvUxydWsHiGN9vtdcuHi+ZrJ0s29IC0+783SaH5kHLn/jqI9oByWKvA5/J8
0NlueHHT/h5wmTn1/johHwazecs6DvcAx3fpsoTZfJAmxHs7GvQAza1FUFyt
ALLl03pvX8f8DYoJu7UVgHGt63/6t3sgwT1/Jn6+ACYuyD7je9gDgs1unUpS
haB4L984OQXzL6zh0hBcCKXkmk8VTT1gXjOncEmnCCyvhu0I7cLW2376scqN
Iljk0L9u0I/Zm+UFhHwsAk3F7weIMz3Q5XayX4O/GGojel7MiFNhxtDo3Zao
YnAReTP76QAVaFsTVO2zi4Gz0MnsngoVRF45nPVqKQaD3tGNAkZUSKh68Khh
Swm0HVm4ecifCuZ35Qv935ZAz4CghUcrFTh+OB0XHi0Fkxh3agCBCq3B75pv
CZTBF60apwcDVMiZ3LUapVkGGS8vX82YwfzVyd59H1cGnuaVkX0ivRDtyewZ
1S+HtW/2n8569YJNrV/HQHsF+PgX6zre7AXBI4oFWzgqYUiau/FqaC+MR/iV
T6hVQkNoYVf0s15o/XDYoTyjEmI0OCcbqnsh+V3jVEz4J5DAZUtobO4DkeDp
DQ9cqyHOdv294c4+WOnL2dOcUQ0cvOYHLaX6IGGHJ+MLrRqYbqv/3VDtA0Hu
13ebL9VAgZTpOZxdH9iwjOnnr3+G44mz9/fg+iB6y22b6Lyv4HJLZ2yTaT+E
pB2tqLCqBwW3VvK0dT9Elji234msh/mzlo1k134gSWp+LS6rh6j9Pu8yg/sh
yVf/15UdDZDf+cYeMvsh4/Kzm4LUBliVXe8MWsPm34oz9Q9qhERCddVozgCw
NlJo1byt4PDV8CO+bAAaKbxq5YatIJvT/aKsdgAsRUBy34NWqAqd8L9PGoAF
Eo+X879WGJIXVZLkGAQ1PpiwZn8HhXsh7ywvDoJpSES21zY8fDuk8eQb9xBI
uQYGFp3qAqcjlpmz24agMnReStK7C1ZUb3zZIzYEvmJXxeqedoGiNm76zuEh
yDv/+3w29t5KMt5zQe3iEMQqox+LV7rBw32TxIecIVCU4DMreUkA3vSegqgz
w9BqoLBNUpIM798vNJdbDYO2VYm0rREZdLK30xjOw5CXdL0XfwPrewVnhCBg
GF42Houxx/po72cUtJw6DKa/Pq8JB1Igj/oRPKeHwaSm3kkS0/kBvi/jWcY0
oOSsjQ1098Fcy2Hv92Y0MN8480uLqx9qo979SreggVB7P65DtR+sNz6aTnGg
gd7o0of0pH54+O/8QoIfDQxUh6/T7QaAuTj2724yDTh2lKH52UF4z9ghbDVO
A9fKu7pXPtDA911UssUUDdLG7z2RqaeBtsuqqPkcDSwiN3WuDdCAMDgkcYZF
gwYNiivXLjpw9ubKnBCkw5Q6Ics3ig4unXBYSZMOyU8uXvjmywDJL1cNuaPp
EEXl+51ixYSdomtrvk//Z7etrziYCfxB0cXURDocOa10cPI1E1hHPojnv6XD
1bhU4ZYhJvRlDs1alNFBT6rj+iHvUXgZcz4tY4gOuzel0T8++gkC9hrLx/5j
wMu8vddqB8eBY40r15/BgIebKUY9K1PgMtI7f2+MAdsjDoxq7Z2GOnzx8ae/
GSBidq3p6+lpCE93In1cYkAJn9fNg2+m4Z9Bzb+BzSNw5vh45DP4A3/jb1gb
HR2BeO1Tx62NZoAlS9sgETkCXkuo90DmLCyf/+rUJMsEbVX1O2lxCxDRWzR4
/BATJtUCwg7mLoCA63uHKmUmDKpquX7/tgAH/B7Z4Y4x4aDbmwGj1QWwjDtv
/ew8Ez7uTDbTc1+E4rZRM8dQJpyv1Diy/8QSeJ0U0F0kMcFXH/+RxrsC/WrO
4rKRo+BAdVTy710Hv4uC22UGfoKSuL3Ah8NceqJJTJuNkuOg32C1KoXn0Su0
z/g4HzIBwtS3N5/E8Otd1L1n3Pp1EpK7iWZjFtv1Qm5UFvLp/oLahmbx7XlC
ev8HJGGM8A==
        "]]},
      Annotation[#, "Charting`Private`Tag$654476#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHk4lWkbwH0iS0IZTWiRFKEia5RbSaSREpGKmEgnw5BtLFlSQ7RQjCTJ
0pTKtIyUkZsSpR1ntZ1zkJyQ5AzH8b7N8/3xXu/1u+71ubdlgeEeQbIyMjLl
5Pv/v2HQTtfpJxFmJF2/5ftpdsPBbLMxbtoQ2oR8S2yvlm2Yyk3IQPiEfDmH
wTVWEixT7dEqEHxE8ftf7w0/EGGRq1lke+YAMt2dPW82vsC00IC4Vdv6kWE7
sfuvLx3Qc9avqNaxH2W8LpSVRjPB9t6+hu32RK625187KRPGxV6KYeaEA7ZW
HJRnQ0Cya8H9xf1olNRmGKnJBYdc80d2431odL6guVq/G+ga+Sm3y33opRFW
1ZsshIRZlbGRI0K0zNKdHmkfgrBLfrMPfhJidKpeilhBBIFrNfLc+oRY/e7c
O6adCFz3Jd435AqRf+x2q26ZCBY+2DHS0yTEhs4RM374Z/g78Fvg9iIh6q7K
aZKTHYHRxg079LcT/90mSZFyYyD0/to1b6sQS7z7WLKLxoA5UnH0u4MQB5Lc
85LNx6BOSy2TZyXE+LcuDvaBY5AVIXh2Xk+IDsm44339GBguO7WekgiweukT
N+eorxCQ8k6fdUOAMvsl7Snvx2EP96p9d5kAK7l9JeYD4+C67lef/mIByluq
5rdLxsGiXz17/KIA1dP1JDy9b6Do4vFNNVWApunbShWivkGVGrPRea8AT6rk
pHDmT4C0mOf3WEmAThtn/+KzWQxjk5VxDXLE39HhTXc9xdC/MyG35TsfGTHz
QRwshreyi5qZYsIrltzfmiWG0uADq8cFfKwYME9QaBeDyxq+1KiWj5qjPpdk
/P+FvCcDBUUMwksz5T+ETIJfXOFx6yA+ih1PjhrGT4KhufuhNn8+8m68vcHI
moTaG4/WKnoR/+u25dy6Mwk9F7KajwEfZZy6zZZ/nQQDhtmE6w98HDucem/o
2BRErp4uHk/oxcryx5XtIRKQK/uZYRjRi5ovDjwJipVA/sI3ln7Bvcgwdr8m
OCmBf2aVvH65sxfF97S680uJPs9pumRFL0bXu+lP8oj+qRwv93c9aMo0+3rW
eRpqew1Vbuv14GnJULqOuhQSN/zvTuHCHqx9OOyzREcKGy9x3TJVe1B9zquu
uSul0OBx+lzwdDdOx2lP3LeTQsvzz/OXtXWjJkMuQDNYCh23qrTyU7vR9Jqc
hV2NFPIVf69Nj+1G5fcN8kqNUvAO8t937Bdin+fz+7NWKfCWqF/ZuZfoD2oX
0t1SEORE6M4x60ZmsYjKnjUDo7EWBin8LtT++WG98vYZuNuh8iKM1YV5s0zO
lu2egQizgZADr7vQ1i5p7qr9MzAhyqu0fdSFd8Pv60yHzoD0wORq8bkuFI8c
jvn7zAwobqm1YEAXesF3/dOvZqC1JJfpY9mF8bvWjI+0zUA2xYhxNu7C6mmb
cHveDKjV6DzS/7ELo+cL4io+zcACoyS73tFOdPVObM2So2C5usNmz+JO5Fn2
Bj+2oeCsqSCecaEToxtuW4UCBVM70x6kZHRiQ7q1l+JWCl7nNOnfiexEy9r0
4zMeFERpbFOY7dyJTA6V2nGUgh5zESza0InnTatbPkRQ4OKZFbfOrBOnG1ft
fxRLweK8N0N+Op1YmeMasekEBc0LPF7XfOEhs5/xk+MlCkytv8m97edhrZKK
YlYxBYXeFzf2c3noEMKYX1dGQXgBq0q9iYe2bX4avDsULNTel3OkgIeivSub
5RspSLOdeZl8hvD2e5N/PKdg2PeKbH4aD/NiJbEarRQ0Xu499jSUxEtoPNTc
RgFj8aE9Opt4qGxj+kWnj4KOjfLnzKx4aDRZnj/1kQJ7v+stzsY8FH9hZdeL
KNC4+skmSpOHJ89GBs0ep6BO9xedN0NctEzOaDn5nYKVm1Q9+3q4mDJnsP+2
LA3nA/7KlrRzkfFBdtcTeRqCSr9SK+qJvnKkZuEcGlT1Y/jHc7kYvXatu+MC
GuK2/KiV9zsX+Rmxwr8X0iA89GjXrUQuinSSmtR0aKipmH7KDubi9ChGpS6l
Qa/5snRkHxfH1lCbC5bRkP1xg4XcLi7m3Zj0L1hOw0GD5ApTOy7Wuuif8jSg
odVZt2erKRedwvecU19Fg0VI44IDK0j8d06D1UY0FGcEuh/T5qLDkfEzW0xo
ULo5KyNTjYsNG/afqFtNQ9TL8oarciS/bSdaFq+loWfISVIt4WDJ+cO+IaY0
3DfKYAj7OKj56nDo43U0LP1w8LExl4OVjl0e/5iT/GLXK0a/5aCtbY7vnxY0
TC2e713/jIPMqlMnkixJfZpEFQqPORh0re7NRisa2hjPJnZWcVA0z3z9J8L2
84ocC8s4yJARPU+0puFWTVRuXwGRhwqOSQkv9HMTmJwl9t5ajodsaEiXW2ka
c4KDPMwxryH8tZI+jnEc3Hnd1WmCsN8u9hvFMA5WK2+J01lP6jP51yKPnzmo
PZL02oSwdXHG0cs+HIx3m9pkSLh8S0BtvxsH+cYPOHMJq39er7TGkYNGGVXn
u4m/pJz5PrE2HIwOFB35g7DI+vP1htUcbK0NPmRHeE/PM7HScg6q5yxPeUny
fZZetGX3Qg56Deg+2UTY1Dj6QtFcDubV+OmUk/cWfXATDsgSe4XuwjFSH6W4
lWZrp9gow7psZ0A4Zsn35LgRNhrpXaacST2FTey3jUI2Hhzm8T1Ivd2P3l08
h8PGaIt9A86kH3XzMkM937CxZFpnjoEZDYaPAv658pSN1faLPcZIP/P8bJUH
a9j4Xsa/tmwNDbLyGntN77CR7yBw3ET6H3br85+/lbJRRJeNvjCmwWWqyEnl
DBvFE6I/8w1pqC6OvuiVRuQm4Q+7VpL5dNrRVxxLWGj+UWUFDdKc7ylmgcT/
i+M3jcm8hthw3sV7k/hTchu1yTx39Nxd0vQTGwuvv/o6voiGKuPAuj3WbPRK
1MZAsg86bbZzSkzIe8tL2RJNGjLiNHyHlpF6uB6dl6BBQ8DzpskEFTbmqdV/
slOl4Qd/A/NrAhbGpx1ZWUP2MVVeJk3EYuGKQrHLVbKvo7c4781fs7B17dPs
iBkKWqYyw5ofslCZuSiuQ0xBfO7wzc9ZLPRV4HRfGKTgo83zKYtUFvJVQ5Tf
kHuxu/eK8/EYFgZdtPEZ66XAxMR9QD2AhV5al73FbAp6n9/TtbJioVg5eGCq
mYLE3ZItNiYsPL1uQ/37p+R+CRyO2Oqx0PRpWk5ePQU7Z97ds1cl/rUCDD5W
U9CwbnSz80cmVlQGqpeR+1dy1SjIJ5+J4l2/sbMSKNiwOjLTN5uJDKmXt3kM
BZzax3f2pzFxWqXsQ8uvFKizXP49GMbE+JCz1TVBRD58w+mFPxONXr+aiDxA
wX9KPJ29
        "]], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAA0r0BZeJK1b84nvKrU1H9P2J5o6l6
9tS/pdDhEPIf/T/lLJUyv7bTv4s5ykbpY/w/EX6pNi4B0b/QY50Lucb6Pyw2
7yyl88y/jymobYM++T+DRO3QuXjHv7sHnRxjjvc/FVSukFkXwr8cQTHI5971
P7L2xQ/IJLq/lpWH8utF9D+l2+WN6YSuv/yIu+11g/I/XVEctNtjlL9qWx6a
RdjwP7kKe9XCdZM/3iH0T41e7j814gEegVivP2gXI8+Ptuo/I/C7+TrCuT8o
i8QIE0DnP0mj2c1OWMI/TAlbKRZx4z9FTRID9bXHPxxHCdAOS98/j1/XgDC3
zD+ANbMCAh3YP8dOHQ1QEtE/JtiDd7s30D/tIRV+0prTPy/6Dm04fcE/OHuh
ccGk0z8AqX7MN0LBP4LULWWwrtM/oX9JHzQHwT8Wh0ZMjsLTPxyk8J4jkcA/
Pux3Gkrq0z+XlAkNvEm/P4+22rbBOdQ/vRaJ7YCXuz8xS6DvsNjUP9DAQ7d3
LrQ/fKQs45/i1D9oD+1Ms7ezP8b9uNaO7NQ/tK1MyehAsz9asNG9bADVP6rY
LnZBU7I/ghUDjCgo1T/j6H6gqXewP9K9AWXiStU/JSS0qGSvrT+t/O5x
        "]], 
       LineBox[CompressedData["
1:eJwVlXk4lOsbx6c0ZSlZUpSRHKRI6dQhB/fkUIrKNihZikq0SJsUIktxqjMy
iMLMvJZGJj9LlobnJDpyEpJmGMvMoAVHZChL/J7+eK/3+lyf7/e+3+v943nW
HT3rfGwhiUR6gJ+fb8Fwvm2DTztw1EcDTKsKICApYnlEImb5qGdMXh7M2qRO
emZhpla96ZnOAV1OQ92qf9qBdPO7R24SCy5eMDxyd+V7oC3bM9XunQYr5b/w
3NZhHrMQcipToCKrWF3L6D1w4mjuQg0GzDbuaHm8E3OtlHJgkA7R6+yg8RTO
T7x/JZMaD7rlChn0y5jr5bacYMVAvUPzpEf0Tx/bGFURBbKhbtyPqbg/WGpW
KRcKd974U8gv3gPpOpgmSnbCFn+DK6+bcJ7WRyUU7FDr1NC7e4Kf/TWUNBdf
tELv/J86Izg/WiHebB6C0q9GzYAGHziSFMeBx9Eo1yCzI+wsH2ivdNepDtCR
Xc2R7dZhfCB1pU839iShzy56dLlYzBbDO9a33UNGkY/t0tIxj2oPvi5goOL2
qvKyetxXfqvUpHkfuQZFqIa3YGbqaOQP3UcTJOuzNkKcv74/fn1ZOjIzeqXf
Nor3G5sxVM0eoJpoPmN0jQA4u1wuZ//IRL7qGWPl+gIguUZwM5lZaAHXe1+k
CWaP2hxt7Wxk0zGwSHE3Zi5dWPk0G30488i33UkAtLbu2gVz2Sh+0Wneg8PY
s1Z1Z1gzUeNm6XnDEOy3u3JevmCiU/XlzV+vYT/t5uVOYqFlnlcNq+KxP7H7
D3NzFnKMW9hn9xB/j/lY3mQOC31d89JKKR/nszn6LXwWSv7frXR+Mc4XOglm
FrMRv0vJ+XgD9jUB7/Z4sdHexGOCC2+xV028KoliI96OKu8bXdiLVHT0CTYy
/qQ4QP+AvR6pYUUdG2Wn+AVlj2IvcT7NFbORim3FGHca80oFlfFZNooZXxpa
vagDSLUGTyVqBJpkHpn7V7EDOP0FB8ONCBTg+DSmUx1zRPJsLZVAnXPyCp91
MCdJMkucCeRQ6EP/ZoR5dQr1wFEC1XiWrlps2gE0yhMx4yyBTOTlMlfsxMzY
FB0fRiCiwkv3F3u8L05ZR/cGgVaeKOaY0HB/5NDzoFsEuqm2xITqg/mNnK/3
bQJNv/As338S5/W15mbuEOhUSJGl13nspakZNph7tMl1QeF4/u+XzcwSCeTY
fHBvWDz235+9ex9LoNpwbstNOmbj48HaEQTaZiTjnpqBueuigtoFAuV2unfn
5GAmDeWUniCQ+q3HfqVPMGfWw7wHgRJNFwzWVuL9xeQO6W4CzQ3Qgltf4H2W
BecY2wgUnMyZ7G3CvPOpnFiLQBLr+WsjfJzn6TP5iwnkOuYi80OM53FnTa8M
s9HLrPxbCsPYq5u9qW9mI7P9P5avnsT9KYFfdREbaRbkaprKdwJHx/52YRAb
3Tk4w7Jd0QmkU5rrcm3ZiCTruMFVC3sjl9I9FDbq95/afm4rZpUxAb2ehdxU
9/MiLTqBtsMj8LcUFmp4zrK+swv3Bbozsf4sVKjlcKDgEM6HjazWn2Yi7abs
9kp/7K8PPbr0nImSrk54NpzBfnafWUgcE10SZAYMRGN/+A+XQDkmskoai1pb
gDm4V6b6QxYqou6SNS7DLN2iruiYhXS+pN+xQJj99xmWlWaixQ42GQfb8Peo
fdxHDn6Imsmppfdm8PzihzGF3HRkXTpkziIL8f/ZdZf79T4qPUp9XrRcCKQH
VWnkrfdRGvrc1PSLEP9fmfwyViryvWLxcYkD5uerKigOyWijf0P7iNvP/M65
PPd7aHy/a137EcwefPVyryQUp3uKyb6M8xd3/et38C/0uDnDE9h4X9LxvSOU
m+hS1fq9+lzMgaEUx+5YBDklZssqcZ909P4z+g30NuxfNeEb7KdDV/mUhKMp
vZnmS9PYXzcP3JTmh2qV4mu8yF3A4UhZbaed0Z8zKoU2Sl24f8Zqq58eaLdu
TFDR78LnZaLu1Phx2HXtkA3XCbOXh8/p5VGQ9LayYiAf943zxizFyXC42jbv
dQnuqy/Q0ohNAb38VkZJDWbNLxfPGqdBRfjnkKh3uB8Vn3+bngE9BhqbKKRu
oAldlzY4MGFjZCjT1b0bnwcHk9wE+fDC0DThBbkHSKnfplvnSsF7syt7bHkP
0KSqjrxbZfB96zne2tXYh+y5IVB7CkbmBSNXjXuA0zR/I9ekHJLt1rpsc8de
Nn0k7XIlHD+2RDMnH/OtmAC+RQ3IZvEL4+x7ob0z7bKXWx2wWNKXpbRefH9V
3hjl1oFFrrJI4tMLpJaBCE3ZeggutFeBC72wkXzMGnj10PEMXfr2ALPJ9I8n
hv8AR5AHASO4fzdyt9X6RtCX430i7ERwfcuMcrxdC3z9xziQtU8EG20nGY7h
LVATxxzKchbBoEbsfb/iFnBbFD+SflgE1EXea49TWiF23kn6V7AI/u6c1eue
bIX+iY/z19LwPPqI1r3yNmBJVFfRPomA8QsLaQXz4QwzLs35PxEEWqn9ps7l
g7nvlIbjVzxPQ9PIc5gPb7t7NO1n8bzlAynVJwWwoOORzk4lMbTP+Z2QnugA
32Yw3mQmhr8/qEk3hAiBwguyJd8Uw0bhHl5pdS+s0JiePnNbDIzuK9YXyCJY
eulmkSBJDIGvkd8OIxHMbs5Z8/ihGLbnannZhomgk90z5lwihsa9Bob+6mJI
SXTKzO4RA9U9aFv1YQkoepp++327BEgRRTNd5AF87yx8FCKRgLyMqVdbxyD4
9nWMR36UwESYQcKXJUPw9+siq9vDEkgoe+9r8tsQXM/yfpc3KQHG+ZMK+veG
YN6mar5Lvg/2qgTQ2vYPw9zdc267f+0DNeErnmXTfzCrJ5LRjOmDhNd3hw3O
j8I3p2rver1+aOyTI57VjUN0x5NuK8N+MK8aP/NWMg6KR1iHK7b0w3Y7A/d5
khT0g+MPFfzeD38lnIvMsJSC6x0nN7pTP1Tlx2zuLpdCUePAPq/wfjhmX7gs
rmgCTv6haDnxrh/CNsjWni7+BsJtPmv0YgZAbU+/POP7DAS7KynrdH2AiZCS
9VueLKRqJPd7LKJ8ggTK0jBywRIq1zM7bzz0M2y1//PCyqplVHfLSLuG6kG4
EmEv1zKvTDXK+vVQ3ewg1NS+XKPMUaH+HwMt9AM=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$654476#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, -8 + Cos[1]}, {
        Rational[-1, 3], Rational[8, 9] + Cos[
          Rational[1, 3]]}, {
        Rational[1, 3], Rational[-8, 9] + Cos[
          Rational[1, 3]]}, {
       1, 8 + Cos[1]}}, {{-1, -7.45969769413186}, {-0.3333333333333333, 
       1.8338458352036264`}, {0.3333333333333333, 0.05606805742584886}, {
       1, 8.54030230586814}}]]},
  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, 1}, {-2.8634541902717423`, 4.666080888754264}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.796979977634594*^9, 3.797041712406197*^9, 
  3.797041813524478*^9},
 CellLabel->
  "Out[843]=",ExpressionUUID->"efe79326-615a-4072-b211-cd0f3a3052d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"hpi", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.796979966394562*^9}},
 CellLabel->
  "In[844]:=",ExpressionUUID->"f0ea493e-5584-4b5d-9f8d-af90cda9ac90"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mXk41O8X9y0RkiRFWUIpiUK+tuhMIhIlIdkVQpJkayFJUoSkkspOGPsW
KveQrUyW2Yx9bFnKvjNTz+f3XM8z/8z1uj7nPve5z3mfc3+u6yN95aaZCwcb
G1sdOxvb//6PwK7Jf/9m0KyJcEY1TYJwc21fxNr6DGqdjHCSqJMgFJUqH1hY
mkGureH6T/IlCCpyJld+/Z5BsrTy+95hEgT17WHdxM4ZFNCy6WmCigQBNzz3
423hDKo2CZM5EStOMHvyE3/MYQa9pI6ldpqKEQLawm5cq5lGhb2CotxjogQK
ZctkrdMU6ltZNdPiFSZgEQiri/9BYeyJOak92wjl1+u5tvVNIqH9yrTi1zwE
xyjl2a7QCXQp8u/L58/YCatx9yIQjKOeVg274BsrKF2gf3fC4C+0OLjIGVky
jt4bKfuQn44inmMcH2JzmlCop1PgoTMjKNurthqpkKA/2v599akRlNZ26Wlt
Lgm0im0IZ0+MoJCIfV9vyJBhfsmCx+vYCJJaJuU3CFLA6YFRQonECPIn98j6
T1ABF3es8vj8MPqrz8c59awL/n7iWjV5N4wOeg8+umbAgHucuQE+U0NIrEX+
SUbbL/B6a8/tOD6EFs0Kx/6yfsGVoztemQwPoba9/e5qCmNgZHO/RK5rCI1F
ZaxoR4yBaOm5qf76ITRQ91k958Q4lF1ZuHL2/RDyUbQ+yZ05AdO12uf2nx1C
jas3/hOy+gNOIW37admDSD157tunvFmw7Eo+0Zc+iARkp4pN0CwYqXhbjSQN
IrUv0cvkjllQHRGMmo8fRFx3puKLl2eBx9BsQeDhIBLbfTypGOagYBu11uDy
IKJyKWY0t87BRlK3fRXvIHK/+iTce3AeZldyAwmbBpHzo9tvd8/Pw4jpvbim
fwxk42UeVcqxAK0c4o3UJQYicu3dV71vAdJc7RTnBxlI1YztuZDLAhgeYWzI
VzPQZYbujsWRBXj1dTThvQcDzesVLb7pWgT7wMRgdRcGwv3k+J41sQhyx847
kxwYyMxD+lbG2iJUZ1ce5bFgIC7lYjPP3UvQ/zKy8TZg/sqTF49YLcFBD+VF
I2EG0j4+/iCMtAQ+iutJ8/cGkJil9q431cuwKf2qh9ytAbR1o5wzsnkZXov+
/M/edQCZ42/7etGW4TNnCvG76QC6O5O7xDmP2Xfrr6fIDqDexTeCHnIr8Dr8
hcX5tn5UzjblezBuBaoH5PjzZPrRsrGs7fPLq3Bfmz0/UbQf5dMdnIucV0Hn
bZfJU4F+hNtyMbfh5ioQzJ7FuK73oTiCGnvT41VoavgtJE3qQwSPz5dki1eB
gi/Y/fphH+rlZ48251qD6QDVgyGMXjRLVjR7n74GRRT+Zi9aL1Jd3Vy2LX8N
bimPutkRe9GNMc0hv4o1WJx8latV2YsE0u6U7/m+Bht2K4pLMb1o1EWjrHFq
DXj0qlU9oBdlh2qu4VXXYZ8gTtc8qQdJdi5Qf1SuQ7TS4F2Plz2If0etumHt
OqyahpaGRPQghV1vaiq+rwPxRf3+fB/M3knY7Fr3OvjuOLOZ26AHTZ6yOCqy
sQ6Nu8yIn2a60UGXTZ8rNDdASX1hU+tIN7qfTNl15uQGJF6K1xnp6sb649k8
0XADbibQCgTru5FWoSMu59IGiO6xeeGe0I2Mr1dRynw3wEPC2VLsZDdS3e1A
F8/bAIoOV4yyWjfKyxDv/V6yASfss5oMDnejMd+UareqDdiRPK7hu7MbPbtW
Knm/cQO+SN0Q+znRhZqHhGTWBzZAYL8/IziuC1lukRWwEmRCiXyEx9AwHXEZ
ZMA3Vybs7XCsOtxFR6r7BmKSrzMhKkCTx6+VjkK+HJvy8maCS/1k5uYqOrIc
yR35dYcJovYmgwrRdGQ8aGmnHcWEoBdCVgEadLS4p/9QaAETJtV/ZxEU6eiK
Wkf7ixImWPZ/W+LdR0dhjkPd8RVMUDrs9/L9Vjqqs2Mo+tUwYai+s7V2qBPx
CNBckn8ywXD1vT7/806k+pGPlDTBhPIkv3iL0E6k82i70tgfJsjonxtOCuhE
k190DPbNMmHjxb8Q5SudqPtxRIX/MhMKDl/5YqneifhRwNFIDhaIkbS2pCh0
Iol6zalbXCyICNxhPSHdiYymZWOMeVjg1FC/co+/E7We+xfft5UFwg4Hj6UO
0hD7sTNwU5QFD7nYQidpNGR3YqZsaQ8LpvH09mNEGiIu12t6S7CgafWpV2MF
DUl5hoaflGHB3bg/Ob8jaYj7b3edxWEW/NJoWFV9SENm8y8NgxRZcHHgg0Gw
Pw3F9obyvD3KAgWF86OCTjSUOfvYOP8YCwYaiqXU1GiIZFp178xxFty/uKan
oUBDujXdk4vaLBAdxLlrydDQ5mbSydcnWGDKbCs+IUBDKqeqK6tPsoCgMq1r
8IuKKqxj9SINWGBL+O/amV4qui0R6/nLkAWrJkGRZ0lUZNFnkqxuxAIld37K
+RoquqsUoPbFmAUpyfIuVq+pyDU7L/PcBRZoK/o8tY6iIsvmpg/WZiygV1fl
24ZS0TI94pvtRRYI0gyXHb2oKG/OO+eUBQvyrsbuuepMRceEzHzkLFlg8X9/
VLRdO2Dr9UtYPvmvPXE/TUXmT7gvv7digWRiAf66NhXtTg/WsL7MguqDy203
VKhIRO2xm4A1CyzLdRZvylGRv03AVCXG87qPRX0kqahAqaTlsg0LotuJ2r7C
VBRGjds8h7G8vbCTPx8V8Xj6ZwbbsuDKnfScu8sUNMT+WTTIjgV/uX//vP+H
ggZMactTGCfGq8wHD1FQp5K7oYU9C9Rk7u56SKcgx7b27aUYkwprtR61UpCd
rcelzQ4s8NLhdXhcT0EcfC8lzDDmazF99KSagoj82W4vMc6ySvj4tIiCot5x
67RgfOrXQEtkFgXZz2xJXsOYcfvg7PP3FFRwaudLSUesvuw3hWPjKEid9kBC
C2PRmAqNuAgKYh/L1jXGuEz8r218MAW5Vk5xW2Bsmqv/8LUvBQnE4L3MMf6j
/jwzwYOCposh2AjjiAbK90RHCjL22KyljvH+i+LT7y0piMDpmLUHYwLjqlCy
MQUpELOaFrF4bL3waqm6FNS8QzOtAePVjXnrdA0KElH01XqOcfxTrQeZRzD/
nuXxZzFWEglN/7ifgm7LW5ezYUzM+N6Us4eC9iCUkofly01l+x+8IAVlh5+y
OY/xJoKVYAE3BR0b0J0Yx/KdYpKiWsQkI5lDYufvYKzdM2ZVMk9Gh5sOvWDD
mO52NKhsnIwsJYml/6uf77J/akU/GbFeOXxewOorGFbTUEkho+Y3J/McMM7b
zj1Z/YOMSmLantVh+hhVeKWCKsjIVcJF5gamJ/ngzOlxPOZft3s4A9ObV1t5
rlAqGV0zdxAgYXpcvUWTcY0ko8nLjDJ+TK/a3371x4SQUfjgv+N7MD0/FF5J
rPIjI8MH/roS5li9P4ns2OpIRrpnioY5sX44zyPXpmZBRqH73jwdM8XydVkj
0tGIjNZvijcQzrNAgmnFWaZKRtwDZ3aYm2D5O5m4YM1LRon6stl/sf70i8st
DPtLQjoti69jTmP6H66+XrBAQgk75w126WP6Ce8ZZu8nIUb/V24uXawfWsQp
2SUkNKgX99INmw+J4oqxpI8kNN/ddDRbE5sfN3SMme9JyNTyc3WfOlYPQfv6
809I6I7R/lJ5VRbcs0guW7YhITbm6ndjBUwPWYXeUhdIyOqOaKC2PFavVaRg
dJqEVn9g40wO669ERsYHJRKaTk7Qbt+H1W9A+pUeFwlFfIq+WYHNw0b3DL+4
gg4U7v0lu4ibBVs+lyl/Se9AujstsjdtwvTK3zA1mtCBmuiO4ufZWdBVMOqi
+agDSeLEAps2mPBn4YAl41IH4hiUTDyNzfPtwTlqR9g70JaEcLdHnUwIr5Br
FlxpR9aXSw/eoTBhffrj5YU/7chzw3PYtQO7Pxyy7lfS25H/ctYV+RbsfjuZ
Xqdb1I4Whnb9u4DdL2ZcH85dcmhH4o9Xsg6mM+HgbumfbPfa0Or+huv815gg
+GzvbINrG0r9eDqM7yoTVtcldkSataFdrtby7A5MaO7dc3mnfBt6O3ZZmW7J
BLcU4dFDXa3IlZCWo3iaCbkHeVhm6q1Ig6dE6+4+JiiozShkLhBRtdHG2yr6
BrgeefCgqo+IKDsa59zIG5B8YBvpZxMRebdP/yfYugFCIkcDlt8RkV6+Z+Lp
bxuwsuJVa6BHRBf83vtdzN+Auqppi8n4FnTl8e+Q+QcbYKUzHXxU7Qeqv7ls
7LV3Ax7pTbVXBTYhPacwcrLhOtQZ/jmverUJ1eGsxd+eXAc2k9+tBSZN6MHs
v3+RWutw32KCmC7ThKK+vcy3V1gHf9fR5ufERrT8j6hVuW0d3CL6CE5SjWg6
XWAUR10DY+LPIt7menTCqaa81WYNdpoXxF4WqUOz1qOaAlarULLcsK15fzU6
E2S56yEsQ2bP6POJsAK0+5vL/FTNAthdEC/ruRqPuEOfh/Hpz0EV3z1qnd9L
CLx9rPBO7BT8N8Qu+dCqENyu/g7bqTwO+2Y/r2nVVUGWrYNwwuVhOJPe9fOc
VR0IP1x+rjzZC/omQpxL5U0wUvmuJ9iOAtFOvHNr35uA54z5/k04CtD92Ab+
9jWBbT8H7b0MBTySpqt5uJvhbvxiNc84GaJnfviIWzZDRt7Wu8TbZKC/eDR0
arkZgneZ6e2IIYEHbbE2Tu0HZODW6ndT26F08nfhG6MfYKj3/vqR6nZg/h36
8N7+B6g86imySm6H6IMdd7LCf4AXa9Ru2h2zD8xXrqb9gCFuJWUpNsx+j2vq
oH8LhHDUuVs7tUKMQ2eI0iciVL4emWjXb4HwP9rwi0gEgsQrtTfbWyD4Thrr
3RARoszdXr7qw/y+vHF3s8BPUPIYVj7u/wPONXH69jv/BKnD8nNHcr+DwFGl
a1FCreB8GTc3IN4M0X8jTMZvtIHptcMo/UgDhEdOb0l61AYJ72r8v7E3QLCo
+Y+Lb9sA93LLkBS1HrxU9hqg+jYQjzeOeHW/Hg6WWku1bG2HQMEGjuut32Dz
2OzuNOd20Gv9JD8dVAdN5yS2mgp1wCZdfdkXWwkgfGRwl494BzgqZJg40BA4
bs2Uij/QAaJ+jdnb4xCstyio0rU6IDCGFtXJh0DhjLaN49UOyFbkFZ5lr4HY
UzY53mUdYOhrax/P/QV6ZfaWxtV0QMjyPpMz3z/DIY7hL2XNHTBbQpQPjPoM
dQSP9tXeDrDyDKLrCX+GJZ27KyFcJJCLeMyVdqgarDXe6r+wJIGp778x/PVK
yBKxO1/qSAJcxkFlGbVKWFiWukz1IIGgnjKbCHslRJVne+5+QAIlwwKLoIRP
gFQqX6Z+JIG3Rs0vvZ8VsF+xc7B4lQRSA4qj/86Vgzf/u99kDjIk+A2thUiX
w9ff9ktL/GQwVUo5/HixDCxzf/FoSZPB6io3v+j7Mog4uHy07gwZ5GKVv9+c
K4Up6Z3BpEQyaCTJ3DtYXgIa91Jv1WaQwZHwcLAitgRCKYouRQVkkMpcKmz2
LIFdT04bR9eRYdx65q3vgRI48Sdgj9EkGXhGNo4tJRdDhP4mAc1FMrQ/7fBM
flAMpKRYdrm/mP8JV/VWh2JwvZAzziVEASu2nNfV0sUQU9FdUatJASn8vW00
fBF0b7uWW3SKAoHHwS0vpgj2uy98SDahgOhT//u8vkVQKcb/OMiJAnJbJf5Y
nSgCRojORc2nFEiZLFvMLikE+e7vp+VeYv4c3zxsDy0E32OWWiIfKMBw76Hz
mhcCzy8v6aUiCpimGQmWrRWA8tmUmSI6BZTOHmhaulAA9zMUhpOHKBDC79tS
LV8AjaxKWvQfCuDCC6debSoA66KOr55sVCAIfC6P/ZwPGbz2xTZ8VPB+csu7
OCEfpq9MZhgJYxw15DPpnw+hOzmj5OSoIHiwPvCjWj4QvWIeiKhQIcRV4oWC
aD7saha7za1NhdnHHGLE9bz//34KvM6zvCLlebBIJpiQL1NBaTjqx7mcPDih
aHKy7ioVcDlqj+xi84A84CKXEoCxWsQsySkPJDXnxWIeUsFRVqJayzgP3OKC
twVHUiFWZNqwVj0PSn7zcd54hT039zl4bX8eMPXeLNskY/Fel2YoCOXB6aR9
k0Y5VGAcu80SYs+D2JXCPs1SKrQTB3j3zOFhf25zvUgTFdgu/t79nIIHL06L
Su4OzH7knsp6Ex4qbQfxS91YfmL5nJ99wQNHxY3kkREs/l5BzRMleDDeth5H
nsb2i+fR3pWDh9du4eF1q1g+Wq+vCKXigVErdLeYgwazv8qWVBPxIC+WfCOF
H+OH9rX34/Hg53vYKWYXDbwjh0cmY/Cwi2/mi6U0xmJJu05FYfsnl4hKKtDA
cWj0yMpTPFj/5+87qkaDkMKc/s0YM39otuedpIFpOZ3mh3GSI+uwrzENYp9e
aT4ZiQdYJjw5fokGbLLqzp7RWDyRYcMcV7Dnw6dtluPwECptCD88sfVhofaM
BCwfn7a8exGA8aEeycMpeGgwblu2CqVByiVdk85sPLgOxZlJPcfWr+QkjmLn
5wm0LBh7QwMl802VljV4yN26h68wDbMX07M83IKHs+l9Lv75NBB0sD3g3IWH
PxqptTqV2HnicF3sE3iIbnWW4PqG2UeN7OVax4OSs9wd4k/sfE+08V78edCx
9pvykk4Dwl4dBZDKA2HZ21Ey0xhH8JNFMD1UVKuNT6xi+QxptJZ2zoNLpuun
ijk7Qcrl37v4oDxIvPdwA3Z3glJws8DnsjzQ3q5/afP+TnCcPZ12k5QHfVk8
pa1HOoHtu1Rp7FweSJFiPOz0OoHh3CQoppoPWXJJXXdvYv769og4/8gHwxqn
/3TvdkKsS95szEI+TFyUfcH7uBMEG53bFCULQOFBnmFCIuZfRN2xLqAASqjV
n8obOsG0el7+inYhmF8P3hHUju23/cxT5VuFsMSme1OvB7M3yfUN/FgIGgrf
D5BnO6Hd+VSPOn8R1IR2vpoVo8OsvkHqlvAicBR9N/fpAB0YW2NVbLKKgL3A
3uSBMh1E39iec28qAr2u0U0CBnSIrXz0pG5LMfw4unj7sA8dTO/LFfh8KIbO
XkEz12Y6sP20PyEyWgJGkS50XxIdmgNSG+8IlMIXzWr7R710yJ7cuRauUQop
r69eT5nF/BFk76dFl4KbaUVYt2gXRLiNdI7qlsH6N5tP59y7wKrGu7W3pRw8
fYp07G53geBRhfwtbBXQL8VVfz2oC8ZDvcsmVCugLqigPeJFFzRnHrEtS6mA
SHX2ybqqLkhIrZ+KDPkE4vgscXW+bhANmOZ85FQF0Zc30vSFu2G1O3tvY0oV
sPGYHjKX7IbYHW5DXxhVMOK89t8tlW4Q5Hp7v/FKNeRLGp/HW3eDFdNw8MLN
z3Aibu7hXnw3RGy5axWR+xUc72iPbTbugcCkY+XlFrUg79xMnbbsgbBiu5Z7
YbWwcM68nurUAxQJja9FpbUQvt8zNT2gB+K9dH9f21EHeW3vbCC9B1Kuvrgt
SK+DNdmNNv91bP2daGMf/3qII1VVjmb3AnMTjVHF0wy2X/U/Ekt7oZ7Go1qm
3wyy2R2vSmt6wVwUJPY9aobKoAmfh5ReWKRwuzv8a4Z+ud2KEmx9oMoLE5as
7yD/IDDV/FIfGAeGZrlvI8K3w+rPvnH1g6STn1/h6XawP2qePretHyqCFiQl
PNphVeXWl717+sFrz/U9hOftoKCFn753pB9yL/y5kIW9b8Ub7r2oeqkfopTQ
z6VrHeDqslk8M7sfFMR5TYpfk4AnuTM//OwANOvJb5OQoEJa2mJjmcUAaFkU
S102oIJ21nbGkMMA5Mbf7CLewuZe/lkh8B2A1/XHI22wOdr1GfmvvB8A49+f
10X8aJBL/whu0wNgVF1rL4Hp/ADvl/EMQwbQstfHeju6Yb7piEeaCQNMN83+
1uTogZrw1N/JZgwQaunBt6r0gOWmJ9OJtgzAjS5nJsf3wON/FxZjvRmgpzJw
c9C6F0aWxv7dT2AA245StDDXB2lDO0QsxhngVHFf51omA7xSwxPMphiQNP7g
mUwtA7Qc13abzjPALGxz23ovA0h9/eJnmQyoU6c5cewcBPauHJmTgoMwpUbK
8AofBMc2OKKoMQgJzy5d/OY1BBJfrutzRQxCOJ33T6LFCAjvXl/3ev4/u23d
RQEjwO8fUUSPG4SjZxQPTb4dAebRTLG8D4NwPfq9SFP/CHSn98+ZlQ4CTrL1
5mGPUXgdeSEppX8Qdm1OGvz45BcI2KivHP9vCF7nSt+o6RsHtnWOHJ+hIXjM
RzPoXJ0Cx+GuhQdjQ7A99MCopvQ0EIhFJ57/GQJRkxsNX89MQ0iyPeXj8hAU
87rfPvRuGv7pVf/r5RuGsyfGw17ADPyNuWVpcGwYYrROn7A0mAWmLINTPGwY
3JdR14H0OVi58NW+QXYEtFTU7iVFL0JoV2HficMjMKnqG3woZxEEnNJsK5VG
oE9F0+n7t0U44P3EGn98BA45v+s1WFsE8+gLli8ujMBH4QQTnMsSFP0YNbEL
GoELFepH959cBvdTAjpLlBHw0iV+ZPCsQo+qg5hs2CjY0u0Ufbo2wPuS4HaZ
3l+gKGYjkHmEA7c7fsRqk8Q46NZZrEkSuXEFNikfFwInQIT+4fazSH7cJZ0H
hs1fJyGhg2wyZrYdV2x/Q0aL+RssqTJi6fnCuFW+U5xVFlPQ7mn4NKJGFGfW
cVxNImEaDghGBO1bEsfxHd9S++XDNLB7HP7vF48Erjaj+6xt+jRQotpsi8Ul
cEqBd5zeFUzD0VRPDic9CZzA3k9RuxumQe/ccbJsvATuu6fK8M75aVDvVZs6
/Z8kDsdzKFbAeAaOCsrumA/ai1u9tbqn4MIMaMj0djfE7cUV9jRlmlyagbe5
cvppH/fiJAtdP0ddmYHNXZTNfh17cUyLjF98d2bA2adfo1ZICvcpfa/O5qwZ
2Jq6IJ58TQrntXWmKQs/A4I25r7nfKRwBwJqzE4XzwDROfMQR5AULt7Izu3x
lxlYpJ4s9o+TwvnMJb7kJGN1PxVuFP9VCidv4yGZTp8BQnTkR9dmKdxgvWaO
bv8MGGyluOmQpXCmCfSahxMz0ChuJbY6LoXj4cg+Iz2D+XOXE+hdkMKh6wEU
wuIMXLzq4lb/VwrnTz3t4Lg+A/hrXfLFvNK4//c9EDhp5yzThKVx/wdwHpVp

        "]]},
      Annotation[#, "Charting`Private`Tag$654975#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlHk8lPkfwK0oV1LS5uqQIiRCRPkoibQiJbqIjTSJTTnWkSMVkVKxkiTS
FqVrpWblM8pRoos5XTPjKJM7s4zxPH7P74/n9bzer8/5/VzLA8I8A2VlZGTK
qe//f1NYJJqZGcYQwqOMztJlhElWpEqmhrEg7+7Cure6jCfPzVf9FA/ja/jL
rfWJLmOdoVtA349hzL+zz/SXdF2G9fwUXhN7GPVrPcuugy7DoXu08cbjYVyS
suha0QMdhueF5jILv2GkD3dr7k/SZkR9SjlxtHoIayJy5GxAk9Haqiyq8R/E
zErZZ403FzKoDBZa6wxgXs/sFnquGqPieK38vA4RBmw7UlU3oMg4nGE+wk3u
R5vgn3EtFbKMyauxqQjfkS/n8M10vQSLVTs1cwV9KP78x9OB5yLMdzUPb0nr
Raa7854HNe8wOcQ/evX2HqTZju9+PNwKnZm++XTHHpTxulZcFMEE26cHGDvs
Kfm8vf/ZSZkwJvZSCLWg2H9byWF5NvgnuOY+0+1Bo/ivhuEaXHC4avHSbqwb
ja7k1lfodwBZKT/pdrMbvdRDy7sShBA7qzQqfFCIVunLpgZb+iH0hu/sw9+F
GJGklyieI4KAterZbt1CrPh0+RPTTgSuB+KeGXKFyD/1sHFZsQgWP9852Fkr
REbboDk/7Af8E/AzYEe+EJetzqqVkx2EoZqNO/V3UP47TOLD5UZA6D3aPn+b
EAu9u1myOiPAHCw5PuMgxN549+wEixGo0pyXxlsvxJiPLg72ASOQflLw9oqe
EB0ScOfn6hEwXH5+AyERYMXS127Op0fBP/GTPuu+AGUOSloSP4/BXu5t+45i
AZZyuwstesfAdd0fPj0FApS3Us1pkYyBZY9axth1Aaql6El4ej9BwcXzp2qS
AM1SthfNOf0Tyucxa5z3CfCcSlYiZ8E4SAt4vq8UBei0afYJny1iGJkojWbI
Uf6OD2x+skcMPR6xVxtm+EiLXADiIDF8lNWpZ4opXrnk2bZ0MRQFHVozJuBj
Sa9F7JwWMbiY8qVGdD5qDPnckPH7D7Jf9+bm0yhemib/JXgCfKPzzlgH8lHs
eG7IMGYCDC3cj3z14yPv/sf7tPQJoN9/uVbBi/K/bntW2aMJ6LyWXn8K+Cjj
1GG+YnQCDGjm464L+ThyNOlp/6lJCF8zVTAW24Wld1+VtgRLQK74d5rhyS7U
eHfodWCUBHIWN1v5BnUhzdj9juCcBP6dVdj03qMLxU81O3KKKH2e01Thyi6M
qHbTn+BR+uezvNw/daIZ03w003kK6F2GKg/1OvGipD9FW00KcRt/eZS3uBPp
LwZ8lmhLYdMNrluaaieqKX9on7tKCgzPi5eDpjpwKlpr/JmdFBrqfixY/rUD
NWhy/hpBUmgtK9fMSepAsztylnaVUshRuEBPiepApc8MecUaKXgH+h04dYKy
z/a58LZRCrwlarc89lH637TyyA4pCLJOLlM270BmgYjImDUNQ1GWBon8dtT6
/UW10o5peNKq8i6U1Y7Zs0wyi3dPw0nz3uBDTe1oaxc/d/XBaRgXZZfavmzH
J2HPtKdCpkF6aGKN+HI7igePRv5zaRoUttItadCOXjCjf/HDNDQWXmX6WLVj
zC7TscGv05BB0CKdjduxYsomzJ43DfMqtV/q/9qOEQsE0SXfp2GRUbxd11Ab
unrHNabLEbBCzWHLnoI25Fl1Bb2yISDTTBBDu9aGEYyH60OAgEmP5OeJqW3I
SLH2UthGQFNWrf6j8Da0oqecmfYk4LT69jmznduQySGSWo8T0GkhAp2NbXjF
rKLhy0kCXPakR68zb8OpmtUHX0YRoJvd3O+r3YalWa4nN58loH6RZ1PlMA+Z
PbTfHG8QYGb9U+5jDw/piioK6QUE5Hlf39TD5aFDMG1BVTEBYbmscrVaHtp+
9VXnPSJgsdaBrGO5PBTtW1UvX0NAsu30+4RLFO94OvFXHQED+2/J5iTzMDtK
EqXeSEDNza5Tb0KoeLE1R+q/EkDTPbJXezMPlWzMhrW7CWjdJH/ZfD0PjSbu
5kz2EWDve6/B2ZiH4mFWRrWIAPXb321Oa/DwXGZ44OwxAqqWndBu7ueiVUJq
w7kZAlZtVt3T3cnFROVvPQ9lSbji/zhD0sJF2hfZXa/lSQgsGiVWVlP6SuEa
ecokqOpH8s9c5WLE2rXujotIiN76q2b2BS7yU6OE/ywmQXjk5a6yOC6KtONr
52mTUFky9YYdxMWpITydtJQEvfqb0sEDXBwxJbbkLicho2+jpdwuLmbfn/DL
XUHCYYOEEjM7LtJd9M/vMSCh0XlZ5zYzLjqF7b2stpoEy+CaRYdWUvE/OX2r
MCKhIDXA/ZQWFx2OjV3aakKC4oNZqWnzuMjYePBs1RoSTr+/y7gtR+W3/WyD
7loSOvudJBUSDhZeObo/2IyEZ0apNGE3BzU+HA15tY6EpV8OvzLmcrDUsd3z
Xwsqv6gNChEfOWhrm7X/b0sSJnUXeFe/5SCz/PzZeCuqPrWikjmvOBh4p6p5
03oSvtLejnuUc1A032LDd4rt5+c75hVzkCYjqouzJqGs8vTV7lxKHiI4JaV4
sa+bwCSTsvfWdDxiQ0KK3CqzyLMc5GGWRSXFo6XkGYzmoMc9V6dxin13sZsV
QjlYobQ1WnsDVZ+Jxzqev3NQazC+yYRi64LU4zd9OBjjNrnZkOK7W/3pPW4c
5Bs/58ylWO3HBkVTRw4apZZf6aD8xWct8Imy4WBEgOjYXxSLrH/cY6zhYCM9
6IgdxXs734oVV3BQLWtF4nsq37cp+Vt3L+agV++y15spNjOOuJY/l4PZlb7a
d6n35n9xE/bKUvZzOvJGqPooRq8yXzvJRhnWTTsDiiOXzCRED7LRSO8m4UzV
U1jL/lgjZOPhAR7fk6q3+/EnusocNkZYHuh1pvpRNT8tZE8zGwuntJUNzEkw
fOn/7603bKyw1/UcofqZ7Wur9K2SjZ9l/OjFpiTIyqvvM3vERr6DwHEz1f/Q
sh9//1nERhFZPPTOmASXyXwnlUtsFI+L/s4xJKGiIOK6VzIlNwl70b6Kmk+n
nd0FURQLLfpUVpIgzZpJNA+g/L8788CYmtdgG86nGG8q/qTcJi1qnls7nyyp
/Y2Nefc+jI7pkFBuHFC115qNXnFaGEDtg/ZXW+VCE+q9d4vYEg0SUqPV9/cv
p+rhenx+rDoJ/nW1E7EqbMyeV/3dTpWEhX4GFncELIxJPraqktrHJHmZZBGL
hSvzxC63qX0dKuN8tmhiYePaNxknpwlomEwLrX/BQiWmTnSrmICYqwMPfqSz
cP8cTse1bwT02dRNWiaxkK8arNRM3YvdXbecz0SyMPC6jc9IFwEmJu69av4s
9NK86S1mE9BV93TZ+vUsFCsF9U7WExC3W7LVxoSFF9dtrP78hrpfAodjtnos
NHuTnJVdTYDH9Ken9qqUf01/g74KAhjrhrY49zGxpDRArZi6f4W3jQJ9cpgo
3vUnOz2WgI1rwtP2ZzCRJvXytogkgEN/9ehgMhOnVIq/NPxBgBrL5b/DoUyM
Cc6sqAyk5AP3nd75MdGo6cN4+CEC/gcP8PeB
        "]], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAA0r0BZeJK1b84nvKrU1H9P2J5o6l6
9tS/pdDhEPIf/T/lLJUyv7bTv4s5ykbpY/w/EX6pNi4B0b/QY50Lucb6Pyw2
7yyl88y/jymobYM++T+DRO3QuXjHv7sHnRxjjvc/FVSukFkXwr8cQTHI5971
P7L2xQ/IJLq/lpWH8utF9D+l2+WN6YSuv/yIu+11g/I/XVEctNtjlL9qWx6a
RdjwP7kKe9XCdZM/3iH0T41e7j814gEegVivP2gXI8+Ptuo/I/C7+TrCuT8o
i8QIE0DnP0mj2c1OWMI/TAlbKRZx4z9FTRID9bXHPxxHCdAOS98/j1/XgDC3
zD+ANbMCAh3YP8dOHQ1QEtE/JtiDd7s30D/tIRV+0prTPy/6Dm04fcE/OHuh
ccGk0z8AqX7MN0LBP4LULWWwrtM/oX9JHzQHwT8Wh0ZMjsLTPxyk8J4jkcA/
Pux3Gkrq0z+XlAkNvEm/P4+22rbBOdQ/vRaJ7YCXuz8xS6DvsNjUP9DAQ7d3
LrQ/fKQs45/i1D9oD+1Ms7ezP8b9uNaO7NQ/tK1MyehAsz9asNG9bADVP6rY
LnZBU7I/ghUDjCgo1T/j6H6gqXewP9K9AWXiStU/JSS0qGSvrT+t/O5x
        "]], 
       LineBox[CompressedData["
1:eJwVlXk4VO0bx6ekLKVSijIML1Ik9atI6T4JKRQyKHskUZIKKaQsRRvZojCL
pZHJi7KEJ6KkhNCM3Qxa8M6QpUL8nv4417k+1+f7ve9znT+eR+nEOauTC0kk
UhF+/r65IzlGdc5twJId9dQpywXPuJDlITGYJcJe0sqzYdYwaco+HTNR9rFn
OhNUWHU1a9+2AenmL7usODpcuqjhem/NZ6AuO/i7zSkZ1kgIy22UMI/t6WSV
JkJJeoGsguZnYEVSbTvlEmC2flfT032YqyfIR4Zi4bqSCdSfwfnJz+9EkqJA
pVgyNTYAc6249il6ONSaNU7ZXf/rI+rDSsJALNCG/TUJ94eKdEvFA+HuR3ey
6OvPQLoGOjH8faDtrn75QwPOU/sJpqQJav493PqA+7e/npx81AWtVr1wW1mA
86MlvC16fijlStgMyHGAxU+0GHx6HWWpp7UHneMA9Z2K0qrBWGRS6brDIIgD
pK6U6fqeOPT9qGqseATmPSO7NrQ8QJqhT02SUzCPUoY+5Caggray4ue1uL/y
04oG+YfI2jtkVXATZpqyXM7wQzRJMjhn2Inz1w5HbXiegnQ136m1jOL9WroJ
q3QfocrrnITR9VxgGR8NyPiThlxkU8eK1bhAsg5hp9HS0QK2k3noVsx21ZkU
SgYybB9cJHUAMzu2s/RFBvri88SlzZIL1Jbu6gVzGShq0dnyRw7Y09d2pxrQ
UP2WiQsaftjvsGa9eU1DZ2qLG39cxX7axtGWREfL7K9olEVhf+rAfj09OrKI
XNhv8hh/j95Y9lQmHf1Y/2bvihycz2CpNXHoKP7fWymcApzPs+TOLGYgTtcK
K4867Cs9Ww86MtChmJPci5+wXxVzhR/GQOW7ypxudGHfJ62sxmQgrW9Sg7Ff
sFcl1a2uYaCMRDfvjFHs+VZn2TwGkjYqGWNPY14jKT0+y0Dh40sDKxa1A6la
/QVfhommaK5z76XagTWQeyxYk4k8LV6Ed8hiDomfrSaYqGNOQvK7MuY4flqh
FROZ5TnH/tTEvC6ROHKCiSrti9Yu1mkHKvkZL+EcE22VEE9bvQ9zwubrUUFM
xCxxVPnHFO+LXKmscoOJ1pwqYG2l4r7geJX3LSa6KbNkK+GM+aO4i9MdJpp+
bV98+DTOqynMzdxlojN++fqOF7CfSEo1xNxDEa3xDsbzdwfo6sYwkUXjsUNB
Udj/etn6OYKJqoPZTTdjMWt5+FJCmGi7pohtUirmrkuSMheZKKvDtjszEzNp
OLPoFBPJ3nrqVvQMc1otzNsxUYzOgqHqUry/QLR94gATzQ1SfZtf4336uecT
tjORbzxrqrcB874X4jwFJuIbzF8VcHC+XI3GWcxE1mNHRf7w8Dz2rM7lEQZ6
k55zS3IEe1ndj7WNDKR7+M/ydVO4/5vrVpHPQPK5WfI6Eh3AUja9k+fNQHeP
zdCNVncA6Yy8UpYRA5HELDZaK2CvebToIJmBBtx/7zi/DbP0GDe2lo5sVh0u
D93TAdRddl47E+moropucNcY97kqMxHudJSnYHYk9zjOBwnWqU3TEKUho63U
Hftrw0/8q2go7sqkfZ0P9rPmun6RNOTPTfMcvI69w/6jXuI0tDduLEwxF7Nv
r0jFl3SUTxiLaT3HPKEtK2WRjpSFKXf3IMzu5hrPi9LQYjPD1GMt+HtkvpqL
+j5GjaJJRQ9m8PyCx+F57BRkUDSsRxftxP/H+B77x0NUdIKoyl/eCaRHZcmi
2x6iZPS9oeGfTvx/RXKe05OQy+U9X5eYYa5aW0I2i0eb3OvaBDZ/8/vmsm0f
oPHD1jVtrpjtOLLFjnEoUuUMjRGA85eM37sdu4+eNqbaAwPvi/M4JCDfRP5l
Gw6psTF7BZItuiMQZBbqLivFfdKJhy9jb6BPQe9lOj9iPx241rkwGP1WnWn0
n8b+mp7X5mQ3VL0iqtJRtAtYrAl6y1krdHtGOs9wRRfu++zd5qYKlOZN0dJq
Xfi8jFH5Pe4BxlePG7ItMTvaOZ9dHgZxn0pLBnNwXyt7TJ8XDw4VRtkfCnFf
doGCXEQiqOY0JxRWYpYXXjqnlQwlwd/9wlpxPywq505sKvSoy20mk7qB2mm9
tM6MBptCA2nWtt34PDgWZ8PNgdcaOtGvRXuAlPRzunmuCJy2WDPGlvcAdWKV
Rfmt5/Br2/lyxXXY+x28wZV5AZp6uYIrWj3Aapi/kbW1GOJNFI9ut8VeLEWQ
HFAKHieXyGfmYL4V7snZUwli6Zy8SNNeaOtIDnC0qQE6feJNEbUX31+lN0bZ
NbAna2Uf37kXSE2DIfJiteCbZyoNF3thk+hJAyivhfaXyP/nI8xbp/8803gL
LG42eApw/17ogb0b6kFNvPwb06QPrmnPrIwyaYIfb7W86OZ9sMloKsEiuAkq
I2nD6VZ9MCQX8dCtoAlsFkUJUhz6gFjkpOhBboaIecuJ+7598KpjVrV7qhkG
Jr/OX03G82IFCg+KW4DOX7WW+q0PEv6hIwVfDvjQIpOt/usDr70yO2XZHNBz
+S1n8QPPk5PXtB/hwKfuHnnTWTxv+WBixWkuLGh/orxvBQ/a5txOTZxqB5dG
0Nqsy4NXX2QmNvp1Arnc20j0Jg82dR4sL6rohdVy09M+d3iQ0H3Z4KJoHyz1
v5nPjeOB1wfktkuzD2a3ZK5/+pgHO7IUHI2C+qCD0TNmVciD+kPqGu6yPEiM
sUzL6OEBYeu9vcKBD1L2Oj937+ADKSR/pkt0EN87C5/48fkgIaLj2NI+BC79
7eOhX/kwGaQeLVwyDK8+5O+9M8KH6OefXbbuHIZr6U6t2VN8SLhwWlLtwTDM
G5bNd0n0wyFpT2rL4RGYu3fe5sD/+kGm8125fsN/MKvaJyIf3g/RH+6NqF8Y
hZ+WFU61qgNQ3y/OfFkzDtfbn3Xv1RgAvbJxn0/8cZBypTuUaA/ADhN123nS
BKj5Rh3P3T0A96PPh6bqT4D1XUubWMsBKMsJ39JdPAH59YPmjsEDcNI0b1lk
/iSc3i+lP9k6AEEbxarPFvyEzu3O61XDB0Hm4IBEwq8Z8LVdsVK56wtM+hVu
0H62kJCLH7BbRP4G0eSlQaK5Swi2fUb2eOB32GZ6++KasmWErX6oSV3FEFwO
MRVvml9J/Ot0VllvdhjUlmntT3GQIX5J7Bcppf4Hrhnd0epUOcKqefdOcrIA
rLXdQ47YkgmJ3ZJV5Y8FoDSplNR7mkxUMTtMHRgCMKTKRFy6Sia0Ay+7prIF
8OTro74CGpmQUiy+LVcrgBfWWxIvjJCJd2e29cv8EED7EdeZpTcUCEJs430p
MyEU1f/OSy9SJH6d/7WObSmEL9NeZ4feKhLPOt9mmtsKIeTNyoW7OxUJhWce
L2+fEAJn7bW2KRKFmKUyv0hcFoKWan7whw0UopihqL8kSwheTWvei/hTCJ9l
wrdZuUJw3n+1lRNKIdQCKq2M/xXCwvCrdexbFCL+kKNnRLkQzHzMfU8+phB+
YykPRFqEIP1VG03WUIhN9l4KDK4Q/N6eIfM+Ugheza4nBj1CCL2036ORSyEs
krmVYd+F8FSvqrhohEKILcw5qCQUQo2l56vcKQqBvANaX00IIXonqzCTpET4
txk7u0wLYf5bZCxdQonQgjVD8/NCUDw9d4y+Won4Pwrbq1w=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$654975#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, -8 + Cos[1]}, {
        Rational[-1, 3], Rational[8, 9] + Cos[
          Rational[1, 3]]}, {
        Rational[1, 3], Rational[-8, 9] + Cos[
          Rational[1, 3]]}, {
       1, 8 + Cos[1]}}, {{-1, -7.45969769413186}, {-0.3333333333333333, 
       1.8338458352036264`}, {0.3333333333333333, 0.05606805742584886}, {
       1, 8.54030230586814}}]]},
  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",
 CellChangeTimes->{{3.7969798439601803`*^9, 3.7969799670039387`*^9}, 
   3.797041712598844*^9, 3.797041818310499*^9},
 CellLabel->
  "Out[844]=",ExpressionUUID->"0dde794b-98f7-47de-a5dc-716212ed6a67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DDfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"hpi", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"DDfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.7969800241129417`*^9}},
 CellLabel->
  "In[845]:=",ExpressionUUID->"c4ae2a68-573d-4383-a17e-bd646e7b13bd"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwt2Hk0Vev/B3Bjx3j2oVQSSRIKKcn8bDQoGXIrCtGArgwlQhnKkFnmzGTI
kBwzx/Q8HVwKmTJkaDJclHOIhMRv39/67n/2eq31rLXX/nye92cPe687m9iw
sbCwkFhZWP47y4Pts5ubTHi/y0a18jaOO6/uC15dY0L+ZusMdlscLylXlFr8
yYSjPxYnTaxx/Ii0wfWpb0zYITCxbekCjh8XCBjuGGTCSyM/VnEtHMfHF94m
UZmwZQvpC4cAjpsEdb48asWEUwufz9g7Ady9K8DRrpEBNfbeknLm08Lfv+ed
fX1tDjoMildy71fHRZHztuO7v8OK2eCwqnAVvPJ2Myc2Ngsz+x37rESVcetw
xfkPfjPw25sH1X6JR/GVmIfBEEzDOp1BJGShiGeTPwonfpmC4z+jB5L2yOOp
ZxVd+kIm4ZP1dae/x2RwP4drHjJnJqAQ7Y3wYzEp/CF7obvL3FdowtDaxm4o
gV971CU5kP8FmnJ0aTUtiuLxDZOJqfaf4Y2k661xozvw2k/SfEUSH6Hyx2Os
HxoE8H0UXOdC+gjUaIOf89a48DLZYPuv40PQI9VYfUzhD/jUUiqurDwAxdYL
Ge45k+Di/x/9UHI0g7e0vh9MHoo/Aqv64NDvGx7b//RAAZ8CZXnWHpipl9jQ
I7EIDykzD+UudsAq4yqDxIUNaCvv60sb64D+6iKxveKbMEMK6+1s7YA+cntk
vxltQsEdCu7LKR2wlll+rvrVJvz1y+n16RMd0CGDWTJ2lAXRaYyLs3HtkC/g
kiVtlgWZaTJ8FJTfQpW8xo53+mzI/8RcN82jFRrGS/Y6j3Agut53I6UbrTDf
0SbKi8GBWAy+vSs2aIVPTyVSPFk5kdfFmY5siVbYV/zqkvYBTnTfdrItouMf
6KwWtkJ24US3gsfQNfF/oK8JNTSdYws619FZwt3WDFUUvHMjRUkotLtDIaCs
GX5Td3gaK09Cbe/bizdSm6HVzV1qwYCETo69KVq82wxjkiJ68GskpMVoyR8T
aYYvvOkkZjYJHaY0ZpY6N0G+xPVgIMWFhC4UR13eQYe6wCylRIwblUmF1Z5k
p0OrU1wpRYe4kfGq3YQi8zVMTBtwS1bjRqHpe1V4Wl/DSEZxvf4lbrQxHfep
9v5r2Md0ieSI4EZT3g/ldw8gWBbmpN71ixs5GUUnNshA6HPFIqCNzoPyl85+
j2eFsCegYGjzHQ/6msSBO31ohNlgF0lmhAddmnD/VyykEZ7kOP3DeJEHAc+r
yo+mG2AJ9oPllwQvomQffK+TVw93TlFXUnx5UdlyC9YmWQu1P3XvOiPPhyIL
s+haqzRY+dcD5VRVPnT7qq9bZScN8u++T/14gg9J/qMyknWfBtljNGiK5nwo
If7lC++2GogcvstSgvjQA6VozaMO1fCWmKBP8Qgf0nGxuJ1eXgG38IK0Ox78
SExKVUwouALK87YYUR/zo98fhHrCLCpglqXF1bFQflSh3aXsyVkB9boSnpLS
+JGUgA7bBdNy2FW1VzsO8SOekgNJ3L9LIbWsZTCSg4xyRyYjZgKK4dWq+XCu
R2Q07LU9I+1oMVTjmnxCe0JGZLHTJee/voLaUfiGeQQZ3bfO76WBV3AskM/G
LZmMTk3a7whdewndhgQF18rJaJrBzJS9UwAt7ahfz06Q0e4o8bKPYgUwrxun
bp0lI2PF800xnflw+V7VSieTjGrulU2uyebDY3lybDt+k1HIiqts++QL+MnF
lrFGwZAs21r5bfMcuMI6KMmjhqGr2bIte3hyIK7dXzerhaGYE+YDfTXZkL9Y
qateF0NrT+pX1Ldnw/36y/bHDDDUzuurydfzHOrKZbh5WGFoSJYr8nJEOrRR
teg++RhDuOPfJa9n06CPeIKMViCG8qlve2X00mCUSPHGgRAMeSpF7FhjS4Vv
Ak13d0dhaJeW4PNkjyToX1oo6ZKBIcvzuytGbsTBssdS1//QMPR98aeqW3Ms
vLHmdXSjHkNeCV2QvD8WOuvUUBYghlJH/Nq1p6Jhtnkjo6gFQxXtvS1GPZHQ
zumwinc3ht5TnvT4xURAIbF+O3IfhhYvqo5V/hUOs3rFs6P7MXTkc8aSyEAI
rLwZqeE0jCHqksO+6eEAmD8xs+o7jqF3quIKIqn+UP0eI/D5JIYYPn1qhpZ+
kKJuIVr5L4bMBF1zbkFfeDfqglPZNww9Sx2ue6ftDecLuw6kzmFoQEq7T6n5
AUzYGf/dnYmhv9TJbKxv3KAk6fMzzkWi3i2uwnb69+D3bZd8qpcw1G00criz
8w5Me/rL2XwZQyltxvBIrh10nkxz9VzF0KP30u9FmjSh1T8ZbORNDB3Cxuw5
5SRBuHuHuDQLBQ0s+GVQVvQA+yg8SSf8MPbU29tK1oCc9TvjCysFbfh4pmQo
2AC+sxr9tmwU9Mi+yKFP1h4sGk5gk4SbxEOC0iguwHT9SnwHOwUFJEjcOR7p
CrS+7f18jIOCTvHVm/XwuoOpJvxwImGS30Xt2yGeIKigPHCRcNsvhgwnyQtc
hvc/n+akoFDHYMGMAB8QL/0Ejyf8YiHKe/fjR8CN62PuCOEnRWN3Z+BjoOz3
gCKyhYLs7GRtqzb8gCDN9NFfhPUk3K/4awaAs913fwYQlh5rMjT2CgQi35qd
qYS5Eym6onVPQOshA2Yv4VkTy+Ozq0EgqmaLK5PwW/7Cg9UqIaCudO4PB4mC
XrYt7wlwDwUR6hvhWwmH++tuO18VBow8lfaKEHbQiuIS+xkOzkaG1/5ng9XR
9dmjkaA9je2yEGH5CpmFapenQLw9Zp1EOPh4nQvdLAokqarmLhLXW4n78l16
JQqE8P0wGSJ86wfJ7umzaHDCjsZZRXjISP7LT+UYsN8xrCH8v/t7dcHcYiAG
+GvffGBBmMbzsJ/uFgsaSbjGfsKZckJ9VIk48FFN4+8v/9XLmNqd2hUHVjoE
rP6rp+O9M+9CvOLBYFedqDbhCwnj7fdlEsCZi8dyJ4h+qNO839wYSADizp4/
fQlLjO5oNfZ/Bo4q+JO3Ep7fe44uO5YI/Gb6ksWJfg+emII7QpNAEEmAnELs
h0a7Rw0cx5PBha0sZ/kJh72qqPkYlQK2a3wW+UDsL5duw6p2zVSw7tVaeoSw
2eJ0ec1sKtj9b5I4F7E/pVRFqTEn0kFtrKbh7nUM8VlUF/kupAPXFHpjxBqR
R5/zhQ7pGYAnwwIxVjBk/ZVuss8rEwzL5t/3/Unkd/FpT1JvJqD9PnmQSuTl
NKelMUXmOWi93HPn3QKG5KV/Gfzpfw6MjUKKR4i8Zak2d9w7lAXGFbJevCHy
KKQfrT/rlwX6FB4r5M1gaN3x4JlBhWyQIW6/eJjI85tyqxOlITlgT2efju8I
hjRaDjUd+JwDnKjcaGYIQyUDq9rpyrng5lBVp+4AhhJWY0HYeC7YF2uU/A8x
X26CNjUbzTwgTLf9tYWYP0PG8bSR2Dygw9T5NfcaQ/rXr6uYzOaB8sjTQc2N
xLwJXD8GnuWD3LosU7wGQ5tvDysKLxSAf5bCa1wKMeQy+of69HQhyB5OVBl4
gaGpubfyW9ILgfENHz2ZbAx1UGwOLZ59CZaXi3ekp2Ao+VLSgc6cIqB9LcaF
HoahY19ZxR6bUYGkZbPA8i2iPrWmC4cLqECN9/31rJtEP2JeNX9epQLewcLr
uDWGeJ8XHcs0KAHrrRFO502J+hibjW4ySsC5bWeqWk9gaKyEKgMVy8DWlvgN
DlEMDade2brjShnQ8DZV6dhBzLdgzj9OfmVA3NJaPFCQmJfW5t1ifWUgN+nA
73YShhopJHcf13LwULFo+NUCGWXcudqsWV0B5kOfqtHpZJRqwV0c/6kCpCZw
XMypJ6NEvYpnc6RKcOgbLupRRUZR4jy308wqAe0Bs2qpgIwedVcK/FmtBKVh
J8g6UWR07TC/Vb1GNVCM6jkpd4WM9s3XrarRaaDhQ3zmyXF+5NWpG7A0RwPL
2+a2lQ/zo4HCdnKxcC1gZY+oxHr5UajNyL69d2uBioXPwwTieT4/vGZAEq8D
9E4e4eFUftTYoprV510PuFJmolVN+NGVlOqzDqoQhGuho5dL+FCFB+jfbwPB
xM4nokW5fIh8qdXqUxQEqQeMjzCS+dBryqCryTQEH6zaRkEgH9qm+9AoVZ94
DaqWUxK+zIce1iR7+q0hUJc8P579hxedyf7QaWhGB3hXEIuwGi+aDyy2bXGk
A/EJ350Rcrwo8Zb/pro/HTg1Si/Pi/OiaTk5RZliOngXassWTOJFwTWP4tg5
moAgR5DlYh8Paus8YF5DbQIr+izb4d886PSK2/ReUgt4kE4ykA3hRicNBNl/
VraChK7RBoNnJBR5jXth9U0r8LmV4NYTREJDbiyfNsZawfdaMf7THiRkn86o
5drSBkSR1wjpMrGe+dZl96U28ISesPRJmFgf7f9Vd7kNYHuCBGYTtyD7gaXX
McpvgffpEGQTzomeWg0+OlzdAbY0Wp9c1WNHT75rgKmODuDvRJswU2JHPp5Z
f1K+doAIxDWZt4cdOcU6PiCRO8HmXze5ti2zIcNWdtePNztBXOLGkGQWGyIr
HLYLF3wHXo2qJ0n/YkWRG8EG045d4MZi1/maOBbUaijKbyzYA0x7Ornm1H/D
ub1CPr3JfeCqSLP1lYg5+L/vEeBhiYvxKL2Hbq4Hrz3dPgCMeQr6GXUFcHCU
YmLbNgTyAsaNWC7MA2tPjX9J50bApju2yirEijcdPB7axPkRyI1oWLvSeXEp
7vrpHL3PYE1h/Nnspa24aP3tk5zBX4CcSnTUgX3COMsaW4HL168AF5FroX3f
g/8633C1Zf8EyO8NPCFpuQ8fUbIS2R8wCfL4m/btMzyA3zGlCEiMTgHTop1o
xukgLhw3YcYhOg2478muDfgr4MXmmXmLHjPAu9/QsGTnEdxU01evrWEW7FrQ
u8dqq4SXXnWUUFv/BnzeUWKlm5XxFR5ddtrFOaAFi9qy3VRxkx51ZdFEBkjL
+107vV0D51HnfV2fxgDFiVcTpiU08Nc5w/oW2QwgPn69dFZeAz/s4XktpZgB
5KpNXvw8pYGT91SHC7cwwIvKyTApdw38jcORcaEfDKB+JOzU0qAGjnPJRJHP
McGuviu+IEUTX7m7sqv4PBPMD981DsrTxKkjrbkGpkyg7qJ7radcExej2taF
X2eCv28J6zh0aOLrF3OmeDyZIHrnC5aGP5p4dfYeTdILJqBzMe++tdbCnfiZ
rS9eMkFjNC9QdtTCpdwbTU6VMkHWL4Z+jqcWHnfW8lZgPRMY2/LvD4rRwl0W
kmPZ+5ggRrjxvV2zFi5rbi+WPcQE5v1SmZPdWviXZtUCnY9MoPDY4qXNmBZu
nDjU+HiGCaqKFR87LGvhXGz5Z/YymaCurFd/kQ3g8Lb7e7TEBO4vdS95YQC/
33/KynqNCeIvB2aSdgP8f/8XQIB3omy8NMD/D7x9JnM=
        "]]},
      Annotation[#, "Charting`Private`Tag$655751#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAALj8W6v//778meI1XCjM+QG/5I4j5
+u+/IaWGhmErPkCwszEm8/Xvvx7Sf7W4Iz5AMihNYubr778WLHITZxQ+QDcR
hNrM1++/BuBWz8P1PUBA4/HKma/vv+lHIEd9uD1AUofNqzNf77+sF7M28D09
QHfPhG1nvu6/NLfYFdZIPEDU1AvqwWHtv8GqTRlmNTpAHcBvFDcc7L+m2i3I
LUU4QLVrxAUP3eq/RMS4VbFeNkBgjDHw2YLpv2FibSj5TjRA+JJ7iL8/6L/Z
PI2meGIyQKMO3hmY4ea/zsvWabxMMECcSjFy04nlv/0olhd4gSxAgmxheClJ
5L8KM1Wy5q8oQHsDqndy7eK/GKZn192LJEBhgM8k1qjhv9iRUFNEriBAlb3l
mJxq4L8V4h0ZRcgZQLrfKAysIt6/enJBoBKPEUAjEEBCVJ7bv4roI6p9xQNA
siqIauLj2L9VgJTowRfZPx/RYLkr2di/VQ+dGS0N1z+MdzkIdc7YvwCepUqY
AtU/ZcTqpQe52L8Au7asbu3QPxheTeEsjti/Veux4TaGwT99kRJYdzjYvwBU
ihssRr6/SPicRQyN178q1Sz7ax3kv7WedZRVgte/qo2oYrYi5b8iRU7jnnfX
v4BGJMoAKOa/+5H/gDFi17/VtxuZlTLov64rYrxWN9e/gJoKN79H7L8UXycz
oeHWv+ovdDkJOfK/38WxIDY21r9A9VF1XGP6v3xT+UQ4LNa/agI1vjPd+r8Y
4UBpOiLWv6oPGAcLV/u/UPzPsT4O1r8qKt6YuUr8v8Ay7kJH5tW/Kl9qvBYy
/r9cwDVnSdzVv2psTQXuq/6/+E19i0vS1b+qeTBOxSX/vzBpDNRPvtW/FUr7
77kMAMCgnyplWJbVv5VkwYFoAAHAPC1yiVqM1b816zImVD0BwNi6ua1cgtW/
1XGkyj96AcB0SAHSXnjVv4D4FW8rtwHAENZI9mBu1b8Vf4cTF/QBwKxjkBpj
ZNW/tQX5twIxAsDY7KhFyF/Vv/W3BjsWTQLAjtyI/w==
        "]], 
       LineBox[CompressedData["
1:eJwBAQT++yFib1JlAgAAAD8AAAACAAAA0r0BZeJK1b86QIFzg7MCwB6arqtr
PNW/BShcK021AsC6J/bPbTLVv9hD91yJtgLA8kKFGHIe1b+Iey3AAbkCwGJ5
o6l69tS/7eqZhvK9AsD+BuvNfOzUv8gGNbguvwLAmpQy8n7i1L+dItDpasAC
wNKvwTqDztS/VVoGTePCAsBD5t/Li6bUv7LJchPUxwLAJFMc7pxW1L91qEug
tdECwOUslTK/ttO/AGb9uXjlAsAqfqXu6KvTvwiQ+6vP5gLAbs+1qhKh078S
uvmdJugCwPhx1iJmi9O/JQ72gdTqAsAKtxcTDWDTv0q27kkw8ALAMEGa81oJ
07+QBuDZ5/oCwHtVn7T2W9K/IKfC+VYQA8ARfqk2LgHRv0Dohzk1OwPALDbv
LKXzzL9IsvFqO4sDwINE7dC5eMe/bQgftfHhA8AVVK6QWRfCvyG9d9MTNwTA
svbFD8gkur+gua+jf4YEwKXb5Y3phK6/OUKrjJvcBMBdURy022OUv6EShicB
LQXAuQp71cJ1kz+WQYyW0nsFwDXiAR6BWK8/pfxVHlTRBcAj8Lv5OsK5P4L/
/lcfIQbASaPZzU5Ywj94jmuqmncGwEVNEgP1tcc//nsD0YHMBsCPX9eAMLfM
P1KxeqmyGwfAx04dDVAS0T+9crWak3EHwBQu4RZyHNE/4tpBRdRyB8BgDaUg
lCbRPwVDzu8UdAfA+sssNNg60T9QE+dElnYHwCxJPFtgY9E/5bMY75h7B8CQ
Q1upcLTRPw31e0OehQfAWjiZRZFW0j9Vd0LsqJkHwKYXXU+zYNI/fd/Oluma
B8Dz9iBZ1WrSP6JHW0EqnAfAjLWobBl/0j/tF3SWq54HwL8yuJOhp9I/fbil
QK6jB8AkLdfhsfjSP6X5CJWzrQfA7SEVftKa0z/1e889vsEHwDh7oXHBpNM/
kpGsl/jCB8CC1C1lsK7TPzCnifEyxAfAFodGTI7C0z9w0kOlp8YHwD7sdxpK
6tM/8Ci4DJHLB8CPttq2wTnUP+jVoNtj1QfA2g9nqrBD1D+F6301ntYHwCRp
852fTdQ/IgFbj9jXB8C4GwyFfWHUP2IsFUNN2gfA4IA9UzmJ1D/dgomqNt8H
wDFLoO+w2NQ/2i9yeQnpB8B8pCzjn+LUP3hFT9ND6gfAxv241o7s1D8YWywt
fusHwFqw0b1sANU/VYbm4PLtB8CkCV6xWwrVP/Kbwzot7wfA7mLqpEoU1T+V
saCUZ/AHwIIVA4woKNU/0NxaSNzyB8DMbo9/FzLVP3LyN6IW9AfAFsgbcwY8
1T8QCBX8UPUHwGAhqGb1RdU/rR3yVYv2B8DSvQFl4krVP21qKTcn9wfA+s0H
mA==
        "]], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA2OyoRchf1T+V2LgrMeAHwIiG2TSx
bdU/wAVHgRWOB8DT32UooHfVP2pLX9dyUwfAHjnyG4+B1T8AkXct0BgHwGiS
fg9+i9U/qtaPgy3eBsD8RJf2W5/VP/VhwC/oaAbAJKrIxBfH1T+geCGIXX4F
wHV0K2GPFtY/1aXjOEipA8AWCu+8ViHWP9XgvyOoaQPAuJ+yGB4s1j/VG5wO
CCoDwPzKOdCsQdY/wJFU5MeqAsCCIUg/ymzWP8B9xY9HrAHAjs5kHQXD1j+A
q07NjV7/v6Yontl6b9c/VQvWKItq97/X3BBSZsjYPwAsk38XCt6/YHk85wdM
2z8AX0bP/iv2P8MrN4rDBd4/oG47jpwsC0AmCbzopEjgPyoBvGE7GRVAHbxr
RQWI4T9KLryjdnYcQAD6Aqly4uI/Ntiepq85IkD3Ub1exSXkP3auCD/z8yVA
2zRfGyWE5T86LzOLDf4pQHBXEBEi3OY/oaEO6071LUAZlORYBB3oP5aUSccv
1DBArlugp/N46T+gLexyo9UyQFc9f0jIveo/PVFjwP60NECxXm0iOvzrP6zt
spftijZA+ApDA7lV7T9c3+LIx4g4QFLROzYdmO4/oFvnm4lkOkAKOwvBvJ3u
P/I9vfXVbDpAwaTaS1yj7j9EIJNPInU6QDB4eWGbru4/5uQ+A7uFOkAOH7eM
GcXuPy5ulmrspjpAyWwy4xXy7j+5gEU5T+k6QEAIKZAOTO8/1qWj1hRuO0D4
cfgarlHvPyqIeTBhdjtAr9vHpU1X7z96ak+KrX47QB6vZruMYu8/Hi/7PUaP
O0D8VaTmCnnvP2S4UqV3sDtAt6MfPQem7z/xygF02vI7QG4N78emq+8/Qq3X
zSb7O0Amd75SRrHvP5KPrSdzAzxAlEpdaIW87z84VFnbCxQ8QHLxmpMD0+8/
ft2wQj01PEAqW2oeo9jvP9K/hpyJPTxA4cQ5qULe7z8kolz21UU8QFCY2L6B
6e8/xmYIqm5WPEAIAqhJIe/vPxZJ3gO7XjxAv2t31MD07z9pK7RdB2c8QHbV
Rl9g+u8/vA2Kt1NvPEAuPxbq///vPw3wXxGgdzxA25yFsg==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$655751#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, 32 + Sin[1]}, {
        Rational[-1, 3], 
        Sin[
         Rational[1, 3]]}, {
        Rational[1, 3], -Sin[
          Rational[1, 3]]}, {
       1, 32 - Sin[1]}}, {{-1, 32.8414709848079}, {-0.3333333333333333, 
       0.3271946967961522}, {0.3333333333333333, -0.3271946967961522}, {
       1, 31.158529015192105`}}]]},
  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",
 CellChangeTimes->{{3.796980013303794*^9, 3.796980024608881*^9}, 
   3.797041712857769*^9, 3.797041828522058*^9},
 CellLabel->
  "Out[845]=",ExpressionUUID->"b02e0139-7c77-4361-a985-c3ee5be00110"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"b8f962ac-c8a1-477e-83dc-06e2e5edcf9f"],

Cell[CellGroupData[{

Cell["Examples", "Section",
 CellChangeTimes->{{3.7970605087810707`*^9, 
  3.797060513381266*^9}},ExpressionUUID->"d0712664-04cc-4fae-a5b4-\
cb94ad288917"],

Cell[CellGroupData[{

Cell["Case 2", "Subsection",
 CellChangeTimes->{{3.796980138863452*^9, 
  3.7969801487661257`*^9}},ExpressionUUID->"8fee05d5-aea3-4818-8a97-\
801bc3832487"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"4", "x"}], "]"}], 
      RowBox[{"Exp", "[", 
       RowBox[{"2", "x"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DDfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7658557248153553`*^9, 3.76585576852527*^9}, {
  3.765856099747439*^9, 3.7658561087971697`*^9}, {3.7658562304187613`*^9, 
  3.76585623308319*^9}, {3.765856294001314*^9, 3.7658563460351543`*^9}, {
  3.7658564173660383`*^9, 3.765856423194186*^9}, {3.796980156803133*^9, 
  3.7969801642035303`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"f4c2f750-2c10-4413-a12e-2247c8f4cb5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"dcb99237-fdf4-4092-97cf-dd3551442cae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796980178336795*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"eda6729f-0274-4f67-a86a-4c4e1dd6e486"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}], ",", 
      RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
  3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
  3.79697916819952*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"b73ed6c9-2786-4e9d-98c9-b37fd344dfcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hpi", "=", 
  RowBox[{"HermiteInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"7a0805d7-5d21-4077-8a9d-195cb5349cf2"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "x"}], ")"}], "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["x", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"5", " ", 
              RowBox[{"Cos", "[", "4", "]"}]}], "+", 
             RowBox[{"4", " ", 
              RowBox[{"Sin", "[", "4", "]"}]}], "+", 
             RowBox[{"4", " ", "x", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Cos", "[", "4", "]"}], "+", 
                RowBox[{"Sin", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], 
          SuperscriptBox["\[ExponentialE]", "2"]]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "0"}]},
       {
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "x"}], "+", 
         RowBox[{
          SuperscriptBox["x", "3"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", "2"], " ", 
             RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["x", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "7"}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Cos", "[", "4", "]"}], "+", 
               RowBox[{"4", " ", 
                RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
        RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.796980178440361*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"2f59caf8-9103-4569-892e-c43ba16592d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "hpi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
  3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
  3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"50007443-9361-4a3b-b682-d18f5bae7014"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwtmnk0VP//x5VC9m0qQrZKhWxpQS9tQlEhLbKGjzYJpSgJKSkK2UNJlLXI
Ft7Xvs3YtyzZZsYwM8ZYyhbf+zvn98/MeZzzvvf9fr1ez9fzde85V87hjpnT
eg4OjoP4z//9q8LmybU1Ftpcre3pkFqA7iwqvFhcYqGs1I3Si6UFKDdPfefs
PAvVcx6zj+gsQBpKJg5UOgvRQ92i2jkL0QGRwD5iDwvt2TD/1duhEOmPsRtj
c1hINWBW+rpsETJ7TsrQtGUhxceUFO/EYuTVEnj7v/IpVGMZ1qjxoRR1dvJN
Vtgz0VXmstXj6Aokjd0RPyDFQJV2XLLzEdXox83qjUKDk+geOaN51KwOHZR1
Vf/cM4lM+08IHbapQyWdW6z12ifRYzeexJDrdQjTu5l/s24SvfQteCTtV4ca
hUSv1X+bREOKblLLmXVoOM8Wexo0iSaGXeoiN9Yj3pUl77l9k+iO0jXZhW/1
yO6V+vQv/wk0OmjvtHO+AXnnhweRHk8gvsJlDsnVBvRuYFaq4sEEUp7mOcfF
3YgalQuM0l0n0MSvI+T6rY1Ik3Q45f6VCSTWOkWd02lEXIInLMU0JtDlOE/r
Yb9GlBlmWXpmhIYqWnZPVm9oQrWFhWb6AzQ0sRCmX8bfhEaGtk5o9tDQcEOl
YpZ4E9qs1k/YRqIhzUP2dz0Um9CTVts7E0U0pE2Z2Bx7vAmZiVyXD3pDQ6l3
da/r+zWhhXCfFwhoSOLcyquymSY0LlUxaXCYhpRz437uWmpC3Z+5TJq1aKhY
V+990Doiyit5KzK4m4aSNC2N5IWJyHU0LW5JjIbohJmZFmUiGlPvzNxPG0cB
jdl/F68RUftPCaGy0XH0Y11F5pcbRISdtL17YnAcYZtOmZvcJaLEy5P7zdvH
kYGv5Ak3XyK69JQDuZWOo/otYXYKMUTU3KrclvFmHA3PPP6t2UBEpVfcNTVD
xtG/TPG/Ui1ElEEufFfybBzVqpseWewkohcLx640eI+j0b0du0KGiei47OUx
quM4UhiUFBH7S0RFd57Nyx0aR9nSc8HpciSUtth48YvmOBo/LdhevpOEogKE
S9RUx9F/9O3P6vaSkEd0vC8ojKMy9p7lnP0kpIq+cVsLjCN+WmdLvyEJpQj+
logZoSJJ+10OkbdIKNwKuA8NUBFf/0OBIjcS8k9PnvvVTUV6Xz6QSZ4k5HDs
Wss2IhV5veGhtTwiIfn7tMCkAiqS+XZ5de8rEhKtMnLX/0ZFXdKPq4bCSGi9
cIbtSAYVPU77fPFZBAmNfrl9WOEDFQ3apJWnxpHQx8EZ1ucQKqqQyTp2OB3f
f4/F4KkgKkphmOj4ZOD7e/1opPlRkTaP5uesbHx/kQepe+5T0Zkdbp+o+SQk
d/LflWw7KrrscGU1DSMh4XAbw7NW+P0N0QmPKhLiGEL7py9Q0ZaIiuR9tSQ0
/MBfWOM0Fd1qv3DTp4mEkjO5a3/sp6ITBBqXTRcJvVl0ybNUo6Jatk1Bbg8J
+Rk0Jv/dQ0VjrDmZuV8kZDf8yueQLBXZG5kyz/wmoXMqUy59klR0fWBZx2GY
hPS9z1r6EKgoWfA9wWWUhLaLi6qX8VLREeVYnZNUEhK095Cx2UhF53moblI0
ElrN6uRbW6MgAw9eTvIECf0+FU3Vn6cg7icNQieYJNQcudAxwqKgMzk2HgNT
JFQ+crnCf5KCJuOxjU7TJJToI5VQPURBLjmMFwazJBRa/zjYqY+C/BklDklz
JORLGLrP1UVB6+Vs9GjzJGST8+G8YSMFGVcfqjNaICHTlfUwUU1BQiV+tg6L
JHTEyFH5JaKgxarixhtLJCQ9tpObmE9BwqGqDOMVEuJXezF3K4eCFDUCQ+T/
kdDKo4kRga8UxFex1jKBM6PBuCX7EwUdnVfPTl4loYHNmaVnkyiIIJkleWqN
hIjXBL5Ox1IQiG3kHcS5NNc1+m0kBZ1zbHFz4GhGmf9aAjXCKOjUwZTjPTgn
GKu7dwRT0LbrEl4665qRIp9xY2sgBWkZBNOCcc5ocpBvfkJBt98fbG3AWeOV
j3eTN76/0aTiMs4lZyLb6+9RULyfw6D0+mZ0TCBrT60bBZ0fcJ5Wx7mRVONf
dZOCvK6WWxzA2Sz0dx/mTEEtt9XXqeL8y/SvRrk9BamwghkEnO2EhEN+XqUg
tnaEAAu/P61FaazoIgXd2SppVYyz25ujOgVmFGQzwWjyxHnh3JWIPBMKuvS8
31IOZz8RD3quIR6vdeFMOR4fd3vI8ezjFLTuunmUCc6h4Z/iM45Q0BP9wIMk
PD+bzctm0w9RUMYW2VY9nBPFuk9/1qKgoppV8yQ8vzs6p1JS9lFQduNiCRvP
f2Yk90ryHgr6Z8FY1sJZ64KsReIOClo1yBO4jtevlHAoM16Wgvx0VcZfL5PQ
8e7zG2K3UZDdm8NPUvB6m10MyI8QoaCz8bG1ybg++rYk8L/lx88zn3/txV8S
su/Ndwzlxq9f+xNn94eE3C5TxYP/kZFARlTeKK6/BYm1W0ELZPS7juj/agbv
n74tNQGzZHQuqq9uJ5uEwqyM7vlOkJHjg+NhyrieN0s5kHzIZDQZEbQWzcDj
G/De8XCIjPQe3a2YnSShbOvMLo8uMvL6o7j50TgJacvUqNxtJaNv7ZSodAoJ
lf0efObaREZN2+BkzRiuL1sh7esVZCRUVMnVMkRCFrJKoc6lZMR/9g936SAJ
9Q/rU68VkhE3tVM0tp+EJu3do2yyyOhDXZmcAt7vPI5df8xjyUg9fXz3fRLu
B4pTpucjyeisjoDvaCMJbaFwpZmGkZFyhGvkkXoS2ul88KLRMzKa871Mrqkk
oZMu8YVH7pLRQaeQrcKFuH/dsn+w24iMLF97bQ1JwPs71Cah5DgZfWzZ8jM5
hoQOf7PCTh8hoyKqauLHSBKamb/A46pJRrTpk4s3cD+1f2Ic812ajFpV3xD5
ffD6fThVenwrvp/RSd2A+yS0tfrEcKcoGb09OxxBuUtCrTyg9JebjMSOEptv
u+B+FK5ZpDMzhnzH/fVDLEgoIV9tgMgYQ7Kr50ttz+L16lbhsBkfQ4dFHtdv
Nyah3G1Khn4DY2jsmKezA+D+lSrVW107hk5nlQZPK+F+VbhxwSR+DInS73Du
WiCiK33rpYbejSE57M/9HDYRFaysgdubMWT1QLFFno7P16NLz8OfjaG3bvs4
GweJaLBxakvPnTEUWXTYXKISn4eDPQfsToyhX5X9t78HEdFWji4r9pEx9C7f
5hgZn6ee8u1P/A+NoQmJFgsOLyJS/o9Y90l1DF0cCuL960xECdPYxYmtY0g9
aD5+8CQR+XB+9XJnjqLO+0O+QWtNyDXWhsuONooMPTWt5v40IYd9Yu9MxkbR
yXHtH6ZTTcjY6tF3pV+jKFNQtbJ+oAltzTNl/q4eRZOL4nZtRU0o32HW4XTC
KPqS5VKmcrsJTVXomiqeHkVmlPzwgdpGNHqRPSBiMIrahZJmG382oi5m6s01
/VG08Lqr71NuIyqVEAru0x5FzycSZbbFNaKQuyNVb+RH0W03hWzhW41ISS7o
0L/FEVT0oSVCgr8R2fu1KHanjyDPSu9xN90GZPkr6chgyghKmak15d7XgIw1
3C6RE0eQQd1DtWC5BqRFFn41EzmCONSljM9yNSAeQ7NZwacjSL+HokRurkfZ
Ql0Vpy6PoFKKqd7eq/VoObHPpnjTCArV8DDf+F8dmv779QG2YQT5hDU6rVnW
IfI5n/C6tWEkZPtLm2xQh5rXS9V2zQ+jS0X2a7d31qGPztYqMyPDKGL5ScRT
ci0yVB1e3lMyjN6f49/z6WoteldGiUm4MYxSNhvG5enWIJsHcb4HnIYRT3r7
jmtKNUhJ86xju+0wqhBKn1oQq0El6UX7eC4MoyCOHXI9k9Xod0RIrQcMI7mX
djeso6vRrhvqc8biw8hw97viV/Qq5K6ylDjjM4QaJxbmzvtVopIhJf5M+d8o
6oPOqfn8cvRId11W3NbfqD7+83KFfznSi/1lEiz4G93cxsW2PVeOMLOXYc5L
g2j8RN0rIXoZqquhi8q1DyJZvQYhPZky1JmRLRH1dBCRWzdXkXx+oikvrV1+
wwPo7k/XHdliRUhBWP+YRWI/0m+VUZ/7kYtC1Ua8b0T0o6OY39Ya91zc7/3z
/F70I7r5/mCbfbmI+LZaMcu9Hy0o2W7tPpuDPMWMuLlO9SOLp9Wvu5SzUO1m
M2Ihqw8lPQ8YFWhPRzekHS23He1DP4+OfZSNSELf97y4MTrWi07O5suOBD2C
oZpvstra3cjR81jvgQOFQFF+p4EKOlBytbL097+1IOL7RVt1XRty4i7meX6m
HZS1Wcqps0T0wL6y8+euXxBwgtla/KAO2WweLd/ycBgIFtlvLm+pRL7t+Y68
NmT4/qdGqF6xBHHv10nfyh6H1H7K64nAbPSdU0sqNZYOfY82J73XzEbeHB6t
6Z/pIChzKvf8aBbacuBj1+c8Oty3S28vhiyEiNu+viXRwYByY8vLpQxUta3M
Wm4dA2hTrOQ9bl9Q4waVP9v/Y8Ce9Ut5N60+IWZ36fXzqkywPi+V338tEi3Z
KLlpp00BY3b+0L3qCEQrSfU//n0KHkW1IMEdESg9vD/CsGwKEvr9m45S3yLB
FPHgwx1TkN/UXnO2LRTtP/I1oXR1CnLmbinQ+gKRZkzmWTULFvh1KnVuq9JD
7xfdPrxaYMEL0xB3PqmrP9lPV2Tw90LoZvsnCS8Ywok4XavDXNPgE2HQeFPL
Dl7xcudsE56GKtng5++F3SFKW/ZFqsI0/PffHueCVX/wGv9m0WY0DcW8Pl2V
9yLgWtKBumvh05CsQujIkY+Eu6tP9bZHT0PQuZzWhJZIkElKut0ZPw0WUWNN
93dHwS1SzNDe1GmYljtTuWcwBmLfKxiGFk7DzkPSOeEnEqHu3yHCtv5p4L9a
mPmEnQhdbi+prkPTMOt7/uutxCRwvnNqfenYNNiNVpopPEqG1w18/44ypkFV
6a/Jv64P8Mk0W2dlZRoa8mxPfAv+BIJuO0sUpNmgW6NctWv4EyQ+EZngkWND
bvfi0UTtVAAe6RmqIhuiFiMgZCwVquxd7r9WZoMj1B920ksDobI7/gE6bFhr
VFOXYH8BvWvgI3CJDftH18k8vZQDf4vf3/ovhA2qJRfZal9yQPfUDU6lUDbs
DM+qHl7MAbX7tPiRN2zg+5C5P9kkFyjbqSUQxYaVc5cG1qZyYeHlBaG0ZDYM
5ubsRurfYapZfqN0Phv6Eq6IbbnyHThb/dbfLGBD94uN/1z9v8PbEO3Ub0Vs
aLazapXp+A5ZZ99WKZWxoVyY28vXMw/Uh2wqy2rYkORmU61XmA9L927/fNzF
hoSrm7LfDeWDqEXCZfMeNsQY5kczuX/AyUSivtwvNryR5b35/tIPGG2T7Ugd
YINf6w+Rf4s/4FHQPufzY2x4VGq3bCFfABHGHBk0MhsepPNRMo0LwPhEIe8D
Khvc/OyLrsYXQLhhC+eTCTbYqwnYluoWQuvJxzoqLDbYSBUZijsVgouneUHg
NBuu8FzTuPW6ENRPcMt0stlgNly0Uep3IVAv8b6/MscGU+I1lgdXEeyZ6E9/
O88G4yLBX02qRRBYGPYS+8OGY28cM32eFIHglbSijYtsOPJIKKojrQga5t8s
bltiw2GXkid7W4tgxdFlcfcyGzT0hc37ZYuhMoQto/KPDQrTPxcPVxbDc4U1
uxaOGXhEOh44xywGwY5Fs/x1M9D9tUkwW6IEMnLcr4atn4GXTv0KcndLQHOo
MmbXhhkgH7uW3ZdQAodBsIyMs54s/WBkfQmoTaP+6I0zMN23ZMIt+xNkZk/R
h7hm8PP792Knf4KcQyzJk3sGPr3jvebt9RPGnE69XsN51T2cqZnyEyppIgp+
PDNw8ZzkA2bzT/BoKX7+B+dclY/r05Z+AvUfR77Dphng5dvz2m5nKWhc/Zpc
jbMj7dsWSbNSeNr/0ECKdwbKaw597HhcChw+WonXcd6aUqH8+kspNJ9JTs7E
2d3PqNCgqxT+eAcaUHAmWrcd5VhXBtfOfHkhxjcDO3QuE4uVy6B/d6/tAZx9
t45Yelwqg9WP/dXncO6ddxlRDiyDYx5Pcm1x1uiYvknNKYPloDfbHHF+lfvg
T1J/GVzhGFy1xpn6muPpZe5yeKSrZW6Cs/7NF3ximuVwp9dZRAPnOEPhKKJN
OegXGGjw4zy7I0Y26GU5iKxPy+7Hz3eGUzYDCspB8cDVJ8k4fx5O2784Ug4L
irrvr+DMUb4P+y6AwGpOeh0vzlfiC41vHULwQrkvJRvPT/4D6NrhhMCwyNjX
EGdByzrboTcI+OjGwT14fl00z07GlCIQDSoss8K5QrjH04yG4HWZq3gXXh8B
r5y1jbwYtOmdCzqOc4nTbPXodgzuqunxp+H1FT/uczbhNAZpn2oOmOD1r1BH
4g/tMXggubclDNeHqyxn3wUvDELn99nUcc5A/b+XjkIpGARtLzMg4Pq6x2je
zSjCgCUlFb4X1598vyirvhmDneN1Rdq4Pn2K4h76L2Eg9bTGZ+8qG5TSfh+x
Fa6Al/bLmwi4njvfyW/Q3VkB+YcNLs7ielf1+Bo6f74CeBT+iIbi/dFvP2Xe
/l8FHDQ18TBeYMOLcxoSOY8roC///f1lvJ9GVUpSXL5UAO9TeWMdvP/CpFZd
TqIK8Cy6yN84g/sn3zFV+a4KwH49v2CC92sUraGon6MSVH1ZdupTbDBK+UUy
vVQJVzpoMa7jbJh+lu1cc7sSRJiUS18ouN+4BKzpBFQCmf6xsxf3E5qKivru
7Erwf6hGIQzj5ynyi+TcUAUbljvyuHvZoBZ/QcVbogo2MVfixnH/6n28p3Za
tQrmUys2lXbg8R/v/Dt4uQqW72k6HmthQz1pl1VRThUIfqq6WI37n1vuyqxq
TRUsmdXVnqpiw9aItlepfVVwZnNDMMLY4HLJpzx8YzWclZKfCfnJBp6xZrnb
VtVwoGh3bHQuG04t3KPJcddAnrVJrmcMG6b6jJ/GSNVAWxnmcPgdHn/Zdkkh
jRq4QP/OOfeWDVT/htMrV2vgTg/vwjF8HgQJSOd0f68BcaHfy6aP2VArX30v
xKYWTmqFcUrassF1Y6zges9aMOFyy99mxYbNtNtpD4Jr4d4cZVr4Ihucs7b8
csqvheNHD811mbKB6+BNXX3eOhjhK/Vu0GPDSRNRzvkfdTD/Tez4eQk2hNpv
Yi821MHeG++S+8XxfN3jGFodrIOj7lu7rgiz4UbiVAkPVz1weK3LPcCNr2c1
uktZ1gNZekP6jblp6H0bMHr8Tz1QCca+34jTIPfZu9WQtwHm2vXFntdNw42S
u+UmMg1gzjWoeb5yGlZGbeMuGjTACH/Ixip8fstp6ZrdjGoAUtbydamP+Pru
uYpw7UYQoBgc/ug5DXmT9Jxo40Y4ojbjWO6KX786+j7BphFEYhLam12mIXRX
28PPQY0ww7vHiXgVX/8gS72kuxE6uV3ph07g6yWdP4zcbwKdF/XpffjzSZht
j59aIRG6/Tb07T7GgiCGLlCJRIiXUguQ02CB78OP/+JHiRDCc+rsihwLXCNu
e3MLkkDbi2uX1ToWmNZxev52JEHH1ZiC0vIpENyn9t8r0WaYoVcFcmlNQejq
CxPa7RYgpru7uPEwIShkii8xoAWaauoPFs8xcD+0aDSPbYGFyqH5sWEGuGps
P4Wq8fWnLEWHihiwK++KbJNAK6QHcPXfwJ//uMenJT46tsLQlo1cbeV0qDOV
Fjgn2gZK21lrCZaTIK46stldqg2KZR8nf9KfBDuBVNnInW0QEU3Y8XbPJCw1
KWv1Hm6DwF6Oyq2rE6BspGtld60NbHfJfRxJmYA3x62+uOW3AWcyd4/FJA2u
HIw9+dayHeL5WtfHOYzD5y3WZ/Ps2oHfjimsaTQOs39kL3fdaAfLJ1rmufvG
4dWP9FsST9rhezSn/cUVKiCNoogPae2gbeQgfTGSCooqPSPfFtphTNJimwSi
AFOO4Nse1wHt2SKhwWtjcNDnw92KTx2wfdPSF42xMfDvVHHKze6AvM9Ob7Da
Mdj83OBMaGUHDCgK5r58PQZHGF6SxpMdQI7jJfdIjEFYQV9BxaFO0ANmqLnK
KKifTmbl9naCRe5DUhkMwz3PvfZhm7vBv1epalyhFzbzskot5brBuHsTn09P
DxQlfd8qo9wNJiJWh0kve2Cl8VBr5tFusOXhMc2exq+TM4TGW90QdDrH8Fpx
F4Q2O0pvrOoGw3611ZgjHfBZKfGX950e+NFy+MljNSL0DAibOdf3wnrnmYtu
xulg91B3nPtMP2imZMpyHu1EVXsPvKza+BsUNUbyPOJoaOemUtonw2EorNfW
auueRdKlN09ufDECscrLj3W7lhHH0vov7qOjoHNh08cq3/XY3/NlNjU7yODU
bZPnPsqF9WvZbtsRSIE6JeM+o/d8mNtFYRH5ASpYV4T8Oc0ljElEki9tkKaB
9oEHof/RRLCDAds3e8rTwFr1XvOmaRHM0v1Kx9guGqzFzY18/iuChZ9rNanS
oEHmQv21Ni5RjF+g9Ji/IQ1SuZznqIqi2OqzCGUOTxrsX19qKmAnipG9jnGs
NNJAQyIhXrBdFFv/3+Oym6000Ptyu3a5VxSTtSzy7u+igVvDWOXokChmraU6
XzJMAxmnWaFEpijWPS0x+fAPDTqPfRFv4BHDGq6zO/7KTcC9VMfwCT0xLNsq
OW32Aa5bnwkTyRQxTKtHYYnLdwIcDIYtGtPFsJ9maWckAyZgX4SriGe2GFZv
lM3Wfz2BP3fRw/KLxbCxA6U6oR8m4DHP5VFaixi2Vby3RalxAoJjmb1bl8Uw
f6LQgvW2SdhR3pPvdEYc4zGMML4rOwlz8qnicF4cC6va/D5wxyTsvttxRsRS
HEsokT6WsW8SdvHd3pNsK44Vpu99tXB8EsQ0tvc4u4tjjMBTshG3JkFi3LL3
bZQ4dlHviWF92STc6MxzVPkljg3MU4UqKychsjowl2NQHHPINu35WTcJk4ed
TxCHxbFb22Wcc9omIWBT3e4zNHHMf11ZQBRlEj4ajqhN/RHHsmuWyh0F6HAs
2NHmhygB0/J1CLIRpcO1YW0B3s0ErFi70eTSFjrYvv4UaylBwKrTYgdOy9GB
pJOh1rOdgP0KPriksZ8Om6uICfeUCdgG0/v711nTQbFyW4zcCQL2kuv3ypI9
HSrN6jnYBgRMCJ2snnOmQ7eN00ChEQGTVCOY09zo4P+xqm3vWQK2TzTfrSWQ
DjKRFksZlwlYfuO2gw3BdFCj14P2VQJ2OCBgrTKUDuYjHZWFNgTsxJxZaEEM
He6Q1/2XfI2AXelmZ7zPpAOfruht7tsEbDj0skf0NzoULYWSje8QMKdTFYff
FtChY4ep47O7BMyt6E1DIEYH72qG/dA9AhYUt2/8Zicej+vO+J2+BIzfPDrb
6RcdRuPU4uT8CNhbvrV7tr/pIG+8/5aYPwFLeNS8wZxGh9ALYa79zwjYN5vb
8odX6KBlpK+x8oqAOfyYlk7G38MFmDec2kIJmDi/pwQXNwOkBnRexb8hYPeL
vYXbRRjw22U4XDCSgO0SXuU7uIUBvP+V2Re+I2C9zk+5E6UY0O1jvv5CNB6/
+IvV67sYEBBXHeUaR8DoN/iWWpQZ8Hhv9sPJePw8FaHz+zUY8It+m9/qPQFb
dX3HWKfHgEsjkdslkwlYZcPHvlgzBnxkZQkJpRIwD9md3WsXGUC3uhu47zMB
U/T60uZkzQAx6+tOJ9LwfCjm1qu7MKDwjrbx6S8E7ICPZnX0bQYIPlTR0/tK
wGhtBeifOwOGRN57K2QQsNNPygoaHjPg7ROtPGImAVvp0v++L4ABTbJB78Oy
CFi2cnXWuxcMUJhPyTXIJmC2Aae+LL9mwB+/HWQ2zsJ9jZ/sIxjw3iZl39sc
AlahZppcF8OA+eOFLxVzCZj787Z4lUQGkLlXGBk4K/y2iI5IYcBkmoDprm8E
rFOrN3wxnQEZJsGpUTg/C7EKtc1mwAsLAfoiztqjv4Nr8hiw9+yhzee/E7Dx
gw7P9hYzQEUgWyYB55gwit/bcgZ8SBZY6cPZiOry6G8VA6quLacK5BGwJV2G
l3UDA5/L28S1cM6MuONR1cwA51uEI6Y4W0/OuO7uZABaF7btKs6CR+/fCPvF
gLq76p+sccaiF53mfzNAovNzixnOd6ce2VuRGeDwNe6dDs7yJzmsKyYYsINa
zNyCc0d8wKVdLAY4Tn1vGcfPEzjDZfEan/vXUvdrZuC83+jl2dlFnF1nhRxw
piYJnL68xgBbzSRrfpyj/7wxQBuY0HaDKfYVj9/QRPzYDl4mPJaO3KOD82JK
tF6IEBPUGcaxCM/n1yXJQ2xxJsQTmi4ewNnqfKLWRUkmCD9qsf6I14M/XU6t
bDsT7DPEUzhwvnNBaVfwHiZc4LraGIXXVzYzQ561jwmxpKH4Zrz+7ev3yVzY
z4T85LSQRVwfWrn7CXL6TODilExVwvVD4SoWfn4Sv7+jRbkyrq8oa11+pjET
bvnNdCqkE7AF3uOcxReYkDX7+tckrlfRKcHIyitMkD2XcL/lEwHb29anSLRl
Qu2utynpKQTMJtrdYOg6E5amk8MPfiBgXt5HemiuTEhbeXCKlUTA3ljzusx4
MOEo9u1uXCIBq1L4GLzRlwlusa18zXj/DHC5SgoFMCFJy8/VEu+vPxOHMra+
YIJXvIJyRwwBU8ptI+4NZ4JM8OT7L3h/huquEzb7zAS995YpDXh/p28nJVtl
MMF7i9eOObz/K9bHqjvlMiHhPEezaAgBm6tXM39QwoS98koPlJ/jfnXBLiqx
Gd9v+z7vVtxvdrgiKfofJiDK/qCumwTsyPmQrLllJvgFXHaA6wTsktbFI6sc
UzButftfgjPur0tTtiJ8U/Dih/wFTXsCNh0kk3Jg+xQUehzrb7pAwEqTHu8O
PDUFbf42WZ91CVi3v1HJ6zNT0JAVfd/oEAFjORFOR5+fgqVD9TFD+3H9KWfd
+mo1BWZK080UVQL2vGggp/XOFKh85zS/LEvAzNp0tKVjpmDA1O5UDwcB49Xh
qyh9PwVBQvkt+1bEsYpPfaevpkzBlCXvlgd/xTG1Bw/t47OnQGJdBtbDFMcE
txe+kqiZAqMrkuHt+PxquKUxRpiZgrurN5uzs8Uxv+51rj/+TsGmv4bn19LF
sYP6bQsW/6bAcKGaH1LEsc9iboKRPCxYpxLP/ypaHAssyTokup0Fp8sbjaye
iGP6PLvfCJ5hQS9pU1zdaXFs4e6CZPZ5FlRUf2/nPimO5fTXpZpcZIF46I5K
7SPimEyO889XDixg+iWl2qmJYysXPlF5H7LA0ePZhzExfB6nbNfj/syC4T1X
IpJ6xDBXAVbd5wwWCKyNBNfh83+nV7mZwTcWmPN7lAzWiWGRxtYuz0pZoBME
GZ2FYpg7Oy6Cs4MFX3ak/aVHiWF7rG7IpPSyQH7o/mRgqBg2Un3oy7HfLGhY
t76fL0gMOxfTW/50ggXdwuHRY55iGM/6dCM5Fgua4xostG6JYeimVyc2x4L4
PrkZ92ti2P0uA1u7JRaQpY67JF0Rw/7/exs4WtafU3xeDPsflVjgEg==
        "]]},
      Annotation[#, "Charting`Private`Tag$107329#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVk3k4lekbx7OkoaKUVKMZgymVX/ZE8VKGIpS0kEaWSmSJLKlsIWMJyVJj
WpEtCdmdrxrJvhxGichyjuO87zmnLMky9Xvnj+d6rs91X9d9P8/3e39/cfKy
PiO8ZMmSevr8d+8g1nG/fxeg5dXOS05ZZfCaU4yemxeAUE4ZH68pQ1GJ+uap
Gbp++nOKZU8ZNJQtnNikAF32bS8gXA6d1RHvW98KILGgG6b+ezkMRz8333km
gGTWBsPjUhWwvtGWr+kgQNTRpC0tdpVINuo/8D87ARrvSrwJ9axEzwJnfPNR
ASwIpsb68Eoc8xZV2mguQEy5fxiVU4mTtrszlugIEDukF7R9phIu23Pj2iQF
8B0ZZYpFVyGgI8LjHIOPNXbHudZp1Ygj/d9OV/BhU+Th+DCnGo+WnTcKL+HD
tDNHtK2yGq2EhcxfOXwccyxmV/dXQ6FIppZ5i488X5nqr5tq0J6YvcLgHB9D
5Wovpv6swVhBun+LIx/lhpxM2fwazDXGfDxhz4ea84lNG6pqoCTkVep7mA+2
6w2Uvq1B0EUd+9zdfBxUVHS3Wl2LzdaN+WtX8XGj+KyXbHAt9nhWyTyS4MP4
wuKDdbG1OBxTEKK6lI+IhMHyqbRaXH2VeMRsnocgsacFps9rwdSwXQgZ40HG
yc/m+Egtrq3hmpEVPKTtaCrYaMDALdWB0sASHiJkgybm9zOQY97+k1ghD926
y10rjzDAvF48Kf+Yh/s/TRl1uTKgPB1091g8D6lrByQ8khjo6VnOfenIQ+Yq
ZSG7AQbCXF4w8u15uFgyoB4/xsCO6d+TU47z0IyXpo8pBqLXFO85b8FDld+0
duAiA/rWJxJW6fKgNT90//VGgDss5DKvyYNe/MK1VQpA+sX8XWM7eBg0+3LW
YCswmfhtuFyJh7Ds0xf26QDZHZlaDqt4mA+nGicPA0ccLMUPLOchXZIVduwE
sEQw+0FDjIfxSHf3v34H7CTNb4gtUviWNjfS4wZIWXzuezpOQZT/7zg3DKgZ
uFuYNkIhK+hALm0J3C4YXw/7QOF7SVddUxxQH5umcrSbgkO819KdaUBgs37I
IoPC1eB61/I84Fe78SPsSgrha/scDj0DmBOJyp2lFKzX9zFbSwAV8bGux3kU
app8CO8aoC89Pjs+i0LGlsC9aXVAlLLOlYAHFJqOGPY8rAeGTWOUzFPpfgGf
yhxbgZtvNee0kihY/Wy8WrYT2HPuQ9tPcRSmZ9RXFnUDqVFqAZNhFHYklizG
vQfMXvc23fGgoCqnYTDFBmZtQu9dd6WgPqi3tWECyBzb6uvhTGFFYlz/VQr4
LnJNzsiWwqDiSE7KZ6AgefPnbTYUNpUdbpudovVT7Hy91ooCI324Rf8LULpX
0YtjTCHvma6b3zzgyGzdxyQo7LrtsebcIiDp5L++Ro/C8613cvd8A6o//8zL
0qbr+33Uv3wHXMOaXiaoUZhyfvu2aUkdZFb7pl7eTuGSYfjtGKE6vHog5+68
me6ftfawvnAdvNUaCItfKOSHTEiN0LypzmutjhyFyKqT3YEidWiV1r6kJ0vB
NHr36u80B52Z79aXpmCzYDgaIFoH5QpoGq2k/dXONB+luVciMtn4Bwpatn8d
NFpah4hTZlOmIhSWRLtwkmjWLJI6Yv6NhNiY+i//0Dwi/E+x5RwJwwT9OQmx
OiQevSttPU3iWT58NGk2yHHwOSogYXryU4Ilzbx5JeYJLokf6pYdsac5w4Kr
bs8iMb2gz/iPzR48S3L4SEJIvaXbiuavk5c+O/WTUAkbT9GmOfs3vcNne0n4
S7aISdJsk/696HwXiZ75p8p99HtEyPpVHq0kTFwb/02luVg/xtv7DYmWQOto
U5pPJ1p1+r4iYWcZ0cyl/ys5ulYtoJbErERqQyjNNdrvE4IqSNzuRLA4zW7R
9wXXSkhovdSdiaD129DvYhVWSM/7tltlitbbP1QgGZ1JYp5TOfaE9kepu9Qz
9j6J4L4sNz7tX/evQe0375Kg7s1XbqFZrUX0ZkoiiZ8dg6+w6H0Y3NTMS48l
4RlmwPthAYjzTrDIiCJx42SSiPQcMCGzceXjqyTaDhap/jNN59916EJ2AIlF
0t4yYRIwqc5szfUh8cbmlKLqJ+DRadW4Ilf6vckbheVJ4FDJNFniTILxqXzt
RQ69z0urzMt/p/ttcRM8YQH2+cbLGTYk3DTaJd8MARLfxN1fWpHgxJ+2fzYA
VB7qaK43I9HAbLx+rQ9Y98U2psWQRI7ywMUWJtBh6CXep0JC8tJR0x10PoOT
tc4PbCEhHDM49BudXxX2XOOQAgmFXPjto/MdHRsRzV5PolnaPP8Tnf+9vXeW
TYuSEBVpr1zzCHjhXr9U6gP3P/1NQi8Du+Q91bPfcpFWvaI81Beo6pE9pc/k
ws1A/qOTB1Cn717q/oaLF+HGvq2ngWYpaefG51xc36+0R9sE+FjiUBcWxYX0
oLWF03LAyVWcWh/GxbQB63OoCMCSK5EtukLPWzuWG7bAADdSzGvQmwujlE63
rSQDM8efbtp9kovZHcs6pJsYkFicD5pW5YJ6tyhjHcJAfFFmduw2Lv4I1rhz
24+BVWcsmQq/ctHpFxRT6c6ATPvDrYc3cpHeyW3LO86A/IP9756KcvHsssB/
+w4GtI1Ttc/1TYAqvGuS908tTsepf+oLn0CrhXjka8laBJXeimq7NoFd1/df
NRGuRcrAlNzLwAlM+nRbFc7UoFml7ECO5wQqftt1T2OgBppteo/97SZwaL2a
rWRODcQkjY+t0ZhAtqe71brdNShIOFZzcJiDE29yLkdbVqOhvNzacICDXr9b
bJ5BNYaH1k9ovuWgXHjz33qq1Vin1i/zYxsHxlfLPsRIVSOk08FrooIDIUuv
DUs7qmC9+rxCVCIHP5zvLj5zoApfb12JBsFBg8u/ubPbKzEu95JroseB/Yd0
p79lK9GbLWbRrsWBW62DwEekEiVVSas/bOVA/t1wxrX3FfAceXJ3fg0HFX69
pNGNCoyq9xRoc8ZhQFwOiu0vR3unSld+4jguXnZxMvcqQ42dj6Zm7DgmPcsW
Mo6XIX+sPKUqchwsXr1SN1GG6K977ZqCxmFS8Ic+T6oM++RtR9ku43ih3PW/
vsIXqPCKnPlFdxyDKw9tSxkvxWPJwQ3pw2yoz7bebTAuwa2TxDLdATbk5vYo
aG0rQXjOg+m+XjaUM2fJG1IlcNrr3PFjKxun8q7aj/QVQ8GfE3G/jA2B6xoL
Z49iPPowKciOZePOnlGTuwnP8aBgWcMLbTZunlg9LBb+DBlm6j7df7DgRmR4
TT5/AqXlZs2dESyoWfYFPL/0BPktTgrtISx6j19vMtF5gqqDt5mNfiy0Sxad
/VSdjT7LWQ2GIwv2baOcA39nYd2R2qkcXRaU6uIT1jc/RsLJA37BE2MwVt/z
rsH7PsIvOAZuPTCGB10yVvfOxuGKSF6AD28E0Q35f9lf+pNwDO1Q6s0ZxsCk
yc2Hvc+JlFpWeobbR+iJ5M5sKqklqoaUVxQoDEI6wsw0ZeA1objKcK/NvX64
dg5oh3FaieJt0W4jo+/wR2iWbX8Ukxh6/Vx+585eLHbFqf35qpdgqaRooKwb
hbw/2zTZ74nVwbk7dwh14e8VvmcCk4cIlZ0ClaypVgSJXBZKXTFCXDfmdVYG
vkHfw906c7fGCBmbwkRb2VewMy7M1fppnCj+8lqqUakKe4lrqXIxE0RWPyt+
IqIQZyIPNYlqU8Spw3Kl/c63sSu3dP5AFZ+gpmZ0/eqTYZO4ZECnnk9cTe2A
5K/JEP+aIb65nU9k9Ie3GLGTYLgyyVRkhE+UtjBfW3XdBDOPa/BSXEA8m76g
yHkfgWW3ou6b2QqIdl151R8zriMyKERE31lA8IO79SxPhSN5SpCn6iEgTkhf
ynRFCFxOCr2SCRMQR3ZLCgs1+YFxyk2IlSMgdJeqPvnIMoa3xQa1+BkB8X83
DwFQ
        "]], LineBox[CompressedData["
1:eJwVl3c8198XxymhQsLn846GvTJSiSgdISORfCuyU2SlIqNIMiqSWUKSlZZo
yMq4VkYqK2Rnfrw/+LyVSki/+/vr/Xg+7rnve865r3PuveKO58ydVrCxsW1j
Z2P7/1dj1bbHQ2N6UFOtPrp1FQUBCfpN7qoOYDtYcOTJOgpqxCJuPOD3gs+m
o3Q3cQrCEiXOq0dfhLEu+7YkaQr0ecosW9f6QaappuULeQoafs/Ir+IKhJpj
WpM3tlNw5sxW58LlEHjwr0OBQ5sCQwk/q1CtMOjfmnHAUZcCuf4aU7PAcFAZ
U/bN0aeANLdVJ//cAGSB9n87REET7zOFot0RYFXcx+o6TMHzhl+iYX6RUD7P
7Ckwp8BjXyz3lp9REOcqFC1uSYHJn74lcmc02Orou76yokC5QH62yCsGnhmn
Ppa1pWD+zrcpuflYuKA97l1/kgKX71xnYu7FwcGO70KzpyjoPqz87adaPFhO
HgV2ZwpK1gR8qfZJgPcTB49/caUgXYnWni9xB6oyWOEV7hRcN8tvSf18B8qs
s5gRZyk46230KSLwLshNJSaon6PgaOLIB1/5RPCTX4yoP0/BnpIrjac6E4FG
svVqeFEg0UfUm4XeA1+Or/HR3hSs/veqVkslCdYeLiivu0gBJX6oemt/EhxI
rzkz6ENBl954JRGZDPGf1B/0+lJQcSa4nEM9BU6/3O9W6kdBdqTIu9mRFFDa
JNAb4E/BrRcFxQOx98GG8XVR9BIFXi2mhR+0UuEUs7E7B7PlD8abYjIVXi4K
BPFfpgDooa8e3XsAhayx3zaYZTQ258frpcH4A2/zKMw8NkW5V2fTIL9vKjkN
84+gI8880h5CWEhITwLm6Zaf7bnS6dDm5CTmgdlhuNpcMjAdeG3f+8li7vgR
05rclg7Z+zqn6vD6BqtszfjlM2D1t7pbBphL6Vs/X7+aAc9F3jvkYv+V5X6b
/P2SAYtVXP5zOL5Mjdpmb8VMcHvxrl8UM804zpgMyQTXNwJpyjgfN23smhy+
ZoLLM606MZyvpbMKRl3bsqDH5az9L5zfc1fn602uZ4FiXZt/Ps7/cGydfm1f
FrTeTdt86AIFjW/s9V5FZEP7tKKmiicFe+sUa2SHskFQ4kiTnwcFLzv/7E9T
ewTOUg/pWW4UJP5JgFsjj2D9dIDQI6yXNWtPVrBr5oCRg8dAwGkKrmxS1vKP
zQHLRaO7ao4UnIYGTSetx1CxInbBAuux2+xuSW/CY5jfaFVVgfVq7Oi425x8
DM2FHY9WYz3vCF/aBfeeAMeHtHljrPd/TSrbhWefAt9wv0jYAbyffX/zYwye
gXtgqBSvDgXj003KnGnPgGHs8OLyPgqa+Z0Ufxx8DhyjIWdXqlOQcjxZ9mN2
LvCfrVlqlqGAz8U5R3cxF8qkLh8LkKDg2qWd0qVHXgBP3Uw03xZcH6kfJR4v
vwBb4S8dI0IU7Bpm33LNMh/o4dPsxux4f0otZlWe5kOBwc+HP+dZIBP/onbo
Tz5w59g8lmGxYG1G7q50k5egnHvU4G8PC5bMLPv+zbyE7m1Fv4JesqD/Zb58
5fbXwJv+0nXMnAU9qVaChNVrOL58jMNJnwWdN1f99Qx5DS+EzQyKNFjwycG6
ZUv7a7jrGUbrEGVBBT+XX9DFN1A6XPqXmpyBh+ftarWKCqD5auN/jT4zkGqz
Ou/uYAF8qvYuD3SegSTDgnvTXG9hk/1lHg6LGYgVW+P+wPItvI4ceBqtPgPB
LW/X//3zFhT+feZJ/DUNJ1V47cv2FkEto6oxyGMaJKl3fzSrS8BURK1dZ/cU
BH7UDZubLgG762br+8SnoPPZB7484VL4mpfgrrd2CiKdeiXFL5SCoXvA15B+
JlA9CyZcYu/AglfStuQqEyrqNDLbr5SBQ4szXfIdCVb3iw56aFTCkKT9WDLf
JBT4wxdpp0qwsIm5afCdAXzH6+0HYyuhYIXEufovDKji77pozqgEvc/H3Pel
MkBIN+BwqjECkRGj4bWyDAgoTrkUsoCg4fPvPk3VCTDK+vrR1LIalqJXpyQr
jQEVnudcd7YaWJ+tNtrzjEGSS+i/PaHVIBSwJ26RHAWGktJ2+bxq4NkrXVry
eBRuFgffWclRA8cfzKaaiI5Cw0dZ6+L8GlAKkY1gcI6AwbwPQ5yrDr4tdqyP
Lx6CAyYCK3++rQe9TyD99VgXRJ9cPfunsR6Cs9ZYC3N2QbcP2+Byfz10lJSE
byrsBLe0mVJuzga4aVV01IPWCdGsJq9NxxvgtHY7Ta21A7rjQod1fzXAIe3s
1Xe02sCtc64qXq0J0g8htP5LI8TYdwWrFDUD2he6PN+XDPWmm3nNBFrhiZKz
ql3018ppcVpQW0o7dEvx+dI7yEqfiwonY+idYGYjZxTUOFfZ1cdv7tzQDd1i
l57elftb6XBp7wTXoV5gzLyyG09YgWoU1CNrVg1AJ5tX/c4pTiSzuoyRbTgE
87rv3Nom1qDNZe4HVt38BjZN2jbXnvIhtoUVT72Gh6Hd4+6Pbq316PeRcrs6
6VFQ25vVbNYvgEK+5vfvUxgF6kTl1h8jAojvZKZNscooPk/lB+JIASRz/obV
8z2j4Nyvsbv2twA6Gn3keNyRUQj0TnBYWi+IXjaNmdheGYUN9y3Kig4IIldd
Pq2fHaOwJSP1gt4zQdSrar9ROmwM4lsG7TjOCCHnP7vWhUeMAeOtx/RNDyFE
lfOsHIseg6lX1dtWewkhDoNSMjt5DMJ0P9QsBQoh5RO0Uqn8MYiStPySHy+E
gq98sJTqGYOBW8+XdcqFkMx79URJlXG4mB3twb2Ohl5G8kWG7hqHkA8j2X8F
aUjz8NiVEc1xsHvLs31mAw0d7o53yjowDmyyvburJGjIn5xWlbQeh8xu79fK
ajT0gS+7XeL6OHBvHXwhZUND5y3410v0jYOZ4o/6M9k05PhkW4r0t3EI2qWw
0u8JDR37YyopPz4OqapKPddy8Xr3b+9SocahIKztSGQBDa0aXGO1j2MCbAIv
SzrX0lCK86osK8UJyDvIts1ghIZqfRZUEwInYN59ou/BZjoqfC9ckXhtAhJ9
uHs2itPRU0LDIOX6BJj+5JO+K0VH0SV+JzJiJ4C7ft39Swp0dOLv3JX87Ano
rimuXq1BRzNhrPcfmiegM8tlUO8/OhK+M2rJsZkBbJx6erQwOtodKkq/KMGA
pVOkpdoNOjruZdU+gutUu9k96kgkHcWbtZjU7GBAsFyirm8sHfHwlumEGDLg
/Oqc+/6pdLQcnqDIdpEBZhope+ze0NEmn0+T5y4xYH4xrlG0kI72nF79eDCI
AZsCK/R6i+nIX+eqeGUEA+6IH/oFFXQ0u+xGD3qI7ReOsyob6GjUT4dtqYkB
DW8EQu710dGKM1fK3VsY0Mb72/PXAB2JHS++3Iv7TFC3K3H4Gx3Zqir/LB1i
QKxiXPT0GB11UsLkpV8MkGhcWTkwQ0eNrrPtv8UnwTHd4ULMPzpiWCrGnZGd
BN/a5syb7ATiNDxj2qU4CVY84nYBKwmkI9PfUKiO7S9ucDbhIlDZcEO5j8kk
DKXZn87iI1CedfrjH/6T8Ete/ZTQJgKpdkkucAZNgseBItvIzQR6Z/74kEjo
JDCkXG8tbCFQg1HerPZtPB5m6NsoTqAR9bI90RmTMEfX0RWXJZDbG4jOyJkE
xazUWBc5AlHKNUMFzyehIfXn0lN5Ai1LN4X3vp2EPsUIuY2KBNog1P1ZrmkS
zq8PDStUIVBajLXE3s+TkHtic+in7QSSXjt48XDHJJQVh0QN7SDQjhXjwr4D
kzC17u7b76oEMqF+nKr5ju29pUQ+7yZQh7tfYefvSdCuOSVXpEEgq4kFbnJp
EnjaNZWSNQnkMsCex89FwtyNRH7jvQQKaV43b7uRBJ4ks99OQCBuw4SDF8RI
0NZM8d6sTaCYGvqDMGkS+PUN2z5hTi3drPN8GwmGrCJFUR0CSapl3KlQJYGj
yEOyAvOzV1ITrRokCGl5fD+uS6CiJwpR87okTHVvX+erR6B9UvkDa42wvTDT
Yglz7cMd20VNSZDy+OIZeIBAbYkanQcsSdibLvnXVZ9AlgLlcidsSbj5/PK5
LsyDt7UDPBxJiN0y+WifAYGmwgzEEjxIiIr9fnQBszfbB6+cCyT0lQQ3mBoS
aCHAtK7El4TUhzy/UjEH/24lPgaQMN+5rncUM5f3MbehYLz+z5U+MkYEip7p
LvsRTsKhGMeqk5iF3GzWcd0iIUnzUXki5vtjgydFYklQjTpwpg6zxMlTBUp3
STgqXP5uGvOTvnHO/SkkiPmFF687SKBtlm4njj4k8a1sg7UC5sL26ednskkI
/DOTro157+ELy5efkmBjGHrjMOaapjmz6DwSsstMeSwxH9T3z8p4g+2ZTYpW
mFuqFn8WFOP9cLswfgyzhdZVw4ZynI+P79SMMff9HF9XXU1Ch96Ga5qYHfNM
u97V4/xMqjyQxDzhXJj2thnH/yr7JidmD9Etzvmt2P87AvtHsP/fu8KVnnbi
/bouXFuC2S92ei6zF+vlquW6SMxLhsfKUodIKPPxFDuKOYS9PDRxjITzdgtz
BGbuUinjWJIED5X7kV9wfm97RQlEskjo/sYaiMIsoDD3NXSOBDbXeywtzEkj
1hlX/pAgV6ZSysD7tyW1xsVvGcfTarX3NuasowoqF1Yy4fzDAm8FzHl1CxWn
eZlQpuU9fxTrQTXI8bqdABOyF2j7h7B+StSaTCwJJvAbnd7lhLn2cXKfsTie
732VsMF6M3Jgzz4gw4TRPZFsn7A+P21wdQcFJjA8y25pYP4asXthxy4m3JwW
uPp3P4HsdNKrFDXx/6V9ho9hHl3gipABJhzKuDzwGNfDjHsXIWLEBL29zMTd
uH44TH13sdvi/7Hq3vPg+orkHFhaOMmE4J2PcrfvIdC6ygO1c85MyPUQ3WCG
61FEhfYf4zyOJ8nB9xKu320CBec/hzFx//fnDcL1XdC0cXdjBBNscuL7PXcS
SDM09F91NBMMlUDsBO4HenPm0YVJ2H5t8w9h3D+sOmefP8hlwvwcEXdIgUBD
0Se8773C/rJtfcO9lUBOBlWacYV4vtN71Qrcn84XxzaGISYo0kRMaDIEup6y
bcK9gwl9izEx3mIEemV3VkJziQktth/1ZwSxnt5Sm9PZp0CbudNCRADXB89F
YU6uKWhpyTq7j59AviWX+dvWT0HtWf90Tx7sr9DNZVfZKYg9N9zgyUGg6sbM
nmTzKUhKlg5kfqcjbzGZzn8WmCEiOJGiIym/p61OtlPQ7XjCSgP3++tSLxu2
u0yBHkmEOE/SkfHV8sLGK1OQe2XxkN0gHXWodsf/eTIF2eUNslWNdBR+yzra
Pm8KpD5a0xnv6UhteCCi7s0UTAVVPOWspaOkmLHguAq8XvyH11vxeWVLfveU
75gC1cXZed7XdDT+kNf4xD8cX3dv7r4kOppfo7uy5Ng0oN+hnjvt6Ehghu9O
tdU05DoHnoyyoiOF1h6pZvtpYGP+V9J/nI7s7nnpD7pOw2lLdNv1MB3VSGZG
rArCXHcuTFobn+972fnNc6ahYEQlWFGMjqQ9Kzcx8TvAjCfQ1amHhvYdufVi
bnEamjsY295/oSFLVYt9y2wzENW5i0e0lYYiF2bs16/F/Cx2qbiehqjrW7LU
RfE7JGGr3218Hyl7eEU+zACPO/1+VhhFQ+ate9Q2J82A5Yhq3Ty+/6zZs7aq
7MEM2Ih2W+Sr0FBVdo+xTRYe3//tmfVWGlLxv3Tyft4M3Ox0Cbu7mYb4RIui
hOtm4GKGzKPbK2mo0WPHCO37DBy9J5sa9VEIaXPLx/IdYgE3dff4ixNCaP7C
vEjeERbs3lJkSjMXQvm99Y9MLFjgomSd7HVQCG3Jd34X5cgCw+hzG3j3CKGl
Y9njay6xoPhtpm3VRiFUlCWqxZXDAob/3xVSvYLIk5dVn/OcBdpOGjcG2wSR
jF+Fuf4rFki95JSNbRJEdw7auoSXsYCHPfl5S4kg8ppNSVjZjv1h+rh8uieI
tlq7bcnqZsFLWbrrjhhB9K1W46nOAAsK2D+73rouiMySuiuuTbJATOmT7SYf
QcS94omROH5XapuqHTzqIYgq3f060BxeL3dB7topQeT7Rd/eYYEFqcq5vzKt
BJEy0Ml//1gQWN6bX3JEEP0PE1twgw==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$107329#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  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->{{-1, 1}, {-5.822609615216489, 1.1277810169926272`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.796980178514909*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"41c4d9bc-87e8-4270-b9d9-4986ea392183"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9, 
   3.7969797193659563`*^9},
 CellLabel->"In[90]:=",ExpressionUUID->"4ca0c53e-fbaf-4764-8fe3-10c209c52219"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["1", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796979723243587*^9, 
   3.7969801785260277`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"70d6442d-2e08-465e-a7e7-4a50dbcf1cc3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}], ",", 
      RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
  3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
  3.79697916819952*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"90853bbe-7023-409a-907a-67848e048070"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hpi", "=", 
  RowBox[{"HermiteInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"a1bfadb9-2968-49d0-855e-ca438919f010"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", "2"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "3"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", "/", "3"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "x"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", "x", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  FractionBox["4", "3"], "]"}], "-", 
                 RowBox[{"4", " ", 
                  RowBox[{"Sin", "[", 
                   FractionBox["4", "3"], "]"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  FractionBox["4", "3"], "]"}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"Sin", "[", 
                   FractionBox["4", "3"], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
           
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"3", " ", "x"}]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"6", " ", 
               RowBox[{"Cos", "[", "4", "]"}]}], "+", 
              RowBox[{"5", " ", "x", " ", 
               RowBox[{"Cos", "[", "4", "]"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"Sin", "[", "4", "]"}]}], "+", 
              RowBox[{"4", " ", "x", " ", 
               RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["1", "3"]}]}]},
       {
        RowBox[{
         FractionBox["1", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", "/", "3"}]]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"3", " ", "x"}]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"8", " ", 
               RowBox[{"Cos", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"15", " ", "x", " ", 
               RowBox[{"Cos", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"12", " ", "x", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["4", "3"], "]"}]}]}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", "/", "3"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"3", " ", "x"}]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  FractionBox["4", "3"], "]"}], "+", 
                 RowBox[{"Sin", "[", 
                  FractionBox["4", "3"], "]"}]}], ")"}]}], "+", 
              RowBox[{"3", " ", "x", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  FractionBox["4", "3"], "]"}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Sin", "[", 
                   FractionBox["4", "3"], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
          ")"}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["1", "3"]}]},
       {
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "4"]}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", "/", "3"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "3"}], " ", 
               RowBox[{"Cos", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"6", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", "/", "3"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", "4", "]"}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"9", " ", 
            SuperscriptBox["x", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "5"}], " ", 
               RowBox[{"Cos", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", "/", "3"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", "4", "]"}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"12", " ", 
            SuperscriptBox["x", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "8"}], " ", 
               RowBox[{"Cos", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"7", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", "/", "3"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", "4", "]"}]}], "+", 
                 RowBox[{"5", " ", 
                  RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "57"}], " ", 
               RowBox[{"Cos", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{"60", " ", 
               RowBox[{"Sin", "[", 
                FractionBox["4", "3"], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", "/", "3"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"13", " ", 
                  RowBox[{"Cos", "[", "4", "]"}]}], "+", 
                 RowBox[{"28", " ", 
                  RowBox[{"Sin", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
          ")"}]}], 
        RowBox[{
         FractionBox["1", "3"], "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.7969797235515842`*^9, 3.7969801789603167`*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"b7033a48-38a2-41eb-a6fc-720005137566"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "hpi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
  3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
  3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}, {
  3.796979732235875*^9, 3.796979777158802*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"e6c689fc-1b1b-4706-b906-9f89a1d6c32a"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mnk4lG/0/6VC9m0qQrZKRdlSWTpSCUWFKLKGjzZpVZSElBSF7KEkylpk
C/dj32bsW5ZsM2OYGWMsZYvv8/td3+/8MXO9rut+nvs+57zP+zzPdY2c801z
V04ODg5t/Ov//e6DzZNrayy0uVrrrnNqAbq5qPBicYmFslI3Si+WFqDcPLWd
s/MsVL/ewCmiswCpK5k6U+ksRA/1jGpfX4gOigT2EXtYaM+G+a/ezoVIf4zd
GJvDQvsCZqWvyBYh8+ekDA0HFlJ8TEnxTixGXi2BN/4rn0I1VmGN6h9KUWcn
32SFExNdYi7bPo6uQNLYTfGDUgxU6cglOx9RjX5cq94oNDiJ7pEzmkfN69Ah
WQ+1zz2TyKz/uJC2fR0q6dxip9c+iR578iSGXKlDmN61/Gt1k+ilb8Ejab86
1Cgkern+2yQaUvSUWs6sQ8N5DtjToEk0MexeF7mxHvGuLHnP7Z9EN5Uuyy58
q0eOr9Smf/lPoNFBJ9ed8w3IOz88iPR4AvEVLnNIrjagdwOzUhUPJpDyNM9Z
Lu5G1KhcYJzuMYEmfh0h129tRBok7ZT7NhNIrHWKOqfTiLgEj1uJqU+gi3F3
7Yb9GlFmmFXp6REaqmjZPVm9oQnVFhaa6w/Q0MRCmH4ZfxMaGdo6odFDQ8MN
lYpZ4k1os2o/YRuJhjQOO926o9iEnrQ63JwooiEtysTm2GNNyFzkinzQGxpK
vaV7Rd+vCS2E+7xAQEMSZ1delc00oXGpiklDbRpSzo37uWupCXV/5jJt1qSh
Yl2990HriCiv5K3I4G4aStKwMpYXJiKP0bS4JTEaohNmZlqUiWhMrTPzAG0c
BTRm/128TETtPyWEykbH0Y91FZlfrhIRdsLh1vHBcYRtOmlheouIEi9OHrBo
H0eGvpLHPX2J6MJTDuRZOo7qt4Q5KsQQUXOrclvGm3E0PPP4t0YDEZXa3NbQ
CBlH/zLF/0q1EFEGufBdybNxVKtmdmSxk4heLBjYNHiPo9G9HbtChonomOzF
MarLOFIYlBQR+0tERTefzcsdHkfZ0nPB6XIklLbYaP1FYxyNnxJsL99JQlEB
wiWq+8bRf/Ttz+r2ktCd6HhfUBhHZew9yzkHSGgf+sZtJzCO+GmdLf1GJJQi
+FsiZoSKJJ12OUdeJ6FwW+A+PEBFfP0PBYo8Scg/PXnuVzcV6X35QCbdJSFn
g8st24hU5PWGh9byiITk79MCkwqoSObbxdW9r0hItMr4tv43KuqSflw1FEZC
nMIZDiMZVPQ47bP1swgSGv1yQ1vhAxUN2qeVp8aR0MfBGdbnECqqkMky0E7H
999jOXgyiIpSGKY6Phn4/l4/Gml+VKTFo/E5KxvfX+RB6p77VHR6h+cnaj4J
yZ34Z5PtSEUXnW1W0zASEg63Nzpji9/fCB2/U0VCHEPowPR5KtoSUZG8v5aE
hh/4C6ufoqLr7eev+TSRUHImd+2PA1R0nEDjsu8ioTeL7nlWqlRUy7YvyO0h
IT/DxuS/e6hojDUnM/eLhByHX/kclqUiJ2Mz5unfJHRWZcq9T5KKrgws6zgP
k5C+9xkrHwIVJQu+J7iPktB2cVG1Ml4qOqIcq3OCSkKCTndk7DdS0TkeqqcU
jYRWszr51tYoyPAO73ryBAn9PhlN1Z+nIO4nDULHmSTUHLnQMcKioNM59ncG
pkiofORihf8kBU3GYxtdp0ko0UcqoXqIgtxzGC8MZ0kotP5xsGsfBfkzSpyT
5kjIlzB0n6uLgjjl7PVo8yRkn/PhnFEjBZlUH64zXiAhsxVOmKimIKESPwfn
RRI6Yuyi/BJR0GJVcePVJRKSHtvJTcynIOHQfQyTFRLiV30xdz2HghTVA0Pk
/5HQyqOJEYGvFMRXsdYygTOjwaQl+xMFHZ1Xy05eJaGBzZmlZ5IoiCCZJXly
jYSIlwW+TsdSEIht5B3EuTTXI/ptJAWddWnxdOZoRpn/WgLVwyjo5KGUYz04
J5io3e4IpqBtVyS8dNY1I0U+k8bWQArSNAymBeOc0eQs3/yEgm68P9TagLP6
Kx/vJm98f+NJxWWcS05Httffo6B4P+dBac5mZCCQtafWk4LODbhNq+HcSKrx
r7pGQV6Xyi0P4mwe+rsPc6Oglhtq6/bh/Mvsr3q5EwWpsIIZBJwdhYRDfl6i
ILZWhAALvz+tRWmsyJqCbm6VtC3G2fPNUZ0Ccwqyn2A03cV54axNRJ4pBV14
3m8lh7OfyB16rhEer13hTDkeH3d7yLHsYxS07opFlCnOoeGf4jOOUNAT/cBD
JDw/my3KZtMPU1DGFtlWPZwTxbpPfdakoKKaVYskPL87OqdSUvZTUHbjYgkb
z39mJPdK8h4K+mfJWNbEWfO8rGXiDgpaNcwTuILXr5RwODNeloL8dFXGXy+T
0LHucxtit1GQ4xvtJyl4vc2tA/IjRCjoTHxsbTKuj74tCfxv+fHzzOdffvGX
hJx6811CufHr1/7EOf4hIc+LVPHgf2QkkBGVN4rrb0Fi7XrQAhn9riP6v5rB
+6dvS03ALBmdjeqr28kmoTBb43u+E2Tk8uBYmDKu581SziQfMhlNRgStRTPw
+Aa8dzwcIiO9R7cqZidJKNsus+tOFxl5/VHc/GichLRkalRutZLRt3ZKVDqF
hMp+Dz7zaCKjpm1womYM15eDkNaVCjISKqrkahkiIUtZpVC3UjLiP/OHu3SQ
hPqH9amXC8mIm9opGttPQpNOt6Pss8joQ12ZnALe7zwuXX8sYslILX18930S
7geKU2bnIsnojI6A72gjCW2hcKWZhZGRcoRH5JF6Etrpdsja+BkZzfleJNdU
ktAJ9/jCI7fI6JBryFbhQty/rjs92G1MRlavvbaGJOD9HWqfUHKMjD62bPmZ
HENC2t9ssVNHyKiIui/xYyQJzcyf5/HQICPa9InFq7ifOj0xifkuTUat+94Q
+X3w+n04WXpsK76f8QndgPsktLX6+HCnKBm9PTMcQblFQq08oPSXm4zEjhKb
b7jjfhSuUaQzM4Z8x/31QyxJKCFfdYDIGEOyq+dKHc7g9epW4bAfH0PaIo/r
t5uQUO42JSO/gTE0ZnDXzRlw/0qV6q2uHUOnskqDp5VwvyrcuGAaP4ZE6TfX
71ogIps+Tqmhd2NIDvtzP4dNRAUra+D5ZgzZPlBskafj8/Xo0vPwZ2Poref+
9Y2DRDTYOLWl5+YYiizStpCoxOfhYM9Bx+Nj6Fdl/43vQUS0laPLln1kDL3L
tzcg4/P0rnz7E//DY2hCosWSw4uIlP8j1n3aN4ash4J4/7oRUcI0Zj2xdQyp
Bc3HD54gIp/1X71uM0dR5/0h36C1JuQRa8/lSBtFRnc1bOf+NCHn/WLvTMdG
0YlxrR9mU03IxPbRd6VfoyhTcF9l/UAT2ppnxvxdPYomF8Ud24qaUL7zrPOp
hFH0Jcu9TOVGE5qq0DVTPDWKzCn54QO1jWjUmj0gYjiK2oWSZht/NqIuZuq1
Nf1RtPC6q+9TbiMqlRAK7tMaRc8nEmW2xTWikFsjVW/kR9ENT4Vs4euNSEku
6PC/xRFU9KElQoK/ETn5tSh2p4+gu5Xe4566DcjqV9KRwZQRlDJTa8a9vwGZ
qHteICeOIMO6h6rBcg1Ikyz8aiZyBHGoSZmc4WpAPEbms4JPR5B+D0WJ3FyP
soW6Kk5eHEGlFDO9vZfq0XJin33xphEUqn7HYuN/dWj679cH2IYR5BPW6Lpm
VYfIZ33C69aGkZDDLy2yYR1q5pSq7ZofRheKnNZu7KxDH93sVGZGhlHE8pOI
p+RaZLRveHlPyTB6f5Z/z6dLtehdGSUm4eowStlsFJenW4PsH8T5HnQdRjzp
7TsuK9UgJY0zLu0Ow6hCKH1qQawGlaQX7ec5P4yCOHbI9UxWo98RIbV3YBjJ
vXS8ahddjXZdVZszER9GRrvfFb+iV6HbKkuJMz5DqHFiYe6cXyUqGVLiz5T/
jaI+6Jyczy9Hj3TXZcVt/Y3q4z8vV/iXI73YX6bBgr/RtW1cbIez5Qgzfxnm
tjSIxo/XvRKil6G6GrqoXPsgktVrENKTKUOdGdkSUU8HEbl1cxXJ5yea8tLc
5Tc8gG799NiRLVaEFIT1DSwT+5F+q4za3I9cFKo64n01oh8dxfy21tzOxf3e
P8/vRT+iWxwItt+fi4hvqxWzbvejBSWHrd1nctBdMWNurpP9yPJp9esu5SxU
u9mcWMjqQ0nPA0YF2tPRVWkXq21H+9DPo2MfZSOS0Pc9L66OjvWiE7P5siNB
j2Co5pusllY3crlr0HvwYCGc//+fLsTNaTj5VhMBRfmdOiroQMnVytLf/9aC
iO8XrX3r2pArdzHP89PtoKzFUk6dJaIHTpWdP3f9goDjzNbiB3XIfvNo+ZaH
w0CwzH5zcUsl8m3Pd+G1J8P3PzVC9YoliPuATvpW9jik9lNeTwRmo+/rNaVS
Y+nQ92hz0nuNbOTNcac1/TMdBGVO5p4bzUJbDn7s+pxHh/uO6e3FkIUQcdvX
tyQ6GFKubnm5lIGqtpXZya1jAG2KlbzH8wtq3KDyZ/t/DNjDuZR3zfYTYnaX
Xjm3jwl256Ty+y9HoiV7JU+ttClgzM4fvlcdgWglqf7Hvk/Bo6gWJLgjAqWH
90cYlU1BQr9/01HqWySYIh6s3TEF+U3tNWfaQtGBI18TSlenIGfuugKtLxBp
xGSeUbVkgV+nUue2Kj30ftHzw6sFFigLDV7dqKIIDh67vxqsm4Zutn+S8IIR
HI/TtdXmmgafCMPGa5qO8IqXO2eb8DRUyQY/fy98G6K0ZF+kKkzDf//tcStY
9Qev8W+WbcbTUMzr01V5LwIuJx2suxw+DckqhI4c+Ui4tfpUb3v0NASdzWlN
aIkEmaSkG53x02AZNdZ0f3cUXCfFDO1NnYZpudOVewZjIPa9glFo4TTsPCyd
E348Eer+HSZs658G/kuFmU/YidDl+ZLqMTQNs77nvl5PTAK3myc5S8emwXG0
0lzhUTK8buD7d5QxDfuU/pr+6/oAn8yydVZWpqEhz+H4t+BPIOi5s0RBmg26
NcpVu4Y/QeITkQkeOTbkdi8eTdRKBeCRnqEqsiFqMQJCxlKhysn9/mtlNrhA
vbarXhoIld30D9Bhw1qjqpoE+wvoXQYfgQtsODC6TubphRz4W/z++n8hbNhX
Ys1W/ZIDuievrlcKZcPO8Kzq4cUcUL1Pix95wwa+D5kHkk1zgbKdWgJRbFg5
e2FgbSoXFl6eF0pLZsNgbs5upPYdpprlN0rns6EvwUZsi813WN/qx3mtgA3d
Lzb+8/D/Dm9DtFK/FbGh2dG2VabjO2SdeVulVMaGcmFuL9+7eaA2ZF9ZVsOG
JE/7ar3CfFi6d+Pn4y42JFzalP1uKB9ELRMuWvSwIcYoP5rJ/QNOJBL15X6x
4Y0s77X3F37AaJtsR+oAG/xaf4j8W/wBj4L2u50bY8OjUsdlS/kCiDDhyKCR
2fAgnY+SaVIAJscLeR9Q2eDp51R0Kb4Awo1a1j+ZYIOTqoBDqW4htJ54rKPC
YoO9VJGRuGshuN+1KAicZoMNz2X1668LQe04t0wnmw3mw0UbpX4XAvUC73ub
OTaYES+z7nAVwZ6J/vS382wwKRL81bSvCAILw15if9hg8MYl0+dJEQjapBVt
XGTDkUdCUR1pRdAw/2Zx2xIbtN1LnuxtLYIVF/fF3ctsUNcXtuiXLYbKELaM
yj82KEz/XNSuLIbnCmuOLRwz8Ih0LHCOWQyCHYvm+etmoPtrk2C2RAlk5Ny+
FMY5Ay9d+xXkbpWAxlBlzK4NM0A2uJzdl1AC2iBYRsZZT5Z+KLK+BFSnUX/0
xhmY7lsy5Zb9CTKzJ+lDXDP4+f17sVM/Qc45lnSXewY+veO97O31E8ZcT75e
w3n1djhTI+UnVNJEFPx4ZsD6rOQDZvNPuNNS/PwPzrkqHznTln4C9R9HvvOm
GeDl2/PacWcpqF/6mlyNswvt2xZJ81J42v/QUIp3BsprDn/seFwKHD6aiVdw
3ppSofz6Syk0n05OzsT5tp9xoWFXKfzxDjSk4Ey0azvKsa4MLp/+8kKMbwZ2
6FwkFiuXQf/uXoeDOPtuHbG6c6EMVj/2V5/FuXfefUQ5sAwM7jzJdcBZvWP6
GjWnDJaD3mxzwflV7oM/Sf1lYMMxuGqHM/U1x9OL3OXwSFfTwhRn/Wsv+MQ0
yuFmr5uIOs5xRsJRRPty0C8wVOfHeXZHjGzQy3IQ4UzL7sfPd3q9bAYUlIPi
wUtPknH+PJx2YHGkHBYUdd/b4MxRvh/7LoDAdk56HS/ONvGFJtcPI3ih3JeS
jecn/wF07XBFYFRk4muEs6BVncPQGwR8dJPgHjy/7hpnJmNKEYgGFZbZ4lwh
3HPXnIbgdZmHeBdeHwGvnLWNvBi06Z0NOoZziets9eh2DG6p6vGn4fUVP+Zz
JuEUBmmfag6a4vWvUEPiD50weCC5tyUM14eH7Pq+814YhM7vt69bPwP1/166
CKVgELS9zJCA6+seo3k3owgDlpRU+F5cf/L9oqz6Zgx2jtcVaeH69CmKe+i/
hIHU0xqfvatsUEr7fcRBuAJeOi1vIuB67nwnv0F3ZwXkaxtaz+J633fna+j8
uQrgUfgjGor3R7/TlEX7fxVwyMz0jskCG16cVZfIeVwBffnv7y/j/TSqUpLi
/qUCeJ/Km+jg/Rcmtep+AlXA3SJr/sYZ3D/5DPbJd1UA9uv5eVO8X6NoDUX9
HJWwz5flqDbFBuOUXySzC5Vg00GL8Rhnw/SzbLeaG5UgwqRc+ELB/cY9YE0n
oBLI9I+dvbif0FRU1HZnV4L/Q1UKYRg/T5Ff5PoNVbBhuSOPu5cNqvHnVbwl
qmATcyVuHPev3sd7aqf3VcF8asWm0g48/mOdfwcvVsHyPQ0XgxY21JN22Rbl
VIHgpyrratz/PHNXZvfVVMGSeV3tySo2bI1oe5XaVwWnNzcEI4wN7hd8ysM3
VsMZKfmZkJ9s4BlrlrthWw0Hi3bHRuey4eTCPZocdw3k2Znm3o1hw1SfydMY
qRpoK8Octd/h8ZdtlxRSr4Hz9O/r596ygerfcGrlUg3c7OFdMMDnQZCAdE73
9xoQF/q9bPaYDbXy1fdC7GvhhGbYekkHNnhsjBXkvFsLplye+dts2bCZdiPt
QXAt3JujTAtbs8Eta8sv1/xaOHb08FyXGRu4Dl3T1eetgxG+Uu8GPTacMBVd
P/+jDua/iR07J8GGUKdN7MWGOth79V1yvzier3scQ6uDdXD09tYuG2E2XE2c
KuHhqgcOr3W5B7nx9azG21JW9UCW3pB+dW4aet8GjB77Uw9UgonvN+I0yH32
bjXibYC5dn2x53XTcLXkVrmpTANYcA1qnKuchpVRhzhrwwYY4Q/ZWIXPbzlN
XfNrUQ1Aylq+IvURX989VxGu1QgCFEPtj3enIW+SnhNt0ghHVGdcyj3w61dH
3yfYN4JITEJ7s/s0hO5qe/g5qBFmePe4Ei/h6x9kqZV0N0Intwf98HF8vaTb
h5H7TaDzoj69D38+CXPo8VMtJEK334a+3QYsCGLoApVIhHgp1QA5dRb4Pvz4
L36UCCE8J8+syLHAI+KGN7cgCbS8uHbZrmOBWd36u79dSNBxKaagtHwKBPer
/vdKtBlm6FWBXJpTELr6wpR2owWI6bfdPXmYEBQyxZcY0AJNNfWHiucYuB9a
NlrEtsBC5dD82DADPNS3n0TV+PqTVqJDRQzYlWcj2yTQCukBXP1X8ec/7vFp
iY8urTC0ZSNXWzkd6sykBc6KtoHSdtZagtUkiO8b2Xxbqg2KZR8nf9KfBEeB
VNnInW0QEU3Y8XbPJCw1KWv2ardBYC9H5dbVCVA21rV1vNwGDrvkPo6kTMCb
Y7ZfPPPbYH0yd4/lJA1sDsWeeGvVDvF8rZxxzuPweYvdmTzHduB3ZAprGI/D
7B/Zi11X28HqiaZF7v5xePUj/brEk3b4Hr3eyXqFCki9KOJDWjtoGTtLW0dS
QVGlZ+TbQjuMSVpuk0AUYMoRfNvjOqA9WyQ0eG0MDvl8uFXxqQO2b1r6oj42
Bv6dKq652R2Q99n1DVY7BpufG54OreyAAUXB3Jevx+AIw0vSZLIDyHG85B6J
MQgr6CuoONwJesAMtVAZBbVTyazc3k6wzH1IKoPh/3sfAGkDa47AQ4Nw7+5e
p7DN3eDfq1Q1rtALm3lZpVZy3WDSvYnPp6cHipK+b5VR7gZTEVtt0sseWGk8
3Jp5tBsceHjMsqfx6+SMoPF6NwSdyjG6XNwFoc0u0hurusGoX3U15kgHfFZK
/OV9swd+tGg/eaxKhJ4BYXO3+l7gdJux9jRJB8eHuuPcp/tBIyVTdv3RTlS1
9+DLqo2/QVF9JO9OHA3t3FRK+2Q0DIX1Wppt3bNIuvTaiY0vRiBWefmxbtcy
4lji/HJ7dBR0zm/6WOXLif09V2Zfs4MMrt32ebdHubB+TYdtOwIpUKdk0mf8
ng/ztBYWkR+ggl1FyJ9TXMKYRCT5wgZpGmgdfBD6H00EOxSwffNdeRrY7bvX
vGlaBLO6bdMxtosGa3FzI5//imDhZ1tNq9RpkLlQf7mNSxTjFyg18DeiQSqX
2xxVURRbfRahzHGXBgc4S80EHEUxspcBx0ojDdQlEuIF20Uxzv8el11rpYHe
lxu1y72imKxVkXd/Fw08G8YqR4dEMTvNffMlwzSQcZ0VSmSKYt3TEpMP/9Cg
0+CLeAOPGNZwhd3xV24C7qW6hE/oiWHZtslpsw9wHftMmEqmiGGaPQpLXL4T
4Gw4bNmYLob9NE87LRkwAfsjPETuZoth9cbZbP3XE/hzGD0sv1gMGztYqhP6
YQIe81wcpbWIYVvFe1uUGicgOJbZu3VZDPMnCi3YbZuEHeU9+a6nxTEeowiT
W7KTMCefKg7nxLGwqs3vA3dMwu5bHadFrMSxhBJpg4z9k7CL78aeZAdxrDB9
76uFY5Mgpr69x+22OMYIPCkbcX0SJMatet9GiWPWek+M6ssm4WpnnovKL3Fs
YJ4qVFk5CZHVgbkcg+KYc7ZZz8+6SZjUdjtOHBbHrm+Xcctpm4SATXW7T9PE
Mf91ZQFRlEn4aDSiOvVHHMuuWSp3EaCDQbCL/Q9RAqbp6xxkL0qHy8NaAryb
CVixVqPphS10cHj9KdZKgoBVp8UOnJKjA0knQ7VnOwH7FXxoSf0AHTZXERPu
KROwDWb3D6yzo4Ni5bYYueME7CXX75UlJzpUmtdzsA0JmBA6UT3nRodue9eB
QmMCJqlKsKB50sH/Y1Xb3jMEbL9ovmdLIB1kIi2XMi4SsPzGbYcagumgSq8H
rUsETDsgYK0ylA4WIx2VhfYE7PiceWhBDB1uktf9l3yZgNl0szPeZ9KBT1f0
BvcNAjYcevFO9Dc6FC2Fkk1uEjDXkxXabwvo0LHDzOXZLQLmWfSmIRCjg3c1
w2noHgELits/fq0Tj8djZ/xOXwLGbxGd7fqLDqNxqnFyfgTsLd/aPYffdJA3
OXBdzJ+AJTxq3mBBo0Po+TCP/mcE7Jv9DXntFTpoGuurr7wiYM4/pqWT8fdy
AeZV17ZQAibOf1eCi5sBUgM6r+LfELD7xd7C7SIM+O0+HC4YScB2Ca/yHdrC
AN7/ypwK3xGwXren3IlSDOj2seA8H43HL/5i9couBgTEVUd5xBEw+lW+pRZl
Bjzem/1wMh4/T0Xo/AF1Bvyi3+C3fU/AVj3eMdbpMeDCSOR2yWQCVtnwsS/W
nAEfWVlCQqkE7I7szu41awbQbW8F7v9MwBS9vrS52jFAzO6K6/E0PB+KufVq
7gwovKllcuoLATvoo1EdfYMBgg9V9PS+EjBaWwH6d5sBQyLvvRUyCNipJ2UF
DY8Z8PaJZh4xk4CtdOl/3x/AgCbZoPdhWQQsW7k6690LBijMp+QaZhMwh4CT
X5ZfM+CP3w4yG2fhvsZPThEMeG+fsv9tDgGrUDVLrothwPyxwpeKuQTs9vO2
eJVEBpC5VxgZOCv8toyOSGHAZJqA2a5vBKxTszd8MZ0BGabBqVE4PwuxDXXI
ZsALSwH6Is5ao7+Da/IYsPfM4c3nvhOw8UPOz/YWM0BFIFsmAeeYMIrf23IG
fEgWWOnD2Zjq/uhvFQOqLi+nCuQRsCVdhpddAwOf09vENXHOjLh5p6qZAW7X
CUfMcLabnPHY3ckAtC5s2yWcBY/evxr2iwF1t9Q+2eGMRS+6zv9mgETn5xZz
nG9NPXKyJTPA+WvcOx2c5U9w2FVMMGAHtZi5BeeO+IALu1gMcJn63jKOnydw
hsvyNf4ccDn1gEYGzgeMX56ZXcTZY1bIGWdqksCpi2sMcNBIsuPHOfrPG0O0
gQltV5liX/H4jUzFDXbwMuGxdOQeHZwXU6L1QoSYoMYwiUV4Pr8uSR5mizMh
ntBkfRBn23OJmtaSTBB+1GL3Ea8Hf7qcatl2JjhliKdw4HzzvNKu4D1MOM91
qTEKr69sZoY8az8TYklD8c14/ds598ucP8CE/OS0kEVcH5q5Bwhy+kzgWi+Z
qoTrh8JVLPz8BH5/F8tyZVxfUXa6/EwTJlz3m+lUSCdgC7zH1hefZ0LW7Otf
k7heRacEIyttmCB7NuF+yycCtretT5HowITaXW9T0lMImH30bcOhK0xYmk4O
P/SBgHl5H+mheTAhbeXBSVYSAXtjx+s+c4cJR7Fvt+ISCViVwsfgjb5M8Ixt
5WvG+2eAy0NSKIAJSZp+HlZ4f/2ZOJyx9QUTvOIVlDtiCJhSbhtxbzgTZIIn
33/B+zNUd52w+Wcm6L23SmnA+zt9OynZNoMJ3lu8dszh/V/BGavmmsuEhHMc
zaIhBGyuXtXiQQkT9sorPVB+jvvVeceoxGZ8v+37vVtxv9nhgaTof5iAKAeC
uq4RsCPnQrLmlpngF3DRGa4QsAua1kdWOaZg3Hb3vwQ33F+XphxE+KbgxQ/5
8xpOBGw6SCbl4PYpKLxj0N90noCVJj3eHXhyCtr87bM+6xKwbn/jktenp6Ah
K/q+8WECxnIlnIo+NwVLh+tjhg7g+lPOuv7VdgrMlaabKfsI2POigZzWm1Og
8n29xUVZAmbepqMlHTMFA2aOJ3s4CBivDl9F6fspCBLKb9m/Io5VfOo7dSll
CqaseLc8+CuOqT546BSfPQUS6zKwHqY4Jri98JVEzRQY20iGt+Pzq+G6+hhh
ZgpurV5rzs4Wx/y613n8+DsFm/4anVtLF8cO6bctWP6bAqOFan5IEcc+i3kK
RvKwYJ1KPP+raHEssCTrsOh2FpwqbzS2fSKO6fPsfiN4mgW9pE1xdafEsYVb
C5LZ51hQUf29nfuEOJbTX5dqas0C8dAdlVpHxDGZHLefr5xZwPRLSnVUFcdW
zn+i8j5kgcudZx/GxPB5nLJdj/szC4b32EQk9YhhHgKsus8ZLBBYGwmuw+f/
Tq9yc8NvLLDgv1MyWCeGRZrYuT8rZYFOEGR0Fopht9lxEes7WPBlR9pfepQY
tsf2qkxKLwvkh+5PBoaKYSPVh78Y/GZBwzrOfr4gMexsTG/50wkWdAuHR4/d
FcN4ONON5VgsaI5rsNS8Loaha16d2BwL4vvkZm5fFsPudxk6OC6xgCx1zD3J
Rgz73//jwNGy/pzic2LY/wAY7Oii
        "]]},
      Annotation[#, "Charting`Private`Tag$107440#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Xk4VXsXB3Bp0K1kCgk3lHKVTCkqHSmVikqEvBEJITR7SUqRrpIppSSl
EFFKZn11jefsbUjKzJn2OcepEClc5d3vH/vZz+d5fs9e+7fW+q2fpkeg3TFJ
CQmJNvr5/3sNQ0k8PT2E+TXrzng8LULgxLLoickhvHp26/R4RRFevjZcMTo2
BLV7CSVxbUUw0rHxEHweArehpad+ZjHWy13tItuHEPagduFej2JY8L6xUl4M
oUJ9t/qbpSWwu9aYa+w2hMP7bs+7dL8U55uvnvB+O4gHq5/ayydVoK1tvvid
+1f4a81OPnfuHdSrAhetV/sCv7qeW1+31eCNX81smV4xsk6fs3xcXQdTjQDD
zHYx3CpnKb5trENZm/Jh81Yx7sllq35or0OVuV+hX70YExOSGaLPdWDJyB9t
KBDjTF5vTpVCPdiv3aouR4kxXFSrre5Rj3lTkyHf9cWYLe/8a/dEPW6+fJIZ
oyuG95Ga2jDJBsges23V0hYjr+Lry6z5DVBsevTX/iViOGNvI0+9ARrpOzvy
Zomh0rJcf2pLA0y2JZt4dw5AtO6VemZ0A47cMBzujBhATrtd92MZJkIKE6Ia
wwYQphRwzVyZids9o2rvggeQPHjSv+VPJliri6yzAwZw7fSJ2j49JowbN2Sc
OzSAamnWcOpuJuYs3HZQwWgAo4GESkokE89vHazYwxFhcM/FJUdGmagrLraz
6BEh5GdD4PcJJjj9iweM20XIukwuvSTBgpJBt6JqI21z0zNh0iyEt7gFDpSI
0BVvulpmJQt2cse1ouJE0LsTWxvtxMJ4Qmg0GCJYnF8680khC0K1d+LtG0QI
DvW89ncZC58y59g0rRXBpSCj71gVC6/L4uV6/xLBfWsxd5JgIYCbdW9SQYQb
E1XWD7gs8AzbnpuIhPA839ReLk2gtVxFppIrxJ8PNnp/lidQZeV2cluvEAVm
5ptkFhNIcxabHGgVotTnSaKxFgGnyxIIqhAi5E6cxKAJgaaW1e9z44SIlNin
rOVCoOLQKWPjGCFU7l/vjncjkMsvvl0WKUT5t2+OY0cJRI9bHmKGCBHlOeZw
x5/AVg1nnsBTCGtnh8DtYQRKAiPHNM3o7+8ccLFOJZA1wXJ8ZiwEIzfx4vBD
AslXZMsM1ghhKyNF/p1B4PSd+xcZy4RI9B+qvptDYA0KpA5LC9F0xt5ApYRA
xsI+lbscAeZG9jOetBBIcGFImfUIkH/GrtH/A4GI7PTvnZ8E2J+kc0bnEwEP
y6PNqqQAVcoxX4K7CWidE119WERbVTItjCIgX219yqJAAKVg7wV9QgKSsrlu
nFwBUvyt9xuKCXCfndiw7JEA5q0y5i8HCTzuHRnKjBHg5IXwVwt/0vF17Xt3
RAlQFvVYPGuCjn/+DUt0SQCHeJeir5N0fLngp7rnBLjvoiZM/k3AzrUzgQgS
wPas70ZHCRKWuRsu+fsJ4Le1e8Y8SRKaVr8O5R8R4MvLgurts0nIJrju3Osi
gFPO4fyWOSQk+mEy7CCA1YLSgT1zSbCDI2SNdguQWjnPUG0+iZZa3q9WK3o/
3jtWBy4gUSVv9fm0hQBqelUHC6VJpD+XqntjIoD4nxFlRVkScRM+rw8aCFD+
ZeSBgRyJS9tZ6T91BdATlhtulicRlLgq9q62ANv7h1nmCiSOsG+EmmkIMF/S
xF1/EYl9eoM+XUsEuHxh1Rd5RRIWIXsPhioKkBd6/qiI9tJF8oaV8wRYX5E6
5qNMYqH76T9dZwuQ5lgxrbCYxO+8tvnT0xRaV71te0l7cNJk4uEk7WNW/gwV
En077ggsxihkG41VgnZT0vgHzhCFfQh6Z7iExFuO87sIMYVOU5eA27Tz15Tn
L6MobCUdK8S000LVUmv6KcRn/pFhqEoitiHs+rEuCuR3hSW+tC8q9p+b85HC
BE9FJYl2gIeFZ1YzBdVHb++8oO364tH+nSwKJs5Pb1bQtp2SZAzUULA1OzlS
Rnuztefqv0HBL6C2Mof2muRalVVlFOK0rYQxtNV5K6TIQgr1MYlerrQXGER/
939BYWHTAWMt2lMXBjjSORS8Vf6yaqf/9wtzV3P+Ewqce0WJYbR7lJ5X7H1I
ISz8oZIibfKodM5wCoVN36NqH9D5qHgZcCc+icKKFbJ3lWk//9V81egWBQvL
vsgIOp+puwxPfbhO4dbZpKg+Ov/L5+9itVylkP56oZwp7VzCQ6spnEKufWXc
VSUSRjdCQ4gQCuymT7+r6fqV7UlqbThL4eDdePsfdL0tpfN064IoGKxcHqNK
m9VYG1HtR+HOt5r7xnR/dNr+NHrrTseTm2+wie6nIzKyMeX/oXDsgHrmarrf
RM06vBJHCg7PlLtlZEiM7zuU+NqGgqRvmlc+3a9KBypHs80oBOgOWO2Wouun
8Gl35lq6XuMGYy30edBuG8zI0KfwnxuL9KxnkVjroGGfpk3H645WlZtBws7x
SmGiHJ2POaomv+nz2KWcuiB+AYXGARM/5XEC7h2FnrFSFEq2po9q/SAQ5CxY
dP0XH8NG5mzZEQK3XKzPXhzgI1d8w3fHAAElNY/GUD4fTv6Lz44I6PnZE6L9
334+jipm3b/FJ5B/+PnH0x/5UC/K0kzvJ0C6yaw7/o6Pf9VXHVD5SMBeQyfW
q4KPE3U14fatBLrZFoKjxXzY7lBMuNxMQOx+Ktk1j495uYV7CpgE5np+/HEg
hQ8pAcfFq5JA3PJB2/1JfEyYrxzXLyOgTM3Jsr3FR/DS9q2fiwis8DJ1tI7k
o8BxX9O6lwSsfO4Xbz7JBzP6wTeNx/Q88ncP/suaD+M9uy5vvEKgL9Y1tWwr
HwpKcpbVFwlsKHCp2r2Zjx/T0XlmIQRGxhzmBhjzoZUw6D4SROcrfNfdV+p8
PNm2xTbhMAGLBOOSjSM85ERdf3zVmEBqoUEP+YW228D0iB6B8U96Eq5CHrRb
r4Tt1SHwUlVn56UeHvo4rKJWNQJLn6p11NTxMGphpz9jNoHfxbPHbe7zsOox
6+mP9ywc6pJU67/NQ4amy7glfd8VTU0zguJ4mF34gn2hhr7/tkxeS4jkYSxQ
al9pEQu9rEHl9kAefnRoFh+4x0JFb/v6I9t4mFS4tkjKlYXQmTnnT33l4vB+
0+BV7UwEpLjOOSLiIvJzeFphExMe+gq3bXhczGS41q+uY2KXy4VXOp1czFn6
Zpa4kInFr22/9tVw4fNnps+deCYKPUY9dqdyUfnd+3nxDiYG322yXb6bi+0t
M7p6MhvAdfzWI7edi1SqKd80tQEfvz71m7bgIkGN9yQivgEVKjLXu9Zx4TVV
1MEObUDMSU51nBaXnuuClNq9DdDRjDL7NcGB9LwNzrrf6+F+qXn5p2wO5Bu2
Rejr1+Ng58PNvRkc3Hcq0L6iVY9dRkFO/DQOLOaur6lRrMdavuyNkSQOomfO
7pCbqsPcnXajCy9zYKQxmN5aX4d8mY/vdjhzYPhknljkUod/07pcS//gYMpn
idjsXC2Gf+YEV83iQNbwhJKFdy34+0IT6qfZWC6deNzYqRZNkmp1H8fYGGY0
H+eY1eKx12G9EQ4bbtv3LD40VYOda9j/6paxUR0d4FYSVoPbldTdVF822s/O
WDl5shquwfcurj/GxrrMXB11t2roGO/1bHVjw3iT17TOnmqUZZfoz3Vg49oK
nXn/alejLzGm7jSDDcW2h1nXOv7BSl/D77sWsTF589jdjWb/4JTeZNpIaD9S
HCJmfBBVYVbGUV+dk/3waY3fIPGhCsmLG01cvfrxXjPWTLGyCuUz00nmvn4o
1fl4/4ij13dZTaZr96NopvftpPX0+qh4h73NfchKVXt0UgIo69dZ8FyrDz9H
w4WsX+W4sGlG3r3FfThoaWFi01wO85ROm+sL+8Bfa3ohI70cVXZ/3/Ka7IVV
VeVbwrIc9bWf5TVbe/HP1cykPyLL0Jabr5J8uRe6x1cGr5lRisHza1deYvdA
syYXFe1vsEzWwtI+rRus5ubKlrE8xBpwQnwTu2H/IoXcEJxHz8uI15eiu/Hj
xv49JpPPQcbXLM871Q2bQiv57qlcnFGwlpqzoxtPWpy41NQz1CnZkcVDXShf
OcrrFD6Fr7rnQdUtXZipES6IabmHV7rRvlxeB050bVjz4/0VxtL3R0pXdXZg
5ukQ526DKMaN82ZzzzZ1oHZ8wjUuPppxrEb8VKq0AzlxyfP9nW4yFrvacFbH
dsBrWe76qbBERli8vNN50w4Uby+t8rd5wNg5nmq14GY7GOrSZ9ubshn9tQUa
69Z9gnF2vDh2WzGj40u2VYPbRwTFbystvPmW8T9z9Yfb
        "]], 
       LineBox[CompressedData["
1:eJwtl3k0VesfxkmlyFCpKIpckeka4t5KPbdbhCgaZLhxCg1IuHWNmS/KUKSi
pISKhIzHuM1knhMRTqQ6nLM3DRR++671+2Ovd33W+6699vv9Ps/3WVvmzKWj
9kt4eHga6Oe/tbOM137UsIco7st/Xq9PYLVvmrYqbwfhHfA41Li5E8raHOXU
6WaiRef1a1O1fgQdmGwv8qgn7hq1mQ3pjWDd8cybFhuqiAuTQ7uHbMeQ87VW
pOGXYuKazcuJvWIfkTowFvkxOJP4rK7qlE2w0e+z/uEDzUzi2WXTn/82syG8
+WC26egLIsXgtN7xN2z8w3jWWYQXBG9x/mg/xYbemMOG63PPCa+tu7VuyE1i
YorzSNEljdAO4hOIuDYJxSVzuY5WKYSLwHhe7KEpWCcr1m4RSCH6NM6ZXDo5
hZgDVr1dzGTCxNHYc5/tFOZCSr/vXp9MyEoyjZu9ptAk6LdnVUcSEfpZZM4r
bQp9iiuiLCITCb4cse07lnFwylQyb8A2lrCya93anc8Be/rLzis1t4jzpka2
5hUc+NxpI4TlbhFfzB/adTVykDAQ2LRvPJoI0rcJefGOg7ymztojHVGEqskf
Tz2WcpE14yQ70R9MlF+OiH+tzIV/t0L3puo9hGaTsCrLkwtlkUGHZSq/YHuI
8KswXy56ycCHot/1cXANS3t7EBfet/QaHXcw4DJ+0tMygotq6WuhD0TdwPaM
lPJN5OLcOcWzBQuBGFIQXVpXyUWRgHdP1ZVbEA3IMdm5lMQjlXVdWVtjsaYw
NS5kBYkQk6z2hLZYbLwwKdOyisTxO6ymf7bfgcKdkRHddSS4MkZVioNxsDqr
5jkmR2LbTqmsmAOJSHFZItanS2LVX4UZfmQinllYNBUYkJj2NU13SnwInTWP
L0QZk2CMVh2V9XmERT2XAwonSKgqfDOe70kCz+qu7mV2JF7l2hx4eS0F0Uyj
S7b+JHRqlavlh1MgH/mW0xJEIrt3dl+idiq6gn/8VAslcWf2FsJZqTijcfjJ
cCQJOzTsst/zFA59EnfH7pFYbFRTlyDTkDHyftE/l4Tb2/msGwfTwegPTHYt
IDE+2ai6PDEdhQbGnpZFJJpF7ZWnDZ9DaaQ1RYwgcc8sXr4lJQPOuuanFBtJ
aI3ybg4wz0LL5c22vUP09xefJNXSstAw+JZ38whdj5gXNcOzWTjbci7EmkVC
MClD65FxNgRVQlQbP5D4aWL+dnEqG1x7C69DXBLfdfjqTm54iVZvbp0FRWJG
ITMrCy/hSMZ3M2ZIsHmWBtncfIlzE3XSFt9JDGZnbSfUc3Dy6vwPcpFEf4Ll
2g2WOeBZmdBey0uhN2zZvHNgDv5tidkXw0ehlWHVvrkrB+mTSuNi/BTKRfnd
fS/n4uCSgKIKIQoPXaxr9hTmYaWOZXCmBIWEv1Zm3n6Xh6XCsd9WbqIQp593
d5I/H2JNL8tOSVK4KS3g+MA8HwvUbrWpzRT82/NXz8/m473rokqOLAWfUsaP
41sLcFaspbDtFwoezwTHMgwLIOFdc2lMjoKL/2nmX/cLkBzQdXJWnsJpNSGb
Up1CyHweD61SomAtydQXsy+EmLz7kiRlCpYrbDWcIgtxjMc9xF2FwtFh5jLJ
oUIYu5+PW/UrhcPNtpy/lzNhFK4k1USzIVP4TZMqE0rbeeMD1Cj8edMuw9uP
iZWcENtedQp7fUTudD1l4njkirTLGhR2nS/2U2qn9x+jS0CTgvZx+wtB35kw
nogdjKNZ4w/RYwPSRTiwybV68w4KqsolOpoGRRD5quOfQLOi+Nlt4a5F6NM8
LbJGi8K2patFWfFFKLuh5+RHsyy3ZHZXVRFYNSdi3tPs07I/eGayCKpnasb1
tel+pTcJZ0oUI4oxcC2ZZrWwY/HndIvRE1B1ZYbm6/YDsjKuxegLTUrZ/RuF
93/aZvYnFOPCjkeinjTvkf78e2xDMWwMxnMzaL4z71ZtPFOMa2H3w3pp5vbP
GfNLl6A090PY19/+q09gX8WhErRFUJmrfqeQclvA1su9BDE9rBlxmhfcYiY1
k0vw9gjr+CaaT5ps9JhsLYFXmfirtTRnqzxe8nSuBPrDzw8toVlAUDGSsa0U
671qesfp99tNvNyw8WgpCoyu21XSXF6783HX1VIsSMhxomkWT65UjkwrRXly
qYs5zW7+BoV6PaVof+7BEqO5+VTHPh7eMiyZ8d9XT99fbrdFc5FyGRT3zgdf
otlXfMTsb/MySBmteyZEc9+X8yPKwWVIf8dNSaLrq9HFdRzPorm48IoSzRHZ
Hl8fDpRhMjFa7Dndr/FIngAL/nIYHn7iLU3zH45hgms1yxF9XSo1nO73tFyc
dMj1cqi/7JTfT+vDiE/6OQrKobaFceUGrZ8nw0+1ZkfK4SDDudhB68vyfqGh
004C/R+z9bVp/eV5oEfOnkCJpuYWC1UKwmb1Nu9uEpCRMLvmSuu3UvT15aMT
BN6USfIG0XoXcs9aXCZQgXYeUT4fRQrF9tM1o1sq8HD8zwCH7RTE9nsfSThU
gdWPlw/I036pVCfEPE9XwPLHePpX2k/O0nz9J9wr0LSQ+q6Y9lvD/HU7keQK
XBS0YchupeDNvOcZOFeBN87rN12m/avwdGivjWglPI10nSc3Uui+vXWpzrZK
DI7e/GZF+1/17/SoL6aV0NkndVt8PYVRleLk82mV8Ptmay4iQuGG5MJ5XaIS
1q0dTHV6fugI/qm6tacSCU73pA0Eaf1NvGIO8FQhYvnAlBk9bwyS37QcNq/C
YZbb6OQCnR//Zp6tvViF+tE5/aqfJOLOBy3uDqqCQmsQJ3yOxISKivr2zCrY
6XqOL3whEcb0j+VbWo2/CfGRM2wSavdPqHhJVKNAvjVj+COJvquKdVzVanhr
6UUco+erwv7ub4MW1TDZbOMiPkqioUXeiplVjTeqlhqbX5Nwyf45rVpbjdJm
Q94D3STEb3VEpPZXg3hFFFp3kDhv7l0es6wGo2Ubat2aSKxgtcpctKrBwbjU
uv/y4OD3KxMy/LUIP3MhancKial+w4A4yVrs65zd8+IRnUdlWzaKaNRCXyzG
Z+0DOl8CXx36+VctpNjFN8tu0/kqJJXVm1MLt5m1XqEhJOq21lwJt65DQ95a
r0l7ErrGa/i+5NdjyqrZY2ATiajTK8nZV/Ww179lpLSBvu8VnncLg/UoeREf
47KGhEPiVPGK5Q3ouOtqO0DndxSn0U3SrAEOA0/uqX/hoi86aHT/1wZoZE65
vm3iwqF3pjJGuxEHyF8tV7lykfvpc9Zdw0ZI3RCq4XXk4ufC6IME60acMbop
yrbjIkq+w/NJSCOW9UfjoTl93uOFenEvva855O4H+vzGs0kj/zTB2cnWTlaQ
ixs2r/3VCpsx08IMydXkIIStg/HmZjSGHn8VIMuBr+fj+fujzfj0tTF2x1oO
nG9d9OIXbkF9hm/cQWoKh+v5Lg/ZtWD/Vf81W7OmIPyr2rmINa0Qfj/WnCg7
haiFMOOJi214ZD2769w3NkLCpwQTg9ogUuPkmM1i0/PheOOx+DZ8SHApeNvG
hrPGloNETRt8GQznoadsyOdaSjcJtSNdy0buXzM2+D9wJR7btaPCsPP5iczP
qD8sJWSypgMx+Ufmcg5+gpjqyHo3yQ50f2z/2Kf+CQyhVOnYbR34ws11er/p
E+aalHf07epA1zSDP4PzEcoGOlYM2w4cUUsK/3n7I27ut0pzyevAzidC6fcG
J2D5e7xutFknPXd/XX3d/AOebDh1JJfRCdbO5DMm+IDpr9IWPQ6d0I8Olvoh
9wER+c+cJPw6EdFjmj5PjYPQYN5KetoJdfHTmwrCx/GLyuuRl987wf8sVYtd
OIZJmXW+nfe6EM/LkFL+wcLv3kmulSldmPO/VLMwxEJgt4p9dmYXuhS0GvOr
WFgfqmcUVdUF56Lm1vZrLOxlu280/NSFdcei64rWs3CjoL+gcmc3zIRjq48o
jUL90CNOdl83dvUmRBzGMHxSlFkPR7uhJJgpmLBlGHXzzN4odjcIg9Ck+MV3
sMzuKHPi6YFpQtPabL93CFzHF6Gg0IPXb7qDFa4O4f//GyC3BexA3CD+B3HJ
Xfs=
        "]], LineBox[CompressedData["
1:eJwVlnk4ldsXxxEpY8c57ymVMYpSXJcMDatUqChDrikpUUSSXFOTKaUyRGVK
UV1xlaFcIcMyFSpTppAhxXHOe85JUTqJ3/v7Yz/7+TzP3s+z13ev9V1Lxe2U
jYeIkJDQS2r9f+8lc3Y1unZBhq11pqT0B/g7YN2ReGY3bDSSaKqb6wGmBL/i
L5VuWL/2i/Ha/B4ovfd0maJWN0TSd8rIu/TAbLNR2+Pt3bB2RHLHjbJuiFAx
h2afbjg7Pt007dMFcS3uCmJ13fApSTxgsLIDsjXuvg891QOqWhFD+4hm6BlY
YnOssRdWDIbf950Jhj3XPHoDOnrh+eTZDdbpC6orjMoPRQ70Ai0hLeenc0h1
5u2j3plfekHtptLwKuGkak+rkqi+Ze+BEaskMr87u1pQ5/x8n9d7CPbveShY
V1q9Mi97pYFEH5ywfTMve7Op+nDI5nFxi34483ulo8Hq/uq6dQZX68QGIagt
93LpO1716sUVrIfmw2C936dhAcxUK1R47xK7MgLGYaMiWXlCKCQQyfX/+BEC
9xSeeZovhj+sKw81qH8C10ey9V/NJLBfz3WFetRnuNeeQHMXlkU/+yU01YEx
kJX9UXIpjYZuOdpp6iNjQI4u+NGdRUO7n/tWaY6NwZ3j4dOrcmlonB6rr/Nl
DKzEU1cUPaeh2JCE01bRcXgWUn89uZOGacfEHjhpjcOOcifxG9JyWP+3QC/p
3Dg8XfPzIvOcHJa8lK+6HT4OeZEGFd0Rcpi71MgsLXocNEhj9cQYOYwrC3LM
ShgHT19nb8FtOXT8PXW+4OE4dC6ONU8okkNeFP/l6zfj4KUlvPftZzmUv/nJ
QVSBBb4ZWYk+e+hoGKnEDFBlgfzvTbukren4l7/Tu9E1LFhr9v7eI3s6Jlq1
WdbpsqCMPqbf5E5HKekKkwhzFnAHmk2qL9Bx7lKSllAAC/r+eff6dBEdPwWZ
CM02s0Cl7u9fr2gMFDl+vtK7jQXmi0X9EpcyUPmv0tD+LhakCo902Ckw0EVv
w3T5MAsaw60sXmkwsPuLPDvkOwu0Za94HwAGNnlNvvuhMgHt77zN5LwZmO+c
+ehb8AQ4lKR2fatgoF7PKsHCCxOgc1jl+IUaBr6weWSxPHIC1Ja1rBd5ycDG
3fmT22In4LHiM7PpFgaOGlRsisuaAOez/poxwwxcxuht1WieADuluYijIgTe
jXdW3dw6ATsd1+lcXEiguuRQwP7OCTCw4b9MkiBQV2RMPnBwAqS59ncfyRFo
+eXb0bqvE7C/wt8vRJXAiDeyMy4r2JDkszCsZhuBi8yT9pxWZkPjjql4r50E
xtcxM6LU2dB8lb1FwpzAO+UKJnnabPijU+qI/n4Cn+esuz6zgw1Re/ig60Ig
GWWmnOTDhu1+R7fWBhF4Rui1f/ZpNrRNas1MhhIoOLuvoSyQDTNJfqLLLxAo
fsbuxHAYGyA7Qtg2ikDVI0eL199ig8RMymLPBALtt1w0b6xkg85sg/byRwQO
TI/J1tayITR3m1N1LoFu+ft6Xryi7h/U6z/4mEAfJcVjBe1sKB4obwkrouIT
roy8/ZkNRGLhvPcLKr5ytb0JbDa4FbseeVdJYKz/dbmrfDaITvKndZHAlFHn
rPM/2TBfN/5PXz2B+Q2CKndpDszKZz18/ZZAvQtu0YfkOFDh0KA81Upg2cZm
S4elHOh5qfuY0UFg/aPUgb0qHIjZpDC0pZvA9zGGAl19Dji03THUGSRQdF+g
vrALB0Ymc7oSSAKvLhycFRzhwMHDITqGPAJlq3fVTx3jgKLGUdsePoHLdQhb
lh8Hat+WDM1+JVBbrtivNYoDy1803/o0Q2Bx8wrDphgOtGzuKN4tINA4MnK+
No46r+UcnP2LwJ1TNnElKRy4dUS933SOQKfuybyMxxx44imepLqAicNxjmeS
izig8k+0405RJnqY1RjfKOFAqzs/00WMiX6lCU1RyIHvQUWZgeJM/O43k3Ch
gQP/tqlZBS5i4lnNww7BzRxY/Pw/35OLmRidpj3u3ckBIQP38e2STJSyTc73
eE/p05VuqCTFxBuS83+7DnLgo5T6+DeK75xrEbVlUXpZHt4TKcNEFf2Nbyy4
HDh+UOv7FlkmZnMzkky/cqBb+gKXT3HRoZOqxrMc+OQ29tiIxkS3/74oZAqT
UFt4m/WBYoZUgPxCcRIKQ0tbg+SY2OD2g+EjRcIj9YyD4nQmBpaFLumgkdDN
vB1zneI1S+YkDZeSIPRsykqcwcTeY+Hid1eSoOQq8SSI4phK0QWiqiTsCtNI
+UCxMePKnNcaEqzOZkoZEUzknJAUtGqRYPdfnehViu/UxE3r65KgkzQa2kax
5TK5yXQDEiZDrL2kmEyc871FCm8hIbTlUPMWigsalrGOm5AwOH0wxZ3iwyvv
jL41I4F/IONtGMW0M0pDf1pS8Vmddk+kuLbpfl+qDQku+9bap1J8Rnl197w9
CdeeymfeolgtKLfdw4WEcx8TjC5T3PVW6+1rNxKmTEYUfCmOVits/MOThFnD
g2Z7KDY4+2d98kkSnmjaFq6gmNVeUv3bn9InZKntR+r9aRrGL44GkxATJ9C8
S/Hei5UlTedJyHpjqb2f4tmubU+1I0kwSnVzmab0ydeqf3LrCgl/OF7NT6DY
NdIs91csCfGnmQoqFC/pa354JIkECzOHB9mU/jU6+zJfpZDgBFmbVCj2v9ye
vv4uCY+rTIYTqP/r1OtN/JlDwuLxToP91P9euuYc55pPsZPnUMYSJm78OBjT
8IwEYKWeG6HyIyX+c9iNKhJE2SvDzah82j3mee5HHQkX19A+eEkzUbCZDHJp
IkGNMbE0nMo/F/ZXX81OEjbFxdDjJJgosz3wRPx7Eno/TzVGUvmMyT89pgdJ
OBAWY+pL5bvqLiGXmgkSvtECIlUWMnHsnvRex3kSFJ/pewgJMzH5e4JptSgX
dq/vqEifJ9DckmGiLsGF9XKrCtZR9fevYLnRJIMLZMEaS02qPk/ZaayJWcuF
7aYPWtOmCFR+nKfK16bOqzS79FH13iGirWinz4XQOB1HmUnKfwr1CZVtXAgu
Fg635RI4I7FjQZkdF2IM70xbfyZQjidzs9aJC4pb9T87jBK4rr1P7Y0rF7T3
tqbajRB4KNnfdMiLC+li8aDzgcC6VfdjxC5w4TfO/PLqpPx1oe9y2UguvHtl
l6hI+dn3CaO8ZVe4wJ6ob2yk/E6jsP3NukQuqEm4LZhrJjBus/ASm2wu/Lxo
u4FD+WeO0ttM5zwurFzze4dFFYE1Iql/eBRyqXmnqfM+5b9TjTq2weVc+Fxj
Z6dTQvmR3eHbd1u4sPTUpNWbf6n+5Vu9kvOdC3OXl2qIJhK41frak6lfXLhh
OdVQHkegg5791jkhHiifYN46do3yTwHPlSbJg0O6z4ozqP7xJVrxgYESD7Lq
JYJjAgmsuHdeM8qMBzGKS8RsHQjsjthdHmvBg50XTWKdDhDI9yD2JlvzoP/Q
wOxfVlT/0Xri868zD9LVWi9uoPrd5dKBgrZTPLgU75Nkb0CgTfumjQopPNCn
eYzH0gmU2CRZU5HBg6+G90bsZKh4H/btPfiAB0UZ7nmyiwnUCQ45kp7Pg/u/
hpMc5hgoo/T8unwDDyTpraLAouYFH91R4iv1fuGfrxzKGBjWLez73w8ejH8w
KTV+xkDDbe0zB37zwMDbnibzhIHZdD+Zm4v4kBKg8+lKJgOjyp8YySnx4YRl
u0NLNAO3LdJMkLHgwzZP06FEKwbOnJ5Znm/NByPdZMcruxlY0P/qH0t7PgQp
f+3yNWGgYsGxF9fd+BBtynwho8fAWbuHYxIhfBiuNY1MZTLw+QOlLeLZfEho
QZ+uXjr6SvNfZefx4U6VrFhvGx1XB1XZmBbxwds0x/B1Ix1v7nHxvFTBB2WB
mENkKR39J9OSFrzjg+vs/TqjZDqudT6h+KCXD/eKT0ZgHB1H6o1yTQb54Fel
kmsQTUerlN6q8Ak+nHpwi/EjgI6LRHJ2q/D5oHbyvAX40LHaO6gTp/ig6XG3
I+goHQO7TF0PC/jQG3E9M9OJjhuAyZ6f54N9ZX9BGTUf/g/SXRR3
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$107440#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, E^(-2) Cos[4]}, {
        Rational[-1, 3], E^Rational[-2, 3] Cos[
          Rational[4, 3]]}, {
        Rational[1, 3], E^Rational[2, 3] Cos[
          Rational[4, 3]]}, {
       1, E^2 Cos[4]}}, {{-1, -0.08846104456538201}, {-0.3333333333333333, 
       0.12077499717343901`}, {0.3333333333333333, 0.4581802292573271}, {
       1, -4.829809383269385}}]]},
  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, 1}, {-5.522069322545204, 1.1386979404387523`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.7969797236469393`*^9, 3.796979778515458*^9, 3.796980179062237*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"bd686118-31fa-4d0b-93ea-8b9f14cb076a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"hpi", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.796979976911717*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"92e1d9ab-ef1b-4566-bab3-d4b6c6c84e14"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwtmnk4VP/7/wkzVCilbMmWbWQnlF6HtKJsIS20aZM2USKSKEWSvKXsa0iy
RMh9su+E7OvMYCwzQ5S1/M7nd33nj5nrcc3cc+7leT9fZ65rpM/dsLq4hoOD
w4h4+t+rKtoysbrKhods8b2PK6lwY1H26eISG6iF/Ouda6iQnashP/ubDRZx
5y8Y1VNBU9H83OgkwR5t74ZbqLBro39PQycbFnOHPat7qYDRZurefmJDU9Op
BNlpKjyKXr38Op14/4SUwYtfVCiz4ycHJ7OhPeP90tQcFUwaFPf5vmND4Ix1
f8QiFQ7nOxY7B7KB/0DTw+draGAV2Jih5ciG3G31Pb+EaPDaqPfwTgc23ND7
IN27mQbty4wx+eNsSNsWrVa8hQa2N7nlxEzZ8Nnh/NNzYjQ4eWL3e45dbFCX
Kfczl6bB+02HDZY02NAZkWo3K0ODgUbbrlkVNsj2UMtC5WjgZHx785gMGxZ+
c5nkKNDgAuXDi0YBNvTpvjzwcicNkke+KFfzseFMSpXsjCoNRmMranBuNuRl
pTsfUafBlc1D3HlLLAhaVeahadIgvYmZ8PE3Cz7FxNvIaNNg6ukyljrNgkdB
92fsdWjg+neLd9QoC0jbyMsZu2jwqUBOPHyYBV0TUSdr9GgwfUvza3AfC1Qd
zGZ69Wlwe9T8t28rC17K1SUydtPAo9n/+qVSFlBTYh78h2jwYtK9c66QBWGB
dy4+xGiQQL5i5JfLgoUEU9zBiAYNyFw4Oo0FBzIM0meNaUA9iXyUE1lgfY2l
lL2PBvMeGuMF0UT+WwaXz5rQQCZb+FtrGAvatYo9kvfTQK+BrOAUzAI+SVOh
XQdoYM5YDGUGsoDFdBr6RvA57qklTz8WbHOx7NE/SIN7UgMXeL1Z4HXj9kI6
wSF7WpreeLDgIlVMa+MhGiTal+nJ3mbBj+oEPxeCC93yErJdiPyx84MlBDeF
pqzfe4kFD0O/GK05TAN6ZqR7/VkWpMsuxO8heLEmaMj+FAsSXvsvXCNYYMTr
yKgtC5IzvxqGEizHeSPvjiULxm//ufKBYINtZyU5zYj+Kry7W0DwMX3rpyEH
WGB5jO9EEcEXju//JW7EAs78xPU5BHve2nXqw24WRNxqehpDcGiwUpWuLgtk
plmVPgQnfxBXr1BngePstZLjBBdV8kdZUljA9e7jBSmCW4ZXuQZ3sEDyyraC
QaKe0b8z112kWOByUD7zNcHLovTORTFCHy+09+wheINuh1GgMAtE1nxx7Cb6
JW9Vk7F5AwtiGaKC1wje41oknLCWBc7/WoxniH5bBmX6qPGwQMXffPYawc4p
MeMlq0xIM+YS7SXm5VUWan1kiQlrQi9l7iU4bMDvW+ccE/Ycn0mOIOabuuSm
cJHNhKRNov+oxPxbNU8s+9CZ4P9OJdOe0AfjqOlF/kEmmIVtnH1E6OfvVcPm
qG4mdI0FeMYS+lJMlE7Mb2KCyHuFnQV7aWAIm/j31TKhrPLE4c+GxP728ni0
lDNBna30NHYPDbw3TRyZLGSCy6nKY/YGRD5qfXn3cplQ8jW5VobQd5ppkyQp
iwl/bY4eGib2ofVxzi+pRCbs/6Wra0DsCyM26VRWNBNiBN5FtGsR+RRHVO2O
ZEJlmuDAOWLfFOc8o2yDmVC4HMh9Uo0Gezdc56YHMsH4MbRXEPtrreLoesuP
Cec1brjKqNDg4YV9xi88mCDAmz9UqEj4Sfu6ie9nmcCilP2yJPzi0YX80oxT
TMhKFxB+sJ0GqnNnXr+xY4LDYvyZt9to8HRTzp4r5kQ+XU3H8kWJ+q3sX27Q
Z8Jb0irX1Y00mBjmvLCkxYTYj1pFuwVpEHkrQ4+uStQrh11ew0+DX6H/hgvk
mHBo+Ui4Ky8NUpqTtB03MCHqzv3A7/+oYO14lO/wOiZ4SX22M1ihAgd7vl+T
RMxnf9V0KuGXDgKmgaSVKTiyW935LOGnguYz3R/HpsBqkLvYbJwK9+oMfVZK
p8An/tbyKuHXOxzGrEe/TkHcRbP4skYqtI6HKrbkTcHnky9z79dRQYWP/iMx
fQpunn5AqiynwvDBIDnTiCm4YJFW1ZxPhSOVHbVvr09B9sf6b9n/UWHexjfm
8eUpmPth6FfwmgpJdKU7189Pgfxwj33OSyqscnlLGJ2YAuXPDvL+gVTIM5a9
wTCZgtt8Z1P/c6fCNvzG5l0SU/Dt98Nb962o0CCk42awdQq6xehxHeZU8Ly4
1GYoNAWVWt3cioep0LH2yWsT3ilw8t1um4qoEHo8SshqbhKm1M6HblWhAtdk
xYbrDZOQvyf539c1VMgxDLp5s3oSaE4fxOz/DoNT6LGWO2WT0FUrLT4xPwwl
Oj0vPQsnQU+/Jn98ahjcfdkCT5Mm4VHIQo1txzCMC4vxJ3pNQtx4iyI9ZRgi
Lw+6pHhMgnKqp0lp3DAcKE5q+HB7EtrVzeefRw1DgpPai+zLk/Av2k9wTcgw
nMowWVdqMwln/nMPsHcbhmbsBl+3yiTIWm9/kL53GPKvVfAI9k+A280PL8tq
h0BPylUjpXMCfOOWDM58H4Ki9q2nDVsngHf3TNxE4RDghtfyrlVPgElZS8DP
1CGoExQ6X/OZiPfyk571H4KhXEf8UcAEBOS39R3aMwRrV5Y859QmoLjTNOnO
3kEIzk5Kea48AY81zotXKg3ChotHW2V2TEB6o0DJn82DINwUr2QpNgEl999Y
L00MgFTcoa6P3BNA/y3c8ujNAOiYROhc6h6HnEc59c/o/eD0QmO6228cTDdg
BXuv9oFnXlhAo/c4JJR9k6ZY98GbvlmJ7/fG4XJfQPfS7j6oU/lyOM11HDY8
Kdxiwt8HWo0Gie4O4yD1ilPIO6sXSAImtps0x2GfxsFHjyd7IPOlbYnZMAOe
COUJFx7rhqqCAiusjwED4mG6a3S6YXhQZFyrkwFr/fBRVbFu2KLeKyzeyADN
bpUhNXoX+LQ43hgvZMAXjcjUZvcusNp4RSYglAH/Delr+EV0wkLYg6eAGKDg
TOsPg58wJvF94oABA+RtLZQjY35CRwrJvEmbAUtDvPqe3j8ht+jVxn4lBtgY
3Q5qN/gJrtTUqKVNDLBNCfYazm0HmkZ7pg5jDAzC/7bax7ZBU4vKj4zQMWjO
hviEkz8gUWBANHJ4FC6vnK8Xbq2BsJOIrN83CprOGxt/+tSAX1rcXHfHKMh3
dH+y2FkD54zPN4s3jAKrBhP1CKwGGXeGf+yXUTDTexcYoFcFCf2/2CnPR6Hj
bGF+dnA5xGWSq/J1RkHORsLuMW8JvD+icbvt2QhImcXUl4m9Aj+Xs/eUDtNB
ve2F47efVegBV7rHbSYVqBeMGdUTPeisb7NcR9ow9CzsKx57PILefBuJfH91
CKREemIC1rNQ0aDi+kyZAThEOa8RwZhFshswY5uYXpgw286sf7OAcpSfXqXS
uuBfrvgzydi/aLDys5Subgeo5HrxelI4seP///ET+i/ZOWUOcmIjKm804Usb
ZNZWPaFSuDDlh8ksRkYb5LwYvLmqxYW5NuenC8W3gUJl488te7iwhVsdMs7P
24BzR8SkthkXtrZg6yZ+pzaQl99zcqcLF6ZuFDXrwNcG25mrI+QMLuzB8di8
PydboVyIm6Qox43hKZ9uSlm2QoXHpaLHFG6MewFUjhxohela984uTW4sJGoo
KVq9FQRODyjeMOLG4gal35jwtML1O0Y6pme4saorSXfDsn6A1h9ty68R3NjG
hx90VTl/QEfhzq3qa3iwgC+KNRvmW4D/0kS7Pi8PtsRKPTE71QLauyYH9wjw
YFTHFK/Crha4fagYVxXjwXKMEsuMs1sgK9WRimvwYFY80UftHFtgT6/GoUhH
HkxBVLqR40EzKClXegzl82AbgrZPVzo3Q8bA4288xTzYwtK2Tc+tmmFI9IGz
LM6D1fSJnRBWboZx5suKg3U82OW4zSNK3U1gWBdM1RrgwdIVeP9a7WqCI2Kb
d77mJmEqumyV5NkGuH319gYDUxLmrOrj87W/AfgzAp/mHyNhsfKCrY3VDZCT
wF6QtyFhQlvVPP68awBWxff3k6dI2Py86/eDJg0g8Ct8dOk6CSv7yjo+EV4P
yY89NZVCSNjK54dp/x7WA63oR/HqKxKmky6wLHSlHlrFribXvyFhaVGqcbsN
68HztNmdfdEkLPiB68SLkToQu2HK/pxBwuwNWQ/VdOvgwLLxJr8qEham8/DH
Pqk6sDehKKfXkrD6nQJy9mvrwHJ4kbe6gYTtlVSt9R2ohUfZGgsDrSRMdvX6
ptaAWlD0dA4LGCBhp+b/Xhy9WQsXl3v7rYdJWAQ7uHDJoRa2m61NFqaTMN6h
j6dl1WqBR/ahr/s4CWPhzFS3zhoQKTY9mzlLwhS+ei89/V4DA5aCvhJ/SJjT
Z37z6IwaqNW93uS7QMLa4nf+qiT2uDWO3bbjLwkr9Lu+Z6tiDXBUszyGeMjY
L8+/IRShGlAcPss3QyZjlDvBw2ilGgKcrz38zUfGYs5/DLjcUg0Cu44wu/nJ
2GMTZsvXe9Xg2xzRLihMxsoOTR3TPl8NtjVapV+2kDEO88mmLPNqILtb5FiK
kDGv4+MNiTLVsEdPPeK8OBkrOsEwleSvhmfdvG49EmRs8fRYXeR8FTjbvNDb
L0nG3J1HaoIbqkC9udryjxQZy7tKP8hbUAXzk+/C98gQ+brSqvziq8BMwTrK
XZaM3fAYrvBwr4Ihvo91lTvIWNaDoX2/nKrgodAdWo88GZvyGSxzMa2CBvL5
dzQFMnb5aT9+VqoKqkyFKpuVyFjKiz7Ut7YKXP+syOUqkzF6aG+p7e9KMLC8
zBFEIWMyb3oMfwxWgsMXl6M2KmTs7NvuEtO6Slj3XpYktJOMxUV37a7Kq4Rz
UamS5QQPxHcWYbGVIH5r88tLqmRMIqVDv/hZJVzgDzy6SrBD+s9CHbdKyH65
zSZIjYxFZrXvyj5TCWGW8xG86mSsI6fti/LhSgif1BbwJHhzQatOslYlCO1e
yB4g2Lr4R952yUqQuHzBXVeDjIVBi1YUbyXYT0Yff0RwS3lzzubZCmC+rtsP
BAvUNGm87K+Ac8Eb904TbNbQmM1XUwFvL77T2axJxoJaGtT8cyrgs1CYLIXg
mvb6rH/vK4B7UWpVm2BSd93O+4EVIDrjBhoE7++vzZy9VQHvzUtOShPsP1xD
cT1VAWeG5eu5CC4bqU5nHKgAW55R7m7iehwTVUrnNYjPx6hwxBO8l1WZ1i9e
AV5yanknCfb6VaFgT6oAtxRZET6Ci/6Up7ROl4Npq5HsB6LehaWyHea95bBl
qaxhN8G7Vr8nVVeWwzEx6rrvRP/cub7LGmeXw9xgb6cewXlkPKEkqhzCs1gK
iUS/1TeUxn2+UQ7x6Wc1jhHzcd38bbuKQzkoXjrYHUrMM1OkJCbFpByU7Syp
FcS8laSL3r8TLYcs1vQcF6GHyzu+im/hLgf3ZjGmwP/0olQYFcoqg6xzr2TX
KxL60PwS+aS8DNqkExT7Cf056eZv5cgqA7P5wZFsOTIWa5AX4RlZBjUDn0v/
p1eJfTnhN66XQavdjbguQt/CNlmhJ7aWwdsL1ppzYmQsR/550X6uMpB31ftz
R5SMWSxeomuwv0N9kM2lsa3EvGKk9dZWf4e034d1PmwmY/8Y4YNF7t9h6Z3G
t/+I/XxXfIsv9dx3uBxbr5C3jozphRzVen30OxgOLJIriH2+rcUbeE3+O5SE
n+cvJfZ/1PuBqkQHDtaV5GtihD88trC35y3DgXugFf+xRMKkZHX85j7isKDI
fdyL8BOHGtbPhic4dCzKb8sg/KdJ6Jy3tw4OZcbfXFwJf3I99irymxJAa66r
UADhd2lzR6becAJojt4Rd20mYdS33JhrdymAK+nPIcIfbekeY5LPSqHDbJy7
s5KEoftndH0Z30D1OjRaF5KwDYmUduPUEjgRoKldF0XCjhwaURD3KQGD225a
fREkzJ8Z82DWtgQGEj6+HQojYQu7hGSTSCVw/ssXXzyIhA03LNzicS4G3RPP
Ofvuk7CcP5WCNXJF8MhcR8zrOAkLSU8o27v4FZIih4IOW5Cwa2d87uY3fgWq
e4o/iTh/5Kr0ehPcv4JEcs+voxjhz28yUrxrCoG0rNkhokzCPLVfGWq5FMCa
3vC0Z0s8mC3j+vQHrABUg6oHTed4MK33RxKlhAvgwHq77X+ZPNgUFzefQOkX
4DWY/U9lmAc70+bezhD8AkWvJ8JKq3gw49unrsXk5kFnmXZ/aggPJimvLyn8
NA9aVLPZtoE82HK38I/np/Lgn6t+yJwPD5Zn1Kx7nycPJD15LZdv8mDyG43X
2NjlgtDzPFFdKx5sbbbCW77lz5BuWKnosJEHS+4dCR73z4L0x2P9in7cWI/X
lthorSyI4ioeNbzPjQlIHsy2pH6EEzwZTOOb3Ji7U1rrV/QRPvFaDEoQ9xsH
Rq5uDVrKgDMNBXmC+twYg8WOU775Afxkzh6bmiTul9Ys5V47mQRS1CaPk/u5
sDOJypXb1yZBWtbFrIsGXFiYycmOtsJEaDj6dpejGhe2FFCysHtLIghS8nZK
iXJh9et8DNf/iIfR7RMS3ZNrsC5l3pATwTFQfvpkkUzIGuy0pURe7/lw+Mdv
nTZbyYlNzf7Wv1vxGjxuGlVKfeXEvCKaQWDHa9jhuvWIYSYn9r7Xr95o9BX0
HpF5YBLGieXVt1Ye+xECKPUR3/PTnNinORdZRo8/cP/Tcfo9zYH5tiu2i5cb
wgabgsty6zgwFcH+qzw75ZDb160k14VV1DHjF7th4RDS5qOL3epZRQ9eH6i7
pu2ETM4L1G2IWUXlUs8CozfcRomx95/ky66iS5eUnb/880PWnadaQhT/oa9r
H/wsu/sanQrZfdxWZAXF7RRu+yQTjqibynP2zS6jAItPLe+bw5Gl0hMSb9My
somg1bsrRaBNpDZ34cfLaFrarEy5PxIJhXnWGk8uIXn9bZ/CTGLQq6mXzOHc
RVSb62jy+VkSctT3n1knP490qJySj+w/oR41jmNSwTNItchuRv3DJ3TZZVW1
1WkGyYd9rBha/IQ+PV/r5qg9g9bFZ+rEmWcj2RA7pfW902jFwr5vlZWNanfu
VMqSn0b92Z+UQCMHsTCVPwquTBR780yFYUEemrOzWtd4bwzJThcvGpR9RQ3l
2Wn+F38ir8Z9/nPMr2g9vpne5N2OOtLrBbJEi9Dc3S8Jrm/aUNDFXlnpW0Vo
5XXqn6yyH2i6Z8mcLFWMOP7bf+KqcgMqrdRPaPMuQUP6zf4ZV4qQw7uCIy76
gJyUzbvTcr/D4cTuxqP2ZciFkS6+0kOH/eZCXL/zq5Gbj9nPescVeOnY6ate
0ICQ4ceXd1+Q8eqj2/gthH4gualqyXLzjThTWvhha1QbCqjypQ5Ub8H/7/cA
ovso+PbFi+F33ShnX27pQJVVP+0uWUjgnX0brJxrutDGmJCLdkrSuNP9PWNk
s17Udu0CzXxAFi+n7Aoq5xlAjKRncoZh8vgZNZvEGcEB1LGRFJzzTh5f0LxV
sl1sAA0I5wbKJMvjKgYZrAeqA2gxNUXoV4E8Hn5ou7W23QA6R4/972i/PO58
kSyRnDaAnHbpi/+RV8B5Yzs/BpgOInURW4+KfAU8IWGuKu/4INLjMeDwKlXA
96RsHKI6DqJ7e3kEd1Yr4Dc/mgoht0Gkuqz+/kGXAt5dDO7z7wfRbne/J7VL
Cnh6Vyq6zBpE7JyTQtJ7FXF5vhJG0qEhJHEzL9oPFPFf1apXE8yHUDhzeEqz
WhEvDYifjLUaQnmHzy/0NinittyBrKhTQ+i09VFZkQFF/Mmq5VzozSGEyY4M
7VpRxOm/x1a9IofQHMfsF/5dSngCddPW44whFJAc4NiVooS7xgdEWjGHUHC7
5NbQj0q4gdOiqMWvITQxGeWD8pTw1v4BCdOVIWQh4m705LsSztn9QcZowzDq
UVh4l9GrhDs1I9WdesPItOa08SkBZXxbybX9PE+HEbuX1bjxujK+WXRpyZW4
pfVVd/RVvKOMr3d/mt0VNozK+ruVte8r4ytqyeKZ0cNoZ43KHuUnynhP4sCM
Ve4wUhap2Bb6XhmPeG4ZEzcwjNa2O+3Xr1XGQxiD1mvpw0gy+dvxqCZl/Ml+
Vz638WH04v2nLHabMu62GuR2cG4YRRvbC3gMKONWdyqOsPioaG9NkcX8L2Vc
4OSu+d06VLQ2MxfliVJwUmFlZrIBFf3ZlJNtI0nB/262OSeIUdFXBeEihgwF
n2q62Ug9QkW8oVNXJikUvM44PfGZExX53uDhczCk4IHK2yw6n1NRfyWKbj1N
wR8GZvAYvaKiGN2Ey6lnKbg7Xb84PYKKqm/1id+4SMGdY2zlH8ZTkUDjZ/5O
FwpuIhS6IldARSvsjnHyAwrOsbTmw20qFYnl7eujhVNwJ1r3rM8YFZVI+h79
9B8Fxxuy9wZPUZHmxo/gGkXBfWPPtKf+oaK4EI4HtbEUfNWkaLVvLQ3tUS5y
YH6g4GdUXx2ZEKQhIVZSrV0mBS/devnN/GYaWqL0sPOziHwnhClC22kobd+J
vea5FPzfy1u2B7VoKCrRYHy0mIi/fyjeRo+GohtJIqxvRPy57VNnDWlI/O2b
Lwwg4nUaH3kdpCF+LePtheUUfEAyqeGZGQ1VqT3pfFFJwffyPtj6nyUNaWr/
7LWpJvrbo/jx80kaKtvNSiqto+CnKlbnS51oyHMN1c6pgYKXfOwwbrhIQwNn
9bR+N1JwL1//rtEbNJTXfhUttFDwlR1DXBL+NOTnmZx3roOIFyw4qvSMhvI/
Xvr8vpOIXwh+qxtCQ9bkMy9ru4j4+t1qlpE09LDNqX65h4L35Ql5nommoUzv
zK2cfRR8T8x4xbUEot7qdOlFgpdv/ucQkElDOrGHTL8PUHAHB9fk159p6JK7
2olXgxS8aN/+6bgvNBQRZMdpM0TBxXZK7M4qpqEc1TEDvmEK7rll9kkxTkP2
P3j+ZhPcs1rbUlNJQ1TOvr2mVApuMB4n3lFHQyF3X893EhzV6uFMaybyWW8n
aUej4EvFRz9Pt9PQx06r9BqCHZJ3rPztpqHTEnlhKnTi+iErB9YN0hD3yQ9N
fgSL3Wt7JUKnoXfW547XE3z/bHrfjnEaWli7QZI0QsG7jjxS0GLREEcLfbsW
wXra9rexWRoawjZbWREcuU3tm/kCDWEWbRnnCV4gkXhP/qWhJ0fs5S4RbD/d
Z3V5DR2RentyThFc2J0bfZdMR9Ybw4+aECxSHsTwW09Hd51LWdsIvpd5Vit0
Ix1pl70JGify6Xqj9zB6Cx3Z+dqJphKs5yNYmy5ORxzuxmG2BEdeHt1UKEVH
jD8RU/NEvfOW385U7qCjwp6I7c8J9uv+1L+XQkeyBy5o8RAscDbhVKE6HUld
6ghz/V//GOG9Grp0xKXdpllN9Fv+ZqBDxm46wruMeQUJzpm/3y1nREeLpYK8
B4h5Gfq42MccoKM1EfIKLsQ8bUIsbV9Z0lGk03TEk34KPiRs8nOtHR012D39
cY/Qw7VoXRv/U3RkZqe96tBL5JMpbuVxiY6GFjLJU4S+BLQFfky70FGA4O2G
KEJ/b4s5LK7epqMZhT32eoQ+s+tGzE9709G02lQkaiP0ZtXV0OFHR3N8g7s+
/KDg1d11phZP6Wh9/fQtTkLfA4xPh/e9piM9pbTn3sQ+XL2ZUFMSSUcRO28e
jyf25fd8+EHdGDpSWngXkltDwdeTPfcrfaCjUy5+sokVRD9DXCoSsuhoB5f7
Fd8yCi67xXGfRB7RP1M0a4oT+tthYiQIdJT2m57ykdjvK/sEDH+309GhQFnH
qM8UfK6Oo8S1h44at9iFMwh/8LWaNWAM0tHDj21f5Aj/iDzbpdc7QUflBtGR
zikUvMonQfs7xwjSsxpIECT8yIr8JteANIIsTmcLN0RQ8P6QQM28dSNoSmO9
lPtr4vujXdRTt4yg9ENlLWEvKLhMia5KsMoIWpGKuMf0puBZ+5QySJojSN96
/UNhTwquXy+u7LuL+L5oSpWyOwW36OFQvGM8gjp+GcxJuBL+s1Ane8J+BM3l
HYqXJPy3V9tRfIf/CJJKPS8asovw20UdwSfPRtA+t1a+aE0KPv1tPddIyAja
Ghlw+O1OCs59sGgi6e0Iepvc8PKELAVXPSFcJPdpBFk92aS4wE/U711vL9cz
goonrbYmDyrja40TzPwHR1Doqf1u/t3K+BvSfYxOH0EqD94GWBDnT/pLecUk
9ghaezwgOatKGW+LfzQvyzOKni4cq3iUqYzLV+2KkFUfRecdWdYP3JTx7CCB
oMc6o0j9k02cNHFeGhwb8aYZjKKqgZL1eReV8WNdYRcT94+iL60jUtG2yvi9
Caa27MlRFLy0ouuzSxmvF0hqkwkYRT7OHqoPfivhN+02bJTpG0V/1p3g23xO
CT+Xpha1Y3gUJTRJ0DvtlfDji0dllUZHEWdsuPezY8R5/y5YR316FDk1b/+R
v0cJ5xlc67CXewylSCns1tyihEc58yQ6qIyhkR+FqnmVinjF3SXt115jiO97
mHbWFkX8S5VoacSjMXQvB7El1iniH7bqH4wKGEMR9X/f3FtVwEO+epyIDx1D
IsV5IX/GFPATf+e8PyWNoV+abj7rCxVwlj+7qr5hDHFUFXG9s1HARcPp9tzb
GMgr9dG0iI88rvd4+xY3GQYqWr70aOKGPG5726GNpsBA5/DEyiQneTzMosW8
XJOBLi3wmrUZyePr+UuM/Q4xkIfaTPBWLnn835PXKhxuDLTvyFOW7qMdON3D
mGOljoFuX/Xal3hNDl9zyfvbtRYGMnoyfuzhCTlcyrbQs/cnA+V738CMDsrh
p7VVfxcNMVCK9qkvD2Xk8I5p0Yn7fxjoDp3LprNTFq+9MtM2Lz2Ojshvv7pk
KItnnYxLnb03joKWkkqp89K4dqfsEunhOFoNVOkXoUvjxVapZmKPx9HuaC9n
/RZpvOZw1gwWPI7ETuam66dJ47RdJbtD4seRpyVPuK6dNC6yuatZsW4cbVJi
9Uh+lsL9GgQXTotPoGm/p9t2fJDE7Qx9DtV8m0CZcDB1IEcE7/s9KlhWNoFW
Ejr2WTwSwc9lHe0srp5ALXz6Cv8dE8Fdtks6f/oxgQ6VXS1MmtyK+3F+exwx
MoE2xFmXlUpvxbMql0ov8E+igotaCVNPhHHuo+46nKcn0c4YZb4dqkL45zPX
ZQxWJtGenzecmMs8+Ln86W1xnFOoK/7pabn7PPjm9W6iJPIUumcxU/rnNzfu
/tVzQ+vGKVQzKlR3ncWFG2x++u+KwhRy2dHUlNzDiZfVJvS8tZpCTrqbw55h
y9Cu3RW2mEZwYS5jsx8NFtbu4/p6nIkOHb+rU/NyGVn92K27LZKF3CZaakSO
imFrd6/7XhLNQnokvls+6WLY96Qe01OJLCRSZZi8hSyOqd+7f/ZdFguRxjce
78DFMYHtBS9EK1no9vW7WKTuNqzWRZMm/IuFBCdJL58KS2EYr1KogBkbNQSF
84WJy2ILtxbEsizZ6Imd+VK+mSz2qbc62dyOjeQsJcOmvWUxyU/OxS/OsRG/
2rTXhyFZbOV40uja+2zEe/dkomKqHFaQuN2QnMJGkafruI7pyWOu/OzqlAw2
qvzee6Hjqjwm71FqdeAzG83nv79/J1oeCz9y+vKTEjbK/7vozVqjgN2eiXrN
1cZGzdtsKKNNCpjyyauSiV1sRLLCz4uuUcSGK/Q/GA8Q14/91XBWRxGziOwq
fTTORgGvTrM03itivGvSDkuz2Sjt72f/r82KGFzzaMfn2GiYk5vXlksJc/95
wNFpiY1wadlL5F1K2P/9/weJD1eGNl5Vwv4f7L+4vQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$107567#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Hs01OkfB3C2UiolcqnUKtJldRkVpexMEuu2G+VaG0ptto2fy09WSVSy
ykZKkltIbim5VNq8dRHJuMUQxsx8yRgz8/0qbOtS9tk/nvM9r/Oc7znP8/m8
P8/yQ36OR75RUFCII+u/73q25uDUFAOlG9HbzlVT8BvTix4bZ9DMjX7oUkPh
QQnLYHiUgWujxu7lbygYrbY/1C9lEMrilSfUUzBZcL6zvp2BQtBQ/WgLhZC3
8SGvWxjQX53VAlspVFxI16ziMti2z8b/QxuFHeMVjiUvGcQdbD+V10GB0/ux
7uZ9BlVDMS+L+BQiUqeOJeQzeNTo0tbaQ+GFi8rM2DsMPoYUKwwJKFjUr951
9haD49/NyZ5BUbgQZSz6PZGB9uY5Ogq9FF5zLMID4xn8PjPpHkNsXebx9OhF
BkUqrkuLPlCI8Tvh5hnJ4BLn0sTpfgr1a059dgtjwDWzHeaIKaj0RV/fG8Lg
xYyk6ePEP6YlbrIPZDB+w39D7gCFK67ZzZa+DLpH2gNtJRSa1B76cXwYLNB5
29xL7HiRW7DJg4FVnUvn8CCFhJ1d1uvcGaxz+Hj+uJRC68SA2MCJQUSmlnUH
sUb53xd09zDwrawzMJVRcP7fdP3FtgzuZM9eFk98Y63aC3VLBuFO7ev5xB19
33qq7GTQ3rTRbZmcwuL0dV+VdjDI0dRK3Ue83217ioIJg+mrYsbDiVPUrU3H
WaS+ijH+GcQ9XOeOYUMGOnc1vykn/jbaO1i+ikGP5sbCKmJP84CF4hWkXw48
v/98ezL8oXApAzVnZfsyYqo8dk+nNgOTlW92pRPr+d+i36kz2AWNfWeIvb/L
u8ydxyBTjwlzJL7zoXxtjTIDO0en50uI+9Nf1VZNZ5Bh+8OyTnKf1e4tRyum
aByaX3stlthnoXB66TiNhtRWfWPi/AZ55r1RGmF/n2h4R+oli57g3B2iwVt0
Lf4o8bpdyoIMKY07M618aVJv3y+aYcn9NGoR5X2c+P4j/SXXRDQeme8N4pP+
DPkbPYntprE0rjDVgjig3370bAsN7ZgZZp9Iv0sy9ieEcmmIjGeUbCUecfdh
BdXSMC2KNw8ieTnZeP7EL5U0fprcU1TXR+GyNLh95DGN0Xt61c0kb5kzfXZG
ltCYOO80t57ks55tr5GaS8Mhm/ddspDUbz87fG0WjY2yldN9SZ4/n2RJHqXS
iHBrnbuF5H3FA41nLVdpaN358X5KF4Wt9TNXecbSWHVusbVZJwX7gbE4+UUa
bVG71ZvJ/ITo9njPCiP1+Pp4awuZr4a4nLnf/0JDp1ij1rSRQl9hUvBbLxp5
Tzv7grgUxmpjhK4HaNyVfmVlvqWgr+hXGuhA4/9/ef/MI/Me6m9yIG87OY9u
zj/ZoBAXu+a1sTENZxfvpJBnpJ95Sza+2kgDJRHH2E9J/kVT0wQraRzmv7+Z
U07BwLG2YKEqjSXDU5yuQjLvvhUambPJvvOjwz/kU3CIKQzfMIOGgYBbnnuX
wukXcXttxuXI8NKmzTMptBi5TYT3yTG+Wu82P5FCmPqgjfSxHF+ez19UGEbh
6obu0pASOdTPPNlpF0oh17ZhmVKRHGUeL5IFweT/cw8/6WbJUZXwkS/wI/ka
CU12jpVjS2V1rqUXmb/WOYPPveToWbp7z72d5L3xLqssOCBHUUvE4xozCutH
DiZcd5HjstehUd42CtHqD3f42MthqjJf/o5FwczR9YrqNjmqUzRbrZZTyGnM
3uyhKsf+Wz1ntb6KsNfjR2XrOXIcGnLdFD4mggLzmW+kJIfRtycrukZEcJ9n
e1FpUgbe7HTLQKkI8+0/vr8nlmHT4lRnnQ4RQurMwicrZfis7ejkfF+Ele7i
vf1PZChQme04J1+EFknc6qZSGcK7j+iVZYtgqNzXnJUvg8UsZQvxTRFEVjH6
tokypN34crr6nAg21bw3N0/IoJmYzvVxEmFpld9CEx0ZdqjXSByGhKhX2xJk
qiWDaQB33UuJEKFHxt+ZqcnQ8PhS2ZpeITnnhQSLWTIc+bIhjtcmRJxTsprj
iBSzD2sF3K8QYpr0leqJeiku3fYa+DlSCInGYpWs01LkSXrT7ikLkXRM8FvO
SSnUOGK3GkUhLJ9m1+cFSEFPWBQXDguQ6bnh8oNjUjzwijDPfSfAgQKLOZX7
pIgXm1SmXhWgkeOn/N5QiuCOW4sj5wpQdvzVjPn8QRg4sH/ZOMTHVl1fVk77
IJbE/flqRTcfFa1aP5u1DOInuwU9EzV8VJkdLz1eM4iI7cW7D6XzUTdf7XBt
8SAujbqLp+z4EJZ4VEVEDUK1wynoTFY3Zk+Oh45sGESvq6Q02qwLnpdZQ+8j
JUjcfbGpeWUHQkuvRnHDJFCx/OO8sUoHrncP6zwPIfuGm0wujLSjzrDcOtdX
AkHBmSThi3Zs4ppmBbtLoB04YnPlYDuU5lk4qxtJoLFyv199PA+FV5z/shMN
4ONCjfJqcSv+uXoqGuwBaBts317q0AyxzvNBS9MBlEyM2amxmsHLUbJv2DyA
zOq0KGfVZpRUxC/grxkAjJP94xua4EvdTR5XH4Dnn64GzdZN6GW1Fm4ZEMNN
v19jKLgBDU2GzQVxYhxt/z6iRrMOWfN6FiWJ+tHHzX965GkVUmxYAe/++IDC
TO1FjrJ0duRvXiFrrPuQdE1066xuHfvUtPyTAeQdD9VuPZef1Mn2Otuoz8sV
IdPtgHuQUx/7+rMPSSm/CnHVrCM+XSxlVwhWzy1c0YOMXyNZnX6f2HqqHPN9
aV2IdnzGfjL2N/vh2uhfqd4O+HncrvtqNckWVBfrGhvz0DL104KKIQXO6b1j
FlsNeUCUy+U/JhQ42iKOj+kKHrgOssf7lRQ5eyYbi7+fx4N76TODWTqKnCoj
2tyqvw1LCqb2RVgpcjLS1x5xTWwD20NhciRNkdMhy91d69EGt4P2E8pdipx/
AfhWUXc=
        "]], LineBox[CompressedData["
1:eJwtl3k0ld/3x03XfTQoY8gYKZJU5vAcU31MlSkyRJojpcKnzETJLGRMg1A+
iboKxX5c7mDmuiQRqYgkUUSp7/Nb6/fHWWe91jl/nLP3e+/3OUo+Zx2O8fHw
8HSQ4/9mTh3vsVHrXmDGPT2x8gcvys3YMRs+ygXYyiK0ovkQ53GDYUwHF576
0kZj8vmQ+dhwa0IxFy46h+aHd/EhFUfZ6fwDXAgYaRhn6PCjjxqZO+BZDzhy
lYfyfvAj9fD705/KekC9UOKyFJ8A8u+seih6pwcoHTK7rwgLoJ8BfRuOJ/RA
nYuXr9omAbTi+Tqx1d49YLq+e/KBiwDSMs2dcxPqgXQfl7qYKgEU4lxIm3fn
gPvsdEXuUQoiih+fU7TnwFFjO61lfwoS+Aka1rs5cHaq/u3eSxSUnDtSVKDF
gYSgQTYkUdDtYaVMCwoHuIY8nFdVFMQ8VRSYXt4NFTGTz0f4BJFI+ANdTd5u
uC5pzXFOFURxzzaz1y50wVkLLFAkWxAtTZccnJvqghv6hwLqCwXRqFdxaHV/
F2Re6A6aKhdET0zv0c0qyP3avbTsNkHkQCnY6+LVBRnv7Je3U6iIaSw7YuDc
BbYXEg34V1GRYVBegKxNF+CthzoZolS0YTwn451uFwy2t1AVFKlojp014Cvc
BfNyRJmSIRVtklZq5wnphJwJBeKELxWtva4wwzjeCQrDfZl7A6jo55KcWIJD
J3zM3chQDaYi9qDMQQn1TpA/dl2rLJqKTt4W/6j2ugMuWwQYCuRQ0cNN2LKD
XgfkadJkFuhUlJ4tqCil3AFzV8fj51hUdFmIYj4k3AGxJU8c3rVRkfVn3vgT
Y+3gY7D2W2ofFX0u/yUemtkOSyWfvNEEFWnoftW4P9cGORXCq0dWYui4ZkRE
zVAbzJxZjPpnLYYKVddw2lltULbRr7FQHEOi67YFz+e1wcErE2UychhaWPBv
2GPRBrF/zMXMtmJIa+aPmIdmG4im+E8pbsfQ6U/Jx89JtQG/jFL6tDaGBvvL
V+ZMtYKsgrz5ASMM0WumnSczWkFmLHiXizWGfleGl/4Jb4VBq9F//7PDkM5D
4V+ip1qBv5QbPbMfQ6W5mrd3GbdCrKP9bwsXDCWF+E8mfmwBzxMPYxWOYIh5
4Y/Rnc4WsL/ltOnzMQzx+CWnVNW0QHlnXOb9kxg671Gu/TapBXKVYl6NncGQ
q/F0+DbdFrCMfvMtNxhD6Trh3eaKLRCQyFgYvISh1q3CKq4rWoA/Ta9ldSiG
TOQ1myPfNoNr/FPurkgMBUvWr89kN4NCWN0qg2gMVQjv9X/wpBlsfPeJbLyC
IeW/Z8Q4cc3wSndlZPNVDHksLB8bO9cMBuI6k1HxGMr6mlS95NYMPFNjimoJ
GMJGHnkqb2uGhuujc+bJGDLrN67Qk26GF/Yaqc9TMBTS1c5ny98MsmJ/fkqn
YWia+FJy8RUbJGINtMpuYGhTTdjStQY2lOnc+/M6A0PelavtCsrYUDKSkbOQ
iaHcBwWFlZlswOKEeQVuYqjnztZZRgQbujau1flL8qrcOouBU2wQIHJ0JrIx
tDvd7ua0Ixtyncr46DkYirg+NMFnwoab7y3y43MxVB19xmjdZjb88jvOh/Iw
NHt5OXmLKBsYM2t0PpK85ULSO/w3C+b9TbUv5WPoqK+cttMYC1LGl/7+IvnW
kUdxJ7tYkORmlH2mAEOv3I1fh9ayYJZFWW4nea1T+5a0IhYQ21w05W5hyNrW
M/x+MrmepqXhTnKMxZeumn9ZkDCdNn+VZPo/U/u0j7AgVMFE+x7JPHafO8rt
WBDlcWDoEckm9pN2avosyL8/8K2E5FDnibZ7G1jQutQSkEZy7cFPNvKrWbDS
Y5PnaZIXPcdbsheY4NP89ekOkvV9xqzERpnQZqYSNEmeL+j4R3ZSGxP+YTfd
SyOZdvrDHuw5E14f7DbaTPKs/3tm9B0mRCxYmZaT99W6MGq5nMAE/Tualcok
nw1+1xQcxASqS0TiNTJe5SEj5rPeTBiXMuoZJOM7FTFM97NhwtDY0VhFkk9e
GyIOKzKBr2RpSxCZn+LEQXxwBRN25JxQvEbm70Pqm/oDPxgQdBNFxmdh6HDO
65c2LQwwqdaNdiP1cLugfxeTxoC6AUcVdVIvb++8qkWFDHAQGto+QerJ7WFv
tc5FBjy7vjNFh9RbdjlXr+IQA64N8QzTkzDU96TnmboVA3yNDHPxRAw5vuim
Kcgz4Iz8NwcqqWfbtvYKIXYTHL1wtr0zCkPXu9q2XXnSBH2qBf/2R2CIzW0t
/5PfBK5juildYRiyHGr+by6gCfLiy/8kk/VmMs0oHVrfBGsOl49ZnCPzM9u0
yVWwCeQDjb6wyXqtnW8s5sw0gmmmrpeRL4b0/jYUsRiN0LDoH/uNrHettfW3
K882QqXjzECGG4b8xesUNNwawYf91iiD7Bf/Sb28VWzRCCpWBitinDCkplSb
nyfdCKP+O8Y192Jow45n2bGNdHCw0XkICEMSTuWpB9fRYWpPmBNjA4aeqCbU
WvLTgX5D0J5XAUP7F0982P61ARRPBw9rrifve0tJfwWrAc4/W/PkkBiG/nzK
GK4NIrldRlOEH0NjYSGasn0EjH3PjWoYpqKY/a6uGJ0A7Yn8fMk3VKSorBP9
/REBwifjrDzJfu3Gnu5tiyXAhbL2IJD9vEPUJyxMhwCL+uW9fdVU5L8vLbtO
DSBDzTxrXzIVlX63nsrkBfBk1nXWXaOi0RzSw1/XA+2LQp5cDBUd+BA8Lh9f
D9/e5I5Xkn6DXzqkG/mpDtp1fV22epP+dG8L16zkJfz4GJh+VpOKnswz1rBV
amG1+s4gJUIQJT+8SzdZrIEW+9/2G6oFke+hiMCq9hqwTjygJ1ohiFSY+m/u
BtVAhkG9PJB+m5VZVhzGrgbnQDdvu3BBdFk7zXin33O4HMAs36UviMzOe/je
ekoDj1C/f70KKUhe1UBe4hoNrv12iTPNpKBfryW6EzxoEJzCLRBNoCCaaafu
JQoNCr9ETkQFUZCqiBmfk8tTkE0onsuwpaAVFZtyhH5VQq31xp7EHwLo/puP
SRNXyiF5cKa+0VAADYRKFhbsLIddwh+cXbYJIGH5PRX2o49gv4iv8qCyAAry
LuXU4I+AlqDtU7NKAO3+eHrd9aUy8LCv8qcP8aNP019vq597AHqK/o3CYeR7
iW/pqa97EUi2vXRPreBDnvaytDdHMuCiR8cevc88aGruh0Fg0w3I6zUrOzrI
g0KzOkF44w1YlR7VH9POg/LfRLeajqUBk+uZevMxD6K1chj7upOhMCotUPwC
D3r83U/508AV6PrWsoU9/ReP5G7mrm80htIXER5Vk8t4zYqQXnrgDVyVLyzE
OmkRv71Voufxhgx8IPfl1dPHFvG4/Y+78jsz8LrzBxRPGS/iTlnvW4PUsnDB
kex53i8/8RklW7r6UDZeUeGqd9f6J65qIPc43eIW7qPeJFTwdx5vfuplURlf
hO+JsJ4N2f8d1xnllY9yfYzLHVIrqlv/BVeeebFoSK/BLwp6pU0bN+JW9163
73Wl4+m6ml0ddyfA0k6U/0cVC/ehMcb4+5chxetVpNbzNlyo6PN8TAuVYO2V
W71ftBsfpXQHrtcVIcQ130mel+3GHa5+Dv5uLUJ4r76vmKHajf8uHu/heokQ
S60a2v2G3fgkcSWnLF6E0LAycvc+0o1beDm4Vw6JEKnm7g/O0brxKctdNXJX
RQk3/RzLtAMcXP2F+dtLw2JE8TrPfU+9Obgpf7qsyQ8xYm5e8WDvaQ6eMtFA
E1opTiRWlfpJR3Bwdipz9pmuOAE7qm/cKeHg9VZH7p9KFidUtr56V/mTg+ce
m/ywDZcgvihJhHNye/Cdltva8WJJQj/kTkBDUQ8ekmrVF/pSkojmbj1WUd6D
tzBHvhIcSULy6m7bZHoPfuV7rNOhv5KEyVSwjPVkD37eqez9F9d1RMqzgWcN
BlxcS9VH2nu1FDGw5sTDCnMuLrXBRl1YRYpQOTVXUGjHxTGhSptGQymiev2q
2LDDXJw3ew7MTkoRI5HGjgbxXPx8raN/VqMUsd3m9teKfi6uJxI5mhoiTYQW
abwvHOXidXV6vx6nSxPM5eq+5Ckuvs/ZT6XvgTThVtFd58fTiydY2pbq9UsT
RUKHKt1X9OIGtxb4LnyVJqZ9JousxXvxuXcK/lWCMkS0BH/i5s29eJj6eOA+
HRmizT8lYt2OXtx5W5xoia0MIclef0HQqBfXUbgLlKMyhLdS6fEflr24/JJh
mG+IDPH//xn8ddZma+yqDPE/WTpcPA==
        "]], LineBox[CompressedData["
1:eJwVlXk4lH0XxxVF6qGF7DvDLLdUKKIzkid5JGTJGhUv5amRrQ1ZUgmVNukp
a5bIUj2loo63UpRIEUZj5p4Z0WJSylre+/3jd/2uzx/nus75nvM9R2/7XveQ
2VJSUgPU+//f/bnM4fm2Trj92fq/C1vV8U1/iEl+XCfUvx+k0cw1UNvqm8ap
pE7o2Xih/UOgBoZlJygmnOyEWqecsYwTGji9/uJPv7xOcJbPbUjiaaDh9edP
VJ51wqOkc3TlY5oYE80MPrW0C3a6hSQJO7Rwqbyk3kuvC2S3b/PZOqOFdXk3
VbVZXTCIZ/MqmNo43WLVXmnXBY/DKmK/pGhjsp4jtER0QWrwhc28FTqY9Wqn
1pzHXRBziPCydtDFEpOrPQf3voPRrW1y1qf18F3fQvfQ590gWHn8Ke+7ATqd
DOmO7ugG8n2m400ZQ6y3uh+Y0tcNGd8UlsUpG2L+hR278792wze/FFqnpSGG
ud5J7VXtgTFTi0eC/YY4+djvrkt4D7R31l+0nTREzYoSzVXyvcCl+YtnRoww
y2eq0EGpFxpobe9mpGgoJedK99DuBYczDcSIIg1FOycsIlf0wr6SBTJlBA1v
aDtvrvDthV/tUb6hYTRcmz2SpFPRC59ooVVGXBoGHbD5IOvMBVpX77eqf42R
sfN557AXF3xWuRn8fGyM3108nnQGc+FQ4Ywxq8MY0wwjCoriKL4gU7Vz2Bgr
2y77QREXzH9UVcrSTHDCaKotdpILPzKPRitnm2B2x706cVkfxLCsTV0D6Ojf
4FD68lYfpLXUiiPD6WhU9vr8rYd9cHRfcGRyDB3r4of2Jb3tAy1+2BxOJh15
JmqEltR7WLlCVTe+no6MxP0FHt7vobJ2XGebCgMfM1elP57Dg3+0GjeuQwYG
LvMoGlHkwUWPy0/PNzNwfEVkvY46D6YXFDr2djCQZV0xfMiUBx2zLHZaihl4
zlFni7k3D9qnOCPW85gYGiKrea2MB2rL7XbGuDBRKtzQ4s1NHojihe49XkzM
jbBzmdXAAznnm46m25j4KurQkYDXPAiO6NxYsZeJq5IlIuVJHnAalheOnGKi
XN67G2l/9cP7/HUV1a1MLCwcbbrt2Q87pG8sMOxkok3JIj65rR/sP9jHnOhj
IufGX4shuh9MV475GX9iYs+DR7Fj//QDcKMSq2VZeL27FMKG+6Ep4qn2iC0L
afPqB4sd+fDjXPNDqzwWfntmuqtwEx80tOfRbhWz8GFawac8dz4MNrLp2tdZ
6CVzbDjXnw+lPjnSzbdZeHTGbfQ0hw85zYOy+5pZKPrxYeZwDh/0KxQ2L/rK
wprbvkkHr/Bhb39bTPEoCw9Htc7eX8iHg6YnVtMnWKg0cnNOVCUfrmuKzsjO
JtD+c/z8cORDrNWacypLCCwkl6h4DvIhI3rPu9QVBO4pSMtx/8IHVY/ahuWW
BFoHTai5fuODr8tnaLcisOM9T/OvaSrfbCdVkk3grJ5yfbuFAkjwL1P1cSHw
5UXN4rXKAiheVMnLdiMwx+uUkY26APYJStkPPQg0exttsspQAC6vj3UP+RIY
1AamxGoBOIwMep8LJZCVdbOaYSsA6cM3fvmGEzjubLTcZJ0AOHq7YEkEgada
5M0NnAWwt/7Fha2RBD582mmlFiSA/hVm5y0PEZie6vhgaYgALM7+q54eT6CX
/QMbpV0CsFNYadOWSOAw5oNitAD2eCzdYppKoFb9boc5xwXA1ktohwwCldQm
J/dkCuBLgsTGMYvABbHHa7qzBeBY33MfThM4veyaRuUVAczpUv00dZbA0YyV
r5WLBLDr5t9X8DyBn4Ya0xLLBHBwz5rg6IsE9hbxRtxvCeDOUTut8lxKP6m/
S+vrqHz5B5QZ/xDYHDDlT3sogCoNpk7uFQLrVFSfTzwXgJ/ZeOiGfAJrokvi
d7wSwAZ5pWupBQSWvjZf2fpGAL2Py0ZrCgm8cNLtaj5PAHO7bJ53FROYNdi/
RV4kgKumNs7t1wg86rBnXvSQAIZDbwvqSgg8XDj98P2wAEQJ146fLiUweiY9
esOoAM7EKtp5lxEY4a/GqJ0QgHjTN/k/ygncca+0X32G0kPGZaCWYt+lludT
ZUgouqz/xuE6ge5RT5yG55GgtJjz+jnFTu3uUlsVSdAMsxRYVxBoRwj+bVQi
QXIlZvY/FK9O37ubqU6C2y3C4jPFZh9+6Z7XISG2LPAAs5JAk/UZXb8NSXCP
l2vzoVinQD0jjEFC43KmZRzFS3+X2XUsI2HqaVNVCsUKfqvG1liQ0G/FXZ1I
8dy6p5XXrEmIywx7G07xLyWP7YpsEgpxT5I9xaORpMoBBxLy3nyBBRR/fsVp
JZ1IMGsSKz6h8hExZ5KdXUk4nOM1soti7vHM1Xc8SUh2YoukKO4Qawzr+FH1
9RUOHqXqbVl3vehEEAmRmxJ+T1D6/Ddvtc/3EBKOX+0wCqD43nSTQsBuEqzb
8gKrKX1rfDyfNHFIyO8Xl32l9C+7IzxgFksCthXL6FGcv2TfstxDJHDy+iLZ
VL9yOFJi6SQSel0yv7pQ/TzG0HJ9d5IEvrOPvlURgQnHKubYnSHB+3J0pxI1
D7EiqwfXL5BwqVkut5+an9CrXrSEAhJ+Prnsve4qgYFTIu6HEhLssnNde6n5
89wadcatkoRlsNgv+DKB6xefnja8S/VzdUSxTQ6BNnu1b2bVU3qnuAhPXyBw
5cvK/4w3knCtunzl23ME6qc1d7x4SYJCSYucyRkCpSZnl+8jSZBXvJsqc4Ly
t7Dne+IHEmpDDULH0gjElzVrMz+ToDv68RiX8t+RvMC3pT9JWFtzMiPuCIEz
6+/P9MkLoeLGktzfsVS+pmecPioKIfaWT8KhaMrvKmHnx5SEMDY8WThE+T/h
ozJzsY4Q3GU337hE7YffpyK9NqwUgkqDbZNjMBV/wLHAY7UQPnMCbmwOpOK3
63wOthXCCd/utxv8qHiL1qTDG4Qg3dYvmu9JzUuvyY1aPyHo2lrME26g/G7E
l9ZMFUI3Mbm9lUGgv+JdF/oJIfTatm4epBFYP555yTJLCNdSpg6P6lP+erFm
mVuOEPbWhOfw1Qmc4lz0TasUgs2pjDey8gROPnCp/fpWCK7Bn32zxSz0vWY0
/atHCMdb921q5LPwftb0n/P7hRC+1+OIgMvCA8HX+4yGhNS9pJf+eM3C8blz
5fx+CWFhsdpERAMLx9waAp8aieCIt1LVxTMsTO6pfr+WKYKddbJLtp1koUJw
oX+dmQhiu3Rpykepe8Q55luxRgQcpydem/az0CPLzeuMGxW/qF3wJYC6Jy3i
TQHxIiA0p65KjFho4979sitZBLZuTgMF2ix81tPyl+txEaTZP+KuU2Ehb7B6
o/1ZEXC3qb92lWPhAtmDDvRyERTEnRf/M8TEcHsF2x9vRdBskPfvjzImjrZI
1e/pFcEvllN/dj4Tj7h/tx7sF0H8d/W72jlMzAnuXs39KAK1OiJy9jEmNiUW
mjdKieG2rqri5A4m6tdbsjJZYli/R+pbuToTuebbNIxSxdAwpe2x4BADQycs
FI+eEMPCga7iGg4DvzYskBZniWHvkV779aEMlNlw/2PxJTHManoSYeXGQFMf
5fuG1WIwOGu0y4/GwCPxL7Ya9ophs6XqkoRWOtKaVl0wMBsA6/xGrbWKdKxJ
V0hPsRiAmNOSVS9n09F6szheaD0ATWbh+Rt/muDm7uyQIocBWJAM/ovfm+D+
j1/MDfwGqP27P5FbboIvFIrf6KcNQJCVRrQz2wQ53gsX6fcNwNgso6XlQca4
vWxZrpFgAKIau/01thij54SLAX1gAPpCyjQTHYzR+nKmhdnXAbAKuCyrwTDG
Of3yvmtlPkDp3Pb04m80zA2dU+TL+gCR9tF//j5Cwycxk+ZnD3+AWaFl2S+z
jVDtnGirjNYg3Nz0KOFtugGuTtFZGq0/CF/On0lavt8Avfb5vhEaD0IAR4ET
H2KA2a7tmx6vGIQKruxCEgxwwR/165IdB2Hw5IQf77s+/j56liUVPQhRW7oN
irbqoyhundR0yyCUJ6REBSjrYZVffun3/UMQlq5rxLiriebvDCbnJgzBdrvd
vSEZmvjAvdRZPWUIjn9515wSrInPN1aNsDOHgEFT8Q6dr4nCVfVrsgqG4N+l
BLMpQANVlbrbTFqGQGHszr2v02qY/FJxPEDjI3y/tY4zYqiC3raJjs8bPsJP
LWv7Ao1FWBv4t7719Cf4CA7b2oIkj8bl7aXveX6BrLqDs0fb5Njur9dYauUM
Q8atg8TZdC22/Jr5jfVXhmGqJ0mLzdViNxb3/uVfNAyv+mwuLWJps832Hwi+
XDUMOnGvVuq/0mYr6NzNUHs6DDUz1ZPT83TZzRErhMrfhoFvqt1pt0WPzZaj
n1ZwlkAU/e8vid8N2OOR4+pVbhIISqrS1dE2ZFdzn13b5C0Bz2fNl9odDdna
1aEPMrZLYFgrK2DXVUP2tGfxgPwBCdwe3cQ84GTEvlukYytbIgGnjdf7pUto
7D1/SJ6VVEjgRko659lrGpsW99D9z1oJDFWs33DlF419zikg7Gi9BPSe/dmU
6GnM3jeSe1b6jQQ2GyfL6841YTP8dmkXdUvgWcfylpgVJmzBE6vydTwJuEc8
aHsfaMJ2zel+mDQkgdZw/0rRXRO23OyyjXoSCTxtjUpJEZmwH+2Oe4ujElDU
Dck3X0Rnx3b+uS1oUgK2QWbS47Z0tiks/TgzI4F7WZ0Vrbvo7P8Bgn0oIw==

        "]]},
      Annotation[#, 
       "Charting`Private`Tag$107567#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, (2 E^(-2)) Cos[4] + (4 E^(-2)) Sin[4]}, {
        Rational[-1, 3], (2 E^Rational[-2, 3]) Cos[
           Rational[4, 3]] + (4 E^Rational[-2, 3]) Sin[
           Rational[4, 3]]}, {
        Rational[1, 3], (2 E^Rational[2, 3]) Cos[
           Rational[4, 3]] - (4 E^Rational[2, 3]) Sin[
          Rational[4, 3]]}, {
       1, (2 E^2) Cos[4] - (4 E^2) 
        Sin[4]}}, {{-1, -0.5866104093574589}, {-0.3333333333333333, 
       2.2375882231330206`}, {0.3333333333333333, -6.655945686591609}, {
       1, 12.708605608025156`}}]]},
  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, 1}, {-14.836942159427954`, 12.7086003969374}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.796979977634594*^9, 3.79698017917679*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"13224017-0052-4ee9-b37f-3d860910ae9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"hpi", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.796979966394562*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"34d97901-d174-4401-893d-9a271ebef0ad"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwtmnk4VP/7/wkzVCilbMmWbWQnlF6HtKJsIS20aZM2USKSKEWSvKXsa0iy
RMh9su+E7OvMYCwzQ5S1/M7nd33nj5nrcc3cc+7leT9fZ65rpM/dsLq4hoOD
w4h4+t+rKtoysbrKhods8b2PK6lwY1H26eISG6iF/Ouda6iQnashP/ubDRZx
5y8Y1VNBU9H83OgkwR5t74ZbqLBro39PQycbFnOHPat7qYDRZurefmJDU9Op
BNlpKjyKXr38Op14/4SUwYtfVCiz4ycHJ7OhPeP90tQcFUwaFPf5vmND4Ix1
f8QiFQ7nOxY7B7KB/0DTw+draGAV2Jih5ciG3G31Pb+EaPDaqPfwTgc23ND7
IN27mQbty4wx+eNsSNsWrVa8hQa2N7nlxEzZ8Nnh/NNzYjQ4eWL3e45dbFCX
Kfczl6bB+02HDZY02NAZkWo3K0ODgUbbrlkVNsj2UMtC5WjgZHx785gMGxZ+
c5nkKNDgAuXDi0YBNvTpvjzwcicNkke+KFfzseFMSpXsjCoNRmMranBuNuRl
pTsfUafBlc1D3HlLLAhaVeahadIgvYmZ8PE3Cz7FxNvIaNNg6ukyljrNgkdB
92fsdWjg+neLd9QoC0jbyMsZu2jwqUBOPHyYBV0TUSdr9GgwfUvza3AfC1Qd
zGZ69Wlwe9T8t28rC17K1SUydtPAo9n/+qVSFlBTYh78h2jwYtK9c66QBWGB
dy4+xGiQQL5i5JfLgoUEU9zBiAYNyFw4Oo0FBzIM0meNaUA9iXyUE1lgfY2l
lL2PBvMeGuMF0UT+WwaXz5rQQCZb+FtrGAvatYo9kvfTQK+BrOAUzAI+SVOh
XQdoYM5YDGUGsoDFdBr6RvA57qklTz8WbHOx7NE/SIN7UgMXeL1Z4HXj9kI6
wSF7WpreeLDgIlVMa+MhGiTal+nJ3mbBj+oEPxeCC93yErJdiPyx84MlBDeF
pqzfe4kFD0O/GK05TAN6ZqR7/VkWpMsuxO8heLEmaMj+FAsSXvsvXCNYYMTr
yKgtC5IzvxqGEizHeSPvjiULxm//ufKBYINtZyU5zYj+Kry7W0DwMX3rpyEH
WGB5jO9EEcEXju//JW7EAs78xPU5BHve2nXqw24WRNxqehpDcGiwUpWuLgtk
plmVPgQnfxBXr1BngePstZLjBBdV8kdZUljA9e7jBSmCW4ZXuQZ3sEDyyraC
QaKe0b8z112kWOByUD7zNcHLovTORTFCHy+09+wheINuh1GgMAtE1nxx7Cb6
JW9Vk7F5AwtiGaKC1wje41oknLCWBc7/WoxniH5bBmX6qPGwQMXffPYawc4p
MeMlq0xIM+YS7SXm5VUWan1kiQlrQi9l7iU4bMDvW+ccE/Ycn0mOIOabuuSm
cJHNhKRNov+oxPxbNU8s+9CZ4P9OJdOe0AfjqOlF/kEmmIVtnH1E6OfvVcPm
qG4mdI0FeMYS+lJMlE7Mb2KCyHuFnQV7aWAIm/j31TKhrPLE4c+GxP728ni0
lDNBna30NHYPDbw3TRyZLGSCy6nKY/YGRD5qfXn3cplQ8jW5VobQd5ppkyQp
iwl/bY4eGib2ofVxzi+pRCbs/6Wra0DsCyM26VRWNBNiBN5FtGsR+RRHVO2O
ZEJlmuDAOWLfFOc8o2yDmVC4HMh9Uo0Gezdc56YHMsH4MbRXEPtrreLoesuP
Cec1brjKqNDg4YV9xi88mCDAmz9UqEj4Sfu6ie9nmcCilP2yJPzi0YX80oxT
TMhKFxB+sJ0GqnNnXr+xY4LDYvyZt9to8HRTzp4r5kQ+XU3H8kWJ+q3sX27Q
Z8Jb0irX1Y00mBjmvLCkxYTYj1pFuwVpEHkrQ4+uStQrh11ew0+DX6H/hgvk
mHBo+Ui4Ky8NUpqTtB03MCHqzv3A7/+oYO14lO/wOiZ4SX22M1ihAgd7vl+T
RMxnf9V0KuGXDgKmgaSVKTiyW935LOGnguYz3R/HpsBqkLvYbJwK9+oMfVZK
p8An/tbyKuHXOxzGrEe/TkHcRbP4skYqtI6HKrbkTcHnky9z79dRQYWP/iMx
fQpunn5AqiynwvDBIDnTiCm4YJFW1ZxPhSOVHbVvr09B9sf6b9n/UWHexjfm
8eUpmPth6FfwmgpJdKU7189Pgfxwj33OSyqscnlLGJ2YAuXPDvL+gVTIM5a9
wTCZgtt8Z1P/c6fCNvzG5l0SU/Dt98Nb962o0CCk42awdQq6xehxHeZU8Ly4
1GYoNAWVWt3cioep0LH2yWsT3ilw8t1um4qoEHo8SshqbhKm1M6HblWhAtdk
xYbrDZOQvyf539c1VMgxDLp5s3oSaE4fxOz/DoNT6LGWO2WT0FUrLT4xPwwl
Oj0vPQsnQU+/Jn98ahjcfdkCT5Mm4VHIQo1txzCMC4vxJ3pNQtx4iyI9ZRgi
Lw+6pHhMgnKqp0lp3DAcKE5q+HB7EtrVzeefRw1DgpPai+zLk/Av2k9wTcgw
nMowWVdqMwln/nMPsHcbhmbsBl+3yiTIWm9/kL53GPKvVfAI9k+A280PL8tq
h0BPylUjpXMCfOOWDM58H4Ki9q2nDVsngHf3TNxE4RDghtfyrlVPgElZS8DP
1CGoExQ6X/OZiPfyk571H4KhXEf8UcAEBOS39R3aMwRrV5Y859QmoLjTNOnO
3kEIzk5Kea48AY81zotXKg3ChotHW2V2TEB6o0DJn82DINwUr2QpNgEl999Y
L00MgFTcoa6P3BNA/y3c8ujNAOiYROhc6h6HnEc59c/o/eD0QmO6228cTDdg
BXuv9oFnXlhAo/c4JJR9k6ZY98GbvlmJ7/fG4XJfQPfS7j6oU/lyOM11HDY8
Kdxiwt8HWo0Gie4O4yD1ilPIO6sXSAImtps0x2GfxsFHjyd7IPOlbYnZMAOe
COUJFx7rhqqCAiusjwED4mG6a3S6YXhQZFyrkwFr/fBRVbFu2KLeKyzeyADN
bpUhNXoX+LQ43hgvZMAXjcjUZvcusNp4RSYglAH/Delr+EV0wkLYg6eAGKDg
TOsPg58wJvF94oABA+RtLZQjY35CRwrJvEmbAUtDvPqe3j8ht+jVxn4lBtgY
3Q5qN/gJrtTUqKVNDLBNCfYazm0HmkZ7pg5jDAzC/7bax7ZBU4vKj4zQMWjO
hviEkz8gUWBANHJ4FC6vnK8Xbq2BsJOIrN83CprOGxt/+tSAX1rcXHfHKMh3
dH+y2FkD54zPN4s3jAKrBhP1CKwGGXeGf+yXUTDTexcYoFcFCf2/2CnPR6Hj
bGF+dnA5xGWSq/J1RkHORsLuMW8JvD+icbvt2QhImcXUl4m9Aj+Xs/eUDtNB
ve2F47efVegBV7rHbSYVqBeMGdUTPeisb7NcR9ow9CzsKx57PILefBuJfH91
CKREemIC1rNQ0aDi+kyZAThEOa8RwZhFshswY5uYXpgw286sf7OAcpSfXqXS
uuBfrvgzydi/aLDys5Subgeo5HrxelI4seP///ET+i/ZOWUOcmIjKm804Usb
ZNZWPaFSuDDlh8ksRkYb5LwYvLmqxYW5NuenC8W3gUJl488te7iwhVsdMs7P
24BzR8SkthkXtrZg6yZ+pzaQl99zcqcLF6ZuFDXrwNcG25mrI+QMLuzB8di8
PydboVyIm6Qox43hKZ9uSlm2QoXHpaLHFG6MewFUjhxohela984uTW4sJGoo
KVq9FQRODyjeMOLG4gal35jwtML1O0Y6pme4saorSXfDsn6A1h9ty68R3NjG
hx90VTl/QEfhzq3qa3iwgC+KNRvmW4D/0kS7Pi8PtsRKPTE71QLauyYH9wjw
YFTHFK/Crha4fagYVxXjwXKMEsuMs1sgK9WRimvwYFY80UftHFtgT6/GoUhH
HkxBVLqR40EzKClXegzl82AbgrZPVzo3Q8bA4288xTzYwtK2Tc+tmmFI9IGz
LM6D1fSJnRBWboZx5suKg3U82OW4zSNK3U1gWBdM1RrgwdIVeP9a7WqCI2Kb
d77mJmEqumyV5NkGuH319gYDUxLmrOrj87W/AfgzAp/mHyNhsfKCrY3VDZCT
wF6QtyFhQlvVPP68awBWxff3k6dI2Py86/eDJg0g8Ct8dOk6CSv7yjo+EV4P
yY89NZVCSNjK54dp/x7WA63oR/HqKxKmky6wLHSlHlrFribXvyFhaVGqcbsN
68HztNmdfdEkLPiB68SLkToQu2HK/pxBwuwNWQ/VdOvgwLLxJr8qEham8/DH
Pqk6sDehKKfXkrD6nQJy9mvrwHJ4kbe6gYTtlVSt9R2ohUfZGgsDrSRMdvX6
ptaAWlD0dA4LGCBhp+b/Xhy9WQsXl3v7rYdJWAQ7uHDJoRa2m61NFqaTMN6h
j6dl1WqBR/ahr/s4CWPhzFS3zhoQKTY9mzlLwhS+ei89/V4DA5aCvhJ/SJjT
Z37z6IwaqNW93uS7QMLa4nf+qiT2uDWO3bbjLwkr9Lu+Z6tiDXBUszyGeMjY
L8+/IRShGlAcPss3QyZjlDvBw2ilGgKcrz38zUfGYs5/DLjcUg0Cu44wu/nJ
2GMTZsvXe9Xg2xzRLihMxsoOTR3TPl8NtjVapV+2kDEO88mmLPNqILtb5FiK
kDGv4+MNiTLVsEdPPeK8OBkrOsEwleSvhmfdvG49EmRs8fRYXeR8FTjbvNDb
L0nG3J1HaoIbqkC9udryjxQZy7tKP8hbUAXzk+/C98gQ+brSqvziq8BMwTrK
XZaM3fAYrvBwr4Ihvo91lTvIWNaDoX2/nKrgodAdWo88GZvyGSxzMa2CBvL5
dzQFMnb5aT9+VqoKqkyFKpuVyFjKiz7Ut7YKXP+syOUqkzF6aG+p7e9KMLC8
zBFEIWMyb3oMfwxWgsMXl6M2KmTs7NvuEtO6Slj3XpYktJOMxUV37a7Kq4Rz
UamS5QQPxHcWYbGVIH5r88tLqmRMIqVDv/hZJVzgDzy6SrBD+s9CHbdKyH65
zSZIjYxFZrXvyj5TCWGW8xG86mSsI6fti/LhSgif1BbwJHhzQatOslYlCO1e
yB4g2Lr4R952yUqQuHzBXVeDjIVBi1YUbyXYT0Yff0RwS3lzzubZCmC+rtsP
BAvUNGm87K+Ac8Eb904TbNbQmM1XUwFvL77T2axJxoJaGtT8cyrgs1CYLIXg
mvb6rH/vK4B7UWpVm2BSd93O+4EVIDrjBhoE7++vzZy9VQHvzUtOShPsP1xD
cT1VAWeG5eu5CC4bqU5nHKgAW55R7m7iehwTVUrnNYjPx6hwxBO8l1WZ1i9e
AV5yanknCfb6VaFgT6oAtxRZET6Ci/6Up7ROl4Npq5HsB6LehaWyHea95bBl
qaxhN8G7Vr8nVVeWwzEx6rrvRP/cub7LGmeXw9xgb6cewXlkPKEkqhzCs1gK
iUS/1TeUxn2+UQ7x6Wc1jhHzcd38bbuKQzkoXjrYHUrMM1OkJCbFpByU7Syp
FcS8laSL3r8TLYcs1vQcF6GHyzu+im/hLgf3ZjGmwP/0olQYFcoqg6xzr2TX
KxL60PwS+aS8DNqkExT7Cf056eZv5cgqA7P5wZFsOTIWa5AX4RlZBjUDn0v/
p1eJfTnhN66XQavdjbguQt/CNlmhJ7aWwdsL1ppzYmQsR/550X6uMpB31ftz
R5SMWSxeomuwv0N9kM2lsa3EvGKk9dZWf4e034d1PmwmY/8Y4YNF7t9h6Z3G
t/+I/XxXfIsv9dx3uBxbr5C3jozphRzVen30OxgOLJIriH2+rcUbeE3+O5SE
n+cvJfZ/1PuBqkQHDtaV5GtihD88trC35y3DgXugFf+xRMKkZHX85j7isKDI
fdyL8BOHGtbPhic4dCzKb8sg/KdJ6Jy3tw4OZcbfXFwJf3I99irymxJAa66r
UADhd2lzR6becAJojt4Rd20mYdS33JhrdymAK+nPIcIfbekeY5LPSqHDbJy7
s5KEoftndH0Z30D1OjRaF5KwDYmUduPUEjgRoKldF0XCjhwaURD3KQGD225a
fREkzJ8Z82DWtgQGEj6+HQojYQu7hGSTSCVw/ssXXzyIhA03LNzicS4G3RPP
Ofvuk7CcP5WCNXJF8MhcR8zrOAkLSU8o27v4FZIih4IOW5Cwa2d87uY3fgWq
e4o/iTh/5Kr0ehPcv4JEcs+voxjhz28yUrxrCoG0rNkhokzCPLVfGWq5FMCa
3vC0Z0s8mC3j+vQHrABUg6oHTed4MK33RxKlhAvgwHq77X+ZPNgUFzefQOkX
4DWY/U9lmAc70+bezhD8AkWvJ8JKq3gw49unrsXk5kFnmXZ/aggPJimvLyn8
NA9aVLPZtoE82HK38I/np/Lgn6t+yJwPD5Zn1Kx7nycPJD15LZdv8mDyG43X
2NjlgtDzPFFdKx5sbbbCW77lz5BuWKnosJEHS+4dCR73z4L0x2P9in7cWI/X
lthorSyI4ioeNbzPjQlIHsy2pH6EEzwZTOOb3Ji7U1rrV/QRPvFaDEoQ9xsH
Rq5uDVrKgDMNBXmC+twYg8WOU775Afxkzh6bmiTul9Ys5V47mQRS1CaPk/u5
sDOJypXb1yZBWtbFrIsGXFiYycmOtsJEaDj6dpejGhe2FFCysHtLIghS8nZK
iXJh9et8DNf/iIfR7RMS3ZNrsC5l3pATwTFQfvpkkUzIGuy0pURe7/lw+Mdv
nTZbyYlNzf7Wv1vxGjxuGlVKfeXEvCKaQWDHa9jhuvWIYSYn9r7Xr95o9BX0
HpF5YBLGieXVt1Ye+xECKPUR3/PTnNinORdZRo8/cP/Tcfo9zYH5tiu2i5cb
wgabgsty6zgwFcH+qzw75ZDb160k14VV1DHjF7th4RDS5qOL3epZRQ9eH6i7
pu2ETM4L1G2IWUXlUs8CozfcRomx95/ky66iS5eUnb/880PWnadaQhT/oa9r
H/wsu/sanQrZfdxWZAXF7RRu+yQTjqibynP2zS6jAItPLe+bw5Gl0hMSb9My
somg1bsrRaBNpDZ34cfLaFrarEy5PxIJhXnWGk8uIXn9bZ/CTGLQq6mXzOHc
RVSb62jy+VkSctT3n1knP490qJySj+w/oR41jmNSwTNItchuRv3DJ3TZZVW1
1WkGyYd9rBha/IQ+PV/r5qg9g9bFZ+rEmWcj2RA7pfW902jFwr5vlZWNanfu
VMqSn0b92Z+UQCMHsTCVPwquTBR780yFYUEemrOzWtd4bwzJThcvGpR9RQ3l
2Wn+F38ir8Z9/nPMr2g9vpne5N2OOtLrBbJEi9Dc3S8Jrm/aUNDFXlnpW0Vo
5XXqn6yyH2i6Z8mcLFWMOP7bf+KqcgMqrdRPaPMuQUP6zf4ZV4qQw7uCIy76
gJyUzbvTcr/D4cTuxqP2ZciFkS6+0kOH/eZCXL/zq5Gbj9nPescVeOnY6ate
0ICQ4ceXd1+Q8eqj2/gthH4gualqyXLzjThTWvhha1QbCqjypQ5Ub8H/7/cA
ovso+PbFi+F33ShnX27pQJVVP+0uWUjgnX0brJxrutDGmJCLdkrSuNP9PWNk
s17Udu0CzXxAFi+n7Aoq5xlAjKRncoZh8vgZNZvEGcEB1LGRFJzzTh5f0LxV
sl1sAA0I5wbKJMvjKgYZrAeqA2gxNUXoV4E8Hn5ou7W23QA6R4/972i/PO58
kSyRnDaAnHbpi/+RV8B5Yzs/BpgOInURW4+KfAU8IWGuKu/4INLjMeDwKlXA
96RsHKI6DqJ7e3kEd1Yr4Dc/mgoht0Gkuqz+/kGXAt5dDO7z7wfRbne/J7VL
Cnh6Vyq6zBpE7JyTQtJ7FXF5vhJG0qEhJHEzL9oPFPFf1apXE8yHUDhzeEqz
WhEvDYifjLUaQnmHzy/0NinittyBrKhTQ+i09VFZkQFF/Mmq5VzozSGEyY4M
7VpRxOm/x1a9IofQHMfsF/5dSngCddPW44whFJAc4NiVooS7xgdEWjGHUHC7
5NbQj0q4gdOiqMWvITQxGeWD8pTw1v4BCdOVIWQh4m705LsSztn9QcZowzDq
UVh4l9GrhDs1I9WdesPItOa08SkBZXxbybX9PE+HEbuX1bjxujK+WXRpyZW4
pfVVd/RVvKOMr3d/mt0VNozK+ruVte8r4ytqyeKZ0cNoZ43KHuUnynhP4sCM
Ve4wUhap2Bb6XhmPeG4ZEzcwjNa2O+3Xr1XGQxiD1mvpw0gy+dvxqCZl/Ml+
Vz638WH04v2nLHabMu62GuR2cG4YRRvbC3gMKONWdyqOsPioaG9NkcX8L2Vc
4OSu+d06VLQ2MxfliVJwUmFlZrIBFf3ZlJNtI0nB/262OSeIUdFXBeEihgwF
n2q62Ug9QkW8oVNXJikUvM44PfGZExX53uDhczCk4IHK2yw6n1NRfyWKbj1N
wR8GZvAYvaKiGN2Ey6lnKbg7Xb84PYKKqm/1id+4SMGdY2zlH8ZTkUDjZ/5O
FwpuIhS6IldARSvsjnHyAwrOsbTmw20qFYnl7eujhVNwJ1r3rM8YFZVI+h79
9B8Fxxuy9wZPUZHmxo/gGkXBfWPPtKf+oaK4EI4HtbEUfNWkaLVvLQ3tUS5y
YH6g4GdUXx2ZEKQhIVZSrV0mBS/devnN/GYaWqL0sPOziHwnhClC22kobd+J
vea5FPzfy1u2B7VoKCrRYHy0mIi/fyjeRo+GohtJIqxvRPy57VNnDWlI/O2b
Lwwg4nUaH3kdpCF+LePtheUUfEAyqeGZGQ1VqT3pfFFJwffyPtj6nyUNaWr/
7LWpJvrbo/jx80kaKtvNSiqto+CnKlbnS51oyHMN1c6pgYKXfOwwbrhIQwNn
9bR+N1JwL1//rtEbNJTXfhUttFDwlR1DXBL+NOTnmZx3roOIFyw4qvSMhvI/
Xvr8vpOIXwh+qxtCQ9bkMy9ru4j4+t1qlpE09LDNqX65h4L35Ql5nommoUzv
zK2cfRR8T8x4xbUEot7qdOlFgpdv/ucQkElDOrGHTL8PUHAHB9fk159p6JK7
2olXgxS8aN/+6bgvNBQRZMdpM0TBxXZK7M4qpqEc1TEDvmEK7rll9kkxTkP2
P3j+ZhPcs1rbUlNJQ1TOvr2mVApuMB4n3lFHQyF3X893EhzV6uFMaybyWW8n
aUej4EvFRz9Pt9PQx06r9BqCHZJ3rPztpqHTEnlhKnTi+iErB9YN0hD3yQ9N
fgSL3Wt7JUKnoXfW547XE3z/bHrfjnEaWli7QZI0QsG7jjxS0GLREEcLfbsW
wXra9rexWRoawjZbWREcuU3tm/kCDWEWbRnnCV4gkXhP/qWhJ0fs5S4RbD/d
Z3V5DR2RentyThFc2J0bfZdMR9Ybw4+aECxSHsTwW09Hd51LWdsIvpd5Vit0
Ix1pl70JGify6Xqj9zB6Cx3Z+dqJphKs5yNYmy5ORxzuxmG2BEdeHt1UKEVH
jD8RU/NEvfOW385U7qCjwp6I7c8J9uv+1L+XQkeyBy5o8RAscDbhVKE6HUld
6ghz/V//GOG9Grp0xKXdpllN9Fv+ZqBDxm46wruMeQUJzpm/3y1nREeLpYK8
B4h5Gfq42MccoKM1EfIKLsQ8bUIsbV9Z0lGk03TEk34KPiRs8nOtHR012D39
cY/Qw7VoXRv/U3RkZqe96tBL5JMpbuVxiY6GFjLJU4S+BLQFfky70FGA4O2G
KEJ/b4s5LK7epqMZhT32eoQ+s+tGzE9709G02lQkaiP0ZtXV0OFHR3N8g7s+
/KDg1d11phZP6Wh9/fQtTkLfA4xPh/e9piM9pbTn3sQ+XL2ZUFMSSUcRO28e
jyf25fd8+EHdGDpSWngXkltDwdeTPfcrfaCjUy5+sokVRD9DXCoSsuhoB5f7
Fd8yCi67xXGfRB7RP1M0a4oT+tthYiQIdJT2m57ykdjvK/sEDH+309GhQFnH
qM8UfK6Oo8S1h44at9iFMwh/8LWaNWAM0tHDj21f5Aj/iDzbpdc7QUflBtGR
zikUvMonQfs7xwjSsxpIECT8yIr8JteANIIsTmcLN0RQ8P6QQM28dSNoSmO9
lPtr4vujXdRTt4yg9ENlLWEvKLhMia5KsMoIWpGKuMf0puBZ+5QySJojSN96
/UNhTwquXy+u7LuL+L5oSpWyOwW36OFQvGM8gjp+GcxJuBL+s1Ane8J+BM3l
HYqXJPy3V9tRfIf/CJJKPS8asovw20UdwSfPRtA+t1a+aE0KPv1tPddIyAja
Ghlw+O1OCs59sGgi6e0Iepvc8PKELAVXPSFcJPdpBFk92aS4wE/U711vL9cz
goonrbYmDyrja40TzPwHR1Doqf1u/t3K+BvSfYxOH0EqD94GWBDnT/pLecUk
9ghaezwgOatKGW+LfzQvyzOKni4cq3iUqYzLV+2KkFUfRecdWdYP3JTx7CCB
oMc6o0j9k02cNHFeGhwb8aYZjKKqgZL1eReV8WNdYRcT94+iL60jUtG2yvi9
Caa27MlRFLy0ouuzSxmvF0hqkwkYRT7OHqoPfivhN+02bJTpG0V/1p3g23xO
CT+Xpha1Y3gUJTRJ0DvtlfDji0dllUZHEWdsuPezY8R5/y5YR316FDk1b/+R
v0cJ5xlc67CXewylSCns1tyihEc58yQ6qIyhkR+FqnmVinjF3SXt115jiO97
mHbWFkX8S5VoacSjMXQvB7El1iniH7bqH4wKGEMR9X/f3FtVwEO+epyIDx1D
IsV5IX/GFPATf+e8PyWNoV+abj7rCxVwlj+7qr5hDHFUFXG9s1HARcPp9tzb
GMgr9dG0iI88rvd4+xY3GQYqWr70aOKGPG5726GNpsBA5/DEyiQneTzMosW8
XJOBLi3wmrUZyePr+UuM/Q4xkIfaTPBWLnn835PXKhxuDLTvyFOW7qMdON3D
mGOljoFuX/Xal3hNDl9zyfvbtRYGMnoyfuzhCTlcyrbQs/cnA+V738CMDsrh
p7VVfxcNMVCK9qkvD2Xk8I5p0Yn7fxjoDp3LprNTFq+9MtM2Lz2Ojshvv7pk
KItnnYxLnb03joKWkkqp89K4dqfsEunhOFoNVOkXoUvjxVapZmKPx9HuaC9n
/RZpvOZw1gwWPI7ETuam66dJ47RdJbtD4seRpyVPuK6dNC6yuatZsW4cbVJi
9Uh+lsL9GgQXTotPoGm/p9t2fJDE7Qx9DtV8m0CZcDB1IEcE7/s9KlhWNoFW
Ejr2WTwSwc9lHe0srp5ALXz6Cv8dE8Fdtks6f/oxgQ6VXS1MmtyK+3F+exwx
MoE2xFmXlUpvxbMql0ov8E+igotaCVNPhHHuo+46nKcn0c4YZb4dqkL45zPX
ZQxWJtGenzecmMs8+Ln86W1xnFOoK/7pabn7PPjm9W6iJPIUumcxU/rnNzfu
/tVzQ+vGKVQzKlR3ncWFG2x++u+KwhRy2dHUlNzDiZfVJvS8tZpCTrqbw55h
y9Cu3RW2mEZwYS5jsx8NFtbu4/p6nIkOHb+rU/NyGVn92K27LZKF3CZaakSO
imFrd6/7XhLNQnokvls+6WLY96Qe01OJLCRSZZi8hSyOqd+7f/ZdFguRxjce
78DFMYHtBS9EK1no9vW7WKTuNqzWRZMm/IuFBCdJL58KS2EYr1KogBkbNQSF
84WJy2ILtxbEsizZ6Imd+VK+mSz2qbc62dyOjeQsJcOmvWUxyU/OxS/OsRG/
2rTXhyFZbOV40uja+2zEe/dkomKqHFaQuN2QnMJGkafruI7pyWOu/OzqlAw2
qvzee6Hjqjwm71FqdeAzG83nv79/J1oeCz9y+vKTEjbK/7vozVqjgN2eiXrN
1cZGzdtsKKNNCpjyyauSiV1sRLLCz4uuUcSGK/Q/GA8Q14/91XBWRxGziOwq
fTTORgGvTrM03itivGvSDkuz2Sjt72f/r82KGFzzaMfn2GiYk5vXlksJc/95
wNFpiY1wadlL5F1K2P/9/weJD1eGNl5Vwv4f7L+4vQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$107694#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Hs01OkfB3C2UiolcqnUKtJldRkVpexMEuu2G+VaG0ptto2fy09WSVSy
ykZKkltIbim5VNq8dRHJuMUQxsx8yRgz8/0qbOtS9tk/nvM9r/Oc7znP8/m8
P8/yQ36OR75RUFCII+u/73q25uDUFAOlG9HbzlVT8BvTix4bZ9DMjX7oUkPh
QQnLYHiUgWujxu7lbygYrbY/1C9lEMrilSfUUzBZcL6zvp2BQtBQ/WgLhZC3
8SGvWxjQX53VAlspVFxI16ziMti2z8b/QxuFHeMVjiUvGcQdbD+V10GB0/ux
7uZ9BlVDMS+L+BQiUqeOJeQzeNTo0tbaQ+GFi8rM2DsMPoYUKwwJKFjUr951
9haD49/NyZ5BUbgQZSz6PZGB9uY5Ogq9FF5zLMID4xn8PjPpHkNsXebx9OhF
BkUqrkuLPlCI8Tvh5hnJ4BLn0sTpfgr1a059dgtjwDWzHeaIKaj0RV/fG8Lg
xYyk6ePEP6YlbrIPZDB+w39D7gCFK67ZzZa+DLpH2gNtJRSa1B76cXwYLNB5
29xL7HiRW7DJg4FVnUvn8CCFhJ1d1uvcGaxz+Hj+uJRC68SA2MCJQUSmlnUH
sUb53xd09zDwrawzMJVRcP7fdP3FtgzuZM9eFk98Y63aC3VLBuFO7ev5xB19
33qq7GTQ3rTRbZmcwuL0dV+VdjDI0dRK3Ue83217ioIJg+mrYsbDiVPUrU3H
WaS+ijH+GcQ9XOeOYUMGOnc1vykn/jbaO1i+ikGP5sbCKmJP84CF4hWkXw48
v/98ezL8oXApAzVnZfsyYqo8dk+nNgOTlW92pRPr+d+i36kz2AWNfWeIvb/L
u8ydxyBTjwlzJL7zoXxtjTIDO0en50uI+9Nf1VZNZ5Bh+8OyTnKf1e4tRyum
aByaX3stlthnoXB66TiNhtRWfWPi/AZ55r1RGmF/n2h4R+oli57g3B2iwVt0
Lf4o8bpdyoIMKY07M618aVJv3y+aYcn9NGoR5X2c+P4j/SXXRDQeme8N4pP+
DPkbPYntprE0rjDVgjig3370bAsN7ZgZZp9Iv0sy9ieEcmmIjGeUbCUecfdh
BdXSMC2KNw8ieTnZeP7EL5U0fprcU1TXR+GyNLh95DGN0Xt61c0kb5kzfXZG
ltCYOO80t57ks55tr5GaS8Mhm/ddspDUbz87fG0WjY2yldN9SZ4/n2RJHqXS
iHBrnbuF5H3FA41nLVdpaN358X5KF4Wt9TNXecbSWHVusbVZJwX7gbE4+UUa
bVG71ZvJ/ITo9njPCiP1+Pp4awuZr4a4nLnf/0JDp1ij1rSRQl9hUvBbLxp5
Tzv7grgUxmpjhK4HaNyVfmVlvqWgr+hXGuhA4/9/ef/MI/Me6m9yIG87OY9u
zj/ZoBAXu+a1sTENZxfvpJBnpJ95Sza+2kgDJRHH2E9J/kVT0wQraRzmv7+Z
U07BwLG2YKEqjSXDU5yuQjLvvhUambPJvvOjwz/kU3CIKQzfMIOGgYBbnnuX
wukXcXttxuXI8NKmzTMptBi5TYT3yTG+Wu82P5FCmPqgjfSxHF+ez19UGEbh
6obu0pASOdTPPNlpF0oh17ZhmVKRHGUeL5IFweT/cw8/6WbJUZXwkS/wI/ka
CU12jpVjS2V1rqUXmb/WOYPPveToWbp7z72d5L3xLqssOCBHUUvE4xozCutH
DiZcd5HjstehUd42CtHqD3f42MthqjJf/o5FwczR9YrqNjmqUzRbrZZTyGnM
3uyhKsf+Wz1ntb6KsNfjR2XrOXIcGnLdFD4mggLzmW+kJIfRtycrukZEcJ9n
e1FpUgbe7HTLQKkI8+0/vr8nlmHT4lRnnQ4RQurMwicrZfis7ejkfF+Ele7i
vf1PZChQme04J1+EFknc6qZSGcK7j+iVZYtgqNzXnJUvg8UsZQvxTRFEVjH6
tokypN34crr6nAg21bw3N0/IoJmYzvVxEmFpld9CEx0ZdqjXSByGhKhX2xJk
qiWDaQB33UuJEKFHxt+ZqcnQ8PhS2ZpeITnnhQSLWTIc+bIhjtcmRJxTsprj
iBSzD2sF3K8QYpr0leqJeiku3fYa+DlSCInGYpWs01LkSXrT7ikLkXRM8FvO
SSnUOGK3GkUhLJ9m1+cFSEFPWBQXDguQ6bnh8oNjUjzwijDPfSfAgQKLOZX7
pIgXm1SmXhWgkeOn/N5QiuCOW4sj5wpQdvzVjPn8QRg4sH/ZOMTHVl1fVk77
IJbE/flqRTcfFa1aP5u1DOInuwU9EzV8VJkdLz1eM4iI7cW7D6XzUTdf7XBt
8SAujbqLp+z4EJZ4VEVEDUK1wynoTFY3Zk+Oh45sGESvq6Q02qwLnpdZQ+8j
JUjcfbGpeWUHQkuvRnHDJFCx/OO8sUoHrncP6zwPIfuGm0wujLSjzrDcOtdX
AkHBmSThi3Zs4ppmBbtLoB04YnPlYDuU5lk4qxtJoLFyv199PA+FV5z/shMN
4ONCjfJqcSv+uXoqGuwBaBts317q0AyxzvNBS9MBlEyM2amxmsHLUbJv2DyA
zOq0KGfVZpRUxC/grxkAjJP94xua4EvdTR5XH4Dnn64GzdZN6GW1Fm4ZEMNN
v19jKLgBDU2GzQVxYhxt/z6iRrMOWfN6FiWJ+tHHzX965GkVUmxYAe/++IDC
TO1FjrJ0duRvXiFrrPuQdE1066xuHfvUtPyTAeQdD9VuPZef1Mn2Otuoz8sV
IdPtgHuQUx/7+rMPSSm/CnHVrCM+XSxlVwhWzy1c0YOMXyNZnX6f2HqqHPN9
aV2IdnzGfjL2N/vh2uhfqd4O+HncrvtqNckWVBfrGhvz0DL104KKIQXO6b1j
FlsNeUCUy+U/JhQ42iKOj+kKHrgOssf7lRQ5eyYbi7+fx4N76TODWTqKnCoj
2tyqvw1LCqb2RVgpcjLS1x5xTWwD20NhciRNkdMhy91d69EGt4P2E8pdipx/
AfhWUXc=
        "]], LineBox[CompressedData["
1:eJwtl3k0ld/3x03XfTQoY8gYKZJU5vAcU31MlSkyRJojpcKnzETJLGRMg1A+
iboKxX5c7mDmuiQRqYgkUUSp7/Nb6/fHWWe91jl/nLP3e+/3OUo+Zx2O8fHw
8HSQ4/9mTh3vsVHrXmDGPT2x8gcvys3YMRs+ygXYyiK0ovkQ53GDYUwHF576
0kZj8vmQ+dhwa0IxFy46h+aHd/EhFUfZ6fwDXAgYaRhn6PCjjxqZO+BZDzhy
lYfyfvAj9fD705/KekC9UOKyFJ8A8u+seih6pwcoHTK7rwgLoJ8BfRuOJ/RA
nYuXr9omAbTi+Tqx1d49YLq+e/KBiwDSMs2dcxPqgXQfl7qYKgEU4lxIm3fn
gPvsdEXuUQoiih+fU7TnwFFjO61lfwoS+Aka1rs5cHaq/u3eSxSUnDtSVKDF
gYSgQTYkUdDtYaVMCwoHuIY8nFdVFMQ8VRSYXt4NFTGTz0f4BJFI+ANdTd5u
uC5pzXFOFURxzzaz1y50wVkLLFAkWxAtTZccnJvqghv6hwLqCwXRqFdxaHV/
F2Re6A6aKhdET0zv0c0qyP3avbTsNkHkQCnY6+LVBRnv7Je3U6iIaSw7YuDc
BbYXEg34V1GRYVBegKxNF+CthzoZolS0YTwn451uFwy2t1AVFKlojp014Cvc
BfNyRJmSIRVtklZq5wnphJwJBeKELxWtva4wwzjeCQrDfZl7A6jo55KcWIJD
J3zM3chQDaYi9qDMQQn1TpA/dl2rLJqKTt4W/6j2ugMuWwQYCuRQ0cNN2LKD
XgfkadJkFuhUlJ4tqCil3AFzV8fj51hUdFmIYj4k3AGxJU8c3rVRkfVn3vgT
Y+3gY7D2W2ofFX0u/yUemtkOSyWfvNEEFWnoftW4P9cGORXCq0dWYui4ZkRE
zVAbzJxZjPpnLYYKVddw2lltULbRr7FQHEOi67YFz+e1wcErE2UychhaWPBv
2GPRBrF/zMXMtmJIa+aPmIdmG4im+E8pbsfQ6U/Jx89JtQG/jFL6tDaGBvvL
V+ZMtYKsgrz5ASMM0WumnSczWkFmLHiXizWGfleGl/4Jb4VBq9F//7PDkM5D
4V+ip1qBv5QbPbMfQ6W5mrd3GbdCrKP9bwsXDCWF+E8mfmwBzxMPYxWOYIh5
4Y/Rnc4WsL/ltOnzMQzx+CWnVNW0QHlnXOb9kxg671Gu/TapBXKVYl6NncGQ
q/F0+DbdFrCMfvMtNxhD6Trh3eaKLRCQyFgYvISh1q3CKq4rWoA/Ta9ldSiG
TOQ1myPfNoNr/FPurkgMBUvWr89kN4NCWN0qg2gMVQjv9X/wpBlsfPeJbLyC
IeW/Z8Q4cc3wSndlZPNVDHksLB8bO9cMBuI6k1HxGMr6mlS95NYMPFNjimoJ
GMJGHnkqb2uGhuujc+bJGDLrN67Qk26GF/Yaqc9TMBTS1c5ny98MsmJ/fkqn
YWia+FJy8RUbJGINtMpuYGhTTdjStQY2lOnc+/M6A0PelavtCsrYUDKSkbOQ
iaHcBwWFlZlswOKEeQVuYqjnztZZRgQbujau1flL8qrcOouBU2wQIHJ0JrIx
tDvd7ua0Ixtyncr46DkYirg+NMFnwoab7y3y43MxVB19xmjdZjb88jvOh/Iw
NHt5OXmLKBsYM2t0PpK85ULSO/w3C+b9TbUv5WPoqK+cttMYC1LGl/7+IvnW
kUdxJ7tYkORmlH2mAEOv3I1fh9ayYJZFWW4nea1T+5a0IhYQ21w05W5hyNrW
M/x+MrmepqXhTnKMxZeumn9ZkDCdNn+VZPo/U/u0j7AgVMFE+x7JPHafO8rt
WBDlcWDoEckm9pN2avosyL8/8K2E5FDnibZ7G1jQutQSkEZy7cFPNvKrWbDS
Y5PnaZIXPcdbsheY4NP89ekOkvV9xqzERpnQZqYSNEmeL+j4R3ZSGxP+YTfd
SyOZdvrDHuw5E14f7DbaTPKs/3tm9B0mRCxYmZaT99W6MGq5nMAE/Tualcok
nw1+1xQcxASqS0TiNTJe5SEj5rPeTBiXMuoZJOM7FTFM97NhwtDY0VhFkk9e
GyIOKzKBr2RpSxCZn+LEQXxwBRN25JxQvEbm70Pqm/oDPxgQdBNFxmdh6HDO
65c2LQwwqdaNdiP1cLugfxeTxoC6AUcVdVIvb++8qkWFDHAQGto+QerJ7WFv
tc5FBjy7vjNFh9RbdjlXr+IQA64N8QzTkzDU96TnmboVA3yNDHPxRAw5vuim
Kcgz4Iz8NwcqqWfbtvYKIXYTHL1wtr0zCkPXu9q2XXnSBH2qBf/2R2CIzW0t
/5PfBK5juildYRiyHGr+by6gCfLiy/8kk/VmMs0oHVrfBGsOl49ZnCPzM9u0
yVWwCeQDjb6wyXqtnW8s5sw0gmmmrpeRL4b0/jYUsRiN0LDoH/uNrHettfW3
K882QqXjzECGG4b8xesUNNwawYf91iiD7Bf/Sb28VWzRCCpWBitinDCkplSb
nyfdCKP+O8Y192Jow45n2bGNdHCw0XkICEMSTuWpB9fRYWpPmBNjA4aeqCbU
WvLTgX5D0J5XAUP7F0982P61ARRPBw9rrifve0tJfwWrAc4/W/PkkBiG/nzK
GK4NIrldRlOEH0NjYSGasn0EjH3PjWoYpqKY/a6uGJ0A7Yn8fMk3VKSorBP9
/REBwifjrDzJfu3Gnu5tiyXAhbL2IJD9vEPUJyxMhwCL+uW9fdVU5L8vLbtO
DSBDzTxrXzIVlX63nsrkBfBk1nXWXaOi0RzSw1/XA+2LQp5cDBUd+BA8Lh9f
D9/e5I5Xkn6DXzqkG/mpDtp1fV22epP+dG8L16zkJfz4GJh+VpOKnswz1rBV
amG1+s4gJUIQJT+8SzdZrIEW+9/2G6oFke+hiMCq9hqwTjygJ1ohiFSY+m/u
BtVAhkG9PJB+m5VZVhzGrgbnQDdvu3BBdFk7zXin33O4HMAs36UviMzOe/je
ekoDj1C/f70KKUhe1UBe4hoNrv12iTPNpKBfryW6EzxoEJzCLRBNoCCaaafu
JQoNCr9ETkQFUZCqiBmfk8tTkE0onsuwpaAVFZtyhH5VQq31xp7EHwLo/puP
SRNXyiF5cKa+0VAADYRKFhbsLIddwh+cXbYJIGH5PRX2o49gv4iv8qCyAAry
LuXU4I+AlqDtU7NKAO3+eHrd9aUy8LCv8qcP8aNP019vq597AHqK/o3CYeR7
iW/pqa97EUi2vXRPreBDnvaytDdHMuCiR8cevc88aGruh0Fg0w3I6zUrOzrI
g0KzOkF44w1YlR7VH9POg/LfRLeajqUBk+uZevMxD6K1chj7upOhMCotUPwC
D3r83U/508AV6PrWsoU9/ReP5G7mrm80htIXER5Vk8t4zYqQXnrgDVyVLyzE
OmkRv71Voufxhgx8IPfl1dPHFvG4/Y+78jsz8LrzBxRPGS/iTlnvW4PUsnDB
kex53i8/8RklW7r6UDZeUeGqd9f6J65qIPc43eIW7qPeJFTwdx5vfuplURlf
hO+JsJ4N2f8d1xnllY9yfYzLHVIrqlv/BVeeebFoSK/BLwp6pU0bN+JW9163
73Wl4+m6ml0ddyfA0k6U/0cVC/ehMcb4+5chxetVpNbzNlyo6PN8TAuVYO2V
W71ftBsfpXQHrtcVIcQ130mel+3GHa5+Dv5uLUJ4r76vmKHajf8uHu/heokQ
S60a2v2G3fgkcSWnLF6E0LAycvc+0o1beDm4Vw6JEKnm7g/O0brxKctdNXJX
RQk3/RzLtAMcXP2F+dtLw2JE8TrPfU+9Obgpf7qsyQ8xYm5e8WDvaQ6eMtFA
E1opTiRWlfpJR3Bwdipz9pmuOAE7qm/cKeHg9VZH7p9KFidUtr56V/mTg+ce
m/ywDZcgvihJhHNye/Cdltva8WJJQj/kTkBDUQ8ekmrVF/pSkojmbj1WUd6D
tzBHvhIcSULy6m7bZHoPfuV7rNOhv5KEyVSwjPVkD37eqez9F9d1RMqzgWcN
BlxcS9VH2nu1FDGw5sTDCnMuLrXBRl1YRYpQOTVXUGjHxTGhSptGQymiev2q
2LDDXJw3ew7MTkoRI5HGjgbxXPx8raN/VqMUsd3m9teKfi6uJxI5mhoiTYQW
abwvHOXidXV6vx6nSxPM5eq+5Ckuvs/ZT6XvgTThVtFd58fTiydY2pbq9UsT
RUKHKt1X9OIGtxb4LnyVJqZ9JousxXvxuXcK/lWCMkS0BH/i5s29eJj6eOA+
HRmizT8lYt2OXtx5W5xoia0MIclef0HQqBfXUbgLlKMyhLdS6fEflr24/JJh
mG+IDPH//xn8ddZma+yqDPE/WTpcPA==
        "]], LineBox[CompressedData["
1:eJwVlXk4lH0XxxVF6qGF7DvDLLdUKKIzkid5JGTJGhUv5amRrQ1ZUgmVNukp
a5bIUj2loo63UpRIEUZj5p4Z0WJSylre+/3jd/2uzx/nus75nvM9R2/7XveQ
2VJSUgPU+//f/bnM4fm2Trj92fq/C1vV8U1/iEl+XCfUvx+k0cw1UNvqm8ap
pE7o2Xih/UOgBoZlJygmnOyEWqecsYwTGji9/uJPv7xOcJbPbUjiaaDh9edP
VJ51wqOkc3TlY5oYE80MPrW0C3a6hSQJO7Rwqbyk3kuvC2S3b/PZOqOFdXk3
VbVZXTCIZ/MqmNo43WLVXmnXBY/DKmK/pGhjsp4jtER0QWrwhc28FTqY9Wqn
1pzHXRBziPCydtDFEpOrPQf3voPRrW1y1qf18F3fQvfQ590gWHn8Ke+7ATqd
DOmO7ugG8n2m400ZQ6y3uh+Y0tcNGd8UlsUpG2L+hR278792wze/FFqnpSGG
ud5J7VXtgTFTi0eC/YY4+djvrkt4D7R31l+0nTREzYoSzVXyvcCl+YtnRoww
y2eq0EGpFxpobe9mpGgoJedK99DuBYczDcSIIg1FOycsIlf0wr6SBTJlBA1v
aDtvrvDthV/tUb6hYTRcmz2SpFPRC59ooVVGXBoGHbD5IOvMBVpX77eqf42R
sfN557AXF3xWuRn8fGyM3108nnQGc+FQ4Ywxq8MY0wwjCoriKL4gU7Vz2Bgr
2y77QREXzH9UVcrSTHDCaKotdpILPzKPRitnm2B2x706cVkfxLCsTV0D6Ojf
4FD68lYfpLXUiiPD6WhU9vr8rYd9cHRfcGRyDB3r4of2Jb3tAy1+2BxOJh15
JmqEltR7WLlCVTe+no6MxP0FHt7vobJ2XGebCgMfM1elP57Dg3+0GjeuQwYG
LvMoGlHkwUWPy0/PNzNwfEVkvY46D6YXFDr2djCQZV0xfMiUBx2zLHZaihl4
zlFni7k3D9qnOCPW85gYGiKrea2MB2rL7XbGuDBRKtzQ4s1NHojihe49XkzM
jbBzmdXAAznnm46m25j4KurQkYDXPAiO6NxYsZeJq5IlIuVJHnAalheOnGKi
XN67G2l/9cP7/HUV1a1MLCwcbbrt2Q87pG8sMOxkok3JIj65rR/sP9jHnOhj
IufGX4shuh9MV475GX9iYs+DR7Fj//QDcKMSq2VZeL27FMKG+6Ep4qn2iC0L
afPqB4sd+fDjXPNDqzwWfntmuqtwEx80tOfRbhWz8GFawac8dz4MNrLp2tdZ
6CVzbDjXnw+lPjnSzbdZeHTGbfQ0hw85zYOy+5pZKPrxYeZwDh/0KxQ2L/rK
wprbvkkHr/Bhb39bTPEoCw9Htc7eX8iHg6YnVtMnWKg0cnNOVCUfrmuKzsjO
JtD+c/z8cORDrNWacypLCCwkl6h4DvIhI3rPu9QVBO4pSMtx/8IHVY/ahuWW
BFoHTai5fuODr8tnaLcisOM9T/OvaSrfbCdVkk3grJ5yfbuFAkjwL1P1cSHw
5UXN4rXKAiheVMnLdiMwx+uUkY26APYJStkPPQg0exttsspQAC6vj3UP+RIY
1AamxGoBOIwMep8LJZCVdbOaYSsA6cM3fvmGEzjubLTcZJ0AOHq7YEkEgada
5M0NnAWwt/7Fha2RBD582mmlFiSA/hVm5y0PEZie6vhgaYgALM7+q54eT6CX
/QMbpV0CsFNYadOWSOAw5oNitAD2eCzdYppKoFb9boc5xwXA1ktohwwCldQm
J/dkCuBLgsTGMYvABbHHa7qzBeBY33MfThM4veyaRuUVAczpUv00dZbA0YyV
r5WLBLDr5t9X8DyBn4Ya0xLLBHBwz5rg6IsE9hbxRtxvCeDOUTut8lxKP6m/
S+vrqHz5B5QZ/xDYHDDlT3sogCoNpk7uFQLrVFSfTzwXgJ/ZeOiGfAJrokvi
d7wSwAZ5pWupBQSWvjZf2fpGAL2Py0ZrCgm8cNLtaj5PAHO7bJ53FROYNdi/
RV4kgKumNs7t1wg86rBnXvSQAIZDbwvqSgg8XDj98P2wAEQJ146fLiUweiY9
esOoAM7EKtp5lxEY4a/GqJ0QgHjTN/k/ygncca+0X32G0kPGZaCWYt+lludT
ZUgouqz/xuE6ge5RT5yG55GgtJjz+jnFTu3uUlsVSdAMsxRYVxBoRwj+bVQi
QXIlZvY/FK9O37ubqU6C2y3C4jPFZh9+6Z7XISG2LPAAs5JAk/UZXb8NSXCP
l2vzoVinQD0jjEFC43KmZRzFS3+X2XUsI2HqaVNVCsUKfqvG1liQ0G/FXZ1I
8dy6p5XXrEmIywx7G07xLyWP7YpsEgpxT5I9xaORpMoBBxLy3nyBBRR/fsVp
JZ1IMGsSKz6h8hExZ5KdXUk4nOM1soti7vHM1Xc8SUh2YoukKO4Qawzr+FH1
9RUOHqXqbVl3vehEEAmRmxJ+T1D6/Ddvtc/3EBKOX+0wCqD43nSTQsBuEqzb
8gKrKX1rfDyfNHFIyO8Xl32l9C+7IzxgFksCthXL6FGcv2TfstxDJHDy+iLZ
VL9yOFJi6SQSel0yv7pQ/TzG0HJ9d5IEvrOPvlURgQnHKubYnSHB+3J0pxI1
D7EiqwfXL5BwqVkut5+an9CrXrSEAhJ+Prnsve4qgYFTIu6HEhLssnNde6n5
89wadcatkoRlsNgv+DKB6xefnja8S/VzdUSxTQ6BNnu1b2bVU3qnuAhPXyBw
5cvK/4w3knCtunzl23ME6qc1d7x4SYJCSYucyRkCpSZnl+8jSZBXvJsqc4Ly
t7Dne+IHEmpDDULH0gjElzVrMz+ToDv68RiX8t+RvMC3pT9JWFtzMiPuCIEz
6+/P9MkLoeLGktzfsVS+pmecPioKIfaWT8KhaMrvKmHnx5SEMDY8WThE+T/h
ozJzsY4Q3GU337hE7YffpyK9NqwUgkqDbZNjMBV/wLHAY7UQPnMCbmwOpOK3
63wOthXCCd/utxv8qHiL1qTDG4Qg3dYvmu9JzUuvyY1aPyHo2lrME26g/G7E
l9ZMFUI3Mbm9lUGgv+JdF/oJIfTatm4epBFYP555yTJLCNdSpg6P6lP+erFm
mVuOEPbWhOfw1Qmc4lz0TasUgs2pjDey8gROPnCp/fpWCK7Bn32zxSz0vWY0
/atHCMdb921q5LPwftb0n/P7hRC+1+OIgMvCA8HX+4yGhNS9pJf+eM3C8blz
5fx+CWFhsdpERAMLx9waAp8aieCIt1LVxTMsTO6pfr+WKYKddbJLtp1koUJw
oX+dmQhiu3Rpykepe8Q55luxRgQcpydem/az0CPLzeuMGxW/qF3wJYC6Jy3i
TQHxIiA0p65KjFho4979sitZBLZuTgMF2ix81tPyl+txEaTZP+KuU2Ehb7B6
o/1ZEXC3qb92lWPhAtmDDvRyERTEnRf/M8TEcHsF2x9vRdBskPfvjzImjrZI
1e/pFcEvllN/dj4Tj7h/tx7sF0H8d/W72jlMzAnuXs39KAK1OiJy9jEmNiUW
mjdKieG2rqri5A4m6tdbsjJZYli/R+pbuToTuebbNIxSxdAwpe2x4BADQycs
FI+eEMPCga7iGg4DvzYskBZniWHvkV779aEMlNlw/2PxJTHManoSYeXGQFMf
5fuG1WIwOGu0y4/GwCPxL7Ya9ophs6XqkoRWOtKaVl0wMBsA6/xGrbWKdKxJ
V0hPsRiAmNOSVS9n09F6szheaD0ATWbh+Rt/muDm7uyQIocBWJAM/ovfm+D+
j1/MDfwGqP27P5FbboIvFIrf6KcNQJCVRrQz2wQ53gsX6fcNwNgso6XlQca4
vWxZrpFgAKIau/01thij54SLAX1gAPpCyjQTHYzR+nKmhdnXAbAKuCyrwTDG
Of3yvmtlPkDp3Pb04m80zA2dU+TL+gCR9tF//j5Cwycxk+ZnD3+AWaFl2S+z
jVDtnGirjNYg3Nz0KOFtugGuTtFZGq0/CF/On0lavt8Avfb5vhEaD0IAR4ET
H2KA2a7tmx6vGIQKruxCEgxwwR/165IdB2Hw5IQf77s+/j56liUVPQhRW7oN
irbqoyhundR0yyCUJ6REBSjrYZVffun3/UMQlq5rxLiriebvDCbnJgzBdrvd
vSEZmvjAvdRZPWUIjn9515wSrInPN1aNsDOHgEFT8Q6dr4nCVfVrsgqG4N+l
BLMpQANVlbrbTFqGQGHszr2v02qY/FJxPEDjI3y/tY4zYqiC3raJjs8bPsJP
LWv7Ao1FWBv4t7719Cf4CA7b2oIkj8bl7aXveX6BrLqDs0fb5Njur9dYauUM
Q8atg8TZdC22/Jr5jfVXhmGqJ0mLzdViNxb3/uVfNAyv+mwuLWJps832Hwi+
XDUMOnGvVuq/0mYr6NzNUHs6DDUz1ZPT83TZzRErhMrfhoFvqt1pt0WPzZaj
n1ZwlkAU/e8vid8N2OOR4+pVbhIISqrS1dE2ZFdzn13b5C0Bz2fNl9odDdna
1aEPMrZLYFgrK2DXVUP2tGfxgPwBCdwe3cQ84GTEvlukYytbIgGnjdf7pUto
7D1/SJ6VVEjgRko659lrGpsW99D9z1oJDFWs33DlF419zikg7Gi9BPSe/dmU
6GnM3jeSe1b6jQQ2GyfL6841YTP8dmkXdUvgWcfylpgVJmzBE6vydTwJuEc8
aHsfaMJ2zel+mDQkgdZw/0rRXRO23OyyjXoSCTxtjUpJEZmwH+2Oe4ujElDU
Dck3X0Rnx3b+uS1oUgK2QWbS47Z0tiks/TgzI4F7WZ0Vrbvo7P8Bgn0oIw==

        "]]},
      Annotation[#, 
       "Charting`Private`Tag$107694#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, (2 E^(-2)) Cos[4] + (4 E^(-2)) Sin[4]}, {
        Rational[-1, 3], (2 E^Rational[-2, 3]) Cos[
           Rational[4, 3]] + (4 E^Rational[-2, 3]) Sin[
           Rational[4, 3]]}, {
        Rational[1, 3], (2 E^Rational[2, 3]) Cos[
           Rational[4, 3]] - (4 E^Rational[2, 3]) Sin[
          Rational[4, 3]]}, {
       1, (2 E^2) Cos[4] - (4 E^2) 
        Sin[4]}}, {{-1, -0.5866104093574589}, {-0.3333333333333333, 
       2.2375882231330206`}, {0.3333333333333333, -6.655945686591609}, {
       1, 12.708605608025156`}}]]},
  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",
 CellChangeTimes->{{3.7969798439601803`*^9, 3.7969799670039387`*^9}, 
   3.796980179284155*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"c7add931-1e74-45e2-be10-279cf0209114"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DDfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"hpi", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"DDfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.7969800241129417`*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"82c9e762-cff8-42e9-bcbe-aafa01feaf14"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk8VN//OHBZSiqEss1kSZLI0mKJzrmlLEWSLbKGSqG0UIqkpFQiCSGy
JN4RypacQ0KyM2NmjGXGEtmKCKl+9/N7fOefeTwf9zX3cc5rOXfmMQruflae
vDw8PMXLeHj+974NrP/2798Uwh3DtLhALvJb2BixsDiF7D9ln9xiykVvirSU
Z2anUGPA6Q1PpLlIW8XcfXhsCk0H7Pj1q4yDdNbeYjV2TaFr+xXh2Hw/ggM/
GhLyp1DEsNJ1kb5eZHWnKXe7yxQaDOp5oRXCQAEtt3xOVk6iU0JHWoNef0Kd
nau+VblNILXhT8ts++mAiv0kdCjjiL5aiTWQMAHenakREOn5hgxZDkMF7+eB
632t78ybo2iHuUy6pSEvnI8JikBgBK0uMA1NFxGE6cK90vGcYXRAn7Fix2Nh
mGSm5d9xdwjdOEXIOVwTgzfPugVuMR1EFVYGzx4eXweD+HIC/Ce46Pq+4yu9
9KWgb4LzctcRLjruGKbvbSQF3TXEn5gPcJEuXTzmlIUUNHO8VqjC5CJGXED0
UXcpKFVkMdFbw0X2tiPdnLtS8K37jPvBJC6ScVsx3tUlBSerDCyUDnLRdlsF
9pivNOTa/WCvPcBFmjNHyjcGSkPaROaZf5CLhidPvbAOlYYV0iJ3Wbu46MaS
7Nm0x9Iw8jzn4yNFLrJ8zvg6VCINVRTC9f4scBBelhop9k8aut1oUaJnc9Dc
Owvf8jsy0Jb5fE9POgc5pSkaMqJkoJn2OfvBFA6ysA4kJp/KwB2DovenYzlo
4vXzOt5sGShoYjUjHMpBn9mgs7FOBuaJ0KqMj3FQxoYIgx4BWfg7heVctpKD
Kr9XehUEycLvv3ICMT8HFbY/bKm5KQsHLYNi6v71o/rXL61a7srCZl5KLW22
H/HmTYV9fioLX3g5qU9z+lFywPb4I0Wy0GRb/2/V8n704sTVvOwRWfjkw1B8
knc/2iXDitp+iAKdAxODdTz70b9Ivvx4KwpU2X7Yo92lH82XhvNM21NgeXap
hqBNP8patW91qCcF9j6OrL0A+pHt9GyoSDAFbvbW+mkm0Y9q8uUqB/6jwO9K
w8wh4X4kMJIYE15IgWV9iejGyn4UNPSij1JKgU9zBNf7/OlDsWH1bzd+pMD+
G3n7jNr70P3HhwUSGBTor76YMh3Uh3h1gldLLaNC/vQT3irn+5CZ/N2ZcQEq
jJNq2uns1Ye2qyfGvxWiwvd8qY2fLfvQF3nqpKwEGc/av5i6qQ9J3H4fYqpM
xodH2xxu6UWfOuwE1ptQocrSovztml7kXRVydO0hKiw/7zFeXtaL2M1tGX8P
U2HfcZ0w5YxeNBq2WzHfjozf3vPmT2AvslstR3h5kfF9Kqv/U+xFdU2ZXYqh
VHjNYNnrRKledHVQN4D/FhUaJjDN7wr3ooXsncbMcCrEVveivBZ7kNG2O1bH
71Nh3acxMYX2HpSq6rymLo4KIxRrikTqexCvuuhmIoEKzUKSrP9+6EGxmj6b
8p5RYbOueVz3qx7kamiV45pKhZ25edJxoT0oN064UfkVuT/BO+W3AnqQr7Yj
r04uFdp5ujhe8OlBC1bFbXqvqZC1QTTZ8lgPuq9PXydZQIVJQSOG4DBp1vuA
H4VU6MzAver7e1Dk+x+HKt9SISf6vPwqrR50wTx+q0YpFb6YNK1aUO5BmgKa
ih1lVOhxUNF9hNKDfq7z8jr9ngpH+DvSPwn2oKSH/IVnK6lwMmDH5hv9bOTI
k2rR9JEK33Survels9Gm1rIc3k9UeF5r6JRTIxvpntVdqVpLhT+/PcnRL2Wj
uQ/Mlxb1VFhs7HtwSx4b+Y/p0Q5+psLAjAPjkhmk+6706TdQ4W+nX+qzUWw0
+1fOc/ILFVaUtzQP3GYjeb/GpsJGKgyWzPZrD2Kjdr2hiVNNVAgv3hCtOs9G
KmdFK0SbqZC3zb4g/yQbZRjPbsshXaOuZZXixEZ3jQ0Md7ZQ4e17K2fuH2Uj
c+WongLSB75yHgeZstESN365fCsVChqV7/AGbJRaK5AfQrohNYZmv5ONKk+H
NbWSvv/H+7LxVjb6UIbtxduo0MJhn+QuBTZy+OtjbExapES2VEmSjZT6DB6d
Jd0q/tNefA0b/TrVvyWMdMy5xoVlfGwUKL5mVSRp66aMxO/z3ehBbaDqLdLr
Va/v7pvsRuN9rGBf0oxwG3bTYDeK0x3/a0o6YUD9egWrG3mrnkxbT9oBLt+Q
29qNUp+scOok10dJ7q1MqO1GnsP3VMJI9y4Uu0RUdCMPmTeLiqRTbaN4Agq7
0bFanYYicv/uRSfTPLO7Ua7s4IP/5WejKNxrndKN/k4EGmST+Xuoybnq/bgb
yZ2pWPhD5nve8mbRjQgyXrL4K0Ha/fzG8bjr3WhP5KvFC2R9GqNrlF77dyOA
2MqxZP12FXo6fTzZjcwl411fkPVNbV8exzzeTeZTOSmFrP9FcdMVy427UUrd
zKhrHbne7d8AxaAb4ZW0QWWyf0ysIwO1tbpReU1TIauGCqlPmkadZbuRVYJX
wqpqcr7e+SpeEu1G1p0fEiMwFU7TRBwjBbqRMjsRzpD9WrveqrFkioUyn/gf
jCb7WVNnhr95kIVivfQTash+T7SLNRxkspCmtaLTUAkV+sXT80RrWMiXWC09
VUTOV2nAV+UyFgq/ML3QRc6XEVNK3jCPhfJ0qxTz8qlQSsYx+nQ8Czn2Ltug
SM7nTf2lzyEPWOiP7DkmyqbCcYdk3ribLBRWivLMsqiw6lnfheqzLHTKZMOV
zWlU6E31sJUlWEhM8tChpSfk/BsKRGntYiGTasW4ZY+pcI9zVp3xVhYS3emV
MhNFheLPR3QvrmOhnGVlFcl3yfmQ95FtGmWineEL04LXqFCZELYe6GWi15N3
p/0DqfCRW/79hQ4mGgyctPl8kQo9X/z4s6mSicza1WR3+1ChsNLl/uAYJto7
Ie+p5UTOo5Gk9JM7TCT8g2Xyx54KuR6lR3KvMZG6X+Wud9ZUWJK5WN3lxUS6
GwP4Rw9SoevmkEzN3Uy0/k29poseFRaqRnhzBxjIcGvgxmuiVCjX5lq2lclA
pUk2B6iryPkJ0BO81MxA4C3zZg553nvWfMtcUcZACX7FcncXKVDK2Zyj9pCB
nPIZn20GKPB6tJh9gC4DGdD5fm0soMBvOmNZWJ2BxE+jsdAcCrTt/Ti7ciMD
cTRe2X1Jp0DNrZceJ61hoC8vV/nIx1Egt6aruYrbhb6c3B3QfoUCTeaT9q9+
0IXuVcqeMDekwHcpl2JtbnahkeM3NjnvpEDF/RYDKQFdaLfj6apj6hT4O/rf
DS33LmTQIe6ylkqBeVvdK2x1utDCHSGl0N+yUMJl8/Y0Dh0liRcGOryVhX2f
CuR37aKjhTSP5MJ1svDa0QUjXTU6OlR/MLdmlSyU4sDT+op0dG9LjuXHZbLQ
cqmlYI8wHSV3tRiFT8hArD2513iYhpz3jQsq1sjA1OeqnvZxNORd7Ved4yMD
bf7/i4bEQs8v7leQge5X0l9dnetE55wFqa0F0vDv8rGma+OdaI1C0rmTmdIw
MVZ7OpjbiYImCq9/i5eG7flV+mHNnajpvGxOUYg03Dfc9yUyqxPJ5y3GHjkk
DZWOUiaTbDtRxn4vkWKOFBxSe6KNijvQxfgjZbNLklA1OHNyJLcDKWlcNy4c
l4S+Le9yxNI60Aq37Wtt2ZJw/jxd0SuyAz1Mz9U7+l4SCpVIiq9x7UC7/GrX
bgyUhJpE4ozDyg6UYWn2RGxiPQyyef52zrEdxbCXJ/DUrIM4K/+c/JF29DC0
cj7uzTrIP4/UzA60o6B/lWXiyevgw8T+jGTNdrTnxOwBfGkdTO1TeGIk0I4u
HucfHNy0DtaezrgUk9eGDr3WWbQNlYBrg1/t2rasDfmqXDxRoiQOw4tV6kV/
taIwo4+iMSLicHHy5bGZ8VZE9H5tt1kUg1yXrGuljFZEN9UMj28Rg4VEevXe
N62I8kRjj9AVMWglkGxh59KKxHjOfXhWtxZullZo4glqQV/qMra5HBWFarum
1DJnGhGleOB1jKkQ9NoWElLW04ichx3WUkWE4HNlkfamukYUe2L9mnOdK6GY
pEbA3LNGNLLZAvk5r4S/fvlWGRs1InbjiiKanyCsLpu0+Rb7BVXqjTrpRSyH
9oaTwRq7GtB0gfoRqyheGGY00VoWWIfskzga0RMzoNpk/PCOE3VIxUG58LbL
DOAxH2vOM69D2ehIrEjbNLhmM9qYrliH5t/xJQ0U/gCXvYbqHzTWIlFmf6js
wCQ4FdGD3eRrUYTOwuLwuyFwqLHpzcr6GoS/Z6mUDb0D66zzHh2TrEZKEpeO
13ZOo8K5TyL1SuVoQ4dV/z0XYZzZPfRg9FYeGllWJPTltyx2OkJ5230iFpWf
6jshGqmEy4SCaNWXHgNTYx/jZreteCd32YZQ+3wQTBHYsXBPC2/8/n5Bv7oM
qPUXTeao7sSm6cwmC/tqsMczvvrVki7eby7GN/uuDlhWbr0bH2CAH7qt/LHw
uQ5UWxlfYoQZYMYlnr6/PXXA8z++9WKPDLB3ymS54PJ6UH3zhbl/Nhk/1eBP
sa0HFfcyg4cYZHx0GHffXD14wpTY/FDXEHvTf1bF7GoAV10HJ9OmDXHRt7H8
p2YN4A0jf47/ryFe+stNTnJuAKtOh/m5rtyDH25uu5IV3gCW7olE8sjvwUWB
r7XK6Q2giVFhMnhoD16S8UrjXP4Cst7mNWlm7sFRLl03NEsawSY/6e+xhwEO
HzcAw42NQMnuZHybA8DBV178ecZtBI8qn7fzeQHs+9jn6grhJmDmmF1rcg1g
izq+i70eTaDs6lGto9kAC2tonrwv1gx8PVkqzn8Bfvg3wnzEpwXIjja6z1lC
HB45uSolrAXkaNQ+67eBOFjKuuFoQgugmxyqrnGA2FdbzhjVtABdM92Kqx4Q
by5ykP+yphXwG/WmJgVAvOLrd+kXHq1glrVWojAJ4joL6hpLsTbQnO/8fJoD
scQ2znp/ShuotgxxqBuC2HVNpnyscht4qykhGDcK8eIXtR0M/Tbwoylxo8IP
iNVMDRxdT7SB4ge/yyf+Qfxon+Orc2/bgEa3nqsjhcBsRbmimMo24GsbGNUo
R+AtvAMVb+vbgNjSmLXORgJXY+/WeXYb0C84ErmwhcCzhld/3RBoBw2Okvya
OgR20E3YH23bDlymD0i4WhI4S9LpcJFrOwi8vvH7yaMEnpmTP0bzbgf7FG4J
nLYl8P132WelQ9rBwcGET7bHCYy0Sx+nvWwHaqY35/tOElhJvYtTMN8OHH5z
xTOuE/jc6mdjHbwdYIffUrPBDQJ/GHOenV3dARZK0ryabxLYNmdYUF+hAyTu
OCTBvkPgiM1zGtWmHeC6/r7a1GgCTyisC25P7ACDo5k+DekE1g1KO1+V0QHU
XujeGMgk8M1Odc83eR3gp6yx0+xLAq+/c+DQw+oOcM9j3JXvPwLvGQ+QMfvW
Ad6Nfv9ZV0Tefz+/sN7PDrCJs1CV9Y7A7SmPlqn8JX0hVz24hMBeR16NCIh1
gkwHhS/r3xM4qphVXKXXCVzaRW9PVhGYJXIy582+TsDesT4v+iO539Mzyc/N
O4Hryt+m6p8IXCq7+vZ1t06wNvlmjXk9gftvGB7Vu9sJrEwvbd3eTGBV1ucD
Ko87wViAq1VCC4EvbrfVl0zuBLQL5/GvVgILDvsqzL7pBLBD/XhyB4G1DqZO
vWF0ArvRvQv3GAS+lqE28JzbCXr+3ceFTALX/imlPxzvBAtu9untLLKeb9o+
nOWhgQmz7MxFNoEzVjoXOArRwIm7JuW8vQSedP+WYSZBAxci0jp5+8j8reO7
r6JCAwawnH+sn8CNvlEhkto0EH0qQaSDQ+azXvbCcgMaiNl1TqiIS+Ccqzsc
Bg/TAHerabnDIIH/7/kKnpW8lK4n/bMDm3ccowEbhq+H4hCZf3VzovoEDWTp
d4xwSHf0eaqkBtBA5c5Mb5OvBN6gNy0bFUoDEXX6TlOkT8UEiwRH0oDSCheJ
hyMELhwT4vN5QgNCPi/vKY0SeMno6Zzjc9IiOeWFpA+kbPxm9ooGLNL/pOh+
I/CjX/k9ekU0cCxMT7uYtFJOfY1kHQ3EtTQcjh8jsC+fTenyNhpI07dqWSJd
epyTO8uiAbXZTSP24wTmLfZ5PjhIA3nF/bH/kT4kshjTMUkD4uPU1l+k406F
h1fP00BT+ZVY/QmyvlViVwt46aCPL5p9kbSq7HOf1NV0MOK1LD2L9KWLW92i
1tOBzv7T3BbS64WmKmwV6GDv4+j5adKlzwulNqjRwfRj+V+rJsn67bx8cWgX
HeSY6XXJkF5q0Gv9j6ADKea/aDnSKa5/tl48RAe9YQny/7sO5vCd3XZ0sL1E
7ZoQ6f7IWwO87nSQsIqT/J28/00FE9Bwlg5umvUFN5JWKln1LDqADvgvHJFK
If3pUMuc/U06eFDpfsKTtBc3xkr+Afn5THBMkbRgoG3e16d04DG4bqaT3H/O
Ghmh/Bd0kBcioXqd9MH0Hs/Lr+ng9Oczv2RIj+umVRmW0sFDT3PrPDK/D5s9
qAIf6aDBYlxPh7Smh8qVxiY6ONh9Le0dWZ+2hbHOxww6uFe149YW0v5R+ZqO
A3SwinqwO4asr8SmC/cVJ+lgx4X55z/Ifigu3zUyOk8HIqWXv+wnbWe5uK+A
rwsoHF1mF0X2T2JQ6G8g3QUcIzQv8A4T2GDtfrsVSl3ghPPRua1k//VkCRY1
b+sCUqtDKs3IfpVvj/J2MuoCfUZ/eU+R/Z2lksK86tcF2nWtUuXJeTGpdNu5
92oXmNhyMmqGnKfRo5uiV97uAh9dPj94301gtZD/TOITu0CeeUmyKjmPhbTy
knefukDEWa/Dt8j5tT4TLH69lVzf0vK/f9vI85dnr59RdxcYXMwM9yXnXVft
s3LH9y6wxcxhlVoTgStvdj35LssAJfYntsjXEthV6tmPEmUGUCoqmIQ1BF6W
52weosUABfbKx2yrCWzEHOIXNmaAot7dfC6VBG7Q+Hlhqz8DcLWTfg6T51sX
W9TKq54BRBwOPP3ygsBmkZ6Mi+0MkBLcdNk1lcAVeuXOYWwGcEp+Ij2WTODU
uBNnUr8zwHZ13lhOPDmPlsW3WFJMsOOHe4PVQwIvfnQssTjNBMdted8SAQQ+
6//G0OkCE4yPO9lrXiRwr7xAzZnrTCD8c5ePxHny+XM9rzUimglUBX52VHgT
OFJn2bfqMia49UV4xUMnAlNysyg6QiwwPWEYp06Q/XLs94v9EixAlRzlnDMk
MI+g5RbrDSwQXWRh/kqPwIMeCzvPa7PAOW8PvwUtAr/ecOhwrgMLLCzO2axX
JM+bmB+hcrkskB6+x3kPD5m/KwZfVxzqBkf9Tb02vYVY1aOeNmnbDfoDYnbG
5kE8Y2FdQ3PrBobLUPhsNvn8Vzqblh7QDao6+Z5GJUP8X8szR5DeDf6pdH+W
D4d4YdPvlsuL3cDrzk2HQmuIq0XvVDoJsMFXbsGdAxYQ3/8t9tpIlA28OqKY
jcYQy7ep3hNTZgNY+rQzXx/iA9ccjPKOsMEPntt3m+UgjmkvKx3KZoOcLSkS
nc0AH/+w/2VjERvUhkZU7cYAb8pue1JUyQbfL5QI3CkAuPT6qH9oJxscXIhR
qX8McK+KtDqVpwd4s9bmztgCrBoSmGZt1wMiUk/YD3ftwR+36tz7KNALAu9l
zf/4aIidNazTf4j0gisBYxqThYZ4Xvt8hZxML8h6bH6rNc0Qq+nnTgZt6wUG
31U9jUMMcayJ3NEddr3g+geXbX/I73tenisomdm9wPZDgvbNlwZY8HnX6/CD
feDTvr+uled24xcvfta+tekDZzVzS/2O78YGWWv7uS594IbQh33LTXbjc68P
ioGLfYD/gxqTu2E3Zr5Hl38l9YHKVHHjY1/0cQ7jJTg12QfOUz5e2ymnj5VX
VoxkmPQDK0+l8pBCXTxdt837hXk/qOJsPLn3mS6uDE8be27VD3RT5mK/heli
W/47k4nH+8FVQy/nMWtdfPvfkZ+PzvWDlXlYOm9WBw/Ofv13Lb4flM+p92zX
1sEvuOKSNiP9wLIp/rfc052YWnFmv0AEB8jhE3+fimhjCenFRd8HHPC13I+5
ekoLr74c8YYRwwGpB8zc3Jq18JJGpux/yRwwvFDt/eq+Fmal9/6wKuKAtfzV
Iu9WaOG4yCMpqb0cwJoucz03pYGFHXV+7d7JBZVypWffB2/FPIu8r/y5XGCk
3H/gA1MBuw4wZ0K+ckHxOUKn9YECxo1v9jwY5wITi2MncggFfOO5c+fLOS4Y
bjcMeJstj/8Zlf9jCw2A76MZqWBkA/4bdd7WePsAcLU+E5TLI4OXNvXzUW4N
AEtxSrVbmQj+deSD86dNgwCrzIlHfJ8D3TtcZDfdGgIeGoM9ujvU4Tk70bWK
7GEwmCdYedTREErHDtrzU0fAfW7OzOj+AzDPMfXlTOAo8CxT5O+TOwztDENM
6j98A4lMYYkq7lFY4OyjqL80Bliu1TEfNO3hvNA+vjKbCTDxyUTcvf44tGrb
vYsaPwniLYozTb1dodDuVVUVyZMgKOdHy4S/K6zKYB08nj4JpDSEBx4EuULN
wCtuz/ImQSt1TXrVfVcoLFdyX/rTJKAou6TP5bnCz2e1B9ZNT4IGvU8eUdOu
EApueSR8aAo47MvdS1x2I39fz8vkHZkCLNF97lbBbjC/uy7T3G4KrF/T5+Qc
7gY35Hu9v+8+BewrUK1XnBtcsskYFroyBVz3N/joFrvBknQ5wxVZU0B7Wuh6
10836Ltmqi4rdwowNTwOxyy5QeWASqsDBeT1dVP+xvzuMNbM6dTtiilgtT38
Xqq4O/T/kfiYr2MK/AlOFlij7Q5VHb03pDOmwC+Xq2cS9Nwhp0bv1d7eKcAZ
obLlCHdoGc+oDB2dAl/zrMplLN2hIG+2qcLUFNh6Q3V9lJ07RGcCOvHPKSC9
xfbYH2d3eJl2wMV1cQoEl09f9fRyh//3fxp41CzjX+fjDv8fB4v42g==
        "]]},
      Annotation[#, "Charting`Private`Tag$107997#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAALj8W6v//779ZKV3eHJTXv2/5I4j5
+u+/8enrU0gJ17+wszEm8/Xvv4iqeslzfta/MihNYubr77/8K5i0ymjVvzcR
hNrM1++/5C7Ting9079A4/HKma/vv3xqkm6ozc2/UofNqzNf7792A9VALua4
v3fPhG1nvu6/nU3lewtCxj/U1AvqwWHtv0O3T3nDYOg/HcBvFDcc7L8hRd/u
7Pj0P7VrxAUP3eq/ej3Rm1yV/T9gjDHw2YLpv/U5bfdRdgNA+JJ7iL8/6L/p
8HcTK9IHQKMO3hmY4ea/2EaOAnCLDECcSjFy04nlvyDygJdTlxBAgmxheClJ
5L+7zv3mCcESQHsDqndy7eK/03oAIHYZFUBhgM8k1qjhv8g0RhL9SRdAlb3l
mJxq4L+AkjojfW8ZQLrfKAysIt6/tL+0HbPDG0AjEEBCVJ7bv8b6cdED8B1A
siqIauLj2L+uglo3hSUgQN/FsSA2Nta/1llTFYVNIUB8U/lEOCzWv0/DPUrV
USFAGOFAaToi1r/ILCh/JVYhQFD8z7E+Dta/t//86MVeIUDAMu5CR+bVv5ql
prwGcCFAXMA1Z0nc1b8SD5HxVnQhQPhNfYtL0tW/i3h7Jqd4IUAwaQzUT77V
v3xLUJBHgSFAoJ8qZViW1b9d8fljiJIhQDwtcolajNW/1FrkmNiWIUDYurmt
XILVv0/Ezs0omyFAdEgB0l541b/GLbkCeZ8hQBDWSPZgbtW/P5ejN8mjIUCs
Y5AaY2TVv7gAjmwZqCFA2OyoRchf1b/BMu1QFqohQCY0OHE=
        "]], 
       LineBox[CompressedData["
1:eJwBAQT++yFib1JlAgAAAD8AAAACAAAA0r0BZeJK1b9Tjz0f3hkmQB6arqtr
PNW/wGWeGLv4JUC6J/bPbTLVv/Nd3/vW4SVA8kKFGHIe1b9NTmHCDrQlQGJ5
o6l69tS/Di9lT35YJUD+BuvNfOzUvz4npjKaQSVAmpQy8n7i1L9sH+cVtiol
QNKvwTqDztS/yg9p3O38JEBD5t/Li6bUv4vwbGldoSRAJFMc7pxW1L8HsnSD
POojQOUslTK/ttO/AjWEt/p7IkAqfqXu6KvTvxVNmc8mYyJAbs+1qhKh078l
Za7nUkoiQPhx1iJmi9O/SpXYF6sYIkAKtxcTDWDTv4r1LHhbtSFAMEGa81oJ
078YttU4vO4gQHtVn7T2W9K/aW5OdPvCHkARfqk2LgHRv8VylHkBjhhALDbv
LKXzzL9r8MtckO8JQINE7dC5eMe/7aXbUVNquj8VVK6QWRfCv4lEnKjg0wfA
svbFD8gkur9zNp5Lz2kXwKXb5Y3phK6/2Sxv7MnwIcBdURy022OUvyCA7N3O
wifAuQp71cJ1kz8FV6UvkXctwDXiAR6BWK8/uhorJiPUMcAj8Lv5OsK5P8Yq
8gmPtzTASaPZzU5Ywj+UPjVT9Ng3wEVNEgP1tcc/MxSWTLjrOsCPX9eAMLfM
P6aKZZuNyT3Ax04dDVAS0T9wgtgnrnJAwBQu4RZyHNE/pfbr53t4QMBgDaUg
lCbRP9tq/6dJfkDA+sssNNg60T9HUyYo5YlAwCxJPFtgY9E/ICR0KByhQMCQ
Q1upcLTRP9DFDymKz0DAWjiZRZFW0j8yCUcqZixBwKYXXU+zYNI/aH1a6jMy
QcDz9iBZ1WrSP5/xbaoBOEHAjLWobBl/0j8L2pQqnUNBwL8yuJOhp9I/46ri
KtRaQcAkLdfhsfjSP5RMfitCiUHA7SEVftKa0z/1j7UsHuZBwDh7oXHBpNM/
rj8pqs7rQcCC1C1lsK7TP2nvnCd/8UHAFodGTI7C0z/cToQi4PxBwD7sdxpK
6tM/ww1TGKITQsCPttq2wTnUP5GL8AMmQULA2g9nqrBD1D9KO2SB1kZCwCRp
852fTdQ/BevX/oZMQsC4GwyFfWHUP3hKv/nnV0LA4IA9UzmJ1D9fCY7vqW5C
wDFLoO+w2NQ/K4cr2y2cQsB8pCzjn+LUP+Y2n1jeoULAxv241o7s1D+f5hLW
jqdCwFqw0b1sANU/Ekb60O+yQsCkCV6xWwrVP8v1bU6guELA7mLqpEoU1T+F
peHLUL5CwIIVA4woKNU/+ATJxrHJQsDMbo9/FzLVP7K0PERiz0LAFsgbcwY8
1T9sZLDBEtVCwGAhqGb1RdU/JxQkP8PaQsDSvQFl4krVP2eX63yV3ULAzFz/
sw==
        "]], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA2OyoRchf1T+0JfJn6lhRwIiG2TSx
bdU/oV1S0tZIUcDT32UooHfVPxyu48dbPVHAHjnyG4+B1T+W/nS94DFRwGiS
fg9+i9U/EU8Gs2UmUcD8RJf2W5/VPwfwKJ5vD1HAJKrIxBfH1T/0MW50g+FQ
wHV0K2GPFtY/y7X4IKuFUMAWCu+8ViHWP1CJM/k1eVDAuJ+yGB4s1j/aXG7R
wGxQwPzKOdCsQdY/6gPkgdZTUMCCIUg/ymzWPwpSz+IBIlDAjs5kHQXD1j+k
3EtJsXxPwKYontl6b9c/rk2mUAzuTcDX3BBSZsjYP88vW1/C0ErAYHk85wdM
2z+pLHBH/gBFwMMrN4rDBd4/p2CNCFdoPcAmCbzopEjgP0fZkBdRpDHAHbxr
RQWI4T/x3Du1WW0YwAD6Aqly4uI/gnS/TQafGUD3Ub1exSXkP0lA2P45FTJA
2zRfGyWE5T/Tlb3Az7w+QHBXEBEi3OY/8CL0Ha2URUAZlORYBB3oP2VC3pAi
YEtArlugp/N46T+BbYNXU9RQQFc9f0jIveo/fx1CgS3DU0CxXm0iOvzrPyIk
UtlEo1ZA+ApDA7lV7T9lZwGH48FZQFLROzYdmO4/Tw5bTxqrXEAKOwvBvJ3u
P2vP/tYZuFxAwaTaS1yj7j+OkKJeGcVcQDB4eWGbru4/xhLqbRjfXEAOH7eM
GcXuP0AXeYwWE11AyWwy4xXy7j85IJfJEntdQEAIKZAOTO8/EzLTQwtLXkD4
cfgarlHvPzfzdssKWF5Ar9vHpU1X7z9WtBpTCmVeQB6vZruMYu8/kTZiYgl/
XkD8VaTmCnnvPwg78YAHs15At6MfPQem7z/1Qw++AxtfQG4N78emq+8/GQWz
RQMoX0Amd75SRrHvPzjGVs0CNV9AlEpdaIW87z93SJ7cAU9fQHLxmpMD0+8/
7kwt+/+CX0AqW2oeo9jvPwoO0YL/j19A4cQ5qULe7z8pz3QK/5xfQFCY2L6B
6e8/aFG8Gf62X0AIAqhJIe/vP4QSYKH9w19Av2t31MD07z+k0wMp/dBfQHbV
Rl9g+u8/w5SnsPzdX0AuPxbq///vP99VSzj86l9AEH+IYQ==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$107997#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, ((-12) E^(-2)) Cos[4] + (16 E^(-2)) Sin[4]}, {
        Rational[-1, 3], ((-12) E^Rational[-2, 3]) Cos[
           Rational[4, 3]] + (16 E^Rational[-2, 3]) Sin[
           Rational[4, 3]]}, {
        Rational[1, 3], ((-12) E^Rational[2, 3]) Cos[
           Rational[4, 3]] - (16 E^Rational[2, 3]) Sin[
          Rational[4, 3]]}, {
       1, ((-12) E^2) Cos[4] - (16 E^2) 
        Sin[4]}}, {{-1, -0.5772207461221954}, {-0.3333333333333333, 
       6.534852949063302}, {0.3333333333333333, -35.787387331512974`}, {
       1, 147.43061009748834`}}]]},
  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",
 CellChangeTimes->{{3.796980013303794*^9, 3.796980024608881*^9}, 
   3.7969801794410887`*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"b33901b8-7eb5-4f56-9072-6a0e121d0dbc"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"df4362c4-c778-4a0a-9fdb-ad2c68680558"],

Cell[CellGroupData[{

Cell["Hermite Interpolation (Non-standard)", "Section",
 CellChangeTimes->{{3.765855226065357*^9, 3.76585522763118*^9}, {
  3.765856940325663*^9, 3.7658569464897537`*^9}, {3.796975651940344*^9, 
  3.796975660332547*^9}, {3.797060293926784*^9, 
  3.797060312149261*^9}},ExpressionUUID->"a14eb372-10de-4e4e-9ab9-\
6e97b98e1c1e"],

Cell[TextData[{
 "Let us interpolate the function f(x) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"3", 
     SuperscriptBox["x", "4"]}], "-", 
    RowBox[{"2", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"Sin", "[", "x", "]"}], "+", "1"}], TraditionalForm]],
  CellChangeTimes->{{3.7658557248153553`*^9, 3.76585576852527*^9}, {
   3.765856099747439*^9, 3.7658561087971697`*^9}, {3.7658562304187613`*^9, 
   3.76585623308319*^9}, {3.765856294001314*^9, 3.7658563460351543`*^9}, {
   3.7658564173660383`*^9, 3.765856423194186*^9}},ExpressionUUID->
  "7109f57b-592e-45a2-89e5-88a52e466f96"],
 " over the interval x\[Element][-1,1]."
}], "Text",
 CellChangeTimes->{{3.765855243205789*^9, 3.765855437770596*^9}, 
   3.76585670301781*^9},ExpressionUUID->"c84ca236-1b54-4644-882c-\
52d2f1d7eaf7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   FormBox[
    FormBox[
     RowBox[{
      RowBox[{"3", 
       SuperscriptBox["x", "4"]}], "-", 
      RowBox[{"2", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"Sin", "[", "x", "]"}], "+", "1"}],
     TraditionalForm],
    TraditionalForm], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.76585533092625*^9, 3.765855356574875*^9}, {
   3.765855402902598*^9, 3.7658554128045197`*^9}, 3.765856706243724*^9},
 CellLabel->
  "In[780]:=",ExpressionUUID->"e5320ee8-2ede-4960-8f00-62f4469dac23"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtmXk4Vd/3xzUYknkoRZlK6qMMIVTWLSkpY6aQTGmgQpEic1Ik0UAkJVHG
yjVetpnM8zzd607G615DpvI9v+f5/XWe17P3Wuu91l5773OeI+141/TaZjY2
toVNbGz/9zwCOyY3NhhogYlczJ+x4O6KbPjKKgNV/n0w/MGbBbm/lOXmFxmo
dlPWmXknFqjIGzhSpxiIZziuo1qbBccEQweaehmoiH/qzuZFJuDGmQ3xOQx0
zcEKjTsxwfRpc8bRqwzkKZgWI3lhDh60ht6+XjaLFrYZ1257PA2RU969C4Wz
SL/0zovDNtPwmfPmqeBfs8i56fqB25rT0AQGoh/SZ9H7rsk0WJoCmVzR0o6Y
WeQSlZmm5DEFLdFfebSvzyKhkv08mm6TIGdanyEiMIsyOOP3vPOmQ1fX9skK
hxmk1chhpDBAhiBnfFmG7Qyi5/33k1BOhiMLdrFvLGdQn/iVDcc0MoQL/zxx
02AG8e9LUWPeJ8NJU6uXApozSIF6UkZYkAxfW7+oXhWYQUvuwaHXDMbBp+Fk
wHrZNJLZoc+2rYcI+61pl6hF08hazln+LCJCx0S0fFveNDIr1P4vLp0ICtvI
7Snfp5GpbdbHR75EIJ57vu/C22l0bmXbZQ0ZIujX9PyOvz2N3B1M0Mt7Y7Cn
/K7IMYlpFKrM6ULXH4EmIbX7Wjux8Z65Jh3ZEXh0bbXzpNA0quWOvFizNgw9
3E9iz3BNIynLrVZaWcMQbf5eyHRhCjWFtTImBYdhy1S1wO2mKTQtePy7FWkQ
JkR386b4TaHaHJrQWlI/xN0Ydfv6YArxXMhrW/Pth7MlX5q+eU4hlwuEUqnL
/fDZXjEy98YU8hvbMtEj3A+2GWe2l5lNoWB81jDreR+04u5u61eYQuHt0kJD
Ab2Ad61m5x+eRNUNtxq4Q7tBQ+qO8tfeSSTlV6A14tgNxV07r5zsmERN3nrc
A6e6ofyka55r3SRK1yjz1WfrhgZ+Iaf6H5Ooj/9RHE9AF4z9uloeFIaN+90/
zx7aCdzrq48WFCdR+SauVt2MdniR++VrxKFJVGb4ZpTtZTsIXDPskNk/ibyn
C1aJnu0g2vLpoMnuSeRWL8W543g7SCXr9WVtnUR5V7d76zS3gdqZt2rX+yeQ
wsLH8+eYrWAfqTzXHzyBBHQEE+e7m+BRXkxY8+MJhMOlRDV+a4I3Q/MSFT4T
KC5CuoP4uAkaFPLPp9+ZQGMTx3vr5ZrgaLNWirf1BOY/5vtj30bg4DtjIawy
gZRc03hvKjVA5ksLwkUiHaWPncnyq6uD2oICU9wQHdmGqqVRP9cBcVRs4mgv
HeUKJFtG+NfBDqVBUfFmOqq/wn8rVL0OAtqu3p0opCOJygZNlW+1YCp4UyYs
mo6aaonFTvE1sBzjG46AjpIvt++5/KUKaBIVk2e16Min8KXOndAq6PnKYdCi
SkdDHbZa1c5V8Kv4leDwQTrKdBrjVZGrgjuktPerwnSkQb3tIZhZCePKXZlq
dBpyVz/tWl5VAR0lu/hLSTRUffHkvo60CijXvepxZpiGTiRU+8lEVkDS5Um1
Sx00FKgrH+RvXgFWQWzInUBDXa6N26SmyqGlTaE9I5qGmkYs6iely4Fg7Xn0
aAQNSY3R1Hu2lUMGueBN8RMauqH1UX19HEH48mnr349oqJD5woc9DIGO1OVx
qjMNlVdyahe0lkHh3SeL0po0ZM8VwW77sBTSVhosvx2lISsvxchPxqXwNkSg
WOkIDc2N5hbbyJfCvXcJ/iBLQ31FPmyH+wlwBP3gvMJLQ23F9Q3HcQRI4RvZ
FUekIr0vbK6tsiUQYwOcmkNUdOOrdNDg5hIITk9e6O+hIhw+de0SqRgcTzu1
ijdRUXI2TvrZ52KQ8aaHfsynormN9vN/DxSDUNV5T9wPKqrvw3+4xl0MmwUy
rhIzqKhc7rydxkwRkL7d1pL9hPnvLjgkkVcEn4dZjK8RVGR800us52wRxBwy
Gz4XRkWFFoorzxWKIPgBvoEeSEXhMk9M04WKwFHQJ/WQNxVZ8fJ5i48VgrTu
X+tseyry0WXHDwUUQnImZy1ejYrcJT5SXncUQPTKjV8WSlQkcAR3Kq+sAALP
NiT/OYTpk1fX0MgoAPuxSF9NKUx/VsPm208KQFJESLmUG4s362IVol0AfA73
9tqxY/5Kdg+VHy6Af1ld2zc2KMj98Jygw54CGDn3jopbpKD6mYfJ9X/zIclX
IrF6lIIEop6nHK7Kh6j6x8+uDWCceV3oET4f/EVHvTm6KSjZodPgQHo+2OV8
MtFroKDcj8kaKVH5YLi+GSaqKYjL48Jdj+B80D7vrPAcUVCb686gj975sGdc
jrMpj4Lm1s7o7rbPBx6l8AW3HAoKH3cKcDHPh3W/CSLvdyxe/N4vghfyYWhH
JsHoIwXJJweVhhzLh0R9Zc/OZxREryemtInkw77t+g1toRTU18V7Npo3HzIa
HWVaAiho+W8xMZkjH4ovvu6o98Lsd1meyVvBw2nerEO17hR0o7D8e/48Hhqa
a4KrXCnIuDX5/LZZPPQb/lEpc6AgXKSKe9I4Huz5BSJKbClIqST/3dgIHuit
8uOFlhTkc8/imOcAHtyjTx3PN8Xs7+yQvNSDh2Vj69hfBhQUaM8hGdKBh0DB
e1O5ehRkv4rj3NyKB86OCJ1sHUwvbSqttREPUTFfEjK0MT1tx9qn6vGw41Lp
fLomBelZ2l+yqMVDknDPha+qmB7xzH981XjY3zWbkqKI1TvfLUW0Eg+ZrznX
kw9R0Bj6J3irHA+q5lJmSfspKLr+924ehAeCqGZmghQW3w4XtVaKB50ek63x
4hQUxz12QgPjhre3bN/uwOKZKv+pIODB1DIkL1YQyye/7kUcxgM7E3le8WD8
61R7CcYOfXnOUZwUVFihF/MfZk+PayZEbMbim7/6RMPY/TJV5NlfMhobHWhl
lGH12LXhFrZMRm2NjBkdTF/gwM6akHkyCgxKbRqvwANXgtKeoFky6nMeOtFa
hYeXNue9/CfIKLw7gJ8Dy3+HhGOzL5mM7BXDRMOx+iQNPdr/cJSM5n7PSZpj
9ZP7EPvYe4CM6MuNG24teMi+ktl9r5uMuHgUw1rb8aC+t+awRxs23/BEqF83
HkpHhp/caSQjq23Sjff68dB0lV/9ZgUZic3Z+uBIeDCTko9yIZCRcZxukCgN
D4NjOKpTAaYvR15MdRoPkw6eb+2yyEhg9aGawR88eMpEzNqkk1H9s3a7c3/x
sEJKOXs5BdNzesnm+ZZ84HLuXroUT0bJFaydkwL5EL1v1tDkNRkt12x/xCGW
DzspHGmGL8kI53F/6ZZkPsi5aFief4KxoNKT7Yr5oHsjoUDbA+PVtzOpJvnQ
JJ/Hf8KNjPQ65UT/WeeD2UTTdc3rWPwPu6mJzvngfOvfTtUrZCRPD2/K8smH
YDcHn4PnsfE8p/SdX/JhJMousViHjMpHXC4l5uaD1g+b8gvamL93Xg6epfnA
WjTnunMUyxdnWSbYlw8OAfpxP/eQkdIKXXanYAEQPp0j6IiRkVRtwkspqQIQ
qz4z1iWE6VOUf/lQsQDauED+DydWbz9zp11GBYCLOVp4nDWO3C9w7+COKYDE
PKWhpmmMJw70PEspgOWew2x2tHGEcy2ys8QXQK64vF7g0DiyJ6WSB/qx8yxV
oq+6Fps/+CfssVwh/CtgXzZIGEdtifMeG82FYD2wWWL0zThSYiTznyIXQv76
BrYnMX9JNpNNq4Vw59Tq05gn48hH9ah3pXwRDDfM7uy9O44Ct5nX7A0vAsJw
7zH7M+PImB7p6GpWDL5bvj/wnCEhNss+1CZNgDvxdhz2dBJK9mEnDmgTwFFR
+I3BOAkFPq39KWlLAH0bv5/y/STUZ3yxwOodAcR+Gc6MVJOQEpA9QgRKIc9x
3vFCIgkZZwvDG94ymK04YbjvAubv+moMQawcSJbMIcGzWDy/0waVh8qheybV
dQNHQhrjC2mkE9h9u4v/2YA6CZX7SE54OpRDhAexKlqGhPb98NdtzSgHeekw
zb8rRFRoN9vmrFsBDoGt+3rSicjdeQl/N6ISLPo/ag+nEJFA7+doteRK0Fdx
tyInERGO/5+vEL4SVMkCkazXRHTiDFNdcLQSuPRM5/mCiMjvrd5eKdUqyObv
rjh3GfMff7Dek1QFa0kDdkXbiIjrP8WL14xq4E0pJS7x1hhyp1X+sHOpBzuf
9/7Hro2hTB/ZJ+HB9SB/1Mi54+oYElCwWqxLqofi9EJFLvMx1DeXbfS0tx5G
YiNq7wE23ll7jV3/Nxy4pbygLzKG2uqf/51UaQDPw6tJLN9RNPZ6LYog3ATF
o/I8mTIjKDDm8YsLHG0gK4A7bZY0iDSC1dPu8HbBz0Pht0jjfchf5U16Y1Uf
jNb8kFJX70FdD+ZDveKHgaLwRgXldyIVYymj7TuJIOj/Tf3IpnZkHL31XV3U
OCioMxRS55uQOutf+Z8mCoScmWkr8qlDZmkGamKSdBA1y46+vLMSTb/tvvoU
Nwk/l2r46/cVo/A32+lpItOQOkh5MRGajbivFoqLjMzAFROJvEGn10jn+tjQ
NQsGTM8vanpVx6I/OQOF1TYM8Hvbivj2x6IKYeMgKQcGJA4GN56ivkKaw+E9
La4MyGvsqDFqj0LS254+5whiQM6Cmyx9IBT9c2sYJX5nQGCXfJd41Umk7SyK
zq4zoIjbt7vSKxZqlGVHx/TnIPmwaGeOzGsIf3J0y1WDOQgzzmlLbH0NNJb1
pUGjOTB7O97offAtvCUI+bSYzcGc9MXKQ8Nx8GnxUleS3RzIae7JiTmTBEmR
H8k0jzn4/evqmR/PvsAPhy8r4u/mQI20aW+QVQ4kneb7JTw0B0eKLZlK33JA
r+g+fXUYs4/Jqh5byQHBTVlRY6NzsP1TplqyQS54pXoeSRufg3Vjq6GN2Vzg
DHhXIT01B8O5OQeR8k9Iqqq91bQyBx/d7apPFuSBSTZPzIooExJtt2W/Gc2D
b513bHJ2MiFOL+/dDCce+mirH5x2MSFaitv1gxUejoY3vqyTYEJgG17wL3bv
cyoKKj6WZYKDEu9VwokCqOh49+WjEhNk50pWtCqLQDJFs6vqPBP8mnVCF7D3
PG4d3383LzCh53sjX/auYrCu6bjFZ8CE59cGZaU9imFraP12U2MmzA2sGnBK
lcDLGwcfV1swoaxG83PnYwJMBjXHWmDf19YJBfpumghWtry6f9SXCXk+0L3/
GoJGo+jZz35M4LOouzoajaDuRBZBwJ8JFQK9903pCEYJlZa0QCaI6PgaJV4o
B/U0uYTAMCb4Fr5/GLxaDm3fr9CdXjHhfEp/s6FVJSgu3LdlpWJ6nmS71Nyu
BJGo49QDaVh9boRsHA+phBaLCrpNOhPohw8rH8yuhBMBRGv0nQnhhYGvt2yt
AtbLcM77OUyobz5gU5hTBf+5CMu9KWTCuWUvujRnDZQkCNeU/GbC7IB+UJxE
DYi9l+uraGDC21LJ3fwq2Dnw6I5fbSMTqMG/L6zb1sB7RPdtbGZCGO+enJ6f
NcAW3ny7up0JtTLVXhF2tdBvEj7g2c8EXQOhLYv4OjAwV2HW0ZgQ5bCNufK7
DuYYZeqxdCb0ebGN/huug9aWOPMrE0y4lTRbzMVRD/WvQGZ2EpvPaPCUsKiH
EtcWns2z2PxXISSdpXp4Pz3aNT+Pze9ZqIhRb4AvzVHVWzeY8GtyKuedfgOw
np0qzsR4/R/pQ6JdA8zGTn++xMaCqAPtD7+GNcCNUy+Nkzax4JdPlnJxTwOY
RNBUD2xlwfpul09E70ZIbFEY59zGgpdXewOVCpogfTJx63YhFoRNnwBqUxPY
tPn6JWHs//Dz3wRSE7gz/PuVhFlwJ/b2I06+ZpDpw58zFWGBYd2W+yPOzbCl
58GO8B0s4FNUuh4p1AICE2uR5btZwEF4s/+0fAtc5BeknxZnwT+9tfE/J1tg
1fL38WqMZx1r7Z1utoBS6L6OKgkWtLy1tdYqb4FduKrh/L1YPv/CDei3WyHQ
G//itgymL2J2e1JIKxwvFt8+hrG/mFnDpfhWWCPGvTGRxfSpSJ5D1a3gpLej
V3kfCw78spZq5G0Dg1lOZdp+FnDS5nZ9dm6DmJ3arnIHWVBnuIfXWKgdRJSn
/NkUWSByhLjDU6IdXlGq/UwwtudNlXot1w42MZubP2G82qig2qfVDha8Jjdx
SixQOH/Cxt6pHfyrF394KbMgWsfmm3teO/jdfB9RcZQFQzKSv2LK2iHAqvkE
lyoLDm4eJ+TVt0PqLfNLhhhXlt9qWx5qh/gfWvg+jBdPPvoTyN4BRpHWd6hq
LLDWiNd9ZdEBvHOW9dRjLPi684rRL/sO0J+86bBPgwXzS1KXu291gImG3z0H
jCPx6W67AjrAePtXzgGMkUph7Ke0DqgdMxOu0WTBvsO9xB/LHRB7La8r5DgL
ZqRF/Tved2J9cZE7S5sFGr6fPCq+dMKuD2KmgxgHdx2+lpvdCf+auHDbgAU7
np69GFXZCRcTrgk7Y6w9/WC3/mQnBBrmlojisH7KH8iv0OyCZWqh8q1TLFC+
kMzI7euCrDMGbWM6LPC6/5/Dyx09UPFUm2mkh/njZhAspHuA3mQn6IVx4cef
YnsVeuBgiN/h9xivN2i2ZZ7qAWt2DgcyxsHSetDg1gOHeofpPuex/mhx3sNe
1QObU4XEv+hj9ZFP6n90txf2HmBXFzBggV6Zg9rpR72ww2rxvgbGE5f2v9r2
pBeanlhO22OsEJCpF/e+F6it2pE/Mf7ZXVyAr+mFYOEbdVaGLCgL7n0zJ94H
/vcyyD+NWNA7JGDqUt8HGe58hRmmLNCPuNZ3v6MPZn3P3R7EmKBZbBcy1Af8
SU4R2y+xIPmtk2vyXB+sxa9x3cb4hnF+6IBYPyxItmqomWH9VGVTYHizH3rW
HlEHzVng5pl78sq9fth0sHRByIIFI1Ls1a6P+2GvNN9TfYwrH2e3hb/qhz+i
5dolGEcc2zRZWdQPYmI1h1IsWSCR8VXiGPcAzAxmPoq6jNXn8tpnXZEBsDyy
Ed+CMRuX8UGzvQPYfYC7zG/NArLzipqHygDIvPtcFoNx1t6LRhnWA3Bcyd/i
kw22vjHMIMmMAfid1X5+9Aq2Hx6eoHFeHISg7aThSUcWHHKu7561GIQK4YuD
552wfjQ0q+52GAQtx8G+bxiH7XP7lPJgEFQnh4fdnFmQ2ZpgAymDwD3fbbJx
jQUr+9davVcHwblz9I/lTSw/gadlV9iH4OthbdF6jCPXhLLOCAxBnc2Wy5q3
WCDVfui5kNwQbC+9f0XSlQVn/azPZJsMgd3K9qQVNxbEdBQVUtKHwER+i8yE
OwtsS3XTmn4NAW4DNbh5sGB/evubX2VDkLqxt4KJceHjCc+gLsz+YV7yhidW
b/ldh/ewDYPCCLfHf15YfgE+n8wsh8H0HXt4zUMWVP137HkV+wiYxbobiYay
wE7RLIXJPwI8siivBONlFQ+C5O4RoPbUhjg9wfpLK2PW98gIlIkHXC8IY8Fr
PclLqpYjwFd2KMj9GQtcrnFKpKaPQBDt/dDBl9j63Nyn1vlzBExPFw7TMH7v
dspwU+kIuL0fuJUWjZ2P93wDr7SPwD2VQeX/YlhwLJhBFl0dgXHp3BzdNyzg
+tibFXZhFDruaZrVJ7Dg8+eF2jzzUfggfV88OZEFJ74KjpGujoJvaumrhx9Y
4J51QQjuj8KB5MuvlT+yoL8Eef9JHIVETqpi/mcWfO9Lgxuzo+BnrZsn/J0F
ctsI9C96YyAyRShULGYBq+7Irc8GY1DlTbA4UYLtl7BPUx9Nx0DlT3CfPoEF
Flufzr63HQOPqZ3Rt8tY8GTDZCHafQymkm7zNFRi/bdI2/CLG4Mrxjf2ERsx
vSThneb0MRi+/lH/3Sh2nn8KizOdGQONPcqp5DEWaNmv7DJmjYG/ischVRIL
OoZHJC6sjwGXA2dZP5kFm/q/yZwSIELCg396MIn1ayscOaxBBBGFmSmvRRbs
IbjqsocTYbcPtrC88yCya3X1zgsi+OEeK9rwzwOPd3huXwwRDp74+3un4Dys
K6aKZ34gwgLBHx8vMg8DKSNM019EsPkSX1wuPg9vI0ySkkeI8IdvUCrp0Dzw
2Rz7c1yNBHcsmzMz9OeBo7AmM1WLBOJrL3/VXZyHvyJmjvw4EnDN+W5QDedh
usW9maRPAk3rM/cUL81Dw+nvKc/sSeCjvS5Nt5mHp4f2GPdGkGB1ztB67fY8
sK1u/uZJIoG0Rbw1ej0P9uP98wE0Etj19CTufTcP5U252i+mSbBM9hUIip+H
wI92XWlLJBB2CXhrlDQPG2eKN4a4x2HPjQPXhdPn4d9LD4tzR8fhUYGqqwYB
y3f/2BaJ0HFwYUylctPmwZa/wPDgs3Gw9+DR6p6YB8Lyi3h17DtD+zi3ecr0
PPg1Hlc0iRuHyVy/Q/qseVhzf2cdljkObW3+Hyv/zsNqieGPua5xIKk57XAQ
XYA/JqV2NfvJ4OJMDbx+bgGC+3OGtf8jQ0+/h/is/gLwOXy2LVQig1iV7umH
hgsg5/7UOuM4GeI+Cel8MF8AsygTi1cmZLi4+7mXhPMC5DZQDK48JoOCTGDV
atAC3NThO7nYRQYejnPOxhULsNDARrgzgLG1xdO7NQsQaDqvRR8lw3NN5vfY
3wsQ59CnMThJBoHvrzdPtS9AbcBn1Qo2Cox7Wdr0kBZAhqCu8EKBAvIDmguf
2RdhUPWq+P5QCkifEt9yxGgRXFbU+J88o4D1zpdSI5cWYa6UZwsligJ7lmRC
Y60WYeu54skv8RSYX5NR4HNchCOXRYv35VCAXWvTNR2vRQh83Gi1b4AC6tQD
33ITF0Gu9thbWSUqHHl9TDaXsQi5z/meh6hRoaHYRkxgcRG0jCiPx7WoUJK/
77fX6iIY9cVcS9GlArU81s2UfQl8JmdUZW2oEDn1UdZEfAka+b50yoRRIYdX
L+G63hK4WwoIygxRYejcPnnhtCVwTFd8v59IhbP0u571mUtgvmIoe5BKhRPx
u2VDfi6BVsILNaU5KlgPbK/mKlsC9lFua+2tNKjtXLMx716C9y7sKdYKNKCs
GKQsbf0D1V6rqrF+NHC/5JJ998Yf2PWabLV1Dx1MKsyXZ3HLoBEiueO+DB36
oocSfugtg4Wndef4ATpEnfN+7mu8DDHGbQZVKnTwtMdf3m+/DDy8hNPBenRw
1Lqi3h6wDP+exCqw3aeD3NHLCS/Kl4H84DTbegMdWjh4R/PPrUC2TXLavM8E
3HT52km4vQqqvbKrHP4T8MytLrLFexVKTNMu7g6ZgH8Kx2JoAatQfz6biXsx
AUucj6MVY1Zh/BjheNSnCbB6KVO+s2AVxET6WuUbJkAp5/Tui5vXILiJf/mK
+CRocc5esktaA8uTAXr1pZPQ2K8ltjyzDkOLVP7KykmQ3vXDsXJ5HRyzDXtL
6iah+nfT69db/oKb5F6XnPZJCCSdLzPe9ReCN5WGvKVMAlT3PJfX/QvZNatl
zrxT8NHGXOly0l/YauittunKFBgW3NnUZ/EPftjdltFan4LZJ7QEMeIGOOLn
9iRvmgYf3b4pQcYGiPDc38XBOQ1h3LeTRP9ugHfRI4EOwWkYp1lKJvGw4bRE
wv/dPDANu5PZH245yIar/P15IN4Us++0PdzoyIbrUu2LWUmfhr1mx19cHWDD
LXPrbCkynwGXomGj/QObcKbtx9X3xM3CG7fpe75LW3Dcx7dXED7Mgmkh27lM
tq24ii8DF2xTZmHd9j4vmXsrTsnnoUNC9ix8o1gG3pDciuOTLIjcVTMLWgGn
TWr0tuJ+u6mMi7JmobyW53h74lYcjutgNN9FBhB1e+XO6bPjlj2Wd2ebMOBQ
8JKirTk7LmewLtXAkgH4dq9IH3t23N4cl5JIRwb4rxZdqPNmx62bf6FyP2RA
XJmfRmkKO64gRfIk51cGjEoSvXg32HF3eBl1XzMY0ODwVCaemwMn96DM9OwP
Buy96XRJYQcH7rX+lRtPCAxI+8puePMwB86T+T52SycDvggK/D1py4E7ZHNr
b0ofA261PpbmuMGBI1Zrfjs9wgDV4ApS9z0OnHFcX1nQBAPMbu/Xi4zgwHFt
Tj8vzWDAA9v7LM93HDjk+qCrfIEButlLug4pHDjv7rNX7VcZUCldo2uZw4H7
///lcGzryoJZCQfuf0s0XN4=
       "]]},
     Annotation[#, "Charting`Private`Tag$647682#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->{{-1, 1}, {0., 2.841470636224155}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.765855346513215*^9, 3.765855369582006*^9}, {
   3.765855403380146*^9, 3.765855413216732*^9}, 3.765856718058264*^9, 
   3.796975873662816*^9, 3.7969771173900423`*^9, 3.796977161551819*^9},
 CellLabel->
  "Out[780]=",ExpressionUUID->"2d5bd69d-d184-4dde-b2b7-54a23f9cc20a"]
}, Open  ]],

Cell["Choose points and find the values and the derivatives.", "Text",
 CellChangeTimes->{{3.765855450410513*^9, 
  3.7658554845826*^9}},ExpressionUUID->"e89ee157-bcbd-4cf0-858e-02c4835d8c3e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     FormBox[
      RowBox[{
       RowBox[{"3", 
        SuperscriptBox["x", "4"]}], "-", 
       RowBox[{"2", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"Sin", "[", "x", "]"}], "+", "1"}],
      TraditionalForm]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DDfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7658557248153553`*^9, 3.76585576852527*^9}, {
  3.765856099747439*^9, 3.7658561087971697`*^9}, {3.7658562304187613`*^9, 
  3.76585623308319*^9}, {3.765856294001314*^9, 3.7658563460351543`*^9}, {
  3.7658564173660383`*^9, 3.765856423194186*^9}},
 CellLabel->
  "In[781]:=",ExpressionUUID->"1dcc5301-6722-4135-b4d8-2ef19aca471c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "6"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}},
 CellLabel->
  "In[784]:=",ExpressionUUID->"d8a6874f-31cc-4c4b-a1bb-7bd82c6ea825"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["2", "3"]}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", "0", ",", 
   FractionBox["1", "3"], ",", 
   FractionBox["2", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.7969758737559547`*^9, 3.7969771174517612`*^9, 
   3.796977161614236*^9},
 CellLabel->
  "Out[784]=",ExpressionUUID->"afdbcc41-51b0-47bc-8d2e-757926da6b33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "=", 
  RowBox[{"fun", "/@", "x"}]}]], "Input",
 CellChangeTimes->{{3.7658555080914907`*^9, 3.7658555197213717`*^9}, {
  3.7658557831541224`*^9, 3.765855799318111*^9}},
 CellLabel->
  "In[785]:=",ExpressionUUID->"47873723-4ee1-43f3-a6a8-d073435f8b1b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", "-", 
    RowBox[{"Sin", "[", "1", "]"}]}], ",", 
   RowBox[{
    FractionBox["19", "27"], "-", 
    RowBox[{"Sin", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["22", "27"], "-", 
    RowBox[{"Sin", "[", 
     FractionBox["1", "3"], "]"}]}], ",", "1", ",", 
   RowBox[{
    FractionBox["22", "27"], "+", 
    RowBox[{"Sin", "[", 
     FractionBox["1", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["19", "27"], "+", 
    RowBox[{"Sin", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{"2", "+", 
    RowBox[{"Sin", "[", "1", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.765855516359295*^9, 3.765855522244519*^9}, 
   3.765855807118476*^9, 3.7658561231888247`*^9, 3.7658562566365356`*^9, 
   3.7658562993231897`*^9, {3.765856338354422*^9, 3.765856352765819*^9}, 
   3.765856429673202*^9, 3.765856544010661*^9, 3.765856718156893*^9, 
   3.796975873840314*^9, 3.796977117463521*^9, 3.796977161623561*^9},
 CellLabel->
  "Out[785]=",ExpressionUUID->"608f5c77-c2c8-4b01-9dd6-0aaab79ebfe2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dy", "=", 
  RowBox[{"Dfun", "/@", "x"}]}]], "Input",
 CellChangeTimes->{{3.765855789818693*^9, 3.765855801320726*^9}, {
  3.765856381646295*^9, 3.7658564020139523`*^9}},
 CellLabel->
  "In[786]:=",ExpressionUUID->"646738b6-d003-46b3-a098-f08a43cdbd62"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "8"}], "+", 
    RowBox[{"Cos", "[", "1", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["8", "9"]}], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["8", "9"], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["1", "3"], "]"}]}], ",", "1", ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["8", "9"]}], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["1", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["8", "9"], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{"8", "+", 
    RowBox[{"Cos", "[", "1", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855809492054*^9, 3.765856123238505*^9, 3.765856256651194*^9, 
   3.765856299339443*^9, {3.765856338432542*^9, 3.765856352783358*^9}, {
   3.765856384831613*^9, 3.765856429684827*^9}, 3.765856544023744*^9, 
   3.7658567182372932`*^9, 3.7969758738480663`*^9, 3.796977117519408*^9, 
   3.7969771616785994`*^9},
 CellLabel->
  "Out[786]=",ExpressionUUID->"8969f06a-d1ac-4292-8adc-3ba6a312c927"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"List", "[", 
      RowBox[{
       RowBox[{"List", "[", "#1", "]"}], ",", "#2", ",", "#3"}], "]"}], "&"}],
     ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "dy"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.796975896712243*^9, 3.7969759695848103`*^9}},
 CellLabel->
  "In[787]:=",ExpressionUUID->"75536118-ba2a-48eb-aac0-100a6de68c68"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", "1"}], "}"}], ",", 
     RowBox[{"2", "-", 
      RowBox[{"Sin", "[", "1", "]"}]}], ",", 
     RowBox[{
      RowBox[{"-", "8"}], "+", 
      RowBox[{"Cos", "[", "1", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", 
       FractionBox["2", "3"]}], "}"}], ",", 
     RowBox[{
      FractionBox["19", "27"], "-", 
      RowBox[{"Sin", "[", 
       FractionBox["2", "3"], "]"}]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["8", "9"]}], "+", 
      RowBox[{"Cos", "[", 
       FractionBox["2", "3"], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", 
       FractionBox["1", "3"]}], "}"}], ",", 
     RowBox[{
      FractionBox["22", "27"], "-", 
      RowBox[{"Sin", "[", 
       FractionBox["1", "3"], "]"}]}], ",", 
     RowBox[{
      FractionBox["8", "9"], "+", 
      RowBox[{"Cos", "[", 
       FractionBox["1", "3"], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "0", "}"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      FractionBox["1", "3"], "}"}], ",", 
     RowBox[{
      FractionBox["22", "27"], "+", 
      RowBox[{"Sin", "[", 
       FractionBox["1", "3"], "]"}]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["8", "9"]}], "+", 
      RowBox[{"Cos", "[", 
       FractionBox["1", "3"], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      FractionBox["2", "3"], "}"}], ",", 
     RowBox[{
      FractionBox["19", "27"], "+", 
      RowBox[{"Sin", "[", 
       FractionBox["2", "3"], "]"}]}], ",", 
     RowBox[{
      FractionBox["8", "9"], "+", 
      RowBox[{"Cos", "[", 
       FractionBox["2", "3"], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"2", "+", 
      RowBox[{"Sin", "[", "1", "]"}]}], ",", 
     RowBox[{"8", "+", 
      RowBox[{"Cos", "[", "1", "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7969759544786263`*^9, 3.796975971085854*^9}, 
   3.7969771175300913`*^9, 3.796977161686974*^9},
 CellLabel->
  "Out[787]=",ExpressionUUID->"861f1362-9e85-49f3-bb2a-ff131154c75d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"if", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"data", ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Hermite\>\""}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.765855815173862*^9, 3.765855847868487*^9}, 
   3.765855936514638*^9, {3.765856284030735*^9, 3.7658562849653873`*^9}, {
   3.796975818402205*^9, 3.7969758255786343`*^9}, {3.796975976515996*^9, 
   3.7969759768742943`*^9}, 3.796977114551104*^9, 3.796977158357205*^9},
 CellLabel->
  "In[788]:=",ExpressionUUID->"507f8928-7669-4ee0-938b-790af1cf0139"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", 
     RowBox[{"if", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.765856005700657*^9, 3.765856023009606*^9}},
 CellLabel->
  "In[789]:=",ExpressionUUID->"12b81e80-4072-4214-8e94-1b8a1400f6c3"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtmXk4Vd/3xzUYknkoRZlK6qMMIVTWLSkpY6aQTGmgQpEic1Ik0UAkJVHG
yjVetpnM8zzd607G615DpvI9v+f5/XWe17P3Wuu91l5773OeI+141/TaZjY2
toVNbGz/9zwCOyY3NhhogYlczJ+x4O6KbPjKKgNV/n0w/MGbBbm/lOXmFxmo
dlPWmXknFqjIGzhSpxiIZziuo1qbBccEQweaehmoiH/qzuZFJuDGmQ3xOQx0
zcEKjTsxwfRpc8bRqwzkKZgWI3lhDh60ht6+XjaLFrYZ1257PA2RU969C4Wz
SL/0zovDNtPwmfPmqeBfs8i56fqB25rT0AQGoh/SZ9H7rsk0WJoCmVzR0o6Y
WeQSlZmm5DEFLdFfebSvzyKhkv08mm6TIGdanyEiMIsyOOP3vPOmQ1fX9skK
hxmk1chhpDBAhiBnfFmG7Qyi5/33k1BOhiMLdrFvLGdQn/iVDcc0MoQL/zxx
02AG8e9LUWPeJ8NJU6uXApozSIF6UkZYkAxfW7+oXhWYQUvuwaHXDMbBp+Fk
wHrZNJLZoc+2rYcI+61pl6hF08hazln+LCJCx0S0fFveNDIr1P4vLp0ICtvI
7Snfp5GpbdbHR75EIJ57vu/C22l0bmXbZQ0ZIujX9PyOvz2N3B1M0Mt7Y7Cn
/K7IMYlpFKrM6ULXH4EmIbX7Wjux8Z65Jh3ZEXh0bbXzpNA0quWOvFizNgw9
3E9iz3BNIynLrVZaWcMQbf5eyHRhCjWFtTImBYdhy1S1wO2mKTQtePy7FWkQ
JkR386b4TaHaHJrQWlI/xN0Ydfv6YArxXMhrW/Pth7MlX5q+eU4hlwuEUqnL
/fDZXjEy98YU8hvbMtEj3A+2GWe2l5lNoWB81jDreR+04u5u61eYQuHt0kJD
Ab2Ad61m5x+eRNUNtxq4Q7tBQ+qO8tfeSSTlV6A14tgNxV07r5zsmERN3nrc
A6e6ofyka55r3SRK1yjz1WfrhgZ+Iaf6H5Ooj/9RHE9AF4z9uloeFIaN+90/
zx7aCdzrq48WFCdR+SauVt2MdniR++VrxKFJVGb4ZpTtZTsIXDPskNk/ibyn
C1aJnu0g2vLpoMnuSeRWL8W543g7SCXr9WVtnUR5V7d76zS3gdqZt2rX+yeQ
wsLH8+eYrWAfqTzXHzyBBHQEE+e7m+BRXkxY8+MJhMOlRDV+a4I3Q/MSFT4T
KC5CuoP4uAkaFPLPp9+ZQGMTx3vr5ZrgaLNWirf1BOY/5vtj30bg4DtjIawy
gZRc03hvKjVA5ksLwkUiHaWPncnyq6uD2oICU9wQHdmGqqVRP9cBcVRs4mgv
HeUKJFtG+NfBDqVBUfFmOqq/wn8rVL0OAtqu3p0opCOJygZNlW+1YCp4UyYs
mo6aaonFTvE1sBzjG46AjpIvt++5/KUKaBIVk2e16Min8KXOndAq6PnKYdCi
SkdDHbZa1c5V8Kv4leDwQTrKdBrjVZGrgjuktPerwnSkQb3tIZhZCePKXZlq
dBpyVz/tWl5VAR0lu/hLSTRUffHkvo60CijXvepxZpiGTiRU+8lEVkDS5Um1
Sx00FKgrH+RvXgFWQWzInUBDXa6N26SmyqGlTaE9I5qGmkYs6iely4Fg7Xn0
aAQNSY3R1Hu2lUMGueBN8RMauqH1UX19HEH48mnr349oqJD5woc9DIGO1OVx
qjMNlVdyahe0lkHh3SeL0po0ZM8VwW77sBTSVhosvx2lISsvxchPxqXwNkSg
WOkIDc2N5hbbyJfCvXcJ/iBLQ31FPmyH+wlwBP3gvMJLQ23F9Q3HcQRI4RvZ
FUekIr0vbK6tsiUQYwOcmkNUdOOrdNDg5hIITk9e6O+hIhw+de0SqRgcTzu1
ijdRUXI2TvrZ52KQ8aaHfsynormN9vN/DxSDUNV5T9wPKqrvw3+4xl0MmwUy
rhIzqKhc7rydxkwRkL7d1pL9hPnvLjgkkVcEn4dZjK8RVGR800us52wRxBwy
Gz4XRkWFFoorzxWKIPgBvoEeSEXhMk9M04WKwFHQJ/WQNxVZ8fJ5i48VgrTu
X+tseyry0WXHDwUUQnImZy1ejYrcJT5SXncUQPTKjV8WSlQkcAR3Kq+sAALP
NiT/OYTpk1fX0MgoAPuxSF9NKUx/VsPm208KQFJESLmUG4s362IVol0AfA73
9tqxY/5Kdg+VHy6Af1ld2zc2KMj98Jygw54CGDn3jopbpKD6mYfJ9X/zIclX
IrF6lIIEop6nHK7Kh6j6x8+uDWCceV3oET4f/EVHvTm6KSjZodPgQHo+2OV8
MtFroKDcj8kaKVH5YLi+GSaqKYjL48Jdj+B80D7vrPAcUVCb686gj975sGdc
jrMpj4Lm1s7o7rbPBx6l8AW3HAoKH3cKcDHPh3W/CSLvdyxe/N4vghfyYWhH
JsHoIwXJJweVhhzLh0R9Zc/OZxREryemtInkw77t+g1toRTU18V7Npo3HzIa
HWVaAiho+W8xMZkjH4ovvu6o98Lsd1meyVvBw2nerEO17hR0o7D8e/48Hhqa
a4KrXCnIuDX5/LZZPPQb/lEpc6AgXKSKe9I4Huz5BSJKbClIqST/3dgIHuit
8uOFlhTkc8/imOcAHtyjTx3PN8Xs7+yQvNSDh2Vj69hfBhQUaM8hGdKBh0DB
e1O5ehRkv4rj3NyKB86OCJ1sHUwvbSqttREPUTFfEjK0MT1tx9qn6vGw41Lp
fLomBelZ2l+yqMVDknDPha+qmB7xzH981XjY3zWbkqKI1TvfLUW0Eg+ZrznX
kw9R0Bj6J3irHA+q5lJmSfspKLr+924ehAeCqGZmghQW3w4XtVaKB50ek63x
4hQUxz12QgPjhre3bN/uwOKZKv+pIODB1DIkL1YQyye/7kUcxgM7E3le8WD8
61R7CcYOfXnOUZwUVFihF/MfZk+PayZEbMbim7/6RMPY/TJV5NlfMhobHWhl
lGH12LXhFrZMRm2NjBkdTF/gwM6akHkyCgxKbRqvwANXgtKeoFky6nMeOtFa
hYeXNue9/CfIKLw7gJ8Dy3+HhGOzL5mM7BXDRMOx+iQNPdr/cJSM5n7PSZpj
9ZP7EPvYe4CM6MuNG24teMi+ktl9r5uMuHgUw1rb8aC+t+awRxs23/BEqF83
HkpHhp/caSQjq23Sjff68dB0lV/9ZgUZic3Z+uBIeDCTko9yIZCRcZxukCgN
D4NjOKpTAaYvR15MdRoPkw6eb+2yyEhg9aGawR88eMpEzNqkk1H9s3a7c3/x
sEJKOXs5BdNzesnm+ZZ84HLuXroUT0bJFaydkwL5EL1v1tDkNRkt12x/xCGW
DzspHGmGL8kI53F/6ZZkPsi5aFief4KxoNKT7Yr5oHsjoUDbA+PVtzOpJvnQ
JJ/Hf8KNjPQ65UT/WeeD2UTTdc3rWPwPu6mJzvngfOvfTtUrZCRPD2/K8smH
YDcHn4PnsfE8p/SdX/JhJMousViHjMpHXC4l5uaD1g+b8gvamL93Xg6epfnA
WjTnunMUyxdnWSbYlw8OAfpxP/eQkdIKXXanYAEQPp0j6IiRkVRtwkspqQIQ
qz4z1iWE6VOUf/lQsQDauED+DydWbz9zp11GBYCLOVp4nDWO3C9w7+COKYDE
PKWhpmmMJw70PEspgOWew2x2tHGEcy2ys8QXQK64vF7g0DiyJ6WSB/qx8yxV
oq+6Fps/+CfssVwh/CtgXzZIGEdtifMeG82FYD2wWWL0zThSYiTznyIXQv76
BrYnMX9JNpNNq4Vw59Tq05gn48hH9ah3pXwRDDfM7uy9O44Ct5nX7A0vAsJw
7zH7M+PImB7p6GpWDL5bvj/wnCEhNss+1CZNgDvxdhz2dBJK9mEnDmgTwFFR
+I3BOAkFPq39KWlLAH0bv5/y/STUZ3yxwOodAcR+Gc6MVJOQEpA9QgRKIc9x
3vFCIgkZZwvDG94ymK04YbjvAubv+moMQawcSJbMIcGzWDy/0waVh8qheybV
dQNHQhrjC2mkE9h9u4v/2YA6CZX7SE54OpRDhAexKlqGhPb98NdtzSgHeekw
zb8rRFRoN9vmrFsBDoGt+3rSicjdeQl/N6ISLPo/ag+nEJFA7+doteRK0Fdx
tyInERGO/5+vEL4SVMkCkazXRHTiDFNdcLQSuPRM5/mCiMjvrd5eKdUqyObv
rjh3GfMff7Dek1QFa0kDdkXbiIjrP8WL14xq4E0pJS7x1hhyp1X+sHOpBzuf
9/7Hro2hTB/ZJ+HB9SB/1Mi54+oYElCwWqxLqofi9EJFLvMx1DeXbfS0tx5G
YiNq7wE23ll7jV3/Nxy4pbygLzKG2uqf/51UaQDPw6tJLN9RNPZ6LYog3ATF
o/I8mTIjKDDm8YsLHG0gK4A7bZY0iDSC1dPu8HbBz0Pht0jjfchf5U16Y1Uf
jNb8kFJX70FdD+ZDveKHgaLwRgXldyIVYymj7TuJIOj/Tf3IpnZkHL31XV3U
OCioMxRS55uQOutf+Z8mCoScmWkr8qlDZmkGamKSdBA1y46+vLMSTb/tvvoU
Nwk/l2r46/cVo/A32+lpItOQOkh5MRGajbivFoqLjMzAFROJvEGn10jn+tjQ
NQsGTM8vanpVx6I/OQOF1TYM8Hvbivj2x6IKYeMgKQcGJA4GN56ivkKaw+E9
La4MyGvsqDFqj0LS254+5whiQM6Cmyx9IBT9c2sYJX5nQGCXfJd41Umk7SyK
zq4zoIjbt7vSKxZqlGVHx/TnIPmwaGeOzGsIf3J0y1WDOQgzzmlLbH0NNJb1
pUGjOTB7O97offAtvCUI+bSYzcGc9MXKQ8Nx8GnxUleS3RzIae7JiTmTBEmR
H8k0jzn4/evqmR/PvsAPhy8r4u/mQI20aW+QVQ4kneb7JTw0B0eKLZlK33JA
r+g+fXUYs4/Jqh5byQHBTVlRY6NzsP1TplqyQS54pXoeSRufg3Vjq6GN2Vzg
DHhXIT01B8O5OQeR8k9Iqqq91bQyBx/d7apPFuSBSTZPzIooExJtt2W/Gc2D
b513bHJ2MiFOL+/dDCce+mirH5x2MSFaitv1gxUejoY3vqyTYEJgG17wL3bv
cyoKKj6WZYKDEu9VwokCqOh49+WjEhNk50pWtCqLQDJFs6vqPBP8mnVCF7D3
PG4d3383LzCh53sjX/auYrCu6bjFZ8CE59cGZaU9imFraP12U2MmzA2sGnBK
lcDLGwcfV1swoaxG83PnYwJMBjXHWmDf19YJBfpumghWtry6f9SXCXk+0L3/
GoJGo+jZz35M4LOouzoajaDuRBZBwJ8JFQK9903pCEYJlZa0QCaI6PgaJV4o
B/U0uYTAMCb4Fr5/GLxaDm3fr9CdXjHhfEp/s6FVJSgu3LdlpWJ6nmS71Nyu
BJGo49QDaVh9boRsHA+phBaLCrpNOhPohw8rH8yuhBMBRGv0nQnhhYGvt2yt
AtbLcM77OUyobz5gU5hTBf+5CMu9KWTCuWUvujRnDZQkCNeU/GbC7IB+UJxE
DYi9l+uraGDC21LJ3fwq2Dnw6I5fbSMTqMG/L6zb1sB7RPdtbGZCGO+enJ6f
NcAW3ny7up0JtTLVXhF2tdBvEj7g2c8EXQOhLYv4OjAwV2HW0ZgQ5bCNufK7
DuYYZeqxdCb0ebGN/huug9aWOPMrE0y4lTRbzMVRD/WvQGZ2EpvPaPCUsKiH
EtcWns2z2PxXISSdpXp4Pz3aNT+Pze9ZqIhRb4AvzVHVWzeY8GtyKuedfgOw
np0qzsR4/R/pQ6JdA8zGTn++xMaCqAPtD7+GNcCNUy+Nkzax4JdPlnJxTwOY
RNBUD2xlwfpul09E70ZIbFEY59zGgpdXewOVCpogfTJx63YhFoRNnwBqUxPY
tPn6JWHs//Dz3wRSE7gz/PuVhFlwJ/b2I06+ZpDpw58zFWGBYd2W+yPOzbCl
58GO8B0s4FNUuh4p1AICE2uR5btZwEF4s/+0fAtc5BeknxZnwT+9tfE/J1tg
1fL38WqMZx1r7Z1utoBS6L6OKgkWtLy1tdYqb4FduKrh/L1YPv/CDei3WyHQ
G//itgymL2J2e1JIKxwvFt8+hrG/mFnDpfhWWCPGvTGRxfSpSJ5D1a3gpLej
V3kfCw78spZq5G0Dg1lOZdp+FnDS5nZ9dm6DmJ3arnIHWVBnuIfXWKgdRJSn
/NkUWSByhLjDU6IdXlGq/UwwtudNlXot1w42MZubP2G82qig2qfVDha8Jjdx
SixQOH/Cxt6pHfyrF394KbMgWsfmm3teO/jdfB9RcZQFQzKSv2LK2iHAqvkE
lyoLDm4eJ+TVt0PqLfNLhhhXlt9qWx5qh/gfWvg+jBdPPvoTyN4BRpHWd6hq
LLDWiNd9ZdEBvHOW9dRjLPi684rRL/sO0J+86bBPgwXzS1KXu291gImG3z0H
jCPx6W67AjrAePtXzgGMkUph7Ke0DqgdMxOu0WTBvsO9xB/LHRB7La8r5DgL
ZqRF/Tved2J9cZE7S5sFGr6fPCq+dMKuD2KmgxgHdx2+lpvdCf+auHDbgAU7
np69GFXZCRcTrgk7Y6w9/WC3/mQnBBrmlojisH7KH8iv0OyCZWqh8q1TLFC+
kMzI7euCrDMGbWM6LPC6/5/Dyx09UPFUm2mkh/njZhAspHuA3mQn6IVx4cef
YnsVeuBgiN/h9xivN2i2ZZ7qAWt2DgcyxsHSetDg1gOHeofpPuex/mhx3sNe
1QObU4XEv+hj9ZFP6n90txf2HmBXFzBggV6Zg9rpR72ww2rxvgbGE5f2v9r2
pBeanlhO22OsEJCpF/e+F6it2pE/Mf7ZXVyAr+mFYOEbdVaGLCgL7n0zJ94H
/vcyyD+NWNA7JGDqUt8HGe58hRmmLNCPuNZ3v6MPZn3P3R7EmKBZbBcy1Af8
SU4R2y+xIPmtk2vyXB+sxa9x3cb4hnF+6IBYPyxItmqomWH9VGVTYHizH3rW
HlEHzVng5pl78sq9fth0sHRByIIFI1Ls1a6P+2GvNN9TfYwrH2e3hb/qhz+i
5dolGEcc2zRZWdQPYmI1h1IsWSCR8VXiGPcAzAxmPoq6jNXn8tpnXZEBsDyy
Ed+CMRuX8UGzvQPYfYC7zG/NArLzipqHygDIvPtcFoNx1t6LRhnWA3Bcyd/i
kw22vjHMIMmMAfid1X5+9Aq2Hx6eoHFeHISg7aThSUcWHHKu7561GIQK4YuD
552wfjQ0q+52GAQtx8G+bxiH7XP7lPJgEFQnh4fdnFmQ2ZpgAymDwD3fbbJx
jQUr+9davVcHwblz9I/lTSw/gadlV9iH4OthbdF6jCPXhLLOCAxBnc2Wy5q3
WCDVfui5kNwQbC+9f0XSlQVn/azPZJsMgd3K9qQVNxbEdBQVUtKHwER+i8yE
OwtsS3XTmn4NAW4DNbh5sGB/evubX2VDkLqxt4KJceHjCc+gLsz+YV7yhidW
b/ldh/ewDYPCCLfHf15YfgE+n8wsh8H0HXt4zUMWVP137HkV+wiYxbobiYay
wE7RLIXJPwI8siivBONlFQ+C5O4RoPbUhjg9wfpLK2PW98gIlIkHXC8IY8Fr
PclLqpYjwFd2KMj9GQtcrnFKpKaPQBDt/dDBl9j63Nyn1vlzBExPFw7TMH7v
dspwU+kIuL0fuJUWjZ2P93wDr7SPwD2VQeX/YlhwLJhBFl0dgXHp3BzdNyzg
+tibFXZhFDruaZrVJ7Dg8+eF2jzzUfggfV88OZEFJ74KjpGujoJvaumrhx9Y
4J51QQjuj8KB5MuvlT+yoL8Eef9JHIVETqpi/mcWfO9Lgxuzo+BnrZsn/J0F
ctsI9C96YyAyRShULGYBq+7Irc8GY1DlTbA4UYLtl7BPUx9Nx0DlT3CfPoEF
Flufzr63HQOPqZ3Rt8tY8GTDZCHafQymkm7zNFRi/bdI2/CLG4Mrxjf2ERsx
vSThneb0MRi+/lH/3Sh2nn8KizOdGQONPcqp5DEWaNmv7DJmjYG/ischVRIL
OoZHJC6sjwGXA2dZP5kFm/q/yZwSIELCg396MIn1ayscOaxBBBGFmSmvRRbs
IbjqsocTYbcPtrC88yCya3X1zgsi+OEeK9rwzwOPd3huXwwRDp74+3un4Dys
K6aKZ34gwgLBHx8vMg8DKSNM019EsPkSX1wuPg9vI0ySkkeI8IdvUCrp0Dzw
2Rz7c1yNBHcsmzMz9OeBo7AmM1WLBOJrL3/VXZyHvyJmjvw4EnDN+W5QDedh
usW9maRPAk3rM/cUL81Dw+nvKc/sSeCjvS5Nt5mHp4f2GPdGkGB1ztB67fY8
sK1u/uZJIoG0Rbw1ej0P9uP98wE0Etj19CTufTcP5U252i+mSbBM9hUIip+H
wI92XWlLJBB2CXhrlDQPG2eKN4a4x2HPjQPXhdPn4d9LD4tzR8fhUYGqqwYB
y3f/2BaJ0HFwYUylctPmwZa/wPDgs3Gw9+DR6p6YB8Lyi3h17DtD+zi3ecr0
PPg1Hlc0iRuHyVy/Q/qseVhzf2cdljkObW3+Hyv/zsNqieGPua5xIKk57XAQ
XYA/JqV2NfvJ4OJMDbx+bgGC+3OGtf8jQ0+/h/is/gLwOXy2LVQig1iV7umH
hgsg5/7UOuM4GeI+Cel8MF8AsygTi1cmZLi4+7mXhPMC5DZQDK48JoOCTGDV
atAC3NThO7nYRQYejnPOxhULsNDARrgzgLG1xdO7NQsQaDqvRR8lw3NN5vfY
3wsQ59CnMThJBoHvrzdPtS9AbcBn1Qo2Cox7Wdr0kBZAhqCu8EKBAvIDmguf
2RdhUPWq+P5QCkifEt9yxGgRXFbU+J88o4D1zpdSI5cWYa6UZwsligJ7lmRC
Y60WYeu54skv8RSYX5NR4HNchCOXRYv35VCAXWvTNR2vRQh83Gi1b4AC6tQD
33ITF0Gu9thbWSUqHHl9TDaXsQi5z/meh6hRoaHYRkxgcRG0jCiPx7WoUJK/
77fX6iIY9cVcS9GlArU81s2UfQl8JmdUZW2oEDn1UdZEfAka+b50yoRRIYdX
L+G63hK4WwoIygxRYejcPnnhtCVwTFd8v59IhbP0u571mUtgvmIoe5BKhRPx
u2VDfi6BVsILNaU5KlgPbK/mKlsC9lFua+2tNKjtXLMx716C9y7sKdYKNKCs
GKQsbf0D1V6rqrF+NHC/5JJ998Yf2PWabLV1Dx1MKsyXZ3HLoBEiueO+DB36
oocSfugtg4Wndef4ATpEnfN+7mu8DDHGbQZVKnTwtMdf3m+/DDy8hNPBenRw
1Lqi3h6wDP+exCqw3aeD3NHLCS/Kl4H84DTbegMdWjh4R/PPrUC2TXLavM8E
3HT52km4vQqqvbKrHP4T8MytLrLFexVKTNMu7g6ZgH8Kx2JoAatQfz6biXsx
AUucj6MVY1Zh/BjheNSnCbB6KVO+s2AVxET6WuUbJkAp5/Tui5vXILiJf/mK
+CRocc5esktaA8uTAXr1pZPQ2K8ltjyzDkOLVP7KykmQ3vXDsXJ5HRyzDXtL
6iah+nfT69db/oKb5F6XnPZJCCSdLzPe9ReCN5WGvKVMAlT3PJfX/QvZNatl
zrxT8NHGXOly0l/YauittunKFBgW3NnUZ/EPftjdltFan4LZJ7QEMeIGOOLn
9iRvmgYf3b4pQcYGiPDc38XBOQ1h3LeTRP9ugHfRI4EOwWkYp1lKJvGw4bRE
wv/dPDANu5PZH245yIar/P15IN4Us++0PdzoyIbrUu2LWUmfhr1mx19cHWDD
LXPrbCkynwGXomGj/QObcKbtx9X3xM3CG7fpe75LW3Dcx7dXED7Mgmkh27lM
tq24ii8DF2xTZmHd9j4vmXsrTsnnoUNC9ix8o1gG3pDciuOTLIjcVTMLWgGn
TWr0tuJ+u6mMi7JmobyW53h74lYcjutgNN9FBhB1e+XO6bPjlj2Wd2ebMOBQ
8JKirTk7LmewLtXAkgH4dq9IH3t23N4cl5JIRwb4rxZdqPNmx62bf6FyP2RA
XJmfRmkKO64gRfIk51cGjEoSvXg32HF3eBl1XzMY0ODwVCaemwMn96DM9OwP
Buy96XRJYQcH7rX+lRtPCAxI+8puePMwB86T+T52SycDvggK/D1py4E7ZHNr
b0ofA261PpbmuMGBI1Zrfjs9wgDV4ApS9z0OnHFcX1nQBAPMbu/Xi4zgwHFt
Tj8vzWDAA9v7LM93HDjk+qCrfIEButlLug4pHDjv7rNX7VcZUCldo2uZw4H7
///lcGzryoJZCQfuf0s0XN4=
       "]]},
     Annotation[#, "Charting`Private`Tag$647732#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2nk01N/7AHBlTUKFJFu2JIVCUTxTlqQoIrsQilJI0iYJEQkpypLSB0X2
Gbtr31L2fTeL3ZiFkPJ9/875/TNzXmeee+9zn/dz3++Zc2a/0x1Tl60sLCys
2Mv/vR8BodnNTSpapCFX8zA63FmTDl1bp6KIeP3yJF865BaoyDGWqYg54FpF
v0aHo/JGTpQ5Kgo9c7O+RpsOx3cGDbb2UZE1Ts9qnUkDHJHW8j6HiqYTDO3r
rtHA9MXPzGNXqejDKZbIr4ZLcL8tyON65SKaogTxtj6Yh4g53z5m8SJKJ+Ta
9lnMw2dOt9OBBYso54Cc7j+1eWgFI8GkjEVETE4qTqbPgVSuYEVnzCIaKos4
dNBjDn5FpfFoX19Ex/wH+2yuz4KcaVOmAP8iuhz3TWv5zjR0d2+frXZcQCiv
fWCsjQTPnPGVmbaYjzN0zAkkOMK0f/PWYgE9eiyQMZ5IgtDd+afcjBZQRYgU
aLiTQMvU8jW/xgI667/n1xI7CdLavqhe5V9Ay6tlid6nieDXovV0o3Ie5Qin
X3/ZNAGy1lOXKSXzaDOTYyUnbwI6Z6Lk2wvnUbjUWNDshwlQ3EbqSP02j+b+
Ngcle0zAxNmXMuffzaMio6PHtghMgGF9b/N7j3k0dOnL/W/O4yBWdUfguOg8
mqwJ352lMAqtu9R8NPfMo9mD7PdIW0fhoct6l9aueeQ+aXVFZ2gEermD3+hy
zSNX/Z92PhEjEGX+YZcpcw7lt10jfVoaBta5On6P1jl0O+Y1U6xqCGYERXak
Pp5D35THzhx7NADxN8Zupd2fQ77bJ+UkLAdAv+xL61fvOfTuUEChktoAfHZQ
isi9MYecNBuiK6n9YJupu73SbA6lvdhSEu3aD224O9sGFOdQZLjPKItNH+Bv
1rHzjcwi8ehz6Qn2PXBC8rZKWt8s4tgSWuem1QOl3XvstDpnUZb35qCDaA9U
ad0svNk4i4TjojOaB7uhhW/Xtaa8WeQawlPy3KobxguuVj0LmUUXdn7TC7Pv
Au6N9YdMpVlk6zaProR0wKvcL2nhCrNInzU0S8K9A/hdjDulZGfR+mNxTT7j
DhD89emgicgs8j+vuuAo1AGSKQb939mw8b9b/+vKaAc13Xdq1wdm0MaJzYWc
r23gEKGyNBA4gyJs/ourjm6Fh4UxIT+fzKAgvU+Z3S6t8HaYIVrtN4Om7/uu
yGm2Qosi4VzGbSz+Sj4hlPgDjv3UTPW1xuwQF66l8QM4eHWv7D46g4bbTfpN
lpoh6/WV8gsT04jLw/HFxYhGaCgqMsUNT6N2bZwj741GmBgTnjnWN42m7WU/
c+k2gpDykOC+n9MoQ4FrLHujAZ62X70zUzyNcs0tqJWeDWC6000qJGoa6Upb
lHVeq4fVmEehCKZRMQX/kuFTC1Oi1bP6mtNI4N+dsfvmtdCbxmH0S3UaxWru
eKSlXgsFpdE7Rw5OI8mW3Lnw1Rq4PZn+YX33NLLsGbirElADRJXuLLXpKVSo
kHLwSUI1dJbt5auYnEIbB7eWsQZUQ5XeVS/dkSk0PKsn1+xcDclWs2qXO6fQ
F8ujVD6larB8xoI8y6fQ9L3h7WENVfCrXbEjM2oK8eg7PeTcUgXl1t7HjoVP
oaiZzKXOTgSZpKK3pcFT6ASrWQPfFwShq2esmx9OoUslLk30swh0JK2IFOcp
ZGnG/c38bSUU3wle3q8xhaqcVH4b6ldA+lqLxddj2PhsPkU/8Qp495y/VPnI
FOpfzHTY+7sc7sYl+IP0FMpNSoohfC2HIyiP027HFPLrGU+4LFAOqbyje+Mn
KCi+BVl0/yuFGBvg1BimoHb7baTC0VIIzEhhDvRSkKQ8zxsWVApOZ6617Wul
oPEW92P9AaUg5Tsd9JFAQX7XW3wCtpXCrtpz3rg8Cmoq3cebP18CW/kzr05k
UhCX7DP/C+0lMPnVQ1P6EwXhcvCVpfEl8HmETk0LpyD+PNZCnyMlEKNgNnI2
hIIsO4/9JQmUQOB9fMt0AAU5zHd2lP0pBqedfv8p+GL5PQr/ndBSDPv1/lpn
O2Dx4jKK4h7FkJLF2YBXo6BLciTGTF0RRK3dKLiijOXPbxGcklcEAfotKb8V
KMiTsMhdklwEDuMRjzQkKSj0a0kr78MikBDYpVLBjeWL29ivp1YEvI53xe3Z
KeiGTNd5Vtki+Pe9e/vmJhkppx8U3y9YBKNn4yi4ZTIqXg1893CFAMmPRBPr
xsjIb1LmZ2IFASKbnoS5DJLRpXb1o5dyCeAvOObL0UNGN7SlmQ6pBLDP+WRi
0EJG8jwlN96/JIDxxlaYqcPiZR6EVvkTQPucs+JLREYph0+P6dwlgBhRjrO1
kIwygoR47O0IwKMcyryVQ0btLzUvMk0JsPF4ZmLHNzISZrxJJRsQYFgoq/zi
R+xzawHrfjUCJBqqeHeFkVFUUtjy8m4CyGw3bGkPIqPxsi3fh3kIkPnDSerX
U2y8l34aPwcBSi/Edjbdw8anlt+5uoaHMzu+KzR4khFXal7TAwYeWn7WB9be
xPI7te4zvoCHAePfRysdydjzc8dANBEPDnz84WW2mJUT9g6P4mG6TZ5YbEHG
zggr8hrEg2fU6ZMEU6x+Ey2vTHvxsHrJ+k2BERnxRwib+XfiIWDn3blcAzKK
2DU7z/yFB87OcJ1sHTIaVmBVJfzAQ2TMl4RMbTIqfHmAvaYJD0KXKxgZGmTU
PyVySrgBD8m7e8+nqZIR22pKYXEtHmS7F1NTlbDxnk8MU6vxkBXLuZGigNWf
y2egD+FB1VzSLFkW289dA60rlXgoF9TISpAko40blSbiFXjQ6TVhe7+PjJhJ
7+lK5dj+37nbvhMiI92mpD8vy/BgavG88M1OMkpMijRQwjy4J5EnmgfLr0sJ
L4rZsb/QOZKTjMwk9cQuY56O/1kevhVbXyPGthOzpxVFIOwvCc13DRp/wOZf
3bt5K2SVhCzTJtu+YesHDO6pf84gIUVXjzJWLF+uBGWxZ4skxNOsvfClCg+v
bc7d858hoaYgkdORNVg9RJ1+PiKREP/FuhhUh9Vj+KHsgzESih/ZrDjRiAe5
pDdPfAdJSIYSlbzWjIdsu6yeuz0k5CB+kn/rTzyoi9cf9monIa5TNYsm7Xio
GB0Jvv2DhIaZM4IzXXhovcqn7laNmVfh+/wQHswk5SNdy0nIZ6i523IcD0Pj
OMq1IhISFtlbuJ2Mh1lH73f237H567q59Kh48JYKX7TJICG/hCa1H0w8rE2m
6lulktDjsodhcevY/px7Vi6/JyHl7/ICWzkJECWzaGwSS0IGs5lbU3YQYA+Z
I934NQmdOLsR8lyAAHKuJyzOBZOQ8/HdVSLSBMiWM8nRDyAhAXVHxV8KBFCf
cuPUfYStdyg8qeEoAfRuJBRpe5GQasezv8E6BGiVL+Q7dYuE2BZ6Ui9cIIDZ
TOt1jeskdKtXoNLCnADO7v/2qNqRUPu0Y4XmDQIE3nL0O3iOhGznU5aUogkw
GmmfWKpDQq1t2UVsSQTQzLOpOq9NQvJ8z1PlvxKAvmzOdfsYCSVG5Srb1RDA
8alhfL4YZrknu31WCVD+6Wy5jjA2v9c+RjlHEQjX6Y537yKhwhVi8GXsftPO
BfK/OUkoKFGWx+1YEeBijhWfpBPRrfGmV8p3iyCxUHm4dZ6IAp4JrU08L4LV
3sMs9lNExKNJ/28stghy98kbBAwT0ePx4O2oCLvf/SfaX9dARKSXj1a5thTD
vyL2VaMEIpKPi5hP+VQM1oNbRcfeEpFP9tsmlqJiIGxsYmeWiKrimVu/tRbD
7dPrL2KCiehCD3mgb7UYRloW9/TdISJLX8bWRLMSKB/pO+6gS0RR79O7k/aW
wiPWb/e9FyZRvGfPDt3+Mrj93p7DYXoSCTiN+Hgzy8BJafdbI+IkqhozaRzi
LwdDm8f58gOTyNlGJt7esByEC4wXRuuw8eazrZJV5VDoxHA6n4j5WmeyL6EC
FqtPGcucn0SPzbtqHH4imLSgDe/Un0QRaj9qUpcQ9Cz8d3MTN4kSIf0JLzf2
PN7LFzaoPoli3v5E/YerINxrojZKahJ5M67Z5vhWgfz+EI2/axNIxj81yGxH
NTgGtMn0Zkygfxy/WP4Y1cCVgY/aI6kT6GH6uJa3Uw0YHvW0JCVPIGsllbNb
7teAKok/gh47gTJCi+67ptQAl4Epg/fZBNrq/tLhPLMGsvl6qs9aTaANhY7O
Oym18Cd50L5k2wSqRDL66dvq4W0FOT7RfRz5sS43L+1rAnu/D/7HXcZR6Je/
z1lPNIH8sYvOnVfHkcyd/dyHzZqgNKNYict8HDm3npasi2iC0TfhDXdhHDXh
49c3/zXBAXcVpqHAOPIpP570YaoZvA+vJ9MfjaEs63/6FU0/oHRMnidLahRZ
kn/E1Ne3gTQ/7oxZ8hDyk9wv5MLognyFUPdJYj+KX9S+KV/cD2P1eZLq6r3I
1l6OHBQ/AmTFt0cRoQvpeq6LRApOwE7/r+pHtnSgG/GnNodDiKCoTlX8j9GK
vJr3xkRXkuG57kJ7iV8j8qz7Sn7FMw2CZtlRVntqUIHhxz6/I7OQv1LP1yRT
iiTzZwr+cMzDf0PkVzNB2UibPzgmom8B7ExEC4euxaJ4IQ8DL3MqzDOWNe7V
vUESbteWR6yp8PhdG+KVfYOmGf/UzjpQIXEo8MdpSjTyYozf5LtJhcIfnfUX
OyJRnNMdf98AKuQwb0lPDwYheZ2ssaRvVAjolu/eV6uFJkQtP+hvUKGE+1FP
zb034BBi7OaJ/d5LOSzYlSMVCw8Jh8SmLixByKWc9sS2WPBUFWy2ubgEZu+I
P3wPvoNaa28eMFuCpf0XahRG4uGfkIjVgt0SyGmI5cToJoPcE72mGc8laC64
qpsX9gWePNKiXn+7BGqTW8SfWebALhHtmYz+JThSakFT/poDWVUJfoGD2PiY
73XjaznAlLvjbT28BNs/ZamlGOXCRrJGBvv4EmxcshzeXMyFgWPZSuemlmAk
N+cgUskH64wkg+DlJfjoaV+nVVQI7X5dvr38NEi03Zb9dqwQ7N8LZvrvokG8
QWHcAif2HBoevyorQIMoSe6bSZZ4KNboMbq9hwYB7fidf7HvBa64EONFMRo4
Ku+4Wn6qCFY0op+kK9BAeqlsTbOmBAw/hLqy6tDg8U+dIOZCCUT87YxL1KVB
77cfvNnYfUFR7Lukqj4NXroMSe/3KoXGuTen7M/RYGlw3YhTsgwUtGvxyRdp
UFmv8bnrSTkk3XP27rChgXVCkeEtDQSSEq812e7SoNAPemRdEMjXe+5096EB
75XGq2NRCCLXNmx+3aNBNX+fj+k0gvzr8Rdj/GggoPPoYuL5KpDq8G7m9KfB
o+IPDwLXqyD+nVfr11AanEsd+GlsWQN1Qz5q7YlYPsHZrvUeNfDN6tdrlmSs
Pjeeb558XgPyWSdfKH2kwfThwyoHs2sgqfXLpbBPNAgtDohlZasF17llZ8U0
GjT9PGBTnFMLDIkyI5UcGpxdvTe9n7MeFB130E5W0WBx0PBZvGg9hJgLvDxd
TYN3FRIifEfrQZSncVCvhgaUwObzG7b1UFgRmGZYR4OQHWI5vfn1ECQV/0+3
iQYNUnX3wu0bQNrb6ebfNhroGe1iXcY3QoRsHtfzURpEOm6jrTU3gly6h6Hp
GA3677GM/RtphNtPk4Ilx2ngnrxYysXRBApl2+ZKJrB4aou36JUm2L1zJWic
hMVHP5/UWWmCnrpDEX9nsfheZnWMegtkVdxPebRCg4LZuZw4wxaYDhG+eug3
DTb+TSYl2rdA0ViV4iDmyAMdD9JCWkCucfC36hoW7/ddpbS3BXZJCDqM/cHi
RVw/Tfj+gCvP8vi4ttDh9dW+AOWiVhB8tpz6nZsOIfOngNLaCnK7Xy9d2E4H
/wef/yZMtoJupPrJOcy333g85OT9CUJzEr9kdtDBuJHVZ9T5J7BQPbdG8NGB
V0n5esSuX3D5Y57LIQE6RP4LNZr2aIPrSQP7CkWx+cMXtyc/bwNxq9puVTFs
fmGzlsvv20DLCpdeiPn2UYmzqK4NRDqdE/PE6XCgwFryx4520L1yayxFkg6c
U0t7Pzu3Q82BfWHmMnRoNBbbcWlXB/TOSnuKHaKDwJEJIW/RDrDgiTN8jNlh
x3+SsXIdIC5/xGcQ8/oPRdV+zQ4YzIotilWkg+K5UzYO1zrA9+nAri1H6BCl
Y/PVs7AD+udXikqU6TAsJVEQU9kBp6oT+3eo0OHgVmJ5YVMHGG+Lv+yIuabK
vX11uAPaTW1sOI7SYVnr4e8A9k5ouJpZb3CMDtYn3utFX+kEHna5zzlqdEjb
Y3exwKETSqWEytcwM1YkrXrcO+Hx4VcnddTpEIHPuLX3aSdE3Rj26MaMjha/
+ZTeCb7b3hVQj9NB5nDfRN5qJ/x6r+DArUmHhf2C/p0fusBvp790jxYdTjz6
5FX9pQvSlx8r8WjTIbD7sEtudhccFgorP4NZ6IX+hciaLng1d9M2G7P2/H0R
w9kuqNnaXv8UsH4gDBKqNbpBqzy/c/tpOgzyXf+Wq9MNQtEJ2icxy7gxkj4a
dUOAhJi6O+bifTzBTxy7wdrgVUsD5vEArcsaYd1gQH6b8PAMHVTOp1Bz+7tB
V3bG66cOHR5/USR+nOwG38q7lGXMDX+LeyPnMUdK0cR0sXrldlTcYukBhfzX
P25hDhRkjZCX74HX0qLp7Hp06BpzkU+53wPWdJm3Mvp0uOdzyPG1UC/E1+nc
kjLA9sdNLb+yvxfSzKTCzmAu/pgvLK7YC4/9R5ydMG+0aLRnne6Fnoa0a58w
B+43gJZbvXBFK69Z9BzWr7+cxdhre6HdmiN6uyF2veSTBx7e6QP7/YS+ofN0
MKh0VDvzsA/ymA2sa5hnLstGbwvuA93EJF2hC1g/Pc0yiP/QB96vrfhMMOf3
lBbh6/tAbu8JgSbMlYF9b5f29QP/5SXVSiM69A3zm7o29UOBgmnSyEU6GIa7
9Pt09kOwxH1hlkt0KNcotX8+jMU3mi5JYU55d+1mylI/qPJPVbphvnGJEDQo
PABtRdECG5jXa22KjN0G4H69w0s1Uzrc8s7Vsrs7AIr2Cb32mEcl2etuPhkA
MRXPz6GYa55kt4dGD0DU9U/VI5jDj2+ZrSkZgEkdZZvIy3QQzUwTPc49CIbS
XkRuc6w+Vn8+6wkMAkv/2hEtzCxclw6aiQ+CtzGLmCdmkvOamtfRQbjtBDN9
mL+LX7iYaT0I05djn+ZcwfothvZMInMQaPXcEQGWdMjF6XMdwQ9CLa8IeyVm
KeqHyFNoELpTXupsYOa4oJtg1TUIUYEGex9Z0aGNPa7wzZ9BSHHTcwm0xs73
g1NTnBeG4IgS/nqJLR0UnJt6Fq8MwZlRs2huO+x8GZvV9TgOAUe/ZKst5hCZ
W59S7w8B31nrADZ7OmS1JdhA6hDcvLxPxfEqHdZk/7T5rg+B4gFhKVMnrD78
Lyrt2IeBt6Q3E4854s+u77r8w/CQVfWuyDU6SHYovNwlNwz2dlP1U5j1H1vr
ZpsMw2eXtaZoFzrEdJYUkzOG4W8zT6GsGx1sK/TSWwuGQU90p0syZtmMjrcF
lcNAjZULEHbH+vXJjPez7mEYi/20yX8Tu17yew+LsYzALb4Ur90e2P6e+n0y
sxgBcRpLlIMXHZhubFEnnUbAecJLiYa5wizKX8pjBCguri7PvelwSSHDZilw
BOuflY9Zd+ng29MnGJE9AvoKT5J2+dKh9tDxl7Xso8Dv6ySv9IgO9kpmqTS+
UdBvLBFqw7x61KtcQmQU+o6JRXo+xvpbM3Px0ZFR8HUX2F/8hA6xBhKXVS1G
4VmS8B7rADq4unCK/pcxCoT3ItpzwVh/uMmodeWPwuJKYuuXEDp8uHXaeEvF
KMgk2XA5vKDDr7uPAuw6RmGl7X3UUCgdjgdSSYLro8AlcVt6KpwOXB/7voec
H4NfE8JGpjF0+PyZ2VBoPgaqss2VB97Q4VTazvHJq2Nwaoy8ZROz5/fzu8Bn
DOJrPNkL3tJhoAz5/k4cA8d3kqdV3tPhW3863FgcA2Hay+DQFDrIbSuf/mIw
DpbuyXvyc+lAbzzi/tloHBZjfb9V5WHnNeTT3EfTcXAaUTrTkU+HK2wvFj/Y
jsNt/dbQ1UI6BG+aMKM8x2F00Sr7agnW/8tTm4/jx+H8WdUTMTVYvpO795hP
j0PpizNH43qx59unkHjThXGgFF8LnO2jg6bD2t5L9HE4s/F+H26ADp0jo6Ln
N8aB+0SrCn2IDlsGvkqd5p+ArDWmvPcE1u9tcOTwiQlwu1wrQZyng1j5TT32
0AmQ6MwViWdngMDe9fXbryYg3/yEoC0nA3h8Q3P7YyaA2/I9v/Q2Bmwo/bcv
K2kCQlSbBUp5GDCYOkozLZgAwZ/bPvIIMOBduElyyugETD61FtWXZgCvzfHf
J9UmoZTjQ52YLgM4iuuz/tOcBOeCBxJn9RnwV8DMiQ83CSWlWp13DRgw/8vz
56ThJJBUzQz7LjCg5cy31DCHSfhsQWpvMGfACwWxS33hkyBqPRJveIMBLOtb
v3pPToKvR4z46msGOBAHGE+nsHjpDxouMQyoas3VfjU/Cb2Hu8N6YhkQ8NG+
O31lEkbTijrRewZs6pZuDnMTYQ/nAd2yVAb8e+115ewxIsTb/Yu9WIztV3ac
VTSICAeN9d3+Ehlgy1dkfDCMCE/kbt7toTCgfPXVe/VIIvDEBa/lzjDg8Y+T
SibxRHD9ejfQm8qAP55x1iFZRMi5LVEv8YcB62XGeUvdRNhqxfNXZjcTfptU
2NfLkmAjjp43o8eEwIGcEe1DJPCxdTJ4fI4JvI6fbYuVSaDuH3dutxET5Dxf
WGeeJAGP/5s4YzMmmEWaXIk2IcHdxaTcdScm5LaQjeyekMD1laXRoWdMcNPh
1VruJkFDki5pSzUTmC0s5bcHSRBVdOjsgXomBJgyNKfHSBBiSr5t0syEeMf+
E0Oz2Pq5O4ULO5jQ8PSzajULGUrDRSQLJpkgVa6u+EqRDCplBk8+sC/DkOrV
fbJBZKiFqHGpi8vguqbGFxxGhgM67Jbtl5dhqYKHlRxJBlH3iPZAy2VgO1s6
++U9Gc6rtfWuOC7DESvBUpkcMsyd2UvYd28ZAp78sJQZJMP4+cs5tonLINdw
/J20MgVYEza5hhaXIfcl78vnahQQ39lipcJcBs2L5CdETQo8gLiTr9aW4WJ/
jEuqHgVC+47XmbOtgN/sgqq0DQX23A+6riCyAj94v3RJhVCgIWiMTNZfAU8L
/p1SwxSoddDSrv+yAk4ZSh9kJyiwyz2X6PFtBczXjKUPUijw6Y/M6L7cFdBM
eKWmvESBiuTv4y/KVoB9jNtam20Kpo4/CEzpXIEPruyp1opTUGA07N635TfU
3VtXffN4CqCOYnfP+TfsjSVZsolNw+6GfD3tk6tw4rmEkI/UNDDNtobQz6zC
FW/rLuKBaTAh6YlnG65CzKV2o9qj09Dhc9btpPUq8OwoPxNoMA1qd8Lmsh+s
wr/gN4osPtPQZ5NX8LdkFUj3z7BstEzD0fSeKWvcGmTbpKQz/GZAOSE2TNhl
HVT7pNc5/GfgCDPttdTtdSgzTb8g8nwGdlp+3zx2fx2azmXTcK9m4HJHuaJH
2DoQj5efjPw0A6FPmTIa2esgLNDfJt8yA8V+6qOaa+sQ2Mq3ardvFjsfgb83
Y/+AhdZTg6aKWVhnk51wJm3A8DKFr6ZmFkxvfi1Tom6AU7ZxX1njLPTgZT5u
Xd+AWxLirjkds1CB039dxfcXArdUPH9HngVd5f1+SSf/Qnb9eqXzjjmICHkX
Phr7F9iMfdW22M1B/Zunhe+M/kGevYeU5sYcTBhfpKT1b4ITfkksZcs8XIy2
1P9K2QQBHp+9HJyYVwflCcxN8C15yN+5cx5ieWpr73Ox4DQFQv+5HZgHj+XQ
t0syLLia5s+D703ngW1tiXXSngXXrdofs5YxD6oWpZtdvSy4VW4d1hLzBWif
9eXz6duCM+04qS4WvwiJGrsjHi6z4rhPbq8uT1oE0TtxB/I3WXHVXwbP26Yu
whFiRcbSNjacst8Dx4TsRbgyqO0aKM6G45UoithbvwgB548IrZ1lwzXfOkoU
pC9C5p3vL9US2XA4roNRvBeoIH7X/+fGOXbcqteqSLYJFUzbKkWEzNlxOUON
/xlZUEGBjSdF3YEdJ57jWhbhRIVd50XsXvmy4zbMv1C4H1AhNFZ6JjqVHVeU
KqHFmUYFvwtdYWv/2HG3d1Ab0zKp0M5cinjBzYGTu19pqp9HhYGaSzRRIQ5c
rKHdjeByKhyXlpm2O8yB86Z9eMPaRQWWU8d7T9hy4BRs3MVT+6nw2fL5oa03
OHATdRpfz4xSwed01krnXQ7cpfj+ymczVFhumVh9Gc6B49qacW4/lQr6goJq
3nEcOHTzfncVkwrcT71pDqkcON8e/asO61QQsHulbJHDgfv//weAOtsa06yM
A/c/YvjULw==
       "]]},
     Annotation[#, "Charting`Private`Tag$647732#2"]& ]}, {}},
  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->{{-1, 1}, {0., 2.841470636224155}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.765856024068191*^9, 3.765856123348072*^9, 3.7658562568550253`*^9, 
   3.765856299580072*^9, {3.765856338608142*^9, 3.765856353003614*^9}, 
   3.765856429856104*^9, 3.7658565441919394`*^9, 3.765856718399338*^9, 
   3.796975873981632*^9, 3.796975980090631*^9, 3.796977117639312*^9, 
   3.7969771617800837`*^9},
 CellLabel->
  "Out[789]=",ExpressionUUID->"7ceb61d7-77ee-412f-ada6-2186210f272f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"if", "/@", "x"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"fun", "/@", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"\[Xi]", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"if", "[", "\[Xi]", "]"}], ",", "\[Xi]"}], "]"}], "]"}]}], 
   "]"}], "/@", "x"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Dfun", "/@", "x"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.765855851948838*^9, 3.765855928914444*^9}, {
  3.76585646957647*^9, 3.765856493532543*^9}},
 CellLabel->
  "In[790]:=",ExpressionUUID->"34e780c9-ca23-4c84-acac-eeacebc25ef4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", "-", 
    RowBox[{"Sin", "[", "1", "]"}]}], ",", 
   RowBox[{
    FractionBox["19", "27"], "-", 
    RowBox[{"Sin", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["22", "27"], "-", 
    RowBox[{"Sin", "[", 
     FractionBox["1", "3"], "]"}]}], ",", "1", ",", 
   RowBox[{
    FractionBox["22", "27"], "+", 
    RowBox[{"Sin", "[", 
     FractionBox["1", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["19", "27"], "+", 
    RowBox[{"Sin", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{"2", "+", 
    RowBox[{"Sin", "[", "1", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856718418501*^9, 3.796976037791469*^9, 3.796977117651252*^9, 
   3.796977161790784*^9},
 CellLabel->
  "Out[790]=",ExpressionUUID->"9234145c-0309-428f-b18a-540291c54aae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.1585290151921035`", ",", "0.08533390063396673`", ",", 
   "0.48762011801866256`", ",", "1.`", ",", "1.142009511610967`", ",", 
   "1.3220735067734406`", ",", "2.8414709848078967`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856718418501*^9, 3.796976037791469*^9, 3.796977117651252*^9, 
   3.796977161792975*^9},
 CellLabel->
  "Out[791]=",ExpressionUUID->"78bedcd1-3aea-48c1-a4a8-9f6de1a4ecf0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "8"}], "+", 
    RowBox[{"Cos", "[", "1", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["8", "9"]}], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["8", "9"], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["1", "3"], "]"}]}], ",", "1", ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["8", "9"]}], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["1", "3"], "]"}]}], ",", 
   RowBox[{
    FractionBox["8", "9"], "+", 
    RowBox[{"Cos", "[", 
     FractionBox["2", "3"], "]"}]}], ",", 
   RowBox[{"8", "+", 
    RowBox[{"Cos", "[", "1", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856718418501*^9, 3.796976037791469*^9, 3.796977117651252*^9, 
   3.796977161794991*^9},
 CellLabel->
  "Out[792]=",ExpressionUUID->"611710b5-282c-435d-ad9d-72dfe9a866ba"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "7.45969769413186`"}], ",", 
   RowBox[{"-", "0.1030016281119408`"}], ",", "1.8338458352036264`", ",", 
   "1.`", ",", "0.05606805742584886`", ",", "1.6747761496658369`", ",", 
   "8.54030230586814`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856718418501*^9, 3.796976037791469*^9, 3.796977117651252*^9, 
   3.796977161797081*^9},
 CellLabel->
  "Out[793]=",ExpressionUUID->"2b86f8e7-f1d4-4a7d-8bd0-ee6cbf14ae13"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Function", "[", 
    RowBox[{"\[Xi]", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"if", "[", "\[Xi]", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Xi]", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}], "/@", 
   "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"DDfun", "/@", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.765856132451748*^9, 3.7658561595024767`*^9}, 
   3.765856216203452*^9, {3.765856519195478*^9, 3.765856522682734*^9}, {
   3.79697609345607*^9, 3.796976095726809*^9}},
 CellLabel->
  "In[794]:=",ExpressionUUID->"bbaddba2-2c3d-4b91-be02-dab58269c3f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"32.18184591211458`", ",", "11.958330484004929`", ",", 
   RowBox[{"-", "0.33531548500170416`"}], ",", 
   RowBox[{"-", "4.665438615770463`"}], ",", 
   RowBox[{"-", "0.995696937882034`"}], ",", "10.710266401771555`", ",", 
   "30.484820754552103`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765856218623899*^9, 3.765856256974984*^9, 3.765856447357559*^9, {
   3.76585652382286*^9, 3.765856544307849*^9}, 3.7658567184998093`*^9, {
   3.7969760730971107`*^9, 3.796976096575252*^9}, 3.7969771177327347`*^9, 
   3.7969771618589478`*^9},
 CellLabel->
  "Out[794]=",ExpressionUUID->"926457d5-8549-4462-9e2b-0ad1b0615e34"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "32.8414709848079`", ",", "12.618369803069736`", ",", "0.3271946967961522`",
    ",", 
   RowBox[{"-", "4.`"}], ",", 
   RowBox[{"-", "0.3271946967961522`"}], ",", "11.381630196930264`", ",", 
   "31.158529015192105`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765856218623899*^9, 3.765856256974984*^9, 3.765856447357559*^9, {
   3.76585652382286*^9, 3.765856544307849*^9}, 3.7658567184998093`*^9, {
   3.7969760730971107`*^9, 3.796976096575252*^9}, 3.7969771177327347`*^9, 
   3.796977161861239*^9},
 CellLabel->
  "Out[795]=",ExpressionUUID->"8eef8fc9-4dfe-417f-9ced-3ac4c8d87e2a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"dc7338e9-fedb-4a77-9e7a-d212d9467a84"],

Cell[CellGroupData[{

Cell["Splines (Natural spline, textbook version)", "Section",
 CellChangeTimes->{{3.7970605570193033`*^9, 
  3.7970605704953337`*^9}},ExpressionUUID->"ff9f4921-f5fb-4737-b530-\
b9333db31827"],

Cell["Let us implement the natural spline in its pure format.", "Text",
 CellChangeTimes->{{3.7970606323919573`*^9, 
  3.7970606428192472`*^9}},ExpressionUUID->"2d71ce3f-8a84-4eab-8bb9-\
0905f0e37afa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SplineInterval", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x0_", "?", "NumericQ"}], ",", 
       RowBox[{"f0_", "?", "NumericQ"}], ",", 
       RowBox[{"z0_", "?", "NumericQ"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x1_", "?", "NumericQ"}], ",", 
       RowBox[{"f1_", "?", "NumericQ"}], ",", 
       RowBox[{"z1_", "?", "NumericQ"}]}], "}"}]}], "\[IndentingNewLine]", 
    "}"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "h", ",", "c", ",", "d"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"h", "=", 
      RowBox[{"x1", "-", "x0"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "h"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"f1", "-", "f0", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"h", "^", "2"}], "/", "6"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"z0", "-", "z1"}], ")"}]}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"f0", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "^", "2"}], "/", "6"}], ")"}], "z0"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Expand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "6"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "/", "h"}], ")"}], "z0", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x1", "-", "x"}], ")"}], "^", "3"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "6"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "/", "h"}], ")"}], "z1", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x", "-", "x0"}], ")"}], "^", "3"}]}], "+", 
         RowBox[{"c", 
          RowBox[{"(", 
           RowBox[{"x", "-", "x0"}], ")"}]}], "+", "d"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"x0", "\[LessEqual]", "x", "\[LessEqual]", "x1"}]}], 
      "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.796978555353187*^9, 3.796978607058051*^9}, {
   3.796978656401246*^9, 3.796978734429337*^9}, {3.7969789235288677`*^9, 
   3.796979131589995*^9}, {3.796979276056952*^9, 3.796979293608803*^9}, {
   3.796979404953615*^9, 3.796979413118709*^9}, {3.796980301864915*^9, 
   3.796980303203045*^9}, {3.796980357869608*^9, 3.796980389856132*^9}, {
   3.796981105624576*^9, 3.796981273599671*^9}, {3.796981469285947*^9, 
   3.796981477712949*^9}, 3.796982307722537*^9, {3.796982415030768*^9, 
   3.796982421306974*^9}, {3.796982513343392*^9, 3.7969825148408747`*^9}, 
   3.7969831692216473`*^9},
 CellLabel->
  "In[930]:=",ExpressionUUID->"1aac58d2-a0e8-4b9b-be9c-1a57349b3c9f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SplineInterpolation", "[", 
   RowBox[{"data", ":", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"_", "?", "NumericQ"}], ",", 
        RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z", ",", "h", ",", "f", ",", "A", ",", "b", ",", "dim"}], "}"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dim", "=", 
      RowBox[{"Length", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"f", "=", 
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"z", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"h", "=", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"A", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dim", "-", "2"}], "\[Equal]", "1"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SparseArray", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Band", "[", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "]"}], "\[Rule]", 
            RowBox[{"2", " ", 
             RowBox[{"h", "/", "3"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"dim", "-", "2"}], ",", 
            RowBox[{"dim", "-", "2"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"SparseArray", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Band", "[", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1"}], "}"}], "]"}], "\[Rule]", 
             RowBox[{"2", " ", 
              RowBox[{"h", "/", "3"}]}]}], ",", 
            RowBox[{
             RowBox[{"Band", "[", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}], "]"}], "\[Rule]", 
             RowBox[{"h", "/", "6"}]}], ",", 
            RowBox[{
             RowBox[{"Band", "[", 
              RowBox[{"{", 
               RowBox[{"2", ",", "1"}], "}"}], "]"}], "\[Rule]", 
             RowBox[{"h", "/", "6"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"dim", "-", "2"}], ",", 
            RowBox[{"dim", "-", "2"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"b", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "h"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", 
            RowBox[{"-", "3"}]}], "]"}], "]"}], "-", 
         RowBox[{"2", 
          RowBox[{"f", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", 
             RowBox[{"-", "2"}]}], "]"}], "]"}]}], "+", 
         RowBox[{"f", "[", 
          RowBox[{"[", 
           RowBox[{"3", ";;", 
            RowBox[{"-", "1"}]}], "]"}], "]"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"z", "[", 
       RowBox[{"[", 
        RowBox[{"2", ";;", 
         RowBox[{"-", "2"}]}], "]"}], "]"}], "=", 
      RowBox[{"LinearSolve", "[", 
       RowBox[{"A", ",", 
        RowBox[{"N", "@", "b"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"SplineInterval", "/@", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"MapThread", "[", 
          RowBox[{"Append", ",", 
           RowBox[{"{", 
            RowBox[{"data", ",", "z"}], "}"}]}], "]"}], ",", "2", ",", "1"}], 
        "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.796978243284889*^9, 3.7969783027692947`*^9}, {
   3.7969783609134903`*^9, 3.796978376217997*^9}, {3.796978529636362*^9, 
   3.796978531839365*^9}, {3.7969785883268147`*^9, 3.7969785910438023`*^9}, {
   3.79697926120852*^9, 3.796979267090517*^9}, {3.796980224562882*^9, 
   3.796980225848819*^9}, 3.796980269927245*^9, {3.7969803967908382`*^9, 
   3.7969804856169786`*^9}, {3.796980671186215*^9, 3.796980683187455*^9}, {
   3.796980714261653*^9, 3.796980740542706*^9}, {3.796980774660796*^9, 
   3.796980923239443*^9}, {3.7969810081003*^9, 3.7969810871383142`*^9}, {
   3.796981337781857*^9, 3.796981356739438*^9}, {3.796981402369409*^9, 
   3.796981425533895*^9}, {3.796981973546863*^9, 3.796981975089636*^9}, {
   3.796982053525948*^9, 3.796982056079808*^9}, {3.796982098639638*^9, 
   3.796982130057447*^9}, {3.796982202050325*^9, 3.796982260590785*^9}, 
   3.796982436991811*^9, {3.796982859006795*^9, 3.796982859686738*^9}},
 CellLabel->
  "In[931]:=",ExpressionUUID->"989982ef-9060-4d89-b490-bbc5c6844b08"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"1545bfad-b7a4-4493-8358-7090ad30df09"],

Cell[CellGroupData[{

Cell["Slide", "Section",ExpressionUUID->"6c073a3d-f327-484e-8ec5-8da6c337ec7d"],

Cell[CellGroupData[{

Cell["Case 1", "Subsection",
 CellChangeTimes->{{3.796980138863452*^9, 
  3.796980142694631*^9}},ExpressionUUID->"2de56354-3c66-4726-b358-\
ea1611a0c22b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     FormBox[
      RowBox[{
       RowBox[{"3", 
        SuperscriptBox["x", "4"]}], "-", 
       RowBox[{"2", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"Sin", "[", "x", "]"}], "+", "1"}],
      TraditionalForm]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DDfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7658557248153553`*^9, 3.76585576852527*^9}, {
  3.765856099747439*^9, 3.7658561087971697`*^9}, {3.7658562304187613`*^9, 
  3.76585623308319*^9}, {3.765856294001314*^9, 3.7658563460351543`*^9}, {
  3.7658564173660383`*^9, 3.765856423194186*^9}},
 CellLabel->
  "In[932]:=",ExpressionUUID->"0ee53a8d-8f1a-4593-8562-154abbfa2ce2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9, 
   3.796981371936005*^9},
 CellLabel->
  "In[935]:=",ExpressionUUID->"b32006c2-c775-49a8-b8e5-660d0d834676"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["1", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796981298641707*^9, 
   3.79698137602921*^9, {3.796981407202228*^9, 3.796981430521771*^9}, 
   3.796981481178639*^9, 3.7969822685622683`*^9, 3.7969823177350197`*^9, 
   3.796982428069334*^9, 3.79698257921832*^9, 3.796983176885099*^9, 
   3.797044791860305*^9},
 CellLabel->
  "Out[935]=",ExpressionUUID->"d516a83c-dd30-4961-84e2-cf8f7de260ff"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
   3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
   3.79697916819952*^9}, 3.796981291177784*^9},
 CellLabel->
  "In[936]:=",ExpressionUUID->"3002b23c-6aa9-4eea-bdb4-51ac5fa0d3c2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spi", "=", 
  RowBox[{"SplineInterpolation", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}, {
   3.796981282509704*^9, 3.796981283722777*^9}, 3.7969814385012817`*^9, {
   3.796981904124997*^9, 3.796981926358214*^9}},
 CellLabel->
  "In[937]:=",ExpressionUUID->"0ef20172-986b-460c-9689-4f4f28bff9f9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"2.`", "\[VeryThinSpace]", "-", 
         RowBox[{"1.`", " ", "x"}], "-", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "0"}]},
       {
        RowBox[{"2.`", "\[VeryThinSpace]", "-", 
         RowBox[{"1.`", " ", "x"}], "-", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.7969812987332907`*^9, {3.796981360136359*^9, 3.796981376218977*^9}, {
   3.7969814073668137`*^9, 3.796981439045644*^9}, 3.7969814813608217`*^9, 
   3.796981931980617*^9, 3.796981979899871*^9, 3.79698206505897*^9, 
   3.7969821675589046`*^9, 3.7969822686952667`*^9, 3.7969823178615513`*^9, {
   3.796982428208186*^9, 3.796982441227435*^9}, 3.796982520465103*^9, 
   3.796983176957559*^9, 3.797044791911152*^9},
 CellLabel->
  "Out[937]=",ExpressionUUID->"9d695386-db37-4c2c-8702-c3c9a0ffb2aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spi", "=", 
  RowBox[{"SplineInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}, {
   3.796981282509704*^9, 3.796981283722777*^9}, 3.7969814385012817`*^9, {
   3.796981904124997*^9, 3.796981926358214*^9}, {3.796982469275182*^9, 
   3.7969824697192373`*^9}},
 CellLabel->
  "In[938]:=",ExpressionUUID->"54e6ce89-87a1-452f-b231-472172442db9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"0.6841808048642364`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.4409062772283932`", " ", "x"}], "+", 
         RowBox[{"2.8728817313343904`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"0.9576272437781301`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["1", "3"]}]}]},
       {
        RowBox[{"0.6370370370370371`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.0166123667835967`", " ", "x"}], "+", 
         RowBox[{"1.6`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"0.3152544875562602`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["1", "3"]}]},
       {
        RowBox[{"0.6491525284690968`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.9075729438950599`", " ", "x"}], "+", 
         RowBox[{"1.9271182686656099`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"0.64237275622187`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         FractionBox["1", "3"], "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{3.796982471135203*^9, 3.796982583301578*^9, 
  3.796983176967497*^9, 3.7970447919276114`*^9},
 CellLabel->
  "Out[938]=",ExpressionUUID->"f7278776-8833-49b6-9470-169c1ac7841a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spi", "/.", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", "3"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7969826037548437`*^9, 3.7969826271359787`*^9}},
 CellLabel->
  "In[939]:=",ExpressionUUID->"49f4f0f2-af23-468f-8e23-6b5c3ce9fd51"],

Cell[BoxData["0.4876201180186624`"], "Output",
 CellChangeTimes->{{3.796982614704878*^9, 3.796982628028583*^9}, 
   3.796983177033902*^9, 3.797044791968622*^9},
 CellLabel->
  "Out[939]=",ExpressionUUID->"e569513f-b449-46d3-b616-382465b34a03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "spi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
   3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
   3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}, 
   3.796981287947102*^9},
 CellLabel->
  "In[940]:=",ExpressionUUID->"330217c9-bdb6-455f-b8b7-1ab5b552f68f"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mXk81F/0/7VYkn0pRdlK6qMsIVTOlJSUNVtItrRQoUiRPSmSaCGSkihr
ZazDtZN937cZs1nHjCVb+b5/v8f3O//M4/m495zzOueee+/7/XhLO941vbaZ
jY1taRMb2//7PwI7Jjc2GGiBiVzMn7Hg7ops+MoqA1X+fTD8wZsFub+U5eYX
Gah2U9aZeScWqMgbOFKnGIhnOK6jWpsFxwRDB5p6GaiIf+rO5kUm4MaZDfE5
DHTNwQqNOzHB9GlzxtGrDOQpmBYjeWEOHrSG3r5eNosWthnXbns8DZFT3r0L
hbNIv/TOi8M20/CZ8+ap4F+zyLnp+oHbmtPQBAaiH9Jn0fuuyTRYmgKZXNHS
jphZ5BKVmabkMQUt0V95tK/PIqGS/TyabpMgZ1qfISIwizI44/e886ZDV9f2
yQqHGaTVyGGkMECGIGd8WYbtDKLn/feTUE6GIwt2sW8sZ1Cf+JUNxzQyhAv/
PHHTYAbx70tRY94nw0lTq5cCmjNIgXpSRliQDF9bv6heFZhBS+7BodcMxsGn
4WTAetk0ktmhz7athwj7rWmXqEXTyFrOWf4sIkLHRLR8W940MivU/i8unQgK
28jtKd+nkalt1sdHvkQgnnu+78LbaXRuZdtlDRki6Nf0/I6/PY3cHUzQy3tj
sKf8rsgxiWkUqszpQtcfgSYhtftaO7HxnrkmHdkReHRttfOk0DSq5Y68WLM2
DD3cT2LPcE0jKcutVlpZwxBt/l7IdGEKNYW1MiYFh2HLVLXA7aYpNC14/LsV
aRAmRHfzpvhNodocmtBaUj/E3Rh1+/pgCvFcyGtb8+2HsyVfmr55TiGXC4RS
qcv98NleMTL3xhTyG9sy0SPcD7YZZ7aXmU2hYHzWMOt5H7Ti7m7rV5hC4e3S
QkMBvYB3rWbnH55E1Q23GrhDu0FD6o7y195JJOVXoDXi2A3FXTuvnOyYRE3e
etwDp7qh/KRrnmvdJErXKPPVZ+uGBn4hp/ofk6iP/1EcT0AXjP26Wh4Uho37
3T/PHtoJ3OurjxYUJ1H5Jq5W3Yx2eJH75WvEoUlUZvhmlO1lOwhcM+yQ2T+J
vKcLVome7SDa8umgye5J5FYvxbnjeDtIJev1ZW2dRHlXt3vrNLeB2pm3atf7
J5DCwsfz55itYB+pPNcfPIEEdAQT57ub4FFeTFjz4wmEw6VENX5rgjdD8xIV
PhMoLkK6g/i4CRoU8s+n35lAYxPHe+vlmuBos1aKt/UE5j/m+2PfRuDgO2Mh
rDKBlFzTeG8qNUDmSwvCRSIdpY+dyfKrq4PaggJT3BAd2YaqpVE/1wFxVGzi
aC8d5QokW0b418EOpUFR8WY6qr/CfytUvQ4C2q7enSikI4nKBk2Vb7VgKnhT
JiyajppqicVO8TWwHOMbjoCOki+377n8pQpoEhWTZ7XoyKfwpc6d0Cro+cph
0KJKR0MdtlrVzlXwq/iV4PBBOsp0GuNVkauCO6S096vCdKRBve0hmFkJ48pd
mWp0GnJXP+1aXlUBHSW7+EtJNFR98eS+jrQKKNe96nFmmIZOJFT7yURWQNLl
SbVLHTQUqCsf5G9eAVZBbMidQENdro3bpKbKoaVNoT0jmoaaRizqJ6XLgWDt
efRoBA1JjdHUe7aVQwa54E3xExq6ofVRfX0cQfjyaevfj2iokPnChz0MgY7U
5XGqMw2VV3JqF7SWQeHdJ4vSmjRkzxXBbvuwFNJWGiy/HaUhKy/FyE/GpfA2
RKBY6QgNzY3mFtvIl8K9dwn+IEtDfUU+bIf7CXAE/eC8wktDbcX1DcdxBEjh
G9kVR6QivS9srq2yJRBjA5yaQ1R046t00ODmEghOT17o76EiHD517RKpGBxP
O7WKN1FRcjZO+tnnYpDxpod+zKeiuY32838PFINQ1XlP3A8qqu/Df7jGXQyb
BTKuEjOoqFzuvJ3GTBGQvt3Wkv2E+e8uOCSRVwSfh1mMrxFUZHzTS6znbBHE
HDIbPhdGRYUWiivPFYog+AG+gR5IReEyT0zThYrAUdAn9ZA3FVnx8nmLjxWC
tO5f62x7KvLRZccPBRRCciZnLV6NitwlPlJedxRA9MqNXxZKVCRwBHcqr6wA
As82JP85hOmTV9fQyCgA+7FIX00pTH9Ww+bbTwpAUkRIuZQbizfrYhWiXQB8
Dvf22rFj/kp2D5UfLoB/WV3bNzYoyP3wnKDDngIYOfeOilukoPqZh8n1f/Mh
yVcisXqUggSinqccrsqHqPrHz64NYJx5XegRPh/8RUe9ObopKNmh0+BAej7Y
5Xwy0WugoNyPyRopUflguL4ZJqopiMvjwl2P4HzQPu+s8BxRUJvrzqCP3vmw
Z1yOsymPgubWzujuts8HHqXwBbccCgofdwpwMc+Hdb8JIu93LF783i+CF/Jh
aEcmwegjBcknB5WGHMuHRH1lz85nFESvJ6a0ieTDvu36DW2hFNTXxXs2mjcf
MhodZVoCKGj5bzExmSMfii++7qj3wux3WZ7JW8HDad6sQ7XuFHSjsPx7/jwe
GpprgqtcKci4Nfn8tlk89Bv+USlzoCBcpIp70jge7PkFIkpsKUipJP/d2Age
6K3y44WWFORzz+KY5wAe3KNPHc83xezv7JC81IOHZWPr2F8GFBRozyEZ0oGH
QMF7U7l6FGS/iuPc3IoHzo4InWwdTC9tKq21EQ9RMV8SMrQxPW3H2qfq8bDj
Uul8uiYF6VnaX7KoxUOScM+Fr6qYHvHMf3zVeNjfNZuSoojVO98tRbQSD5mv
OdeTD1HQGPoneKscD6rmUmZJ+ykouv73bh6EB4KoZmaCFBbfDhe1VooHnR6T
rfHiFBTHPXZCA+OGt7ds3+7A4pkq/6kg4MHUMiQvVhDLJ7/uRRzGAzsTeV7x
YPzrVHsJxg59ec5RnBRUWKEX8x9mT49rJkRsxuKbv/pEw9j9MlXk2V8yGhsd
aGWUYfXYteEWtkxGbY2MGR1MX+DAzpqQeTIKDEptGq/AA1eC0p6gWTLqcx46
0VqFh5c25738J8govDuAnwPLf4eEY7MvmYzsFcNEw7H6JA092v9wlIzmfs9J
mmP1k/sQ+9h7gIzoy40bbi14yL6S2X2vm4y4eBTDWtvxoL635rBHGzbf8ESo
XzceSkeGn9xpJCOrbdKN9/rx0HSVX/1mBRmJzdn64Eh4MJOSj3IhkJFxnG6Q
KA0Pg2M4qlMBpi9HXkx1Gg+TDp5v7bLISGD1oZrBHzx4ykTM2qSTUf2zdrtz
f/GwQko5ezkF03N6yeb5lnzgcu5euhRPRskVrJ2TAvkQvW/W0OQ1GS3XbH/E
IZYPOykcaYYvyQjncX/plmQ+yLloWJ5/grGg0pPtivmgeyOhQNsD49W3M6km
+dAkn8d/wo2M9DrlRP9Z54PZRNN1zetY/A+7qYnO+eB8699O1StkJE8Pb8ry
yYdgNwefg+ex8Tyn9J1f8mEkyi6xWIeMykdcLiXm5oPWD5vyC9qYv3deDp6l
+cBaNOe6cxTLF2dZJtiXDw4B+nE/95CR0gpddqdgARA+nSPoiJGRVG3CSymp
AhCrPjPWJYTpU5R/+VCxANq4QP4PJ1ZvP3OnXUYFgIs5WnicNY7cL3Dv4I4p
gMQ8paGmaYwnDvQ8SymA5Z7DbHa0cYRzLbKzxBdArri8XuDQOLInpZIH+rHz
LFWir7oWmz/4J+yxXCH8K2BfNkgYR22J8x4bzYVgPbBZYvTNOFJiJPOfIhdC
/voGticxf0k2k02rhXDn1OrTmCfjyEf1qHelfBEMN8zu7L07jgK3mdfsDS8C
wnDvMfsz48iYHunoalYMvlu+P/CcISE2yz7UJk2AO/F2HPZ0Ekr2YScOaBPA
UVH4jcE4CQU+rf0paUsAfRu/n/L9JNRnfLHA6h0BxH4ZzoxUk5ASkD1CBEoh
z3He8UIiCRlnC8Mb3jKYrThhuO8C5u/6agxBrBxIlswhwbNYPL/TBpWHyqF7
JtV1A0dCGuMLaaQT2H27i//ZgDoJlftITng6lEOEB7EqWoaE9v3w123NKAd5
6TDNvytEVGg32+asWwEOga37etKJyN15CX83ohIs+j9qD6cQkUDv52i15ErQ
V3G3IicREY7/n68QvhJUyQKRrNdEdOIMU11wtBK49Ezn+YKIyO+t3l4p1SrI
5u+uOHcZ8x9/sN6TVAVrSQN2RduIiOs/xYvXjGrgTSklLvHWGHKnVf6wc6kH
O5/3/seujaFMH9kn4cH1IH/UyLnj6hgSULBarEuqh+L0QkUu8zHUN5dt9LS3
HkZiI2rvATbeWXuNXf83HLilvKAvMoba6p//nVRpAM/Dq0ks31E09notiiDc
BMWj8jyZMiMoMObxiwscbSArgDttljSINILV0+7wdsHPQ+G3SON9yF/lTXpj
VR+M1vyQUlfvQV0P5kO94ofB/P//uhFntdvFbrVRoCi8UUH5nUjFWMpo+04i
CPp/Uz+yqR0ZR299Vxc1DgrqDIXU+SakzvpX/qeJAiFnZtqKfOqQWZqBmpgk
HUTNsqMv76xE02+7rz7FTcLPpRr++n3FKPzNdnqayDSkDlJeTIRmI+6rheIi
IzNwxUQib9DpNdK5PjZ0zYIB0/OLml7VsehPzkBhtQ0D/N62Ir79sahC2DhI
yoEBiYPBjaeor5DmcHhPiysD8ho7aozao5D0tqfPOYIYkLPgJksfCEX/3BpG
id8ZENgl3yVedRJpO4uis+sMKOL27a70ioUaZdnRMf05SD4s2pkj8xrCnxzd
ctVgDsKMc9oSW18DjWV9adBoDszejjd6H3wLbwlCPi1mczAnfbHy0HAcfFq8
1JVkNwdymntyYs4kQVLkRzLNYw5+/7p65sezL/DD4cuK+Ls5UCNt2htklQNJ
p/l+CQ/NwZFiS6bStxzQK7pPXx3G7GOyqsdWckBwU1bU2OgcbP+UqZZskAte
qZ5H0sbnYN3YamhjNhc4A95VSE/NwXBuzkGk/BOSqmpvNa3MwUd3u+qTBXlg
ks0TsyLKhETbbdlvRvPgW+cdm5ydTIjTy3s3w4mHPtrqB6ddTIiW4nb9YIWH
o+GNL+skmBDYhhf8iz0HcCoKKj6WZYKDEu9VwokCqOh49+WjEhNk50pWtCqL
QDJFs6vqPBP8mnVCF7DnPm4d3383LzCh53sjX/auYrCu6bjFZ8CE59cGZaU9
imFraP12U2MmzA2sGnBKlcDLGwcfV1swoaxG83PnYwJMBjXHWmDv29YJBfpu
mghWtry6f9SXCXk+0L3/GoJGo+jZz35M4LOouzoajaDuRBZBwJ8JFQK9903p
CEYJlZa0QCaI6PgaJV4oB/U0uYTAMCb4Fr5/GLxaDm3fr9CdXjHhfEp/s6FV
JSgu3LdlpWJ6nmS71NyuBJGo49QDaVh9boRsHA+phBaLCrpNOhPohw8rH8yu
hBMBRGv0nQnhhYGvt2ytAtbLcM77OUyobz5gU5hTBf+5CMu9KWTCuWUvujRn
DZQkCNeU/GbC7IB+UJxEDYi9l+uraGDC21LJ3fwq2Lnw6I5fbSMTqMG/L6zb
1sB7RPdtbGZCGO+enJ6fNcAW3ny7up0JtTLVXhF2tdBvEj7g2c8EXQOhLYv4
OjAwV2HW0ZgQ5bCNufK7DuYYZeqxdCb0ebGN/huug9aWOPMrE0y4lTRbzMVR
D/WvQGZ2EpvPaPCUsKiHEtcWns2z2PxXISSdpXp4Pz3aNT+Pze9ZqIhRb4Av
zVHVWzeY8GtyKuedfgOwnp0qzsR4/R/pQ6JdA8zGTn++xMaCqAPtD7+GNcCN
Uy+Nkzax4JdPlnJxTwOYRNBUD2xlwfpul09E70ZIbFEY59zGgpdXewOVCpog
fTJx63YhFoRNnwBqUxPYtPn6JWHs//Dz3wRSE7gz/PuVhFlwJ/b2I06+ZpDp
w58zFWGBYd2W+yPOzbCl58GO8B0s4FNUuh4p1AICE2uR5btZwEF4s/+0fAtc
5BeknxZnwT+9tfE/J1tg1fL38WqMZx1r7Z1utoBS6L6OKgkWtLy1tdYqb4Fd
uKrh/L1YPv/CDei3WyHQG//itgymL2J2e1JIKxwvFt8+hrG/mFnDpfhWWCPG
vTGRxfSpSJ5D1a3gpLejV3kfCw78spZq5G0Dg1lOZdp+FnDS5nZ9dm6DmJ3a
rnIHWVBnuIfXWKgdRJSn/NkUWSByhLjDU6IdXlGq/UwwtudNlXot1w42MZub
P2G82qig2qfVDha8JjdxSixQOH/Cxt6pHfyrF394KbMgWsfmm3teO/jdfB9R
cZQFQzKSv2LK2iHAqvkElyoLDm4eJ+TVt0PqLfNLhhhXlt9qWx5qh/gfWvg+
jBdPPvoTyN4BRpHWd6hqLLDWiNd9ZdEBvHOW9dRjLPi684rRL/sO0J+86bBP
gwXzS1KXu291gImG3z0HjCPx6W67AjrAePtXzgGMkUph7Ke0DqgdMxOu0WTB
vsO9xB/LHRB7La8r5DgLZqRF/Tved2J9cZE7S5sFGr6fPCq+dMKuD2KmgxgH
dx2+lpvdCf+auHDbgAU7np69GFXZCRcTrgk7Y6w9/WC3/mQnBBrmlojisH7K
H8iv0OyCZWqh8q1TLFC+kMzI7euCrDMGbWM6rP+7z8D8ldDUB10WeN3/z+Hl
jh6oeKrNNNLD/HMzCBbSPUBvshP0wrjw40+xvQo9cDDE7/B7jNcbNNsyT/WA
NTuHAxnjYGk9aHDrgUO9w3Sf81i/tDjvYa/qgc2pQuJf9LF6ySf1P7rbC3sP
sKsLGLBAr8xB7fSjXthhtXhfA+OJS/tfbXvSC01PLKftMVYIyNSLe98L1Fbt
yJ8Y/+wuLsDX9EKw8I06K0MWlAX3vpkT7wP/exnkn0Ys6B0SMHWp74MMd77C
DFMW6Edc67vf0QezvuduD2JM0Cy2CxnqA/4kp4jtl1iQ/NbJNXmuD9bi17hu
Y3zDOD90QKwfFiRbNdTMsP6qsikwvNkPPWuPqIPmLHDzzD155V4/bDpYuiBk
wYIRKfZq18f9sFea76k+xpWPs9vCX/XDH9Fy7RKMI45tmqws6gcxsZpDKZYs
kMj4KnGMewBmBjMfRV3G6nN57bOuyABYHtmIb8GYjcv4oNneAex+wF3mt2YB
2XlFzUNlAGTefS6LwThr70WjDOsBOK7kb/HJBlvvGGaQZMYA/M5qPz96Bdsf
D0/QOC8OQtB20vCkIwsOOdd3z1oMQoXwxcHzTlh/GppVdzsMgpbjYN83jMP2
uX1KeTAIqpPDw27OLMhsTbCBlEHgnu822bjGgpX9a63eq4Pg3Dn6x/Imlp/A
07Ir7EPw9bC2aD3GkWtCWWcEhqDOZstlzVsskGo/9FxIbgi2l96/IunKgrN+
1meyTYbAbmV70oobC2I6igop6UNgIr9FZsKdBbalumlNv4YAt4Ea3DxYsD+9
/c2vsiFI3dhbwcS48PGEZ1AXZv8wL3nDE6u3/K7De9iGQWGE2+M/Lyy/AJ9P
ZpbDYPqOPbzmIQuq/jv2vIp9BMxi3Y1EQ1lgp2iWwuQfAR5ZlFeC8bKKB0Fy
9whQe2pDnJ5g/aWVMet7ZATKxAOuF4Sx4LWe5CVVyxHgKzsU5P6MBS7XOCVS
00cgiPZ+6OBLbH1u7lPr/DkCpqcLh2kYv3c7ZbipdATc3g/cSovGzst7voFX
2kfgnsqg8n8xLDgWzCCLro7AuHRuju4bFnB97M0KuzAKHfc0zeoTWPD580Jt
nvkofJC+L56cyIITXwXHSFdHwTe19NXDDyxwz7ogBPdH4UDy5dfKH1nQX4K8
/ySOQiInVTH/Mwu+96XBjdlR8LPWzRP+zgK5bQT6F70xEJkiFCoWs4BVd+TW
Z4MxqPImWJwowfZL2Kepj6ZjoPInuE+fwAKLrU9n39uOgcfUzujbZSx4smGy
EO0+BlNJt3kaKrH+W6Rt+MWNwRXjG/uIjZhekvBOc/oYDF//qP9uFDvfP4XF
mc6MgcYe5VTyGAu07Fd2GbPGwF/F45AqiQUdwyMSF9bHgMuBs6yfzIJN/d9k
TgkQIeHBPz2YxPq1FY4c1iCCiMLMlNciC/YQXHXZw4mw2wdbWN55ENm1unrn
BRH8cI8Vbfjngcc7PLcvhggHT/z9vVNwHtYVU8UzPxBhgeCPjxeZh4GUEabp
LyLYfIkvLhefh7cRJknJI0T4wzcolXRoHvhsjv05rkaCO5bNmRn688BRWJOZ
qkUC8bWXv+ouzsNfETNHfhwJuOZ8N6iG8zDd4t5M0ieBpvWZe4qX5qHh9PeU
Z/Yk8NFel6bbzMPTQ3uMeyNIsDpnaL12ex7YVjd/8ySRQNoi3hq9ngf78f75
ABoJ7Hp6Eve+m4fyplztF9MkWCb7CgTFz0PgR7uutCUSCLsEvDVKmoeNM8Ub
Q9zjsOfGgevC6fPw76WHxbmj4/CoQNVVg4Dlu39si0ToOLgwplK5afNgy19g
ePDZONh78Gh1T8wDYflFvDr23qF9nNs8ZXoe/BqPK5rEjcNkrt8hfdY8rLm/
sw7LHIe2Nv+PlX/nYbXE8Mdc1ziQ1Jx2OIguwB+TUrua/WRwcaYGXj+3AMH9
OcPa/5Ghp99DfFZ/AfgcPtsWKpFBrEr39EPDBZBzf2qdcZwMcZ+EdD6YL4BZ
lInFKxMyXNz93EvCeQFyGygGVx6TQUEmsGo1aAFu6vCdXOwiAw/HOWfjigVY
aGAj3BnA2Nri6d2aBQg0ndeij5LhuSbze+zvBYhz6NMYnCSDwPfXm6faF6A2
4LNqBRsFxr0sbXpICyBDUFd4oUAB+QHNhc/sizCoelV8fygFpE+JbzlitAgu
K2r8T55RwHrnS6mRS4swV8qzhRJFgT1LMqGxVouw9Vzx5Jd4CsyvySjwOS7C
kcuixftyKMCutemajtciBD5utNo3QAF16oFvuYmLIFd77K2sEhWOvD4mm8tY
hNznfM9D1KjQUGwjJrC4CFpGlMfjWlQoyd/322t1EYz6Yq6l6FKBWh7rZsq+
BD6TM6qyNlSInPooayK+BI18XzplwqiQw6uXcF1vCdwtBQRlhqgwdG6fvHDa
EjimK77fT6TCWfpdz/rMJTBfMZQ9SKXCifjdsiE/l0Ar4YWa0hwVrAe2V3OV
LQH7KLe19lYa1Hau2Zh3L8F7F/YUawUaUFYMUpa2/oFqr1XVWD8auF9yyb57
4w/sek222rqHDiYV5suzuGXQCJHccV+GDn3RQwk/9JbBwtO6c/wAHaLOeT/3
NV6GGOM2gyoVOnja4y/vt18GHl7C6WA9OjhqXVFvD1iGf09iFdju00Hu6OWE
F+XLQH5wmm29gQ4tHLyj+edWINsmOW3eZwJuunztJNxeBdVe2VUO/wl45lYX
2eK9CiWmaRd3h0zAP4VjMbSAVag/n83EvZiAJc7H0YoxqzB+jHA86tMEWL2U
Kd9ZsApiIn2t8g0ToJRzevfFzWsQ3MS/fEV8ErQ4Zy/ZJa2B5ckAvfrSSWjs
1xJbnlmHoUUqf2XlJEjv+uFYubwOjtmGvSV1k1D9u+n16y1/wU1yr0tO+yQE
ks6XGe/6C8GbSkPeUiYBqnuey+v+heya1TJn3in4aGOudDnpL2w19FbbdGUK
DAvubOqz+Ac/7G7LaK1PwewTWoIYcQMc8XN7kjdNg49u35QgYwNEeO7v4uCc
hjDu20mifzfAu+iRQIfgNIzTLCWTeNhwWiLh/24emIbdyewPtxxkw1X+/jwQ
b4rZd9oebnRkw3Wp9sWspE/DXrPjL64OsOGWuXW2FJnPgEvRsNH+gU040/bj
6nviZuGN2/Q936UtOO7j2ysIH2bBtJDtXCbbVlzFl4ELtimzsG57n5fMvRWn
5PPQISF7Fr5RLANvSG7F8UkWRO6qmQWtgNMmNXpbcb/dVMZFWbNQXstzvD1x
Kw7HdTCa7yIDiLq9cuf02XHLHsu7s00YcCh4SdHWnB2XM1iXamDJAHy7V6SP
PTtub45LSaQjA/xXiy7UebPj1s2/ULkfMiCuzE+jNIUdV5AieZLzKwNGJYle
vBvsuDu8jLqvGQxocHgqE8/NgZN7UGZ69gcD9t50uqSwgwP3Wv/KjScEBqR9
ZTe8eZgD58l8H7ulkwFfBAX+nrTlwB2yubU3pY8Bt1ofS3Pc4MARqzW/nR5h
gGpwBan7HgfOOK6vLGiCAWa39+tFRnDguDann5dmMOCB7X2W5zsOHHJ90FW+
wADd7CVdhxQOnHf32av2qwyolK7RtczhwP3v93Q4tnVlwayEA/c/eg9rJQ==

        "]]},
      Annotation[#, "Charting`Private`Tag$891872#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVyXk4FHgYwHHqcbRpVofSk0p4HA0xscaVVyFSYUlJ6ywlq4MNRQezKrMp
oVw7ia0tS6TUFlovm6ODlGVmXPP7zbjHMZlKota2f3yfzx/fNSFHvELnKCgo
eHztf9fBUunsrAz5H14U+nDlcOSTbvKnaRkqlK/If3JWDmXlLP13H2S4Jb0x
S5cjh/WG20MGRmSYZX2NOxEnB/bCpM4mgQzdqtiJFyPk4NA78SLnrgxH1Qa+
bfCQg9f55mLzQBmumppvZLdUDrEtSYcOVI/jg9Br1p43JqCtbb60NngMs4cu
KuQUv4WVNUeWsLVGUXSqaPbNJRk8/LFO6dseKTKZMxH6wjEISmG97eAMo3pA
34TfvFGYSo9PRhhCEQnOrQmTwg2GaHm2eABJ0uovIRVDwHNjRf3D7cfM3cGX
HxgNAici+LjRlj7MEkU42jf3Q/zcotioMQk2x/uf84jsg+CEFj1+oRj7ZhLk
ZVt74epf/dm8cIqPT8zJnt4qgYDjuafZoRStqzV0ZC4SMDT32NcaSNGGkWo1
4CiBysLHpqo+FM8o2TC6bSUgyrjQ8BNQ/PlvregBpgQMwlnv3ZZQrFOMnIxR
k0CUyXSePJ5gjMxMntIihkpiqHZHR4Qb/Sb0qv3FcNJOsSRXU4TPAzIvZPqJ
YUNOx3YuQ4TLsl33RO4SQ43XL6n7p3twMOee1brvxdBYP7JoTWsPlh7Nn61z
EkNbcenyzMQedFi5OeCAsRjGYy0MEmg3PlPaFZz0hUJZm9qzw/xu5Hnd3lY8
TSGS1R/m39SNYXtGH7V9pPBeerXI5nE3tqaxFprKKcz4fzT5kNqNtoblEsVB
CqpOlRbh0I0vSwYLtN9Q0FV32LQjrwst7lZluNymcMlMHBee0YWHnv7K496k
MOXJKU9I7kLT0v1lrwooNKXV6ZVEdaHG+ZDPwTwKxxZvUVF26cIXdcehJI1C
w1KvpkeyTjTd620vOEkhfOW+nSs2duJwfVDCGR8KbRuUUlmWnaieWl+k503B
PuBWowuzE2XGG780eVJYfH3I6phGJ2bt11llsI3CE+1DK5qHO/Bfj8UHFR0p
MPRi6On0Dtw3LpG5syjcX5scLukV4s13Qp0d6hRWvwmqYHYIcUaFxzrIoJAS
a60a/UqI86o2H0hUoxBaJ/1dpUKIv33X4FalSkEzYLvY+JIQA1SufOOjSOFU
2iLfWCshLui19980QEDKHrlVYyLEMM1K/VYJgZ2ipx/m6QpRyz1vdxghYMaM
zuAtEKIrM3lOoZCApE7wqlYiQGHturRjLwm4TvGc1S4KsEHVTM/pPoGHedFX
fDgCzDth5217l4COs3tvXqwAsWSrivUdAjNpswmsEAGmvPZVcr1FoJQZ8mQn
W4BxGvHcB7kElgQamBeI+chzdrV4nkQgUUmBI+XzsVGbwzHiEBgvFr42b+Kj
Icc38vIZAo1T3MMNf/LRzrWWHRVHIC599I+RC3xsnWzJOnuUAKm/p21pycfq
c24GY/4ETnp/crIy5qOyyayhaA8BTbHDQRsdPs5XdlBu303A83PLPXsGHyf1
Z33bfAjUrB/f5DLQjg5zC84tdyeQf31tqG9mO7ZoSWwRCNiZRHH9UtqxZplj
HsOegLCyouQHTjuy8zPke+0IqPNdJ4MOt2OEGS9G2/rrHy10fhbYjnHD7x2b
LQn8B6FtrLo=
        "]], LineBox[CompressedData["
1:eJwt1ns0lFsfB3BTSRxF4lAhd5KkkqT4lWuJlDdFN6VT6YIUujnoQheV0ugi
iqamUlFupeiHaEYGM89MpcR+JF1chjgHdZzp3e9a7x/Petbnn73Xs/f3+1uP
cUiE/5YRSkpKp+nzvzdTxtny0fs1vr2wxztlNoGQA7y7BwdkGHspXZxgSUAx
urMutkuGgjsdGTMsCKRzZ/XFfZThvj9UN3wyI8DkVTgdrZdht1VTabAJAbfP
pDaZL0MDlQ6SaUCA3WvZeyZDhtmnazxi9QnEciK0z6XK0C1QmLFxMoFCfcU6
bpwMUcNHf/5EAmb/0ZdnrJJhklHSyrk6BMrZzVrXfWQ4NHjAwUObwLrwew7Z
rjJc+KhZOWgCAe5Jp/hbtjI01zXYmTqegJ3uEd5tMxkWdKgrPdEkILpZI7g7
SYY93dyENg0Co8oDNXNHy9BfkubqM45Alm+W/cNhKW5rNDl6ciyBBU1fAvP7
pDhq/e4HInUCUQMx2cUtUnxuE132x28E2m3SZmGxFA1VFj5vGkPAOu6W/Os9
KYbOvK+2gDq8oShHK1uKr0MivXgqBIYi35hsTZYiT/lBStJouv6Lzy0pCVJ0
Pz1wZQT1Ye3B9JJoKZ51h9REZQJqj3UnjN0oRX5UlHfWKAJ+Y6waHAKkWMSx
V3Wk5gY5Jm/0lmJ/x+WCNyMJNOYs9joFUuQ8U18SS20wHDiy0F6Kh4eHhFbU
Ib7bsXmqFLWdBLM+jCDAv3bgkMoUKa5XsIkXqTt7Ts6dqS3Ff6R5Faup7Ral
969RleI5j8z2KdTRqTl5xxQMljVrfZdzCDxte7ozt59Bc8uDbVXUCvtay8av
DIbeX1CaTe2W1NTGaWHQaujFwUTqE287r0+TMqiadsBwN7XIanhtgJBB/lgB
fxP1+IPqevFl1F06E9ZQr6rVl93JZzCntCEkiDpdf/o55jaDy8dsSAumJmHO
PsMZDLqssc7ZRW2GvmMsUhnUcL6WlUAdqrmhyu84g2HzTfdfpX6wKTzhQCyD
fcTEroy6Lz9uAS+SQdei0cJ2aodRKUOirQwqPBxBh37voYDrhQNrGazRN05b
Sl3Oz9tttIJBtyrrmhPUo4bQxtuT7id4/l5EvWSJ+Ove+QyK8jxrdOl5n01n
b2baMWigasPdTs109m4UmDPIW9/oVEmt68wx+D6JwV9zi0qN6X1mEeM0d2UG
y+/w/f6mbrebtSL8pwRDV54N3k7zYH3EdezlHgmGP/RZ/Im6wGxzYuc7CWre
7M+W0/wMRe9dpNMgwZ7leePjaN4WCI7+61IlwfzGL6u1aR5fbr8ZnZorwRBe
9JYAVQK/PSucWcqTYOo/mdOU1AgsV6/ubr8sQeugb9WPqN/ltm+Zd1SCOn4p
UVNp/g2VBow375dgznDp8R7qkBWjW06HSdD2fcGuUtqXrn6LVexqCSb48e7u
oP2y85irpeYrQe5wuJIP7V/0Ra/62a4SnDgqx8Ke9lPhGOp53EaCHF9tokf7
Oz7uroMtR4K9Pe49s3UJJBVbCTUHxagtTnrrqEfgp/x2UH+XGEl1Wo4bnQ8f
g/mxTxrFaHd+psZOOj/yF/EqXR+KcZ5CUaVkRMDioMlKc74Y1du8BuyNaX7y
s9tVMsT4++TkcRF0Ph0xzRpTd1yMaaa6fX/R+eWvnLlsdbAYX3W37fOypufl
rM/OCxAj8yJTmjONgFPM1Uj9pWLMto7X0p5OwOTLFW6rgxg3LmmYOzSDQL/w
4vud48TYYuI2QcWBgOVE4zqlQw1YzNl1w8WNgOapKb3VWxvwebzH4C93el8/
DSYk+zfgQ9VsS4EnAeGHSUE61g1oyP6lt82b5jdLu33qu3o8K39g172CQI7l
mH/959Yj3zewZnwIARuHHptb/SLk9pt6lSQR2GobH1/SLEIfXeOkHScJXLfQ
YOoEInwte3bB5DQBLd0Z+wauijAmfq3e7fMEBgfDK7zcRdiyyLmYk0mgskQe
0MGtxVl9q0uHCwkEOsvjZji8QpWSgIfKHQRS58RJ3Ixeoce1yLSUbgK108eZ
Baq9wlW2xXOMvhNwMbStSWipQeVH3rcChgiY/gqbwCTVYPW+uksnRrIgL+++
HfVWiJqf/O3btVg46t4tLtkvwFd+oWlG9ixULu7ys98sQKs1vO2eDiwo+XbW
5/oKkPN2eE+EIwuxAd9EPBMBnkj+ZFq7gIWYre3CM6KXmHhp/8AdDxZCTzSX
bzJ6iRuHFhoqVrPgI6p7qCqswqKX5VHq8SycEotmHMuvwmVuv2+4fJgFoaw2
V5FRhaG+AXstj7Hg0Vxzvz+yCuPCthv5nWTBRV59p3lyFcq4TbFVF1iw03ye
9SjiBa5xjlZ43mVBZ2XuuSDdSmxq6TS6+4aFfIvkpx4jK5Fwlq7b9o6F5T+2
fZrZU4ERGYv9rT7Q/a8ZO6oJKlBf2S4sv5UFxVcueRpTge9czAO/dLHw+c9D
tvpvyjHRfFW9dGQrhPudv1w2FfGWj+OVotmtkD9QrSE0e4rLd8ziplxthbM5
NypdfpRg5SuVCPfrrbBzQ3x0UV0JJpyKDxu+0QpmLx2bbsSUoLGPuSw6pxUu
pt3j/yl8gi9f98PZklY4aH/eefauxzj5e9eygMZWcN2zbue1gkL88aze3knv
I9xqaj/z7Vguprj6RC3L/gjrV+gXNm3mYk38n2cUFW1QonbodWX0BfhWdFR+
Ubkd5nzkGB4OzANutjySc/4zmPY+++FUWQJ69/hX+NZfYQnvXd2ywEoo2KJX
Jx7fAR6+WiP/LhLAkJLbGf6kLkgJfptg91gEBz5/Ph9pLgfBMoOxy7Uk0Fgx
VUW6qBe6jXXimHQpPBksnfIo/Dv8/38FWmJnhx1e2Af/BWUold8=
        "]], 
       LineBox[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAA2OyoRchf1T+L0FMz10ryP9fcEFJm
yNg/4Wgu5kMJ9D9geTznB0zbP2ktpK5CZPU/wys3isMF3j8Qa9T7LOz2PyYJ
vOikSOA/ib/AMuJn+D8dvGtFBYjhP5z+wJoO6Pk/APoCqXLi4j/LpaSkAZX7
P/dRvV7FJeQ/xxVRqc8v/T/bNF8bJYTlP8cPay499/4/cFcQESLc5j93Vsr0
yV8AQBmU5FgEHeg/PEVQjjo4AUCuW6Cn83jpP8dgaMdFJgJAVz1/SMi96j88
EoKkJAcDQLFebSI6/Os/wNLOa5PlA0D4CkMDuVXtPyq4WcyU2ARAUtE7Nh2Y
7j++iFocZ7wFQAo7C8G8ne4/TQsd9WHABUDBpNpLXKPuP1b+adhcxAVAMHh5
YZuu7j+V4fe9UswFQA4ft4wZxe4/kk40AD/cBUDJbDLjFfLuP15RtTsZ/AVA
QAgpkA5M7z+RcARj0zsGQPhx+BquUe8/tiwYOs8/BkCv28elTVfvP+O2WxbL
QwZAHq9mu4xi7z8I4cbdwksGQPxVpOYKee8/VT5+o7JbBkC3ox89B6bvP8qr
9uSSewZAbg3vx6ar7z89Z/P6jn8GQCZ3vlJGse8/fp9yE4uDBkCUSl1ohbzv
PxsyTUuDiwZAcvGakwPT7z+bkcPRc5sGQCpbah6j2O8/VuUk92+fBkDhxDmp
Qt7vP0MNsh1sowZAUJjYvoHp7z9ehaRtZKsGQAgCqEkh7+8/ZSu0lmCvBkC/
a3fUwPTvP09RRMBcswZAdtVGX2D67z8GIirqWLcGQC4/Fur//+8/esg6FFW7
BkB1GCAi
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$891872#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  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->{{-1, 1}, {0., 2.8414708691062147`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.7969812987940083`*^9, 3.7969814420154753`*^9, 3.796981481451316*^9, {
   3.7969824460136757`*^9, 3.796982473725357*^9}, 3.7969825870947027`*^9, 
   3.796983177106488*^9, 3.797044792048608*^9},
 CellLabel->
  "Out[940]=",ExpressionUUID->"f5985804-4191-459e-9f34-2bdb7145291e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "6"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9, 
   3.7969797193659563`*^9, 3.796982976171941*^9},
 CellLabel->
  "In[941]:=",ExpressionUUID->"0ace114a-4cd8-4634-9302-67f70c57c7df"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["2", "3"]}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", "0", ",", 
   FractionBox["1", "3"], ",", 
   FractionBox["2", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796979723243587*^9, 
   3.796981481463374*^9, 3.7969828385292273`*^9, 3.796982980285523*^9, 
   3.796983182407339*^9, 3.7970447920592947`*^9},
 CellLabel->
  "Out[941]=",ExpressionUUID->"6eae90a3-5a29-480a-b0ad-63f98dce40d9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
   3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
   3.79697916819952*^9}, 3.796982820502096*^9},
 CellLabel->
  "In[942]:=",ExpressionUUID->"419abcf6-238e-4f08-ae40-cd53d6a1e32f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spi", "=", 
  RowBox[{"SplineInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}, {
  3.796982823967842*^9, 3.796982829411343*^9}},
 CellLabel->
  "In[943]:=",ExpressionUUID->"96ecf8e8-691e-42e5-bacd-6c3ab1246e52"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"7.103310230033095`", "\[VeryThinSpace]", "+", 
         RowBox[{"26.564605971500647`", " ", "x"}], "+", 
         RowBox[{"30.92973713498948`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"10.309912378329827`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["2", "3"]}]}]},
       {
        RowBox[{"0.5784277685449544`", "\[VeryThinSpace]", "-", 
         RowBox[{"2.7973651051959845`", " ", "x"}], "-", 
         RowBox[{"13.113219480055463`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"11.711565929192645`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["2", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["1", "3"]}]}]},
       {
        RowBox[{"1.`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.9967849778994259`", " ", "x"}], "-", 
         RowBox[{"1.730769230769231`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"0.3291156799064132`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", "0"}]},
       {
        RowBox[{"1.`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.9967849778994254`", " ", "x"}], "-", 
         RowBox[{"1.730769230769231`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"0.05549970470897225`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["1", "3"]}]},
       {
        RowBox[{"0.5896633995462135`", "\[VeryThinSpace]", "+", 
         RowBox[{"4.6898143819835045`", " ", "x"}], "-", 
         RowBox[{"12.809857443021466`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"11.134587916961207`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         FractionBox["1", "3"], "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["2", "3"]}]},
       {
        RowBox[{"6.691561564838707`", "\[VeryThinSpace]", "-", 
         RowBox[{"22.76872736183271`", " ", "x"}], "+", 
         RowBox[{"28.377955172702848`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"9.459318390900949`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         FractionBox["2", "3"], "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.7969797235515842`*^9, 3.7969814816950703`*^9, {3.796982838589477*^9, 
   3.796982868172488*^9}, 3.7969829803531017`*^9, 3.796983182476042*^9, 
   3.797044792102682*^9},
 CellLabel->
  "Out[943]=",ExpressionUUID->"9c01f89d-141c-4534-b9a7-9cd7ec7e0186"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "spi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
   3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
   3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}, {
   3.796979732235875*^9, 3.796979777158802*^9}, 3.796982833632574*^9},
 CellLabel->
  "In[944]:=",ExpressionUUID->"d53c1b1e-2683-4498-8dec-32cc3b43ed50"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mXk81F/0/7VYkn0pRdlK6qMsIVTOlJSUNVtI9hYqFCmyJSmSaCGSkihr
ZazDtZN937cZs1nHjCVb+b5/v8f3O//M4/m495zzOueee+/7PSPteMfUZTMb
G9vyJja2//d9BHZMbmww0AITuZo/Y8GdFdnwlVUGqvx7f/iDDwtyfynLzS8y
UO2mrDPzTixQkTdwpE4xEM9wXEe1NguOCYYONPUyUBH/1O3Ni0zAjTMb4nMY
yMXBCo07McH0aXPG0asM5CWYFiN5YQ7ut4beulY2ixa2GdduezQNkVM+vQuF
s0i/9PaLwzbT8JnzxqmQX7PIuenagVua09AEBqIf0mfR+67JNFiaAplc0dKO
mFnkGpWZpuQ5BS3RX3m0r80ioZL9PJrukyBnWp8hIjCLMjjj97zzoUNX1/bJ
CocZpNXIYaQwQIZgZ3xZhu0Mouf995NQToYjC3axbyxnUJ/4lQ3HNDKEC/88
ccNgBvHvS1Fj3iPDSVOrlwKaM0iBelJGWJAMX1u/qF4VmEFLHiGhLgbj4Ntw
MnC9bBrJ7NBn29ZDhP3WtEvUomlkLecsfxYRoWMiWr4tbxqZFWr/F5dOBIVt
5PaU79PI1Dbr40M/IhDPPd934e00Orey7bKGDBH0a3p+x9+aRh4OJujl3THY
U35H5JjENApV5nSl649Ak5DaPa2d2HjPXJOO7Ag8dFntPCk0jWq5Iy/WrA1D
D/eT2DNc00jKcquVVtYwRJu/FzJdmEJNYa2MScFh2DJVLXCraQpNCx7/bkUa
hAnR3bwp/lOoNocmtJbUD3HXR92/3p9CPBfy2tb8+uFsyZemb15TyPUCoVTq
cj98tleMzL0+hfzHtkz0CPeDbcaZ7WVmUygEnzXMet4Hrbg72/oVplB4u7TQ
UGAv4N2q2fmHJ1F1w80G7tBu0JC6rfy1dxJJ+RdojTh2Q3HXzisnOyZRk48e
98Cpbig/6ZbnVjeJ0jXK/PTZuqGBX8ip/sck6uN/GMcT2AVjv66WB4dh4/73
zrOHdgL3+urDBcVJVL6Jq1U3ox1e5H75GnFoEpUZvhlle9kOAi6GHTL7J5HP
dMEq0asdRFs+HTTZPYnc66U4dxxvB6lkvb6srZMo7+p2H53mNlA781btWv8E
Ulj4eP4csxXsI5Xn+kMmkICOYOJ8dxM8zIsJa340gXC4lKjGb03wZmheosJ3
AsVFSHcQHzVBg0L++fTbE2hs4nhvvVwTHG3WSvGxnsD8x3x/5NcIHHxnLIRV
JpCSWxrvDaUGyHxpQbhIpKP0sTNZ/nV1UFtQYIoboiPbULU06uc6II6KTRzt
paNcgWTLiIA62KE0KCreTEf1V/hvhqrXQWDb1TsThXQkUdmgqfKtFkwFb8iE
RdNRUy2x2Cm+BpZj/MIR0FHy5fY9l79UAU2iYvKsFh35Fr7UuR1aBT1fOQxa
VOloqMNWq9q5Cn4VvxIcPkhHmU5jvCpyVXCblPZ+VZiONKi3PAUzK2FcuStT
jU5DHuqn3cqrKqCjZBd/KYmGqi+e3NeRVgHlulc9zwzT0ImEan+ZyApIujyp
dqmDhoJ05YMDzCvAKpgNeRBoqMutcZvUVDm0tCm0Z0TTUNOIRf2kdDkQrL2O
Ho2gIakxmnrPtnLIIBe8KX5CQ9e1PqqvjyMIXz5t/fshDRUyX/iyhyHQkbo8
TnWmofJKTu2C1jIovPNkUVqThuy5IthtH5RC2kqD5bejNGTlrRj5ybgU3j4W
KFY6QkNzo7nFNvKlcPddQgDI0lBfkS/b4X4CHEE/OK/w0lBbcX3DcRwBUvhG
dsURqUjvC5tbq2wJxNgAp+YQFV3/Kh08uLkEQtKTF/p7qAiHT127RCoGx9NO
reJNVJScjZN+9rkYZHzooR/zqWhuo/383wPFIFR13gv3g4rq+/AfXLiLYbNA
xlViBhWVy52305gpAtK3W1qynzD/3QWHJPKK4PMwi/E1goqMb3iL9ZwtgphD
ZsPnwqio0EJx5blCEYTcxzfQg6goXOaJabpQETgK+qYe8qEiK14+H/GxQpDW
/WudbU9Fvrrs+KHAQkjO5KzFq1GRh8RHyuuOAoheuf7LQomKBI7gTuWVFUDQ
2YbkP4cwffLqGhoZBWA/FumnKYXpz2rYfOtJAUiKCCmXcmPxZl2tHmsXAJ/D
3b127Ji/kt1D5YcL4F9W1/aNDQryODwn6LCnAEbOvaPiFimofuZBcv3ffEjy
k0isHqUggajnKYer8iGq/tEzlwGMM68JPcTnQ4DoqA9HNwUlO3QaHEjPB7uc
TyZ6DRSU+zFZIyUqHwzXN8NENQVxeV644xmSD9rnnRWeIwpqc9sZ/NEnH/aM
y3E25VHQ3NoZ3d32+cCjFL7gnkNB4eNOga7m+bDuP0Hk/Y7Fi9/7RfBCPgzt
yCQYfaQg+eTg0sfH8iFRX9mr8xkF0euJKW0i+bBvu35DWygF9XXxno3mzYeM
RkeZlkAKWv5bTEzmyIfii6876r0x+12WZ/JW8HCaN+tQrQcFXS8s/54/j4eG
5pqQKjcKMm5NPr9tFg/9hn9UyhwoCBep4pE0jgd7foGIElsKUirJfzc2ggfz
//+hoF0LAgf9+vDgEX3qeL4pZn97h+SlHjwsG1vH/jKgoCB7DsnHHXgIErw7
latHQfarOM7NrXjg7IjQydbB9NKm0lob8RAV8yUhQxvT03asfaoeDzsulc6n
a1KQnqX9JYtaPCQJ91z4qorpEc/8x1eNh/1dsykpili9891TRCvxkPmacz35
EAWNoX+CN8vxoGouZZa0n4Ki63/v5kF4IIhqZiZIYfHtcFFrpXjQ6THZGi9O
QXHcYyc0MG54e9P27Q4snqnynwoCHkwtH+fFCmL55Ne9iMN4YGcizysejH+d
ai/B2KEvzzmKk4IKK/Ri/sPs6XHNhIjNWHzzV59oGHtcpoo8+0tGY6MDrYwy
rB67NtzDlsmorZExo4PpCxrYWfN4noyCglObxivwwJWgtCd4loz6nIdOtFbh
4aXNee+ACTIK7w7k58Dy3yHh2OxHJiN7xTDRcKw+SUMP9z8YJaO533OS5lj9
5D7EPvIZICP6cuOGewsesq9kdt/tJiMuHsWw1nY8qO+tOezZhs03PBHq342H
0pHhJ7cbychqm3Tj3X48NF3lV79RQUZic7a+OBIezKTko1wJZGQcpxssSsPD
4BiO6lSA6cuRF1OdxsOkg9dbuywyElh9oGbwBw9eMhGzNulkVP+s3e7cXzys
kFLOXk7B9Jxesnm+JR+4nLuXLsWTUXIFa+ekQD5E75s1NHlNRss12x9yiOXD
TgpHmuFLMsJ53lu6KZkPcq4aluefYCyo9GS7Yj7oXk8o0PbEePXtTKpJPjTJ
5/GfcCcjvU450X/W+WA20XRN8xoW/8NuaqJzPjjf/LdT9QoZydPDm7J88yHE
3cH34HlsPM8pfeeXfBiJskss1iGj8hHXS4m5+aD1w6b8gjbm7523g1dpPrAW
zbluH8XyxVmWCfblg0OgftzPPWSktEKX3SlYAIRP5wg6YmQkVZvwUkqqAMSq
z4x1CWH6FOVfPlAsgDYukP/DidXb39xpl1EB4GKOFh5njSOPC9w7uGMKIDFP
aahpGuOJAz3PUgpguecwmx1tHOHciuws8QWQKy6vFzQ0juxJqeSBfuw8S5Xo
q67F5g/+CXskVwj/CtiXDRLGUVvivOdGcyFYD2yWGH0zjpQYyfynyIWQv76B
7UnMX5LNZNNqIdw+tfo05sk48lU96lMpXwTDDbM7e++Mo6Bt5jV7w4uAMNx7
zP7MODKmRzq6mRWD35bv971mSIjNsg+1SRPgdrwdhz2dhJJ92YkD2gRwVBR+
YzBOQkFPa39K2hJA38b/p3w/CfUZXyywekcAsV+GMyPVJKQEZM/HAqWQ5zjv
eCGRhIyzheENbxnMVpww3HcB83dtNYYgVg4kS+aQ4Fksnv9pg8pD5dA9k+q2
gSMhjfGFNNIJ7L7dxf9sQJ2Eyn0lJ7wcyiHCk1gVLUNC+34E6LZmlIO8dJjm
3xUiKrSbbXPWrQCHoNZ9PelE5OG8hL8TUQkW/R+1h1OISKD3c7RaciXoq3hY
kZOICMf/z08IXwmqZIFI1msiOnGGqS44WglceqbzfMFE5P9Wb6+UahVk83dX
nLuM+Y8/WO9FqoK1pAG7om1ExPWf4kUXoxp4U0qJS7w5hjxolT/sXOvBzvd9
wDGXMZTpK/skPKQe5I8aOXdcHUMCClaLdUn1UJxeqMhlPob65rKNnvbWw0hs
RO1dwMY7a13Y9X/DgZvKC/oiY6it/vnfSZUG8Dq8msTyG0Vjr9eiCMJNUDwq
z5MpM4KCYh69uMDRBrICuNNmSYNII0Q97TZvF/w8FH6TNN6HAlTepDdW9cFo
zQ8pdfUe1HV/PtQ7fvh/z+9uxFntfrFbbRQoCm9UUH4nUjGWMtq+kwiCAd/U
j2xqR8bRW9/VRY2DgjpDIXW+Camz/pX/aaLA4zMzbUW+dcgszUBNTJIOombZ
0Zd3VqLpt91Xn+Im4edSDX/9vmIU/mY7PU1kGlIHKS8mQrMR99VCcZGRGbhi
IpE36PQa6VwbG3KxYMD0/KKmd3Us+pMzUFhtwwD/t62Ib38sqhA2DpZyYEDi
YEjjKeorpDkc3tPixoC8xo4ao/YoJL3t6XOOYAbkLLjL0gdC0T/3hlHidwYE
dcl3iVedRNrOoujsOgNcnpdMyjr8PB5G7a4a3GBAEbdfd6V3LNQoy46O6c9B
8mHRzhyZ1xD+5OiWqwZzEGac05bY+hpoLOtLg0ZzYPZ2vNHn4Ft4SxDybTGb
gznpi5WHhuPg0+KlriS7OZDT3JMTcyYJkiI/kmmec/D719UzP559gR8OX1bE
382BGmnT3mCrHEg6zfdLeGgOjhRbMpW+5YBe0T366jBmH5NVPbaSA4KbsqLG
Rudg+6dMtWSDXPBO9TqSNj4H68ZWQxuzucAZ+K5CemoOhnNzDiLln5BUVXuz
aWUOPnrYVZ8syAOTbJ6YFVEmJNpuy34zmgffOm/b5OxkQpxe3rsZTjz00VY/
OO1iQrQUt9sHKzwcDW98WSfBhKA2vOBf7LmAU1FQ8ZEsExyUeK8SThRARce7
Lx+VmCA7V7KiVVkEkimaXVXnmeDfrBO6gD0Hcuv4/btxgQk93xv5sncVg3VN
x00+AyY8dxmUlfYshq2h9dtNjZkwN7BqwClVAi+vH3xUbcGEshrNz52PCDAZ
3Bxrgb1/WycU6LtrIljZ8ureUT8m5PlC934XBI1G0bOf/ZnAZ1F3dTQaQd2J
LIJAABMqBHrvmdIRjBIqLWlBTBDR8TNKvFAO6mlyCUFhTPArfP8gZLUc2r5f
oTu9YsL5lP5mQ6tKUFy4Z8tKxfQ8yXatuVUJIlHHqQfSsPpcf7xx/HEltFhU
0G3SmUA/fFj5YHYlnAgkWqPvTAgvDHq9ZWsVsF6Gc97LYUJ98wGbwpwq+M9V
WO5NIRPOLXvTpTlroCRBuKbkNxNmB/SD4yRqQOy9XF9FAxPelkru5lfBzomH
t/1rG5lADfl9Yd22Bt4jul9jMxPCePfk9PysAbbw5lvV7Uyolan2jrCrhX6T
8AGvfiboGghtWcTXgYG5CrOOxoQoh23Mld91MMcoU4+lM6HPm23033AdtLbE
mV+ZYMLNpNliLo56qH8FMrOT2HxGg5eERT2UuLXwbJ7F5r96TNJZqof306Nd
8/PY/J6Fihj1BvjSHFW9dYMJvyanct7pNwDr2aniTIzX/5E+JNo1wGzs9OdL
bCyIOtD+4GtYA1w/9dI4aRMLfvlmKRf3NIBJBE31wFYWrO92/UT0aYTEFoVx
zm0seHm1N0ipoAnSJxO3bhdiQdj0CaA2NYFNm59/EsYBDz7/TSA1gQcjoF9J
mAW3Y2895ORrBpk+/DlTERYY1m25N+LcDFt67u8I38ECPkWla5FCLSAwsRZZ
vpsFHIQ3+0/Lt8BFfkH6aXEW/NNbG/9zsgVWLX8fr8Z41rHW3ulGCyiF7uuo
kmBBy1tba63yFtiFqxrO34vl8y/cgH6rFYJ88C9uyWD6Ima3Jz1uhePF4tvH
MA4QM2u4FN8Ka8S4NyaymD4VyXOouhWc9Hb0Ku9jwYFf1lKNvG1gMMupTNvP
Ak7a3K7Pzm0Qs1PbTe4gC+oM9/AaC7WDiPJUAJsiC0SOEHd4SbTDK0q1vwnG
9rypUq/l2sEmZnPzJ4xXGxVU+7TawYLX5AZOiQUK50/Y2Du1Q0D14g9vZRZE
69h888hrB/8b7yMqjrJgSEbyV0xZOwRaNZ/gUmXBwc3jhLz6dki9aX7JEOPK
8ptty0PtEP9DC9+H8eLJh3+C2DvAKNL6NlWNBdYa8bqvLDqAd86ynnqMBV93
XjH6Zd8B+pM3HPZpsGB+Sepy980OMNHwv+uAcSQ+3X1XYAcYb//KOYAxUimM
/ZTWAbVjZsI1mizYd7iX+GO5A2Jd8roeH2fBjLRoQMf7TqwvLnJnabNAw++T
Z8WXTtj1Qcx0EOOQrsMuudmd8K+JC7cNWLDj6dmLUZWdcDHBRdgZY+3p+7v1
JzshyDC3RBSH9VP+QH6FZhcsUwuVb55igfKFZEZuXxdknTFoG9Nh/d/9Buav
hKY+6LLA+95/Di939EDFU22mkR7mn5tBsJDuAXqTnaA3xoUff4rtVeiBg4/9
D7/HeL1Bsy3zVA9Ys3M4kDEOkdaDBvceONQ7TPc9j/VLi/Me9qoe2JwqJP5F
H6uXfFL/wzu9sPcAu7qAAQv0yhzUTj/shR1Wi/c0MJ64tP/Vtie90PTEctoe
Y4XATL24971AbdWO/Inxz+7iAnxNL4QIX6+zMmRBWUjvmznxPgi4m0H+acSC
3iEBU9f6Psjw4CvMMGWBfoRL372OPpj1O3drEGOCZrHd46E+4E9yith+iQXJ
b53ckuf6YC1+jesWxteN80MHxPphQbJVQ80M668qmwLDG/3Qs/aQOmjOAnev
3JNX7vbDpoOlC0IWLBiRYq92e9QPe6X5nupjXPkouy38VT/8ES3XLsE44tim
ycqifhATqzmUYskCiYyvEse4B2BmMPNh1GWsPpfXPuuKDIDlkY34FozZuIwP
mu0dwO4H3GV+axaQnVfUPFUGQObd57IYjLP2XjTKsB6A40oBFp9ssPWOYQZL
ZgzA76z286NXsP3x4ASN8+IgBG8nDU86suCQc333rMUgVAhfHDzvhPWnoVl1
t8MgaDkO9n3DOGyf+6eU+4OgOjk87O7MgszWBBtIGQTu+W6TDRcWrOxfa/VZ
HQTnztE/ljew/ASell1hH4Kvh7VF6zGOXBPKOiMwBHU2Wy5r3mSBVPuh50Jy
Q7C99N4VSTcWnPW3PpNtMgR2K9uTVtxZENNRVEhJHwIT+S0yEx4ssC3VTWv6
NQS4DdTg7smC/entb36VDUHqxt4KJsaFjya8grsw+wd5yRteWL3ldx3ewzYM
CiPcnv95Y/kF+n4ysxwG03fs4TUPWFD137HnVewjYBbrYSQaygI7RbMUJv8I
8MiivBKMl1U8CZK7R4DaU/vY6QnWX1oZs35HRqBMPPBaQRgLXutJXlK1HAG+
skPBHs9Y4OrCKZGaPgLBtPdDB19i63Njn1rnzxEwPV04TMP4vfspw02lI+D+
fuBmWjR2Xt71C7rSPgJ3VQaV/4thwbEQBll0dQTGpXNzdN+wgOtjb1bYhVHo
uKtpVp/Ags+fF2rzzEfhg/Q98eREFpz4KjhGujoKfqmlrx58YIFH1gUhuDcK
B5Ivv1b+yIL+EuTzJ3EUEjmpivmfWfC9Lw2uz46Cv7VunvB3FshtI9C/6I2B
yBShULGYBay6Izc/G4xBlQ/B4kQJtl/CPk19NB0DlT8hffoEFlhsfTr73nYM
PKd2Rt8qY8GTDZOFaI8xmEq6xdNQifXfIm3DP24Mrhhf30dsxPSShHea08dg
+NpH/Xej2Pn+KSzOdGYMNPYop5LHWKBlv7LLmDUGASqeh1RJLOgYHpG4sD4G
XA6cZf1kFmzq/yZzSoAICff/6cEk1q+tcOSwBhFEFGamvBdZsIfgpsseToTd
vtjC8s6DyK7V1dsviOCPe6Rowz8PPD7huX0xRDh44u/vnYLzsK6YKp75gQgL
hAB8vMg8DKSMME1/EcHmS3xxufg8vI0wSUoeIcIfvkGppEPzwGdz7M9xNRLc
tmzOzNCfB47CmsxULRKIr738VXdxHv6KmDny40jANee3QTWch+kWj2aSPgk0
rc/cVbw0Dw2nv6c8syeBr/a6NN1mHp4e2mPcG0GC1TlD67Vb88C2uvmbF4kE
0hbx1uj1PNiP988H0khg19OTuPfdPJQ35Wq/mCbBMtlPIDh+HoI+2nWlLZFA
2DXwrVHSPGycKd4Y4h6HPdcPXBNOn4d/Lz0tzh0dh4cFqm4aBCzf/WNbJELH
wZUxlcpNmwdb/gLDg8/Gwd6TR6t7Yh4Iyy/i1bH3EO3j3OYp0/Pg33hc0SRu
HCZz/Q/ps+ZhzeOddVjmOLS1BXys/DsPqyWGP+a6xoGk5rTDQXQB/piU2tXs
J4OrMzXo2rkFCOnPGdb+jww9/Z7is/oLwOfw2bZQiQxiVbqnHxgugJzHU+uM
42SI+ySk88F8AcyiTCxemZDh4u7n3hLOC5DbQDG48ogMCjJBVavBC3BDh+/k
YhcZeDjOORtXLMBCAxvh9gDG1hZP79QsQJDpvBZ9lAzPNZnfY38vQJxDn8bg
JBkEvr/ePNW+ALWBn1Ur2Cgw7m1p00NaABmCusILBQrID2gufGZf/L/f24A3
U+Lh2IFFGFS9Kr4/lALSp8S3HDFaBNcVNf4nzyhgvfOl1MilRZgr5dlCiaLA
niWZ0FirRdh6rnjySzwF5tdkFPgcF+HIZdHifTkUYNfa5KLjvQhBjxqt9g1Q
QJ164Ftu4iLI1R57K6tEhSOvj8nmMhYh9znf88dqVGgothETWFwELSPKo3Et
KpTk7/vtvboIRn0xLim6VKCWx7qbsi+B7+SMqqwNFSKnPsqaiC9BI9+XTpkw
KuTw6iVc01sCD0sBQZkhKgyd2ycvnLYEjumK7/cTqXCWfserPnMJzFcMZQ9S
qXAifrfs459LoJXwQk1pjgrWA9urucqWgH2U21p7Kw1qO9dszLuX4L0re4q1
Ag0oKwYpS1v/QLX3qmqsPw08Lrlm37n+B3a9Jltt3UMHkwrz5VncMmg8ltxx
T4YOfdFDCT/0lsHCy7pz/AAdos75PPczXoYY4zaDKhU6eNnjL++3XwYeXsLp
ED06OGpdUW8PXIZ/T2IV2O7RQe7o5YQX5ctAvn+abb2BDi0cvKP551Yg2yY5
bd53Am64fu0k3FoF1V7ZVY6ACXjmXhfZ4rMKJaZpF3c/noB/CsdiaIGrUH8+
m4l7MQFLnI+iFWNWYfwY4XjUpwmweilTvrNgFcRE+lrlGyZAKef07oub1yCk
iX/5ivgkaHHOXrJLWgPLk4F69aWT0NivJbY8sw5Di1T+yspJkN71w7FyeR0c
sw17S+omofp30+vXW/6Cu+Re15z2SQginS8z3vUXQjaVPn5LmQSo7nkur/sX
smtWy5x5p+CjjbnS5aS/sNXQR23TlSkwLLi9qc/iH/ywuyWjtT4Fs09oCWLE
DXDEz+1J3jQNvrp9U4KMDRDhubeLg3MawrhvJYn+3QCfoocCHYLTME6zlEzi
YcNpiYT/u3FgGnYnsz/YcpANV/n780C8KWbfaXu40ZEN16XaF7OSPg17zY6/
uDrAhlvm1tlSZD4DrkXDRvsHNuFM24+r74mbhTfu03f9lrbguI9vryB8mAXT
QrZzmWxbcRVfBi7YpszCuu09XjL3VpyS7wOHhOxZ+EaxDLouuRXHJ1kQuatm
FrQCT5vU6G3F/XZXGRdlzUJ5Lc/x9sStOBzXwWi+iwwg6vbKndNnxy17Lu/O
NmHAoZAlRVtzdlzOYF2qgSUD8O3ekb727Li9Oa4lkY4MCFgtulDnw45bN/9C
5X7AgLgyf43SFHZcQYrkSc6vDBiVJHrzbrDjbvMy6r5mMKDB4alMPDcHTu5+
menZHwzYe8PpksIODtxr/SvXnxAYkPaV3fDGYQ6cF/N97JZOBnwRFPh70pYD
d8jm5t6UPgbcbH0kzXGdA0es1vx2eoQBqiEVpO67HDjjuL6y4AkGmN3arxcZ
wYHj2px+XprBgPu291he7zhwyO1+V/kCA3Szl3QdUjhwPt1nr9qvMqBSukbX
MocD97//t8OxrSsLZiUcuP8Bo4155g==
        "]]},
      Annotation[#, "Charting`Private`Tag$891920#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjn1Q0wUYx3ecDMwCFoIvjBOQiBcPGZN4ua5nQUxSSAOlgJBJYhnEOExA
uckiRDg4WUtORLQppnZwYY4xJOAZL0dzMjYYjEAIEPfbbwjNDT03L6Fffzz3
3Oe+z/f5fn2z+ck5DjQa7QNq/t+h4Lm0vm5G2+jtqsPVVuDbd1bZX5mxIddh
OfOsFe5KWQGrLygOCU85ftIK4YFJ2cRTM5JFOe8XZ1ohklExPTxpRtG1E4bL
LCtwFi2qy21mjErJWDZMWSD5vLqFnWVGyRHBdWmwBYo1Fd9+1fsPcpTONbYr
Zhgf37TUd3QFhbTTGKMzgbeCvzmSuYxRxMrOG21PQJY76Og6u4QNxoeB7hvm
gVfLejZVbkKf4wfFgnU9nGkXV6oFJuQ41mn2z+uhfmaV2VdiQrfcxi2hfXpQ
7er4+E6+CcPauPTdP+iBrY5pLkqnOBAY/s56oLt8lOoebkJFJK2E9JiA1rrU
7sQFEn1a4jP2fqiDIbk8mTNDYsGlVTeZvw4W5raa2JMk8kqN/VHOOvAMe+Th
pSaRlqxNK9eMQZk2i2/qJFER94zukzUGyYwTfpUiErUX79vE5aNgE5dWIVB+
sWlblUwDRmbfEjeG4psbmDqBBvS36Ekje0gUMtcOp3I1IO36kTEbRKKkYNKV
/tcI5D++3fjKnUSOc7jZZU0Ni6zx1gjSiBzS/i95aBhGtLtGW0RGpO3I+1wX
+gC60wvZ7BojCiMUDoVrSmh5Iq/vOmdERWziZNKIEqpssekPzhhx/uRnV3vy
lRDnk7ZIHDOiRJRg+f7en9DJP/fCN5rSbzqnKeKHoNnl720NCwTyli+FBDUN
gDgDnKJnCFRYJuynvhuA8juS51N6Agu644QOSQOQHfulxmuYQOFSyf5Ha/3g
V0RW/NxBIO330dW6nH64MWs136ohULRRcDAA+kAcfGh2byV175S3W+jVB+XF
MhUpJPCuRerNtCkgm1HyS3ARgW4TW3u331OAb/zr9N94BGqnewMigxQgaXUa
kkUQOO9WIt+e0Asi+9fS1DCq7+OZUvbGXhByVZKXwVT+dPxbE6oe4M3Xlkb7
EMgZ6+yXHuiBHZvfZvW8Qekr4b8as7rhWimzaXDOgBKGbfmbxi64oBRU50wb
kHfF+Sr7WBec9Zgrok8YcL6Rr6wO7YIjbdc/TVAZUFE70T03eB+8FwOchtsN
SOMykmJsndC0j1Woq6b8Kcqfnp6Wg/+mfSpthQE5c47a9gNyaHmY7TdSRv3j
2ve8fkcOXYkXx5SnKKa9m/fmeAdMffIyvPco5c9tjgh5rwN4rm41f3xB9Quq
z3zu2gGevmXqC+mUbtkClesy+A9qNB1B
        "]], LineBox[CompressedData["
1:eJwVlHs4lHkbx6fDRvIStWhr36YDppNWjcOU3GwlUZNj2MogNE0udKT0atZe
G11KKBvVTsctpfR7xoiE35AUJrVdjUoOzxwoHSSSlHjv/pjruT7X/b2/9/f3
e+55ZkTE+UWN5nA4ifj7/jx+aF7rVJ8OKj0/ofsVUwwW/hV9+QJkX1fbLPNi
kE1q8r7E76DcwnP8sB4FWD/pvnBhIfLQhleFjQrgB3IDZNYdNKz4nF39YQX4
Bf2hOGaG9UsGV3pMFHB0w+rdyV16yq1616WcWwQW0yIeJOn1NExPhrdOLAJZ
yz7rve16enbGkDjjkxwKN11T71QjOwzM8ayRg0pk6ri1Sk+l9T8+SoiSQwCX
lxFdjn73b4z5KJTDC9atc3OJnip3SSK7nOXwOnzHX6HX9ZRjbZLnaiIHw0j1
J/88nNd10T29koHM2d1C3+PYH93sU1fAgGXHuMvCo8i2dZHJeQzYRDsHrf4T
+ytkB9fsYaDQxveGh1RP2ZJtRlFRDDi+3GqwIgn1bpXJfQEMrBSfKnHdjvqV
ytnbHRhQ8RSmLjGYvzNQJbJhIKBLtUWwBfVhy3zuWDIQKRm25G9CvU3js5df
CaTEhCfOWY38wxHRmToCbRmhp8uWI5eOjV9aQWAJs0Hp7YosqAgOZQj09gca
xi7G+4ir9XM6RUBo5T9/ZAGef/xoxdtMAleX+Phk8vC8LgFHbFMJhB/wypX/
jHn45p7zdxMoP7eqfLkVcpt4b38MAauaFewTc8z3pqD61ygCuzrdx0b/B1n1
qGFSKIFHhsAbMNBTt48qF3EQgfnzXNakjUb/ppwK8CWQtlYQP+WbjrrpuZ/y
vAno4xyPXx3QUW7W5ow9HgTcsheXLu3VUc46fzu1O4HTil9aVG91VJnZ8b/i
ZQQ+Ny3ghL7U0bP3Ta0tlxAIGJw7+71GR1nxvYZBRwJkKs9T2oKsH/XTJj4B
Y1frGLOn6F+oKHFbREAcNjPz/L/Y76Rec/EXAjUp0xWLVTjvY/DvqQsJTP9n
2rOaWh2VBjp867IjsO/elKHAKh0NaxSJG5Cbuiy4L2+j/78PJPNQv8h48orE
m99517Xx6JdhZyYez6Cfu5c6yp7Aax+TwycLcH728iOwmIDHzglk3iVkp/X7
/3IgcD7H8En5WdRfSPCSOBMYLvnh89pT6Lfq7zNlSwn81jx6WnsO5s0tn5UK
BG4OjUB8JrJBQ/LD5QTMp3/bPCod/Qwqg495Eoh1/5Ka/SeyUXrI47UE6jcP
FMySYv4U2zmH/QnYHPz4ULEP71+XFqcMIdBa3235NA7ZNp5zYgsB53dvlool
6P+ePekcR+C4aZdoMBL9JG+9/RMIrAnQXZ76G74PuJLVm0Ygfw/bcC0A80tX
7tmTTWBsXuv7Zeuw38XPbMdp3J/Wp05hK77fb7bRQ9xHK456wwdX9HvClC7E
fd018/GBFAHyF4uKcbjP87eo7l20w7y6Q2ILLe7Lobo3DnOQ01NEwve4LwW1
pvdmIS8/sebrEO5HjzKoywrfV+HrfPkUBj6bVybtm4Tn8ZgsLufh/8nh9pkJ
JqjHaQJnBoz3Fb9cMAbr/WZ1R4IZSBpzNWHHOy0NC9pYmyVjIDYvdFzYKy1l
Uyfv7b7BQMTCSTlrdVrqlh2Rer2KAa8N++W851r8fghyfTsZsCoSvmurwbpg
VvEcvhyMV4/Zr6Jaena4OTbLUw4jbSVGZWXoN33qqpBNcug0msHLIcg3r/MN
0+SgiOiL8D6N+pEYuxcaOeR/vvzB+YSWSreVjnMZlMOpjI1Sm2ycV5ys/ILf
v5Syu3+PSsO81v23Mt2LwNc891nJTqwvae62uFwE3VUuwtnemCdpQtHaPxSg
DfrQYuaB8yRLTLedVYD63T/bRty0lLus7rGmQgHlU0wPNTtif/2B7c2DCkjf
rrmTORPz+J5z6tldDLwZBwXfBjWUK3QRxCXfhHDpw9lN+Ro6cWjMpbuNpbD+
+RnX1gvID36yL+8vBa9F8cF6mYYqA0UmnJ9vAV8/8XDvcaxbH2BiY26Boadf
n8nvGkq0ic6sSRkUmqqrVoUgmwldnoffhq+y5tBb4zW055VnkZdrJfQMXE1U
jtXQePtr1eLYStD7JGXfG2Epp+eKokFWCY2jp9Wq+1lKolMWiTgUzkdvWtCr
YSkbPo5fXEvB0479OreMpZ7aK9wPN5SQU9GRe1rC0p6+aBN+eDWEJp5Mdopi
qfREdp/iQDXwFq+LfCxi6cT17pIQWTWU5ZcuNAxkKc+gSmTcUg1tx9JrdwJL
nWMTFD+G3AFbif1Hr8kszey3F2aG1MCOBV9kvUntlPvfbRkDO2qhrJ1nfG1m
G81NCJJxh+th1kS3XwNkL+hGX86JHMFjkM9Nk2h1z6jwaHdro+optN9luI6O
TXR3iaI5LLoVnr3NX3lfpKbsweFV6unt8H866PC3
        "]], 
       LineBox[{{-0.3326955782312925, 
        0.4889211587454132}, {-0.26569705331891763`, 
        0.6191468238512388}, {-0.2261854619413709, 
        0.6898042129434864}, {-0.18337176038270195`, 
        0.7610496165139697}, {-0.141337581295972, 
        0.8254716625911643}, {-0.10212374100771163`, 
        0.8805044822512973}, {-0.05960779053832902, 
        0.9345039772330723}, {-0.01991217886741602, 
        0.9794681965048642}, {-0.0006377551020408161, 0.9993635914215913}}], 
       LineBox[CompressedData["
1:eJwV1Hk4VeseB3CzI0OlQWRok1CGOB2Z6usa6iBDKSmRitOEhqukzIqkpEid
SkUc0UAZMiTsbMq499rbkJAhwy1prxWVTnHf/ljPej7P833X+q3h/bJ2H9rk
LyYiIpJGjl9nS0mjnL4hOxyUKe38W0yIOwYL+PmaqZiTpmyY6CxEnFs+92Zr
Khovh7XJuQmxOW2w8bheGnoFGftltwghZG1gL++5BtY+1r1JHyGWmavlX7a7
hQ9GRbERR4V4VbjT7nFCFqIPag3uuibEHwOi6tGe+VjUIFp4+K0QhuVb6ZW5
+bhnLZx1sJ+sv/ywtm8qH56hHRJ+g0LIZjz4445zASITs3s3jgjxw82ze2a8
AIn325arfRKipyBfr8r4CepuGy8/Oi3E7cM+tWueFiE2xvT9AlUaWsKKKQt2
GUIj/K/bu9MIa7Y9PfGxDKf2i+bKbqHRnteo8Ei5HA8LJNW5HjTO+b/RYh0p
x/uY3Zabt9MQdn13ll5SgfroFXYOu2g855hn8sOf4b31x5ThIBrbbzx1DDCv
wlAs22v8LI2iE2jT9q/C4u5Uu+hzNBQ86ne+Ta4CZ1ZuquJ5GjVzOoI3jVah
RuXJgZUXacy3PeV606kaHm6Snzyv0DhVej005ns1uPszfbwzaDjcfd3s4snG
3AWOMqtKyTxnHv3FCWTjTFxJxIUyGtf2xc5YxrIRPj5zYKicxqiBgbHeIzbk
vGzvJVfSOFsalSou8QLiJdYlAjaNl806XqX5L5AwXqw9r5nG+m/HRlnSHGTZ
JkXu76Mx3uUYfU2Vg3rd2T2X+mmkVWqozDbhYLDJ4knpAI3hmFdOP3ZwsFj2
wQvRIRpx8mr57U846A/Ki43+H406zdpjiT51kHB9Gr6aoWHvrCg+WVwPN6cF
8eFiDJJ2ydBTr+ohIavu4ifOoPOYyNvpnnqEzjtb7SDB4MCt8fLfpF5CpDc1
Z44UyX9qOKrq8RKGx7Qik2RI/lLsgO2Xl1BMyPZ0nEPy7RM1l00b4GVU+5qt
yqDw/Yf8q44NyDRXVIpUY/BjeiD9pk8DcuP3iViok+vp8EL/iWuAd4tNx30N
kj/x0Li8vQFTLOu0SE2SV/kro/94I2ZVjXuP6DC4uLMjauXTJnwtzTQrNWYQ
N2aF4aYm2JV6/cfDhEFEaObPGwNNeC4mU8EQB6UEnpRWaMaokpeozioGLvXi
wb1+zVC6frUrzJSBgtHKvecVW9BabMfpsWAg9eyKto1uC1aK7urbbclg+s9/
B7+uaUGaYnfAMPH47jrfPftboLdMpmvUikFL2o7tFtUt8N87JflmLXme6bPO
o4Gt0JglmRdsQ+ZLHJe9FduK1a76vX3EEYs2N7j/3QrDNtXTTrZkPhON9VW1
rThsE6ytasdAp3D7kkZ5LuynSp7n2TO4G3phJnsRFx43B6JnrWOgYV3dG6XF
xZNKuaf7iJWatdNNzbmQVgkJWbKegfSIUDnTjwuNZJ+N4X8yiH2oNRV2iIvk
MLNsLvHMfz06t57konzpuoOaDgy+ijxLk0/mYmKdkksN8YhK/LzQCi6Eek6H
xhwZ7OkvY9zruFjhFL7ldycGb3PGeIY8Li74L3p0grhj1abkd8NchC3NKpkm
rndRk3dT5EFcs0n72wYG8w37Fx5V5eFWyM2Xhs4MfOWzl6Qu46H3uPZcP+Lv
jfqrOi14SFMOSWkgXndfuOa7HQ8VyY7N/xKnnCtar+rKQ7vn2IMVLgz0Hay8
fPfw4Bhb4B1PfEJXxD8mkIcNZT2GhcQc6dqgrBAebo6MZ/cQ+9Q5xYwm8nBC
QJ0xdGWQbOuVe7iIOMZMvpq4W1Oj8PJzHiwU1BT6ifXEBp8VveRhom9OsYgb
A3b1Ae63bh5yxKwmLYln3zHsUhkh99eOSNpKvCOSGbSiebA0HWo+Qjy55uTX
KEkKOxpWI5PYRm2t6N3ZFFazDI+UEif9EJXlKFMolt/p0Ez85g1n/ogWhUdT
rfV9xLoVCeoyhhQ+u8SNMcTB1511V5hR8A6Jfyq+kUFN6FwTZxsKVd2duvOI
Fba1WR7aQEE4GmnNIt5u9rf9JQ8KHMmYaQPif5S8XQt9KcxLf7fbnPjzlyXb
2g5QKFj0MNCW2Lr93e6vwRSODPSpbyA+X3wvQDmSgoHfmePuxK9TA45bJpB5
pe8EbyNeFrwyyjuFwjtTU2Uf4qPuEwmR6RTOezn77SKuMilNycihEPv2/ZY9
xHKKYekvHlO4rT9//Jc9aeQMVVAoetCi/8vZXPHH0nUUrr/SUPy1nsmvL9fj
UtD8KHfLm3jtxcRapy4KutE3uJ7EiUGuLYHvKJz6xM3dRNzpPK/z4jh5XxlP
9JyIlxp09D/+RmGv2Do3G+LDcjc+8MX4yDuZrGZGXPnBZ3JSjo9LwVcv6RPP
atScUVLiY2Kb7wMNYo+84d8sWHzkpAoD5xJnJuQp7ljBR2SSc7so8ad9QaoR
f/Dh/jhsSEi+z1mdL0ZsBz6gvPdbA7FAqtz8nTsfEiYGP4qJWcPhtlI+fCxa
/Oaf28TlWZJbHY/ykSApQQcRS59+5RsQxkdyV0LyZuLNey4cSIrjw1JHvsOM
+CNrQQR1nY/eFta2n+T/NDuVcaQmi4+UaQuzXuIYgYF/wSM+use7GiuJF8av
25DE5mNvyIs5ocS+fRTCm/ios1nI3kycZ77z94B2Pr6sktA1Il47FqLi+J6P
mc+cuX1kv5y1l1Awn+Dj6+e7V0qIqVvJorrTfExFGbckEv+1MXdUUlEA73uH
vE2IL5Z0ldSYC2D2TWryENmvXbP35hXYCrBcX6huRbx0/+f0284CpJc9/ilF
XLpY7kz4LgHs11Ovr5F+6Ita426eIIDVlJL8Q9Ifxk53PhV0CsCer+93lfRR
WJb+4O0BARrfTPe4ENf9LG1PGhPA9sq/cpLE2wt4lQEibXhuH38ukPRbzALx
87q6bYjad1zCiPQhVSnqP+DYBsuyNSXSpC//D6tEruc=
        "]], 
       LineBox[CompressedData["
1:eJwV1Xk8ldkfB3BEImmRNdp+liw1MiWV+hCGirKNGesgRKlsabW0oCiZUrSM
UEm2pGVUUoNkGGtcXPe5G3dSo7jPvYpL/I4/ntfzer/OeZbzPef7/a4IPOQa
LCMlJVVErpl7z1ChXcNvXXBqeR60y45G6OX4+fFpXXjy7tWzShsak7ZZX71v
d+HAw7+Tx7bR0C1qqFN/1wWPx99N9lnTOBxjHHBJjYElXhoLNbfSUFMcrvJY
wYB/YUJv7hYalbcrNJaaMPDO1D7OgHiycWNbiTUDks49+9da0ji9wgGN4QzI
lDVHWGyikd4SpCNXywDnxfpsdXMaBatyeo8f6kaB9KD61tU0ulkLXEMaenDd
1bt1uxaNHWnBPTEdPfCSzfrwQpNG1cYXfmdYPcj+bq9jQpx7bc/+3JEeVFTm
CpU1yPqcn51lavTCdcSpgqFKQ1Lr/eeusF5I+95aF7WQhnZxgfYGRSbmfTK1
+zqH/I/nRL7dYiaedpqpRhNLzXE2dF/KxEhWQMqIPI2BoPH1kWZMeN1gBX6e
TaN0qePuYi8m+KvD9g3L0th6WXhqWTETZ1N4PhrSNMqtfpqz5ikZ9w6wzpOi
sXL4Rrrlayb2tYcpGhPPdrS96fmeCaXLxV7W00K0ymU9uTLBxMM5KqHHvgvh
f8zyg7xjH7RrY7u1JEIYBTV0ffHog7talW/xuBCiXe51XQF9eBL9besW4mTd
8Lw7R/pw43WUQfCYECWtN71xpw/rqsN1678KEfvCYId+WR9UktzUAolx77HF
vOd98Nh8+OL0qBAdx5tU+1r68GAwbTmIx/UmWmMlfagJ/XagXSREzYKUal85
FhY2F+gcJ74wsajUdgELEjnGSV3i5e1GqYv0WbAPZfjF00L8dNLLtsyFhckF
znb2QiEW7P3X7KoPC4mWw7JTI0L0ukStOLmXhZ4VbjnPiMMNUqe2x7FQciEt
ejXx5Y7nlYJCFjTkyjebDQvh88ru/j+PWbi6IsR37IsQeoXtVx9Xs6BL6Z15
Q1wZ9zHqVCcLSncHhj2IT4ceDgjlsPB4MMZaj3inm7Tz7k8syGNtyehnIdir
NFfrSFFwuuLMv0VcqHJviexcChmNtpXRxJFTpor/qVLQSk6pciTe9LFqrH05
hauBAWIDYtlOhw+VxhQKJrWC5Yhbqju7bptTEI9MqgiGhMh64F+XbE1Bn7V7
9jti/8yhigOOFPhePtbFxEYJR/Pcf6HQqbC/8XdicZhsxuZACvlJdQXHiV+5
Z8SvPEDh875HfcHEydA+oHCUQpDH8YNuxM5Ghd4jpyncH9gbZEOspbpuR/dF
CoEVNTXrifunX1tUZ1Ow9HmfbkRc8mmnwb07FJjx/OYVxLFd3aoXyigInlkk
LSG2erNHNvo5BZm8pS/UiRWKh2nPOgo9vaxINeKOqyd4Vq0UFk69fDQzfitR
vs2AScG1SDZh5vmQ/VeqlQUUrE5Ms2feb+qxrHR0mELKvFHGzPclVsU3WRIK
Td9Xh5sT1xpvSK2VY+PJIH3HltjvB/c7wvls+FZ7OrsTj5lFVi3TYsNHrcMl
hPiyeXqXky4b0RYPSmbiY7Kp+MuJNWx4h5sEz8SvfkuDfJEFG6/HCxOKZuJt
LVjes42NwFXhUvXEmQ7L3Nb9wsbacxN2smS/1jhahgcGsNHgEKgys58Nuz2T
MvazEfe37a8z+/3d48qfQwlsyBlVeOYQZ3uVt2mlsrH9evfSJmIzv+aPDpls
JH4oDZcQhwTLa98rZKMI+Y/9yXmTCtNd/76CDfler6dZxDfCrXdJv2LDMmLc
uZ24JfpEom87G6JnOnsdyfkOPZJ9Pa2Pjf7RLZ8uEsuceFrxXMBGkssxjQ7i
DaeHB1QlbJTFxaYEkvzoSFKaspHl4D7V0VY2kz/nDdWjlDkwPJbA+E6cm7Fn
e8tKDspOTRncJfk353Z3afJODurL5X0WkXzNzxfXP/mZA923nlKHiS0LFnL5
v3HQ7BpyhkkcUbpzEWLI/LF+8zIxydeXr2O/3eIg3l7QdJTUj5jXrEt69znQ
nIpn08TKteOFbo84KN+/hT70TYhtjT/2PXzLwZtU3zXRpB4V9dxH6BcO/Mpz
InNIPbNj1f16bYwDqW/tcmsnhBgZHrEIlObC3yzzVT1xqmiea8ZcLgwKJIUT
k0JUS+zPDi3jYsSz9kMaqZf6ClWDdx24qK3gN2yXo0G/W7Mv34kLnXN6JUqk
Plcn5/1325WL5Qq9XR3EHrIpX274cFFm+LdSGKnvSdMu4owILv67t/v4q7mk
vo9+mD6ZzYXHlVlcBRVSv594nTr+Bxd7/eoXzFpM42R0s8zRfC4ibRgN08SL
hRVy0SVciGMXc2ap07AZipsb9oaLFtsLqhuW0Mjnq6j/PMiF3tkj5k66NA7m
JWe7fuaCaXiqJlGPxib/cU1nmovmX56oVerT6KDY2jsnuVALbTEwM6Qh3ftg
pfUCHoyWuPm5r6Hh34o1qy14ePi+pNB9Iw2T9IqHRlt4EFjU/VFP+umYo97a
Vdt4KM3k3bQk/fZSo+K6/znykLozuHYdSDzedm3U9Och9siitR6k/+tU7beT
O8eDX9tClQBXsh5NieTgRR4M2+wLN7nTUIo9V95zmQdxef52TQ/Sz3+4t6Tk
Dx4KGUffCjxpMO+wha6PedgoOW1WFUDjWppLTi6bvJ8zEronivTTQY6b4gAP
OzK2r86IIfG2O6gQ85GHZP1055pYGjHTqTH2Yh4c6i40mJ+g4Rpdt+OLAh9F
SpbzA87SUPbe8G3zej72KdvFv84i/bLybcm9TXxkPzPNsb1B4/ti98D5Vnxk
OLQear1FY6glopm/gw/xJ4bl1zwajduK7pz358M9ckj5fAmNFCMd5+40Pqb+
WqTVUEP6u0TmQRSfzPfzm9UmIvHt7xUlfOBDJuy5O/WVxpt/yrdeHOKjU7rK
eGScRuJtv877X/kwbUg9oS8lwrTti2mWYj9uzFLRYCiJMHUp0sP+x35kLhLS
tgYiTOpxZ2mf7YfzSUluvL8IPvP/3GV4vh9W04eabYNEqBq7eN08vR8rf9ad
vTBUhJNNm39wye6HZaB26ctDIkxEZHkll/Qj1VfZ3itBBMnLXY9GOvsx9FTb
881tEb65vPJ7qzeAlb3jIU4CEU73PqS2Gg8gKE/DBp9EUA7I96k0JeMdXd0W
wyLoR6R4FW8eQKpzppXNuAju6S4ev7sMgDs+fffpPDHKGwVOvnEDiKg7E6pq
IUaYjfKW0c4BlIQ2ufx7WQxxo1TVQeYAzGKTcnuzxUh0FW0a5Awgao6eW1eO
GNkBPRZ9nwZQnRM3LigSoz4hf91fUgJoN0Vxw2vFWFllbnLRRIB/B/3qVb+K
kXnemFriLIDGIyu1tuWj+D+aNZty
        "]], LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAFiF/zY5a5T9uTy8TpS31P2b5NQ+F
ieU/wJySEd1o9T/wvQwD5Y7lPzDHMyHNb/U/BEe66qSZ5T82609Qxn31Py5Z
Fbokr+U/GIRzdRya9T+AfctYJNrlP/CdiBdU1PU/JsY3liMw5j/kle+b0k72
P3BXEBEi3OY/3LfZrRtb9z9iqC+aJeHmP2xB8OBgY/c/VflOIynm5j9gbpxu
rGv3PzqbjTUw8OY/Kvq8i1Z89z8F3wpaPgTnPzrOUWv2nfc/mmYFo1os5z98
EGKxYeL3P8R1+jSTfOc/tj7a5c1v+D8ZlORYBB3oPzRNE1Y5nPk/rlugp/N4
6T/oiupu4nD8P1c9f0jIveo/nNlP7f1i/z+xXm0iOvzrPz6VhSZWQAFA+ApD
A7lV7T9Q6CwjwwkDQFLROzYdmO4/XGDR+03EBEAKOwvBvJ3uP5i9fEIdzARA
waTaS1yj7j9EOGAk7dMEQDB4eWGbru4/0Jj0r47jBEAOH7eMGcXuPyiMVqHY
AgVAyWwy4xXy7j+MZxvFhUEFQEAIKZAOTO8/hEyK0TO/BUD4cfgarlHvP7yR
LrkRxwVAr9vHpU1X7z/YjDPt784FQB6vZruMYu8/yLeEMK3eBUD8VaTmCnnv
P8hlR98q/gVAt6MfPQem7z/8TWq1MD0GQG4N78emq+8/HC1yOxJFBkAmd75S
RrHvP1AOb+bzTAZAlEpdaIW87z8s6myht1wGQHLxmpMD0+8/CI18ZkB8BkAq
W2oeo9jvP4QCMM8ihAZA4cQ5qULe7z9EoCJJBYwGQFCY2L6B6e8/iGfqZsqb
BkAIAqhJIe/vP5ga0gWtowZAv2t31MD07z/wCB6sj6sGQHbVRl9g+u8/aHdX
V3KzBkAuPxbq///vP6yqBwVVuwZAxd9C1Q==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$891920#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, 2 - Sin[1]}, {
        Rational[-2, 3], Rational[19, 27] - Sin[
         Rational[2, 3]]}, {
        Rational[-1, 3], Rational[22, 27] - Sin[
         Rational[1, 3]]}, {0, 1}, {
        Rational[1, 3], Rational[22, 27] + Sin[
          Rational[1, 3]]}, {
        Rational[2, 3], Rational[19, 27] + Sin[
          Rational[2, 3]]}, {
       1, 2 + Sin[1]}}, {{-1, 1.1585290151921035`}, {-0.6666666666666666, 
       0.08533390063396673}, {-0.3333333333333333, 0.48762011801866256`}, {0, 
       1}, {0.3333333333333333, 1.142009511610967}, {0.6666666666666666, 
       1.3220735067734406`}, {1, 2.8414709848078967`}}]]},
  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, 1}, {0., 2.841470755859822}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.7969797236469393`*^9, 3.796979778515458*^9, 3.796981481784433*^9, {
   3.7969828387177677`*^9, 3.796982868229619*^9}, 3.796982980852927*^9, 
   3.796983182894782*^9, 3.797044792426858*^9},
 CellLabel->
  "Out[944]=",ExpressionUUID->"b97c6b6d-3e4b-41ee-9eaa-718b142f513a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"spi", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.796979976911717*^9}, 
   3.796983194154356*^9},
 CellLabel->
  "In[945]:=",ExpressionUUID->"450594be-699f-4961-8b45-b07da11bf2cc"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1lnk81NHXx1FESZJQlqREopBs0ZGIREm27ApZShLShiQpQlJJhbKEsW9Z
qotsZbLMZuwzY2SL7OtMPd/f8/ye7z/f1/t1zz333nM+59y7++I1C3cuDg6O
TE4Ojv/8+V4lnrPMn0Cfp2sOC1ttri33aeDe0j+OhPaqUIpf8ta6xKhMd4eP
IZvov8+fPuGsXU64E4VgFPW2aTqGXF1C6QIDO5Lov9A8fX5ddMkoemui4k98
PIx4D3O9i89pRlb/+w0jz/RFaZucGhR+xTV4/ykmyvatq0aqBBiIdXpbfYKJ
PrTbPK7LJYB2sX3t6WNMFBa158tVGSLMLljx+h5mIulFQn6jIAlcQ02SSiSZ
KIjYKxs0Rga9hMOVR2eH0F/Djesmn3TD30/cy2ZvhpCcH/3BZSMa3FmXe9N/
koHEWxUeZbT/At/XTjwuoww0b1E48pf9Cy4e2vbCbIiB2ncNeKkrjoCJ/d0S
+W4GGonJWNKJGgGx0jOTAw0MNFhfo5FzbBTKLs5dPP2WgfyV7I7zZI7BVJ3O
mb2nGahp+eoRIdvf4BrWvpeSTUcaqTPfPuVNg3V36rH+dDoSkJ0sNkPTYKLq
Z8tMoSP1z7GLxM5pUGMKxswm0hH3rcnE4sVp4DW2mBO4T0fiO46mFMMMFGwh
1xldoCMyt1JGS9sMrKX0OFXx0ZHXpUeRfvRZmF7KDa5dT0duD2683jE7C0zz
OwnN/2jI3tcyppRrDtq4JJrICzSE5961p3rPHHzwcFSapdOQmgXHUyH3OTA+
SFtTqKahCzT9bfPMOXjxZTjprTcNzRoUzb/qngen4OQQDXca0vvJ9T1rbB7k
D591IzjTkIX37usZK/NQnV15iNeKhrhVii2u7FiAgefRTTcA81eeOn/QdgHk
vFXmTYRpSOfoaGgEYQH8lVZTZu8MInFrHZFX1YuwPv2St/z1QbR5rXxddMsi
vBT7ecTJYxBZ4m4E+FIWoWZdGv67+SC6/Sd3Yd0sZt9juJomO4j65l8Jessv
wcvIZ1Zn2wdQOcdkgFzCElQPyvPnyQygRVNZh6cXluGuDmd+stgAyqc6uxW5
LYPu626zxwIDSG/T+dzGa8tQa/EkzmO1HyXUqnM2P1yG5sYJod2EflTrXWMj
W7wMJFzBjpf3+1EfP2esJfcKTN1Ukwuj9aFpopLF2/QVKCLxt/hS+pDa8oay
LfkrcF1l2NMR34eujmgxAitWYH78Ra52ZR8S+HCrfOf3FVhzXFJaiOtDw+6a
ZU2TK8BrUK3mDX0oO1xrBae2CnsE9fQtU3qRVNcc+UflKsQq0297P+9F/Nvq
NIzrVmHZPLw0LKoXKYq8+lrxfRXwzxr25vtj9q7CFpd7ViFg26kNPEa9aPyE
1SHRtVVoErHAf/rTg+Tc19dUaK2Bssbc+jZmD7qbShI5dXwNkm0SdZndPVh9
PJnFG6/BtSRKgWBDD9IudNHLsVkDsZ32z7ySepCpTxWpLGANvCXdrMWP9yC1
Hc5Uibw1IOlyx6mo96C8DIm+7yVrcMwpq9noQA8aCUir9qxag22po5oB23vQ
k8ulUneb1uCz9FXxn2PdqIUhJLM6uAYCe4NoIQndyHqTrICtIAtKFKK8GUNU
xG2UAd88WLCr06XqQDcVqe0ZjEv1YUHMTS3ewDYqCvt8eNLXjwXuDeOZG6qo
yJqZy/x1iwViTmZ0xVgqMqVbO+rEsODeMyHbm5pUNL9zYH94AQvGNSayapWo
6KJ6Z8ezEhZYD3xb4NtDRREujJ7EChYoHwh8/nYzFdU70pQCv7KA0dDVVsfo
QrwCFPfUnywwXn5ryP+0C6l93EhIGWNBeUpgolV4F9J9sFV55DcLZAzPDKXc
7ELjn3WN9kyzYO3ZvzCVi12o52FURdAiCwoOXPxsrdGF+NHNQ9FcbBAnaG9K
U+xCkg1ak9e52RAVvM1ubHcXMpmSjTPlZYNrY8PSHf4u1HbmX2L/ZjYIO8sd
fk+nIM7Dp+CaGBvuc3OEj1MoyPHYn7KFnWyYwlE7DuMpCL/YoOUnyYbm5ce+
TRUUJH0lPPK4DBtuJ/zOmYimIJ6/PfVWB9jwS7NxWe0+BVnMPje+p8SG84Pv
jEKCKCi+L5z39SE2KCqeHRZ0paDM6Yem+YfZMNhYLK2uTkEE86o7p46y4e75
FQNNRQrS/9ozPq/DBjG6npe2DAVtaCEcf3mMDeas9uJjAhSkeqK6svo4G2pV
p/SNfpFRhV28QbQRGxxqj1w+1UdGNyTjr/wyZsOy2b3o0wQysuo3S9UwYYOy
Fz/p7Fcyuq18U/2zKRvSUhXcbV+SkUd2XuaZc2zQUfJ/bBdDRtYtze/sLNhA
ra7Kdwgno0Vq1DeH82wQpBgvuviSUd6MX84JKzbkXYrfecmNjA4LWfjLW7Ph
/+4nMtqqc3Ozjw0WT/7Lj7xOkpHlI54Lb23ZIJVcgPPRIaMd6SGadhfYUC23
2H5VlYxE1R96Ctixwbpcd/6aPBkF2d+crMR4Vv+hmL8UGRUol7ResGdDbAde
J0CYjCLICRtmMFZwEnYN2khGvFeCMkMc2HDxVnrO7UUSYnDWiN1zZMNfnomf
d3+T0KA5ZXES4+RE1dkQBgl1KXsZWzmxQV3mtsh9Kgm5tHdsLcWYUFin/aCN
hBwdvG02OLPBV5fP+WEDCXFtfC5pgfHGVvMHj6pJCM+f7fkc4yzbpI+Pi0go
5g2PbivGJ34NtkZnkZDTn02pKxjTbshNP31LQgUntj+XcsHyy3lNOD6BhDQo
oZLaGIvFVWgmRJEQ50i2vinGZRJ/HRJDSMijcpLHCmPzXMP7LwNISCAO52uJ
8W+Np5lJ3iQ0VQwhJhhHNZK+J7uQkKn3Bm0NjPeel5h6a01CtetcsnZiXEu7
JJRqSkKK+KzmeWw/Dr449ff6JNSyTetDI8bLa7N26ZokJKoUoP0U48TH2qGZ
BzH/V8oTT2OsLBqe/nEvCd1QsCvnwBif8b05ZycJ7UQoLQ+Ll6fq1t84QRLK
jjxhfxbj9bW2ggU8JHR4UH9sFIt3mlmaWhGLiGT2i5+9hbFO74htySwRHWje
/4wDY6rnoXtlo0RkLYUv/U/+AhaD3lcMEBH7hXPNHJZfwYivjZUkImp5dTzP
GeO8rTzj1T+IqCSu/Uk9po9hxReqqIKIPCTdZa5ielIIyZwaxWH+9XuGMjC9
+baX5wq9J6LLls4CBEyPy9cpMh7RRDR+gVbGj+lV59uvgbgwIoqk/zu6E9Pz
feGl5KpAIjIODdKXtMTy/Ul022YXItI/VTS0DquHs7zy7epWRBS+59XjEXMs
Xhc0o11MiGj1mkRj7Vk2SLJs15WpERHP4KltlmZY/I4nz9nxEVGyoWz2X6w+
AxNyCyP+EpBu6/zLuJOY/oeqfQrmCChp+6yRiCGmn8jeIc4BAqINfOHh1sfq
oVWClF1CQHSDhOeeWH9IllCKJ3wkoNme5kPZWlj/uKprynpLQObWNdX9Glg+
BJ0azj4ioFsme0sV1Nhwxyq1bNGegDhYy99NFTE9ZBX6SZ8jINtbYsE6Cli+
lpGiyUkCWv6BtTN5rL6SaRnvlAloKjVJp2MPlr/B3S8MuAko6lPstQqsHzZ5
ZQQmFHSiSL/P2UU8bNhUU6byOb0T6W+3yl6/HtMrf+PkcFInaqa6SJzlZEN3
wbC71oNOJKUnHty8xoLfc/usaTadiIsulXwS6+dbQ3LUD3J2ok1JkZ4PulgQ
WSHfIrjUgewulMrdIrFgderjhbnfHejK2pUhj07s/nDOultJ7UBBi1kXFVqx
++14er1+UQeaY4j8O4fdLxbc787YOHcgiYdLWXLpLJDbsfsnx512tLy30Yf/
MgsEn+yabvRoR+8/nozYeIkFy6uS26It2pGIh50CpzMLWvp2Xtiu0I5ej1xQ
oVqzwDNNeHh/dxvyqP2Qo3SSBblyvGwLjTakyVuifXsPCxTV/yhmzuFRtcna
6yrqGngcDA2t6scj0ramGU/iGqTu20L42YxHfh1TRwTb1kBI9NDNxTd4ZJB/
JfnktzVYWvKtMzLAo3OBbwPP569BfdWU1XhiK7r4cCJsNnQNbHWnQg6p/0AN
1xZNfXetwQODyY6q4GZk4BpBTDVehXrj32fVLjWjej07idfHV4HDbKKtwKwZ
hU7/+xetvQp3rcbw6TLNKObb83wnxVUI8hhueYpvQov/8NqVW1bBM6q/1lW6
CU2lCwzrkVfAFP+ziK+lAR1z/VreZr8C2y0L4i+I1qNpu2EtAdtlKFls3NKy
txqdumctch8WIbN3+OlYRAHa8c19dvLrHDiekyjrvZSIeMKfRmw0nAGO/35S
xSEJ3n//QNXGO+T6wOcQfONw4a34STjC4JS6b1sInpcmIrarjMKe6ZoV7foq
yHJwFk66MASn0rt/nrGtB+H7i09VxvvA0Exo3UJ5MzAr3/SGOJIg1pVvZuV7
M/Cesty7Xo8E1ECOwb/9zeAwwEV5K0MC75Spal6eFridOF/NO0qE2D8//CWs
WyAjb/Nt/A0iUJ89YJxYbIEQEQuDbXEE8KbM1yWo/4AMvZWGHeQOKB2fKHxl
8gOMDd76HKzuANZfxru3Tj9A9UFvkW1qB8TKdd7KivwBvuxhxykvzD44X6Wa
8gMYPMoq0hyY/U6P9/SgVgjjqveyc22DOOeuMOVPeKh8yRzrMGyFyN868AuP
h1rJF+qvtrZCyK0P7DcMPMRYej5/0Y/5fX719gaBn6DsPaRyNOgHnGleFzDg
9hOkDyjMHMz9DgKHlC/HCLWB2wW9mUGJFoj9G2U2erUdzC8fQOkHGyEyempT
yoN2SHrzNegbZyOEiFn+OP+6HfSeb2JIkxvAV3WXEWpoB4lE06gXdxtArtRO
unVzBwQLNnL5tH2DDSPTOz64dYBB2yeFqXv10HxGcrO5UCes1zeUfba5FoQP
0kX8JTrBRTHDzJmCwGVzpnTivk4QC2zK3pqAYLVVUY2q3QnBcZSYro0IFE/p
2Ltc6oRsJT7hac6vEH/CPsevrBOMAxycEnk+Q5/MrtKEr50QtrjH7NT3GtjP
NfS5rKUTpkvwCsExNVBf692x3NcJtlfuUQ2Ea2BB9/ZSGDcB5KMecn/YXw12
mq8Nn1kTwDzg3wjOpxKyRB3PlroQQC9DTkVGvRLmFqUvkL0JIGigwiHKWQkx
5dlXdoQSQNm4wOpe0idAqpXP338kgJ/m118GPytgr1IXvXiZANKDSsP/zpSD
H/+bCSIXEZICGSthu8vhy4TTwgI/EcyV0w48nC8D69xfvNq7iWB7iYdf7G0Z
RMktHqo/RQT5eJXv12ZKYXL39hBCMhE0U2TuyJWXgOad99frMojgUnufXhFf
AuEkJfeiAiJIZy4UtlwpAZFHJ01j64kwavfndcC+Ejj2++ZOk3Ei8DLXDi+k
FkOU4XoBrXkidDzuvJIaWgyElHhO+b+Y/zEPjTbnYvA4lzPKLUQCW46cl9W7
iyGuoqeiTosE0rg7Wyi4IujZcjm36AQJgo+CZ15cEez1mnuXakYCscdBd/kC
iqBSnP/hPVcSyG+W/G17rAhoYbrntR6TIG28bD67pBAUer6flH+O+XN5db8j
vBACDltri74jAc2rl8pnWQi8v3x3LxSRwPyDiWDZSgGonE77U0QlgfLpfc0L
5wrgbobiUCqDBGH8Aa3VCgXQxK6kxP4mgV5k4eSL9QVgV9T55QoHGWoFasrj
a/Ihg8+p2H4jGfweXfcrTsqHqYvjGSbCGMcw/MeD8iF8+7oYeXkyCMo1BH9U
zwe8b1yoqCoZwjwknymK5YNIi/gNHh0yTD/kEsev5kHubTU75lkypLUb5Dt8
y/v/9ytwuk3ziZbnwTEls+P1l8igl6P+wDE+D4iD7vJpNzFWj5omuOaBlNas
eNx9MrjISlZrm+aBZ0LIlpBoMsSLThnXaeRBycTGdVdfYOOW/nKX9+YBy+DV
on0qtl+f3TRFoTw4mbJn3CSHDLTDN9hCnHkQv1TYr1VKhg78IN/OGRzszW1p
EG0mA8f5iR1PSTjwXWdVydOJ2TPvqK4246DSgY5b6MHiE7/R7clnHHBVXE1l
Msmg3CeodawEB6ZbVhOIU9h6ibw6Ijk4eOkZGVm/jMWjzWdJ6D0OaHVCt4u5
KDD9q2xBLRkHCuKpV9P4Mb7vVHc3EQeBAQdc40Qo4Bc9xByPw4HIxj+frXdj
LJ4iciIGWz+1RExKkQIujOGDS49xYHckKGBYnQJhhTkDGzBm/dDqyDtOAfNy
KiUQ4xQX9oEAUwrEP77YcjwaB7BY++ioDQU4ZDXcrsRi+4mOGOK6iI0PnbRf
TMBB+G5j+HEFmx8R7kRLwuLxadObZzcx3t8rdSANB42m7Yu24RRIs9E368rG
gQcjwUL6KTZ/KSd5GDs/b7B1wcgrCihbrq+0/oqD3M07NxZ+wOzFDawPtOLg
dHq/e1A+BQSdHfa5dePgt+b7Ot1K7DwJet2cYziIbXOT5P6G2ccwd3Gv4kDZ
Tf4W/id2vkc6OF/+POhcmSA9p1KgdpeuIkjngbDsjRiZKYyj+ImimB4qqtVH
x5axeIY12e12ywMb89UTxeu6QNr935vEe3mQfOf+GuzoAuWQFoGasjzQ2Wpo
s2FvF7hMn/xwjZAH/Vm8pW0Hu4Dju3Rp/EweSBPivB0NuoDm1iworpYPWfIp
3bevYf76d4q6/cgH46+uR/Rvd0G8e9503Fw+jJ2Xfcb3sAsEm9zalaQKQDE0
zzgpGfMvquFSf7MASsjVn8obu8C8elbhok4hWPqEbLvXga239dRjleuFsMCh
f82gF7M3yw0I/lgImorf9xGnu6DD7USvBn8RfA3vejEtToVpQ6P3myKLwEXs
zcynfVSgbY5Xtc8qAs4CJ7NQFSqIvXI449VcBAbdw+sFjKgQX/ngUf2mYvhx
aP7GAX8qmN+VL/B/VwxdfYIWHi1U4PjpdEx0uARMot2pAQQqtNx833RLoBQ+
a1U7PeijQvb49pVIzVJIe3nJJ20a81cre/dDbCl4mldE9Ih1Q5Qns2tYvwxW
v9l/OuPVDbZf/dr6Wsvhin+RruONbhA8pJi/iaMCBqS5G3zudcNouF/ZmFoF
1N8r6Ih61g0tmQcdytIqIFqDc7y+qhuS3jdMRod9AglcloTGxh4Quzm17oFr
FcReWPtgKNwDyz3Zu5rSqoCD13y/pVQPxG/zZHymVQHTbeXIddUeEOR+fbfp
YjXkS5mexdn1gC3LmH7uWg0cS5i5vwvXA1GbbttG5X4Bl1s6IxtMeyE45XB5
uVUdKLi1kKeseyGi2LH1TkQdzJ2xbCC79gJJUvNLUWkdRO698j79Zi8k+upP
XN5WD3ntb+whvRfSLj27IUithxXZtfagVWz+rVhT/6AGSCBUVQ5n9wFrPYVW
xdsCDl8MP+JL+6CBwqtWZtgCstmdL0q/9oGlGEjuedAClffG/O+T+mCexOPl
/K8FBuR3KEly9IMaH4xZs7+DQmjwe0ubfjANDs/y2oKHbwc0nnzjHgAp18DA
wpMd4HTIMn1mywBU3JuTkvTugGXV65937RwA350+O2ufdoCiNm7qzsEByD33
+1wW9t5KNN51Xs1mAGKU0c+Fy53g4b5BIjN7ABQl+MyKXxKAN7UrP/L0ILQY
KGyRlCTDhw/zTWVWg6BtVSx9wYgMOllbaQznQchNvNaNv471vfzTQhAwCC8b
jkbbY320uwYFLb0dBNOJmlXRQArkUj+C59QgmFTXOUliOt/H93k0w5gGlOzV
kb7OHphtPuj9wYwG5uunJ7S4euFr5PuJVAsaCLX24tpUe8F6/aOpZAca6A0v
ZqYm9sLDf+fm4/1oYKA6eI1u1wfMhZF/d5NowLGtFM3N9MMHxjZRq1EauFbc
1b2cSQPf95FJFpM0SBkNfSJTRwNtl5Ud5rM0sIjY0L7aRwNC/4DEaRYN6jUo
rlzb6cDZnSNzXJAOk+qEDN9IOri0w0ElTTokPbE5/82XAZKffQy5o+gQSeX7
nWzFBOEdq6u+T/9jt6Wn6CYT+IOiiqgJdDh0Smn/+GsmsA5liue9o4NP7FvR
5gEm9KQPzFiU0kFPqu3aAe9heBl9LiVtgA4iG1LoHx/9AgF7jaWjRxjwMnf3
1a/9o8CxypXjz2DAw40Uo67lSXAZ6p4LHWHA1vB9w1q7p6AWX3Ts6W8GiJld
bfxyagrCUp1IHxcZUMzndWP/myn4Z1D9r2/jEJw+NhrxDP7A37jr1kaHhyBO
++Qxa6NpYMnS1klEDIHXIurelz4DS+e+ODXKMkFbVf1OSuw8hHcX9h87wIRx
tYCQ/TnzIOD6waFSmQn9qlqu37/Nwz6/R3a4o0zY7/amz2hlHixjz1k/O8eE
j8JJZnruC1D0Y9jM8R4TzlVoHNp7fBG8TgjoLpCY4KuP/0jjXf7ve2AY3k/6
eIWSVqFXzVlcNmIYHKiOSv7da+BnI7hVpu8XKInbC2Qe5NLbkci0XS85Cvr1
VitSeB69Avu0j3PBYyBKfXfjSTS/no1uqHHLl3FI6iSajVhs1St2uiqjzZoA
a7KMeHq+sF7EmfN3G4J+A8vW6iFBSkTvfwDtpa6F
        "]]},
      Annotation[#, "Charting`Private`Tag$892151#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAXXVWhecw67+88LszFFUNwM9AbwnZ
LOu/yMUP2sVLDcC1a8QFD93qvzBeibi3iwzAOCBuMabX6r+4fHQFQ34MwLrU
F1090uq/EJ4JLsBwDMDAPWu0a8fqv5jpMRKQVQzAyg8SY8ix6r9Qo3omhh4M
wOCzX8CBhuq/KKLsfsutC8AK/Pp69C/qv/jMUu+6wQrAYIwx8NmC6b9w1yfO
LL8IwHq0kobNfem/sEjuvlGvCMCV3PMcwXjpv1hIdF5qnwjAyiy2Sahu6b8I
876pdn8IwDPNOqN2Wum/SPVOcfs+CMAGDkRWEzLpv/CtWcS1uwfArI9WvEzh
6L/47xl67asGwPiSe4i/P+i/eLZFJGlnBMCjDt4ZmOHmv0gj/c8YqP2/nEox
ctOJ5b8grQhSGvPwvxYhf82OWuW/wBQxbtgh7r9jGa54
        "]], 
       LineBox[CompressedData["
1:eJwVlntYjGkfx28KWanIroSUJelAKUnivlEkGyNSTFIhGWoTqqU3SW/KRooS
jUTWpkiOHfklnXhVW6t5npmpaWaKTWcdp/Pe7x/PdV+f63s/1+/4fa5Hz+tX
pyOTEUJx9Pn/eSPaqGE+5wtwlror8R06QHLVnZ+/uRmkT5RvWolrwPoZt2j7
hmYoUj7g0janBnr6nVX8zJsBnbePyNSsBs/zDknPF1KumxcW0lsBJN48d11P
EyDugjNB5XkwnjNF4ZjcBGFNEZfv9bzE55QyggI65OAR3Py/j3PE2O+W+1SP
Fjnoqpt562eLsddKzQTHJqqv6FSetb0eO3BDnhsI5VA0NX/n9fMNWOvFjg5J
CWWdJO1fmhrxS69er+18yv2vN5U7yHHnO5sdS7bLwXQUXDJrv2LPsOolgnQZ
cLpTDIetuvBe4d0NDWkyyNZrHLMP6sIOq/xdm1NkoLH5TaTnqy5s0awR03OD
6hmP6oO0urGKvVOv2gUZ2Lv1coriu3GWet27rftk0GLjTKzDv+ORFJF73nQZ
+PQ6Wdf+0ou7BzOCi5Rl4PpD7dgNn17czDkXXz4hBTJPl28T0YurJi8oq+uX
QoXO8mPWBb34vvcBkx6ZFOw/dNp2L+vD9iukI4b5UkhPtleyG+3DCW++JPF5
UkhdbZkcf20AuwffDl1zRAoGX3lvJ2UOYAPznYdrD0ohuLOsnVM6gPPTc1eq
OFOe2s+LHRrAkuu/l53CUlDZs7wjxmMQL+OZ9TnMkQLnSI/KZQMFDjAZTuk5
1whWHlNTYlKHsHLaIZ7ByUbQ/UFff+z1EE7Uqlzt7t0I7AzfPMfKIVyglPrp
A6cRsn86OSl2iN4X2Q2nLm0E6bZdc+M5wzgxMs55Z7UEXPUD9t9WDOP8RgPV
x4slUJSzesML01EcYjPpyW0tCfj8N2lV68ZRvP6W0DFaTQKjo/v2TNk9iouc
Lsd6DzdA/TfFopbTo7i8tG22Xm0D+Oc/ZA7mjOLPmVnzEi80QLtlccXcNWM4
UeVSfkRQA6imqV+P2zKGXY4c5J7ybYA5eQWXu5zHsEhH4w5nXwOw8pWTXU+P
YVncSd0ZZg1gbBI1S/x0DHcGWSwLk9aDxR3Fs0d64zj7s2qFn6AeCv80dfJe
OY5Pmn3xOfCJ6m7li6atH8d9rQkZ1rn1wBZrbO53GccjBwZN+mProS9SM+Ni
zDhWsc234OF6CGtlh3y6x/HPGmTTnhQx1OscSnVOm8BXTWVnedfF1E9Gxqey
JrCCE/4iLEoMf3VPnuafN4E/xZUseRIghmti+aNp1RP4tOa2aVO3iiFqxOtB
lmICl/3k9CmnSwSpq1a97liMiOmaXuWqZhGYuiT2BS5D5LbLjfXNQhFIQsNF
XUaI/JokyNIoEUEo08PPtkBES5sbdyxJBCjLfNTXDhHewsN7528UQXPX6iXs
IUQ+r58Sa2YpAu0t2mLuUUQ2uD8s32okAu+7kWureYho3m2xOv2jCBy4g+0R
JxEp1PWdX/lNCByF1QrjUET0N6rtaZIIYc/RA3omFxC55vk0ZuhvIZwWTi9c
GIHIkfvfx5a+FcJA2fA/ldGIqC0JlIbGC2FDuY027wYiwbZz5yVcEsKcnfe2
tSQiIj+cuyszRAjKoiu6e28hkvPHcDHjLQTDofESlILI4rLkkQ6uELyvXIxf
n4pIzFcbC+VdQihccm0a7z4iHsvO/2G6TgjP3Ta2xD1E5ONWXckWUyHsH/uy
+0o6IhY+7346sJTGuzf7aHAGItMfKUVFqwtB+l0pYmEWIs8No3jyJhYe525J
SnuJyKIajzwjIQvkyaXwH1/TeEFrVc5UsaCt0ZsZlEPrK2n9Y1oeC291txWq
5iNSy3vfx8liIbLKPA0X0H7O4m++ncbC7Vb7D16FdB7ujjLjqyxk+PbU/vYW
kQhlfdPAiyzc/xz52hcQ+Z4xHgrBLLQ/shPuKkLEfRdTqeLHQnjHinX672g9
g08XOB1i6Xw21bdSXpMSdTzZlYVECCu8W4zIA1vP/GZHFrR2fBPbvkdEo23t
9BWbWZA7hFiLKP8nbrZrkBUL46/WsgdLEGld0/awyIQFj1i9V3WU90re90//
mb7PmNesK0XkfQTfdrcW5Sv+xvGUTY3OXOfPZIH3jCljKfNrHOVfJrOgYnss
Vb2M9jNY32ylgoFu26V5lpQDdSbOB3cwYPhyxqwdlOUlTNU7OQOP4xakO1Pe
eTx74QyWgfAGl1BHyoWzok/sqWQg9eab66spG+R6FtwpZkC1yLFlJuUEd+sf
/slhoGyvSoiAxp88RXOf6RMGarkdO2Ip+2W2/fnbfQb0q0c9rCiLd5UMFN9k
4GO25fMaWp+9gm+neoWBXJS8iUv5VcqZG87hDAy/XT67jvZnsd2OppQgmk+b
XBdTvtqmv6rlBAPukWV+t2h/R+Imwsy8qB77eaSJ9t/Hiq0+68KAYurMCh3K
nyXZOiW/MFDY/uvf2+j8soy8CveuofkovfrTn857fq31jFRjBqrMb/qfeINI
VLDm/m96DJTUpgW70v3wLC0ZPKfKAJ9rs2US3aeq43e2lE5i4KxdxYy3uYhY
zw5MUBsUQPqdUI3jdP/mHFxmfk8mgPYkHpNA9/XCFBTeKhAAskm9pfkCkc5M
9i/zTwI47IiSLzxDpFwR7Vf2WgAaBZi7gu67xV2vN+qPBbB/7iJt38eIpNqt
U913TwB9MgMtPvXH2fj2R22/C0CtuKDmI/XTV6tShcUFAVxmbK98fIDI7sY7
W0MDBeDGVVzKp/4zNt75RcNTQP8nJNbHqV8bS5/pWlrS+6HpieoJiITsHrK1
MhaAf8rqqsJ46gcZOWa9WAB+tYZObtcQ4YxWP9ugJoCyQEcc8DsiRas6N239
Wgefsk9lDYXR/O4aHnFNrAOb1s3SwGOI2JgERO+PqYP27U4Se29E2Py8J27h
dZD7rsJgJv2+aQjsBzz86uDBt477J9yo3p5uV3GwDi4Gx1cGuCDyLzCUsFA=

        "]], 
       LineBox[{{-0.3326955782312925, 
        2.0391376801181837`}, {-0.327543893492381, 
        2.024663233772316}, {-0.30802898349493396`, 
        1.9693578332013548`}, {-0.26569705331891763`, 
        1.8468038577091355`}, {-0.2261854619413709, 
        1.729222114373652}, {-0.18337176038270195`, 
        1.5983336350700512`}, {-0.141337581295972, 
        1.4663068992105135`}, {-0.10212374100771163`, 
        1.3399929377496744`}, {-0.05960779053832902, 
        1.1996115058524237`}, {-0.01991217886741602, 
        1.0653202728685787`}, {-0.0006377551020408161, 0.9989921901289708}}], 
       LineBox[CompressedData["
1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAOwUvp+DlRD8ZKt4MlNPvPzXiAR6B
WK8/UaP9RrQi6T8j8Lv5OsK5Py7sBvQyzuQ/SaPZzU5Ywj/kHwgLkSHgP0VN
EgP1tcc/J/r6bDwf1z+PX9eAMLfMP6HgtXLPQs0/x04dDVAS0T+LcC6/qdW1
P+0hFX7SmtM/wC89zWCMqL84e6FxwaTTP9rxRsdXl6m/gtQtZbCu0z+W192l
SqKqvxaHRkyOwtM/NA6zECS4rL8+7HcaSurTP1WUfc7ScbC/j7batsE51D8I
CQHI8Zy0vzFLoO+w2NQ/Hlv1b6XxvL98pCzjn+LUP0p4zDXfdr2/xv241o7s
1D9IJ+rtFvy9v1qw0b1sANU/1jr5NIAGv7+CFQOMKCjVP0gcMw+djcC/0r0B
ZeJK1T+oHUmsWnbBv/L5n3o=
        "]], LineBox[CompressedData["
1:eJwVlXk4lOsfxqesSaU4lSiTrYW0ytHx851CCRWSOR3RVHQU2UslDBWpVFQU
JZQ1RGmTfKeIMfOWFsPM2Ma+VCJLQs15fn+813t9rvt+7u/9vO97vc/i/b6O
HlNpNNoVcv3/LvySbcXdKwD6lxKToSmv0TM+bFbYBQHYTz0w7KxRjpOWiaMu
dwRQOE0n44+EctTN5VbMqxIAJ2QT7XNEBR4NMth3eW4dsPt/3xpZU4lzlb6V
Oi+uA1ZbBFVyqBKf3Xk4f5FhHUh8nh+JvVOJkzzT93kb64DjsFnORbEKIxdb
A8+7DlIZ9ecS31Wh7tPpyXHBdUAb/23F/VWFb+xqRv+OJGzXECRvyEXF484F
3YlkXknRkvtnuXjpnftCuXKSj4LW6yuqcZX70hPU2zqgQ7rhml3V+OHn59qr
QjLPWae3IaQa1fQCL2r3E7a3eMqsrMYnJet7escIr2njLuurRqb9uEWRTD3Q
843tps3gYVJIxASo1wPHezxrYAcPzWZbMRV06yG1yIs95svDpkzFR++M6oFx
OY434zIP6R8vH3a1JKw28YjF42Hm0hTRSV/CW6wasoz5aF22z3jTSbLewWWj
xnY+9u7Ui5t2luQP66nf8uCjYXie9Y2kemDLiRZWxvHxnZrfvb0ZRA94ZeOb
yUff3LW0JYX1QDvh1qtXwseHgpKnj9+QvjuehLxo5qOTV5hq6Pt6YGn5+yZ9
4+MIbZOvZQPRz0lqo6R8TEiQ40/vInkxsnnsmRT+aVit/2mA6LpNw9GaFIpf
XYxMmiDMPPzg1jIKQ5j2zfvkhcDRzmsoM6ZQ86vqhmWzhcCOTj/Rz6CwLLL+
+oAG4TPbYgxsKWTNTx58qi8E1oJ8pWNOFE4pcNsWvloI9K2vfr3dQ2G6hXbO
ZjOiq5zfv9adQktRp+zMLUJg+CmYZh6msMsnhyVwIP5DphH6fhRGyx4pvbWH
5I9r/VUcROHSpFXz3f8lrPvi4I7jFPJWDgcaBBDuVpIdO0mh95unNd9PCYFm
MUu14BSFM1xCDEqiSb4J96p/KIUFA+bREfFkfoVx1CbC9lFT261vE38fs49O
/N81Ks1Vsok/24ijTPKuFcUk1T8kfulzBflgCtdv2Taa8pLwt58c5UAK6xtV
HA9yhSAJ7v9M96HQ5oKHMOgj6W/ThgWeFJaalridbiTPb0PKkUP7KTTqmdkZ
10XybbRH7F0oTE044JU6IITUYB9nj50UzrF6NlgwTrg8Mi7ThsIzQ8rHX8qK
gGa0N1NtI4We9k/OiOeLgOHm5xpsQN7Xb6XpvdoikOhkSL20KLTL3xv3w5D4
FdNDYudQuFppWoraRhGkGgzTmKN8vPfMVVfHVgR0r61K0i4+zv33Ye7qXWQ9
9+DXT3V8HC93ebr9EOGWnwzZYj56BxT+zzWQ5N30LdqbxsdmulyFV6gI2H75
E92xfHwdWvD+XBzRQyIWhrvzcZ2hDDMxWQSc/HkjseT7zhQzmzIyiC49mllt
wscLJlP6Xj8nfSbPJ1Qp8PF35y6/D+WkT85GQUw/D/2u5Y62vCX7C+J8PV7L
Q6fBnTK/Wgl7zM1rus1DzfuZmiZKYuAU67i90ufhpd0T6VZqYpA4aXj1yfOQ
pmi/zGmRGBiqDQ6MrmrscP9p7L9GDLTPD/MC0qsxf5Hdjvv/iIGuWJE4qFKN
9LepgufuYmAnTwZE9HExPmTEhetD9G2/lpiXc/GYMMWzM5KsV2ZqmQdw0Tx+
MELrPpk36mXxd2UVFjI2Kxo9FgMrtPPL9ptVqP0t6ZIZiiFVe4lfgFcVyttZ
Ju/+RPpwp8oyZlRhjVxi8dUJorM19o1srkTWCbNuBbsG4GR8HODGV+Byd66g
37kB6DHOYSk7K3Bou1OFYF8D0AKP9ISoVmCUrnfa3WDi3+3kuP1KOebVJLvA
3QZgBMqHOoS9xp96EzXHxhuAVTex4oMBB1+rRJe5yjUC25w1bWsJ4sWJOfmW
KoQb+32lCxDpH5afn6PfCBwI80yue4mbT/1jWeDQCIzbHgpX1r/A+I/Pn3Vm
E37uPOl18zHueWmVRT0i/j/oZjObilEv+8P1R2VED59lzFlUjM9CewMiahuB
Fsxy3HnrITYvVV+xkNYEbOn1o960B7g8/HiaE7MJaB1nzjYJ0rDcwOR8uVwz
0HLULHbVJIDbSqe7g7MIc0J0XI8lwdga/1KtBYSlazuX6KaA4Yb7/SFGzeR/
YCsvw0uHa9ZaO9cxCbcmHA3YnwsHPRQ0M7KJ37TDlL/gMSjeqc+Psm0Bdlbm
CzP1ckhPH64s3tUCnOVjZstyysEsc7akbW8L0D4FLug3rQC/fNs5EET0+N5e
mtsbEL3AYz9utQDj3TuxTWEV5AqzwLOf8Hq2rF8oBfrTSnvuWUuA5Y4vpHs+
wfcqo8Pp2yTA2D332dvCT1AWlfb5jiPRLx94ICNXC86y0f1Je4heJrmUVVAL
Z6UOw1f8JJC69ODsGvk66Bjplp66QfSVt3Vv84SQ3qY6b1ePBCQypaeNU5vB
Jy3qhuNXwuoNzVOntMAG1k91++/E7z+w7s/9LfCxqVnTdlIC9oO/Pb/OkcAU
UY72RpVWGOj50C0Vkh41YLTiz1ZYNRjr3eHTBgtLvazkzrWCvYdb/P1XnaCm
Pj7uE9sKqeu+P9nwqxOUj50rFMYTv9NcBQXTLphcmaGRd7sVCk/PWs4s6gLx
3eZBx0etwLr35qTgXjckXHBISW1uBc4XxhabxF6Y6WLy4y/jNlC5GXhRLfcr
Oden5gS0tYFfYUf7dYshYLWLhsK72+C9t8tY5MEh4FCF5rFf2mC+v3LR+Zgh
YN9xq80abQNrh4Wz+mqGQGpZIm1UaifnxXhoj+sw/L7s77xlbTvcWJqu3xE2
ApN6EhnNM+0wFpl1t672B/xweOn2Rq8DrJtj7LLfT8K1GIMmDftO6JkcPB4U
K8P4D20ku8c=
        "]], LineBox[CompressedData["
1:eJwVi31QkwUcx8dLiAjt7XmGQDhADDi4AwKFwPj9gpSRQDAPNsarhBQEOpDQ
60QTRgeoWMJRdpBTC+mmC5WSlwECEkiYvMjk0OyFF7dne9YQMliDoj++973P
fT9f9+zDwoOWDAYDNvJ/89xP3q+VzINK3DU90WOFUhGL7fFkAQr4Bf6vS+zQ
qX5ObO2qgel7i8crSSaGVvB5JR4aWIkdnDzlzcTkYsnkrJcGQoduM4vCmXg+
YSxu4DUNsC6t7vI+wER7B1VkuWBjp4yRqwomrlfW+TFKNEBok73r+CycOxrJ
MI9ooOp4q7v6OguVqfKrS8e0EJyo7r/1AxuDH2032ZzQwnBMPWzuYWOX8Gqs
c4UWCOcom5RBNg7HKBfxrBZ+e/NI0bNJNs6GqMJrL2lht9K1t9fIxq3E9APv
ES3Ymr4MyfDhYPkocyXdhQL7jJAmYQMHbQV1bxe5UWCOY4kXGzl4boDXJNtB
QRs5k1ZzhYONna6RCn8KYv3wLUUrB2+3+J5ZiaIgtDS5pmWEg3pZtFtdAQVY
plj6dI2DojdOCoa7KZCL/g5zyuTik78WmP39FKSdulE1m8PFbGX8o64hCtp5
gpSWfC4W8LflfjdOQYLMrsK9lIvlFt0VDfMUeH4wtzJ+hovKQVNPjoMOCt7T
F/p2cNE6vnSnRboO/Jzjyu44EFhj89RsOqADQXv9q485BDJ799xdztUBo79d
aHQk0DmA3K+R6kC8tSHIzoNAf06b9IFMB61j3ziadxIoUS8qmq7pwHjYKW86
jcAbGYUeYWYdyN9PDDzSTGD290ZXuYUeSorXbCMUBBL2JU42m/Qg+7El37KV
wNKOj1gTbD0I4tZ+OtpBYBhRtZ7nteFPNdmQowT237s8c0Goh4QxVaqTkcCH
wdPnV1v04CctrowJIrHydGptplIP1n2bmvaEkLjrj6fVg7f04JbWGBEeTuIX
5+Y//qxHDxrpAJ8bRWI69fyQz8ONP7lZ8qGQxIWLDvtS/tVDsKBYaSUlccUu
yqojiQapWKWObiaRY3i5vl9Cw1i7Zi3iWxJ9x2c8RzNpuPvnvCzgGokZnxfv
/TWPhtjfhTctb5I4sP1y9UsnaAiYfFHzbjeJtbstWMJmGljPc4McJ0ls4d+X
pypoKOmSi9qmSOyzvBB4sJWGnFTF433TJC4PB+w/1kmDLT/IKv8XEiVJWQ1f
/UyDuc1+LPsZiTsO9b6ie7HBLpqsvSYSIxJPX1/+h4aseP/yajOJ4mBRxDrD
AGmiaKuhdRJrTIZM9hYDWNNaz0ArHho/2XYlhG8AltfqfN8WHqoulvnIog0Q
qobMKRceqstjOs/GGuDrovqyHlceJt7pWip8xwBmcVLlxDYe/gfGr8vT
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$892151#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, -8 + Cos[1]}, {
        Rational[-2, 3], Rational[-8, 9] + Cos[
          Rational[2, 3]]}, {
        Rational[-1, 3], Rational[8, 9] + Cos[
          Rational[1, 3]]}, {0, 1}, {
        Rational[1, 3], Rational[-8, 9] + Cos[
          Rational[1, 3]]}, {
        Rational[2, 3], Rational[8, 9] + Cos[
          Rational[2, 3]]}, {
       1, 8 + Cos[
         1]}}, {{-1, -7.45969769413186}, {-0.6666666666666666, \
-0.1030016281119408}, {-0.3333333333333333, 1.8338458352036264`}, {0, 1}, {
       0.3333333333333333, 0.05606805742584886}, {0.6666666666666666, 
       1.6747761496658369`}, {1, 8.54030230586814}}]]},
  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, 1}, {-3.6665424386720513`, 5.530099948248104}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.796979977634594*^9, 3.796981481893115*^9, 
  3.796983196118567*^9, 3.797044792543667*^9},
 CellLabel->
  "Out[945]=",ExpressionUUID->"67de2ead-762a-4c78-b7b1-29a090a89496"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DDfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"spi", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"DDfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.7969800241129417`*^9}, 
   3.796983212917264*^9},
 CellLabel->
  "In[946]:=",ExpressionUUID->"9d0dc513-33c0-4284-8f72-d1a9f638191c"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw12Hc8Vf//AHCza95zKZWMpFIUUpL9PmgoGflUFKKBPmWUCGWUkS07m4yM
5Npc6/3uIgpZGRkt44NyL5GV+J3P7/v9nn/O4/l4vB+Pc85rnfM+u645Gluz
sbCwcLOysPx7lgNbpzc2mPB+h7VK+W0cd1zZHbiyyoT8jVZp7DY4XlSqIDX/
iwmHf86PG1vh+OH9+tcmvjNhm8DYloXzOH5MwG+wrZ8JLw79XME1cRwfnXuX
QGXCpk2krxwCOG4c0P7yiCUTTsx9OX3LAeCuHX72tvUMqL7rppQjnyb+4QPv
9OurM9CuX6Kce68aLoYctxwT/QHLpgNDKkKV8fLbjZzYyDRM77XvsRRTwq1C
FWY/+kzB728fVPrEH8GXox4GQjAJa7T7kZC5Ap5J/iQc/3UCjv6K7EvYKYcn
n1Fw6gkah0/W1hz+HpHGL/z/MQ59PQQv38GlcR+7q27Sp8egEO2t8GNxKfwh
e76r08w3aMzQ3MJuIIlffdSxpy/3KzTh6NBsmBfDY+vG45NvfYHXE641xwxv
w6s/7+crkPwElT4dZf1YJ4DvpuDa51OHoHoL/JKzyoWXyATe+jY6AN2SjdRG
5P+Az03FEkpKfVB8LZ/hmjUO/nM/vXDPcBpvcW0vGD8YexhW9MCB39fdtv7p
ggJeeUpyrF0wXTe+rktyHh5UYh7Mnm+DFUYV+vFz69BGztubNtIGfdVEorsl
NmCaFNbd3twGvWR3ynw33ICC2+RdF5PaYDWz9Gzlqw24tOTw+tTxNmiXxiwa
OcKC6DTGhemYVsjnd9GCNs2CTDUYXvJK76ByTn3bez025Ht8ppPm1gwNYvd0
Ow5xILruD0PF680w1946woPBgVj0v78v1G+GT0/GU9xZOZHHham2TMlm2FP4
6qLWPk5032a8JaztDXRUDVkmO3Gim4Ej6KrEG+htTA1O5diEzra1F3G3NEJl
ec/scDESCu5sk/craYTf1eyeRsuRUMuH1sL15EZoeWOHaiAgoRMjbwvm7zbC
qISwLvwqCWkymnJHRBrhC086iZlJQoco9enFjg2QL34tEEhxIaHzhRGXttGh
DjBNKhLnRiVSIdUn2OnQ8iRXUsFBbmS0YjumwHwN41P6XBJVuVFw6i5lnubX
MJxRWKt3kRutT8Z8rr7/GvYwncI5wrjRhOdDOdE+BEtCHNQ6lriRg2FkfJ00
hF6Xzf1a6Dwod+HMj1hWCLv88gY23vOgbwkcuMPHepgJdpCkh3jQxTHXf8SD
6uEJjlM/jeZ5EHC/ovRosg4WYT9ZliR5ESXzwAftnFq4fYK6nOTNi0oWm7CW
PdVQ63PnjtNyfCg8P4OuuUKD5X89UEpW4UO3r3i7lLfTIL/ofeqn43xozxvl
oYz7NMgepU5TMONDcbEvX3i2VEFk90OGEsCHHihGahyxq4Q3xQW9Cof4kLaT
+e3U0jK4iRek3HHjR+JSKuJCgWVQjrfJkPqYH/3+KNQVYl4GMyzMr4wE86My
rQ4ld84yqNsR95SUwo+kBLTZzpuUwo6KXVoxiB/xFO1L4P5dDKklTf3hHGSU
PTQeNuVXCK9UzIZyPSKjQY+taSlHCqEq1/gT2hMyIoufKjr37RXUisDXzcLI
6L5VbjcNvIIj/nzWLolkdHL81rbg1ZfQZUBQcLWUjCYZzHSZO3nQwpb67cwY
GYlGSJR8Es+DOZ04dfM0GRkpnGuIas+Fi/cqltuZZFR1r2R8VSYXHs2RZdv2
m4yClp1lWsdfwM9ONoxVCoZk2FZLb5tlwWXW/j08qhi6kinTtJMnC+JavTXT
mhiKOm7W11OVCfkLFTtqdTC0+qR2WW1rJtyrt3jrqD6GWnm9Nfi6nkMd2TQX
N0sMDchwhV8KS4XWKuadJx5jCLf/u+j1dAr0koiT1vTHUC71Xbe0bgqMEClc
3xeEIXfFsG2rbMnwrb+JaGcEhnZoCj5PdEuAvsX5e5zSMGRxTrRs6HoMLHks
de0PDUM/5n+puDRGw+urHkfWazHkEdcByXujoaN2FWUOYih5yKdVayISZprV
MwqaMFTW2t1k2BUObR0OKXt2YugD5UmXT1QYFBLvtSX3YGj+gspI+V+hMKNb
IjOyF0OHv6QtiPQFwfIb4eoOgxiiLtjtnhz0g7ljUyveoxh6ryIhL5LsC9Xu
Mfyfj2OI4dWjamDhAylq5mLl/2DIVNA56yb0hncjzjuUfMfQs+TBmvdannA2
v2Nf8gyG+qS0ehQbH8C47bE/XJkY+kuNzMb61gXuIX15xjlPxLvJWdhW7x78
seWiV+UChjoNhw61t9+BKU+XHM0WMZTUYgQPZ9tCx/EUZ/cVDD36sP+DSIMG
tHyTxkbewFCgQYgTr6h5jeEdtcJ1wn1zPmmUZV3APgxP0Fko6GH0yXe3Fa0A
OeN32ldWClr3ck9Kk7cGfGfUe23YKOjRrQK7HplbYN5gDBsn3CARFJBCcQIm
a5dj29gpyC9O8s6xcGeg+X3Xl6McFHSSr9a0i9cVTDTgh+IJk3wuaN0OcgcB
eaX+84RblhjSnCQPcAne/3KKk4KC7QMF0/y8QOz+J3gs4RdzEZ6ijx8BF65P
2UOEnxSM3J2Cj4GSzwOKyCYKsrWVsalY9wGCNJNHfxHWlXS97KvhB8503v3l
R3j/SIOBkYc/EPne6EglzB1P0RGreQKaD+ozuwlPG1scm14JABFVm5yZhN/x
5x+oVA4CNcUzfzhIFPSyZXGnn2swCFNbD91MONRXZ8u5ihBg6K64S4SwnWYE
l/ivUHAmPLT6X+uvDK9NHwkHrSlsl4QIy5VJz1U6PQUSrVFrJMKBx2qc6KYR
IEFFJXueuN5yzNcf+5cjQBDfT+MBwjd/kmyfPosEx21pnBWEBwzlvv5SigJ7
7UPqQv99vlfnzcz7ooCv1o0H5oRpPA976S7RoJ6Eq+8lnC4r1EOVjAGfVNX/
/vpvvIyonckdMWC5TcDy33ja3zv9PsgjFvR31IhpET4fN9p6XzoOnL5wNHuM
yIcazfPt9b44IOHo/subsOTwtmYj32fgiLwveTPh2V1n6TIj8cBnqidRgsh3
//EJuC04AQSQBMhJRD3U2z6q4ziWCM5vZjnDTzjkVVnVp4gksFX9i8hHor6c
Og0qWjWSwZpHc/Fhwqbzk6VV08lA9J8ECS6iHqVUxKhRx1NBdbSGgegahvjM
Kwu851KBcxK9PmyV6Eevc/l2qWmAJ80cMZYxZPWNbrzbIx0MyuTe9/5F9O/8
066E7nRA+33iAJXol1OcFkYU6eeg+VLXnfdzGJLbv6T/p/c5MDIMKhwi+i1D
pbHt3sEMMCqf8eIt0Y9CepF60z4ZoEf+sXzOFIbW7A+c7pfPBGkSt+YPEf38
ttTyeHFQFtjZ3qPtPYQh9aaDDfu+ZAEHKjeaGsBQUd+KVqpSNrgxUNGu04eh
uJVoEDKaDXZHGya+IebLDdCiaq2RA4TpNkubiPkzYBRLG4rOAdpM7aWZ1xjS
u3ZN2Xg6B5SGnwporCfmjf/aUfAsF2TXZJjgVRjaeHdIQXguD7xZCK1yyseQ
0/Af6tNT+SBzMF657wWGJmbeyW1KzQdG1710pTMx1EaxPjh/5iVYXCzclpqE
ocSLCfvaswqA1tUoJ3oIho5+YxV/bEoFeywaBRZvEvGpNpk7lEcFqrwfrmXc
IPIR9arxywoV8PbnX8OtMMT7vOBoun4RWGsOczhnQsTHyHR4g1EEzm45XdF8
HEMjRVRpqFACNjfFrnOIYWgw+fLmbZdLgLqniXLbNmLeBHL+cfApARIWVhL+
gsS8tDLrFO8pAdkJ+363kjBUTyG5ejmXgocKBYOv5sgo7c6VRo3KMjAb/FSV
TiejZHPuwtjPZSA5juNCVi0ZxeuWPZshlYOD33ExtwoyipDguZ1iWg5oD5gV
C3lk9KizXODPSjkoDjlO1o4go6uH+C1r1SuBQkTXCdnLZLR7tmZFlU4DdR9j
00+M8iOPdh2/hRkaWNwys6V0kB/15beSC4WrASt7WDnWzY+CrYd277pbDZTN
vR7GEe/z2cFVfZJEDaC38wgPJvOj+iaVjB7PWsCVNBWpYsyPLidVnrFTgSBU
Ex25VMSHytxA715rCMa2PxEryOZD5IvNlp8jIEjeZ3SYkciHXlP6nY0nIfho
2TIM/PnQFp2Hhsl6xGdQpayi8CU+9LAq0d1nFYGaxNnRzD+86HTmx3YDUzrA
OwJYhFV50ax/oU2TPR1IjHlvD5PlRfE3fTfUfOnAoX7/4qwEL5qUlVWQLqSD
98E2bIEkXhRY9SiGnaMBCHIEWMz38KCW9n1mVdQGsKzHshX+zYNOLbtM7iI1
gQepJH2ZIG50Ql+Q/Vd5M4jrGK7Tf0ZC4Ve551beNgOvm3EuXQEkNODC8nl9
pBn8qBbnP+VGQrdSGdVcm1qAGPIYIl0i1jPfOYlebAFP6HELn4WJ9ZG+33QW
WwC2M0BgOn4TutW38DpK6R3wPBWErEM50VPL/keHKtvApnqrEyu67OjJD3Uw
0dYGfB1oY6aK7MjLPeNP0rc2EIa4xnN2siOHaPsHJHI72PjrBteWRTZk0Mzu
/OlGO4iJXx/Yk8GGyPKHbEMF34NXw2oJ+5dYUfh6oP6kfQe4Pt9xriqGBTUb
iPEbCXYBk652rhm133Bml5BXd2IPuCLSaHU5bAb+dz8C7lrg4jyKH6CL84Gr
T7f2ASOevF5GTR7sH6YY27QMgBy/UUOW87PAyl39H9LZIbDhiq2wCrHiDQeO
BTdwfgKyQ+pWznReXIq7djJL9wtYlR99Nn1xMy5We/sEZ+BXIKscGbFvtzDO
ssqW5/TtG8BFZJtoP3biS+fqrjTtHQO53f7H91js/t9+DYjY6Oeeb5bChxQt
Rfb6jYMc/obduw324XdMKAKSwxPApGA7mnI4gAvHjJlyiE0C7nsyq32+8nih
WXrOvNsU8Ow1MCjafhg30fDWbambBjvmdO+x2ijixVfsJVXXvgOv95To/Y1K
+DKPDjvtwgzQhAUtmS4quHGXmpJYPAOk5PyuntyqjvOo8b6uTWGAwvgrcZOS
6vjrrEE980wGkBi9Vjwtp44fcnO/mlTIALKVxi9+nVTHyTsrQ4WbGOBF+XiI
lKs6/tbu8KjQTwZQOxxycqFfHce5pCPIZ5lgR89lb5CkgS/fXd5ReI4JZgfv
GgXkaODUoeZsfRMmUHPSudpVqoGLU21qQq8xwd83hbXt2jTwtQtZEzzuTBC5
/QVL3R8NvDJzpwbpBRPQuZh331lp4g78zOYXL5mgPpIXKNlr4lKu9cYni5kg
Y4mhl+WuicecsbjpX8sERjb8ewOiNHGnucRo9h4miBKu/2DbqInLmN0Szxxg
ArNeqfTxTk38a6NKnvYnJpB/bP7SekQTN4ofqH88xQQVhQqP7RY1cS623NO7
mExQU9KtN88GcHjb9QNaYALXlzoXPTCA3+89aWm1ygSxl/zTSaIA/+//B+Dn
GS8Tux/g/wdWpTU0
        "]]},
      Annotation[#, "Charting`Private`Tag$892756#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAALj8W6v//778AAACKIS7FPm/5I4j5
+u+/AJwB8sNtoz+wszEm8/XvvwCGvpWZbbM/MihNYubr778A+5xnhG3DPzcR
hNrM1++/ADaM0Hlt0z9A4/HKma/vv0DTA4V0beM/UofNqzNf778Aoj/fcW3z
P3fPhG1nvu6/QIldjHBtA0DU1AvqwWHtvxhxzzObPhRAHcBvFDcc7L/AmkRD
1xMeQLVrxAUP3eq/TN8eQtnbI0BgjDHw2YLpv0zrDItcFilA+JJ7iL8/6L/g
NeVkjPctQKMO3hmY4ea/Rn2X86igMUCSWz8HOdzmv8qUzR0LqzFAgqig9NnW
5r9OrANIbbUxQGJCY88bzOa/VNtvnDHKMUAiduiEn7bmv2I5SEW68zFAot3y
76aL5r989fiWy0YyQKCsB8a1Nea/tm1aOu7sMkCQ+WizVjDmvziFkGRQ9zJA
gEbKoPcq5r+8nMaOsgEzQGDgjHs5IOa/wssy43YWM0AfFBIxvQrmv9IpC4z/
PzNAnnscnMTf5b/u5bvdEJMzQI7IfYll2uW/cv3xB3OdM0B+Fd92BtXlv/QU
KDLVpzNAXq+hUUjK5b/8Q5SGmbwzQB3jJgfMtOW/CqJsLyLmM0CcSjFy04nl
vyheHYEzOTRAJAtKytCE5b8mSnUE40I0QKvLYiLOf+W/KDbNh5JMNEC6TJTS
yHXlvyoOfY7xXzRAQg2tKsZw5b8q+tQRoWk0QMrNxYLDa+W/KuYslVBzNEDZ
TvcyvmHlvyy+3JuvhjRAYA8Qi7tc5b8uqjQfX5A0QBYhf82OWuW/+GSZXJOU
NEA86Tlg
        "]], LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAlIkr3RtQ5b+0NIDcM5M0QIARc+uw
SOW/SB0z7+mCNEAH0otDrkPlv5Sek1PpdzRAFlO986g55b8qoVQc6GE0QJ4T
1kumNOW/eCK1gOdWNEAl1O6joy/lv8KjFeXmSzRANFUgVJ4l5b9aptat5TU0
QFJXg7STEeW/iKtYP+MJNECPW0l1funkv+i1XGLesTNAFhxizXvk5L8yN73G
3aYzQJ7ceiV53+S/frgdK92bM0CuXazVc9Xkvxi73vPbhTNAzF8PNmnB5L9G
wGCF2VkzQAhk1fZTmeS/pMpkqNQBM0CCbGF4KUnkv2LfbO7KUTJA3o5enLpD
5L/wq5633EUyQDqxW8BLPuS/gHjQgO45MkDy9VUIbjPkv5wRNBMSIjJAYX9K
mLId5L/WQ/s3WfIxQECSM7g78uO/SKiJgeeSMUD+twX4TZvjvzBxphQE1DBA
ewOqd3Lt4r/8BcB1eqwuQGGAzyTWqOG/qJWDXdcaKUCVveWYnGrgv7DgEfI/
pSNAut8oDKwi3r8YmovetXEbQCMQQEJUntu/rAOudtxjEECyKohq4uPYv3C/
boCfofE/H9FguSvZ2L+g8Z6saeXwP4x3OQh1zti/0CPP2DMp8D9lxOqlB7nY
v2AQX2KQYe0/GF5N4SyO2L/goeDD4X/nP32RElh3ONi/gInHDQl51z9I+JxF
DI3Xv8DqK+ZrlNe/tZ51lFWC178AIms1Q4XavyJFTuOed9e/AFmqhBp23b/7
kf+AMWLXv+BjlJHkq+G/ritivFY3179g0hIwk43nvxRfJzOh4da/oNeHNnio
8b/fxbEgNjbWv7C0hHPVa/2/fFP5RDgs1r9g2Xg9XBv+vxjhQGk6Ita/MP5s
B+PK/r9Q/M+xPg7Wv9ijqk34FADAwDLuQkfm1b9g7ZLhBXQBwFzANWdJ3NW/
yP+MRsnLAcD4TX2LS9LVvygSh6uMIwLAMGkM1E++1b/oNnt1E9MCwKCfKmVY
ltW/cIBjCSEyBMA8LXKJWozVv9iSXW7kiQTA2Lq5rVyC1b84pVfTp+EEwHRI
AdJeeNW/mLdROGs5BcAQ1kj2YG7Vv/jJS50ukQXArGOQGmNk1b9g3EUC8ugF
wNjsqEXIX9W/oEJ9e2QRBsBLHb9f
        "]], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA0r0BZeJK1b/yNwaMwG8GwB6arqtr
PNW/Gr7tg1JzBsC6J/bPbTLVv+A5iOPJdQbA8kKFGHIe1b9tMb2iuHoGwGJ5
o6l69tS/hyAnIZaEBsD+BuvNfOzUv06cwYANhwbAmpQy8n7i1L8UGFzghIkG
wNKvwTqDztS/oQ+Rn3OOBsBD5t/Li6bUv7v++h1RmAbAJFMc7pxW1L/v3M4a
DKwGwOUslTK/ttO/WJl2FILTBsAqfqXu6KvTv3dh4N4u1gbAbs+1qhKh07+W
KUqp29gGwPhx1iJmi9O/1bkdPjXeBsAKtxcTDWDTv1PaxGfo6AbAMEGa81oJ
079OGxO7Tv4GwHtVn7T2W9K/RZ2vYRspB8ARfqk2LgHRvzOh6K60fgfALDbv
LKXzzL+HXLZdfx4IwINE7dC5eMe/Fi5XwKTLCMAVVK6QWRfCv18pJhejdQnA
svbFD8gkur8g2FCCORQKwKXb5Y3phK6/HJ1OoSrACsDafBafnTOuv/4CHMas
wgrADh5HsFHirb/gaOnqLsUKwHZgqNK5P62/ozSENDPKCsBG5WoXivqrvyvM
ucc71ArA6O7voCpwqb85+yTuTOgKwCoC+rNrW6S/Vln7Om8QC8BeoyrFHwqk
vzi/yF/xEgvAkkRb1tO4o78aJZaEcxULwPqGvPg7FqO/3vAwzncaC8DLC389
DNGhv2WIZmGAJAvA2CoIjlmNnr90t9GHkTgLwF1RHLTbY5S/kRWo1LNgC8Ds
8/U5dcSTvxo0Rl0pYwvAfJbPvw4lk7+iUuTlnmULwJzbgstB5pG/tI8g94lq
C8C0y9LFT9GOv9cJmRlgdAvAr/RsI+jahL8c/oleDIgLwM45IC8bnIO/pRwo
54GKC8DuftM6Tl2Cvy47xm/3jAvAWBJ0pGi/f78/eAKB4pELwFM7DgIByXW/
YvJ6o7ibC8CSxXQZZ0tzv+sQGSwungvA0E/bMM3NcL90L7e0o6ALwJvIUL8y
pWe/hWzzxY6lC8AY3R3u/qlivw6LkU4EqAvAK+PVOZZdW7+WqS/XeaoLwCYM
cJcuZ1G/H8jNX++sC8A5BS+n4OVEvyB2v82mrgvA5/KmYw==
        "]], 
       LineBox[CompressedData["
1:eJwV0X1Q03UcB3CMw+j7lbLJQ0oaW0Cwg4gJyTjw0zXGKeicaIaQgChwI0og
HRCwAYE7To4HwRUF8bREVB4NhMjz66hYPIi/3/YTREHAEFswJVoEXNivP973
vtef73tzY0+Fxb1gYWHhz+b/Flp5NU7NBkGJuKN3sA2TzPLggY99YkAebdkz
3YrJuiLjmxqvOLAV4dI01jmJV5P0/ETocN2SYMO6z6lQVb05FZ4u8OyELZjk
q3nJu4pPQzHFn7/djEnwph/DKZwGHp2CvpOsdcsmd6sXs0CW9X5K6VVMEhL4
8V3reTCDYofnLmOyh5cW8UVgPuSaZJps1m4TfRJpVgG8QadkbmFtDDu2y7ii
go8qc92hCZOk3aXWO8xFwLxVV6BuxKQHZTLaM+WgC5oKFGswqfW007fyKkBZ
OcOhGzA5K229UzVSAe+afpuLYn1Y/WhQ7q6Ghi9/L0uvx+QZd5+WP/EVKIx/
zl6pxcRVuL31fNC34FNqVcypxuTXa9FB7YUaqLnPn3x4ARPfmQ07csNbQZ56
RvG5CpM3n/Wu+Gt7QCaxdK5KwmRvw71hSbgWUpI992QfwES8n2Np7uyHFt3Z
/McCTEqiR3PeuT4EgpExl4DXMOmXbLeRcigYcOwXH1xDxPbtafvU1ynouj4e
OruKSIzNd04VrhTUHTIdzGC9OujhM+ZPQfo5u6i6FUQ89gZExpygwHXthHxx
GZFSUWRT8vcU5I1bNJb9hUiEX6W47AgN/pX+1vQCIhcdjh24FkODi6/k5XjW
S387HWUSaXiVOm67Oo9IUeelpK1KGp5YFzrxWN8UdJfXNdJwIX3UL9WIiLPn
6HT7PzQsfnhaxplDZIFrp6C/1kOTfctA2BQifpl1Kbc0evjkFG/xyUNE8gye
cW0tevDWqR2UrO1VwfuKtXr4IUN58sokIrvn07aFGPUw+EC6bjmBSEnXeNct
oQFM9UvenfcQGX8l4XKbyAAdawnhoaydZUvVNfsNID/8QDE9hki346aC7OMG
eG7186AN66mcwEPCQgNslqnj4u8i4h1a+7RtzAA7vYSVDnpEsjQej2pmDLCs
ar7ZTCPyy7/dd4vnDdA7xX0sYh3RRt1IsmAg6DzamUwhonkpqj0SMWD9h+Lo
RtamWKMmxJaBYdGSsuoOu8/OssjNjYEPzPeHdCOIDH1aonQQMLBNIl2KYm2v
c/xsYwADkxd/2mq+zf7JvRRvFjNQ/9zvvXOs6Rsb4mZCGPBVu/QdYf0fe7XJ
Tg==
        "]], LineBox[CompressedData["
1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAA2OyoRchf1T84Wa8ppXYKwIiG2TSx
bdU/OBKxAnwCCsDT32UooHfVP3BQUfmHrwnAHjnyG4+B1T+ojvHvk1wJwGiS
fg9+i9U/6MyR5p8JCcD8RJf2W5/VP2hJ0tO3YwjAJKrIxBfH1T9oQlOu5xcH
wHV0K2GPFtY/aDRVY0eABMAWCu+8ViHWPzBsByZEJgTAuJ+yGB4s1j/wo7no
QMwDwPzKOdCsQdY/eBMebjoYA8CCIUg/ymzWP5jy5ngtsAHAjs5kHQXD1j+g
YfEcJ8D9v6Yontl6b9c/gFo4c79/8r/X3BBSZsjYP0DP5oA/BNA/YHk85wdM
2z8Qpcr9dP8GQMMrN4rDBd4/KAd9gxfhFkAmCbzopEjgPxxNmbLBwCBAHbxr
RQWI4T+k2MisTfYlQAD6Aqly4uI/rMvY5cycK0Bg49nzf+fiPzRHdwDlsStA
wMywPo3s4j/AwhUb/cYrQICfXtSn9uI/1LlSUC3xK0D/RLr/3ArjP/SnzLqN
RSxA/o9xVkcz4z88hMCPTu4sQPwl4AMchOM/0DyoOdA/LkBcD7dOKYnjP1i4
RlToVC5AvPiNmTaO4z/kM+VuAGouQHzLOy9RmOM/9CoipDCULkD7cJdahqzj
PxgZnA6R6C5A+rtOsfDU4z9g9Y/jUZEvQPdRvV7FJeQ/+Na7xmlxMECC2a/d
PivkP4rViLrXfDBADmGiXLgw5D8e1FWuRYgwQCZwh1qrO+Q/SNHvlSGfMEBU
jlFWkVHkP5TLI2XZzDBAsMrlTV195D8wwIsDSSgxQDxS2MzWguQ/xL5Y97Yz
MUDH2cpLUIjkP1i9JeskPzFA3uivSUOT5D9+ur/SAFYxQAwHekUpqeQ/zLTz
obiDMUBpQw499dTkP2qpW0Ao3zFA9MoAvG7a5D/8pyg0luoxQIBS8zro3+Q/
kKb1JwT2MUCYYdg42+rkP7qjjw/gDDJAxn+iNMEA5T8InsPelzoyQFIHlbM6
BuU/nJyQ0gVGMkDdjocytAvlPy6bXcZzUTJA9J1sMKcW5T9UmPetT2gyQCK8
NiyNLOU/opIrfQeWMkCuQymrBjLlPziR+HB1oTJAOcsbKoA35T/Kj8Vk46wy
QMRSDqn5POU/XI6SWFG4MkBQ2gAoc0LlP/CMX0y/wzJA3GHzpuxH5T+EiyxA
Lc8yQGfp5SVmTeU/GIr5M5vaMkCUiSvdG1DlP/rUh39D4DJApWK9jg==
        "]], 
       LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAFiF/zY5a5T8wX1+d5+EyQAqAvaLS
XeU/woOtKR3cMkCVB7AhTGPlP5onR3Bn0jJArBaVHz9u5T9Eb3r9+74yQNs0
XxslhOU/mv7gFyWYMkBm+TUPhYnlPyoOY6ycjjJA8L0MA+WO5T+8HeVAFIUy
QARHuuqkmeU/3jzpaQNyMkAuWRW6JK/lPyB78bvhSzJAgH3LWCTa5T+m9wFg
nv8xQCbGN5YjMOY/svAiqBdnMUBwVxARItzmP8riZDgKNjBAGZTkWAQd6D8o
MNCB0/krQK5boKfzeOk/6O56z50nJ0BXPX9IyL3qP9hPJO1cpyJAsV5tIjr8
6z+YHAf+hXscQPgKQwO5Ve0/4EEOm2joEkBS0Ts2HZjuPxBXJbBp8gNACjsL
wbyd7j9QdEAOoKIDQMGk2ktco+4/oJFbbNZSA0AweHlhm67uPzDMkShDswJA
Dh+3jBnF7j9gQf6gHHQBQMlsMuMV8u4/YFeuI5/r/T9ACCmQDkzvP6AAEudq
8vM/+HH4Gq5R7z8gO0ij11LzP6/bx6VNV+8/wHV+X0Sz8j8er2a7jGLvPwDr
6tcddPE//FWk5gp57z+AqoeRoevtP7ejHz0Hpu8/wFPrVG3y4z9uDe/Hpqvv
PwDJV81Gs+I/Jne+Ukax7z9APsRFIHThP5RKXWiFvO8/gFE6babr3T9y8ZqT
A9PvP4D6nTBy8tM/KltqHqPY7z+A5HYhJXTRP+HEOalC3u8/AJ6fJLDrzT9Q
mNi+genvPwBHA+h78sM/CAKoSSHv7z8ANmqTw+u9P79rd9TA9O8/AODNVo/y
sz921UZfYPrvPwAUYzS28qM/Lj8W6v//7z8AAACaym7DPgMqNR4=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$892756#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, 32 + Sin[1]}, {
        Rational[-2, 3], 12 + Sin[
          Rational[2, 3]]}, {
        Rational[-1, 3], 
        Sin[
         Rational[1, 3]]}, {0, -4}, {
        Rational[1, 3], -Sin[
          Rational[1, 3]]}, {
        Rational[2, 3], 12 - Sin[
         Rational[2, 3]]}, {
       1, 32 - Sin[1]}}, {{-1, 32.8414709848079}, {-0.6666666666666666, 
       12.618369803069736`}, {-0.3333333333333333, 0.3271946967961522}, {
       0, -4}, {0.3333333333333333, -0.3271946967961522}, {0.6666666666666666,
        11.381630196930264`}, {1, 31.158529015192105`}}]]},
  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",
 CellChangeTimes->{{3.796980013303794*^9, 3.796980024608881*^9}, 
   3.796981482175806*^9, 3.796983213561056*^9, 3.797044792771833*^9},
 CellLabel->
  "Out[946]=",ExpressionUUID->"2dd5c320-41ba-4a96-b613-d0b206e5b134"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"05244c5c-63a1-4452-9564-ebb0f572d2ba"],

Cell[CellGroupData[{

Cell["Slide", "Section",ExpressionUUID->"173eab03-2897-4e4c-858e-39fa20aa8412"],

Cell[CellGroupData[{

Cell["Case 2", "Subsection",
 CellChangeTimes->{{3.796980138863452*^9, 
  3.7969801487661257`*^9}},ExpressionUUID->"8ed53e0a-fd15-4ff0-85f3-\
60f1db446514"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"4", "x"}], "]"}], 
      RowBox[{"Exp", "[", 
       RowBox[{"2", "x"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DDfun", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fun", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7658557248153553`*^9, 3.76585576852527*^9}, {
  3.765856099747439*^9, 3.7658561087971697`*^9}, {3.7658562304187613`*^9, 
  3.76585623308319*^9}, {3.765856294001314*^9, 3.7658563460351543`*^9}, {
  3.7658564173660383`*^9, 3.765856423194186*^9}, {3.796980156803133*^9, 
  3.7969801642035303`*^9}},
 CellLabel->
  "In[947]:=",ExpressionUUID->"a5fd1e30-421d-452f-b422-ff608b0111bd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9, 
   3.796983311858569*^9, 3.7969833582040787`*^9},
 CellLabel->
  "In[950]:=",ExpressionUUID->"a96b594a-281a-4e65-bb60-aa5fde589f3b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["1", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796980178336795*^9, 
   3.796981482238153*^9, 3.7969832477034388`*^9, 3.796983314866766*^9, 
   3.7969833606244783`*^9, 3.797044792896101*^9},
 CellLabel->
  "Out[950]=",ExpressionUUID->"2dc3ec8f-67fe-4c99-8152-0823ab7cd623"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
   3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
   3.79697916819952*^9}, 3.796983225037609*^9},
 CellLabel->
  "In[951]:=",ExpressionUUID->"e5462ecd-5fe0-4b71-8d10-256c4e69e7a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spi", "=", 
  RowBox[{"SplineInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}, {
  3.796983228341957*^9, 3.796983235491555*^9}},
 CellLabel->
  "In[952]:=",ExpressionUUID->"22bb4649-3fb4-427d-809d-c66340f69664"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"0.9926519687917084`", "\[VeryThinSpace]", "+", 
         RowBox[{"3.8432452360529816`", " ", "x"}], "+", 
         RowBox[{"4.143198334043837`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"1.3810661113479457`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["1", "3"]}]}]},
       {
        RowBox[{"0.701769537285298`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.22530335249529`", " ", "x"}], "-", 
         RowBox[{"3.7106273166292354`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"6.472759539325127`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["1", "3"]}]},
       {
        RowBox[{"0.273456464422249`", "\[VeryThinSpace]", "+", 
         RowBox[{"5.080121008262729`", " ", "x"}], "-", 
         RowBox[{"15.275080283931544`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"5.091693427977181`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         FractionBox["1", "3"], "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.796980178440361*^9, 3.796981482395235*^9, {3.796983237376033*^9, 
   3.796983247776485*^9}, 3.796983314916958*^9, 3.7969833606366367`*^9, 
   3.7970447929413567`*^9},
 CellLabel->
  "Out[952]=",ExpressionUUID->"bdbfac7f-b332-4ef7-b8da-dfc25ecc2e87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "spi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
   3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
   3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}, 
   3.79698324307971*^9},
 CellLabel->
  "In[953]:=",ExpressionUUID->"bf4152f5-b360-4af9-98d2-54016452e3fb"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mnk4lG/0/6VC9m0qQrZKRdlSWTpSCUWFKLKGjzZpVZSElBSF7KEkylpk
C/dj32bsW5ZsM2OYGWMsZYvv8/td3+/8MXO9rut+nvs+57zP+zzPdY2c801z
V04ODg5t/Ov//e6DzZNrayy0uVrrrnNqAbq5qPBicYmFslI3Si+WFqDcPLWd
s/MsVL/ewCmiswCpK5k6U+ksRA/1jGpfX4gOigT2EXtYaM+G+a/ezoVIf4zd
GJvDQvsCZqWvyBYh8+ekDA0HFlJ8TEnxTixGXi2BN/4rn0I1VmGN6h9KUWcn
32SFExNdYi7bPo6uQNLYTfGDUgxU6cglOx9RjX5cq94oNDiJ7pEzmkfN69Ah
WQ+1zz2TyKz/uJC2fR0q6dxip9c+iR578iSGXKlDmN61/Gt1k+ilb8Ejab86
1Cgkern+2yQaUvSUWs6sQ8N5DtjToEk0MexeF7mxHvGuLHnP7Z9EN5Uuyy58
q0eOr9Smf/lPoNFBJ9ed8w3IOz88iPR4AvEVLnNIrjagdwOzUhUPJpDyNM9Z
Lu5G1KhcYJzuMYEmfh0h129tRBok7ZT7NhNIrHWKOqfTiLgEj1uJqU+gi3F3
7Yb9GlFmmFXp6REaqmjZPVm9oQnVFhaa6w/Q0MRCmH4ZfxMaGdo6odFDQ8MN
lYpZ4k1os2o/YRuJhjQOO926o9iEnrQ63JwooiEtysTm2GNNyFzkinzQGxpK
vaV7Rd+vCS2E+7xAQEMSZ1delc00oXGpiklDbRpSzo37uWupCXV/5jJt1qSh
Yl2990HriCiv5K3I4G4aStKwMpYXJiKP0bS4JTEaohNmZlqUiWhMrTPzAG0c
BTRm/128TETtPyWEykbH0Y91FZlfrhIRdsLh1vHBcYRtOmlheouIEi9OHrBo
H0eGvpLHPX2J6MJTDuRZOo7qt4Q5KsQQUXOrclvGm3E0PPP4t0YDEZXa3NbQ
CBlH/zLF/0q1EFEGufBdybNxVKtmdmSxk4heLBjYNHiPo9G9HbtChonomOzF
MarLOFIYlBQR+0tERTefzcsdHkfZ0nPB6XIklLbYaP1FYxyNnxJsL99JQlEB
wiWq+8bRf/Ttz+r2ktCd6HhfUBhHZew9yzkHSGgf+sZtJzCO+GmdLf1GJJQi
+FsiZoSKJJ12OUdeJ6FwW+A+PEBFfP0PBYo8Scg/PXnuVzcV6X35QCbdJSFn
g8st24hU5PWGh9byiITk79MCkwqoSObbxdW9r0hItMr4tv43KuqSflw1FEZC
nMIZDiMZVPQ47bP1swgSGv1yQ1vhAxUN2qeVp8aR0MfBGdbnECqqkMky0E7H
999jOXgyiIpSGKY6Phn4/l4/Gml+VKTFo/E5KxvfX+RB6p77VHR6h+cnaj4J
yZ34Z5PtSEUXnW1W0zASEg63Nzpji9/fCB2/U0VCHEPowPR5KtoSUZG8v5aE
hh/4C6ufoqLr7eev+TSRUHImd+2PA1R0nEDjsu8ioTeL7nlWqlRUy7YvyO0h
IT/DxuS/e6hojDUnM/eLhByHX/kclqUiJ2Mz5unfJHRWZcq9T5KKrgws6zgP
k5C+9xkrHwIVJQu+J7iPktB2cVG1Ml4qOqIcq3OCSkKCTndk7DdS0TkeqqcU
jYRWszr51tYoyPAO73ryBAn9PhlN1Z+nIO4nDULHmSTUHLnQMcKioNM59ncG
pkiofORihf8kBU3GYxtdp0ko0UcqoXqIgtxzGC8MZ0kotP5xsGsfBfkzSpyT
5kjIlzB0n6uLgjjl7PVo8yRkn/PhnFEjBZlUH64zXiAhsxVOmKimIKESPwfn
RRI6Yuyi/BJR0GJVcePVJRKSHtvJTcynIOHQfQyTFRLiV30xdz2HghTVA0Pk
/5HQyqOJEYGvFMRXsdYygTOjwaQl+xMFHZ1Xy05eJaGBzZmlZ5IoiCCZJXly
jYSIlwW+TsdSEIht5B3EuTTXI/ptJAWddWnxdOZoRpn/WgLVwyjo5KGUYz04
J5io3e4IpqBtVyS8dNY1I0U+k8bWQArSNAymBeOc0eQs3/yEgm68P9TagLP6
Kx/vJm98f+NJxWWcS05Httffo6B4P+dBac5mZCCQtafWk4LODbhNq+HcSKrx
r7pGQV6Xyi0P4mwe+rsPc6Oglhtq6/bh/Mvsr3q5EwWpsIIZBJwdhYRDfl6i
ILZWhAALvz+tRWmsyJqCbm6VtC3G2fPNUZ0Ccwqyn2A03cV54axNRJ4pBV14
3m8lh7OfyB16rhEer13hTDkeH3d7yLHsYxS07opFlCnOoeGf4jOOUNAT/cBD
JDw/my3KZtMPU1DGFtlWPZwTxbpPfdakoKKaVYskPL87OqdSUvZTUHbjYgkb
z39mJPdK8h4K+mfJWNbEWfO8rGXiDgpaNcwTuILXr5RwODNeloL8dFXGXy+T
0LHucxtit1GQ4xvtJyl4vc2tA/IjRCjoTHxsbTKuj74tCfxv+fHzzOdffvGX
hJx6811CufHr1/7EOf4hIc+LVPHgf2QkkBGVN4rrb0Fi7XrQAhn9riP6v5rB
+6dvS03ALBmdjeqr28kmoTBb43u+E2Tk8uBYmDKu581SziQfMhlNRgStRTPw
+Aa8dzwcIiO9R7cqZidJKNsus+tOFxl5/VHc/GichLRkalRutZLRt3ZKVDqF
hMp+Dz7zaCKjpm1womYM15eDkNaVCjISKqrkahkiIUtZpVC3UjLiP/OHu3SQ
hPqH9amXC8mIm9opGttPQpNOt6Pss8joQ12ZnALe7zwuXX8sYslILX18930S
7geKU2bnIsnojI6A72gjCW2hcKWZhZGRcoRH5JF6Etrpdsja+BkZzfleJNdU
ktAJ9/jCI7fI6JBryFbhQty/rjs92G1MRlavvbaGJOD9HWqfUHKMjD62bPmZ
HENC2t9ssVNHyKiIui/xYyQJzcyf5/HQICPa9InFq7ifOj0xifkuTUat+94Q
+X3w+n04WXpsK76f8QndgPsktLX6+HCnKBm9PTMcQblFQq08oPSXm4zEjhKb
b7jjfhSuUaQzM4Z8x/31QyxJKCFfdYDIGEOyq+dKHc7g9epW4bAfH0PaIo/r
t5uQUO42JSO/gTE0ZnDXzRlw/0qV6q2uHUOnskqDp5VwvyrcuGAaP4ZE6TfX
71ogIps+Tqmhd2NIDvtzP4dNRAUra+D5ZgzZPlBskafj8/Xo0vPwZ2Poref+
9Y2DRDTYOLWl5+YYiizStpCoxOfhYM9Bx+Nj6Fdl/43vQUS0laPLln1kDL3L
tzcg4/P0rnz7E//DY2hCosWSw4uIlP8j1n3aN4ash4J4/7oRUcI0Zj2xdQyp
Bc3HD54gIp/1X71uM0dR5/0h36C1JuQRa8/lSBtFRnc1bOf+NCHn/WLvTMdG
0YlxrR9mU03IxPbRd6VfoyhTcF9l/UAT2ppnxvxdPYomF8Ud24qaUL7zrPOp
hFH0Jcu9TOVGE5qq0DVTPDWKzCn54QO1jWjUmj0gYjiK2oWSZht/NqIuZuq1
Nf1RtPC6q+9TbiMqlRAK7tMaRc8nEmW2xTWikFsjVW/kR9ENT4Vs4euNSEku
6PC/xRFU9KElQoK/ETn5tSh2p4+gu5Xe4566DcjqV9KRwZQRlDJTa8a9vwGZ
qHteICeOIMO6h6rBcg1Ikyz8aiZyBHGoSZmc4WpAPEbms4JPR5B+D0WJ3FyP
soW6Kk5eHEGlFDO9vZfq0XJin33xphEUqn7HYuN/dWj679cH2IYR5BPW6Lpm
VYfIZ33C69aGkZDDLy2yYR1q5pSq7ZofRheKnNZu7KxDH93sVGZGhlHE8pOI
p+RaZLRveHlPyTB6f5Z/z6dLtehdGSUm4eowStlsFJenW4PsH8T5HnQdRjzp
7TsuK9UgJY0zLu0Ow6hCKH1qQawGlaQX7ec5P4yCOHbI9UxWo98RIbV3YBjJ
vXS8ahddjXZdVZszER9GRrvfFb+iV6HbKkuJMz5DqHFiYe6cXyUqGVLiz5T/
jaI+6Jyczy9Hj3TXZcVt/Y3q4z8vV/iXI73YX6bBgr/RtW1cbIez5Qgzfxnm
tjSIxo/XvRKil6G6GrqoXPsgktVrENKTKUOdGdkSUU8HEbl1cxXJ5yea8tLc
5Tc8gG799NiRLVaEFIT1DSwT+5F+q4za3I9cFKo64n01oh8dxfy21tzOxf3e
P8/vRT+iWxwItt+fi4hvqxWzbvejBSWHrd1nctBdMWNurpP9yPJp9esu5SxU
u9mcWMjqQ0nPA0YF2tPRVWkXq21H+9DPo2MfZSOS0Pc9L66OjvWiE7P5siNB
j2Co5pusllY3crlr0HvwYCGc//+fLsTNaTj5VhMBRfmdOiroQMnVytLf/9aC
iO8XrX3r2pArdzHP89PtoKzFUk6dJaIHTpWdP3f9goDjzNbiB3XIfvNo+ZaH
w0CwzH5zcUsl8m3Pd+G1J8P3PzVC9YoliPuATvpW9jik9lNeTwRmo+/rNaVS
Y+nQ92hz0nuNbOTNcac1/TMdBGVO5p4bzUJbDn7s+pxHh/uO6e3FkIUQcdvX
tyQ6GFKubnm5lIGqtpXZya1jAG2KlbzH8wtq3KDyZ/t/DNjDuZR3zfYTYnaX
Xjm3jwl256Ty+y9HoiV7JU+ttClgzM4fvlcdgWglqf7Hvk/Bo6gWJLgjAqWH
90cYlU1BQr9/01HqWySYIh6s3TEF+U3tNWfaQtGBI18TSlenIGfuugKtLxBp
xGSeUbVkgV+nUue2Kj30ftHzw6sFFigLDV7dqKIIDh67vxqsm4Zutn+S8IIR
HI/TtdXmmgafCMPGa5qO8IqXO2eb8DRUyQY/fy98G6K0ZF+kKkzDf//tcStY
9Qev8W+WbcbTUMzr01V5LwIuJx2suxw+DckqhI4c+Ui4tfpUb3v0NASdzWlN
aIkEmaSkG53x02AZNdZ0f3cUXCfFDO1NnYZpudOVewZjIPa9glFo4TTsPCyd
E348Eer+HSZs658G/kuFmU/YidDl+ZLqMTQNs77nvl5PTAK3myc5S8emwXG0
0lzhUTK8buD7d5QxDfuU/pr+6/oAn8yydVZWpqEhz+H4t+BPIOi5s0RBmg26
NcpVu4Y/QeITkQkeOTbkdi8eTdRKBeCRnqEqsiFqMQJCxlKhysn9/mtlNrhA
vbarXhoIld30D9Bhw1qjqpoE+wvoXQYfgQtsODC6TubphRz4W/z++n8hbNhX
Ys1W/ZIDuievrlcKZcPO8Kzq4cUcUL1Pix95wwa+D5kHkk1zgbKdWgJRbFg5
e2FgbSoXFl6eF0pLZsNgbs5upPYdpprlN0rns6EvwUZsi813WN/qx3mtgA3d
Lzb+8/D/Dm9DtFK/FbGh2dG2VabjO2SdeVulVMaGcmFuL9+7eaA2ZF9ZVsOG
JE/7ar3CfFi6d+Pn4y42JFzalP1uKB9ELRMuWvSwIcYoP5rJ/QNOJBL15X6x
4Y0s77X3F37AaJtsR+oAG/xaf4j8W/wBj4L2u50bY8OjUsdlS/kCiDDhyKCR
2fAgnY+SaVIAJscLeR9Q2eDp51R0Kb4Awo1a1j+ZYIOTqoBDqW4htJ54rKPC
YoO9VJGRuGshuN+1KAicZoMNz2X1668LQe04t0wnmw3mw0UbpX4XAvUC73ub
OTaYES+z7nAVwZ6J/vS382wwKRL81bSvCAILw15if9hg8MYl0+dJEQjapBVt
XGTDkUdCUR1pRdAw/2Zx2xIbtN1LnuxtLYIVF/fF3ctsUNcXtuiXLYbKELaM
yj82KEz/XNSuLIbnCmuOLRwz8Ih0LHCOWQyCHYvm+etmoPtrk2C2RAlk5Ny+
FMY5Ay9d+xXkbpWAxlBlzK4NM0A2uJzdl1AC2iBYRsZZT5Z+KLK+BFSnUX/0
xhmY7lsy5Zb9CTKzJ+lDXDP4+f17sVM/Qc45lnSXewY+veO97O31E8ZcT75e
w3n1djhTI+UnVNJEFPx4ZsD6rOQDZvNPuNNS/PwPzrkqHznTln4C9R9HvvOm
GeDl2/PacWcpqF/6mlyNswvt2xZJ81J42v/QUIp3BsprDn/seFwKHD6aiVdw
3ppSofz6Syk0n05OzsT5tp9xoWFXKfzxDjSk4Ey0azvKsa4MLp/+8kKMbwZ2
6FwkFiuXQf/uXoeDOPtuHbG6c6EMVj/2V5/FuXfefUQ5sAwM7jzJdcBZvWP6
GjWnDJaD3mxzwflV7oM/Sf1lYMMxuGqHM/U1x9OL3OXwSFfTwhRn/Wsv+MQ0
yuFmr5uIOs5xRsJRRPty0C8wVOfHeXZHjGzQy3IQ4UzL7sfPd3q9bAYUlIPi
wUtPknH+PJx2YHGkHBYUdd/b4MxRvh/7LoDAdk56HS/ONvGFJtcPI3ih3JeS
jecn/wF07XBFYFRk4muEs6BVncPQGwR8dJPgHjy/7hpnJmNKEYgGFZbZ4lwh
3HPXnIbgdZmHeBdeHwGvnLWNvBi06Z0NOoZziets9eh2DG6p6vGn4fUVP+Zz
JuEUBmmfag6a4vWvUEPiD50weCC5tyUM14eH7Pq+814YhM7vt69bPwP1/166
CKVgELS9zJCA6+seo3k3owgDlpRU+F5cf/L9oqz6Zgx2jtcVaeH69CmKe+i/
hIHU0xqfvatsUEr7fcRBuAJeOi1vIuB67nwnv0F3ZwXkaxtaz+J633fna+j8
uQrgUfgjGor3R7/TlEX7fxVwyMz0jskCG16cVZfIeVwBffnv7y/j/TSqUpLi
/qUCeJ/Km+jg/Rcmtep+AlXA3SJr/sYZ3D/5DPbJd1UA9uv5eVO8X6NoDUX9
HJWwz5flqDbFBuOUXySzC5Vg00GL8Rhnw/SzbLeaG5UgwqRc+ELB/cY9YE0n
oBLI9I+dvbif0FRU1HZnV4L/Q1UKYRg/T5Ff5PoNVbBhuSOPu5cNqvHnVbwl
qmATcyVuHPev3sd7aqf3VcF8asWm0g48/mOdfwcvVsHyPQ0XgxY21JN22Rbl
VIHgpyrratz/PHNXZvfVVMGSeV3tySo2bI1oe5XaVwWnNzcEI4wN7hd8ysM3
VsMZKfmZkJ9s4BlrlrthWw0Hi3bHRuey4eTCPZocdw3k2Znm3o1hw1SfydMY
qRpoK8Octd/h8ZdtlxRSr4Hz9O/r596ygerfcGrlUg3c7OFdMMDnQZCAdE73
9xoQF/q9bPaYDbXy1fdC7GvhhGbYekkHNnhsjBXkvFsLplye+dts2bCZdiPt
QXAt3JujTAtbs8Eta8sv1/xaOHb08FyXGRu4Dl3T1eetgxG+Uu8GPTacMBVd
P/+jDua/iR07J8GGUKdN7MWGOth79V1yvzier3scQ6uDdXD09tYuG2E2XE2c
KuHhqgcOr3W5B7nx9azG21JW9UCW3pB+dW4aet8GjB77Uw9UgonvN+I0yH32
bjXibYC5dn2x53XTcLXkVrmpTANYcA1qnKuchpVRhzhrwwYY4Q/ZWIXPbzlN
XfNrUQ1Aylq+IvURX989VxGu1QgCFEPtj3enIW+SnhNt0ghHVGdcyj3w61dH
3yfYN4JITEJ7s/s0hO5qe/g5qBFmePe4Ei/h6x9kqZV0N0Intwf98HF8vaTb
h5H7TaDzoj69D38+CXPo8VMtJEK334a+3QYsCGLoApVIhHgp1QA5dRb4Pvz4
L36UCCE8J8+syLHAI+KGN7cgCbS8uHbZrmOBWd36u79dSNBxKaagtHwKBPer
/vdKtBlm6FWBXJpTELr6wpR2owWI6bfdPXmYEBQyxZcY0AJNNfWHiucYuB9a
NlrEtsBC5dD82DADPNS3n0TV+PqTVqJDRQzYlWcj2yTQCukBXP1X8ec/7vFp
iY8urTC0ZSNXWzkd6sykBc6KtoHSdtZagtUkiO8b2Xxbqg2KZR8nf9KfBEeB
VNnInW0QEU3Y8XbPJCw1KWv2ardBYC9H5dbVCVA21rV1vNwGDrvkPo6kTMCb
Y7ZfPPPbYH0yd4/lJA1sDsWeeGvVDvF8rZxxzuPweYvdmTzHduB3ZAprGI/D
7B/Zi11X28HqiaZF7v5xePUj/brEk3b4Hr3eyXqFCki9KOJDWjtoGTtLW0dS
QVGlZ+TbQjuMSVpuk0AUYMoRfNvjOqA9WyQ0eG0MDvl8uFXxqQO2b1r6oj42
Bv6dKq652R2Q99n1DVY7BpufG54OreyAAUXB3Jevx+AIw0vSZLIDyHG85B6J
MQgr6CuoONwJesAMtVAZBbVTyazc3k6wzH1IKoPh/3sfAGkDa47AQ4Nw7+5e
p7DN3eDfq1Q1rtALm3lZpVZy3WDSvYnPp6cHipK+b5VR7gZTEVtt0sseWGk8
3Jp5tBsceHjMsqfx6+SMoPF6NwSdyjG6XNwFoc0u0hurusGoX3U15kgHfFZK
/OV9swd+tGg/eaxKhJ4BYXO3+l7gdJux9jRJB8eHuuPcp/tBIyVTdv3RTlS1
9+DLqo2/QVF9JO9OHA3t3FRK+2Q0DIX1Wppt3bNIuvTaiY0vRiBWefmxbtcy
4lji/HJ7dBR0zm/6WOXLif09V2Zfs4MMrt32ebdHubB+TYdtOwIpUKdk0mf8
ng/ztBYWkR+ggl1FyJ9TXMKYRCT5wgZpGmgdfBD6H00EOxSwffNdeRrY7bvX
vGlaBLO6bdMxtosGa3FzI5//imDhZ1tNq9RpkLlQf7mNSxTjFyg18DeiQSqX
2xxVURRbfRahzHGXBgc4S80EHEUxspcBx0ojDdQlEuIF20Uxzv8el11rpYHe
lxu1y72imKxVkXd/Fw08G8YqR4dEMTvNffMlwzSQcZ0VSmSKYt3TEpMP/9Cg
0+CLeAOPGNZwhd3xV24C7qW6hE/oiWHZtslpsw9wHftMmEqmiGGaPQpLXL4T
4Gw4bNmYLob9NE87LRkwAfsjPETuZoth9cbZbP3XE/hzGD0sv1gMGztYqhP6
YQIe81wcpbWIYVvFe1uUGicgOJbZu3VZDPMnCi3YbZuEHeU9+a6nxTEeowiT
W7KTMCefKg7nxLGwqs3vA3dMwu5bHadFrMSxhBJpg4z9k7CL78aeZAdxrDB9
76uFY5Mgpr69x+22OMYIPCkbcX0SJMatet9GiWPWek+M6ssm4WpnnovKL3Fs
YJ4qVFk5CZHVgbkcg+KYc7ZZz8+6SZjUdjtOHBbHrm+Xcctpm4SATXW7T9PE
Mf91ZQFRlEn4aDSiOvVHHMuuWSp3EaCDQbCL/Q9RAqbp6xxkL0qHy8NaAryb
CVixVqPphS10cHj9KdZKgoBVp8UOnJKjA0knQ7VnOwH7FXxoSf0AHTZXERPu
KROwDWb3D6yzo4Ni5bYYueME7CXX75UlJzpUmtdzsA0JmBA6UT3nRodue9eB
QmMCJqlKsKB50sH/Y1Xb3jMEbL9ovmdLIB1kIi2XMi4SsPzGbYcagumgSq8H
rUsETDsgYK0ylA4WIx2VhfYE7PiceWhBDB1uktf9l3yZgNl0szPeZ9KBT1f0
BvcNAjYcevFO9Dc6FC2Fkk1uEjDXkxXabwvo0LHDzOXZLQLmWfSmIRCjg3c1
w2noHgELits/fq0Tj8djZ/xOXwLGbxGd7fqLDqNxqnFyfgTsLd/aPYffdJA3
OXBdzJ+AJTxq3mBBo0Po+TCP/mcE7Jv9DXntFTpoGuurr7wiYM4/pqWT8fdy
AeZV17ZQAibOf1eCi5sBUgM6r+LfELD7xd7C7SIM+O0+HC4YScB2Ca/yHdrC
AN7/ypwK3xGwXren3IlSDOj2seA8H43HL/5i9couBgTEVUd5xBEw+lW+pRZl
Bjzem/1wMh4/T0Xo/AF1Bvyi3+C3fU/AVj3eMdbpMeDCSOR2yWQCVtnwsS/W
nAEfWVlCQqkE7I7szu41awbQbW8F7v9MwBS9vrS52jFAzO6K6/E0PB+KufVq
7gwovKllcuoLATvoo1EdfYMBgg9V9PS+EjBaWwH6d5sBQyLvvRUyCNipJ2UF
DY8Z8PaJZh4xk4CtdOl/3x/AgCbZoPdhWQQsW7k6690LBijMp+QaZhMwh4CT
X5ZfM+CP3w4yG2fhvsZPThEMeG+fsv9tDgGrUDVLrothwPyxwpeKuQTs9vO2
eJVEBpC5VxgZOCv8toyOSGHAZJqA2a5vBKxTszd8MZ0BGabBqVE4PwuxDXXI
ZsALSwH6Is5ao7+Da/IYsPfM4c3nvhOw8UPOz/YWM0BFIFsmAeeYMIrf23IG
fEgWWOnD2Zjq/uhvFQOqLi+nCuQRsCVdhpddAwOf09vENXHOjLh5p6qZAW7X
CUfMcLabnPHY3ckAtC5s2yWcBY/evxr2iwF1t9Q+2eGMRS+6zv9mgETn5xZz
nG9NPXKyJTPA+WvcOx2c5U9w2FVMMGAHtZi5BeeO+IALu1gMcJn63jKOnydw
hsvyNf4ccDn1gEYGzgeMX56ZXcTZY1bIGWdqksCpi2sMcNBIsuPHOfrPG0O0
gQltV5liX/H4jUzFDXbwMuGxdOQeHZwXU6L1QoSYoMYwiUV4Pr8uSR5mizMh
ntBkfRBn23OJmtaSTBB+1GL3Ea8Hf7qcatl2JjhliKdw4HzzvNKu4D1MOM91
qTEKr69sZoY8az8TYklD8c14/ds598ucP8CE/OS0kEVcH5q5Bwhy+kzgWi+Z
qoTrh8JVLPz8BH5/F8tyZVxfUXa6/EwTJlz3m+lUSCdgC7zH1hefZ0LW7Otf
k7heRacEIyttmCB7NuF+yycCtretT5HowITaXW9T0lMImH30bcOhK0xYmk4O
P/SBgHl5H+mheTAhbeXBSVYSAXtjx+s+c4cJR7Fvt+ISCViVwsfgjb5M8Ixt
5WvG+2eAy0NSKIAJSZp+HlZ4f/2ZOJyx9QUTvOIVlDtiCJhSbhtxbzgTZIIn
33/B+zNUd52w+Wcm6L23SmnA+zt9OynZNoMJ3lu8dszh/V/BGavmmsuEhHMc
zaIhBGyuXtXiQQkT9sorPVB+jvvVeceoxGZ8v+37vVtxv9nhgaTof5iAKAeC
uq4RsCPnQrLmlpngF3DRGa4QsAua1kdWOaZg3Hb3vwQ33F+XphxE+KbgxQ/5
8xpOBGw6SCbl4PYpKLxj0N90noCVJj3eHXhyCtr87bM+6xKwbn/jktenp6Ah
K/q+8WECxnIlnIo+NwVLh+tjhg7g+lPOuv7VdgrMlaabKfsI2POigZzWm1Og
8n29xUVZAmbepqMlHTMFA2aOJ3s4CBivDl9F6fspCBLKb9m/Io5VfOo7dSll
CqaseLc8+CuOqT546BSfPQUS6zKwHqY4Jri98JVEzRQY20iGt+Pzq+G6+hhh
ZgpurV5rzs4Wx/y613n8+DsFm/4anVtLF8cO6bctWP6bAqOFan5IEcc+i3kK
RvKwYJ1KPP+raHEssCTrsOh2FpwqbzS2fSKO6fPsfiN4mgW9pE1xdafEsYVb
C5LZ51hQUf29nfuEOJbTX5dqas0C8dAdlVpHxDGZHLefr5xZwPRLSnVUFcdW
zn+i8j5kgcudZx/GxPB5nLJdj/szC4b32EQk9YhhHgKsus8ZLBBYGwmuw+f/
Tq9yc8NvLLDgv1MyWCeGRZrYuT8rZYFOEGR0Fopht9lxEes7WPBlR9pfepQY
tsf2qkxKLwvkh+5PBoaKYSPVh78Y/GZBwzrOfr4gMexsTG/50wkWdAuHR4/d
FcN4ONON5VgsaI5rsNS8Loaha16d2BwL4vvkZm5fFsPudxk6OC6xgCx1zD3J
Rgz73//jwNGy/pzic2LY/wAY7Oii
        "]]},
      Annotation[#, "Charting`Private`Tag$892818#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk8VVsUx+WVqcGUUtFDSF6ZlTwyJFPjkyTKlHpKURooFUqGRimeJJHh
CZWpa/a754QkKUJm13Xde82SkKa33x/ncz7fz157r986a6+1jqKHr90hQQEB
gVby/P/WMFky+OvXGKJUp8w80hjw/boq4uvsGLSGg5aczGUgJ19b9fOXMbDe
NbKDyhnQUdvuwR0ag8L0jNnDZgY2SIa2130cw/ikjV7LvEKY9n2qvf98DDmq
ssUbDxfCLvxtlq4rWZfWrrypWgT/d6HH/64YxXheHvdhSjGamuYPUu4jUDip
zFAuK4M803fxBrlhOOprXrN3BOqk9E8bLh1GTmJA3Ed34Pyh2Q/GUsOoibvv
bO8NtIhdvWshMgxZ/S0sw0tA1J54KbvJIbhV+QuWpgC/DVVKHK8bAlN0PCV4
BBiQWb4w5cIQTj9cd2/SmIk4r55j6f5D8Oqjk23MmbAsTa174jeE8Zqdog8s
mXjspnkjx2sIciNmLTo7mdifZTG/wn4IOVOK0/puTLwz9RVtW0vsx1IawkKY
eOFdOU+8axByEZbv11NMGCj4aKd/HITWi/n/eFQxUdK09IBx4yB2eWsFRr5m
gmnsXeD9ahBu6cvCaxqYqBWXOliTS9aLP8vPZzPByndlhoQNYq2XaN3DORTE
vs+en9QcRN39D1ubjSjczElNv64+iIzAlQ1OphQkDu1oVFIZhOOFxnftmynI
1Cev+Wv5IIwWTCvX2lJQSLJufTp3EOOvSxIPOVLQt4jV/7ttANmNvvbX/Si4
3dAeb7s8AImajMHjjymcL4gOe3txAGXvg9aJplGI6fwsRwUMYP/zCslH/1Ko
XcuwyfAZQKrQm6cl2RR03xqmnHUagFdNEHIYFIQWWThI65DzRg6n3ntN/K9P
GxZaN4AbmuOirW8o/OkidGV29QDsnxjXy9RTOPGs5nmv/ADinC94BDdSaNux
XTRHdAChnoMWkh0Usm87lG3r5ePYgdhtK4coVBcW2pl28jE5/k/mvBEKvT2y
A7of+dglX6LMG6WwRKtDZsVbPlodC/fHTVAIeu/qO1DEh5rQ9OH8rxTiZ5jz
uvLJfjFXbe9vFAoUlBLeP+PDtC1mSu4HBf4JTk1hKh8iQ9VuPgI07CSPKIVF
8bH/ZpxJjRCNYxtri85d58MgstV7pwiNcPc/dh4P48MxKObke1EaZbkjgfYX
+Jjx65rBAhoqdn7NSl58BCsKX7aXomF6/oP3koN8GMVHzcuUpuH0WE9QzIX4
27TF7OtiGrcmpjQ+7eZD4Pfw96FLacxEB0bAhI+1n+rbdsrR4MlRg5aGfHg6
pBddk6fRki60vV6PrBskiVespJFfckeyaw0feqqvJBYp0nhs8fGUpzKJf6FT
jroSjah6uZahlXzMVe3IM1lFw4f9b/ysNLF/fOqNnQqN/cdGvocsIvGyxlt2
qdLYOqXjKirKx4V5alpWq2moiVWskv3Jw7GS2wy5NTT6tJuy9fk8JL1suXR0
LY3G0mXi5WweQjVfHFRfR4O5xfWkRReP1BPHm004cd+g/u5GHiql5jYYatK4
0acZ117HQ8Cefas6CAcePzPr/ooH5UdvrpzSouEYIoATZTwMf2/cd0ObhtV8
S8UZBg8JQ28rF+jQWB9z/UpQLg9FsblqVwkr/97QL5TNw4khreAvhKWfLLG+
lc6DyMefVQd0aQjq7s+USSZ6rOonywmPlyUvePiAhwI1O+ElejR6LHk+yrE8
GBwxnjlEuP792oasKB4WT5nTTwmXOfnp6l4n8ZbJuI0QzuIUxpRc5UEi06tO
WZ9GvM+PabNgcl7W6Bx7whEz5k6vz5N4njt9O0/Y/3JE2a4zPNgnu+bfJ3x4
Qf3KVl8eanxzlHMI28dKh7ge5YEjLGBbQXizwr4+ricPfIc5KysJ62QmbvFx
Jfpt/35AEVbQ4/z7ZR8PnfWcMgZh8Yo1Yhftib7GtRdTCP+08j02dyfJh/lE
Szjh4YaC+us2PEzO51ceJNzhPKslbcHDfjnKbAPh2n6Tu/GbiD83LWtBwkW+
V78obuThezW/sZLE++/X2r1PdIm+Px92XiIce0WiREuDxP9UwE2LcOhCB7ki
NR6yhav3tpHve+qfB5dMVvGgtTGp4hxhD8VeVrU8DywN89uShHdlqW7eIUv2
t7hUJpF8aSBX+MBCHvRGP1imkXzL2Uwf4QjzwNwYHbmc8PwPRnXegjwYDceu
CCf3g899FXV+mosmQxNZS3J/Pp5Y+HnOBBfZudYBcRo0qmft9kQOc5Fg4Sn1
//1LWdS9LK6XC4PTD3ucyH2NdjYR3tjJRU2U79DNP2hczkiabGvhIufhap8i
daLX/OC7FXVcOLQZVH5WI/3gdmVZWTUX13Iib84lbN6pknmA4kLs9fPiBaQ+
lM7yQx8xuMhY5K36G6knqZc2fqa5XDhxpvd/IvUmKJHl2pvFxbZtNuwWUo/s
J8cNVyUT+1VrqsIVSL12TYylXyf+V3u5Bq8g+tTtu6zCuGitSg1SW070+b+o
5QdzoREXWv1KluiTDEhTP8uFhbp8wZAMDcUtP5yeuXHRbWh8uUachkS0i/VO
Zy6mclZuXbOIhkAP9Mf3cKH1I0QqhPQnVsBlCZ2tXNR7lUfIkP6VRBL3Qp+L
ipfRYQ1zSL/46pXvoMWFneKiwoFfFIIta5Om1bkYnRoonyH90o11I3CjAhcS
znmG30h//X2xlHa5GBcKmyQ973yikBgol1DZ049YFXepn90UbtVcjDzU3o/9
wWM7QjopXJLpOSvU3I/Z2AeS39oouDxP/su6th+d1kYyjU0U5PtUhesK+lH0
RT1yYS2FBFttvw+R/TBXX8p8kUdBeb5t7fvQfhjVf/Jvek4h642HUn1QP+yV
grIGyXwq2XavseZMP9Tfe535kf7/fJnWqXAn/qYClMriybzYXf45Y2M/gpdE
/xUfTPRKt2xN1+tHxjmRTo2LFFSaRlNSNIke94XJJeco6O1RsE9U6UcB41xt
IZmfdnuvFNyV7Ee1apeatSeF2842Zy4NcFBb1XSlfAs5X87jbSCHA6kNqfUv
zcj5nedVzvVw4CLYLUUZU3h2ILv5VDMHmxKs/JP0KdS5iq8/QnEQe+ez8YQy
BRHP5qnd9zmwVivQ6Sb/A5ePuQesseHg57p5hqUFTHTfckko2cxBRsSyi2ue
M2GY68zcuomDs9ZFkTeeMDHxZY+Ijy4HobsbBrUSmXAPso3Lk+fgmrzsnxNh
TJhG6xb9OdEHsdy1kXYOTPwsnDez/UEflDNUxd60Ak7tgnI9MX2kH3k0V9UC
jO+/TE5E9WHtlD8vowzwMZsNj77ah20bshmrk4Cu2tGlH337ELH3SrfQYaCs
6+MGN4s+WPjabzIfqUDgb5n+fiNsWMxU3vEcKIfPfRchNz4b28Jvqvi3lcND
Uzpmex8bBZtDhk69Loet84U8tTY27oUoDP/xpByy+TtGuivZSKCKP9z7uxwF
Hp89tiawIftar9WcVYZRymiH8lY2TuQaxDQxS8He+6lT0pKNnOJsCflnpWge
SfP+ZcpGRseP5zselKJsmXhk+3pin3nc4PiZUlw/2fsySomNGcVfV2LVSqGm
GLbxx9depI9VJ0dfK4F78DvlloxeeNLNLV+MiklfeLSpK6UXDEWrVKwuhq3O
CUdOYi/okMkzflLF0ONI3Ji414vW3zSE7vKKIGJt93lRSC9Sbay+VUQV4Zl4
M2W1rxec7GNmpd2F+JbY7lIs2guBA39FLDzCwPh0ZgBzbi/unZw+yd/FAGdX
YPSrXyxcCNZ0zzJgoF5Qrrr5CwsC24K1BoQZeHz4wLqJXhbopnf5m9NewFqD
9U29hAW9S8EOxzsKEFPeH5dwlIXs0ikHZ/18uATEX9pwiAWHLLejLUvzoaa7
07PRlYW5L+qX6M3moSSjSFNkDwsBMwul/qnIQ/fd69WnTFhQOHvuzOyWPKw+
qj1pu5gFl/F58zV25sJv3WziRGAP9KTnRgvGPkNJj9qCbKVuDK9hJRvXpeGC
0Zyn8bLd8Iy+uLgzLA3G99u2Ry7qhsiel3xzszQw7a7dPjzbhaaTG04feZGK
V1VDUoqNXRind1jLPkhBU9azZbEhXci+9ejkqHMyRv31VgezOsF0H98rdfg+
VkmYmtsndkDrU9Wr9vgzuKXVe/7o3Q5EyWY7KlX6YWbX5fzgiA6w4hwvnmjx
Rd2dSuWnfh1gNuQ0xB3yxGlpG2Ehqw4IKK5QfBmub1K9xK6ucKwdLJMAT8+2
AJOj8p4OK8zakfT2y1Nbj2iTPPWIo+y+VtgJe/ZkGaSb9FTlKqxf34KHFn9c
9HpcbNI6nLGlxrUZNzqXF1OZFSb/ARm5or0=
        "]], LineBox[CompressedData["
1:eJwt1nk0VXsbB3CRVF5jkgpRl0pI0iT6hqJJVOoaMl1DbiIpJJIpRWgwpAyF
hAZccRzjdhwzGQ4qlDicc/YpQlR0pXe/a71/7LXXZ61n7/3bz+95nr2V/zp/
3EVQQECggjr+d2ZVLnBhH+ohyKu37FI2EZAKyt2uuaCT2B/jbWCp1gb17ePq
WVOtxGvmuOpkZxfC9o11lF5uIBQ/n5PVWtWL5RZ5d6xW1BBugVb1VgYDKPxe
J9H4RxnhIK680+j8ELL6OTH88DyCKOcta60cRl+g7KPUrXnE9DmnAH7dMMQV
TQqOsV8SOYNGhGDbMHwdclileEkMPDjSuGFgGMacsyuifj4nXq/WsjCcHwb5
ZfyxmlcuseBxz8xT/RGoCf585W7zhBgsP5KxrHQEtsfki/qd4ol3rIB+p3QO
Rqe+7fKpjSP0b/e4aeZwEJjYToirxBFazP6mqTwOUvpDWwy4d4kqR41pzwoO
ilpYdWadscTFjU9cVd9ykD99bh3ZF04IOPXkJIhyEdy9oXs1U5/IDPzaaeHF
hbrEh7PCGn9g6ycm4eXLxZvJ0EeSMwdgYrb3c0QgFwFxxs3uOg6Yb/cn029y
wVSKvJEq6Y0Em7yZu4+5OHNGzZU2H4otq5edOtXORenSgJ4anzjI6/rpmG3g
4bHG8q78tfEoF9JnKmjyEGGe35HSHg+eVV/vyFYeLBKHW3w3JiJ76lnEafAw
oXykRu1DEgy6xHdMnuRBdZdC/r19aUj7vpP2LISHplf2+/6JfIIm9+4DOl08
6NWpM9cPPkHara+7Fr/joeDNrEHa9izs8f1rqus9D4mzcbg1nIWsKePs41we
nNGo66KfjbDrMe6jMzz8btbasnIyF/tL3TZGy5PYxl6gGGKZj8p5mYTjtiQ0
y/6c1MrNxzEWW7jbgYTqvZe1g7P5SG1EjqkzCdH0F9semxYg4ry250Z3EnPm
lu9/fykAl9PkG3qZxIeC/I3ElkIYnt+9i3aXRF+K9bIV1oVgSJgF0ONJvLkp
/MsztBDFq9ekF94n0eZg06HYVQiVxmvhsakkqiRF/IIuvYJ3ofTakRwSj7zs
avVLiqDYMOMrWEUi5fSSvISPRbCpVn0ZXE0i6UDR/TGRYjR57PH/XkPijtJS
91TLYrjsoBGNDSSCO4qlfs0Wg1+beFWkk0RghcO/FmtpmE4b6jPoInE5R5Tz
4hANsZ3q2Rd7SHgFO9JPJ9OQds/Mv7KXhKOWmH2FXgmuMBMC+EMk7OTpB2Rc
SmCcXtg4MEzCerGT9rmYEiwI5Nq2cEgcH6QLyw+UwPOKomkUn4ThHecXAdfo
uNiXRkubILEnUCKxK5uOHwOGFaZfSei6lV3b1EFHfbjM8NQUCe29kif6lUpx
ZVFrsMoPEusmymd1aygr21xS+EWt/7VR+PRYKR6lxBdlzFP5fNYinreyDLQL
WjYKAnxEufSvU75QhvW6zTVfBfkYMXTK60spQ3Gxi5/pQj70lT7vjG8sQ3Jy
mn+qMB8TfT9NRZTK8Z627qjCYj4O0UPfVR8ux9lLYjKmS/h4krDU6YpfOUpf
tIt7L+XjT/NVl8fayjGXKheV/B8+CjQyBLN/lkPlo978IzE+loqqxTioVuDi
80uxD8T5qKrbldF1tQKfvll9cpfkQy6ToR6TW4H9c09y90nx4R18sMS4pwIa
aXvOSUvz0WrbaSCwoBJlj75t6qGsstuqtVS9EkvqktjRy/gIkhs6ddGyEptZ
3yN3yfDx7pvbkHp4JQ7eGljdTzm64PL3R/2VKJeK4M4t54MbIxBiJVIFkzPD
0ldl+djrflN02dYqqPsLS32l/PCAZGKrXRXCRMv7bFbwMaWSpBQRVQVXNuvv
MspHhJSeg1aFccZqupgcH08Hs7fNDlVhp6czcZKyQNXm6kIxApbPA/zvUbZO
Ljl0bhcBD32tQSblosvoUXEhEE2aj/Epi59qsP94h0CH14uHC1fy4bbV7FNS
BQGLh1LsZZQZkm8vHScJbN5oVrmCsphf/m/hpdW4NrRVVZJymctULXtNNSxv
xMr+ou53xmJHFLGtGm8HNG4OUJYxCjBLOVyN5S8GLxVRZmwhZPwdq7Hplc+b
IMqeSkJ9J/2qoUMvf6pPebWEySPtmGqYXAv5OEG9b+OvKGeJTOp5rQlXkij7
jLZtHKVX44dTwwUdymv7pccb26pRv4RTVUvlr63pVFHWSDVEQittDlIOoD/0
D/1Zjc47awxrqPxvyB7YYy/JgMHPXvfNlLsT1i7UU2XgQmg56w61XyHhrk1y
egz4jd3z4lL7q3nxWey3Ywyc/60JLcr9jl9OsM4w4B1ot9OTqoeb5tor868y
8GDDxMnHVP2wNcoy3XIZKFf04QxK8HFbft5tP8EAf0L48DhVf3qihpprexjI
ENSpmKTqM5FsovcL1EDuW0YOS5SPg5m9r49a1mD05t9zQiJUP1zPc63zqIH7
gRRLOtUfSW5hv3eH1WDaMuS3A9U/pIbGlo15Ndjv93X57QXUeujB8UILmaga
d2DY/ktCK/mkxpWVTHgEyba/miXx7qpa/YQmE67eaTO/qH7eYNT944MVE6fi
i294TpNofL3ehp7PhITI5CQxSs2fgrkpzTomxhep6dI+kZCL64zO6mPCMvjk
+cckCTfLgKp7wrUg+csizUdILB5uU/awqcXQgOIbxX4SJjM+pLJIHbbeGC/2
rCfxpe9QSJJ8HbzNtoinM0kkVq5ZJaFdh/LSrG/11PzkhjYdnjtdh+ggmvVY
GYkIMYX8N4V1EJJ0683MI1G/ttbnll09jkXG3CyMI+Ep/EBc8FI9JtL7ZFbf
ISFLemRfjqyH3PWHLN9oEq4vV/S6FNVjfbFgi8h1Eot2uuvtXdoABSEX0ds+
JPabSgt9K26Aa8xUroYFiVjHJZOzTQ1Y8/l6q7Q5lS8fgY/zHxpg7JzpP3qY
xNm0L2WLFzViSizA4aoRFT/e7C1/qhH2glf7ZbSp+LthbKPvjVCLbrKVFSOh
/PRKx4GlTTD0D/tisJi6vuxClaliE9bI0iodhajvFdv+4Z/GTdheG7wwaJYH
ZR294+6JTQgovpW3gcPD2TfTjHvbm7Foie9hwzIeXn36nH//UDN6m7Ui84t4
mJtnp6bYNaOu41ipZD4Pses7/Z9GNGNOrOZDXiYVf/nllrI3zbgutbvQKpqK
X+WaPuTbghyrGAcXGx5u278N1ippRUlXZtTWCS4iRvXAbW1Fi42LdwDJRZB/
xq9kdiuc/5rxLxrkwjPO44qI+GuoFR/rmO3g4miD0KUB59dQ/7F4oqOAC/HN
Wmeipdtgpmj88rkHF7HzN01Jj3aIhL1/QfZzEHHri2haWDt8aTvaD7A41Py0
aD7xoB336dZmDxo58NReY0LUtuPHV5q5aDEH619ZK7WIdeBY/e+X2jEciPAm
VmY4d6BQ7nZ4pC4HDUcVxMylO7Hh+/XNGpEjkNEckvWW74T92xeVJ4JG4CCW
pRSv2gldxzihcxdH8LNFXeedbidYGSMZF2xHoH5Qz8bBqRPmBwOzOrRGcMfI
JterqBMeIZl/93YPw3rng/13T7FgETvqOiU1jKcrbM1eObCQmh9jZyI8jKnv
SlY9Z1nASjmv6Bk2ootzzq28xkLsrMZr/gAbhDY9Lj2bhSXWhpyJZ2z8ofF2
6J8ZFkJmtPTU97Ixprw8iPWwC/eS987r2A9hZ0D6BcaTLrjbzhmMmg8htFvD
pSCvCxbpzSnxhkOQvWF8JLamC099Fl+nqwxhz6jfqkOfuhBdMZZ65PMgbtP6
aIxd3chQCR1MvziILYcfjxe864brWJ9R9eQA/v+/Dl+98gpL3w/4L07+BoM=

        "]], LineBox[CompressedData["
1:eJwB0QIu/SFib1JlAgAAACwAAAACAAAA2OyoRchf1T9uxfvdKi/dPxYK77xW
IdY/KUdiwESC2j+4n7IYHizWP/DAbOrGWto//Mo50KxB1j/celeLXgvaP4Ih
SD/KbNY/Z94KBtxq2T+OzmQdBcPWPxsXIAsYI9g/piie2Xpv1z8+5bm11XjV
P9fcEFJmyNg/1FCvNOV2zz9geTznB0zbP7BJqr4Y7aw/wys3isMF3j8YCp2B
sfDGvyYJvOikSOA/RHWyUHJC278dvGtFBYjhP01kqcVxG+a/APoCqXLi4j8q
Z3Dnuwfwv/dRvV7FJeQ/NH5Ixrb/9L/bNF8bJYTlP8Ye1jBis/q/cFcQESLc
5j+SgoZVu0oAwBmU5FgEHeg/wwn2h7ElA8CuW6Cn83jpP22Mj1DkWAbAVz1/
SMi96j/iADWEkWoJwLFebSI6/Os/5i3IP4R8DMD4CkMDuVXtPwAImM6G3g/A
UtE7Nh2Y7j+34wAEiocRwAo7C8G8ne4/Gr13Ta+OEcDBpNpLXKPuP6AFtcDU
lRHAMHh5YZuu7j9C4dshIKQRwA4ft4wZxe4/+q5JvLjAEcDJbDLjFfLuP+4F
Hb3w+RHAQAgpkA5M7z+/rl1Kd2wSwPhx+BquUe8/pg29g6BzEsCv28elTVfv
Pw/FqtHJehLAHq9mu4xi7z+ROoqoHIkSwPxVpOYKee8/hCzIL8OlEsC3ox89
B6bvP8qNtw8T3xLAbg3vx6ar7z/rH2pCPeYSwCZ3vlJGse8/PP8Of2ftEsCU
Sl1ohbzvP5miiBO8+xLAcvGakwPT7z+KaKqWZRgTwCpbah6j2O8/Y1BeBpAf
E8DhxDmpQt7vP8Z/tnq6JhPAUJjYvoHp7z9SsqxuDzUTwAgCqEkh7+8/EjT3
7Dk8E8C/a3fUwPTvP4X6Pm1kQxPAdtVGX2D67z/2RNrujkoTwC4/Fur//+8/
tFIfcblRE8DlN2D8
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$892818#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  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->{{-1, 1}, {-5.425161901014184, 1.1277810169926272`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.796980178514909*^9, 3.796981482493566*^9, 3.796983247875354*^9, 
   3.796983315046533*^9, 3.796983360725665*^9, 3.797044793006639*^9},
 CellLabel->
  "Out[953]=",ExpressionUUID->"1b1617c1-edb2-4f7c-b779-8dc262394768"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xp", "=", 
  RowBox[{"Subdivide", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "1", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.765855487506762*^9, 3.7658554980219088`*^9}, {
   3.796979157765874*^9, 3.796979157882872*^9}, 3.796979353675139*^9, 
   3.7969797193659563`*^9},
 CellLabel->
  "In[954]:=",ExpressionUUID->"6a068bb0-6b83-4b2a-8a63-be667c079a37"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["1", "3"], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855499128181*^9, 3.765855805173315*^9, 3.765856123171205*^9, 
   3.7658562565501757`*^9, 3.765856299237535*^9, {3.765856338338187*^9, 
   3.765856352678474*^9}, 3.7658564295956783`*^9, 3.7658565439321737`*^9, 
   3.76585671814546*^9, 3.796978458507861*^9, 3.796979137801815*^9, {
   3.796979172697241*^9, 3.79697918335655*^9}, 3.796979307612442*^9, 
   3.796979357251027*^9, 3.796979415318266*^9, 3.796979723243587*^9, 
   3.7969801785260277`*^9, 3.796981482506646*^9, 3.796983315058226*^9, 
   3.796983360734839*^9, 3.797044793017518*^9},
 CellLabel->
  "Out[954]=",ExpressionUUID->"c6ce0ae7-62d7-4eee-bff7-06db53a6c193"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"xp", ",", 
      RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.796978423205532*^9, 3.796978454118784*^9}, {
   3.796978487827627*^9, 3.796978504484027*^9}, {3.7969791602846737`*^9, 
   3.79697916819952*^9}, 3.796983263293694*^9},
 CellLabel->
  "In[955]:=",ExpressionUUID->"1498d2d8-efaf-4fbc-a109-fab0b2dff584"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"spi", "=", 
  RowBox[{"SplineInterpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.796979388262712*^9, 3.796979391527438*^9}, {
  3.7969832664785213`*^9, 3.796983274891117*^9}},
 CellLabel->
  "In[956]:=",ExpressionUUID->"5d783076-3e75-4b17-a323-c7fac17aea97"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"0.9926519687917084`", "\[VeryThinSpace]", "+", 
         RowBox[{"3.8432452360529816`", " ", "x"}], "+", 
         RowBox[{"4.143198334043837`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"1.3810661113479457`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", 
         RowBox[{"-", 
          FractionBox["1", "3"]}]}]},
       {
        RowBox[{"0.701769537285298`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.22530335249529`", " ", "x"}], "-", 
         RowBox[{"3.7106273166292354`", " ", 
          SuperscriptBox["x", "2"]}], "-", 
         RowBox[{"6.472759539325127`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "3"]}], "\[LessEqual]", "x", "\[LessEqual]", 
         FractionBox["1", "3"]}]},
       {
        RowBox[{"0.273456464422249`", "\[VeryThinSpace]", "+", 
         RowBox[{"5.080121008262729`", " ", "x"}], "-", 
         RowBox[{"15.275080283931544`", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         RowBox[{"5.091693427977181`", " ", 
          SuperscriptBox["x", "3"]}]}], 
        RowBox[{
         FractionBox["1", "3"], "\[LessEqual]", "x", "\[LessEqual]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.7969793929935427`*^9, 3.79697941539624*^9}, 
   3.7969797235515842`*^9, 3.7969801789603167`*^9, 3.7969814828951902`*^9, 
   3.796983276185872*^9, 3.7969833151270933`*^9, 3.796983360820944*^9, 
   3.79704479305717*^9},
 CellLabel->
  "Out[956]=",ExpressionUUID->"b0fd9aeb-e292-42da-866d-e3fb4c9ae71e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", "spi"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"fun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.796978506544857*^9, 3.796978514555389*^9}, {
   3.796979316014833*^9, 3.7969793237119904`*^9}, {3.7969793749627743`*^9, 
   3.796979383307914*^9}, {3.796979422695455*^9, 3.796979431825241*^9}, {
   3.796979732235875*^9, 3.796979777158802*^9}, 3.796983280809763*^9},
 CellLabel->
  "In[957]:=",ExpressionUUID->"3eb271ef-516c-4ae7-8ebe-29e8a7120712"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw1mnk4lG/0/6VC9m0qQrZKRdlSWTpSCUWFKLKGjzZpVZSElBSF7KEkylpk
C/dj32bsW5ZsM2OYGWMsZYvv8/td3+/8MXO9rut+nvs+57zP+zzPdY2c801z
V04ODg5t/Ov//e6DzZNrayy0uVrrrnNqAbq5qPBicYmFslI3Si+WFqDcPLWd
s/MsVL/ewCmiswCpK5k6U+ksRA/1jGpfX4gOigT2EXtYaM+G+a/ezoVIf4zd
GJvDQvsCZqWvyBYh8+ekDA0HFlJ8TEnxTixGXi2BN/4rn0I1VmGN6h9KUWcn
32SFExNdYi7bPo6uQNLYTfGDUgxU6cglOx9RjX5cq94oNDiJ7pEzmkfN69Ah
WQ+1zz2TyKz/uJC2fR0q6dxip9c+iR578iSGXKlDmN61/Gt1k+ilb8Ejab86
1Cgkern+2yQaUvSUWs6sQ8N5DtjToEk0MexeF7mxHvGuLHnP7Z9EN5Uuyy58
q0eOr9Smf/lPoNFBJ9ed8w3IOz88iPR4AvEVLnNIrjagdwOzUhUPJpDyNM9Z
Lu5G1KhcYJzuMYEmfh0h129tRBok7ZT7NhNIrHWKOqfTiLgEj1uJqU+gi3F3
7Yb9GlFmmFXp6REaqmjZPVm9oQnVFhaa6w/Q0MRCmH4ZfxMaGdo6odFDQ8MN
lYpZ4k1os2o/YRuJhjQOO926o9iEnrQ63JwooiEtysTm2GNNyFzkinzQGxpK
vaV7Rd+vCS2E+7xAQEMSZ1delc00oXGpiklDbRpSzo37uWupCXV/5jJt1qSh
Yl2990HriCiv5K3I4G4aStKwMpYXJiKP0bS4JTEaohNmZlqUiWhMrTPzAG0c
BTRm/128TETtPyWEykbH0Y91FZlfrhIRdsLh1vHBcYRtOmlheouIEi9OHrBo
H0eGvpLHPX2J6MJTDuRZOo7qt4Q5KsQQUXOrclvGm3E0PPP4t0YDEZXa3NbQ
CBlH/zLF/0q1EFEGufBdybNxVKtmdmSxk4heLBjYNHiPo9G9HbtChonomOzF
MarLOFIYlBQR+0tERTefzcsdHkfZ0nPB6XIklLbYaP1FYxyNnxJsL99JQlEB
wiWq+8bRf/Ttz+r2ktCd6HhfUBhHZew9yzkHSGgf+sZtJzCO+GmdLf1GJJQi
+FsiZoSKJJ12OUdeJ6FwW+A+PEBFfP0PBYo8Scg/PXnuVzcV6X35QCbdJSFn
g8st24hU5PWGh9byiITk79MCkwqoSObbxdW9r0hItMr4tv43KuqSflw1FEZC
nMIZDiMZVPQ47bP1swgSGv1yQ1vhAxUN2qeVp8aR0MfBGdbnECqqkMky0E7H
999jOXgyiIpSGKY6Phn4/l4/Gml+VKTFo/E5KxvfX+RB6p77VHR6h+cnaj4J
yZ34Z5PtSEUXnW1W0zASEg63Nzpji9/fCB2/U0VCHEPowPR5KtoSUZG8v5aE
hh/4C6ufoqLr7eev+TSRUHImd+2PA1R0nEDjsu8ioTeL7nlWqlRUy7YvyO0h
IT/DxuS/e6hojDUnM/eLhByHX/kclqUiJ2Mz5unfJHRWZcq9T5KKrgws6zgP
k5C+9xkrHwIVJQu+J7iPktB2cVG1Ml4qOqIcq3OCSkKCTndk7DdS0TkeqqcU
jYRWszr51tYoyPAO73ryBAn9PhlN1Z+nIO4nDULHmSTUHLnQMcKioNM59ncG
pkiofORihf8kBU3GYxtdp0ko0UcqoXqIgtxzGC8MZ0kotP5xsGsfBfkzSpyT
5kjIlzB0n6uLgjjl7PVo8yRkn/PhnFEjBZlUH64zXiAhsxVOmKimIKESPwfn
RRI6Yuyi/BJR0GJVcePVJRKSHtvJTcynIOHQfQyTFRLiV30xdz2HghTVA0Pk
/5HQyqOJEYGvFMRXsdYygTOjwaQl+xMFHZ1Xy05eJaGBzZmlZ5IoiCCZJXly
jYSIlwW+TsdSEIht5B3EuTTXI/ptJAWddWnxdOZoRpn/WgLVwyjo5KGUYz04
J5io3e4IpqBtVyS8dNY1I0U+k8bWQArSNAymBeOc0eQs3/yEgm68P9TagLP6
Kx/vJm98f+NJxWWcS05Httffo6B4P+dBac5mZCCQtafWk4LODbhNq+HcSKrx
r7pGQV6Xyi0P4mwe+rsPc6Oglhtq6/bh/Mvsr3q5EwWpsIIZBJwdhYRDfl6i
ILZWhAALvz+tRWmsyJqCbm6VtC3G2fPNUZ0Ccwqyn2A03cV54axNRJ4pBV14
3m8lh7OfyB16rhEer13hTDkeH3d7yLHsYxS07opFlCnOoeGf4jOOUNAT/cBD
JDw/my3KZtMPU1DGFtlWPZwTxbpPfdakoKKaVYskPL87OqdSUvZTUHbjYgkb
z39mJPdK8h4K+mfJWNbEWfO8rGXiDgpaNcwTuILXr5RwODNeloL8dFXGXy+T
0LHucxtit1GQ4xvtJyl4vc2tA/IjRCjoTHxsbTKuj74tCfxv+fHzzOdffvGX
hJx6811CufHr1/7EOf4hIc+LVPHgf2QkkBGVN4rrb0Fi7XrQAhn9riP6v5rB
+6dvS03ALBmdjeqr28kmoTBb43u+E2Tk8uBYmDKu581SziQfMhlNRgStRTPw
+Aa8dzwcIiO9R7cqZidJKNsus+tOFxl5/VHc/GichLRkalRutZLRt3ZKVDqF
hMp+Dz7zaCKjpm1womYM15eDkNaVCjISKqrkahkiIUtZpVC3UjLiP/OHu3SQ
hPqH9amXC8mIm9opGttPQpNOt6Pss8joQ12ZnALe7zwuXX8sYslILX18930S
7geKU2bnIsnojI6A72gjCW2hcKWZhZGRcoRH5JF6Etrpdsja+BkZzfleJNdU
ktAJ9/jCI7fI6JBryFbhQty/rjs92G1MRlavvbaGJOD9HWqfUHKMjD62bPmZ
HENC2t9ssVNHyKiIui/xYyQJzcyf5/HQICPa9InFq7ifOj0xifkuTUat+94Q
+X3w+n04WXpsK76f8QndgPsktLX6+HCnKBm9PTMcQblFQq08oPSXm4zEjhKb
b7jjfhSuUaQzM4Z8x/31QyxJKCFfdYDIGEOyq+dKHc7g9epW4bAfH0PaIo/r
t5uQUO42JSO/gTE0ZnDXzRlw/0qV6q2uHUOnskqDp5VwvyrcuGAaP4ZE6TfX
71ogIps+Tqmhd2NIDvtzP4dNRAUra+D5ZgzZPlBskafj8/Xo0vPwZ2Poref+
9Y2DRDTYOLWl5+YYiizStpCoxOfhYM9Bx+Nj6Fdl/43vQUS0laPLln1kDL3L
tzcg4/P0rnz7E//DY2hCosWSw4uIlP8j1n3aN4ash4J4/7oRUcI0Zj2xdQyp
Bc3HD54gIp/1X71uM0dR5/0h36C1JuQRa8/lSBtFRnc1bOf+NCHn/WLvTMdG
0YlxrR9mU03IxPbRd6VfoyhTcF9l/UAT2ppnxvxdPYomF8Ud24qaUL7zrPOp
hFH0Jcu9TOVGE5qq0DVTPDWKzCn54QO1jWjUmj0gYjiK2oWSZht/NqIuZuq1
Nf1RtPC6q+9TbiMqlRAK7tMaRc8nEmW2xTWikFsjVW/kR9ENT4Vs4euNSEku
6PC/xRFU9KElQoK/ETn5tSh2p4+gu5Xe4566DcjqV9KRwZQRlDJTa8a9vwGZ
qHteICeOIMO6h6rBcg1Ikyz8aiZyBHGoSZmc4WpAPEbms4JPR5B+D0WJ3FyP
soW6Kk5eHEGlFDO9vZfq0XJin33xphEUqn7HYuN/dWj679cH2IYR5BPW6Lpm
VYfIZ33C69aGkZDDLy2yYR1q5pSq7ZofRheKnNZu7KxDH93sVGZGhlHE8pOI
p+RaZLRveHlPyTB6f5Z/z6dLtehdGSUm4eowStlsFJenW4PsH8T5HnQdRjzp
7TsuK9UgJY0zLu0Ow6hCKH1qQawGlaQX7ec5P4yCOHbI9UxWo98RIbV3YBjJ
vXS8ahddjXZdVZszER9GRrvfFb+iV6HbKkuJMz5DqHFiYe6cXyUqGVLiz5T/
jaI+6Jyczy9Hj3TXZcVt/Y3q4z8vV/iXI73YX6bBgr/RtW1cbIez5Qgzfxnm
tjSIxo/XvRKil6G6GrqoXPsgktVrENKTKUOdGdkSUU8HEbl1cxXJ5yea8tLc
5Tc8gG799NiRLVaEFIT1DSwT+5F+q4za3I9cFKo64n01oh8dxfy21tzOxf3e
P8/vRT+iWxwItt+fi4hvqxWzbvejBSWHrd1nctBdMWNurpP9yPJp9esu5SxU
u9mcWMjqQ0nPA0YF2tPRVWkXq21H+9DPo2MfZSOS0Pc9L66OjvWiE7P5siNB
j2Co5pusllY3crlr0HvwYCGc//+fLsTNaTj5VhMBRfmdOiroQMnVytLf/9aC
iO8XrX3r2pArdzHP89PtoKzFUk6dJaIHTpWdP3f9goDjzNbiB3XIfvNo+ZaH
w0CwzH5zcUsl8m3Pd+G1J8P3PzVC9YoliPuATvpW9jik9lNeTwRmo+/rNaVS
Y+nQ92hz0nuNbOTNcac1/TMdBGVO5p4bzUJbDn7s+pxHh/uO6e3FkIUQcdvX
tyQ6GFKubnm5lIGqtpXZya1jAG2KlbzH8wtq3KDyZ/t/DNjDuZR3zfYTYnaX
Xjm3jwl256Ty+y9HoiV7JU+ttClgzM4fvlcdgWglqf7Hvk/Bo6gWJLgjAqWH
90cYlU1BQr9/01HqWySYIh6s3TEF+U3tNWfaQtGBI18TSlenIGfuugKtLxBp
xGSeUbVkgV+nUue2Kj30ftHzw6sFFigLDV7dqKIIDh67vxqsm4Zutn+S8IIR
HI/TtdXmmgafCMPGa5qO8IqXO2eb8DRUyQY/fy98G6K0ZF+kKkzDf//tcStY
9Qev8W+WbcbTUMzr01V5LwIuJx2suxw+DckqhI4c+Ui4tfpUb3v0NASdzWlN
aIkEmaSkG53x02AZNdZ0f3cUXCfFDO1NnYZpudOVewZjIPa9glFo4TTsPCyd
E348Eer+HSZs658G/kuFmU/YidDl+ZLqMTQNs77nvl5PTAK3myc5S8emwXG0
0lzhUTK8buD7d5QxDfuU/pr+6/oAn8yydVZWpqEhz+H4t+BPIOi5s0RBmg26
NcpVu4Y/QeITkQkeOTbkdi8eTdRKBeCRnqEqsiFqMQJCxlKhysn9/mtlNrhA
vbarXhoIld30D9Bhw1qjqpoE+wvoXQYfgQtsODC6TubphRz4W/z++n8hbNhX
Ys1W/ZIDuievrlcKZcPO8Kzq4cUcUL1Pix95wwa+D5kHkk1zgbKdWgJRbFg5
e2FgbSoXFl6eF0pLZsNgbs5upPYdpprlN0rns6EvwUZsi813WN/qx3mtgA3d
Lzb+8/D/Dm9DtFK/FbGh2dG2VabjO2SdeVulVMaGcmFuL9+7eaA2ZF9ZVsOG
JE/7ar3CfFi6d+Pn4y42JFzalP1uKB9ELRMuWvSwIcYoP5rJ/QNOJBL15X6x
4Y0s77X3F37AaJtsR+oAG/xaf4j8W/wBj4L2u50bY8OjUsdlS/kCiDDhyKCR
2fAgnY+SaVIAJscLeR9Q2eDp51R0Kb4Awo1a1j+ZYIOTqoBDqW4htJ54rKPC
YoO9VJGRuGshuN+1KAicZoMNz2X1668LQe04t0wnmw3mw0UbpX4XAvUC73ub
OTaYES+z7nAVwZ6J/vS382wwKRL81bSvCAILw15if9hg8MYl0+dJEQjapBVt
XGTDkUdCUR1pRdAw/2Zx2xIbtN1LnuxtLYIVF/fF3ctsUNcXtuiXLYbKELaM
yj82KEz/XNSuLIbnCmuOLRwz8Ih0LHCOWQyCHYvm+etmoPtrk2C2RAlk5Ny+
FMY5Ay9d+xXkbpWAxlBlzK4NM0A2uJzdl1AC2iBYRsZZT5Z+KLK+BFSnUX/0
xhmY7lsy5Zb9CTKzJ+lDXDP4+f17sVM/Qc45lnSXewY+veO97O31E8ZcT75e
w3n1djhTI+UnVNJEFPx4ZsD6rOQDZvNPuNNS/PwPzrkqHznTln4C9R9HvvOm
GeDl2/PacWcpqF/6mlyNswvt2xZJ81J42v/QUIp3BsprDn/seFwKHD6aiVdw
3ppSofz6Syk0n05OzsT5tp9xoWFXKfzxDjSk4Ey0azvKsa4MLp/+8kKMbwZ2
6FwkFiuXQf/uXoeDOPtuHbG6c6EMVj/2V5/FuXfefUQ5sAwM7jzJdcBZvWP6
GjWnDJaD3mxzwflV7oM/Sf1lYMMxuGqHM/U1x9OL3OXwSFfTwhRn/Wsv+MQ0
yuFmr5uIOs5xRsJRRPty0C8wVOfHeXZHjGzQy3IQ4UzL7sfPd3q9bAYUlIPi
wUtPknH+PJx2YHGkHBYUdd/b4MxRvh/7LoDAdk56HS/ONvGFJtcPI3ih3JeS
jecn/wF07XBFYFRk4muEs6BVncPQGwR8dJPgHjy/7hpnJmNKEYgGFZbZ4lwh
3HPXnIbgdZmHeBdeHwGvnLWNvBi06Z0NOoZziets9eh2DG6p6vGn4fUVP+Zz
JuEUBmmfag6a4vWvUEPiD50weCC5tyUM14eH7Pq+814YhM7vt69bPwP1/166
CKVgELS9zJCA6+seo3k3owgDlpRU+F5cf/L9oqz6Zgx2jtcVaeH69CmKe+i/
hIHU0xqfvatsUEr7fcRBuAJeOi1vIuB67nwnv0F3ZwXkaxtaz+J633fna+j8
uQrgUfgjGor3R7/TlEX7fxVwyMz0jskCG16cVZfIeVwBffnv7y/j/TSqUpLi
/qUCeJ/Km+jg/Rcmtep+AlXA3SJr/sYZ3D/5DPbJd1UA9uv5eVO8X6NoDUX9
HJWwz5flqDbFBuOUXySzC5Vg00GL8Rhnw/SzbLeaG5UgwqRc+ELB/cY9YE0n
oBLI9I+dvbif0FRU1HZnV4L/Q1UKYRg/T5Ff5PoNVbBhuSOPu5cNqvHnVbwl
qmATcyVuHPev3sd7aqf3VcF8asWm0g48/mOdfwcvVsHyPQ0XgxY21JN22Rbl
VIHgpyrratz/PHNXZvfVVMGSeV3tySo2bI1oe5XaVwWnNzcEI4wN7hd8ysM3
VsMZKfmZkJ9s4BlrlrthWw0Hi3bHRuey4eTCPZocdw3k2Znm3o1hw1SfydMY
qRpoK8Octd/h8ZdtlxRSr4Hz9O/r596ygerfcGrlUg3c7OFdMMDnQZCAdE73
9xoQF/q9bPaYDbXy1fdC7GvhhGbYekkHNnhsjBXkvFsLplye+dts2bCZdiPt
QXAt3JujTAtbs8Eta8sv1/xaOHb08FyXGRu4Dl3T1eetgxG+Uu8GPTacMBVd
P/+jDua/iR07J8GGUKdN7MWGOth79V1yvzier3scQ6uDdXD09tYuG2E2XE2c
KuHhqgcOr3W5B7nx9azG21JW9UCW3pB+dW4aet8GjB77Uw9UgonvN+I0yH32
bjXibYC5dn2x53XTcLXkVrmpTANYcA1qnKuchpVRhzhrwwYY4Q/ZWIXPbzlN
XfNrUQ1Aylq+IvURX989VxGu1QgCFEPtj3enIW+SnhNt0ghHVGdcyj3w61dH
3yfYN4JITEJ7s/s0hO5qe/g5qBFmePe4Ei/h6x9kqZV0N0Intwf98HF8vaTb
h5H7TaDzoj69D38+CXPo8VMtJEK334a+3QYsCGLoApVIhHgp1QA5dRb4Pvz4
L36UCCE8J8+syLHAI+KGN7cgCbS8uHbZrmOBWd36u79dSNBxKaagtHwKBPer
/vdKtBlm6FWBXJpTELr6wpR2owWI6bfdPXmYEBQyxZcY0AJNNfWHiucYuB9a
NlrEtsBC5dD82DADPNS3n0TV+PqTVqJDRQzYlWcj2yTQCukBXP1X8ec/7vFp
iY8urTC0ZSNXWzkd6sykBc6KtoHSdtZagtUkiO8b2Xxbqg2KZR8nf9KfBEeB
VNnInW0QEU3Y8XbPJCw1KWv2ardBYC9H5dbVCVA21rV1vNwGDrvkPo6kTMCb
Y7ZfPPPbYH0yd4/lJA1sDsWeeGvVDvF8rZxxzuPweYvdmTzHduB3ZAprGI/D
7B/Zi11X28HqiaZF7v5xePUj/brEk3b4Hr3eyXqFCki9KOJDWjtoGTtLW0dS
QVGlZ+TbQjuMSVpuk0AUYMoRfNvjOqA9WyQ0eG0MDvl8uFXxqQO2b1r6oj42
Bv6dKq652R2Q99n1DVY7BpufG54OreyAAUXB3Jevx+AIw0vSZLIDyHG85B6J
MQgr6CuoONwJesAMtVAZBbVTyazc3k6wzH1IKoPh/3sfAGkDa47AQ4Nw7+5e
p7DN3eDfq1Q1rtALm3lZpVZy3WDSvYnPp6cHipK+b5VR7gZTEVtt0sseWGk8
3Jp5tBsceHjMsqfx6+SMoPF6NwSdyjG6XNwFoc0u0hurusGoX3U15kgHfFZK
/OV9swd+tGg/eaxKhJ4BYXO3+l7gdJux9jRJB8eHuuPcp/tBIyVTdv3RTlS1
9+DLqo2/QVF9JO9OHA3t3FRK+2Q0DIX1Wppt3bNIuvTaiY0vRiBWefmxbtcy
4lji/HJ7dBR0zm/6WOXLif09V2Zfs4MMrt32ebdHubB+TYdtOwIpUKdk0mf8
ng/ztBYWkR+ggl1FyJ9TXMKYRCT5wgZpGmgdfBD6H00EOxSwffNdeRrY7bvX
vGlaBLO6bdMxtosGa3FzI5//imDhZ1tNq9RpkLlQf7mNSxTjFyg18DeiQSqX
2xxVURRbfRahzHGXBgc4S80EHEUxspcBx0ojDdQlEuIF20Uxzv8el11rpYHe
lxu1y72imKxVkXd/Fw08G8YqR4dEMTvNffMlwzSQcZ0VSmSKYt3TEpMP/9Cg
0+CLeAOPGNZwhd3xV24C7qW6hE/oiWHZtslpsw9wHftMmEqmiGGaPQpLXL4T
4Gw4bNmYLob9NE87LRkwAfsjPETuZoth9cbZbP3XE/hzGD0sv1gMGztYqhP6
YQIe81wcpbWIYVvFe1uUGicgOJbZu3VZDPMnCi3YbZuEHeU9+a6nxTEeowiT
W7KTMCefKg7nxLGwqs3vA3dMwu5bHadFrMSxhBJpg4z9k7CL78aeZAdxrDB9
76uFY5Mgpr69x+22OMYIPCkbcX0SJMatet9GiWPWek+M6ssm4WpnnovKL3Fs
YJ4qVFk5CZHVgbkcg+KYc7ZZz8+6SZjUdjtOHBbHrm+Xcctpm4SATXW7T9PE
Mf91ZQFRlEn4aDSiOvVHHMuuWSp3EaCDQbCL/Q9RAqbp6xxkL0qHy8NaAryb
CVixVqPphS10cHj9KdZKgoBVp8UOnJKjA0knQ7VnOwH7FXxoSf0AHTZXERPu
KROwDWb3D6yzo4Ni5bYYueME7CXX75UlJzpUmtdzsA0JmBA6UT3nRodue9eB
QmMCJqlKsKB50sH/Y1Xb3jMEbL9ovmdLIB1kIi2XMi4SsPzGbYcagumgSq8H
rUsETDsgYK0ylA4WIx2VhfYE7PiceWhBDB1uktf9l3yZgNl0szPeZ9KBT1f0
BvcNAjYcevFO9Dc6FC2Fkk1uEjDXkxXabwvo0LHDzOXZLQLmWfSmIRCjg3c1
w2noHgELits/fq0Tj8djZ/xOXwLGbxGd7fqLDqNxqnFyfgTsLd/aPYffdJA3
OXBdzJ+AJTxq3mBBo0Po+TCP/mcE7Jv9DXntFTpoGuurr7wiYM4/pqWT8fdy
AeZV17ZQAibOf1eCi5sBUgM6r+LfELD7xd7C7SIM+O0+HC4YScB2Ca/yHdrC
AN7/ypwK3xGwXren3IlSDOj2seA8H43HL/5i9couBgTEVUd5xBEw+lW+pRZl
Bjzem/1wMh4/T0Xo/AF1Bvyi3+C3fU/AVj3eMdbpMeDCSOR2yWQCVtnwsS/W
nAEfWVlCQqkE7I7szu41awbQbW8F7v9MwBS9vrS52jFAzO6K6/E0PB+KufVq
7gwovKllcuoLATvoo1EdfYMBgg9V9PS+EjBaWwH6d5sBQyLvvRUyCNipJ2UF
DY8Z8PaJZh4xk4CtdOl/3x/AgCbZoPdhWQQsW7k6690LBijMp+QaZhMwh4CT
X5ZfM+CP3w4yG2fhvsZPThEMeG+fsv9tDgGrUDVLrothwPyxwpeKuQTs9vO2
eJVEBpC5VxgZOCv8toyOSGHAZJqA2a5vBKxTszd8MZ0BGabBqVE4PwuxDXXI
ZsALSwH6Is5ao7+Da/IYsPfM4c3nvhOw8UPOz/YWM0BFIFsmAeeYMIrf23IG
fEgWWOnD2Zjq/uhvFQOqLi+nCuQRsCVdhpddAwOf09vENXHOjLh5p6qZAW7X
CUfMcLabnPHY3ckAtC5s2yWcBY/evxr2iwF1t9Q+2eGMRS+6zv9mgETn5xZz
nG9NPXKyJTPA+WvcOx2c5U9w2FVMMGAHtZi5BeeO+IALu1gMcJn63jKOnydw
hsvyNf4ccDn1gEYGzgeMX56ZXcTZY1bIGWdqksCpi2sMcNBIsuPHOfrPG0O0
gQltV5liX/H4jUzFDXbwMuGxdOQeHZwXU6L1QoSYoMYwiUV4Pr8uSR5mizMh
ntBkfRBn23OJmtaSTBB+1GL3Ea8Hf7qcatl2JjhliKdw4HzzvNKu4D1MOM91
qTEKr69sZoY8az8TYklD8c14/ds598ucP8CE/OS0kEVcH5q5Bwhy+kzgWi+Z
qoTrh8JVLPz8BH5/F8tyZVxfUXa6/EwTJlz3m+lUSCdgC7zH1hefZ0LW7Otf
k7heRacEIyttmCB7NuF+yycCtretT5HowITaXW9T0lMImH30bcOhK0xYmk4O
P/SBgHl5H+mheTAhbeXBSVYSAXtjx+s+c4cJR7Fvt+ISCViVwsfgjb5M8Ixt
5WvG+2eAy0NSKIAJSZp+HlZ4f/2ZOJyx9QUTvOIVlDtiCJhSbhtxbzgTZIIn
33/B+zNUd52w+Wcm6L23SmnA+zt9OynZNoMJ3lu8dszh/V/BGavmmsuEhHMc
zaIhBGyuXtXiQQkT9sorPVB+jvvVeceoxGZ8v+37vVtxv9nhgaTof5iAKAeC
uq4RsCPnQrLmlpngF3DRGa4QsAua1kdWOaZg3Hb3vwQ33F+XphxE+KbgxQ/5
8xpOBGw6SCbl4PYpKLxj0N90noCVJj3eHXhyCtr87bM+6xKwbn/jktenp6Ah
K/q+8WECxnIlnIo+NwVLh+tjhg7g+lPOuv7VdgrMlaabKfsI2POigZzWm1Og
8n29xUVZAmbepqMlHTMFA2aOJ3s4CBivDl9F6fspCBLKb9m/Io5VfOo7dSll
CqaseLc8+CuOqT546BSfPQUS6zKwHqY4Jri98JVEzRQY20iGt+Pzq+G6+hhh
ZgpurV5rzs4Wx/y613n8+DsFm/4anVtLF8cO6bctWP6bAqOFan5IEcc+i3kK
RvKwYJ1KPP+raHEssCTrsOh2FpwqbzS2fSKO6fPsfiN4mgW9pE1xdafEsYVb
C5LZ51hQUf29nfuEOJbTX5dqas0C8dAdlVpHxDGZHLefr5xZwPRLSnVUFcdW
zn+i8j5kgcudZx/GxPB5nLJdj/szC4b32EQk9YhhHgKsus8ZLBBYGwmuw+f/
Tq9yc8NvLLDgv1MyWCeGRZrYuT8rZYFOEGR0Fopht9lxEes7WPBlR9pfepQY
tsf2qkxKLwvkh+5PBoaKYSPVh78Y/GZBwzrOfr4gMexsTG/50wkWdAuHR4/d
FcN4ONON5VgsaI5rsNS8Loaha16d2BwL4vvkZm5fFsPudxk6OC6xgCx1zD3J
Rgz73//jwNGy/pzic2LY/wAY7Oii
        "]]},
      Annotation[#, "Charting`Private`Tag$892866#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnk8VVsUx+WVqcGUUtFDSF6ZlTwyJFPjkyTKlHpKURooFUqGRimeJJHh
CZWpa/a754QkKUJm13Xde82SkKa33x/ncz7fz157r986a6+1jqKHr90hQQEB
gVby/P/WMFky+OvXGKJUp8w80hjw/boq4uvsGLSGg5aczGUgJ19b9fOXMbDe
NbKDyhnQUdvuwR0ag8L0jNnDZgY2SIa2130cw/ikjV7LvEKY9n2qvf98DDmq
ssUbDxfCLvxtlq4rWZfWrrypWgT/d6HH/64YxXheHvdhSjGamuYPUu4jUDip
zFAuK4M803fxBrlhOOprXrN3BOqk9E8bLh1GTmJA3Ed34Pyh2Q/GUsOoibvv
bO8NtIhdvWshMgxZ/S0sw0tA1J54KbvJIbhV+QuWpgC/DVVKHK8bAlN0PCV4
BBiQWb4w5cIQTj9cd2/SmIk4r55j6f5D8Oqjk23MmbAsTa174jeE8Zqdog8s
mXjspnkjx2sIciNmLTo7mdifZTG/wn4IOVOK0/puTLwz9RVtW0vsx1IawkKY
eOFdOU+8axByEZbv11NMGCj4aKd/HITWi/n/eFQxUdK09IBx4yB2eWsFRr5m
gmnsXeD9ahBu6cvCaxqYqBWXOliTS9aLP8vPZzPByndlhoQNYq2XaN3DORTE
vs+en9QcRN39D1ubjSjczElNv64+iIzAlQ1OphQkDu1oVFIZhOOFxnftmynI
1Cev+Wv5IIwWTCvX2lJQSLJufTp3EOOvSxIPOVLQt4jV/7ttANmNvvbX/Si4
3dAeb7s8AImajMHjjymcL4gOe3txAGXvg9aJplGI6fwsRwUMYP/zCslH/1Ko
XcuwyfAZQKrQm6cl2RR03xqmnHUagFdNEHIYFIQWWThI65DzRg6n3ntN/K9P
GxZaN4AbmuOirW8o/OkidGV29QDsnxjXy9RTOPGs5nmv/ADinC94BDdSaNux
XTRHdAChnoMWkh0Usm87lG3r5ePYgdhtK4coVBcW2pl28jE5/k/mvBEKvT2y
A7of+dglX6LMG6WwRKtDZsVbPlodC/fHTVAIeu/qO1DEh5rQ9OH8rxTiZ5jz
uvLJfjFXbe9vFAoUlBLeP+PDtC1mSu4HBf4JTk1hKh8iQ9VuPgI07CSPKIVF
8bH/ZpxJjRCNYxtri85d58MgstV7pwiNcPc/dh4P48MxKObke1EaZbkjgfYX
+Jjx65rBAhoqdn7NSl58BCsKX7aXomF6/oP3koN8GMVHzcuUpuH0WE9QzIX4
27TF7OtiGrcmpjQ+7eZD4Pfw96FLacxEB0bAhI+1n+rbdsrR4MlRg5aGfHg6
pBddk6fRki60vV6PrBskiVespJFfckeyaw0feqqvJBYp0nhs8fGUpzKJf6FT
jroSjah6uZahlXzMVe3IM1lFw4f9b/ysNLF/fOqNnQqN/cdGvocsIvGyxlt2
qdLYOqXjKirKx4V5alpWq2moiVWskv3Jw7GS2wy5NTT6tJuy9fk8JL1suXR0
LY3G0mXi5WweQjVfHFRfR4O5xfWkRReP1BPHm004cd+g/u5GHiql5jYYatK4
0acZ117HQ8Cefas6CAcePzPr/ooH5UdvrpzSouEYIoATZTwMf2/cd0ObhtV8
S8UZBg8JQ28rF+jQWB9z/UpQLg9FsblqVwkr/97QL5TNw4khreAvhKWfLLG+
lc6DyMefVQd0aQjq7s+USSZ6rOonywmPlyUvePiAhwI1O+ElejR6LHk+yrE8
GBwxnjlEuP792oasKB4WT5nTTwmXOfnp6l4n8ZbJuI0QzuIUxpRc5UEi06tO
WZ9GvM+PabNgcl7W6Bx7whEz5k6vz5N4njt9O0/Y/3JE2a4zPNgnu+bfJ3x4
Qf3KVl8eanxzlHMI28dKh7ge5YEjLGBbQXizwr4+ricPfIc5KysJ62QmbvFx
Jfpt/35AEVbQ4/z7ZR8PnfWcMgZh8Yo1Yhftib7GtRdTCP+08j02dyfJh/lE
Szjh4YaC+us2PEzO51ceJNzhPKslbcHDfjnKbAPh2n6Tu/GbiD83LWtBwkW+
V78obuThezW/sZLE++/X2r1PdIm+Px92XiIce0WiREuDxP9UwE2LcOhCB7ki
NR6yhav3tpHve+qfB5dMVvGgtTGp4hxhD8VeVrU8DywN89uShHdlqW7eIUv2
t7hUJpF8aSBX+MBCHvRGP1imkXzL2Uwf4QjzwNwYHbmc8PwPRnXegjwYDceu
CCf3g899FXV+mosmQxNZS3J/Pp5Y+HnOBBfZudYBcRo0qmft9kQOc5Fg4Sn1
//1LWdS9LK6XC4PTD3ucyH2NdjYR3tjJRU2U79DNP2hczkiabGvhIufhap8i
daLX/OC7FXVcOLQZVH5WI/3gdmVZWTUX13Iib84lbN6pknmA4kLs9fPiBaQ+
lM7yQx8xuMhY5K36G6knqZc2fqa5XDhxpvd/IvUmKJHl2pvFxbZtNuwWUo/s
J8cNVyUT+1VrqsIVSL12TYylXyf+V3u5Bq8g+tTtu6zCuGitSg1SW070+b+o
5QdzoREXWv1KluiTDEhTP8uFhbp8wZAMDcUtP5yeuXHRbWh8uUachkS0i/VO
Zy6mclZuXbOIhkAP9Mf3cKH1I0QqhPQnVsBlCZ2tXNR7lUfIkP6VRBL3Qp+L
ipfRYQ1zSL/46pXvoMWFneKiwoFfFIIta5Om1bkYnRoonyH90o11I3CjAhcS
znmG30h//X2xlHa5GBcKmyQ973yikBgol1DZ049YFXepn90UbtVcjDzU3o/9
wWM7QjopXJLpOSvU3I/Z2AeS39oouDxP/su6th+d1kYyjU0U5PtUhesK+lH0
RT1yYS2FBFttvw+R/TBXX8p8kUdBeb5t7fvQfhjVf/Jvek4h642HUn1QP+yV
grIGyXwq2XavseZMP9Tfe535kf7/fJnWqXAn/qYClMriybzYXf45Y2M/gpdE
/xUfTPRKt2xN1+tHxjmRTo2LFFSaRlNSNIke94XJJeco6O1RsE9U6UcB41xt
IZmfdnuvFNyV7Ee1apeatSeF2842Zy4NcFBb1XSlfAs5X87jbSCHA6kNqfUv
zcj5nedVzvVw4CLYLUUZU3h2ILv5VDMHmxKs/JP0KdS5iq8/QnEQe+ez8YQy
BRHP5qnd9zmwVivQ6Sb/A5ePuQesseHg57p5hqUFTHTfckko2cxBRsSyi2ue
M2GY68zcuomDs9ZFkTeeMDHxZY+Ijy4HobsbBrUSmXAPso3Lk+fgmrzsnxNh
TJhG6xb9OdEHsdy1kXYOTPwsnDez/UEflDNUxd60Ak7tgnI9MX2kH3k0V9UC
jO+/TE5E9WHtlD8vowzwMZsNj77ah20bshmrk4Cu2tGlH337ELH3SrfQYaCs
6+MGN4s+WPjabzIfqUDgb5n+fiNsWMxU3vEcKIfPfRchNz4b28Jvqvi3lcND
Uzpmex8bBZtDhk69Loet84U8tTY27oUoDP/xpByy+TtGuivZSKCKP9z7uxwF
Hp89tiawIftar9WcVYZRymiH8lY2TuQaxDQxS8He+6lT0pKNnOJsCflnpWge
SfP+ZcpGRseP5zselKJsmXhk+3pin3nc4PiZUlw/2fsySomNGcVfV2LVSqGm
GLbxx9depI9VJ0dfK4F78DvlloxeeNLNLV+MiklfeLSpK6UXDEWrVKwuhq3O
CUdOYi/okMkzflLF0ONI3Ji414vW3zSE7vKKIGJt93lRSC9Sbay+VUQV4Zl4
M2W1rxec7GNmpd2F+JbY7lIs2guBA39FLDzCwPh0ZgBzbi/unZw+yd/FAGdX
YPSrXyxcCNZ0zzJgoF5Qrrr5CwsC24K1BoQZeHz4wLqJXhbopnf5m9NewFqD
9U29hAW9S8EOxzsKEFPeH5dwlIXs0ikHZ/18uATEX9pwiAWHLLejLUvzoaa7
07PRlYW5L+qX6M3moSSjSFNkDwsBMwul/qnIQ/fd69WnTFhQOHvuzOyWPKw+
qj1pu5gFl/F58zV25sJv3WziRGAP9KTnRgvGPkNJj9qCbKVuDK9hJRvXpeGC
0Zyn8bLd8Iy+uLgzLA3G99u2Ry7qhsiel3xzszQw7a7dPjzbhaaTG04feZGK
V1VDUoqNXRind1jLPkhBU9azZbEhXci+9ejkqHMyRv31VgezOsF0H98rdfg+
VkmYmtsndkDrU9Wr9vgzuKXVe/7o3Q5EyWY7KlX6YWbX5fzgiA6w4hwvnmjx
Rd2dSuWnfh1gNuQ0xB3yxGlpG2Ehqw4IKK5QfBmub1K9xK6ucKwdLJMAT8+2
AJOj8p4OK8zakfT2y1Nbj2iTPPWIo+y+VtgJe/ZkGaSb9FTlKqxf34KHFn9c
9HpcbNI6nLGlxrUZNzqXF1OZFSb/ARm5or0=
        "]], LineBox[CompressedData["
1:eJwt1nk0VXsbB3CRVF5jkgpRl0pI0iT6hqJJVOoaMl1DbiIpJJIpRWgwpAyF
hAZccRzjdhwzGQ4qlDicc/YpQlR0pXe/a71/7LXXZ61n7/3bz+95nr2V/zp/
3EVQQECggjr+d2ZVLnBhH+ohyKu37FI2EZAKyt2uuaCT2B/jbWCp1gb17ePq
WVOtxGvmuOpkZxfC9o11lF5uIBQ/n5PVWtWL5RZ5d6xW1BBugVb1VgYDKPxe
J9H4RxnhIK680+j8ELL6OTH88DyCKOcta60cRl+g7KPUrXnE9DmnAH7dMMQV
TQqOsV8SOYNGhGDbMHwdclileEkMPDjSuGFgGMacsyuifj4nXq/WsjCcHwb5
ZfyxmlcuseBxz8xT/RGoCf585W7zhBgsP5KxrHQEtsfki/qd4ol3rIB+p3QO
Rqe+7fKpjSP0b/e4aeZwEJjYToirxBFazP6mqTwOUvpDWwy4d4kqR41pzwoO
ilpYdWadscTFjU9cVd9ykD99bh3ZF04IOPXkJIhyEdy9oXs1U5/IDPzaaeHF
hbrEh7PCGn9g6ycm4eXLxZvJ0EeSMwdgYrb3c0QgFwFxxs3uOg6Yb/cn029y
wVSKvJEq6Y0Em7yZu4+5OHNGzZU2H4otq5edOtXORenSgJ4anzjI6/rpmG3g
4bHG8q78tfEoF9JnKmjyEGGe35HSHg+eVV/vyFYeLBKHW3w3JiJ76lnEafAw
oXykRu1DEgy6xHdMnuRBdZdC/r19aUj7vpP2LISHplf2+/6JfIIm9+4DOl08
6NWpM9cPPkHara+7Fr/joeDNrEHa9izs8f1rqus9D4mzcbg1nIWsKePs41we
nNGo66KfjbDrMe6jMzz8btbasnIyF/tL3TZGy5PYxl6gGGKZj8p5mYTjtiQ0
y/6c1MrNxzEWW7jbgYTqvZe1g7P5SG1EjqkzCdH0F9semxYg4ry250Z3EnPm
lu9/fykAl9PkG3qZxIeC/I3ElkIYnt+9i3aXRF+K9bIV1oVgSJgF0ONJvLkp
/MsztBDFq9ekF94n0eZg06HYVQiVxmvhsakkqiRF/IIuvYJ3ofTakRwSj7zs
avVLiqDYMOMrWEUi5fSSvISPRbCpVn0ZXE0i6UDR/TGRYjR57PH/XkPijtJS
91TLYrjsoBGNDSSCO4qlfs0Wg1+beFWkk0RghcO/FmtpmE4b6jPoInE5R5Tz
4hANsZ3q2Rd7SHgFO9JPJ9OQds/Mv7KXhKOWmH2FXgmuMBMC+EMk7OTpB2Rc
SmCcXtg4MEzCerGT9rmYEiwI5Nq2cEgcH6QLyw+UwPOKomkUn4ThHecXAdfo
uNiXRkubILEnUCKxK5uOHwOGFaZfSei6lV3b1EFHfbjM8NQUCe29kif6lUpx
ZVFrsMoPEusmymd1aygr21xS+EWt/7VR+PRYKR6lxBdlzFP5fNYinreyDLQL
WjYKAnxEufSvU75QhvW6zTVfBfkYMXTK60spQ3Gxi5/pQj70lT7vjG8sQ3Jy
mn+qMB8TfT9NRZTK8Z627qjCYj4O0UPfVR8ux9lLYjKmS/h4krDU6YpfOUpf
tIt7L+XjT/NVl8fayjGXKheV/B8+CjQyBLN/lkPlo978IzE+loqqxTioVuDi
80uxD8T5qKrbldF1tQKfvll9cpfkQy6ToR6TW4H9c09y90nx4R18sMS4pwIa
aXvOSUvz0WrbaSCwoBJlj75t6qGsstuqtVS9EkvqktjRy/gIkhs6ddGyEptZ
3yN3yfDx7pvbkHp4JQ7eGljdTzm64PL3R/2VKJeK4M4t54MbIxBiJVIFkzPD
0ldl+djrflN02dYqqPsLS32l/PCAZGKrXRXCRMv7bFbwMaWSpBQRVQVXNuvv
MspHhJSeg1aFccZqupgcH08Hs7fNDlVhp6czcZKyQNXm6kIxApbPA/zvUbZO
Ljl0bhcBD32tQSblosvoUXEhEE2aj/Epi59qsP94h0CH14uHC1fy4bbV7FNS
BQGLh1LsZZQZkm8vHScJbN5oVrmCsphf/m/hpdW4NrRVVZJymctULXtNNSxv
xMr+ou53xmJHFLGtGm8HNG4OUJYxCjBLOVyN5S8GLxVRZmwhZPwdq7Hplc+b
IMqeSkJ9J/2qoUMvf6pPebWEySPtmGqYXAv5OEG9b+OvKGeJTOp5rQlXkij7
jLZtHKVX44dTwwUdymv7pccb26pRv4RTVUvlr63pVFHWSDVEQittDlIOoD/0
D/1Zjc47awxrqPxvyB7YYy/JgMHPXvfNlLsT1i7UU2XgQmg56w61XyHhrk1y
egz4jd3z4lL7q3nxWey3Ywyc/60JLcr9jl9OsM4w4B1ot9OTqoeb5tor868y
8GDDxMnHVP2wNcoy3XIZKFf04QxK8HFbft5tP8EAf0L48DhVf3qihpprexjI
ENSpmKTqM5FsovcL1EDuW0YOS5SPg5m9r49a1mD05t9zQiJUP1zPc63zqIH7
gRRLOtUfSW5hv3eH1WDaMuS3A9U/pIbGlo15Ndjv93X57QXUeujB8UILmaga
d2DY/ktCK/mkxpWVTHgEyba/miXx7qpa/YQmE67eaTO/qH7eYNT944MVE6fi
i294TpNofL3ehp7PhITI5CQxSs2fgrkpzTomxhep6dI+kZCL64zO6mPCMvjk
+cckCTfLgKp7wrUg+csizUdILB5uU/awqcXQgOIbxX4SJjM+pLJIHbbeGC/2
rCfxpe9QSJJ8HbzNtoinM0kkVq5ZJaFdh/LSrG/11PzkhjYdnjtdh+ggmvVY
GYkIMYX8N4V1EJJ0683MI1G/ttbnll09jkXG3CyMI+Ep/EBc8FI9JtL7ZFbf
ISFLemRfjqyH3PWHLN9oEq4vV/S6FNVjfbFgi8h1Eot2uuvtXdoABSEX0ds+
JPabSgt9K26Aa8xUroYFiVjHJZOzTQ1Y8/l6q7Q5lS8fgY/zHxpg7JzpP3qY
xNm0L2WLFzViSizA4aoRFT/e7C1/qhH2glf7ZbSp+LthbKPvjVCLbrKVFSOh
/PRKx4GlTTD0D/tisJi6vuxClaliE9bI0iodhajvFdv+4Z/GTdheG7wwaJYH
ZR294+6JTQgovpW3gcPD2TfTjHvbm7Foie9hwzIeXn36nH//UDN6m7Ui84t4
mJtnp6bYNaOu41ipZD4Pses7/Z9GNGNOrOZDXiYVf/nllrI3zbgutbvQKpqK
X+WaPuTbghyrGAcXGx5u278N1ippRUlXZtTWCS4iRvXAbW1Fi42LdwDJRZB/
xq9kdiuc/5rxLxrkwjPO44qI+GuoFR/rmO3g4miD0KUB59dQ/7F4oqOAC/HN
Wmeipdtgpmj88rkHF7HzN01Jj3aIhL1/QfZzEHHri2haWDt8aTvaD7A41Py0
aD7xoB336dZmDxo58NReY0LUtuPHV5q5aDEH619ZK7WIdeBY/e+X2jEciPAm
VmY4d6BQ7nZ4pC4HDUcVxMylO7Hh+/XNGpEjkNEckvWW74T92xeVJ4JG4CCW
pRSv2gldxzihcxdH8LNFXeedbidYGSMZF2xHoH5Qz8bBqRPmBwOzOrRGcMfI
JterqBMeIZl/93YPw3rng/13T7FgETvqOiU1jKcrbM1eObCQmh9jZyI8jKnv
SlY9Z1nASjmv6Bk2ootzzq28xkLsrMZr/gAbhDY9Lj2bhSXWhpyJZ2z8ofF2
6J8ZFkJmtPTU97Ixprw8iPWwC/eS987r2A9hZ0D6BcaTLrjbzhmMmg8htFvD
pSCvCxbpzSnxhkOQvWF8JLamC099Fl+nqwxhz6jfqkOfuhBdMZZ65PMgbtP6
aIxd3chQCR1MvziILYcfjxe864brWJ9R9eQA/v+/Dl+98gpL3w/4L07+BoM=

        "]], LineBox[CompressedData["
1:eJwB0QIu/SFib1JlAgAAACwAAAACAAAA2OyoRchf1T9uxfvdKi/dPxYK77xW
IdY/KUdiwESC2j+4n7IYHizWP/DAbOrGWto//Mo50KxB1j/celeLXgvaP4Ih
SD/KbNY/Z94KBtxq2T+OzmQdBcPWPxsXIAsYI9g/piie2Xpv1z8+5bm11XjV
P9fcEFJmyNg/1FCvNOV2zz9geTznB0zbP7BJqr4Y7aw/wys3isMF3j8YCp2B
sfDGvyYJvOikSOA/RHWyUHJC278dvGtFBYjhP01kqcVxG+a/APoCqXLi4j8q
Z3Dnuwfwv/dRvV7FJeQ/NH5Ixrb/9L/bNF8bJYTlP8Ye1jBis/q/cFcQESLc
5j+SgoZVu0oAwBmU5FgEHeg/wwn2h7ElA8CuW6Cn83jpP22Mj1DkWAbAVz1/
SMi96j/iADWEkWoJwLFebSI6/Os/5i3IP4R8DMD4CkMDuVXtPwAImM6G3g/A
UtE7Nh2Y7j+34wAEiocRwAo7C8G8ne4/Gr13Ta+OEcDBpNpLXKPuP6AFtcDU
lRHAMHh5YZuu7j9C4dshIKQRwA4ft4wZxe4/+q5JvLjAEcDJbDLjFfLuP+4F
Hb3w+RHAQAgpkA5M7z+/rl1Kd2wSwPhx+BquUe8/pg29g6BzEsCv28elTVfv
Pw/FqtHJehLAHq9mu4xi7z+ROoqoHIkSwPxVpOYKee8/hCzIL8OlEsC3ox89
B6bvP8qNtw8T3xLAbg3vx6ar7z/rH2pCPeYSwCZ3vlJGse8/PP8Of2ftEsCU
Sl1ohbzvP5miiBO8+xLAcvGakwPT7z+KaKqWZRgTwCpbah6j2O8/Y1BeBpAf
E8DhxDmpQt7vP8Z/tnq6JhPAUJjYvoHp7z9SsqxuDzUTwAgCqEkh7+8/EjT3
7Dk8E8C/a3fUwPTvP4X6Pm1kQxPAdtVGX2D67z/2RNrujkoTwC4/Fur//+8/
tFIfcblRE8DlN2D8
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$892866#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, E^(-2) Cos[4]}, {
        Rational[-1, 3], E^Rational[-2, 3] Cos[
          Rational[4, 3]]}, {
        Rational[1, 3], E^Rational[2, 3] Cos[
          Rational[4, 3]]}, {
       1, E^2 Cos[4]}}, {{-1, -0.08846104456538201}, {-0.3333333333333333, 
       0.12077499717343901`}, {0.3333333333333333, 0.4581802292573271}, {
       1, -4.829809383269385}}]]},
  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, 1}, {-5.425161901014184, 1.1277810169926272`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796978515991132*^9, 3.7969791378554773`*^9, {3.796979172746356*^9, 
   3.796979183575775*^9}, 3.796979307677802*^9, {3.7969793497006407`*^9, 
   3.796979365852787*^9}, {3.796979415450951*^9, 3.79697943272141*^9}, 
   3.7969797236469393`*^9, 3.796979778515458*^9, 3.796980179062237*^9, 
   3.79698148302003*^9, 3.796983282017235*^9, 3.796983315226063*^9, 
   3.796983360877659*^9, 3.797044793132516*^9},
 CellLabel->
  "Out[957]=",ExpressionUUID->"03df9c25-556b-4c30-88c3-2b4dbe358c2c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"spi", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"Dfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.796979976911717*^9}, 
   3.796983287198497*^9},
 CellLabel->
  "In[958]:=",ExpressionUUID->"26725651-a81e-4cc4-8da1-7bfa8a641d25"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwtmnk4VP/7/wkzVCilbMmWbWQnlF6HtKJsIS20aZM2USKSKEWSvKXsa0iy
RMh9su+E7OvMYCwzQ5S1/M7nd33nj5nrcc3cc+7leT9fZ65rpM/dsLq4hoOD
w4h4+t+rKtoysbrKhods8b2PK6lwY1H26eISG6iF/Ouda6iQnashP/ubDRZx
5y8Y1VNBU9H83OgkwR5t74ZbqLBro39PQycbFnOHPat7qYDRZurefmJDU9Op
BNlpKjyKXr38Op14/4SUwYtfVCiz4ycHJ7OhPeP90tQcFUwaFPf5vmND4Ix1
f8QiFQ7nOxY7B7KB/0DTw+draGAV2Jih5ciG3G31Pb+EaPDaqPfwTgc23ND7
IN27mQbty4wx+eNsSNsWrVa8hQa2N7nlxEzZ8Nnh/NNzYjQ4eWL3e45dbFCX
Kfczl6bB+02HDZY02NAZkWo3K0ODgUbbrlkVNsj2UMtC5WjgZHx785gMGxZ+
c5nkKNDgAuXDi0YBNvTpvjzwcicNkke+KFfzseFMSpXsjCoNRmMranBuNuRl
pTsfUafBlc1D3HlLLAhaVeahadIgvYmZ8PE3Cz7FxNvIaNNg6ukyljrNgkdB
92fsdWjg+neLd9QoC0jbyMsZu2jwqUBOPHyYBV0TUSdr9GgwfUvza3AfC1Qd
zGZ69Wlwe9T8t28rC17K1SUydtPAo9n/+qVSFlBTYh78h2jwYtK9c66QBWGB
dy4+xGiQQL5i5JfLgoUEU9zBiAYNyFw4Oo0FBzIM0meNaUA9iXyUE1lgfY2l
lL2PBvMeGuMF0UT+WwaXz5rQQCZb+FtrGAvatYo9kvfTQK+BrOAUzAI+SVOh
XQdoYM5YDGUGsoDFdBr6RvA57qklTz8WbHOx7NE/SIN7UgMXeL1Z4HXj9kI6
wSF7WpreeLDgIlVMa+MhGiTal+nJ3mbBj+oEPxeCC93yErJdiPyx84MlBDeF
pqzfe4kFD0O/GK05TAN6ZqR7/VkWpMsuxO8heLEmaMj+FAsSXvsvXCNYYMTr
yKgtC5IzvxqGEizHeSPvjiULxm//ufKBYINtZyU5zYj+Kry7W0DwMX3rpyEH
WGB5jO9EEcEXju//JW7EAs78xPU5BHve2nXqw24WRNxqehpDcGiwUpWuLgtk
plmVPgQnfxBXr1BngePstZLjBBdV8kdZUljA9e7jBSmCW4ZXuQZ3sEDyyraC
QaKe0b8z112kWOByUD7zNcHLovTORTFCHy+09+wheINuh1GgMAtE1nxx7Cb6
JW9Vk7F5AwtiGaKC1wje41oknLCWBc7/WoxniH5bBmX6qPGwQMXffPYawc4p
MeMlq0xIM+YS7SXm5VUWan1kiQlrQi9l7iU4bMDvW+ccE/Ycn0mOIOabuuSm
cJHNhKRNov+oxPxbNU8s+9CZ4P9OJdOe0AfjqOlF/kEmmIVtnH1E6OfvVcPm
qG4mdI0FeMYS+lJMlE7Mb2KCyHuFnQV7aWAIm/j31TKhrPLE4c+GxP728ni0
lDNBna30NHYPDbw3TRyZLGSCy6nKY/YGRD5qfXn3cplQ8jW5VobQd5ppkyQp
iwl/bY4eGib2ofVxzi+pRCbs/6Wra0DsCyM26VRWNBNiBN5FtGsR+RRHVO2O
ZEJlmuDAOWLfFOc8o2yDmVC4HMh9Uo0Gezdc56YHMsH4MbRXEPtrreLoesuP
Cec1brjKqNDg4YV9xi88mCDAmz9UqEj4Sfu6ie9nmcCilP2yJPzi0YX80oxT
TMhKFxB+sJ0GqnNnXr+xY4LDYvyZt9to8HRTzp4r5kQ+XU3H8kWJ+q3sX27Q
Z8Jb0irX1Y00mBjmvLCkxYTYj1pFuwVpEHkrQ4+uStQrh11ew0+DX6H/hgvk
mHBo+Ui4Ky8NUpqTtB03MCHqzv3A7/+oYO14lO/wOiZ4SX22M1ihAgd7vl+T
RMxnf9V0KuGXDgKmgaSVKTiyW935LOGnguYz3R/HpsBqkLvYbJwK9+oMfVZK
p8An/tbyKuHXOxzGrEe/TkHcRbP4skYqtI6HKrbkTcHnky9z79dRQYWP/iMx
fQpunn5AqiynwvDBIDnTiCm4YJFW1ZxPhSOVHbVvr09B9sf6b9n/UWHexjfm
8eUpmPth6FfwmgpJdKU7189Pgfxwj33OSyqscnlLGJ2YAuXPDvL+gVTIM5a9
wTCZgtt8Z1P/c6fCNvzG5l0SU/Dt98Nb962o0CCk42awdQq6xehxHeZU8Ly4
1GYoNAWVWt3cioep0LH2yWsT3ilw8t1um4qoEHo8SshqbhKm1M6HblWhAtdk
xYbrDZOQvyf539c1VMgxDLp5s3oSaE4fxOz/DoNT6LGWO2WT0FUrLT4xPwwl
Oj0vPQsnQU+/Jn98ahjcfdkCT5Mm4VHIQo1txzCMC4vxJ3pNQtx4iyI9ZRgi
Lw+6pHhMgnKqp0lp3DAcKE5q+HB7EtrVzeefRw1DgpPai+zLk/Av2k9wTcgw
nMowWVdqMwln/nMPsHcbhmbsBl+3yiTIWm9/kL53GPKvVfAI9k+A280PL8tq
h0BPylUjpXMCfOOWDM58H4Ki9q2nDVsngHf3TNxE4RDghtfyrlVPgElZS8DP
1CGoExQ6X/OZiPfyk571H4KhXEf8UcAEBOS39R3aMwRrV5Y859QmoLjTNOnO
3kEIzk5Kea48AY81zotXKg3ChotHW2V2TEB6o0DJn82DINwUr2QpNgEl999Y
L00MgFTcoa6P3BNA/y3c8ujNAOiYROhc6h6HnEc59c/o/eD0QmO6228cTDdg
BXuv9oFnXlhAo/c4JJR9k6ZY98GbvlmJ7/fG4XJfQPfS7j6oU/lyOM11HDY8
Kdxiwt8HWo0Gie4O4yD1ilPIO6sXSAImtps0x2GfxsFHjyd7IPOlbYnZMAOe
COUJFx7rhqqCAiusjwED4mG6a3S6YXhQZFyrkwFr/fBRVbFu2KLeKyzeyADN
bpUhNXoX+LQ43hgvZMAXjcjUZvcusNp4RSYglAH/Delr+EV0wkLYg6eAGKDg
TOsPg58wJvF94oABA+RtLZQjY35CRwrJvEmbAUtDvPqe3j8ht+jVxn4lBtgY
3Q5qN/gJrtTUqKVNDLBNCfYazm0HmkZ7pg5jDAzC/7bax7ZBU4vKj4zQMWjO
hviEkz8gUWBANHJ4FC6vnK8Xbq2BsJOIrN83CprOGxt/+tSAX1rcXHfHKMh3
dH+y2FkD54zPN4s3jAKrBhP1CKwGGXeGf+yXUTDTexcYoFcFCf2/2CnPR6Hj
bGF+dnA5xGWSq/J1RkHORsLuMW8JvD+icbvt2QhImcXUl4m9Aj+Xs/eUDtNB
ve2F47efVegBV7rHbSYVqBeMGdUTPeisb7NcR9ow9CzsKx57PILefBuJfH91
CKREemIC1rNQ0aDi+kyZAThEOa8RwZhFshswY5uYXpgw286sf7OAcpSfXqXS
uuBfrvgzydi/aLDys5Subgeo5HrxelI4seP///ET+i/ZOWUOcmIjKm804Usb
ZNZWPaFSuDDlh8ksRkYb5LwYvLmqxYW5NuenC8W3gUJl488te7iwhVsdMs7P
24BzR8SkthkXtrZg6yZ+pzaQl99zcqcLF6ZuFDXrwNcG25mrI+QMLuzB8di8
PydboVyIm6Qox43hKZ9uSlm2QoXHpaLHFG6MewFUjhxohela984uTW4sJGoo
KVq9FQRODyjeMOLG4gal35jwtML1O0Y6pme4saorSXfDsn6A1h9ty68R3NjG
hx90VTl/QEfhzq3qa3iwgC+KNRvmW4D/0kS7Pi8PtsRKPTE71QLauyYH9wjw
YFTHFK/Crha4fagYVxXjwXKMEsuMs1sgK9WRimvwYFY80UftHFtgT6/GoUhH
HkxBVLqR40EzKClXegzl82AbgrZPVzo3Q8bA4288xTzYwtK2Tc+tmmFI9IGz
LM6D1fSJnRBWboZx5suKg3U82OW4zSNK3U1gWBdM1RrgwdIVeP9a7WqCI2Kb
d77mJmEqumyV5NkGuH319gYDUxLmrOrj87W/AfgzAp/mHyNhsfKCrY3VDZCT
wF6QtyFhQlvVPP68awBWxff3k6dI2Py86/eDJg0g8Ct8dOk6CSv7yjo+EV4P
yY89NZVCSNjK54dp/x7WA63oR/HqKxKmky6wLHSlHlrFribXvyFhaVGqcbsN
68HztNmdfdEkLPiB68SLkToQu2HK/pxBwuwNWQ/VdOvgwLLxJr8qEham8/DH
Pqk6sDehKKfXkrD6nQJy9mvrwHJ4kbe6gYTtlVSt9R2ohUfZGgsDrSRMdvX6
ptaAWlD0dA4LGCBhp+b/Xhy9WQsXl3v7rYdJWAQ7uHDJoRa2m61NFqaTMN6h
j6dl1WqBR/ahr/s4CWPhzFS3zhoQKTY9mzlLwhS+ei89/V4DA5aCvhJ/SJjT
Z37z6IwaqNW93uS7QMLa4nf+qiT2uDWO3bbjLwkr9Lu+Z6tiDXBUszyGeMjY
L8+/IRShGlAcPss3QyZjlDvBw2ilGgKcrz38zUfGYs5/DLjcUg0Cu44wu/nJ
2GMTZsvXe9Xg2xzRLihMxsoOTR3TPl8NtjVapV+2kDEO88mmLPNqILtb5FiK
kDGv4+MNiTLVsEdPPeK8OBkrOsEwleSvhmfdvG49EmRs8fRYXeR8FTjbvNDb
L0nG3J1HaoIbqkC9udryjxQZy7tKP8hbUAXzk+/C98gQ+brSqvziq8BMwTrK
XZaM3fAYrvBwr4Ihvo91lTvIWNaDoX2/nKrgodAdWo88GZvyGSxzMa2CBvL5
dzQFMnb5aT9+VqoKqkyFKpuVyFjKiz7Ut7YKXP+syOUqkzF6aG+p7e9KMLC8
zBFEIWMyb3oMfwxWgsMXl6M2KmTs7NvuEtO6Slj3XpYktJOMxUV37a7Kq4Rz
UamS5QQPxHcWYbGVIH5r88tLqmRMIqVDv/hZJVzgDzy6SrBD+s9CHbdKyH65
zSZIjYxFZrXvyj5TCWGW8xG86mSsI6fti/LhSgif1BbwJHhzQatOslYlCO1e
yB4g2Lr4R952yUqQuHzBXVeDjIVBi1YUbyXYT0Yff0RwS3lzzubZCmC+rtsP
BAvUNGm87K+Ac8Eb904TbNbQmM1XUwFvL77T2axJxoJaGtT8cyrgs1CYLIXg
mvb6rH/vK4B7UWpVm2BSd93O+4EVIDrjBhoE7++vzZy9VQHvzUtOShPsP1xD
cT1VAWeG5eu5CC4bqU5nHKgAW55R7m7iehwTVUrnNYjPx6hwxBO8l1WZ1i9e
AV5yanknCfb6VaFgT6oAtxRZET6Ci/6Up7ROl4Npq5HsB6LehaWyHea95bBl
qaxhN8G7Vr8nVVeWwzEx6rrvRP/cub7LGmeXw9xgb6cewXlkPKEkqhzCs1gK
iUS/1TeUxn2+UQ7x6Wc1jhHzcd38bbuKQzkoXjrYHUrMM1OkJCbFpByU7Syp
FcS8laSL3r8TLYcs1vQcF6GHyzu+im/hLgf3ZjGmwP/0olQYFcoqg6xzr2TX
KxL60PwS+aS8DNqkExT7Cf056eZv5cgqA7P5wZFsOTIWa5AX4RlZBjUDn0v/
p1eJfTnhN66XQavdjbguQt/CNlmhJ7aWwdsL1ppzYmQsR/550X6uMpB31ftz
R5SMWSxeomuwv0N9kM2lsa3EvGKk9dZWf4e034d1PmwmY/8Y4YNF7t9h6Z3G
t/+I/XxXfIsv9dx3uBxbr5C3jozphRzVen30OxgOLJIriH2+rcUbeE3+O5SE
n+cvJfZ/1PuBqkQHDtaV5GtihD88trC35y3DgXugFf+xRMKkZHX85j7isKDI
fdyL8BOHGtbPhic4dCzKb8sg/KdJ6Jy3tw4OZcbfXFwJf3I99irymxJAa66r
UADhd2lzR6becAJojt4Rd20mYdS33JhrdymAK+nPIcIfbekeY5LPSqHDbJy7
s5KEoftndH0Z30D1OjRaF5KwDYmUduPUEjgRoKldF0XCjhwaURD3KQGD225a
fREkzJ8Z82DWtgQGEj6+HQojYQu7hGSTSCVw/ssXXzyIhA03LNzicS4G3RPP
Ofvuk7CcP5WCNXJF8MhcR8zrOAkLSU8o27v4FZIih4IOW5Cwa2d87uY3fgWq
e4o/iTh/5Kr0ehPcv4JEcs+voxjhz28yUrxrCoG0rNkhokzCPLVfGWq5FMCa
3vC0Z0s8mC3j+vQHrABUg6oHTed4MK33RxKlhAvgwHq77X+ZPNgUFzefQOkX
4DWY/U9lmAc70+bezhD8AkWvJ8JKq3gw49unrsXk5kFnmXZ/aggPJimvLyn8
NA9aVLPZtoE82HK38I/np/Lgn6t+yJwPD5Zn1Kx7nycPJD15LZdv8mDyG43X
2NjlgtDzPFFdKx5sbbbCW77lz5BuWKnosJEHS+4dCR73z4L0x2P9in7cWI/X
lthorSyI4ioeNbzPjQlIHsy2pH6EEzwZTOOb3Ji7U1rrV/QRPvFaDEoQ9xsH
Rq5uDVrKgDMNBXmC+twYg8WOU775Afxkzh6bmiTul9Ys5V47mQRS1CaPk/u5
sDOJypXb1yZBWtbFrIsGXFiYycmOtsJEaDj6dpejGhe2FFCysHtLIghS8nZK
iXJh9et8DNf/iIfR7RMS3ZNrsC5l3pATwTFQfvpkkUzIGuy0pURe7/lw+Mdv
nTZbyYlNzf7Wv1vxGjxuGlVKfeXEvCKaQWDHa9jhuvWIYSYn9r7Xr95o9BX0
HpF5YBLGieXVt1Ye+xECKPUR3/PTnNinORdZRo8/cP/Tcfo9zYH5tiu2i5cb
wgabgsty6zgwFcH+qzw75ZDb160k14VV1DHjF7th4RDS5qOL3epZRQ9eH6i7
pu2ETM4L1G2IWUXlUs8CozfcRomx95/ky66iS5eUnb/880PWnadaQhT/oa9r
H/wsu/sanQrZfdxWZAXF7RRu+yQTjqibynP2zS6jAItPLe+bw5Gl0hMSb9My
somg1bsrRaBNpDZ34cfLaFrarEy5PxIJhXnWGk8uIXn9bZ/CTGLQq6mXzOHc
RVSb62jy+VkSctT3n1knP490qJySj+w/oR41jmNSwTNItchuRv3DJ3TZZVW1
1WkGyYd9rBha/IQ+PV/r5qg9g9bFZ+rEmWcj2RA7pfW902jFwr5vlZWNanfu
VMqSn0b92Z+UQCMHsTCVPwquTBR780yFYUEemrOzWtd4bwzJThcvGpR9RQ3l
2Wn+F38ir8Z9/nPMr2g9vpne5N2OOtLrBbJEi9Dc3S8Jrm/aUNDFXlnpW0Vo
5XXqn6yyH2i6Z8mcLFWMOP7bf+KqcgMqrdRPaPMuQUP6zf4ZV4qQw7uCIy76
gJyUzbvTcr/D4cTuxqP2ZciFkS6+0kOH/eZCXL/zq5Gbj9nPescVeOnY6ate
0ICQ4ceXd1+Q8eqj2/gthH4gualqyXLzjThTWvhha1QbCqjypQ5Ub8H/7/cA
ovso+PbFi+F33ShnX27pQJVVP+0uWUjgnX0brJxrutDGmJCLdkrSuNP9PWNk
s17Udu0CzXxAFi+n7Aoq5xlAjKRncoZh8vgZNZvEGcEB1LGRFJzzTh5f0LxV
sl1sAA0I5wbKJMvjKgYZrAeqA2gxNUXoV4E8Hn5ou7W23QA6R4/972i/PO58
kSyRnDaAnHbpi/+RV8B5Yzs/BpgOInURW4+KfAU8IWGuKu/4INLjMeDwKlXA
96RsHKI6DqJ7e3kEd1Yr4Dc/mgoht0Gkuqz+/kGXAt5dDO7z7wfRbne/J7VL
Cnh6Vyq6zBpE7JyTQtJ7FXF5vhJG0qEhJHEzL9oPFPFf1apXE8yHUDhzeEqz
WhEvDYifjLUaQnmHzy/0NinittyBrKhTQ+i09VFZkQFF/Mmq5VzozSGEyY4M
7VpRxOm/x1a9IofQHMfsF/5dSngCddPW44whFJAc4NiVooS7xgdEWjGHUHC7
5NbQj0q4gdOiqMWvITQxGeWD8pTw1v4BCdOVIWQh4m705LsSztn9QcZowzDq
UVh4l9GrhDs1I9WdesPItOa08SkBZXxbybX9PE+HEbuX1bjxujK+WXRpyZW4
pfVVd/RVvKOMr3d/mt0VNozK+ruVte8r4ytqyeKZ0cNoZ43KHuUnynhP4sCM
Ve4wUhap2Bb6XhmPeG4ZEzcwjNa2O+3Xr1XGQxiD1mvpw0gy+dvxqCZl/Ml+
Vz638WH04v2nLHabMu62GuR2cG4YRRvbC3gMKONWdyqOsPioaG9NkcX8L2Vc
4OSu+d06VLQ2MxfliVJwUmFlZrIBFf3ZlJNtI0nB/262OSeIUdFXBeEihgwF
n2q62Ug9QkW8oVNXJikUvM44PfGZExX53uDhczCk4IHK2yw6n1NRfyWKbj1N
wR8GZvAYvaKiGN2Ey6lnKbg7Xb84PYKKqm/1id+4SMGdY2zlH8ZTkUDjZ/5O
FwpuIhS6IldARSvsjnHyAwrOsbTmw20qFYnl7eujhVNwJ1r3rM8YFZVI+h79
9B8Fxxuy9wZPUZHmxo/gGkXBfWPPtKf+oaK4EI4HtbEUfNWkaLVvLQ3tUS5y
YH6g4GdUXx2ZEKQhIVZSrV0mBS/devnN/GYaWqL0sPOziHwnhClC22kobd+J
vea5FPzfy1u2B7VoKCrRYHy0mIi/fyjeRo+GohtJIqxvRPy57VNnDWlI/O2b
Lwwg4nUaH3kdpCF+LePtheUUfEAyqeGZGQ1VqT3pfFFJwffyPtj6nyUNaWr/
7LWpJvrbo/jx80kaKtvNSiqto+CnKlbnS51oyHMN1c6pgYKXfOwwbrhIQwNn
9bR+N1JwL1//rtEbNJTXfhUttFDwlR1DXBL+NOTnmZx3roOIFyw4qvSMhvI/
Xvr8vpOIXwh+qxtCQ9bkMy9ru4j4+t1qlpE09LDNqX65h4L35Ql5nommoUzv
zK2cfRR8T8x4xbUEot7qdOlFgpdv/ucQkElDOrGHTL8PUHAHB9fk159p6JK7
2olXgxS8aN/+6bgvNBQRZMdpM0TBxXZK7M4qpqEc1TEDvmEK7rll9kkxTkP2
P3j+ZhPcs1rbUlNJQ1TOvr2mVApuMB4n3lFHQyF3X893EhzV6uFMaybyWW8n
aUej4EvFRz9Pt9PQx06r9BqCHZJ3rPztpqHTEnlhKnTi+iErB9YN0hD3yQ9N
fgSL3Wt7JUKnoXfW547XE3z/bHrfjnEaWli7QZI0QsG7jjxS0GLREEcLfbsW
wXra9rexWRoawjZbWREcuU3tm/kCDWEWbRnnCV4gkXhP/qWhJ0fs5S4RbD/d
Z3V5DR2RentyThFc2J0bfZdMR9Ybw4+aECxSHsTwW09Hd51LWdsIvpd5Vit0
Ix1pl70JGify6Xqj9zB6Cx3Z+dqJphKs5yNYmy5ORxzuxmG2BEdeHt1UKEVH
jD8RU/NEvfOW385U7qCjwp6I7c8J9uv+1L+XQkeyBy5o8RAscDbhVKE6HUld
6ghz/V//GOG9Grp0xKXdpllN9Fv+ZqBDxm46wruMeQUJzpm/3y1nREeLpYK8
B4h5Gfq42MccoKM1EfIKLsQ8bUIsbV9Z0lGk03TEk34KPiRs8nOtHR012D39
cY/Qw7VoXRv/U3RkZqe96tBL5JMpbuVxiY6GFjLJU4S+BLQFfky70FGA4O2G
KEJ/b4s5LK7epqMZhT32eoQ+s+tGzE9709G02lQkaiP0ZtXV0OFHR3N8g7s+
/KDg1d11phZP6Wh9/fQtTkLfA4xPh/e9piM9pbTn3sQ+XL2ZUFMSSUcRO28e
jyf25fd8+EHdGDpSWngXkltDwdeTPfcrfaCjUy5+sokVRD9DXCoSsuhoB5f7
Fd8yCi67xXGfRB7RP1M0a4oT+tthYiQIdJT2m57ykdjvK/sEDH+309GhQFnH
qM8UfK6Oo8S1h44at9iFMwh/8LWaNWAM0tHDj21f5Aj/iDzbpdc7QUflBtGR
zikUvMonQfs7xwjSsxpIECT8yIr8JteANIIsTmcLN0RQ8P6QQM28dSNoSmO9
lPtr4vujXdRTt4yg9ENlLWEvKLhMia5KsMoIWpGKuMf0puBZ+5QySJojSN96
/UNhTwquXy+u7LuL+L5oSpWyOwW36OFQvGM8gjp+GcxJuBL+s1Ane8J+BM3l
HYqXJPy3V9tRfIf/CJJKPS8asovw20UdwSfPRtA+t1a+aE0KPv1tPddIyAja
Ghlw+O1OCs59sGgi6e0Iepvc8PKELAVXPSFcJPdpBFk92aS4wE/U711vL9cz
goonrbYmDyrja40TzPwHR1Doqf1u/t3K+BvSfYxOH0EqD94GWBDnT/pLecUk
9ghaezwgOatKGW+LfzQvyzOKni4cq3iUqYzLV+2KkFUfRecdWdYP3JTx7CCB
oMc6o0j9k02cNHFeGhwb8aYZjKKqgZL1eReV8WNdYRcT94+iL60jUtG2yvi9
Caa27MlRFLy0ouuzSxmvF0hqkwkYRT7OHqoPfivhN+02bJTpG0V/1p3g23xO
CT+Xpha1Y3gUJTRJ0DvtlfDji0dllUZHEWdsuPezY8R5/y5YR316FDk1b/+R
v0cJ5xlc67CXewylSCns1tyihEc58yQ6qIyhkR+FqnmVinjF3SXt115jiO97
mHbWFkX8S5VoacSjMXQvB7El1iniH7bqH4wKGEMR9X/f3FtVwEO+epyIDx1D
IsV5IX/GFPATf+e8PyWNoV+abj7rCxVwlj+7qr5hDHFUFXG9s1HARcPp9tzb
GMgr9dG0iI88rvd4+xY3GQYqWr70aOKGPG5726GNpsBA5/DEyiQneTzMosW8
XJOBLi3wmrUZyePr+UuM/Q4xkIfaTPBWLnn835PXKhxuDLTvyFOW7qMdON3D
mGOljoFuX/Xal3hNDl9zyfvbtRYGMnoyfuzhCTlcyrbQs/cnA+V738CMDsrh
p7VVfxcNMVCK9qkvD2Xk8I5p0Yn7fxjoDp3LprNTFq+9MtM2Lz2Ojshvv7pk
KItnnYxLnb03joKWkkqp89K4dqfsEunhOFoNVOkXoUvjxVapZmKPx9HuaC9n
/RZpvOZw1gwWPI7ETuam66dJ47RdJbtD4seRpyVPuK6dNC6yuatZsW4cbVJi
9Uh+lsL9GgQXTotPoGm/p9t2fJDE7Qx9DtV8m0CZcDB1IEcE7/s9KlhWNoFW
Ejr2WTwSwc9lHe0srp5ALXz6Cv8dE8Fdtks6f/oxgQ6VXS1MmtyK+3F+exwx
MoE2xFmXlUpvxbMql0ov8E+igotaCVNPhHHuo+46nKcn0c4YZb4dqkL45zPX
ZQxWJtGenzecmMs8+Ln86W1xnFOoK/7pabn7PPjm9W6iJPIUumcxU/rnNzfu
/tVzQ+vGKVQzKlR3ncWFG2x++u+KwhRy2dHUlNzDiZfVJvS8tZpCTrqbw55h
y9Cu3RW2mEZwYS5jsx8NFtbu4/p6nIkOHb+rU/NyGVn92K27LZKF3CZaakSO
imFrd6/7XhLNQnokvls+6WLY96Qe01OJLCRSZZi8hSyOqd+7f/ZdFguRxjce
78DFMYHtBS9EK1no9vW7WKTuNqzWRZMm/IuFBCdJL58KS2EYr1KogBkbNQSF
84WJy2ILtxbEsizZ6Imd+VK+mSz2qbc62dyOjeQsJcOmvWUxyU/OxS/OsRG/
2rTXhyFZbOV40uja+2zEe/dkomKqHFaQuN2QnMJGkafruI7pyWOu/OzqlAw2
qvzee6Hjqjwm71FqdeAzG83nv79/J1oeCz9y+vKTEjbK/7vozVqjgN2eiXrN
1cZGzdtsKKNNCpjyyauSiV1sRLLCz4uuUcSGK/Q/GA8Q14/91XBWRxGziOwq
fTTORgGvTrM03itivGvSDkuz2Sjt72f/r82KGFzzaMfn2GiYk5vXlksJc/95
wNFpiY1wadlL5F1K2P/9/weJD1eGNl5Vwv4f7L+4vQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$892991#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0Hs0lekeB3BTGZSMEE2XWZIjSXIpSvTucQwLdZZLbo0JRblzEIYMNeQy
yqYhRZiUcT1D5KDhu3VMduzN9r6u6cR2bV/sV8Ok5EznnT+e9azP+v2e3+XZ
ez7SNXCDnJxcOHP+uo0ITfHHjzQatG4kRphSiHy/L/P9GuOFxKVLjBuaTPSW
/6DBCmxxPcP4TTjRLV2iwWYTP5kxNtU/fX5eQiMqWPOlPOOY6bNyU/M0pmjL
jX0mFJpLgkrHhTS0des1v2f81iPOinpJQyAfrmnE2GJb2gveKA3ngsQNPGMK
CX15Cc9IGn7k8Asfxu3pZZocPvO+47uyqcMUPhD1zW1cGqnul509GVuttbs2
/YeZp7htkWNEIbmZu1TXycyb6xS/h3FnxMjNyjYm3/jgYtghCqyZN713fmHq
XaHuzR6kcPXex6BbNUx/vZIxZcZPPbcq3HjI+LtHH/cbULDl6f89tZjGkjlX
zUKfQvp1c+G3hcx+t3v+NNhP4RnLNiUmj8mv1BjdpkfB4bHvk4sZNIx5t0+1
7qOQHRnu7XeNRvkMXxSvQ4F3IGnVO5n53yqXGIO9FP5RWmh2OobxCRunoC8o
uGbwa818mX3Se1Tsd1C49eWEw6GzNHZsDlUp1aQw9OH1gp47s5+Vz9qCBgWP
qE26O51oVFXvv31mG4WvvU+UyFnQ0K86P8tWolCi7mC5ZkJj7E6MXYoChVd8
j7FlQxrHjpM/+slT8LOJ1ljQofE6NeHtBzkKAQerc/gqNN6ZBfMLVkk8nGsx
6FFi4vkLebv+IDFf1s3lbKIRVNZk8+PvJII1pjY1r8ng13Uk+NwiiYj/aSbf
nZdhx4GJ5+7TJOIH0sIvdcqQmtE6LnhOIkcSN7rSKkNr9Pio9TMS9xWCv7zW
xLx3C4kvfkqCR5zefq9KhoaVibv6T0joNGzvIPMZ//vP6OxaEv3sSuWTl2RY
OmkTFJZFYrauKK7Pn3HK+eSZNBLvudlTXj4yeLX8buaUSkL3k8jmGBcZtDde
SJfGkUj8p4VP9QnGe75vi7tAQs+VW6uhKkOQa9fF6uMkrCLat9/fzMRFU/kG
R0i4ZNelHJaXwflylF+JEYkrT9lujmuLKA+fnHTZR4I09f6QMsv41XrkJmUS
yepiR0nrIsa6jg5nvBjE0NAWcZf/IvxulDUphA3iasDjzlofxnuivHcFDsJo
5dytAs9FpOZOF+09N4hM9UdWwacXYbyzflbeeRDWrl65qscXscQd++WQ2SAq
Bx4c8VVl+uVka6y9FSCh1zplvVOKqDpPreuxAvzt7ILbfJsUCakBb6ShApAi
tr6gWYoGc/VAuwsCGCrNDlbUMPkOHp8PugggtM/WdSqUIlMx5vFXRgI4/jby
/E64FOzxrQmezwewhxOpYbFbitRiY/mRm/3gqR2NtdSSQqDnnteY2I/EwDXK
Wo0xz+brmIv9GNmcfstWkakf/G1VtXU/2O531VxXJHCecdMXivnYKOlWDedJ
wJ7o6Ehi8SHavnNrxRUJGl4GEr5jfSgKmgyrjJdAlVOftqGrD3ZPHvCqoyVg
dXYq5FT34b7f4ZyGIAnktlj1uCT2wafWdkvnGabeXMXBqp19GGBFKo0bShBV
qp+d6tGLx6Hd8p/9VwzjvZ+WTrZzcUw7wqRyVAxVfWmlYikX7UNa31iTYjhP
hPipX+WCYx3aHNojBsvedI5vx0XvZ2oXuI1iyB0RHR0V9GCqyZdz9boYbP/V
ZcvJZ9i8vpa4cliMKeWCabu5bvjlmCyNXxNB8GA4K6qQg8Tm/Ov8ZBGWXJKo
2FgOCl4u7+5KECHq9mDLOVcOeg1bHKoiRHCW5DrObOXAjG9ZEXdWBO2wn0/5
KgCfqth6qJuKwGmgv6kZ+hV1uR6/nhK+RvlPAUo/27fiXX5SJojXkCM4Cpe/
qEeFyqvPi4TzYDnKP7r6r/tEiaNJNJU1h4ZVy4Rah6fEtTD/hAMOs0jT6vjh
uIeASNpYEx+9OA2fpAxdJZVxwj91QHekSohySUjvfgUhUdAxV1QSMgUj74cL
mmNzRPukvnKdziv84GImaUyXEPtUWTZnSicgzNLqDihbIh4ZZIZMz4xBWBJr
07GyTEz+1qhtbj4CxbTdM4lxq8QVt/e2xwxH4Kji7CWXtkrsELKCLXVGkHWz
WzErb5VwXh9oPKkygrWoqF0P6lYJjqnMxn5+GDUdlMInM6tEeZlBoFfhMOzj
uOvuzu+IMWnVV1zfYZjS0ayI4nfE/wG0seAG
        "]], LineBox[CompressedData["
1:eJwtlnk41G0Xx6l4LRFKWiRLEYk2QulQ2jxIQkJ7kUhFUdlKm0iPbI9s5S1S
ZGsSwmGGmTEztkGRVIRUtsgymLv391zX+8d93dfnn/u6zvf7Pfc5asfP2Z2a
JSIikk+df29+meipLssWbN7dUmpWNAmJsetHgruaMTREMjLCQgD83EqTG3XN
mJwjb/HisAC2937mRmQ0oxXT4Pe6aAGs2K88mOzYjGntPNcz4wLo0Y1bj4VN
uDrVcG/IqynQCU4f7Mtqwvyl0uZVOAXe9a9fKKQ14XP3vmMT3CmYvPBO3S2i
CafOlK1d1T0FUm+U5sscbUKZ5Y2zaPOnYa154qizZBOKmz66fPHcNAQ4PKKN
u/DR1Pbdi4TFM1CRkXtedR8fbZKrgp5ozMCcSdS13MnHlsK3IclrZuB+4pen
KWv5aHKgSu6g+Qw8/qwWZyHGx6Ad4D7jPgNMj6eXonMakf++vedn/gzIBz83
1BNtxOqmXG1vIyHcLlzFlptowPpVH5aXgBCmBp8dHO1vwIWl96LGdwqh60hG
YFFrA7qkhHeaOQihwPwJfVteA761/G6+9IIQ7MRSbA4cacBW2/UzvelCYJoq
fzF2aMDsu18STbKFYOKXdEH5rwYsFVGiBRcIQf3bw9hOwwaMea7s2FouhFF2
/AdP2QZU6g13anwnBK3FarUiAfV4XWrU8cNsAnLhy4er3epRWWtlqoEkgcmp
ZfMj7Opx4vrnI9dlCbA/LjmoqFOPx0b67X4sInD68YIe7bY6nFt+ZkJ0DYEX
WhJCu011iCIjxrvtCEQniKsu0qhDLdFM7SxHAlclxbZ3yNYhF3pjiDMBy5+i
d917a5HpP/3e7wSBnznTCwLjajGRH6by0peAruGQbvooD+M36KevfUDATS8k
pLiDh6r3jNK+xhJ4pDmPX8viocyHrhM3EwgoKOn7jyfxUMlxienfjwhMTHhX
7rLgYV/dAuBkE1g7TOa76vGo91ee/5lL4Ezffbfzi3iYw33vPlVA4GNrjvTD
fi5KpapkdRYRoBcPOvyI5WIgY9P1FgaBmfzgTBLMRUcf228nmQQMXshOK3hw
MXah1IIuNoHMRL3Hm025aAZHK9NrCXRGl4/s1eJiDmPGvL+ewJIImx0n5bl4
zdTkriqfQGSA9497PRy0l0/wtHtHgOlLtqTVc9DRs0jctpWAiNf9v18Xc7C0
5MrpzR8I+LjmbPwUycFi488h7R0Esu233hnx56CNxw2DqM8Eeqzq2sSPc3DP
fXb++k4CTqaDwfqGHPQuMiBm3ZQfBsGN21U5+E/ZobrsHgLcNbIrnKQ4qFmk
eUr8G4E5mql+Xr9rcElmFN26j8BWFb2aa59q0DcyqTf0OwH/heVL49g1uP70
rsb0HwTyZG28nxfUoINRbGjhTwIaf87O59+uQU6RnHHaAAHXCeGp3vM1uMzD
bGvAIIH4ociiKecabJaVl9o+RKD+2zLpeTtqcPh5aPIkxRJfXh7S0K9BH5O4
saRhAttaTfM2La5Bp4rdimt+EQhoqJ1lNbsGn25Omc6imMY+5HB0gI0O2dGZ
i0YIDFYMPLv4no1nFLSVfSnWKg6aCqtkY8/Zo45vKT6aL2OdksXGqnKjA78o
Tnye8ig/jo0SYgUqiqMEmtLWjFSHsLHAjJetSfHcxDKLDx5spF+4I/ov74y2
/mdwPxsNE74qz6c4JLzj+6ytbJSlfSED1HtFoWe3KK1io0118LNCikeuCu+v
VmDjMLds4VmKV/tGdsIMCydZKVbyFJ/0XLbRvpeFbsUqe55Q9aSeeHn7dAML
Nz02m6tB8XsX07bAEhZ6B86Oj6L0kLOvXf3gKQvn2rj3/qT0srQ6FJx+n2JF
L+FGim9YDDQUX2ahT6N8uyelN313/96NJ1j4aWvQs1jKDxHrn3U51iw8NPGl
K6uf8nffD2ttIxYOT22JzKf8C3T4znuizsLEPQ8y/vW35GDfXyoyLLT/2qEX
RvkvOPSNkzDBxBVsdc2DVD783HrYkTwmzvGNO8ak8kQ7071L4g0TFYwZ6cep
vI14f2WGpjHR0PK700AXgXP+nVX+fkwstFaZW0fl9XRYR8UxVSYWtK3OKKXy
nnHvI3yUYuLRyaXHeVQ/dEe1lzuOVeOq43MiOc0Ejj1sK/2LU43DC8v1oxsI
OL9oKTK4WI2XxVoybVgEEnKaN+UdrkZO4J2PjVUE3hU0FersqUZDWB+ynU5g
/9tG2nKVarRIPy8/UkrAilebJ8muQufxKI/AfALhDTz9mwVVaMcUU/TNof67
Zm4OSa7Cw50++k5ZBHZ01GSPXqhC2qRB/sBTSr/B6syOpVXomH2kb8c/lH4j
VVpO4lU40hwvnRdD6TfOyOAPMzBtNzNFIorApj+VT1nVDAR52Xm3wqj/SK78
cf45Bnprma/MukzAe0HZcl1nBuZmmlSEXaT6e1FpaoYFA0Uu6XLszxPQVitJ
TlrMwO7BSZ0idwLq6wsTbjHomOZuoJrtQEDRPifqoBIdh722tO3WI1CgGVGy
YzYdMzZ/q3fXJmArcO9eN1SJBT6MQP8VVL2pakZSrEr8uFhOcHoJAdIX+7nE
rxIPWk0FxIoR6A0K0FN+V4EK2xSyZNqEcMPWyUmCXoGu8U1zjJqEoKphEPr7
ZQUK7ZgL9tcKwZk92MK7VYHWYmYHXCqFUKdwPCjIoAKVbW660TKF4L33QUKZ
NuLF87Y5YReFkPnbsj9OFNHOcpVn+Vlq/j2cY+bdVo537q371O0mBMdu/28q
d8vxz57W3tkHhQBXDhte6yvDZc/9QsO3CEHuyermbc9KceHkeFexCDUvx6vn
sVeU4ESr2J60IGpev/gvfaugGL8sI7fXXZwBz8Mhl17XFuNdhjkv98wMrGAa
tf/XrxjV12V5+R2Ygfi4rIwgdhF6xomL6a6dgasbH5hu8HqDzqGfY4w+TcM2
H1fP1Fc0fDGwWOe97jSoaBqrKIbRsM4yeN8qtWmYblNsjHClYaGE3jV3xWmg
mdcbXhGjYU3GudFc4RRoym+bZX/gFUp6BazzqKX2kzyth5LT+di95LV0kMcU
pLf3RH6/mYMyUvlGOrEC+BC48FHKhhzMi8aT2ncEIKuyK29f10scBNPeRVcF
4Hc0k18ML9FU4vZ39hEB7Ow5oxQ+lYXqtta/vHQE0Dc49Fjn/HOcW1YgVl06
CTqzpl55ujxFF+k289ctE3BonzKt/UQs/rgS85/41jHoHx0zvlQVg5OL9Kv/
sMYgML4eZVfG4BP6uovOb8YguT2Ua977AGsMvDK64saAxuVX7228j65Jr122
2o1B7m8vjb4PNzHpRKKkBvs3XGte1byUYYrX+rJ80jJHoVgqoIV+KQa6GINX
fLb8gsdrFJty1WPhvUxC7SHNX3DbNrchuT4W5JMZpzfJ/QL7+K9cP+142Hcr
7dLrr8MwrGZF1+lIAJGIy98/3h0GTeNludEWqbCHqelbkD4ENa+OWOTffQrC
e5Pjsrn9YNAlqnLdKReGCgzmXjrQCxrDbwUm9GII0fJw+SXNhz1P2mptnOhw
WTAQRXOpwx3WCrPHXrNA9l70iitLfuDfR95fW/uGB8ulNwyFZ40jy2aZjK1C
I0gV+EQ5LBStGFBTDOYnNkHsrqQxkXHxiv/vv6A7WrxLsEK64n+AjR4x
        "]], 
       LineBox[CompressedData["
1:eJwV0ns0lXkXB3BKSBFGCXXkPD9JpJJqSO1eShSVW4o4CNNMaqJGqVeZOnLJ
pXJJ95JcMpHpSsruYBJ5o1xOSKk0x7k8T8mU4Qzze//Ya6/P2muv9d1rbbPQ
n73Cx6moqMTQ+n8Xy4tW1wvaoDyx4JW5/yTs6Nb1iqgXg12jW8pP7XoYHOv4
p4Z7F/gp/rT3LTPAGqulKTUTeiA0z9NImW6IsydWSfJd30JdTHtCuZYxzqza
sXpCUi/UVF7KlrrNQJXhccXR795BNTFMMRLy8Jvnw6A68w/gqNa/8YPtLOyy
E5iYC/ugtbFXJ3iGGe7209Xjd38EHcdNv9T2maFR1ofNajMlsL36d7W6JD5+
f9R02l6+BJpkD3W9j/NxU7T/y/cWEkj19d7yJo2PpzY2e9TYSoDfO+PywCk+
TtaucjriKoEr4rlqahf4OJqQaa2yVwKDrrazX9zk44d9TirKBgl8tuFaTDr4
WBpwufDL/n5YoWtWH8Zj0K6DGVY/1A8jm74aBM1i8IFXobvx0X5w8fYQ+/IZ
rHcr/bwyrR+ORcaLVs5m8P3SqmXpV/rhjtkIUbNhcLqB+Pmchn5oynHi/2c5
g0eeTRkKNJFCX4nRaKY/g5qumWujZkkhOt/cZOtWBjNqpl0Qmkshw+tWKT+I
wfOVM51K5tP5c2/7khAG7xVZpQ450/11xd3F2xmUC9fMyoyUQuKGgoDAGAb9
lh92rX8ohVu/ShwunGCw+6+PU0QiKcSEqllbn2IwtHR9x4MnUii8+yWvIpPB
SFNeRFmLFDwr3PnNOTSf6sOjOX1SeGkhiZCdZ7C0bvhRmLYMhMW1Gl1FDKqt
j1msGiiDK2BQdLGawRT1HuVwiAzmpV/0HkUGp1Svrh2MkIHFRqVwq4hB4wVT
vSW7ZRBuYxtrUMfgfP3bu58LZaDjk1gY3cCgf/vnkgu/Ua/qMJG0MlgetJPv
oJRB/V3tbfckNO+dTzMvq8qhsGBupqqUQYPJe43UNeRgmDtLfa2MwZiKA7ov
9ORQcPj07TYFgw4GSaM/WsghIaR8kXiAQdHTvM4zXnJYsTu7MlnJYKud+NTf
RXK4UcGTXdQhmHA8IF1QKoeUroCY8ikEl7zrSa67JYe/R6NWiXQJ5mb0xZ98
JAfhWsviHn2CgdKBXZatchAM1mSNMyT48ZL2ui1jctDJLB78yiM4pOU8vsJX
AT8oF3ecnEdQn9XJEvkrIOkXjTlBNgStWjrJM4ECXjQt/2vOfIJBp6Nd3vyo
gG6TV2qVCwjWMHnJEw4p4NW8hqGniwimO6rqehUoIMwyZ9EVe4JFpk2XA0oU
MDn7zlpfB4KPx51ZGH5TAV1v7Hs0lhEcrF/gvb9SAQP6UQe2OxL09w3Oufg/
BahzZxINgaD5ruoZsq8KwENtg9arCK7wPH5jcEQBim6nF/XUm+38VoyqsOBs
PNV622qCKcOsQG8SCxG2Ep9MF4KfjvGuLjVl4ZTY9WCvK8GqS3GWwjUsHFR+
MV7sQbD9iFtlmjsLNh5lj+5Tc+FT1532ZEEr7nmPw3qCfOsbkdcDWHA4sCLL
YQPBxPvdZc0/s/BfaftLC0+CXi3LlszMZSEr7/O1Ch+CWssmPa66wELUZPHe
hb703vzOdVuvsvDdt6rgQuoF+2NDzpWycHb9kYy0TQR1TO+lGtWx8Fx9xNV5
M8E/ko4ZVjSwUBvTNlZCHTfgm7e5meb9ofSl/haC8rrBe6e7WFjcGPCik/pp
pO37qQMsPD2Xb+UTQDC+XXXXnW8stOntabhB/f3KliGff1jI11x5bMJWggXf
7dbJ0uQgbX+bTxm1sPKGvb4pB/EhrIc8kKAjiastJxzkv77ZuiSI4Jc09w2e
czlI7Yzaf5g6NEQWdmIxnW/ipk0SEFypaXlCx52Dr37isknB9J+ihoxLPTlY
1JnOW0Nd1vXkmocfBwtfO1+Pp+aVRTxIDeUgNrx4OkvdPn2Ji/V2Dh5Lt4yY
hRBMOzKhpXEnB42fNEe8qZW++R+1YjmwOhzq+Tv17eo9UdcPcXBYQ7uoh3qH
pbPSTchBtu5dk4mhBDuVvXrJGRxoXxvvv5n6ZET5+TnZHEQuKCJx1K7N8Rb1
ZznIcFw3+TL1vaumyzUKOOB1pNq+pd6lzT0pKOEgOdwq6h/q2fseebmUc3B/
b/2z6dsIvn6b9rrvLgdFamGrbamz1gZuT6jiQDB1tNON2v229Rci4qC9ICdN
QD2ep4yrfcKBbsW8wD3UlYmNmmFNNJ97jVsCdfTns5njX3LQJPDzzqaeG/AT
76qYA6/B/tir1L219sVOPRzkTjz4sIw612ai3bv3HFy5pMWrpN6YK370az8H
O+/mnhNRa44rcjPjOBj1MF/ylLp6x75WHORgY8RNRRN1TJuLIHiYg/Axe1Ez
tQ1Mk46NcbDcSHSrhfpfJlWqxA==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$892991#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, 2 E^(-2) Cos[4] + 4 E^(-2) Sin[4]}, {
        Rational[-1, 3], 2 E^Rational[-2, 3] Cos[
           Rational[4, 3]] + 4 E^Rational[-2, 3] Sin[
           Rational[4, 3]]}, {
        Rational[1, 3], 2 E^Rational[2, 3] Cos[
           Rational[4, 3]] - 4 E^Rational[2, 3] Sin[
          Rational[4, 3]]}, {
       1, 2 E^2 Cos[4] - 4 E^2 
        Sin[4]}}, {{-1, -0.5866104093574589}, {-0.3333333333333333, 
       2.2375882231330206`}, {0.3333333333333333, -6.655945686591609}, {
       1, 12.708605608025156`}}]]},
  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, 1}, {-13.94805253579876, 12.708599590449515`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796979977634594*^9, 3.79698017917679*^9, 3.79698148315198*^9, {
   3.79698328755157*^9, 3.796983315309977*^9}, 3.796983360960226*^9, 
   3.79704479321063*^9},
 CellLabel->
  "Out[958]=",ExpressionUUID->"a3c1f4c3-8d50-4b0a-9204-c33608b72279"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DDfun", "[", "x", "]"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"D", "[", 
       RowBox[{"spi", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"xp", ",", 
          RowBox[{"DDfun", "[", "xp", "]"}]}], "}"}], "]"}], "]"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796979810846364*^9, 3.7969800241129417`*^9}, 
   3.7969832974984093`*^9},
 CellLabel->
  "In[959]:=",ExpressionUUID->"10e584af-11ae-4a47-b852-d04a43f7158c"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk8VN//OHBZSiqEss1kSZLI0mKJzrmlLEWSLbKGSqG0UIqkpFQiCSGy
JN4RypacQ0KyM2NmjGXGEtmKCKl+9/N7fOefeTwf9zX3cc5rOXfmMQruflae
vDw8PMXLeHj+974NrP/2798Uwh3DtLhALvJb2BixsDiF7D9ln9xiykVvirSU
Z2anUGPA6Q1PpLlIW8XcfXhsCk0H7Pj1q4yDdNbeYjV2TaFr+xXh2Hw/ggM/
GhLyp1DEsNJ1kb5eZHWnKXe7yxQaDOp5oRXCQAEtt3xOVk6iU0JHWoNef0Kd
nau+VblNILXhT8ts++mAiv0kdCjjiL5aiTWQMAHenakREOn5hgxZDkMF7+eB
632t78ybo2iHuUy6pSEvnI8JikBgBK0uMA1NFxGE6cK90vGcYXRAn7Fix2Nh
mGSm5d9xdwjdOEXIOVwTgzfPugVuMR1EFVYGzx4eXweD+HIC/Ce46Pq+4yu9
9KWgb4LzctcRLjruGKbvbSQF3TXEn5gPcJEuXTzmlIUUNHO8VqjC5CJGXED0
UXcpKFVkMdFbw0X2tiPdnLtS8K37jPvBJC6ScVsx3tUlBSerDCyUDnLRdlsF
9pivNOTa/WCvPcBFmjNHyjcGSkPaROaZf5CLhidPvbAOlYYV0iJ3Wbu46MaS
7Nm0x9Iw8jzn4yNFLrJ8zvg6VCINVRTC9f4scBBelhop9k8aut1oUaJnc9Dc
Owvf8jsy0Jb5fE9POgc5pSkaMqJkoJn2OfvBFA6ysA4kJp/KwB2DovenYzlo
4vXzOt5sGShoYjUjHMpBn9mgs7FOBuaJ0KqMj3FQxoYIgx4BWfg7heVctpKD
Kr9XehUEycLvv3ICMT8HFbY/bKm5KQsHLYNi6v71o/rXL61a7srCZl5KLW22
H/HmTYV9fioLX3g5qU9z+lFywPb4I0Wy0GRb/2/V8n704sTVvOwRWfjkw1B8
knc/2iXDitp+iAKdAxODdTz70b9Ivvx4KwpU2X7Yo92lH82XhvNM21NgeXap
hqBNP8patW91qCcF9j6OrL0A+pHt9GyoSDAFbvbW+mkm0Y9q8uUqB/6jwO9K
w8wh4X4kMJIYE15IgWV9iejGyn4UNPSij1JKgU9zBNf7/OlDsWH1bzd+pMD+
G3n7jNr70P3HhwUSGBTor76YMh3Uh3h1gldLLaNC/vQT3irn+5CZ/N2ZcQEq
jJNq2uns1Ye2qyfGvxWiwvd8qY2fLfvQF3nqpKwEGc/av5i6qQ9J3H4fYqpM
xodH2xxu6UWfOuwE1ptQocrSovztml7kXRVydO0hKiw/7zFeXtaL2M1tGX8P
U2HfcZ0w5YxeNBq2WzHfjozf3vPmT2AvslstR3h5kfF9Kqv/U+xFdU2ZXYqh
VHjNYNnrRKledHVQN4D/FhUaJjDN7wr3ooXsncbMcCrEVveivBZ7kNG2O1bH
71Nh3acxMYX2HpSq6rymLo4KIxRrikTqexCvuuhmIoEKzUKSrP9+6EGxmj6b
8p5RYbOueVz3qx7kamiV45pKhZ25edJxoT0oN064UfkVuT/BO+W3AnqQr7Yj
r04uFdp5ujhe8OlBC1bFbXqvqZC1QTTZ8lgPuq9PXydZQIVJQSOG4DBp1vuA
H4VU6MzAver7e1Dk+x+HKt9SISf6vPwqrR50wTx+q0YpFb6YNK1aUO5BmgKa
ih1lVOhxUNF9hNKDfq7z8jr9ngpH+DvSPwn2oKSH/IVnK6lwMmDH5hv9bOTI
k2rR9JEK33Survels9Gm1rIc3k9UeF5r6JRTIxvpntVdqVpLhT+/PcnRL2Wj
uQ/Mlxb1VFhs7HtwSx4b+Y/p0Q5+psLAjAPjkhmk+6706TdQ4W+nX+qzUWw0
+1fOc/ILFVaUtzQP3GYjeb/GpsJGKgyWzPZrD2Kjdr2hiVNNVAgv3hCtOs9G
KmdFK0SbqZC3zb4g/yQbZRjPbsshXaOuZZXixEZ3jQ0Md7ZQ4e17K2fuH2Uj
c+WongLSB75yHgeZstESN365fCsVChqV7/AGbJRaK5AfQrohNYZmv5ONKk+H
NbWSvv/H+7LxVjb6UIbtxduo0MJhn+QuBTZy+OtjbExapES2VEmSjZT6DB6d
Jd0q/tNefA0b/TrVvyWMdMy5xoVlfGwUKL5mVSRp66aMxO/z3ehBbaDqLdLr
Va/v7pvsRuN9rGBf0oxwG3bTYDeK0x3/a0o6YUD9egWrG3mrnkxbT9oBLt+Q
29qNUp+scOok10dJ7q1MqO1GnsP3VMJI9y4Uu0RUdCMPmTeLiqRTbaN4Agq7
0bFanYYicv/uRSfTPLO7Ua7s4IP/5WejKNxrndKN/k4EGmST+Xuoybnq/bgb
yZ2pWPhD5nve8mbRjQgyXrL4K0Ha/fzG8bjr3WhP5KvFC2R9GqNrlF77dyOA
2MqxZP12FXo6fTzZjcwl411fkPVNbV8exzzeTeZTOSmFrP9FcdMVy427UUrd
zKhrHbne7d8AxaAb4ZW0QWWyf0ysIwO1tbpReU1TIauGCqlPmkadZbuRVYJX
wqpqcr7e+SpeEu1G1p0fEiMwFU7TRBwjBbqRMjsRzpD9WrveqrFkioUyn/gf
jCb7WVNnhr95kIVivfQTash+T7SLNRxkspCmtaLTUAkV+sXT80RrWMiXWC09
VUTOV2nAV+UyFgq/ML3QRc6XEVNK3jCPhfJ0qxTz8qlQSsYx+nQ8Czn2Ltug
SM7nTf2lzyEPWOiP7DkmyqbCcYdk3ribLBRWivLMsqiw6lnfheqzLHTKZMOV
zWlU6E31sJUlWEhM8tChpSfk/BsKRGntYiGTasW4ZY+pcI9zVp3xVhYS3emV
MhNFheLPR3QvrmOhnGVlFcl3yfmQ95FtGmWineEL04LXqFCZELYe6GWi15N3
p/0DqfCRW/79hQ4mGgyctPl8kQo9X/z4s6mSicza1WR3+1ChsNLl/uAYJto7
Ie+p5UTOo5Gk9JM7TCT8g2Xyx54KuR6lR3KvMZG6X+Wud9ZUWJK5WN3lxUS6
GwP4Rw9SoevmkEzN3Uy0/k29poseFRaqRnhzBxjIcGvgxmuiVCjX5lq2lclA
pUk2B6iryPkJ0BO81MxA4C3zZg553nvWfMtcUcZACX7FcncXKVDK2Zyj9pCB
nPIZn20GKPB6tJh9gC4DGdD5fm0soMBvOmNZWJ2BxE+jsdAcCrTt/Ti7ciMD
cTRe2X1Jp0DNrZceJ61hoC8vV/nIx1Egt6aruYrbhb6c3B3QfoUCTeaT9q9+
0IXuVcqeMDekwHcpl2JtbnahkeM3NjnvpEDF/RYDKQFdaLfj6apj6hT4O/rf
DS33LmTQIe6ylkqBeVvdK2x1utDCHSGl0N+yUMJl8/Y0Dh0liRcGOryVhX2f
CuR37aKjhTSP5MJ1svDa0QUjXTU6OlR/MLdmlSyU4sDT+op0dG9LjuXHZbLQ
cqmlYI8wHSV3tRiFT8hArD2513iYhpz3jQsq1sjA1OeqnvZxNORd7Ved4yMD
bf7/i4bEQs8v7leQge5X0l9dnetE55wFqa0F0vDv8rGma+OdaI1C0rmTmdIw
MVZ7OpjbiYImCq9/i5eG7flV+mHNnajpvGxOUYg03Dfc9yUyqxPJ5y3GHjkk
DZWOUiaTbDtRxn4vkWKOFBxSe6KNijvQxfgjZbNLklA1OHNyJLcDKWlcNy4c
l4S+Le9yxNI60Aq37Wtt2ZJw/jxd0SuyAz1Mz9U7+l4SCpVIiq9x7UC7/GrX
bgyUhJpE4ozDyg6UYWn2RGxiPQyyef52zrEdxbCXJ/DUrIM4K/+c/JF29DC0
cj7uzTrIP4/UzA60o6B/lWXiyevgw8T+jGTNdrTnxOwBfGkdTO1TeGIk0I4u
HucfHNy0DtaezrgUk9eGDr3WWbQNlYBrg1/t2rasDfmqXDxRoiQOw4tV6kV/
taIwo4+iMSLicHHy5bGZ8VZE9H5tt1kUg1yXrGuljFZEN9UMj28Rg4VEevXe
N62I8kRjj9AVMWglkGxh59KKxHjOfXhWtxZullZo4glqQV/qMra5HBWFarum
1DJnGhGleOB1jKkQ9NoWElLW04ichx3WUkWE4HNlkfamukYUe2L9mnOdK6GY
pEbA3LNGNLLZAvk5r4S/fvlWGRs1InbjiiKanyCsLpu0+Rb7BVXqjTrpRSyH
9oaTwRq7GtB0gfoRqyheGGY00VoWWIfskzga0RMzoNpk/PCOE3VIxUG58LbL
DOAxH2vOM69D2ehIrEjbNLhmM9qYrliH5t/xJQ0U/gCXvYbqHzTWIlFmf6js
wCQ4FdGD3eRrUYTOwuLwuyFwqLHpzcr6GoS/Z6mUDb0D66zzHh2TrEZKEpeO
13ZOo8K5TyL1SuVoQ4dV/z0XYZzZPfRg9FYeGllWJPTltyx2OkJ5230iFpWf
6jshGqmEy4SCaNWXHgNTYx/jZreteCd32YZQ+3wQTBHYsXBPC2/8/n5Bv7oM
qPUXTeao7sSm6cwmC/tqsMczvvrVki7eby7GN/uuDlhWbr0bH2CAH7qt/LHw
uQ5UWxlfYoQZYMYlnr6/PXXA8z++9WKPDLB3ymS54PJ6UH3zhbl/Nhk/1eBP
sa0HFfcyg4cYZHx0GHffXD14wpTY/FDXEHvTf1bF7GoAV10HJ9OmDXHRt7H8
p2YN4A0jf47/ryFe+stNTnJuAKtOh/m5rtyDH25uu5IV3gCW7olE8sjvwUWB
r7XK6Q2giVFhMnhoD16S8UrjXP4Cst7mNWlm7sFRLl03NEsawSY/6e+xhwEO
HzcAw42NQMnuZHybA8DBV178ecZtBI8qn7fzeQHs+9jn6grhJmDmmF1rcg1g
izq+i70eTaDs6lGto9kAC2tonrwv1gx8PVkqzn8Bfvg3wnzEpwXIjja6z1lC
HB45uSolrAXkaNQ+67eBOFjKuuFoQgugmxyqrnGA2FdbzhjVtABdM92Kqx4Q
by5ykP+yphXwG/WmJgVAvOLrd+kXHq1glrVWojAJ4joL6hpLsTbQnO/8fJoD
scQ2znp/ShuotgxxqBuC2HVNpnyscht4qykhGDcK8eIXtR0M/Tbwoylxo8IP
iNVMDRxdT7SB4ge/yyf+Qfxon+Orc2/bgEa3nqsjhcBsRbmimMo24GsbGNUo
R+AtvAMVb+vbgNjSmLXORgJXY+/WeXYb0C84ErmwhcCzhld/3RBoBw2Okvya
OgR20E3YH23bDlymD0i4WhI4S9LpcJFrOwi8vvH7yaMEnpmTP0bzbgf7FG4J
nLYl8P132WelQ9rBwcGET7bHCYy0Sx+nvWwHaqY35/tOElhJvYtTMN8OHH5z
xTOuE/jc6mdjHbwdYIffUrPBDQJ/GHOenV3dARZK0ryabxLYNmdYUF+hAyTu
OCTBvkPgiM1zGtWmHeC6/r7a1GgCTyisC25P7ACDo5k+DekE1g1KO1+V0QHU
XujeGMgk8M1Odc83eR3gp6yx0+xLAq+/c+DQw+oOcM9j3JXvPwLvGQ+QMfvW
Ad6Nfv9ZV0Tefz+/sN7PDrCJs1CV9Y7A7SmPlqn8JX0hVz24hMBeR16NCIh1
gkwHhS/r3xM4qphVXKXXCVzaRW9PVhGYJXIy582+TsDesT4v+iO539Mzyc/N
O4Hryt+m6p8IXCq7+vZ1t06wNvlmjXk9gftvGB7Vu9sJrEwvbd3eTGBV1ucD
Ko87wViAq1VCC4EvbrfVl0zuBLQL5/GvVgILDvsqzL7pBLBD/XhyB4G1DqZO
vWF0ArvRvQv3GAS+lqE28JzbCXr+3ceFTALX/imlPxzvBAtu9untLLKeb9o+
nOWhgQmz7MxFNoEzVjoXOArRwIm7JuW8vQSedP+WYSZBAxci0jp5+8j8reO7
r6JCAwawnH+sn8CNvlEhkto0EH0qQaSDQ+azXvbCcgMaiNl1TqiIS+Ccqzsc
Bg/TAHerabnDIIH/7/kKnpW8lK4n/bMDm3ccowEbhq+H4hCZf3VzovoEDWTp
d4xwSHf0eaqkBtBA5c5Mb5OvBN6gNy0bFUoDEXX6TlOkT8UEiwRH0oDSCheJ
hyMELhwT4vN5QgNCPi/vKY0SeMno6Zzjc9IiOeWFpA+kbPxm9ooGLNL/pOh+
I/CjX/k9ekU0cCxMT7uYtFJOfY1kHQ3EtTQcjh8jsC+fTenyNhpI07dqWSJd
epyTO8uiAbXZTSP24wTmLfZ5PjhIA3nF/bH/kT4kshjTMUkD4uPU1l+k406F
h1fP00BT+ZVY/QmyvlViVwt46aCPL5p9kbSq7HOf1NV0MOK1LD2L9KWLW92i
1tOBzv7T3BbS64WmKmwV6GDv4+j5adKlzwulNqjRwfRj+V+rJsn67bx8cWgX
HeSY6XXJkF5q0Gv9j6ADKea/aDnSKa5/tl48RAe9YQny/7sO5vCd3XZ0sL1E
7ZoQ6f7IWwO87nSQsIqT/J28/00FE9Bwlg5umvUFN5JWKln1LDqADvgvHJFK
If3pUMuc/U06eFDpfsKTtBc3xkr+Afn5THBMkbRgoG3e16d04DG4bqaT3H/O
Ghmh/Bd0kBcioXqd9MH0Hs/Lr+ng9Oczv2RIj+umVRmW0sFDT3PrPDK/D5s9
qAIf6aDBYlxPh7Smh8qVxiY6ONh9Le0dWZ+2hbHOxww6uFe149YW0v5R+ZqO
A3SwinqwO4asr8SmC/cVJ+lgx4X55z/Ifigu3zUyOk8HIqWXv+wnbWe5uK+A
rwsoHF1mF0X2T2JQ6G8g3QUcIzQv8A4T2GDtfrsVSl3ghPPRua1k//VkCRY1
b+sCUqtDKs3IfpVvj/J2MuoCfUZ/eU+R/Z2lksK86tcF2nWtUuXJeTGpdNu5
92oXmNhyMmqGnKfRo5uiV97uAh9dPj94301gtZD/TOITu0CeeUmyKjmPhbTy
knefukDEWa/Dt8j5tT4TLH69lVzf0vK/f9vI85dnr59RdxcYXMwM9yXnXVft
s3LH9y6wxcxhlVoTgStvdj35LssAJfYntsjXEthV6tmPEmUGUCoqmIQ1BF6W
52weosUABfbKx2yrCWzEHOIXNmaAot7dfC6VBG7Q+Hlhqz8DcLWTfg6T51sX
W9TKq54BRBwOPP3ygsBmkZ6Mi+0MkBLcdNk1lcAVeuXOYWwGcEp+Ij2WTODU
uBNnUr8zwHZ13lhOPDmPlsW3WFJMsOOHe4PVQwIvfnQssTjNBMdted8SAQQ+
6//G0OkCE4yPO9lrXiRwr7xAzZnrTCD8c5ePxHny+XM9rzUimglUBX52VHgT
OFJn2bfqMia49UV4xUMnAlNysyg6QiwwPWEYp06Q/XLs94v9EixAlRzlnDMk
MI+g5RbrDSwQXWRh/kqPwIMeCzvPa7PAOW8PvwUtAr/ecOhwrgMLLCzO2axX
JM+bmB+hcrkskB6+x3kPD5m/KwZfVxzqBkf9Tb02vYVY1aOeNmnbDfoDYnbG
5kE8Y2FdQ3PrBobLUPhsNvn8Vzqblh7QDao6+Z5GJUP8X8szR5DeDf6pdH+W
D4d4YdPvlsuL3cDrzk2HQmuIq0XvVDoJsMFXbsGdAxYQ3/8t9tpIlA28OqKY
jcYQy7ep3hNTZgNY+rQzXx/iA9ccjPKOsMEPntt3m+UgjmkvKx3KZoOcLSkS
nc0AH/+w/2VjERvUhkZU7cYAb8pue1JUyQbfL5QI3CkAuPT6qH9oJxscXIhR
qX8McK+KtDqVpwd4s9bmztgCrBoSmGZt1wMiUk/YD3ftwR+36tz7KNALAu9l
zf/4aIidNazTf4j0gisBYxqThYZ4Xvt8hZxML8h6bH6rNc0Qq+nnTgZt6wUG
31U9jUMMcayJ3NEddr3g+geXbX/I73tenisomdm9wPZDgvbNlwZY8HnX6/CD
feDTvr+uled24xcvfta+tekDZzVzS/2O78YGWWv7uS594IbQh33LTXbjc68P
ioGLfYD/gxqTu2E3Zr5Hl38l9YHKVHHjY1/0cQ7jJTg12QfOUz5e2ymnj5VX
VoxkmPQDK0+l8pBCXTxdt837hXk/qOJsPLn3mS6uDE8be27VD3RT5mK/heli
W/47k4nH+8FVQy/nMWtdfPvfkZ+PzvWDlXlYOm9WBw/Ofv13Lb4flM+p92zX
1sEvuOKSNiP9wLIp/rfc052YWnFmv0AEB8jhE3+fimhjCenFRd8HHPC13I+5
ekoLr74c8YYRwwGpB8zc3Jq18JJGpux/yRwwvFDt/eq+Fmal9/6wKuKAtfzV
Iu9WaOG4yCMpqb0cwJoucz03pYGFHXV+7d7JBZVypWffB2/FPIu8r/y5XGCk
3H/gA1MBuw4wZ0K+ckHxOUKn9YECxo1v9jwY5wITi2MncggFfOO5c+fLOS4Y
bjcMeJstj/8Zlf9jCw2A76MZqWBkA/4bdd7WePsAcLU+E5TLI4OXNvXzUW4N
AEtxSrVbmQj+deSD86dNgwCrzIlHfJ8D3TtcZDfdGgIeGoM9ujvU4Tk70bWK
7GEwmCdYedTREErHDtrzU0fAfW7OzOj+AzDPMfXlTOAo8CxT5O+TOwztDENM
6j98A4lMYYkq7lFY4OyjqL80Bliu1TEfNO3hvNA+vjKbCTDxyUTcvf44tGrb
vYsaPwniLYozTb1dodDuVVUVyZMgKOdHy4S/K6zKYB08nj4JpDSEBx4EuULN
wCtuz/ImQSt1TXrVfVcoLFdyX/rTJKAou6TP5bnCz2e1B9ZNT4IGvU8eUdOu
EApueSR8aAo47MvdS1x2I39fz8vkHZkCLNF97lbBbjC/uy7T3G4KrF/T5+Qc
7gY35Hu9v+8+BewrUK1XnBtcsskYFroyBVz3N/joFrvBknQ5wxVZU0B7Wuh6
10836Ltmqi4rdwowNTwOxyy5QeWASqsDBeT1dVP+xvzuMNbM6dTtiilgtT38
Xqq4O/T/kfiYr2MK/AlOFlij7Q5VHb03pDOmwC+Xq2cS9Nwhp0bv1d7eKcAZ
obLlCHdoGc+oDB2dAl/zrMplLN2hIG+2qcLUFNh6Q3V9lJ07RGcCOvHPKSC9
xfbYH2d3eJl2wMV1cQoEl09f9fRyh//3fxp41CzjX+fjDv8fB4v42g==
        "]]},
      Annotation[#, "Charting`Private`Tag$893307#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAALj8W6v//778AAAB+lLKWPm/5I4j5
+u+/ABjJyBfSdD+wszEm8/XvvwAgoGPq0YQ/MihNYubr778Aogux09GUPzcR
hNrM1++/AGPBV8jRpD9A4/HKma/vvwBEHKvC0bQ/UofNqzNf779AtMnUv9HE
P3fPhG1nvu6/cGygab7R1D/U1AvqwWHtv/i3RTnlseU/HcBvFDcc7L/A24fu
ux3wP7VrxAUP3eq/CFi9CxBI9T9gjDHw2YLpvwjMj+t34vo/+JJ7iL8/6L92
P4YNkw4AQKMO3hmY4ea/xhSTBvTjAkCcSjFy04nlv1goSGUarAVAgmxheClJ
5L9cW9LrY0QIQHsDqndy7eK/PAqrU7cUC0BhgM8k1qjhv47YWOMttQ1Alb3l
mJxq4L+RclfsNCQQQLrfKAysIt6/ybap19eJEUAjEEBCVJ7bv7qK5laM1xJA
siqIauLj2L+anMrGRUEUQB/RYLkr2di/Xn1VN9JGFECMdzkIdc7YvyJe4Kde
TBRAZcTqpQe52L+qH/aId1cUQBheTeEsjti/uqIhS6ltFEB9kRJYdzjYv9qo
eM8MmhRASPicRQyN178atSbY0/IUQLWedZRVgte/3pWxSGD4FEAiRU7jnnfX
v6J2PLns/RRA+5H/gDFi178qOFKaBQkVQK4rYrxWN9e/Ort9XDcfFUAUXycz
oeHWv1rB1OCaSxVA38WxIDY21r+azYLpYaQVQHxT+UQ4LNa/nFhdoI6pFUAY
4UBpOiLWv6DjN1e7rhVAUPzPsT4O1r+m+ezEFLkVQMAy7kJH5tW/sSVXoMfN
FUBcwDVnSdzVv7SwMVf00hVA+E19i0vS1b+3OwwOIdgVQDBpDNRPvtW/vVHB
e3riFUCgnyplWJbVv8h9K1ct9xVAPC1yiVqM1b/MCAYOWvwVQNi6ua1cgtW/
zpPgxIYBFkB0SAHSXnjVv9Ieu3uzBhZAENZI9mBu1b/UqZUy4AsWQKxjkBpj
ZNW/2DRw6QwRFkDY7KhFyF/Vv2SqtG1vExZANAuIIg==
        "]], 
       LineBox[CompressedData["
1:eJwBAQT++yFib1JlAgAAAD8AAAACAAAA0r0BZeJK1b9ylsLwe/8VQB6arqtr
PNW/pEb3X2DcFUC6J/bPbTLVv7x8abkfxBVA8kKFGHIe1b/s6E1snpMVQGJ5
o6l69tS/TMEW0psyFUD+BuvNfOzUv2T3iCtbGhVAmpQy8n7i1L9+LfuEGgIV
QNKvwTqDztS/rpnfN5nRFEBD5t/Li6bUvxByqJ2WcBRAJFMc7pxW1L/UIjpp
ka4TQOUslTK/ttO/WIRdAIcqEkAqfqXu6KvTv1BStRE5EBJAbs+1qhKh079G
IA0j6/URQPhx1iJmi9O/OLy8RU/BEUAKtxcTDWDTvxb0G4sXWBFAMEGa81oJ
07/WY9oVqIUQQHtVn7T2W9K/rIauVpLBDUARfqk2LgHRv6gEoqwWLgdALDbv
LKXzzL9AylKU4871P4NE7dC5eMe/wFQaLLku078VVK6QWRfCv8DOrJs/6v6/
svbFD8gkur+lH4kEFqQLwKXb5Y3phK6/D/Q3JNhsFMBdURy022OUvwomWw18
lxrAuQp71cJ1kz9Hx2jpj1EgwDXiAR6BWK8/lP9wzwqZI8Aj8Lv5OsK5P8Ie
ERlxqCbASaPZzU5Ywj/8Qf5lgPkpwEVNEgP1tcc/egAVoQ87LcCPX9eAMLfM
P+zS4R9FIjDAx04dDVAS0T+hp9/w1scxwBQu4RZyHNE/ws7qDv3NMcBgDaUg
lCbRP+L19Swj1DHA+sssNNg60T8kRAxpb+AxwCxJPFtgY9E/puA44Qf5McCQ
Q1upcLTRP6oZktE4KjLAWjiZRZFW0j+0i0SymowywKYXXU+zYNI/1LJP0MCS
MsDz9iBZ1WrSP/TZWu7mmDLAjLWobBl/0j82KHEqM6UywL8yuJOhp9I/uMSd
osu9MsAkLdfhsfjSP7399pL87jLA7SEVftKa0z/Gb6lzXlEzwDh7oXHBpNM/
HuqQkWVXM8CC1C1lsK7TP3RkeK9sXTPAFodGTI7C0z8iWUfremkzwD7sdxpK
6tM/fkLlYpeBM8CPttq2wTnUPzgVIVLQsTPA2g9nqrBD1D+Pjwhw17czwCRp
852fTdQ/5gnwjd69M8C4GwyFfWHUP5T+vsnsyTPA4IA9UzmJ1D/w51xBCeIz
wDFLoO+w2NQ/qbqYMEISNMB8pCzjn+LUPwA1gE5JGDTAxv241o7s1D9Yr2ds
UB40wFqw0b1sANU/BqQ2qF4qNMCkCV6xWwrVP1weHsZlMDTA7mLqpEoU1T+0
mAXkbDY0wIIVA4woKNU/Yo3UH3tCNMDMbo9/FzLVP7gHvD2CSDTAFsgbcwY8
1T8QgqNbiU40wGAhqGb1RdU/ZvyKeZBUNMDSvQFl4krVPwTqIqyNVzTAwST4
1A==
        "]], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA2OyoRchf1T86KY0C6Fg0wIiG2TSx
bdU/96oWNkRSNMDT32UooHfVP66OzFeGTTTAHjnyG4+B1T9mcoJ5yEg0wGiS
fg9+i9U/HlY4mwpENMD8RJf2W5/VP44dpN6OOjTAJKrIxBfH1T9vrHtllyc0
wHV0K2GPFtY/MMoqc6gBNMAWCu+8ViHWPx67ykeD/DPAuJ+yGB4s1j8MrGoc
XvczwPzKOdCsQdY/542qxRPtM8CCIUg/ymzWP55RKhh/2DPAjs5kHQXD1j8O
2Sm9Va8zwKYontl6b9c/7OcoBwNdM8DX3BBSZsjYP6gFJ5tduDLAYHk85wdM
2z+g8VF2IYUxwMMrN4rDBd4/DisADBI4MMAmCbzopEjgP/MpuqkiAi7AHbxr
RQWI4T8UcrSmUqArwAD6Aqly4uI/IlW1GNwKKcD3Ub1exSXkPy6ZE/GCoSbA
2zRfGyWE5T8ieHg+gwQkwHBXEBEi3OY/ZMsd97RzIcAZlORYBB3oP0T/QCwI
Hh7Arlugp/N46T+YnVNUWe0YwFc9f0jIveo/5P0gSeUUFMCxXm0iOvzrP5CN
3iioqQ7A+ApDA7lV7T8Ii5WT61oEwFLROzYdmO4/8BiEL0l59b8KOwvBvJ3u
P0DuABBkI/W/waTaS1yj7j+Qw33wfs30vzB4eWGbru4/QG53sbQh9L8OH7eM
GcXuP5DDajMgyvK/yWwy4xXy7j9AblE39xrwv0AIKZAOTO8/IIc9fkp55b/4
cfgarlHvP8AxNz+AzeS/r9vHpU1X7z+A3DAAtiHkvx6vZruMYu8/wDEkgiHK
4r/8VaTmCnnvP2DcCob4GuC/t6MfPQem7z+AY7AbTXnVv24N78emq+8/ALmj
nbgh1L8md75SRrHvP0AOlx8kytK/lEpdaIW87z8AuX0j+xrQv3LxmpMD0+8/
AB2WVlJ5xb8qW2oeo9jvPwDHfFopysK/4cQ5qULe7z8AcmNeABvAv1CY2L6B
6e8/AI9hzFx5tb8IAqhJIe/vPwDjLtQKG7C/v2t31MD07z8Acvi3cXmlv3bV
Rl9g+u8/ADwmj5t5lb8uPxbq///vPwAAAOSW67S+POKP0A==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$893307#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{-1, (-12) E^(-2) Cos[4] + 16 E^(-2) Sin[4]}, {
        Rational[-1, 3], (-12) E^Rational[-2, 3] Cos[
           Rational[4, 3]] + 16 E^Rational[-2, 3] Sin[
           Rational[4, 3]]}, {
        Rational[1, 3], (-12) E^Rational[2, 3] Cos[
           Rational[4, 3]] - 16 E^Rational[2, 3] Sin[
          Rational[4, 3]]}, {
       1, (-12) E^2 Cos[4] - 16 E^2 
        Sin[4]}}, {{-1, -0.5772207461221954}, {-0.3333333333333333, 
       6.534852949063302}, {0.3333333333333333, -35.787387331512974`}, {
       1, 147.43061009748834`}}]]},
  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",
 CellChangeTimes->{{3.796980013303794*^9, 3.796980024608881*^9}, 
   3.7969801794410887`*^9, 3.796981483476985*^9, {3.796983300283477*^9, 
   3.796983315458791*^9}, 3.796983361102941*^9, 3.797044793351327*^9},
 CellLabel->
  "Out[959]=",ExpressionUUID->"9bb165c6-604f-43b8-a4a0-42082e18cfaa"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"1def07cd-9f15-487a-8998-c99a455d8ff4"],

Cell[CellGroupData[{

Cell["Spline  (Non-standard)", "Section",
 CellChangeTimes->{{3.765855977946375*^9, 3.765855979378017*^9}, {
   3.765856952827845*^9, 3.7658569609328213`*^9}, 3.796976658973446*^9, {
   3.797060321259675*^9, 
   3.797060321968449*^9}},ExpressionUUID->"75dbcf98-ef11-48fa-bcd5-\
6905f7646560"],

Cell[BoxData[
 RowBox[{
  RowBox[{"is", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}], "]"}]}], ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Spline\>\""}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "3"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.765855815173862*^9, 3.765855847868487*^9}, 
   3.765855936514638*^9, {3.765856049602077*^9, 3.765856053880406*^9}, {
   3.7658565866105022`*^9, 3.765856587381401*^9}, {3.796976204703567*^9, 
   3.796976213453656*^9}, {3.796976270278157*^9, 3.796976276867886*^9}, {
   3.796976503865398*^9, 3.79697650699137*^9}},
 CellLabel->
  "In[796]:=",ExpressionUUID->"3f57ac3f-8203-45ad-9733-21674f406b60"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fun", "[", "x", "]"}], ",", 
     RowBox[{"if", "[", "x", "]"}], ",", 
     RowBox[{"is", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.76585604366113*^9, 3.765856045568099*^9}},
 CellLabel->
  "In[797]:=",ExpressionUUID->"f52713a4-e3d4-4c63-87fa-542097a55656"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtmXk4Vd/3xzUYknkoRZlK6qMMIVTWLSkpY6aQTGmgQpEic1Ik0UAkJVHG
yjVetpnM8zzd607G615DpvI9v+f5/XWe17P3Wuu91l5773OeI+141/TaZjY2
toVNbGz/9zwCOyY3NhhogYlczJ+x4O6KbPjKKgNV/n0w/MGbBbm/lOXmFxmo
dlPWmXknFqjIGzhSpxiIZziuo1qbBccEQweaehmoiH/qzuZFJuDGmQ3xOQx0
zcEKjTsxwfRpc8bRqwzkKZgWI3lhDh60ht6+XjaLFrYZ1257PA2RU969C4Wz
SL/0zovDNtPwmfPmqeBfs8i56fqB25rT0AQGoh/SZ9H7rsk0WJoCmVzR0o6Y
WeQSlZmm5DEFLdFfebSvzyKhkv08mm6TIGdanyEiMIsyOOP3vPOmQ1fX9skK
hxmk1chhpDBAhiBnfFmG7Qyi5/33k1BOhiMLdrFvLGdQn/iVDcc0MoQL/zxx
02AG8e9LUWPeJ8NJU6uXApozSIF6UkZYkAxfW7+oXhWYQUvuwaHXDMbBp+Fk
wHrZNJLZoc+2rYcI+61pl6hF08hazln+LCJCx0S0fFveNDIr1P4vLp0ICtvI
7Snfp5GpbdbHR75EIJ57vu/C22l0bmXbZQ0ZIujX9PyOvz2N3B1M0Mt7Y7Cn
/K7IMYlpFKrM6ULXH4EmIbX7Wjux8Z65Jh3ZEXh0bbXzpNA0quWOvFizNgw9
3E9iz3BNIynLrVZaWcMQbf5eyHRhCjWFtTImBYdhy1S1wO2mKTQtePy7FWkQ
JkR386b4TaHaHJrQWlI/xN0Ydfv6YArxXMhrW/Pth7MlX5q+eU4hlwuEUqnL
/fDZXjEy98YU8hvbMtEj3A+2GWe2l5lNoWB81jDreR+04u5u61eYQuHt0kJD
Ab2Ad61m5x+eRNUNtxq4Q7tBQ+qO8tfeSSTlV6A14tgNxV07r5zsmERN3nrc
A6e6ofyka55r3SRK1yjz1WfrhgZ+Iaf6H5Ooj/9RHE9AF4z9uloeFIaN+90/
zx7aCdzrq48WFCdR+SauVt2MdniR++VrxKFJVGb4ZpTtZTsIXDPskNk/ibyn
C1aJnu0g2vLpoMnuSeRWL8W543g7SCXr9WVtnUR5V7d76zS3gdqZt2rX+yeQ
wsLH8+eYrWAfqTzXHzyBBHQEE+e7m+BRXkxY8+MJhMOlRDV+a4I3Q/MSFT4T
KC5CuoP4uAkaFPLPp9+ZQGMTx3vr5ZrgaLNWirf1BOY/5vtj30bg4DtjIawy
gZRc03hvKjVA5ksLwkUiHaWPncnyq6uD2oICU9wQHdmGqqVRP9cBcVRs4mgv
HeUKJFtG+NfBDqVBUfFmOqq/wn8rVL0OAtqu3p0opCOJygZNlW+1YCp4UyYs
mo6aaonFTvE1sBzjG46AjpIvt++5/KUKaBIVk2e16Min8KXOndAq6PnKYdCi
SkdDHbZa1c5V8Kv4leDwQTrKdBrjVZGrgjuktPerwnSkQb3tIZhZCePKXZlq
dBpyVz/tWl5VAR0lu/hLSTRUffHkvo60CijXvepxZpiGTiRU+8lEVkDS5Um1
Sx00FKgrH+RvXgFWQWzInUBDXa6N26SmyqGlTaE9I5qGmkYs6iely4Fg7Xn0
aAQNSY3R1Hu2lUMGueBN8RMauqH1UX19HEH48mnr349oqJD5woc9DIGO1OVx
qjMNlVdyahe0lkHh3SeL0po0ZM8VwW77sBTSVhosvx2lISsvxchPxqXwNkSg
WOkIDc2N5hbbyJfCvXcJ/iBLQ31FPmyH+wlwBP3gvMJLQ23F9Q3HcQRI4RvZ
FUekIr0vbK6tsiUQYwOcmkNUdOOrdNDg5hIITk9e6O+hIhw+de0SqRgcTzu1
ijdRUXI2TvrZ52KQ8aaHfsynormN9vN/DxSDUNV5T9wPKqrvw3+4xl0MmwUy
rhIzqKhc7rydxkwRkL7d1pL9hPnvLjgkkVcEn4dZjK8RVGR800us52wRxBwy
Gz4XRkWFFoorzxWKIPgBvoEeSEXhMk9M04WKwFHQJ/WQNxVZ8fJ5i48VgrTu
X+tseyry0WXHDwUUQnImZy1ejYrcJT5SXncUQPTKjV8WSlQkcAR3Kq+sAALP
NiT/OYTpk1fX0MgoAPuxSF9NKUx/VsPm208KQFJESLmUG4s362IVol0AfA73
9tqxY/5Kdg+VHy6Af1ld2zc2KMj98Jygw54CGDn3jopbpKD6mYfJ9X/zIclX
IrF6lIIEop6nHK7Kh6j6x8+uDWCceV3oET4f/EVHvTm6KSjZodPgQHo+2OV8
MtFroKDcj8kaKVH5YLi+GSaqKYjL48Jdj+B80D7vrPAcUVCb686gj975sGdc
jrMpj4Lm1s7o7rbPBx6l8AW3HAoKH3cKcDHPh3W/CSLvdyxe/N4vghfyYWhH
JsHoIwXJJweVhhzLh0R9Zc/OZxREryemtInkw77t+g1toRTU18V7Npo3HzIa
HWVaAiho+W8xMZkjH4ovvu6o98Lsd1meyVvBw2nerEO17hR0o7D8e/48Hhqa
a4KrXCnIuDX5/LZZPPQb/lEpc6AgXKSKe9I4Huz5BSJKbClIqST/3dgIHuit
8uOFlhTkc8/imOcAHtyjTx3PN8Xs7+yQvNSDh2Vj69hfBhQUaM8hGdKBh0DB
e1O5ehRkv4rj3NyKB86OCJ1sHUwvbSqttREPUTFfEjK0MT1tx9qn6vGw41Lp
fLomBelZ2l+yqMVDknDPha+qmB7xzH981XjY3zWbkqKI1TvfLUW0Eg+ZrznX
kw9R0Bj6J3irHA+q5lJmSfspKLr+924ehAeCqGZmghQW3w4XtVaKB50ek63x
4hQUxz12QgPjhre3bN/uwOKZKv+pIODB1DIkL1YQyye/7kUcxgM7E3le8WD8
61R7CcYOfXnOUZwUVFihF/MfZk+PayZEbMbim7/6RMPY/TJV5NlfMhobHWhl
lGH12LXhFrZMRm2NjBkdTF/gwM6akHkyCgxKbRqvwANXgtKeoFky6nMeOtFa
hYeXNue9/CfIKLw7gJ8Dy3+HhGOzL5mM7BXDRMOx+iQNPdr/cJSM5n7PSZpj
9ZP7EPvYe4CM6MuNG24teMi+ktl9r5uMuHgUw1rb8aC+t+awRxs23/BEqF83
HkpHhp/caSQjq23Sjff68dB0lV/9ZgUZic3Z+uBIeDCTko9yIZCRcZxukCgN
D4NjOKpTAaYvR15MdRoPkw6eb+2yyEhg9aGawR88eMpEzNqkk1H9s3a7c3/x
sEJKOXs5BdNzesnm+ZZ84HLuXroUT0bJFaydkwL5EL1v1tDkNRkt12x/xCGW
DzspHGmGL8kI53F/6ZZkPsi5aFief4KxoNKT7Yr5oHsjoUDbA+PVtzOpJvnQ
JJ/Hf8KNjPQ65UT/WeeD2UTTdc3rWPwPu6mJzvngfOvfTtUrZCRPD2/K8smH
YDcHn4PnsfE8p/SdX/JhJMousViHjMpHXC4l5uaD1g+b8gvamL93Xg6epfnA
WjTnunMUyxdnWSbYlw8OAfpxP/eQkdIKXXanYAEQPp0j6IiRkVRtwkspqQIQ
qz4z1iWE6VOUf/lQsQDauED+DydWbz9zp11GBYCLOVp4nDWO3C9w7+COKYDE
PKWhpmmMJw70PEspgOWew2x2tHGEcy2ys8QXQK64vF7g0DiyJ6WSB/qx8yxV
oq+6Fps/+CfssVwh/CtgXzZIGEdtifMeG82FYD2wWWL0zThSYiTznyIXQv76
BrYnMX9JNpNNq4Vw59Tq05gn48hH9ah3pXwRDDfM7uy9O44Ct5nX7A0vAsJw
7zH7M+PImB7p6GpWDL5bvj/wnCEhNss+1CZNgDvxdhz2dBJK9mEnDmgTwFFR
+I3BOAkFPq39KWlLAH0bv5/y/STUZ3yxwOodAcR+Gc6MVJOQEpA9QgRKIc9x
3vFCIgkZZwvDG94ymK04YbjvAubv+moMQawcSJbMIcGzWDy/0waVh8qheybV
dQNHQhrjC2mkE9h9u4v/2YA6CZX7SE54OpRDhAexKlqGhPb98NdtzSgHeekw
zb8rRFRoN9vmrFsBDoGt+3rSicjdeQl/N6ISLPo/ag+nEJFA7+doteRK0Fdx
tyInERGO/5+vEL4SVMkCkazXRHTiDFNdcLQSuPRM5/mCiMjvrd5eKdUqyObv
rjh3GfMff7Dek1QFa0kDdkXbiIjrP8WL14xq4E0pJS7x1hhyp1X+sHOpBzuf
9/7Hro2hTB/ZJ+HB9SB/1Mi54+oYElCwWqxLqofi9EJFLvMx1DeXbfS0tx5G
YiNq7wE23ll7jV3/Nxy4pbygLzKG2uqf/51UaQDPw6tJLN9RNPZ6LYog3ATF
o/I8mTIjKDDm8YsLHG0gK4A7bZY0iDSC1dPu8HbBz0Pht0jjfchf5U16Y1Uf
jNb8kFJX70FdD+ZDveKHgaLwRgXldyIVYymj7TuJIOj/Tf3IpnZkHL31XV3U
OCioMxRS55uQOutf+Z8mCoScmWkr8qlDZmkGamKSdBA1y46+vLMSTb/tvvoU
Nwk/l2r46/cVo/A32+lpItOQOkh5MRGajbivFoqLjMzAFROJvEGn10jn+tjQ
NQsGTM8vanpVx6I/OQOF1TYM8Hvbivj2x6IKYeMgKQcGJA4GN56ivkKaw+E9
La4MyGvsqDFqj0LS254+5whiQM6Cmyx9IBT9c2sYJX5nQGCXfJd41Umk7SyK
zq4zoIjbt7vSKxZqlGVHx/TnIPmwaGeOzGsIf3J0y1WDOQgzzmlLbH0NNJb1
pUGjOTB7O97offAtvCUI+bSYzcGc9MXKQ8Nx8GnxUleS3RzIae7JiTmTBEmR
H8k0jzn4/evqmR/PvsAPhy8r4u/mQI20aW+QVQ4kneb7JTw0B0eKLZlK33JA
r+g+fXUYs4/Jqh5byQHBTVlRY6NzsP1TplqyQS54pXoeSRufg3Vjq6GN2Vzg
DHhXIT01B8O5OQeR8k9Iqqq91bQyBx/d7apPFuSBSTZPzIooExJtt2W/Gc2D
b513bHJ2MiFOL+/dDCce+mirH5x2MSFaitv1gxUejoY3vqyTYEJgG17wL3bv
cyoKKj6WZYKDEu9VwokCqOh49+WjEhNk50pWtCqLQDJFs6vqPBP8mnVCF7D3
PG4d3383LzCh53sjX/auYrCu6bjFZ8CE59cGZaU9imFraP12U2MmzA2sGnBK
lcDLGwcfV1swoaxG83PnYwJMBjXHWmDf19YJBfpumghWtry6f9SXCXk+0L3/
GoJGo+jZz35M4LOouzoajaDuRBZBwJ8JFQK9903pCEYJlZa0QCaI6PgaJV4o
B/U0uYTAMCb4Fr5/GLxaDm3fr9CdXjHhfEp/s6FVJSgu3LdlpWJ6nmS71Nyu
BJGo49QDaVh9boRsHA+phBaLCrpNOhPohw8rH8yuhBMBRGv0nQnhhYGvt2yt
AtbLcM77OUyobz5gU5hTBf+5CMu9KWTCuWUvujRnDZQkCNeU/GbC7IB+UJxE
DYi9l+uraGDC21LJ3fwq2Dnw6I5fbSMTqMG/L6zb1sB7RPdtbGZCGO+enJ6f
NcAW3ny7up0JtTLVXhF2tdBvEj7g2c8EXQOhLYv4OjAwV2HW0ZgQ5bCNufK7
DuYYZeqxdCb0ebGN/huug9aWOPMrE0y4lTRbzMVRD/WvQGZ2EpvPaPCUsKiH
EtcWns2z2PxXISSdpXp4Pz3aNT+Pze9ZqIhRb4AvzVHVWzeY8GtyKuedfgOw
np0qzsR4/R/pQ6JdA8zGTn++xMaCqAPtD7+GNcCNUy+Nkzax4JdPlnJxTwOY
RNBUD2xlwfpul09E70ZIbFEY59zGgpdXewOVCpogfTJx63YhFoRNnwBqUxPY
tPn6JWHs//Dz3wRSE7gz/PuVhFlwJ/b2I06+ZpDpw58zFWGBYd2W+yPOzbCl
58GO8B0s4FNUuh4p1AICE2uR5btZwEF4s/+0fAtc5BeknxZnwT+9tfE/J1tg
1fL38WqMZx1r7Z1utoBS6L6OKgkWtLy1tdYqb4FduKrh/L1YPv/CDei3WyHQ
G//itgymL2J2e1JIKxwvFt8+hrG/mFnDpfhWWCPGvTGRxfSpSJ5D1a3gpLej
V3kfCw78spZq5G0Dg1lOZdp+FnDS5nZ9dm6DmJ3arnIHWVBnuIfXWKgdRJSn
/NkUWSByhLjDU6IdXlGq/UwwtudNlXot1w42MZubP2G82qig2qfVDha8Jjdx
SixQOH/Cxt6pHfyrF394KbMgWsfmm3teO/jdfB9RcZQFQzKSv2LK2iHAqvkE
lyoLDm4eJ+TVt0PqLfNLhhhXlt9qWx5qh/gfWvg+jBdPPvoTyN4BRpHWd6hq
LLDWiNd9ZdEBvHOW9dRjLPi684rRL/sO0J+86bBPgwXzS1KXu291gImG3z0H
jCPx6W67AjrAePtXzgGMkUph7Ke0DqgdMxOu0WTBvsO9xB/LHRB7La8r5DgL
ZqRF/Tved2J9cZE7S5sFGr6fPCq+dMKuD2KmgxgHdx2+lpvdCf+auHDbgAU7
np69GFXZCRcTrgk7Y6w9/WC3/mQnBBrmlojisH7KH8iv0OyCZWqh8q1TLFC+
kMzI7euCrDMGbWM6LPC6/5/Dyx09UPFUm2mkh/njZhAspHuA3mQn6IVx4cef
YnsVeuBgiN/h9xivN2i2ZZ7qAWt2DgcyxsHSetDg1gOHeofpPuex/mhx3sNe
1QObU4XEv+hj9ZFP6n90txf2HmBXFzBggV6Zg9rpR72ww2rxvgbGE5f2v9r2
pBeanlhO22OsEJCpF/e+F6it2pE/Mf7ZXVyAr+mFYOEbdVaGLCgL7n0zJ94H
/vcyyD+NWNA7JGDqUt8HGe58hRmmLNCPuNZ3v6MPZn3P3R7EmKBZbBcy1Af8
SU4R2y+xIPmtk2vyXB+sxa9x3cb4hnF+6IBYPyxItmqomWH9VGVTYHizH3rW
HlEHzVng5pl78sq9fth0sHRByIIFI1Ls1a6P+2GvNN9TfYwrH2e3hb/qhz+i
5dolGEcc2zRZWdQPYmI1h1IsWSCR8VXiGPcAzAxmPoq6jNXn8tpnXZEBsDyy
Ed+CMRuX8UGzvQPYfYC7zG/NArLzipqHygDIvPtcFoNx1t6LRhnWA3Bcyd/i
kw22vjHMIMmMAfid1X5+9Aq2Hx6eoHFeHISg7aThSUcWHHKu7561GIQK4YuD
552wfjQ0q+52GAQtx8G+bxiH7XP7lPJgEFQnh4fdnFmQ2ZpgAymDwD3fbbJx
jQUr+9davVcHwblz9I/lTSw/gadlV9iH4OthbdF6jCPXhLLOCAxBnc2Wy5q3
WCDVfui5kNwQbC+9f0XSlQVn/azPZJsMgd3K9qQVNxbEdBQVUtKHwER+i8yE
OwtsS3XTmn4NAW4DNbh5sGB/evubX2VDkLqxt4KJceHjCc+gLsz+YV7yhidW
b/ldh/ewDYPCCLfHf15YfgE+n8wsh8H0HXt4zUMWVP137HkV+wiYxbobiYay
wE7RLIXJPwI8siivBONlFQ+C5O4RoPbUhjg9wfpLK2PW98gIlIkHXC8IY8Fr
PclLqpYjwFd2KMj9GQtcrnFKpKaPQBDt/dDBl9j63Nyn1vlzBExPFw7TMH7v
dspwU+kIuL0fuJUWjZ2P93wDr7SPwD2VQeX/YlhwLJhBFl0dgXHp3BzdNyzg
+tibFXZhFDruaZrVJ7Dg8+eF2jzzUfggfV88OZEFJ74KjpGujoJvaumrhx9Y
4J51QQjuj8KB5MuvlT+yoL8Eef9JHIVETqpi/mcWfO9Lgxuzo+BnrZsn/J0F
ctsI9C96YyAyRShULGYBq+7Irc8GY1DlTbA4UYLtl7BPUx9Nx0DlT3CfPoEF
Flufzr63HQOPqZ3Rt8tY8GTDZCHafQymkm7zNFRi/bdI2/CLG4Mrxjf2ERsx
vSThneb0MRi+/lH/3Sh2nn8KizOdGQONPcqp5DEWaNmv7DJmjYG/ischVRIL
OoZHJC6sjwGXA2dZP5kFm/q/yZwSIELCg396MIn1ayscOaxBBBGFmSmvRRbs
IbjqsocTYbcPtrC88yCya3X1zgsi+OEeK9rwzwOPd3huXwwRDp74+3un4Dys
K6aKZ34gwgLBHx8vMg8DKSNM019EsPkSX1wuPg9vI0ySkkeI8IdvUCrp0Dzw
2Rz7c1yNBHcsmzMz9OeBo7AmM1WLBOJrL3/VXZyHvyJmjvw4EnDN+W5QDedh
usW9maRPAk3rM/cUL81Dw+nvKc/sSeCjvS5Nt5mHp4f2GPdGkGB1ztB67fY8
sK1u/uZJIoG0Rbw1ej0P9uP98wE0Etj19CTufTcP5U252i+mSbBM9hUIip+H
wI92XWlLJBB2CXhrlDQPG2eKN4a4x2HPjQPXhdPn4d9LD4tzR8fhUYGqqwYB
y3f/2BaJ0HFwYUylctPmwZa/wPDgs3Gw9+DR6p6YB8Lyi3h17DtD+zi3ecr0
PPg1Hlc0iRuHyVy/Q/qseVhzf2cdljkObW3+Hyv/zsNqieGPua5xIKk57XAQ
XYA/JqV2NfvJ4OJMDbx+bgGC+3OGtf8jQ0+/h/is/gLwOXy2LVQig1iV7umH
hgsg5/7UOuM4GeI+Cel8MF8AsygTi1cmZLi4+7mXhPMC5DZQDK48JoOCTGDV
atAC3NThO7nYRQYejnPOxhULsNDARrgzgLG1xdO7NQsQaDqvRR8lw3NN5vfY
3wsQ59CnMThJBoHvrzdPtS9AbcBn1Qo2Cox7Wdr0kBZAhqCu8EKBAvIDmguf
2RdhUPWq+P5QCkifEt9yxGgRXFbU+J88o4D1zpdSI5cWYa6UZwsligJ7lmRC
Y60WYeu54skv8RSYX5NR4HNchCOXRYv35VCAXWvTNR2vRQh83Gi1b4AC6tQD
33ITF0Gu9thbWSUqHHl9TDaXsQi5z/meh6hRoaHYRkxgcRG0jCiPx7WoUJK/
77fX6iIY9cVcS9GlArU81s2UfQl8JmdUZW2oEDn1UdZEfAka+b50yoRRIYdX
L+G63hK4WwoIygxRYejcPnnhtCVwTFd8v59IhbP0u571mUtgvmIoe5BKhRPx
u2VDfi6BVsILNaU5KlgPbK/mKlsC9lFua+2tNKjtXLMx716C9y7sKdYKNKCs
GKQsbf0D1V6rqrF+NHC/5JJ998Yf2PWabLV1Dx1MKsyXZ3HLoBEiueO+DB36
oocSfugtg4Wndef4ATpEnfN+7mu8DDHGbQZVKnTwtMdf3m+/DDy8hNPBenRw
1Lqi3h6wDP+exCqw3aeD3NHLCS/Kl4H84DTbegMdWjh4R/PPrUC2TXLavM8E
3HT52km4vQqqvbKrHP4T8MytLrLFexVKTNMu7g6ZgH8Kx2JoAatQfz6biXsx
AUucj6MVY1Zh/BjheNSnCbB6KVO+s2AVxET6WuUbJkAp5/Tui5vXILiJf/mK
+CRocc5esktaA8uTAXr1pZPQ2K8ltjyzDkOLVP7KykmQ3vXDsXJ5HRyzDXtL
6iah+nfT69db/oKb5F6XnPZJCCSdLzPe9ReCN5WGvKVMAlT3PJfX/QvZNatl
zrxT8NHGXOly0l/YauittunKFBgW3NnUZ/EPftjdltFan4LZJ7QEMeIGOOLn
9iRvmgYf3b4pQcYGiPDc38XBOQ1h3LeTRP9ugHfRI4EOwWkYp1lKJvGw4bRE
wv/dPDANu5PZH245yIar/P15IN4Us++0PdzoyIbrUu2LWUmfhr1mx19cHWDD
LXPrbCkynwGXomGj/QObcKbtx9X3xM3CG7fpe75LW3Dcx7dXED7Mgmkh27lM
tq24ii8DF2xTZmHd9j4vmXsrTsnnoUNC9ix8o1gG3pDciuOTLIjcVTMLWgGn
TWr0tuJ+u6mMi7JmobyW53h74lYcjutgNN9FBhB1e+XO6bPjlj2Wd2ebMOBQ
8JKirTk7LmewLtXAkgH4dq9IH3t23N4cl5JIRwb4rxZdqPNmx62bf6FyP2RA
XJmfRmkKO64gRfIk51cGjEoSvXg32HF3eBl1XzMY0ODwVCaemwMn96DM9OwP
Buy96XRJYQcH7rX+lRtPCAxI+8puePMwB86T+T52SycDvggK/D1py4E7ZHNr
b0ofA261PpbmuMGBI1Zrfjs9wgDV4ApS9z0OnHFcX1nQBAPMbu/Xi4zgwHFt
Tj8vzWDAA9v7LM93HDjk+qCrfIEButlLug4pHDjv7rNX7VcZUCldo2uZw4H7
///lcGzryoJZCQfuf0s0XN4=
       "]]},
     Annotation[#, "Charting`Private`Tag$648065#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2nk01N/7AHBlTUKFJFu2JIVCUTxTlqQoIrsQilJI0iYJEQkpypLSB0X2
Gbtr31L2fTeL3ZiFkPJ9/875/TNzXmeee+9zn/dz3++Zc2a/0x1Tl60sLCys
2Mv/vR8BodnNTSpapCFX8zA63FmTDl1bp6KIeP3yJF865BaoyDGWqYg54FpF
v0aHo/JGTpQ5Kgo9c7O+RpsOx3cGDbb2UZE1Ts9qnUkDHJHW8j6HiqYTDO3r
rtHA9MXPzGNXqejDKZbIr4ZLcL8tyON65SKaogTxtj6Yh4g53z5m8SJKJ+Ta
9lnMw2dOt9OBBYso54Cc7j+1eWgFI8GkjEVETE4qTqbPgVSuYEVnzCIaKos4
dNBjDn5FpfFoX19Ex/wH+2yuz4KcaVOmAP8iuhz3TWv5zjR0d2+frXZcQCiv
fWCsjQTPnPGVmbaYjzN0zAkkOMK0f/PWYgE9eiyQMZ5IgtDd+afcjBZQRYgU
aLiTQMvU8jW/xgI667/n1xI7CdLavqhe5V9Ay6tlid6nieDXovV0o3Ie5Qin
X3/ZNAGy1lOXKSXzaDOTYyUnbwI6Z6Lk2wvnUbjUWNDshwlQ3EbqSP02j+b+
Ngcle0zAxNmXMuffzaMio6PHtghMgGF9b/N7j3k0dOnL/W/O4yBWdUfguOg8
mqwJ352lMAqtu9R8NPfMo9mD7PdIW0fhoct6l9aueeQ+aXVFZ2gEermD3+hy
zSNX/Z92PhEjEGX+YZcpcw7lt10jfVoaBta5On6P1jl0O+Y1U6xqCGYERXak
Pp5D35THzhx7NADxN8Zupd2fQ77bJ+UkLAdAv+xL61fvOfTuUEChktoAfHZQ
isi9MYecNBuiK6n9YJupu73SbA6lvdhSEu3aD224O9sGFOdQZLjPKItNH+Bv
1rHzjcwi8ehz6Qn2PXBC8rZKWt8s4tgSWuem1QOl3XvstDpnUZb35qCDaA9U
ad0svNk4i4TjojOaB7uhhW/Xtaa8WeQawlPy3KobxguuVj0LmUUXdn7TC7Pv
Au6N9YdMpVlk6zaProR0wKvcL2nhCrNInzU0S8K9A/hdjDulZGfR+mNxTT7j
DhD89emgicgs8j+vuuAo1AGSKQb939mw8b9b/+vKaAc13Xdq1wdm0MaJzYWc
r23gEKGyNBA4gyJs/ourjm6Fh4UxIT+fzKAgvU+Z3S6t8HaYIVrtN4Om7/uu
yGm2Qosi4VzGbSz+Sj4hlPgDjv3UTPW1xuwQF66l8QM4eHWv7D46g4bbTfpN
lpoh6/WV8gsT04jLw/HFxYhGaCgqMsUNT6N2bZwj741GmBgTnjnWN42m7WU/
c+k2gpDykOC+n9MoQ4FrLHujAZ62X70zUzyNcs0tqJWeDWC6000qJGoa6Upb
lHVeq4fVmEehCKZRMQX/kuFTC1Oi1bP6mtNI4N+dsfvmtdCbxmH0S3UaxWru
eKSlXgsFpdE7Rw5OI8mW3Lnw1Rq4PZn+YX33NLLsGbirElADRJXuLLXpKVSo
kHLwSUI1dJbt5auYnEIbB7eWsQZUQ5XeVS/dkSk0PKsn1+xcDclWs2qXO6fQ
F8ujVD6larB8xoI8y6fQ9L3h7WENVfCrXbEjM2oK8eg7PeTcUgXl1t7HjoVP
oaiZzKXOTgSZpKK3pcFT6ASrWQPfFwShq2esmx9OoUslLk30swh0JK2IFOcp
ZGnG/c38bSUU3wle3q8xhaqcVH4b6ldA+lqLxddj2PhsPkU/8Qp495y/VPnI
FOpfzHTY+7sc7sYl+IP0FMpNSoohfC2HIyiP027HFPLrGU+4LFAOqbyje+Mn
KCi+BVl0/yuFGBvg1BimoHb7baTC0VIIzEhhDvRSkKQ8zxsWVApOZ6617Wul
oPEW92P9AaUg5Tsd9JFAQX7XW3wCtpXCrtpz3rg8Cmoq3cebP18CW/kzr05k
UhCX7DP/C+0lMPnVQ1P6EwXhcvCVpfEl8HmETk0LpyD+PNZCnyMlEKNgNnI2
hIIsO4/9JQmUQOB9fMt0AAU5zHd2lP0pBqedfv8p+GL5PQr/ndBSDPv1/lpn
O2Dx4jKK4h7FkJLF2YBXo6BLciTGTF0RRK3dKLiijOXPbxGcklcEAfotKb8V
KMiTsMhdklwEDuMRjzQkKSj0a0kr78MikBDYpVLBjeWL29ivp1YEvI53xe3Z
KeiGTNd5Vtki+Pe9e/vmJhkppx8U3y9YBKNn4yi4ZTIqXg1893CFAMmPRBPr
xsjIb1LmZ2IFASKbnoS5DJLRpXb1o5dyCeAvOObL0UNGN7SlmQ6pBLDP+WRi
0EJG8jwlN96/JIDxxlaYqcPiZR6EVvkTQPucs+JLREYph0+P6dwlgBhRjrO1
kIwygoR47O0IwKMcyryVQ0btLzUvMk0JsPF4ZmLHNzISZrxJJRsQYFgoq/zi
R+xzawHrfjUCJBqqeHeFkVFUUtjy8m4CyGw3bGkPIqPxsi3fh3kIkPnDSerX
U2y8l34aPwcBSi/Edjbdw8anlt+5uoaHMzu+KzR4khFXal7TAwYeWn7WB9be
xPI7te4zvoCHAePfRysdydjzc8dANBEPDnz84WW2mJUT9g6P4mG6TZ5YbEHG
zggr8hrEg2fU6ZMEU6x+Ey2vTHvxsHrJ+k2BERnxRwib+XfiIWDn3blcAzKK
2DU7z/yFB87OcJ1sHTIaVmBVJfzAQ2TMl4RMbTIqfHmAvaYJD0KXKxgZGmTU
PyVySrgBD8m7e8+nqZIR22pKYXEtHmS7F1NTlbDxnk8MU6vxkBXLuZGigNWf
y2egD+FB1VzSLFkW289dA60rlXgoF9TISpAko40blSbiFXjQ6TVhe7+PjJhJ
7+lK5dj+37nbvhMiI92mpD8vy/BgavG88M1OMkpMijRQwjy4J5EnmgfLr0sJ
L4rZsb/QOZKTjMwk9cQuY56O/1kevhVbXyPGthOzpxVFIOwvCc13DRp/wOZf
3bt5K2SVhCzTJtu+YesHDO6pf84gIUVXjzJWLF+uBGWxZ4skxNOsvfClCg+v
bc7d858hoaYgkdORNVg9RJ1+PiKREP/FuhhUh9Vj+KHsgzESih/ZrDjRiAe5
pDdPfAdJSIYSlbzWjIdsu6yeuz0k5CB+kn/rTzyoi9cf9monIa5TNYsm7Xio
GB0Jvv2DhIaZM4IzXXhovcqn7laNmVfh+/wQHswk5SNdy0nIZ6i523IcD0Pj
OMq1IhISFtlbuJ2Mh1lH73f237H567q59Kh48JYKX7TJICG/hCa1H0w8rE2m
6lulktDjsodhcevY/px7Vi6/JyHl7/ICWzkJECWzaGwSS0IGs5lbU3YQYA+Z
I934NQmdOLsR8lyAAHKuJyzOBZOQ8/HdVSLSBMiWM8nRDyAhAXVHxV8KBFCf
cuPUfYStdyg8qeEoAfRuJBRpe5GQasezv8E6BGiVL+Q7dYuE2BZ6Ui9cIIDZ
TOt1jeskdKtXoNLCnADO7v/2qNqRUPu0Y4XmDQIE3nL0O3iOhGznU5aUogkw
GmmfWKpDQq1t2UVsSQTQzLOpOq9NQvJ8z1PlvxKAvmzOdfsYCSVG5Srb1RDA
8alhfL4YZrknu31WCVD+6Wy5jjA2v9c+RjlHEQjX6Y537yKhwhVi8GXsftPO
BfK/OUkoKFGWx+1YEeBijhWfpBPRrfGmV8p3iyCxUHm4dZ6IAp4JrU08L4LV
3sMs9lNExKNJ/28stghy98kbBAwT0ePx4O2oCLvf/SfaX9dARKSXj1a5thTD
vyL2VaMEIpKPi5hP+VQM1oNbRcfeEpFP9tsmlqJiIGxsYmeWiKrimVu/tRbD
7dPrL2KCiehCD3mgb7UYRloW9/TdISJLX8bWRLMSKB/pO+6gS0RR79O7k/aW
wiPWb/e9FyZRvGfPDt3+Mrj93p7DYXoSCTiN+Hgzy8BJafdbI+IkqhozaRzi
LwdDm8f58gOTyNlGJt7esByEC4wXRuuw8eazrZJV5VDoxHA6n4j5WmeyL6EC
FqtPGcucn0SPzbtqHH4imLSgDe/Un0QRaj9qUpcQ9Cz8d3MTN4kSIf0JLzf2
PN7LFzaoPoli3v5E/YerINxrojZKahJ5M67Z5vhWgfz+EI2/axNIxj81yGxH
NTgGtMn0Zkygfxy/WP4Y1cCVgY/aI6kT6GH6uJa3Uw0YHvW0JCVPIGsllbNb
7teAKok/gh47gTJCi+67ptQAl4Epg/fZBNrq/tLhPLMGsvl6qs9aTaANhY7O
Oym18Cd50L5k2wSqRDL66dvq4W0FOT7RfRz5sS43L+1rAnu/D/7HXcZR6Je/
z1lPNIH8sYvOnVfHkcyd/dyHzZqgNKNYict8HDm3npasi2iC0TfhDXdhHDXh
49c3/zXBAXcVpqHAOPIpP570YaoZvA+vJ9MfjaEs63/6FU0/oHRMnidLahRZ
kn/E1Ne3gTQ/7oxZ8hDyk9wv5MLognyFUPdJYj+KX9S+KV/cD2P1eZLq6r3I
1l6OHBQ/AmTFt0cRoQvpeq6LRApOwE7/r+pHtnSgG/GnNodDiKCoTlX8j9GK
vJr3xkRXkuG57kJ7iV8j8qz7Sn7FMw2CZtlRVntqUIHhxz6/I7OQv1LP1yRT
iiTzZwr+cMzDf0PkVzNB2UibPzgmom8B7ExEC4euxaJ4IQ8DL3MqzDOWNe7V
vUESbteWR6yp8PhdG+KVfYOmGf/UzjpQIXEo8MdpSjTyYozf5LtJhcIfnfUX
OyJRnNMdf98AKuQwb0lPDwYheZ2ssaRvVAjolu/eV6uFJkQtP+hvUKGE+1FP
zb034BBi7OaJ/d5LOSzYlSMVCw8Jh8SmLixByKWc9sS2WPBUFWy2ubgEZu+I
P3wPvoNaa28eMFuCpf0XahRG4uGfkIjVgt0SyGmI5cToJoPcE72mGc8laC64
qpsX9gWePNKiXn+7BGqTW8SfWebALhHtmYz+JThSakFT/poDWVUJfoGD2PiY
73XjaznAlLvjbT28BNs/ZamlGOXCRrJGBvv4EmxcshzeXMyFgWPZSuemlmAk
N+cgUskH64wkg+DlJfjoaV+nVVQI7X5dvr38NEi03Zb9dqwQ7N8LZvrvokG8
QWHcAif2HBoevyorQIMoSe6bSZZ4KNboMbq9hwYB7fidf7HvBa64EONFMRo4
Ku+4Wn6qCFY0op+kK9BAeqlsTbOmBAw/hLqy6tDg8U+dIOZCCUT87YxL1KVB
77cfvNnYfUFR7Lukqj4NXroMSe/3KoXGuTen7M/RYGlw3YhTsgwUtGvxyRdp
UFmv8bnrSTkk3XP27rChgXVCkeEtDQSSEq812e7SoNAPemRdEMjXe+5096EB
75XGq2NRCCLXNmx+3aNBNX+fj+k0gvzr8Rdj/GggoPPoYuL5KpDq8G7m9KfB
o+IPDwLXqyD+nVfr11AanEsd+GlsWQN1Qz5q7YlYPsHZrvUeNfDN6tdrlmSs
Pjeeb558XgPyWSdfKH2kwfThwyoHs2sgqfXLpbBPNAgtDohlZasF17llZ8U0
GjT9PGBTnFMLDIkyI5UcGpxdvTe9n7MeFB130E5W0WBx0PBZvGg9hJgLvDxd
TYN3FRIifEfrQZSncVCvhgaUwObzG7b1UFgRmGZYR4OQHWI5vfn1ECQV/0+3
iQYNUnX3wu0bQNrb6ebfNhroGe1iXcY3QoRsHtfzURpEOm6jrTU3gly6h6Hp
GA3677GM/RtphNtPk4Ilx2ngnrxYysXRBApl2+ZKJrB4aou36JUm2L1zJWic
hMVHP5/UWWmCnrpDEX9nsfheZnWMegtkVdxPebRCg4LZuZw4wxaYDhG+eug3
DTb+TSYl2rdA0ViV4iDmyAMdD9JCWkCucfC36hoW7/ddpbS3BXZJCDqM/cHi
RVw/Tfj+gCvP8vi4ttDh9dW+AOWiVhB8tpz6nZsOIfOngNLaCnK7Xy9d2E4H
/wef/yZMtoJupPrJOcy333g85OT9CUJzEr9kdtDBuJHVZ9T5J7BQPbdG8NGB
V0n5esSuX3D5Y57LIQE6RP4LNZr2aIPrSQP7CkWx+cMXtyc/bwNxq9puVTFs
fmGzlsvv20DLCpdeiPn2UYmzqK4NRDqdE/PE6XCgwFryx4520L1yayxFkg6c
U0t7Pzu3Q82BfWHmMnRoNBbbcWlXB/TOSnuKHaKDwJEJIW/RDrDgiTN8jNlh
x3+SsXIdIC5/xGcQ8/oPRdV+zQ4YzIotilWkg+K5UzYO1zrA9+nAri1H6BCl
Y/PVs7AD+udXikqU6TAsJVEQU9kBp6oT+3eo0OHgVmJ5YVMHGG+Lv+yIuabK
vX11uAPaTW1sOI7SYVnr4e8A9k5ouJpZb3CMDtYn3utFX+kEHna5zzlqdEjb
Y3exwKETSqWEytcwM1YkrXrcO+Hx4VcnddTpEIHPuLX3aSdE3Rj26MaMjha/
+ZTeCb7b3hVQj9NB5nDfRN5qJ/x6r+DArUmHhf2C/p0fusBvp790jxYdTjz6
5FX9pQvSlx8r8WjTIbD7sEtudhccFgorP4NZ6IX+hciaLng1d9M2G7P2/H0R
w9kuqNnaXv8UsH4gDBKqNbpBqzy/c/tpOgzyXf+Wq9MNQtEJ2icxy7gxkj4a
dUOAhJi6O+bifTzBTxy7wdrgVUsD5vEArcsaYd1gQH6b8PAMHVTOp1Bz+7tB
V3bG66cOHR5/USR+nOwG38q7lGXMDX+LeyPnMUdK0cR0sXrldlTcYukBhfzX
P25hDhRkjZCX74HX0qLp7Hp06BpzkU+53wPWdJm3Mvp0uOdzyPG1UC/E1+nc
kjLA9sdNLb+yvxfSzKTCzmAu/pgvLK7YC4/9R5ydMG+0aLRnne6Fnoa0a58w
B+43gJZbvXBFK69Z9BzWr7+cxdhre6HdmiN6uyF2veSTBx7e6QP7/YS+ofN0
MKh0VDvzsA/ymA2sa5hnLstGbwvuA93EJF2hC1g/Pc0yiP/QB96vrfhMMOf3
lBbh6/tAbu8JgSbMlYF9b5f29QP/5SXVSiM69A3zm7o29UOBgmnSyEU6GIa7
9Pt09kOwxH1hlkt0KNcotX8+jMU3mi5JYU55d+1mylI/qPJPVbphvnGJEDQo
PABtRdECG5jXa22KjN0G4H69w0s1Uzrc8s7Vsrs7AIr2Cb32mEcl2etuPhkA
MRXPz6GYa55kt4dGD0DU9U/VI5jDj2+ZrSkZgEkdZZvIy3QQzUwTPc49CIbS
XkRuc6w+Vn8+6wkMAkv/2hEtzCxclw6aiQ+CtzGLmCdmkvOamtfRQbjtBDN9
mL+LX7iYaT0I05djn+ZcwfothvZMInMQaPXcEQGWdMjF6XMdwQ9CLa8IeyVm
KeqHyFNoELpTXupsYOa4oJtg1TUIUYEGex9Z0aGNPa7wzZ9BSHHTcwm0xs73
g1NTnBeG4IgS/nqJLR0UnJt6Fq8MwZlRs2huO+x8GZvV9TgOAUe/ZKst5hCZ
W59S7w8B31nrADZ7OmS1JdhA6hDcvLxPxfEqHdZk/7T5rg+B4gFhKVMnrD78
Lyrt2IeBt6Q3E4854s+u77r8w/CQVfWuyDU6SHYovNwlNwz2dlP1U5j1H1vr
ZpsMw2eXtaZoFzrEdJYUkzOG4W8zT6GsGx1sK/TSWwuGQU90p0syZtmMjrcF
lcNAjZULEHbH+vXJjPez7mEYi/20yX8Tu17yew+LsYzALb4Ur90e2P6e+n0y
sxgBcRpLlIMXHZhubFEnnUbAecJLiYa5wizKX8pjBCguri7PvelwSSHDZilw
BOuflY9Zd+ng29MnGJE9AvoKT5J2+dKh9tDxl7Xso8Dv6ySv9IgO9kpmqTS+
UdBvLBFqw7x61KtcQmQU+o6JRXo+xvpbM3Px0ZFR8HUX2F/8hA6xBhKXVS1G
4VmS8B7rADq4unCK/pcxCoT3ItpzwVh/uMmodeWPwuJKYuuXEDp8uHXaeEvF
KMgk2XA5vKDDr7uPAuw6RmGl7X3UUCgdjgdSSYLro8AlcVt6KpwOXB/7voec
H4NfE8JGpjF0+PyZ2VBoPgaqss2VB97Q4VTazvHJq2Nwaoy8ZROz5/fzu8Bn
DOJrPNkL3tJhoAz5/k4cA8d3kqdV3tPhW3863FgcA2Hay+DQFDrIbSuf/mIw
DpbuyXvyc+lAbzzi/tloHBZjfb9V5WHnNeTT3EfTcXAaUTrTkU+HK2wvFj/Y
jsNt/dbQ1UI6BG+aMKM8x2F00Sr7agnW/8tTm4/jx+H8WdUTMTVYvpO795hP
j0PpizNH43qx59unkHjThXGgFF8LnO2jg6bD2t5L9HE4s/F+H26ADp0jo6Ln
N8aB+0SrCn2IDlsGvkqd5p+ArDWmvPcE1u9tcOTwiQlwu1wrQZyng1j5TT32
0AmQ6MwViWdngMDe9fXbryYg3/yEoC0nA3h8Q3P7YyaA2/I9v/Q2Bmwo/bcv
K2kCQlSbBUp5GDCYOkozLZgAwZ/bPvIIMOBduElyyugETD61FtWXZgCvzfHf
J9UmoZTjQ52YLgM4iuuz/tOcBOeCBxJn9RnwV8DMiQ83CSWlWp13DRgw/8vz
56ThJJBUzQz7LjCg5cy31DCHSfhsQWpvMGfACwWxS33hkyBqPRJveIMBLOtb
v3pPToKvR4z46msGOBAHGE+nsHjpDxouMQyoas3VfjU/Cb2Hu8N6YhkQ8NG+
O31lEkbTijrRewZs6pZuDnMTYQ/nAd2yVAb8e+115ewxIsTb/Yu9WIztV3ac
VTSICAeN9d3+Ehlgy1dkfDCMCE/kbt7toTCgfPXVe/VIIvDEBa/lzjDg8Y+T
SibxRHD9ejfQm8qAP55x1iFZRMi5LVEv8YcB62XGeUvdRNhqxfNXZjcTfptU
2NfLkmAjjp43o8eEwIGcEe1DJPCxdTJ4fI4JvI6fbYuVSaDuH3dutxET5Dxf
WGeeJAGP/5s4YzMmmEWaXIk2IcHdxaTcdScm5LaQjeyekMD1laXRoWdMcNPh
1VruJkFDki5pSzUTmC0s5bcHSRBVdOjsgXomBJgyNKfHSBBiSr5t0syEeMf+
E0Oz2Pq5O4ULO5jQ8PSzajULGUrDRSQLJpkgVa6u+EqRDCplBk8+sC/DkOrV
fbJBZKiFqHGpi8vguqbGFxxGhgM67Jbtl5dhqYKHlRxJBlH3iPZAy2VgO1s6
++U9Gc6rtfWuOC7DESvBUpkcMsyd2UvYd28ZAp78sJQZJMP4+cs5tonLINdw
/J20MgVYEza5hhaXIfcl78vnahQQ39lipcJcBs2L5CdETQo8gLiTr9aW4WJ/
jEuqHgVC+47XmbOtgN/sgqq0DQX23A+6riCyAj94v3RJhVCgIWiMTNZfAU8L
/p1SwxSoddDSrv+yAk4ZSh9kJyiwyz2X6PFtBczXjKUPUijw6Y/M6L7cFdBM
eKWmvESBiuTv4y/KVoB9jNtam20Kpo4/CEzpXIEPruyp1opTUGA07N635TfU
3VtXffN4CqCOYnfP+TfsjSVZsolNw+6GfD3tk6tw4rmEkI/UNDDNtobQz6zC
FW/rLuKBaTAh6YlnG65CzKV2o9qj09Dhc9btpPUq8OwoPxNoMA1qd8Lmsh+s
wr/gN4osPtPQZ5NX8LdkFUj3z7BstEzD0fSeKWvcGmTbpKQz/GZAOSE2TNhl
HVT7pNc5/GfgCDPttdTtdSgzTb8g8nwGdlp+3zx2fx2azmXTcK9m4HJHuaJH
2DoQj5efjPw0A6FPmTIa2esgLNDfJt8yA8V+6qOaa+sQ2Mq3ardvFjsfgb83
Y/+AhdZTg6aKWVhnk51wJm3A8DKFr6ZmFkxvfi1Tom6AU7ZxX1njLPTgZT5u
Xd+AWxLirjkds1CB039dxfcXArdUPH9HngVd5f1+SSf/Qnb9eqXzjjmICHkX
Phr7F9iMfdW22M1B/Zunhe+M/kGevYeU5sYcTBhfpKT1b4ITfkksZcs8XIy2
1P9K2QQBHp+9HJyYVwflCcxN8C15yN+5cx5ieWpr73Ox4DQFQv+5HZgHj+XQ
t0syLLia5s+D703ngW1tiXXSngXXrdofs5YxD6oWpZtdvSy4VW4d1hLzBWif
9eXz6duCM+04qS4WvwiJGrsjHi6z4rhPbq8uT1oE0TtxB/I3WXHVXwbP26Yu
whFiRcbSNjacst8Dx4TsRbgyqO0aKM6G45UoithbvwgB548IrZ1lwzXfOkoU
pC9C5p3vL9US2XA4roNRvBeoIH7X/+fGOXbcqteqSLYJFUzbKkWEzNlxOUON
/xlZUEGBjSdF3YEdJ57jWhbhRIVd50XsXvmy4zbMv1C4H1AhNFZ6JjqVHVeU
KqHFmUYFvwtdYWv/2HG3d1Ab0zKp0M5cinjBzYGTu19pqp9HhYGaSzRRIQ5c
rKHdjeByKhyXlpm2O8yB86Z9eMPaRQWWU8d7T9hy4BRs3MVT+6nw2fL5oa03
OHATdRpfz4xSwed01krnXQ7cpfj+ymczVFhumVh9Gc6B49qacW4/lQr6goJq
3nEcOHTzfncVkwrcT71pDqkcON8e/asO61QQsHulbJHDgfv//weAOtsa06yM
A/c/YvjULw==
       "]]},
     Annotation[#, "Charting`Private`Tag$648065#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2nk01F8bAHCVLVlKSkrZIkm2FpE8U5EiQpZQtrQhW1miBakoSZZ+JRQi
S9kHCdeanSxjGTsz9m1m7In3ds77z8z5nHPnzvM833vvc+ecEbF21L+xkYmJ
6TJ++fcuAzvH19dnkA91ws4wgA6Oy2L+yysziDWoyLrOnQ7pWfISjPkZ1Cv/
WkDnJh0UJLWthydmkJRwboHzWToobvMj17XPoPUXtsFKazQgDNFqPqTNoONb
ciWqXWmg/6I+5YjFDCrfLkYm2c+Ce6Pf3VtF0yjyo579gblJCJxwa5/Lm0bz
8z23a1omIZbtzmnfrGnUHO4u+ixrEupAe0dU4jQKy7yUefreJIim7yhsDplG
fnlrL9sYE9AQnMCpemsa8eZkXr6zPA4S+lUpfFunUd2D8z3MO8egtXXLeInV
FKLId339HEoFHxtiUcrVKWRdB+0lnlSQmTMPDTeeQnf0fDQWrKjgvz1T5Y72
FHqwxkJ6L0eFU/pX3mxVmkJjezdylTdQIKHxy1GLrVOoRvnAiVRuCnjUnHqy
WjSJHBWO5KREDsLeYkc+RcFJdDzE/7Jyfx/U8R67r8w/iapu8I+F5PWB542V
llO8k8issXmM620ftHE8C1Vjx64SZbY70wfBhhG8+nMTKJnT8UlxQi9smijf
erduAoVlLSQ3uvbA2I7dXHEPJ9Af8Yyvioe74P3tPvsE9wk0y6s4U725C879
/FKX5DKBrmb7XX00TIZYS9nA9NsT6JVHzRONz2S4mqK2pchgArGVaNTd2kGG
RoLj5k7pCRR1QOO/RpZOINqVs/D0jKNvCxqVc2ttcELYQT6hfRzFaT3gonW3
QX4r/7VTzeNoomWxlfdnGxSfssu2qxxHCU9oWb/c26CGh/d6VcY4YtKyPTdN
J0F/lkWxz/Nx9HZys7X8bCtwrK54zsmOo+CjZe+lWVvgdfqXhFdSeLxH5SAa
bYatN3SaRcXHEWGxmNu9thl2NMQc1Ns9jk4mJ3bovm0G4c/nO74zj6PwsZ6q
9H3NcEzt3bFbnWNokd0D7SQ0gWWg/Gyn7xha1zAxICg3gmd2yPP6R2MoYKzf
1XdLI4R3MwRLPMZQ8FV2DaaeBqiRzrmQ6DCG4gwa41K9G+BIvXKcm+kYsu+5
s9RSUw+s3GpG2xXGUGfrkf9kbOvg2xujgosDo4hxT3bhTWs1/MrN1Sd0j6Ku
1KiDQt+rYaBv19iR9lF0I8npzsizatgp17VjT/0oWvfs+SF6ohqe/LZwHMsb
RdX9azpnPlWB/rY7os+DR9G4UlkLr0clLIV4+SMYRc4nb4bcuFwBI4Il4+eU
RxGFnrmuKFcBbQms2g1HR9GVt3z6mlwVkJX/dlvPwVHEuzlJWaaqHBwGv0as
bB9FLYG7Ds0SymFIvvXbsdER9FZaaLO6ahk0/xTgKRwcQTqbhuU2C5VBsbqF
s1rPCLLp2BK8hakMok3Gj11uHkGBm9gCakpL4YoPE3IqGEEBrIWuMlql0PBb
uikleARFsB7Ld7tVAgWmLkeOvBpBvi78JdsulkAKJTc8/9kIkp+L1RuTKwH/
pTOm1Z4jKLxI44v2n2I4K2wyNGwzgl7tqhEaDSmGPMdn8yJKI+i+7uO+DxEI
4rh7Bd4PDCOT/qSRI90FEGIGbErdw+jWfQHd3uwC8E38PNfZNowskzoZC68L
wPrM9cY9dcPodvkfEZfTBSDqNur3KWcY5VwPD3j5/SfE9tBnEl4No36HUE7+
iHwIkTLo0Xg+jIpPfzV6/SAffN2JNaPew+j4TE2qg0k+WG/ziJdyG0bKibRC
5935IKL+1zTVchilKr6quhfzAz5/Y/tFPDaMts5d33GyLA+Cl29nGckNo2+f
ee5qJuWB97maz4tSw8jf6mV8yZs8sOwP9FISHkYu05FTw9fyQIiPV76QYxiN
dzJrsa3nArfVvX3mLMPIs35RQHc0F9a+t25ZX6ciSReBI+tNudCr8d8wYZ6K
TkS993iTkAvRXoKR5X1UtFfIsMTFIBeCqh4F3CBT0S1CoP4oIRce7+hzYyVR
UWya3n+lh3PBPC1G73wNFV06p+j0hT0X9g5JsNVlU1Hg8snf/GU5wCnnP2ef
RkWastkO3zNzYPXh2ABXMhU1XNotlRCbA907vxVc+kRFEUKW0sVPcyBSU96l
JYCKDn363BismQP7t2jW/PajIgX6FRVB1RxIqbUWbXhCRQnEYy9W5XMg/2JY
c5UrFRmJmPD+3J0DZ7i+S/1yoiKd7fuYPvDkQE19hW+ZHRXJbGY+UMucA506
iwpFVlQkHCbrdWiWCJY8W1/9vEpFsy4MQ5NhIow2Sg7lGVPR/rHWcnI3EZZ0
TUOztKlISnbqR3sNEXZeLmQkKlGRgJTZY2IyEaK3t2klHKWiq3UMN684Ioi3
TsfFyVIRXTruR2gkEY4aChtEi+N6FZzxyH9DhIIdSt8+ClOR27GMmKoAIpxt
02P+sIeKhJiOOEn6EUHf+Gl26DYqMt9317j7ARHI/JGcbzmpKPdn3F45VyJY
dWTbBLFRkYHq+FCrE473fX3Bq41UJFK77l1jTwQnk2G+gL8UtPQ8rnbrHRy/
wLr98yUKyn8XFvH1BhG8yfwVTxkUdEYopDzImgjsH+X2+kxTkKO6mfAvCyK8
Mbvg+niMgoRl0vy0r+F8Ba3rvSgUdHztYtV+M5xvt6f4gz4Kek1mlGiZEEEi
KvSRG5mC1kesz5caEyH12jfSPRIF3dcyUfA3IsLxfRWHnX9TUNXBd0ZRhkQo
7O155lBLQR1fO15twFb7tNBj94uCvMf7ErMNiFBnwXP8TgkFxe6088vBNhCW
DLpZgOPRU5pnxeO7+gnD13Mp6HfR5uZ4bOsYE1WrTAqK8PtIC8HfN27l8s78
OwXpVn6XasDxuIi+mjZLpKDulPXLxjje5cG4cyZxFLTHWFdNBufjHVcQbRRN
QWNT5s36OF92G9LC5Q8UJBE+3lqO6xG8f1pHL4yCUp0zRf1wvfiprF913lCQ
VaJrSDCuZ3S80LrWSwoSMmesjN3G9bh5wvjCMwqqzB1XCMbPI1VCL+2cN64f
efe2p/h5HR+5w6bmRUGa42fsS+8TQf32x1xVZwrqv+k+J/4Y5y+ZzaNiT0GC
ezc2XniK8x+ru6V0i4IeG/j4/PAngo3tGv/RaxS0k2xS7RVGhEkpfif5KxTE
7SLP2RBBhHsTslUylykoZt+Kj10MEXztrTwOXqCg7RfMrF6kEaE3yDwy/ywF
cQiS05NziaCcYVaspYrz8xdPEC8mAn3ekN3hCAWVZxSkiTQTQWfXZen1wxT0
Lo1kGttFhGRlXd1gSQpqrTbsfEDF6/GJ5vvMvRRk2ib+WHoFr+8YjYKzuyiI
lePsSTaWHNhVrtbfyktBLd1Wy4pbc+A3O0guslFQ4aBqQsSBHCCEHMk7SR9C
fRvTN1iY4v2fLdddNzmEJMq2s1Ju5cBS22Em85EhtF0y9Wahaw6k75E87909
hDKtRWztQ3JAKF6wo/zXEBKXOfmD2JgDa7ksS9ofh1B8LrtLpUkumJI3CvaF
D6F5PvrbB/a5kLO6Dk7BQ2ha5GH5wye54HB65UXIsyEUXM/5xhWffz010/zt
jjieNZNlqaVcKOhpV7RUG0L6150E3ZPzYBcTyYymOoQcubyLRErz4L5o8xNf
pSEk6xJxcDc5D6Rv1VV+kRlCRtMB/gyOHxA5W2w8tmsIuau9Tjzj9AO8NiW7
u0wNorYNdNv9F/LB4YM5q+XoIHJ2/cr8/TruD7Lbw7WHBtGBlM9Bbo/zQdPs
YaZk5yDioMhW1Wbnw64snane8kH05dRDMc/9PyHbmmGtFTmI7IVi2Ut4CmC6
REVnv9YgyuVv/FPLVwSDxrTubecG0eGznllCikVAmoq3WycMopY78xvSTIqg
QIAngHx8EGXIHs578qkIXjkPlAWLDqLyS9e6KIcRSIo8V/q7PICu5Gmq10kV
g5V34/62xAEk2OH/twD3Z6POT6o9cQPocYzhYe6HJaCp4HSFEj2AmiPR3QfB
JXCUsjWQHjaAqqsrG6N+lAD7eX0Gt88ASrWUp+zhKoVUHlKJhskAavz0Lbkr
rxT+RJPNf2weQFE6V4O7RcshvJD6PtK2H22rvtXoqVIJ5h4RjxVv9KNvoF4/
eaUSJI9csmm26EchaV4B7q6VkJ+YJ8tu2I9K/RikttRK6A199ese9KM/6jzT
P0Sr4ICt/JwmXz+SkFsO+cNdDS6HV6LpXn3oDOtXx7ylGsjvk+T8JtqLvjdO
3XfD9zmxrYQzBtFd6DTZRkgmvQUypfxtB4c6kFDr5OWbYR3QV5EhfPx4G8rJ
FGkeD+4BqnS4AsppQbzydn927xmAbY+TjstsaEILW0aMqG+HQPr4jHQ8ow79
UqtlVq6lwlO1qd8/PCrR3gHJWtldo7DDIDXYhL8U1afym+kojkPmQgVP1f58
tDOjg/yMcxLiu6ivx/xSkVWDyM/yzim4pieY3XU9DJX1fQvINZyBSca8kmt5
KOp+tXWTsNkMPHzXiLjFQ1GAmaTsM8sZiOzyrT09/BaVh2yIULebgeza5opL
TUFIP/J4WLT3DKTN2YuNkv3Q9aXAsbTkGfBulWzdU3YKlf5YDjq3OgM/OLxI
pa6hYF2kZBemOQufD+9oSRMNgwN5q8+4tGfhuW7a78jGMDh4SjHF79IsGLwb
qnU7+A5U4mf47xrMwqzIxVKpnvewst09SMJ8FiSU9qaFqEVDXvTBYBXnWajO
slDLCPgCoUy3RpfDZ+HY4IZ9PlfSQD39zdpA5yzI5BvT5JLSIEAiTbCkC38+
5Ht5/3IaFDkPfo/umYUtMd+OfdZOB68NHYcMB2ZhVfdK9/p0OvRZaCSkjc5C
T3raQSSfCWepD/j3LM7CJyfz8lO52SDmqfa3kZcGkVc3p4b3ZYPbsHb0Yz4a
vD+f/d8UG+7Df1grDu2kQbAwh13UFXzuRXbF+wjQwPs3cdvfZdxnuYwr9gjT
wEqOy6JAJRc0vTv/bj5MA7HZn8vKpT9AaLPYrWZ1GjysP+s3N/UDCGXP2e5p
0KAtuZY7VSAfHuQ7b+C9QIOXN7rERJzzocmrhVnrIg1mySvabMI/QX6Lj3mS
Pg2KKpRiWx4VgMBN0027LGhg+jFX014JwQnjnNOlbjTI9gCS+A0Ep3gVfWU9
aMBtVGnRF4xAaGTmyMcHNCjZ2n5ffxQB78r61N2HNOA763UpUqsYqp8ZNDH5
0sArL+KB70oxzJ+KX+kOpMGFuM56nSulQPIKZ70fg+N5lnqz4m4pGC5P8afE
4vrcfrp+8mkpsHMWof44GowePix/MLUUnM+HkDQSaOCf5x22ibkM7vgkHmZJ
oUFV/QGzvLQyOMPnLn0qmwYaS66jImwVEFE8r/W1ggbTZE2f94IVYKya+yLz
Fw3eFQrt5lGogGJOM6eCShoM+1ZrrV6tAE7GTq26aho859qb1pZZAW8u/FXq
rqfBL9Fy11fmvyBe1TGikEQDdW3eTfPEShC9eFr7FYUGQVabacvVlRDKUa1v
TqVBhytT31pPJXC9LFGTG6aBbfR0PjtrFdzo15z9PYLHz9S4CBpVQZlHkivL
BB7/9ung2YUqmK0azztJw+Pb5kpCjtfAoL2I4MAqDbLGJ9L+06yBOyJZ1SF/
abC6NhgVaV4D5krDrmfX8HwHmh4kPK8B0le3uph1PN7ju3x+Ww0Icx3y1d9I
h9XdN2MG3GqBeuf4Gz82OryxaPeWy62DUZqnlOw2OjyfVIHhujqQ4+8WbMB+
/CD278fBOqia2rhgx0sHh9C7nmzc9VDD4W/xZTsddCo33e+1qYfAFwVi7Dvp
wC0rdyuQtwFUvypsj9xNB9aCcPEzkg3QlzBVdXAPHdbO/xlaPNUA7pVszjnY
09a/LK/faQB8tH6sE6RDw7urpsrFDSB0bov95D46BK35a4/ebQQdk/sxK6I4
vlfTW6KfNkL7YeFWdzEc3y6DmssfGmFjaDnzHLaDgpAGKm8EIbse67H9dDiQ
ZSpcy/UbaKSPElUSdGAbmRWItfkNUhlpDkZSdKjU2culy9sEA8YGfD/l6MAn
M7DTRbAJUipsZbbL08GSK144TKIJNARIXrbYK7XSRzuUmyBIZ0PWTgU6SF9Q
MbO83gQflpXjbhyhQ/BZsySn7CZ4EqrF03uMDt2iQlkhRU0QcMIm/uBxOhzc
OFSQXdUEzccIHvexS4ttfy91N0H6jug2NkU63heei94szTDtcv+5+Ak6mJ74
oP7WqBkI1Ljjp5TpkMB/7VKWZTMojRL7HmIzFoRNSLbN0E5cafiJHUhMtBd4
0gxJrz18FU/SASnkhcZ8bYZaxSptCRU67D/cPpCx1AxjuY3LA6fo4MT5caJl
Yws8hOaLO1XpUDhhPj/P2QIizO4zF7CNkofZlUVaQEVkk0Qatv+BBdnSCy1A
z0y87Qx0mBLZ8bg5ogXA7XQViUCHE14xziVfWuC/9oOBa9i+rYdvpKe2gH56
XJrEaTrsfHHuYlBpC3Qk+fG7YqtOuu/WHG+BlPEAT44zeH51Zm6luRZ4czRQ
Uwa7OTp4g+RaC6T+ePtYD/umXtIoC28rBBv38b3DfpNDzilRaoWrPNs5dp2l
A5nnVnL62VaItSzcrIi9/w4j6pN2K/xN73Y2xM7bw/nskVUrjMllPQrG7vc+
dVkpoBW4urRD17GlyNXnJENbIUBfZlhAjQ73jxgp80e1wkrgfPwRbPZhB5H5
9FaIlnZ2uIEtr/V5Jr2jFdzVUhRKsR9+kR76NNgKLBt0V9uxf/3NawuabAVL
NW3FKWzT9KZCeyYS2J1+uWmnOh2+bDbPMOMgwXb74fCD6v/2w/gXTT4SuK63
fFTB9t2xKVBSkgSGZyKZrbDrHN484VcgQa116G0X7J1Ve+6xqpBgvN7gzFPs
ZM+jppRLJNhy09EkDrul74bkZ3cSrB7SUujB3qdE3/PGhwQvP2Vbj2PfDnnM
8/gVCX7tiNqxiL2q9t+C2ScSfOcO5uQ5R4dz0WLjmkl4/Pa7hruxgxfTepSy
SOAh5CAljr0/uaqcv5IEdF0fXyVsh02GeaxNJEhfusFxFjvv6kDKPJkE1JTt
khexL/KshLRMk2CXkqPMNex3t58/L10iwYXwmT03sPtLeD0zNrbB5Q29ifbY
rvcPWb3Z2QY2XMnJntg7OWYKjETawG2X5Xeff/N/yty1T7oNXt5dueCPbXrM
7T71eBtcT339NAh7tUbp97fTbVDxUOZaGHa05d9D9y+2gaMnrfMDNiwUvzhp
3AYiFyZWo7F9Rc5DjX0bZPaTTif+yy93y8e37m2wbWrmzjfsiouNC1d82+Cp
XqhaOvbNwRB94ddt8CuttTULm93DKHXkvzaISaram4udzLWbIy22DX73PxXN
x9aK67nh9r0NBBZ3DxdgT56IKTmV1wYqQbF2CDuowWYvS1kbrGnI5pRgy9lI
Pqirb4O9v0hVZdhNyxOtoR1tcDU5OaEC2+VNmpzZUBu+h5XqV2Lzid8LFJ1u
A1Vphd9V2Dn5x0fHltrgNhe3aA22se7K2YxN7ZDTZatVi71ELfzkwd0Osyeu
XarDjvDy+QMC7dDya1muHltlm7ox2/52ED1gyPjnngT2rAaZdoj58/RDA/Zj
lTrud0rtwDUcIdGILdz8xvaaWjtI+6dG/XPprcu/9l9qh6KnLRt+Y1//u1N0
0qQdnnvuM/pn5lDyoyybdlDn/hL1zwmS0Z2eju1Q2O/R9c/ni6yOnfFsh9TQ
DN4m7LHL4m83P2uH3irrc//8cmx08vebdmAXjXnwz9JPvp1/H9EO8wSftH9u
4HP6YhHfDtcr+Sf+2TH5CNOB9HbYbvxAthl7K2HRbDq/HWrf5j/550xSfi6x
oh3OC8z2/rOB3ePtj363g84bGd0W7HmmM45qXe3wKfxl2z+/e8dSu2W4HVbq
d7m2Yp+QrpZomW0HCfKUDAmbXBLoG/GnHfrN9rG1YXsZ6/ZasXbAxFwRUzu2
4NR25YPbOoBDg7KvA7vItz18dk8HrDNibTqxLXd9pOVKdMDLKB4SGXtDqrn2
E/kOcKKq3uvGjj0rmnROpQPu3lU/04ut1kll5tbogPPtiur92MMOSZYkvQ4o
KZd6Moj9gvluQeTVDnjfrsCgYEtGyO2yudUBoRk2X0awa2Tn7h1ywfPPtYaP
Y9tX5DbSH3YA7fT7milsLjOvQ/kvOqDnZJk6DTt1VvWFT0gHTD+15ZjH1n2+
ceh8VAeM/4zds4xN3/NLdWsinv+Z98O/2GEZARHtmR2Q6LtLbqMGHdq7t+rf
rOoAsejqj5zYmq9udNxv7oBI289z27ALlPLNn3Z3gIUu22d+7M/vrtt9nu0A
5oAXS2LYvOp5tNQVXJ/JmGQpbD8Gp0chcydEvdT5IY99WzfHj7yrEzL/s1wg
YJPXOLaMiXaCAX/lwQvYF79bvF2U7oRqekmZHrY8x+ZovtOd4NDrdswG+0ve
tf1iWp2gsi7P64C981ZmsrxhJ4hFPbXwwF4pM8vVudMJzs6ThkHY9i7pp67d
64SHeczMEdi9wizldo86YSCKKJ2AXfoo9bf/205YtRlaRNhHpTcZ//exE/SM
rT7VYyeQjXvi4ztBY7NnbRf2K8UN46U/OkGz/tHPZew1qqFTU1kn/J2547f5
PO7fYckLffWd8IZB7xLANqBd3vR3oBMii3oIKtiCKQmCihxkkNYWl/THDjL5
E6vOR4ZiC7ZvkdhM7LoHDfaRAYW/bM7AptgsH3NWIMOJ127berG/77t4KcWU
DEyhjEjVC3h/138m/bAhAzFpyusKdojXvFmVAxlMJV5vu4ft1hF9m+pLhp8u
RbbJ2KohNB+hFDJ8JyzvFtWkQzrhHLsMEX+/4+H509iiMxFBKogM2hpbIqyx
WS+qfTRpIcO2bb+0E7AbWf7LDv1DBpGlc3GKWnQ4kz2hHMvSBU2X23eZY2db
E0rSebrAO2LH3WfY79FYfb1YF4hyRP9sw7Z8oDLCdrELtMymjvtdxP3dpoo0
bdQFT7WVa4jYDB2DcpJVF2z+uuo5iv18v31MnHsXGEXHnNbTpsO3xo9mENcF
ZRu/F8jp4PzyD2hKpHYBbxg1zA4b4rNOcP3ogvtJ2798xW72rN3R1dAFZIet
98Uu0WFZ/E+j20oXjFbVHZHSxc9/64uiayzd8K6PJuiIHfiH97va1m4Q+y/Q
iIgt3CT1kleiG04sDlaq6+H++9BULVWvG/j6L6+66eN6N//IoyZ2Q4LnBbe9
hnS4Wqj+tS6rG5Z1NKke2OKJTeFZRd1Q8Le4nYSd92jMxae1GxhLjZfDjPB6
lBQ4vJepB5Zrsjfsv4Lr8cQjxsC4B25viloLNqPD3B3m4JPWPRAg80iM9Sq+
DxoEPxa92wMZd1vWHmLrSiWazfr2wK3jsVTHa7gepPYdgak9oGu0ud7Wgg5l
hxRflrH0AucCU33udTqYyxrE0Xh6gdyUIkiwwf1GwblAaHcvrJZM76zBllZO
mfaS6QXVu9E7hm7g8+G80OWjxr0w33TJ7+Bt3F9vsAnGJ/ZCMFXPnuMuXq93
9h9ryewFo5TJyFTsCPvTOhsKe+F1YXyMgQM+7+95eV9r6oVzhq3yCY50UPSd
oexY6QWxow1ECxfcnz+1f3+u1Qcrxa/eynjg8zN27le2YR9Y0h+cpGGrJGzr
H7Tog4uJnEPEB3h/fdfihft9UCbrc0zdiw6dP5HbYmQfmLzRk3v4GPf3jq9w
e7oPfGOHS7Wf0UFic8Hol/P9YPYl4vnbMHz+VcrYxmr3w9MSckFoOD7fn8dM
fNLvh86/BdLv3+H7NfOL6Yir/bAgJlf29T0dnq3rzQU79cOagRbPYCTej/Mj
6w/f90NNqcT5ini8f7JNfTyj+mFJZqPqZAK+b96r3+gR2w/1y5/DdiTi/k/L
ZLn3rR90/8zedUymw9nJR1vuFPdDcbfBDkIazndwO7/haD90v/1ravwD39di
nr/Xn+qHYDV/3/h8OihbLgvo0vvBOnxRfuEnXs89vYJaq/2gYXVR4VMR7j+d
SaKntw7A7qbzf3nK8f5qBJnDJwbAM8C836GRDnsL7NRZ/AfAXyRgWWEUxyOw
suLwegAM2FUCV8bowOnmn94RMgDPLge6Vkzg+5ls/J5vUQMwL+lz5cYMPp/j
emn6WQPQc1E4t34B99dXetGfeweAbHEl5CwrA7jNFBdPHhsEx/GGD50HGMCa
V/EtXnkQBDdqcPJKMeAvn4E1D2EQRjlPKelIM2Cywal+UHMQUriEGpvkGFBz
JjkuwHIQ6k4InWFVZsALqb267a8GwVbwKNMBbQYwrWxMchkchCXdRuI1NwZY
DnUynowMgpBY4V6qBwOK69JVX08OApvF6B4nLwZ4fzJv/bowCFut91KDvRmw
rpa/3s0xBOU5XPS/Lxmw9sbZSOPIEHxLvC3j/5kBq+L9mwT9hkB439Y5hwYG
/t2Sq3MwYAi6Jk5wOzQxoGDp9YfjQUPAEdrE49zKgIe1J2X13uP5fnq0+JIZ
8MfpP9Pn34bA5H1yHGmYASs/dTJmW4eAOfDvJ2WmOVjUKzSvEKcAc/3t2u3H
58C3M61H9RAFDleJr/QpzQG3VezVPDkKWK4e2Jdxag4knF6YppykgEHUsL61
+hwYBOkZvdWjgP2nnGomwzlIr6FqX3tEgYywWSTnOgd3znKfmm+lQEjF2Tv3
fszBXA1TgQOZApHX1XwphXPgrc9QHu2jgFRC76Jp6Ry8t+o40TVOgaMJNSxX
aufg15PYoyVMVOByGmcN7ZkD0YLj0q+lqbB/z3tnnk3z0HXUYo+4HxXGdcWe
ntCfh5vLx3ieBVAhqi3I/qzxPMwWcm6iBlGhPuIl5fLVeWDWyB//8oEKmiN2
gc9uzoOMyY78/WlUsKm32SbtNQ/ej2qv7CdToSAzKdI/fh4kfim+E5MbhnW2
S4Lha/PgZLx1m2j3MDzl9OlNKF0A60TZCPGBYbBW1OcrrFoAw2UdsYPDw9Aa
yVLT0bAAyh9fH5ObHQYn9vUi4a4FYOnjMFVlHoHp5TQ+BmMBIm6yxJlKjwCB
6WtEnMQilLuuHA19OAJ8dxvvqgcvgkAY5Qrz3lHovnZiF7/rEpx4KrTzvugo
HA5jLT/7aAmMXExbhg6Mws+bKzHuz5YgRPe3dpnCKBwkLzHNhy8BJ1fBGd/z
oxBZT447l7sEa89CpZnujwLd2+f0+T9LQHE/w7RaMwr54w1rZP9lSDX7/JXh
MQaLBlvDZ/JX4Gi72Arr4zHIt70DRuUr8FP/68XdT8dAOiS8r6x+BaoupNII
r8fAbyRjS3b/CgwpFpwMihmD1RusZqOsf2AXX0ejZM0Y5Pg83Bln8Ad863iW
ru0ZB8uMV5vuzf8B41NPzlcVjoMiOameU/svZJjfFVVenYDdHybsOPczEZY4
zm76YTgFwjaj4l83byToN508vvf9NCx+Ig9a8DMTOE5uKSmImgaVb7YPFUSY
CSVfyFpX46bhaEwag+MQM0HO44HVx9RpODBg7FuvykzgFsoNFKiYhqI/+/Q+
3GQmVNsrDO2gT8PFTGcV7VxmAoH9YDD3xRmw6nwQoHCNhbDkvLQ7VW8G3rq7
nSq/xUJI66qM1zaegd09+9muurAQ9qXd/BloPQMiEe8Go16wEFYNvwxzPJiB
lH2147aZLITcOKFTbAkzcOG2ddWhzawEB66ZyoSUGVBGjklCfKwECfci/XMZ
M9B18XCBgBArIUzz2u1nBTPw92veI+FjrAQXWkTophY832euWA8rVoKUme2+
uI4ZmJ75cDranpUwUK6UdKZ3Bvy+k4Rr3FkJuu87inzGZuAzj1n80SBWAvvG
xAsiMzOw2Xe/zr0PrARk595aPDcDkWuRp/K+sBLcSOcsLFdmwNjez3VTOivh
//+PgkOZEYsGP1kJ/wMFKWEM
       "]]},
     Annotation[#, "Charting`Private`Tag$648065#3"]& ]}, {}},
  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->{{-1, 1}, {0., 2.841470655830809}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.765856063286497*^9, 3.7658561234676867`*^9, 
  3.765856622515758*^9, 3.7658567257148533`*^9, 3.7969762802758017`*^9, 
  3.7969765104375362`*^9, 3.796977138680848*^9, 3.796977170475568*^9},
 CellLabel->
  "Out[797]=",ExpressionUUID->"6c4c0b8a-1f6f-41d9-8bc7-8c3427a2e843"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"is", "/@", "x"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"fun", "/@", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"\[Xi]", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"is", "[", "\[Xi]", "]"}], ",", "\[Xi]"}], "]"}], "]"}]}], 
   "]"}], "/@", "x"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Dfun", "/@", "x"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.765855851948838*^9, 3.765855928914444*^9}, {
  3.76585646957647*^9, 3.765856493532543*^9}, {3.765856610532596*^9, 
  3.765856612915977*^9}},
 CellLabel->
  "In[798]:=",ExpressionUUID->"9ddefca5-e469-44b5-ae01-c00ba8db184d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.1585290151921035`", ",", "0.08533390063396674`", ",", 
   "0.4876201180186626`", ",", "1.`", ",", "1.142009511610967`", ",", 
   "1.3220735067734406`", ",", "2.8414709848078967`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856622530097*^9, 3.765856725729113*^9, 3.796976285301458*^9, 
   3.7969765132173243`*^9, 3.7969771386906776`*^9, 3.796977170484887*^9},
 CellLabel->
  "Out[798]=",ExpressionUUID->"7f88547f-94a9-4620-97c1-f805f73b9c43"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.1585290151921035`", ",", "0.08533390063396673`", ",", 
   "0.48762011801866256`", ",", "1.`", ",", "1.142009511610967`", ",", 
   "1.3220735067734406`", ",", "2.8414709848078967`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856622530097*^9, 3.765856725729113*^9, 3.796976285301458*^9, 
   3.7969765132173243`*^9, 3.7969771386906776`*^9, 3.796977170488824*^9},
 CellLabel->
  "Out[799]=",ExpressionUUID->"3e911bb7-a6a7-4f39-b548-0990abb63eec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "6.987679885283611`"}], ",", 
   RowBox[{"-", "0.2289270739126843`"}], ",", "1.8652081063733825`", ",", 
   "1.0000895427134542`", ",", "0.023938265103540912`", ",", 
   "1.8028189578333476`", ",", "8.059939162335432`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856622530097*^9, 3.765856725729113*^9, 3.796976285301458*^9, 
   3.7969765132173243`*^9, 3.7969771386906776`*^9, 3.7969771704909077`*^9},
 CellLabel->
  "Out[800]=",ExpressionUUID->"822c3842-5f54-4cff-b6ca-80e1259f20cc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "7.45969769413186`"}], ",", 
   RowBox[{"-", "0.1030016281119408`"}], ",", "1.8338458352036264`", ",", 
   "1.`", ",", "0.05606805742584886`", ",", "1.6747761496658369`", ",", 
   "8.54030230586814`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765855855919379*^9, {3.765855891626628*^9, 3.7658559299466467`*^9}, 
   3.765856123363192*^9, 3.7658562568745213`*^9, 3.765856362623765*^9, 
   3.765856443538937*^9, 3.765856494884054*^9, 3.7658565442081423`*^9, 
   3.765856622530097*^9, 3.765856725729113*^9, 3.796976285301458*^9, 
   3.7969765132173243`*^9, 3.7969771386906776`*^9, 3.7969771704930468`*^9},
 CellLabel->
  "Out[801]=",ExpressionUUID->"a1832402-787d-4e00-ae2a-7c0e57b3a1a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"\[Xi]", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"is", "[", "\[Xi]", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}], "/@", 
  "x"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"DDfun", "/@", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.765856132451748*^9, 3.7658561595024767`*^9}, 
   3.765856216203452*^9, {3.765856519195478*^9, 3.765856522682734*^9}, 
   3.765856616534069*^9},
 CellLabel->
  "In[802]:=",ExpressionUUID->"0de368bc-e0e8-4678-b8f1-180057aa2ee0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"27.273184880740068`", ",", "13.279331987485488`", ",", 
   RowBox[{"-", "0.7145209057690876`"}], ",", 
   RowBox[{"-", "4.476190476190483`"}], ",", 
   RowBox[{"-", "1.380717189468995`"}], ",", "12.054001345847832`", ",", 
   "25.488719881164666`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765856218623899*^9, 3.765856256974984*^9, 3.765856447357559*^9, {
   3.76585652382286*^9, 3.765856544307849*^9}, 3.7658566226171494`*^9, 
   3.765856725817638*^9, 3.7969763008512897`*^9, 3.7969771387694387`*^9, 
   3.796977170555717*^9},
 CellLabel->
  "Out[802]=",ExpressionUUID->"d1ec3abf-d1d0-4f64-9cbb-4bfa6313634e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "32.8414709848079`", ",", "12.618369803069736`", ",", "0.3271946967961522`",
    ",", 
   RowBox[{"-", "4.`"}], ",", 
   RowBox[{"-", "0.3271946967961522`"}], ",", "11.381630196930264`", ",", 
   "31.158529015192105`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765856218623899*^9, 3.765856256974984*^9, 3.765856447357559*^9, {
   3.76585652382286*^9, 3.765856544307849*^9}, 3.7658566226171494`*^9, 
   3.765856725817638*^9, 3.7969763008512897`*^9, 3.7969771387694387`*^9, 
   3.796977170558321*^9},
 CellLabel->
  "Out[803]=",ExpressionUUID->"111af4d1-7254-42ed-991a-bd8a4ee1a047"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"6562e599-733f-495e-b9c9-e55cd528538a"]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{Full, Full},
WindowMargins->{{192, Automatic}, {Automatic, 0}},
TaggingRules->{
 "SlideShow" -> True, "SlideshowSettings" -> {"Toolbar" -> True}},
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"7248fb24-6959-4b5a-828f-cebdd8686b63"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[580, 22, 4467, 99, 2, "SlideShowNavigationBar",ExpressionUUID->"de7bfc40-0e1f-47ad-83f0-e309e061ddcc",
   CellTags->"SlideShowHeader"],
  Cell[5723, 143, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"054363bc-8214-4ecb-b8d3-e9fc46565c4f",
   CellTags->"SlideShowHeader"],
  Cell[10179, 269, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"171f3777-e9dd-416a-8c21-2b0d2027b832",
   CellTags->"SlideShowHeader"],
  Cell[99383, 2046, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"b8f962ac-c8a1-477e-83dc-06e2e5edcf9f",
   CellTags->"SlideShowHeader"],
  Cell[241645, 4789, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"df4362c4-c778-4a0a-9fdb-ad2c68680558",
   CellTags->"SlideShowHeader"],
  Cell[294672, 5944, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"dc7338e9-fedb-4a77-9e7a-d212d9467a84",
   CellTags->"SlideShowHeader"],
  Cell[303327, 6179, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1545bfad-b7a4-4493-8358-7090ad30df09",
   CellTags->"SlideShowHeader"],
  Cell[403072, 8196, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"05244c5c-63a1-4452-9564-ebb0f572d2ba",
   CellTags->"SlideShowHeader"],
  Cell[504649, 10169, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1def07cd-9f15-487a-8998-c99a455d8ff4",
   CellTags->"SlideShowHeader"],
  Cell[547458, 10966, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"6562e599-733f-495e-b9c9-e55cd528538a",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 548060, 10984}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 4467, 99, 2, "SlideShowNavigationBar",ExpressionUUID->"de7bfc40-0e1f-47ad-83f0-e309e061ddcc",
 CellTags->"SlideShowHeader"],
Cell[5050, 123, 422, 9, 572, "Title",ExpressionUUID->"1507ff20-664e-4567-8326-649e27db10b9"],
Cell[5475, 134, 211, 4, 115, "Section",ExpressionUUID->"8a4d8dd0-ed44-4cdb-b60f-79e2b92a737c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5723, 143, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"054363bc-8214-4ecb-b8d3-e9fc46565c4f",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[5870, 149, 210, 3, 115, "Section",ExpressionUUID->"e84abe05-8a4e-426a-9265-491b41c95334"],
Cell[6083, 154, 193, 3, 49, "Text",ExpressionUUID->"1d441ef5-e826-4925-8e11-04bec8580c3f"],
Cell[6279, 159, 2862, 78, 466, "Input",ExpressionUUID->"eaaaa680-fc12-46b2-ac89-b1c27bbe5b19"],
Cell[9144, 239, 986, 24, 178, "Input",ExpressionUUID->"bd8f782e-141d-4ae7-aafd-31764052ad5e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10179, 269, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"171f3777-e9dd-416a-8c21-2b0d2027b832",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[10326, 275, 202, 4, 115, "Section",ExpressionUUID->"f6b2bcc3-589e-44e0-bacc-3a5901202d5d"],
Cell[CellGroupData[{
Cell[10553, 283, 154, 3, 89, "Subsection",ExpressionUUID->"f466068f-fde0-4c35-99a6-d6c1d94c336c"],
Cell[10710, 288, 1399, 39, 117, "Input",ExpressionUUID->"14e3bf72-c21a-4162-a819-d5d4046f08cb"],
Cell[CellGroupData[{
Cell[12134, 331, 391, 9, 49, "Input",ExpressionUUID->"a05766e5-c88f-44e2-9e74-4e32d39b60e1"],
Cell[12528, 342, 754, 16, 68, "Output",ExpressionUUID->"e89eaea5-3678-41db-9003-af6106a27f0b"]
}, Open  ]],
Cell[13297, 361, 488, 12, 49, "Input",ExpressionUUID->"baff61d0-597d-4a10-8d18-54f53caafee9"],
Cell[CellGroupData[{
Cell[13810, 377, 250, 5, 49, "Input",ExpressionUUID->"5da57f4d-70e3-48f8-af94-5a4b7159beef"],
Cell[14063, 384, 6005, 166, 478, "Output",ExpressionUUID->"5cedd568-7479-400c-9c8a-fdcc333d94d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20105, 555, 920, 24, 114, "Input",ExpressionUUID->"6b98973a-4982-4687-9e99-759faa93d714"],
Cell[21028, 581, 25321, 445, 249, "Output",ExpressionUUID->"fe01c023-07dd-4ec8-aa61-92c1aa1f7886"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46386, 1031, 826, 24, 114, "Input",ExpressionUUID->"fdb16fb7-5088-4656-9c59-2618f6cc059b"],
Cell[47215, 1057, 18526, 334, 245, "Output",ExpressionUUID->"efe79326-615a-4072-b211-cd0f3a3052d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65778, 1396, 874, 25, 114, "Input",ExpressionUUID->"f0ea493e-5584-4b5d-9f8d-af90cda9ac90"],
Cell[66655, 1423, 19940, 357, 245, "Output",ExpressionUUID->"0dde794b-98f7-47de-a5dc-716212ed6a67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86632, 1785, 937, 27, 114, "Input",ExpressionUUID->"c4ae2a68-573d-4383-a17e-bd646e7b13bd"],
Cell[87572, 1814, 11738, 224, 245, "Output",ExpressionUUID->"b02e0139-7c77-4361-a985-c3ee5be00110"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[99383, 2046, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"b8f962ac-c8a1-477e-83dc-06e2e5edcf9f",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[99530, 2052, 155, 3, 115, "Section",ExpressionUUID->"d0712664-04cc-4fae-a5b4-cb94ad288917"],
Cell[CellGroupData[{
Cell[99710, 2059, 156, 3, 89, "Subsection",ExpressionUUID->"8fee05d5-aea3-4818-8a97-801bc3832487"],
Cell[99869, 2064, 1262, 35, 114, "Input",ExpressionUUID->"f4c2f750-2c10-4413-a12e-2247c8f4cb5a"],
Cell[CellGroupData[{
Cell[101156, 2103, 359, 7, 49, "Input",ExpressionUUID->"dcb99237-fdf4-4092-97cf-dd3551442cae"],
Cell[101518, 2112, 628, 11, 49, "Output",ExpressionUUID->"eda6729f-0274-4f67-a86a-4c4e1dd6e486"]
}, Open  ]],
Cell[102161, 2126, 484, 11, 49, "Input",ExpressionUUID->"b73ed6c9-2786-4e9d-98c9-b37fd344dfcc"],
Cell[CellGroupData[{
Cell[102670, 2141, 246, 4, 49, "Input",ExpressionUUID->"7a0805d7-5d21-4077-8a9d-195cb5349cf2"],
Cell[102919, 2147, 2957, 83, 166, "Output",ExpressionUUID->"2f59caf8-9103-4569-892e-c43ba16592d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105913, 2235, 537, 12, 49, "Input",ExpressionUUID->"50007443-9361-4a3b-b682-d18f5bae7014"],
Cell[106453, 2249, 24345, 422, 245, "Output",ExpressionUUID->"41c4d9bc-87e8-4270-b9d9-4986ea392183"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130835, 2676, 387, 8, 49, "Input",ExpressionUUID->"4ca0c53e-fbaf-4764-8fe3-10c209c52219"],
Cell[131225, 2686, 730, 15, 68, "Output",ExpressionUUID->"70d6442d-2e08-465e-a7e7-4a50dbcf1cc3"]
}, Open  ]],
Cell[131970, 2704, 484, 11, 49, "Input",ExpressionUUID->"90853bbe-7023-409a-907a-67848e048070"],
Cell[CellGroupData[{
Cell[132479, 2719, 246, 4, 49, "Input",ExpressionUUID->"a1bfadb9-2968-49d0-855e-ca438919f010"],
Cell[132728, 2725, 8678, 235, 780, "Output",ExpressionUUID->"b7033a48-38a2-41eb-a6fc-720005137566"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141443, 2965, 916, 23, 114, "Input",ExpressionUUID->"e6c689fc-1b1b-4706-b906-9f89a1d6c32a"],
Cell[142362, 2990, 27302, 476, 245, "Output",ExpressionUUID->"bd686118-31fa-4d0b-93ea-8b9f14cb076a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169701, 3471, 822, 23, 114, "Input",ExpressionUUID->"92e1d9ab-ef1b-4566-bab3-d4b6c6c84e14"],
Cell[170526, 3496, 26931, 470, 245, "Output",ExpressionUUID->"13224017-0052-4ee9-b37f-3d860910ae9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197494, 3971, 870, 24, 114, "Input",ExpressionUUID->"34d97901-d174-4401-893d-9a271ebef0ad"],
Cell[198367, 3997, 26923, 471, 245, "Output",ExpressionUUID->"c7add931-1e74-45e2-be10-279cf0209114"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225327, 4473, 933, 26, 114, "Input",ExpressionUUID->"82c9e762-cff8-42e9-bcbe-aafa01feaf14"],
Cell[226263, 4501, 15309, 280, 245, "Output",ExpressionUUID->"b33901b8-7eb5-4f56-9072-6a0e121d0dbc"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[241645, 4789, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"df4362c4-c778-4a0a-9fdb-ad2c68680558",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[241792, 4795, 326, 5, 115, "Section",ExpressionUUID->"a14eb372-10de-4e4e-9ab9-6e97b98e1c1e"],
Cell[242121, 4802, 809, 19, 81, "Text",ExpressionUUID->"c84ca236-1b54-4644-882c-52d2f1d7eaf7"],
Cell[CellGroupData[{
Cell[242955, 4825, 634, 19, 53, "Input",ExpressionUUID->"e5320ee8-2ede-4960-8f00-62f4469dac23"],
Cell[243592, 4846, 12247, 220, 249, "Output",ExpressionUUID->"2d5bd69d-d184-4dde-b2b7-54a23f9cc20a"]
}, Open  ]],
Cell[255854, 5069, 192, 2, 49, "Text",ExpressionUUID->"e89ee157-bcbd-4cf0-858e-02c4835d8c3e"],
Cell[256049, 5073, 1306, 38, 117, "Input",ExpressionUUID->"1dcc5301-6722-4135-b4d8-2ef19aca471c"],
Cell[CellGroupData[{
Cell[257380, 5115, 290, 7, 49, "Input",ExpressionUUID->"d8a6874f-31cc-4c4b-a1bb-7bd82c6ea825"],
Cell[257673, 5124, 689, 17, 68, "Output",ExpressionUUID->"afdbcc41-51b0-47bc-8d2e-757926da6b33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258399, 5146, 279, 6, 49, "Input",ExpressionUUID->"47873723-4ee1-43f3-a6a8-d073435f8b1b"],
Cell[258681, 5154, 1092, 29, 120, "Output",ExpressionUUID->"608f5c77-c2c8-4b01-9dd6-0aaab79ebfe2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[259810, 5188, 277, 6, 49, "Input",ExpressionUUID->"646738b6-d003-46b3-a098-f08a43cdbd62"],
Cell[260090, 5196, 1127, 33, 120, "Output",ExpressionUUID->"8969f06a-d1ac-4292-8adc-3ba6a312c927"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261254, 5234, 460, 13, 49, "Input",ExpressionUUID->"75536118-ba2a-48eb-aac0-100a6de68c68"],
Cell[261717, 5249, 2291, 77, 311, "Output",ExpressionUUID->"861f1362-9e85-49f3-bb2a-ff131154c75d"]
}, Open  ]],
Cell[264023, 5329, 621, 13, 82, "Input",ExpressionUUID->"507f8928-7669-4ee0-938b-790af1cf0139"],
Cell[CellGroupData[{
Cell[264669, 5346, 423, 12, 49, "Input",ExpressionUUID->"12b81e80-4072-4214-8e94-1b8a1400f6c3"],
Cell[265095, 5360, 23196, 403, 249, "Output",ExpressionUUID->"7ceb61d7-77ee-412f-ada6-2186210f272f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288328, 5768, 691, 17, 178, "Input",ExpressionUUID->"34e780c9-ca23-4c84-acac-eeacebc25ef4"],
Cell[289022, 5787, 1071, 30, 120, "Output",ExpressionUUID->"9234145c-0309-428f-b18a-540291c54aae"],
Cell[290096, 5819, 661, 13, 82, "Output",ExpressionUUID->"78bedcd1-3aea-48c1-a4a8-9f6de1a4ecf0"],
Cell[290760, 5834, 1125, 33, 120, "Output",ExpressionUUID->"611710b5-282c-435d-ad9d-72dfe9a866ba"],
Cell[291888, 5869, 692, 14, 82, "Output",ExpressionUUID->"2b86f8e7-f1d4-4a7d-8bd0-ee6cbf14ae13"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292617, 5888, 704, 18, 82, "Input",ExpressionUUID->"bbaddba2-2c3d-4b91-be02-dab58269c3f8"],
Cell[293324, 5908, 657, 13, 82, "Output",ExpressionUUID->"926457d5-8549-4462-9e2b-0ad1b0615e34"],
Cell[293984, 5923, 627, 14, 82, "Output",ExpressionUUID->"8eef8fc9-4dfe-417f-9ced-3ac4c8d87e2a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[294672, 5944, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"dc7338e9-fedb-4a77-9e7a-d212d9467a84",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[294819, 5950, 191, 3, 115, "Section",ExpressionUUID->"ff9f4921-f5fb-4737-b530-b9333db31827"],
Cell[295013, 5955, 201, 3, 49, "Text",ExpressionUUID->"2d71ce3f-8a84-4eab-8bb9-0905f0e37afa"],
Cell[295217, 5960, 3014, 81, 434, "Input",ExpressionUUID->"1aac58d2-a0e8-4b9b-be9c-1a57349b3c9f"],
Cell[298234, 6043, 5044, 130, 594, "Input",ExpressionUUID->"989982ef-9060-4d89-b490-bbc5c6844b08"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[303327, 6179, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1545bfad-b7a4-4493-8358-7090ad30df09",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[303474, 6185, 79, 0, 115, "Section",ExpressionUUID->"6c073a3d-f327-484e-8ec5-8da6c337ec7d"],
Cell[CellGroupData[{
Cell[303578, 6189, 154, 3, 89, "Subsection",ExpressionUUID->"2de56354-3c66-4726-b358-ea1611a0c22b"],
Cell[303735, 6194, 1306, 38, 117, "Input",ExpressionUUID->"0ee53a8d-8f1a-4593-8562-154abbfa2ce2"],
Cell[CellGroupData[{
Cell[305066, 6236, 389, 9, 49, "Input",ExpressionUUID->"b32006c2-c775-49a8-b8e5-660d0d834676"],
Cell[305458, 6247, 946, 19, 68, "Output",ExpressionUUID->"d516a83c-dd30-4961-84e2-cf8f7de260ff"]
}, Open  ]],
Cell[306419, 6269, 466, 11, 49, "Input",ExpressionUUID->"3002b23c-6aa9-4eea-bdb4-51ac5fa0d3c2"],
Cell[CellGroupData[{
Cell[306910, 6284, 634, 17, 49, "Input",ExpressionUUID->"0ef20172-986b-460c-9689-4f4f28bff9f9"],
Cell[307547, 6303, 2357, 61, 108, "Output",ExpressionUUID->"9d695386-db37-4c2c-8702-c3c9a0ffb2aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309941, 6369, 425, 8, 49, "Input",ExpressionUUID->"54e6ce89-87a1-452f-b231-472172442db9"],
Cell[310369, 6379, 2638, 70, 216, "Output",ExpressionUUID->"f7278776-8833-49b6-9470-169c1ac7841a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313044, 6454, 304, 8, 49, "Input",ExpressionUUID->"49f4f0f2-af23-468f-8e23-6b5c3ce9fd51"],
Cell[313351, 6464, 243, 4, 49, "Output",ExpressionUUID->"e569513f-b449-46d3-b616-382465b34a03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313631, 6473, 569, 14, 49, "Input",ExpressionUUID->"330217c9-bdb6-455f-b8b7-1ab5b552f68f"],
Cell[314203, 6489, 18373, 327, 249, "Output",ExpressionUUID->"f5985804-4191-459e-9f34-2bdb7145291e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[332613, 6821, 413, 9, 49, "Input",ExpressionUUID->"0ace114a-4cd8-4634-9302-67f70c57c7df"],
Cell[333029, 6832, 922, 20, 68, "Output",ExpressionUUID->"6eae90a3-5a29-480a-b0ad-63f98dce40d9"]
}, Open  ]],
Cell[333966, 6855, 466, 11, 49, "Input",ExpressionUUID->"419abcf6-238e-4f08-ae40-cd53d6a1e32f"],
Cell[CellGroupData[{
Cell[334457, 6870, 298, 6, 49, "Input",ExpressionUUID->"96ecf8e8-691e-42e5-bacd-6c3ab1246e52"],
Cell[334758, 6878, 4034, 102, 334, "Output",ExpressionUUID->"9c01f89d-141c-4534-b9a7-9cd7ec7e0186"]
}, Open  ]],
Cell[CellGroupData[{
Cell[338829, 6985, 945, 24, 114, "Input",ExpressionUUID->"d53c1b1e-2683-4498-8dec-32cc3b43ed50"],
Cell[339777, 7011, 25470, 451, 249, "Output",ExpressionUUID->"b97c6b6d-3e4b-41ee-9eaa-718b142f513a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[365284, 7467, 852, 25, 114, "Input",ExpressionUUID->"450594be-699f-4961-8b45-b07da11bf2cc"],
Cell[366139, 7494, 20664, 374, 252, "Output",ExpressionUUID->"67de2ead-762a-4c78-b7b1-29a090a89496"]
}, Open  ]],
Cell[CellGroupData[{
Cell[386840, 7873, 963, 28, 114, "Input",ExpressionUUID->"9d0dc513-33c0-4284-8f72-d1a9f638191c"],
Cell[387806, 7903, 15193, 285, 245, "Output",ExpressionUUID->"2dd5c320-41ba-4a96-b613-d0b206e5b134"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[403072, 8196, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"05244c5c-63a1-4452-9564-ebb0f572d2ba",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[403219, 8202, 79, 0, 115, "Section",ExpressionUUID->"173eab03-2897-4e4c-858e-39fa20aa8412"],
Cell[CellGroupData[{
Cell[403323, 8206, 156, 3, 89, "Subsection",ExpressionUUID->"8ed53e0a-fd15-4ff0-85f3-60f1db446514"],
Cell[403482, 8211, 1266, 36, 114, "Input",ExpressionUUID->"a5fd1e30-421d-452f-b422-ff608b0111bd"],
Cell[CellGroupData[{
Cell[404773, 8251, 413, 9, 49, "Input",ExpressionUUID->"a96b594a-281a-4e65-bb60-aa5fde589f3b"],
Cell[405189, 8262, 828, 17, 68, "Output",ExpressionUUID->"2dc3ec8f-67fe-4c99-8152-0823ab7cd623"]
}, Open  ]],
Cell[406032, 8282, 466, 11, 49, "Input",ExpressionUUID->"e5462ecd-5fe0-4b71-8d10-256c4e69e7a1"],
Cell[CellGroupData[{
Cell[406523, 8297, 298, 6, 49, "Input",ExpressionUUID->"22bb4649-3fb4-427d-809d-c66340f69664"],
Cell[406824, 8305, 2773, 72, 190, "Output",ExpressionUUID->"bdbfac7f-b332-4ef7-b8da-dfc25ecc2e87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[409634, 8382, 568, 14, 49, "Input",ExpressionUUID->"bf4152f5-b360-4af9-98d2-54016452e3fb"],
Cell[410205, 8398, 23577, 411, 245, "Output",ExpressionUUID->"1b1617c1-edb2-4f7c-b779-8dc262394768"]
}, Open  ]],
Cell[CellGroupData[{
Cell[433819, 8814, 391, 9, 49, "Input",ExpressionUUID->"6a068bb0-6b83-4b2a-8a63-be667c079a37"],
Cell[434213, 8825, 826, 17, 68, "Output",ExpressionUUID->"c6ce0ae7-62d7-4eee-bff7-06db53a6c193"]
}, Open  ]],
Cell[435054, 8845, 466, 11, 49, "Input",ExpressionUUID->"1498d2d8-efaf-4fbc-a109-fab0b2dff584"],
Cell[CellGroupData[{
Cell[435545, 8860, 300, 6, 49, "Input",ExpressionUUID->"5d783076-3e75-4b17-a323-c7fac17aea97"],
Cell[435848, 8868, 2774, 72, 190, "Output",ExpressionUUID->"b0fd9aeb-e292-42da-866d-e3fb4c9ae71e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[438659, 8945, 945, 24, 114, "Input",ExpressionUUID->"3eb271ef-516c-4ae7-8ebe-29e8a7120712"],
Cell[439607, 8971, 24073, 424, 245, "Output",ExpressionUUID->"03df9c25-556b-4c30-88c3-2b4dbe358c2c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[463717, 9400, 852, 25, 114, "Input",ExpressionUUID->"26725651-a81e-4cc4-8da1-7bfa8a641d25"],
Cell[464572, 9427, 23346, 413, 248, "Output",ExpressionUUID->"a3c1f4c3-8d50-4b0a-9204-c33608b72279"]
}, Open  ]],
Cell[CellGroupData[{
Cell[487955, 9845, 965, 28, 114, "Input",ExpressionUUID->"10e584af-11ae-4a47-b852-d04a43f7158c"],
Cell[488923, 9875, 15653, 286, 245, "Output",ExpressionUUID->"9bb165c6-604f-43b8-a4a0-42082e18cfaa"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[504649, 10169, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1def07cd-9f15-487a-8998-c99a455d8ff4",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[504796, 10175, 292, 5, 115, "Section",ExpressionUUID->"75dbcf98-ef11-48fa-bcd5-6905f7646560"],
Cell[505091, 10182, 787, 18, 82, "Input",ExpressionUUID->"3f57ac3f-8203-45ad-9733-21674f406b60"],
Cell[CellGroupData[{
Cell[505903, 10204, 464, 13, 49, "Input",ExpressionUUID->"f52713a4-e3d4-4c63-87fa-542097a55656"],
Cell[506370, 10219, 35375, 604, 249, "Output",ExpressionUUID->"6c4c0b8a-1f6f-41d9-8bc7-8c3427a2e843"]
}, Open  ]],
Cell[CellGroupData[{
Cell[541782, 10828, 740, 18, 178, "Input",ExpressionUUID->"9ddefca5-e469-44b5-ae01-c00ba8db184d"],
Cell[542525, 10848, 708, 13, 82, "Output",ExpressionUUID->"7f88547f-94a9-4620-97c1-f805f73b9c43"],
Cell[543236, 10863, 709, 13, 82, "Output",ExpressionUUID->"3e911bb7-a6a7-4f39-b548-0990abb63eec"],
Cell[543948, 10878, 761, 14, 82, "Output",ExpressionUUID->"822c3842-5f54-4cff-b6ca-80e1259f20cc"],
Cell[544712, 10894, 742, 14, 82, "Output",ExpressionUUID->"a1832402-787d-4e00-ae2a-7c0e57b3a1a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[545491, 10913, 644, 17, 82, "Input",ExpressionUUID->"0de368bc-e0e8-4678-b8f1-180057aa2ee0"],
Cell[546138, 10932, 653, 13, 82, "Output",ExpressionUUID->"d1ec3abf-d1d0-4f64-9cbb-4bfa6313634e"],
Cell[546794, 10947, 625, 14, 82, "Output",ExpressionUUID->"111af4d1-7254-42ed-991a-bd8a4ee1a047"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[547458, 10966, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"6562e599-733f-495e-b9c9-e55cd528538a",
 CellTags->"SlideShowHeader"]
}
]
*)