(* 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[    127728,       2538]
NotebookOptionsPosition[    121162,       2414]
NotebookOutlinePosition[    122371,       2445]
CellTagsIndexPosition[    122291,       2440]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

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},
 TextAlignment->Center,
 CellTags->
  "SlideShowHeader",ExpressionUUID->"93ee4a61-4dcd-498e-8e48-4bc00f9a27b7"],

Cell["\<\
MS-C1650 - Numeerinen analyysi
Lecture 3: Interpolation - Different Bases\
\>", "Title",
 CellChangeTimes->{
  3.559948400406288*^9, {3.764562310742819*^9, 3.7645623509502993`*^9}, {
   3.7649891811937027`*^9, 
   3.764989217008169*^9}},ExpressionUUID->"0925bb47-94d4-4384-bccc-\
d07fa1f11c1a"],

Cell["Harri Hakula, 2019", "Section",
 CellChangeTimes->{
  3.764562359512897*^9},ExpressionUUID->"22c362c8-38fd-4f18-9b54-\
58e852700e4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"00de858a-d55f-4855-b594-ef1aba214b90"],

Cell[CellGroupData[{

Cell["Reference", "Section",
 CellChangeTimes->{{3.764989243269631*^9, 3.764989245375697*^9}, {
  3.764989397567999*^9, 
  3.7649893996390963`*^9}},ExpressionUUID->"9f8d8d09-8a7c-4dc4-b7b0-\
af65d2f687b2"],

Cell["\<\
Let us define a reference set of points for our interpolation examples.\
\>", "Text",
 CellChangeTimes->{{3.764989263217709*^9, 
  3.764989286822514*^9}},ExpressionUUID->"61f63c50-d33b-4c44-a99f-\
0157ad27891f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ip", "=", 
  RowBox[{"Expand", "@", 
   RowBox[{"InterpolatingPolynomial", "[", 
    RowBox[{"data", ",", "x"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"ip", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"data", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}]}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.764989289577147*^9, 3.764989387792758*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"fd493dca-3db8-45ce-8f42-be056e09d7ee"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"19", " ", "x"}], "12"], "+", 
  FractionBox[
   RowBox[{"77", " ", 
    SuperscriptBox["x", "2"]}], "24"], "-", 
  FractionBox[
   RowBox[{"25", " ", 
    SuperscriptBox["x", "3"]}], "12"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["x", "4"]}], "24"]}]], "Output",
 CellChangeTimes->{{3.7649893292062893`*^9, 3.764989388818005*^9}},
 CellLabel->"Out[9]=",ExpressionUUID->"c77138b2-14ba-404f-9cef-18ce71913ef4"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k4lU0bAPBjqaznPJYiKkuUbHlL2jBTUdnKFtpsqbxSJCkiS0giVISQ
EpVSKiqSkUTZk7RYkrzWcM7Jeha++/vL9bvumXtm7plnzFFx97E9LEij0eIF
aLT//zU/PPCpYvC08Y2D97Toe8ONhbcp+P5cbI9kT5bxu/pd0NpbqRnPF3ug
hS8Nuhq4Psii4euzzMX+aNAsOYgvFYYcPabeXF0cidTEi9RlNiWiztUXt8Uv
vo7uqiuujb6UjbIX7o6OXXwXxfZInnRTf4rCRZ6vvLS4CBUUvTEYt65EmjuS
Yp75FqGZ60J3vPIrUUuUz2B7TRGSahT7+I/wO6QmpP1QN6AYvWtYs/fpq3eo
mn9Xt7XlBXrw0+3PCfX3SOJvyjqluBLUbx+194nkB5TaGbSteLYc7ZiyuJ0j
14ic9t5+wmRVId2ElbMbI74g8bnwAzuWNaGuRaKnWk//Quo2owPvLreivAUe
4p5vBtCZxo0odfw7Shz/4l2QxURyRVJdAgI/0YawlU2HPo6jFz3b6psMexCe
J3iSc2IGVXplKu7904uEA3OHssVn0cQKI0bB8X4kUhtjYrdKAAvOPKQU1YeQ
+fSBhfknhLDBnOsLu8d/UPlIqMzKoHm4PlK/sVpzDJlc6JWscl+AlRKHZx6M
MtGHfY9eFtmK4uGpn11f9NgovK3t3GOuGL479LqWfuUvMpd00vdLk8D0pffG
envHUfD0uV0qXEmMHS50/h4cRzIy9w51z0livwSXup7RcbSuveBwhjAdtwnI
3+ueHkcO1yV0xOl0nNUX49whMYE097k8e6dMx7qFXg2f9SdQ0Kes37dM6dhq
m+7DysgJ5Cyf4TwXR8dx/xYfyVabRJFGbkf0pBl4CBfEiGtOooHqKMWgRQy8
Qz43P2D1JMo3M+AQBQYWrLk+arlpEnXEv9XDyxk4UM0/YGb3JNK45uAlrc/A
R36uibY9N4noB5Os+fYMvGVPYa5wC+QbfSjff42Bs7Tv1/h8nUQe1WbORTcY
mCeUPfijYxKxb0k+D7nJwK+eJeg87Z9E2uPD0cI5DKxL+RQf5E+i7ZnelT1P
GXhJnc77FxpTqDxOv6u7kYEn8cNez9ApVFNwy3hMkMJld4dvnomcQhEqPH6g
MIUjRLTtoi9NoS3LnnMF51OY3vzobc61KbQ+XOYpQ5TCK1weZ3Xdm0KWG39x
ZRgUdgh56mTfPIV8sotbaxQoXFzysh6pTCPLSPnSH3oUDlo6fWHXimn0/Mcg
0V5DYRy+YfNBrWn0LLmIG7yWwvU7Sx4ErZtGpk2GsvIGFO79WhpdbDaN7lMO
lRs2U1h28g3W8ptGQzciO5ebUth/TVXRonfTKK3d5PQtRwof0VfOTvowjUp2
0ZSanCjsZBB8WaJxGonfPZrH20vhzZv03QW/T6P6g5pWNgcoLLj1LmN0FPqH
aPztdqVwgk2k13uFGXQw88rRtH8pHGbXvQcrzyC3x7SGPC8K++0x3PJafQY1
TkpIPDsG6907LvdUbwZ9R/yFlccpvMTN433G9hk0U5Vk++EkhfN9TZT9/WbQ
2c6ATccDKZzhly0+dmYGKZV5LnUKonC8P2/y35AZZNNg2obPUdj3bFGDS8wM
atj6+4N4CIXXh6mds8iaQeW6BQ8vhlG4KkG4TbV2Bj1yadwgd5HCL5Jc32Y2
zaDb6WvdfoLvXyt7JP9lBq19sP5AbgyFL9/wv0DvnkFL8hw+asZS2PZWrx5n
YgaJBGQFKcZT+OfjqsufVDgouk2cun6Vws0jwn/WrOQgK8nvuwyuUbhC29Ty
ujYHyb64drINnJ3/XsJxPQdV5um4U8kUds+rju+w5KAJ6sqw1w3I/9/8USNb
Dkp1dzblgbep7dh1y5GDIhZ0hV9OpbDanRq6uzsHbRO1u5OTRuG+zA8J/Wc4
aLX2bHDpTQq3dYgwd4ZwkHSb3sCmDArXKJpZ50dwUGLWsH4J+H7aR+p4PAfF
l3v7PcmksFdybRL7Dsy/4GtgxC0K72sVY9vd56DHRhdGWGALGQvb4gIO6rqd
t8Ulm8LaSXXSZ1/B/K58jl17m8IjcfXX+A0clHzLOrPyDoW76iTGnT9z0Kvx
rVIqORRuFLOyr/jGQYffPPcIAT+OaZC98JuD7lanP1h9F/YrsjFZZIaDLK/u
vR+US2HXd/TJf2c56F273MIPYBvB3Q51QlzkpurnKpNH4TVhTYuu0LnIfmPi
1Rzw+LnmGzJqXNSTnumWfw/Oeyk17b+Ki8qdPCr6wF9mrJ3adLno8EUuT/k+
7PeZT/JpG7ko2NiQkQDOeyEVyDHmopLVL3srwTcmbL7vN+Eiz0O5N8bBZ0+1
pC3bzUWDdhHJNg8o7PlMmhNqz0UtDqbdweC9LNt9v/ZykYWGmkge2FzvWulW
Fy6KbBaVbABv8vmscNeDi/Y9/zXKAms+ljk3z4uLjBNvFMjmU1hhxK79iA8X
uUbIma0Dc71ab64K4iKDzpWLfMH2BgeTdEO5SHVpfUoM+JFAX/TaSC46sJ61
6RZ4XsOJ4A2XuOjKyRjBIrBz6tRJoytcVOVwYaQa/PJQ2NGt17jo/MvP3K9g
arXowR2pXJT/4JhOP9iTk2RrmclFGTFGEePgt+8Vdtrc4aIlE5s5c/+fX1KO
kcM9LrL9sjdZ9CF8vwe01+5/xEW99rF2UuC6lcUark+5qLu3Ql8OrPbXaNnh
F1xUtJm1QREcUl4t4/Wai0z2MFyXgtsu7Rb1qeCiUT9G/v+tu+fb7Kn3sH7F
vkVLwBeV3cbP1nJRs0JMnjy4e3hwMKQJHDHkJAPe8NLvZ0QrtM8X1JUAJ0Vw
Wy9+5yKeTrW6EHjIKrI2rouLgsY08TTMf9tiyYqk31C/RStDhsEZvcnFKQNc
9IL+tKMDPP5k2cObI1xkeZk414Otzt3LzmbD+bhgJlQKztuul5I7xUXb9bfX
5oJnpUou5/O4iFIueJ4AduzcEv5EgIeK6AHkDLjwfm1A0XweCpBMGzkIFvW3
8y4R5yFhH7rxVrA76nArp3goqK6xUA0s0zZi+UGBhyr0ZPm/4Xx43w7Y2qDE
Q0NVl9sqwFXec+tb1CC/19qWm+AAIanlHbo8FMfnrLYENzWmyf9ay0NOtxlX
VcAa6ar0vg08ZF5ltGgCzu93Pf2Zsa08VMlsiUwBr+GVjY7v4CHvDj0fD3Bs
jWnvjCUPXRVPOacHNnR2bBJy5CHl8SOcSvh+bl0OypU7xkMrnGsSPsH3Nu0g
dHOJLw9JjwnEJoKtVeMSVU5DPmvtPCuwYEnmOa1QHlJgm5lUwvd7uK/CBl3j
IdnuS3LJ8L2XPzXbYZLKQ2FGqiqm4EUhLYZmmTyUYnfX8i/cDx9kelfa3eOh
gaqjouZgrS0LZo+85iHDfFGFX3DfFOY/XPmtgoeMow8rBYH1Za1tzKp5SGx3
M5sCG/an3tX6BOtN6xbaAPfVrnhNC2YfDy157t50LIvCLZON/m5/eOjAxAPT
v3D/ObqeymphwXo/qMeeBbuuLWMV8XiolfElJBjuS7/vVqmB0nyk9qqD8kqn
8ORW9tshOT5y9kmc+Qn377lHKcP7l/JRtMOLQjtwZOhPY2MNPqLnnI/Vh/s6
Rf3kf4LGfKT7QmmkHe77kpPX18T9y0e7klvOvk2ksHH7hgP8E3xk/e2XlSy4
0qQz6oQ/Hy0LWcH2SKBwrdyK79ahfKTRFn9/Dv7fdLx5GbowmY/YGjcbFS5T
mCbWXp9VwUdVq5cxBiIpvOOOytGncrPIWvMXsysA6pNKX1G9ZBadf5EvxDtN
YeUr3N4fKrMocVvfajkwJ/CLu7D2LCrLl/iy4xSFC2wuOTviWTR774b9VR84
nwKsPXzPWVTlmWlUfxT+37lUmJiVzqLmVJkTrQ7w3thTIORMZpHg4fKfRXso
/MoivdKvahYtCdY7cc2ewlfX++OMxlkUsXPgl7kthU0ZGoZjPbPI6dwKjRwr
Cj8sT1ibLD6HYi42WM5so/CZpS6qvw7MIY735hHD1fC9WOs5dLjNoWnVB9ID
OrCfFwRivx6ZQ66x48eStOH9NJjDavCdQ+4Gb0q7VlG4tWigojRyDnUY2jYc
UqOwnqWfy/VHc0i+xmxQbjGFB4KiMnbw5pD3Tn3lVQJwXzhoed6m0XDcuhxl
gzkGdmXKCCoJ0bBTzIpTi3gMbLH8v3UKIjS8QSXYt36CgVUvXcykpGlYf+JZ
m+QgAzfb13vz1WnYt/Ribh+8B7X/7BH/akXDZ+X/EfsL78tX9pYk1hriD21y
5a8z8LY3W08Z29EwditT3pTIwPuurG7PdaLh60V3Sn1jGPiSnuhD/0M0rLfF
KPbRWQbu8y8zlw6kYeZOVzkXJwbO5qvGWt2l4Q9nbOcVyTKwDIMpUsWhYf9j
uadwOB23vIm9aMan4ftO/sYvgun4qrf6/KY56G/jnaxxlo6la/cJ/RAWwBkd
64cEfcBR7/ljdAHs6TeHrhygY4qbzlZcLoAlWv9Ro62nY4l+045TFgJYLVhP
a8+gJBYmN58szxDAZSf1ewe2SeJj+q+/i1oIYusXilsLCsXxQzP37PJJQZyt
bRv88I8onhhWoPpShDC2WtA8Ky+Ci+12CF03EcavLimH5jLn4dCdUbeK+oQx
7YfcyGCNEFbpNP+WEzUPK3M2zq+NE8Cb1kdeX7xmPu6ueTqtRp9FB5Y1zQh8
no+zqxROOBrMoIna+B7f8AW4IstxrdmvvyhV2NnfVk0E06o/ml6pGUEyXcV3
BKtEMDZNkdZV7EXzQsLtN54UxWFrJG5xaz8j2gPnJz3SYpiGJ4y0rdKQX/qT
eOlKMRxW9LrNsL2ZvNGKEZE6IY4r0nX8d9zqJgatcg1XfcGNExac192kMPhe
kuwpcRw2rmCd9a2b3GmoVpA/C3Ed5cISqV8kxmeejlIEWE0hyfDCL2L7PMJG
J0Uc05a2/vQ81EP6N4Wkm5WLY3x100Vx+V4iZe6nHUGXwGHfLLOYu/tJ9luG
+CYpsG1rXZ5XP9HbWDDIkpHAuOyC8s6ofrJLYyDPbbEEriirErQs7Sex851V
tqhBvIUSdFw+QITfmS2ibYK4PZXhzRogk5tVaOcPQ/zZf6paIUMk6nl51zpP
yC8Ue1cjeYjIah14M+IlgWnrpt0ZBUNkrcKNoIO+4H+XOaV2DBHfaYkJw3Ng
O1fflE3DZLBoepCbCF7gWryOPUw6dJo/B5ZBvvDy71d3j5Bbw1IhQgTGl5Ca
1T80Qtwf2K2IfwuOCU55GzBCBtW+ns2uhv5TvWNpmSNkUrFraU0zmOn1w3Ro
hEiJ/Tkq+x+0D7BfExo6Srb3LeA9lpTEYektKUvSxojoXbPcDRSYnzVv/MEY
qXe7vKtSWhJXuB/ZXlQ6Ruw66be/yEliWriY6Fj7GHFtXbidpyKJlaNlqDw6
k5yrXJ5oZgD9lZaE1FsxSWEWUut1ht+9IyfmUe+Y5G/Q3wVubpK4O/3D1u8f
mcTA8d5w5yHIl3QuIaWZSV4zGM+/eoIVzhuNdDJJdVjXljo/yL+jcKPYNJO0
u4e4PIuGeIDuUv4qFlmG/tm2+hLk2z1gK6zHIq6K/614dBni3Kp/5taxSN9n
y9HcRIgH6X9q2sIiTJMlIWnpEI/+1NPuxCLzV75OD3sMZpc/SotkETMhn/P8
QvD2FJ9vl1gk7qeqe9BzWM9HK3+xBBaRSo1d5f8K8kl6rtqZxiJLRPe9OloJ
9cndG7eqgEXWDE9/2dUG8+VuiTjfwiKnax6V1H2D9Uf/4zDaxiKvclwzd7ZD
POCZkE07ixgd+OCxtRv6a+l9Gv3NIjsbbvxdNwTxN3vOXx5nkYNPDKSWzkJc
rdBlmwybvNg3TW+m0TEtuOSklhyb0OeXSlwQomPlIu84IUU2qThgJDIoQseu
s/ySC6psoipmMlckQ8fdpi9F3umxSVDxPP7RRWCpeac09dnks2sNR2ExtPf/
5074ejaJfGk+GbaMjrPfqunMGbFJn4fNiOUqOsb5igsMzNnEmJIZntOC8QLp
+QpWbHLjdevAM12YT+HLhtHdbLJT2qlXXp+OK+7z/Q/vYZN84tzeawztv76y
u+zCJoLHlL/f2AKWr5UYdmOT/Yt62sxNwE8kBDd5sInE8cMthWYwPqk5n+vJ
JicUvD8G29Nx2MF/mp/6skn1e52a1Y4wnvvfwFg/NlE6OVbVsxdcLaxo688m
zTV+FTtdYL5LLyk/PsMmGqf0y7luENd4dmprIJuEL5t8/dgD1luZcvN9EJus
OR34UtYL3D66PTWETWKVNxfXeEN9vkiU9J9nk991vGdBcK9n79ncqR7GJoZn
ygt1/CA+VZdvG84m11XDHnf7Q/w/+uITEWwy0rDl0bUz4FZbpbMX2GR7oFD+
9iDw/P+KfCPZZKopOvdRKNSHo3JMJ5pNrM/tzHGJgPHnXIJY4PsrxG5LR0G8
Tnoy5yKbCLTUZb2/CPVxDftiEsMm+0LiM87GQj3MRhit4Gcau9O14iF+OyPD
5hKbiLdSqV0JsH6JZr83YI/QluSkqxB/U3NJLpZNyjSvXzNJBvtVfnMBy7bt
SZq6AfkC+A4p4OPhcgn56VCv20XcUnC19ve4g5lgB9XyBvCyb+mxVDa0jwpN
bgQHXDgQ8+4O1OOhUOAbcJPusuiAXGj/udclHazx4+eFVfchnuC45TA4LOp2
eEc+1EM4QXYZWPLMAnO3AohvTNpbB/NN9zwu3fcE8l+T+OoJXrHv8w+vZ1CP
NV+jJmG9zy025owVwfqWVTv7g7HRrWP+LyFuUrCvB+pVrztPf6YE8p918cPg
vcrHeCFl0P7046wrUN8+qU9VggTaf/f6Vh/FJn5C6+MvvoV66HrIc2F/5sYz
9khUwXy6PB0Xg+W/efYt/AjxmA/F6rC/uR8bH6fXQfxHabUM7P+a1/pnlBph
vob9JaxQNrHIooms+vz/80hphsB5+pZwpLngC4wflJGqGQz7EV6fuuYbeE9o
fQ2cv/MeqasMO6F/yP6jn+C8ijnMsip+wvxifhCjAPi+dniUmvZAvg1lFWlw
vgs19Sx298N56cnLUj7JJkZLUmRaB6F9o/ZxCx82qZXktTv9ASNGzeHjcH6Z
Nd7uLOh/5uuc579ssuily5XTXIjPf1Vy35VNcu6/d+DwwTe95XY7s4leupZS
KI2BcZ5hde9+NjELmXoSM4+BaY9mZjod2CR4W8KnmwwGrqhdOzLfkk1E102k
KUuDKfkFK83YJGXFfvdceEdh68T1BtvZ5Inoyr+PFzNwt0xvuQpmk56mctnK
5fDuijyRpr2WTXzeqnVuX8HAykus06tWswnvWWxunQa8G99NBVhos8nCFAeD
Lzrgw0vz1NXhfjkw6jiwHsYzV5EUX8QmBQNLb9ItIT/r36hrcF/GZEa5du2C
uMEI88oYi3jYjqg/toHxas8f8x+C+7qsrNDKEeJ6Rzz4P1kkNmF/dZw7OEVu
2/xaFvE0SGOJBUI+x8mMIbjfTYZpL3+cg/WX1ytGXGMRpWzP4PzzEI+zFhKK
Z5E20Q0LzCMh//64nopQFjHtbFtyKQH89X6ZlgeLqEbK7lyQB/MvDSos0mCR
2Q3Bkl/vQ3/F902dyizyfeR3S95DqFdC3pMxeRZJdHx+cPtTsPlIdIMIi8xp
2p6KKoP53XU95tvPJB2fErKEPsN8Nk9XmWUzyavoqUOfv0D7k2GTMylMcn2z
y6qcbzDe+Gfjq/FMYpGrW7S1C8ZT1h0MCmKS0rMNH8PhnU1TiwnUsmOSFJ11
CTZ/wDW7DRTNmORkT4a9yhi41qmIbcwkGpbePyvGIV+42UcnTSYRFmi9mzgF
69tYat6vxCTdxZu9XDkMHOZ03v3gQiYp88pZrceHuELbvNdiTHJDSXxiDn4H
4Pk0TRqNSf4HDG/GXA==
        "]]},
      Annotation[#, "Charting`Private`Tag$5011#1"]& ]}, {}}, {{}, {
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], GeometricTransformationBox[InsetBox[
        FormBox[
         StyleBox[
          GraphicsBox[
           {EdgeForm[None], DiskBox[{0, 0}]}],
          StripOnInput->False,
          GraphicsBoxOptions->{DefaultBaseStyle->Directive[
            PointSize[0.012833333333333334`], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0]]}],
         TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{0., 
       0.}}, {{1., 3.}}, {{2., 4.}}, {{3., 1.}}, {{4., -1.}}}]}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}},
  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->{{0, 4}, {-1.158888420083116, 4.167105347817353}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7649893292062893`*^9, 3.764989388980633*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"3a04052a-d488-4ca9-ba5f-e05aca689670"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"dd5cc947-047c-4ab5-8a9c-cd755249f4c9"],

Cell[CellGroupData[{

Cell["Lagrange", "Section",
 CellChangeTimes->{{3.764989403344892*^9, 
  3.764989408369767*^9}},ExpressionUUID->"00b5501b-623d-414c-87df-\
2d3dcd60a664"],

Cell[BoxData[
 RowBox[{"Clear", "@", "LagrangeShapes"}]], "Input",
 CellChangeTimes->{{3.7649897716485*^9, 3.764989777897717*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"d715052b-7640-47ae-951f-32b37519684d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LagrangeShapes", "[", "data_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "len", ",", "ind", ",", "local"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"len", "=", 
      RowBox[{"Length", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"ind", "=", 
      RowBox[{"Range", "[", "len", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Product", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", 
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", 
           RowBox[{"Complement", "[", 
            RowBox[{"ind", ",", 
             RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}]}], "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "len"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.764989424175308*^9, 3.76498954406711*^9}, {
   3.764989603640197*^9, 3.764989754101439*^9}, {3.7649897912741947`*^9, 
   3.764989811130378*^9}, {3.764989867630069*^9, 3.764989893382422*^9}, {
   3.7649900741919193`*^9, 3.764990083617976*^9}, 3.764990143455703*^9, {
   3.764990173696783*^9, 3.7649901790729523`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"7b690f4e-f3b3-4621-9402-e2dee27811b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"LagrangeShapes", "[", "data", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.764989681663411*^9, 3.764989688177668*^9}, {
  3.764989899754929*^9, 3.764989912257547*^9}, {3.764989947595186*^9, 
  3.764989952205778*^9}, {3.7649902158907967`*^9, 3.76499021788383*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"d991303c-5d4d-4a61-acac-61832821a2b9"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVmHk8lN8XxzFjiZkhW4iE6muLyk6cGxKJJCIhijYU0kq7FGXJNpasM5MW
2XflSkRJpEUbRbLvzFgSv+f3z8zr/Xruveecz+fc83pmFA6dsvfm4eLi+v/H
/793eg+8rx08Y0LnL2IuL48D2UzG/6e0A6im7t0jPjwOWhlJ94ulvWCtzrpN
Wz6Pg3VLR1GadBC4i/tcDM8dByev2eex0qGgJWWzyNo/Dp2at8wipePh8BmH
u/GlY5ApsTssQpoJyTdcWLpBo3BNoPi/cOkSSE0T4+KjDIPz/qz8icl68O1u
KL9s2QdCy9dcd6xphYjLlxwU3Hpg/Z6xgZd3PkLrBFmRm9MJ594ZQNLMVwg+
5xIoENsBq0pWdnFz/wQaf1LRHr92cL3716FX8ieQ7nTte+LcDtlef5pfqf+E
pc9GKaLm7aAuUVl5x/kn+AZkDK5Y3Q6mZz0SJAp+wu39izKpr9+D7n2nB/Ga
vyDa/MJOM5X34On+wO1h1y+Y8GQa0f60QlmP2dvWrT3QOrZl+bpTM3y2vDYZ
uaMHOozmBJ11moGTVyO5y74HyEqZQ+ZizaAXbODZdLQHftOB60jrG6gQ0+TU
xvbAcZH8K/WWb6DSXGZt0UAPyMfq5A7Ba3j2YOJ0fPxvMI8+MpcCjVB3Im31
/pFeOPxelx5x/SUUD/r4uHN64d2yfj776EtgHjOsPsz1BxpDfcJO27yEm0c6
XE6K/4HUW4cdc6ReguWhlSk3tv4BZ7Gpx2P5ddC6/6ZU3t0/8Mtc+Te7+wX8
sPSTIG3sg8qZaOOSvbXA3mAs/NSvH6J1e7Lqv1SBSY9pY8T5fqDNh6u3PayC
sDTLK8du9MNiNiuDdKEKJMUdxpWS+2FL0Km5bukq0OX2aU2p7weFVXduXnSr
hPPfk6Jvrx4Au9J/2UIj5bAYPSPs9XoAOj65WGhtKAWe+Sciq9cPAfeb7brv
BAtgdYvpNGgOQR+jxrGwJR+0s75+8jIYgsM7Oi3JYfngbcWfmmczBDyqOj8P
z+ZBU/Kh9aZnh0CC9qWFr/MpRBtKGx5vHALyxIa2l8VPQDYk7HD58WE4iuGQ
a1QO6NjJWfw4PQwDNMWWfzY5YLuuRJn78jCoyEZ0faXmwJW33aM7Y4fBXf5r
+LaoB9Aja3y+q2oY9NaIS769x4JHz6fv8lJGILtxuaiMwQDdZY+yvXkjkJpw
YNGuNwN22dRe314xAvfziqckgjLgcKr8br26Edj88YXVdnIGxOh19ct8HgGz
ADnHnvXpMHjqgHTPvxGQWyq5KnLyPtz/5RjibzMKu50+WomKJgN33U7TyJFR
8PAovbsvJxakRB7TrnBGwejhgQkB81jQcF/x3Z9rDPbJfc6Q774HLguNpx3E
x2CbgZriBdl7ULJlO2v11jE4ccJmOE8zGo4wQODxnTHICr9I0jQNh7eh2u9e
qY6Dz6OUN56TwWAo3MxzT2cc6JKiZnvOXYSHyZ56B9A45GpGkf4tnYcbeVGZ
447jEB4amXFT7CwYfhkIlLo2DtSL1HXb9vjDQ7W0VSc6xuGc22swv+gApoPX
C/hMJ6CuVFL1N68/vqDx7o3PjglwOKjjrLszABeclv7TtmsC+K2TXwzdDcRr
lvKlU50m4HVHzcBF6hk8L9p5XdNvAuy8W8b2/L2AC7bqOTonTYDm6z359g3X
sHzM8PyjsQm46X/hjgSOwDWeVx4VTU9AkfmmG0JwB7trie2vnpuANIn1h/bX
3MH3PxtWvOWZhDhT2valqrtYSi7i7LjkJLAVDrHO5kZh0cfK09owCRa7VLr1
9e9h3nrvERw9CVXPZ/zDcDxmJsynNsVPQm48l6QzOx6bH420fp88CbsCs5y/
qybg64Klj3sYk+DegI7PxifgJTvycd6KSXh0WzopwjsRz3Vm/9n5axKeHfSm
mM/R8fDsz65Pm6ZAVkvbVP9PCi47Gl23U3cKUlzXhFhJpOKrHSYPsNEUNPob
SPNuT8WS5Wl+jyymwIss6RLCSMWmZw8shrhOQV/b0JK/632cMvNZet1tYv+W
jOHsmjTs7RX2LylyClzi9dcFDabhTR91uqlxU/CmWlBjWiwdvyqOfzibNgXN
1zhRf4+m48lAe73m4inYgDadNaJkYMvJFofAn1Ng0u5H/6CYicU8L+n3905B
jvrBU+U6mbirTV3WdWgKLrWQfp22zMRBBXd+b2dPAWfLRc5Zv0ycccoqUFpo
Gqr71vQ+LM3EnNH66FrdaRhjPxT6YJKFmUPVb2hR02Bro+Yzr52NT9J3K52I
mwaa4ovybtNsrGf+O7ghaRoCsti6OXbZ+E2a4MYQxjRcTjPTfOOTjSft9kcP
VkyDp97OksDMbGxSztlb/3sazGJSPQ+TGFjAKyJXfnAa2vS+7FAVZuB2kTW8
wWPT0GI6+qdVhoG9T2wv2zw/DZwm6uPyzQx8Vy5eKoM2AwUmz6f/ujHw1xub
Oy8YzMBxm4OhvgUMnL2pQeeTyQxs+5T+n2oVA/t2OkdtMp+BhNRr3E0vGZhL
7yr0286AfCBPBfMzA28Yepfl4DUD24fNXvUuMPBE4qGF/OMzkComV/qAxMRV
Zhx7oVMz0OSQQLeiMLFNmhy57sIMHPp4JGGLHBMH2fke0YyeAQ0f4I03ZmKT
f8s1EfEz0EueUPDYzsT8j+NW9SXPgPu3jFGqDROnkKqb7jNn4KGw1jjNlYlf
lK1QE6yaASlz/Q2PzjMxTS5nvLd3BgRW/pdjn8vEaN+Nzt+DM5D5/OtQVyET
B0YfbO4Zm4HXG2pF7MuZ+DO3VM6vuRnQlzxvM/qCidP7brv/oLDhiF7xvflP
TNwm773r+0o2KOSYj9V8Y2Ke/dsMv0my4ZeM2gufn0x8pHle4staNtwyeiIW
MsDEGgUnWj5os2HtKseTF+aZ2GPQorrdgA0+fpFXQ/4xcayi0qP3JmyITiHf
P8rNwpz476GtlmxQG2nU4wiwcM2FXVubXdmgLWjMPSvJwhNFyqpvPNkQ1qDs
ulWGhRVHyFKvj7Chp5TX/oQcC4e5P59+5c+GbWPCTleVWNjGTONJXSjx3LSm
NlGDhS+HCCa/CGdD0da8UcXNLFxQ2hdWG8WGDY6CFklaLCyunHGoJokN63/1
15ros7CFZ7Dd8zQ26OfY8PsbsvD5FCeTZ9lsWNQZqI3YysI/KCIyVblsYDTb
fgpBLEyzGOGvLGTDBf0vex1MWRhdaWKXl7FhQH9lpIQ5CzMnr74vrWVDkH7H
WccdLPxZ1Q2XNLBhPG9h50dLFtG/Bk+L37ChPmdhrfFOFvb9PHm78CMbtG7d
km7ZxcLpwu/OFnxlQxLnxsEZGxZus3zsld/Fhol5ozHe3SzMcz3MPu83G0TV
DnRw27GwdvUh9HSADWSL2+oDBB+ZMdHIHWUDR9l7uWIPCydtXC37ZIoNth+j
PIPsWfjNkdkVj2fZkHgizUtmLwsvZnyYfbjIhvBN62SeEKzxNf9PDjcHRCML
4zY4sLCH6N0PD/g4sH1Fa89dgmOtj71gCXHguB23dBfB9aHm+UwRDoxqNu2Q
cST8fb42jSHBgUB6+tVtBCvPLkZky3DgZdLCx70Eu2z6ej5LngNfj9rs20Pw
3eOlRzLXcaDLhSRpSPAQenpbSJUDoOcdvILgHVKsx2c1OfDt8pPMWiIec/z+
225tDowU/ks9SDBPY/zYLkMOMb9DbvQR+Xuk3xWpAA7YaJr6ORJccyZ0i9J2
Dsy2eJ7KJeqXtQlxiNrJgc9cAxnDhD4X1gWdnd/NAaH738TFCP781yfJy5ED
JeX6vYr/1/fD4apWFw4M5i8orSb0j3184IehBwfwOtGhv4Q/E9f2LrG8OWCx
cHxXA+Gf7X7rtSt9OHDTuc/jnDULP9lkZhriz4HrT7yMRQm/j/zcEmYfzIFi
rWoWD9Ef9WWqD59f5cCneHU35+1Ev0cpvlEO40CSabsW3YyFO7eK0pZjOPCo
MTuhDVjYUFxw04lEDrwY2rSr2Zjwd5jb/lMqB1ZMVZ7PN2Jhh5TJhCcPOHB3
k0GEth4LFwUMlkvmcuDIB9eUT9osLGzV/fVaIQfKNn8+67GF6IfZNjnnZ0Q9
v78NaW1k4W2OBSxyOwfy9yhLfVQg+lH9YeOpDg5EKK/vbVhD9Aspc/DbD8Jf
5aH/slezcEVR9MbCfg40/+H1lZEg+kfkVKnbPw5E8t03oPAT/vYf6WjimYUX
82tXOZAIf2vc57UEZmHf9c2St5aZmOVnaywoNgtBEk4tebNMLNu8saFMeRa4
TvX78vcz8cXs9f0KGrMw7KrGfNzDxB0X5FZEas2CvbUwy6CLmC/KVJvDJrNQ
c2Kb02pifq0IG/ko7DALhgfS6seJ+cZBT3qPXZmFFuuY/jE6Ez9jDqeeC50F
M6nD+ytimfi6gPresPBZsGxJsw2IJOZpW+4LRtws3NDu5C26zsQbDuald+XM
gnqC93l/Xybed6nQ2aFtFvwken+PbyXy7Z4UPvxpFpYP1NtW6jJxj/mWxoBv
syBfSN5+ehMTn6QU60T3zkLBkwnxSiUmDkstEX0zN0vMG2/BqBVMXFpZ/hYU
5sDdN+SiTzsDX5Sbu2G7YQ68xhL1tjczMLqmb+SmNgc+KqPXReoZ+K1l5aOL
OnOg32ZHDill4N6OqrBSqzlob5nyf0hnYHHOc6QWOAdFwc1fvPYzcNCW+hLJ
l3Mw/KtR+Ft7Nj6ivTbzXtMcPPddk2bxOhs764bcobybg4eRqqFMnI2NDLUP
8Xydg1yVe0+1c7MxjylTeGxsDn6c3BX9MDQbR+8JPdEgMw+5ftw3x7dk48f+
5muDAudh8O/D4Ks3s/DPvPo77xUWINlFOfw1XyZuGyWPbPlvAVx6CjZUzWTg
WvXtu+LVFyA4tPVfy/cMnPm4geKktwCWtJGLzx5l4EMPXkX+2LUArubItcI8
A/elNUX3n1uAvyW2o5bn0vHo3bdx/1oWoGHJQ6Wk9T7+e+JjqsrFv5Ap7S6B
HZKx2jb+pSPVi9BZaClx8Fgs3pGtcLRw1RJcNbp6i4lu4nNyBxW7XZfhbwSP
k1K+D1YfcRTqsOFCCdZf7UpOHAcx4QmB+gUudKdtftt3+xvQ/jziltU/LuTc
eWmo6coNiPVdz9e6zIUcy44mpeTeANE3LqRvZG5EWlZkDvKGgujNhn/jNG7E
LZXRqVUeCiJ/U6ZWK3GjyDo9DS/xMKD0b/9x2pob7RW0WRVXcRveJvxymbch
9tclWHzsvg13zYO/XrbjRuIPQjI4guEglF3wOdyRG8XIcs51uYaDoNvq9xkH
uVF3frWv/nI4CHyYaGg+zY2MX3NP8pjcATJOzVe6z41+vRf6c4gRCd+2mlv+
TOdGxb7B92uaIyG/auRXShY3apwD2enpSHApMxYVzeFGZ+QXxfrMoqDw6c8g
riJu5DbcaD7ZHQXu95UMOxu5kZFdCa+5UAxUXHhSnzjNjbbUHZi8s+keRM3u
dbPncCOF/acGNE3vweEzi2zqPDfSqhL9XrP3HtACbP67ucSNRKtTw9PO3gPv
Y+Php1fwoNC8xhHX6nsg6qS1206eB52ObeX+jmLBR7v66wprHlTJHpiJMYqD
2rZPuRU2PKiJ27zMaGccSPhNXDlqx4NEtDaJvHeOA8xav6HBkQddsVjrV30m
DsRWxQRe9eBBTxymBiPz4qB63kto9gwP2hl2jqYkGw8iiVe6WOd5UPfNM1mn
VeLBe0tKoUMwD/qgE2SXpxsPwj6tTkVXeVB2j/ifbrt4OPzDgOl3hwepnlRY
sy00HoQwzbg3kweFJXUwvvbFg8cBFZE4Bg/qvJ+Y2TQVD6WzZr+3PeBBxo2V
VllL8XBw04XwjCc86F694C1hyQQozvr9yaWMB201rJ3vMkuAA6EVJ98386DP
m5CVeWoCPLE6lFnD4UHLne1hy/qJoK2uYALzxPpBl6Mh2xKhhvbrO/5LrH/r
YfTHKhHaPritesFFQpeVxp5edEmEGbf9US8FSShVz3d3ycVEMAm0C2laQ0Kb
eAX1DpYnQqODsIyVAgl9Fs8NTa5JBDu9d+WvlUho3twtAjckwqFF6+k3yiSk
e/ZYwbsPiXArbMeJli0kxLs+R3B+jIiXYuLcbkFCHVVS2sEKdNh/6R/b3oqE
4rJOXTv1Hx16Dj6L+2BNQtsTtB13b6TDzDrD1o92JLQ2ZDb0vT4dpPN1LDpc
SKhOk1b105YO2fdmfju5kVDlK+NxTQc6qAcVX/tykIRuLZUn+Oyng4nB5udf
vUiopLNEnXWYDodeqmv/OElCO7asRArn6DDMGn7vGkBCGwVin70NpkPQ7cen
Ok+T0Jfgp/TDV+lwy0b5Sdd5ElK9LOm5N5wOuR1Kit3XScip7CafUQoddKp6
sOdNEgrP9jHelk6HmvtZbj23iPix+XVbsunQ5imf/PsuCSkGjRZ0PKIDe1hG
pC+RhLayHw0pV9AhPq2/8X4yCY2vUAl4X00Hrd0lV/beJ6GvFaL3PDEdAops
xmuzSMhov12C/is6iHjJ5JxjktCGE9/PXHlNh3yJfneNHBLScICBp2/pMHr+
6rvUXBIKWpUQ/KKdDndVbcLs80lI7rZq8oNPdFD7IW2yooiEarh+bTv9hQ7H
ofjp2XJCH7dbGi876fCHt+/unjoS4tvfsMu4nw6h5UXmAg2Ev0XzKe6DdFA6
fmWxppGEAk2PHj86TAfPt1K+6i0klKsTcl1znA5cl/8o/W4loaYkSvPYBB0y
NIu+J7cT8Tc9jE6YokNnrLU1/xcSUpI/Fp7MpkOIuRSp5hsJKY91P+Nw6LCa
01sV1ElCIr9WHjeao0NVTmGg2i8S4k40jzw6T/TL/suqPT0ktB59VA5eoMOc
oHVP0h8SYqQpG539Swf6s1UpuwdIKG2x7KXzIh10T/bu4Rsm9DbkqVP8R4dP
8oUrno+SELMuRecjwUHvL704PUFC7Jg1a/yW6CB2Y+cF1WnCX02D4FGCi7RX
be5mk9BgGWOX4zId9vT9HqDPkVBz67pYJsET9IJM279EfxbGWH8nONrqkjPv
EgnxK7w+P0+wxl8rkWdcZHQ/6Ln0MsEtuZJNgSQyIsWc0Bgh2Nf99xUVPjLa
1/etrJZgIZECvV8CZFRwYUNxCMGPX4SMJwqRkeb3QKW1BFudtsqxoZHRuOo0
/xMiv4F1kgfJK8mIX2rAQ47gW597JKvFyCjuV4bGOaK+Dbfz3wVIklHenrMB
FYQeDQYhYcrSZHS88aNKN6GX17Clyc/VZNStvsV5ktCTlCbBSVhDRuqLov8G
CL2zbXue7lIgI1eTFdJNhB/buPK9SevI6M6dktyoWTr8KgyWq9pARq8F6yq2
Ev5dOWz5yV+FTLxDjBi3z9Dh+atu8y4NMmLef1VWPEkH1/N5i/GbyehHombu
MtEvf1WCS6y1yehq/39rtMboYBApvq7SgIxA/l2w3RAdvph0fz+1lYzOl2Yd
Nxygw7mJp3EbgIwcuey+CPXRoXTvDlK8ORlt0JMz9u6mw23ripuyO8hov44p
j9RPIp6ZigDLioycjm44XfqDDjxaQtQyWzIatWt1Leigg61oq+QXZzK6sNE5
8AFxfxQEUbLHATLKfvK7PI+4XzPchasH3cgo4teV4izi/qVOxq5dOERGGi2f
23fUEvq37VOV9SOjyx9KO+OL6FDd1JjLPEVG/at0l6fy6BBVq6+5MZCMmi4/
+W30hA7aBTLaJufIqDfsyWIkgw7XoruMPa6R0UhbJUMrjg4ytkf2MBPISH8p
KzLsJHGft3d8UE8i/KoSe3vvOB1qjS33laYQ56kujt3yosORjaoHXmWQUcvv
+WFtFzoUU8a8Bh6RUarXkRWx5nTY1XzmvHoNGQmaVKockKCD/Mu+hZJaMtr7
0XdIQpgOU1VOl4xfklHUXq/qagE6JD82uG7bROhbeDGl6W8i9IX/u+PfTkaG
bL4H/b8S4YrlzYySPjJ6tP7sN+OcRGh3P+a6aZCMtB4O336fkQjrzlhL5w4T
+/3ou/YkJcKbrJVxjAkySg/PUpAITwTxv2lhsQtk9IeXdDTveCI8fFrm50/j
Ra8Ktmer/pcICy+TVUdEeFGa00O3a2sSweZbSP9RMV5Uvb/1RL1EIkzxmXke
lOJFB2q+RQiTE2GrR6uDrSIv0s2mOlX9TIA20QEjdV1eVO5lPeAdlwCKKs1z
Ofq8aNjgbe2N8AQ4A3mlSka8iCdeYXPUlQSQ8Q3SXI14EeuRzMgxnwTwauBS
EtzJi7zuiezRNU2AuXPSggNuvGi0NXqdzkg8KHTu/MK4yYuMTqjv6d8cDxF1
RvmOt3mRVqt1XcK6eJjKUQ/jv8OL/k13rNVYFQ91gTRtnxhe9P2rS73sYhx4
CbRHb0nlReveDV+cqo+Dh1r7d7wo4EUvn1+9GmYfBxoRR8u6vhPxfEtOR7jF
QuIp58iYLkKPR0Lrw2xiYdnBysu0mxepGou98zWOhTZ5NdEHfbxoWWBc7a9s
LASUjvn5TfKiHS9+yMh9vwclv86sX+TjQ9TmUZHLxPuUoV5ovPQWPnTo9lff
ee0Y+HxIWjdNmw/d8uGeYinFwOmovI61enxoYVTMeJtoDOT++SKjvJUPrXyz
I+Z2VzSsid+YpWvBh9plkh0W7KKBZ/Lz070ufGjAr4scqhkFzY9VGiOv86F8
pXKnog93wHVN6zz3Bz5UOXJl6t2zMKBJB5ZWf+JDXk4Mm4ioMHghJhFw5gsf
4tmSK6zkEQYbVhwYGOgk1rPvGI3yhMH4dN/n1gE+JEB2c++3uAnXXy8Vpy3x
oX0iSeF3m27AwyCNkwaq/EjRKnrQr/gqsN9E9vhf40cP1Yq6ed2CIInsHmS/
TgCNiYStnfdxxmJdpdk89QLo2Pzk0Zvsq5j30jUHg4AVqHBEMfW7QQzmeuSe
3yMqSMzf4J4+WzoOTMmPFK0TRM95t6breKXj8sWUW3X1gugreRv673I6XnQP
uxbYKIiMbDWS+ZPS8S0ltzPtbwkuMRqJa07H93MF3WI7BFEppAV3bM7ADTXe
6qKjgijxWKT+6EIGlvq9unmllBDS3xappI0zsdt2/oYXMkJoXP40de5NJs7O
maoJkBNC8QY79As/Z2J139dF7xWFkE1EiRBpLBNvY59NubeRWB8s3KAom4VP
8LcfX2kmhLKLaneYnc3Cz9VuC6w8KYROz8QfiVTIxrofV7XE+gshZd/x5Q1q
2bggJOee+GkhJDcg61iqnY2zW17JSJ0XQr3/LObyd2Tj26d4N8pfF0KfMuXC
VvtlY/vi63s2Jgqh5YL372tKs3G/4aUUqxohZLVTqKzFmIE9flMONtcKoSkX
LZ6e7Qz87c59JZuXQqio8ozaoA3x+/NHda5dkxAKvPHfl1Y3Bi66vFDj1C6E
6p4bjy6GMHBI3bnf3n1CqOY4O7KpgoFX7gxUv06joP3HvXsr1jNx5gthIcOV
FDS4ent0rDoTbzJ4OjgpRkHSDytDXLSY2FZ54IGnNAX92Gj1rgQxcQSfu8K2
dRRUPvBN9J4LE5NfWklyGVJQUpC66ecIJo4z7J8p30pBt5W9b0XEMLFiUeiH
U0BB6klVjWqJTIyycMxPc+K8prE+7SwmvnRFRwjvpiABGS+Xg2VMzDFS4Lrs
TUEFTgc+83Qy8c3imi6dYxR0yWer0KVuJhZXc30+eoKCVMTHR3r+MLGWDP2i
mz8FGV7dcShgjIn95yjsrcEU1ChX/TJxiYmXTz3+MHOJgvzmbGm+PCwc1b+j
KPcqBWkXLh9Q52Ph3M/XT8mGEfVWHHjiR2XhwZK5wb8xFCT67m/dhAwLn1dP
bCqOI85byWxdvYaFBZhaOT6JFMSoWtbarMDCG+JOen1PpaBHn1KeyvzHwqWC
FLO4dApS5s2jj6mwsPn1RwrWWRQUIi57I1edhQ8F9HZVPaCgYSNv/r7NLDw5
cO154CMKWnWhM8hTm4WvesjfV82lIJ1fQ3df6bJwxm6X/SmFFMTvXeJtY8TC
Go2zevYlFBQq3LFw0piFa0wSJAXLKejmvwO/LwAL/9jY9uHCMwoyzqU5WZsR
+4dXXiJhCqK01aMZcyL+o70bIl9QkOI2EdlwCyL/owmtkvUU9J+VSMcKS6L+
dR3nM19R0F2enwfPWhH69Egpqr6moDjne8x3O1nYP9OlubiZgiz59eJEd7Ew
Z3WXXGMbBX0NvLbBzZaFq77KN9p9oKDX1Wo5h3ez8CW6p/+3T0R+Zz6GO9qx
MHJkSHt9oSBx/4BnW/awMFnsT93oNwqy2jWt/pfgxrYNvuc6KagmePvrPHsW
jog6JsH9i4I6ke0Vm70sbLvrcU1ED8F5Y1s7CF4pOHJU/A8FVT3imbB2YOGP
jRtXpvdTkHmfR9gTgpNunqr6b4iCVg59G2UTfMCs8HDhCAWFCRmLqzmy8Bru
aYrROAW1Btj27yS4p0a7rH6S8Ef8vYMjwayQswdtZygo/fm1nf9/fsywQuAL
h/CTV6pMhWD1uflCz3kK+r3P4uY0cf54qdGB4b8U9G+kkpVDcNHpS+QzSxRU
+0GG14Lgs5vx0yUuKhrpF7r3jsjfYJzL6TaJikQ6VPW2/f//31xTLlE+KgqV
F/mTRtRfeyL0UaoAFfmJ7L7dS+hzQ/mV/XohKnr2+gxNgmCLPv7FPCoVqW+l
emsS+q5gWrH0Rahoh0ryBS1C/7eed2zrRKnIXSnJQIHwJ0a+ZdZagopiI2/E
zhH+7e2kZX1aRUUtqa0BldYsLJlqt/OgDBU12g/XHyb8/uYcOz0gS0U8t9GF
WaI/PD5KWCwqUJFZx7rqb9tZeF2s0/jNdVRkWeCnpEr0V//u5CTh/6go6ubh
7EOmLHyyWXZYUZ2KMlJjkqNMWHhzuHt8rgYVvVJwHrm2lYVnLDKNdTcTemiM
CrobsnBwnVKMlS4VPfY86tGmw8ImV70NPuhTEdfe4oAjWizMY5LT42pERU2H
Ukh/NrHw7UpVHX9ERVN+79xS1Vg4sWDzt8SdVFTdVv1tSJ6F9588fWOtDRWh
9KmfdbIsLKteqv54NxW5/Tzy7ro0CzNy9K88d6AioSMcmSpRFi5Ih3W97lTE
/CThRiaz8PTFaX5PTypaPbEtYiMXC+s65Qx3Hibyk/JeMllk4mph4eKOY1TU
k2N1WmaGiV9d7drWHEhFB9ZGxxf2MLGAW+x6yzNUdDA2aUmmi4mtDSxWNJyj
on2VUWt8vzJx2+TTtpoQKpr556HX0MrE3w9dOlgURkXH5f1b7KqZeA1sNtMM
p6L64A/97FIm9lj9Z0PuHSoaqu5bf72Aifs+7BpjxVCRyw3Gy90sJp4wl72U
nEL4byl1/XkkE/P9V51yNY+K7GlWv9r3M7EV6dTlfwVUVMoJi+62Z+K7PxUP
XSymoqCKw4afrZl4ZVKESlAFFdUO2+gHGDOx7AqXiqN1RPye9a995Jl4y/Dc
J9vPVFSprf3+UBcDn2nMrWz+QkUqk3v8mz4xcAXDI83yOxV53NfqEm1hYGPX
Ji/TX1TUe8Lrm2M1A1u20Kd1hqhIKeAAik1kYLd83ZVyS1TUyfNn5ccdDFzm
Mkdr46Kh44r74lK3MjCNr4pyg0RD/RETD7dtZuBaV2OBQQEaEuvbrKEiw8CK
gubLJWI0NMF9bOzQUDbu89ozukuFhvLt+lJ9QrOxiYjY8LIaDVF51r0WOZeN
6dUfB4o0aGjXyrf/Yo9nY0tR514pbRra7mgmrWGbjR9j9++9JjTUq1Ps8kwi
G5+U8X0d4kBDVyjzXErpWfhVw8ZGTScaqvDf8+NuVBaWDxiv79lPQ8KVRWrt
l7NwW2NgreVBGjJxb60dc8/CW85cKBc/QUP3zCoXfOWy8GxrGCv3Cg3tdH9r
dTQuE1+9mXXtx2MayvHgrjRuSMfUc/w7PZ/S0MEXjNUWGek45ZifaF8+DVmJ
v9i64kI6LrY2YIyX0NDd7BJhrJaO+1a+r+fBNFQVZG7dG5mGrdO5BFQ+EM/P
q0eNm9/HkuUHo878Jc5/JPXjW0gyZjxs2Lfwj4YuV0+n99sk400pavJXuITR
aJpr+aM1ydjq0mz+bV5h9E9WysAGJ+EQs+j3qcLCCCXW51P+0XFPa414nZIw
Upv0arA4kYifDsil0nYJI8lIOTd/wTh8O+2mR5etMHIazBbUa47FXvaj6/P2
CKPv+Y/Kku/EYtlnzwpsnIRRHqeMtkUoFkdEH3h195AwWtff8C2H9x4+pps8
KXhBGCWs2bqm+10kVgwVt+R/IIyOsRM1AypD8ZJ+CLXjoTBa6jigLaAQir+O
/m5/8EQY8ftYmzbeuoFjnIrdLAqF0XsVntPV9tfxsqr96ZvPhFHAiqre78+u
4B/vo9NJH4RReejpp6LJZ3BF2OzhD5+Ekf3S2ebGXUE43uigCuOLMFJfZ/T4
2VIgtmZplJh2CSMLKYlITzd/XHW+5fW1QWFUoM6Q5wgewYkbdaL3jAgjvkJG
leK+wzig576Dwrgwqo0t2leT5oGVd/n+rJ0RRrRbnJgg832YzP2RGTMrjNZL
XJhQr7HDv0qNTngsCCPB875B3p4W+NkJhuamf8LohKroKn5/XUyXF2IvLwsj
u9SFlNpBx5r/ASwshCs=
       "]], LineBox[CompressedData["
1:eJwVl3k8lG8XxjFjiRkiFUqKUtZ2oji3fW8lkS0hVAihskRoQfmVLZSErNnX
igdjZ6xZkp2xi5lSRLzP+8/M5/uZ+z5zznWuc56ZfdbOF21ZmJiYruMv/3/X
tZ3uqJy5q2x30javciZSmagm5DIsaAh3DcV1tmxzh+MJMfEFgjZwv6aDbQsp
EPSovflvBN2hL0yp8OzGKzC2+VP+UjAQntSkfCGNJ8Hg4cdqYYIRMKSdajSS
VQDvtp8LfiaYDMWHJ7kyVSjgz1Fw8KlgIURI8/KkO3eCpNZ/T/JdCiHcwGTt
XmkndAY5z3yvL4R4k8peHuYu2E+QzpT1KAK9x1Glz/7rgrp/ybJfO4thfuSC
H5bzFUg/o06KhJaBPOmI0qnRHogZvK9WtFEBHyR1UzcEvsMVk8ScJXoN3J94
nabrMgqL3w053wvVwsGHzKJFIaMQbMFhe0mtFtoJtsc5Ukeh4LqzUHFELfxB
Dsh+cBS4nZSCHsjXQVqzyM+tOmNQG/DNlM2nHn6+rTlB2j0Ox7J42XZzNAHZ
Vj2XljsBjbK1VtQjTXBnkTvLrXECrPK8PvuaNIGaatK5udEJCCsedhnNaAKO
68050Xw0mK78+P2DQTPoaAJGc6XB226dvKOvWsBrKcbZ4vAkcG36m2ntaQMF
pmde69FTEONgbCGt2QYlYt2K1h+nYP9XaStepzZ4uv/oo4LqKVBO773+vRz/
PPhwrcDCFJSlRxWVyLaDVEro1A80DQuX5r/otbYDpyPHrfaJaTBKi252I3fC
tr1v7N4Kz0K8eYC+3b5OwCj1o4+OzMIY323qlZOdQNhp+M1IbRacfVTblMw7
YWOF0wyzn4WnFxc62T92giFsBKbnz0L5ump/nH4XfO633zKqOgcHLvyYpoR8
hY5Aw0peo3kQ8tNSvJH4Fd4PSy78tZuHrR/fhXCWfIX2pXDU6jUPfzkuyV4Y
+wr/JUj5H4+fh/bKErehU93w+oag++roPNw/4r+xQuuG0BA95wcOC9DKw88v
i3rheOx4z2v7H0BRum3bYdQLAdXnZPo9f0Dpzbpi95u9MFa9o4/18Q9Iqvcy
+RzVC+T3G+dEUn6Al9/gW+2FXjgU9o16deQHiC5+kLge2wflHWb7CJcWwbNV
AWJ+fQP7EPvJFP4l4JYtojVy9MPbsW+t0UJLkBx2JHRtdz/Mlm2T99+7BB36
B79ZaPRDZ2lepKL0Ekg187sdiOoHdVGJn1pqSzBcv/ghX/47PN0R4NDuvARa
VSnc1PsDYLLP9Xde9RIM7d1XtPF8AGZdd6/G1i+B+8P4q0eSBsDs2MjSg5Yl
SIRXaa+aB+Br9PHWAz1LsFb+UNV09yDYVV1PEZxZgpxPVz2mygdhoOP9j0Ay
HXYW8g4xMw+DOVGA99F5OpiFrhlO7BiG8nemCbWGdHhvQ2uukx6G7IBs1c0r
dJDeXlYWcmUYRIyj+o2v0UHVwypye+4wqDCHUN/eoYNcvPGHiMMjsOvsuezH
4XQwedIyGqQ4Aon/NNKVIujg7a4i7KkxAmV3BJnnoulQpS8VYXJ1BNCU5Dep
BDro/9vw3/N4BF7URKRqfqTDNYsP5mlDI8AqHZIwUU+HQN1dr1/PjIBFj7kP
XzMdPsiFf332awSkKSsb8q10mOe+r3ebcxQ8ksQ2Hb7SwQMzUDgmNwo5CtZO
jiN0CN27zP8lbBRehusMjfymQzbJ8fzHmFE4zbWXPWSVDh0rQyFvk0ZBUKNJ
UGadDjs6Glj8y0bh5skNsgkzAxL945c0aKPgXuWSeZ6LAcVjai1tZ8ZgVpc9
sFqYAT3a/vQwrTHoai/TGBdhwO/sih36F8cgXybDd30fA+QfKFxruDEGAXGB
dgLiDCjddvh35csxmOMq9Pstw4C+e7d2+b0Zg9KKH7e+H2bAynA6UkobA7HA
TnrpUQacytofUlY+BimunzvNTzKgTF1ob/70GBiELF07d4YB/RnGGi4/xyDn
iLHPqhID/m6NdJTdGIM3wm/PxwMDFAd5ijK2jUPY7z7ZFlUGfLrLqpukPA5S
ipKK3dr4/e+qztd0xmHjWmWghi5+X+VhhIghfn5TITVbjwGnudeG4hzG4V9l
46ObZxnw5cOSW0TEODD6WzjDLzFggCT7+mLCOCgOLz+qN2TAuuvNiq0Z41Dy
sOPXHyMGKMEkRxg2DpzlXlS1Kwyo6P3+Jmh2HEz9VRsfmzFgSEmQorY8DhrB
VU6PzRmwkXR5mplpAkR1nks9tGCAskvHMd/tE8BzsO2vmRUDMI76eg80AQ4v
f5rXXGfAiBNx4YTeBFwInpMKs2EAU7cK30+jCZC5GHPknC0DUOIXM+ebE1Ae
WrhQYccAK/a//jIeE5DH9OvjrRsMeHhbPnXu4QTwGT8p3GbPgEqFfPqNqAlw
rdFMNnDA4ycs7hBPnIBeS8XIEZyZ2GTOTGROgOfk9oFbjgxQ6UwNtqqaAE4q
94M7NxlgfYqWuadlAkKPLPbP4BzwVrRjoGcC7IKV3l29xYBqxze7TOYnYIdI
oqPUbQYUzNy8afF7ArY1dZk8wjnZXvHzdSYa9EnoR3fjHDHFweXASYOHltLi
ok4MCLLrNXXip8H7H5FbHHD2oKVkuO2hgVJ5unoGznY27n+9DtGgc9uTfhrO
xuOqur7HaKD35nzrLmcGaFvzxj46QwPWG6Ji+jgrjA7PPNGkQffIrgEPnCWt
shWen6fBvwHT9Ticdw17P31lSoOT4evBn3EmWeh9i7GhQdZ/wn7dOP8bEJR4
60SDjf5vUzM4/7g67ZXkRQOFBv2aFZyH+osb0gJoMLXzv50sLgxoMwkSyA6l
wd/ZyglWnCv7LtkXRNFgqGZZlohzrrFoaek7GriEaK+u4/cTe5bYKzJowPy4
Q3MJ55dGmDGlkAYXrNOEhnB+9DUstaGCBpGSE551OLtfMvtDbaDB/XNx19Jx
tu2U1OrqpIFw0nh/MM6XL6xG9Q3QgGjaOWmBs1Z7/eTgJA3fB95PjuJ86lyU
3PgSDY7n/qrewPU71GoTPP0X1zP53Os6nAUNjvcsECfhbmoC91OcOVuYxX9y
T8JM3+8Dmjj/1W2/uyIwCc5f7Mb+4f0b0L69nSAzCfMvuy6b40ytP23LIT8J
aV5L/Kw4V2hyFpFVJmF52TYwFfdHgnqqoYDRJHzqffVoAPdPOOVusrDlJDxT
vSHojPNDVfVfog6TEHuh8dY67j9rNPpKxmcSDibbX2HH+RKWM37s8SSEM3/5
HYj7VV3Z9/ip/yZhj3yTxT/c3wfO7OpSTZkEt9dnYoZw/0/LG/FdoU7CULMZ
63V8Xr4Vi1mb906CQJOTZgk+T00nGXnWo5NQ6+PhwIZz5vEXF24vT0Jitde1
SGsGOB1uDA8QngKG5/vbHpYMsMyOHnl8cAp4xSv53uPze17G7kjY0SnII0zl
NeDzfUyK0B6tMQUsJmdn2fD5XxZX4vl4ewpWNC5Fa+H7QXlMtf6Z1xRsd2Qe
OWnMgOA32n72j6bglCu7+Z7LDNjBb7go9noKrDf1CEP4/pFjvtkWWzMFkbsH
HQXOMcD3i8tjr7YpYLf1qOwzYECdpwdc7p+C2G0F9q/08Xn44Z/DuzQFvgrS
lX90GOD1PebFk13TIL4n6Je3Ou7HqLdaduLTcJMlVXurGgM4LiZvqh2dht8m
/uS3Kgx43ZDjvKk5DSUVJitpyvg+Lao75+E6Dc6nVT97n8L334tfPDaN07Au
7nRKRArXX+9vvcrXadDhzDS+KsGAUDamhyLD06Cw+6DYy4MMEPbhWur/NQ0T
+e+oi2J4/Y6i7Rf2zoCwUW3vzd0M8FM/Hw6eM/Bjze6PA4kBLKuZW3cdmIVu
w19z0dN02EVV/QmHZ4H6SCXfZJIOJxK/ddsozILw2GWFnRN0sNVhj8s2mAVM
LSgyaJgODa+tD6h6zMIK5/3ewz10eKEoqOhQPwt96ktc5dV02O0dfL3EYQ4Q
OdiuNYYOJ88Law64zUFaR8AIOYoOZ/cXHmL2nQMZQVtPnVd08GsZXdB9OQfU
58fYi8LoMLZbyWvo0xw8cZbfMA+gQ3r5z1BW0jzs+LdeteqI/17YtCq+lD0P
PZRDcEsBf/4bVAZolM7D3XRFooYcHa7HiZyTr54H3Zyf1kLH6RAuPzQl1DMP
l1+U//kkTYcZ56uCY//mwcIc1XeJ0CF+xMjbxWABrDOfITtWOjBX66qGzS/A
Qw2R//a2LkFL4InWOslFMHbVNvO6vASKPM0s/51cBJvE4G1yF5cg7fU1+ato
Ebo0gp4sGSzBo+zn7xaNFqHul1rpVQ38fN+0q4D/IqRWCgRzncDPS73Z6di7
CC09f152bV0C1ZmAXDbVJbj1uGSLXPgiiITPrab/WIJ8lmQTa7MfMPdneKj7
CAO8u00vGs3OQfLs5ybu5z+BlB3i37hlBriFUxcnJn7B8xRVg6dbJyHUocju
3f7fkODJettQYRx+o8wJe78/sO90R16I6Ai4H6sp3EFZgcwrbu8lX/fDcHZN
SMe+vzCWaa3/NeMrrDl+jZO4vwYc0eKlHhdbQUqFfcPu8zoQQp7cF6utAa33
+27k7dwAy+vU3N7cYvAUthQdNduE7UKGYbtV48H6/JHLA9c2gaDbGippHgdn
HzE/67XbhL6jPlWlXrEgPpNEp7psgntF0ZXLeTHwtXC68lPgJjittgrGHoqE
I/qulhFZm9CzNzywxiIUpu8HxWutb0JR9NYM4oAaSM8bcfUaMCGX5VKtiJ8x
WKmhPvbsPBOKcKYL8DW8xtTKVd2ULzEhKbPIxcW4WMz0+eHvKVeYUE8O5VCz
Sjz29MiWTPfrTEhjblh+PSgBm3T/ost3jwn1R7xy2bHyHnv3T/SZQTITGtO4
xH7/QDombSeozJzKhAZruw7HBaVjJa08jMJ0JlTvdcPbkZaOtSasm+zOYUKc
mQv625IzsH8qPRJzZUzIkvWsZahwFmYa/LTxSRsTeqAeBbzMOdg2niWOmr9M
SLYuLGSLRj7WWf7ssc4/JrTI/E2c/3Y+9vLWAba2TSaUrfLhwd+IfIyvyZTQ
T2RGayV5KqYTOAfV/lvkZkYdnbIdtv4F2Na1WMYuMWbk27WemV5YiJGmNAbc
9JiR8DHt7ubNYqwlcsR01YAZmYs8itQUK8FC1R988z3PjPa29SfGa5ZgXO9z
e54aMaOXA32v+kNLME7zXR0JlszIznrryzc7SzGOrqXaZjdm5CYVV6kkXoYR
sbgcsXhmdG90p2rvwc9Y/xl17eG3zGhD9GKuns5nLOfT/EhsIjNqTPfIjXD8
jJkWK/HxpTKjXr5Zi+Ssz1jex2F3pnxmJLPiqfpJ9gtmES+mOFjPjIY/DVZV
SJZjpfcya6J+MqMYZ82boiwY9vzPJfOLv5mR/W0tV/E9GHb97voyeZUZWbqJ
zWwoYBj3HYODQRvMyGyy/YDMHQyztV986raFBflYt3zzHcQwPuPj586LsKAw
5sNpa5crsZsnPn/boseC/khfVdy7swqrbO/OKjVgQeMHVrlOilZh228v+d04
z4J00wpmTshUYVjKAfFaIxbkJPOwZVm1Ctu2M9z1oRUL0hNd1PC+XYV9XrXh
+nOXBb2V3t8RX1GFbY3yG0rxYkGjS1It1g1VmO2x2DzDByzoAa/W2LbOKozn
Zptx/kMWtNxgbCNPq8KuDygk3w5hQa43ckcfcVZjXBi30sQ7FhShOjNx/EI1
ZnVVYuurJBaUmGMqkWVSjRX9URtX+cCCpFTOv+WxrsYsj9x7mpDJglRz2fbG
uFZjBYnj3abFLEgygJKT87IauxpY6tTRzILSlbt8/7ZWY7l7u1QetrIg/WCD
CPGeaoy1fIH/cAcL6sqR+600WI3lLIt+Du1hQXeJx1Nl56oxwo0wdu1RFjQ0
ofd7JxsFy9SxflfxmwWNnWQSJZ2iYCek9ynDKgsq3PLa4KkSBavgHvmOrbEg
bmJgxC9VCtbeZb6ziomA+JmYvCMNKNgvc5PnFE4C+vfGeZrJmoL5IAFpdTIB
FQ5dPrBoR8HYxHoba3gI6PuQU1jzTQomOG3IWsdPQGEhPlNn71IwZdfz3g17
COjrDtjwe0zB6g15hHT2EVDBo4K24RAKdl6+taRRjIDu/XMZlAmnYNbrej+b
DhEQr1VucUQMBXscrOVIPUZA+SaFCWFpeH6xylc6NQkoSTXAWLaWgpn4/Fu+
qENAf3sIBLcGCjZm+eVVlx4BNRzJ2vqhGc9/v2Lb1/ME9O5ohFlvB55fzknN
XlMCsmhv2LAbpGDv//s1bmyO55NmSxAZoWDS7gX+fZYEFJn3w7d2DM9f4Wj5
NxsCEpEOog1O4flRpE8MOBHQxf3by8/QKdhcylyH2R0CUv1Ptdb+JwVzf5Lh
POhGQNfOXjV9tIznb3Aoc8iLgF46ZsoFrlKwrUemtC0fENCN628eOa5RsFi+
D5PDPgS0OLxoD/8oWFavmOhoAAG9D7jGUcRUg538NIZdCyIgsXvWDUYsNVhF
fKL52GMC2nj1WJpGqMHar4m8Hg8lILdq+YU2thrMRH1IzuYFATEGms9JcdRg
Y+Jvvk78R0BRElHWd7fUYMtzQlsno/B6Lm5P6eaqwSLeTNXHvyag8kaXFyzk
Guz4uUK/S/F4f8kl0ru4a7BOJn95zgQCItXNPhThqcHu5BssViYSkK719nCe
rTXYVhuhVM9kAnIR1LKYwzln+5SFbCoBscxGLebz1mBn6wt20NIJiC1WVNuO
rwZb8HrYGpdFQGvF3LdYt9VgoZIGwRdzCGgyMtgyHGepAUHlLfl4/EtfxNn5
a7CmsMllrJCAxLumax1wdoCCjx4luB8r9VRKceag+9nKfCKgthdSbxg4p77X
F574gtd3v3tQYHsNpmko2B2LEdCs/xt2KZxprJOhF6rxfrsM7ZHAObAkX52j
loA8elcPbsNZzMFvvaKegIq5rxycweNVC+kX3m0iIGc5+32ZOF9rEbglTcXj
y70TMsGZyZcmNt5GQHVfvHf+xPNPOJz//XUnAY0g/933cFYe9X11vpuAHJlO
yc7h9Q++1NNj7yOgMaZjF3Rw9lYXIFT0E5AGD/uzV7heu35PfHIfxPWuNBps
xPX8lJrnKjVCQCecKefmcf1NTHwlx8YISBGt0/7i/Vnh1BuLoRHQjj0Fyct4
/6K/7Iw9N01Aap8TwwdINVi3SN6W8gVcrzFZgjNnDebe4VPltoTrX2L9Sgj3
w7ZHuvckfxLQ0dGV6/nsNdiFyfHp6BUCSjGu+vaBWIMtRee+O7tGQIZS2BMC
7rcXOj5XWDcISNCqOESfuQajZu1ocCUQkVaoa2IS7t9bFuN+EmxEJKSpUJGH
+5tra678CAcRDdPWVbNw/+u46aQacBPRfz8aYuzw+ahV8A4+JEhEPTf5WOlz
FMxmTlt5eBcRLR88TLeeoWCEN9t/R+4hopTTkU5VkxRMhSnHlrCfiJjv2BxT
H6Vg5XWj6kOyRBQ7G+d2rZuCmXllr0ccJaLcWiu/U50UbE3iQaHeCSIa1bmt
td5KwRTC+PeXKRBRg7q5qC6+L4ouaREi1Inowk3+hM0yCvZErzRotxYRmUxE
1PgU4/HUJDhSdIjotImc1lw+BWM5zkUuPktEDFNnj4hMCnaWr21H3xUiimYZ
2RSJp2DT7Zcld98monfCndMi9ynY54b6rGRnItIZ1xaIwvfh88pTh2VciUjR
JIC+5oLv41yhE8qeRFTyQ7Ao6gYF838xpGTlT0Qyx4nkLYYUTOis3YXkSCKy
7Jy/Q5OgYAsavV3SMUREa90af2U/BatU0r5cFEtEH5ixqs97KJidjOTVugQi
Wtsxwn9xGwUrIP2wmU4noqL3ls7YWjWm33zXS7qCiMg2YTmJjdWYn3ZQQuEk
ER04nn0mE39edVrYmx2ZwfVQCX9w9mI1tv+unmDWHBGty7Qzj+tWY02JvK+S
lojI9UD13+HT1Rj/2pvgl3+JiGIycVpSuBpL+1h824WbFc0kOvwmDlZh7XzT
p6XlWJH6Gf296xeqMFGJ5pXUU6xodT7as0u7CrsL2UVip/HzT7d3xkMVJnTL
/fAuxIpcX1ims+LPc5taJjFOXVZ0/7j2iyPsVdiKpyDntDkrOhrVXrpUWont
G9TtSwpiRZal9/y0+CqxZ9Wnc4yesKLs337XfNkqMUaqdDB7CCt677vLT28Z
w6pduU/cDGdFiiF1+0NrMcyGo/PFsThW9Fe2nBxvg2Fpx020qnJZ0ZT5L4z1
TQUm++xG8dB3ViTX2pnq++cLpigfGCF4jA1J+J3p22dchvVYC8q9OcGGtAU5
U50UyzC359m9e+XZkKxv74tk4TIsi9YndOgMGzqWbctoHi/F9kTIJMppsiGh
41KdnM6lGAu95+MlUzYUy7/RZexfgjVnSNSHBbChs756GamRRZjZnrZV5i42
RI9KL2T1z8OWm8LGXPzZUeCv8qCkobdYDNHC/eJ+DsRmG9WtpBYA24aK3rPU
cKCC4wKWB8jpwOrjb6hwZwvSpevokTJLgCndImeMjxPtezxsSGyvhLr5XqeE
7ZyIY98Tz+qJSgg9ckHWTIATbWG98M1ztRJ2lqp97BbGzydpsjeIVoFs/aHM
hkOcaC+TQd2aexWY0RgfspU5kVKMcPDbndVQtu/x2/uOnMjznZCWkhEFXGNz
wviqOVF20OZryY+1ULIe+7i6hhNN0XWMyytqYd0i2N+1nhONj1x2UW2vhcdi
5nc7WzgRX2SoldjPWojP4jR/2cuJ2kwaxpVO1UFtha003wInysjdX1CN1YHA
+K5mXgEuZHUdSO6UejDXYK+tEuJC2m5BQYe66uF9KqPijjAX+lxWndwyVg/S
txrzO0S5UGxGofc4cwOoLHvE/ifDhTYRq7gONIAje6cDrxoXWkm+TRspboBy
qSccvE5cKNQyfzU5phHkvu6kvnThQnV7On1PpzRCrnfqf/xuXGjvL9UrVXmN
8J5aJyTgxYWMirLKY5sa8f/FrDIiAVzo++Qb7YC1RrhYEHBBJooLbY/P3thm
2gTNV/l25MRwIRtmAbZo2yZQJ77vPxLHhZZ3z5zkuNME8kZV10+840KPLu2i
FD5ugt1/Nu+ezuBC+84K+p8obIIpRZ9YnQr8/CT/ZPmWZrAaJ1k2V3Ihe7pk
qBB/M/SHxIsZULjQH7c2CZs9zdAy8DnrfAMXsqsb2Sg/1gz5vn8rjDu5UNDN
/l9PTZvBu9pz3HaSC1HXkg+4fmiGZUf2tKlpLnS/tkU+MqcZnLZF33KYw+uf
LeNKLm2GazbFy7eWuFD5ydqMwKZm0GRbZnf/y4UGOvMSzy00A6+uq3QANwnV
ayK1NdkWeFfFw6XIS0IVhy5a3ZNvgSMKH2fo20jotlj8mSFogbOHpj9cEySh
p68zqFfPt8AzNot9KvtJqGOQESLm0gKCvmubK+IkFJAgN/jVswXSlmOGciVI
yMorRfSWXwvUT3TF7T1MQioa62L6z1uASNHZwaRIQv+t9Jxoy2iBV4pTv0rO
kBDX5NzVj3ktIJof2OUMJPRb3DHDpbQFUCIWPqxOQuE7Ky9/qG0BH7+TXNg5
Ejpctm9X81AL/D69j8nXloRuFPRmj3NRIaigYuikPZ5/5NfDHLxU4JcyK19w
JKHS9RiFrTuocFwo+r65CwmZkEd9m0So4LJCWj7zgIRezLcwJo5SYdM5o+uX
Dwl9cosYEJWjwvMprfysh7g+d9V81BSpkNUT4Lw7mIRcT0/ek1alwkzhysxa
OAn5f0/2jj1PBS/pqIaCVySURlJWnLtEBY7k46k3o0iIdV7iu7AxFcRfOdl8
jyMh05SPZofMqVDESVJ79ZaEKm9wczBZUUE9IH2fXiIJnUi/JF1mTQXrOxND
nz6QUI59p3vbDSrQp/3LXdNJaEju7XVpRyo8tBKJl8wioev73awcb1Fha9+X
+2PZJFSi8/T8UycqJJwzNYnNI6Fz87yCT12o+L74I3+xkIQifeUTHFypUKEc
uYOzhIRmE4QbJN2pMCDT3nXvCwkJ/4iOOuuJ35/j9SFgJNStwnkv1gvPJ/2S
eFgVCdW+H0hruofXcyOybUcNHv+awNbh+7ge+3u93tWRUPzbqpjeB7heYwKi
ko0klKzfK13ojev9zrS5oJmEpGQvFbv74P2wiHdXaiWh6h4JEUFfKvzeNSRc
305CWIbuhUScP30TqT/fRUL6wwlyZD8q+ERfc+nvxvt3n7vMDGdklCRo04fH
v+hR/QJn4jZa9UI/3m+e/DMfcK5vF7/lOUhCUxLRvO9wfvbcfjvzCH5/dlnS
B+ez+hkVz8ZIiOH42lUJZ17O+Rv8NBJyidLqHMG//2u9DO/bKRIyOlR1/AbO
MUHOnw7OktDPrKqH7Xj+V9XyrufNk5CN/+b73TjvYf5JOr2I+7VLKlAPr3es
4kRxDZ2EpN8zyOa4HineHpZnf5FQwZe/EhdwvewVSzn6fpOQO4VWdRDXU3pl
Ne/aKu6ng+exEVz/xaLTV+fWcH9IdnB5e1Ah382HeHcD7//w3/BVvF8eR7GP
G0xkdEnS9JSJGxUUFpmMnxDIyK7CYy72DhXWs1SZ+NjI6OC+rlcVzlSodAxM
j+MgI/e0eaGa21TQnGRfzyaTkUj4sZvuDlTYkqyTcmorGR3NBXYR3G8t10LO
VvORkbx788FMGypcGuRO7N5JRjpWU3E3LKmwI+68rqUQGd1sla2ONqNC/5WX
P6d3k1HSret86SZUsPq6XXN9HxlpVjR2O+HzsP+l8WLQfjLaq/x0lxg+L1Pn
XsfwHCSjX8EXjpTqU8GpefecqDQZSbAO3wzUoMKDarFwHTkyol79l/n+JBWU
H9oqdJ0io+Ht8nOm+LyyKKeOmZ3GealE9ac0FZ6USZ50QWRUXdg8RBGjQlTu
0f4oXTIyba3SGuOhgomT26O9BmT04sRwbQwnFXZLF0lnnCOjKE25ZFlWKiSl
nvIrNySj9GOHDqystkDuW9g/YUFGnvICuZujLfDz/k/2a9fIKJBsVdP6vQXk
jFPnBq+TUQ3VqMWnuwU+8/AU9NqTUb3kW8sHDS1Q93BIpdmVjJw3v0szslqA
w/zlAe27ZPTZ8IdnRUoL6Clobqn1xPt3ro/N8W0LtNM/tld4k5HVjoVoixct
8N3axzI/mIxsl0R3f3ZugT1wVO3wUzKqXN29y+9GC1jtoolnhZDRkzla1j7L
Fpjs0v+REk5GkrKsR1jOtsCS+m6f17FkBOEXNGQlW4Dt4OfYh9lkVGctKyYy
0Aw6BGfff7m4vneYvld1NEPosKj1/QIyOvd4BVOpx58XMc8k3EvJKPWndklf
XjPs3mJaeqMa55nRcaugZjg2t9J9toeM7JN/29cdaIa79VllzX1kZPT00NWj
gs1QmmT1Rvs7GeXmk7d6kZpByazBRnWEjB49+WgXw2gCbWr0z5OzZHRnq4mW
aHkTmOfI8QpvkBFXunG9pl4TFJuucLczcaPjfcVJwqebgJvtE+kRgRuNsAoe
aJBsgkozJY4ZDm50l9LyLnpLE4hyqm8WbuNGXBzNIFzbCJM2Fxb0JbiRgeHB
A+nHG0F567a5TSluZD+3eitrbyNEf/46nS/LjZzdbvj6kxtBm+/KhMAJbuQm
eCH43WQDZGAW3yeUuVHeo7ix7KgGcBK61ehtyI3OvJO5x1ioh7pamfrDxtxo
NPqwOrGvHkTuLNaMmXCj/RNVv2lV9dBe71qpbcmNtsdKvxaIrIdjd++V8Dty
I6GGT37yCvXwpy04JcuPG4XL/BFV8aqDh0GJ/gMZ3Ehn2H84q70GyJ7sutc+
cqOmxM/IprgGYu1v803mcKM6EQXHH3E1UKCnkLRYyI1S/qXl3rergUnejhoW
jBuVXplUd1mlgN5bJg6JLm7Egn3QLNtBgR0lls/vrnGjD/wJQTyyVZCUVnv5
7z9uRDp4//4PchUciZUS8WPiQa4x5whvFipBx+dPzhNWHsRzncfBPqsSvNVe
dMTx8CALp46sooOVMNZWwV8txoN0tqU/EZesgI/TwnHc+jzoU1urhmZEGTx5
E2Q1dJYH7arhqnuhXAY2FxcOZF/gQSkNPNZXpkth95cvuQbGPOh6mXutrWIp
PHtxtS7Umgf1mPjscegrBnu513TOezzon0cCqWOtAEQD+bXZP/Cg1DDtBye+
ZMLGKW9ybxoPop+vtLu9mAHfFsY7P2TyoOWOvNb/9mVAuHGBuWYeD3IjuRbG
BqTBpuRFt6AvPOhAauLxePkUGOh48ZbQxYNuJfCt5H6Lh9LgP9e7unmQV6ag
J0E4DiJOW0ok9fGgMFDrEbR4DXopsoWqQzxo5ZWyXdi3SPjkRW30n+FBJlMD
hwccwyBK5uSLC/M8aPJOTuMD6lO4MxZvuG+RB/F37Rx4IRUMh/RvDVf+4kHD
cTsf7Cz0ASLz1+TwPzyoLyHBYdDQA0aKTjta/cX1GXb4Su+7DV8ckw4f+ceD
FKS9n0XMmUO0CNfy5iYPcqQmeWfK+yj/D7XfgF8=
       "]], LineBox[CompressedData["
1:eJwdmnk8VN//xweFGDtZIolkTxst8j5KZS9tUlkKZcmStFBCH0qFFCGpZMtO
RaE4yFL2fR3MFbKPyr7N735//8w8no85557zfr9e7/e59z5G5pLrCTtWCoWi
TX7879vAbrixeOSGdnxtledx19CiNYck3PrET4EFu3p8k6gL3vk2KuaTuC18
Yhp0RXHew4a17R9fi3vAOa69FWGjwdjMdq7wubg/TJrqXR7NfI17tj08FCwe
DgVKtbXOezJwrMixB4/FE8DB50DGdZNv+E5tZNmZggTA7pYyMzKF+EwAnVX2
fCL8Obex6/l0IabOXPP5GpME+WwHQuQiMb7dEn57XDoFZKx9IlvtS7BpWJej
iXwmZEqN6hmGlGE/zk9bH4nngPfJLTYaD6qw0tFngR/dciBeOfhW1UgVbgpw
HemuzAGHlzb+fUbVWI5NJU3tZi6UH+F1CxaowRUrCWotTZ/Bx2luZDW8FlP/
ReyWDsqHSx1Pg3cfbMBRPV6HcleLINroxaw3WzPWkTRP6D2NwSrMzO+pajMe
Pae5ljMDQ/72QzJ2Zs1447inTYZqMXxZOCdokdqMXR00tlBoxSBvUd1y37gF
C9pmJSfuKQUd1s/xRYGt+Kz5u6ypP2UQuX0l7ltzO2Z0n+KKkyiHP3nvqfun
2/EDS067k4fKYaevvV6gcAf+ZOMq8Tm8HCD7Y+jTUx2Y1+VAwB3NCoiQ0Ow5
2dSBy+93nmP3roTa08HSlWWdeEe6ALskZxWgzWNHZwK68U+1cuta9Sqg/pb6
zzO2G1t/uP31nnkVHK7bYFFf0I2DP/e5EalV0NjIeWRqshsPF2d0JxlXQ2pi
wZl1p2n4Tav+h+1hNZBipYHTxHowN9PvwtGN9fBz6LKW4b1eHOVgZqlyhGS9
0Jvlz3uxXIuKtYBLPQx2bi4Sed+LtVPabboL6+FB0MbKPfW9OD8lIveLWgP0
XOhffCzVhydOjn8zrGuAhfX6H6597MO71rUf0O5vADaUZXCmrA97FZUUqc82
QIvREQ3Btj7MoRhZLLKxEYSVC07xL/RhmVWdsj7nRtDoc/gTtpGOTydHVl/n
aYLpg9bjo5Z0HGNx3+iyTBPEp5/1i7lMx/2CzrVndzdBZ8iK1T4XOnb1Plh/
wKIJQk7t2Lzfm44fnZho4shogsZwxUbTaDouXD7Y9cqoGSJvOT6mNdDxmo+q
50Osm6Fx3NTGrJ2ODa6I0Xw9msGbJ1UO99Bxe+NEj11MM6z8kwo8PUrHf5Ki
iG3j5PgTVYNvWAm8xXRy+PuTFig48S8sfRuBJXyO7rvyrgUydPfXX91NYP6M
2CdcX1pgz+iykeh+Ai9ynlQz7W+BLiJbR/kIgRuKv1zv3dMKMmzJTsfPE7h8
kr/cz6QVdr97td7WmsAFko7rt9i2QiTN5MolOwIn3pbMd3raCu03rihLuxLY
S91vdX6wFcbxUmS0H4FdLbuOxSy1QphdVNWaBwS2Ddr5DgTa4Ddb9Npzjwl8
bHjw0AOtNphWZZSXPyewXKzBI6GwNlBu1q+MjyOweF181+fkNtjsEBh+JYnA
vMvLyueK2uBHmXrN+lQCL5hl1cWOtIHLo2dpmh8IXMcnLKyG2kHnz08f/yIC
fz/gbNd4uh2eTryZSSghcJ5TxWcPp3bQntTR/FBG4PjK2+ZfI9qh5ZqHSXAV
gaNmGlMt09shb0Rby6KWwCGyyssspe3w95ixvHgDgW/79LzRm2iH6T2h0qdb
CeycoTE1xtoBY2/GjrS2E/hS91Odp2Id8Dq/I1qni8DGmgcHWg91gMT+6Pne
XgJvZiQp2kR3gNXOYJrqbwKLSlHusGeT48PO5fOPEJhqaF6TUt4BUVW0zfRR
As8lcbtOTXXAg3iiWneSwOMttsVh7J1g8M9EtotB4H7WIgFNyU5wuXFE88If
AtdYuuV4H+2E+ebgMvlpApcG/VwrY9EJV4xyTrvOEPhLwWazMvdO0N4m2Jww
S+D04TvJVwI74Z9/kF7lHIHj1rcucL3phJLmtaVt8wSO1FUzzPzUCYnSlobN
CwQOcn8YY/qzExxG3ae+LRL4fix9Yrq3E17vlC4MWyLwrbq9EDXdCc9u7y80
Wyb1Ussd/MnZBQ6LhYUrJCcEqwctSXaBreF/7mErBN43kbZDdXsXWHnLD4qt
ErjRaGun5eEuWPcVSYeQbJ8e5xNq3gVdRx2U/pG8yr1RvtS5C8R9d/PrMQkc
7vSy5p9fF3R37OkKIlm5Wvj6loguoNDXPC8huVQpVNwstQs0tBR1hkg++5i7
OLCoCxbSd/5ZJHly5MHlgqYuCOXKTmOSHKDPyjM+1AWCRxS8pkmWTPH+JLXU
BdYOcpc7Sf7IuWB+jK8bVCOVPDNJ1rP3oPjJdsNfLvztOsl9lYykj5rdsChm
u0+R5JtbnYwHDLvBWi16qY7cP/Xh0D8R625ga+xbZ0dy3NDF6KMe3fDy7QeX
MTIfe4/0IM/Abnht+njnJZIbEs/+To3phgtf+i/+JPN3eW1LMC27Gxj529lk
SF62PbaLt7wbtM6Pb3Ig8x9WVtUFnd2wkBtQ9o7UR0nuiN+1iW54t+IyV0Xq
V/xfydZ4Fhr43xP9PkDqO3Ewz4NdiQa7Os0NRkk/+Mft3LBHmwYxlT/E2ki/
SLBmlTicoIGn2LvEj6SfjpYk8tZ60SByg+wm7b8E7t0kk7saQoO+5OebJqYI
7OEbc149ngZJJnNrgkl/voOw5LBqGoSkrn/7dpzAe97yHivvo8FG1sArgmNk
va4+mpn9R4N1uef33iT9v1Toe/CcZA+8972/UWCIwM+lloefqPeAOou3rt4A
gRW8bz0t1O2BsnSFl279BD6t5ULb5NxD9pfaf+FkfWUVnL/5u7AHtkzedFdt
I/ARiXZJ8aYeaE3ZIchoJjDN88R3g6EeuNJGKMU1EnjdXn3+TN5eOHtXdJxW
Q2CbLxqpHla9oA3W2YmlZH3mCPSysPSBgYyySVAagS8ELZ0aWN8Hl6+2LG9J
JvWzHayuUOmDPqa+flYCgVVE8vOfnO0Dv3sCo6GvCXzwpvULkew+YBz7/vRZ
CIE1YsySwrfR4eiv2MDnzgQ2D6whAvbRYfhgrK+yA4HveuhI3TpMh1wb8foc
WwKXGCmHm5+nQ9RlvddRZD82Wln12/iQHE//qJ2kR+CLlkkWyb10+C46HPxL
mtTPYMPLlyN0OMG0PfJQgsBJGqEtj6fpcFPKgVtShOwfvF6GzlwEXPJSGxbj
Iv2Jjffu0CBAYdM2hYv/6Dho04zwt2AC6s/ffLH7Ox1/7j9UU6/VD/f6CzW0
ztJxm57fn+Cj/SBryZ+8x5SOZzOL1hud6IflFHsOBQM61ryz9+KPK/3w5tn7
/L79dJwntG22+Hk/eCoh3hzy/MzXldj0cbgf/J82rPz93oe/JU1dDw//BTsj
mq/eK+rFNKrayxNvf8FwcEniuYxevOzuVMSf+gtyf2vpS8f04gMwxBmMf0HU
NrtNlzx7cVF79+uA0V+QN6lysGFHL8aclZU30QAkc0l3Wr3rwaWOrzeYjw+A
3as033ZnGv404uRkOTsA3mVe1nCehhPs9321oQxCz4Bnf7geDQdcbj/nIjwI
8UVXqetkaVjvkkD0f1qDUPxv/SfR9m5cbx4glhk0CG8eTq2n7e/GND1nETbV
IcgY82hyme/EM/IH+DKcf0P+mr4fkjrtmHUhjX/DllEIeFbdHP2mAWswrT+f
zByHTVUxhy9f/Y5r/HfVVSgxYEfaqGTbQDyWDh1bSJmcAovDO//9ePwZxub6
elvV/8LE4Ok1Vs+rIGH0axVvyD/4E8ZZ0uzRCrxS7xkDA9OQIkQ0hyj3QJBD
7uVYuVnAQmUJcfMEzKK0AXufOdhWuWL3zWwQPHaU5az/Pg8jQd/zdOSH4fKu
TbHPfsxDjPb5uLfbh+Gsxt0n1Lp5GP/16/qs1jDs37frEmvnPIT2DBSHnBwG
1oMJfJOT86B5ki3OwXcYnpr6O5ZLLIATn5F/eccwpLrpbvJwXwAOq3C31f9G
oC+z7EmjzCL8vt5UX/p9FBom1ozv2LoILi9pncK1o1CsctgoXGURwl7KGlq1
jUJsajnVTHMRwv/7frZneBQuJVUE04wW4T3jZJs3zxgMvf7x9PetRdBYoQqZ
nB6DiaCasJXaRZgwud4m3jcGvdXUactmcj2N/Lrrv8egjsv4VHHHIlykl/WU
M8YgM7BW+L9fi1Aj+F3jBGUc3PzrXnAuLEJW5tJzbplxmL7TECkktwQ326/9
WbUehyXHlleKXkuQZDiX1dE1Dqc0LJ6p+SwBV0Hx7k/EOKSzDD3Y6b8EQfuj
Xz0YHgfLqLlrB0KWQC2xjSI2Ow4l5RJ6pnFL8NLdmG2QfwIebro4fbtqCfaw
8XvLH54AobYJox8Sy6Bo5W6klTwBV9/dPFgrvQx0iWdF2zInoOwqU7NJbhnE
64X7NuRMwE02AVma2jIknn6+pRdPQKf6rgXGwWW45Vwcy9U+AW+feCWKOi3D
Vad2MdY1k6Csw7F6+esyqOey5188OwnZqWlbO4qXwagv+XSLxSTsEj5uql+x
DJnNYvLaNpOg9TsqQblxGVyYRy/MOU+CSbCS4dTQMtQGfPvHvD8J7p3GUZ6C
K2BE3/3APm0SZg/+LRkVXYE3x+cyjLMn4U56xNh5qRWQ2ab3VzF3Evx9+rS1
FVbA9+nm6sqiSYjYcm2QVXsFVtQFo6IaJyH/WviOIIcV4Ofh9QqemQTt7j0X
VlxWQCfDpObXwiSU6vYEuHiswIYd7vLbVyehSlS+87jPCih9CZ3IZmcArfCL
j8iLFYjcwZakK8oACld3zZviFQgKHC76qsGAo3EyVz6IrsKy6h9+woUBu6J4
5SskV+GW5cA6+jUGbApZGuiSWQXi+JJQuwcDFj1bL61RWYXh+5/OZngxIMP0
kaUZWgX2lLDQxQAGCLH8Ob1ivwonk7M2i74i15vrERZ0WYWJ4qDuiNcMGB+v
apa/vgrV+8ejeWMZUNGRYHrcexXsz9YpDSUwwDP7rHH8s1W4+7Dh3u5MBvRZ
FevqF5Dr1+M7pzADak5nsFniVdBfEjE/VcKAPMPoUveyVZCj6uwy+s6A55oe
KKZuFda0q/XLVjLgMJ+CFqN/FUr2BPBdryP7yFqRJbbhVaBzP6vb0cCAjUss
BWITq7DxTtvD0UYGzA91ax6cWwXZeLvfOq0MSCt6uvMFNxM2vL98LLSbAVE5
d/+m8DOh4QBbK18PA/xTHT4UiTCBbdNX04e9DLCMOLRtWJoJHnmC2ywJBgi4
zCnt38WEZtVh17QhBqzaDIwc28uEdIeOhNHfDBg1b0y21WbCppcH62RGGFB2
OE0+RI8J+ch85dYYA25JWW0mLjDhMU9N2XcGAy4dVz9Du8iEbX1PkwunGGDy
H8vj9stMsM1ur8v6wwD5kfg/tW5M6E8X6r/7jwGCkje2/LzBBBQYU2c2zYAV
kyPmZV5MsPretKw0w4CWnOHiAn8mWIb6SxXMMqD4d/507iMmuKJ4vptzZPwS
TxQ+hDAhKij3oNI8A+77qoa+j2LCApXP6c4CA1w+rX6Pe82EG7Uc1mKLDDAf
qp97HceEyINmLzJIVjdytwpPZ8KnfdeKi5cYIOlzKOzpBybw5i3lai8zgOOj
cOXjz0yo6r0wlkPy34HBxYCvTLin5mktu8KAXtEvan7FTLg/rSHymOQqg8BL
d8uZ8M/w3roRknO9zSNuVTHhg9TeA2iVAbHZSlXu9Uy4sOlk9lOSg34trTi3
kNyRf6md5Nvra7c7dDKhK/LCKVEmA2z039jZ9jKh8J5KwDGSTe66vrT6Rebf
S3LGh+R9Waj23DATtI7KJCSTLN8vwHJmggmeztuf/yRZQOTXLtO/THDSPYz7
SV4+mmNvNMeEyqkzytMkD3sFxBxdZgK/3aW2FZJHzyjbv6NQUMBFu2ImydZT
QqzSbBS0xcNqZIHktkfLr2LWUlDhvKnpOMmGsoO7JTgpqEEMzbeRXPyttj6S
i4Iyq9V680nWOPPZQYSHgmzb5NhekJzOeMMWxkdBldVKV+xJ3vzo4Wt+QQpy
pBpy7SI5arObZogwBb2veDY+R+aD99vZRm5RCoqcpfLmkOx/WsfpkTgFiV2u
cbEneWFScS2HJLl+OsErQrJLoOBb/40UtFHdejKfzP+AzNIeVhkKUpK14DEj
ueFUzdWVLRQ0rqjO5UXqeWQyh/2OAgXh5L3DTFL/bw9fx84rUdATZwX2eyS/
L3Bp+beNjOemOqsN6RfJU2Yu13ZQ0J7wJ/SfpL+eTwAnYxcFKaQeYyqQfG+T
gNboXgpa1UtdrSf9OZ2/0HpFi4J2ij/rEyXZ8WS/66A2BV1x82M5S/r59INP
8fRDFFQhvnNdCel/lfHT3O3GFMSQU1PVIOsl75QRfnycgvi8T/UpkfV0qPDg
de2TFLSu9M2N9WS9nQvZ1p14loKO3mw41jTOgEfq69I8bCjIWDnkO42sX+GX
TEuFyxRkx5/8NpCs71iWWUGaPbnft48uKQ+S12/q9zrkQkFH+Le8Od3PgCGP
bwaCnhTU9bBpTovGAPeej6vldyhI0V9VJLaLrM/DKR8971FQeE2Y5GIHeX3R
CAniPwra8OTk2HOyHx3Kdx3NCqEg75SBF2ZkP4td2fzYOIGCfO3eP1MtIuO7
LK7N8p6CDvQ7PGF+ZcCXOr6/OSkUVBz75taPfAbUvV02l8yiIH7BBkXIJdfT
aVMcy6egV3Oz7MVpZLwPHv0MrCf1Y0nZyx9J7nfSx1uridRPh5lsGs6Aa2Y3
t0+1UJD9sUyRx88YEKhg89Ksi4Kah7eO9j1hwOcqLQf5QQqaCwp6Ie1Lngd8
U5xlixSUzOGYybjMgKbCxw/1VyhIqHW9fJcNqe/VLez1TAqiXX/T8M2a7FdV
59i61rCgvwoHShzPkRxQvsLgZUHyCRvkHYwZwL8U/XeDLAvi4snMmtrOAOrv
w7TrhizI95Fytjp5Pta8oJ9bMGZBfkr/Scj+mYQg3Tud946zoFPnDZp5JiaB
Oy677dFpFrQ4K7arZmASuCw2NL61YkGKS1/rxpsngbN5qrz6Ogu6MnPLpIg8
r9fgV1myMSyoWECTN9V2Erq0dPX63rCgjvz5YC2rScgqGKdHv2NBQxWRqhXm
k3Du8wFBwfcsKPleSlORySR8yOjzoHxkQc4txvTDeybBMkZ2X08lC5rLKLme
vm4S8jzTyiL+saBD2i2nfydOQMjcSYsTs+R8B1eOi28nwObG8gzPAgtqOIT5
mqImgPea8daAVRaUJ8qhEv1kAuzsGY+ur2NFLqqhP0rdJkDQbOex49Ks6HDC
L91beyfAadfXznWGrKilO8PlTtk4FDe0pucZsyJtxwkLjsJxEHGe8rlynBVt
2s7c8SR3HHDiFvny06yIyjEf4ZU0DkKioe6+1qwoQdnCb/7hOHxdsOWeu8GK
uJXoxe7648CNeQ8MxLKiddGx19wqxiBN/1Js0Swrcl3b+UM4ZRR2qchowwIr
ujhSdcMkdhSKeOndeIkVuVtJvfKLJO93my1ESyhsKGlbkllLwChMW5iHfOdi
Q1MhK63Kl0ZB2/343R8b2dDh73e7E8TJ8dHaZ5uOsKGvG9dx1pP3zzNjEvxD
EWxITxwTjw4PQ+7Jo2zhumuQwL/Qq/6HBsFHL+BtztAaFOG4/JIq1Q8yPQYd
8QFrUeHZh44b/Htgn6Z/uPgOdpTo88TyZ3krXNhYv8DSzI6+H1fwfepfAzNV
wf1ufhxILK46WWX0C0StsfQ4IceJWn9dFijd+goL9ebGsZZxosCxDmr1XAle
6+13au+1dcjYaD3HXrsGTEmxzOoX5EJPXl6dvv+2DVeMt7u8FeFCxuXx0h/y
2nCQuqnaBTEuNNR33qSusQ2L5h3KaJXiQoLqWfatbO1YrVIh7YcCF2KNt3AT
vtKOLwz+TcrU5kLsXa6fdZU6cL7Mwzdejlxo20iFxUBcJ75nR7HUdOZColGn
lmvyO7FuiqfUtCsX0lC22BrX0Ikb1K/GON/gQnZRr5sEVjvxMJhGW/tyoc+c
YwZrznbh9ZYbIo5EcKGHA5Picpzd2D06K1iwlAulVC23FZ+l4S/L0Q9Ly7jQ
2z/HN+VepeFlywd+7pVc6IFr0+5wXxp+KGtxo6mGC91UnLwpmEzDMelcFs/b
uZBIg5MyzywNlxfZqQhOcKEcpRDJ0eAeLPZrQ7WAGDcKlFQQ/ZLeiy0Oc5SX
SHCjVXbiSW9hL457/7fomhQ3KihfPDZZ14tVrv782LiZG2146nqjYqoX68zc
jH6myo0+y8mtntnZhx05mhwEDnEjOVua1u9PfbhQOZBTwIUb0TWnn0qQz+Ma
LaK1z9240Zmeip3vzeg4++77Z8LXudG7fYtOCpZ0HFdbISF2mxvZ3vh4i9OJ
jgNd16pK3+dGXmlGfNr+dHzi031T1Qhy/p8dDbdy6Lj6vOD6rChu9Ap+YP0C
OtZdE9el/oobHR1K+MpXTD7vny6x2RXLjQrFJnJvVdOx5Bzzxv5UbjR6xars
M0HHv/d5R+sXcaNqzTE8wk1g619Uq+pibjQVUeU0z0/gricxssbfuVHe0srL
RREC19C+ph//wY2Ud8ef65Qm8Md7i0VmTdwo8+RxT+YOAt8tvfXLbogbXb3t
8GjoDIFnHDmSfw9zo2SJO7qK5wnsIhR51WGMG1neFZq1tCLwRdvPM1enuJG9
dYJ4/BUCH2Gf4fBY5EZrVd2dgm8RWMDAXeU+LxW9KmX37g8ncGwJH/c+ASo6
5NxNvIwisPrejJE/QlT0RMLCUCeGwCYKw0kXxamodvvkqlU8gR+zW8royFHR
hpnLKd3ZBBa/t8Scl6cijFqnBXIInDwT1ZutSEV8rl9HNL8QuHKg+dWmbVS0
WVcu7kQhgdd8119P2UdFm3YaUEt/EDhs3+/pL1pUpEM4XfKoJvDmj/7NrkBF
eo9U2NfXERi9w6F9ulTE9smZc2szgevFLFwjj1JRr27nsYhWAluGLhofM6Ci
0an8z9PtBPb22c2Nj1GR9bPwnHs0AlPnmkZunqCiVkm7Xam9BI5xcfuhdpqK
nk2ZJZbRCVxgkRbw5hwV3bi9W6VigMCz+2Uo9+yoSJmhGbg4RuCAT0W9u+2p
SDIo3DBmgsDCyhcKJxypiJj9G6fCIPBOiUgvCzcqEjaf7hX7S+DSZ7vMRa5T
0b676uke/wh8Yl2TZu0NKsoqi+0tmiaw2zx1RusOFTnM7tTdOEdgpmtq87Q3
FZk+77baOU/gkN9HP6b7UlFFXvEHjQUCS1kNhtr+R0XaFtJqCosETm+77yr5
gIr4B9R/ciwReL/JJpOWQCpy2qxyq5XkqvJClaAnVGRleVjl2TKBzx04z60b
QkVtJpm0fSsEHsmZH1kKpaKIDRF3m0i+rRLx41MYFelaKFLOrhKYM2Hne6cI
Mn9Sz89Xkxy5oTFA9iUVHW2bu6/CJLB8mItt9ysq2nndx/EOyblc1ENhb6ho
/3FD9jySde+nyBi+o6IT++4Y9JPcvHCEwpZAzndVUf7f++dL1wZ6C5KoqPK1
Z8z/3j//GfYrdE+hoguDXs//kuxrLR2jlE5Fjm2HWZpJ5u/45tWfSUW73Sdo
sSS/PXbOPPoDFdGU7otfIFmtck7zRA4Vnf8lkLaG5CLtF+u5vlBRION9QDS5
f+PPO2ZK8km/Chu/liKZptrQ7PmNihIfcAwFk/G/HRPwZsNUJJRyIneWzNel
lJPywSVU1MKZx32MZPkrL+rXl1FR6JB7XwSZ3xG59tuxFVSk9eybfN3/9OgX
26z0k4okLte0T5N6ucWeq/5UTUX5De3DXCTPbuiVqmygoqkLGWxrSb0LOqUr
jzeT9fC6Y2F4hvRr5EW3rlYq0s8uUfhG+mON0GDpRBcVzSh6rVMn/VTZIH/1
Vg8V3ZZ59b5hiqy/EHsRFjoVjfNImVmT/hPgGr8iPEhFI/6NpUbjBG6pVBV4
85vcv+ARp5RRAkcFuBZsHaUi95i3K9PDBN7I8o+6n0FFDUfc8s4OEri/aNfn
sj9UdLJHvNbtF4ET7960MpmmIsHzPAm3CAKrzC98uLhA+u2FzDXTHgIzcvef
H1uiIs+9diflusl+dd17zY1VUq8XexoGOwi8l0ExC2TjQT5E0bVdLWT/GeJY
zuThQadGtx1g/iTwugT9xD38PKiKfZB2uJLsfxefmJQK8qCvimcrvcoIfLKH
912rKA9SLXA8lVVE9s8WkSPLMjxIIPm6xsGPBJZ7bsYIkONB0xrmQouZBP59
7GUU31YeZJGZOfo2jeyH1ZJjm1V4kLOZhXVuAoHvlMqG6mvwoPV5esbsEQTW
9rXb27yHB0UY7ful8pzArNrv+y/s50FF2o2bdUIIHJivtNsN8aCj7HY3dzwg
cET29q4IAx70ropxQvMGgbPfgNyAJQ+yOROyUHyMwP+8/nFcvMiD5NQPNrQZ
EFjD7P1Yjw0P2vKtx7HrMIG/8vF9arfnQYxOufLU/QSu8O3VqXbnQS7yK6su
8gTuvuRt9fEBD8p31OHynqfjjbD90LZHPCgwWy7c8S8dW28YlE9/woM2iv53
5PA4HQ81G00mhvKgV3qRKyV9dDylK+n9MpoHJX5ljW8vp2P2rV+jfTN5ULmb
6i6nEDrWZ3O9t5LNg17qMtPlH9JxUN/mS16feFD6P6EPdT50LBD1WNEjjweF
zt/eOeBGnmfrzuVdKeVBA7F/ueVO0PGOsflWkzYexLL5x/lJfjq2yNIQkFrl
QUZnknbWr/biz+fmeRsovKijKvxU5Egv5mUvoP7Hxov+9lfnqLX04uILBzhH
OHnRQeGS6qrkXryZS5eZI8SLvF2u+uQe68VDtqYTRoq8qCko2kA7vAe7SFz9
efcUL+oUz268PNeNK8pVK7eZ8aJ3bYHXBrq7sfQ1Rlm/OS/K+y+CqlbcjRsq
3Yv1rHgRtcG3Si6wG++44flF2JEXnXSu9nkt0o3n6h8kpvvwIrfQz88S5Luw
b8A7P1oqL7K/8dzcZFMH5rnFYXAxgxeJeiput6F04Gh7Z8GhLF5kI/Wl9Si9
HX8y3BvPyOFFFj/yVX3ftuMhgcYyVsyLaL/eZaduaMeGbyicis28iGO0PKuZ
qw2v/2IVcmOJF52xCt3f9b0ZxyeXn1lc4UWRVvY1ha+bsXq0srQPhQ9d6Jex
cbnVjPW957IC1/KhW2vO6WkoNeO7h542vuLjQwYPGHcsg5twf32RcKksH/LP
aale1m/EGcNSr3iN+NCx+weaEzRrceDrAOteEz7UUTvfOdZcg21PTGzJNOVD
lnn839Jda7Dkt2/ZxmZ8iO3iWqFXidX48dPzFUGX+JBz+D5eWe4qbK/x8g+X
Jx9SqZTfkvytAm/2F9bjSOJD+opDoQ9dMV7dc5enPZn8/eFJ27CAItw58asp
KY0PnU0trLkfXYhDzT5ZHPnAh5Jfqp3gKvmKmUonrgd840OHjzCIDEoepjU+
fcPWzIfcPezPt+hn47wHczbNrXxon+7ebXmvMnH4fivF+A7yerrPHO69S8eG
iWo5B3vJeM8ksiknJeOC27U//Ub40Huh7fTfYbE4QnX3U9NxPnRzyWZ+k9Br
fK0/5pQMgw/F+Agr1i9EYQWjq33F03yo7/D01n35oXgNS0tC6BwfmhMefD0o
+wjTc/c7Wi/yoYNr7yBKjS/+5hi/TX2FD8Vb60v5trrhSGnuGSaTD6X50f7/
/zz/B6vLsA8=
       "]], LineBox[CompressedData["
1:eJwVl3k8VP8XxoUsM5aSCClKtiQpa3I+RUqWCEmhLKlElq+EkMpSIUuSJCml
xV5ki8vMIMyUfd8ia7YZ29h/9/fPzOv9mrn3nvM8zzn3Xkl7t3NXWVlYWEzx
j/9/n7k62lA+dlv7jnmwf7pagDa7jqh7n4g5/HrMIuBRdhEOv0lI+ibiCNkf
xsYeZDuDAa3t62sRL+BbZBHnifUDS8fF0liRYJDzM/x+3/IJ9BwM04kUiQNW
21eVlwdfQsr2s6FPRN6DSOVR/fj1T3CX9oJyvvg9yJxgEZ4r+AznQ/pZ9176
ANxJQZe93L8Az7zHvZKkNMDW9AR6e9PBpznOZ2L3Z+i0j2yxy80C02edzsbS
WaDMbZ1KEfoK97m+yTwWyQPeuymZqScKQP5UzKOv7nkQQvQ/9CihABpD3Ma6
qvNg2FfblTFZAFJsCumK3vlgJ2kiavWiEKrW3is2N36HPRciP3n/LQKe2XiV
3RFFYH860PLA9R+Q0OOnk79eBmmPUnZlhZfD8Z1W73stMFBMsC3Qyi6H8Ytq
m7kyMdinZXY+trEcdk34OmQeKAeeL5fkn+2oALcbqvtYusvhTGZ1xdTbChBw
zP70QZ0EUoauxvJfSHDB6m32DJ0CzillPvExFJjuMie8E62EftbA7VcyKBBq
y3XVTKcSXjeYR65UUeCbg5vo97hKOFYR5v1phQJ8t46F3FWrAnT1BWePfSVU
Pui4yBFQDbL/tbdVy1aB9ebI/IIP1VB3MvlcCaoCRhjacuNXNdzjETn14EIV
SER+rKzb/RMc68TZw8OqwP/FbaUY0k8Ifdjw+slgFShnbOXYyVULoqZSxRee
VUONYuUVmlItsNyPaon6VA1Xcn1KAq1qocFQgD2ptBoiv/e5//lSC08tWFiO
jFTDaHlmV5pRHdBfUDSuqv+E5Bb93EPPqOC9ndky0PgTiBv3rU/t+g0NOTVp
y6M1kHDD0lZB7zds+dnTkMesAalmhStbb/2GgUzLstN4Hdqf2xy6Sn9DjESd
+rp0LRR9js8vUKyH2ZxKeGdfC5NmEz8MftWD9Z224YHGWjjC3XZMe6AeXn73
5NXtrwW/sooypYV6KNbyvx40WQucci/Kt+9qACQ5KxzOWQeS68cpfa4N4N+0
pX9cow4sPr2o+4+3EazequwZfVEHSTYPDJ0kG6GRLdWEM7UOBgRcaRdUGsFM
76skW1YduAWc+H3MphEk1BI5Ysh18PjcZCNnZiNE1ZSc55qsg3rOdrPl8kb4
vRGynX+xDoRKSc0TzY0wzaelMMtChVSZhNaG1UbIHMkrMROkQunqic5Xhk1w
7nhdh48GFdi/Hrj09EoTDPzi/O1yggpnru3oDvJqArsF3XptAyq0NUz2XE1q
ApGPbiYB1lSgpyX8OTjRBC4E7WKnACrsM50aJYc3AxxOKVovpILovVOa1942
Q/4nqwce5VTYkpkSTihoBgXp+dXSaiosc5kpmg40QwLjh8/fFirUlxf816ve
AivHg984z1ChcmpL5X3jFrDR8uDJWqBC8U5noX2OLSBCusZDXaXCB5+dRTej
WmB9e6hKAhcN/JTurzOHWkCz9u1Rr100cLPtPJu00gL3eveaRO2lgWPE4bew
tRVQl3xbiCwNzo4O6YRqtYK9JEfGZmUa6ArBc7lzrfB3+fqhKFUaaOomDFOv
tYJwj2vCnCYNpFLOPN72rBXUTh7yM9Ohgciv1M7vn1rBt/W0gtEpGvCtru6/
WNYKO8LyFPca0GDJMvtXylgrBFXNxDqeo8FUCJeE7kYrNHb93V9vQYO/3+w8
RgTbIFnc6+EOKxr84hcUVERtsOO1XTdcpgH5mOvVBos2iOrOFNxtT4PCm1Xf
vW62AZehh2+XIw1Sq32sSuLbgC4zozJxgwYJ8w1fbDPa4PJWRwpyocHTvftX
N5HaoEaqfMLzFg187vUkn55sg3WFCz7unjRwzVSd+cfaDmsiwgJaXjSw74o6
HrWjHZwkKV+HbtPgAvdYrLJiOzRujr7teocGRmon/rbotINhx/vbTT40OHH1
lYqvVTtorO37JexHA/Vnc6E73drh5h6lRM27NDhQYdSOBbeDuH7H3FF/GuyZ
TpNzSGyHmXKlJbEAGgiLs9zlyGmHcVkgdeLMY2BF/VzZDr5uHDd9AmnA6vtV
3KirHbwa7/PN47yYRnSbmWmHbX0fqk3u0WCi2bH8GUcHsHheyQ3HeYC1bKva
zg7QKUgY/oBzm5KwQ+ehDjglf/DBG5yptu55Aac6YOr5WrIPzqSIms2SNh1w
W7DN8hDOBcV7LCmeHRDI/6i6Br9exujdT9cedYA4auU6gfM7oZYlQnIHVGYF
qSbi9b7QVTTI+tYBht/gZiPeX4RnWJJpDV7PPKViHO//QUr/5FxvBwQ7l5gP
4vrc+aUBCXMdMGJVrf3DF8+LYv5QDVcn3AOmXQSu5/tIpYiVnZ2gxfV913Fc
b83JdOUDhzpBqCPhSSfuR4OhTIftyU7oIB8uuYD7dT3j3b1oq07YXS1YVYL7
uU7cJU1y7YSzvyjlbB402F8n+N+++E4gqCZ1nXDF+5WPFrH80glOvD+kNW/i
/j4hlj8q6wST1lcFQnh+QvRZeSeGO0Hb0pwlCM9XX/V02le1Lhh+lRS8/SIN
vGVuGv016IKLPE3mGpa4X2HDs9uvdIFiTsF2HXMaaOj1IN9HXaCi966My5gG
zyi1eLFdsHD13oYtooG8lN59j8kuUP1K+5inRYPyhxUyqZu68X3y3/iMOg0m
TxR6cch3A6ld85n4IRqcqvjAR/Prhjr9n+X6EjTolZDMX3/aDfSz3E9axWjg
FZR0SSm1G9w+csSfEabBW3j26VldN/Arc9WO8tJgpTToxMWdPbCvvfrfxhIV
YsVXR8OVeuDb1hzBmjkqyAbciSrV7YE8Hy8Zv2kqWGjd6pZw7QFXkwqbuL9U
yC6+5D1S2gPD/q/OpdOooCfatlOksQew9UL+7/j+6vY9Rz4z3AOJpZHWnyuo
wK2hvyWLrxfMeMcX9fOp4FCg+sXrci8I3zvgffsVFYTztvZu2tQHgywqoWEO
VLCOWDH/K9QHL/vVn4dcosI7x6G6KoU+iDh2JuWGGRUUthcVhV/og5PbOAT+
4vv4hPeV59tz+iDt0y3VDxJUUE2yTIs72A+6ym4sbm11YPWI+idEsx8KeFn+
tNPqwN/ruPidk/2QwjhyQZ5SBxWG++OsLvVDvt9R9+CcOjBcW7+/K6wf7k9x
8u54VAd2tmk2n3r7wTWJe3uTch0EnxF7+XKsH1hm+bVIMnWQphrd/GSuHxRb
TSITd9bBBJ+fgSvhDwz+8RTg5KgDb8xIQ1n1D7jc0LVrbKuFCIl5wR+Rf0CL
HlZ76k4tfB/Qof7WGoB/1Y4yF9NqoPX0fXrkqQGIPnOosjehBhayyoQMzw2A
OtZiYRJeA2p3Nex+XhsApYyxL8tuNVC47eBCeewAKHz4+PaWeg0U6YpKfB0d
gCdNt1+MVP6EH2kz/8XFDYLg8o/14qZqIDm/FrOa+Avcz06ol2KV8G3s5k3b
hb/A4uefbp1dCe+va5Y4sAyBP32/+UxyJYQ4tV28JTgEywOFT+YCKuG0/dbE
h1pDsHpW0NXzaCX8tgrZkRUxBOpJ88vn8ijQfdp1O9uBYZBlcHWKJ5NhXvoY
f6brCFT6zXnes6gA1qX0LWL7xuFE3nZWffZCUN248t0sawLSK1p2lSqkAzX4
yK8q+WmwNzW7kN3zBHZH/1v6PDUDxuY8r/xlXmP/Fvt6W5QYsG0k7fbbGznY
92tRpDOqDGitX86YfZqDBbVpp2FHGWCoEFShlJeDCRW8dv2sx4B/+kO7bq7n
YCe8L636WzPAyDh8sScmF0ucaxWResSAG/cNctPyvmKn6TRzzz4GiP5e+yA2
loe9Hy+p5Xs6C+dYKln9uYqwWy/O7nV+NgvSn5WeqssUYWq6g3crE2ZherO3
XNfJIqz2NeGAf+osnL9Xqd34oAijm1hFjRXOgrMrLTdkpQjTLlgwowzOAnva
deOZkWKs4+GhHl+NOXBnBmUYZPzA3ilVqrRoz8E+ub2b31f/wFx6LjxV0p0D
qc6Bjb6BHxiLWhCMGM9BhLZdDKtIKSY9/uutueMcaIsX7pp5WIp5mbg4HYya
g5d7F/qszcswPvGP03//zoFvw83HG70Yhs4/7Bkcm4NDPP81bJ3HMM+oy3UD
U3Ng8+kQFry5HGvdtONjP3MO7vvTr5mLlWPJw49su3nmQXG6Z/ScXjmmmONM
azoyD0z11qKql+WYkY5iOil4Hj707d17SbUCC/QnvKx4PA/W/b0JmVCB5eQP
h5Y/nQcBvaFJ+ukKTFD2jX1Zwjw8kc/faXKpAuvm2SJanDEPrroJvXb3KjCX
Vvqj3OZ5cFgVjWyhVGARN/KdUqQWYFSeYN+kS8LGUeYjovwCTFzr/bdoSMJO
7fjwxfvgAoj95J0nWJAw1uq4KUPNBRBijbq+6kjCfKW8vJfOLsDmKSKRJ5iE
OfUph567uwAFeyKJ7WUkjPJd/lNp0ALMfmdX+VNJwvY83VMrG7oAQ/2yru1U
EtajJcC3Eb0AGpxqU9GdJMw8kf48PQ3/v5qUt9w8CTtukfOBvXEB9CdkahjS
ZCxZ4VO1W9sCvNzXXdShQMZW2VLGOrsXQMrlzNksZTJW+DXqQO7IArgfphhL
aJMxxS1u+TZreH9G2VPS5mQsYsSp7SfrInS5hZn5WZGx8TLbpcNci/C+O02+
xJaMfXA1PkbYtggTcqzCm2+QsZ11Byq/yy7C5+IYrSJ/Mub3bt+IpOIiPFXt
Drtzn4y1+YpzRx5eBBmtL4J7Q8lYrCyvkYP2IpxhTnUejyJj3KETzfzmi7Dc
5+T1OoWMLaD0v9fvLcJUcSi5GiNjP97/e3UneBEaDD7qiJHJ2AMuBbPQx4sg
NiC127aKjPHVZ1SkPlsEqWCZ1lwqGZO+nJXc+3ERfr1eqYpuJ2MTpCmLyYxF
MIiNeW/bRca+Sh/kXc1dhKNHx4vEesmY9lT2XZEfiyDx5o6fwyAZOx+Qe8G8
fhEGEhU6ZSfx/v7Q+R1aFuGGZe+q2zQZG9BVrvboXATT+I0jaXQydovnm0rU
30Ww3/2zuW+ejB1xn514PYbXyxA+MrhIxpabDr/PmFqEA5dkE1qWyFjoqzyB
WuYi3FcVtA1bI2OGG3M17WuLkCxUUaC3QcYEHFTuj7Ay4d/Vhs3zLBQsWf77
NDsvEzKuLt7axU7BHJ8upG0TYMLua5wPXm6mYPIMVds9wkwo93XzZeOkYPlF
BVSQZEJPptfm99wUzE+c+dBYmgmH2VViOwkUDN1XP2qznwm3Wp7NbhApGMeQ
D+OmEhOUH2bvE+SlYNTTRZ/9VJiQFJ4uJcxHwWIzlq481mTCycc5E1z8FOzC
Fs0dCcAEncMTvmM47/Ly+52mywRZm5ifhVso2N+24tB8fSasL7Q1e2+lYF+O
rhyjGDPBmHctca8ABXN/c3S+0YwJYjUnhDGcVdn8M/5cYMJft5mT+tso2KrT
D4cZGyakOZzbS8KZVLsqumHPhOY9xelyghTskeKxRt7rTLhyOrDrHs7GsQGP
d7oyoSh8OYuCs+BCKdrvyYTK8qg9TJw7rdYXNe4wYbwtVVl0OwVLKdXOPu3P
BO7et13yODtJ3nOyvM8E/9Ulkf+zQggm7hTKhB2+kuPCODNGN5q9wnH9vsee
nsPPV2iIIh5GM+GVMu0QhnNgTpBO7HMmvHhs8c4HZ13BiuWURCZMeubHS+BM
8Nn0NfsNE/pId4kFeD/1XcdvlL1ngoyz1tpRnOPhgQTtMxNYvKOvZ+N6WKeS
2rqymLBzi9CZrTjv4WSLGv/GhI+B7sl2uJ6jzjp6S4VMMJU6bZ+C6+2lTMkT
IuP9KMrvH8P9cjoikRLzkwnHm7V+9eB+XlD1D+f5xYQnt7lJpTwU7Ix6u3dY
ExMCW91ZH+P+H9U8Ys/awYSI6ovhgOdDQSvaKKCXCZv2fb/whwv3V3tCnTnI
BNY2H6dbeL5YT7znn5piQpDgwcNn8DzO6bCsXJ9jwtP0Q+MJrBRs6KT18OAS
npesooZGPL8/9QVLO9iXQC66cg8Xnvco02DnStElYEadtvOZI2NBZv0WSGIJ
AlbKlSQYZMzTQut4yb4loGkYCXzD5+281ZxwrtISPNeZWn05js+jnWNlkt4S
tOcxCS59+Pw7lOcIG+IcEbzZpZuMsVzdmRRrugTmz2/Pn+8gY4PXmz0fWS8B
tTr/42QjGfvirivh5bkE3zTvLYhXkrEkzxTi9J0lSKpr0rpdQcYivVYXbgQs
Afx5a1NQSsbcffJolx8tweqHYsnVfDKmFiR11yB5CYz9Oy6GfSBjsg+CnKpS
l4BRRRZTeUvGRIO7TY9/XoIdf9Zf05LI2HpYnKxa3hIEEqw6y56RMUoUe+ue
2iV4dYfU9zaIjH2PuVLx+vcSKB2SufDhLhn79OxHxo6WJUhe8fZ75k3Gwl94
PeTrX4Juypfcgy5k7Nybv0rL80tQQPv6+tp5MtaXRQlvkFyGWVK/eBO+/+sn
2SeUZZYhqTww5bUEGStXOGkYp7AMuVulnc1EyVjKl0oeS7VlEOL/WBPES8bs
06oiuw2XIb8swH+AQcKGX/+MGrmzDF/fm/VhRSSstZtr5nTAMmwVzWs+9pWE
VYvpm3x5sAyOHbdm0r6QsE8va7a4Ri6DdULGM81XJMz5eW0M490yiDvXWF67
S8ImI6jP1mjLoHWV40qLGgnrreOZs21aBo3Rc1PsB0nYL4KReXn7MlTktj7a
LU3Csh7RBB8OLoO7f3/3dkES5h786znX0jI4GDE6OaYrsLm79S+2Sa3AoqaK
4FJKBbbi3PxKzm8FbFz3rArNl2PmqjYxivdWINtjiu3meDmWsWk49HDwChhf
VP2W0VeO2SYsehx7ugKlHw04lmrKsYpK0dOm71YgM2aXZ/7rcixMwm7Op3YF
xgW0eUuPl2PbWicNf4quQkrwug+RWYa5vPU+Qdu9Cmly+3V39pZhFJcNtUap
VVjyMj/HRSnDvNm27u1WXAUxke/qnlFlWIfSkaXpE6sgWBitFilVhr0J9/sg
fHMVPphxuvafKsX2H+dcdypZhZX5Gs1N/5VgOV/SZdrLVwGUL3OMmpZgRwRN
TPWrVqGucIOUqlSCaY0kvN/fsArLxnuEEyeLMeNIeYOZ4VUoKZV3fHC1GPPs
MErwFViDDF+5RzpGRViRR5xyxI01SLR2CExc/Y6deid5LVd4HRK3tJy17srF
jiTwSVftXAcPqyOt977mYhJPV/52Sq7DMf+PSYGPc7Fl3xZ7doV1qN6lucKr
lotlmj62tUTrQM93vesVnYNt20S3WLu+Dq1aJ0RrfLKwvsvluvrF67B/m+SD
Yfon7I745T1/rDfAq+Zk9ZpwImZvonS+224DhPZocFmbv8SMH2560ua0gd/f
2Z2VoxMw6bFUOs19A55F7Fg6xfECa84bLS8O3gD/pSsKIhPPMCVDz8txGRtw
dNPksTatcGzULyTp1OoGHIlXiK1t1MEUJiyIbUYsaGxUu9B0IhG28c9wUZZZ
kC0vYU3ZtgDYsVfZe5M2oTuXXcpsb1Lg5pGSDm4DVlQy7Ld3d9MvSNe3Tylb
YEVHVVvkn/xrhvl/oluG49nQjiJJFdvznZBvdootTpcdvfNykVtW6Yd7p0Pe
5A2zo8DxfSyuIoMg2XOmPTVkMyqbJo3RJoZAUy04TkSZA23f09fY828UrHf9
XtrUxIHWF/UiT8b/g/nayAH3+5xIRU7A49PxKUhgt/U6J8WF3h6YyvQ4OgPr
DsIqDdJcKEa7WcITZsCRXD9/Vo4L7TdManHTmQGlBzp3jBS5UJPn/LK9wQz8
3JD1O63OhTYlvpmWuTQDi8uz97QNudCj5f8s5P1m4Dz9cbi8FxeyWDmfsJE/
Az9MdAw/e3OhQQPC7dSiGdiTs8oj68uFtEuidXRLZ2DqltvTfYFcCMIm0v0p
MxAyYR4j8YgLPemPs//ZOAN5I7tfCCVxIaqO+f4a/D1pW2/+O1YKF8qu2S1r
K0WHpzwBAQVVXOgKn5XVHxk6EI7qXnCp4UIce1eir+ynA2tCI2/rL7xeXnEO
M2U6MEynfT53cKFOaYkvnIgO9ZWyZ02muZCv2YfRjIt0iMh8tfJalBspiRRE
/Y6gA1e3fes5cW4UoXF2My2KDsEE+VxOCW5kF9sgWBVLh7vXCp089nEj3mnq
7JcEOjhLtjToKnGjepdFE3hPh9PP+T79O8mNFtmlgqKK6bA54L65hgc3+hyw
Uy9/kA559Ikl7D9upOchqLAwRAdHpwtv9Ly5Eee2mS7lUTpQzh4cN7vLjUTO
Vke+mcCvv6fn3q0QbvQqkn3s5Dwd2H+qp6e+5EYsdNE58mYG5Gm9N5FP4kZJ
kTk7yzkZ4JjLv5CTzI0uVH/rL+BmACVxGJWlcqOgM2cPJvIy4KFrXGt7JjdC
ftQ4ue0MYN02s4mPxI2EH1yYct/LgK9hlz7GUbjRF6errvv2McB+tcpQrJob
VW5UXWiRZgBp6PULWSo3mmlIvy4jz4AHhQYHdFq5UfxIvUgc/h67yfbjBZ9x
biS1RVQ6UosBOY0C6+sT3GjD7szmxWMMuHIqMDVkmhsd+LRN0hoYUK5kMRU7
x41We26y7jjBgCA2tuDMdW4UMDIufP4UA1g+22YPCBBQXh91bNSEAVUTbbfe
bCegBAXtgp3nGBChZKpovYOAxHwSv50xY4BwoU5mizgBHah6JvfcggGK1bLp
P2UJaE2r9fWgFQPmCO+cQ/YTkNFbxu3RiwwoNhaTP6FIQB3pAzYjlxhwspX3
c8lhAkq2fmvUZMMA6yFGWpY2AR3OkAQHOwbskXNxunmcgOKGbsiq2zNg1GVo
n6wuAd0+rcrK6cCA/+ba3r/VJ6D7kql3Yh0ZoK5u6mhrSEDZh64Sz15lwPrd
2r1iZwnI5s3Uvc1ODHjCVvouzpyA5iRiVi5fY4DJKVV7U0sCOl9LWWa7zgCh
8GxJvosEJLE6V/sW53cC71LCLhNQSoD3r9obDLh+XuyKrj0BIduuJQtnvN/E
uN2brhKQ5JjDcCfORZJhyX7OBKThu8ZouMmAwKsstmquBFRPECPqujBA97Ov
+JwbAd24fLs5G2fCJKM7x5OAqsO3GGx3ZUC9kkuS620CEqdMO3vhHO81dEne
h4D4rLcr0XC2LrQVG/EjoM9VD+J338L1WW3rTA0gIPd49cSbOI+CaeKVIFzv
AFW1XJyzHtZaiT8koLeGd2/M4OxVrSPSGUJAKvPsB+TcGKBJLG2Pf0RAJ8Lq
Ay7hvGGsmmAWTkD/KXdahuFMic223PKUgHpOihdk4PykVVaYFk1AnEpxL+pw
NhF91/r4GQENBarPD+IsZCsWrxeP+9vHSp3HufttnAXbSwIq3P1PeJM7rucQ
7/byVwSEyY82b8b5ulxYs38yAb3hmVlnw/mAK0ucxlvc35nFmBX8eEaOr9lC
KgHRJOYeT+BcOMcQ+JZGQO842wdacQ5Ud2l0+0xAlxXjE4px1vUfilHIIKCu
YxIfX+BMKLc1HcsiINt1J8ItnOvZ2rek5RLQa8uLZcdwjj9lWm+fR0AlJmNl
HDhfCq+N2l2A67eFlasG10vit87Z7iICMuuOeR6M87BAKd/LHwR0TDTEQQNn
z8TsSAESAaXv0sl5ivtTsJoYRqIQELNZc04J51Xb0Pue1QRkVWv8kYr7HbbX
5nYjlYAIDQYGM3g+qCGn3R78JiAhrv+O+OAsMHr4hnIjPn81ygFLeJ6SMgg2
sW14Ho9Pi4/i+fvDt3D+RCcBRb3Ye8sCZ2mPPyaMbgJqK7rM9wPPa45Koe65
AQJSyrA4eBvPd2XZVQWBSQISyWgNicfngyBpKk2aJqDfvpOjNHx+TB5qSXgy
COjUHbL/Oj5fnae2CTYu4vOgtiRtgM/fVH35SgwrEa2l/Ccci8/n4cMZ88c3
E9F5b4/YWGsG+Dx/MU3nJKKH33N3ReDzzHbx1qApLxFREvZfcsbnf8egWN3W
HUS0IK8632jOAJuTnJUVokQUZhoY/grfH+8+Mso8xIlIet5ymw2+XxRcar42
7CGikPK2kdqzDDg+750Yc4CIFncFHzE9w4BQS/u440pE9PRl+0j/aVy/IqOn
dGUiivHrcLmB76/zgVIPTNWJyON6b5ejLgOcORtvbNUhonyxoh52bQZk3yh1
qDhJRFZpmlkX8X05V/fJxuM0EdEtzyp91mTAveh7pg1GRLRbUEhDSY0BcSIH
NGIuEFH6Y+mJoYMMKN3/iGvrLfz3V9uMJ3YzQLVZmBbrTkRD5znkZ8Rx/f0/
xgj+R0SFJBXPSTG8P1qV6A4fIuqe59FsFmbAI7fNB3Y/ICKGfu2Zc/wMOPft
gemBeCLS1xsO412jQ90lAaHsBCLSI0m+TFumgy77u06lV0R0KeTSH3UmHdQs
KhyOpBDR/kxHbv1ZOuxc3Lh99AsRJTwZthIeo8OIZkCifhkRfTF3Jt5oosOV
QZ7LdeVExCl5belZPR06w5P2GpGJqOx3yGgBjQ7U7pIMk59ElCiZ9GO8mg5f
A5fLLBuJKGffoZ6VEjr4k+4MXh0mIiCJctS8o8PWM54KD/h4kEiFN+eiMx1S
KviJmlt5kHpZyMtxJzooaWSO0bfxoKGzfe4t9nQwlh1NsxPhQVa81T3R+P3/
CYet5HEpHjRzKPxIsj5+fyXrC7Fo8qDbyfvn+KTpsHBUkiXwKg+aXD94X64d
f175Vtarcp0H+Sw/FV/Dn1cE91uXTjrzIF8pcK+mzcBh0Rd+Nu486Fu2nzQi
z4A7k2de6y4PCo8OtqzInIGxPObYSjQPUrXSa1wPmoHuA/VNvj94kBxnvZKe
xAy8+bc1gA3jQTLPBi3MRWfA/rOZdGQFD5LfhAatBPHjpdp8Uqp4EIqokDHg
moEFsV7x6noelJX2pDu8bxq2EiauCQ7xINmuY7rKftOgN8y5msXLix4ki29T
ezcF3O/1P6hv4UWv2RJLd8VNAdUu3JgkwItmj205ORcyBWY9fG9bhHnRTxsJ
6vUbU3ClebveqiQvKhvaNOh9cArukvZG66vyonqNXR4ShZOQkwxSf215UWuA
ab5nyQTM+s1y2tnxItvh9d9W6ROgavnxX48DLzrNeSdS8dUElPDzf2u7zota
tOWaUvwmoCqo93idJy86JbBR9FF9ArrsAy5/DeVFceK/vdRz/wGHTEliUBYv
mikTv3Qobhz02dwC13J4kd3fwctl98chom+Pvd83XlRL19yh7jYOWxOeyHkV
8qItFo4hdP1x2Ml9sfAaiRfRpHsC7q6PgfI/ZotxKy/a8RmdHHIYA5ts1a3i
67yoUpTc07l7FL5fZPLVs/AhzyqMJMM9CnwcxTwP2fgQUc6o3poxAuXWx7jG
uPiQ4qOyY/coI7CHoLuRt40P3WDZZfz+2ggMO5pOGsrxof18HilOn4fhlqhL
jb85H9pWcikmVHQIgkLe3u/+woc4pMLtWXP/AO8dzjN2mXzo+6XZVyvP/0Di
dVeB4Ww+lFM5Ndjj9we+GWikTufxoTQ3w0Ab3T8wvLWBworxoXPXRWZPtfaD
QTILl1wTHzr/R1gk5F8fCBVcfnp7hQ+5xBR7yuh1Q+ao+Cs+Q35kF6xp88K5
GR69DrnSa8yPOn7+I3dKNIPjucl9Wab8qLCYktPX2gQ7f/zIMbLkR+Sv+T8O
nGiCJ1GXqiLs+VHo00Mrbdsb4brqSzrBlx+xrFkNvbH/DXuCBU9zpvGjk5q8
G6fcK2Fd3Z+37RM/epETH9FIpUDH5GBjWjo/EjjDI9gpS4Foy282ern8qFLS
0fByHwk25M/9F/KDH8kkfmE9plcO3Q1RyWxN+Plf7Gs9spAPhaGLDk0t/Ojw
RCN3SXIexB29LJfazo/U9odyquh9A4MPinknevmRFvu1ZtbYHCj2odXcH+NH
3kKcufMaaRB/QCXKdIIf1U0EsMr5pYLHQJK55DQ/Kv7s/fVYYQrIGrr0lc/x
o1eOWZJbrOOBfVPz++hFfmQjUXfFpy4a+vOPOl9Z5ke1/UQdTddQ+OGcelBp
jR/lf31vOnvbG17sJs5vbPAjsXr/3PKx59r/A5sQaV4=
       "]], 
      LineBox[CompressedData["
1:eJwVmHk4VV8Xx8O9CKGoEBmiFOFX0iDWLiqFZCoJIak0KFM0IUPKmOkqFO49
GoyZCRsZypTMhIQMmZLhmuI97z/3PJ/n7Gfvvb7ftdY9e0ta2xtcZl2zZs1Z
8uf/z1OXh7+VjDirR6/pf1kyYlxM0RC5/UPYCKpCS8xP8yrjva+jYjKFbYBp
A00RrJpYu64tI1bYCdpl1MwcRg3xORtmUaiwN4Q2Xyq+X3QJdys+0QgUDods
60x5M2tHHLdRz/eZMAN+LLI3bEx7jO/X0crPFjBg2Lq/QOqgFz7r08u67QIB
+acFIh6XeWGe2TvuH2MSQUY9+OnhJm/s2hzuOib+DjqifAPpY75YP6zT7vT2
VKDvCQgPWn2GPTkzdzwVzgJKXXeIvNFzvOvEc7+M21kgcklgCyPsOW70sR/5
XpUF6cPFSYWNz7E0m3ySgks2CF/6VfFNLxRX/mMoNDfmgFHvDYnQY2GYZzpy
n3hAPvwylDkfKx6Bo7rvaWSvFMPWmEozu+AofET0PKPHGEOi0M/G25+i8G/T
/VTOFAwjunRLcWYU3jrmdilldwnkb0uKdzZ/ge2vqcis6SqBLe+ja3m2v8Qb
bNLeEgfKgOLvoLjpTTQ2OR+f9meqHKYTRRI22r3Ck9+NuBJEKmBjmNDmupBX
2NeC87KhRgX4n2zoVst9hTMv2YvkhFdA2TEKvw7ba8x7S83n/v5KWOU+1yge
9RpXPO4wZX9YBXpLAZ6XTeOwGTUwO5eogrx9fZyR1+Pw3yeI/1p9FQRzDkQw
HsRhicA3FTXin+H9ObvNZq/i8AOas9Lzss8g2FUpuL83Du9JXs8uylkNxgYl
X9LM4/EXhQrLOqVq+Oqc8qn6Rjy2/OD68dH5auChdolU3I/HgTk/bv98Xw1r
guVUTF7E4+GSlO+JujVw9WmG42JjPH7VcvLDf2G1wJIqG3oEJWDuVU+zE1u/
gozbFb+bbHQcde2chfzxr6Bvaix7mZeOpZvlLdff+gqClgKTIEzH6u/aLn0v
+goQX6f+WoGO899FZucqNEB8by07hwkdjxuOFWrXN4A3V5JMAEHHymvb1NT7
GqBkNPc4TqXje8WlxUpzDcASE/2pNZeOOXbSSjZu/QbEgrtY5hc6llw5Uv7j
5jfQXdt5ddsYHRu/pdU4rmuEdcv97NNyDBxj/ljHVrIRJBfVWpz2MnDfhpt1
JvsawTE0TrHrEAPbPzz6Vc28Edb/7mu6cJKBnxqMN3KkNMJtXuqIxGUGbuBo
N1wsaYSkp7e2f7vOwJuKyprHmhuB68NO3ysODEzfEdX6bbkRwkvMmcfdGbho
+WhntE4T5LrKJTXSGJiSsftCkGUTUIsyqDmxDHzqilCXh1MTBD15vdmDzsBt
38a7L8c0QfPXtqTPqQw8lRj1U3GsCfLdmdG7yxn4gJmXtdSaZogUYcnT+sLA
j9bf6hcUbIbF7tPi2vUMzP1A49eCajPMWJ8SZm9nYBn9ieFP/s0w4PSx8Oxv
BhZxP3HoSnwz8Bjr6XJPMjB/Spw/V24zDD9ddKNPM/Aip6GCfl8zHNuXR3Ff
JuMtyXXsOdACH74ctfvFQ+CKCf4Kz9Mt0Gq6xzafn8AFonabZGxaQKG9LveO
IIEJV9H868Et0F1lmBe8hcD3lDxX5n+1gK/83kwvWQLbW3TqxSy1wCeG1s8H
cgS2CdgbD+tbwfXeX9ELCgTWG/6l4Xu4FbwuuApV7SWw5iaI2GnQCmyHV6jG
KgQ+pBk1WHulFY5K3zD7fIDA0nGnngqEtUKWONfri2oEFq6nd+a8bYUTXql5
XkBg3uVlOdPiVjAI3hYZeITAC+fS6uNGWoEjaSvT4BiBJ3w4JTRXW+GIb/8b
3hMEHsi0ujMk2AYy8XMu6VoErucTFFRAbeAWqVqdqE3gT2o3L38zboO8XJf7
SzoEzrtemeN0vQ0OJ24gVE4TOPWFOKeQZxuMa3uZm+gRmF7lev5jZBts6dv3
0fIMgaNmv723SG6Dh1MhzXr6BA7aJrfMUtYGigYzWMaAwF763rpEWxsUyOWH
9ZHs6t79Smu8DThn/7P1NSTwzRSVP6Os7XDT6b3ueiMCW38PPhIs1A4MfMXS
i2STtSOhexTaoVr1bVYXybr7jw60aJDjY+mWYsYEPno5ep/b+Xa4P/zs3jGS
D4TN+Irat4PWbT8hY5J3l+q2Y+92CG/DZ3RIlppM3HnpZTv48J8+KEfyZrE1
99nT2yHB7OTwFDk/j/b52ncV7dCvU+oYRzKrW4aY7vd2iCstnlIhmZnIbf/n
TztE/tZwzSb3P9ZsUxLG3gEzx3XEREnuYy1ev1+0A44TtXN2ZLxtSpsvdf7X
Ae7bMkUSSH1qLW5nPTzRAWsUh16VkvqVBXyhSpp3QKD3yRdfSH1zC6TOlTt0
wGmlLPECUv/k4ftvr/h1QGfg4okwXQInbGpZ4HrVATu1RnYYk37RNBW0UzM7
IPL88ZbVUwQOcHgSo/+lA/5wf7scdpLAd+sPQtRMBzzm0H7ifJzMH4XsX184
O2ETw7z/pyaBGYFKAUuinRBzR/PqIQ0Cf9PZ0WFxrBNU4pr3pJP5djU5wT3k
fCck64dH15H5uMK9dXvZzU5obzZybFMlsFyNoKNMZCeMitVlp+8n49kVInzu
fSckvHTQ8NhH+veMu8SvuBNSz874HCbz3+ck67qxwU5Q3aFkf5+sjx9Vk4kZ
+7/DNaXBPEFpArvsuK47oP0dripPNGlLkn48GZzeaPkdAvIjFG5vJfDB493I
ze87uNwvH/IQInBYeXUndHwHDqFA7XJuAp8oJXjr7nXBHz+ftp8TDNwjIZm9
EtQFD1Z2zM+Q/cLJI+aCEr0LRASk7OYGGTgewt6G1XSBqGeHT3kPAy8VeRw1
Fe0Glw2WzsF1DJxWcMFlqKgb+MXvjU28YeDjIm2iwo3d4DwqyzmZwMBdbgaf
Tg12g9/RZs8esv+tPXiSP5W3B3Llor75hzHwpVyV904Xe8B05l+G5CMG3py1
voeF5Qdsyuwb1zrDwGYBS0YDm35Ag9yvnRVkf06w+VVTKf8DWqkHBBU1GFh+
Y36+v8kPuNFcebx2HwMfdbGM2Jj+A5Zon20VRBhYJeZcYrhiL0Q9sI6g/6Bj
K4tE87c9vfD1X7Rxrzkde5/a8uLFSC8YXHnKcciYjhNVQpqfzfTC6xaFv146
dDzGe0/7JtdPiM8QLh0+RMcuWPfgHpWf8JpL8fb8JjoOkJgVLAwk3zPNDI7U
JuCcPo3ar4f7QIvfLo1FPgG3anlOBZ7og3b9Tpd8yQQ8l1q8ScegD3xeh1ra
bE7A++8ftPp8pQ+6bXFfGGsCzhNQnCsJ7YNDyR20C+3xOF9TRCJjuA/4vQ9Z
xHrG48LEP47h4f3A1xjw9XJNHC6zi91yfmwADPacF453f4Vnt6vxpdwcgjd9
62x38EVh1oUk/i0yv6FjY3X8e9cQrLJqmWOYOgZ+9+mp+tcf41pv5frKXZPA
HVaY17ZshcVDRhfeTfwBP6+Jh1bqjjDK/NHTovQXnvT6G+8384GcK8Flp1T+
wuy5E7VX/X3Ao009Eav+hY+HOA66FvjAptzYm++O/4VLB8zclYR84ajLheUH
Zn+hcl9fCFujL7ycaRWW9vsL9+0epYqAH2hN1Rk5/PgLcO36x5Mrz0DA6uGB
oYG/kMYYVGHb6Q89DfKiZr//wiFb5700Q39wSvfvPzb7F4x87LVOv/WH1/Yn
HYS5p0Gj11BwTi8A5sbLg0tUpiEi5IPUpqhAYPz+WM0bNA060ddfu1BD4BZN
b5td2DS4u15i5RYKgf2a/fcroqbhePdCj/+uEKiO5dr9gD4NMyVvOg30QmDq
zPngkbxpMFp7MWeGFgLquXOG5f3TcGdKbvmRzHPo8Pqv2+3gDNxKOaRz9b9Q
SFCq2NeiPgOMKlUD1yOhcKPbJEhJcwY+/hdEc9QPhTX7PWDo9AyEn1UtlLsT
Ctt/18cb2cxANvcm5/i0UHA6c8NWMXgGRuf/rY2WDQNesTeTAwMz8PQ+LTCA
KxzQWa/u/pEZ4Hsq4bZuczg4BF+s6ZuYAQnJIsf728KhlUXoTe/8DHzpQ4+2
Hg6HV4N+Fl08s/DAmE3D40Y4KKTb1TUpz4Lk/LB7ypdwsBw5/rHx4Cw8fZyW
sNwcDqFS2959U5+FL5f3uB3oDYe58O/eX7VmYXb9mJzLXDgUu+kcrjGbhRWu
zwJrpSJAV0Mhqcx7Fjb7dF7zc46ARw+4XpQ+JdertDsX5x4B6dmDviVBs8Da
vOUN42kECMq+ti6OIuffXH/eITYCunj4RQqSZ4GZLPhUsjwCbrRO+X1onoUU
IRnBmnWREHAt2zZOeg704rez7Q6NhN8oxY971xy8rkvzv/EyEk4IEe9dFOfA
FBPW4QmRwFoVPqFzaA4OxuORmIxIcJN2clnQmwPi0nRvyLdIsP2xx9fg/hxY
j9WWruGmQXnOrrdFHnPw+4Kcwqf1NJAKkqqW9Z2D/pS0xJtCNOg+vIF3NWQO
Pr+zT7knQwOjl1MRSYlz0Ln5TYqTOg2OGKcTlMY5iLGa8/p1nQav5N9W2bfN
wWnFEsEdd2iwzBY30tk1BzfZfz4440KDvIzg3R+G5oDiXVNl6kEDBX77bPN/
c/BwIG1JJ4wGAUO2bZ9ZmbCjGxZraTT4XWyxsJeTCY4utQXKMTQgbp5W4xJg
wklQcP3IoIFoze6KHFkmRJiepBNZNLiXIDMkqcCEdyji9qU8GrS5ia0N3Msk
6+rnOGchDUJl1+leUmeCD/uDP1yfaPBnlWJfr0HOv2H8zpVKGpxuWw45eJIJ
Hrb06KQvNFjrO9bMZ8QEFbH83t9faWBrPjB37zwT+KsS5381kvopdwkNWjDB
6cTch88tNPDorzErvMaED4+vsx77ToM5lDRw1Z0Ji9IuU0K/aFDIGI2+682E
5f0DLXJDNHjMKW/o+5QJ0TzPnXeO0IC3IbmUHsYkz3c9fQNjNGjeO+6aEcWE
VMvs1IQJGryk7VYqjWWCGLFvj/YfGmy/mPqq5w0Tzk7ymptN02CsbMJ4PJkJ
IuqTrBUzNMjYrrhu+QMTfvQ9MReao4HrM/tyrlwmBPGr3DjLpIH6RNp94UIm
sO61UnCfpwHF4M8e2VImcE/eo4cu0KA6W+m3SiUT7kqtVocs0iBE+E78sRom
sA84MtyWaHD24QcTowYm3Pa6pqi7TPrxc4rvUgsTLj+9d537Hw36NPdU3elk
QkCutkkWyW/fOjzy+MEET86A2RMrNLjFk7kveIAJXWkzRytJVr49PRY7woSd
IieR4ioNFpv2MpInmPBr7Oz4Y5JL9jtd+DjNhOfscydLSfaNztpQPc+EmEec
Z3+TrLM686X9HxNuEPfWr5C84dI+zyHWebChaDxYJrm90vnAHMc8fDe3jvxF
8qtdOZOUdfMgktJ/MZ9km6C5RIEN82C3vav9Lsm7/qpYSG2eB47911kkSf5j
fHfjf6LzIOlT0JFF7jc7P7eWbCYwMPnPai/J98TmvU5vn4c7wY4vY8h4kecB
VXO5eejLuuT1h9SH/Zfr3+tK86DxW0JMkeRarfx39/bNQ+xfjqsmpJ6hyQuW
Tw/Nw/gXd5sbpN4m/IeEomAeZImFDddJPwbaCnyzT84Du8noE1nSv/eqS2rl
p8n4clz1hmZpcPu16myjITl++96aENL/ZdvCS3/M52E+v/onfYoGZdXLIqvW
8+Aqz/doHZk/fgpqjeuuzoO2rt43KzK/BOeKkJwDGf87lrjq3zToPL/CPHh3
HoYX5cV+DNMgrkg9TevBPAjuqDTqGaSBvA8Ws/Ul402VZsb00eDv8Gqzk/88
PBuauWTWS9a7DgrwCpkHiVytYPYeGmgKli7GvZwHZS2W7Vs6aMDlypKR9noe
DNLKwnxaadDw/ci1YsY87J4vKe9sooEZvazte+o8rI7FOh+rp4HTnvKsTZ/m
YS/XoYOiZWQ9KkvEPf88D+2HrtyNLCb1Unngz1M/D1pV0U3MAhqoHlK2Zu2Y
B56zRhP2mTRgPcrgm5iYh39y70f20Wkwo7Fm6eoMqY/zWaORVzT4dcxssH9h
HvhPjk54vaTB55OCRR2UBaD1Vxfdek6DYH1vuwqRBWjwM+fe8oisd8NeYySx
AI6CQ2qcbjRwMD585KPMAkRplGR3OZL1cX5m8welBWDtkvBUvUbWh5VNRczx
BZjUH/3eYED6d1tTwslhARZXLt8zl6RBjEMc9+TdBWDf9di9RIQGgU7Lc9ce
LkDmjO4qlyDpr2tW3UW/BXhBHHx0lp0G+z2k72u/WoC/uheGqkYioTyY0ipV
vQC7NZopQsmRkPPcsjT26wLciFKOmaFHwtuwwmShlgWoViucyouOBH+akxdv
7wIUJvD8nn8WCQavB5QWZxfAaqdx5NmrkfAjtdz/m+QixD/vRoFbI6FhnDK2
Z8ciPJeO379xYySUyB/TCZdfBNv/tm3x5Y6EuPcVPOf2L0JPhnuR1HwEWCdW
BnbpLILSraPsWg0RMBj7OXjo7iKccd3ud+JBBIwH1Ib9q1sEGAxf0fgUDj01
PDMWTYvQJuZfPJMTDvVcukYl7Ysge1dsd/D7cEj1qxP06l8E4WD8n+fzcLjt
XR/BubAIAzTnWFOLcJi530ATkF6C0g2PdUemw2DJrjl6570lOH/OUCWJNwyM
VMyfK7gvgcmxIBX6mjBIZhn03eu9BEtvd8f5/Q0FiyjmHbWgJfhZZVqzpTUU
SitEtPQTluDF095jNjGh8ETCasa1egm4j+XwecuEgkDruM5nkWWoLtwisXfX
c5A7wrFi+3EZBDYnbZJaCYT090k72kuWoSw0ZXZbayAoC57RP1m5DI8Kd4yv
pATC4aEohty3Zdh0NMoHmQfC6cBd2n8Gl2Gd8D/W2fwAcOjQjXLb8A/2fTcv
PnDDH/LvhO8JuPYPvtzMPdWd5QcnEiSvfNi8AgrbHTR8uh7DXbGLUj/NVkHp
3mPTqy/tQH7MmLtNdw1qaNnNVmdrhwX4/nCWL65BcjPmVze0+2AKjk7bFsOC
eiKvSwdIheLryh871mqzIiP1BIG59y9wSUNLcp4uK1L9oOR0oeoF3njzj/uV
M6yo7XDghuz+FxgTMtsrjFmRzdH6IE3Rl1hgc4iDhyUrypG12/0t4CX+uGDD
zXRmRWpCpkK+16MxN+ZVG4hjRfDi5RvvrbE46aR1XPEcKzKMSxAf3xmHleUl
1WGBFWXqVI6Z7IvDxby93/ESK3p2fJ9kIYrDDU3mm0vXsKE13UefXj0Xh2fM
zwd94mJDj5V2tZ7zjsPqDmcefN7KhnhGPQy9u8jxL9VNGo+zIV7zLPNMn3h8
/uG/WYOTbEg1Xe/gVHA87rtYGNakzYZYpHWKpF/G4xnpQ1+bz7ChkuKjPjdS
47Fw2r7jbaZsqOIBj/fD1nhs/UleuesWGzpB28WIkk7As6Mi/IORbOgq3yqh
m5eAw2OHqmJesKH4KVO+/tIEvFcvy90whg05bemXtatJwHcydCdL4tmQq7GD
hG5PAh539aiPTmZDm+WHuG3Y6PgXdTBAv4wN5a8v4684RZ7PcjM0OSvYkP+h
Hb43DOl42zX35eIqNnTTK8iVYkae52qFbsjXsaENRJIv9SYdd4dqa3O0s6G4
b7HbTwXRcYv4h7VF42xI24vfsLaOjp2+PSx1/MOGhNQo9g4tdCzgdcpt1zQb
arTnrOfopmP9wf5h2jwbaghup64Zo+O65E2fHdgoyErzgKL0WgauOPjAV1aY
gkoOfBzaiRjYZlRL/ccWChJrPtVecJyB2WI3zkVspSBG6X81B3UZ+MiatMts
0hTEzfbblsWUgYsqf2r2KFCQ7bOqw9kODJxteIItXJOCvK8JPI6NY2A/7Twf
0RPk++K30e8I8vyrsZOTOElBcSuZo4z3DMy6l3tdzmkKGuZtHr2axcCnN3zd
1G5CQW++pIdJVzGwJBd6YXmBgtq7gv3e1jDwDMuHLSPmFJT7OlV+SwMDR0+F
SixaU5C0Vqp6bTsDDzec3SV6k4IUryQlXxhh4I+fq5IZ9hS0STNe3XCcgYNK
DijudqCgBIlzzANTDKycLqKsfpeChPdYRdXPM7BncI+apScFJfdZ50pwENjo
iV7JsBcFJU79iX3CRWBZ95Kjd3wpqPO7s2TXOgLX30o48difguR+ihXoChJY
5LStPiOCgozKO7T1JQg8fqytST6KgtKr9ylv20bgEjWts9kvKchVwEWhT4bA
trt3Xah8TUEX9fM27JAj8EGZ6O7TCRTk3JnbkbybwDxiPJZtDAqarIu8Ia5E
4EyeCZvhdxS0dD87rVqZwL6Ui0O3kynoX/SXw2z7CWy6/PXaQioFqU9d1pM9
SOA1Yx9ucWVRkLHtm+L9agRu6peaCs2hoPVFTKYkEDjxe5jjlnwKqs/Zfnse
EVinxtlVvpiCBKzUW69pElj80+BiVgkFzQi/i6McJ/DfgnMP1T5RkKfvnLX/
CQJXZnxeraigIItaU+4VLQK/eH/w8enPZPyjFD+zUwS+kfCe0lZNQTZFW6v+
f/+IXm55crGOgrLnanO6dAg8+PSf/+1GCsrIuGjJrUfgfM9bvAvNFPSi13GO
7QyBA9x+hHi2URCqvT87RPLFO2cEuDopKOfGY+1cfQLvuVYaEdpFQWphgYN3
DAhMtdojtOUHBZ0Yjc3abEjgdhP6S/pPCrqzmEp/S3LyGUEx+QEKeiKRGy9t
RGB3LZ/XWYMk097E+JPcaHHVTGmEzE/rIuH/3z9KO2sLJ49SkIqWkIaQMYHv
+iu07pigoKyfiRyI5Or49WH0P6RfHIZnDUkWzZvRE5+moLoGlq0GJNvXt/FE
z1IQb3iY7mGSywYKvmyapyC3wf6m9SQLLsX6hi5SkG7Ml9eN5Hq26z01eP9R
UMHnTXGPSM7fYbPm2SoF/SmK+rTx//eV6ieKqKxUxL9OaIFGxmNhtOueJ4WK
9vqaKFJJTrdbt/8fOxXdOiBsbE7qweb5Z9p1LRV9viN4Po7U6yytKX2Gm4o0
8erOelLPtyk5N2/zUlHHmH/OIKn/4qcXu8b4qciNenl85DSBdTsfDF0RoCIu
wz1FbboEjvtzkdG/kYpuWEQKppP+/WXXsLooREUukwp9DqS/mmLbt34XoSIm
T4SgBOk/be/a72fFqChr2exlLpkfhy2/Gp2WoqImhrYpcYzAQS4Z66ulqShi
m9edJQ0C/wyIqD+2g4rOsahHqh4l8zv/gpaaPBXBFrkyN3XSz6/q1HwFKvLe
qJV49zCB5QYly5T/oyLKaJH+xUMEbtgwrCqvQkVRJsZ5o/sILLWzZv7NASry
SVQ9E7KXwM6Qmr1NlYqsVCnXtv5H1usNJ8UtiNTD9Hnr3P/v8yvWbOM6RUX7
N/76EEnWb873/h8+OqSez7SsfMQIvPZvZQyLHhVdGStkMxchcOrWwE0LhlQ0
6RzRWSlA4Pm7wlzD5lR013J712MqgU8FLVdesqSi3ZqGSrksBI5l/PD6YU1F
F1yDh5v+MfDRb8S/1itUZJ1uqlY5y8ABu/ZMVdyhosYDyh4BA2T/6z7VTveh
IueNwtHBRQz8rEw1zdiPipxctnLW5TLw3zfyvhz+VETTnNYf/8DAZQ68ytdD
yP1fyNraSvZbG87G4D3RVCRW8mnd8QAGrh0vsx2IJfezFN9I82HgfU2ZapFx
VOSRPJdX84iB2V9FjC4QVPSysMO/4zYDv917/kRpOhVN+0xlPzNkYH7hU1sd
M0n9n4r+/a3NwG4rh2alc0h/VXGovCYDn/oiSvf7SEUHeO0TDJUZeNSid0Wv
kooMKeJWCgIMrPDsSk7PdyrKIIwcWWroONLeJDCkh4oUxwqqbpTS8arRSZuj
P6ko7sc7lrxcOm4Ql9uQOEhFrRbuFeN0Or6TPXHz5hTpb/z2oaZ7dJzV6yyz
zM6OkpazdJ2l6Fi00nY5ZS07ejrNfNG0iY59ks41XeRhRx4Gasf5uen4rMtB
z0/r2dGNtU/MpKcTMJP7X9czUXb0zi+pPov8fz+03ztceA87sh04ImtlkoBb
rYVVYpXZkesgOvJEOwE7BqW2SexnR7J37xYFqSfg5F/tIrKH2ZF126WgI+T3
w9bw3fEqx9nRnl/rzitPxGPWqdYUQ1N2FGY8mHv4QTx+JXpDr82MHVHOX71r
fzMeq2qxTJleZEc1bcjwsUU8dnotp2xtw47U9gat00LxeFDXo+D2LXY0Lfnh
lD5rPK55v7Mq8DE7Ur9tV6XlEYevthZfXe9DxpM0/MLRPg5TWI24Ip6wI+2M
7sMPLcjvp/OPdGMC2FHKFZ84+cNxOJ2jqel9JDtqgJOy06OvcbjNg96q9+yo
KYw/yLHyFTbb+nWBpYkdmUl8PPPoRAzmFXbI/tjCjrrfLe0lhGNwqcDGO87t
7Mgoe0f73dFovH3theHhbnb0urHgiXhQNJ6cHmz9OsyOFrYIejh8fYkff1nJ
jF1hR4yLvs/mjrzAb50Ubh3cxYGY/0o7pgYisKn9t53T8hzowsg+D5nkCLzO
zulXsiIHKpRZN/XPIQI7XCwwk9jHgRzBVS9mNRyrnjquzYE40OROqPETDMf1
4hayLcYcKASpTU3Ih+LZ6sC+254c6OczzdtF8gG4i7vl6rIXB2Ktrf2PluyP
y3REJ5/4cqDfqdi2Qs4fh9S/X3rlz4HGqaupYrLP8K7GKsG6CA50icqinynk
hy06WE7sfM+Bdp3ffk68wwtXDjkn/WzkQKbbiJXMt844Wbbov5stHOh0et7h
9Q+ccNg1St58GwcqP6RhuKrriC1HQ8v5ujkQvJlbfjZ+Gy9OpHWrDXGgYkGX
kgiVq1hxboTv5RIH2jAVqcblewRHUSycDKQ5Eddb65muUgdYubR537ftnGgz
3TiLe7MT2HxqmNXbyYlcnpRtzrzpDEqPNe7qKnCiiYWnhbfEXeHzquw9rQMk
+3xRSA1/CMzFaXd1HU6Uaerd43bJG85OPfXf5cSJzHGj3YxACBSe0dB558KJ
cjfL2lk5h4BU+jKPrBsn4jFr9t/TFgITt+yDZB5xIs7xESZLzHPwGTN6LuHH
iYpS/ys13RUGWUPitE0xnMiWqvFuq2kkCPRkJ7CWc6Jxn1ij4xyxEMTz8GFu
JSfKM7aY/PsoFrhUNU1ufOFEF591hIsyY4E1qnFdaz0n2mNw+9/Q8Cv4qz/p
+q6DE/HfFNiy91ocNFTI6p2Z5ESTr5aWoy0SICAleilWZC1SeZIcOe+WCNSH
nkYH76xFs0giecYtDbKmxhaw41o0amt+7XRpGtjYmrw+7rIWXTzF3eZASYdy
PcXfhvfXItmSg7G2OungLdXtfstnLXo2EZVU2p0OlM8Hkugv1iKBQqkCffYM
YBX4w8JbthaZb+NxOGifBWveWaT1beBCgqrlGgr0fKgca7v1eiMXkv5i0k9v
zIcAJX0FMyEuZCVxIfcIawFsztNIaRHjQvI+o5pzVgWgUCWb9FmWC/lva/ij
ue0jmP36m5iqzoWurWm+7pdSCPmST17ds+NCh36ee7vjJwaHl2mBG8q4EFv0
22NXbT5B7vLLJ2XlXGiv3VPF3x6fYNnC19Ohilzf+V+mZ+wneLLN3LmxlgsJ
JLumT7V+gphkLvPQNi6k/4vTsfVUOVQUX5bfMM6FKFOGKwUqFSDUv6VmvRA3
OlF/1FNRvAqK5Pw419/iRhsGtitWKtfA+lMO8o95edALLvFzUqPfoGt3Q5Nb
IQ8S/WojW2HbBumvQHrAYh1af4b/sJhJN5inqawXW1mHtF1MtA+w9IGHT7xn
13te1PtOxmOb5CCkDItF8+rwoWYlK3T10W/wi/Wx7DnNhxrGtxhtDPsNNgbj
Mqn6fEhaZqNQ3ZvfIFpYmK57jg9dfb272Ozbb3gWfKEywJoPtVot9y5Lj8JV
lRdTXG58aLtyu4NG/ShIeQtqcSTyofCTl+xZdo7DyoEH69re8iF+xWoBbhiH
jvH+xsQkPmSYmdEsbjwOIecyzY9/4EP0jA/5dp7jsLrLwNGnkA/1Rkvd9u0c
h65vwa/YmvhQYcrRoPagCcjzZV5qauFD5udoERHEBISrXtxJb+dDckmn/pgX
ToA2oZB1tIcP3XkfkcL/ewIKXOu+eI7wIauvBm9Xjk1C5O59wfpjfGh+u2LS
JvNJuNMXYyQ5yYfeBHCIHXKaBFmdGz9KZvjQxvveF+gJk0BhaWaEMPnQywOb
FEfyJ6E3W9XOcpHU6+Yj90PfJqHQjq6o9I8PPRtXPkMbngSaOPfs6iofonFk
MFZXJ+F/P/h1VQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$25113#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->{{0, 4}, {-0.5624998429560311, 1.1523493705450947`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7649896896615953`*^9, 3.764989783610408*^9}, {
   3.764989814407394*^9, 3.7649898394712963`*^9}, {3.764989881460701*^9, 
   3.7649899145864077`*^9}, 3.7649899544946423`*^9, {3.764990063351499*^9, 
   3.7649900881356163`*^9}, 3.76499015039382*^9, 3.7649901840170717`*^9, 
   3.764990218794088*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"31382001-d1f0-4228-938b-597de4e3a444"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], ".", 
    RowBox[{"LagrangeShapes", "[", "data", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.76499001937101*^9, {3.764990225865169*^9, 3.764990232490184*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"a2d6e506-4421-4baa-b771-a553286c497a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13lYjN8XAPA2tMy879tCKbQIaZMkpNxjCalQabG1CclSkmjTnqQklEol
UlIiyZb0JinaJZE20rdVy4zWWep3f3/N83memfvce865555Rdna3PCokICAQ
Iygg8P/PXUf7vpT2n990+/BDDWJ/8CaRrfIenQv3IbmzxfyOXge05m5iyvOF
Loj5Sr+jluuOTGu/F6Qu9EIDJvG+fMkgZOsy+e7GwjCkKFG4TNrgOmpfdXlr
zMJb6MEyhTURV9JR+vw9EVELH6DILuZZp2XPULDo8xVXFhainMJ3+mN7y5D6
jrjIAo9CNH1L+L5bThlqDHfvb60sRMw68c+rRT4gVWHNXG3vF4iu1d3/7PUH
VMF/oN3U+BJldzr9PbPsI2L8S1irGP0G9ewL3/+U+QkltvtufTFTggwmTe9l
yNYhu/33no6yypFq7IqZDSHfkMRs8KEdS+rRrwVi55rO/0bLLIb7PlxtQjnz
XCRc3/WhC3UbUOJYC4od+3YqL20UyRZKdggKdqINQSvqj3weQy+7ttbUG3ah
zXOEznLOTKMyt1SF/X+70TyfzIF0iRk0vtyIzDvdi8SqIrdZrRQEoelcSmHZ
ADKbOjQ/54ww6M86vrR68hcVDwVKr/CdAzVhenUV6iPIOLSbWe48DxSvD04/
Gh5FlQcevyq0FIPByc6ObzpsdKm52e8JVxweDLytIq79QzuZdnqeSQwgFj8c
6e4eQ35TfruVuUwAm9D2P/1jSEr64ZFfs0zwjHWo7hoeQ/qteUdTRAhoFpR7
+GtqDO27xdCSIAhI64m0b2OMI7UDDgUflAjQzner/ao3jvy/pP25a0yA+Vbt
3LKwceQkl2I/G01A9IkXx9JVJ1C4kdMxHSkSBiAvUkJ9Ag1UhCv4LiBhh1xm
jveqCfTIRJ9Dy5MgVHlr2MxgArXHvNeBpST4qHp5T++ZQFo3bdyk9Eg41qkb
Yek3gaQOx+3l7yNhs3V+pkjjBOobzpXrvUlCmmZ2pfv3CXSkwsS+8DYJPOH0
/p9tE4h1l/k84A4JrwtitZ714vXGBiNEMkjQptxfHOZPoB2pp8q6npGwqFrr
40u1SVQcrdfxq46ECcjtdg2cRJ/y7m4aEaKg+MHgnQthkyhEmcf3EaEgRFTT
KuLKJIIlz7lCcykgGh6/z7g5idYHSz8jxShY7vAkrePhJDLf8JsrTVJgE/DM
bl/DJPJIf9FUKU/BizevapDyFDINkyv6qUOB7+Kp0N3Lp1DBz35aU5cCCF6/
8bAGdnwh138NBTU73zzyXTuFttUbysjpU9D9vSjihckUyqZsytZvpEBm4h1o
eE6hwdth7UuNKfDSLS9c8GEKJbduO3/XloJjekrpcZ+m0OvdAor1dhTY6ftf
ZdRNIYkHx7N4+ynYaKDnLNQyhWoPq5tbHKJAaMsDcnh4CiUGqP375UhBrEWY
20f5aXQw9drxpBMUBFn9sgalaeT4RKA2y40CT2vDzW+XTaOaCQaj4CQ+7/4x
2Wc606gF8eeXnaZgkZPLx5Tt04hbHmf56SwFOR7blLw8p9GFdm+D0z4UpHim
S4xcmEaKxa6L7XwpiPHiTZwImEYWtcbN4EeBx8XCWofIaVS75c8niQAK1gWp
+pmmTaNS7bzcy0EUlMeKNKtUTaM8h7r1spcpeBnn+D61fhrdT17j1ImdfbP4
sdy3abT60bpDmZEUXL3tFUr8mkYKWTaf1aMosLzbrcMZn0Zi3mm+CjEUdD4p
v/pFmYPCmiWoWzcoaBgS+au7goPMmC279W9SUKppbHZLk4Pmv7x5thk7Pecj
w3YdB33I0nKm4ilwzqqIaTPjoDHq2qDbbbz+f3OHjSw5KNnZ3piHvVV1x+67
thwUPK8j+GoiBar3KwlnZw7aKmZ1PyOJgp7UT7G9FzhIR3PGv+gOBc1toqM7
AzhIslmnzyCFgkoFk705IRwUmzao9wY7O+kzdTqGg2JKTnk+TaXALb4qjn2f
g8LzvvuE3KXgQJM42yqbg/KMQodY2KbSppYv8jio817WZod0CjTjqqUuvuag
xGtfo9bco2AouuYmv5aD4u/uTS27T0FHNWPM/isHvRzbIqmcQUGduPm+0h8c
dPTdc5cA7CeRtTKhfzjoYUXyo1UPcL7C6uJFpzlo14392b6ZFDh+ICZOzOD4
tMrO/4RtIbTHplqYi5xUPB2lsyjQDapfcI3gIssN129kYI/5NdyWVuWiP8mp
TjkPcb0XUVNeK7norZ1LaQ/2t+m9ds3aXORymctTysb5vvBFLmkDF/ltMiRj
sbNeSvpwNnFR0apX3WXYt8ctWg5u46LjRzJvj2FfPNeYtGQPFw1YhcRbPKLA
tUCKE7iPixptjH/5Y+9nWR74vZ+LzNRURbOwd+ncLNriwEURDWLMWmwD96/y
D1y4yPb572EWtvoTab85blxkeP12nkwOBfJDVq3H3LnIIUTWZC02163pzkpf
LjJoX7HAA3uf/uE47UAuUl1ckxCJ/ViwJ2JNGBcdXscyuIs9p/aM//orXHTt
bKRQIbZ94uRZo2tc9MEmdKgC+9WRoONbbnJR4Kuv3O/Y1CqxwzsSuSjn0Umt
XmxXTpylWSoX3Yk0ChnDfv9RfqfFfS6SH9/Imf3//uIyjGwecpHVt/3xYrn4
/h7SXHPwMRe/j1FWktjVK16oOT7joo7uUj1ZbNV/RkuOvuSigo2s9QrYASUV
0m5vuWiHNem4GLv5yh4x91IuGvIkc/5vbesfM+c+cpGzQs+CRdiXlZzGLlZx
UYN8ZJYc9q/B/v6AeuyQATtp7PWvPDtDmrjoSI6QNgM7LoTbdLmFi7haFcuE
sQfMw6qiO7jIZ0QdpvD+ty5klsb94aKlC1YEDGKndMe/SOjjoufEs7Y27LGn
S3LvDHGR6VXavgbb3O9hejqbiwJCTYSLsLO26yRkTnLRdr3tVZnYM5Jvrubw
uEhKKe95LLZt++bgp4I8VEh40xew87OrvAvn8tB5ZtLQYWwxL6tTbyR4SNid
2LQF2xm1OZVQPORXXZevii3dPGT2SZ6H3uvI8P/g+jh1z3tLrSIPDZZfbS7F
Lj81u65RFa/vtqbxDra3sOTSNm0eiuZzVplh19clyf1ew0P775E3lLHVklWI
nvU8tKvcaME4rt8WHb3pkS089GG0MSwBW5dXPDy2g4fOtum4u2BHVRp3T5vx
UJxEgp8OtqG9bb2wLQ8pjR3jlOH7c/eqb6bsSR5Sta+M/YLv25SN8J1FHjxE
jghGXcfeqxJ9Xfk8D53Zq5llji30JtVPI5CHFNgm28rw/T3aU2qBbvLQ/F9X
ZOPxfS95ZrJjWyIPBRupKBtjLwhoNDRJ5aHbVg/M/uH+8Em6e4XVQx7qLz8u
tgtbY/O8mWNvecgwR0z+N+43+Tm5K36U8hBEHFX0xdaT2WthUsFDjD0NbArb
sDfxgcYXfN6kX8Lrcb/aHaNuOtrDQ4ueO9efTKOgcaLOy+kvDx0Yf2T8D/c/
W8dzaY0sHlL8tCzqIrbjmmJWIY+HvpLfAvxxv/RsMU/0keKjFa/bKLdkCia2
sN8PyPKRg/v16U7cf/0eJwweXMxHETYv862wwwI7N21S4yMi41KUHu7XCcvO
/ie0iY90XioOteJ+/+bsLd3oE3xkGd948f11Cja1rj/EP8NHVj9+m8tgl21r
Dz/jxUeKAcvZLrEUVMkub9kbyEfqzTHZs/i9aXv3KnB+PB+x1e7UyV+lQEC8
tSatlI8qVy0h+8Io2HFf+fgz2Rlkof57tMMbxyeRWF6xaAYFvMwR5p2nQOka
t/un8gy6vrVnlSw2x+ebs4jmDHqbw/i24xwFeRZX7G1hBvEf3t53wx3XpyDL
mu86gz66phrVHMfvnUPpNpOiGVSXKH2myQbPG9Z5wvb0DJpztKSz0JqC16bJ
ZZ7lM2iJv86Zm/souLHOC1LqZlDwzr7fuywpMCbVDEe6ZpCd33K1DHMKckti
18RLzKIrl2vNprdScGGxg8rvQ7OIe2rjkOEqfF/26ti0Oc0ijsojqT4tnM9Q
wajvx2aRU9TYyThNPD/1Z7BqPbD13xV1rKSgqbCvtChsFnUYWtYeUaVAx8zT
4dbjWbSg0qRfdiEFfb7hKTt4s+jETj2llYK4X9houN4TEICotRlK+rMkOI5K
CykKC4B15PJzC3gkmC79b628qACsU/b3qBknQeXK5VRKSgA0xwuamf0kNOyr
OcVfJgDeRZcze/A8qPnXWuK7uQCcl1st/g/Pl6/3mdFRewXgdK5FptwtEra+
23Juk5UAmDgVKxlcJ+HAtVWtmXYCkFJ4v8gjkoQrOmK5XkcEQHezUdTjiyT0
eBXvkvIRgPGdjrIOdiSk81WizB8IQP0FyzmFMiRIk6Oi5RwBOHcy8xwEE9D4
LuqyCV8Antt5bXrpT8CNU8vm1s8KANviVLzaRQKkqg4I/xQRhLtt6waE3LHD
P/JHCEE44TmLrh0igOImsxWWCoJo02pVgXUEMHqN286ZCoKKv46GdT8TROg7
T5emCELZWb3uvq1MOKn3tkXMVAj2vFTYkpcvAbkmzuklE0KQqmnpn/tXDMYH
5ameBGHYaj6vYUZOFF5Y7RC+tU0ESq8oBWaOzoHAneF3C3tEgNciO9RfKQzK
7bt+ZITPASnOhrlV0YJgsC7s1kLducCtfDalSsygQ0vqpwW/zoVb5fJnbPWn
0XhVTJdH8DwoTbNdY/L7H0oUsfeyVBUFvYrPxtcqh5B0x4v7QuWisN84QUpb
oRvNCQjet+GsGJjoMu5yq74igUf2T7ukxEHHZNxI0zwJeSY/jZEqE4eJwrfN
hq0N9DuNSFHJMxKQlqzltePuL1q/Sbb2hocEyNWPm3Le/qLz/R/GyZyTgKwx
+b1pP37R92sr5OUuSgBDWyn/jeRvOtJ9jpZiiATUqsrHGYb+pi2fh1hoJUhA
yKKmTtcjXXSvQUCySYkEzMQZXJaQ66Yld3lqhhAM8Pxhlja6p5dOf09KGEgy
wN2yqTrLrZfW2ZDXz5JmwNriUKWd4b30brW+LKeFDGAVlwuZFfXSUXPtlTer
MiCkkRKyXdpHi3wwWSBgwICIfVTKKVYfPbFRWeDSUQboF/ynohEwQIc/L+lY
68qASeGoB2rxA7SMxqF3Q24MkFg75UzmDdBr5G/7HvZgwOYTS+wS2wZojynG
uKEfAzStHD0SDAbp/sKpfu51Blyc6/hiLXuQbtNq+OpTzACD4JKWG3uG6LuD
kgHCNAOGJSRn9I4M0c6PrJbHvGfAp0j/hPfeQ3S/6veL6RUMeD3RPZKUOkRP
KHQsrmxgQNmI20/jgSFaUvzvcZn/GODqvU83MHCY3t4zj/eEyYQtyY0Ji5JG
aLEHJpnrKSYs4qfNGXs0Qtc4Xd1dJsWEMudj2wuLRmirduLeN1nsIHGxkdYR
2rFp/naeMq7jCGkqixil/cqWXjfRZ0KM4qKAGvNROj8NqXbbM0F66Mwc6sMo
/c/33zwnJyYUJX/a0vJ5lNa3fTjYfoQJk9f9YhMaRum3JPn8uysT2hdeMhpq
H6Urgjo2V3syYcGO/A3iU6N0q3OAQ0EEE4S9tRfzV7LoJWj11lVXmCC/t89S
RIdFOyr8t/zxVSZ845Svnl3Lonu+mg1nXmdCoa/el/rNLHp026KApGQmNIZ/
6Wq1Y9FzV7xNDnrCBAa75HFSGIs2EXa/xM9nwl/jBPcfV1h0dKeKs+9zJgR9
NvcSj2XRkolRK71eM6Gb6bpyZxKLXiR24PXxMibkZ+6PXpnHonUHp77tbmbC
Qe7mkEuNLPp85eM31T/weuGrbYabWfTrDMfUna1M0PUuELZoZdFGhz65bPnF
hBINnS/Df1j0ztrb/9YOMEHlnfWlq2Ms+vBTfcnFM0zIVc132CrNpl8emCIa
BAiQ8X9zVkOWTRNzixihwgSIF56KFlZg06WHjET7RQlInuG/CVVh0yri22YL
pQkoMX4l+kGHTfu+mMM/voAAruScc+p6bPqrYyVHfiEBOl6r7wevY9Nhr3ZN
BC0h4Op7Va1ZIzbd42IxZLaSAIMchXn6u9j0Jkp6cFaDgE0+RI68OZu+/bap
r0CbgLqnr2qH97DpnVJ23XJ6BNRm872OWrPpHNq+tXsT3t/311ZXHdi00Eml
ltubCdgtV8UYdGLTBxd0Ne/aRsDwE4aQgQubZpw+2phvQkAQXXkp05VNn5E/
9dl/HwHBh1c3PPNg0xUftSpX2RJAOv/zifJk04pnR8q79hMw9VFEwdKLTTdU
epbudCBAffEVpScX2LTaOb0SrhMBoFZwbosPmw5eMvH2iQsBhmUJdz76smnd
8z6vZNwIONQ6vD0xgE1HKW18UXkKn+cb403vJTb9p5pX4Iv7ern1xvZlQWza
8EJJvpYnAcJT1TmWwWz6lkrQk19eOL7/EQvPhLDpodrNj29eIOBWk6XixVA2
vd1HOGe7LwF35v5X6BHGpifrIzIfBxJQzFE+qRXBpvf67cxwCCFAd9bBl4Wd
vVz8nlQ4AdeqpSYyLrNpwcbqtI+XCVBwDPq2LZJNHwiISbkYRUC0yRDZhF2g
tidZIwa/M/dSUiyusGmJJiqxI5aAjYwGz3fYLoGN8XE3CJB/V3lFNopNF6vf
urktHsfHs+yHA7ZMs3Xc5G0CrL35NgnYp4NlY3OSCZhOL+QWYVdotkQfTiWg
z1qlpBZ7yY/kKCqdALvwwPg6bO/QQ5Ef7hPAyxX2eYddr70kwjuTgInGbodk
bLWfnaErswlojrXdfBQ7KPxecFsOAUkisTJLsJkX5u1yyiOgckPc/mq832TX
01I9Twnwvcn47oq9/MDXn24FBGTpfg+fwOd9brohY6SQgIglFfZe2GB096TX
KwLStuUd6MLxqtGeozf9BufrooMnYO9XOskLKMbv8vknaddwfHskv5QL0bhe
Wtx+1ISzaU/hdTGX3xOgpe0ix8X5mR1LsWaUE5Df4Wq7EFvuh2vP/M84XpGf
XizD+c38XPckuZqABz+LKqRx/nXf6l1QrCPgjGHvG1YgmzZNExBd+RXfjwpK
PQDX04/YYw153whQ9U1JVPfH+QiuSdT9QYCSdWBNJa6/Sy6JKw3bCbAMOHj8
C65XcZsZVmknAdWRP2kjb3y/drgUGXcR0LKuuDQJ13e+uo7pnl4CznVlpSmd
ZdNGixKkm/rx+es0T5u6s+kqJq/V7i82IiuPnsb1O1p5ypmF7f191vUEm17w
yuHaeS4Bn+e+fpPtyKYzsj/acPgEFNw5JbvHnk3rJGsoBgqQoJVlWNF9kE2b
BEw+jZxDQmvu9HS7DZv23xr75Q5JwuOqNUNzzdi02NrxJCUpEgoouXkrTNh0
wvKDzpl4jhLZe32d/nY2/VRsxb8nC0kQlekuUQY23VVfIlO2FH8/7EyS5ho2
7f5etX37chIWLtqbXL6KTfMKojKr1UgI/TDpbarJpucn2Oh/08Jz3dHFWcuW
4f5yaNi2bx0J2buUmRIL2HRe3+I7hBkJEawT4Tdxv4xMDXfs2E1Ci/7Q6LUR
Fu1iObTsiQUJXlWXTnoN4H5dXJxvbktCmc4xF34ni46KPVgR7YzXS5DdOreK
RbvqJ7HEfUgosp1IGcD9fdugwKuffiTIlNQohNxk0Yrprv45l0j4Gr1XWDiG
RTeLrZ+3Kwz//mB0V2kgizZub150JZaE8u/ZxRouLFolTGbnvCwSoot88wvV
WPTMen/m92wSchQ+1rcrseiWoT+NWbkk7I7Nejoix6Kv2z4/vP0ZCXa7hiJq
RVn0rLrlufBiEuIeOJ706B2l277Epgl/JUFq41S5Sfoo/Tpi8sjXbyScOBs0
MZ0wSt/a6LAy4wcJnmNfN92IGaVNM7ULt3SQ0Kyk3e/rO0oXXaz9HIzn7Lmq
kT4aVqN0gtbaWIu/eA6v3KOvYDJKn+1K2ac8QgKzyq6QvWmUVjM71Vk6RkJI
sMlnO/VRWkSw6cH1SRJubSja1as4Sv96sdHNkUNCsN0l58PzR+lit4xVOnwc
b/nmOW/FR+nbihLjs/h/gNZcAXUBgVH6fy4d0wI=
       "]]},
     Annotation[#, "Charting`Private`Tag$25467#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->{{0, 4}, {-1.158888420083107, 4.167105347817352}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.764990004950885*^9, 3.764990233257114*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"1091f285-820c-4599-adf3-ac138ec0e990"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], ".", 
      RowBox[{"LagrangeShapes", "[", "data", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"data", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.764989681663411*^9, 3.764989688177668*^9}, {
  3.764989899754929*^9, 3.764989912257547*^9}, {3.764989947595186*^9, 
  3.764990000069405*^9}, {3.764990253749736*^9, 3.7649902561694717`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"d0ddf061-8a33-44c6-a25d-882e3b0b0e3b"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13lYjN8XAPA2tMy879tCKbQIaZMkpNxjCalQabG1CclSkmjTnqQklEol
UlIiyZb0JinaJZE20rdVy4zWWep3f3/N83memfvce865555Rdna3PCokICAQ
Iygg8P/PXUf7vpT2n990+/BDDWJ/8CaRrfIenQv3IbmzxfyOXge05m5iyvOF
Loj5Sr+jluuOTGu/F6Qu9EIDJvG+fMkgZOsy+e7GwjCkKFG4TNrgOmpfdXlr
zMJb6MEyhTURV9JR+vw9EVELH6DILuZZp2XPULDo8xVXFhainMJ3+mN7y5D6
jrjIAo9CNH1L+L5bThlqDHfvb60sRMw68c+rRT4gVWHNXG3vF4iu1d3/7PUH
VMF/oN3U+BJldzr9PbPsI2L8S1irGP0G9ewL3/+U+QkltvtufTFTggwmTe9l
yNYhu/33no6yypFq7IqZDSHfkMRs8KEdS+rRrwVi55rO/0bLLIb7PlxtQjnz
XCRc3/WhC3UbUOJYC4od+3YqL20UyRZKdggKdqINQSvqj3weQy+7ttbUG3ah
zXOEznLOTKMyt1SF/X+70TyfzIF0iRk0vtyIzDvdi8SqIrdZrRQEoelcSmHZ
ADKbOjQ/54ww6M86vrR68hcVDwVKr/CdAzVhenUV6iPIOLSbWe48DxSvD04/
Gh5FlQcevyq0FIPByc6ObzpsdKm52e8JVxweDLytIq79QzuZdnqeSQwgFj8c
6e4eQ35TfruVuUwAm9D2P/1jSEr64ZFfs0zwjHWo7hoeQ/qteUdTRAhoFpR7
+GtqDO27xdCSIAhI64m0b2OMI7UDDgUflAjQzner/ao3jvy/pP25a0yA+Vbt
3LKwceQkl2I/G01A9IkXx9JVJ1C4kdMxHSkSBiAvUkJ9Ag1UhCv4LiBhh1xm
jveqCfTIRJ9Dy5MgVHlr2MxgArXHvNeBpST4qHp5T++ZQFo3bdyk9Eg41qkb
Yek3gaQOx+3l7yNhs3V+pkjjBOobzpXrvUlCmmZ2pfv3CXSkwsS+8DYJPOH0
/p9tE4h1l/k84A4JrwtitZ714vXGBiNEMkjQptxfHOZPoB2pp8q6npGwqFrr
40u1SVQcrdfxq46ECcjtdg2cRJ/y7m4aEaKg+MHgnQthkyhEmcf3EaEgRFTT
KuLKJIIlz7lCcykgGh6/z7g5idYHSz8jxShY7vAkrePhJDLf8JsrTVJgE/DM
bl/DJPJIf9FUKU/BizevapDyFDINkyv6qUOB7+Kp0N3Lp1DBz35aU5cCCF6/
8bAGdnwh138NBTU73zzyXTuFttUbysjpU9D9vSjihckUyqZsytZvpEBm4h1o
eE6hwdth7UuNKfDSLS9c8GEKJbduO3/XloJjekrpcZ+m0OvdAor1dhTY6ftf
ZdRNIYkHx7N4+ynYaKDnLNQyhWoPq5tbHKJAaMsDcnh4CiUGqP375UhBrEWY
20f5aXQw9drxpBMUBFn9sgalaeT4RKA2y40CT2vDzW+XTaOaCQaj4CQ+7/4x
2Wc606gF8eeXnaZgkZPLx5Tt04hbHmf56SwFOR7blLw8p9GFdm+D0z4UpHim
S4xcmEaKxa6L7XwpiPHiTZwImEYWtcbN4EeBx8XCWofIaVS75c8niQAK1gWp
+pmmTaNS7bzcy0EUlMeKNKtUTaM8h7r1spcpeBnn+D61fhrdT17j1ImdfbP4
sdy3abT60bpDmZEUXL3tFUr8mkYKWTaf1aMosLzbrcMZn0Zi3mm+CjEUdD4p
v/pFmYPCmiWoWzcoaBgS+au7goPMmC279W9SUKppbHZLk4Pmv7x5thk7Pecj
w3YdB33I0nKm4ilwzqqIaTPjoDHq2qDbbbz+f3OHjSw5KNnZ3piHvVV1x+67
thwUPK8j+GoiBar3KwlnZw7aKmZ1PyOJgp7UT7G9FzhIR3PGv+gOBc1toqM7
AzhIslmnzyCFgkoFk705IRwUmzao9wY7O+kzdTqGg2JKTnk+TaXALb4qjn2f
g8LzvvuE3KXgQJM42yqbg/KMQodY2KbSppYv8jio817WZod0CjTjqqUuvuag
xGtfo9bco2AouuYmv5aD4u/uTS27T0FHNWPM/isHvRzbIqmcQUGduPm+0h8c
dPTdc5cA7CeRtTKhfzjoYUXyo1UPcL7C6uJFpzlo14392b6ZFDh+ICZOzOD4
tMrO/4RtIbTHplqYi5xUPB2lsyjQDapfcI3gIssN129kYI/5NdyWVuWiP8mp
TjkPcb0XUVNeK7norZ1LaQ/2t+m9ds3aXORymctTysb5vvBFLmkDF/ltMiRj
sbNeSvpwNnFR0apX3WXYt8ctWg5u46LjRzJvj2FfPNeYtGQPFw1YhcRbPKLA
tUCKE7iPixptjH/5Y+9nWR74vZ+LzNRURbOwd+ncLNriwEURDWLMWmwD96/y
D1y4yPb572EWtvoTab85blxkeP12nkwOBfJDVq3H3LnIIUTWZC02163pzkpf
LjJoX7HAA3uf/uE47UAuUl1ckxCJ/ViwJ2JNGBcdXscyuIs9p/aM//orXHTt
bKRQIbZ94uRZo2tc9MEmdKgC+9WRoONbbnJR4Kuv3O/Y1CqxwzsSuSjn0Umt
XmxXTpylWSoX3Yk0ChnDfv9RfqfFfS6SH9/Imf3//uIyjGwecpHVt/3xYrn4
/h7SXHPwMRe/j1FWktjVK16oOT7joo7uUj1ZbNV/RkuOvuSigo2s9QrYASUV
0m5vuWiHNem4GLv5yh4x91IuGvIkc/5vbesfM+c+cpGzQs+CRdiXlZzGLlZx
UYN8ZJYc9q/B/v6AeuyQATtp7PWvPDtDmrjoSI6QNgM7LoTbdLmFi7haFcuE
sQfMw6qiO7jIZ0QdpvD+ty5klsb94aKlC1YEDGKndMe/SOjjoufEs7Y27LGn
S3LvDHGR6VXavgbb3O9hejqbiwJCTYSLsLO26yRkTnLRdr3tVZnYM5Jvrubw
uEhKKe95LLZt++bgp4I8VEh40xew87OrvAvn8tB5ZtLQYWwxL6tTbyR4SNid
2LQF2xm1OZVQPORXXZevii3dPGT2SZ6H3uvI8P/g+jh1z3tLrSIPDZZfbS7F
Lj81u65RFa/vtqbxDra3sOTSNm0eiuZzVplh19clyf1ew0P775E3lLHVklWI
nvU8tKvcaME4rt8WHb3pkS089GG0MSwBW5dXPDy2g4fOtum4u2BHVRp3T5vx
UJxEgp8OtqG9bb2wLQ8pjR3jlOH7c/eqb6bsSR5Sta+M/YLv25SN8J1FHjxE
jghGXcfeqxJ9Xfk8D53Zq5llji30JtVPI5CHFNgm28rw/T3aU2qBbvLQ/F9X
ZOPxfS95ZrJjWyIPBRupKBtjLwhoNDRJ5aHbVg/M/uH+8Em6e4XVQx7qLz8u
tgtbY/O8mWNvecgwR0z+N+43+Tm5K36U8hBEHFX0xdaT2WthUsFDjD0NbArb
sDfxgcYXfN6kX8Lrcb/aHaNuOtrDQ4ueO9efTKOgcaLOy+kvDx0Yf2T8D/c/
W8dzaY0sHlL8tCzqIrbjmmJWIY+HvpLfAvxxv/RsMU/0keKjFa/bKLdkCia2
sN8PyPKRg/v16U7cf/0eJwweXMxHETYv862wwwI7N21S4yMi41KUHu7XCcvO
/ie0iY90XioOteJ+/+bsLd3oE3xkGd948f11Cja1rj/EP8NHVj9+m8tgl21r
Dz/jxUeKAcvZLrEUVMkub9kbyEfqzTHZs/i9aXv3KnB+PB+x1e7UyV+lQEC8
tSatlI8qVy0h+8Io2HFf+fgz2Rlkof57tMMbxyeRWF6xaAYFvMwR5p2nQOka
t/un8gy6vrVnlSw2x+ebs4jmDHqbw/i24xwFeRZX7G1hBvEf3t53wx3XpyDL
mu86gz66phrVHMfvnUPpNpOiGVSXKH2myQbPG9Z5wvb0DJpztKSz0JqC16bJ
ZZ7lM2iJv86Zm/souLHOC1LqZlDwzr7fuywpMCbVDEe6ZpCd33K1DHMKckti
18RLzKIrl2vNprdScGGxg8rvQ7OIe2rjkOEqfF/26ti0Oc0ijsojqT4tnM9Q
wajvx2aRU9TYyThNPD/1Z7BqPbD13xV1rKSgqbCvtChsFnUYWtYeUaVAx8zT
4dbjWbSg0qRfdiEFfb7hKTt4s+jETj2llYK4X9houN4TEICotRlK+rMkOI5K
CykKC4B15PJzC3gkmC79b628qACsU/b3qBknQeXK5VRKSgA0xwuamf0kNOyr
OcVfJgDeRZcze/A8qPnXWuK7uQCcl1st/g/Pl6/3mdFRewXgdK5FptwtEra+
23Juk5UAmDgVKxlcJ+HAtVWtmXYCkFJ4v8gjkoQrOmK5XkcEQHezUdTjiyT0
eBXvkvIRgPGdjrIOdiSk81WizB8IQP0FyzmFMiRIk6Oi5RwBOHcy8xwEE9D4
LuqyCV8Antt5bXrpT8CNU8vm1s8KANviVLzaRQKkqg4I/xQRhLtt6waE3LHD
P/JHCEE44TmLrh0igOImsxWWCoJo02pVgXUEMHqN286ZCoKKv46GdT8TROg7
T5emCELZWb3uvq1MOKn3tkXMVAj2vFTYkpcvAbkmzuklE0KQqmnpn/tXDMYH
5ameBGHYaj6vYUZOFF5Y7RC+tU0ESq8oBWaOzoHAneF3C3tEgNciO9RfKQzK
7bt+ZITPASnOhrlV0YJgsC7s1kLducCtfDalSsygQ0vqpwW/zoVb5fJnbPWn
0XhVTJdH8DwoTbNdY/L7H0oUsfeyVBUFvYrPxtcqh5B0x4v7QuWisN84QUpb
oRvNCQjet+GsGJjoMu5yq74igUf2T7ukxEHHZNxI0zwJeSY/jZEqE4eJwrfN
hq0N9DuNSFHJMxKQlqzltePuL1q/Sbb2hocEyNWPm3Le/qLz/R/GyZyTgKwx
+b1pP37R92sr5OUuSgBDWyn/jeRvOtJ9jpZiiATUqsrHGYb+pi2fh1hoJUhA
yKKmTtcjXXSvQUCySYkEzMQZXJaQ66Yld3lqhhAM8Pxhlja6p5dOf09KGEgy
wN2yqTrLrZfW2ZDXz5JmwNriUKWd4b30brW+LKeFDGAVlwuZFfXSUXPtlTer
MiCkkRKyXdpHi3wwWSBgwICIfVTKKVYfPbFRWeDSUQboF/ynohEwQIc/L+lY
68qASeGoB2rxA7SMxqF3Q24MkFg75UzmDdBr5G/7HvZgwOYTS+wS2wZojynG
uKEfAzStHD0SDAbp/sKpfu51Blyc6/hiLXuQbtNq+OpTzACD4JKWG3uG6LuD
kgHCNAOGJSRn9I4M0c6PrJbHvGfAp0j/hPfeQ3S/6veL6RUMeD3RPZKUOkRP
KHQsrmxgQNmI20/jgSFaUvzvcZn/GODqvU83MHCY3t4zj/eEyYQtyY0Ji5JG
aLEHJpnrKSYs4qfNGXs0Qtc4Xd1dJsWEMudj2wuLRmirduLeN1nsIHGxkdYR
2rFp/naeMq7jCGkqixil/cqWXjfRZ0KM4qKAGvNROj8NqXbbM0F66Mwc6sMo
/c/33zwnJyYUJX/a0vJ5lNa3fTjYfoQJk9f9YhMaRum3JPn8uysT2hdeMhpq
H6Urgjo2V3syYcGO/A3iU6N0q3OAQ0EEE4S9tRfzV7LoJWj11lVXmCC/t89S
RIdFOyr8t/zxVSZ845Svnl3Lonu+mg1nXmdCoa/el/rNLHp026KApGQmNIZ/
6Wq1Y9FzV7xNDnrCBAa75HFSGIs2EXa/xM9nwl/jBPcfV1h0dKeKs+9zJgR9
NvcSj2XRkolRK71eM6Gb6bpyZxKLXiR24PXxMibkZ+6PXpnHonUHp77tbmbC
Qe7mkEuNLPp85eM31T/weuGrbYabWfTrDMfUna1M0PUuELZoZdFGhz65bPnF
hBINnS/Df1j0ztrb/9YOMEHlnfWlq2Ms+vBTfcnFM0zIVc132CrNpl8emCIa
BAiQ8X9zVkOWTRNzixihwgSIF56KFlZg06WHjET7RQlInuG/CVVh0yri22YL
pQkoMX4l+kGHTfu+mMM/voAAruScc+p6bPqrYyVHfiEBOl6r7wevY9Nhr3ZN
BC0h4Op7Va1ZIzbd42IxZLaSAIMchXn6u9j0Jkp6cFaDgE0+RI68OZu+/bap
r0CbgLqnr2qH97DpnVJ23XJ6BNRm872OWrPpHNq+tXsT3t/311ZXHdi00Eml
ltubCdgtV8UYdGLTBxd0Ne/aRsDwE4aQgQubZpw+2phvQkAQXXkp05VNn5E/
9dl/HwHBh1c3PPNg0xUftSpX2RJAOv/zifJk04pnR8q79hMw9VFEwdKLTTdU
epbudCBAffEVpScX2LTaOb0SrhMBoFZwbosPmw5eMvH2iQsBhmUJdz76smnd
8z6vZNwIONQ6vD0xgE1HKW18UXkKn+cb403vJTb9p5pX4Iv7ern1xvZlQWza
8EJJvpYnAcJT1TmWwWz6lkrQk19eOL7/EQvPhLDpodrNj29eIOBWk6XixVA2
vd1HOGe7LwF35v5X6BHGpifrIzIfBxJQzFE+qRXBpvf67cxwCCFAd9bBl4Wd
vVz8nlQ4AdeqpSYyLrNpwcbqtI+XCVBwDPq2LZJNHwiISbkYRUC0yRDZhF2g
tidZIwa/M/dSUiyusGmJJiqxI5aAjYwGz3fYLoGN8XE3CJB/V3lFNopNF6vf
urktHsfHs+yHA7ZMs3Xc5G0CrL35NgnYp4NlY3OSCZhOL+QWYVdotkQfTiWg
z1qlpBZ7yY/kKCqdALvwwPg6bO/QQ5Ef7hPAyxX2eYddr70kwjuTgInGbodk
bLWfnaErswlojrXdfBQ7KPxecFsOAUkisTJLsJkX5u1yyiOgckPc/mq832TX
01I9Twnwvcn47oq9/MDXn24FBGTpfg+fwOd9brohY6SQgIglFfZe2GB096TX
KwLStuUd6MLxqtGeozf9BufrooMnYO9XOskLKMbv8vknaddwfHskv5QL0bhe
Wtx+1ISzaU/hdTGX3xOgpe0ix8X5mR1LsWaUE5Df4Wq7EFvuh2vP/M84XpGf
XizD+c38XPckuZqABz+LKqRx/nXf6l1QrCPgjGHvG1YgmzZNExBd+RXfjwpK
PQDX04/YYw153whQ9U1JVPfH+QiuSdT9QYCSdWBNJa6/Sy6JKw3bCbAMOHj8
C65XcZsZVmknAdWRP2kjb3y/drgUGXcR0LKuuDQJ13e+uo7pnl4CznVlpSmd
ZdNGixKkm/rx+es0T5u6s+kqJq/V7i82IiuPnsb1O1p5ypmF7f191vUEm17w
yuHaeS4Bn+e+fpPtyKYzsj/acPgEFNw5JbvHnk3rJGsoBgqQoJVlWNF9kE2b
BEw+jZxDQmvu9HS7DZv23xr75Q5JwuOqNUNzzdi02NrxJCUpEgoouXkrTNh0
wvKDzpl4jhLZe32d/nY2/VRsxb8nC0kQlekuUQY23VVfIlO2FH8/7EyS5ho2
7f5etX37chIWLtqbXL6KTfMKojKr1UgI/TDpbarJpucn2Oh/08Jz3dHFWcuW
4f5yaNi2bx0J2buUmRIL2HRe3+I7hBkJEawT4Tdxv4xMDXfs2E1Ci/7Q6LUR
Fu1iObTsiQUJXlWXTnoN4H5dXJxvbktCmc4xF34ni46KPVgR7YzXS5DdOreK
RbvqJ7HEfUgosp1IGcD9fdugwKuffiTIlNQohNxk0Yrprv45l0j4Gr1XWDiG
RTeLrZ+3Kwz//mB0V2kgizZub150JZaE8u/ZxRouLFolTGbnvCwSoot88wvV
WPTMen/m92wSchQ+1rcrseiWoT+NWbkk7I7Nejoix6Kv2z4/vP0ZCXa7hiJq
RVn0rLrlufBiEuIeOJ706B2l277Epgl/JUFq41S5Sfoo/Tpi8sjXbyScOBs0
MZ0wSt/a6LAy4wcJnmNfN92IGaVNM7ULt3SQ0Kyk3e/rO0oXXaz9HIzn7Lmq
kT4aVqN0gtbaWIu/eA6v3KOvYDJKn+1K2ac8QgKzyq6QvWmUVjM71Vk6RkJI
sMlnO/VRWkSw6cH1SRJubSja1as4Sv96sdHNkUNCsN0l58PzR+lit4xVOnwc
b/nmOW/FR+nbihLjs/h/gNZcAXUBgVH6fy4d0wI=
        "]]},
      Annotation[#, "Charting`Private`Tag$25815#1"]& ]}, {}}, {{}, {
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], GeometricTransformationBox[InsetBox[
        FormBox[
         StyleBox[
          GraphicsBox[
           {EdgeForm[None], DiskBox[{0, 0}]}],
          StripOnInput->False,
          GraphicsBoxOptions->{DefaultBaseStyle->Directive[
            PointSize[0.012833333333333334`], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0]]}],
         TraditionalForm], {0., 0.}, Automatic, Offset[6.272]], {{{0., 
       0.}}, {{1., 3.}}, {{2., 4.}}, {{3., 1.}}, {{4., -1.}}}]}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}},
  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->{{0, 4}, {-1.158888420083107, 4.167105347817352}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.764989980730962*^9, 3.7649902568080263`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"d106ac39-98bb-42f2-b041-5a1a43510bc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lp", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], ".", 
    RowBox[{"LagrangeShapes", "[", "data", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7649902748283243`*^9, 3.7649902842035723`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"455a8487-7f64-4055-995b-298ded1a385b"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"19", " ", "x"}], "12"], "+", 
  FractionBox[
   RowBox[{"77", " ", 
    SuperscriptBox["x", "2"]}], "24"], "-", 
  FractionBox[
   RowBox[{"25", " ", 
    SuperscriptBox["x", "3"]}], "12"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["x", "4"]}], "24"]}]], "Output",
 CellChangeTimes->{{3.7649902709905653`*^9, 3.7649902851849117`*^9}},
 CellLabel->"Out[63]=",ExpressionUUID->"3cbdfe6f-6e74-4387-ad0f-df3e9404ef63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lp", "-", "ip"}]], "Input",
 CellChangeTimes->{{3.764990286546185*^9, 3.7649902876501226`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"0f9afaa3-6411-4a66-8db8-10891b7cbfc0"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.76499028863501*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"3d0d75e5-c1ea-40dc-b6a4-650183152ebf"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"0b84627f-cee7-40e6-b497-909cdefea0ed"],

Cell[CellGroupData[{

Cell["Newton", "Section",
 CellChangeTimes->{{3.764990309603815*^9, 
  3.764990312132988*^9}},ExpressionUUID->"11446746-c4bd-48d1-b115-\
712f4fd428a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NewtonCoefficients", "[", "data_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"L", ",", "b", ",", "n", ",", "x", ",", "a"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"n", "=", 
      RowBox[{"Length", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"b", "=", 
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"L", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"L", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "=", "1"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"L", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"j", ";;"}], ",", "j"}], "]"}], "]"}], "=", 
        RowBox[{"Product", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", 
             RowBox[{"j", ";;"}], "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", 
            RowBox[{"j", "-", "1"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "2", ",", "n"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"a", "=", 
      RowBox[{"LinearSolve", "[", 
       RowBox[{"L", ",", "b"}], "]"}]}], ";", "\[IndentingNewLine]", "a"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.764990790255934*^9, 3.7649910841741247`*^9}, {
  3.764991150095677*^9, 3.7649911514927588`*^9}, {3.764991184171522*^9, 
  3.764991222720861*^9}, {3.764991259514954*^9, 3.7649912712728863`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"1ae2095e-5f84-46ab-b5f3-a0ebd1b42c60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NewtonBasis", "[", "data_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", "x", ",", "shapes"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"n", "=", 
      RowBox[{"Length", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"shapes", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Product", "[", 
         RowBox[{
          RowBox[{"x", "-", 
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "k"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", 
          RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Prepend", "[", 
      RowBox[{"shapes", ",", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.764990790255934*^9, 3.7649910841741247`*^9}, {
  3.764991150095677*^9, 3.7649911514927588`*^9}, {3.764991184171522*^9, 
  3.764991222720861*^9}, {3.764991259514954*^9, 3.7649913918214903`*^9}, {
  3.7649914242297163`*^9, 3.764991440468185*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"8e67186c-c41d-48b5-8618-2af1c58161df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"NewtonCoefficients", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.764990850962652*^9, 3.764990855871728*^9}, {
  3.764991278592256*^9, 3.764991286482676*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"7caf5cd7-8759-4f7a-9de6-18a391f4a1de"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "3", ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["7", "24"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.764990856681748*^9, {3.764991068657921*^9, 3.7649910876130238`*^9}, 
   3.7649911997434998`*^9, {3.764991282831044*^9, 3.764991287633359*^9}},
 CellLabel->"Out[81]=",ExpressionUUID->"1bda2736-b0b4-4fa2-9914-4787594fad1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"shapes", "=", 
  RowBox[{"NewtonBasis", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.76499139774442*^9, 3.764991454450384*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"1c5ce933-9a61-42df-af83-37428b54258b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "x", ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.764991403911828*^9, 3.7649914555217113`*^9}},
 CellLabel->"Out[88]=",ExpressionUUID->"385dca39-ed6f-489a-b8d2-60243b9e4ba6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"np", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{"a", ".", "shapes"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.764991457286461*^9, 3.76499146941476*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"30aae1c9-5785-4a72-8284-50b33692254a"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"19", " ", "x"}], "12"], "+", 
  FractionBox[
   RowBox[{"77", " ", 
    SuperscriptBox["x", "2"]}], "24"], "-", 
  FractionBox[
   RowBox[{"25", " ", 
    SuperscriptBox["x", "3"]}], "12"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["x", "4"]}], "24"]}]], "Output",
 CellChangeTimes->{{3.764991464238759*^9, 3.764991470452908*^9}},
 CellLabel->"Out[90]=",ExpressionUUID->"4057c89c-6ea4-4957-bf43-cc415b38d771"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"np", "-", "ip"}]], "Input",
 CellChangeTimes->{{3.764991471592197*^9, 3.764991472966681*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"379c53c4-81e2-497e-8cbf-aee3bff10e01"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.764991473643586*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"04871703-8abe-41b6-a7b4-4677678a823d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"a8dcb250-cc9b-4d1c-bf4e-127ea3201da4"],

Cell[CellGroupData[{

Cell["Divided Differences", "Section",
 CellChangeTimes->{{3.764991491334386*^9, 
  3.76499149674091*^9}},ExpressionUUID->"50c0f7a5-1f9f-4f19-8481-\
74ecb0752fc0"],

Cell["\<\
Divided differences are important both in theoretical and low-level practical \
applications. Here we define them using recursion.\
\>", "Text",
 CellChangeTimes->{{3.764991574077735*^9, 
  3.764991633713368*^9}},ExpressionUUID->"ece323e1-2b35-4eb7-993b-\
ddfb9791e57c"],

Cell[BoxData[
 RowBox[{"Clear", "@", "DividedDifference"}]], "Input",
 CellChangeTimes->{{3.764991986374995*^9, 3.7649919923865356`*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"cf4eda8d-7492-4d31-86a0-b851dbdce962"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DividedDifference", "[", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x_", "?", "NumericQ"}], ",", 
      RowBox[{"y_", "?", "NumericQ"}]}], "}"}], "}"}], "]"}], ":=", 
  "y"}]], "Input",
 CellChangeTimes->{{3.7649916373838*^9, 3.764991645251256*^9}, {
  3.764991693017798*^9, 3.764991754899002*^9}, {3.764992112978553*^9, 
  3.764992116227409*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"5733159c-0af9-4623-a570-31221b0bc1af"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DividedDifference", "[", 
    RowBox[{"data", ":", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"_", "?", "NumericQ"}], ",", 
         RowBox[{"_", "?", "NumericQ"}]}], "}"}], ".."}], "}"}]}], "]"}], "/;", 
   RowBox[{
    RowBox[{"Length", "[", "data", "]"}], ">", "1"}]}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"DividedDifference", "[", 
      RowBox[{"Rest", "[", "data", "]"}], "]"}], "-", 
     RowBox[{"DividedDifference", "[", 
      RowBox[{"Most", "[", "data", "]"}], "]"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "-", 
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7649916373838*^9, 3.764991645251256*^9}, {
   3.764991693017798*^9, 3.76499185991263*^9}, 3.764991912098248*^9, {
   3.764991957238441*^9, 3.764991958530361*^9}, {3.764992067201439*^9, 
   3.764992075165082*^9}, 3.764992161690947*^9},
 CellLabel->
  "In[122]:=",ExpressionUUID->"78998e09-b6da-4516-9b45-ea848e6904f8"],

Cell[CellGroupData[{

Cell[BoxData["data"], "Input",
 CellChangeTimes->{{3.764991949719154*^9, 3.764991950148967*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"fe3b1ae8-e8a9-4ee8-8980-50b0bc1bf732"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.764991951055284*^9, 3.76499199902396*^9, 
  3.764992080311391*^9, 3.76499212032681*^9, 3.764992227765263*^9},
 CellLabel->
  "Out[123]=",ExpressionUUID->"7c83c98f-5b10-4f9b-8e02-7e25bfcbe6c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"DividedDifference", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ";;", "k"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", 
     RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.764991758040756*^9, 3.7649917655159607`*^9}, {
  3.764991888272414*^9, 3.76499189714859*^9}, {3.764992014921521*^9, 
  3.764992045417903*^9}, {3.764992171300784*^9, 3.764992214162538*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"f47ae8e7-1697-43bd-873f-4f820b4c40ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "3", ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["7", "24"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.764991766602413*^9, {3.7649919016031723`*^9, 3.764991916197225*^9}, {
   3.764991973345502*^9, 3.764992001035068*^9}, 3.764992046850196*^9, 
   3.764992080449499*^9, 3.764992120454225*^9, {3.764992217394535*^9, 
   3.764992227780402*^9}},
 CellLabel->
  "Out[124]=",ExpressionUUID->"f24b456f-3bfb-42f1-b90e-cad831e1691a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewtonCoefficients", "[", "data", "]"}]], "Input",
 CellLabel->
  "In[125]:=",ExpressionUUID->"f3334df3-7c4d-45f2-ac47-829b2009b4b8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "3", ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["7", "24"]}], "}"}]], "Output",
 CellChangeTimes->{3.764992252860487*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"cd980eb5-c627-4cd8-ac2d-8b117d94a333"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1344, 796},
WindowMargins->{{21, Automatic}, {Automatic, 44}},
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[580, 22, 4399, 98, 75, "SlideShowNavigationBar",ExpressionUUID->"93ee4a61-4dcd-498e-8e48-4bc00f9a27b7",
   CellTags->"SlideShowHeader"],
  Cell[5465, 140, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"00de858a-d55f-4855-b594-ef1aba214b90",
   CellTags->"SlideShowHeader"],
  Cell[18411, 416, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"dd5cc947-047c-4ab5-8a9c-cd755249f4c9",
   CellTags->"SlideShowHeader"],
  Cell[109230, 2049, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"0b84627f-cee7-40e6-b497-909cdefea0ed",
   CellTags->"SlideShowHeader"],
  Cell[116124, 2256, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"a8dcb250-cc9b-4d1c-bf4e-127ea3201da4",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 121540, 2426}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 4399, 98, 75, "SlideShowNavigationBar",ExpressionUUID->"93ee4a61-4dcd-498e-8e48-4bc00f9a27b7",
 CellTags->"SlideShowHeader"],
Cell[4982, 122, 304, 8, 160, "Title",ExpressionUUID->"0925bb47-94d4-4384-bccc-d07fa1f11c1a"],
Cell[5289, 132, 139, 3, 67, "Section",ExpressionUUID->"22c362c8-38fd-4f18-9b54-58e852700e4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5465, 140, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"00de858a-d55f-4855-b594-ef1aba214b90",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[5612, 146, 205, 4, 67, "Section",ExpressionUUID->"9f8d8d09-8a7c-4dc4-b7b0-af65d2f687b2"],
Cell[5820, 152, 221, 5, 35, "Text",ExpressionUUID->"61f63c50-d33b-4c44-a99f-0157ad27891f"],
Cell[CellGroupData[{
Cell[6066, 161, 1112, 32, 73, "Input",ExpressionUUID->"fd493dca-3db8-45ce-8f42-be056e09d7ee"],
Cell[7181, 195, 481, 14, 53, "Output",ExpressionUUID->"c77138b2-14ba-404f-9cef-18ce71913ef4"],
Cell[7665, 211, 10685, 198, 236, "Output",ExpressionUUID->"3a04052a-d488-4ca9-ba5f-e05aca689670"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18411, 416, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"dd5cc947-047c-4ab5-8a9c-cd755249f4c9",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[18558, 422, 153, 3, 67, "Section",ExpressionUUID->"00b5501b-623d-414c-87df-2d3dcd60a664"],
Cell[18714, 427, 209, 3, 30, "Input",ExpressionUUID->"d715052b-7640-47ae-951f-32b37519684d"],
Cell[18926, 432, 1823, 45, 157, "Input",ExpressionUUID->"7b690f4e-f3b3-4621-9402-e2dee27811b2"],
Cell[CellGroupData[{
Cell[20774, 481, 474, 9, 30, "Input",ExpressionUUID->"d991303c-5d4d-4a61-acac-61832821a2b9"],
Cell[21251, 492, 64399, 1079, 231, "Output",ExpressionUUID->"31382001-d1f0-4228-938b-597de4e3a444"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85687, 1576, 466, 12, 30, "Input",ExpressionUUID->"a2d6e506-4421-4baa-b771-a553286c497a"],
Cell[86156, 1590, 10019, 183, 236, "Output",ExpressionUUID->"1091f285-820c-4599-adf3-ac138ec0e990"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96212, 1778, 828, 20, 30, "Input",ExpressionUUID->"d0ddf061-8a33-44c6-a25d-882e3b0b0e3b"],
Cell[97043, 1800, 10826, 200, 236, "Output",ExpressionUUID->"d106ac39-98bb-42f2-b041-5a1a43510bc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107906, 2005, 390, 9, 30, "Input",ExpressionUUID->"455a8487-7f64-4055-995b-298ded1a385b"],
Cell[108299, 2016, 484, 14, 53, "Output",ExpressionUUID->"3cbdfe6f-6e74-4387-ad0f-df3e9404ef63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108820, 2035, 198, 3, 30, "Input",ExpressionUUID->"0f9afaa3-6411-4a66-8db8-10891b7cbfc0"],
Cell[109021, 2040, 148, 2, 34, "Output",ExpressionUUID->"3d0d75e5-c1ea-40dc-b6a4-650183152ebf"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[109230, 2049, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"0b84627f-cee7-40e6-b497-909cdefea0ed",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[109377, 2055, 151, 3, 67, "Section",ExpressionUUID->"11446746-c4bd-48d1-b115-712f4fd428a4"],
Cell[109531, 2060, 2234, 59, 262, "Input",ExpressionUUID->"1ae2095e-5f84-46ab-b5f3-a0ebd1b42c60"],
Cell[111768, 2121, 1313, 33, 115, "Input",ExpressionUUID->"8e67186c-c41d-48b5-8618-2af1c58161df"],
Cell[CellGroupData[{
Cell[113106, 2158, 291, 5, 30, "Input",ExpressionUUID->"7caf5cd7-8759-4f7a-9de6-18a391f4a1de"],
Cell[113400, 2165, 433, 10, 51, "Output",ExpressionUUID->"1bda2736-b0b4-4fa2-9914-4787594fad1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113870, 2180, 239, 4, 30, "Input",ExpressionUUID->"1c5ce933-9a61-42df-af83-37428b54258b"],
Cell[114112, 2186, 790, 25, 34, "Output",ExpressionUUID->"385dca39-ed6f-489a-b8d2-60243b9e4ba6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114939, 2216, 256, 5, 30, "Input",ExpressionUUID->"30aae1c9-5785-4a72-8284-50b33692254a"],
Cell[115198, 2223, 480, 14, 53, "Output",ExpressionUUID->"4057c89c-6ea4-4957-bf43-cc415b38d771"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115715, 2242, 196, 3, 30, "Input",ExpressionUUID->"379c53c4-81e2-497e-8cbf-aee3bff10e01"],
Cell[115914, 2247, 149, 2, 34, "Output",ExpressionUUID->"04871703-8abe-41b6-a7b4-4677678a823d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[116124, 2256, 122, 2, 74, "SlideShowNavigationBar",ExpressionUUID->"a8dcb250-cc9b-4d1c-bf4e-127ea3201da4",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[116271, 2262, 163, 3, 67, "Section",ExpressionUUID->"50c0f7a5-1f9f-4f19-8481-74ecb0752fc0"],
Cell[116437, 2267, 280, 6, 35, "Text",ExpressionUUID->"ece323e1-2b35-4eb7-993b-ddfb9791e57c"],
Cell[116720, 2275, 220, 4, 30, "Input",ExpressionUUID->"cf4eda8d-7492-4d31-86a0-b851dbdce962"],
Cell[116943, 2281, 487, 13, 30, "Input",ExpressionUUID->"5733159c-0af9-4623-a570-31221b0bc1af"],
Cell[117433, 2296, 1222, 34, 52, "Input",ExpressionUUID->"78998e09-b6da-4516-9b45-ea848e6904f8"],
Cell[CellGroupData[{
Cell[118680, 2334, 179, 3, 30, "Input",ExpressionUUID->"fe3b1ae8-e8a9-4ee8-8980-50b0bc1bf732"],
Cell[118862, 2339, 583, 17, 34, "Output",ExpressionUUID->"7c83c98f-5b10-4f9b-8e02-7e25bfcbe6c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119482, 2361, 595, 14, 30, "Input",ExpressionUUID->"f47ae8e7-1697-43bd-873f-4f820b4c40ea"],
Cell[120080, 2377, 533, 13, 51, "Output",ExpressionUUID->"f24b456f-3bfb-42f1-b90e-cad831e1691a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120650, 2395, 157, 3, 30, "Input",ExpressionUUID->"f3334df3-7c4d-45f2-ac47-829b2009b4b8"],
Cell[120810, 2400, 312, 9, 85, "Output",ExpressionUUID->"cd980eb5-c627-4cd8-ac2d-8b117d94a333"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)