(* 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[    115692,       2366]
NotebookOptionsPosition[    108532,       2240]
NotebookOutlinePosition[    109768,       2272]
CellTagsIndexPosition[    109688,       2267]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
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[CellGroupData[{

Cell[BoxData[
 TogglerBox[1, {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.765857412460064*^9, 3.765857421428433*^9}, {
   3.765857452911408*^9, 3.765857486130372*^9}, 3.7658577249629393`*^9},
 TextAlignment->Center,
 CellTags->
  "SlideShowHeader",ExpressionUUID->"5d1785b3-56f1-427e-a99e-3b1f5fd9d2cc"],

Cell["\<\
MS-C1650 - Numeerinen analyysi
Lecture 4: 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}},ExpressionUUID->"1507ff20-664e-4567-8326-\
649e27db10b9"],

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

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["Hermite or something like it", "Section",
 CellChangeTimes->{{3.765855226065357*^9, 3.76585522763118*^9}, {
  3.765856940325663*^9, 
  3.7658569464897537`*^9}},ExpressionUUID->"a14eb372-10de-4e4e-9ab9-\
6e97b98e1c1e"],

Cell[BoxData[
 RowBox[{"x", "=."}]], "Input",
 CellChangeTimes->{{3.7658562465764523`*^9, 3.7658562475776*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"ceb04f27-0a0f-4437-a66e-51bb1e578cd5"],

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[139]:=",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/3xzUYknloUplK6qMMIVTWrSgp8xiSuYEKRYpMSYokGogkFGWs
XONlm8k8z9MdXeN1ryFT+Z7f8/z+Os/r2Xut9V5rr73P2c+RdLhr7LyZjY1t
YRMb2/89j8GOyY0NBlpgIhez5yy4uyIdtrLKQJV/Hwx/9GZB7i9FmflFBqrd
lKU178gCJVk9B9oUA/EMx3ZUa7LghGDIQFMvAxXxT93ZvMgEHJnZEJfDQM72
lojsyATjZ80Zx68xkKdgWrT4pTl40Bpy+3rZLFrYZli77fE0REx59y4UziLd
0jsvj1pPQzLnzTPBv2aRU9P1Q7fVp6EJ9EQ/ps+iD12TabA0BVK5oqUd0bPI
JTIzTcFjClqivvJoXp9FQiUHedTdJkHGuD5DRGAWZXDG7XvvTYeuru2TFfYz
SKORw0BugAJBTviyDJsZRM/77yehnALHFmxj3lrMoD6xqxsOaRQIE/556qbe
DOI/kKLCvE+B08aWrwTUZ5Ac7bSUsCAFvramKl8TmEFL7sEhznpk8Gk4HbBe
No2kduiybeshwkGrcRNa0TSyknGSPY+I0DERJduWN41MCzX/i00ngtw2SnvK
92lkbJP16ZEvEYgXXhy49G4aXVjZdkVNigi6NT2/425PI3d7I/Tq3hjsK78r
cmLvNApR5HSh645Ak5DKfY2d2HjPXNM56RF45LzaeVpoGtVyR1yuWRuGHu6n
MVpc00jCYqulRtYwRJl9EDJemEJNoa2MScFh2DJVLXC7aQpNC578bkkahAnR
PbwpflOoNmdcaC2xH2JvjLp9fTCFeC7lta359sP5ktSmb55TyOUSoVTiSj8k
28lH5N6YQn5jWyZ6hPvBJkNre5npFArGZw2zXvRBK+7utn65KRTWLik0FNAL
eNdqdv7hSVTdcKuBO6Qb1CTuKH7tnUQSfgUaIw7dUNy18+rpjknU5K3DPXCm
G8pPu+a51k2idLUyX122bmjgF3Ks/zGJ+vgfxfIEdMHYr2vlQaHYuN/9i+wh
ncC9vvpoQX4SlW/iatXOaIeXualfw49MojL9t6Nsr9pBwFm/Q+rgJPKeLlgl
eraDaMvnw0Z7JpFbvQTnjpPtIJGk05e1dRLlXdvufa65DVS03qlc759Acguf
Ll5gtoJdhOJcf/AEEjgnmDDf3QSP8qJDmx9PIBwuJbLxWxO8HZrfW+EzgWLD
JTuIj5ugQS7/YvqdCTQ2cbK3XqYJjjdrpHhbTWD+o78/9m0EDj4tc2GlCaTg
msZ7U6EBMl+ZEy4T6Sh9TCvLr64OagsKjHFDdGQTopJGS64D4uiuieO9dJQr
kGQR7l8HOxQGRcWa6aj+Kv+tENU6CGi7dneikI72VjaoK32rBWPBm1KhUXTU
VEssdoyrgeVo3zAEdJR0pX3fldQqGN9bMXleg458Cl+duxNSBT1fOfRalOlo
qMNGo9qpCn4VvxYcPkxHmY5jvEoyVXCHlPZhVZiO1Gi3PQQzK4Gs2JWpQh9H
7qpnXcurKqCjZDd/KWkcVV8+faAjrQLKta95aA2Po1Px1X5SERWQeGVSxaRj
HAVqywb5m1WAZRAbcieMoy7Xxm0SU+XQ0ibXnhE1jppGzOsnJcuBYOV5/Hj4
OJIYG1ft2VYOGZSCt8VPx9ENjU+q62QEYctnrX4/GkeFzJc+7KEIzklcIdOc
xlF5JadmQWsZFN59uiipPo7suMLZbR6WQtpKg8W34+PI0ks+4rNhKbx7IlCs
cGwczY3mFlvLlsK99/H+ID2O+op82I72E+AY+sF5lXcctRXXN5zEESCFb2R3
LJGGdFLZXFulSyDaGjjVh2joxlfJoMHNJRCcnrTQ30NDOPyXNRNSMTicdWwV
a6KhpGyc5PPkYpDypod8yqehuY32i38PFYNQ1UVP3A8aqu/Df3TmLobNAhnX
iBk0VC5z0VZtpghI325rSH/G/HcXHNmbVwTJwyzG13AaMrzptavnfBFEHzEd
vhBKQ4Xm8isv5Iog+AG+gR5IQ2FST43ThYrAQdDnyxFvGrLk5fMWGysESe2/
Vtl2NOSjzY4fCiiEpEzOWrwKDbnv/UR901EAUSs3fpkr0JDAMdyZvLICCDzf
kPTnCKZPVlVNLaMA7MYifNUlMP1ZDZtvPy0AcREhxVJuLN6si+UTzQLgs7+3
35Yd81eyZ6j8aAH8y+ravrFBRe5H5wTt9xXAyIX3NNwiFdXPPEyq/5sPib57
E6pHqUgg8kXK0ap8iKx//Nx5AOPM60KP8PngLzrqzdFNRUn2nXqH0vPBNuez
kU4DFeV+SlJLicwH/fXNMFFNRVwel+56BOeD5kUnuReIitpcdwZ98s6HfWQZ
zqY8Kppb09LeY5cPPAphC245VBRGdgxwMcuHdb8JIu93LF7c/lTBS/kwtCOT
YPCJimSTgkqfnMiHBF1Fz87nVESvJ6a0ieTDge26DW0hVNTXxXs+ijcfMhod
pFoCqGj5bzExiSMfii+/6aj3wux3W2jlreDhLG/WkVp3KrpRWP49fx4PDc01
wVWuVGTYmnRx2ywe+vX/KJXZUxEuQsk9kYwHO36B8BIbKlIoyX8/NoIHeqss
udCCinzumZ/wHMCDe9SZk/nGmP2dHeImPXhYNrSK+aVHRYF2HOJPOvAQKHhv
KleHiuxWcZybW/HA2RF+Lvscpnd8Kq21EQ+R0anxGZqYnrYT7VP1eNhhUjqf
rk5FOhZ2Jua1eEgU7rn0VRnTI5b5j68aDwe7ZlNS5LF657uliFbiIfMN53rS
ESoaQ/8Eb5XjQdlMwjTxIBVF1f/ew4PwQBBVz4yXwOLb4iLXSvFwrsdoa5wY
FcVyj51Sw7jh3S2bdzuweMaKfyoIeDC2eJIXI4jlk1/3MhbjgZ0JPK95MP51
pr0EY/u+PKdITioqrNCJ/g+zp8c2E8I3Y/HNXn8ex9j9Ck3k+V8KGhsdaGWU
YfXYveEWukxBbY2MmXOYvsCBnTVP5ikoMOhLE7kCD1zxCvuCZimoz2noVGsV
Hl5ZX/Tyn6CgsO4Afg4s/x17HZp9KRRkJx8qGobVJ3Ho0cGHoxQ093tO3Ayr
n8zHmMfeAxREX27ccGvBQ/bVzO573RTExSMf2tqOB9X9NUc92rD5+qdC/Lrx
UDoy/PROIwVZbpNsvNePh6Zr/Ko3Kyho15yND46EB1MJ2UgXAgUZxmoHiY7j
YXAMR3MswPTlyO5SnsbDpL3nO9ssChJYfaii9wcPnlLhs9bpFFT/vN32wl88
rJBSzl9JwfScXbJ+sSUfuJy6l0ziKCipgrVzUiAfog7M6hu9oaDlmu2POHbl
w04qR5r+KwrCedxfuiWeDzIuahYXn2IsqPB0u3w+aN+IL9D0wHj13cwXo3xo
ks3jP+VGQTqdMqL/rPLBdKLpuvp1LP7HPbQEp3xwuvVvp/JVCpKlhzVl+eRD
sJu9z+GL2HieY/rO1HwYibRNKD5HQeUjLiYJufmg8cO6/JIm5u+9l71naT6w
Fs247hzH8sVZlAn25YN9gG7sz30UJLdCl94pWACEzxcI53ZRkERt/CsJiQLY
Va011iVEQVrysq8eyhdAGxfI/uHE6u1n5rjboABw0ccLT7LIyO0S9w7u6AJI
yFMYapomo/sTh3qepxTAcs9RNttxMsK5Ftla4AsgV0xWJ3CIjOxIXygD/dh5
9mVvX3UtGbkP/gl9LFMI/wrYl/XiyagtYd5jo7kQrAY27x19S0ZyjCT+M5RC
yF/fwPYkGWklWk82rRbCnTOrz6KfkpGP8nHvStkiGG6Y3dl7l4z8tpnV7A8r
AsJw7wk7LTIypEc4uJoWg++W7w88Z0iIzaIPtUkS4E6cLYcdnYRSfdiJA5oE
cJAXfqtHJiG/Z7U/xW0IoGvt91O2n4T6DC8XWL4nwK5f+jMj1SSkABSPJwKl
kOcw73ApgYQMs4XhLW8ZzFac0j9wiYSSr69GE3aVA8mCOSR4noQ2+53VqzxS
Dt0zX1w3cCSkRl5II53C3re7+Z8PqJJQmY/4hKd9OYR7EKuipEjowA9/7daM
cpCVDFX/u0JExbazbU7aFWAf2HqgJ52I7jgt4e+GV4J5/yfN4RQiEuhNjlJJ
qgRdJXdLSiIR4fj/+QrhK0GZIhDBekNEp7SYqoKjlcClYzzPF0REfu909kso
V0E2f3fFhStElB93uN6TVAVriQO2RduIiOs/+cvOBjXwtpQam3BrDLmPV/6w
dakHW58P/iecx1C2j/TTsOB6kD1u4NRxbQwJyFku1iXWQ3F6oTyX2RgamMs2
eNZbDyMx4bX3ABvvrHVm1/0Nh24pLuiKjKG2+hd/J5UawPPoaiLLdxQNvVmL
JAg3QfGoLE+m1AgKjH788hJHG0gL4M6aJg4i1WDVtDu8XfDzSNgtErkP+Su9
TW+s6oPRmh8Sqqo9qOvBfIhX3DBQ5d4qofxOpGQoYbB9JxEE/b+pHtvUjgyj
tr6viySDnCpD7st8E1Jl/Sv/00SFJ1ozbUU+dcgsTU9llzgdRE2zo67srETT
77qvPcNNws+lGv76A8Uo7O12eprINHwZpL6cCMlG3NcKxURGZuCq0d68Qcc3
6Oz1sSFncwZMzy+qe1XHoD85A4XV1gzwe9eK+A7GoAphwyAJewYkDAY3nqG9
RurDYT0trgzIa+yoMWiPRFLbnr3gCGJAzoKbNH0gBP1zaxglfmdAYJdsl1jV
aaTpJIrOrzOgiNu3u9IrBmoUpUfHdOcg6ahoZ47UGwh7enzLNb05CDXMaUto
fQN0lpXJoMEcmL4jN3offgfvCEI+LaZzMCd5ufLIcCx8XjTpSrSdAxn1fTnR
WonwMeITZdxjDn7/uqb143kq/LRPXRF7PwcqpE37gyxz4ONZvl/CQ3NwrNiC
qfAtB3SK7tNXhzH76KzqsZUcENiUFTk2OgfbP2eqJOnlgtcXz2Np5DlYN7Qc
2pjNBc6A9xWSU3MwnJtzGCn+hMSq2ltNK3Pwyd22+nRBHhhl80SviDIhwWZb
9tvRPPjWecc6ZycTYnXy3s9w4qFvfPWj424mRElwu360xINSWOOrur1MCGzD
C/7F3vuc8oLyj6WZYK/Ae41wqgAqOt6nflJggvRcyYpGZRGIp6h3VV1kgl/z
uZAF7DuP+5zvv5uXmNDzvZEve3cxXKnpuMWnx4QXzoPSkh7FsDWkfruxIRPm
Blb1OCVKIPLG4cfV5kwoq1FP7nxMgMmg5hhz7H5tFV+g66aOYGXL6/vHfZmQ
5wPdB50RNBpEzSb7MYHPvO7aaBSCulNZBAF/JlQI9N43piMYJVRajAcyQeSc
r0HCpXJQTZOJDwxlgm/hh4fBq+XQ9v0q3fE1Ey6m9DfrW1aC/MJ9G9YXTM/T
bJea25UgEnmSdigNq8+NJxsnn1RCq3kF3TqdCfSjRxUPZ1fC6QCiFfrOhLDC
wDdbtlYB61UY5/0cJtQ3H7IuzKkCORdhmbeFTLiw7EWX5KyBknjhmpLfTJgd
0A2K3VsDuz/I9FU0MOFdqfgefiXsHHh0x6+2kQm04N+X1m1q4AOi+zY2MyGU
d19Oz88aYAtrvl3dzoRaqWqvcNta6DMKG/DsZ4K2ntCWRXwd6JkpMevGmRBp
v4258rsO5hhlqjF0JvR5sY3+G66D1pZYs6sTTLiVOFvMxVEP9a9BanYSm89o
8NxrXg8lri08m2ex+a+fkM4t1cOH6dGu+Xlsfs9CRbRqA6Q2R1Zv3WDCr8mp
nPe6DcB8fqY4E+P1f6SPCbYNMBsznWzCxoLIQ+0Pv4Y2wI0zrwwTN7Hgl0+W
YnFPAxiFjysf2sqC9T0un4nejZDQIkfm3MaCV9d6AxUKmiB9MmHrdiEWhE6f
AlpTE1i1+folYuz/MPlvPKkJ7jL8+xWEWXAn5vYjTr5mkOzDXzAWYYF+3Zb7
I07NsKXnwY6wHSzgk1e4HiHUAgITaxHle1jAQXh78KxsC1zmF6SfFWPBP501
8p/TLbBq8ftkNcazDrV2jjdbQDHkQEfVXha0vLOx0ihvgd24quH8/Vg+/8L0
6LdbIdAb//K2FKYvfHZ74pNWOFkstn0MY/9dpg0mca2wRox9aySN6VMSv4Cq
W8FRZ0ev4gEWHPplJdHI2wZ6s5yK4wdZwDk+tzvZqQ1idmq6yhxmQZ3+Pl5D
oXYQUZzyZ5Nngcgx4g7Pve3wmlrtZ4SxHe8XiTcy7WAdvbn5M8arjXLKfRrt
YM5rdBOnwAK5i6es7Rzbwb968YeXIguizll/c89rh8c3P4RXHGfBkJT4r+iy
dgiwbD7FpcyCw5vJhLz6dvhyy8xEH+PK8ltty0PtEPdDA9+H8eLpR38C2TvA
IMLqDk2FBVZqcdqvzTuAd86innaCBV93XjX4ZdcBupM37Q+osWB+SeJK960O
MFLzu2ePcQQ+3W13QAcYbv/KOYAxUiqM+ZzWATVjpsI16iw4cLSX+GO5A2Kc
87qenGTBjKSof8eHTqwvLnNnabJAzfezR0VqJ+z+uMt4EOPgrqPOudmd8K+J
C7cNWLDj2fnLkZWdcDneWdgJY83pB3t0JzshUD+3RBSH9VP+QH6Fehcs0woV
b51hgeKlJEZuXxdkaem1jZ1jgdf9/+xf7eiB8meaTAMdzB83g2Au2QP0JltB
L4wLP/3ctV+uBw4/8Tv6AeP1BvW2zDM9YMXOYU/BOFhSBxrceuBI7zDd5yLW
Hy1O+9iremDzFyGxVF2sPrKJ/Y/u9oL4IXZVAT0W6JTZq5x91As7LBfvq2E8
YXLw9banvdD01GLaDmO5gEyd2A+9QGvVjPiJ8c/u4gJ8TS8EC9+os9RnQVlw
79s5sT7wv5dB+WnAgt4hAWOX+j7IcOcrzDBmgW64c9/9jj6Y9b1wexBjgnqx
7ZOhPuBPdAzfbsKCpHeOrklzfbAat8Z1G+MbhvkhA7v6YV68VU3FFOunKusC
/Zv90LP2iDZoxgI3z9zTV+/1w6bDpQtC5iwYkWCvdn3cD/sk+Z7pYlz5OLst
7HU//BEt1yzBOPzEpsnKon7YtavmSIoFC/ZmfN17gnsAZgYzH0VewepzZS1Z
W2QALI5txLVgzMZleNh0/wBY1eCu8FuxgOK0ouKhNABS75PLojHO2n/ZIMNq
ADQU/M0/W2PrG80MEs8YgN9Z7RdHr2L74eGpcc7LgxC0nTQ86cCCI0713bPm
g1AhfHnwoiPWj/qm1d32g6DhMNj3DePQA26fUx4MgvLk8LCbEwsyW+OtIWUQ
uOe7jTacWbBycK3Ve3UQnDpH/1jcxPITeFZ2lX0Ivh7VFK3HOGJNKEtLYAjq
rLdcUb/FAon2Iy+EZIaAu/T+VXFXFpz3s9LKNhoC25XtiStuLIjuKCqkpg+B
sewWqQl3FtiUaqc1/RoC3AZqcPNgwcH09re/yoYgdWN/BRPjwscTnkFdQ3D1
YV7ShidWb9ndR/exDYPcCLfHf15YfgE+n00thsH4PXtYzUMWVP134kUV+wiY
xrgbiIawwFbeNIXJPwK80iivBONlJQ+C+J4RoPXUPnF8ivWXRsas77ERKBML
uF4QyoI3OuImyhYjwFd2JMj9OQtcnDn3fkkfgaDxD0OHX2Hrc/OASufPETA5
Wzg8jvEHtzP6m0pHwPXDwK20KOx8vOcbeLV9BO4pDSr+F82CE8EMiujqCJAl
c3O037KA61NvVuilUei4p25aH8+C5OSF2jyzUfgoeV8sKYEFp74KjpGujYLv
l9LXDz+ywD3rkhDcH4VDSVfeKH5iQX8J8v6TMAoJnDT5/GQWfO9Lgxuzo+Bn
pZ0n/J0FMtsI9FSdMRCZIhTKF7OAVXfsVrLeGFR7E8xPlWD7JfTz1CfjMVD6
E9ynS2CB+dZnsx9sxsBjamfU7TIWPN0wWohyH4OpxNs8DZVY/y2Ob/jFjoGN
4Y0DxEZML0l4pxl9DIavf9J9P4qd559DY41nxkBtn+IXyhgLNOxWdhuyxsBf
yeOIMokFHcMjey+tjwGXPWdZP4UFm/q/SZ0RIEL8g386MIn1ayscO6pGBBG5
mSmvRRbsI7hqs4cRYY8PtrC88yCye3X1zksi+OEey1vzzwOPd1huXzQRDp/6
+3un4Dysy38Ry/xIhAWCPz5OZB4GUkaYxr+IYJ0aV1wuNg/vwo0Sk0aI8Idv
UCLxyDzwWZ/4c1KFBHctmjMzdOeBo7Am84sGCcTWXv2quzwPf0VMHfhxJOCc
892g6c/DdIt7M0mXBOpWWvfkTeah4ez3lOd2JPDRXJekW8/DsyP7DHvDSbAy
p2+1dnse2FY3f/MkkUDSPM4KvZkHO3L/fMA4CWx7ehL2v5+H8qZczZfTJFim
+AoExc1D4CfbrrQlEgi7BLwzSJyHDa3ijSFuMuy/cei6cPo8/HvlYX7hOBke
FSi7qhGwfA+ObdkbQgYXxtQX7vF5sOEv0D/8nAx2Hjwa3RPzQFh+GaeK3TM0
T3KbpUzPg1/jSXmjWDJM5vod0WXNw5r7e6vQTDK0tfl/qvw7D6sl+j/mushA
UnHcYS+6AH+MSm1rDlLA2YkWeP3CAgT35wxr/keBnn4PsVndBeCzT7YpVKDA
rirtsw/1F0DG/ZlVxkkKxH4WOvfRbAFMI43MXxtR4PKeF157nRYgt4Gqd/Ux
BeSkAqtWgxbg5jm+04tdFODhuOBkWLEACw1shDsDGFuZP7tbswCBxvMa9FEK
vFBnfo/5vQCx9n1qg5MUEPj+ZvNU+wLUBiQrV7BRgeJlYd1DWgApgqrcSzkq
yA6oLySzL8Kg8jWxgyFUkDwjtuWYwSK4rKjwP31OBaudryRGTBZhrpRnCzWS
CvuWpEJiLBdh64XiydQ4KsyvScnxOSzCsSuixQdyqMCuscn5nNciBD5utDww
QAVV2qFvuQmLIFN74p20Ag2OvTkhnctYhNwXfC+eqNCgodh6l8DiImgYUB+T
NWhQkn/gt9fqIhj0RTunaNOAWh7jZsy+BD6TM8rS1jR4OfVJ2khsCRr5Ujul
QmmQw6sTf11nCdwtBASlhmgwdOGArHDaEjiky384SKTBefpdz/rMJTBb0Zc+
TKPBqbg90k9+LoFG/EsVhTkaWA1sr+YqWwL2UW4rza3jUNO5Zm3WvQQfXNhT
rOTGgbqil7K09Q9Ue60qx/iNg7uJS/bdG39g9xuK5dZ9dDCqMFuexS2D2hPx
Hfel6NAXNRT/Q2cZzD2tOsmH6BB5wfuFr+EyRBu26VUp0cHTDn/loN0y8PAS
zgbr0MFR46pqe8Ay/HsaI8d2nw4yx6/EvyxfBsqDs2zrDXRo4eAdzb+wAtnW
SWnzPhNw0+VrJ+H2Kij3Sq9y+E/Ac7e6iBbvVSgxTru858kE/JM7ET0esAr1
F7OZuJcTsMT5OEo+ehXIJwgnIz9PgMUrqfKdBauwS6SvVbZhAhRzzu65vHkN
gpv4l6+KTYIG56yJbeIaWJwO0KkvnYTGfo1dyzPrMLRI46+snATJ3T8cKpfX
wSFbv7ekbhKqfze9ebPlL7iJ73fJaZ+EANLFMsPdfyF4U+mTd9RJgOqeF7La
fyG7ZrXMiXcKPlmbKVxJ/Atb9b1VNl2dAr2CO5v6zP/BD9vbUhrrUzD7dDx+
F3EDHPBz+5I2TYOPdt+UIGMDRHju7+bgnIZQ7tuJon83wLvokUCH4DSQxy3E
E3nYcBoiYf9uHpqGPUnsD7ccZsNV/k4eiDPG7DttjjY6sOG6lPuiV9KnYb/p
yZfXBthwy9znthSZzYBL0bDBwYFNOOP2k6r7Ymfhrdv0Pd+lLTjuk9srCB9n
wbiQ7UIm21ZcRerAJZuUWVi3uc9L4d6KU/B5aB+fPQvfqBaBN8S34vjECyJ2
18yCRsBZoxqdrbjfbkpkUdYslNfynGxP2IrDcR2O4rvMgDHtXpkLuuy4ZY/l
PdlGDDgSvCRvY8aOyxms+6JnwQB8u1eEjx07bn+OS0mEAwP8V4su1Xmz49bN
UmncDxkQW+anVprCjitIET/N+ZUBo+JEL94NdtwdXkbd1wwGNNg/k4rj5sDJ
PCgzPv+DAftvOprI7eDAvdG9euMpgQFfv7Lr3zzKgfNkfojZ0smAVEGBv6dt
OHBHrG/tT+ljwK3Wx5IcNzhwxGr1b2dHGKAcXEHqvseBM4ztKwuaYIDp7YM6
EeEcOK7N6RclGQx4YHOf5fmeA4dcH3SVLzDgfPaStn0KB867+/w1u1UGVErW
aFvkcOD+/385qG1dWTAt4cD9D4RNXM8=
       "]]},
     Annotation[#, "Charting`Private`Tag$23907#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, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  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.8414706362241553`}},
  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},
 CellLabel->
  "Out[139]=",ExpressionUUID->"219ca911-1f4d-4f7a-8a86-8f7b6fcef3ae"]
}, 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[140]:=",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[143]:=",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},
 CellLabel->
  "Out[143]=",ExpressionUUID->"76f19608-b315-435f-9c1b-d6a1ffcef41a"]
}, 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[144]:=",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},
 CellLabel->
  "Out[144]=",ExpressionUUID->"6fb5d528-8097-4f0c-9700-0858c6d05aae"]
}, 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[145]:=",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},
 CellLabel->
  "Out[145]=",ExpressionUUID->"ad1aaf9f-1a9c-4dab-972c-e242d1899b16"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"if", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}], "]"}]}], ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Hermite\>\""}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.765855815173862*^9, 3.765855847868487*^9}, 
   3.765855936514638*^9, {3.765856284030735*^9, 3.7658562849653873`*^9}},
 CellLabel->
  "In[146]:=",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[147]:=",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/3xzUYknloUplK6qMMIVTWrSgp8xiSuYEKRYpMSYokGogkFGWs
XONlm8k8z9MdXeN1ryFT+Z7f8/z+Os/r2Xut9V5rr73P2c+RdLhr7LyZjY1t
YRMb2/89j8GOyY0NBlpgIhez5yy4uyIdtrLKQJV/Hwx/9GZB7i9FmflFBqrd
lKU178gCJVk9B9oUA/EMx3ZUa7LghGDIQFMvAxXxT93ZvMgEHJnZEJfDQM72
lojsyATjZ80Zx68xkKdgWrT4pTl40Bpy+3rZLFrYZli77fE0REx59y4UziLd
0jsvj1pPQzLnzTPBv2aRU9P1Q7fVp6EJ9EQ/ps+iD12TabA0BVK5oqUd0bPI
JTIzTcFjClqivvJoXp9FQiUHedTdJkHGuD5DRGAWZXDG7XvvTYeuru2TFfYz
SKORw0BugAJBTviyDJsZRM/77yehnALHFmxj3lrMoD6xqxsOaRQIE/556qbe
DOI/kKLCvE+B08aWrwTUZ5Ac7bSUsCAFvramKl8TmEFL7sEhznpk8Gk4HbBe
No2kduiybeshwkGrcRNa0TSyknGSPY+I0DERJduWN41MCzX/i00ngtw2SnvK
92lkbJP16ZEvEYgXXhy49G4aXVjZdkVNigi6NT2/425PI3d7I/Tq3hjsK78r
cmLvNApR5HSh645Ak5DKfY2d2HjPXNM56RF45LzaeVpoGtVyR1yuWRuGHu6n
MVpc00jCYqulRtYwRJl9EDJemEJNoa2MScFh2DJVLXC7aQpNC578bkkahAnR
PbwpflOoNmdcaC2xH2JvjLp9fTCFeC7lta359sP5ktSmb55TyOUSoVTiSj8k
28lH5N6YQn5jWyZ6hPvBJkNre5npFArGZw2zXvRBK+7utn65KRTWLik0FNAL
eNdqdv7hSVTdcKuBO6Qb1CTuKH7tnUQSfgUaIw7dUNy18+rpjknU5K3DPXCm
G8pPu+a51k2idLUyX122bmjgF3Ks/zGJ+vgfxfIEdMHYr2vlQaHYuN/9i+wh
ncC9vvpoQX4SlW/iatXOaIeXualfw49MojL9t6Nsr9pBwFm/Q+rgJPKeLlgl
eraDaMvnw0Z7JpFbvQTnjpPtIJGk05e1dRLlXdvufa65DVS03qlc759Acguf
Ll5gtoJdhOJcf/AEEjgnmDDf3QSP8qJDmx9PIBwuJbLxWxO8HZrfW+EzgWLD
JTuIj5ugQS7/YvqdCTQ2cbK3XqYJjjdrpHhbTWD+o78/9m0EDj4tc2GlCaTg
msZ7U6EBMl+ZEy4T6Sh9TCvLr64OagsKjHFDdGQTopJGS64D4uiuieO9dJQr
kGQR7l8HOxQGRcWa6aj+Kv+tENU6CGi7dneikI72VjaoK32rBWPBm1KhUXTU
VEssdoyrgeVo3zAEdJR0pX3fldQqGN9bMXleg458Cl+duxNSBT1fOfRalOlo
qMNGo9qpCn4VvxYcPkxHmY5jvEoyVXCHlPZhVZiO1Gi3PQQzK4Gs2JWpQh9H
7qpnXcurKqCjZDd/KWkcVV8+faAjrQLKta95aA2Po1Px1X5SERWQeGVSxaRj
HAVqywb5m1WAZRAbcieMoy7Xxm0SU+XQ0ibXnhE1jppGzOsnJcuBYOV5/Hj4
OJIYG1ft2VYOGZSCt8VPx9ENjU+q62QEYctnrX4/GkeFzJc+7KEIzklcIdOc
xlF5JadmQWsZFN59uiipPo7suMLZbR6WQtpKg8W34+PI0ks+4rNhKbx7IlCs
cGwczY3mFlvLlsK99/H+ID2O+op82I72E+AY+sF5lXcctRXXN5zEESCFb2R3
LJGGdFLZXFulSyDaGjjVh2joxlfJoMHNJRCcnrTQ30NDOPyXNRNSMTicdWwV
a6KhpGyc5PPkYpDypod8yqehuY32i38PFYNQ1UVP3A8aqu/Df3TmLobNAhnX
iBk0VC5z0VZtpghI325rSH/G/HcXHNmbVwTJwyzG13AaMrzptavnfBFEHzEd
vhBKQ4Xm8isv5Iog+AG+gR5IQ2FST43ThYrAQdDnyxFvGrLk5fMWGysESe2/
Vtl2NOSjzY4fCiiEpEzOWrwKDbnv/UR901EAUSs3fpkr0JDAMdyZvLICCDzf
kPTnCKZPVlVNLaMA7MYifNUlMP1ZDZtvPy0AcREhxVJuLN6si+UTzQLgs7+3
35Yd81eyZ6j8aAH8y+ravrFBRe5H5wTt9xXAyIX3NNwiFdXPPEyq/5sPib57
E6pHqUgg8kXK0ap8iKx//Nx5AOPM60KP8PngLzrqzdFNRUn2nXqH0vPBNuez
kU4DFeV+SlJLicwH/fXNMFFNRVwel+56BOeD5kUnuReIitpcdwZ98s6HfWQZ
zqY8Kppb09LeY5cPPAphC245VBRGdgxwMcuHdb8JIu93LF7c/lTBS/kwtCOT
YPCJimSTgkqfnMiHBF1Fz87nVESvJ6a0ieTDge26DW0hVNTXxXs+ijcfMhod
pFoCqGj5bzExiSMfii+/6aj3wux3W2jlreDhLG/WkVp3KrpRWP49fx4PDc01
wVWuVGTYmnRx2ywe+vX/KJXZUxEuQsk9kYwHO36B8BIbKlIoyX8/NoIHeqss
udCCinzumZ/wHMCDe9SZk/nGmP2dHeImPXhYNrSK+aVHRYF2HOJPOvAQKHhv
KleHiuxWcZybW/HA2RF+Lvscpnd8Kq21EQ+R0anxGZqYnrYT7VP1eNhhUjqf
rk5FOhZ2Jua1eEgU7rn0VRnTI5b5j68aDwe7ZlNS5LF657uliFbiIfMN53rS
ESoaQ/8Eb5XjQdlMwjTxIBVF1f/ew4PwQBBVz4yXwOLb4iLXSvFwrsdoa5wY
FcVyj51Sw7jh3S2bdzuweMaKfyoIeDC2eJIXI4jlk1/3MhbjgZ0JPK95MP51
pr0EY/u+PKdITioqrNCJ/g+zp8c2E8I3Y/HNXn8ex9j9Ck3k+V8KGhsdaGWU
YfXYveEWukxBbY2MmXOYvsCBnTVP5ikoMOhLE7kCD1zxCvuCZimoz2noVGsV
Hl5ZX/Tyn6CgsO4Afg4s/x17HZp9KRRkJx8qGobVJ3Ho0cGHoxQ093tO3Ayr
n8zHmMfeAxREX27ccGvBQ/bVzO573RTExSMf2tqOB9X9NUc92rD5+qdC/Lrx
UDoy/PROIwVZbpNsvNePh6Zr/Ko3Kyho15yND46EB1MJ2UgXAgUZxmoHiY7j
YXAMR3MswPTlyO5SnsbDpL3nO9ssChJYfaii9wcPnlLhs9bpFFT/vN32wl88
rJBSzl9JwfScXbJ+sSUfuJy6l0ziKCipgrVzUiAfog7M6hu9oaDlmu2POHbl
w04qR5r+KwrCedxfuiWeDzIuahYXn2IsqPB0u3w+aN+IL9D0wHj13cwXo3xo
ks3jP+VGQTqdMqL/rPLBdKLpuvp1LP7HPbQEp3xwuvVvp/JVCpKlhzVl+eRD
sJu9z+GL2HieY/rO1HwYibRNKD5HQeUjLiYJufmg8cO6/JIm5u+9l71naT6w
Fs247hzH8sVZlAn25YN9gG7sz30UJLdCl94pWACEzxcI53ZRkERt/CsJiQLY
Va011iVEQVrysq8eyhdAGxfI/uHE6u1n5rjboABw0ccLT7LIyO0S9w7u6AJI
yFMYapomo/sTh3qepxTAcs9RNttxMsK5Ftla4AsgV0xWJ3CIjOxIXygD/dh5
9mVvX3UtGbkP/gl9LFMI/wrYl/XiyagtYd5jo7kQrAY27x19S0ZyjCT+M5RC
yF/fwPYkGWklWk82rRbCnTOrz6KfkpGP8nHvStkiGG6Y3dl7l4z8tpnV7A8r
AsJw7wk7LTIypEc4uJoWg++W7w88Z0iIzaIPtUkS4E6cLYcdnYRSfdiJA5oE
cJAXfqtHJiG/Z7U/xW0IoGvt91O2n4T6DC8XWL4nwK5f+jMj1SSkABSPJwKl
kOcw73ApgYQMs4XhLW8ZzFac0j9wiYSSr69GE3aVA8mCOSR4noQ2+53VqzxS
Dt0zX1w3cCSkRl5II53C3re7+Z8PqJJQmY/4hKd9OYR7EKuipEjowA9/7daM
cpCVDFX/u0JExbazbU7aFWAf2HqgJ52I7jgt4e+GV4J5/yfN4RQiEuhNjlJJ
qgRdJXdLSiIR4fj/+QrhK0GZIhDBekNEp7SYqoKjlcClYzzPF0REfu909kso
V0E2f3fFhStElB93uN6TVAVriQO2RduIiOs/+cvOBjXwtpQam3BrDLmPV/6w
dakHW58P/iecx1C2j/TTsOB6kD1u4NRxbQwJyFku1iXWQ3F6oTyX2RgamMs2
eNZbDyMx4bX3ABvvrHVm1/0Nh24pLuiKjKG2+hd/J5UawPPoaiLLdxQNvVmL
JAg3QfGoLE+m1AgKjH788hJHG0gL4M6aJg4i1WDVtDu8XfDzSNgtErkP+Su9
TW+s6oPRmh8Sqqo9qOvBfIhX3DBQ5d4qofxOpGQoYbB9JxEE/b+pHtvUjgyj
tr6viySDnCpD7st8E1Jl/Sv/00SFJ1ozbUU+dcgsTU9llzgdRE2zo67srETT
77qvPcNNws+lGv76A8Uo7O12eprINHwZpL6cCMlG3NcKxURGZuCq0d68Qcc3
6Oz1sSFncwZMzy+qe1XHoD85A4XV1gzwe9eK+A7GoAphwyAJewYkDAY3nqG9
RurDYT0trgzIa+yoMWiPRFLbnr3gCGJAzoKbNH0gBP1zaxglfmdAYJdsl1jV
aaTpJIrOrzOgiNu3u9IrBmoUpUfHdOcg6ahoZ47UGwh7enzLNb05CDXMaUto
fQN0lpXJoMEcmL4jN3offgfvCEI+LaZzMCd5ufLIcCx8XjTpSrSdAxn1fTnR
WonwMeITZdxjDn7/uqb143kq/LRPXRF7PwcqpE37gyxz4ONZvl/CQ3NwrNiC
qfAtB3SK7tNXhzH76KzqsZUcENiUFTk2OgfbP2eqJOnlgtcXz2Np5DlYN7Qc
2pjNBc6A9xWSU3MwnJtzGCn+hMSq2ltNK3Pwyd22+nRBHhhl80SviDIhwWZb
9tvRPPjWecc6ZycTYnXy3s9w4qFvfPWj424mRElwu360xINSWOOrur1MCGzD
C/7F3vuc8oLyj6WZYK/Ae41wqgAqOt6nflJggvRcyYpGZRGIp6h3VV1kgl/z
uZAF7DuP+5zvv5uXmNDzvZEve3cxXKnpuMWnx4QXzoPSkh7FsDWkfruxIRPm
Blb1OCVKIPLG4cfV5kwoq1FP7nxMgMmg5hhz7H5tFV+g66aOYGXL6/vHfZmQ
5wPdB50RNBpEzSb7MYHPvO7aaBSCulNZBAF/JlQI9N43piMYJVRajAcyQeSc
r0HCpXJQTZOJDwxlgm/hh4fBq+XQ9v0q3fE1Ey6m9DfrW1aC/MJ9G9YXTM/T
bJea25UgEnmSdigNq8+NJxsnn1RCq3kF3TqdCfSjRxUPZ1fC6QCiFfrOhLDC
wDdbtlYB61UY5/0cJtQ3H7IuzKkCORdhmbeFTLiw7EWX5KyBknjhmpLfTJgd
0A2K3VsDuz/I9FU0MOFdqfgefiXsHHh0x6+2kQm04N+X1m1q4AOi+zY2MyGU
d19Oz88aYAtrvl3dzoRaqWqvcNta6DMKG/DsZ4K2ntCWRXwd6JkpMevGmRBp
v4258rsO5hhlqjF0JvR5sY3+G66D1pZYs6sTTLiVOFvMxVEP9a9BanYSm89o
8NxrXg8lri08m2ex+a+fkM4t1cOH6dGu+Xlsfs9CRbRqA6Q2R1Zv3WDCr8mp
nPe6DcB8fqY4E+P1f6SPCbYNMBsznWzCxoLIQ+0Pv4Y2wI0zrwwTN7Hgl0+W
YnFPAxiFjysf2sqC9T0un4nejZDQIkfm3MaCV9d6AxUKmiB9MmHrdiEWhE6f
AlpTE1i1+folYuz/MPlvPKkJ7jL8+xWEWXAn5vYjTr5mkOzDXzAWYYF+3Zb7
I07NsKXnwY6wHSzgk1e4HiHUAgITaxHle1jAQXh78KxsC1zmF6SfFWPBP501
8p/TLbBq8ftkNcazDrV2jjdbQDHkQEfVXha0vLOx0ihvgd24quH8/Vg+/8L0
6LdbIdAb//K2FKYvfHZ74pNWOFkstn0MY/9dpg0mca2wRox9aySN6VMSv4Cq
W8FRZ0ev4gEWHPplJdHI2wZ6s5yK4wdZwDk+tzvZqQ1idmq6yhxmQZ3+Pl5D
oXYQUZzyZ5Nngcgx4g7Pve3wmlrtZ4SxHe8XiTcy7WAdvbn5M8arjXLKfRrt
YM5rdBOnwAK5i6es7Rzbwb968YeXIguizll/c89rh8c3P4RXHGfBkJT4r+iy
dgiwbD7FpcyCw5vJhLz6dvhyy8xEH+PK8ltty0PtEPdDA9+H8eLpR38C2TvA
IMLqDk2FBVZqcdqvzTuAd86innaCBV93XjX4ZdcBupM37Q+osWB+SeJK960O
MFLzu2ePcQQ+3W13QAcYbv/KOYAxUiqM+ZzWATVjpsI16iw4cLSX+GO5A2Kc
87qenGTBjKSof8eHTqwvLnNnabJAzfezR0VqJ+z+uMt4EOPgrqPOudmd8K+J
C7cNWLDj2fnLkZWdcDneWdgJY83pB3t0JzshUD+3RBSH9VP+QH6Fehcs0woV
b51hgeKlJEZuXxdkaem1jZ1jgdf9/+xf7eiB8meaTAMdzB83g2Au2QP0JltB
L4wLP/3ctV+uBw4/8Tv6AeP1BvW2zDM9YMXOYU/BOFhSBxrceuBI7zDd5yLW
Hy1O+9iremDzFyGxVF2sPrKJ/Y/u9oL4IXZVAT0W6JTZq5x91As7LBfvq2E8
YXLw9banvdD01GLaDmO5gEyd2A+9QGvVjPiJ8c/u4gJ8TS8EC9+os9RnQVlw
79s5sT7wv5dB+WnAgt4hAWOX+j7IcOcrzDBmgW64c9/9jj6Y9b1wexBjgnqx
7ZOhPuBPdAzfbsKCpHeOrklzfbAat8Z1G+MbhvkhA7v6YV68VU3FFOunKusC
/Zv90LP2iDZoxgI3z9zTV+/1w6bDpQtC5iwYkWCvdn3cD/sk+Z7pYlz5OLst
7HU//BEt1yzBOPzEpsnKon7YtavmSIoFC/ZmfN17gnsAZgYzH0VewepzZS1Z
W2QALI5txLVgzMZleNh0/wBY1eCu8FuxgOK0ouKhNABS75PLojHO2n/ZIMNq
ADQU/M0/W2PrG80MEs8YgN9Z7RdHr2L74eGpcc7LgxC0nTQ86cCCI0713bPm
g1AhfHnwoiPWj/qm1d32g6DhMNj3DePQA26fUx4MgvLk8LCbEwsyW+OtIWUQ
uOe7jTacWbBycK3Ve3UQnDpH/1jcxPITeFZ2lX0Ivh7VFK3HOGJNKEtLYAjq
rLdcUb/FAon2Iy+EZIaAu/T+VXFXFpz3s9LKNhoC25XtiStuLIjuKCqkpg+B
sewWqQl3FtiUaqc1/RoC3AZqcPNgwcH09re/yoYgdWN/BRPjwscTnkFdQ3D1
YV7ShidWb9ndR/exDYPcCLfHf15YfgE+n00thsH4PXtYzUMWVP134kUV+wiY
xrgbiIawwFbeNIXJPwK80iivBONlJQ+C+J4RoPXUPnF8ivWXRsas77ERKBML
uF4QyoI3OuImyhYjwFd2JMj9OQtcnDn3fkkfgaDxD0OHX2Hrc/OASufPETA5
Wzg8jvEHtzP6m0pHwPXDwK20KOx8vOcbeLV9BO4pDSr+F82CE8EMiujqCJAl
c3O037KA61NvVuilUei4p25aH8+C5OSF2jyzUfgoeV8sKYEFp74KjpGujYLv
l9LXDz+ywD3rkhDcH4VDSVfeKH5iQX8J8v6TMAoJnDT5/GQWfO9Lgxuzo+Bn
pZ0n/J0FMtsI9FSdMRCZIhTKF7OAVXfsVrLeGFR7E8xPlWD7JfTz1CfjMVD6
E9ynS2CB+dZnsx9sxsBjamfU7TIWPN0wWohyH4OpxNs8DZVY/y2Ob/jFjoGN
4Y0DxEZML0l4pxl9DIavf9J9P4qd559DY41nxkBtn+IXyhgLNOxWdhuyxsBf
yeOIMokFHcMjey+tjwGXPWdZP4UFm/q/SZ0RIEL8g386MIn1ayscO6pGBBG5
mSmvRRbsI7hqs4cRYY8PtrC88yCye3X1zksi+OEey1vzzwOPd1huXzQRDp/6
+3un4Dysy38Ry/xIhAWCPz5OZB4GUkaYxr+IYJ0aV1wuNg/vwo0Sk0aI8Idv
UCLxyDzwWZ/4c1KFBHctmjMzdOeBo7Am84sGCcTWXv2quzwPf0VMHfhxJOCc
892g6c/DdIt7M0mXBOpWWvfkTeah4ez3lOd2JPDRXJekW8/DsyP7DHvDSbAy
p2+1dnse2FY3f/MkkUDSPM4KvZkHO3L/fMA4CWx7ehL2v5+H8qZczZfTJFim
+AoExc1D4CfbrrQlEgi7BLwzSJyHDa3ijSFuMuy/cei6cPo8/HvlYX7hOBke
FSi7qhGwfA+ObdkbQgYXxtQX7vF5sOEv0D/8nAx2Hjwa3RPzQFh+GaeK3TM0
T3KbpUzPg1/jSXmjWDJM5vod0WXNw5r7e6vQTDK0tfl/qvw7D6sl+j/mushA
UnHcYS+6AH+MSm1rDlLA2YkWeP3CAgT35wxr/keBnn4PsVndBeCzT7YpVKDA
rirtsw/1F0DG/ZlVxkkKxH4WOvfRbAFMI43MXxtR4PKeF157nRYgt4Gqd/Ux
BeSkAqtWgxbg5jm+04tdFODhuOBkWLEACw1shDsDGFuZP7tbswCBxvMa9FEK
vFBnfo/5vQCx9n1qg5MUEPj+ZvNU+wLUBiQrV7BRgeJlYd1DWgApgqrcSzkq
yA6oLySzL8Kg8jWxgyFUkDwjtuWYwSK4rKjwP31OBaudryRGTBZhrpRnCzWS
CvuWpEJiLBdh64XiydQ4KsyvScnxOSzCsSuixQdyqMCuscn5nNciBD5utDww
QAVV2qFvuQmLIFN74p20Ag2OvTkhnctYhNwXfC+eqNCgodh6l8DiImgYUB+T
NWhQkn/gt9fqIhj0RTunaNOAWh7jZsy+BD6TM8rS1jR4OfVJ2khsCRr5Ujul
QmmQw6sTf11nCdwtBASlhmgwdOGArHDaEjiky384SKTBefpdz/rMJTBb0Zc+
TKPBqbg90k9+LoFG/EsVhTkaWA1sr+YqWwL2UW4rza3jUNO5Zm3WvQQfXNhT
rOTGgbqil7K09Q9Ue60qx/iNg7uJS/bdG39g9xuK5dZ9dDCqMFuexS2D2hPx
Hfel6NAXNRT/Q2cZzD2tOsmH6BB5wfuFr+EyRBu26VUp0cHTDn/loN0y8PAS
zgbr0MFR46pqe8Ay/HsaI8d2nw4yx6/EvyxfBsqDs2zrDXRo4eAdzb+wAtnW
SWnzPhNw0+VrJ+H2Kij3Sq9y+E/Ac7e6iBbvVSgxTru858kE/JM7ET0esAr1
F7OZuJcTsMT5OEo+ehXIJwgnIz9PgMUrqfKdBauwS6SvVbZhAhRzzu65vHkN
gpv4l6+KTYIG56yJbeIaWJwO0KkvnYTGfo1dyzPrMLRI46+snATJ3T8cKpfX
wSFbv7ekbhKqfze9ebPlL7iJ73fJaZ+EANLFMsPdfyF4U+mTd9RJgOqeF7La
fyG7ZrXMiXcKPlmbKVxJ/Atb9b1VNl2dAr2CO5v6zP/BD9vbUhrrUzD7dDx+
F3EDHPBz+5I2TYOPdt+UIGMDRHju7+bgnIZQ7tuJon83wLvokUCH4DSQxy3E
E3nYcBoiYf9uHpqGPUnsD7ccZsNV/k4eiDPG7DttjjY6sOG6lPuiV9KnYb/p
yZfXBthwy9znthSZzYBL0bDBwYFNOOP2k6r7Ymfhrdv0Pd+lLTjuk9srCB9n
wbiQ7UIm21ZcRerAJZuUWVi3uc9L4d6KU/B5aB+fPQvfqBaBN8S34vjECyJ2
18yCRsBZoxqdrbjfbkpkUdYslNfynGxP2IrDcR2O4rvMgDHtXpkLuuy4ZY/l
PdlGDDgSvCRvY8aOyxms+6JnwQB8u1eEjx07bn+OS0mEAwP8V4su1Xmz49bN
UmncDxkQW+anVprCjitIET/N+ZUBo+JEL94NdtwdXkbd1wwGNNg/k4rj5sDJ
PCgzPv+DAftvOprI7eDAvdG9euMpgQFfv7Lr3zzKgfNkfojZ0smAVEGBv6dt
OHBHrG/tT+ljwK3Wx5IcNzhwxGr1b2dHGKAcXEHqvseBM4ztKwuaYIDp7YM6
EeEcOK7N6RclGQx4YHOf5fmeA4dcH3SVLzDgfPaStn0KB867+/w1u1UGVErW
aFvkcOD+/385qG1dWTAt4cD9D4RNXM8=
       "]]},
     Annotation[#, "Charting`Private`Tag$23962#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2nk0lN//AHCVpSRLpYiyhI9kq5TdeyohISRr1khFiEgIkVJJot0Sociu
sdO1J5F9m7GMWRjbDINCxe/5nvP7Z+a8zjPPfe773vd9vx/nkHDxNnfbzMbG
Jo19/O9bEfZMb2wwUavTxo2Lj1jgvXowenWNiSrNEeNMIAsKvxyRWVzGrifG
RuLcWXBU1thlYoaJ9gWqkS6cYYGqwH1C2wATcWs2Sy9uYgGOstD6toCJUn4p
kwXuLoD5w/acY45MlJoVfLA2aB5ud9y/4f6VgbiVzRuQzBzEzAQMLJUz0PdR
HZ+dXHPwgevayYgvDETYM+AfPDkLbWAsmJzFQHr69X5xWbMgWShY0x3PQElZ
Ma+bDs/Cz7iPPDruDPTVTd3d6sQMyJi35OzmZ6C4Z0evzdtNQW/v9uk65zmU
/TNtW/EkDe65lnzNuTSHFgrad8h10EBxySHhpdUcImRIn8WX0iB6V7HWNeM5
1LDuZr4RRQNtc+tn/OpzyHXyrpy3NA0+dmSoOPLPIT+l0h9F7lQIbNUO+/t1
FqWXZX5KWyXD/lrv3aqis+jAs2s+kuYkaNt5/JbG3lnEqc7R465DgiC3tR7t
nbNogsvgRY0cCfq5oxJ0t84iVZ1J8XdbSBB38d1O86UZdN5p5w8FzzHYMtPI
f6NtBl2JjL56QmsUpgT37UgPmUG1CBk7LhHhzdUxz4+3Z5BoYov3fCcR9Koy
2rJ9Z1CZjcuRtDwifHBSiim8OoMYPXHezu5EuJSju/2rxQyK29w7YjdMgA6c
97Yh+RkUdKepSLltCEo8Gjn4RqZRk+VEiUjDAKiJex35ODCNgg6JO1JTB6Cy
d6+9dvc0Cl46M9cZOgC12h54j2/TyFHu62NBzQFo5dt5uaVoGukK6jw5V9IP
pC+OtfceTKMbE5eznQr7gPvvWtCS0jQK8Hj4fKy2B54WZnx8IjeN5AdX6nnT
e4DfzaRbUnoakRYTPZ2iekDwZ9ohs33TSJQ5tnbdsAfEUw0G89inUcuSZqNI
fzcc13113H1oCkVryguQF7vAKebI/FDEFFLLVfhRZNAJQfj4B+13p5BFvs/B
n8qd8HJ4UbQucAppjV/X5RLuhFb50rNZXlOoNXwm4H1PBxxr10gPsJ1Cptd/
L/kIdwAnr67lrqNTaG3Tr5P1Be2Q+8yy2micjsRbS68ncf6A5rIyc9wwHWm0
XnWhjLTC+JjQ1LEBOuJOev3OuaQV9igTBUXa6ag4wjhii1srhHU6ek+V05HF
up4ssfk7mAtck3wQR0etqO/19xctsBIfHI2AjkgLj00lbJphUrRuWk+Djqim
/HxWKs3Q/5HT+KcKdt3F83crXzN8qXwuMHKIjr6lmE96fmsCL/Knd2u76KjS
+27BK/UmoBzpzT1On0SSuBCdG4caobtKmK+GPImGi6xjgrY2Qu0Zx5u6I5MI
3/3lceNkA6TYTB+/0D2JBsTjNHg/NYD1PTbkUz2JNtEfdPvLNsDPTvmunLhJ
dGo2CXfvRD1U2/oeO/YEG/+YabSJcD3kUMteVkZNIlNpOS6rv3UQvXLK9nvQ
JLrP/feccEMdnBa3oUy4TqLyrhp7pwt1UO4dtSyhPokM90+tU0JrIZ13VPjN
+ARKWao4pbb5K8TbAZf68ASat024IjBQAxFZqUtD/RNoJWlls1VuDbicutwh
0jaBOhxHWDLWNSAZQL//vnQCmcWbtPfiq+HDCIv58ckEalFrcjgZUQXxchYj
+g8mUFagrli7fRVE3C5ppYdj452Si61XrwIXgcBMuYAJFCGZ2jjFqgSJM/9s
850mED/yK5a6XgmpuVzNJccnkOXfgkhpzwqIW736xVJ5AllsCtdRNamAcL3W
1N9yE8gfno8UKFeAEykmWF18AvXuZAj2/SoHsd07j9RwT6CKbx1Ppx+WA6+z
3wEHjgn0Sp8erXijHNbzerdvbNDQipXSlkHzchjVfz2BW6ah2T5UbytWDinB
okmNYzRkvSIbs6+mDGJb7j5yI9DQ5vyllKjMMggVHAvg7KOhR+eGf1jEloFD
QZqZQSsNDU/51x1wLoP9FBmuNjwNWbkJaFzaXgZJhkd8ex7RUB9t1NzStxSk
thu2dt6noRuH+J7ucSmFnB8ukj/DaGhDA/kfNi+FSqMX3S3+NPTuUlmd+bFS
GDL5ffSrMw1tyv5inLBaAk58/E+qLtHQuEcsx/JMCdA7ZCnlVjRUIb3P8PNo
CayY2iZ8Maah2p32dN6mEthzoWYxS52G4sa1IqtflkDKrv5zH1VoKMTj3OfS
xyUg3ctIT1eiISNBLa0t4SWgclHcIkWahpTth/kSPEqgWlA9N1GchsLPCG3r
dy6B0/1m7G9FaEiNbDJ83boEzK0i8QkCNHSpvTHskV4JEPYm8TznoSH2K3Fc
u3RKwHkQ7xrLRUMx+t6Dc8dLwMdmYvejf1TUcies8ZUMNl/hDc8HK1RUvlv7
tatYCYQT9jZFLlIR+1MZyUihEnhmd9Y/dIqKVD6/7CjajsUj6tIeTKUi67ef
sus4sHiGg6TvjFGRxdq/zxJsJSCTnHA3gEBFRiyHgq41POTb5/b59VHRpY9x
8V3LeDhxoEnhZicVpWraKEss4KFmdCTK6wcVaQ2EutbO4qHNke/EtToqmi9Z
XZ+l4sFCXDb2SjUVGZwmigaN44FIwk1cLqMiH4+jOMtRPLik2eg4F1NRzIUm
3XtEPEw7+75yyMPiEbfl/DOIB1/JJwy7LCriXyl1aujHwyo5Xc8mHbu+nqZE
6MVDeHp1imUKFTXajJtADx62uvb9uvCWilwVNd+xuvAQJ8UwMXtBRblp/nOL
nXjYS+P8ZPKMimoHLaVOY07JFNs49xgbbyVjH6kDDzJX1KzORlERXkYmtxVz
voxZgV44FQ0+TMVvxn5/YvIal24wFemeJPBFY/76KcLxZAA2v8C3b22x5525
mlimc5OKnMwyFIK6sfWQxfNpeWLry6r9NIHNz2KqzV3dHduf8BLK+z48DGfT
0AkXKkoSM6jJHMCD6/X1vSr2VCT7S4d/ZQgPs3J7fY5YU1GvrFP5q2E8+M0o
tSheoKLq4ZvP743hYS3HQFzehIrYVDVul5PxEOHpHHjoLBbfpbAzmhN4GI11
SKo8jT3f6Pt9x2k8aBTZ1Z7ToaJbd/Jyhxl4eNVjTR1Ww+IN+hNbvIgH1vLF
rV7HqKhwIuIfaQUPJkIX5DcUqGj2wq5W93U8fNYwNY2TxeZvE9Ksx47lZ5jh
m+L9VLQ1as8rHgEs39P0q08LUZHo0ATP4t4SEGrUJfXuxPJJ7OeaMpafnVtB
9jcXFV0dFossViwBXPyxck0WBVk/v6/2zawEkvDKw22zFBTCqLV1tcPyu1+B
zWGSgq1fXISVWwkUisgahA9TkI+BnBwElYBYpuhgYzMFGXz89YM3qwSCvgn/
vVhHQUJF93dY4Uugf2qP+GQVBcnvPUhZrC2BWEWBq9uKKOjW+Y7ncsQSWC/j
WDFOpKD79LfMB7tKwZawWXTsJQXFnHFs9JIshdK/G+AThz2vuKgq+0gpeJ1c
exgfRUE8e7RshMxKYaSVsXfAm4KyQhJP9SSUgtrcjObV69h4nXcPnM8shRd8
U46rrhTURr+WI1pWCkYWlE8ithRErU0WyyWWQvXIgKqTLhbfQ1nX17JlIMTW
Z7egQ0EvAnZUJWqVwS3J7rAIdQrqHQ00mzctA3n3tm8ZihQUd0vi/qMgrD7O
11pNCWHxKXgtBnSVQfCWz7d958ioN/7tM8HYcvB668DpRCcjT3KQn31mObgo
7XppTCEjkuqBZnp1ORjahRTLDpFR57S1xPfZchD6YjI32khGTopOCbnnKwDv
suhyLomMlPc2Ro5IVELWyqcFtddkxPNJttRQuxISYy+Fy8STUfkervUV60qI
qGxK3hRNRvNPxlSFnleC2c43g2V+ZIR7Uqtqz14FjDotE6lzZJTRYvqA9KsK
yFYLwwJ6ZNSmWuprvKca+uYyPTZw2HhOxiKrx6uhWpjvEeEEGan1f+XmCaiG
JzfHG+Iksfnt8NETXa0GWYkH6v9Wx1H4a+HzTdxfwTm8Q6o/axxxa/w1fKtQ
C5ZD73VG0sdRxmePHDyuFgyP+lhTU8YR428yc+ZCLahQ+WNYL8ZRRFLwcF5Q
LWw1MF/kvTeOjkresL77vRby+frq9G3GUci+ajtNzzr4k0JwqNg2jmwtUjPK
murhZQ3tTdJ1EpJNOkHtamwCh8B3oapuJPTAFBf7kNQEssfOu3Y7klBs5Wyf
9d8mqMwqV9p6kYRC+aooxtj70mjCk2Y/ICEhu+3hYZnN8N/1I0uGu0lIx9Od
NRvzDXwV1lJYwWNIks/f39z7O1SOyfLkSo6iJNGDhRfvtsNBftwpixQiWj58
w7p9pRuK5aKvkymDSKl99/Nk/kEYayoSP3GiHyl/vzg1cXUEaPIvj6LSHjRJ
jCkQniGBQGj2CcVNXUgPosVWpCggf4Ipn7nYhsKfqC5Ea9AgUneusyLwG2rk
mr9YETAJghb5cTZ765EP/6MXb99NQfGvJr4WqUp01TsEjB/MQCaR9nTqfj6y
vsN2LiV0Dgghe94nH8tH0V65bGVRc8B7QL/QjJyHJvbPp7fHzEGAU1Z3BeSh
hZU3uUvv5kCPdn3v47UcFFRLf32obA7oDGaqnE82Ov/6pIsCcw7kNq998bDL
QOV+pIPP7RngkC7XJMadgUqsTlq4ujIgXteuv6c8HZEu82gf92DA2oPqFc09
6SjslOaRzkAG/Ngeps3TlYbE1G/5TycwYFBua6zN0xQ0umP3av53BtibieKJ
l18gHrdd5zyPMWF2cVndvzEBubltfdCtzoSQVx2IVzoBeXpy2J/AMSGJGPHj
5MRzRP2vd/CXERPwP7qbznfFIq4Hs0TbK0woWPI8SCfcR888DIvy3jDhp7q4
kkhSJGruGJqfTWECI7RHw8Q+AkmkXv5yKJMJ1jtvZVxFYejDgYNViUVMuKDJ
u3nTd3/k2Hgn27mVCfFNt4Tdz/khgyr2vphOJnSeJyq3t/sgfrMtt0v6mZDY
YoqOZrqjZNZeoQ0yE4RG9jPWs10Q/zme3eJTTDhM6VN/ZW+HaonK4TpMJsjw
+LxWdDdD7D+WbG2XmRDeK9sr0qCNVODbB78/TJDnG7nOoSAFbZkPve6yzUP/
QsR7/hUD6EpoEvXcPA/z5/9jeftagr7s5ns27PMQnKDX6qHiBMz6ycQznPPQ
IP7oYTK/L7yccFed2jEP7u5yV0rXI8CLxyNwUXQeKriD++r9E8BDWOSHkMY8
pCoI9hRIvoA3zeK2XFrz8MC0oDOp4wV8WBa9u6Q9DxavKD8CDr0C6rJDROtJ
7PkSRvVyI29gr35vmtvZeZBR318Qr5sC/3kSWNbW8/D9i6Nu0aMMsK3l7FT3
n4fj5E0H7lkXwJkYb57dOfOgWGm1oJxdAL65szPxudj98XmNpNUCqFwrruHP
n4ftabnHU40LIRE3qrGtaB7+mloPbzAKIdyQo2CudB5GCgsOoSPFwHZAVziq
fh7e+zg0apfhQfnfWitrcB4OzletatRXAOHKhsn85gUIaT99f2muAlofFm43
Yl+A/s8/ePOFK2H/9GP0kWMBHrsRD0rcrISoQuC32boA84Q1Yy7xKri6qOdV
tGMBvjapf+i5Ww07WyvGjwgtgG1imaGnOoLHYUntt+UX4Gz6ULuJdT3kKeGX
DMyx+6PyrzTdqAey2LC064UF7O/xyA3NyHqQYa08DbVYALqCwpFD+fVQIODG
WWS5ANHl4S+2sDeAD695AY/dArS0/2dXXtAAajF9ie8vL4D+ij9dgqsJjnCo
FqvfWoAzxju3LJd8g2Pnua7fSFiAZ44D4cplbbDvIKck+rYA30z27zDd2QX/
7Zj9GbK2ALsVx/f4inYB4/Fo9tE/C+C0I1P8hUwX5H83sKdjXvshrzKo0QVP
ks1ML/xbAPmzWnZOl7ugVKYz6D82FsSdtsv2wXdBx/ql0O8cLLBVe3vmuWU3
bGp+LbPKz4KPe+3Pf3HqBqW2AY8cARYs/hK36bveDU2KK+/td7IgpiTLUzis
G16Kfhqo28UCdLQ8Ie1TN3yXtHnzaA8LpBQGxouwOhoiPP1njygL5iQEQ7vf
9cCmwrSjiv+xQC047WZdRg8kUl2UhzFH9Cq4Feb3gB9d5dhjWRbseahnFFvf
A3WT+YYTh1igM3t7n+F0D4g+9utJkWfBs1JCaZ16L2yN5iAJHGUBgc/9c+Hp
XnAZ+ne3FrPUtcXk98a9ECfx8rD3MRaUi/BE3XXuBRNx3fI2FRaQwrUvqD/q
hVdJop+jVVlw5Fwqs3CwF15X3o1k12ZBSIY85T25F4Q/PLuOx9z8r7w/drYX
OLJ+erjqYOtV2FXjydYHW97eRo3AgoxtDkV23H3AdfbYLn8cCxgu0xmGu/vg
UhqKlD6JxSe4JUZWtg+IvXM1D06xoM3rWdjeo32wcms8WvU0Fm+LiB+nVh8Y
6p/1o2N2ksi6snymD4wUf959q8uCz0EqttTzfXCbRzjb8AwLlnpqjXts+iC1
OCs5GLOOgvHJ+st98CQmX1sAc/SDIZWiG33QIf908yfs/p4xN9nU231wPcuB
oYX5gDpL5Nm9PrDbrb2lB3ve1fhQvtAn2HhRp05fw/xX9/Uvu/d9INMmZ/wK
m6/U55bGvd/6YE3lXAMLi8//1mHnZ3v6oak3ma8MW5893MxqS4l++OPtcNAA
c/n7YqED8v1gq1TzfEgLG69VvTP3ZD8MbNn16J8mth4SBtDq2Q/ZrmYKhhos
iP3pup+joR9SeDIyV06wQNlV9k5bez8446Iz4zB3rc70Jgz2g4P25sOHMO+W
9ouRZPTD2RD/LrvjLHgXfO8PCA9Ag9fjgW/Yfn+UTRkK8h4AFYVViRplFhh8
dT5+KmgAEgyDaxwwT12Qfr4tagC0+h9v24RZPizX4M27Afgiwf9VX4kFxX2V
ZSVNAyAwTaWMKLDga8TAy3mRQQjQPxWidBjbH6HEhTKZQQh/P+wyIseCTfkO
xmFHBoHG/VcqBrPuEI2dV38QODmi9Wax/G1VWvI77DsIkZMchmVYfg8M85tf
aRkEC0+p3CAZFhg+cRu81T0IpUwxdi3M1eqVDpHDg9B/0Q+3Ls2C1FeXPVLn
BwF/lugVhfmqael9gtAQdJ6rH0uRwvJ/nXv7lOQQrDk9e+2O2SjP8flv+SH4
YvXfmSOYj3BvS9l9cgi0r918/O0gC9Ya7MpMrg1B/JvwtQ1JFnj6Fmrb+w2B
8Imy5E7Mo+IcjR53h2Az/rDBB8z1d/M7o58PgVvnwyoDzE9UN03XVwyBMZeY
zQcJFqzTLvp0NQxBy0Erv2DMPi8+/xprH4JAMdzHi5gtFi5s+Tc+BKRjow47
MIvmfBRV5SYA3sje+rE4tv82fz6c2U2AilFFf0/MbFtND1kcIECziVT1ecxU
19XjN48SwMlApUsYs+Uuk+owLQKkP89JZ8PcUvfhVKweASzV2LLpYizIO2B0
PseWAMH7/1hUYxZvT+2rcCVAqsj6xifM8cHLdi1emH+9nniBmV3OkNwfSICL
vL+5IzEHDKZcpUUQ4G39WW9fzPQHi4zFGALo+30VvIzZ9riB/+bXBFAPj2S7
iLmNkvSHP40Ahme/HTHArBO/cE8shwAXFMtztDAX4vS2KpYQQOnZfZ+jmCWZ
72K1EAHKf9hGHML8Ipm5+9x3ArSevkaRwMxppJto00MAbavRlyKYA9feSFwd
IcCcGz1xD+bprLlPAZPY+nWU/N6J+ZLVKcWoBQJ4Lt3K4cfcwfEan/CHAMxj
FhV8mE/hZzQ+cBBBiHHv4P+u411wdYV8RKiPkJ8VwCwj8FIfCROh2SxCUBDz
GzTV3n6QCBuVRWnCmLm9dCyGFYigf2AqXgxziGgCYVqVCHeIljMymBmtk06r
J4ngbX4oTwmz0x2tSS4jImyhxBLUMcu5tvQxLInwskE5XA/zoolFY58zEXRl
vfotxP6X76Tiak8iiFznJblifiDlmZZ+mwhS5MH3AZhN+VaePY4ggvvUC6HH
mIXXIkNvPiXC/OA24/eYczsS7SCdCH96NZd+/m//Kv8zlMknwvOEh55TmCHz
i9qOCiK8SMnO4cDypTvohyDxJxG4158+Oo05yc2KvX4I+z37mIIb5iumFFYW
lQh5VQczojGvSv/pCFgjws/3mQJ9mOv5H3615xiGidCbvOuYY/7szNPlH4Yq
XxO6LJbf4l1yj3fKDEPzX2ud+5inq0oDV5WHge+MYC0e85ePp9xJmsOgzckm
N4lZL8RWN99sGG5ahdaZYeeL333i6MtLw/DkberSI8xDZr4SIe7DUFzOK9L4
v/P63+P1s3eH4TxrxkgHO8/x3RXltKxhGOULjDfEzvulmjOf2r4MQ+Dv5rx4
zNJZXS+/fB0Gn/tJ3cOYy+9O+d7rHYZk1srp21g9GZUVVtjPNgLbR3R3NWH1
J2tXpgj79hHIzH3Vsh/rzzfXlblnBEdgdio7ORAze6/BZPnhEfgkcLRYBatn
cmGBaRZWIzDf/aq7Gat3S9fY4zRdRmBbe12PMlYPayziQiVvjMCBf3TuZMym
cll28xEj4Hb5rEwIVk8D+gYEY/JHIIpD3PEiVm8bDqs+buAYhbroeP2AIyxw
ULJIX+AbBefne3z+YF45erNabN8o2DWV5EZg/V5eI4cRrDgK8g7mHq+x+v/C
QOyCitUoLO2z1yZg/eGKG5doZtYoRK+HKn3D+g3bNanjPcWjIK5+NNsL60fv
PE+abKoZBVPbY3ZCWL/66Rccbt81CoYbh2/6Yv1MNYJJFVwbBYvE8xknsf63
9f1A3oNzYyBvIyNposeCDx+WmvEXx+DjHRXlffos0PooQCI7jsGKZsM7Omaf
vHM74dYYzFt4x8acxfazCgX8ThoD+ntbpQUjrL8PfoKrjDG4NHDaXMkCO4/b
qukZBiT4XhbPinVlAeub4vUPxiQozpC2y3TD+tGDtJn35iQQe2Zk8vUKVg/Z
HzLeXSIBt//I8O+rLIjaMFuK8yFBnXJN/6MbWP1cntwIeUOCb42bRA7fxuoR
3vZeUDIJQq9ly3sEYufZr31z4AcS/LixaSbvDtZfF4o5/HJJUJR3NkAzhAWn
Z+9uv1ZLgjOls5tv38PiJe/ae5FOgg/63N03Y1jglfbgjfkcCWybsF18ygIN
p1VhUxYJatiHbYyeYedtZFT03F8ScI67Sx+Nx/rlULbkSf5xOFs18UPsDVYv
OkBRQW0cPlzgVYnKYMH+ao8zHNHjsOuvt/1DhM1HeG3N6+k4GIwEigfWsYAn
ILpwMH4cBH/h73k2YO8XSpkiucnjcIuRdcjpG9YP00cXzL+MgxEh386vgwWv
npilpI5i11Oys8+RWMBrp/pb8zgZJIZ2rvazLwJneVNupgYZnBW4W3Bci/Bv
t4ULH44MGhVnYvK3LcLsT592siEZKl97bLzkXYTWU5/THzmRgXE+bfiF0CI8
lNtvOvCEDFp5h3stFBaBbW1zti+ZDNMitxrmbRbBiTK0GDZJhoxMvH3upUWo
bSvUeTpLBsKeU6UejovYe4RD76dfZGAvF81Zdl2EDd3KjWFuCpxRqh0/4bMI
689uWuofo8CdOnVfn4eL8FeatEX0PgV2LDUldpQvwiW+MpNDjygQ49NgwFW9
CNUrT9+eiKVA257+tVNoEUJ+aCqZvaHAKH3X7eamRfjj89r2QS4FTo6Qdqx3
L8JalUnRfC8FWP3qGUcYi/DbrMahSZoKPk9LmRX/LUHEUMGIzmEqqEX+rm8+
vAS8zh8ulStT4TON+8Og0hLI+Dy0zdGkgqXTTOx2tSWwiDWzfG5GBQtNV998
gyUobKUZ29+lgvXfmv7p60tw7TSv9nIvFWqNL343+7IES61s1V4EKrBvCDzh
KF+CcPNFDfoYFQwT8cVfq5fgjfOgGnGaCpnsDJ2TzUvQHPZBpY6NBmLZm989
HFoCyeoT8k/lafAqT7NLZNMyEFUcRaTv0+CHvvKKv8UyXFk9zhf1iAZer1ry
6m2WYb6GZwstlgYWc5KM3Y7LwK5fOZ3xlgbTl5uEW68tg6KNYKVUAQ1MdK3c
b4ctQ/jdH9ZSBBqsmNkrk3KWQaZZ9dVB5QkoSLsi9m/rL/Cx4heQHJ6At0K8
yau9v8AlS+md9PgE3Lxn7nOW+AsurpocPDQxARWOdp9Txn+BRuLT48rzE3Ax
w8nOhvELOMa4bXXYJ2Gfa+Mc39bf8O4KR7qt/CRk+Jwtj9T6DY3+ayoJIZOw
cIGP62X2bxB+QbVm308H4+XStIEXK9i+iO25JUkHrymStnryClj62vZQ/qOD
6uXC/rTMFYg37TRuOEqHh8/0tkWXrgDPjupTEQZ0eOIcirIGV2A9KkGe7RYd
zFLihrQPrAL19im2v610KNxN42vNX4V8u9RPi4FTsFYfRGafWAOVgYNrnKFT
4OtWHPmUuQZV5p+M9kVOgU/+vT7R1TVoOZu/gHs6BbX8pITzPH+AolqtGZs2
BTjx65Ucx/6A0O7BDtnWKRgvPZhZir26R7TxrdiLTMM+qYIMDam/YKUdZtBS
Mw2F2zToBqH/oMjhhqTG3xko9nrjuKTFhlvhPr2l4uIcDHy/eXqv2GaceZfm
if1vGCBZMuNkLc2O49bcXledzAAhLz7LDUV2XF0G4dyldAaEqwq05qix45QD
7zgn5jPgRmuLiqARO45XrCxGuIkBhNfVIOfHjvvueZQiyGKAG/elew717Djc
1kNxvEZMcBbOcFpz5cCt3FzZl2/GhEh2bhkLbw5cAfFbprEVE9gCRBO/3OHA
HSi4UhXjwoTeSqd3kbEcuL8XMya47zBhi5+I0NVyDlxZupg210cmjPSvu+nu
4MR57WB++5jDBA6XYyOrezlxMre/musVMSEiP1i0RJIT98LQ/mpUNRMUbZ1X
tdQ4cb4L7xK29DAhOv24VfxlTpyc3fUD6YNMuEWqVg/w4sSNN6pnnxplglzI
k3nHO5w40zeDX+9NMaEmRWhc9xknbuvmrLMSTCas8lD3495x4pDH7d7aJSZU
Z/EfP5nJiQvo03N0WmNCBU1K1qCQE/f//z8CqaqfViyqOHH/B1dLxGs=
       "]]},
     Annotation[#, "Charting`Private`Tag$23962#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, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  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.841470663645808}},
  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},
 CellLabel->
  "Out[147]=",ExpressionUUID->"877bda81-9fd6-4b04-beaa-4ab803268c99"]
}, 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[148]:=",ExpressionUUID->"34e780c9-ca23-4c84-acac-eeacebc25ef4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.1585290151921037`", ",", "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},
 CellLabel->
  "Out[148]=",ExpressionUUID->"0c9cc895-4732-488f-b04a-da3428dfd9f6"],

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.7658567184214773`*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"6e7f6302-30b2-4149-9c26-e0f1b4193deb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "6.79819500893485`"}], ",", 
   RowBox[{"-", "0.32366951208706585`"}], ",", "2.054692982722145`", ",", 
   "1.2218161078719625`", ",", "0.27889783319922234`", ",", 
   "1.8985527101351563`", ",", "7.868471657731817`"}], "}"}]], "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.7658567184238567`*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"6304361f-c15b-49a7-ae32-ffd4e2bed501"],

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.765856718426241*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"00d9de89-cb3b-4110-a30c-ad8e72e0ae7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 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}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"bbaddba2-2c3d-4b91-be02-dab58269c3f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "25.56782099360121`", ",", "13.279331987485493`", ",", 
   "0.9908429813697741`", ",", 
   RowBox[{"-", "3.3333333333333344`"}], ",", "0.3424903519635598`", ",", 
   "12.054001345847839`", ",", "23.76551233973212`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765856218623899*^9, 3.765856256974984*^9, 3.765856447357559*^9, {
   3.76585652382286*^9, 3.765856544307849*^9}, 3.7658567184998093`*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"10da864a-5833-40b8-832d-603550a483da"],

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.76585671850212*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"6440d95e-3b2e-4610-9203-89f02a299bb8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"0006c090-a3c3-4b22-b14c-4893c643794d"],

Cell[CellGroupData[{

Cell["Hermite or something like it", "Section",
 CellChangeTimes->{{3.765855226065357*^9, 3.76585522763118*^9}, {
  3.765856940325663*^9, 
  3.7658569464897537`*^9}},ExpressionUUID->"103ac60b-5178-464a-88ef-\
d7c893dae84d"],

Cell["Let us add the derivatives at points.", "Text",
 CellChangeTimes->{{3.765857588898573*^9, 
  3.7658576026907673`*^9}},ExpressionUUID->"7daab5b6-b7f0-4303-9e2d-\
09694c61bef0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"if", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{
     RowBox[{"N", "@", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "#1", "}"}], ",", "#2", ",", "#3"}], "}"}], "&"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "dy"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Hermite\>\""}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.76585711499597*^9, 3.7658571630572357`*^9}, {
  3.76585719709907*^9, 3.765857197764058*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"79e07b66-c316-42e4-97cd-430b2c5f58ca"],

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[173]:=",ExpressionUUID->"d6e80600-5c34-47a4-8029-8c4f96025fa9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.1585290151921037`", ",", "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.765857188428409*^9, 3.765857202940448*^9}},
 CellLabel->
  "Out[173]=",ExpressionUUID->"eb7392d2-2a4c-4f57-957f-27ea7cc452f2"],

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.765857188428409*^9, 3.765857202943057*^9}},
 CellLabel->
  "Out[174]=",ExpressionUUID->"c00bc3fd-5444-4d55-963f-d7ea353c3d62"],

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.765857188428409*^9, 3.765857202945183*^9}},
 CellLabel->
  "Out[175]=",ExpressionUUID->"fd1bde70-d289-459c-bc48-88deb635bca2"],

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.765857188428409*^9, 3.765857202947215*^9}},
 CellLabel->
  "Out[176]=",ExpressionUUID->"b7953c29-2502-4aca-8f90-ecb5394a7bd6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 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}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"af782cee-ec2d-4530-b3c5-78b9bceb72ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"32.181845912114575`", ",", "11.958330484004932`", ",", 
   RowBox[{"-", "0.33531548500170505`"}], ",", 
   RowBox[{"-", "4.665438615770463`"}], ",", 
   RowBox[{"-", "0.9956969378820308`"}], ",", "10.710266401771559`", ",", 
   "30.484820754552086`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.765856218623899*^9, 3.765856256974984*^9, 3.765856447357559*^9, {
   3.76585652382286*^9, 3.765856544307849*^9}, 3.7658567184998093`*^9, {
   3.7658571885797243`*^9, 3.765857203074613*^9}},
 CellLabel->
  "Out[177]=",ExpressionUUID->"ed0f53e1-a70b-4119-8b34-ef55e61feb1f"],

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.7658571885797243`*^9, 3.765857203076651*^9}},
 CellLabel->
  "Out[178]=",ExpressionUUID->"a141cb6d-750c-4880-8f9b-f90c6ef51799"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["Spline or something like it", "Subsection",
 CellChangeTimes->{{3.765855977946375*^9, 3.765855979378017*^9}, {
  3.765856952827845*^9, 
  3.7658569609328213`*^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\>\""}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.765855815173862*^9, 3.765855847868487*^9}, 
   3.765855936514638*^9, {3.765856049602077*^9, 3.765856053880406*^9}, {
   3.7658565866105022`*^9, 3.765856587381401*^9}},
 CellLabel->
  "In[154]:=",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[155]:=",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/3xzUYknloUplK6qMMIVTWrSgp8xiSuYEKRYpMSYokGogkFGWs
XONlm8k8z9MdXeN1ryFT+Z7f8/z+Os/r2Xut9V5rr73P2c+RdLhr7LyZjY1t
YRMb2/89j8GOyY0NBlpgIhez5yy4uyIdtrLKQJV/Hwx/9GZB7i9FmflFBqrd
lKU178gCJVk9B9oUA/EMx3ZUa7LghGDIQFMvAxXxT93ZvMgEHJnZEJfDQM72
lojsyATjZ80Zx68xkKdgWrT4pTl40Bpy+3rZLFrYZli77fE0REx59y4UziLd
0jsvj1pPQzLnzTPBv2aRU9P1Q7fVp6EJ9EQ/ps+iD12TabA0BVK5oqUd0bPI
JTIzTcFjClqivvJoXp9FQiUHedTdJkHGuD5DRGAWZXDG7XvvTYeuru2TFfYz
SKORw0BugAJBTviyDJsZRM/77yehnALHFmxj3lrMoD6xqxsOaRQIE/556qbe
DOI/kKLCvE+B08aWrwTUZ5Ac7bSUsCAFvramKl8TmEFL7sEhznpk8Gk4HbBe
No2kduiybeshwkGrcRNa0TSyknGSPY+I0DERJduWN41MCzX/i00ngtw2SnvK
92lkbJP16ZEvEYgXXhy49G4aXVjZdkVNigi6NT2/425PI3d7I/Tq3hjsK78r
cmLvNApR5HSh645Ak5DKfY2d2HjPXNM56RF45LzaeVpoGtVyR1yuWRuGHu6n
MVpc00jCYqulRtYwRJl9EDJemEJNoa2MScFh2DJVLXC7aQpNC578bkkahAnR
PbwpflOoNmdcaC2xH2JvjLp9fTCFeC7lta359sP5ktSmb55TyOUSoVTiSj8k
28lH5N6YQn5jWyZ6hPvBJkNre5npFArGZw2zXvRBK+7utn65KRTWLik0FNAL
eNdqdv7hSVTdcKuBO6Qb1CTuKH7tnUQSfgUaIw7dUNy18+rpjknU5K3DPXCm
G8pPu+a51k2idLUyX122bmjgF3Ks/zGJ+vgfxfIEdMHYr2vlQaHYuN/9i+wh
ncC9vvpoQX4SlW/iatXOaIeXualfw49MojL9t6Nsr9pBwFm/Q+rgJPKeLlgl
eraDaMvnw0Z7JpFbvQTnjpPtIJGk05e1dRLlXdvufa65DVS03qlc759Acguf
Ll5gtoJdhOJcf/AEEjgnmDDf3QSP8qJDmx9PIBwuJbLxWxO8HZrfW+EzgWLD
JTuIj5ugQS7/YvqdCTQ2cbK3XqYJjjdrpHhbTWD+o78/9m0EDj4tc2GlCaTg
msZ7U6EBMl+ZEy4T6Sh9TCvLr64OagsKjHFDdGQTopJGS64D4uiuieO9dJQr
kGQR7l8HOxQGRcWa6aj+Kv+tENU6CGi7dneikI72VjaoK32rBWPBm1KhUXTU
VEssdoyrgeVo3zAEdJR0pX3fldQqGN9bMXleg458Cl+duxNSBT1fOfRalOlo
qMNGo9qpCn4VvxYcPkxHmY5jvEoyVXCHlPZhVZiO1Gi3PQQzK4Gs2JWpQh9H
7qpnXcurKqCjZDd/KWkcVV8+faAjrQLKta95aA2Po1Px1X5SERWQeGVSxaRj
HAVqywb5m1WAZRAbcieMoy7Xxm0SU+XQ0ibXnhE1jppGzOsnJcuBYOV5/Hj4
OJIYG1ft2VYOGZSCt8VPx9ENjU+q62QEYctnrX4/GkeFzJc+7KEIzklcIdOc
xlF5JadmQWsZFN59uiipPo7suMLZbR6WQtpKg8W34+PI0ks+4rNhKbx7IlCs
cGwczY3mFlvLlsK99/H+ID2O+op82I72E+AY+sF5lXcctRXXN5zEESCFb2R3
LJGGdFLZXFulSyDaGjjVh2joxlfJoMHNJRCcnrTQ30NDOPyXNRNSMTicdWwV
a6KhpGyc5PPkYpDypod8yqehuY32i38PFYNQ1UVP3A8aqu/Df3TmLobNAhnX
iBk0VC5z0VZtpghI325rSH/G/HcXHNmbVwTJwyzG13AaMrzptavnfBFEHzEd
vhBKQ4Xm8isv5Iog+AG+gR5IQ2FST43ThYrAQdDnyxFvGrLk5fMWGysESe2/
Vtl2NOSjzY4fCiiEpEzOWrwKDbnv/UR901EAUSs3fpkr0JDAMdyZvLICCDzf
kPTnCKZPVlVNLaMA7MYifNUlMP1ZDZtvPy0AcREhxVJuLN6si+UTzQLgs7+3
35Yd81eyZ6j8aAH8y+ravrFBRe5H5wTt9xXAyIX3NNwiFdXPPEyq/5sPib57
E6pHqUgg8kXK0ap8iKx//Nx5AOPM60KP8PngLzrqzdFNRUn2nXqH0vPBNuez
kU4DFeV+SlJLicwH/fXNMFFNRVwel+56BOeD5kUnuReIitpcdwZ98s6HfWQZ
zqY8Kppb09LeY5cPPAphC245VBRGdgxwMcuHdb8JIu93LF7c/lTBS/kwtCOT
YPCJimSTgkqfnMiHBF1Fz87nVESvJ6a0ieTDge26DW0hVNTXxXs+ijcfMhod
pFoCqGj5bzExiSMfii+/6aj3wux3W2jlreDhLG/WkVp3KrpRWP49fx4PDc01
wVWuVGTYmnRx2ywe+vX/KJXZUxEuQsk9kYwHO36B8BIbKlIoyX8/NoIHeqss
udCCinzumZ/wHMCDe9SZk/nGmP2dHeImPXhYNrSK+aVHRYF2HOJPOvAQKHhv
KleHiuxWcZybW/HA2RF+Lvscpnd8Kq21EQ+R0anxGZqYnrYT7VP1eNhhUjqf
rk5FOhZ2Jua1eEgU7rn0VRnTI5b5j68aDwe7ZlNS5LF657uliFbiIfMN53rS
ESoaQ/8Eb5XjQdlMwjTxIBVF1f/ew4PwQBBVz4yXwOLb4iLXSvFwrsdoa5wY
FcVyj51Sw7jh3S2bdzuweMaKfyoIeDC2eJIXI4jlk1/3MhbjgZ0JPK95MP51
pr0EY/u+PKdITioqrNCJ/g+zp8c2E8I3Y/HNXn8ex9j9Ck3k+V8KGhsdaGWU
YfXYveEWukxBbY2MmXOYvsCBnTVP5ikoMOhLE7kCD1zxCvuCZimoz2noVGsV
Hl5ZX/Tyn6CgsO4Afg4s/x17HZp9KRRkJx8qGobVJ3Ho0cGHoxQ093tO3Ayr
n8zHmMfeAxREX27ccGvBQ/bVzO573RTExSMf2tqOB9X9NUc92rD5+qdC/Lrx
UDoy/PROIwVZbpNsvNePh6Zr/Ko3Kyho15yND46EB1MJ2UgXAgUZxmoHiY7j
YXAMR3MswPTlyO5SnsbDpL3nO9ssChJYfaii9wcPnlLhs9bpFFT/vN32wl88
rJBSzl9JwfScXbJ+sSUfuJy6l0ziKCipgrVzUiAfog7M6hu9oaDlmu2POHbl
w04qR5r+KwrCedxfuiWeDzIuahYXn2IsqPB0u3w+aN+IL9D0wHj13cwXo3xo
ks3jP+VGQTqdMqL/rPLBdKLpuvp1LP7HPbQEp3xwuvVvp/JVCpKlhzVl+eRD
sJu9z+GL2HieY/rO1HwYibRNKD5HQeUjLiYJufmg8cO6/JIm5u+9l71naT6w
Fs247hzH8sVZlAn25YN9gG7sz30UJLdCl94pWACEzxcI53ZRkERt/CsJiQLY
Va011iVEQVrysq8eyhdAGxfI/uHE6u1n5rjboABw0ccLT7LIyO0S9w7u6AJI
yFMYapomo/sTh3qepxTAcs9RNttxMsK5Ftla4AsgV0xWJ3CIjOxIXygD/dh5
9mVvX3UtGbkP/gl9LFMI/wrYl/XiyagtYd5jo7kQrAY27x19S0ZyjCT+M5RC
yF/fwPYkGWklWk82rRbCnTOrz6KfkpGP8nHvStkiGG6Y3dl7l4z8tpnV7A8r
AsJw7wk7LTIypEc4uJoWg++W7w88Z0iIzaIPtUkS4E6cLYcdnYRSfdiJA5oE
cJAXfqtHJiG/Z7U/xW0IoGvt91O2n4T6DC8XWL4nwK5f+jMj1SSkABSPJwKl
kOcw73ApgYQMs4XhLW8ZzFac0j9wiYSSr69GE3aVA8mCOSR4noQ2+53VqzxS
Dt0zX1w3cCSkRl5II53C3re7+Z8PqJJQmY/4hKd9OYR7EKuipEjowA9/7daM
cpCVDFX/u0JExbazbU7aFWAf2HqgJ52I7jgt4e+GV4J5/yfN4RQiEuhNjlJJ
qgRdJXdLSiIR4fj/+QrhK0GZIhDBekNEp7SYqoKjlcClYzzPF0REfu909kso
V0E2f3fFhStElB93uN6TVAVriQO2RduIiOs/+cvOBjXwtpQam3BrDLmPV/6w
dakHW58P/iecx1C2j/TTsOB6kD1u4NRxbQwJyFku1iXWQ3F6oTyX2RgamMs2
eNZbDyMx4bX3ABvvrHVm1/0Nh24pLuiKjKG2+hd/J5UawPPoaiLLdxQNvVmL
JAg3QfGoLE+m1AgKjH788hJHG0gL4M6aJg4i1WDVtDu8XfDzSNgtErkP+Su9
TW+s6oPRmh8Sqqo9qOvBfIhX3DBQ5d4qofxOpGQoYbB9JxEE/b+pHtvUjgyj
tr6viySDnCpD7st8E1Jl/Sv/00SFJ1ozbUU+dcgsTU9llzgdRE2zo67srETT
77qvPcNNws+lGv76A8Uo7O12eprINHwZpL6cCMlG3NcKxURGZuCq0d68Qcc3
6Oz1sSFncwZMzy+qe1XHoD85A4XV1gzwe9eK+A7GoAphwyAJewYkDAY3nqG9
RurDYT0trgzIa+yoMWiPRFLbnr3gCGJAzoKbNH0gBP1zaxglfmdAYJdsl1jV
aaTpJIrOrzOgiNu3u9IrBmoUpUfHdOcg6ahoZ47UGwh7enzLNb05CDXMaUto
fQN0lpXJoMEcmL4jN3offgfvCEI+LaZzMCd5ufLIcCx8XjTpSrSdAxn1fTnR
WonwMeITZdxjDn7/uqb143kq/LRPXRF7PwcqpE37gyxz4ONZvl/CQ3NwrNiC
qfAtB3SK7tNXhzH76KzqsZUcENiUFTk2OgfbP2eqJOnlgtcXz2Np5DlYN7Qc
2pjNBc6A9xWSU3MwnJtzGCn+hMSq2ltNK3Pwyd22+nRBHhhl80SviDIhwWZb
9tvRPPjWecc6ZycTYnXy3s9w4qFvfPWj424mRElwu360xINSWOOrur1MCGzD
C/7F3vuc8oLyj6WZYK/Ae41wqgAqOt6nflJggvRcyYpGZRGIp6h3VV1kgl/z
uZAF7DuP+5zvv5uXmNDzvZEve3cxXKnpuMWnx4QXzoPSkh7FsDWkfruxIRPm
Blb1OCVKIPLG4cfV5kwoq1FP7nxMgMmg5hhz7H5tFV+g66aOYGXL6/vHfZmQ
5wPdB50RNBpEzSb7MYHPvO7aaBSCulNZBAF/JlQI9N43piMYJVRajAcyQeSc
r0HCpXJQTZOJDwxlgm/hh4fBq+XQ9v0q3fE1Ey6m9DfrW1aC/MJ9G9YXTM/T
bJea25UgEnmSdigNq8+NJxsnn1RCq3kF3TqdCfSjRxUPZ1fC6QCiFfrOhLDC
wDdbtlYB61UY5/0cJtQ3H7IuzKkCORdhmbeFTLiw7EWX5KyBknjhmpLfTJgd
0A2K3VsDuz/I9FU0MOFdqfgefiXsHHh0x6+2kQm04N+X1m1q4AOi+zY2MyGU
d19Oz88aYAtrvl3dzoRaqWqvcNta6DMKG/DsZ4K2ntCWRXwd6JkpMevGmRBp
v4258rsO5hhlqjF0JvR5sY3+G66D1pZYs6sTTLiVOFvMxVEP9a9BanYSm89o
8NxrXg8lri08m2ex+a+fkM4t1cOH6dGu+Xlsfs9CRbRqA6Q2R1Zv3WDCr8mp
nPe6DcB8fqY4E+P1f6SPCbYNMBsznWzCxoLIQ+0Pv4Y2wI0zrwwTN7Hgl0+W
YnFPAxiFjysf2sqC9T0un4nejZDQIkfm3MaCV9d6AxUKmiB9MmHrdiEWhE6f
AlpTE1i1+folYuz/MPlvPKkJ7jL8+xWEWXAn5vYjTr5mkOzDXzAWYYF+3Zb7
I07NsKXnwY6wHSzgk1e4HiHUAgITaxHle1jAQXh78KxsC1zmF6SfFWPBP501
8p/TLbBq8ftkNcazDrV2jjdbQDHkQEfVXha0vLOx0ihvgd24quH8/Vg+/8L0
6LdbIdAb//K2FKYvfHZ74pNWOFkstn0MY/9dpg0mca2wRox9aySN6VMSv4Cq
W8FRZ0ev4gEWHPplJdHI2wZ6s5yK4wdZwDk+tzvZqQ1idmq6yhxmQZ3+Pl5D
oXYQUZzyZ5Nngcgx4g7Pve3wmlrtZ4SxHe8XiTcy7WAdvbn5M8arjXLKfRrt
YM5rdBOnwAK5i6es7Rzbwb968YeXIguizll/c89rh8c3P4RXHGfBkJT4r+iy
dgiwbD7FpcyCw5vJhLz6dvhyy8xEH+PK8ltty0PtEPdDA9+H8eLpR38C2TvA
IMLqDk2FBVZqcdqvzTuAd86innaCBV93XjX4ZdcBupM37Q+osWB+SeJK960O
MFLzu2ePcQQ+3W13QAcYbv/KOYAxUiqM+ZzWATVjpsI16iw4cLSX+GO5A2Kc
87qenGTBjKSof8eHTqwvLnNnabJAzfezR0VqJ+z+uMt4EOPgrqPOudmd8K+J
C7cNWLDj2fnLkZWdcDneWdgJY83pB3t0JzshUD+3RBSH9VP+QH6Fehcs0woV
b51hgeKlJEZuXxdkaem1jZ1jgdf9/+xf7eiB8meaTAMdzB83g2Au2QP0JltB
L4wLP/3ctV+uBw4/8Tv6AeP1BvW2zDM9YMXOYU/BOFhSBxrceuBI7zDd5yLW
Hy1O+9iremDzFyGxVF2sPrKJ/Y/u9oL4IXZVAT0W6JTZq5x91As7LBfvq2E8
YXLw9banvdD01GLaDmO5gEyd2A+9QGvVjPiJ8c/u4gJ8TS8EC9+os9RnQVlw
79s5sT7wv5dB+WnAgt4hAWOX+j7IcOcrzDBmgW64c9/9jj6Y9b1wexBjgnqx
7ZOhPuBPdAzfbsKCpHeOrklzfbAat8Z1G+MbhvkhA7v6YV68VU3FFOunKusC
/Zv90LP2iDZoxgI3z9zTV+/1w6bDpQtC5iwYkWCvdn3cD/sk+Z7pYlz5OLst
7HU//BEt1yzBOPzEpsnKon7YtavmSIoFC/ZmfN17gnsAZgYzH0VewepzZS1Z
W2QALI5txLVgzMZleNh0/wBY1eCu8FuxgOK0ouKhNABS75PLojHO2n/ZIMNq
ADQU/M0/W2PrG80MEs8YgN9Z7RdHr2L74eGpcc7LgxC0nTQ86cCCI0713bPm
g1AhfHnwoiPWj/qm1d32g6DhMNj3DePQA26fUx4MgvLk8LCbEwsyW+OtIWUQ
uOe7jTacWbBycK3Ve3UQnDpH/1jcxPITeFZ2lX0Ivh7VFK3HOGJNKEtLYAjq
rLdcUb/FAon2Iy+EZIaAu/T+VXFXFpz3s9LKNhoC25XtiStuLIjuKCqkpg+B
sewWqQl3FtiUaqc1/RoC3AZqcPNgwcH09re/yoYgdWN/BRPjwscTnkFdQ3D1
YV7ShidWb9ndR/exDYPcCLfHf15YfgE+n00thsH4PXtYzUMWVP134kUV+wiY
xrgbiIawwFbeNIXJPwK80iivBONlJQ+C+J4RoPXUPnF8ivWXRsas77ERKBML
uF4QyoI3OuImyhYjwFd2JMj9OQtcnDn3fkkfgaDxD0OHX2Hrc/OASufPETA5
Wzg8jvEHtzP6m0pHwPXDwK20KOx8vOcbeLV9BO4pDSr+F82CE8EMiujqCJAl
c3O037KA61NvVuilUei4p25aH8+C5OSF2jyzUfgoeV8sKYEFp74KjpGujYLv
l9LXDz+ywD3rkhDcH4VDSVfeKH5iQX8J8v6TMAoJnDT5/GQWfO9Lgxuzo+Bn
pZ0n/J0FMtsI9FSdMRCZIhTKF7OAVXfsVrLeGFR7E8xPlWD7JfTz1CfjMVD6
E9ynS2CB+dZnsx9sxsBjamfU7TIWPN0wWohyH4OpxNs8DZVY/y2Ob/jFjoGN
4Y0DxEZML0l4pxl9DIavf9J9P4qd559DY41nxkBtn+IXyhgLNOxWdhuyxsBf
yeOIMokFHcMjey+tjwGXPWdZP4UFm/q/SZ0RIEL8g386MIn1ayscO6pGBBG5
mSmvRRbsI7hqs4cRYY8PtrC88yCye3X1zksi+OEey1vzzwOPd1huXzQRDp/6
+3un4Dysy38Ry/xIhAWCPz5OZB4GUkaYxr+IYJ0aV1wuNg/vwo0Sk0aI8Idv
UCLxyDzwWZ/4c1KFBHctmjMzdOeBo7Am84sGCcTWXv2quzwPf0VMHfhxJOCc
892g6c/DdIt7M0mXBOpWWvfkTeah4ez3lOd2JPDRXJekW8/DsyP7DHvDSbAy
p2+1dnse2FY3f/MkkUDSPM4KvZkHO3L/fMA4CWx7ehL2v5+H8qZczZfTJFim
+AoExc1D4CfbrrQlEgi7BLwzSJyHDa3ijSFuMuy/cei6cPo8/HvlYX7hOBke
FSi7qhGwfA+ObdkbQgYXxtQX7vF5sOEv0D/8nAx2Hjwa3RPzQFh+GaeK3TM0
T3KbpUzPg1/jSXmjWDJM5vod0WXNw5r7e6vQTDK0tfl/qvw7D6sl+j/mushA
UnHcYS+6AH+MSm1rDlLA2YkWeP3CAgT35wxr/keBnn4PsVndBeCzT7YpVKDA
rirtsw/1F0DG/ZlVxkkKxH4WOvfRbAFMI43MXxtR4PKeF157nRYgt4Gqd/Ux
BeSkAqtWgxbg5jm+04tdFODhuOBkWLEACw1shDsDGFuZP7tbswCBxvMa9FEK
vFBnfo/5vQCx9n1qg5MUEPj+ZvNU+wLUBiQrV7BRgeJlYd1DWgApgqrcSzkq
yA6oLySzL8Kg8jWxgyFUkDwjtuWYwSK4rKjwP31OBaudryRGTBZhrpRnCzWS
CvuWpEJiLBdh64XiydQ4KsyvScnxOSzCsSuixQdyqMCuscn5nNciBD5utDww
QAVV2qFvuQmLIFN74p20Ag2OvTkhnctYhNwXfC+eqNCgodh6l8DiImgYUB+T
NWhQkn/gt9fqIhj0RTunaNOAWh7jZsy+BD6TM8rS1jR4OfVJ2khsCRr5Ujul
QmmQw6sTf11nCdwtBASlhmgwdOGArHDaEjiky384SKTBefpdz/rMJTBb0Zc+
TKPBqbg90k9+LoFG/EsVhTkaWA1sr+YqWwL2UW4rza3jUNO5Zm3WvQQfXNhT
rOTGgbqil7K09Q9Ue60qx/iNg7uJS/bdG39g9xuK5dZ9dDCqMFuexS2D2hPx
Hfel6NAXNRT/Q2cZzD2tOsmH6BB5wfuFr+EyRBu26VUp0cHTDn/loN0y8PAS
zgbr0MFR46pqe8Ay/HsaI8d2nw4yx6/EvyxfBsqDs2zrDXRo4eAdzb+wAtnW
SWnzPhNw0+VrJ+H2Kij3Sq9y+E/Ac7e6iBbvVSgxTru858kE/JM7ET0esAr1
F7OZuJcTsMT5OEo+ehXIJwgnIz9PgMUrqfKdBauwS6SvVbZhAhRzzu65vHkN
gpv4l6+KTYIG56yJbeIaWJwO0KkvnYTGfo1dyzPrMLRI46+snATJ3T8cKpfX
wSFbv7ekbhKqfze9ebPlL7iJ73fJaZ+EANLFMsPdfyF4U+mTd9RJgOqeF7La
fyG7ZrXMiXcKPlmbKVxJ/Atb9b1VNl2dAr2CO5v6zP/BD9vbUhrrUzD7dDx+
F3EDHPBz+5I2TYOPdt+UIGMDRHju7+bgnIZQ7tuJon83wLvokUCH4DSQxy3E
E3nYcBoiYf9uHpqGPUnsD7ccZsNV/k4eiDPG7DttjjY6sOG6lPuiV9KnYb/p
yZfXBthwy9znthSZzYBL0bDBwYFNOOP2k6r7Ymfhrdv0Pd+lLTjuk9srCB9n
wbiQ7UIm21ZcRerAJZuUWVi3uc9L4d6KU/B5aB+fPQvfqBaBN8S34vjECyJ2
18yCRsBZoxqdrbjfbkpkUdYslNfynGxP2IrDcR2O4rvMgDHtXpkLuuy4ZY/l
PdlGDDgSvCRvY8aOyxms+6JnwQB8u1eEjx07bn+OS0mEAwP8V4su1Xmz49bN
UmncDxkQW+anVprCjitIET/N+ZUBo+JEL94NdtwdXkbd1wwGNNg/k4rj5sDJ
PCgzPv+DAftvOprI7eDAvdG9euMpgQFfv7Lr3zzKgfNkfojZ0smAVEGBv6dt
OHBHrG/tT+ljwK3Wx5IcNzhwxGr1b2dHGKAcXEHqvseBM4ztKwuaYIDp7YM6
EeEcOK7N6RclGQx4YHOf5fmeA4dcH3SVLzDgfPaStn0KB867+/w1u1UGVErW
aFvkcOD+/385qG1dWTAt4cD9D4RNXM8=
       "]]},
     Annotation[#, "Charting`Private`Tag$24268#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2nk0lN//AHCVpSRLpYiyhI9kq5TdeyohISRr1khFiEgIkVJJot0Sociu
sdO1J5F9m7GMWRjbDINCxe/5nvP7Z+a8zjPPfe773vd9vx/nkHDxNnfbzMbG
Jo19/O9bEfZMb2wwUavTxo2Lj1jgvXowenWNiSrNEeNMIAsKvxyRWVzGrifG
RuLcWXBU1thlYoaJ9gWqkS6cYYGqwH1C2wATcWs2Sy9uYgGOstD6toCJUn4p
kwXuLoD5w/acY45MlJoVfLA2aB5ud9y/4f6VgbiVzRuQzBzEzAQMLJUz0PdR
HZ+dXHPwgevayYgvDETYM+AfPDkLbWAsmJzFQHr69X5xWbMgWShY0x3PQElZ
Ma+bDs/Cz7iPPDruDPTVTd3d6sQMyJi35OzmZ6C4Z0evzdtNQW/v9uk65zmU
/TNtW/EkDe65lnzNuTSHFgrad8h10EBxySHhpdUcImRIn8WX0iB6V7HWNeM5
1LDuZr4RRQNtc+tn/OpzyHXyrpy3NA0+dmSoOPLPIT+l0h9F7lQIbNUO+/t1
FqWXZX5KWyXD/lrv3aqis+jAs2s+kuYkaNt5/JbG3lnEqc7R465DgiC3tR7t
nbNogsvgRY0cCfq5oxJ0t84iVZ1J8XdbSBB38d1O86UZdN5p5w8FzzHYMtPI
f6NtBl2JjL56QmsUpgT37UgPmUG1CBk7LhHhzdUxz4+3Z5BoYov3fCcR9Koy
2rJ9Z1CZjcuRtDwifHBSiim8OoMYPXHezu5EuJSju/2rxQyK29w7YjdMgA6c
97Yh+RkUdKepSLltCEo8Gjn4RqZRk+VEiUjDAKiJex35ODCNgg6JO1JTB6Cy
d6+9dvc0Cl46M9cZOgC12h54j2/TyFHu62NBzQFo5dt5uaVoGukK6jw5V9IP
pC+OtfceTKMbE5eznQr7gPvvWtCS0jQK8Hj4fKy2B54WZnx8IjeN5AdX6nnT
e4DfzaRbUnoakRYTPZ2iekDwZ9ohs33TSJQ5tnbdsAfEUw0G89inUcuSZqNI
fzcc13113H1oCkVryguQF7vAKebI/FDEFFLLVfhRZNAJQfj4B+13p5BFvs/B
n8qd8HJ4UbQucAppjV/X5RLuhFb50rNZXlOoNXwm4H1PBxxr10gPsJ1Cptd/
L/kIdwAnr67lrqNTaG3Tr5P1Be2Q+8yy2micjsRbS68ncf6A5rIyc9wwHWm0
XnWhjLTC+JjQ1LEBOuJOev3OuaQV9igTBUXa6ag4wjhii1srhHU6ek+V05HF
up4ssfk7mAtck3wQR0etqO/19xctsBIfHI2AjkgLj00lbJphUrRuWk+Djqim
/HxWKs3Q/5HT+KcKdt3F83crXzN8qXwuMHKIjr6lmE96fmsCL/Knd2u76KjS
+27BK/UmoBzpzT1On0SSuBCdG4caobtKmK+GPImGi6xjgrY2Qu0Zx5u6I5MI
3/3lceNkA6TYTB+/0D2JBsTjNHg/NYD1PTbkUz2JNtEfdPvLNsDPTvmunLhJ
dGo2CXfvRD1U2/oeO/YEG/+YabSJcD3kUMteVkZNIlNpOS6rv3UQvXLK9nvQ
JLrP/feccEMdnBa3oUy4TqLyrhp7pwt1UO4dtSyhPokM90+tU0JrIZ13VPjN
+ARKWao4pbb5K8TbAZf68ASat024IjBQAxFZqUtD/RNoJWlls1VuDbicutwh
0jaBOhxHWDLWNSAZQL//vnQCmcWbtPfiq+HDCIv58ckEalFrcjgZUQXxchYj
+g8mUFagrli7fRVE3C5ppYdj452Si61XrwIXgcBMuYAJFCGZ2jjFqgSJM/9s
850mED/yK5a6XgmpuVzNJccnkOXfgkhpzwqIW736xVJ5AllsCtdRNamAcL3W
1N9yE8gfno8UKFeAEykmWF18AvXuZAj2/SoHsd07j9RwT6CKbx1Ppx+WA6+z
3wEHjgn0Sp8erXijHNbzerdvbNDQipXSlkHzchjVfz2BW6ah2T5UbytWDinB
okmNYzRkvSIbs6+mDGJb7j5yI9DQ5vyllKjMMggVHAvg7KOhR+eGf1jEloFD
QZqZQSsNDU/51x1wLoP9FBmuNjwNWbkJaFzaXgZJhkd8ex7RUB9t1NzStxSk
thu2dt6noRuH+J7ucSmFnB8ukj/DaGhDA/kfNi+FSqMX3S3+NPTuUlmd+bFS
GDL5ffSrMw1tyv5inLBaAk58/E+qLtHQuEcsx/JMCdA7ZCnlVjRUIb3P8PNo
CayY2iZ8Maah2p32dN6mEthzoWYxS52G4sa1IqtflkDKrv5zH1VoKMTj3OfS
xyUg3ctIT1eiISNBLa0t4SWgclHcIkWahpTth/kSPEqgWlA9N1GchsLPCG3r
dy6B0/1m7G9FaEiNbDJ83boEzK0i8QkCNHSpvTHskV4JEPYm8TznoSH2K3Fc
u3RKwHkQ7xrLRUMx+t6Dc8dLwMdmYvejf1TUcies8ZUMNl/hDc8HK1RUvlv7
tatYCYQT9jZFLlIR+1MZyUihEnhmd9Y/dIqKVD6/7CjajsUj6tIeTKUi67ef
sus4sHiGg6TvjFGRxdq/zxJsJSCTnHA3gEBFRiyHgq41POTb5/b59VHRpY9x
8V3LeDhxoEnhZicVpWraKEss4KFmdCTK6wcVaQ2EutbO4qHNke/EtToqmi9Z
XZ+l4sFCXDb2SjUVGZwmigaN44FIwk1cLqMiH4+jOMtRPLik2eg4F1NRzIUm
3XtEPEw7+75yyMPiEbfl/DOIB1/JJwy7LCriXyl1aujHwyo5Xc8mHbu+nqZE
6MVDeHp1imUKFTXajJtADx62uvb9uvCWilwVNd+xuvAQJ8UwMXtBRblp/nOL
nXjYS+P8ZPKMimoHLaVOY07JFNs49xgbbyVjH6kDDzJX1KzORlERXkYmtxVz
voxZgV44FQ0+TMVvxn5/YvIal24wFemeJPBFY/76KcLxZAA2v8C3b22x5525
mlimc5OKnMwyFIK6sfWQxfNpeWLry6r9NIHNz2KqzV3dHduf8BLK+z48DGfT
0AkXKkoSM6jJHMCD6/X1vSr2VCT7S4d/ZQgPs3J7fY5YU1GvrFP5q2E8+M0o
tSheoKLq4ZvP743hYS3HQFzehIrYVDVul5PxEOHpHHjoLBbfpbAzmhN4GI11
SKo8jT3f6Pt9x2k8aBTZ1Z7ToaJbd/Jyhxl4eNVjTR1Ww+IN+hNbvIgH1vLF
rV7HqKhwIuIfaQUPJkIX5DcUqGj2wq5W93U8fNYwNY2TxeZvE9Ksx47lZ5jh
m+L9VLQ1as8rHgEs39P0q08LUZHo0ATP4t4SEGrUJfXuxPJJ7OeaMpafnVtB
9jcXFV0dFossViwBXPyxck0WBVk/v6/2zawEkvDKw22zFBTCqLV1tcPyu1+B
zWGSgq1fXISVWwkUisgahA9TkI+BnBwElYBYpuhgYzMFGXz89YM3qwSCvgn/
vVhHQUJF93dY4Uugf2qP+GQVBcnvPUhZrC2BWEWBq9uKKOjW+Y7ncsQSWC/j
WDFOpKD79LfMB7tKwZawWXTsJQXFnHFs9JIshdK/G+AThz2vuKgq+0gpeJ1c
exgfRUE8e7RshMxKYaSVsXfAm4KyQhJP9SSUgtrcjObV69h4nXcPnM8shRd8
U46rrhTURr+WI1pWCkYWlE8ithRErU0WyyWWQvXIgKqTLhbfQ1nX17JlIMTW
Z7egQ0EvAnZUJWqVwS3J7rAIdQrqHQ00mzctA3n3tm8ZihQUd0vi/qMgrD7O
11pNCWHxKXgtBnSVQfCWz7d958ioN/7tM8HYcvB668DpRCcjT3KQn31mObgo
7XppTCEjkuqBZnp1ORjahRTLDpFR57S1xPfZchD6YjI32khGTopOCbnnKwDv
suhyLomMlPc2Ro5IVELWyqcFtddkxPNJttRQuxISYy+Fy8STUfkervUV60qI
qGxK3hRNRvNPxlSFnleC2c43g2V+ZIR7Uqtqz14FjDotE6lzZJTRYvqA9KsK
yFYLwwJ6ZNSmWuprvKca+uYyPTZw2HhOxiKrx6uhWpjvEeEEGan1f+XmCaiG
JzfHG+Iksfnt8NETXa0GWYkH6v9Wx1H4a+HzTdxfwTm8Q6o/axxxa/w1fKtQ
C5ZD73VG0sdRxmePHDyuFgyP+lhTU8YR428yc+ZCLahQ+WNYL8ZRRFLwcF5Q
LWw1MF/kvTeOjkresL77vRby+frq9G3GUci+ajtNzzr4k0JwqNg2jmwtUjPK
murhZQ3tTdJ1EpJNOkHtamwCh8B3oapuJPTAFBf7kNQEssfOu3Y7klBs5Wyf
9d8mqMwqV9p6kYRC+aooxtj70mjCk2Y/ICEhu+3hYZnN8N/1I0uGu0lIx9Od
NRvzDXwV1lJYwWNIks/f39z7O1SOyfLkSo6iJNGDhRfvtsNBftwpixQiWj58
w7p9pRuK5aKvkymDSKl99/Nk/kEYayoSP3GiHyl/vzg1cXUEaPIvj6LSHjRJ
jCkQniGBQGj2CcVNXUgPosVWpCggf4Ipn7nYhsKfqC5Ea9AgUneusyLwG2rk
mr9YETAJghb5cTZ765EP/6MXb99NQfGvJr4WqUp01TsEjB/MQCaR9nTqfj6y
vsN2LiV0Dgghe94nH8tH0V65bGVRc8B7QL/QjJyHJvbPp7fHzEGAU1Z3BeSh
hZU3uUvv5kCPdn3v47UcFFRLf32obA7oDGaqnE82Ov/6pIsCcw7kNq998bDL
QOV+pIPP7RngkC7XJMadgUqsTlq4ujIgXteuv6c8HZEu82gf92DA2oPqFc09
6SjslOaRzkAG/Ngeps3TlYbE1G/5TycwYFBua6zN0xQ0umP3av53BtibieKJ
l18gHrdd5zyPMWF2cVndvzEBubltfdCtzoSQVx2IVzoBeXpy2J/AMSGJGPHj
5MRzRP2vd/CXERPwP7qbznfFIq4Hs0TbK0woWPI8SCfcR888DIvy3jDhp7q4
kkhSJGruGJqfTWECI7RHw8Q+AkmkXv5yKJMJ1jtvZVxFYejDgYNViUVMuKDJ
u3nTd3/k2Hgn27mVCfFNt4Tdz/khgyr2vphOJnSeJyq3t/sgfrMtt0v6mZDY
YoqOZrqjZNZeoQ0yE4RG9jPWs10Q/zme3eJTTDhM6VN/ZW+HaonK4TpMJsjw
+LxWdDdD7D+WbG2XmRDeK9sr0qCNVODbB78/TJDnG7nOoSAFbZkPve6yzUP/
QsR7/hUD6EpoEvXcPA/z5/9jeftagr7s5ns27PMQnKDX6qHiBMz6ycQznPPQ
IP7oYTK/L7yccFed2jEP7u5yV0rXI8CLxyNwUXQeKriD++r9E8BDWOSHkMY8
pCoI9hRIvoA3zeK2XFrz8MC0oDOp4wV8WBa9u6Q9DxavKD8CDr0C6rJDROtJ
7PkSRvVyI29gr35vmtvZeZBR318Qr5sC/3kSWNbW8/D9i6Nu0aMMsK3l7FT3
n4fj5E0H7lkXwJkYb57dOfOgWGm1oJxdAL65szPxudj98XmNpNUCqFwrruHP
n4ftabnHU40LIRE3qrGtaB7+mloPbzAKIdyQo2CudB5GCgsOoSPFwHZAVziq
fh7e+zg0apfhQfnfWitrcB4OzletatRXAOHKhsn85gUIaT99f2muAlofFm43
Yl+A/s8/ePOFK2H/9GP0kWMBHrsRD0rcrISoQuC32boA84Q1Yy7xKri6qOdV
tGMBvjapf+i5Ww07WyvGjwgtgG1imaGnOoLHYUntt+UX4Gz6ULuJdT3kKeGX
DMyx+6PyrzTdqAey2LC064UF7O/xyA3NyHqQYa08DbVYALqCwpFD+fVQIODG
WWS5ANHl4S+2sDeAD695AY/dArS0/2dXXtAAajF9ie8vL4D+ij9dgqsJjnCo
FqvfWoAzxju3LJd8g2Pnua7fSFiAZ44D4cplbbDvIKck+rYA30z27zDd2QX/
7Zj9GbK2ALsVx/f4inYB4/Fo9tE/C+C0I1P8hUwX5H83sKdjXvshrzKo0QVP
ks1ML/xbAPmzWnZOl7ugVKYz6D82FsSdtsv2wXdBx/ql0O8cLLBVe3vmuWU3
bGp+LbPKz4KPe+3Pf3HqBqW2AY8cARYs/hK36bveDU2KK+/td7IgpiTLUzis
G16Kfhqo28UCdLQ8Ie1TN3yXtHnzaA8LpBQGxouwOhoiPP1njygL5iQEQ7vf
9cCmwrSjiv+xQC047WZdRg8kUl2UhzFH9Cq4Feb3gB9d5dhjWRbseahnFFvf
A3WT+YYTh1igM3t7n+F0D4g+9utJkWfBs1JCaZ16L2yN5iAJHGUBgc/9c+Hp
XnAZ+ne3FrPUtcXk98a9ECfx8rD3MRaUi/BE3XXuBRNx3fI2FRaQwrUvqD/q
hVdJop+jVVlw5Fwqs3CwF15X3o1k12ZBSIY85T25F4Q/PLuOx9z8r7w/drYX
OLJ+erjqYOtV2FXjydYHW97eRo3AgoxtDkV23H3AdfbYLn8cCxgu0xmGu/vg
UhqKlD6JxSe4JUZWtg+IvXM1D06xoM3rWdjeo32wcms8WvU0Fm+LiB+nVh8Y
6p/1o2N2ksi6snymD4wUf959q8uCz0EqttTzfXCbRzjb8AwLlnpqjXts+iC1
OCs5GLOOgvHJ+st98CQmX1sAc/SDIZWiG33QIf908yfs/p4xN9nU231wPcuB
oYX5gDpL5Nm9PrDbrb2lB3ve1fhQvtAn2HhRp05fw/xX9/Uvu/d9INMmZ/wK
m6/U55bGvd/6YE3lXAMLi8//1mHnZ3v6oak3ma8MW5893MxqS4l++OPtcNAA
c/n7YqED8v1gq1TzfEgLG69VvTP3ZD8MbNn16J8mth4SBtDq2Q/ZrmYKhhos
iP3pup+joR9SeDIyV06wQNlV9k5bez8446Iz4zB3rc70Jgz2g4P25sOHMO+W
9ouRZPTD2RD/LrvjLHgXfO8PCA9Ag9fjgW/Yfn+UTRkK8h4AFYVViRplFhh8
dT5+KmgAEgyDaxwwT12Qfr4tagC0+h9v24RZPizX4M27Afgiwf9VX4kFxX2V
ZSVNAyAwTaWMKLDga8TAy3mRQQjQPxWidBjbH6HEhTKZQQh/P+wyIseCTfkO
xmFHBoHG/VcqBrPuEI2dV38QODmi9Wax/G1VWvI77DsIkZMchmVYfg8M85tf
aRkEC0+p3CAZFhg+cRu81T0IpUwxdi3M1eqVDpHDg9B/0Q+3Ls2C1FeXPVLn
BwF/lugVhfmqael9gtAQdJ6rH0uRwvJ/nXv7lOQQrDk9e+2O2SjP8flv+SH4
YvXfmSOYj3BvS9l9cgi0r918/O0gC9Ya7MpMrg1B/JvwtQ1JFnj6Fmrb+w2B
8Imy5E7Mo+IcjR53h2Az/rDBB8z1d/M7o58PgVvnwyoDzE9UN03XVwyBMZeY
zQcJFqzTLvp0NQxBy0Erv2DMPi8+/xprH4JAMdzHi5gtFi5s+Tc+BKRjow47
MIvmfBRV5SYA3sje+rE4tv82fz6c2U2AilFFf0/MbFtND1kcIECziVT1ecxU
19XjN48SwMlApUsYs+Uuk+owLQKkP89JZ8PcUvfhVKweASzV2LLpYizIO2B0
PseWAMH7/1hUYxZvT+2rcCVAqsj6xifM8cHLdi1emH+9nniBmV3OkNwfSICL
vL+5IzEHDKZcpUUQ4G39WW9fzPQHi4zFGALo+30VvIzZ9riB/+bXBFAPj2S7
iLmNkvSHP40Ahme/HTHArBO/cE8shwAXFMtztDAX4vS2KpYQQOnZfZ+jmCWZ
72K1EAHKf9hGHML8Ipm5+9x3ArSevkaRwMxppJto00MAbavRlyKYA9feSFwd
IcCcGz1xD+bprLlPAZPY+nWU/N6J+ZLVKcWoBQJ4Lt3K4cfcwfEan/CHAMxj
FhV8mE/hZzQ+cBBBiHHv4P+u411wdYV8RKiPkJ8VwCwj8FIfCROh2SxCUBDz
GzTV3n6QCBuVRWnCmLm9dCyGFYigf2AqXgxziGgCYVqVCHeIljMymBmtk06r
J4ngbX4oTwmz0x2tSS4jImyhxBLUMcu5tvQxLInwskE5XA/zoolFY58zEXRl
vfotxP6X76Tiak8iiFznJblifiDlmZZ+mwhS5MH3AZhN+VaePY4ggvvUC6HH
mIXXIkNvPiXC/OA24/eYczsS7SCdCH96NZd+/m//Kv8zlMknwvOEh55TmCHz
i9qOCiK8SMnO4cDypTvohyDxJxG4158+Oo05yc2KvX4I+z37mIIb5iumFFYW
lQh5VQczojGvSv/pCFgjws/3mQJ9mOv5H3615xiGidCbvOuYY/7szNPlH4Yq
XxO6LJbf4l1yj3fKDEPzX2ud+5inq0oDV5WHge+MYC0e85ePp9xJmsOgzckm
N4lZL8RWN99sGG5ahdaZYeeL333i6MtLw/DkberSI8xDZr4SIe7DUFzOK9L4
v/P63+P1s3eH4TxrxkgHO8/x3RXltKxhGOULjDfEzvulmjOf2r4MQ+Dv5rx4
zNJZXS+/fB0Gn/tJ3cOYy+9O+d7rHYZk1srp21g9GZUVVtjPNgLbR3R3NWH1
J2tXpgj79hHIzH3Vsh/rzzfXlblnBEdgdio7ORAze6/BZPnhEfgkcLRYBatn
cmGBaRZWIzDf/aq7Gat3S9fY4zRdRmBbe12PMlYPayziQiVvjMCBf3TuZMym
cll28xEj4Hb5rEwIVk8D+gYEY/JHIIpD3PEiVm8bDqs+buAYhbroeP2AIyxw
ULJIX+AbBefne3z+YF45erNabN8o2DWV5EZg/V5eI4cRrDgK8g7mHq+x+v/C
QOyCitUoLO2z1yZg/eGKG5doZtYoRK+HKn3D+g3bNanjPcWjIK5+NNsL60fv
PE+abKoZBVPbY3ZCWL/66Rccbt81CoYbh2/6Yv1MNYJJFVwbBYvE8xknsf63
9f1A3oNzYyBvIyNposeCDx+WmvEXx+DjHRXlffos0PooQCI7jsGKZsM7Omaf
vHM74dYYzFt4x8acxfazCgX8ThoD+ntbpQUjrL8PfoKrjDG4NHDaXMkCO4/b
qukZBiT4XhbPinVlAeub4vUPxiQozpC2y3TD+tGDtJn35iQQe2Zk8vUKVg/Z
HzLeXSIBt//I8O+rLIjaMFuK8yFBnXJN/6MbWP1cntwIeUOCb42bRA7fxuoR
3vZeUDIJQq9ly3sEYufZr31z4AcS/LixaSbvDtZfF4o5/HJJUJR3NkAzhAWn
Z+9uv1ZLgjOls5tv38PiJe/ae5FOgg/63N03Y1jglfbgjfkcCWybsF18ygIN
p1VhUxYJatiHbYyeYedtZFT03F8ScI67Sx+Nx/rlULbkSf5xOFs18UPsDVYv
OkBRQW0cPlzgVYnKYMH+ao8zHNHjsOuvt/1DhM1HeG3N6+k4GIwEigfWsYAn
ILpwMH4cBH/h73k2YO8XSpkiucnjcIuRdcjpG9YP00cXzL+MgxEh386vgwWv
npilpI5i11Oys8+RWMBrp/pb8zgZJIZ2rvazLwJneVNupgYZnBW4W3Bci/Bv
t4ULH44MGhVnYvK3LcLsT592siEZKl97bLzkXYTWU5/THzmRgXE+bfiF0CI8
lNtvOvCEDFp5h3stFBaBbW1zti+ZDNMitxrmbRbBiTK0GDZJhoxMvH3upUWo
bSvUeTpLBsKeU6UejovYe4RD76dfZGAvF81Zdl2EDd3KjWFuCpxRqh0/4bMI
689uWuofo8CdOnVfn4eL8FeatEX0PgV2LDUldpQvwiW+MpNDjygQ49NgwFW9
CNUrT9+eiKVA257+tVNoEUJ+aCqZvaHAKH3X7eamRfjj89r2QS4FTo6Qdqx3
L8JalUnRfC8FWP3qGUcYi/DbrMahSZoKPk9LmRX/LUHEUMGIzmEqqEX+rm8+
vAS8zh8ulStT4TON+8Og0hLI+Dy0zdGkgqXTTOx2tSWwiDWzfG5GBQtNV998
gyUobKUZ29+lgvXfmv7p60tw7TSv9nIvFWqNL343+7IES61s1V4EKrBvCDzh
KF+CcPNFDfoYFQwT8cVfq5fgjfOgGnGaCpnsDJ2TzUvQHPZBpY6NBmLZm989
HFoCyeoT8k/lafAqT7NLZNMyEFUcRaTv0+CHvvKKv8UyXFk9zhf1iAZer1ry
6m2WYb6GZwstlgYWc5KM3Y7LwK5fOZ3xlgbTl5uEW68tg6KNYKVUAQ1MdK3c
b4ctQ/jdH9ZSBBqsmNkrk3KWQaZZ9dVB5QkoSLsi9m/rL/Cx4heQHJ6At0K8
yau9v8AlS+md9PgE3Lxn7nOW+AsurpocPDQxARWOdp9Txn+BRuLT48rzE3Ax
w8nOhvELOMa4bXXYJ2Gfa+Mc39bf8O4KR7qt/CRk+Jwtj9T6DY3+ayoJIZOw
cIGP62X2bxB+QbVm308H4+XStIEXK9i+iO25JUkHrymStnryClj62vZQ/qOD
6uXC/rTMFYg37TRuOEqHh8/0tkWXrgDPjupTEQZ0eOIcirIGV2A9KkGe7RYd
zFLihrQPrAL19im2v610KNxN42vNX4V8u9RPi4FTsFYfRGafWAOVgYNrnKFT
4OtWHPmUuQZV5p+M9kVOgU/+vT7R1TVoOZu/gHs6BbX8pITzPH+AolqtGZs2
BTjx65Ucx/6A0O7BDtnWKRgvPZhZir26R7TxrdiLTMM+qYIMDam/YKUdZtBS
Mw2F2zToBqH/oMjhhqTG3xko9nrjuKTFhlvhPr2l4uIcDHy/eXqv2GaceZfm
if1vGCBZMuNkLc2O49bcXledzAAhLz7LDUV2XF0G4dyldAaEqwq05qix45QD
7zgn5jPgRmuLiqARO45XrCxGuIkBhNfVIOfHjvvueZQiyGKAG/elew717Djc
1kNxvEZMcBbOcFpz5cCt3FzZl2/GhEh2bhkLbw5cAfFbprEVE9gCRBO/3OHA
HSi4UhXjwoTeSqd3kbEcuL8XMya47zBhi5+I0NVyDlxZupg210cmjPSvu+nu
4MR57WB++5jDBA6XYyOrezlxMre/musVMSEiP1i0RJIT98LQ/mpUNRMUbZ1X
tdQ4cb4L7xK29DAhOv24VfxlTpyc3fUD6YNMuEWqVg/w4sSNN6pnnxplglzI
k3nHO5w40zeDX+9NMaEmRWhc9xknbuvmrLMSTCas8lD3495x4pDH7d7aJSZU
Z/EfP5nJiQvo03N0WmNCBU1K1qCQE/f//z8CqaqfViyqOHH/B1dLxGs=
       "]]},
     Annotation[#, "Charting`Private`Tag$24268#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$24268#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, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  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.841470663645808}},
  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},
 CellLabel->
  "Out[155]=",ExpressionUUID->"ad272391-a52f-4a7c-b71a-33fe962995da"]
}, 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[156]:=",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},
 CellLabel->
  "Out[156]=",ExpressionUUID->"b38856cc-f537-4b3a-84c5-f63840d338a6"],

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.7658567257319317`*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"8ed94229-7efb-4bc2-8595-c6e8b858ec05"],

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.765856725734412*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"3279b73e-514f-4c1c-a313-e2682c8a3679"],

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.765856725736867*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"dfb7987a-7bc4-49a0-91dd-7736f71bc902"]
}, 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[160]:=",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},
 CellLabel->
  "Out[160]=",ExpressionUUID->"b6b541a8-8c7d-4a01-b350-1d33ae0010c2"],

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.76585672581991*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"e941376f-af93-485c-8880-fbacbbb04648"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"Working",
WindowSize->Full,
WindowMargins->{{192, Automatic}, {Automatic, 0}},
TaggingRules->{
 "SlideShow" -> True, "SlideshowSettings" -> {"Toolbar" -> True}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[558, 20, 4467, 99, 75, "SlideShowNavigationBar",ExpressionUUID->"de7bfc40-0e1f-47ad-83f0-e309e061ddcc",
   CellTags->"SlideShowHeader"],
  Cell[5050, 123, 4539, 100, 75, "SlideShowNavigationBar",ExpressionUUID->"5d1785b3-56f1-427e-a99e-3b1f5fd9d2cc",
   CellTags->"SlideShowHeader"],
  Cell[10113, 243, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"df4362c4-c778-4a0a-9fdb-ad2c68680558",
   CellTags->"SlideShowHeader"],
  Cell[59385, 1269, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"0006c090-a3c3-4b22-b14c-4893c643794d",
   CellTags->"SlideShowHeader"],
  Cell[65875, 1442, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1def07cd-9f15-487a-8998-c99a455d8ff4",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 108938, 2253}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 4467, 99, 75, "SlideShowNavigationBar",ExpressionUUID->"de7bfc40-0e1f-47ad-83f0-e309e061ddcc",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[5050, 123, 4539, 100, 75, "SlideShowNavigationBar",ExpressionUUID->"5d1785b3-56f1-427e-a99e-3b1f5fd9d2cc",
 CellTags->"SlideShowHeader"],
Cell[9592, 225, 342, 8, 160, "Title",ExpressionUUID->"1507ff20-664e-4567-8326-649e27db10b9"],
Cell[9937, 235, 139, 3, 67, "Section",ExpressionUUID->"8a4d8dd0-ed44-4cdb-b60f-79e2b92a737c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10113, 243, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"df4362c4-c778-4a0a-9fdb-ad2c68680558",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[10260, 249, 223, 4, 67, "Section",ExpressionUUID->"a14eb372-10de-4e4e-9ab9-6e97b98e1c1e"],
Cell[10486, 255, 194, 4, 30, "Input",ExpressionUUID->"ceb04f27-0a0f-4437-a66e-51bb1e578cd5"],
Cell[10683, 261, 809, 19, 35, "Text",ExpressionUUID->"c84ca236-1b54-4644-882c-52d2f1d7eaf7"],
Cell[CellGroupData[{
Cell[11517, 284, 634, 19, 33, "Input",ExpressionUUID->"e5320ee8-2ede-4960-8f00-62f4469dac23"],
Cell[12154, 305, 12272, 221, 249, "Output",ExpressionUUID->"219ca911-1f4d-4f7a-8a86-8f7b6fcef3ae"]
}, Open  ]],
Cell[24441, 529, 192, 2, 35, "Text",ExpressionUUID->"e89ee157-bcbd-4cf0-858e-02c4835d8c3e"],
Cell[24636, 533, 1306, 38, 75, "Input",ExpressionUUID->"1dcc5301-6722-4135-b4d8-2ef19aca471c"],
Cell[CellGroupData[{
Cell[25967, 575, 290, 7, 30, "Input",ExpressionUUID->"d8a6874f-31cc-4c4b-a1bb-7bd82c6ea825"],
Cell[26260, 584, 615, 16, 51, "Output",ExpressionUUID->"76f19608-b315-435f-9c1b-d6a1ffcef41a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26912, 605, 279, 6, 30, "Input",ExpressionUUID->"47873723-4ee1-43f3-a6a8-d073435f8b1b"],
Cell[27194, 613, 1022, 28, 51, "Output",ExpressionUUID->"6fb5d528-8097-4f0c-9700-0858c6d05aae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28253, 646, 277, 6, 30, "Input",ExpressionUUID->"646738b6-d003-46b3-a098-f08a43cdbd62"],
Cell[28533, 654, 1053, 32, 51, "Output",ExpressionUUID->"ad1aaf9f-1a9c-4dab-972c-e242d1899b16"]
}, Open  ]],
Cell[29601, 689, 534, 14, 30, "Input",ExpressionUUID->"507f8928-7669-4ee0-938b-790af1cf0139"],
Cell[CellGroupData[{
Cell[30160, 707, 423, 12, 30, "Input",ExpressionUUID->"12b81e80-4072-4214-8e94-1b8a1400f6c3"],
Cell[30586, 721, 23846, 413, 249, "Output",ExpressionUUID->"877bda81-9fd6-4b04-beaa-4ab803268c99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54469, 1139, 691, 17, 111, "Input",ExpressionUUID->"34e780c9-ca23-4c84-acac-eeacebc25ef4"],
Cell[55163, 1158, 591, 12, 28, "Output",ExpressionUUID->"0c9cc895-4732-488f-b04a-da3428dfd9f6"],
Cell[55757, 1172, 593, 12, 28, "Output",ExpressionUUID->"6e7f6302-30b2-4149-9c26-e0f1b4193deb"],
Cell[56353, 1186, 641, 13, 28, "Output",ExpressionUUID->"6304361f-c15b-49a7-ae32-ffd4e2bed501"],
Cell[56997, 1201, 622, 13, 34, "Output",ExpressionUUID->"00d9de89-cb3b-4110-a30c-ad8e72e0ae7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57656, 1219, 618, 16, 51, "Input",ExpressionUUID->"bbaddba2-2c3d-4b91-be02-dab58269c3f8"],
Cell[58277, 1237, 522, 11, 34, "Output",ExpressionUUID->"10da864a-5833-40b8-832d-603550a483da"],
Cell[58802, 1250, 522, 12, 34, "Output",ExpressionUUID->"6440d95e-3b2e-4610-9203-89f02a299bb8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59385, 1269, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"0006c090-a3c3-4b22-b14c-4893c643794d",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[59532, 1275, 223, 4, 66, "Section",ExpressionUUID->"103ac60b-5178-464a-88ef-d7c893dae84d"],
Cell[59758, 1281, 181, 3, 35, "Text",ExpressionUUID->"7daab5b6-b7f0-4303-9e2d-09694c61bef0"],
Cell[59942, 1286, 689, 20, 29, "Input",ExpressionUUID->"79e07b66-c316-42e4-97cd-430b2c5f58ca"],
Cell[CellGroupData[{
Cell[60656, 1310, 691, 17, 114, "Input",ExpressionUUID->"d6e80600-5c34-47a4-8029-8c4f96025fa9"],
Cell[61350, 1329, 637, 12, 34, "Output",ExpressionUUID->"eb7392d2-2a4c-4f57-957f-27ea7cc452f2"],
Cell[61990, 1343, 637, 12, 34, "Output",ExpressionUUID->"c00bc3fd-5444-4d55-963f-d7ea353c3d62"],
Cell[62630, 1357, 668, 13, 34, "Output",ExpressionUUID->"fd1bde70-d289-459c-bc48-88deb635bca2"],
Cell[63301, 1372, 668, 13, 34, "Output",ExpressionUUID->"b7953c29-2502-4aca-8f90-ecb5394a7bd6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64006, 1390, 618, 16, 51, "Input",ExpressionUUID->"af782cee-ec2d-4530-b3c5-78b9bceb72ca"],
Cell[64627, 1408, 607, 12, 34, "Output",ExpressionUUID->"ed0f53e1-a70b-4119-8b34-ef55e61feb1f"],
Cell[65237, 1422, 577, 13, 34, "Output",ExpressionUUID->"a141cb6d-750c-4880-8f9b-f90c6ef51799"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[65875, 1442, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1def07cd-9f15-487a-8998-c99a455d8ff4",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[66022, 1448, 226, 4, 53, "Subsection",ExpressionUUID->"75dbcf98-ef11-48fa-bcd5-6905f7646560"],
Cell[66251, 1454, 583, 15, 29, "Input",ExpressionUUID->"3f57ac3f-8203-45ad-9733-21674f406b60"],
Cell[CellGroupData[{
Cell[66859, 1473, 464, 13, 29, "Input",ExpressionUUID->"f52713a4-e3d4-4c63-87fa-542097a55656"],
Cell[67326, 1488, 36027, 615, 249, "Output",ExpressionUUID->"ad272391-a52f-4a7c-b71a-33fe962995da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103390, 2108, 740, 18, 114, "Input",ExpressionUUID->"9ddefca5-e469-44b5-ae01-c00ba8db184d"],
Cell[104133, 2128, 612, 12, 34, "Output",ExpressionUUID->"b38856cc-f537-4b3a-84c5-f63840d338a6"],
Cell[104748, 2142, 615, 12, 34, "Output",ExpressionUUID->"8ed94229-7efb-4bc2-8595-c6e8b858ec05"],
Cell[105366, 2156, 663, 13, 34, "Output",ExpressionUUID->"3279b73e-514f-4c1c-a313-e2682c8a3679"],
Cell[106032, 2171, 644, 13, 34, "Output",ExpressionUUID->"dfb7987a-7bc4-49a0-91dd-7736f71bc902"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106713, 2189, 644, 17, 51, "Input",ExpressionUUID->"0de368bc-e0e8-4678-b8f1-180057aa2ee0"],
Cell[107360, 2208, 579, 12, 34, "Output",ExpressionUUID->"b6b541a8-8c7d-4a01-b350-1d33ae0010c2"],
Cell[107942, 2222, 550, 13, 34, "Output",ExpressionUUID->"e941376f-af93-485c-8880-fbacbbb04648"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)