(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    238572,       5096]
NotebookOptionsPosition[    231197,       4846]
NotebookOutlinePosition[    232751,       4896]
CellTagsIndexPosition[    232644,       4890]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Investigate the digitalized function (signal)
\
\>", "MainTitle",
 CellChangeTimes->{{3.413454371744011*^9, 3.413454378673976*^9}, {
   3.4134544243997264`*^9, 3.4134544498363028`*^9}, {3.413454504805344*^9, 
   3.413454541277789*^9}, {3.41347048347281*^9, 3.4134704905029182`*^9}, {
   3.4134705992292595`*^9, 3.4134706022836514`*^9}, {3.663079418413989*^9, 
   3.663079472650916*^9}, {3.6630795067775297`*^9, 3.6630795134184637`*^9}, 
   3.6630820289560575`*^9, {3.663085542389475*^9, 3.663085574156595*^9}},
 CellTags->"part-1"],

Cell[CellGroupData[{

Cell["Preparation: digitize and save the analogous signal", "Section",
 CellChangeTimes->{{3.413453734908286*^9, 3.413453738833931*^9}, {
   3.6630795666553497`*^9, 3.6630795811869516`*^9}, {3.663079798712512*^9, 
   3.6630798020095425`*^9}, {3.663085612158394*^9, 3.6630856240183287`*^9}, 
   3.684669870642514*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"analogsignal", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", " ", "t"}], "]"}], "+", 
    RowBox[{"0.3", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"5", "Pi", " ", "t"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6630796442524233`*^9, 3.6630796723474874`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"analogsignal", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6630796765664377`*^9, 3.663079690957748*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwUV3k81F8XFhVFi7InCkn2SiXbUQqhku0nURJZimxZK1Qke5aUJHvWkkoi
rp3E2I0t28wwlmHMjGEovd/3r/k8n+/cc895zvOce+9Bu3smDuxsbGzVm9nY
/v9r4EDuqplx0DK6OPnj+PEemP5gYTcmfA74LZpJkSY9IMDdF/NZ2AzyLjaf
uufRA4qn+XLeCttD/HSrIb64B9Q6j5fEC3tD9ku5YIWDvSCpmfa+PtUHzApr
ZMc0eoGngOsdQ9wfmh8wlEQte+H3k9/RFtKP4HRDSrJqdC/UvKk/ES38FMxO
KSb+XeoFlW6/T4euhUJ3QUY5z/Y+yOdSVKhODYOhGBmRvIN9EH//ldSi+HM4
KDN++unlPrh12XXvFekYuLc6vR2f0wcDoRKxM46xQDMokbxY0QfSo3e21JrF
wcAn4L6C64MUvoMhV1++AK4VTh2O5T54EhLpFyGcCP2sri4hzX6oFr1dZlGR
CGNvfVs3X+qH1W/aDIlrSfAmQaQz+Ho/3F1YvleZ+hJu/COayj7qh9znncXP
NJPB3+VWiGV0P4xLFc6ZjiYDb3S4iFBqP5hds3WcF38N/92V5r5Y3g8xTLWc
8prXYCbWIl3f2A8tL/gJT2+mgPc9m5Nt3f2g2dJ6fX/WG+gdYfW9musH6RMn
LC5Jp0HpZMAhGSE82HbuShRpToOPD47/PiOBhzd3ZrumHN/BYb6evTQ5PHB1
deQis3TQvfODJqiFhxyxqsZDOenQzJnzJkYXD2fvFhAjl9MBTy5seHsJDw84
QyUsX2ZAFon38zMbPAibe56pnsoAH6pn1C17PJRl3rCVOpUJj04s7hhywYMp
1Sgo4lkm6GsHNs+544GqqZZGxWeCQ/ptw9c+eIiOPFxlIZMF+WctFQmBeJAd
5Bv54ZcFyj8MOFuD8dAszb4u8TMLjj4Lv3cpFA/23ovCz4WzofNoHrvHczwc
54gPKHXPBpdmse5H0Xhgj1cZHm7OhvqZErl9L/DQeQCvvkU8B86EZI3qJuLh
3Uf/VEWfHCCwX6liT8aDm5bo3//ac8DpouTby6/xoNFebRMilQu57tEWim/w
wG19s7ogMBekbmxpfJeKh6FZDvHe7lzQiPjblP0WD3n+uUF/j7yHSadRTa00
PPhyXRiXDnkPWjP/drhiWDd5Ttt44D1ca88UO4ZhPumYDH+lPPhLm7kag60n
fFFmzwrLA0pYT9FjLH6pTo9d2+886JU8xrkb2z+4+379sko+jI7kXDuF5Xf5
ppCUeFQ+2KkkvWO9xIMYteKpPiEfijYO/foPq2/+kQ3JQ60AFI6eHDTB6q/c
wab75kUBaKeZNc9h/ESkZuY2kAvg89vvSZIReLCUO8+5AIVglAl66xi/hyum
HQWTCyH8x7UJrxA8NODlj7icL4JPAuw0Q188JNzueJ6QWgQPD54KLvbAg92y
x+wPehEMWutLf7mDh397vhXuyiyGnKrwzV+v4wGXcZXnNKsYarZxOH36Dw+p
yn/u2hl/gF9tY6f/M8aD2qUzil83PoCioPzrLG1Mj78JMaPmHyGgIszeSBUP
+Dthi5zFHyE3eJtIlhIeKhocLIsVSiAzvAV/fT+W/2SBMNtICVSb2UsqL/cD
OvLnZyLnJ9j1Nemr0yzmB4+LAUeOfwKXR4Q4y7F+WP63OGQS8QmaWq1X7Vr6
IX7/idQc1VJY+Jn181xyP6zZhxmp2ZeC1M3evqsR/XCzCP8HF1sKW84/2KL8
sB+U1QNsVqdKQVN6/28pu35ot0RihkmfgX1c7rDZkX7gSryQQV36AuUHjn2f
K+6DddWJ9QyRr1Ds+zmqLq0PFn77WZjqfIW2VwofvWP7oOdwHndZ4leIcx4/
e8+9D9Iqt/oEniqD/NuFgSPKfaBCqDfY+vAbCO8+wRNX1Au2x7QY+7gqoLBg
P1JP7gFTfN+lduUKkIvueJAb2gO6D1zzH12tAB82gbDd3j0g15R6faKgAp6u
PuKcNu4B5tX1ltyLldCW0/CiansPRIWUvz2a8ANuGY+a7gzuhm+dx/T0xBDY
K6j+5vPvgpiZeX15XQSGm3U2CM5dcJv9vQGvG4LGl4oZvVZdIKCy79JwFYJH
nnR3Mc0uqPwVUvBNsQY+mN894M7RBYcHrssVnK0BSseiluNyJyQQ1YtSLWog
F3cc92y6E+78XS4OeVQD7t13JC60dcI+JZdPhrga6Fk49no6uRPC1PWOaU3W
wObNBI3zkZ1A05P6rMysgXiNJFbPo05otR39wi9WC926yQHhtzshIN6kfMy1
FmRT4/wcVTthKk3pdHdILcQ1Fbc6KnSCSSFPRUNSLYzwF0SmS3SCbENTZX5V
LfCc0J6t3tEJQ8tqyGtHHSQbLrvEtneALruQ9u2DddAj/Vxfv7IDSncu11ie
qAP82klGUH4HRBz+WKdpUwf8hHIPz2cdwDwepaPsUQdaZ+VeK/t2gJ22c4NE
aB3ovR477e3YAWpXJZs4i+vgkifhbvyFDsh1YNNbq6mD3xPOp93VO2CP5+/m
+d46eHgsij6o0AGzEck/u/7UgTNt6eF/fB1gkext0LC7HmxGGu+4cXVAXdaV
X2VS9cD3n85jwb84eP2Du/2NUT3Mqr1QlybjYPNP8sUY23pQsRIcjRnFgXtf
Iy7Yux7MiO/yYvtwMDKRedkrvB7qC2/zyrbjQH8hqNMhtR4cpqoibjTi4Mua
9RXLknroObHlydFqHBzgVOs2aKgH2+Z0+4xvOIjaK2iqOVAP26OoSSWfcLAq
zuhRmq+HsHA9f9siHNjLd5lJsDVAlSbhbul7HHSqfujj42uA+iOE1vdZOMCa
asEp0wDRN7VnzqTjIO+KE56l3gB5Oo3Cj9/igO/6ecv5yw3AeW5LgfMbHAS7
SAyO3moA6S4zAus1DuZ9/l3t8m2Abya121UwbPlkZKg+sgH2nN12UxjDu8el
5R0zGmD1ooE3wvBPDY+H2781QICw5OpRLN7j15W44rYGcMQ99/bE9lNjbjlw
ZbIBtCyu3HmM5UMzMfZgrDTAU30xy1vZOCj4mFKXvKMRMjdblwjk48COh7RX
XbIRaCtHCW8/4GCfs5LDqGoj8O32v7r2BQe9jf5lIZcaYfLqp/sKPzC+JBo4
D9k3wvb2lQTVBhycC9p5tcW/Ec6d/7NtP8b/n2HLgjuxjZCWtyI90o/xr5q1
vjOnEeLUM4/7TuDANYliVFrRCMckZT0X53Eweunx4iqpESJU0+8+2NoBLwvb
tFPXG8FSiRSZgOnlMpdgPPA2gfF/WVlRkh1QU1uoEqbRBENcKaePnOsAPzFm
6BGTJih670XCmXeAcqA2vs2xCZSdVolWTh2QodLnvzehCezCNBaPxHWA1Qvx
X2V52PePBKpbDqbXBWdRq+ommB1gHk/D/PH4/UZ1+kwTaLWPiqPZDrAXkdms
qN0MRd/NVHllO0HU19O8y7wZfqwLtDhh/uzr+ZHrfacZxJ6/qFbV6wTd6CsX
Kl82gwVdHXQwPx9mC4zRpzRDa9GsHXdBJ4xbN47NsbdA4rs5PqUfnfDq+66j
sUItUCuyEdOO6wQur+yePp0WWJ/f1RyIzZtZUrvQrZQW+ONAmcvU74LMs0Iu
W0taYOLLv9TM611g9c6uMr+xBcraTsSI3e+CX5YrNlRqC7BdFH0fmdUFRb8O
ZD3U+wmhbEv7Nbd2w71PXgqvGD+B0nreaDOhGxY0Jnp+crXC5R/u19s3uuFu
y6WAddFWOBi8p4N9Xw84jR1pvn6+Fe63bNwpNesB2x3jtodetoLH3THLg+09
YOxslFh66hdc7mxYEOnuBRzjuxrR8BcEcTyeeMXoBaPgwxP8tr+A03LSLViw
D/ST2RX9w3/B6IvzepHX+0C7sbwZBn9hvvvd+2ypD5QPHlpvC2gD8l5idrcs
Hj4UxWdsxLRBttaCT4MpHuRV2fSVs9ogREbwhshDPMhcHk5M+NUGvQ2MUmon
Hg48fKFoJdoOhU31aWoPB4B38O/N6ap2aDT/UN07PQi0uP6WTZs6QCxn3VJm
02/4cfcTEAU6QIWXDbd++jc8048qa5LvgPWvxyoVvX6DKNvZ7EhLbA4mm6l+
nPoN5+8VB/GXdICI2Ejxv65RaJM++yZRqRPGBlJ0HlmPw4EtwiZ5o51AHLn9
5pbtJLTUNqEOjW7wpuzwevJ9CnLb/hCj9bpBRiCO7dPIFITij203MumG5Yr0
qKl/U3CWkmbW4tgNu5tfkG7rTsMPId+ZmvhuEC2865LfMw0l9w7vLSV3Q8YR
RXizQIZX+8NvJyb2AIezjKzZwTnwkamONHnXA/VBzvdkz82B+XFGye6CHvis
7f6IdnsO9lywXY9CPWDm9fa4edEcRHmrxoXO9sD5LMnUKyfnIfgX+buPdi/c
XDV0itKlgLP/hR1X53th1Mfw3GXTRSjYx2tzndkLaVWllvPuizBfNVB0i60P
orbqe7nELIIbu5ORG18fxBmrf+D8uQjekWGRTzT6gHCeuslajApBb+u3fYjq
Ay7SI72aGCrUQOTVzy+xd4pO7ZxfKhXYJ03yy9P7YKjygrhYARWeSk/q13/p
g4AvBToKjVSI+MgWPjDSB1O6Mpst16iQVKu5lUOhH+7zLncW2S5B/60tFlyn
+qHZq493r+sSCG1tz9lxph/2mDMv2/kvQYqB9Xkh835gic8vVLxYgvSegKcK
2L1IcW5m41LtEhSSvrFbtvdD0riGZv8+Gsw/CzKxwfeDhlCS9RdpGijK6mXa
TfSDbKjCdb+jNChx6z/jit3b2E/7mX7SpUHZCiP4MXavK+MPVJm8R4Pabcf+
Fbli92znL/z7qmggY6b8LcIPDztpH5s4m2kQl6Z4z+kJHrIuxH/v7qSB7XG5
MUnsnpz2qKOYnUiDDWsplNKAvVvuWv9p5KLD7fcSvn4d2DvB7+/kO146tC8d
ULIYwsN4x0KphQgdUsP2v+Ol4sHM+KOnlRwd1EoEgsL3DUDSOYpNmSEdMtf4
Tt2WHgAzPpP7XqZ02HZ+76LO0QG4YJdrxnONDgODu2780x2APeJn5zqd6eDL
sQ18PAegUuyzXGYoHUYvcq6YYr56YdCgpBZFB91XWz4eDR8AecfYvcXxdBBQ
YBenvB2AD/1RgpLv6PDFYn3j1s8BKOp0eXGxjA6iGayyM70DoDZ7eEdFJR2e
zK24iY8NgLnYoUq2WjqYBDNGhxgD0BKDdxL9RYeKVtrL8n8DcPfxTf2lDjoc
5F+69HL7IJQN9Amn99KBmk+pvnJgEBZrn1hH/qaDJWPOR0luEO6K7v/aPEEH
pDWruOPkIDTx3MT9JtEhpmcqrcVwEPK+7xVNptCBuZ9kkWsxCLdjfUFtiQ7X
nQg7n94chJE37pu+Meig8HfsEfgOgrn24wua63RI1Bs9uf/xIFCOyDfpbtDh
z4uRhbWoQVg9FIM7sokB9iNDuQPJg5DywcR2ioOBzYfB62WZg5CpKxTwYCsD
VDzwAonFg6D8yGPfPBcD3lT24TzKByGHSjx3gpsBLsbdWgq4QXCnrp4028WA
7pRO5vbBQSgPdNkiy8uA0yTcBzJhEDy2v3Ic3MOAdKX2200LgyDk8MvOjo8B
XAG/xLJZg2DZeOZvAz8D3Bt+9odsHoL2bDmtTYIMwO9sibmxawi4QosUBIUY
oHW1SVdTZAj6S4Z6twozIDerYUPk0BCMMqs1OzHsHmo2AUpDsCpytNVZhAHq
jsR6+9NDsF3dmX8Sw1sveOc+1xmCoKNtR07vY0Cn7ObnHy4OAR+vz557GE7h
SbzT898QfBw5PfwEw/YLkpdWbw5Br1pGnC+GFTs/K++/OwQlUvNggGHWJ529
Z32GoCFu98o6Fr8hoWf5dvAQyApXNERhOOb+rYHIiCHwfnuh/A+Wn+V/9IqS
xCHQGu+dMMSwxOknb/vShsDkgLRJAFbfvMje4LW8IfAvrhQJx+r/9ifTTvzz
EGz4NV+8L8CAx6PHzp+rGoKuDMWNMxhfRjV1h52bh8DmTzgs7GWAQKbJ9piu
IRB4eUA6AON74snkfOnwEHxRWWoi7WZAkYNnB540BFJd708dxfrlo8de+mdx
CHR3ZsZY72CA9pH4xINrQ3C5kDLpiPWXm1vCV3fzMLDR9IxMt2H9w53RiBMa
hh8dz2paN2P9L+kS+yoxDMWmxhsW7Aw4EX9z05D8MGwIz5fV/6NDq3lIk+SZ
YSB/6dwCa3Sgj9QYf3MeBt/lgxo1mJ6rq42Pj3gNQwXhjavpLB3C08f5Nz0a
BnnflC0tU5j/7NmGDeKHoT83cM58DPPvHDiMVgxD73EdHS7MX7vbO/Q4Gofh
4rM6y4JWOgx/uCEr0zEMiUmis4pNdHD3DFr0IAyD5n87BMd/0CGFVe2/hWcE
Dg7IDE/l0cF++JK1rMAIZFrc4MnIooNS1ajW5QMj8KOmnKmVRoeG4A2O1yoj
UHF9Ll06gQ4UTq0YeZsREOiq3VMQSAdtgapM0w8joOX1Ojxfjw6bk/jvnS8f
gURV1y94bTq07HVTP1U3At+9m4Iop+lwmVe8V6R/BIpm68s6sXl3nSdky+Tf
EVBxTOQJ3EmHQPbzTu4XfwNHOWNnVAc2nxfaFKLnf8PmvuYf+87SIMD10Noj
5m9osLq+J1uVBlrzD5vc2UYhZf76tIgSDRpnFG+Y8Y2Ce3Tv5j7sPOglxsXt
0xiFy74Pe0IYS0AbMqPnR46C3z07EiNzCRSaR8qbZMcAb4uecTKpILBwhxJ3
YgwMK4JOkmeowMa/fvCa9hhkfd8+V/WbCr12wpGL5mOQNBZTfwE73x5smNsI
hYzBQffJ9vkEKrSd6Njkgh+DnQHfEouVqHCi2zZn69lxSD8WH7a7eQEKHPLQ
Hb1xsDt5/6pL8QKIsRYHO43GQZklat+QsABcB4J2vvlvHPoO/50MtF2AEde3
vkqu42Dld7iZe40CT7cNXbB8NQ4Bp9d59BUp0KttupC/MA41TTa4iXdzsPaO
8LaUPg7h11U5jj6fg4P/vC5Wro7Dw5+p+HjPOXCrSixqY5+AD+K9t+LOzwGn
Wr/LosAE1AQ85gyZnwW141enVWACdvl7HMnVmoX0QzfGUewELOn2ZZxfIUPT
08XYlsQJsI/wCu4jkIFCCIKu1xMw8yCnLKyTDGqZ6WmTWRPwWb+w6VIBGXrE
Jq23lE+A6NGd4cE3yLBVyGHQYHwCrI6btqPOaUzny+GmpAnYLix4LwFNg2l/
qKr17AQ0+G51iPkwDemJucmujAk4mf4vdz1qGk7zks3juCZhRA2+/TCchrvb
73T3KU/CDxQ/KtaF3deqBMoMTk7C9ZLrrRa1UzDmXvcaqU+CYoN0cd2nKTDB
C9/M152Ek9MtH04lTIFqdsviA+tJWCjgyX5nOQWe/3n3LN2chNaUc+bBBlNQ
uP3At9uOkxCl3fMoWWMKxDx8Hxl7TkIDv6OVy8Ep2KwlvUMqfBLy+KoK8ykk
0Frqor6KnoQXR69kn58ggW/2w94dCZNA9k44JNJHgtntfW9W3mL5GS+8d60i
QSf+ieyvz5OA86+LbogjwfZIpZ3a3yehf0OvQjaMBDpaw0tfqifBTUqB+1cg
Ccqyj31P+zkJf47nNVQ4kiDVY0LPc2wSGE76eKuzJOiXipabJk5C5ni198vT
JNg1oLrLenYSUoY6rHYcJcFjrbj+88uTkOBLdSs+QIIfS+oVFWuTkMFp0dEv
RILl7Om3SmwEUE5j+63OSwInbnAQ5iYAWa/v8nd2EmRWz+rH7CZA3cauga51
Igx7vJTnECDAj30lptLLRLg0QKHPHyDAFZqyxRMyEcIjX+NvShOgMAJHjZwk
Qq3W+cp+OQLYtxvkdo4QQSUn9XHNSQJM6mh47+wmgpul/u0TGgQo/bvnBWc7
Ed5zMy4UnCHA3VuRXRotRBDxNORNNCJAOeeWT9cQEcwOrTC4TAiw8xf3+fOV
RIgeyBx4+B8B/rxHUy7fiMCGOcLRjgC01wdlXEqIoEbLeTLiSACz+0HFOsVE
8Mq54njFlQAtP2e5rxYQocjyr0GTJwHCq7yOFrwnwhR3vqK6HwEYpDPbT+UQ
QRyZ7Sl5SAD5icTgf5lEsPRkY0o9IYDt34YHHBlEiD9UNPg6nACzFB3S2XdE
+DXwX9XOGALwxLxNq3pLhMdD0/wuCQRIJdTz+KcSQXXE163xFQFeWZXccX1D
hIXfnM0H0ghQUiCYmpJChOyxZPEHWQTYGrfwgA3DVhOH/fB5BLhZ4TKX9poI
uwnfOo99IEBwC0f9fQw3EfWOxHzG8GXv308x/GAKHzJTTgCXhYo9bRg+RnYc
OldNgAbXfacNsXjkmZVj6fUEEJkTP8SO7Z829yxyvYUAKbtT8qkYNqMIEi1w
BHhpmZ0sgOW/ffG9RmkPAdass6q90ohQQz2VtGOQAGnH9OY504ngQ2umOI0S
wK8zar4b40OB8Z9uA4EACY/R894sIhCXp9PEZwgw5hQQxZNLhJQV35WABQJk
bCqoDMgjgjGL07ifToDPKHpErJAIW9eT846yCGBU9L10FevXjz+HN0VvEMCb
T4iN6xMRPDe+XSVzEIHr7NxToy9EGN00sP3dTiJ4FFYqeGN6SORwurW2lwj9
UVtaLTC9GGxZrTQXJgJd+2aMaz0RyriEXHmkiCAzz+l2so2IzZO8RscjGF7N
Z0x3EkGCR1WsXpEIs6K7A9r6iBC7y7LD/zSmk0hjXYVxIujykg/3aWE6EcHN
5ZGI8GePX7DyOSK01VpdtJgjgpPAq6PTl4jw1LaOem6FCNr7BxLM7Imwcb9W
0AnzF1PMaf6jMxG6377jdML8V3Rg9Rz3PSI4LB8lvhQngZCUELPWnwh+x03H
ghRJsCRraakUSwS9/ccWvS6RIE+eXBKRSITM3AbbcQsSXFf02zaF9flsuNEL
vxskaD36qiI1mwi9PWEPZT0w/6oOiG6vIEJ58Rmr8JckMNW1nCASiUDiIj9r
IpOgYu/RDsIMxnvDhwvrNBJITGyrmlzA6p55/vXyXxLQAitfja8SIVK1aMZ8
zxTEfRIzHuHB5obBj0NtmlPQJkqq7lEhgfxDjVNsKVNwju6RWveUBNkJddtt
7aexOR75X7rUFOzKFzlSdGgGSmqD/Lllp0Bb1S3v6okZkCN4vfFRmoIHzZNR
nOdn4IC09ZiR2hSoefbW3rSfAe4ieUfW5Sm4VT8W8CdzBsa/tfuYBE5Bebd7
s5L4LER27Hq5uXsKGh00XT7vnIOtSxzl9/BTcLkiXEBg/xwE71kdHMLe8Z5G
+ry35LD3t/n4/k/TU1CTgDS/682B7XBJjs3fKZBlZ6XqBM1h58SVr2Uy06Cd
u8lbfWYOSrh08QcVp2FATmWWtjwHcrJqrKjj09CiXCUcwT4PB1wlNG9pTcP9
J2f4zffNAzed1rDLbBpERroqDA3nYXwjodcpCIsXe1dPOXseeOY7I32fTsOW
nRrL08XzoDq4Qyfs+TRMu3LTA77NQ9znZ5+yEqahVUKcqdw6D9pOgTGj76dh
VPfZTAdlHu6al5+nFE2D+fTrCTPmPLw6u/xn/dM0rBuzuX7amAeq6L07wj+m
YeUWzW1xJwUyuuz0zbBz1/H2yHtPBQrgqt/9s+ubhphopar3KhRYKxwp8xia
Bmvj2dESdQqYhFkciiVOA3vLxSTNCxR45JUw8nZmGuoa5E1rLlOgwLYzoWhh
GsRPk+7xW1CAXd2AvXV1GuK2ECVO2FFAUebZ94G/0zC8IT674UgBK/4G92l2
MvzCHfJ87UqB0kXNsc07yCAAwUfBjwKjIwEv9+4hw++M4YwLDymwvfXbRQlB
Muga7j0v+ZgCdtlHf8BBMnwhJmecjaRAzAs3r0vSZGA6GaY+i6VAxaNCWRs5
MsjyFRulJFBgz9VDrwNOkEHZR9Lm8BsKaOnaGT9XIwPXTgPOjDQKuBx/x/kK
yPCMV299KoMC9TuEfb5eIENq8OGb/e8pQF0zV2i4hK0/u1s6qIACouR4Yrcp
GQ47jg7Riiig39fxZsKSDEJ/luSOfqSAdx2PKdWGDH/le5tOf6JA+scL2//Z
kcHF5LQVz2cKtKWG1e5wIkP4CvvLvC8UWH1e7yfqSobWgTNyO8soIOXLpizn
SYbg4VNtGt8oYGyvOX3alwxsG1flVcop8OBKQJr+A+y7tgkbA8N5Wt/M/wvB
4odt2gj8jt0H5Rg8t8PIcNc9ZOQXhtmEjzZ4R5JhRFHajIBh+a1ugU/iyFBk
FCxWh2FLesGx+CQy/PC8znTE8NPx6Zn0FDLESXYk92LxS9qlMj6+I4PRPYka
TgyPVNy0rM4mw4H0OYVNWH5ceWm72vPJUDvKnlHzlQIqScNNwx/IoNoRNnQe
q8/2sdCj2c9k6D80mhpXSoGoe+YnWOVkMFH5XpheQoFy6/h5zmoyTLrtbbv/
gQKkCx1ZAvVkeDij0rAL41cq8nDsixZMH3lGdsfzKWDfFhTAgyNjvhtg582l
QNaOAYdnPWS4zv/uZl4mBSYvKV9hHyQDtVRdg4X192BcuMbDUTIkzYqacGD9
t+0aP7yK3Vu5lMPtm15iejN9sUFZwPjIvhTtE02B/UkzM04MrD9CPkq3wilg
3X+mj8DC+MioJ3E+ocCwJa1wcPMMuEitVPj5UkAkxSDZbPsMcJlne5/zwPQ9
nPm4Y9cM2Ips82t2ocCAjenVRpEZEAuyyqVZU0DwXeE57QMzEO6gFphiTgGL
cQ7lSmwOnt1bSVm9iPXP7svWT8ozMJSdwDeoSYG92Tw0uZMzEHP4xGOrE5gf
Sfa/c9VnQIbEwxYvT4EuR/4vqbozcLL52BcJEQrsznd9J2g0A5La5z4H7sb0
M9sYEX9lBgxu8ZlFbMX8ftfnZrj1DBRdGz/YsjQPrR74nd6eWD2OB+frG+Zh
22eltQXfGZjvDZlpLp8HfcYzkvPDGfiOu7EtpGgemn1Uf9wIx/a/rv5yT8I8
NAS+djZMm4F2nZMppdbzwFG1ZNaUNQM451DTG5fm4ezGBe0z+TOgId+hUAvz
UBO8JnDqywyYSP9xzj44D1Wh1xokWmcg907SvdmJOfjT9Pnj244ZeHW36cWZ
rjnQ4OJ5I9Q3AwMdjlcu1cxBRcQPj53jM5DcH8Lz/O0clMXuF19bngGBKMVX
YWbYfH495t91cBY2bL4m136ZhbtHRIeOHZ6F0qlzVNK7WZD5bqmWKI/hZG1K
Q8QsvBvoWrM4NQsxXGbvP9/AfgUbAkeMZmHen3bGaussuCblPZz2nYX83a+W
2PWwug+Rfus/nIW5WwZjFIUZIH45qFXweBbEbl4LTeabAevelI270bPwn82w
mswE5pu90UG0zFnwCON31sd8LPvCI+Rv+yyYV7rydCdPw9SBDxPXe2bhZ02Z
XVfANGSWzJ6pGZiF2oUZ+SQb7NzovMX+hDALz4M96+5ITMO2XRZPuFizsHx3
5y/b/CkgR6mF7pWagzGKzu/2IhLkhHM8PxIwB4f1m5OEogmwhxj+SBE7x7R+
2vEv3cHuhbDT+/hT7Nw7X+ObZUAAK6bQDc2YOZBdG65N5iTALnvFE1cysXON
62H2r6BJ8IerE36tc/BbKZnW5jwBF5kfTreIYH02caf5Xx6F5VtWs7cr52Eq
fEO+orsXfPau7x2omYfyoU3+/x71ArPujeaFpnn44OA8rS6H4YO/4+S65kGx
04Ir/UkPrI7dOEWdmgeVh7y3tVS6Ye2aw1P/PRQgDA4Kn5LvADYzd7EoZwo4
7S7bsq29AYI5ePX/ulHgzFl2sU1HGmDT508ebt7YXP8ywdAJrQf2PfQG4yAK
MEICtn7VqgOOzvt3+JMwH+UYx0jdQbDVKLA8rQab47h/z07f+Qrc58JMPgku
gPuWqdT7AiGgge7xNokugPa+wvXU7+7gpna1c+jgArD1Cng07zqEupXlL22W
X4DdFCuvvakhKGV/94X/tLH1m+WsCsZeI5mV/Wf+Oi0AUZ3n8vuYYnSu4KvS
hYoFiMrQtIl2qkY+h94t2KAFGMWbSYRaIJSXHl7s2bAAT+0dTwcdrEHcydfk
UnELgPsdYfiVuxZ1P9l0eHFyAY57+Ccv9NchW5uLYknci1DB+3TWR68JPdhN
4pmwXgShjonhpfA2JDtUqj1ycxF7v4SJEAhtaDAr2Bt/exGslv0E1zXb0clT
oiPt7ouwZ9QqJHWxHVFtTAsrni6Cw/SvvHj9DnSrsPZCYtEi2Bn+ZdiTO9Ge
+7EPYz8tglPu3MbCzi5Uo2XzKaJsERKW7vzjPNGFRLtXhUJqFqHGd+HQVFAX
6l9VIrv2LkKOp63Lpd3dyEA3LUzvzyKscbKnlu7rQX84T9pksFHB/+Ws/j71
HtQ7L7oixkEF45IVGV6rHvS4bFZWhIsKp54Y38t+2YNGL4TF795DhTDBNinn
7b3oq6KrfAwfFc5pTziqS/eiqL1mTdyCVCjTuP035UwvUv99cG2rKBWe/tC0
Y/ftRa/cq27+PUSF97GbArxHetE98+z1ABkqfJ38lv2Z0Yt01SKTVmWp0Ptc
aj6Ypw8tc1z9SVeiQkNelVOTWh8ySWYoz57G8uES6d4U34eOPBhuddSgwmip
0POy3D7EdrPOnqRFhevWkZ1rFX3oo2zcq3EdKswMB/w5NtmHeKrl2PAXqWBT
Vv3LSa4fUYwOfIkwpsLgg80UXq1+hBvmc9IypcJ8XrrGaeN+FMv625FjSQWt
9t3/OLz6kXs47cnVa1S4fKZdN+9JPzIWnD614zoVIr4V3G5L6Ed7TnS+875F
BYPLe/4llfYjen2DqcxtKny84uakUduPek2+c444YfmsPou07+hHSe6Z93Tc
qMCW5bNVY7YfCRV5wx5/jN8rznUCInjEUnOmNwZSoW20tHdQCo+Gftq8939E
hZe/ajkllfDozbTuroknVKCaK+oYnMWjBz7q9YlhVBC/pBV9xBCPrLco++o/
p8JWjnuBL0zxSExSeOxjDBXqTc/P/bXDo3+fdiTcekEFz5u+LRwueDSuza4n
mIjF3zTIluSORzUdzLXWl9j6GlGDUh88yrg+9+HRaypckhC0sX6AR48pY3bH
Uqlgafp9OSEEj+we9ApMpVHBtpy752oYHulw/2x9nUEFvLvMtw8ReCSVUvXo
YjYVOmpOOCbE4NGWI6XHNr2ngryDbSFXPB5Nfcud+pJPBbOevku7kvCoSfdN
ilMRls+tavG8ZDx63xd7SfQjFUxun1rseY1H4fZP2Ts/USFT6uKLhDd45ET3
K3vyhQpqbYyR6VQ8uvDY1eXUNyoc1tta1PUWj2R57cTmvlMhd+PE8JU0POJO
t+hO+0EF+4idBs4Ynlc0DDNBWH6Gs0NCGG6rArWtdVSQXp73vImtLzZSWfje
QIXgv39YOlj8mGGZTNdmjJ9NVVa1KXjk5rLf4mAr5p+doY+HXuHRZRbv9r42
KriMX7sZ9xKPlMO3Vod3UGFtC3WGkIBHvILrHhrdVNhYjuPtj8MjWs7iIWov
FeZ4ZTodo/GoW4U4mIWnwoOkowdSnuPR5/qB6P+GsH55f91wDcWjRJP2M9y/
qZAirX2HGIxH3hO1y9VjGB83hx03AvHo5L8CG2kSFRh2JYcOeuCRYMw73qFp
Khy6pbAidwePVkUTG6NnqYC7dsx/1B6PKtQeKiwvUkFW3+Kn1n+Yvn56TOTR
qMDB5VuxcBnTl+XtJOtlKlR07s000McjTZ/Lf+vXMP3j7n7eropHTBdy4IW/
VDj41yR7qzIeldwIWcP9w/zJz65QdRiPJC58XhncvAS2Lf3FNgJ4xCUqSFvc
uQSrkt+sw6j9qG53ift93iVwOk5fdJ/qR4FbLiyu7V0CGdaX+P0j/WhhIWB+
i/ASuK9YjdY0YX6qHZ3aJ7kE2w+ZIYPX/SimzNch49ASlJweXraN7kd6hbuJ
0jJL0Mr+cceZkH5UkXh24qjCEpRPqEzaOfWjdMfcYb1TS6CZ0HL7gko/urvD
rdPLcAlq+G59eFbfh6TZOS+zLi4BPFa1LfvSh8aY79ofGS+BtJueF8rB5tF4
V+tz8yU4Y13+1/5ZH1L9fKLx3Y0l8OfBx++70Ic2X/37/ZfXEtxm3neRae5F
qdlRWZKpS3D+U3Kv09cedEPnuMZY2hLs8GKdCs/sQRKTg70pGUuwXo4ys2N7
UJ744a173i/BsLP38SHnHvQlpdaJrXQJwqJrK2+I9aC2OKbC7+YlkHi4y2jX
824Uq/S26VXrEqAE7+X3Pt3IBKdzw6x9CTpO2QiY2XejAe4Xcb+6l+BSlYP+
PHQjYpgc/fvvJYi2Nd+ss9qF/j6wLX9JXwL5lYyISjfsfNnHecWEuQR6lhcZ
Ste70NOK4pkdrCV4pM8T036xC21fXRMJ3ViCbRw3kp8rdCEBr6SHXttooM73
99WRxU40yKshoMRDA/o4rxTPeCdKLZn8MLuTBloXrM9JdHUiiQWl8Zt8NGid
dby68LkTKTq3njUWp4HA1J+tRx50oiVOj2FuCRqo7c3x++XWib7kCno3S9Hg
IptrYOHNTqRGtM/RkqVBcBr3riP6nUj3xj9OhRM0WLU7yFIX6kTbNnLSyado
YMzzKXKepxO1pRqdzlajwUZ9uhJxUycyGXrtsk+bBnDRNsxqsANdN1dp32ZI
g7j1Mw+jIjuQ7b6L6eUXafA35GkI1b8D3Zxw8HI0psHl2JyKBacOZO+aLNxo
ToNvWqWUWuy8djheMu9lSQNZnx2UlNMd6DarBUlco0Hg623yAnIdyDl0zSHY
lga79M/D+q4O5GK497TSLRp0KgbRnDg60F1eeZ5RBxrUbhzLCl7BIVf8ubEo
Jxo8/Omscm4eh9ze2pSq36HB6Wmhp18ncMj9lk/orCsNyhP47vTjccjjSKzl
a3ca1Hxkr8rD4ZDn4ns5fS8aELIv6is24ZD315oN5n0abHIX7HeqxiGfwMGu
HD8aPMbJy1p9wyHfM7Rss0CM3/hV9s2fcMiPk9uP4xENjgv7CjsV4lBAu6Rh
aTANeuaPHAzPxaHABA2xm09oMB/K3eKQiUMPrpov7QqjQaHqkzL2dzj0SNyt
oTqcBlfPX421TcWhIFJYsmskDYT3FC4Gp+BQcOE7F9EYGoxFjLk5vMahxx7l
mr/iaDCV/yZtF4afnOraHZBAA/zhb9tDMPz07wxB5iUNrpsdPV2JrQ+rZ/+G
f0UDP0HpAoTFf/Z8X0TYGxp82FePj8X2D7+sYnMijQbZBzVPKmThUAT/RWVi
Og14HjYef/0eh6KGHTgSsmgwXhmk2leEQ9EZj/rP5GL69PXNnSzFoRjH5Hxq
Hg3qLr0crPuOQ3EKJQ/eFdJgbWfKYd9aHHpBb7l86QMNjrFzj7O14lD89wmJ
vyUY/3ePGd3swaGk83t/WpVh//9qcb6QjEMvueVTt32ngVPNf+eTGTj0quvc
vfJKGlQ0bBm7vqkDpdj48AvU0mBgeFtQ6P4OlCoZS26op0HizObGKfkO9Hbm
faVXEw1GfKckZTQ7UPr9wZtdv2jwyqrr1mXbDpShTlMJxtFANELY+JRXB8rc
xM2l1EUDVUrZHY5nHSgnWuNDVD8NzvIZbBh+6kC5puYh6oM0sLsrY9ja3IHy
hN3MZodpEB4n7qU81oEKct6t6U3QQP7x7NA1rk5UdKe8nUmgQZW5tKorfycq
PtqVnjOFfR/OkGBIdKKSKnY9jnkacCfcELaHTvS1zyGhmkmDPskiif6HnShu
k+RRYGH66Y7r9YvuRC4K4zi0ToOy3rVtT992IrFQq+21bHSoGNo12FvdicJU
LofUb6cD17ZPtx22diFbWx7xczvo8InRkHNFuAupRf380bCLDh36Wv3v5bvQ
AkFntZGPDk+XL8TGm3UhiwTVey1idLiY1+tgn9+FlNEyz4WDdOhN+6ObhbD5
NVda8FOSDsOXtwwb9Xeh6rMKU60ydGhQXdAf39yNpGkHbdqP0cF6s/Y4l2M3
WjHmNuzWpYOxrqCSDfSg7gctZJMLdEhc30fWte5BRXmhYT2GdGAlHWhP8e9B
tmxsdb3GdPj1QCclGJv3LR8ZqngrOryMXZfQPobdh3eOSo+40SF/j6OUA/Qh
T7U3DdYedPi46DU3YteHjG5b2v32ooNftGVmZRh2v63ufjvqR4eHXFKfizr6
kJNrM9/EYzpElH1OMrvdj063lbBPvcTye3Da524uHolmBlakvqaDcDEj9GsP
HrH56XqaptKh+6l4ifumAdQiOTJRk0GH3D28bOrXB5BFIGftmyI6MD0Cnuzc
P4g8Za8HXamjwyXj9LT9H4dQUTj3nx8U7P+b9DQSxUdR3PX+z15UOlxWpEjU
Xh1FXioZd2TpdJBwdNLTSxxFauMnh5NX6aAx3n/z2vYx9POUXYUnBwOm5n7P
hK2Noampcj8ZYQZ4kKx9Ni2PowPnby8nnMPw5UvPiRuTaCS4z1dUjwHDb3Lo
umIE9OrHubXsCwx4viL0ukaTgHhVJP99vcQAjqZ/oSsPCIhdcpxrwJIBk9Y/
LRz+EBCJzUpU1JUBH5hNp1o3iKjgx0Wd7CQGBCQbLk3tmEYnVE68+DLFAGXd
toCEE3NIOVngkvIMA9Te7WirM59Dsmsr24vmGIBv7M4n3Z9DB2oqnmZRGdB6
t3qQo2wObTfS9otfY8AtNvQj/sQ8Gr9leMN95zL4yVE6g49SUETCTQX5k8sw
L6oWOSa0iJ4yz86+V10GLli8c//kIgq6KvVeUn0Z1CRdRiimi8hbfPrAPu1l
MNLmd34as4huFN7l226wDJp13/bt30RFKvW+69M2y9DZsuBY7EFFY7Ton1mh
y/CYcoUv/twSIv57kG4evgzm9VpHxEyWEJnnri9n5DLk9QhKx91YQlRpg0N3
4pahfcfzn1IBS4jt2taQY2+W4eygrN+2D0tIov6Ram3JMiQOfnwVvpuGpDtd
d3l9XoYHWqwhM1Eakv1tPSVVtgyxDq5CHDI0dHxFLTG8chl4m19nbAYaOie3
sni5aRlyx3aNJd2hodsJ996PDi8D9cxbrvpqGnJJv/4obnQZmBLrxKQWGnIr
vmh+dmIZ0mKvhel105BvsxxH7tQyrJq2OOiSaCh8ffq669IyXOlQIhZvo6Mo
LvwJcQaWz5V5Jc89dBTH38TTxVwGY73DS3v30dErpewKlT/LMCy4Q2NRjo7y
b9kK/NnKBM++iDU2Izr64H6ZUryNCTU3rtKLTOmo9KFWww0eJry1fKt34hod
VSSLetbzMmFmJy50yJmOWn8NtEeIMuHvcPoB71A6wg00Z2uIY/H2jpX9i6Sj
blJZ4MJBJvDUkxpvx9PR8L/EIyaHmbCVr4rSlEZH88evhAofY4Ls86+0tq90
9DOXKP1WhQk/ZWnB/RV0lCvs13LgFBOi2FkfEaIj239p3DIaTLh0h/278k86
0vQ8VlyoxQQLBR7/8nY6EiE1XlI6wwR+scUc8W466mmdf3FSlwl3lqaFo4bo
qEQz+HiFPhNiJqOMXoxifJXs7dM0ZMLjxCP19yfpSPelmtB5YyaYjHFfG5nB
6r0ZnmZqxQRNkWov8RU6Su7dp423ZsI165h/+9foyFvv44TVDSYUvVpNW/9D
R4oK/VJ29kzwEi7ZYcbOwN5Pzk2k20yYv683iNvMQOQ9fx2dnZmgyrPjkwwn
A2WuSha6uzEhrcYp1J+bgYLufDNiuDMhz3niifsOBrIeNVjw9WLCduOL8bq7
GOj0ldHY9ftMMJK2+by+m4EEGjyOBvlh3/28Z2P3MBD95JYe9kBsvxf56hx8
DNSZ/8o77CETvB0aC835GahIVF5gezAT/J10tJ8JMNDzWPQt+jETHrhf+Zcs
yEC32U2v8oYy4fvzjsVnQgx09v7UWuIzJrC3Xhb+T5iBxMn+qUIRTLglLvB0
iwgD/bHaoZUaxYR4EaHTCRgebE8fE49lwoGvf86w7WOgMm2VkKwXTIjYK5pv
hOGEz80ShxOZwKYT5O+HYXfpaw0FL5mwhz5W/QTDF18vOCi+ZoKYXF6oG4Zl
eR5zlr5hwsv1pSFVDHMG8eefSMPiyz1rm8T2Iy7lGXxPZ0LY2LjTXQzX2mvM
a2Qx4enZw6gPyzcN3xFdk8OE2xJHx8QwHGhwS+lcHhNSYp4M6mH1WVYxO5sL
mMDlfgUZY/WfUI7wNCxmgvX+wMzTGD97svbzdXxkwrG56CR2jL9F/k9fTUqZ
IFVeX1i4l4Haws/91/+FCThvdpYKxn/+On716jcmFL4ffpGG9SfM7U7K7+9M
YM1HRpJ3MhCYxf8mVjPhxr1y1n6s36LNh4KcaplQksyWum0bA62e/n5gvp4J
V6PK1vq2MlCp+PgtegsTnIN1jHkxPcXGe23x/YXxJ3gkIPgfHd3dwvl+rZ0J
Y3deNXVi+pOeU5jd1MMEiLJQ4cf0ysPVkVPZxwS3rpSMJjod0aXcb94fYAJB
18zYjEpHNddLB8i/mTDQOr59C6b33EDTxMxxJkQqajvIkOgo+hXjsjWBCZuO
y6XJTNCRVffJ5g4yE0Z9zpjUDNCR9iL+8fM5Joyrj0lY9tLRYR5/LZ0FJgye
mXvQ3kFHjPOVX8voTPii8yTkShMdxXyH7LcbTEjg7yPXf8L80z9+479NK0C+
xL/vYhEdXaOH7OPdvAL4Q6VmX3PpSEahIf7pthX4eehukeQbOqpL1w+5w7cC
u/Cc6OFjOlp+duX6adkVsN6ZGGJpSEcj2TRhuvwKnGFyLM/pYP+vTegrUloB
QM7sdhrY/ut9RgdOrMAFf7sZpjwW/56VOqf2CpzQj2H/xUNH1ha3hPrMV4Dz
p/2t/5pp6KzX5t4YyxVIy8/MOY7N5yNxObH611aAv+huM/MLDTF/Tm/9YbsC
hr4fOo9l0lCc5t3lzDsrcFyiWTYikIYapO53u4eswEKlkD7rCA09eV9h+ecJ
tp970c59B7D4smxjz8JWID62UkJOgIZqlSLn0iJXgLG7VVOQnYaq1TI2tyet
gJb5f2+kB5fQN+P2k0cKVmBr8XiXzdMlVPDg0JuJbqzeYy+ZIl1UFNvbd8tE
ahWcpDVFU94voKhH0VJd0qvA+Wa2cTx2AUXInCddPrKKzTOLizJ+Cyj0wZfb
FxVXQWnNTfKH/gIKlEpw1lddhXnjDImtsxTk6G18T8toFXR3ieukKlAQ8P0K
kPVehWMDO3aE/ZhDGtWP1fN9ViE1tZh3KWcOqTmp/TnsvwpvjiTXusbOoRM/
8h8eerQKfHuG96fZzSE5+/DgA+GrUD61M5i8bQ4JfjkfJpC6Cl6ErVGx1rNo
0bTmBXvDKshssjK8zj+DmO9D735rWoWH4y7ZZ9lm0Ma6gd7dn6twpH190GiO
jHiy+/704VbhSkD9ZG8tGckwZh3zB7H16cVWte5kZJvIr2W8uArXmdM0n/5p
5EgeEtpCW4XApMoz9Ppp5KaRTv/OWAW3vn+LqZ+m0QOibL7k2ioQ4zOFA6Kn
0SsVbb6VzSwQfq7L56g3jTp7XWbfirCg891DBbuGKYSXUW402c+Cp/IzNYQv
U2j0wfI7zgMsMN23u/JVzhSalwo29zjEgt4NVYW0Z1OI635SzTllFmy9IP1R
/NIU2vXT6g3rGAvkju+XPa89hQT2H/D5cIIFNX7BXunHppBUY4GckDoW/41w
KEtwCp3hr3k5d54FkRfCfmmQSEjfOdQjXZ8FL+dbKIKDJGRcZWBkbsiCuLc2
A7LtJHTdoW8TMmZBNGn35OpXEgr4Ons3/hoLJJOm7NUjSChkW4me3nUWhH+3
9hoKIqFwm/sSf2xZsDO3u7v0Pgm93MI24HCbBeLvRqR325FQqTm/zmkPFjz6
ZSUfoklC8buCyMiLBbcXN24EnSAhz5/kaF0fFsTvNXAvUSCho5o/BkwDWeAS
VBVYKEZCu1cOPRp6yIKfX4fe3hckIWpJrOTNYBbYTj+b9dxNQiVSt9zcQlmQ
abb7LCcHCcWNtu1dfsYCRth7p7Q/ROT+6uT3wAgWVGzWXXJiEpESz/bNz2NZ
4P/qpfGrWSL6QC95nfUaW68YuftmHxHFFIuAbCoLzPQ1RBI7icjN8SmxJI0F
A/76n9Z+EZHC8H9K1VksYPVcemxXT0Q8SbW953JZ8CdKuewWIqL5S3IBv/JY
8KpU486rSiIqqttoGChmwX9VBzVTvxBR1AMnlxslmB74U/XvfCKiuye7d02V
skBD/Wmp6wciMqKqf737Fcu3Otctq5CI5ApyrOjfMH6Lne7x5BPRdvtdbAEV
LFidac7JyyWi2f3+OWxVLNiceG2TXzYRteInDZ4hFsh4mLkHZGL38xdG1B11
LJi99XDsYzoRRRiWJSU2sMByRl1N6B0RuWw5oL6vmQVO7+JcPr8lIgP0fDzj
JwvEegWvhqQS0RF/eqhMGwvO7t9OCXlDRFzHbeQ+4jD9rGrwfE0hIvJ8U+eJ
LhZ0eEu+EcFwS66yz48eFhAncQ9KXxNRnm3KPp1+FuyJW4x/gOFwkc21Pwcw
fsP7qvww7NTrett4mAXGNz1GcjGsH4Pnxv9mwegO87atWLzD+mc+2YyzgPn9
i/MrDG9lL7QgTrJg00fH2GtYPlOVfH9cSCzI054RMMbybbr/KGNpmgX76q4O
3MfqyVUi6/rNYn54ElTQlkZEYTNX5jfmWcA10GxnhvFxO6vyRegihqX0+3gw
vnRtDp3iobEgl17du5xFRIcEY0fiGSxIFU46tgvje3PXaojwCgvs+0erLfOI
iBhhdzidxQJvThv97gIiyt444Vm8wQLPTNtnZiVE9LT8naDKpjVIZXT1WH8m
InvPbVUVHGtgJGlimFhGRFJTI5wtXGvwrnZjKLYKi5+uW3yJew1KnD4GmdZi
8a+WmPTtWINjxwOczjcSUVb7k7eTe9ZgTs6I93M7pqej69bv+NfgAueN63Hd
ROST5ClqLbQGJxeyuzPxGJ82N9/07V8DiWsGow6TRHSsdsAq/sAaFPMcaOEn
E9G+Q8YilyXXoPWgyCMWhYgW5rVet8hg8Ueqx63WiAhvXGYZKrcGmb1W3Xg2
Eqr5oiB0VnENAk5yiDzjJKGEB6LJlcfXYFxQRjKQn4RUedYSP2hh+T8M5vxw
nIQOunuY3TmzBorZI+9K1Uloey95r8y5NbAsKjOd0iGh32/w8RkX1iAel2Ay
aEZCj+W+xiWarQHPxC7VCT8Sajdwjwpwwer3rxLa/ZOEyj5MG55yXYNXsyHX
OnpIKH3PDW7GvTXgSyEdKBvF5snQxQjX+2uwclhMdJVBQkIucuG2wWtwL0B+
WktyCtk9n3qi+3INaF6mutZhU2il2TpwT90aULrvHKiym0Ziprr36xrW4K/q
OfudHtNId1TpnmfzGugIfnjkFTSNXjLYb3W3rUEGsb/SJ3UaqRzMN4jHr0FE
hmfnZfw08gxYFt5DWYOP/8q2VV8mo3n5mHJeoXVIfHKkcF13BvGV+5bWiqxD
AaruC/9fw/UaTmXWxgFcUTIZmZLBJGwqRGaEhNzJKESEUgxpFzGIUOp1apRT
rwk55Hys7VhSzryWyqEZKvYmlETJae/HqVCetffzPh9/X9a11v++77WudXIa
GZqerbgkT0LGB78vUh7T6NZpnfxeBgnSLAeHXVHTSC36bUySJglmnIBGpefT
yOPDTsefTEnIO1xr339gBo0moSXJiyRoB0j/HqrGRaOR1o13/EnA7cE1LD0u
Ggt8Fy4VSALcdrr1P1Mu+nhiRVTmKgkq8zeMHrpw0SdZLTmFSBLEnAwn4xO5
aKIg11gzjYQwuYWOfxZo39EQrkwn4S8xlmEIn/aNxs5fs0gQOtnfICnGQ5Pu
b2x18knYsOZ692cFHppSkzhnWEY7+LuxuhUPcavCYixaSEi6tmnqQS4P8Qo3
WnW1khDod9z/fAnt5AxJ6+ckvLzxZs9KFe3LNRm2L0gw9Vr1r2zjodn9RLkj
mwSZTENl1yna6iH+Q30k3G7SD5iep/2LmK7zAAk3w+7ZWH/noTm+SovrMAl6
2jXz2WIEmn/6R4/7BAkJx/+TZqNK+/FMyuQUCXe6f9merEWghaKrp724JKgr
9qJyPQItRqV89JknoTWspdjpd9pXGMWziyQospx/mbekfeGRt/8SCXaCd8Kn
jxPoi0X318BVOq+IoPQiFwJ9NXBqWMIkhMa6Xrt5jvbuqbBgigQvvz79fV60
fxQRDRHBkFyW3ikZRFuQ1IXXYygJDeLoXSPQ0pxCYrgYhtJJUk8znEDLvYay
kRIYwsoZcXExBBLyHVjZ/xMGk8q500fjCfTDhsA3C1swXFFdduMkEkiqSKKm
VBqDyl5ddaVUAm03Lks+K4tB0UrBVCeDQKpDZgGy2zD9/8wxEM8hkHbQmG3v
dgxjylsKSvIJZFYmI2GigmGofVxYs5hAx8yqed92YjgpEqUqVUagU6M2XY/U
MKSuKRdvqSAQM4Rb6qmBge1taa5eSSAf6ZhYRS0M+p6fgk5VEehKFePC4G8Y
Rm5GaZo/IdB1qxazRB0Mu/PZEt+rCXRr8rSK+T4Mr9rW1P1ZS6CUyKW1QgYY
fFbH2rPrCJQrnzRWZ4TBZeP74dv1BCqp12j1AwwRxqu5BxsI9Nj+Re6uQxik
1o89qqLdPEs/dL9jmC58Vz9GuyOOcr57BEN+05BrD+0elSwDG0t6P1MBVmG0
3yI9WVFrDMq60xpT9PrjTuyVFhsMBkm7H0jSnl3yfXPFDkOG0WDIMr2/b4li
NXtOYKhVAouMGgKt1bifPOGIoWzn+c5v9PnEOw8G5DphcL+0pkzqMYGkmcO2
J10wjObFsXh0Por8YC0JNwyHv6oFXX9AIPX0LRIdTAxXg7q7XtP57t1byQtz
x8Diy3q+pfM3emXZpetJ53U0dF3+PQId9pooJf7EoLOgwFQsIJCtSGTsfV8M
fZbLB5zpejrlyV9w8ceQ4FznZEvX+7xBg9nWQEzfv59CqBQCXex3UHl5GYMx
t93Dk+6XyI3xY0YhGPCh/jqPaALFs3a1fg2jnZJZRV4nUJrJ89yK63S+eRbZ
FiEEKgtedd4WTffrkdSITX4Eqt6cZtAXiyHrhItcjCeBWh78Jhv/Xwz2/3rO
1J4lEPuT5xsyEYPR0odIY3sCDYeL1DxJxuBvug+nHiXQhGx+sncaBs+EcvH7
pgRatRmwfZdF98OLfV7T2gRSajbramRhWLzYVCMqQeflOFYaUIpBo5AdISNC
IJ3F0Fj1Cgwx388IPtDzb65abZZZhUFS7ETXnXEe8k9htF5rxnAkW2o+qpaH
7FKZXsIIQ7lfAmdbOQ/pphVu/vsphk3MkauBeTy0epfhnt+BgUfdWz0Tw0NR
WYwfOnswhF8t7dR14CHPbOYTWw49v1nB2f8e5iHLnMI/3vZjWD8lb6Swn4ck
8xiVxFsMudv5pKg8D2UWMhykPmPIDHarHBzjotAiJj9nks6rVXmtL5uLztwr
ZO2awRCfcSnq6TMuUmExvhvMYdjnvOxdXshFlaWM3LPfMSxn/KYZdYaL2h4x
ph7+yAfmcs6A58sZxKpiJulL8kHF3sRRvHEGxT0uNHi2mQ/PMgInLrFm0LFq
xt/9P/NBtYYzfCN8Bg3VMbSxEh8ijR/LvNg9g2ZbGKEWenzAms0v+f+ZRj+/
ZEiOu/LBYFpzazsxifSX+r64neWDXISdXA5nEp2Sjxl4f44Py/r7d5g0TKJM
X27ugCcfPuWF3pq9Qb+fEtWaXQF8kNAMvzkpPYl22pgdfRzNh2GrxZM5eyeQ
bu+F6OsP+fC67o8dJZbjyL6/Am8T8MFCf41z5/pRFF7ss/paSAB2TNR0CH1A
Jdc0vkUKC2Czr9XDZv8PCMtXfJnaIIAjW/eXi3JGEMujfKZ6iwB6RhlxCqnv
0epK6aCVmgCE/hkSipF8hwrliqtDHQTgYTJZNEP0o8UzBT7DZQKw/JjmNq7S
iZburtM9+0AA9y8v/rMzvgN9e+3F/1wpgHTDEfP8L+2IAu3bc9UCqL5yIcTk
eRsSV3xeuRYJYIYTtC7E/RnaMTq+qMoRAPuzzMeLfk3olJvqtcukALoDdmfu
jytEzunxJqt8AcTbWXJS7PKRa8+8WIQQBaPn3A7UGmYj94MNmbHrKPDMyJJL
DEpGAYqWzVmbKDhYUP+MVeeG4ke9qafKFJjrMfSYfXmA3CqjJKwoSD9AnFBZ
Ww+Nr32OjhyjIDYzs0lPqgFqjdV/enicAv2EDP94lUao2HY/29qRguj+Fu8F
aIbMwcwn8UwKxmslJDN+bYXLttFjP1yjQO2co73ijjbwR6bFb0MosPOdkHHJ
awOfPWt8y8IpuN3tLpwr0w5M8dBvFjcpELGImtqxoQNsX1zaFJdAQXZCzEbl
d52w+6DLAVEWBXvOuKql2nTBzko54YESCqqL4y3dG7qAsX3wBaucggre7D1l
RjfIYDuHw1UU9Ekcu+cx3w3r6829o5opaFnVX56KeAVjWjoZwhwKAgyFe8Vq
emA4d8GV009B3d3pPPWxHhj8sVKlaJAC27mAyibxXnjFVXt0aISCoDati5rM
XmguVuj8a5qCLqVVb/P1bKiXfh9/nEdB+/FU5XFNNjyJyrRTmqMg3zjlyKwD
G8rObR1p/UrBkMGUkXUBG+6z2UWJKxT8O6P1sqCDDfkmiV5uqxQszzw9cp7L
huxH1lq/8imwuLySlrKJA3cVNi5RFF1PyZul2ns58H8QmGHS
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-1.2567174392745, 1.2567175448910282`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6630796917858906`*^9, 3.6630858562749357`*^9}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dt", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"signal", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"analogsignal", "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2", ",", "dt"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.663079586796583*^9, 3.663079634361329*^9}, 
   3.6630797066772385`*^9, {3.663079738069343*^9, 3.6630797608201027`*^9}, {
   3.663080977236586*^9, 3.6630809780647507`*^9}, {3.663085838805365*^9, 
   3.6630858457744627`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "signal", "]"}]], "Input",
 CellChangeTimes->{{3.6630797745863667`*^9, 3.663079783430542*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6630797844149413`*^9, 3.663080982830583*^9, 
  3.663081043082019*^9, 3.6630858821042747`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.663079808978613*^9, 3.663079834292307*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<data//finesignal.xlsx\>\"", ",", "signal"}], "]"}]], "Input",
 CellChangeTimes->{{3.663079849621154*^9, 3.663079887826089*^9}, {
  3.663085894307067*^9, 3.6630858949477167`*^9}}],

Cell[BoxData["\<\"data//finesignal.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.6630798997016244`*^9, 3.6630809943155136`*^9, {3.6630810485822926`*^9, 
   3.6630810563326416`*^9}, 3.6630810896154604`*^9, 3.663085902338673*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Import the data set", "MainSection",
 CellChangeTimes->{{3.6630800352221127`*^9, 3.6630800511447425`*^9}, {
   3.663080157446235*^9, 3.6630801589150505`*^9}, 3.6630813225628495`*^9, {
   3.66308175292638*^9, 3.663081787990533*^9}, {3.6630819956107454`*^9, 
   3.6630820075956545`*^9}, {3.663085587782243*^9, 3.663085594548186*^9}}],

Cell[CellGroupData[{

Cell["Data import from Excel", "Section",
 CellChangeTimes->{{3.413453734908286*^9, 3.413453738833931*^9}, {
  3.663079945452281*^9, 3.663079948061776*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.663079808978613*^9, 3.663079834292307*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{
   RowBox[{"Import", "[", "\"\<data//finesignal.xlsx\>\"", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.663079849621154*^9, 3.663079887826089*^9}, {
  3.663079982391522*^9, 3.6630800058457427`*^9}, {3.6630859092921467`*^9, 
  3.663085909948419*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.05`", ",", "0.3685664993961951`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1`", ",", "0.3090169943749474`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.15000000000000002`", ",", "0.24185846538358247`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2`", ",", "0.28778525229247315`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.25`", ",", "0.4949747468305833`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.30000000000000004`", ",", "0.8090169943749477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.35000000000000003`", ",", "1.103138558544332`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "1.2510565162951535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.45`", ",", "1.199820374951102`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "1.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.55`", ",", "0.7755563062391737`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000001`", ",", "0.6510565162951536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.65`", ",", "0.6788744898324037`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000001`", ",", "0.8090169943749479`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.75`", ",", "0.9192388155425115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8`", ",", "0.8877852522924732`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8500000000000001`", ",", "0.6661225340955106`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9`", ",", "0.3090169943749477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9500000000000001`", ",", 
     RowBox[{"-", "0.05569756931573294`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", 
     RowBox[{"-", "0.2999999999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.05`", ",", 
     RowBox[{"-", "0.3685664993961949`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1`", ",", 
     RowBox[{"-", "0.30901699437494845`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1500000000000001`", ",", 
     RowBox[{"-", "0.2418584653835824`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", 
     RowBox[{"-", "0.28778525229247337`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.25`", ",", 
     RowBox[{"-", "0.49497474683058323`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3`", ",", 
     RowBox[{"-", "0.8090169943749477`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.35`", ",", 
     RowBox[{"-", "1.1031385585443316`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000001`", ",", 
     RowBox[{"-", "1.2510565162951535`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4500000000000002`", ",", 
     RowBox[{"-", "1.1998203749511014`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", 
     RowBox[{"-", "1.0000000000000009`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.55`", ",", 
     RowBox[{"-", "0.7755563062391739`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6`", ",", 
     RowBox[{"-", "0.6510565162951536`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6500000000000001`", ",", 
     RowBox[{"-", "0.6788744898324037`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", 
     RowBox[{"-", "0.8090169943749472`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.75`", ",", 
     RowBox[{"-", "0.9192388155425115`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8`", ",", 
     RowBox[{"-", "0.8877852522924734`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.85`", ",", 
     RowBox[{"-", "0.6661225340955113`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000001`", ",", 
     RowBox[{"-", "0.30901699437494856`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9500000000000002`", ",", "0.05569756931573358`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "0.29999999999999977`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6630798997016244`*^9, {3.6630799992204175`*^9, 3.6630800070332813`*^9}, 
   3.663081118163678*^9, 3.663085805678801*^9, 3.663085914214232*^9, 
   3.6641017089679537`*^9, {3.6647841533144417`*^9, 3.6647841546344438`*^9}}]
}, Open  ]],

Cell["First we recall how to fill in lists of experimental data.", "Text",
 CellChangeTimes->{{3.4134537016104064`*^9, 3.413453714418824*^9}, {
  3.4134539626056995`*^9, 3.4134539796301794`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Visualization I", "MainSection",
 CellChangeTimes->{{3.6630857059704094`*^9, 3.663085730378401*^9}, {
  3.66410172781798*^9, 3.6641017283779807`*^9}}],

Cell[CellGroupData[{

Cell["\<\
Investigate the Interpolated function as other symbolic functions\
\>", "Section",
 CellChangeTimes->{{3.663080093240494*^9, 3.6630800996470456`*^9}, {
  3.663085767567653*^9, 3.6630857903499765`*^9}, {3.663085945090706*^9, 
  3.663085969966877*^9}, {3.6630860086718245`*^9, 3.6630860091718493`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Interpolatedsignal", "=", 
  RowBox[{"Interpolation", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.6630859867645397`*^9, 3.66308601537527*^9}}],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["InterpolatingFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open$$ = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj4hnvywMzPTP3zLgjFp
saA/3/yhZ3li1z8zeMj4ImWxPwSzCMPywtY/TO2n0Q/YuT+ciDOB2KzTP/lc
W4xHEME/teeWJah90D/5Y1FcZI7FPwogPJ+KHM8/S5yzaMC/yT92KIcciJ/S
P0p1hKH5Ss4/i9P8yS1U2z8IfbYIfmDRP3iOTrw0++M/FNjg3h510z9wG/oO
LbnqP3aDQkuuttU/fPfPw9nE8D+BR9pV3dHXP5sk+sMOCvM/b+H9+3Di2T+v
Bg3YqQ/0P7TLWDjzH9w/TbyLQ12Y8z+izukSFTfeP7WSlV529fE/8xDZwZI9
4D+4CQWnf9/uP4YlA0hNWuE/PHcy3anR6T9uRkid12PiP+8Oh6u/WOY/gQ+p
PdmD4z/rO+SRlqzkP+nkJK2qkOQ/4UJR25RZ5T98Yrxn87PlP2d5jmoj7Oc/
AMsZcO7R5j+F4k7G8QjrP9k/kke53Oc//6vrXBo87T/dXCZq+/3oP0l0FJeh
bO0/NobVWw0M6j+a5VRv8vbqP4CaSpvRFOs/VUIaHi0D5j/1VtslDTTsP98d
Oqh6y9w/vx+HfxhA7T8Euqbj3s3JP7SQTiSbYu4/DpkU9R34qr+b7NsW0H/v
P0IeH1bfss6/bCpCbOpE8D/iAqW22MfVv58ypHIo1fA/gTX9AnSK17/9wJNg
zlvxPx35dgyzVNW/00Rmdc3f8T+NcIwDGvjRv7+cxi8Ib/I/T9Q3H8fezr/V
erTRqvTyPzhwWLaJkdC/AS0wGYmF8z8A/KAlSrTWv1dlOUjPDPQ/f6okmN1o
4L8mkyWebpH0P/BcfiuL3Oa/C5WfmUkh9T9BvNfTPxTuvxodp3yMp/U/G8ce
HC3l8b8+eTwFCzn2P/SapXXbvPO/28q0tOLH9j8og4pTdPnzv6KiuksiTfc/
MMmKfu7h8r9/Tk6Ind33P/tE23tEnvC/hoBvrIBk+D+KXIY8jlPsvwaoc/e8
6Pg/5pKl52wM6L+cowXoNHj5PwSJ/1T2MeW/XCUlwBT++T/DiNZwxcLkvzJ7
0j0wj/o/jZyNG79q5r+AxmLipB37P/KFfaWQaem/+ZeAboGi+z+IG3S0GiLs
v4c9LKCZMvw/9S5vFBGm7b9AaWW5Gbn8PzUgkU/wvuy/DmkseNVK/T+nOjL3
EKfov1Ve1l3q2f0/5BtHO0gA4r/G2Q0rZ1/+P+QnO/rLnNS/TSnTnR/w/j+U
reS4Dwytv/7+Jfg/d/8/hlGc5m4JxD+2hub2////P+j0P8wyM9M/RPAFwg==

                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2484019530604176`, 
                 1.253824085186732}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{}, {}, {
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAotpLlPIyYj4hnvywMzPTP3zLgjFp
saA/3/yhZ3li1z8zeMj4ImWxPwSzCMPywtY/TO2n0Q/YuT+ciDOB2KzTP/lc
W4xHEME/teeWJah90D/5Y1FcZI7FPwogPJ+KHM8/S5yzaMC/yT92KIcciJ/S
P0p1hKH5Ss4/i9P8yS1U2z8IfbYIfmDRP3iOTrw0++M/FNjg3h510z9wG/oO
LbnqP3aDQkuuttU/fPfPw9nE8D+BR9pV3dHXP5sk+sMOCvM/b+H9+3Di2T+v
Bg3YqQ/0P7TLWDjzH9w/TbyLQ12Y8z+izukSFTfeP7WSlV529fE/8xDZwZI9
4D+4CQWnf9/uP4YlA0hNWuE/PHcy3anR6T9uRkid12PiP+8Oh6u/WOY/gQ+p
PdmD4z/rO+SRlqzkP+nkJK2qkOQ/4UJR25RZ5T98Yrxn87PlP2d5jmoj7Oc/
AMsZcO7R5j+F4k7G8QjrP9k/kke53Oc//6vrXBo87T/dXCZq+/3oP0l0FJeh
bO0/NobVWw0M6j+a5VRv8vbqP4CaSpvRFOs/VUIaHi0D5j/1VtslDTTsP98d
Oqh6y9w/vx+HfxhA7T8Euqbj3s3JP7SQTiSbYu4/DpkU9R34qr+b7NsW0H/v
P0IeH1bfss6/bCpCbOpE8D/iAqW22MfVv58ypHIo1fA/gTX9AnSK17/9wJNg
zlvxPx35dgyzVNW/00Rmdc3f8T+NcIwDGvjRv7+cxi8Ib/I/T9Q3H8fezr/V
erTRqvTyPzhwWLaJkdC/AS0wGYmF8z8A/KAlSrTWv1dlOUjPDPQ/f6okmN1o
4L8mkyWebpH0P/BcfiuL3Oa/C5WfmUkh9T9BvNfTPxTuvxodp3yMp/U/G8ce
HC3l8b8+eTwFCzn2P/SapXXbvPO/28q0tOLH9j8og4pTdPnzv6KiuksiTfc/
MMmKfu7h8r9/Tk6Ind33P/tE23tEnvC/hoBvrIBk+D+KXIY8jlPsvwaoc/e8
6Pg/5pKl52wM6L+cowXoNHj5PwSJ/1T2MeW/XCUlwBT++T/DiNZwxcLkvzJ7
0j0wj/o/jZyNG79q5r+AxmLipB37P/KFfaWQaem/+ZeAboGi+z+IG3S0GiLs
v4c9LKCZMvw/9S5vFBGm7b9AaWW5Gbn8PzUgkU/wvuy/DmkseNVK/T+nOjL3
EKfov1Ve1l3q2f0/5BtHO0gA4r/G2Q0rZ1/+P+QnO/rLnNS/TSnTnR/w/j+U
reS4Dwytv/7+Jfg/d/8/hlGc5m4JxD+2hub2////P+j0P8wyM9M/RPAFwg==

                   "]]}}}, {
               DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None}, 
                PlotRange -> {{0., 2.}, {-1.2484019530604176`, 
                 1.253824085186732}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "2.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> 
        Baseline], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("InterpolatingFunction[{{0., 2.}}, <>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.6630860161565313`*^9, 3.6641017091379538`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Interpolatedsignal", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 PageWidth->Infinity,
 InitializationCell->True,
 CellChangeTimes->{
  3.3627640552343*^9, {3.399447838150696*^9, 3.3994478386213727`*^9}, {
   3.663080188728959*^9, 3.663080189150849*^9}, {3.663086050001892*^9, 
   3.6630860648307257`*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwUmXk8lN8XxyVbpL5RopTKkqwtRLajxb5kLZQikoiQkBYkkoQkhCI7SZIo
yrXvZuxjyzoYyzBmxjAUv+f3l9fb8zz3nvs5n3Puva85fOOu2U1WFhaWNjYW
lv//1b9J6qicuakxb5HTfOpUF0wXXLoxInQB7oVeSkq17AIBnp7Ib0IWYHYk
6ranbxfIndmd+V7IEXTm1MrO/ewClfZThTFC3qC3pc+oQrEbRNU/ZNck+0BH
rYTMTfNu2J7HlUIXeQC88SoBvh7d8Cf4z6tLEk+g5acxjOd0Q2VSjeIroWeQ
qeSjO8vXAwqdfl/Fr4QAR6HKAodMD+RyyclWJIeCz+BGQNyFHoi5nyC2KPIC
Ct6LivJ594DDRTd+U4lIQDtkXrxt7YG+kCNRM7eioPOaaqHDWA9IDLuyV1lE
gzFHiEr+cg8k7j4cZB33Ggo/OyoUCvdCcNBLv3ChWLB6nzb83rEXKoSdSi6V
xQJ9ukPT+n4vrJZq0o9ceQuWcj6P40J64c7C8t3y5DiIZik/m5jRC1kv2j8/
V4+Hp4pS2Te+9cKo2Kc58+F4uPnjU1phVS9YXLG7NS/yDuTXnu4dG+qFSIZK
5o/KdyB7I9u9bqYXGl/vmXhmnwh6Lg/3nmL0gnpj87UD6Umw8zNeqICXAH4O
mckz55MBF33Q9LcgAYo2Aga+E5Oh36nsrbUoASQUFS8ZS3wAdjUfVnUlAti1
74zd1/AB1IiOXKGaBEhyne2YupUC5HZ1wnU9AnB14LOQRSrMNxm8bLImQObB
33XimalgEnDR+Io9Ac7dySO+XE4F25aBt0HOBHjEGXLEKu4jJD4Qd4+6TwAh
S6+zFVMfYfzZtyG/hwQoSbtuJ6aUBiwPnF6uBRLAnGIYEP48DZ7kid/eE0oA
irrKBwohDUhufY7N4QR49fLo70uS6dC818ltXxQBpPp3D/3yS4eCv989Od4Q
oEGCdf1IUzoc9vxiFxVHAEfvRaEXQhlQ0HTmWMk7ApzaGuNf5JEB1AEH1m/J
BGCNURgcbMgAikRYk0YKAdoPEVTZRTJh5hfvF5uPBEj58iBZzicTDudfmeBM
J4C7hvC/y22ZMLi1P04ngwBqbRW2QWJZYN01z9yXSQCeq/YVeQ+zYPTYhlow
xgOzW0W6O7OgSMA7OgjjnAdZAf+OZQNf7nexvRj7cumNSgRlw3nKMSktbDzt
+DlNk75sCFtX6tiOzbdbIvLjA/kcEB/Q1r+LxTNRfJw1PTQHriT9rnPD4i06
33Wj9U8OeBhv9d72ngCBnfdrlhVyIYM1IOR8IgEu2guKiUTkgnpDvNSBeAIc
pJQ9053IhUefit/EY3rNP7Gd9FTJg4wKtaVvmJ7lvCzaSa/zgLkz/t69lwQI
T07LqiXlQUWBlAEBy4eVtBbnAnyC03nXckaDCHC0bPrW3vhPkLErsTz6EQFq
CTLHXLTywc2+pm7GgwBvnPAv3iTnw0XngANvXQhwY9lz9hctH04JjszPORBg
k6/00860z7CjULw41ZIAKsZn5b5vFICj657juoqY3/5MRA5bfoHPNxWiPWQI
QHANXeT8/AV2BcvPGWH+Lau9afVZthAUHC+Zy/yHxTeeJ8QyVAhnXfOV3k31
Ajr2tymW8yt8P0b9GT7YCxKeRv7HTn2FqyGGZSrtvbC8uThgFv4VTEwHGQM/
eiHmgGJypnIRiE9n5ak/74U1x1BDFcciCFMhOF/w7wX7fMJfXFQRnM60kOR3
64Xjqv62q1NF8PRf5x1es15os0IHDd5+A7mbopfjhHqBK1bvI2WpGB67avKw
pfbAuvLY+sd938Hb4+BPydc9sPDH75L5+e8w+5oiJPu0B7qO5vCUxH4HV4n8
rj6HHvhQzuHzUKkEHP0PnCOIY/1tokaf43Ep6NDwI7qZ3WB3UoO+n6sMCKEn
r1YldIE5oce47XgZPIyqny173gXaj9xyn1iXwcSut0e/+XSBdH3ytbG8MtDh
zI5It+gChvV6Y5ZROZgZsEul/NcFEUE/3p948wvzycjQwItOKG0/qaNzEMG3
298eyYZ1QOTMvK6MNgJpiTUjqQcd4MSarb/LHYFUcHT2eZcOEFDYbzz4GwFx
TDIJb9gB5S1BeaVylWAR5inoxN8B++VdvhrgKiHw2OcdNtntEKqqc1JjvBKm
WyPYXyW2A1VH7NtxRiXcPfDlyNyrdmi2Gy7ec7AK2F8o+8rcbwf/GLMfI25V
YDXacOCPVjtMfZA/0xlUBW3nJAafqrSD2aftZbVvq6Cgr5L3inw7SNXWl+f+
roJh+6P+WULtMLCsgu7xVgM9QJsrdAwP2qyCmk6Hq6Hq6LtNaRweinYsV1op
VgPL+csBWuV4CD/6pVrdthpEbXbeGojDA+NUxPnjntUgIxTqYx2Chxuat2uP
hGDjddjbmnvjQcVatJ7zczXsKD3LgszxkHWTRWetshpCs6odFC7ggc/rT8N8
dzVsE0gjSyvi4cmTMt0RUjVI3/rgmS2Bh9nw+KaOv9UQsH6/JkcQD5fivfVr
/6uBeIXpkhM8eKhON20pEasBTu9CkQsbOJArlDPMVa6B3Q/v156i4eDdL562
JMMauBAeHHV8HgdsTSSjSLsacBOVmiybxIFHTx0u0LsGxvIPBnaN4GBoLO3i
vbAaoEYI7H84gAPdhYD2m8k1QD/W4FHUg4PitaumVoU1cHp2UtW/AweHOFU6
9WtrYIeCpFJXGw4i+Peaq/fVQIvb+QMVzThYFaF3yc/XQOW/+RzVRhw4ynRY
HGGpBU39gVjDehy0Kxf07N5dCx9+ViYt1eJATevlJU7JWpAqsvSTxjjH1JnA
VK0FpUTjybUaHOy+pmU1f7EW9vbZvbfDnge6HOkfdqiFA51nr9jW4WDeZ9O6
w7cWkhay+pew8a2ChwZqXtbC+ButroNNOPhvVELm1sdaONHioCXZioMmNc/H
3KW1QJdQWZjC4+Dpu3Lc59ZaoLTv+3WlGwcqDPZDpuO1MEO9/P55Pw6oZiae
9JVayCg5H+iK6ZX3JbE6nrcOprWOm3NN4eDG9kl+VdE6uN98l+06GQf7b8vf
HFauA353i6ceyzjorntQEmRcB89tjperY/mKOFLLKe5YB7E/Ld83cOLhQsAO
68YHdbBZLLB3Jx8e/g5a5blG1cErnzqBPQfwUKycvr4jsw62ShaHD0jiwe0t
2bCorA4kaAr2dph/ho2fLq5O1kHwY8XFQhM8xH1q1UxerwOdaOvgx9fxcJFr
bwzsqocWB6tTO+7iobLqk0KoWj0coculBkTjwe8gI+SYWT08Yft05kYaHo4/
1CS03qqHz4/0c7Z/x8NHhZ4H/G/qIdZAreLXEB5sXou0lOTUQ+/yyXO1S5if
F24L21Rg3xP081q2tsPT7I2K1Jl6CF6jLXTsawfHfZJscpoN0HV8WO+HUTsI
+3pZdlg2gC43l7HvlXbo6fqV5e3aAOdjCjtTbreD9itTvfK4BjDZckRF/nk7
HGV5GKlLboDIDLZwi4Z2GL1aNzLH2giLKmmJd/raIeHnzhNRgo0wJcE5uTTT
Dlz3Mrp6zjeChHnLVu0dHTA72SbokNgI+VrlnoevdkDaOUEXjsJGiOjYZV3o
0QE2KTfKc+saYa+N36nCkA5osVqxpVAaobRY6APb1w549v3slzccTfC6MEvY
pqED1PgiWJSEm+DD32mXI8MdkN9yKP2xThMM9Umb8/J2gqOkK/2QbRN0xQQO
HhfvhAMh37VqvZrgBUX2vyb1TojU0Cdxf2iC6YUH+P2enaCdFHum4FsT/HUu
y2yI7ISNleFw06YmmK850kXK74S7X+/JJtCbIO/GAaEXs52woDbW1cTVDMV/
v4XOcHbBnUZj/3XhZlg+NWRTIN4FziPHGq5pNcPwhkmQw40usOMdtROPa4Zr
2X34u6NdYHLbMLZIqQUKDOrKCxe6AUf/qUI0aIH/dJ4biGHnZ8PAo2N77Fog
lprguqzYA7rxrHIPwlqgeHhfdsGTHtCs+9EA/S3gkZ+523M3tv8dFl9v9W8F
Hwk1vl4TAhTkx3zciGyFD1+57RYfEEBGmUX3eHortG5O3bqOnWckLw7Gvmlp
BcZtZcrZFQIcevxazka4Dd4KGMyzpffBrv5/9tO/2yCtP3bgCPcAUKN7G7ds
wUOrwXhnJf8f+HXnKxAF8NCnJK8qafAHnutGlNTL4CG5s8Nx8ukfEGY5l/HS
Cg96sdL4a7Q/oHX3c8CeQjy8bPxZp9E3DK0S55JisX3hz/PeFotro3CIXcgs
Z7gdbPpPi7LdGofGqnqEV+sEc9yAWzCagqzWv8RXOp2wHJ7m83h8CkIIJ7kN
zTqBepnH9zH7NJwjf7BovNUJqQKtqxEG0/BL0HemMqYT0tptT/cTpqHw7lH+
IlIn+IRcN0ylkCDhQJhTbGwXJFyTsU87OAc+khUvzVK6QKg3gCB/dg4sT9EL
/8vrAj9x3P5Chzng07Nbj0BdAPYNeaE5cxDhrRwdMtsFNhOHjj08MQ+BLaSf
PprdkFa7e2QdyHD7gR6v9Xw3uMaIk2UNFiFv/y7ba4xubD9KLG5xXoT53335
Diw9MGX/w9kodBHcWZ0N3Xf3gNLnyKy1ykXwfhn6MlitB2i3uO757qNAwPua
bQURPXDHb2jR+SUFKuGl9be4HlDjNhFVeUcB1nGz3B/YuUY70+YOM4sCzyTG
dWuKe+BlDrvO2WoKhH9hCesb6oG4iluWiysUeFulzrFVthecNlgjIq8vQa8D
+yUupV4oXLqyVezOEghytGXynu0F8+LIL+l+S5Cof1VL0LIXjlmbFdi9XoLU
Lv9nso97oUFtj6tT5RJ8mixltWrrha18LVsYe6kw/zzAzJbQC5WhYkKPj1BB
Tkon7cZYL1heqN83L0OFQvfes27LvaCp1OkddJYKJSv0wKcHCDCj++5T6G0q
VG07uZnvRgCfIGM7YjEVJC2Ol4b7YfeikX+RHyqoEP1B7q5zMAHIK40BKo1U
sDslPSKK3SsSxLeK7h2kwsZVMZRYS4A+HnX89U0qOGUf8fXDE+AxYdNNjIsG
bUuH5C8NEEBwJaCu6T8aJIceSNlFIcCfDa59JYdpoFIoEBC2vw+Mmu792HWO
Bmlru5WcJPrAtO3Soz49GmzT4l88f6IPPlYkLD4xpUFf/87rm9p90KYYft3F
jga+W7eBj1cfcOy0ri19RINhI84V88d9sFPg9g2/YBpoJ7B/ORHWB2XpD7L2
htNAQJZVhPy+D5JEyElLcTQovrS+4dDUBydPmift/EID4Y/MkrPdfUDieN9Y
VUyD4LkVd5GRPnizHhZjWkYDs0D68AC9D7x2Jfhuq6NBWTM17sdmH/xNcDA5
0UyDw3uWjOO4+0GC98jZ03gaUHLJFaaH+oE1rHGyt48GVvQ5H3npfuBetrrs
9YcGSGNWjvd0P1zZL3t1dowGkV1THxoN+iHUbinx7iwNGAcmL2Vd6ofvky9i
Hi3Q4JrzxI5n9v3QTylJuEmlgey/kSfg24+du0QMW5g0iNUZPn3gKcaKW0t1
/tHg7+uhhbWIfrhg1fophYUOjkMDWX3x/ZDPcnFb11Y61h/6r5Wk9WP54PYV
5KCDgidBIPZzP+yjDoXycdEhqbwH5/kDi1/9MD9pGx1YObpDL9b0w9J4iOo7
Hjq4mHRqyOL64fz0DxEJXjp0JrYzuPv7wcLIeSRyBx3OTOIKSBP9ECh4LrFr
Jx1S5duc6hf64Ygh/S79Pzpw+bcczGD2Q8KcTODSLjp41Db1BrENgNrau9lm
PjoQdjRGXt85AK4PZ3CB/HTQsK7XVt83AIFeTYb8u+mQlV67sU98AAjj08FP
MfYIsRgD+QEYT49LbsZY9RaxxvHMAKSdFJOhY8yh55314vwA8K1fMtzEuF2K
7UWB0QDI3l4WmMc4cXusa9flAZgj1WWWYey4IGq8aj8AOlORfK4Yy7V/O37g
DhZfm4DvPywe5tfz/Od8BqB6mxjZE+PaN13LToED0M35OLIRiz/yvkPfy/AB
uHOK5L0FY6vLtLLC2AF4tipdJoyt98iZ4Pc9HwZgb80Ov32YHvP7+APXcgbg
wOalxjVMv9K/aTdEvg3Aa8GW2t+Yvk+HT2pd+D0Abg9PPHfYTgfDyuqjtxsG
IP+NybF5bjoIpJlxR3YMgHbbQu1lLF9jwePzRYMDcDq2814WJx18dFiL/i4O
wBb/Z15kLP+ax2JiD68NAN5jZHlyCx14eI74arMNwmDGO1rVJg1ScWfVogUH
Ic5bq05snQYuhR0Hvx8ZhDOkmtZPqzRQjLHfMiAzCFv0yr8LMGjQbBlUL3p2
EOaD5N4kUGhAG6o0Kb09CMGpA0YXiTSoqDA5NXRvEAoMu0+ujtIgLHV0z5Yn
g4DX8m8IwepB2JFlUD8Gmx9HdLrYi9XvHNwcLhsEbx7SxZR6GvzXhtfZWjcI
2QsrwR7VNBgsuC4liR+E1CfTikcraODhFbDoOTEIOIsAf63vNEhkVjxg3z4E
t3O1rHTTaOA4aHxVSmAIxKs5jHTf00D+97DGxUND4Ds98EougQa1gRtb3ykM
QT1nr03BKxqQOTUiZWyHwMm9hfbYlwaaAr/TzAuGwNXY9Ms9bRqwvd1zV+vH
EFQdDq5g16RBI7+7qlL1ELz/sZIZeIYGF3eJdO/rHYIdj2uKU6Sx+t0exD7+
bwjspj7fCualwUNWLWcPoz/gz2P941wb1p8XWmVfzf+BL455385qUMHfTXzt
CeMPiBy+1/xbgQoa84/rPViGYc3szdgxaSrUzchdt9g9DGG/6Bud2H7QTYyO
3q82DLxyDL+7lCWgDljQcl8Og0dNQwB7yhLINgz9qJcageZHOs+1aRQQWHAl
RyuOwO8H6/gL0xRg2bN++IrmCPBfC+E5M0iB7htCLxctR0C+Xu0lWw0FHm1Y
2goGjcA/76Mb8jEUaFXEb3EhjAAyv3xmvzwFFDvtMjnOjQLrXx7VV80LkHcz
B7nqjMKQ0btYqa8LcJC52N9uOAp/iptG6uMXgOtQwI6ky6PwS8G0YMNxAYbc
3vvKu41C7oHc8YebZHi2bUDPKmEUSlPJticVydCtab6QuzAKfnhT/d/Zc7CW
MvG+iDYKe/1e5W15PQeHN+8Zla+OQpnIRKml/xy4/47Nb2Udg3h0p1nOaA44
VXpdFgXGgDt87kYRbRZUTllPK8AYUCKObblzYRbsYmbi1C+MwfuFBYdJuVl4
vvRAW1tvDOD9ztM+QrPQ/SUx87L5GCwo0ARHF2bATWbIwf/WGFjGKbqNJ85A
qvj1URQ1Bo6OZxZ5V0lQ/2wxqjF2DE5de++nTCQBeSIAOt6NwV2H9viodhKo
pKV+GE8fg7+HybcWPpGg6+D4VfYfY6ClfjhSzpEEHII3+/VHxyBzevuHqYFp
uMPt2tlzfByqiT8l07HzWdZvgRL90+NQq9QzIt41BSMe1e+Q6jj87LPT6KmZ
AjOCkH2u9jj4XPm6XpY5BcoZjYuPro6DX93rX7muU+B12btryX4cjs28oCfY
TsEn7kOlTti5cICrZrrk4hQc9PR9YuI1DspvRrcFKkwBm4YEr1jYOBxRFH1q
zDIFGksdlIRX47Dw7nF/GW0SfDMed/O+GYemnJnNy9OTMMvdk7Tyfhwy9o/U
iOMnoZ0QLNXybRxkSt+5CXychGTPMR2vkXFgwx+6F2o8Cb1ir6SnieNgztlO
PKg1CTv7lHdenR2HZq2TRvOqk/BUI7pXa3kcTsis8hyVmoRfS6plZWvY+JsX
p2MPT8JyxvR7eZYJ0Dl+vkZZaBKceeCmEM8E7GMhhopum4S0ilndyP8mANcc
QnPZMgmDnnEyWwUmoFTvk8sMkwjGfWTa/KEJkC2//TRijghhL98R7CUmQL2f
kf2VSIQqDa3yXukJCGeljO0YJsLaEuWDwYkJ6DLEe2UQiKCQmfy08vQEFOXp
Ded0EsHdStdJUW0Cbub/lo/AESGbh66Xd3YCQtm2NmU3E2G0IkVWRGcCSo5l
uqzXE2Gfl8GuWMMJeBcj3xNaQwQL8RU6l9kEtH+XbdKrJMKrvrS+x5cnYAu3
NOeF30RgwSrg1o0J6BUxdfhTSgQVambw0K0JqMRFsz76ToR7maa3TN0mQO7F
P7LJNyLkW/3Tr/eagOq6I1NXvhJhiidXTtVvAg6uv/yU/IUIIsiCr/DxBEyn
1G7wFRDByouFIRY8AUjKKrUinwgx4vn978ImQJev0yTlExFa+i7/3hE5ARJt
v9uL84jwdGB6j8ubCRjMXSzfgrHykK97XcIE+BD9+INyibDwh7Ph0IcJ6Cde
TDqJccZIvMij9AmY4XPdK4CxzdhRP0IOpm9vpYE0xv9NlLafLJiAj/E6fz0x
rifqHIv8NgH/VSzPz2D8aIoQNPNjAn5/rRqLweY7Sbo1cKFiAl4OfPxwB4uP
NLNyMrVmAq6nRkz7YPF/mHv+cr1xAoRd/QK/fsb0Je8lXsJNQHbaFVlhbP3c
i9lqRV0TQCyQKSopJEIlRektbz+Wn5WxzsAiIvhQG8jOwxOwddLT3L+YCLL0
y9q1ExNQMNy5klZCBOLy9AeRmQlIMlwPXvtBhMQV3xX/Bex53Fh5YDkRONbj
c04wsXxdq9IQrCLCr79Ht7zamIDi/Oxdx2qJ4LVRak3aSgQ9H/HUWw1EGN7S
x52ygwgSwlWbdzD/xG51dljjJ8LpxharU5i/9NlXyy2FiBAZpfNYopcIJVyC
btvFiJC+845yDObPqJ1W+AdnsHWevDrlt0QE7V2koz0a2P/3TGxLYRDhL59f
4PELmG7mkYKUdSI4CyScmDYmgsZjaU4+zknQPND3xsKRCDdn7iUYi0wC46Dz
/JfbRGj/+9+zOvFJyD+0eoHnLhFqckP8b8pMgqCYIKPqARE67+LjRVQmYUnK
yko+igjh2/pYfS5PQo4MqTA8lgjS2uLFctcn4Zqc37apd0TwvvIvasetSWg+
kVCWnIH57MtRwjlfrF6V+4S5yzDf2Fjx+b6bBCsV5/s3ERGafi6G3kibhB1q
q22VmG7ux+u07n2aBH8QDPDFE+Hcrqn9ORWTYK5tNUbE6vaMIvuetNlJKOM/
gZ+YIYKJ6fXfJ5cn4cjYtt/jC0SgyCYlj25OAvVhecLoKqbDs5uiMXumIPrr
QZOh7VjcR1kN4dwUtApPVnQpTIKSuQ7BOnUKLtA8k6ufTYJRsr2W8Z1pOJ36
8nKq2BS4EfvWjh6bgcKqgAc8UlPwc56mGa08A9IT95J85KdAyri7a0VnBg5J
XB0xVJmCmkuSgdVOM8CTL3OLifVdib10C8WMGRgtbfMxezgFibY1Z7cenIWX
+J1xbJ1T4H80qlN62xxwLG39cZcwBUqXC15a7p2DQL7V/oGhKUj3d0x1Fcfu
25ajB75OT8GcsF6ADXbfthsszLT9NwUPTIdCTvrNwelp0+8lkti+8srdSGds
Dgq5tAmH5abhIitHxyJ5DqSlVJgRp6ZB/Q6r6sO1OTjkdkTdQWMawlL+OCrz
zwMPjVq702IaVDg4glXPz8Poxptu54Bp6Jq6ETiaPA/b59tf+j6bBnvfqZDf
WfOg3M97PvTFNHxKGfjrVzgP0d+ef01/Mw1vlcfNXtTMg6bzw8jhbOw5P68U
K2ke7lj+0CLnTwPH7DetOso8JJxb/rv+dRrsbJzWbjDngSJ811XoF6Z7ePk5
GW4yfOy4oWvRPg1WBXX9pGNkwFWkbN7omYbUoVu6906QYe3TUIknto9KZxf6
diuTwSz0kngUcRrkY7bKCOmQ4cm9N0PvZ6ZB+R69bN2IDHl27W/yF6Yhx9P6
4DcLMrCq6rM2r07DoI6Rzwd7MshJPv/Z9w/7frTau+MWGWz21HpMs5LAROvC
7GE3MoSybpFkcJJAJLHUtcKTDEWL6iNsvCRg0tvNZX3IMDzkH8fPR4LrscGe
7v5k4G4uNTqylwTdJdVvgp6Q4UbGiV9wmATLT74dPhBKhsjX7veMJUiQ8dFA
OvMFGcqefJKylSbBnbPq9zciyDDlShpzPU4CXPJDnGQ0Gfisxd/5K5LAkMpk
F3tDBg3tGyYvVEhwO/DT7OJbMricSuFMABJkhwQbRCSQoYZXyOe7HgkiF+/9
VnxPBsqapWytMQnUOrzunEshgzAphthpTgJ+sZtdBz+SQbcHnzRmRYJ4CY2q
5jQyeFdvN6fYkkB37xKbdgYZUr/ocW/eIEGegqdbdCYZWpNDq3idSYA17Kbc
LDKsvqjxE3YjQdhiJul1NhnEfFmOS3uRYBv32Xe6OWQwcVSfPuNLgvMGPnlt
GD8y9f+g+4gEP5eU5w7lkiFHo9TychB2rlJ9JHUO425p+nanUBLYOZ9SOoEx
i9CJWu+XJIj7bjpKxr6X4XB/GBxNgv9uNNN9Mbai5Z2MeUsCs/zo83hs/mej
0zOpiSQY6oxPomHxFbaJffySQoITu7taiFj8Q2X2VhUZWH4KFNPTsPVx5XzY
2ZZLAu2xIopMOhkU3g7WDxaQgGdWPTgY08fuqeCT2W8kSOdsPpaF6Rdx11KR
+YMEMX7632IxfX9cjZnnrCCB9cOiBeMkMkzq4dMFakjw0Hg5rxvLh9jLo1Gv
G0lQ+i9mZgbLl2NrgP92HAmklMe2V8WQIZ237+bzLhLQY/x6raPIMG583JS1
nwRK6UucxS/JcDg6TO3xMAn4Nog38M+xeDpGj65OkCBTeS7nUzDmP/PXG+QF
Ejz4GPM3E/PfgbczM850zJ9Mx1c198lwtfdszwSTBN9D83d+9CDDoBX1Uz/b
DFx9/W8h8SYZ9iXqx1twz8CLM8r4kuuY/wfTnuJ3zoCXi372a2sy9NmaW9ft
m4GNsstawYZk2Jvy6YLmIayvsT2LfKdFhkujW4+Xi88Ai8xsj5sGlr8bxRxf
j8/AY6f6mxflydBxa09xsvYM0AfdSxZ5yfBfrlvKXsMZsLi+7+AiG+aP2brw
GNMZWHaujc5bnwfcHR/7sKszEOTg894C6x/NnoQd3l4zcF6LNci9Yh62fZNf
W/CdAdA3c9P5Ng+69OeTtx/PQOCTm54D2fPQ4KP863rYDJg3KTXIRs8Dx4/o
7IFXMyDJLZlMDp4HbSYpxvLNDFTh1KOcfOeh9uG72wYfZoBXiH/X5JV52Pp7
yaI+fQaOPL1tmWk4D+c29DTP5s5A+YXx4oPq81AZuCagVDwD/DFTw+oH5uF3
yJXaI80zkO4+H6M4MAd/6799eY+fgX11nI71jXOgxrU9SbBnBgzmk4P5Sueg
LPyX547RGXjmPNrwJ2YOSqIOiKwtY/GfeSKoq4P173cjDzoOz0KLTpZvbvos
3DkmPHDy6Cywvhfzuh85C5I/rVRiZWZh9bSX19YHs5DS17F2SWkWCl/zRDkZ
zULk3tqHQ4azsNf42FMTGna/eZvzeNp3Fl6dzUghn8J0EJ/8o/t4FuTOb1Fg
YnklFh/WyHs6C+Vz7qvNWzBfdCdu3Hk1C4rh24WrMZ8a8r8KoKbNQpDzeUEO
J8y3rz2D/rXNgv62Uwoi4dMwdahg7FrXLHgNPOP47DYNaYWzZyv7ZgEVS55i
N52Gfe0OrMETs3DxDyNzz95p2LbzUjAXcxZkXVJUK7D9lxShEsIvhu17HcU+
znmTkBm29cUx7N539O3DKXnsnMpHDHsiFzAHVw3+LdY4TUAg7PA+9WwOfp2v
bFLQmgAbhuB19cg5iLVQmi7YMgE7HeUUTdPmIMb5aCLfg3F4ANZjfs1zoD+3
Zs9xYwyMGAVnGvfNQ3Fb/K6jmsOw7GAz61Q+DwaH6Fea2rvBh3+dv69yHvbU
P0rLfdwNjOokdb36eajYGhEcJIXx4T/R0h3zwCxUK93/rAtWR64rUaYw3/3O
izqo1AlrV24+e8CH9XHanZe7VPHAYuFxMOI2GQ6Ji/EFztRC4NZduv/cyXBT
VwzHpl0LW7599XT3JgME2VxqSqsBVj5arUkAGS7kRA/vt62Gre33XfdgfaN1
8W6OTR4CDsOHPz5UkkGTXZL7Tt534LkQavZ17wKMnsEfYnF+Cmro7q564QXw
G1ROPKx6D9xVrNsHDi8AiyDr+YzrqtB5XMaYTWYB/hrv5NwdE4gSD3TqXdZc
AD3lzVTRZ++Q5MqBs/+cF0B5JSmTPewzupD3XV6vbAGEvRi9RtwVyEc8ZcEW
LQCus7ujiFaBclLDPnvVLkCcdTmpahAhnvgr0sm4BThDPJY311WJOoO3HF0c
X4DwKwY1vfHVyM7W6OBbnkVIjbugqr5Rhx79N7l97Ooi5Md9rNgLrUhqoEhz
yH4RHulrEEcSW1F/eqA3wWkRDojyBpOWW9FpJeGhNo9FcBQK6inNbUMUW/NP
Zc8WwWQt0F2JC48cPlXpxeYvwkK9a/kmvh3x3Y96HPV1Ecr/hD39vtKOKjVs
v4aXLEJCcUUfm0gHEu5cFQyqXASuyN3P3e90oN5VeZJb9yL0XG9UvcHaiZ5V
/9t/u38Rrk1zt/ZJdKJTES0XHYcXYYI9K3ZSvxNFi9wqtSEtwklaiGjl606k
r/0hVOfvIrBtGoS57etCfzlP235koUAu++yXfJUu1D0vvHJwKwUEc/0Mly53
oacls1L7uCjQPSp7QvF1FxrWC435j48CynmsP75udKHvcm4ykbspMDWxtsAu
1I0i+C3qefZSwGrzrRDlZDdS/XN4jUOYAh6tr38+v9mNEjx+2/8Tp4C5Zd4p
XF03umuZse4vSQGFU7UCQ0PdSFvl5dtVKQrEdau0PaV1o+Wt1k00eQpUmu0X
SxbpQWbx9OOzZygQ3/ktjOteDzr2aLD5lhoFIm5U7JkO7UEs9tWOkxoU+B0/
Ymmf2IO+SEUnjJ6nwI/xc9elKnvQ9gppFoIRBdhfx2cKcvYisuGh4nATCpy7
6vFLW6gX4QZ3O2uYY3r0Cpxile5FUcx/+EwrCvD/fLBH1KgXeYRRg62vUEDu
9fY7L2x7kcneaSXeaxSIWRVafeLWi/gU21O8HSjgbWkaKhTRi2g1teaSThRs
fzK9hxJ7UbfZT84hZwqsRz1wZeT0orceaXfPu1PA1XneTKi2FwnmewPfAwqo
0AV7YbkXMVVu0+oeUsCSsYPuz0JAA0222Q+eUEBKMrRRn4eAkqa1d44FU0Bs
PcMlT4SAHvmo1sSGUsBuu6io6jECusp+3Ff3BQV8ZPG3bpwkoIOiQiNfIrH5
Aq65+pwnoM2vvG8cXmP5OiS4x9GAgEY1WXX2xlJA92v+oVkzAqrEM9aa4yhw
1uX51m02BPTx2lzBk3cUMAvmP1VlR0BPySM3TiZTIEjhlxj/LQK68ahbYOoD
BXq+zxtt3iEgscTfT4wyKLB/W4xwji8BsR8rOrklmwIHDP7k33xEQFOlWVPF
uRRwUbfVR4EEVK+dlOicTwFuwccu358RUHZPlLHwFwps4895qhtGQGGOz1jb
v1LA3UmP68FLAnKm+ZUEF2P502/10IkkIL2nbi5KpRSIYiSdKI4mIKldNw7O
/aTAtXTRShRDQDyplzo//KJAaRjutUssAc3LGYSaIQpkDHMKf39LQK2/satG
NQVk/6h0p8QR0GdDhYWftRSw/dUpLx1PQJGDkmluDRRQLVbJuIyxu8uBS4eb
Kdh99U+WOMYXmbu4e1opcGnfxU+vsO+Ph3FUhOEpYMTuycfyhoB27V33VOuk
gHjc/AGBKAKiZi6KU7op0JY9yWgPJ6BOBWJ/OoECSnsC60+EEtC3mr5Xlwco
cPHnyPczQQQUa9Z2lucPBTjvSi7MPCQg77Gq5YoRCpjsepJw3oeATm/m2UpM
UkDv+cj0ym0C2huZsmtgmgKD/50asXAgoFXh2LpXsxQopx4hX79KQGUqj2WX
FzH/SN9aemZEQOo+F//VrGH1bue2X1qGgBgupId6/7D1xDfnlogSUOH1oDXc
JvZ+adE0634COqL3baWfbQmkIncoj3EREJfwXurijiVgT7SLxY/1our/Cj3u
71oCzf1BXA8Jveghu97iGv8S/FZj/bHQ2osWFvzn2YWWgKi6K+pkKVYfVcNT
+0WXAKRxodovelFkie/Nj+JLUFhwHYwf9yKdT/8RJSSXwOzFUSTu2YvKYs+N
nZBdgtciWgM6Vr0o9VbWoI7SEpi3i5K8xHrRHV739nsGS7BdC/9Z6XsPkmDl
vMg0WgILmgHP56weNMJIaXtisgQFTnk6WxKw/jLa0fzCcglWfFeO6Pv3IOVv
inUp15fgjJZGm696D2Kz/vez5d4SZEYMqwqgbpScEZEumrwEf0pr1Fa/d6Hr
50+pjXxYgt7w2cav6V3oyHh/d+LHJRjCWa7ewvpnjshRDr7sJQh1SvwPf6cL
FSdWObMULUH4umZ3rmgXao1myP5pWIJtDBn+lJhOFCX/vj6heQnSFj0kvwV2
IjPc+esWbUtw0PCRCMG9E/XxvI5u6cTim33x1NygExFDpWk//yyBzPhkE7B3
on+P7H7E0Zagcq2pkfa4A1Xu5zQ1YyyBvbLNxTi3DvSs7PMML3MJSpsVGFds
OxD36tq+kI0l2JN329tSvQMJ3Hv7+N42Krz3Vxo9stmO+nepCchvp4J+SIAA
C6UdJReOF8zuoMIHW/Pt3GPt6MiC/Kj9birknwKO3Jp2JHe7+ZyJCBWSkyNG
FV62oyVOz0GeI1T4oppQ+e5xOyrO2uvdIEYFi8Oemwoe7UiF6JipIUWFhkfS
t/kvtSPt65ucsopUCEs6mvharB1t28hMJSlR4Woc68EWwXbUmmx4JkOFCp9N
5lMu8LYjs4F3Lvs1qeAVKDS4Ssaja5YKbdsMqHDbsa3sbBIe2e03Sv1hRIVB
6eZOkzA8sh+7ee+WCRXOzq7Xk+/jkaNbvFCdJRW23W2+NmCGRzdPFc7fs6LC
fzptUXLn8MiJ2YiOXKHCuTMdpUIn8eh2yNrNQDsqXInK4azgxyMXA/4z8g5U
ILGN/3rIjkd3dslsH75JBUIpKbh/BYfcCBdGIpyp8IRTiI11EYfc39sWqbpS
YfVTbGnPNA55OPiEzLpRIfDtuQGjMRzyPBZl9c6DCtzHyi1cB3HIazFbWvce
FYJb4nbK9+KQ9/fKDcZ9KvSPudHedeCQz8P+jkw/Kvxt7yPlt+GQ71lqhsVD
Kgz/u9vn3IxDfpw8flufUMGlrSUP14BD/m2iBkWBVIjKeKY7UodDD9+oHbQP
pgKQTiYm1eLQI2vLpZ2hVHD65x7GhvETEffaijAqLOt2rO/DOGAyNN7tJRUG
5KlDIxgHfkpxEY6kAttel90W9Tj01POHeks0FRwdOsL9GnEoWKnjP/83VJh6
UClp3IJDz/7NTEjGUeEBwvf24HAotIa1lJCA6f0u/vF/XTj0/MX+8NAkKsS5
FrJvEnAo7KKCreIHKqwlFV1O+4ND4XuMjhNTqSAfdfrq+gQORQze3PomnQpH
8rrXuedw6NXHJ71ns6iATMVFOqk4FHkrPpeSQ4WV2coC03UcipYtfJTyiQq/
B+BNOBsevaY1XjQuoAIzROX74x14FPNz7Mi/Qsz/pnr/pIXw6K0Wf5NNCRVG
/rCl/T6OR3E8MsnbflLhkvM4Pk0djxI6Ltz9UY6Nn6VYr22AR4m2PnsEqqhg
1f2hAOeMR8miUaTaGiqwvJr0LPbDo/cz2eX36qnw7NXW1Ksv8Cj1fr99RwsV
FpgSIyv5ePRRlaoQiMP8LW9bNY/wKG0LD5d8BxW4zrYWZnfhUeYrtYKIXmz8
8BLre//wKMvcMki1nwp82ieo1dvaUY6Qu8XsIBWyn1jsPLGnHeVlpqzpjFGh
wO5UmrpsO8p3/dHGmKCCwN3nLH/OtKPPJzpSM6ew/AX0c05ot6PC36w6W+ep
YO+WMy52ox1977n5poJBhQPbdIIi3rej6C2iJ4BJBdy8P5d1fjtykR3FoXUq
/GOjbnla3o4OhthwV7HQgCIjWjc70I5CFS4G1XDTwLljfPjwwQ5kZ7dd5AIv
DTzwQfpD8h1IJaLpV+1OGuwsubSfcbYDLUycX63bTYM98fud9G51oEtvlO82
HqRByEEHql9JBzqOlrfrHaaBL4F1QLkF619zRXlNojTYJdsidGW0A1Wck51q
lqTBOa6L+xt5OlGC+2ywgTQNhlUa3vEf6UReidmHW2VpcMxxbKZauRNJUA/b
tp2kQR/d28/4VidiOTiyZqSIfW/z3HL70040oJecgFOigZk1x6Gy950o8qNA
N16NBspeHEtnezvRigmPQac2DbS9ZwYYBl2o81EjyUyPBueXN1ytXbpQfk5I
aJcBDXYYx+gfeNGF7FhYqrtNaHB1K1GroaELNX6hKxNsaEAf432VoIedl3cM
Swy506A73li461oPOtNayDoVR4NxmQOKFa0EJJz2sCz5HQ00VojnONYIiMVP
28s8mQa8JbXbvh7tQ42iQ2OVH///O/q+dJlnfejSQ86qpHwaHDfWkvh8th95
SV0LMK2mQeSRmoCruAGUH8bz9xeZBhNZ1Vy/pYZR9LXeb/coNMjJicLOD8Po
nsJHVykaDWpySZ4aycNIZfT0YPwqDb5Kv8pl2zmCmpRulHltpcP9AKf1j+sj
aGrqh5+kEB1yWCvyMlZH0SEtp+U3F+jA72yaeoFjAg0F9vgK69ChcP8L5Rrx
CZTw68Jahh4djofzrFlqTaBdCqKb343p0EcoWf7+bAKxio5y9VnRQXOZ76cp
GxFNstgIC7vRQeI0lD/nmER5v4zOZ7ylw7Zfl7mc+aeRooLi6+IpOpjmiWiX
npxDx+MFjI/P0IF91aM23WwOSa2tcOfP0eEmxfvHM685dKiy7Fk6hQ6tJ3cf
PFI0h7gNNf1i1ujgriSd/fv4PBp1MLjusWMZ7Ha8neeVJqPwN/ayMqeX4ZC9
hGjdf4voGePcbLbyMsh7+YlfkltEAdZi2aKqy3D4p29Qq8Ei8haZPrRfcxnG
z/y7cSt0EV3/dGc3t/4ytGimvNFdW0QKNb7r07bLsJAQce+oOwWNUF81pYcs
w+Lz/sQd55cQcfNRqmXYMvRJlPk2mywh0vY7vpwvsfebSD/cri0hioS+uGv0
MhxvNDl1+8ESYrnCEXQyCXs/tyq94fMSOlLzRLmqcBloMrt2s/FSkUS72857
35bhCH1PuocgFUn9uTolVrIMly7851klSkWnVlRiw8qXYaz/hu5OFSq6IL2y
eLEem+8i2drqJhU5vbmbPTy4DJzCW4uDS6jIJfXak+jhZUjfsotdvJKK3D8b
WZ4bW4ZXfduicpqoyLdBemvW1DLYF59ptRyiorD16WtuS8vgn7hpp8VCQxFc
BEUR+jJwBXUu0LloKHpP/fYOBsa8L4tCdtFQgnxGmcLfZfC5K2Wjf4SGch3s
BP5yMOBpd1TK1XM0VOBxkfx5GwNkbP+Z8unTUNFjjdrr2xlwBwyUckxpqCxe
2KtmFwNqXdiFvO1oqLmlry1cmAH2XXYFYY9oCNfXkKEmwgC9FA03tWAa6pws
ebhwmAGLfitX8C9oaHAz9pjZUQaEfPHViYmjoflTpiFCJxlgmSrSGlZAQ01Z
RIn3Cthz2f+8Or/RUJaQX+MhJQboL5CzN37QkN3mBx5JNQb0JmjabFTTUFfz
/OvT2gxovb+4Gt9DQ4XqgafKdBnwMJihTuvH9Cjk71E3YMD5sReax4dpSDtO
RVDLhAF394vvuTiFrcc+7IO5DQNW3Qb2H1imofju/ZqEqwy4Okq5E7xKQ946
X8ZsrjPAAZ3MbV6nIdOyc8HD9gx4v2BeQt2gITnZXrEbjgxIMuXyX99Cx+5H
t+snnRhgkrVv6gcbHZH4/t26fZsBr2/yVGRw0FFdSPQ2sisD+DXOqnpy0VHa
qugnD3cGHEvt9znITUcBrqWGdA8GSP5depHPQ0dXh/UXfO8x4GZ19qv9vHR0
xnQ4av0+A046CCa57qAjgVrPEwF+DJg0tm9J3klHtNPsXawPGdC5nKL05T86
as9N8A59zADjxqXVtF10lC8sI8AdyIC8096Sfnx09CIKlb56ygCNrxdG5Pjp
yInV3HpXCANscwJPN2B87v7UWuxzBthEaOmc3U1HIqQHyYLhDHjZVij1HuO/
NrwayRGYvkMjzAGM+9tSR0SiGECQpLStYVyiqRCU/poBiaKb6C/Gb741HDka
y4BxNamZUYw9JK7U5sUxgHUy8kY2xkbvFm7KvWPAxQh9LROMpbY/5SxKYoBw
un/eIBYPZ8CeXMUPDKh4p/ZJD2PiUo7+z1QGhI9+tkvE1lPlqDavls6Arum5
iTZsvR8I+FeVmQxYENltTMT0eKjvIH8hhwFyzPM//mB6Wf1mtDfkMWBmIkG1
DNNT8Xi4l8FnBniZHF96gOnNl35gN/4LAw5+OUoV3k5Hi3u+fjcrYoCmR/Ll
dCxfrWEXLvcWY+Ox5avwbqOj3HXCqnUpA1QH7xXbcNJRqLtr4p+fDPh1c9fw
S3Y6AouYP8QKBty+dD7zHeYX4QbxAOcqBqi/57vvs0lDq2d+HpqvwfSzkrVW
+ofVn8ioA62RAdmLZdU3MT9KzMnObuliwArRfcCXTEPbufCZ5T0M2IzvuHB6
loZoYh729/sYMPaR0daN+bvyWlEf6Q+Wb+ngX0UjNGTTeboBT2KA/4nQ8GU8
DWkuEp6+mMPq7fugy48WGjq6/YHG+QUGmN6bvX21gYboWuXfS2jY/LzyF3Qr
aCjyJ2S838D0ISjMFOVh9dE7ev3ylhWoPK8ATzNp6AotaP8uthUobZ34diqV
hiRla2OebVuB/VnGD9Tf0lB1qm6Q6+4VIEafoi8+pqGc3zNq4ntX4PvfN6jL
l4aiBsJXh4VWQNA5KTfRk4au7m67ayayAtu/JFp3OtLQ8nPTa2ekVoCwVzV3
Xo+GhjKoQjSZFXBN/DYzj/Wv6qo3PfnyK/Bos0m3QxWLd73H8JDi/+c/fAEn
g8Vz10aVU3MFFChtDY082PiXHAR7LFdg9Yn94dlaKjp3j6070moFRi3z3VLL
qehYdGaU7pUVqGhjWkARFTGapjl+2a3ATVZLOeUUKopWv7Oc5roCrLJ7Uw/6
UVGt2P1Oj6AVMF0WObRVgoqCs8us/gavQMiJSi1hYWx8KZaR56Er8KaeXUec
j4qq5F/OfXi5AhJWC4OcG0uoQuUjW9vbFXiVftJAoGcJlZq0nT6Wh+kh5y0S
HbiE8h6JJ411roBAjvqHEhwFRXX3OJiJrULB8zW/258WUMSTV2IdEqsgkxol
T36zgMIltSYvHlsFeyHHtx6PFlDIo2InI7lVUI55aeZntIAeir25rau8CqE2
e9sSFsnolrfJXQ3DVaDKKr99rkBGsLvFX8p7FcaOGLO61s4htYqnqrk+q9DW
s7mE+zyHVJxV/h59sAofuekFZ+PnkOKv3MfiT1bB4Jqjt6XLHJJ2DAs8FLYK
r1yyb53fNYf2FmuFCiSvgthma1XajVm0aF75mrV2FZyvaPX8FphBjOyQO6X1
q6Deq9KjvGUGbazr69xpWoU6CfJuwhwJbc/o+duDW4VULcFI/2oSkqTP3srt
X4VVgz7W394kZBe7R8NkcRWK1s+sOo9Oo1ukAUF26irkhd7dFYWbRu5qqbSf
9FWoZa04++fXNHpElMoVXVuFxRLlOeq7aZSgoLl7hY0JGy65/tyXplF7t8vs
+31M0B9LNBftnUIEyeN1ZgeYcAjF6c3UT6HhR8spnIeYYHF8xXGwdArNiwVa
eoozwf67306txCnEdf9t5YXjTNiS9dRQ0X4K7WyySWKeZEKef3aog/kUEjhw
yKdAkQm4b5fISGsKidXlSQuqMkFAbfo8m/QUOrunMm5OiwnhLD1y1SuTSPd2
iGeqLhPoFqZTznOTyOS3vqGlAROow487YGQSXbvZswWZMOHiI3/tgIZJ5P99
9k7MFSZYKXPUGiROoiLLPefPeDKhPza8x1xvEsXsDCChe0xI9wqilmpOIq8m
0ittHyb86q6K1lOeRCfUf/WZP2TCt2xxMcbRSVQo5uDuHsKEB3uyXf23TaLo
4Vb+5edMiE7ba2XCOok8Ek7/fBjOhI+lw66W60Qkv52b7UUUE16u+wyRyUS0
o/5e7s4YJhi7tqQFTRPRQsAf47hYJgwTHzlojRER7owOXTieCcVcRuZnBomo
gFb4Lv0dE9S2HfR37CGiyM/7QCqZCZx85R+9OojI/dYzYuEHJnTwcsh9bSMi
2cHL8hXpTLhEPv2pop6Itr+t6r6QxYRXVjeVXtUQ0byxtH9LDhN+1HVee1lJ
RPnVG7V9n5kwUbz+fU85EUU8cna5XsiEaxWbgR9/ENGd0507p4qYUNfXdeBq
CREZUlS/3/nOhF4dYRutYiKSzsu0oZVi67n4eKttERFxO+5k8S9jwvzJpOm0
QiKaPfAgk+U3E1xP7+sW+EJEzYRx/ecIy+f7D3E/PhNR3mtDCm81tp781r/P
84ko3KDkbWwtE1IzdbuffSIiF/ZDqvsbmMCHK5ktyCMiffRi9GMTE/bfLufl
wPjYA1qIZCuWj7I17vBcIuI6ZSv9BceEWXahQhWMSfP17YodTJCKKmvei3Fj
1nGfX11MYL4LljyMcY5d4v7zvUzgdxGMv4Rx2D62qqY+Jpw+f4BYirFzt5uT
ySDm99un/1zA5tONJPAQ/jAhSoTL5B/GR3XPfrUdZYJm3mnuMSxeDtZPl4jj
TFgydOpfxNYzVb77r8skVg8Gqi+PFRBR/f0nH5emmWA4Y01+hemRJU/S9ptl
goeLU5vwVyIKnTGd35jH/MLHzuzB9HRKL38dssgEG/EB9Z+Y3tq24krbqUxI
nnpxux7Lh/jeqKEYOhN2JP7Q+4fli61jNUhohQluwdz5tlg+ieE3jqYymeA3
JXpt+jcRZWwoen3eYEKYpAbpPuaHZz9S9ipsWQOuqOdX/DG/OHpt+122dQ2k
nhyzzG4iIrGpIc5GrjUwZOfi82/Hxk/V/mzMswaNYq88RLqx8a0LzXp412Bo
cP3lPIGI0tuC34/zrUG9yNHj/0YwP51Yv5qyZw1aMi44vCcSkc9bL+Grgmtw
rVrjousMpqetfVLPgTVI/expGkXD6mFe412j5Brwx3j8pWD1RTApsQqRXoMx
yV30lZ2TqLJYVvCc3BooiI+mSwlMojePhOPLT63BvEKRNJ/oJFLevhZboLEG
m/9q+8c1JtFhD08L17Nr4LTDN1pTexJxd5P4JS+sgbFp7kaD0ST6k0SI+ai3
BsKWSlvMbSfRU+nv0bEWa7A7LT7Z7MkkuhMlY2J6eQ1m3sxsXwmdRJa09J07
bNZAMYRXoSZqEkmWx0Q+v74Gvwy9szo+TqI2fY8If5c1uL5k1FfSNIlKCqYN
lNzWoHYPvnm8exKl8l3nod9dg8H73RGnRrF+M2AU7nZ/DW5tJG0/i/U3QRfp
MLvANUiudyesSUyhGy+mgrXj1kBjJPuRXcQUWmm4+pCveg1o0a/+13CZx1OZ
hXEcSdMm0RRC3BQZ20RNSZ5UKksRlaGUZYSixKAS08hSkijJlrWE1C3LWFLH
Tsm+JlmicO99JUu473nvO++f38/nnPOc3/k95zzPkXl2bhQpWB3wqazmQ7Lh
HVXq8ig60K910auOD8F7JTvOhI2i2BkRp7YPfFi6/gb72ONRpKuUbXKvmw/v
Lw0Cr38UeV2dlZEk+CC0MmLx0RNjiKceWbxamgRpdoncsPE4WlPsl1chS8Li
z1fdt9iMo137HHIvyZMgFXG52cN1HIXb6Ka2skiotxIKnAgdR1tCe8OiNUiw
7VAyQlXj6OzAZuvV+0jg+P4bukqfgwaj0azEBRJEZd8ujtjIRYNBh0vveZKg
dXvKLESbi4a8PwWu8SbhcWF8r/tuLvpyfG6J9GUSIj68Ghe15qJhGS3ZDUEk
SCool5re4qJvackGGrEkbNbg6DeMM3xPfRE7jhnfGF/sOcvwjdI67UQSlK8H
YSzEQ6POXRa6qSRo5nlSdet4aGyLuNOuHBJ0nT/Vyu7nIe6rgDDjtyToj1RG
mTzkIV76crOGchI+7bWyU05j+H68xOEqEuJXDHt/zmHYpzDeop6EYj+vFO4b
HprYSTyzbiNBp/58+7kvDKv5e37sIOFmomT771yG1y/ddrKbBD+xJLuOaR76
Tim/Pd1Hwl8763VyRAk0WXGqxfkbCeJaaXW3lRnO48SMjjHxe/2EWeoE+pFx
2caNS8JbkzVLonQINBUS88V9koTpFRKxPwwZ9mU9nZhi1lPL0ho5xLDLy/Oe
s4z+dL/CXHMCTRt/mPHmk9C4XTPzzSkCzejZlsxiEjoUjigtdmL4t7EAP5oE
p7m12YpuDMv57l0QxnB9k5OqzAWGV4ou8RfF0K42aJvuxbAgugGLYfhI/5Ev
8CXQ7PcNUYFLMXTYpwpr+hPoZ+sumSBxDLlFVypEbxBIyKN7budqDD/jWVHz
oQRa9ot31w8pDKbdPiH/hRNoTYZ4YfZaDGrc0L8MIgmkYJBz30EGw6qjbpN3
owmk+tHIS0YOg1+wNi8nhkBb/x6yaFXAMCQ0KXv3IYH0VwVo3VLCUG/4GvQT
mJYiR1rcUBlDduUT+bwkAh0xKuDNb8YgQlf6TSYT6M9B84aXWzAc9dq8ei6V
QI7+3GxXdQxSccO5NekEcl8bdlNRC0M1d6X4qccE8n3Fcun5HcOXseK5kicE
um721ihKFwNn2bz6QCaBwkdtlA/9gcGmsd+z4SmBYoJmRYT0GP3ProcGZhEo
WT56qEgfg73SD+15hrOK1csvAobp7H06O7IJlGdVn6yyl9FTftvCgOGyCaeA
gf0Ysob6TJcxXHuLPvnwIIaaMJOxRGZ+i3KinrkJhkLNsbEpJl4v2i6z5DCG
2aPvJFYxPGLbNvfWnNHrIbxxktnvxKxHl68lBlsy48sDRs981NJCzeMYrlyu
lhTKIJCI+pP736wx9J/x9dVMI9CKuj1eybYYRDUaWxRTCLTWsc/ihB0Gt5N9
I13MeSpSflri9hjCzxb5WDDnrRYnJV7riOHru0sH7jB+6OiweQHOGOaFNsje
YfzSbzJp2OaKwSCsLd+c8fOA27ds4hwG3Z6Uro47BLJNkXex88SgUt9ZtYnJ
j7/0Sox+9cagcNp5zY9/CXSh85hyow+G17mn+AEBBApaHjGk78/kn0PLvU/e
BIrIVCmfCcBwHHk3PGPyNdawKjn3OobzVR+e6DP5nOPHPykXyvjznDBNsSNQ
27BrFxmFYfLWigKHfQTqCxQtzL+Pgfco0EJbn0DfZFLvn4/F4K679+kb5j/A
N++2+JSIYaxreZTUJgIplRk1lGZiiPR+//iJCKPfeijbKxuDtTzHzWmBh3Sn
rt1Uy8Vwa9OccP93HjqkWmCU8AqDKqgU/dLHQ54xrPIrZRiwtHCExisesnzg
6LYIMevXh41GZvLQtth0yTsVGIrHaiQKEnmI/5DlnFqL4bP7ejHjEB76HOco
rvYOw13TFReLr/BQeXx6UX4Dhu+RLgMcDx4KSWQtq2th7lONucwnSx5yTXLM
t2jHkGPYNRvLvHcmj9JP9XZiYKoFa+12HpJIYbGJXgxOp/eYnpHmoYR01rE1
XzGki8bwWb1cdC3DkXo0iiH6tygf+h0XnXmcnqnCwaD+cp1QWgkXKWeyFvS+
Y3D9GbFRN46L2NmsZIcFDFu9PCpTLbmo+iVr7MVKCpaKTFhWl3FQ5ivH6B0S
FJzcmUQvz+agW3npepWSFCzYfdOTe8BBRwpYdzrXUcC6L7n7oTsHfSxibcVK
FFhnqURS0hw08ZZ1zXg7BWY26ifKXMbRukaWxMhpCuae9a8JZ+rbjtmOaXsH
CjKujnt0VI+iP+XDuj87UcCOurFtMmcUJXhwk7tdKRCHncNJvkw9FS/QaPCi
oPbk39dalo+izeZGpnmhFBw19qtu0viGtrW6hF5/QcFVXtbukIMj6MSCzDnq
JQVbv37U3KHC9DdKHw5fzadgl92J0hqxEVR8SfvXv4spCCg2i/CqGUb6kgsZ
LpUUXE/gRikaDqP9VuEVR7ooOEd3Vu7c+gVZdeZiOQEFE3ULk/7UAAp86s5v
FhJA5oubLvvYAyjrivp80CIBSIsdUuy2H0BYPnd67BcBmLw/aOha1Y8yzz7j
FEgJoIn+mGIV+hnx57J7zLYIIH7odZWD6CeULvu04NoxAXDDl5tMj3eiqTNp
7n05AnAyD5ZaBHVo9uHibQ7PBWAa+TWTk1mL5pvdqK9sAcjtUekXWlWLaNga
+b1AADHazdsqBqrRCsUqtggSgEHBwcvvblSiTYMjU6rtAmi7KB9wkf0a/Wmv
esWHFIC6kGHP+pl0dDIuwpBPCaC8RXd/WGkqOt0yufQfIRpSJ5QGbRY/Qs57
ShJuLqYhTkOBvKMdg7wUTcoSV9Fg/74mxTbeGUUMnqcrNtJQeEHz3bubKYDs
2SHiZjS4Hg4Odt5UDKXN7qb9R2i40JTqVLKrBP4zUFv94igN0mlCbTYWpZAr
9yTpsDUN83fZSuf+LoOEnoT8CEca/uO7XI61Kgcfi9ChZVdoaB5h/aFlUw2e
aN/TXn8anCpIDc/OanDXFPbICaShY7r8Z45FDTiuuDZvHExDqWjGoMj+WrCo
v7Tq1l0alMPqD07I18Nve+x2L8mkYfDGi+n9SQ2wmS27qDuL0dd4LbZT7AOw
FHrqM5/RsEM26IGO5weQxpbHDryi4c3Z6nAzaASx4kPnQ8poUAlQC37c1AQi
KmK/H2dcIG/n61lqNQP1oOqnciWjZzpOsiiyGWa8DYKq62hIfhMS3KjcAkNa
uvGL2mmIXmashLpboC/5x+n2ThrCjwglNoi0Qs9KtnJGDw3+5+bDVDVaoYm7
5eXefhrS/plRb/qnFcqebqj7d5wGyle+LE2uDYrXfo44yqOhurVvbNneNsgP
SbBU+k7Dc/bF8yVn2yDH6df+8hkaik1shgeft8GTtraMqDnG37xjq61b2iDV
MMrNnk+DzbS72MqpNkh6eVhLm6LB2nHmtLBUOzzcsHyWpmngHNtdtFWnHf4H
DAT8/g==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-1.2551238536709435`, 1.2551262838384827`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.36276405598538*^9, {3.3994478432179823`*^9, 3.3994478652496624`*^9}, {
   3.66308018227551*^9, 3.6630801900258694`*^9}, {3.663080994987402*^9, 
   3.663080997003126*^9}, {3.663081052457458*^9, 3.663081058442116*^9}, 
   3.663081120866932*^9, 3.6630859219645977`*^9, 3.663086065674489*^9, 
   3.664101717237965*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Simply Plot the data set", "Section",
 CellChangeTimes->{{3.663080093240494*^9, 3.6630800996470456`*^9}, {
  3.663085767567653*^9, 3.6630857903499765`*^9}}],

Cell[TextData[{
 "Use ",
 StyleBox[ButtonBox["ListPlot",
  BaseStyle->"MainBookLink"],
  FontFamily->"Courier"],
 " to plot the list ",
 StyleBox["data",
  FontFamily->"Courier"],
 " that has the structure ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FormBox[
        SubscriptBox["x", "1"],
        TraditionalForm], ",", 
       FormBox[
        SubscriptBox["y", "1"],
        TraditionalForm]}], "}"}], ",", "..."}], "}"}], TraditionalForm]]],
 ". "
}], "Text"],

Cell["Observe:", "Th-Env",
 CellChangeTimes->{{3.66308669662708*^9, 3.663086809009926*^9}}],

Cell[CellGroupData[{

Cell["\<\
The distance of the consecutive points is proportional with the grwoth rate! \
\>", "Item",
 CellChangeTimes->{{3.66308669662708*^9, 3.663086867122034*^9}, 
   3.6641016496578703`*^9}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   FractionBox["\[CapitalDelta]s", "\[CapitalDelta]t"], TraditionalForm]]],
 " (estimate the derivative!) can be seen from the consequtive points!!!"
}], "Item",
 CellChangeTimes->{{3.66308669662708*^9, 3.66308683083908*^9}, {
  3.6641016563078794`*^9, 3.664101657117881*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "data", "]"}]], "Input",
 PageWidth->Infinity,
 InitializationCell->True,
 CellChangeTimes->{
  3.3627640552343*^9, {3.399447838150696*^9, 3.3994478386213727`*^9}, {
   3.663080188728959*^9, 3.663080189150849*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{426.66666666666686`, Automatic},
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.36276405598538*^9, {3.3994478432179823`*^9, 3.3994478652496624`*^9}, {
   3.66308018227551*^9, 3.6630801900258694`*^9}, {3.663080994987402*^9, 
   3.663080997003126*^9}, {3.663081052457458*^9, 3.663081058442116*^9}, 
   3.663081120866932*^9, 3.6630859219645977`*^9, 3.664101739917997*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"data", ",", " ", 
   StyleBox[
    RowBox[{"Joined", "->", "True"}],
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[",",
    FontColor->RGBColor[0, 0, 1]], 
   StyleBox[
    RowBox[{"ColorFunction", "->", "Hue"}],
    FontColor->RGBColor[0, 0, 1]]}], "]"}]], "Input",
 PageWidth->Infinity,
 InitializationCell->True,
 CellChangeTimes->{
  3.3627640552343*^9, {3.399447838150696*^9, 3.3994478386213727`*^9}, {
   3.399448081380443*^9, 3.3994480963619857`*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
    "], {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
       19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
        37, 38, 39, 40, 41},
       VertexColors->Automatic]}},
    VertexColors->{
      Hue[0.6198986600894787], 
      Hue[0.6473020981049116], 
      Hue[0.6235024119014473], 
      Hue[0.5966616864359637], 
      Hue[0.6150168871446003], 
      Hue[0.6978226964103863], 
      Hue[0.8233335120505785], 
      Hue[0.9408827835416813], 
      Hue[1.], 
      Hue[0.9795228510156436], 
      Hue[0.8996622002982624], 
      Hue[0.8099605398067411], 
      Hue[0.7602026798210426], 
      Hue[0.7713204723327789], 
      Hue[0.8233335120505787], 
      Hue[0.8673850076192887], 
      Hue[0.8548142073235578], 
      Hue[0.766223997644866], 
      Hue[0.6235024119014474], 
      Hue[0.4777397868960092], 
      Hue[0.3801013399105213], 
      Hue[0.35269790189508854`], 
      Hue[0.3764975880985523], 
      Hue[0.4033383135640363], 
      Hue[0.38498311285539955`], 
      Hue[0.3021773035896137], 
      Hue[0.17666648794942147`], 
      Hue[0.05911721645831891], 
      Hue[0.], 
      Hue[0.020477148984356652`], 
      Hue[0.10033779970173728`], 
      Hue[0.19003946019325874`], 
      Hue[0.23979732017895738`], 
      Hue[0.22867952766722116`], 
      Hue[0.17666648794942164`], 
      Hue[0.13261499238071128`], 
      Hue[0.1451857926764421], 
      Hue[0.23377600235513368`], 
      Hue[0.37649758809855227`], 
      Hue[0.5222602131039911], 
      Hue[0.6198986600894786]}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 2.}, {-1.2510565162951535`, 1.2510565162951535`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.399448093137349*^9, 3.399448097173152*^9}, 
   3.6630801984325204`*^9, 3.663081002800274*^9, 3.663081123945203*^9, 
   3.6630859260585365`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Advanced visualization of the data set", "Section",
 CellChangeTimes->{{3.663086089129406*^9, 3.6630861710082664`*^9}}],

Cell[CellGroupData[{

Cell["coloring the points", "Item",
 CellChangeTimes->{{3.663086183508852*^9, 3.663086205463021*^9}}],

Cell["animate the signal", "Item",
 CellChangeTimes->{{3.663086183508852*^9, 3.6630862288703732`*^9}}],

Cell["....", "Item",
 CellChangeTimes->{{3.663086183508852*^9, 3.6630862413084593`*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"t0", "=", 
    RowBox[{"Min", "[", 
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t1", "=", 
   RowBox[{"Max", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s0", "=", 
   RowBox[{"Min", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
  RowBox[{"s1", "=", 
   RowBox[{"Max", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6630864212529173`*^9, 3.6630865263846865`*^9}}],

Cell[CellGroupData[{

Cell["Coloring by the value", "Subsection",
 CellChangeTimes->{{3.6630862515589333`*^9, 3.663086262557927*^9}, {
  3.663086335201992*^9, 3.6630863396553316`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"color", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t_Real", ",", "s_Real"}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Hue", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"s", "-", "s0"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"s1", "-", "s0"}], ")"}]}], "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{"t", ",", "s"}], "}"}], "]"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"data", "/.", "color"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6630863061693716`*^9, 3.6630864148620005`*^9}, {
   3.6630865394009247`*^9, 3.663086649062338*^9}, 3.6630869332501545`*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6198986600894787], PointSize[0.02], PointBox[{0., 0.3}]}, 
   {Hue[0.6473020981049115], PointSize[0.02], 
    PointBox[{0.05, 0.3685664993961951}]}, 
   {Hue[0.6235024119014473], PointSize[0.02], 
    PointBox[{0.1, 0.3090169943749474}]}, 
   {Hue[0.5966616864359636], PointSize[0.02], 
    PointBox[{0.15000000000000002`, 0.24185846538358247`}]}, 
   {Hue[0.6150168871446003], PointSize[0.02], 
    PointBox[{0.2, 0.28778525229247315`}]}, 
   {Hue[0.6978226964103862], PointSize[0.02], 
    PointBox[{0.25, 0.4949747468305833}]}, 
   {Hue[0.8233335120505785], PointSize[0.02], 
    PointBox[{0.30000000000000004`, 0.8090169943749477}]}, 
   {Hue[0.9408827835416813], PointSize[0.02], 
    PointBox[{0.35000000000000003`, 1.103138558544332}]}, 
   {Hue[1.], PointSize[0.02], PointBox[{0.4, 1.2510565162951535`}]}, 
   {Hue[0.9795228510156436], PointSize[0.02], 
    PointBox[{0.45, 1.199820374951102}]}, 
   {Hue[0.8996622002982624], PointSize[0.02], PointBox[{0.5, 1.}]}, 
   {Hue[0.8099605398067411], PointSize[0.02], 
    PointBox[{0.55, 0.7755563062391737}]}, 
   {Hue[0.7602026798210426], PointSize[0.02], 
    PointBox[{0.6000000000000001, 0.6510565162951536}]}, 
   {Hue[0.7713204723327788], PointSize[0.02], 
    PointBox[{0.65, 0.6788744898324037}]}, 
   {Hue[0.8233335120505786], PointSize[0.02], 
    PointBox[{0.7000000000000001, 0.8090169943749479}]}, 
   {Hue[0.8673850076192888], PointSize[0.02], 
    PointBox[{0.75, 0.9192388155425115}]}, 
   {Hue[0.8548142073235578], PointSize[0.02], 
    PointBox[{0.8, 0.8877852522924732}]}, 
   {Hue[0.766223997644866], PointSize[0.02], 
    PointBox[{0.8500000000000001, 0.6661225340955106}]}, 
   {Hue[0.6235024119014473], PointSize[0.02], 
    PointBox[{0.9, 0.3090169943749477}]}, 
   {Hue[0.4777397868960092], PointSize[0.02], 
    PointBox[{0.9500000000000001, -0.05569756931573294}]}, 
   {Hue[0.38010133991052136`], PointSize[0.02], 
    PointBox[{1., -0.2999999999999999}]}, 
   {Hue[0.35269790189508854`], PointSize[0.02], 
    PointBox[{1.05, -0.3685664993961949}]}, 
   {Hue[0.3764975880985523], PointSize[0.02], 
    PointBox[{1.1, -0.30901699437494845`}]}, 
   {Hue[0.40333831356403627`], PointSize[0.02], 
    PointBox[{1.1500000000000001`, -0.2418584653835824}]}, 
   {Hue[0.38498311285539955`], PointSize[0.02], 
    PointBox[{1.2000000000000002`, -0.28778525229247337`}]}, 
   {Hue[0.30217730358961375`], PointSize[0.02], 
    PointBox[{1.25, -0.49497474683058323`}]}, 
   {Hue[0.17666648794942144`], PointSize[0.02], 
    PointBox[{1.3, -0.8090169943749477}]}, 
   {Hue[0.05911721645831887], PointSize[0.02], 
    PointBox[{1.35, -1.1031385585443316`}]}, 
   {Hue[0.], PointSize[0.02], 
    PointBox[{1.4000000000000001`, -1.2510565162951535`}]}, 
   {Hue[0.020477148984356625`], PointSize[0.02], 
    PointBox[{1.4500000000000002`, -1.1998203749511014`}]}, 
   {Hue[0.10033779970173724`], PointSize[0.02], 
    PointBox[{1.5, -1.0000000000000009`}]}, 
   {Hue[0.19003946019325874`], PointSize[0.02], 
    PointBox[{1.55, -0.7755563062391739}]}, 
   {Hue[0.23979732017895738`], PointSize[0.02], 
    PointBox[{1.6, -0.6510565162951536}]}, 
   {Hue[0.22867952766722116`], PointSize[0.02], 
    PointBox[{1.6500000000000001`, -0.6788744898324037}]}, 
   {Hue[0.1766664879494216], PointSize[0.02], 
    PointBox[{1.7000000000000002`, -0.8090169943749472}]}, 
   {Hue[0.13261499238071128`], PointSize[0.02], 
    PointBox[{1.75, -0.9192388155425115}]}, 
   {Hue[0.14518579267644208`], PointSize[0.02], 
    PointBox[{1.8, -0.8877852522924734}]}, 
   {Hue[0.23377600235513366`], PointSize[0.02], 
    PointBox[{1.85, -0.6661225340955113}]}, 
   {Hue[0.37649758809855227`], PointSize[0.02], 
    PointBox[{1.9000000000000001`, -0.30901699437494856`}]}, 
   {Hue[0.5222602131039911], PointSize[0.02], 
    PointBox[{1.9500000000000002`, 0.05569756931573358}]}, 
   {Hue[0.6198986600894786], PointSize[0.02], 
    PointBox[{2., 0.29999999999999977`}]}},
  Axes->True]], "Output",
 CellChangeTimes->{{3.663086566339672*^9, 3.6630865944972506`*^9}, {
   3.663086629123893*^9, 3.66308664954673*^9}, 3.6641017447180033`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Animation!", "Subsection",
 CellChangeTimes->{{3.6630862515589333`*^9, 3.663086262557927*^9}, {
  3.663086335201992*^9, 3.6630863396553316`*^9}, {3.6630869050457*^9, 
  3.6630869076395698`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"dt", ",", "t0", ",", "t1", ",", "s0", ",", "s1", ",", "s"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"dt", "=", 
        RowBox[{
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"t0", "=", 
        RowBox[{"Min", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"t1", "=", 
        RowBox[{"Max", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"s0", "=", 
        RowBox[{"Min", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
       RowBox[{"s1", "=", 
        RowBox[{"Max", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
       RowBox[{"color", "=", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"t_Real", ",", "s_Real"}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
           RowBox[{"Hue", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s", "-", "s0"}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"s1", "-", "s0"}], ")"}]}], "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"t", ",", "s"}], "}"}], "]"}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{"data", ",", "k"}], "]"}], "/.", "color"}], ",", 
         RowBox[{"Axes", "\[Rule]", "True"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"t0", ",", "t1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"s0", ",", "s1"}], "}"}]}], "}"}]}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "\"\<signal\>\""}], "}"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", 
          RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", 
      RowBox[{"Length", "[", "data", "]"}], ",", "1"}], "}"}], ",", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6630863061693716`*^9, 3.6630864148620005`*^9}, {
  3.6630865394009247`*^9, 3.663086649062338*^9}, {3.663086911624118*^9, 
  3.663087143447714*^9}, {3.6641017497780104`*^9, 3.6641018336981277`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 1, 41, 1}}, Typeset`size$$ = {
    450., {132., 142.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$9449$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$9449$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`dt, $CellContext`t0, $CellContext`t1, \
$CellContext`s0, $CellContext`s1, $CellContext`s}, $CellContext`dt = 
         Part[$CellContext`data, 2, 1] - 
          Part[$CellContext`data, 1, 1]; $CellContext`t0 = Min[
           Part[$CellContext`data, All, 1]]; $CellContext`t1 = Max[
           Part[$CellContext`data, All, 1]]; $CellContext`s0 = Min[
           Part[$CellContext`data, All, 2]]; $CellContext`s1 = Max[
           Part[$CellContext`data, All, 2]]; $CellContext`color = {
            Pattern[$CellContext`t, 
             Blank[Real]], 
            Pattern[$CellContext`s, 
             Blank[Real]]} -> {
            PointSize[0.02], 
            
            Hue[($CellContext`s - $CellContext`s0)/($CellContext`s1 - \
$CellContext`s0)], 
            Point[{$CellContext`t, $CellContext`s}]}; Graphics[
          ReplaceAll[
           Take[$CellContext`data, $CellContext`k$$], $CellContext`color], 
          Axes -> True, 
          PlotRange -> {{$CellContext`t0, $CellContext`t1}, {$CellContext`s0, \
$CellContext`s1}}, AxesLabel -> {$CellContext`t, "signal"}, AspectRatio -> 
          1/GoldenRatio]], "Specifications" :> {{$CellContext`k$$, 1, 41, 1}},
       "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{515., {193., 204.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`dt = 0.05, $CellContext`t0 = 
       0., $CellContext`t1 = 
       2., $CellContext`s0 = -1.2510565162951535`, $CellContext`s1 = 
       1.2510565162951535`, $CellContext`data = CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
        "], $CellContext`color = {
          Pattern[$CellContext`t$, 
           Blank[Real]], 
          Pattern[$CellContext`s$, 
           Blank[Real]]} -> {
          PointSize[0.02], 
          Hue[0.3996622002982624 (1.2510565162951535` + $CellContext`s$)], 
          Point[{$CellContext`t$, $CellContext`s$}]}, 
       Attributes[$CellContext`t$] = {Temporary}, 
       Attributes[$CellContext`s$] = {Temporary}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6630870912733593`*^9, 3.6630870986330805`*^9}, 
   3.6630871441508493`*^9, 3.6641017585180225`*^9, {3.664101805728089*^9, 
   3.6641018348981295`*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Estimate the derivative with finite difference", "MainSection",
 CellChangeTimes->{{3.6630872149033437`*^9, 3.663087240748328*^9}, {
  3.6630874848537602`*^9, 3.6630874916353292`*^9}, {3.663088025913289*^9, 
  3.663088028804049*^9}}],

Cell[CellGroupData[{

Cell["Finite differences", "Section",
 CellChangeTimes->{{3.6641024004189215`*^9, 3.6641024248489556`*^9}}],

Cell[CellGroupData[{

Cell["Forward difference", "Subsection",
 CellChangeTimes->{{3.6630872436703334`*^9, 3.6630872624524755`*^9}}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "'"}], 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"f", "(", 
         RowBox[{"x", "+", "h"}], ")"}], "-", 
        RowBox[{"f", "(", "x", ")"}]}], "h"], "+", " ", 
      RowBox[{"O", "(", "h", ")"}]}]}]}], TraditionalForm]]],
 ";"
}], "Text",
 CellChangeTimes->{{3.414088374206453*^9, 3.4140883756385117`*^9}, {
   3.663087565919611*^9, 3.6630875681540947`*^9}, {3.663087619390879*^9, 
   3.6630876222660193`*^9}, {3.6630876623147836`*^9, 
   3.6630876751278815`*^9}, {3.6641019023782244`*^9, 3.664101916448244*^9}, {
   3.6641021464985657`*^9, 3.664102168568597*^9}, 3.6641022477287073`*^9}],

Cell[TextData[{
 "\tLet ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], ":=", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "i"], ")"}]}], TraditionalForm]]],
 ":  then ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], 
     RowBox[{"(", 
      SubscriptBox["x", "i"], ")"}]}], "\[TildeTilde]"}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["y", 
      RowBox[{"i", "+", "1"}]], "-", 
     SubscriptBox["y", "i"]}], 
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"i", "+", "1"}]], "-", 
     SubscriptBox["x", "i"]}]], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.414088374206453*^9, 3.4140883756385117`*^9}, {
  3.663087565919611*^9, 3.6630875681540947`*^9}, {3.663087619390879*^9, 
  3.6630876222660193`*^9}, {3.6630876623147836`*^9, 3.6630876751278815`*^9}, {
  3.6641019023782244`*^9, 3.664101916448244*^9}, {3.6641021464985657`*^9, 
  3.664102168568597*^9}, {3.6641022477287073`*^9, 3.6641022489387093`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Backward difference", "Subsection",
 CellChangeTimes->{{3.6630872436703334`*^9, 3.6630872624524755`*^9}, {
  3.6630876955507126`*^9, 3.663087696924604*^9}}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "'"}], 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"f", "(", "x", ")"}], "-", 
        RowBox[{"f", "(", 
         RowBox[{"x", "-", "h"}], ")"}]}], "h"], "+", " ", 
      RowBox[{"O", "(", "h", ")"}]}]}]}], TraditionalForm]]],
 ";\t"
}], "Text",
 CellChangeTimes->{{3.414088374206453*^9, 3.4140883756385117`*^9}, {
  3.663087565919611*^9, 3.6630875681540947`*^9}, {3.663087619390879*^9, 
  3.6630876222660193`*^9}, {3.6630876623147836`*^9, 3.663087790585266*^9}, {
  3.664102193428632*^9, 3.664102197988638*^9}, {3.664102251668713*^9, 
  3.664102254228717*^9}}],

Cell[TextData[{
 "Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], ":=", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "i"], ")"}]}], TraditionalForm]]],
 ":  then ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], 
     RowBox[{"(", 
      SubscriptBox["x", "i"], ")"}]}], "\[TildeTilde]"}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["y", "i"], "-", 
     SubscriptBox["y", 
      RowBox[{"i", "-", "1"}]]}], 
    RowBox[{
     SubscriptBox["x", "i"], "-", 
     SubscriptBox["x", 
      RowBox[{"i", "-", "1"}]]}]], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.414088374206453*^9, 3.4140883756385117`*^9}, {
   3.663087565919611*^9, 3.6630875681540947`*^9}, {3.663087619390879*^9, 
   3.6630876222660193`*^9}, {3.6630876623147836`*^9, 3.663087790585266*^9}, {
   3.664102193428632*^9, 3.664102197988638*^9}, 3.664102251668713*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Symmetric (central) difference", "Subsection",
 CellChangeTimes->{{3.6630872436703334`*^9, 3.6630872624524755`*^9}, {
  3.6630876955507126`*^9, 3.663087696924604*^9}, {3.6630878052578087`*^9, 
  3.6630878068985353`*^9}, {3.6641022026986446`*^9, 3.6641022088886533`*^9}}],

Cell["Take the average of the differences above:", "Text",
 CellChangeTimes->{{3.6630878115549803`*^9, 3.6630878346029406`*^9}}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "'"}], 
      RowBox[{"(", "x", ")"}]}], "=", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"f", "(", 
         RowBox[{"x", "+", "h"}], ")"}], "-", 
        RowBox[{"f", "(", 
         RowBox[{"x", "-", "h"}], ")"}]}], 
       RowBox[{"2", "h"}]], "+", " ", 
      RowBox[{"O", "(", 
       SuperscriptBox["h", "2"], ")"}]}]}]}], TraditionalForm]]],
 ";"
}], "Text",
 CellChangeTimes->{{3.414088374206453*^9, 3.4140883756385117`*^9}, {
  3.663087565919611*^9, 3.6630875681540947`*^9}, {3.663087619390879*^9, 
  3.6630876222660193`*^9}, {3.6630876623147836`*^9, 3.663087790585266*^9}, {
  3.6630878515412645`*^9, 3.663087929794875*^9}, {3.664102226428678*^9, 
  3.6641022583387227`*^9}}],

Cell[TextData[{
 "\tLet ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], ":=", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "i"], ")"}]}], TraditionalForm]]],
 ":  then ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], 
     RowBox[{"(", 
      SubscriptBox["x", "i"], ")"}]}], "\[TildeTilde]"}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["y", 
      RowBox[{"i", "+", "1"}]], "-", 
     SubscriptBox["y", 
      RowBox[{"i", "-", "1"}]]}], 
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"i", "+", "1"}]], "-", 
     SubscriptBox["x", 
      RowBox[{"i", "-", "1"}]]}]], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.414088374206453*^9, 3.4140883756385117`*^9}, {
  3.663087565919611*^9, 3.6630875681540947`*^9}, {3.663087619390879*^9, 
  3.6630876222660193`*^9}, {3.6630876623147836`*^9, 3.663087790585266*^9}, {
  3.6630878515412645`*^9, 3.663087929794875*^9}, {3.664102226428678*^9, 
  3.6641022583387227`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The approximated derivative", "Subsection",
 CellChangeTimes->{{3.663088167654256*^9, 3.6630881847956944`*^9}, {
  3.6641023610188665`*^9, 3.664102367098875*^9}}],

Cell[CellGroupData[{

Cell[BoxData["data"], "Input",
 CellChangeTimes->{{3.663088456340544*^9, 3.663088457371852*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.05`", ",", "0.3685664993961951`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1`", ",", "0.3090169943749474`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.15000000000000002`", ",", "0.24185846538358247`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2`", ",", "0.28778525229247315`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.25`", ",", "0.4949747468305833`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.30000000000000004`", ",", "0.8090169943749477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.35000000000000003`", ",", "1.103138558544332`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "1.2510565162951535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.45`", ",", "1.199820374951102`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "1.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.55`", ",", "0.7755563062391737`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000001`", ",", "0.6510565162951536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.65`", ",", "0.6788744898324037`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000001`", ",", "0.8090169943749479`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.75`", ",", "0.9192388155425115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8`", ",", "0.8877852522924732`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8500000000000001`", ",", "0.6661225340955106`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9`", ",", "0.3090169943749477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9500000000000001`", ",", 
     RowBox[{"-", "0.05569756931573294`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", 
     RowBox[{"-", "0.2999999999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.05`", ",", 
     RowBox[{"-", "0.3685664993961949`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1`", ",", 
     RowBox[{"-", "0.30901699437494845`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1500000000000001`", ",", 
     RowBox[{"-", "0.2418584653835824`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", 
     RowBox[{"-", "0.28778525229247337`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.25`", ",", 
     RowBox[{"-", "0.49497474683058323`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3`", ",", 
     RowBox[{"-", "0.8090169943749477`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.35`", ",", 
     RowBox[{"-", "1.1031385585443316`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000001`", ",", 
     RowBox[{"-", "1.2510565162951535`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4500000000000002`", ",", 
     RowBox[{"-", "1.1998203749511014`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", 
     RowBox[{"-", "1.0000000000000009`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.55`", ",", 
     RowBox[{"-", "0.7755563062391739`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6`", ",", 
     RowBox[{"-", "0.6510565162951536`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6500000000000001`", ",", 
     RowBox[{"-", "0.6788744898324037`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", 
     RowBox[{"-", "0.8090169943749472`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.75`", ",", 
     RowBox[{"-", "0.9192388155425115`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8`", ",", 
     RowBox[{"-", "0.8877852522924734`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.85`", ",", 
     RowBox[{"-", "0.6661225340955113`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000001`", ",", 
     RowBox[{"-", "0.30901699437494856`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9500000000000002`", ",", "0.05569756931573358`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "0.29999999999999977`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.663088458231244*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"derivativedata", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"j", "+", "1"}], ",", "2"}], "]"}], "]"}], "-", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"j", "-", "1"}], ",", "2"}], "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"j", "+", "1"}], ",", "1"}], "]"}], "]"}], "-", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"j", "-", "1"}], ",", "1"}], "]"}], "]"}]}], ")"}]}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "2", ",", 
      RowBox[{
       RowBox[{"Length", "[", "data", "]"}], "-", "1"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.663088203077804*^9, 3.6630882886905537`*^9}, {
  3.663088350240316*^9, 3.6630883541780005`*^9}, {3.663088477919677*^9, 
  3.663088521265483*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.05`", ",", "0.09016994374947407`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1`", ",", 
     RowBox[{"-", "1.2670803401261264`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.15000000000000002`", ",", 
     RowBox[{"-", "0.21231742082474248`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2`", ",", "2.531162814470009`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.25`", ",", "5.212317420824744`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.30000000000000004`", ",", "6.081638117137485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.35000000000000003`", ",", "4.420395219202058`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "0.9668181640677`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.45`", ",", 
     RowBox[{"-", "2.510565162951535`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", 
     RowBox[{"-", "4.242640687119282`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.55`", ",", 
     RowBox[{"-", "3.489434837048461`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6000000000000001`", ",", 
     RowBox[{"-", "0.9668181640677`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.65`", ",", "1.5796047807979432`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7000000000000001`", ",", "2.4036432571010784`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.75`", ",", "0.787682579175253`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8`", ",", 
     RowBox[{"-", "2.531162814470007`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8500000000000001`", ",", 
     RowBox[{"-", "5.787682579175256`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9`", ",", 
     RowBox[{"-", "7.218201034112436`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9500000000000001`", ",", 
     RowBox[{"-", "6.090169943749476`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", 
     RowBox[{"-", "3.1286893008046204`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.05`", ",", 
     RowBox[{"-", "0.09016994374948564`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1`", ",", "1.2670803401261237`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1500000000000001`", ",", "0.2123174208247506`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2000000000000002`", ",", 
     RowBox[{"-", "2.531162814470012`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.25`", ",", 
     RowBox[{"-", "5.212317420824751`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3`", ",", 
     RowBox[{"-", "6.081638117137479`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.35`", ",", 
     RowBox[{"-", "4.420395219202054`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4000000000000001`", ",", 
     RowBox[{"-", "0.9668181640676967`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4500000000000002`", ",", "2.5105651629515293`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", "4.24264068711928`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.55`", ",", "3.48943483704847`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6`", ",", "0.9668181640677012`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6500000000000001`", ",", 
     RowBox[{"-", "1.579604780797935`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7000000000000002`", ",", 
     RowBox[{"-", "2.4036432571010815`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.75`", ",", 
     RowBox[{"-", "0.7876825791752629`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.8`", ",", "2.5311628144700005`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.85`", ",", "5.787682579175243`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9000000000000001`", ",", "7.218201034112441`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9500000000000002`", ",", "6.090169943749492`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6630883646288958`*^9, 3.663088483763697*^9, 
  3.6630885222186337`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"analogsignal", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", " ", "t"}], "]"}], "+", 
    RowBox[{"0.3", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"5", "Pi", " ", "t"}], "]"}]}]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"analogsignal", "[", "t", "]"}], ",", 
       RowBox[{
        RowBox[{"analogsignal", "'"}], "[", "t", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{"data", ",", "derivativedata"}], "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.663088527883339*^9, 3.6630885701822147`*^9}, {
  3.6630886124490185`*^9, 3.663088652560279*^9}, {3.6641023347988296`*^9, 
  3.664102350628852*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwUV3k81F8XFhVFi7InCkn2SiXbUQqhku0nURJZimxZK1Qke5aUJHvWkkoi
rp3E2I0t28wwlmHMjGEovd/3r/k8n+/cc895zvOce+9Bu3smDuxsbGzVm9nY
/v9r4EDuqplx0DK6OPnj+PEemP5gYTcmfA74LZpJkSY9IMDdF/NZ2AzyLjaf
uufRA4qn+XLeCttD/HSrIb64B9Q6j5fEC3tD9ku5YIWDvSCpmfa+PtUHzApr
ZMc0eoGngOsdQ9wfmh8wlEQte+H3k9/RFtKP4HRDSrJqdC/UvKk/ES38FMxO
KSb+XeoFlW6/T4euhUJ3QUY5z/Y+yOdSVKhODYOhGBmRvIN9EH//ldSi+HM4
KDN++unlPrh12XXvFekYuLc6vR2f0wcDoRKxM46xQDMokbxY0QfSo3e21JrF
wcAn4L6C64MUvoMhV1++AK4VTh2O5T54EhLpFyGcCP2sri4hzX6oFr1dZlGR
CGNvfVs3X+qH1W/aDIlrSfAmQaQz+Ho/3F1YvleZ+hJu/COayj7qh9znncXP
NJPB3+VWiGV0P4xLFc6ZjiYDb3S4iFBqP5hds3WcF38N/92V5r5Y3g8xTLWc
8prXYCbWIl3f2A8tL/gJT2+mgPc9m5Nt3f2g2dJ6fX/WG+gdYfW9musH6RMn
LC5Jp0HpZMAhGSE82HbuShRpToOPD47/PiOBhzd3ZrumHN/BYb6evTQ5PHB1
deQis3TQvfODJqiFhxyxqsZDOenQzJnzJkYXD2fvFhAjl9MBTy5seHsJDw84
QyUsX2ZAFon38zMbPAibe56pnsoAH6pn1C17PJRl3rCVOpUJj04s7hhywYMp
1Sgo4lkm6GsHNs+544GqqZZGxWeCQ/ptw9c+eIiOPFxlIZMF+WctFQmBeJAd
5Bv54ZcFyj8MOFuD8dAszb4u8TMLjj4Lv3cpFA/23ovCz4WzofNoHrvHczwc
54gPKHXPBpdmse5H0Xhgj1cZHm7OhvqZErl9L/DQeQCvvkU8B86EZI3qJuLh
3Uf/VEWfHCCwX6liT8aDm5bo3//ac8DpouTby6/xoNFebRMilQu57tEWim/w
wG19s7ogMBekbmxpfJeKh6FZDvHe7lzQiPjblP0WD3n+uUF/j7yHSadRTa00
PPhyXRiXDnkPWjP/drhiWDd5Ttt44D1ca88UO4ZhPumYDH+lPPhLm7kag60n
fFFmzwrLA0pYT9FjLH6pTo9d2+886JU8xrkb2z+4+379sko+jI7kXDuF5Xf5
ppCUeFQ+2KkkvWO9xIMYteKpPiEfijYO/foPq2/+kQ3JQ60AFI6eHDTB6q/c
wab75kUBaKeZNc9h/ESkZuY2kAvg89vvSZIReLCUO8+5AIVglAl66xi/hyum
HQWTCyH8x7UJrxA8NODlj7icL4JPAuw0Q188JNzueJ6QWgQPD54KLvbAg92y
x+wPehEMWutLf7mDh397vhXuyiyGnKrwzV+v4wGXcZXnNKsYarZxOH36Dw+p
yn/u2hl/gF9tY6f/M8aD2qUzil83PoCioPzrLG1Mj78JMaPmHyGgIszeSBUP
+Dthi5zFHyE3eJtIlhIeKhocLIsVSiAzvAV/fT+W/2SBMNtICVSb2UsqL/cD
OvLnZyLnJ9j1Nemr0yzmB4+LAUeOfwKXR4Q4y7F+WP63OGQS8QmaWq1X7Vr6
IX7/idQc1VJY+Jn181xyP6zZhxmp2ZeC1M3evqsR/XCzCP8HF1sKW84/2KL8
sB+U1QNsVqdKQVN6/28pu35ot0RihkmfgX1c7rDZkX7gSryQQV36AuUHjn2f
K+6DddWJ9QyRr1Ds+zmqLq0PFn77WZjqfIW2VwofvWP7oOdwHndZ4leIcx4/
e8+9D9Iqt/oEniqD/NuFgSPKfaBCqDfY+vAbCO8+wRNX1Au2x7QY+7gqoLBg
P1JP7gFTfN+lduUKkIvueJAb2gO6D1zzH12tAB82gbDd3j0g15R6faKgAp6u
PuKcNu4B5tX1ltyLldCW0/CiansPRIWUvz2a8ANuGY+a7gzuhm+dx/T0xBDY
K6j+5vPvgpiZeX15XQSGm3U2CM5dcJv9vQGvG4LGl4oZvVZdIKCy79JwFYJH
nnR3Mc0uqPwVUvBNsQY+mN894M7RBYcHrssVnK0BSseiluNyJyQQ1YtSLWog
F3cc92y6E+78XS4OeVQD7t13JC60dcI+JZdPhrga6Fk49no6uRPC1PWOaU3W
wObNBI3zkZ1A05P6rMysgXiNJFbPo05otR39wi9WC926yQHhtzshIN6kfMy1
FmRT4/wcVTthKk3pdHdILcQ1Fbc6KnSCSSFPRUNSLYzwF0SmS3SCbENTZX5V
LfCc0J6t3tEJQ8tqyGtHHSQbLrvEtneALruQ9u2DddAj/Vxfv7IDSncu11ie
qAP82klGUH4HRBz+WKdpUwf8hHIPz2cdwDwepaPsUQdaZ+VeK/t2gJ22c4NE
aB3ovR477e3YAWpXJZs4i+vgkifhbvyFDsh1YNNbq6mD3xPOp93VO2CP5+/m
+d46eHgsij6o0AGzEck/u/7UgTNt6eF/fB1gkext0LC7HmxGGu+4cXVAXdaV
X2VS9cD3n85jwb84eP2Du/2NUT3Mqr1QlybjYPNP8sUY23pQsRIcjRnFgXtf
Iy7Yux7MiO/yYvtwMDKRedkrvB7qC2/zyrbjQH8hqNMhtR4cpqoibjTi4Mua
9RXLknroObHlydFqHBzgVOs2aKgH2+Z0+4xvOIjaK2iqOVAP26OoSSWfcLAq
zuhRmq+HsHA9f9siHNjLd5lJsDVAlSbhbul7HHSqfujj42uA+iOE1vdZOMCa
asEp0wDRN7VnzqTjIO+KE56l3gB5Oo3Cj9/igO/6ecv5yw3AeW5LgfMbHAS7
SAyO3moA6S4zAus1DuZ9/l3t8m2Abya121UwbPlkZKg+sgH2nN12UxjDu8el
5R0zGmD1ooE3wvBPDY+H2781QICw5OpRLN7j15W44rYGcMQ99/bE9lNjbjlw
ZbIBtCyu3HmM5UMzMfZgrDTAU30xy1vZOCj4mFKXvKMRMjdblwjk48COh7RX
XbIRaCtHCW8/4GCfs5LDqGoj8O32v7r2BQe9jf5lIZcaYfLqp/sKPzC+JBo4
D9k3wvb2lQTVBhycC9p5tcW/Ec6d/7NtP8b/n2HLgjuxjZCWtyI90o/xr5q1
vjOnEeLUM4/7TuDANYliVFrRCMckZT0X53Eweunx4iqpESJU0+8+2NoBLwvb
tFPXG8FSiRSZgOnlMpdgPPA2gfF/WVlRkh1QU1uoEqbRBENcKaePnOsAPzFm
6BGTJih670XCmXeAcqA2vs2xCZSdVolWTh2QodLnvzehCezCNBaPxHWA1Qvx
X2V52PePBKpbDqbXBWdRq+ommB1gHk/D/PH4/UZ1+kwTaLWPiqPZDrAXkdms
qN0MRd/NVHllO0HU19O8y7wZfqwLtDhh/uzr+ZHrfacZxJ6/qFbV6wTd6CsX
Kl82gwVdHXQwPx9mC4zRpzRDa9GsHXdBJ4xbN47NsbdA4rs5PqUfnfDq+66j
sUItUCuyEdOO6wQur+yePp0WWJ/f1RyIzZtZUrvQrZQW+ONAmcvU74LMs0Iu
W0taYOLLv9TM611g9c6uMr+xBcraTsSI3e+CX5YrNlRqC7BdFH0fmdUFRb8O
ZD3U+wmhbEv7Nbd2w71PXgqvGD+B0nreaDOhGxY0Jnp+crXC5R/u19s3uuFu
y6WAddFWOBi8p4N9Xw84jR1pvn6+Fe63bNwpNesB2x3jtodetoLH3THLg+09
YOxslFh66hdc7mxYEOnuBRzjuxrR8BcEcTyeeMXoBaPgwxP8tr+A03LSLViw
D/ST2RX9w3/B6IvzepHX+0C7sbwZBn9hvvvd+2ypD5QPHlpvC2gD8l5idrcs
Hj4UxWdsxLRBttaCT4MpHuRV2fSVs9ogREbwhshDPMhcHk5M+NUGvQ2MUmon
Hg48fKFoJdoOhU31aWoPB4B38O/N6ap2aDT/UN07PQi0uP6WTZs6QCxn3VJm
02/4cfcTEAU6QIWXDbd++jc8048qa5LvgPWvxyoVvX6DKNvZ7EhLbA4mm6l+
nPoN5+8VB/GXdICI2Ejxv65RaJM++yZRqRPGBlJ0HlmPw4EtwiZ5o51AHLn9
5pbtJLTUNqEOjW7wpuzwevJ9CnLb/hCj9bpBRiCO7dPIFITij203MumG5Yr0
qKl/U3CWkmbW4tgNu5tfkG7rTsMPId+ZmvhuEC2865LfMw0l9w7vLSV3Q8YR
RXizQIZX+8NvJyb2AIezjKzZwTnwkamONHnXA/VBzvdkz82B+XFGye6CHvis
7f6IdnsO9lywXY9CPWDm9fa4edEcRHmrxoXO9sD5LMnUKyfnIfgX+buPdi/c
XDV0itKlgLP/hR1X53th1Mfw3GXTRSjYx2tzndkLaVWllvPuizBfNVB0i60P
orbqe7nELIIbu5ORG18fxBmrf+D8uQjekWGRTzT6gHCeuslajApBb+u3fYjq
Ay7SI72aGCrUQOTVzy+xd4pO7ZxfKhXYJ03yy9P7YKjygrhYARWeSk/q13/p
g4AvBToKjVSI+MgWPjDSB1O6Mpst16iQVKu5lUOhH+7zLncW2S5B/60tFlyn
+qHZq493r+sSCG1tz9lxph/2mDMv2/kvQYqB9Xkh835gic8vVLxYgvSegKcK
2L1IcW5m41LtEhSSvrFbtvdD0riGZv8+Gsw/CzKxwfeDhlCS9RdpGijK6mXa
TfSDbKjCdb+jNChx6z/jit3b2E/7mX7SpUHZCiP4MXavK+MPVJm8R4Pabcf+
Fbli92znL/z7qmggY6b8LcIPDztpH5s4m2kQl6Z4z+kJHrIuxH/v7qSB7XG5
MUnsnpz2qKOYnUiDDWsplNKAvVvuWv9p5KLD7fcSvn4d2DvB7+/kO146tC8d
ULIYwsN4x0KphQgdUsP2v+Ol4sHM+KOnlRwd1EoEgsL3DUDSOYpNmSEdMtf4
Tt2WHgAzPpP7XqZ02HZ+76LO0QG4YJdrxnONDgODu2780x2APeJn5zqd6eDL
sQ18PAegUuyzXGYoHUYvcq6YYr56YdCgpBZFB91XWz4eDR8AecfYvcXxdBBQ
YBenvB2AD/1RgpLv6PDFYn3j1s8BKOp0eXGxjA6iGayyM70DoDZ7eEdFJR2e
zK24iY8NgLnYoUq2WjqYBDNGhxgD0BKDdxL9RYeKVtrL8n8DcPfxTf2lDjoc
5F+69HL7IJQN9Amn99KBmk+pvnJgEBZrn1hH/qaDJWPOR0luEO6K7v/aPEEH
pDWruOPkIDTx3MT9JtEhpmcqrcVwEPK+7xVNptCBuZ9kkWsxCLdjfUFtiQ7X
nQg7n94chJE37pu+Meig8HfsEfgOgrn24wua63RI1Bs9uf/xIFCOyDfpbtDh
z4uRhbWoQVg9FIM7sokB9iNDuQPJg5DywcR2ioOBzYfB62WZg5CpKxTwYCsD
VDzwAonFg6D8yGPfPBcD3lT24TzKByGHSjx3gpsBLsbdWgq4QXCnrp4028WA
7pRO5vbBQSgPdNkiy8uA0yTcBzJhEDy2v3Ic3MOAdKX2200LgyDk8MvOjo8B
XAG/xLJZg2DZeOZvAz8D3Bt+9odsHoL2bDmtTYIMwO9sibmxawi4QosUBIUY
oHW1SVdTZAj6S4Z6twozIDerYUPk0BCMMqs1OzHsHmo2AUpDsCpytNVZhAHq
jsR6+9NDsF3dmX8Sw1sveOc+1xmCoKNtR07vY0Cn7ObnHy4OAR+vz557GE7h
SbzT898QfBw5PfwEw/YLkpdWbw5Br1pGnC+GFTs/K++/OwQlUvNggGHWJ529
Z32GoCFu98o6Fr8hoWf5dvAQyApXNERhOOb+rYHIiCHwfnuh/A+Wn+V/9IqS
xCHQGu+dMMSwxOknb/vShsDkgLRJAFbfvMje4LW8IfAvrhQJx+r/9ifTTvzz
EGz4NV+8L8CAx6PHzp+rGoKuDMWNMxhfRjV1h52bh8DmTzgs7GWAQKbJ9piu
IRB4eUA6AON74snkfOnwEHxRWWoi7WZAkYNnB540BFJd708dxfrlo8de+mdx
CHR3ZsZY72CA9pH4xINrQ3C5kDLpiPWXm1vCV3fzMLDR9IxMt2H9w53RiBMa
hh8dz2paN2P9L+kS+yoxDMWmxhsW7Aw4EX9z05D8MGwIz5fV/6NDq3lIk+SZ
YSB/6dwCa3Sgj9QYf3MeBt/lgxo1mJ6rq42Pj3gNQwXhjavpLB3C08f5Nz0a
BnnflC0tU5j/7NmGDeKHoT83cM58DPPvHDiMVgxD73EdHS7MX7vbO/Q4Gofh
4rM6y4JWOgx/uCEr0zEMiUmis4pNdHD3DFr0IAyD5n87BMd/0CGFVe2/hWcE
Dg7IDE/l0cF++JK1rMAIZFrc4MnIooNS1ajW5QMj8KOmnKmVRoeG4A2O1yoj
UHF9Ll06gQ4UTq0YeZsREOiq3VMQSAdtgapM0w8joOX1Ojxfjw6bk/jvnS8f
gURV1y94bTq07HVTP1U3At+9m4Iop+lwmVe8V6R/BIpm68s6sXl3nSdky+Tf
EVBxTOQJ3EmHQPbzTu4XfwNHOWNnVAc2nxfaFKLnf8PmvuYf+87SIMD10Noj
5m9osLq+J1uVBlrzD5vc2UYhZf76tIgSDRpnFG+Y8Y2Ce3Tv5j7sPOglxsXt
0xiFy74Pe0IYS0AbMqPnR46C3z07EiNzCRSaR8qbZMcAb4uecTKpILBwhxJ3
YgwMK4JOkmeowMa/fvCa9hhkfd8+V/WbCr12wpGL5mOQNBZTfwE73x5smNsI
hYzBQffJ9vkEKrSd6Njkgh+DnQHfEouVqHCi2zZn69lxSD8WH7a7eQEKHPLQ
Hb1xsDt5/6pL8QKIsRYHO43GQZklat+QsABcB4J2vvlvHPoO/50MtF2AEde3
vkqu42Dld7iZe40CT7cNXbB8NQ4Bp9d59BUp0KttupC/MA41TTa4iXdzsPaO
8LaUPg7h11U5jj6fg4P/vC5Wro7Dw5+p+HjPOXCrSixqY5+AD+K9t+LOzwGn
Wr/LosAE1AQ85gyZnwW141enVWACdvl7HMnVmoX0QzfGUewELOn2ZZxfIUPT
08XYlsQJsI/wCu4jkIFCCIKu1xMw8yCnLKyTDGqZ6WmTWRPwWb+w6VIBGXrE
Jq23lE+A6NGd4cE3yLBVyGHQYHwCrI6btqPOaUzny+GmpAnYLix4LwFNg2l/
qKr17AQ0+G51iPkwDemJucmujAk4mf4vdz1qGk7zks3juCZhRA2+/TCchrvb
73T3KU/CDxQ/KtaF3deqBMoMTk7C9ZLrrRa1UzDmXvcaqU+CYoN0cd2nKTDB
C9/M152Ek9MtH04lTIFqdsviA+tJWCjgyX5nOQWe/3n3LN2chNaUc+bBBlNQ
uP3At9uOkxCl3fMoWWMKxDx8Hxl7TkIDv6OVy8Ep2KwlvUMqfBLy+KoK8ykk
0Frqor6KnoQXR69kn58ggW/2w94dCZNA9k44JNJHgtntfW9W3mL5GS+8d60i
QSf+ieyvz5OA86+LbogjwfZIpZ3a3yehf0OvQjaMBDpaw0tfqifBTUqB+1cg
Ccqyj31P+zkJf47nNVQ4kiDVY0LPc2wSGE76eKuzJOiXipabJk5C5ni198vT
JNg1oLrLenYSUoY6rHYcJcFjrbj+88uTkOBLdSs+QIIfS+oVFWuTkMFp0dEv
RILl7Om3SmwEUE5j+63OSwInbnAQ5iYAWa/v8nd2EmRWz+rH7CZA3cauga51
Igx7vJTnECDAj30lptLLRLg0QKHPHyDAFZqyxRMyEcIjX+NvShOgMAJHjZwk
Qq3W+cp+OQLYtxvkdo4QQSUn9XHNSQJM6mh47+wmgpul/u0TGgQo/bvnBWc7
Ed5zMy4UnCHA3VuRXRotRBDxNORNNCJAOeeWT9cQEcwOrTC4TAiw8xf3+fOV
RIgeyBx4+B8B/rxHUy7fiMCGOcLRjgC01wdlXEqIoEbLeTLiSACz+0HFOsVE
8Mq54njFlQAtP2e5rxYQocjyr0GTJwHCq7yOFrwnwhR3vqK6HwEYpDPbT+UQ
QRyZ7Sl5SAD5icTgf5lEsPRkY0o9IYDt34YHHBlEiD9UNPg6nACzFB3S2XdE
+DXwX9XOGALwxLxNq3pLhMdD0/wuCQRIJdTz+KcSQXXE163xFQFeWZXccX1D
hIXfnM0H0ghQUiCYmpJChOyxZPEHWQTYGrfwgA3DVhOH/fB5BLhZ4TKX9poI
uwnfOo99IEBwC0f9fQw3EfWOxHzG8GXv308x/GAKHzJTTgCXhYo9bRg+RnYc
OldNgAbXfacNsXjkmZVj6fUEEJkTP8SO7Z829yxyvYUAKbtT8qkYNqMIEi1w
BHhpmZ0sgOW/ffG9RmkPAdass6q90ohQQz2VtGOQAGnH9OY504ngQ2umOI0S
wK8zar4b40OB8Z9uA4EACY/R894sIhCXp9PEZwgw5hQQxZNLhJQV35WABQJk
bCqoDMgjgjGL07ifToDPKHpErJAIW9eT846yCGBU9L10FevXjz+HN0VvEMCb
T4iN6xMRPDe+XSVzEIHr7NxToy9EGN00sP3dTiJ4FFYqeGN6SORwurW2lwj9
UVtaLTC9GGxZrTQXJgJd+2aMaz0RyriEXHmkiCAzz+l2so2IzZO8RscjGF7N
Z0x3EkGCR1WsXpEIs6K7A9r6iBC7y7LD/zSmk0hjXYVxIujykg/3aWE6EcHN
5ZGI8GePX7DyOSK01VpdtJgjgpPAq6PTl4jw1LaOem6FCNr7BxLM7Imwcb9W
0AnzF1PMaf6jMxG6377jdML8V3Rg9Rz3PSI4LB8lvhQngZCUELPWnwh+x03H
ghRJsCRraakUSwS9/ccWvS6RIE+eXBKRSITM3AbbcQsSXFf02zaF9flsuNEL
vxskaD36qiI1mwi9PWEPZT0w/6oOiG6vIEJ58Rmr8JckMNW1nCASiUDiIj9r
IpOgYu/RDsIMxnvDhwvrNBJITGyrmlzA6p55/vXyXxLQAitfja8SIVK1aMZ8
zxTEfRIzHuHB5obBj0NtmlPQJkqq7lEhgfxDjVNsKVNwju6RWveUBNkJddtt
7aexOR75X7rUFOzKFzlSdGgGSmqD/Lllp0Bb1S3v6okZkCN4vfFRmoIHzZNR
nOdn4IC09ZiR2hSoefbW3rSfAe4ieUfW5Sm4VT8W8CdzBsa/tfuYBE5Bebd7
s5L4LER27Hq5uXsKGh00XT7vnIOtSxzl9/BTcLkiXEBg/xwE71kdHMLe8Z5G
+ry35LD3t/n4/k/TU1CTgDS/682B7XBJjs3fKZBlZ6XqBM1h58SVr2Uy06Cd
u8lbfWYOSrh08QcVp2FATmWWtjwHcrJqrKjj09CiXCUcwT4PB1wlNG9pTcP9
J2f4zffNAzed1rDLbBpERroqDA3nYXwjodcpCIsXe1dPOXseeOY7I32fTsOW
nRrL08XzoDq4Qyfs+TRMu3LTA77NQ9znZ5+yEqahVUKcqdw6D9pOgTGj76dh
VPfZTAdlHu6al5+nFE2D+fTrCTPmPLw6u/xn/dM0rBuzuX7amAeq6L07wj+m
YeUWzW1xJwUyuuz0zbBz1/H2yHtPBQrgqt/9s+ubhphopar3KhRYKxwp8xia
Bmvj2dESdQqYhFkciiVOA3vLxSTNCxR45JUw8nZmGuoa5E1rLlOgwLYzoWhh
GsRPk+7xW1CAXd2AvXV1GuK2ECVO2FFAUebZ94G/0zC8IT674UgBK/4G92l2
MvzCHfJ87UqB0kXNsc07yCAAwUfBjwKjIwEv9+4hw++M4YwLDymwvfXbRQlB
Muga7j0v+ZgCdtlHf8BBMnwhJmecjaRAzAs3r0vSZGA6GaY+i6VAxaNCWRs5
MsjyFRulJFBgz9VDrwNOkEHZR9Lm8BsKaOnaGT9XIwPXTgPOjDQKuBx/x/kK
yPCMV299KoMC9TuEfb5eIENq8OGb/e8pQF0zV2i4hK0/u1s6qIACouR4Yrcp
GQ47jg7Riiig39fxZsKSDEJ/luSOfqSAdx2PKdWGDH/le5tOf6JA+scL2//Z
kcHF5LQVz2cKtKWG1e5wIkP4CvvLvC8UWH1e7yfqSobWgTNyO8soIOXLpizn
SYbg4VNtGt8oYGyvOX3alwxsG1flVcop8OBKQJr+A+y7tgkbA8N5Wt/M/wvB
4odt2gj8jt0H5Rg8t8PIcNc9ZOQXhtmEjzZ4R5JhRFHajIBh+a1ugU/iyFBk
FCxWh2FLesGx+CQy/PC8znTE8NPx6Zn0FDLESXYk92LxS9qlMj6+I4PRPYka
TgyPVNy0rM4mw4H0OYVNWH5ceWm72vPJUDvKnlHzlQIqScNNwx/IoNoRNnQe
q8/2sdCj2c9k6D80mhpXSoGoe+YnWOVkMFH5XpheQoFy6/h5zmoyTLrtbbv/
gQKkCx1ZAvVkeDij0rAL41cq8nDsixZMH3lGdsfzKWDfFhTAgyNjvhtg582l
QNaOAYdnPWS4zv/uZl4mBSYvKV9hHyQDtVRdg4X192BcuMbDUTIkzYqacGD9
t+0aP7yK3Vu5lMPtm15iejN9sUFZwPjIvhTtE02B/UkzM04MrD9CPkq3wilg
3X+mj8DC+MioJ3E+ocCwJa1wcPMMuEitVPj5UkAkxSDZbPsMcJlne5/zwPQ9
nPm4Y9cM2Ips82t2ocCAjenVRpEZEAuyyqVZU0DwXeE57QMzEO6gFphiTgGL
cQ7lSmwOnt1bSVm9iPXP7svWT8ozMJSdwDeoSYG92Tw0uZMzEHP4xGOrE5gf
Sfa/c9VnQIbEwxYvT4EuR/4vqbozcLL52BcJEQrsznd9J2g0A5La5z4H7sb0
M9sYEX9lBgxu8ZlFbMX8ftfnZrj1DBRdGz/YsjQPrR74nd6eWD2OB+frG+Zh
22eltQXfGZjvDZlpLp8HfcYzkvPDGfiOu7EtpGgemn1Uf9wIx/a/rv5yT8I8
NAS+djZMm4F2nZMppdbzwFG1ZNaUNQM451DTG5fm4ezGBe0z+TOgId+hUAvz
UBO8JnDqywyYSP9xzj44D1Wh1xokWmcg907SvdmJOfjT9Pnj244ZeHW36cWZ
rjnQ4OJ5I9Q3AwMdjlcu1cxBRcQPj53jM5DcH8Lz/O0clMXuF19bngGBKMVX
YWbYfH495t91cBY2bL4m136ZhbtHRIeOHZ6F0qlzVNK7WZD5bqmWKI/hZG1K
Q8QsvBvoWrM4NQsxXGbvP9/AfgUbAkeMZmHen3bGaussuCblPZz2nYX83a+W
2PWwug+Rfus/nIW5WwZjFIUZIH45qFXweBbEbl4LTeabAevelI270bPwn82w
mswE5pu90UG0zFnwCON31sd8LPvCI+Rv+yyYV7rydCdPw9SBDxPXe2bhZ02Z
XVfANGSWzJ6pGZiF2oUZ+SQb7NzovMX+hDALz4M96+5ITMO2XRZPuFizsHx3
5y/b/CkgR6mF7pWagzGKzu/2IhLkhHM8PxIwB4f1m5OEogmwhxj+SBE7x7R+
2vEv3cHuhbDT+/hT7Nw7X+ObZUAAK6bQDc2YOZBdG65N5iTALnvFE1cysXON
62H2r6BJ8IerE36tc/BbKZnW5jwBF5kfTreIYH02caf5Xx6F5VtWs7cr52Eq
fEO+orsXfPau7x2omYfyoU3+/x71ArPujeaFpnn44OA8rS6H4YO/4+S65kGx
04Ir/UkPrI7dOEWdmgeVh7y3tVS6Ye2aw1P/PRQgDA4Kn5LvADYzd7EoZwo4
7S7bsq29AYI5ePX/ulHgzFl2sU1HGmDT508ebt7YXP8ywdAJrQf2PfQG4yAK
MEICtn7VqgOOzvt3+JMwH+UYx0jdQbDVKLA8rQab47h/z07f+Qrc58JMPgku
gPuWqdT7AiGgge7xNokugPa+wvXU7+7gpna1c+jgArD1Cng07zqEupXlL22W
X4DdFCuvvakhKGV/94X/tLH1m+WsCsZeI5mV/Wf+Oi0AUZ3n8vuYYnSu4KvS
hYoFiMrQtIl2qkY+h94t2KAFGMWbSYRaIJSXHl7s2bAAT+0dTwcdrEHcydfk
UnELgPsdYfiVuxZ1P9l0eHFyAY57+Ccv9NchW5uLYknci1DB+3TWR68JPdhN
4pmwXgShjonhpfA2JDtUqj1ycxF7v4SJEAhtaDAr2Bt/exGslv0E1zXb0clT
oiPt7ouwZ9QqJHWxHVFtTAsrni6Cw/SvvHj9DnSrsPZCYtEi2Bn+ZdiTO9Ge
+7EPYz8tglPu3MbCzi5Uo2XzKaJsERKW7vzjPNGFRLtXhUJqFqHGd+HQVFAX
6l9VIrv2LkKOp63Lpd3dyEA3LUzvzyKscbKnlu7rQX84T9pksFHB/+Ws/j71
HtQ7L7oixkEF45IVGV6rHvS4bFZWhIsKp54Y38t+2YNGL4TF795DhTDBNinn
7b3oq6KrfAwfFc5pTziqS/eiqL1mTdyCVCjTuP035UwvUv99cG2rKBWe/tC0
Y/ftRa/cq27+PUSF97GbArxHetE98+z1ABkqfJ38lv2Z0Yt01SKTVmWp0Ptc
aj6Ypw8tc1z9SVeiQkNelVOTWh8ySWYoz57G8uES6d4U34eOPBhuddSgwmip
0POy3D7EdrPOnqRFhevWkZ1rFX3oo2zcq3EdKswMB/w5NtmHeKrl2PAXqWBT
Vv3LSa4fUYwOfIkwpsLgg80UXq1+hBvmc9IypcJ8XrrGaeN+FMv625FjSQWt
9t3/OLz6kXs47cnVa1S4fKZdN+9JPzIWnD614zoVIr4V3G5L6Ed7TnS+875F
BYPLe/4llfYjen2DqcxtKny84uakUduPek2+c444YfmsPou07+hHSe6Z93Tc
qMCW5bNVY7YfCRV5wx5/jN8rznUCInjEUnOmNwZSoW20tHdQCo+Gftq8939E
hZe/ajkllfDozbTuroknVKCaK+oYnMWjBz7q9YlhVBC/pBV9xBCPrLco++o/
p8JWjnuBL0zxSExSeOxjDBXqTc/P/bXDo3+fdiTcekEFz5u+LRwueDSuza4n
mIjF3zTIluSORzUdzLXWl9j6GlGDUh88yrg+9+HRaypckhC0sX6AR48pY3bH
Uqlgafp9OSEEj+we9ApMpVHBtpy752oYHulw/2x9nUEFvLvMtw8ReCSVUvXo
YjYVOmpOOCbE4NGWI6XHNr2ngryDbSFXPB5Nfcud+pJPBbOevku7kvCoSfdN
ilMRls+tavG8ZDx63xd7SfQjFUxun1rseY1H4fZP2Ts/USFT6uKLhDd45ET3
K3vyhQpqbYyR6VQ8uvDY1eXUNyoc1tta1PUWj2R57cTmvlMhd+PE8JU0POJO
t+hO+0EF+4idBs4Ynlc0DDNBWH6Gs0NCGG6rArWtdVSQXp73vImtLzZSWfje
QIXgv39YOlj8mGGZTNdmjJ9NVVa1KXjk5rLf4mAr5p+doY+HXuHRZRbv9r42
KriMX7sZ9xKPlMO3Vod3UGFtC3WGkIBHvILrHhrdVNhYjuPtj8MjWs7iIWov
FeZ4ZTodo/GoW4U4mIWnwoOkowdSnuPR5/qB6P+GsH55f91wDcWjRJP2M9y/
qZAirX2HGIxH3hO1y9VjGB83hx03AvHo5L8CG2kSFRh2JYcOeuCRYMw73qFp
Khy6pbAidwePVkUTG6NnqYC7dsx/1B6PKtQeKiwvUkFW3+Kn1n+Yvn56TOTR
qMDB5VuxcBnTl+XtJOtlKlR07s000McjTZ/Lf+vXMP3j7n7eropHTBdy4IW/
VDj41yR7qzIeldwIWcP9w/zJz65QdRiPJC58XhncvAS2Lf3FNgJ4xCUqSFvc
uQSrkt+sw6j9qG53ift93iVwOk5fdJ/qR4FbLiyu7V0CGdaX+P0j/WhhIWB+
i/ASuK9YjdY0YX6qHZ3aJ7kE2w+ZIYPX/SimzNch49ASlJweXraN7kd6hbuJ
0jJL0Mr+cceZkH5UkXh24qjCEpRPqEzaOfWjdMfcYb1TS6CZ0HL7gko/urvD
rdPLcAlq+G59eFbfh6TZOS+zLi4BPFa1LfvSh8aY79ofGS+BtJueF8rB5tF4
V+tz8yU4Y13+1/5ZH1L9fKLx3Y0l8OfBx++70Ic2X/37/ZfXEtxm3neRae5F
qdlRWZKpS3D+U3Kv09cedEPnuMZY2hLs8GKdCs/sQRKTg70pGUuwXo4ys2N7
UJ744a173i/BsLP38SHnHvQlpdaJrXQJwqJrK2+I9aC2OKbC7+YlkHi4y2jX
824Uq/S26VXrEqAE7+X3Pt3IBKdzw6x9CTpO2QiY2XejAe4Xcb+6l+BSlYP+
PHQjYpgc/fvvJYi2Nd+ss9qF/j6wLX9JXwL5lYyISjfsfNnHecWEuQR6lhcZ
Ste70NOK4pkdrCV4pM8T036xC21fXRMJ3ViCbRw3kp8rdCEBr6SHXttooM73
99WRxU40yKshoMRDA/o4rxTPeCdKLZn8MLuTBloXrM9JdHUiiQWl8Zt8NGid
dby68LkTKTq3njUWp4HA1J+tRx50oiVOj2FuCRqo7c3x++XWib7kCno3S9Hg
IptrYOHNTqRGtM/RkqVBcBr3riP6nUj3xj9OhRM0WLU7yFIX6kTbNnLSyado
YMzzKXKepxO1pRqdzlajwUZ9uhJxUycyGXrtsk+bBnDRNsxqsANdN1dp32ZI
g7j1Mw+jIjuQ7b6L6eUXafA35GkI1b8D3Zxw8HI0psHl2JyKBacOZO+aLNxo
ToNvWqWUWuy8djheMu9lSQNZnx2UlNMd6DarBUlco0Hg623yAnIdyDl0zSHY
lga79M/D+q4O5GK497TSLRp0KgbRnDg60F1eeZ5RBxrUbhzLCl7BIVf8ubEo
Jxo8/Omscm4eh9ze2pSq36HB6Wmhp18ncMj9lk/orCsNyhP47vTjccjjSKzl
a3ca1Hxkr8rD4ZDn4ns5fS8aELIv6is24ZD315oN5n0abHIX7HeqxiGfwMGu
HD8aPMbJy1p9wyHfM7Rss0CM3/hV9s2fcMiPk9uP4xENjgv7CjsV4lBAu6Rh
aTANeuaPHAzPxaHABA2xm09oMB/K3eKQiUMPrpov7QqjQaHqkzL2dzj0SNyt
oTqcBlfPX421TcWhIFJYsmskDYT3FC4Gp+BQcOE7F9EYGoxFjLk5vMahxx7l
mr/iaDCV/yZtF4afnOraHZBAA/zhb9tDMPz07wxB5iUNrpsdPV2JrQ+rZ/+G
f0UDP0HpAoTFf/Z8X0TYGxp82FePj8X2D7+sYnMijQbZBzVPKmThUAT/RWVi
Og14HjYef/0eh6KGHTgSsmgwXhmk2leEQ9EZj/rP5GL69PXNnSzFoRjH5Hxq
Hg3qLr0crPuOQ3EKJQ/eFdJgbWfKYd9aHHpBb7l86QMNjrFzj7O14lD89wmJ
vyUY/3ePGd3swaGk83t/WpVh//9qcb6QjEMvueVTt32ngVPNf+eTGTj0quvc
vfJKGlQ0bBm7vqkDpdj48AvU0mBgeFtQ6P4OlCoZS26op0HizObGKfkO9Hbm
faVXEw1GfKckZTQ7UPr9wZtdv2jwyqrr1mXbDpShTlMJxtFANELY+JRXB8rc
xM2l1EUDVUrZHY5nHSgnWuNDVD8NzvIZbBh+6kC5puYh6oM0sLsrY9ja3IHy
hN3MZodpEB4n7qU81oEKct6t6U3QQP7x7NA1rk5UdKe8nUmgQZW5tKorfycq
PtqVnjOFfR/OkGBIdKKSKnY9jnkacCfcELaHTvS1zyGhmkmDPskiif6HnShu
k+RRYGH66Y7r9YvuRC4K4zi0ToOy3rVtT992IrFQq+21bHSoGNo12FvdicJU
LofUb6cD17ZPtx22diFbWx7xczvo8InRkHNFuAupRf380bCLDh36Wv3v5bvQ
AkFntZGPDk+XL8TGm3UhiwTVey1idLiY1+tgn9+FlNEyz4WDdOhN+6ObhbD5
NVda8FOSDsOXtwwb9Xeh6rMKU60ydGhQXdAf39yNpGkHbdqP0cF6s/Y4l2M3
WjHmNuzWpYOxrqCSDfSg7gctZJMLdEhc30fWte5BRXmhYT2GdGAlHWhP8e9B
tmxsdb3GdPj1QCclGJv3LR8ZqngrOryMXZfQPobdh3eOSo+40SF/j6OUA/Qh
T7U3DdYedPi46DU3YteHjG5b2v32ooNftGVmZRh2v63ufjvqR4eHXFKfizr6
kJNrM9/EYzpElH1OMrvdj063lbBPvcTye3Da524uHolmBlakvqaDcDEj9GsP
HrH56XqaptKh+6l4ifumAdQiOTJRk0GH3D28bOrXB5BFIGftmyI6MD0Cnuzc
P4g8Za8HXamjwyXj9LT9H4dQUTj3nx8U7P+b9DQSxUdR3PX+z15UOlxWpEjU
Xh1FXioZd2TpdJBwdNLTSxxFauMnh5NX6aAx3n/z2vYx9POUXYUnBwOm5n7P
hK2Noampcj8ZYQZ4kKx9Ni2PowPnby8nnMPw5UvPiRuTaCS4z1dUjwHDb3Lo
umIE9OrHubXsCwx4viL0ukaTgHhVJP99vcQAjqZ/oSsPCIhdcpxrwJIBk9Y/
LRz+EBCJzUpU1JUBH5hNp1o3iKjgx0Wd7CQGBCQbLk3tmEYnVE68+DLFAGXd
toCEE3NIOVngkvIMA9Te7WirM59Dsmsr24vmGIBv7M4n3Z9DB2oqnmZRGdB6
t3qQo2wObTfS9otfY8AtNvQj/sQ8Gr9leMN95zL4yVE6g49SUETCTQX5k8sw
L6oWOSa0iJ4yz86+V10GLli8c//kIgq6KvVeUn0Z1CRdRiimi8hbfPrAPu1l
MNLmd34as4huFN7l226wDJp13/bt30RFKvW+69M2y9DZsuBY7EFFY7Ton1mh
y/CYcoUv/twSIv57kG4evgzm9VpHxEyWEJnnri9n5DLk9QhKx91YQlRpg0N3
4pahfcfzn1IBS4jt2taQY2+W4eygrN+2D0tIov6Ram3JMiQOfnwVvpuGpDtd
d3l9XoYHWqwhM1Eakv1tPSVVtgyxDq5CHDI0dHxFLTG8chl4m19nbAYaOie3
sni5aRlyx3aNJd2hodsJ996PDi8D9cxbrvpqGnJJv/4obnQZmBLrxKQWGnIr
vmh+dmIZ0mKvhel105BvsxxH7tQyrJq2OOiSaCh8ffq669IyXOlQIhZvo6Mo
LvwJcQaWz5V5Jc89dBTH38TTxVwGY73DS3v30dErpewKlT/LMCy4Q2NRjo7y
b9kK/NnKBM++iDU2Izr64H6ZUryNCTU3rtKLTOmo9KFWww0eJry1fKt34hod
VSSLetbzMmFmJy50yJmOWn8NtEeIMuHvcPoB71A6wg00Z2uIY/H2jpX9i6Sj
blJZ4MJBJvDUkxpvx9PR8L/EIyaHmbCVr4rSlEZH88evhAofY4Ls86+0tq90
9DOXKP1WhQk/ZWnB/RV0lCvs13LgFBOi2FkfEaIj239p3DIaTLh0h/278k86
0vQ8VlyoxQQLBR7/8nY6EiE1XlI6wwR+scUc8W466mmdf3FSlwl3lqaFo4bo
qEQz+HiFPhNiJqOMXoxifJXs7dM0ZMLjxCP19yfpSPelmtB5YyaYjHFfG5nB
6r0ZnmZqxQRNkWov8RU6Su7dp423ZsI165h/+9foyFvv44TVDSYUvVpNW/9D
R4oK/VJ29kzwEi7ZYcbOwN5Pzk2k20yYv683iNvMQOQ9fx2dnZmgyrPjkwwn
A2WuSha6uzEhrcYp1J+bgYLufDNiuDMhz3niifsOBrIeNVjw9WLCduOL8bq7
GOj0ldHY9ftMMJK2+by+m4EEGjyOBvlh3/28Z2P3MBD95JYe9kBsvxf56hx8
DNSZ/8o77CETvB0aC835GahIVF5gezAT/J10tJ8JMNDzWPQt+jETHrhf+Zcs
yEC32U2v8oYy4fvzjsVnQgx09v7UWuIzJrC3Xhb+T5iBxMn+qUIRTLglLvB0
iwgD/bHaoZUaxYR4EaHTCRgebE8fE49lwoGvf86w7WOgMm2VkKwXTIjYK5pv
hOGEz80ShxOZwKYT5O+HYXfpaw0FL5mwhz5W/QTDF18vOCi+ZoKYXF6oG4Zl
eR5zlr5hwsv1pSFVDHMG8eefSMPiyz1rm8T2Iy7lGXxPZ0LY2LjTXQzX2mvM
a2Qx4enZw6gPyzcN3xFdk8OE2xJHx8QwHGhwS+lcHhNSYp4M6mH1WVYxO5sL
mMDlfgUZY/WfUI7wNCxmgvX+wMzTGD97svbzdXxkwrG56CR2jL9F/k9fTUqZ
IFVeX1i4l4Haws/91/+FCThvdpYKxn/+On716jcmFL4ffpGG9SfM7U7K7+9M
YM1HRpJ3MhCYxf8mVjPhxr1y1n6s36LNh4KcaplQksyWum0bA62e/n5gvp4J
V6PK1vq2MlCp+PgtegsTnIN1jHkxPcXGe23x/YXxJ3gkIPgfHd3dwvl+rZ0J
Y3deNXVi+pOeU5jd1MMEiLJQ4cf0ysPVkVPZxwS3rpSMJjod0aXcb94fYAJB
18zYjEpHNddLB8i/mTDQOr59C6b33EDTxMxxJkQqajvIkOgo+hXjsjWBCZuO
y6XJTNCRVffJ5g4yE0Z9zpjUDNCR9iL+8fM5Joyrj0lY9tLRYR5/LZ0FJgye
mXvQ3kFHjPOVX8voTPii8yTkShMdxXyH7LcbTEjg7yPXf8L80z9+479NK0C+
xL/vYhEdXaOH7OPdvAL4Q6VmX3PpSEahIf7pthX4eehukeQbOqpL1w+5w7cC
u/Cc6OFjOlp+duX6adkVsN6ZGGJpSEcj2TRhuvwKnGFyLM/pYP+vTegrUloB
QM7sdhrY/ut9RgdOrMAFf7sZpjwW/56VOqf2CpzQj2H/xUNH1ha3hPrMV4Dz
p/2t/5pp6KzX5t4YyxVIy8/MOY7N5yNxObH611aAv+huM/MLDTF/Tm/9YbsC
hr4fOo9l0lCc5t3lzDsrcFyiWTYikIYapO53u4eswEKlkD7rCA09eV9h+ecJ
tp970c59B7D4smxjz8JWID62UkJOgIZqlSLn0iJXgLG7VVOQnYaq1TI2tyet
gJb5f2+kB5fQN+P2k0cKVmBr8XiXzdMlVPDg0JuJbqzeYy+ZIl1UFNvbd8tE
ahWcpDVFU94voKhH0VJd0qvA+Wa2cTx2AUXInCddPrKKzTOLizJ+Cyj0wZfb
FxVXQWnNTfKH/gIKlEpw1lddhXnjDImtsxTk6G18T8toFXR3ieukKlAQ8P0K
kPVehWMDO3aE/ZhDGtWP1fN9ViE1tZh3KWcOqTmp/TnsvwpvjiTXusbOoRM/
8h8eerQKfHuG96fZzSE5+/DgA+GrUD61M5i8bQ4JfjkfJpC6Cl6ErVGx1rNo
0bTmBXvDKshssjK8zj+DmO9D735rWoWH4y7ZZ9lm0Ma6gd7dn6twpH190GiO
jHiy+/704VbhSkD9ZG8tGckwZh3zB7H16cVWte5kZJvIr2W8uArXmdM0n/5p
5EgeEtpCW4XApMoz9Ppp5KaRTv/OWAW3vn+LqZ+m0QOibL7k2ioQ4zOFA6Kn
0SsVbb6VzSwQfq7L56g3jTp7XWbfirCg891DBbuGKYSXUW402c+Cp/IzNYQv
U2j0wfI7zgMsMN23u/JVzhSalwo29zjEgt4NVYW0Z1OI635SzTllFmy9IP1R
/NIU2vXT6g3rGAvkju+XPa89hQT2H/D5cIIFNX7BXunHppBUY4GckDoW/41w
KEtwCp3hr3k5d54FkRfCfmmQSEjfOdQjXZ8FL+dbKIKDJGRcZWBkbsiCuLc2
A7LtJHTdoW8TMmZBNGn35OpXEgr4Ons3/hoLJJOm7NUjSChkW4me3nUWhH+3
9hoKIqFwm/sSf2xZsDO3u7v0Pgm93MI24HCbBeLvRqR325FQqTm/zmkPFjz6
ZSUfoklC8buCyMiLBbcXN24EnSAhz5/kaF0fFsTvNXAvUSCho5o/BkwDWeAS
VBVYKEZCu1cOPRp6yIKfX4fe3hckIWpJrOTNYBbYTj+b9dxNQiVSt9zcQlmQ
abb7LCcHCcWNtu1dfsYCRth7p7Q/ROT+6uT3wAgWVGzWXXJiEpESz/bNz2NZ
4P/qpfGrWSL6QC95nfUaW68YuftmHxHFFIuAbCoLzPQ1RBI7icjN8SmxJI0F
A/76n9Z+EZHC8H9K1VksYPVcemxXT0Q8SbW953JZ8CdKuewWIqL5S3IBv/JY
8KpU486rSiIqqttoGChmwX9VBzVTvxBR1AMnlxslmB74U/XvfCKiuye7d02V
skBD/Wmp6wciMqKqf737Fcu3Otctq5CI5ApyrOjfMH6Lne7x5BPRdvtdbAEV
LFidac7JyyWi2f3+OWxVLNiceG2TXzYRteInDZ4hFsh4mLkHZGL38xdG1B11
LJi99XDsYzoRRRiWJSU2sMByRl1N6B0RuWw5oL6vmQVO7+JcPr8lIgP0fDzj
JwvEegWvhqQS0RF/eqhMGwvO7t9OCXlDRFzHbeQ+4jD9rGrwfE0hIvJ8U+eJ
LhZ0eEu+EcFwS66yz48eFhAncQ9KXxNRnm3KPp1+FuyJW4x/gOFwkc21Pwcw
fsP7qvww7NTrett4mAXGNz1GcjGsH4Pnxv9mwegO87atWLzD+mc+2YyzgPn9
i/MrDG9lL7QgTrJg00fH2GtYPlOVfH9cSCzI054RMMbybbr/KGNpmgX76q4O
3MfqyVUi6/rNYn54ElTQlkZEYTNX5jfmWcA10GxnhvFxO6vyRegihqX0+3gw
vnRtDp3iobEgl17du5xFRIcEY0fiGSxIFU46tgvje3PXaojwCgvs+0erLfOI
iBhhdzidxQJvThv97gIiyt444Vm8wQLPTNtnZiVE9LT8naDKpjVIZXT1WH8m
InvPbVUVHGtgJGlimFhGRFJTI5wtXGvwrnZjKLYKi5+uW3yJew1KnD4GmdZi
8a+WmPTtWINjxwOczjcSUVb7k7eTe9ZgTs6I93M7pqej69bv+NfgAueN63Hd
ROST5ClqLbQGJxeyuzPxGJ82N9/07V8DiWsGow6TRHSsdsAq/sAaFPMcaOEn
E9G+Q8YilyXXoPWgyCMWhYgW5rVet8hg8Ueqx63WiAhvXGYZKrcGmb1W3Xg2
Eqr5oiB0VnENAk5yiDzjJKGEB6LJlcfXYFxQRjKQn4RUedYSP2hh+T8M5vxw
nIQOunuY3TmzBorZI+9K1Uloey95r8y5NbAsKjOd0iGh32/w8RkX1iAel2Ay
aEZCj+W+xiWarQHPxC7VCT8Sajdwjwpwwer3rxLa/ZOEyj5MG55yXYNXsyHX
OnpIKH3PDW7GvTXgSyEdKBvF5snQxQjX+2uwclhMdJVBQkIucuG2wWtwL0B+
WktyCtk9n3qi+3INaF6mutZhU2il2TpwT90aULrvHKiym0Ziprr36xrW4K/q
OfudHtNId1TpnmfzGugIfnjkFTSNXjLYb3W3rUEGsb/SJ3UaqRzMN4jHr0FE
hmfnZfw08gxYFt5DWYOP/8q2VV8mo3n5mHJeoXVIfHKkcF13BvGV+5bWiqxD
AaruC/9fw/UaTmXWxgFcUTIZmZLBJGwqRGaEhNzJKESEUgxpFzGIUOp1apRT
rwk55Hys7VhSzryWyqEZKvYmlETJae/HqVCetffzPh9/X9a11v++77WudXIa
GZqerbgkT0LGB78vUh7T6NZpnfxeBgnSLAeHXVHTSC36bUySJglmnIBGpefT
yOPDTsefTEnIO1xr339gBo0moSXJiyRoB0j/HqrGRaOR1o13/EnA7cE1LD0u
Ggt8Fy4VSALcdrr1P1Mu+nhiRVTmKgkq8zeMHrpw0SdZLTmFSBLEnAwn4xO5
aKIg11gzjYQwuYWOfxZo39EQrkwn4S8xlmEIn/aNxs5fs0gQOtnfICnGQ5Pu
b2x18knYsOZ692cFHppSkzhnWEY7+LuxuhUPcavCYixaSEi6tmnqQS4P8Qo3
WnW1khDod9z/fAnt5AxJ6+ckvLzxZs9KFe3LNRm2L0gw9Vr1r2zjodn9RLkj
mwSZTENl1yna6iH+Q30k3G7SD5iep/2LmK7zAAk3w+7ZWH/noTm+SovrMAl6
2jXz2WIEmn/6R4/7BAkJx/+TZqNK+/FMyuQUCXe6f9merEWghaKrp724JKgr
9qJyPQItRqV89JknoTWspdjpd9pXGMWziyQospx/mbekfeGRt/8SCXaCd8Kn
jxPoi0X318BVOq+IoPQiFwJ9NXBqWMIkhMa6Xrt5jvbuqbBgigQvvz79fV60
fxQRDRHBkFyW3ikZRFuQ1IXXYygJDeLoXSPQ0pxCYrgYhtJJUk8znEDLvYay
kRIYwsoZcXExBBLyHVjZ/xMGk8q500fjCfTDhsA3C1swXFFdduMkEkiqSKKm
VBqDyl5ddaVUAm03Lks+K4tB0UrBVCeDQKpDZgGy2zD9/8wxEM8hkHbQmG3v
dgxjylsKSvIJZFYmI2GigmGofVxYs5hAx8yqed92YjgpEqUqVUagU6M2XY/U
MKSuKRdvqSAQM4Rb6qmBge1taa5eSSAf6ZhYRS0M+p6fgk5VEehKFePC4G8Y
Rm5GaZo/IdB1qxazRB0Mu/PZEt+rCXRr8rSK+T4Mr9rW1P1ZS6CUyKW1QgYY
fFbH2rPrCJQrnzRWZ4TBZeP74dv1BCqp12j1AwwRxqu5BxsI9Nj+Re6uQxik
1o89qqLdPEs/dL9jmC58Vz9GuyOOcr57BEN+05BrD+0elSwDG0t6P1MBVmG0
3yI9WVFrDMq60xpT9PrjTuyVFhsMBkm7H0jSnl3yfXPFDkOG0WDIMr2/b4li
NXtOYKhVAouMGgKt1bifPOGIoWzn+c5v9PnEOw8G5DphcL+0pkzqMYGkmcO2
J10wjObFsXh0Por8YC0JNwyHv6oFXX9AIPX0LRIdTAxXg7q7XtP57t1byQtz
x8Diy3q+pfM3emXZpetJ53U0dF3+PQId9pooJf7EoLOgwFQsIJCtSGTsfV8M
fZbLB5zpejrlyV9w8ceQ4FznZEvX+7xBg9nWQEzfv59CqBQCXex3UHl5GYMx
t93Dk+6XyI3xY0YhGPCh/jqPaALFs3a1fg2jnZJZRV4nUJrJ89yK63S+eRbZ
FiEEKgtedd4WTffrkdSITX4Eqt6cZtAXiyHrhItcjCeBWh78Jhv/Xwz2/3rO
1J4lEPuT5xsyEYPR0odIY3sCDYeL1DxJxuBvug+nHiXQhGx+sncaBs+EcvH7
pgRatRmwfZdF98OLfV7T2gRSajbramRhWLzYVCMqQeflOFYaUIpBo5AdISNC
IJ3F0Fj1Cgwx388IPtDzb65abZZZhUFS7ETXnXEe8k9htF5rxnAkW2o+qpaH
7FKZXsIIQ7lfAmdbOQ/pphVu/vsphk3MkauBeTy0epfhnt+BgUfdWz0Tw0NR
WYwfOnswhF8t7dR14CHPbOYTWw49v1nB2f8e5iHLnMI/3vZjWD8lb6Swn4ck
8xiVxFsMudv5pKg8D2UWMhykPmPIDHarHBzjotAiJj9nks6rVXmtL5uLztwr
ZO2awRCfcSnq6TMuUmExvhvMYdjnvOxdXshFlaWM3LPfMSxn/KYZdYaL2h4x
ph7+yAfmcs6A58sZxKpiJulL8kHF3sRRvHEGxT0uNHi2mQ/PMgInLrFm0LFq
xt/9P/NBtYYzfCN8Bg3VMbSxEh8ijR/LvNg9g2ZbGKEWenzAms0v+f+ZRj+/
ZEiOu/LBYFpzazsxifSX+r64neWDXISdXA5nEp2Sjxl4f44Py/r7d5g0TKJM
X27ugCcfPuWF3pq9Qb+fEtWaXQF8kNAMvzkpPYl22pgdfRzNh2GrxZM5eyeQ
bu+F6OsP+fC67o8dJZbjyL6/Am8T8MFCf41z5/pRFF7ss/paSAB2TNR0CH1A
Jdc0vkUKC2Czr9XDZv8PCMtXfJnaIIAjW/eXi3JGEMujfKZ6iwB6RhlxCqnv
0epK6aCVmgCE/hkSipF8hwrliqtDHQTgYTJZNEP0o8UzBT7DZQKw/JjmNq7S
iZburtM9+0AA9y8v/rMzvgN9e+3F/1wpgHTDEfP8L+2IAu3bc9UCqL5yIcTk
eRsSV3xeuRYJYIYTtC7E/RnaMTq+qMoRAPuzzMeLfk3olJvqtcukALoDdmfu
jytEzunxJqt8AcTbWXJS7PKRa8+8WIQQBaPn3A7UGmYj94MNmbHrKPDMyJJL
DEpGAYqWzVmbKDhYUP+MVeeG4ke9qafKFJjrMfSYfXmA3CqjJKwoSD9AnFBZ
Ww+Nr32OjhyjIDYzs0lPqgFqjdV/enicAv2EDP94lUao2HY/29qRguj+Fu8F
aIbMwcwn8UwKxmslJDN+bYXLttFjP1yjQO2co73ijjbwR6bFb0MosPOdkHHJ
awOfPWt8y8IpuN3tLpwr0w5M8dBvFjcpELGImtqxoQNsX1zaFJdAQXZCzEbl
d52w+6DLAVEWBXvOuKql2nTBzko54YESCqqL4y3dG7qAsX3wBaucggre7D1l
RjfIYDuHw1UU9Ekcu+cx3w3r6829o5opaFnVX56KeAVjWjoZwhwKAgyFe8Vq
emA4d8GV009B3d3pPPWxHhj8sVKlaJAC27mAyibxXnjFVXt0aISCoDati5rM
XmguVuj8a5qCLqVVb/P1bKiXfh9/nEdB+/FU5XFNNjyJyrRTmqMg3zjlyKwD
G8rObR1p/UrBkMGUkXUBG+6z2UWJKxT8O6P1sqCDDfkmiV5uqxQszzw9cp7L
huxH1lq/8imwuLySlrKJA3cVNi5RFF1PyZul2ns58H8QmGHS
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwUVwk01F8bHtvYt5FlxhKSvxCSkMr7KxJCUqRCsqRUopCoUEibSpItKUsl
CckWflfJFmUnyb7vyzBjRnzznTPnzHnmee97n3e5d96r4HLJxp2dQCDgnATC
/7/N3cea0Li74eEOVL6iwIuNZtu59JKNARqOD61U8mAS/G1Rn8hHIXBlUmHZ
gwfT2Lkh/QXZDXgP5n6Z/MCNGTRuz4km+wIHjy7Ga0DEUOK3HQ/JYUC4f16H
eZQDux16P+AeOQbOnMgNEjBnQrnMmQK7khgQVQw/8vg5A+iFGFXx5DMY0Zs8
9Xx4BS7MLF36khQLK0erOuE2HY6edPaY2hgPnwyqm7y+L4Hyjh12VsrJ4KZS
Y9x9dg7cfGfJd8lpYN/8M1to42/YzhEdmOedBlod1gb6t9qBPVrnz5/qNDB1
9dCmTLTAy4/XkjT802Gu15w75XEDdE1wbGxtzgD5+LWhv2yf4NBpKaWND96B
tR9Bz/R1PS43VxJmOvgO6OiyJiQ04lM3HYd9DDJhbHbh0+O/zfi9pNcZlWOZ
YG2zZhtn04FXdqhv8dyfBVIzHuEPqL24gdVejc9r2RC3Q/NiHNcYzvN3MKrH
9iP0DU3ynKSP4R3nI2a5P3yEtMSyvO+j43hJpbv9h605oGK/Kf1a6SRuP5BJ
JnTngExF4ofs3bM4vmW1NoY7FzIDH/1h45vDlX0sA7dsz4XWHR82jV2Zw5fW
Z7ts7uWCmzjtl8O+eTxadkdSun4eiAx91UusXcAZbhEWBm55oGXZKN2pvIif
zupY/fkoDxh73uC7bi3iWrsCHekjeaB0z6by4nYq3mCPyx189glMlt5s2xO8
hOukiPzqRZ/ATtd0s3fDEp40ejrYd+oTYL8+GhSRl3FPf86+F0b5YK0gxBWS
tYzzxJi9mpvPh6J3dnUlJTScqd/PfEX5DPmzx9DBJRo+8zfA7ojRZ5ihaN1X
0qDjLf+95S+I+QwWCge+vE2g41X1cMaj7DPs1hOrO/yTjhf5dCCpkc/g+18v
wZCwgid/IfoH6RWA+q+MT3+cVvAnzsmN6s4FUPBEWvv+/RU8jEtXrSeyAPTj
o/5eK1jBzx1y78O6CiBOLWqXKDcDd6CuGiywF4JTq7F5kToDt4qPeZaqVghF
ivaGidYMXGfwmznxRiGcdVjlIz1l4P9FnkwvTC+EM4gvIS2XgVO2Lq6f/VkI
vlkBQd4/GbhA870TFFohaAz0KvuNM/B1f8XPPzYWgcy03sY8dia+IF0ifMO0
CAw2/V5QpjDxIXTYU8OnCGqcgne1aDLxDvfxyt74IijwtkguMGLidXyhG598
LQJ7i7ofjbZMvOyjVOC+ySK4PDkVrHCGiecczWldFCsG30mxW299mfjrlQOa
6buLQXGQP909lIk/S+69a+deDMo+wtX2D5h4pNHVIe6oYtDmqGkKfcbEA8eE
oLigGOpsrUr6kpj4xYcZ8Z69xVCepRrq95qJO2sbUqV5SmBf5VFtLIOJH+lo
s2rQKoGEwO3D2FsmbnL94rubx0sgTjup9CoL6ytwcWrdKoGbM00jQyx7taok
p/7MEujeFPYiMpWJy53XKY5uKYG+Aw2bXZOZuIhIvZjxagk83rCt0fc5E+f4
7Oq1pPQFaiIS6GVRTHz5OLMmw/IL0GOOEyGMiY+vRW+y9/8CE8nyF+hXmXh3
qupN3pdf4EQs29uJc0z8p+nXzpLqL5DR52kkcYKJV0wf335h7gu8nt/UEmTK
xPOj5x/Kkkvh3kszmvQOJp6hd3fs595SUNYyP0nbyMQfhBa92Pa0FLxSSLUu
cww8WNmaPvClFOZalV2obQz88o9Rm5ihUqB+TTteWczAj4lL8tB2lAGS2bCm
eJ2Bm5dku7x1KoPIMpmYTycY+O5TJmXH75RB0s3cExF6DFzxnd/l0s4y8Go2
r1qeXME3WAk2XGQrB92DPh9iv63g3Itp/21ULQfr0ONmN+JX8Kndrd2hQeUQ
EbHxxSZsBS9s1D5wQA4Hmz0MXkYAHY8anzJVN8EhR7eaj8eYjp9hf2Mu6oWD
y4hHRIAgHZfQkbb6U4aDvdehsYhEGv7lR2hmoQaCKaF12/C0Zfy/Tie1zH0I
pGxGRppdlvGnQ7uykuwQyPipjzzauIyf/7f0IfQmgonbG11OxSzh0pqeuQd/
IqjMHf4eeZ6KR+w6oG04gMBL7shquCwVXzig9ElrGYG8t8cq289FvM65J19c
rgKotpTim6qLeGC0TVHvxQpoBMK36qZ5vGvJAL8i+BV2l2Yr7Sicxk3YpbAz
Cl/herVyvNL0FJ4ntITsd3yFLAe81EF+Cr/338evexy/QtyFMt3SmxO4wfFN
VdwfvkIjOT3ul/QoHl/K35Bo8Q0IWxRXrxT14va3u7u+3a8EwtELth/q74BI
n7K6xysW9tz52r7qLdTu9rnBV1gJzkyHC5y9n8FgmUv+8EAlhPS131GLqATp
c5ruPfrfAd09QDgl2Ao9Vrdm6cPfYUN39TRTcwjcKCqcGlg1nFS3O0/tpsKl
3Ctb46i1cOLCHp6uTi5sZnd/Sy1PHQS5zlvhGkTsQo1VIFOmDsjVpw4+DSNi
Z3u3VDvtr4M4BuPamiY35izY57w5tg7ytk8fTQ3nwazPWcTk6f0AwTs2crqq
/JiWwmZmfWA9JPHYWcQoiWDZWdGv1qLqwcaMw9HaQgRT1yeYaqXWg8VP0lLf
FRFM5dCfmKc/6uGVQtKToK8imPyNJxonZBrgzif76GuOopjo73+nR8sawHKz
peDnuyRs4XF7DRvbL6Ax/pocyt+AlV7IhSGJXxDyii55umMDdsf0QUGV+i/Q
eJd1TZqxAZMh7Eu7b/8L8CKeiHBDcWz/pQ/B4jm/IM5BzkvkmzhWr7wvMUaz
Eb6evKYnWSKB5cZ8bA83aAQ5/2zO7R0SWCy7LOnq/kbIslAYH1mUwE730CKP
n2TxjeX6YuqS2PKzD/5yd1jd8rnHwe25JCbPRbZ529MIlGjpP5uPS2FcVyIe
xo83wqvqtn77S1LYRN9izT1qI1R5pDtLhEthn0t/wkW+Jph75Ve/9aMUZu4b
tlVbtwnuPrhlWPJPCtMcmD+7aW8T2DgzG9VFyNgG61NpGyyaICvj+h4lRTLW
q2YgTTvdBGvpAeIvjcmY7+AsT+nDJqiLUor7dJuMHT/saPwhrgnePVku3hVN
xgzxuuDkVBave2/eKIWM8SamL4cUN0FC0oVbzSVkbIZHTPtyZRM4lP1tPVZN
xlr9Qy66/moCYpmD5skWMpZsc3Jo/3AT/EjeL9E1TsZuo5qNenNN8J9XYtFR
Khk7q6F7UoXJ0pP6N+rgGhmzSkqNJRObYcBeZms5NwXbzifazPqAxXFRtSwR
CiYVcFNwVboZVOU3KYmTKdja8KTptHIzDBZ4FNLlKVhNRRX+a3czzFaf2qWh
ScEy6leHHh5ohpPJndquOyhYeIc2n4VNM0Rv2GMisYuCuQ2c1eRzbIZ/o0fV
DmAUbN908tEaj2YYsXNJXDKmYPL01msRl5thUlzpiIIZBVtn539pfKMZNLZ2
kOosKFiP4N5K9shmOFCmnzx7iIKVSl0dR9HN0Pf+TukTGwqWsOmDUPCLZljW
i9DPOUrBrmkMbt/zthkK/YL6zO0omP1O8nFmXjP05upEnD5GwXSND90sLmuG
jFLi+iILbzgUnnq1hhWvzK9N7PYUbPH4l5odLc2gr7zUeJ/FN7vNTy/+bYYE
tvMjj1n+ci79J5Y31gwlUdkHRG0pWFSgo773YjOk6NX9EThCwS6GP3XUWGsG
mze2D29bUzCLx7W3pnha4PpZf3M/Swqmmrj+JlOsBS6f7+McYMXLk7Gj4axc
C3hfac+t3U/BRnPOLyhvaQGt86rm6nspWNWXV5LD21ugKGVPHe9uCpZW1bE7
1bAF/MYI2i66FOxWk6DLabMWiH5DDduhRcFOdxvd2Xi0BZK+q9Td3kLBsNFr
WX+dWsAxfLeApSIFk1v42JR4rgWI+52OP6FQsNXV4eXjvi0QtfngN2sSBfvD
LSMjFczyH2916j4vBYuTjTwTE9MCkqb3Yy4vkzF/lfL7Ni9boOGdrOfGKTJm
u52aI5LZAucdr04c6CdjJDNn5gO8BZSuatwXqCNjc0di5Q/WseIr2Mn5royM
/XKq38/b1gK16e6/K3LI2ANf/cfhrDn76BYT73PPyJhnsNdnoyUWJnZm0CPI
mNm9tC42QitMCuzbxBVAxogpIptvireCf8bAv1h7MhbyY6zYH2sFc3X7Sxli
ZMypXa5X52ArvLGSm/+PjYzt6T/KuWjbCvaJr7ZvmZHCGMvI6tL5VmhzmryW
VSWF+SrGD3rEtoKMDdOowkcKs9n6i0f5VSt0pq1OHjwphW3T59IYet8Kcms7
3x83lsJmLH0CnCtagZ3jwwmCuBR27pqZ4PGpVkj5IpMRmSOJZUqLOjott8LK
Q79b7HGS2FRZZ5YroQ26rNtMxYIlMS/2sxZeG9qA/+Vhf+ZBScz3fsT927vb
ICQ2TYjaJ4EFv/jGm/2gDRQ7z/5l0sQxBPePf4ptA+8Nfb0Kv8Ux9gGbd0Up
bTD+guo5WiyOhSkPmH7LbwOH+cCnRwLFsXsfCZGd3W3wSb9iqWJ5A/asYg+R
Y2s7SDW7nnjQI4a1u3LZ8ei1w21Z27srxWKYFLEhXXBvO6TK7pIVfSaGJZg7
7JeybQeR90FX9pmLYSktgWFbb7SDMq+X8bccEvZ+uJDdvqEdBOxx4qyXKFbB
q72edbEDAksdanPPC2IqR7UK7wV0QElw8dvnPILY42SNS2dvd4BjydQPapoA
5rxdrXdTfAe4Fgamy3XzY2sOSnhCZQfkT4YM+hnzYQY5EsGR0p1w3Ssp0mOd
iOXbMddcazth/a+ucLwWActIrVyjbO6COf66nMWqRvAOP9oPml3gpsk/679W
B7s8hr657eyCrMEWTjafSmhU5bybbdkF8neP2tpe/gAruUZi+/y74Kxsf7t1
9lfcAn3971x1F1SPNysb3e/HF7uRdeG5P/BaNiVFdNcSXl5uvb37yh9IsT1e
Gra6hEem9Imz3fwD2Kj4sa1ly7iMG+GPefQfiJLuzBTaTcdNJsG9p4TFZ3ra
prDm84SV8mtcAt0weFJxbZ8fAWESZa+PZHdDQQzxhHsdF+J8Jn5pfxGLz/EN
3kQmohoxr116X7shrH6QauJBRIdEN7ZS2rth39/I14Vs3MhJIJRr4F83yGXz
J4pr8qAg9v1nvS3/wvFXggI3PPmQYegLHZdjf+HbSsrnnmw+xE5YJhw9/RfC
72R/jlrgQ/f+ZcTr+f2Fu9I1Ea1X+VEcnefHWtJfSGksorVcE0AFM/VbH079
BcmsbXdjTgihwIubGTeX/0KOIPWh6VMhZDh1o8qb0AMtaT4b9H8Ioe/jGqeO
bugB7zvJD7/rC6PWocePpXf3gMGu2H3AJYLiXMcdBE16QIEhf+aanAhyGNi7
Zf1QD3DMSnlZ6omgwd6FigHXHrg+PnauwkMELXQdXXx3vweGuT5ZNnwTQQXH
P+CJz3ogWfQzqvstggI7uR48fNkDfVThVqdZEcTWXqDk86kHQsvEz5qRRZFI
k5Sd/p8eeNFUlS53VhS1HvJRVB3uAb3tvzyrA0XR85+1M9KzPfCPYLyF86Eo
kqsPvLPO3gu9FyO89HNE0dbq7qIq1V549OhtVti8KJKYOT/9eEcvcH1VeCnA
TkIEcabCSawXhiXvrpFIJNTqQr4/a9sLFT77V+K1SKj87lu82LkXRt02SFGA
hN7m6FFvn2fZv6vJlLQkoetrto5Sob3Aw7/lxD0PEjqzefjJwP1e4Hs+J7F+
hYSsLXyrsmJ7QaC7/c5cMAkpJURr7s3qhQttldOmsSQkVKHgxl/YC8szuS8/
ppAQfTQnrq2iFw6a3QuOziSh+h2/2Dw7eiGGcdOzvpSEChycdHUGeiHs1plD
m76TUMrtac+1qV4gpjSKL9eT0L3M6y9raL3gspT9ybiVhErGuDzN2PqgTyRa
UfgPCWletwzLJvaB48N3p2z7SShN+FmymEAfXCZXnpccJSFyandRgGgfGLof
Omg7RUJRukotfyX6oHj5GFF4noQ46s5P75Ppg69DkW+Nl0gowPET91uFPngT
oLZ3mU5C03MMBcH/+uBsgfLgplUScgnbt/uyeh88/7GW1rBGQh2S9+w6tvVB
k1tryiJBDFm8b/LerdcH7BOu1GfsYggZku+/2t0H8IqzIp9DDO1odk4n7uuD
U0Vv1Kw5xVCm+1v8/AGW/h0dDmdZWG5l9nejRR8ENOSH/GPZP32gR91h0wcK
qfQqYRbmkQ8WSjzG0jsx6/KSTQzd+FSlQnDsA1f/oPtZ6yS0YCJk5O7SB3tV
hIL0/pGQR5etY51HH9havL+EMUio++KLq5oX++Bv51Bm9TIJHWYbfhJzuQ8W
nv32aVggoaoY9ayVq32gr75d0GaGhHap+FY53eiDSopSre04CeV8+dL37VYf
SMe4L3UOktDmQxxMlcg+SNi3Y/jPXxJKGDAXj3rYBxuoNrNOHSQUxttlZh/X
B7GvF8tHakhoJUnBrexFH+S98DSaQiTkpXXupmJqH2QZkZyvFJGQ/TF63tSH
PhgMX+biySChhgloOPypDwQJv85JJJHQvpt3RguK+qCgjlf67RMSUk+XkAn9
1gcPK/2wY0Ek9ErfSXekpg/CDt/N9LtEQhL16dYHf/aBlHiZJdmVdT4WdcLF
f/eBHs3SesGUdT6wIzPvZvqAQBzxYwiREOPl4Iu8xT54IdGSd5pAQgrrVyy/
0Ptg3+uNw6dZ582rLCarnr0fLA/HqGk2iyJug3bPWYl+2MBcbeF/JIo04s9Q
6NL9MOJZYGh2QxQdpS/XEhT6QU6c0L/pvChKKZDcQlLrB8fYCMqn/aLIYPvx
UR3ohwZeJW7zZRHkHD0eu8e4Hy6FPP8W2i+C7sxfMzEx6we+XcTHJ+tFUOvH
hPRjR/rh4JjwHC1FBF1U73YN9OgH/WcZniP7RVDK5lN9+KN+CKBuundhTQhV
hc0+qonpBwPh42e+1gqh6cFgaIpn+bu0ReBKjBAyeJ2SPJDaDy/QtpmJ/4RQ
i9yAA1dRP5Df6vmfPiCIiFLuv837+kE6s1T29zl+dIHvfHOb1gCkpDO0Nptx
o4wyiQJz3QEokHtye8c/Iur1/hqP7xqAUMbv7VU5RGTTQT79zmQABs4+yros
QUT6aTWz1x0GgAtmPxt2cyJOQ2VBpcgBWJHo2z94hB0l+fQfuNw7AHPjH7n/
8DPwH53HyoSiBiHgv49ypwIb8Vtdo+KeTwfBfnI2qeL1D1y/+6rX97hB2PBp
pDHxSBWe1vt84/XUQbDeaEehXy/Er490hI4XDUJf5KMn/OF5sJV6zKRycBCo
XpcPfdnzGx4J2/+6tnMIJI5xvOgTnwMT0bH/2gyH4GEwkpzInINVUkCIlvEQ
BOtu2btiOA9nJeK2jVoNwb4ricoSbguAyXY+Peo2BMacG4PqXlFhXtXeXvPR
ENwzsufVH6XDW/WxnHsxQ3BG7nhaqOcKOGkE8I7ED0HWk7Lr96ZWoG5bXElS
2hAIS3t51k4x4LV+pwxfyRDMHGVru/d3FY6Y2PcPDQ3B2TMjtccMCViJ2LZf
g+ND0NOcf+KUDwFT7OctG5gZghje8GKUSsAWgr7E9dGHgKK6Y+t9Ihv2OFfO
ultgGOKI/IOSlWwY/SZtzx/RYaiKeVJeNc+GnbJoVOuSGAb5F8KelXLsmMZo
KHen/DA0j8wT3vizY/Uyw+UtOsPgHeP3c1iWA9OZKMtq3jkMFr7Xskb3c2CJ
hbEJTYYsvLPTU+MiB+ZpY+r/y3QY1uz9h8KLOTCeyPdbfzgMg+7yH/M9ZpyY
t22YdN3pYaA0WD4wOc+JdSg68taeYelj0v7cf8CJZZQJDVd5D8PUjxcxVfWc
mPGiT9LXsGHY80qc0WfEhWUh83sVd4ch/mmq9MdTXJhY1KYAFDUMpq7yabmB
XNiAStuR8rhhmFB76mOdzYWZL3/YW/ZiGB6zxxAnq7iw3G8RmqWvhyE3P/V1
QQ8XFuKkz1+SNQz8Uv9V/eUnYmNqoitFucOwUCnzXU+BiB1aGR8pLBgG9QSN
EnwHEZOLSfz6GQ3D97WkLDsHIhZx2jcn/ztLL+OOmZsXEZvRsEz+VDcMTx3z
pV8EE7Gy2rVrua3DkHk2qf3hSyKm9LzDI+f3MHRpX7tjnE3EHrjl2H7sGQY/
yf5/m0qJGHXbXaPswWEYqsrJVKslYg7rp7d9GGPZZ45znGwjYpX1Bhuzpofh
rPbnsNw+IqaWICb4fmEYdNY9PmhMErFojynGO9owxCyGcTRTiRhD5/vY29Vh
iFJAoon/iJgLe3L7G7YRsE5gO3uXixur/eVfmUEcYZ3fs4lJAtyY1otDeen8
I4DlHDRpJXFjcZ4qKWkiI/CKHePRkuLGCPpsUaniI/C1QSLioww35sHVFfSa
MgIuhIFzNvLc2M/mvHOvNo7AfPOSi9Qmbkw35f6xFKUR6C6Z2My2mRvLqQi+
xq86AllWk3+llLkxtcErif6aIyAwoleoxsIZnGfL+nVGQC8868xOlr28skOv
hcEIVNgGvN3L8pd4wJqtCEbAK3EjZszaT+Kc8aZN+0dAwe8GHWPpeXxPf3+U
+Qj0nPueqifJjfFnqXusHBqBbxVh0iqi3FhEg/xdN9sRIL5PxUh8rHhmN7z/
dWKENYefYS6xcWNBIrwNBs4jINN1YVcLnYgtb/s3k+7OypfXZ9q7GSLmfWRe
RPT8CEwIJmoEDhKxSd9h7everPi824eNOohYX2GDv00QKz8POUUrvxCxk78r
4spCRkD0t8HnwCwi1s74XKISMQKePRYGaklE7Mee5LW1xyMwci0oLjCAiJmc
ipb3jGWtj/3UTXYnYigkYl9b4ghEZTM7PlkTsYJvXhHvM0ZAe+d7ym8lIqY1
7PJWImsETjj/5nYXJGLvicfqQnNHgDM4hTZF5cJSzEDIvnQE/mscDFxAXNj9
X8KxnM0jUBqoPtlnwYUR5zmKLnWMQHb2n5jjW1nngUT/3dU9Aop36nY0C3Bh
/rZ9srmjIxBwnND/vYYTc/6Tk+74bwRM77cS63Q4sT+radU17KOwb5DHxVaQ
E7OTix/fzjMKZkF6fiNDHNjB06Fb+cRGoVnKS1X2CQemO3r4c4HKKNQEC6ss
/2XHcnhMOhQ0RuED0+dcTTY7pqZqsPJg+yhsX40ffnOTHZO/qLjH1XAUHETu
NEdLs2P8iwuVwkdZ63NVOvXM2bC+taetZ4NHoVSQPTSZtgYCU433r4aNQtoZ
73+HwtZA/7egUcTdUQhkah+8IbwGjz/dyU19Ogrm3YmzRxX+AXY2KKrnzSjs
NmXc2LOdCa+aXEyPNo4Caxjk3UWigUvatlJQGAPsXSQ29GoSop54XbFSHgPO
zAmXTrcJKLn5XtVRbQzy9SY3Bm8eB9LxzfGBO8bA7f0wOyGF1XeCZP/PZqz1
jxK+PA3sB6WrBC21yyy8NaDXbNsPGDb7lSrxbQxEYm88DW7qxZXu//foSc0Y
fFVMVMkI6cfd6oMDBX6OQeRIgZY8ZRAfsNI6zP6bZe+w7XPa4RG858iTtemZ
MRiK7Tv5rWkK73Q8cvw7ZRwutbe/Pkdcwut8OoR8L49DKNuP35KmbIj3kyZj
5uo4HHrOW3fyMxsypd4ZPndjHIzaycHvFdlRtb9+6anIcTCZSPvi8o8dVQbF
nzuYPA62ax+5+/I4UVn4yUrFunFY/3yI+USaB+XE915rUpiAkFcGQXW/hNCF
LTJd2v9NwEjEjxURPWGkUmxvEKM+AWOiK0L8ycLoZWcTw05vAub2un67s0ME
RUlWBnVbTMDJnx98Igmi6OKztzdGr06Au8sP05MPSUhl8/Bf0xsTgJrHkgnl
JDSUr2CYeWsC6hcUT55nzacOrQlrFx5OQGXhuvQDK9b8LfYweOH1BGB3EvI6
+Tcg1Sc+of9YQ2SdfbT902viaEQ+u9+pZQJ6WvKk1tPF0eucib2ocwJI0iGO
ss3iiNLoyn57cAJURx+vXdgigXiF7W7zrEwARbi4bWerBBp7YBAupjQJSjHf
yhLIUihN5uqw75ZJUNil4/QBk0LOWZ/2t2tMQgnKeHvaQwp1/FAnxu+chO+H
7I69/ySFqvg23pE7NAk+dk8vvD1ARumRHHe3BE6CwAWv59cdKIg0FHlTI3gS
Uivdr/MHUVAICPluD5sEFZvspl3xFHRiWerUnijW/sdomjdbKUjYTWPH4deT
IBXwcOKqiTS6jn9StXszCempfJcJLtJogrJT/mTWJBg9OHhu8w1pVNlkxO9e
MAnmNoOH9+VJo2twvD+gbhKGXFR3FknKoJGEnvYbvyZBhz/CYYOWDDq67Fp/
q3USihQ23OIxlUEaH7wKH/RMgq7kxroCfxk0SAl7mLIwCdpz26Jlf8kga3/e
2+m0SUiSTmeoDcmg8qaogMzVSZiiuT/5SZdBcZHxrvnEKeBvq4n6KS+LLJez
d9ZQpqB/5ql+9nlZVHJYR7Nh4xTk+UX72NyQRSofipWalaZAR9Ar7U6ULGJ3
qxTu1piC4Ir5h6kfZdEl3Iyrf/sUUD78F3sXl0XdlF+MYf0puOt6Ytf6T1lU
2PR7eHbfFDQ+cpKJm5JFSltP/aEemIJugfvlJQxZFB051LhiMQV32LzqzvPI
oQsw+4Xj2BQYBkzyBCjKIYUPnNGS56egmVQiqX1YDkXx3Lsj4z0FMqraU+ik
HFp1Fb6h4DcF/pTT+7rd5VA7hXJWLXgKPpZcyysMkENG/i8dtcKm4Prt05ev
hsqhnCalIzvuTkHKlbX1r3fl0P1ITUN4OgUlAkPTq3FyiD6Yv904bgqYwR95
J1/KoTNgsMXsxRQom+l5umXIoZYEXM7q9RQIU1cXz2bJIWzZeMORN1PQG6Eb
Rc+VQx8O1/HaZ01BkfgvRbFCOUT5cGjdIXcKhvZ7JBd9kUORPG3U0wVT8BbZ
zo3hcmjJ9cTEmS9TEP3sDV/aNznkL8YU60SseLeyi6tVy6Hlr4l7zKqmoOOG
/R6VOhZ/ebdHyY8pwK/kX0+sZ/EKfx+rNU1BdlXfr7CfLL7pRklSOwvzntMb
+iWHaCFyQ4LdU5CTGl9Y3CiHArRwweD+KRjICrbnamLF23tKb25kCnbnjm2u
/j//iHD69NQUmNi7aK6z1tMNX91rnp8C7YWdkR9Y/gNm9uYb0aZAYyLoQDNr
/5UXA3/zV6eAR27xzkWWvkDL29zK7NNAllY5G8zSz1jdtO059zTEYs58PJUs
PqvyBI/gNGyqTorhRiz+pHvYNdI09HyI17rJyk8gPzF7QnIaqh/U818okEPM
koyOk7LTkGTheqwpRw5d9zzA1qA4DbqV+0yzM1n1J4+pGqpMg/MuLkmONBZf
G3n049ZpMG6hr/9KYvEBW27Kb5+GgFZZI/Fncuhfh2cTu+E09IpfnOANk0M3
7/AzrxhNw9gKW39xoBxa081SGjadBoEr8XaD3iz8bPpq9ZFp2Cc5w5/G6reb
+6Ne6R+fhs9udsxd1nJonarx453TNDx5Saq1MpZDhKPecg/OTcPPo6URI6py
KIRD1PSf1zQUvDcxuiArh9g+5fp4+U6D1oz9VS9hOcROWqy0Dp6G1eE84sS8
LOJo9Dsv/mwa1pb3N9TlyKKwYIlnEQnTsLyTqbf3pSzi1Cwsp72cBo3kwzS9
hywcRRftypyGVPHutLcesohoEVSUjKbB1SGmOUNCFkUwpQeEq6aBt0O2X5ON
xb8v5Q/9MQ3eqfzreyZlEDffmpNr+zR0twYTp8pkEE9NCJfK1DQkk23NXzvK
IH7jCJtcyRmQ3PnSn3JHGu3GL4lWycyAOtH1iu4FaeRlcLyxS2EGtCmTifPW
0qhZS92KU30GZvvDdUzJ0ihBttnsGDYDey94n7qXTkEqNNm9/87OwEcb9nc8
H8jIOPOzplnJDCSd++J574Yk8t/8csYRn4GY744q/PaS6G1K5IfLlTNQW620
Zb+2JOJ/flIt6ecMFOcOfBoblkDNt9n+mx2YAYsbIhE85hLI2dFS7hn/LNje
qOsJI4qj6yLDAv0Os8D2zf1LxDESUu3Kw7pPz4IAv3gFU42EfqeG+HacmYV6
NLHRgkBCunoy3Q3eszAozSTefiuK5hyPvC8JmwVztkq/MzQR5Pq+wiwmaxYm
S8YK/mwURuYmyREHVmfBPdYrvOUML1rl1nV8RZiDOe7YoQw+XtQ6JUOT45iD
W1Wh9b7ZPOhWwYQqhWcOrtiJtvAsc6Mes4hoEdIc/H1OY1qGE1Gcd9npf5vn
4Prwm4GtGRxIoFyN0GE5B06Z/WmOhFV82kI+/571HMzSTWAYmPjPPxvOGh6Z
g3dBXmyEEAb+aOXfr3T7Ocg1txjiYF/BSTsaX/q6zoHsoV+X2gWXcaksXyBd
m4PW298F5c3m8BWDc4vfg+ZApFgpNlxlFu+qdXxz7eYcHN0/+fspmsYTR02E
+2/PQYicRdG25QlcbhO592PUHOQ0/X4bEjCMKyWU3bRMY2Eegbkj39pwri15
2mxv5gD1GHD3bmvBRwozRvLfzYHUmwqKcnoj/qbtkZXMxzmQ562qdtCpxlVF
XeQmi+eAMKxyLZuQhGtFEssjf82ByudZw/PLjSAqyfTZ3czaX18gcLtOCyyk
z26ea52DuM2lXPoX2uDTt86Hx7rmQP9ZwvPiut+gu57pqDzMyl+L12mCfD/s
8T/07xtjDmriM4JS1sdg2XMsyOzfHAjsdik/8Hccck6FMn6uz0GnhxAmUDQB
imafaL855yEn7hHHbzfWvSYjuTArNA/UzYYfVhJm4atIjref6DxgwYf2h2rN
QRCX2SxDbB5aFwpN2aLnYGYmcIqLPA+vj9B2nbdm/V7RMyK9aR6Stm3UfV+y
AFEFV91fbZ4H/4Gf56xFF+HAe5EhZZV5GBOZvO98ZhFKYvb1b9s6DyX3v3GU
8FMhxSPjzwG9eegKH/glZ7QEJxzgRMPOeegJdYSxB0sgdriz02b3PFTx//UV
aluCCAO+dse98yDwea7X03kZLgh6NV45OA8UJFe+05UGyuzch1Ys54EwFSKL
v6RB7/LLhpssnY/dCdnPumhg09dUd9d2HqIPfDy17SAdBNo8zYTt5yHrrAyF
GkKH77UcNTEn5uH6tJY+x2c66H/a8f3lqXlQcrM6wC61AgtvfhptdpmHuZ9b
/5szWYH3SR5fM93mwfg/L1Nl3xWQi4jHP5+bh5E4x1SP2hXoDNQ23HVhHmRO
7Vf0mV+BJ5d+lCKvebBb4L2ISzKA8/i/4h9X5qHghcrZ/04xoNwyVv+w/zzw
TX/PhxAGXN2nWdgeMA8hoz+5El4yQEuvZodD0Dx4HftSuaOMARNqp/P7b7D0
MejupN8MSJNnaHuEzENz/cxZzUUGOIo/zZ26NQ8uEgT7B/xMaFyrzKbdYelb
XT/BqceEe4uOW2/cY9UPSkrkzJlgNLb8nv0hq17BaslXTzJhtfuRauQjVrwN
NVVC55lQ0KTyTjB6Hm7piLANBTDBu6riv6cx8zA1fleJFsaELV9OZEg9nwf5
PbVipo+YMPBxUSk5fh5E4GJp+3MmJKU9SN2UNA/OKgqSqclMOGW0fXdv8jwo
H3/QypnGBMWB360Jr+Zht7Fhge0bJgyHhFy0S2P5c+/oefaWCW83/kckvZkH
qz6dkO8s/nx5Q3LDO1b++S/9GWKt13D01bubNQ9rER0Y9SUT5pmURuOP85A5
tSxMjWNCfkLFWUIeK16Be4VDLH1Xd55lK81n5Rvd/FzF0m/QKZRwtXAeeCzn
YhOuMuGf/2ft7SXzLL+b6M5nmYDEHX7MlM6D/p3QMMoxJtzOZ3fLxOfhxPmY
5WojJpgcebfq/nUeMlwIUp4aTOBdOPRM4fs8JFfcrGCTZEL94+Wtf6vngTO7
o+vRPwY80nxRFVc3D4GRf06IDzDA5qfRqaMNrHqPnzzwtJIBnfxPHv9ongfV
vPnq67cZkJipt+VO2zyUnzqfN8HqFyeznop9nazz8B+5wNaAAUMRaovFf1l6
XZ2Oq4yvwJvNzff9+uZhg6NEVXTZCnhWBihtG2Sdd1XNkfVHKzDHVmX7dmwe
tGafXR/TWIF/152LYhfnwV6au1PBlg5ImvuwzfI8xDz1tGok0yGs5MO44Arr
/vC183zUTQM+OoMSvsbqh8DbLw440EDiyrMbV3gXYEhpo90f42X4LbpbQlNg
AZo5d6yYMZYgKWcge0JoAa5PsFV1fVgCxRnNvtMbFsDANfHNBeEl0DhXt896
4wKkvfUXiy9dhHlunz/8igvgfaNZzdl1EfIzJH2rlRag28DHzYlnEQyG3NIN
VRdAQAL/yG+5ACan1rm37liAmfDq39crWP8rtjoNvAcXwF7qrtdK3gQ4S1um
FLHscro+NTz/OQ6n+92veFgvAI+Sx5TKKOtdffE5+bvtAlgPHFgzFB6Fc+EM
9xDnBVByVzQk7B4E389obdlvAUTSDqY/lWmHe+KWWkMpC4CqguLLa+vxB3/c
OZ6mLsDZJYsYrKURf/jqZvvejAUYG2zwLtrfgj/emnP95XvWflkNnq91O/Fn
+8VqTxQsQF9P5DG1Tf14it/v000/FiCz02Xz4YhJ/HOb+9Py5QX4foQnqCyT
jj9m27QNVhZAKDQz9+XhFdxza99PnLkA5QstEt30FVwu/ARfBWERuk3Fz9mY
MvEInUOh3/gWQePgxsSyiX+43VP9SzVyi/Bqem/TcBIbolnzH2w2WQRhVS/X
nfNE1Hy9ZszGbBFuW8WelDfhRllvwyNaDi5CBVe29mwCN3ImEL62Wi/CxRSP
5l3GPKjmI1W/48QiOAk8Nz36jBfFCfUod3stgk9oxNJLTQG0sz6HfSR2EWJD
jLiGEkSQzOugkqT4RdhGpFXyfRdBhACTy0eSFlnzybF45owIqtnU3Y9eLcIf
kpKb7j5RZBfEXZGYtQjpD9JEp4dF0WVVp+DDXxehs2UwylRBDNkRtujxfF8E
Bd6rsYEHxNDO9sWZ8upFOL3iv+5yUQwRbt11Um9YhAJ5MLUpEkOPfufv4e5c
BOveW2fvmW9AWZH8q6XTi3BFkBzmfkocPXZq/3RlbhHOhKV+8AsRR1d0Xp1X
XVwEAee666qvxJFBn+6f5/RF6LLaNnOjXxzV6rmUXOagQlFrUNdHRwmUJbj1
8hYiFdRfzHXXBEmgx4O0LX08VCinLdy/GS+B7B89jLcUosJzC97NpS0SaGSk
KECFTIWR5CqbM0aSqK70tlavNBW0ZA4VmDtJog/RVmPP5Khgxat3rTJAEvka
Dh3jUKLCUJhflm+WJOKIFdbr0aBC7JXz9jlCUmjkfNdMzDaWnoB4bRVlKVS3
Nz3joA5rPbOnQ2OPFIqeNpAo3snC3vxXhs9JIfn9Z5aeGlPh4eLs5sEyKdQd
0nZV5gAVdsc80fZqlEJxpcaMNDMquOXyPn0yIIVEdTatf7aiwpzYU8WXXGTE
vqmPp9OeCg03PtRXmZBRudOh+84nqYAIdwu57MgoKKFccNyRCu4Ztn873ciI
KvqCxHChQuMht387Q8lomHBCRuYiFV7HaJH/5JPR6921yWmXqJCzK/HIR0RG
TgH6ClsvU6E9OuHIhnoyap+VUDa8SgX9ggvSj/rJKFot4m3VNSrw1VzYnDZJ
Roc8llQPXaeCTbHzNdMlMqrpadF0DqVC3Gh/yh5uCgqjGOWN3aaCVzex/qEw
BWF2eTo+EVSQwY7MnZekoNUnCoUrkVRYXDmKOuQoqLjh8c5b96kQ43N4vnEz
BfnzEkr5oqjg6HZg1zF1CtLef8nw6WNWfd/N2XtqU9BMSA+SfkoF+dFv3Hz6
FJRZammU9owKB7WXuXX3UNAZeul39TjW+tTrMjN7KWiTjrrp5wRWftsE+bVN
KKjvUmLdnhdU2G63KYnNnIKS3vNZVr2kwhgnM8HBkoLsR6/9snpNhUen4tr2
WVPQhk3jhzvSqBCEf5fJt6GgRif71lNvqPAgTNw45ygFPUyotht7RwUNzUEF
PTsKMm/X/e2dRYU9544+Mj1GQURSxsmVbCrE/zt+doiFv1qK94TmUuFMec59
PnsKunk3zJkvnwraJwa6Sli8wffFgegCKkRvNDFYYvmjEVzdpYtZ+CPbk2Jb
Csrf3Tya+oUKVcm8tdys/b0D9nqql7Pyyan4q/cwBann50zlI5Z/Zk/03kMU
NDa78dKeb1T4w5tO3GpBQWlqj+a/f6eC0K13G1+bUtBpj7UrVjVU6KxdaEsx
Zk15qReX2+uoMPzUXmkLRkFdPd0BpxpY9txhPLt2UVAsxYI5+osKW1tnb7Xv
oCAbuy83vJupkGQwFsvUpCChaFXCSisV9Jj3zDO3UNCPhvhboR1UYDOozhhQ
pCDj/QF3ortZ9QztuTcnRkGE0FFe6V4qqJRlaVfxU1Bpqd2D1H7WfpsZXzdz
UNAOnR1P8keo8NZ1nHlrjoy0nktYaY2zeKMdV/JHyEiVQePLmmT17waedt9u
MpJHJWGpc1Rosorof11FRpRNSXs3LlLhpZBZs8gXMhKPuLGWsEQFnibcUOgj
GfFZYAHRDFb+Nh3WK3pGRlwfFXYI/aPClJyMvHskGRFIHAt311n93rmy53Ug
GS11fD8fyrkEQ9TAmQZHMupzPXjKW2gJLNHWyHk5MuqqUpeZElkC9T86F5WF
yKhti9BvD7El+OMT7ju9yrovZhttTkktwcBYqsj231Loc5CdiZXiEhisWJLT
H0ihe09Pb1XXZc3l2zxO+/RKorDlfRNv9Jfg6/MJ8blqSRR8XOnNpl1LkL9n
NZ2Yw7qvNo7KS2MsPZoiMv9uSqJT7y9s4DNfgtts+rtkpCSRzrerzFHHJVif
3vbtiZ4E0lQ+XuTqzJoThvjGq8kSSPWugV+vyxL8157PmcwURxsP/Ztp91iC
Zz2CV9TLxRHfn1sD331Y8ekfXx0wFEe9Cw9rU8OXIFbHydBYcwMaWr+eYhu5
BPYKq20lPBvQmMCFq9z3l0C1D+7V94uhOWXzzecfL4HVacHZymjW/8VJYqh2
4hIoFR7+sWmOhBS/3dSvyFkC3dGPR6/Ei6IzTy+96fmzBNg6j6HZSUHkmeJ0
83HPEjA6fCeH6ALI64Ol7b7+JTDtFvViPBNAV6vVODJGlsBbrD4k6Sc/imSO
Ol2cZ+Wf+DqYYMCH3rk6S6wSl6Fm5923l5hENLX9cDhZexlOhINrmQEB1WYM
Kb/QWYb2zUqT6W/W8QxyQI283jJ0Ctx85/d7DXdeT+ZX2c2yf7jmu2H3P7yl
buqJrskyuFSV76r7t4KXnI5MPnJiGYojDPUX/Rfxu4/wwoe3lmH3FkWF3Td+
42fYjxwXDV8Gq/ZQmyCDdnyf3wgj5s4y9IWeEgujN+OrJwQNkx4sQ9j6pT6f
mRrcW/lkZWbsMhDC/6a/LAoG+7LlxurMZfCl+UR1bekC5cmtE2wty7Ba4aYW
xZpDBHh+pX9pW4bl3Nm4puZFWFTyPu3XuQwWk0Pl+qx7CznldY79XQaZ3N4X
jqx58USzbvWvsWXg0S5kXL62AlHFkPZibZn1zrj38WLeOvi29506xkaD911S
qaYGBOzkYqi0KCcNkpx2F1UmEDCVrZXRYbw0qG7udl04zoZ9TTENPb+BBp/F
SjQHG9mxpTuHnXaq0qDj8l3uzS+5sO60BfKiOg2kH5xi/Fjiwr5WPG3L0qQB
+0Lin+KDRCyK2WYhv4MG9H3phi5LREzl0old3BgNXutfifgAPJiDnatUmy0N
Ei4Hy4dk82H7rnC2RtnTgKfDzTiLzodteZz+yPQkDdKttm1l28ePLdeOEkud
aZBcaBgl18yPPd5zYen1eRr01Yq9XxkVwCqV/Jq9Q2lQIZ7U1D4mhN1+U2K/
epsG+wdEjPrkhbF9qoTeOxE0WOq4QiLbC2MVmvcnk+/TYLB3Om5DpTBWbvCK
s+EZDT4+N7/NbyaC3SgbuWcfR4NrUmO38NMi2G5MXXQogQay3l/2cQeKYCX7
C2WZrHfyWtelPdbvRLBC6wbdLZk0uKd+wrKUXRTzbyGV5WfRoOzudU92KVFM
187eCPtIg12Ch9h/q4ti+ScHDx3Lp8Enm9fauraiWM6ZlbPh5TTobGrZ9CZF
FLs0bjgrUkEDRTPjJx55opjGhTC/pG80MLyhOPD5myj2wUf41qcaGqRqq0ky
h0SxzOubE/ubaTBQurdOXpGEnVv3VLjYRoPv1KBdZlokTOVWzht6Bw1OZMi8
/7eHhGXc2ZUv/JcGv96m1vDakzB3vlCDxF5WvGxqG0+7kTClh1VIeYAGogsO
3428SVhq9OGGPaM04Ne18smMIGEu4s+P1I7TQCfWT1fjCQlTjOv+fXSKBmdU
yHW7E0lYyguPkfPzNCi6LcZc+UDCTsl/uEBbpIGGe67X2wISJpe6sHBrmQZc
iScc+8tJWNLbG+vxTBq4+Q5cXWggYSfVvoVvXmP1g93y47pWEkbJ5hHIJdDh
l2fIuvofEtalZRW9m4MO9GcHKsj9JCz+01OpGi46nLObb388QsLsdX8nH+Gh
w55iNuPoSRImVSy3uZePDv4Gf4Tk5khYxy63956CdEh9Wo7pUElYbPm7bcvC
dBgMqBtupZEw272zhaEkFm/EFCAwSdiGSh1DQXE61N9Xrfn8j4S1mARWxknS
YTRbSH15nYRF1+LmShQ6OO43sK5gE8MOW3A1fZShA1eE9CFJDjFM5Jf5sV0b
6ZD8nLmfzsKNhx//rVKgQ17jv6NunGLYo9Y2VxslOvgOy708ycIPbj5UalKm
w8+22r/9LPt7KvuHD22hQ+emQlU6uxgW2bya/lONDj2PW7KTWfuFX88/Y6lB
Bz9S5rM2lp5byhf+q9eiw5NKF8EXLL0hjZvGzLfTQam+wmSJQcJuBv55W7uD
DnNblP16WPEGKT09Z6pPh+4bkT/tWfkI+GmuWm1Ahxsl1+67sfLlH8A+uX8P
HfRrFUbZpkiYr2LJ+0pg5UPOcOO2URLmU+9zwWgfHY5g8r4LrHp4+W/Z+tWY
5U8/S8Wkm4RdkO+fxg7QIXzd7pZ6Ownz8LW+ZGhBh46zbw7k1ZAwNzkerTIr
Vry2q+Y2Faz+qsHndh2mgwnxh2JEMQlzlNG8vNOODtnPyYmZb0nYiaoR7SJ7
OhAfRI4mvmTV2zt5Ufckqx8OH3RWjCVhRyoF/XSc6QC2euZzoSTM2uv7jk8u
dLAfsQzSv0rCrKRuLG9zp8PSqSh7yQskzOzC1FVNT1Y9vz/JSzhKwmDDj0BV
XzqcLEjP/CZPwnaX39r1zp8O316VzteTSJjBWYPV/67RAS83OeHNScJ2lL67
sfkm651/jDfgzogopuYWGSIfycqffU4lZ4YopiKE7X15j9Ufw8ThqRhRTLmI
xib3kA4Hii/rXLktiikIeNyWjmbV74z5U4dTophk/v4IiSQ6eHsh7TySKLbB
6Z/Js2Q6SOZ5vUhcE8FIPJ+5N7yiA7czT8d/EyKYoIPSXdEMOjw90qalhkQw
Dk6OBwI5dBiSmT046yGCzR5BT9grWTz7dBunlTC2/Cb8QmEVHZoE2Nu8JYSx
Nab5gQu1LP0KSbrSPUKYQFrbattPOhRk23zTPi+EqVAnPN79poPWtoGnqdcF
MecYcUPrWTpILHlSDt/kxxpbPSdeUFYg5dvnPSv83FiHitZ3G9kVKOSNOAOI
iPVcX3rJLb8C/TaXJ3l9idiUUoitz+YVuHDlTPuOLi6Mx+8ZMtZaAcaVncEa
rzixveIodnI/C9fJX+6QZsfybMWNdvqswJJ1kaFr1gpECweP4VdWwP1LLK8P
/wpcrh17aOK/AkIWRab6rDpu21PaeSRoBfKMBzs4/6NBjpKrl1f4Cmg8lvEj
JVMhezEnPjV+BdSf/2XU8s9C5hOLOcGvK5D2MuNAvFcb3DtY8CymcgU6b7fK
Ck40gyeX/C7p6hUoSeC7knKmEbZcWwxXqV8Bpfvxkp1VVfDWOUHaqH0FQl68
9FXqjIUMzTGTgIkV4Pw+WEre2oynNtx+MUBiwIPNgWG8LZP4g21Mh5fiDNiX
bvQji28a9392WcZBigHlGceYZ7EZ3NTxdGKbLANKwgwm2I7M4TNThvE1KgzI
dwlxs8tawPUFGDHZhgzQLbRvSNtCwxW8fY6e38sA7oTjGfOfaDhf65iYijED
Bm5OMv/tpuN/EzuiX5kxoGY8lc/o4Ap+S+3z45ijrPXWqWbs9ky8wdz7QaAn
A/ZLPNsfrbGOF2SPHtS7yICXZysIDa/X8RTSKX7qJQb8t3qsqIKPgC53Wd67
6McA8/QQ2pYgApLyVIt0DmFA2IhB7gMbNsT28/UB2dsM2BNXXuwawYYmtlG4
u8IZ8JPAlneumA2VrfBEHLnPysdXpQtMGXbkcnfktkksAzzcUnWIXezo4LSj
EUc8AxxgF67EzYF0Drexo0QGzBXL/XTbzoG4yZWhO1+x9FcbGBjd5UBZb18F
q2cxgOfYh3UrVU4UK0CG8WwGHA3boXPImhMFez9eS89lgN0vNbK7Hyey0Q++
sbGQAYZOWGR9KSeiVTsEkb4y4FmzyC13jAvJHTHx+1rJgJ3Pr5i6OHEhkx7N
S5erGaDYo3z5ShAXiqWyuzbXMyDhdOiLn3lcqDx4yuHWLwbE8YZHSDRwoWG+
djvtZgZcrE955TXChXQU3plHdzBgIdIr/KAEETlkRRvv62IAZfac5091IgrT
u2640M2AlnjZEsd9RNRieUjbZoABXRnr0smeRMTo1FdnH2bA15s7QyxvEJGi
m6Jy3igDok9bLXI9IqLLgUtk0jSrvmrj1KiPRJTA1Sv2dZYB9ToMfqdyIqp4
XCN4eYEBjRNEo+31RDQmncetuMQAuvCdWcHfRCTyJpGtmcYA6aU/F6eHiEhf
O5wZymAAgc1WoWmWiJzLvJa2/WNAEbeOb9EKEUWa2s/2rzOg0ie34zU7N/rY
snf8CTsTjLUJlY/4uFG7k9rgXi4mEB8eLropyo3Wxjf8nedm8e87DS5JciNl
v7X2V3xM8CL87HSW4UZWhLHGw4JM0LpxWfmIPDfyv99UxybCBJFoEr5/Ezd6
IfGlMpfEhG8E3v36m7lR5au08tPiTDh6veK0qjI3mlKPKhKVYoKl1Jfv0iy8
oehqXgWFCYIR91QEWPa7jE5n+cgy4YdCtylTkRu5/DTPUJBnQku939TYRm50
77hOSpMiEzKe6/e1SnOjvCHZhNDNTMjfqUgvl+BGXZe4Y7apMGHgmJXwGxFu
xM6ce9ivyoSkeBr3Q15utCWi686TrUxg3A/44c3GjaxFK0P3ajHh9RELcxs6
EQUkfQia12ZCmrrw9W0zRJTy33O/VzuYoFR885TQIBHV5IVcOqzPhCHZQMZY
OxHN7fE8x7aLCWem2U5U1BKRZO0R19w9TLjWrxf9/AsRnelVPiZqxNLf00Ew
TPpfw1UeTuXWR3UMmdJJ5DicFydpQq5Scl2/reKTKORSV8ZC0SAJDVelJFNX
EqHcY8o1hAxRyjmkEEVkqHDpyhCVDIlz3v1+75/r2c+z9lrrt/Z+9pYSXPdj
2tdaCEHpy6rLCjFSgorZeeuTVkIwNB893RcqJZCQf2X2xlYIk8e6E0LspQS6
yQ+NL9kJYTHztfl2UymBI5dn+MteIbBXNPkp6EgJsoxP6dzYJ4Szo27h2T8k
BS+fHdA0dxFC9+xJ/YA+ScHUbkv2d1ch/DEW1Gr6TFKwzVtVwf6gEOpC3lS9
j5EUDNzgzzKP035zOvW2LKNxuO3jhADa77igaP+UhGDw1IcwpVNCMH3NnMxo
lxB8/H1uMStUCAmaBu9y4iUE/6luYGuEC0HGYduJGIaEYEj2aT/vihAOVO/6
Od4rLhgSWmdxI4XgL2xZHvKQxn0+ujqxQtCw/PPVUl9xwXBGuplekhCeyHn+
dK9hCIYTdMWLb9P6Kz/cXZtA48uPGwzShBC8+vrkSm+GYMS7y24TTwg/f+TK
FkkzBKNrFQ7+mi+EFylXuL9YLhKMP/gzcmeNEBT+y+lP2kLxJzLlbJoFQuCW
7CnQeoH5EzdTmLbPhCDxKjlbby+NT1ek2DXSedbddG0/TPK/bv1S4NwuhFiV
ysIb4UL+ZO2BNu9huv/HSk3UAuf4P978qhquIIISj19LTuRN8MWOdc9tXSaC
KqafV4bTOF9W+lTX9+UiuKN0XFJ70Wc+YZZ/01NVBLzf/Q3Ndo/wLfJZCuba
IuhlDo9VNQ3yE8NnGWImIpjsjGYe2dzE37ixeOJPbxG4VVy6O77pIwQkcgVn
noggcrogObdpEXK45XVEnC+C1RdTrIb1GcgoKVMxrlYERiWjjrqJDLSQzPXm
vRDBPY1Hbs/dxFFEGle2oU0EGUGrLcenJVBqJtdR6ZMIEmfLO6XUpVF9CXe0
aAkJY5WKcgl7FdC9B143jJkkRLNV/fZWKKCo0kyTOkUSHK0NHnXQ74/d5dy4
ThUSroTVOUm/W4reVXINRVokSI3ksBj3mehrDff8zs0k+Iw6xxvoKCKVV1zm
kBsJU7HPX/z8roSMZ99Oe3iS8PZEh/2gmjLax4ns7jtIQu7x28nRFsoo9dh4
evdhEpQj8ivVbisjQqFcrzmQhP66HX9omKxAOnssdpVeJUEiO6VgLEAF/S9k
Tn9DFAkj73n1QUkq6PDfeYqFMSRYXJTuLa1WQfnflrzPiSchP925bYckC+nH
dx1OSSXh6GTj47xEFjJ643v1YhGtZ3vHj5YsVeQ0r+pHlpCg73D8xPp6VRSs
1WJ7toyECjXvTwZDqqjqpIFyUBW9fqtFXn8lG5kqzmf51pFw/mnfzf47bORq
UhA5VE9C+UzpRq/HbBTm5erv2UDCEpZTXGQ3GwlKaw1dWkiQzzOeKWeqoR17
o2t3d5Hwok66IipMDXmfM81p7iHBiCG3VTZFDV3N+nrN6gMJi/dNVa8uU0ON
0w522wZIGHivFrNlWA3ZJKr9a/SZhHifap+0/6mjvZ2FInVMAqMnwEdiTh2F
5R5daBXDkMlX/q1BnoP+OaP7M1wcwyk/fXd5LgeJOIXTo9IYdqlqhKrt4qB7
PgWfy5djGCi87gLJHNRm7D/qu4LG77++lcrjIKHs+mG2KobssmXdNo85yK44
f/AigUHM6E6nwwcOWpjL67FZi8G9eYIwVSGQ9ssjXdR6DOrt+9d+0SbQnjtr
35bqY7B6HdytakigbJTXytqEISh8/bchawK9Vjzyqnkzho/1H5rCnQg0P7Sm
OWwrBqOZgHVpngTaHfXPiyEzDInRNVdNggkU6nK4Ptkcw5ffdZi1FwiUpbem
znoHhq7Jtya112g+aoRPWmIYXZzeZXKDQD/f5D4t2YlBourbQ70UAnGzfasP
2mDQf9ZRmsIjkG3w6kcr9mCYLJjMDsul+a1GHjbZYwitjPbvvU+gTHZu+XlH
DL5dV0ZLywjUMuFTusEZAzfIcxHjEYHmanRKPu7H0KC7/e+mpzT/jeH7tw5g
KD3ypUimjkA2B+8VWLljuDhUr1n3nEDBRj55Qk8MD5lto1ONBMpYrJNbdAhD
u38lTmum+d99yvb0xfC97Lnr01cE+lGQk6nkh2FCYlTCuZVAmmHevIajGBi9
938cbiPQLrtV6WdPYBAu2rl1msbB3E9peoEYXrvEdc3SmDeTnTIQhKEpY/JD
AI1fvjiUfDOEngcZ9cchmm/2tvYty7MYBmOX+bbR+2n6DyXMn8eg2/qvagWt
x/q37PjCCxjYMxPXFZsIFLT00HX3cAxtSm2fRmk/fw+ujFWMwLDaocbcmPb7
suy/qOeRGN6/i2oSqyHQTERWZGg0BtN2Xu42Oi9i38GI9XEYinTlZTGd5851
Ky/3/4Wh1e04d2MRgdJfZ4btuIWBdeC2rVwGgRp5XufnkjH0NyZ3FtHzmw7k
ns1PxRCsuEC20PO1Usk8zeRhWHiVbX72IoECxzxPPcvEMBPz4KtMCIHuVmud
DM7BcLUqx135GIGm3DOO9uZj0Dn9vJvnTPtPljTyvI8hoOZl8Gcbui+tR8hP
xXQe2RfU6swJRIHh9W/lGLyudxapryMQIzTJKaiS7te2S4jHIZBUyQIx/4ju
u8JXThmTQPKaz4oZfAxJPrIa12Y5aOm+1aGRtXRe9rUL1iMcpBgfg+TrMVA5
2xPSeziIJeb4RrkJQ+OSHZfmH3HQqoGhqTUd9HmQd2qICuGgNayd1fc7MXiU
Onf3eXOQrt39y4Y9GFKP/Yuf7+UgQ8FpJdM+DMZdwYGO+hxkxpPavGcEg6ZC
xbWQfnW0z2PNmdNCuk8JUp671qsjl9ux5gskBsTawiCWqyO3tkmZC2IUjMqU
28Yt0PcRepR6TZKC4LJNLjsa1VCgpvWTtKUUsOYVlHXc1VDsgD9Vu5ICdVvX
YNtzbPQXq63BUoeC/S8Nvba6slGC3ab45jUUJEykdbeYsVGKQKTZqUdBxC+e
nl/E2OgeL27b6BYK2EtyA9ZdUkV8j+IIBRsKclYkDloGstDj1qO7+ndT4Pbh
a/q4NQs9NFu3rMiegt3MESfDlSxUqJ5zx9aZgibK/K/8dhWU2pNaFutFwaJ1
m3iH9VTQaburg7JnKIi1POW3pUMZrUeuvy2+R0G1hceZkDFFpFPMFu/+hwIt
TwoGqxQRl+hpvFdAQZxN2QrWNUXEEjk4Wj6gYPrYwJupVYpIqsrKP+IJBYXa
H7sj6P//4IZNKeIdtL46y6jBpKWoN/27W0cnBbYzWjJPDJainiXF2lk9FFjI
qPA8Xiqg1+NrS7b1U5Bk0WSnRC5BT3I1Gi6NUdCrLVd8zkMeVa3oi7WfoOBA
AbtV9FMOlUWkOmh9o2DLzfq7HjfkUP5B5X7BDJ2ffVdmb60symlvz4qfo2Ak
JkJauF8W8czjj3gsULC4Vf+c9JQMulNiu8GApKD1qcty6WgZlKwhN0tRFFwK
bxgTacmg/wNoB5QB
      "]]}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1kl8oQ3EUx2+jWB5QW1ZbCoX8ibJSXr5X/jzIg8iDWlmr+dfKHoSYF+V1
Dx78q1HTHlby4AWldsuTTMSsVoSwzDQbMxvz7+4cp2632z3n8/uez70lptFu
s0IQhIq/S76vLMvlhnHMtmZUb4Oed7ETvc1NtMU9+ga59jGpHXI01h566P0B
FEJlxymyRSFTJ7gUw3vDAZVI/WdYDXTGlno04uCAXH6MTC6qbZuFIs0HYKqb
dtVEIzjyynWBGV9V/bo6WyLeNfyWK+94skCi/htMVZ8fGx7zJOLf/s97aP4O
/cVOd357CnReEFrhrsvdlMX5HpBKujRb+hDvF8L3T4Wcn3lhlHlULQvlRRLx
nmC7nCuyXukk4kXgi83M9ho0nC+KvqH5ZnuOkvujcE5k/LGfGDbIH+d5gUOX
8Qc67xVK8se8OO7JH/PiWCR/vP8bzOSP8yTQyvsT7x1W8sf7JuEjfyLxkrCT
P/afgoX9E+8DTeSPeZ8oJX+cL43uVMYf+07jmfwx7wsq8sff+xuz5I//hx8E
yZ/4C6ziIfQ=
       "]]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{547.9999999999999, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-7.704121954720195, 7.704062797906728}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6630885488843155`*^9, 3.663088570947856*^9}, 
   3.663088653247795*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Draw the approximate tangent line at a given time", "Section",
 CellChangeTimes->{{3.663088779816333*^9, 3.663088825255989*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "dt", ",", "t0", ",", "t1", ",", "s0", ",", "s1", ",", "s", ",", "a"}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"dt", "=", 
        RowBox[{
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"t0", "=", 
        RowBox[{"Min", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"t1", "=", 
        RowBox[{"Max", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"s0", "=", 
        RowBox[{"Min", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
       RowBox[{"s1", "=", 
        RowBox[{"Max", "[", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"a", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "+", "1"}], ",", "2"}], "]"}], "]"}], "-", 
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "-", "1"}], ",", "2"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "+", "1"}], ",", "1"}], "]"}], "]"}], "-", 
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "-", "1"}], ",", "1"}], "]"}], "]"}]}], ")"}]}]}], 
       ";", 
       RowBox[{"color", "=", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"t_Real", ",", "s_Real"}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
           RowBox[{"Hue", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s", "-", "s0"}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"s1", "-", "s0"}], ")"}]}], "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"t", ",", "s"}], "}"}], "]"}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"data", "[", 
                  RowBox[{"[", "j", "]"}], "]"}], "-", 
                 RowBox[{"dt", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "a"}], "}"}]}]}], ",", 
                RowBox[{
                 RowBox[{"data", "[", 
                  RowBox[{"[", "j", "]"}], "]"}], "+", 
                 RowBox[{"dt", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "a"}], "}"}]}]}]}], "}"}], "]"}]}], 
            "}"}], ",", 
           RowBox[{"Line", "[", "data", "]"}], ",", 
           RowBox[{"data", "/.", "color"}]}], "}"}], ",", 
         RowBox[{"Axes", "\[Rule]", "True"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"t0", ",", "t1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"s0", ",", "s1"}], "}"}]}], "}"}]}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "2", ",", 
      RowBox[{
       RowBox[{"Length", "[", "data", "]"}], "-", "1"}], ",", "1"}], "}"}], 
    ",", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6630863061693716`*^9, 3.6630864148620005`*^9}, {
  3.6630865394009247`*^9, 3.663086649062338*^9}, {3.663086911624118*^9, 
  3.663087143447714*^9}, {3.663088864554721*^9, 3.663088923604378*^9}, {
  3.6630889953567066`*^9, 3.663089010748043*^9}, {3.6630890589534583`*^9, 
  3.663089213162818*^9}, {3.6630892463987513`*^9, 3.663089262899528*^9}, {
  3.6630893137554245`*^9, 3.6630893146773524`*^9}, {3.663089345351014*^9, 
  3.6630894322613835`*^9}, {3.6647841749044724`*^9, 3.664784188264491*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`j$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`j$$], 2, 40, 1}}, Typeset`size$$ = {
    450., {252., 262.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`j$2455$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`j$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`j$$, $CellContext`j$2455$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`dt, $CellContext`t0, $CellContext`t1, \
$CellContext`s0, $CellContext`s1, $CellContext`s, $CellContext`a}, \
$CellContext`dt = 
         Part[$CellContext`data, 2, 1] - 
          Part[$CellContext`data, 1, 1]; $CellContext`t0 = Min[
           Part[$CellContext`data, All, 1]]; $CellContext`t1 = Max[
           Part[$CellContext`data, All, 1]]; $CellContext`s0 = Min[
           Part[$CellContext`data, All, 2]]; $CellContext`s1 = Max[
           Part[$CellContext`data, All, 2]]; $CellContext`a = (
           Part[$CellContext`data, $CellContext`j$$ + 1, 2] - 
           Part[$CellContext`data, $CellContext`j$$ - 1, 2])/(
          Part[$CellContext`data, $CellContext`j$$ + 1, 1] - 
          Part[$CellContext`data, $CellContext`j$$ - 1, 
           1]); $CellContext`color = {
            Pattern[$CellContext`t, 
             Blank[Real]], 
            Pattern[$CellContext`s, 
             Blank[Real]]} -> {
            PointSize[0.02], 
            
            Hue[($CellContext`s - $CellContext`s0)/($CellContext`s1 - \
$CellContext`s0)], 
            Point[{$CellContext`t, $CellContext`s}]}; Graphics[{{Red, 
            Thickness[0.01], 
            
            Line[{Part[$CellContext`data, $CellContext`j$$] - $CellContext`dt \
{1, $CellContext`a}, 
              Part[$CellContext`data, $CellContext`j$$] + $CellContext`dt {
                1, $CellContext`a}}]}, 
           Line[$CellContext`data], 
           ReplaceAll[$CellContext`data, $CellContext`color]}, Axes -> True, 
          PlotRange -> {{$CellContext`t0, $CellContext`t1}, {$CellContext`s0, \
$CellContext`s1}}]], "Specifications" :> {{$CellContext`j$$, 2, 40, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{515., {313., 324.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`dt = 0.05, $CellContext`t0 = 
       0., $CellContext`t1 = 
       2., $CellContext`s0 = -1.2510565162951535`, $CellContext`s1 = 
       1.2510565162951535`, $CellContext`data = CompressedData["
1:eJw1ktErQ3EUx29rzx78A3gRTwurldTXswibvOxtzSZq9jDGA6XmgZI3C/E4
WfNEaaGr1KIQZtOiTNu0ZZvN7myGi+2ce+r269c953N+5/P7NZkm9CMqQRBa
/7/qqkRHLYJYX6vGDlT7hrx79Z73fvSnNLq3QBDaWt4p7NtLD7riFf8/x+L8
Qah+/BZEu4Y+M7fi3X3i/CC8knvDGUvBaqlGGGfT8qbDk+f6CHpLtrBBLeHy
ohqPOLlzRqbaC8yL8prj/Gd0NtgnjTdJ5sdgOfTOOEJxro+jxzorD/sT3O8F
Pu5PnCSyAhasYxnmpVAu1G0djaaZ94pGrUkbHUgwL40hnp94WbSojX1ml09U
ztVGc4qUn4O8V/MnEj8PE9WLVP8OG/kTqV8By+SPeRIGyR/zJMUf84oIkD/m
fSj+mFfCMfljXhlqOifzyugif8z7VPwxr6L4Y94XPNyfeN+KP+Z9o0L+mPeD
ZvLHPBlmnp94v3CRP74PoVvD7+QPE8dARQ==
        "], $CellContext`color = {
          Pattern[$CellContext`t$, 
           Blank[Real]], 
          Pattern[$CellContext`s$, 
           Blank[Real]]} -> {
          PointSize[0.02], 
          Hue[0.3996622002982624 (1.2510565162951535` + $CellContext`s$)], 
          Point[{$CellContext`t$, $CellContext`s$}]}, 
       Attributes[$CellContext`t$] = {Temporary}, 
       Attributes[$CellContext`s$] = {Temporary}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6630870912733593`*^9, 3.6630870986330805`*^9}, 
   3.6630871441508493`*^9, 3.663088892931035*^9, 3.663089066156904*^9, 
   3.6630893157555056`*^9, 3.6630893497105927`*^9, 3.663089382212125*^9, {
   3.66308941755754*^9, 3.663089433136402*^9}, {3.664784183494484*^9, 
   3.664784189034492*^9}}]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Finally, Estimate the antiderivative of the function", "MainSection",
 CellChangeTimes->{{3.6630894781697702`*^9, 3.6630895057019725`*^9}, {
   3.6630904593310146`*^9, 3.6630904602841797`*^9}, 3.66309558070242*^9}],

Cell[CellGroupData[{

Cell["Use the integral approximations", "Section",
 CellChangeTimes->{{3.6630949429137363`*^9, 3.6630949645201054`*^9}, {
  3.66309528504206*^9, 3.6630952887585764`*^9}, {3.6630955226076927`*^9, 
  3.663095530913783*^9}, {3.6641026373792534`*^9, 3.6641026427292604`*^9}}],

Cell[CellGroupData[{

Cell[" Left-side approximation", "Subsection",
 CellChangeTimes->{{3.6641026450792637`*^9, 3.664102687889324*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      SubscriptBox["t", "k"]], 
     RowBox[{"f", 
      RowBox[{"(", "t", ")"}], 
      RowBox[{"\[DifferentialD]", "t"}]}]}], " ", "\[TildeTilde]", 
    RowBox[{"\[CapitalDelta]t", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "0"}], 
       RowBox[{"k", "-", "1"}]], 
      RowBox[{"f", "(", 
       SubscriptBox["t", "j"], ")"}]}]}]}], ":=", 
   RowBox[{
    SubscriptBox["F", "Left"], "(", " ", 
    SubscriptBox["t", "k"], ")"}]}], TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.6630899595317254`*^9, 3.663090023472245*^9}, {
   3.663090053777068*^9, 3.6630901573132176`*^9}, {3.6630949340085793`*^9, 
   3.6630949342454824`*^9}, {3.663095251437865*^9, 3.6630952572282677`*^9}, {
   3.6630954293646603`*^9, 3.6630954537235637`*^9}, {3.664102768159436*^9, 
   3.664102771239441*^9}, {3.664103068280856*^9, 3.6641030709708605`*^9}, 
   3.6641031774720097`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"analogsignal", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", " ", "t"}], "]"}], "+", 
    RowBox[{"0.3", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"5", "Pi", " ", "t"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "analogintegral", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"analogintegral", "[", "t_", "]"}], "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "t"], 
    RowBox[{
     RowBox[{"analogsignal", "[", "\[Tau]", "]"}], 
     RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"LeftAntiderivative", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"dt", " ", 
       RowBox[{"(", 
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"Accumulate", "[", 
           RowBox[{"Most", "[", 
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", 
          "0"}], "]"}], ")"}]}]}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"analogintegral", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", "LeftAntiderivative", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6630895120928946`*^9, 3.6630895133898344`*^9}, 
   3.6630896826317463`*^9, 3.663089893919262*^9, 3.663095512005945*^9, {
   3.6641027948394737`*^9, 3.6641027952594748`*^9}, {3.664102828440521*^9, 
   3.664102895290614*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVl3k8VV8XxkVliAZNxqJRUiRKkqdEEUopaSBDKhL9iiLJcJE5SooUmSrz
TMIhiiKzKOMdlOle85Dh3ve8f53P9/Ps/ay199p7nXOkLezPWHFzcXF1LuLi
+v/zhFVfQ2m/lfpU57qgHN0T6n/TjCy6RTWxXXZE+JuiDNYtawnOFj2LdM71
3o3HVLD7wJqE16JXsfu6WpyfrTZU6/dmPBV1wCfXA7cO5Buj9FW5cpCoF3TT
7sV5HrUGxSPAyV80DPuXG6en7X+Aqw7Don6i8Xgs+Omk9tMA8IXpvB0ZzUH2
Zf4eHufXmFOhzr0Vy8WySdei1Rmvwep0MjI8mgttPuH2+T+v0bT9/bK8sFzc
VEr778LZN3jzaek9l/15+GTRnqi4KxpK9PITS13zcY9uUhp6MwZmiuoT4nyF
CH/c53d0SSzy6xWPH99AIOOcTLfXVDyC+4e05Y4RUC26y6UpmIBr3O9OrLIj
YCF55NiIdALWKYmfbC8mYHRSbWClfgI+VXsk5e8uxfYj97zvxyZAXN4mU7e2
FA7XPWKWnEjE70lV4q7QZ3SK8Q+XBr2DMaXjd3lABbY5lq/bP/MBK3u2yV1/
WwET5eTev4JJ+Kb2n6tAfgVUnv61jpBOgurUEqnTtAoMpN8q4dJNgri1vFWX
yhdY3C5YPPI6CV0nPYdner9gqnD3szrNZFwVk1m8+3AlCp6yf2ZHpkDi/p1z
DecqwaN/NTMiIwUtTUWJDjcrkaPvovHsawqOBZ3W+RReic/5d9dWjKVgO5dL
sDazEqXSKrd366VioPeHiGVkFTTvSXzJ40mDfebdXS8nvmGlR/fwDv90sNSo
Td/4vqPA7HTtqth02FadfDAn8R1iagXckoXpuNG9o9JU6zsEareGRA+kw0yo
x2xr+HdYnIlYk7UtAwbWemFZ+6sxpmcptCcoAwrSW+dqHtRAo0U+YcgmE2kp
T9+yg2tQ2jp5+KVzJuRUuLQV4mrAyuBqMvHNhMyp9rBn1TWIas9r2Z+YCSnX
0N0XJX6AEkmR2U3PxKpfC+Z/i39gVOHsqwsWWRgL+Vm1aFEddqiIOB27n40i
20ww1tXhgazzX/mAbDzWDsz7KlcHAa0HZw9HZ0OCSyM+wLgOldUvZVsrs6Fl
n+q2NqMOyt8PfqSL5aBmm8arMPl6JCz3zUmtyoHUEtEz77vqIdoZ+MFPMw9L
7voERfTXI1WHurrcJA8DPeNV/hP18Ps4rCR7Pw+5RbW4JdCA/ndChzyT8nDC
wWuX4r4G5M2ZvjVZnQ8H+jBfUVADnnuEZ/Uw81FV9pWoU2vE2QXX3O6vH5FY
M88IOt4IpaRl5116P8K7VVFA70wj9l4UPXhscSE0mG/OVl1vxD3BP2PWGoUo
ErnfX/q0EaotMrwDpYXIsN++OquvEZSklf31Xz/hpaTvtbCwJngN6vXsmCqG
tbOO0IWhZnjwR7gV25chSXyVielUMz50/lO3opRhqLgtxZKrBYm/0903viiD
HfcNPbs1Lbgx6K9WXVIGhwCfAIpaC/xGd5ouLP8Mt9fl/GmBLTgVn+j5Mesz
npcdWsqz6ycszgfuHFxagTJ+RU7KrVbc7hHRE+n4isS4CrbY1t8IJsqXbfX+
gcPrimMN0zoQco1P89/fBuyq7Cj4KtuNUDHdjJtFzVjHuskMUe6GROnqj62V
zeBaOyd96XA3YsZMQg82NaPZQjRg+Fw3bvkGPBvob8ZD9jkTEY9uLF9cI9W7
rgU1ynWLbFq78St66b7j9i1QbjRLWKrRAxrP+IlY0Z9oPmzI+sDqge/p82dC
zrZiNpr+Omu8B8aTWbmHTFohzbmr/2mmBzlnbszQrVphVxyWUsNNxZ/t3/eK
328Fr+pPm+F1VHxdSFBUjmiF6t4Lf5VAxbbB0bOSHa2I2Xqlh3hCxUeV7O1T
l9tgK3CzsUWBBnPuA+nzer9Q3Xa+eHkwHexVppLnpdpheMyYymAw4HzXhmVL
68C+mIDzMVv+ANdvXPqW14Ue9rPmG25/kZCdTF/i3oNenbq4deV9UDqvVRv4
gYotAdufhFb1od9B9dbbNCqu1rg9EKztQ1zlF9/cbCpoJxVOc//qQ4a8/5KO
Yiq6DEPZTFYfDglVfJZqpKLNxPDCF7F+KAedefpolorv/7Uud7jTj5aRSn6l
EzRkRHQ7N0gPQH5OY66IRoPtDonfitsHUCnWWKzylwaZj8aqYXIDaBUvm8kY
pCG6rWHWaP8AfPP3fgifoCF4fYVLh94AvszFZigvpePW8/euf+8PgOt++eUC
GTpkQ//zWPgxgJqd47meNnT8kUqjmjYN4Ih5+Pf7dnTEZgwcKW0bwI2W3/+u
36FDrN6Sm0IfALf4bfcDD+jgX2FE4fs3gMnpX2IxfnT0Bap6r94yiMriZtm7
7+hI8OXx2/FgEPgxtXKsiw5hhu+j3W6DGE3QDeCi0eGO5Q57vQZx/uyZOv5e
Oi5OiVw5FDwId+PyKMFBOlZc3a18OnYQDnH3kxun6HDGBarT90HccXD+dkmI
gT+RXT9d6wZx41wZ1qxk4OyUZY1n8yAONebuqBRmYHeqXX5g1yB4dTu1JEQY
oIt5BcWMDUJCU0WKsokB/am0A1ViQ8jQdUnCPgYKTyvJ/9g4hErTO4avVRiQ
Sf24pXHLEHLSH+2eVGWA+2rFio7dQ3DNNbv1DAzkN/zqHdYYgp1VZ46fNgPS
qYufrr9J+vVL9128wEAwn/9jidtDUGdd1bt4iYF5yxWu0o5DeH9+Ms/QhIGf
YmI3droNIXmN1AslcwYCfOXV8WwIttd8TqfdYGDS8uLAtU9DeJu42Nr9HgP3
Vs+tbisdwu+HQ9IaTgxMfX51SOfrEHy46j7NO5Ms3Rmys2EIe5q6n1x2ZWCm
+8r+kT9DSB1MTf1KYcDpCZe5+dAQ7Pn5LU55k7r6W//G0SGI/DGcrPdh4N9r
WmfO/BC85FcVlvgxMHvJystZmInOTL8azScMPFi2NG1gPRNJO+mPw0IYmCtM
bL0kycRjpfUynaHk+kT7ZNVlmDivaypxIYyBhVabBm51Jlbk3+eaf8nAo8fL
5u4eZaJUrlVodSQD7H0pW3q1meBZRhXa/Irk58z7lYZMFAzuGt71mgGus7c3
BFoz4VzJ+2g4hgF3nlXaC3ZMMPwPXq99y8Ci7Mz/7ByY2COTYZwYS9ZHeLzC
wI2JsJ23zI/EM+BZ9oxV5sXErX4/t8UJpP6fkshefyYKZ59kl5LMU+94c+1z
JqKTdG23vGPAy23dc59IJuKzv8xUk7xYPr9kOpoJj/eZSbbvSQ6eWfU7iYmL
Y6lPIj6Q4w9FHNTNYGJm3q56axIDS5gHrIpymagW51FPJnmpnkvBm1ImBjYe
+/02mQGfOXHaiq9MjLcGCa1OIfXkomUe1Uy4cf32dyXZ56KJ8lg9E3k26uep
JPMKsE0tfzKxfu/gffVUBnw/vvFtbmdCLlJuLIxkPmtkaVHJ/emwqWb8Xxfp
ac/7w0QKvyz/7jRSr3JfIjPEBH87f+Ztkn3vS8tHjDIh4felKoVk/u2fjQWm
mXgbs9eIRrL/TwtPl3kmiJ9aV1alMyDgw5MytIgFhw6+gQMk+yvHt5jwsmC8
J37+0v/1Xk1OrSALLyYvvL7/fz2sV+awMAv45NMYSPIyTZ8zmetZqDF6G/uK
ZDXCftVXCRaykhXz40i2U71Q/1uaBbus5qOJJMfkajwZ3sbC6hu8J/+vNyrI
nVwsx0LpLtP2SJIXp6wVEt3DwuN4t9H/++/bzqnetY+FCd+t4c4k34jt89c4
yMKaYIk6M5IjJRt1zh9mQUhFM1aD5JqXn/hstVg4lhe8diPJ7NUJle4nWJAs
5pKfItev8CTY5/kpFhSvZE5Ukmwu4KSVdJaFg3++2YaR/NTbfDFxgYX/kr1f
XyK5gku3vMmUhZDhPUGSJMtMSx5ZuMHCEv/+z6FkPS7e4eUStiPHO/9dq0ly
IHOkZNtdUq8sPDJK1neYXq5m4MpCSz9FXY1kqSupc1c9Wfi4cVLiN3lezvwO
L3R+zMK/DYrDd0jOq7dWiQtlQUOsyP85eb76dA2n88NZ+NDBa7GRZLFKtbya
VyyMvJLQiSfPp2vxCqWpBBZcO/Uso8nzq5mUK69TyMKi6tZnlxLJfrI1mmVC
sDBksyy3hLwP72N8U+9UsGDZ0C8lSfKyF5d2RtWS9ffaPV0dR9aDsmj7MI2F
AvXwe2PkfVzMGejl6WOh+YnzFwWS9z1ojhdhsuAj+eC1TTQDEbffbdKYZuFV
3xL+BvI+m5nob3i+bBhuqleyrMn7/7RtX+eHlcN4w+rb5R1B7qehVFTJ2mGc
UFJwiCL7xfYT46J9G4dhPR/rWRLOAGtfxNqDSsNIaJB63vCUgYcrewWpl4fR
4vlc+qA/A7K/sw53mA/DffTAGkmyf/2Kc3dovTYMO9k1HnOPyfz2S3T8uD0M
ofcGg6lk/xsxMUwu9BpGiGDGSL87A5bJZTphKWR8V0mdr2S/PXHsjc/x+WEI
HlJ11Tcj+xvvPpO3XCO46m3gW2fKQPOQxPQGnhFY5Szbdors5555A7JifCNw
jZI/dPwiA106Pk9XCo/ApOhms/hZBl7eLjZf2DqCrrjme6bHGRAs2cnVqj+C
bvms5MdyDDD1pHL8DUZw9Ojy5HeyDNS2r7mhbjiCYzx+El9lGHjyb6EuwXgE
WeYRHuwtDAgr10c7WI6gddc1L1NJBkRSHCDsPIJU0421DPL9uCWy+JF+/Ai4
6X7rDFl0HLp3aqF8dgT2cQUbvqfRMWXT56KzMAJqzPtVUyl0ZFzxmK3ljGA+
m/fDpmQ6NulkT/9aPIr9IkW/Xcn3OZ/E+rHh5aOY9A/oVIuho7ms64/45lGs
NhovoYbSYStkV39XdxS7RA609zrSERUfGLc5ahTbNDd/8z9Cx5Wje9W634zi
Z2hVXgdIf9qv5si3o3Ay0jqioE7H+43blwq/G8WIr+2uDlU6ciLLbnBljeJf
qpbZcSU6akKmdnVWjsKt8sdHm+10LDw0KwgfH0Xk+u5j7cvpMD2n9INfdwxy
Y4YLWVQazMT1Ywr0x9BRTWk26yG/A6lWd68bjGFohYPVim4art56Ifrl3BjG
c50i7TposPaetXI3G4OmXvBzpVYaHHJL2VOOYyj9KZ7eVkOD/1p9BUbMGDYT
S6/qFdAQ2G7F8yxuDEVPJE7x5NMQ9PbRzyOJY9C6GLfwMZeGkF0ZD6OTx7C1
o9BjWzYNz7VWf7uYN4Y7b6Z3zqXSEOP4y7yhegzy3PyCAXE05LZYPSuZGkPG
VHMGdzA5f9HmPfg3huSV86z8QBpsdvXUEnPk/JsCIzcDaNjgfVGgjGscN39t
EKv3pcFH6ZRHucA4xJ+vkfGl0GD0TMW+asM4iu0Kh9OdaJg2WKbbeGwch/I1
++LMaWh8WNV3RmccEuJWjtJmNKS89/Zp0h3HRFjQpyhTcv+4uD43G4yjQa/q
dOAlGqrSJ1RaL46j89TBkpPnaHi5vGtbh904tKq2WV3QpuFATQb3n/BxpIXf
OqcvR4NErEthVASZz2mvfzqyNHA5HbtjGDUO29o3ZRoypN/mDmrp23E8X2fw
QmYLma8Lb9mrlHG4fHqqXyFOwx1ZU7fTn8dxobeocK8AqXPt2M/3ZRx6K5P2
sXjJeD/HWSWV49gn9lkjfgnp7+lnKvdjHK9z3vRxL6Lhya+cQ7xt5HiVlS5+
01Sk+C6bL2KOwzxv0/0cOhUhpj+z746MIzDj6tItVCruKr29KTs+jtzjPbHB
XVSo9uxrfzEzDovlj3rP/qLi236Lwjs8E3jAbi+PryX/S/4UOMmIToD50eCz
bgEVUlrXJp9pTkAimeHl/5iKDveW+xLHJ5BtJiPu40XFyyLN2XidCTjTPPIf
elCxSmkzJ/fkBA64sMcvulDBvbmHr814Ap9z7MXb7ajo5booIXFrAtNxpVf/
nqUiqUj/aPzzCfzLd7TcIEnFtZmiL3IvJwCTqjOOolRsVpLTzo2cQK3zevbX
tVREJQvof42ewA5/I++Ly6kIiqw06vswgZfyWzU1OD247XTERq5kAuLbPNTX
9PRAWUk5NOfPBJo2rGqveN0DhRfrTir0T6B7euGgX0QPZGenBVIGJzDvuTxa
+3kPpEoLveJGJiA9HH63ILAHAnqHnZ7OTuDVlaGnl1160GOpe+X28kk8XPbn
Z8H5Hvg/M98lt28Sk2XPVFoFe9A9FvQtznsS8wfTLVSbusDgPIw55zuJ02N/
fjyr7EKfoO193oBJHB8IkGZ86sLIthNbb4ZMwotruso6vgtcl5Z6KL6ahEm9
iPAyxy5sKn+kUpYxCVYDMZC7pgvXntm/62qfRKvEubn9JzsxtPe0t6jiFPrN
YPoxrZ38b9w1sKhpConK167+8WtDxRbHxtse09jScTu8/WgLKO8Kjecp0yj4
sFfGQKUFGrJc3Y99plHkzVxaLdeCMvmAwTcB0xB+3dDatLYFJapvF/94Pg33
cy2Tin3NyDf4sW9H0jR4/cP4FIKbkfRw6ytqI+lv6fPasrsJT5pbLM9smYFP
hLmawMtGBD4K2tKwbQaFYt+MHgU3wl9Gq/fUjhl8/KHT+s+rEd4Pc67p755B
+TMOH++dRrhseWatrTID8UORYg/0GnHdwcBeXW8GngZV5WXcjcCa6geyDjMw
jEjuqHBowLBhaSh3xQz2Fnt6e9yqx9Q7b9v8rzOoPnw6i8+qHuy5E8dtv83A
dVXLfPjlegjGt8y31M7gmJxafpVuPWQmBq5/+DWDreEV+m6y9TALW6tuMDwD
oQ+p2Rca61DfbDPwWuwf1jvyXDz8sxZZ59YePfDfP3ybsThgNVeDuB+U1zTh
WajxahRb5nzDdOVlF+HPs1hIbM39OPkFPaHE5Eq7OTytFPtNyyvDVMNBUc/l
8whou5Ki7FqI22GbSp2L5lFzVemPonMGzjy3sOYh5nGaLqRRfTYDyuGxwkFl
86Du3nnkjkIGZl9ssor5Oo8nkjFdv+vS4f1qk0Bl/TxyB/cwNdLTEBm76eya
3nnsDmzkBDukoCJjU1+a0AL2fFxZ4i35HomZFqEqKxdQM72oOuLXO/hlxap+
Fl5AwWKadvfzdziZsymoZf0CWq4OCSxa8Q6/8jcpzksvoP3YloIMnkSwSjY9
1NlH6ovWxB2fjsP6H5tWMkwXcOlzsPOtZTFQmWweNzNfQCK9fXxZTDSMJR+3
dlou4PNTlVfEjmhE3hp803pjATnSKfQs9TfYsDxnV/WdBZzPdJXrtYvCtlNa
ulk+Cxh8yF9+uv8llBuu+7inLeCZeMHpfL2nMPonarOQsQCFsuWlK/pCcU+6
Rv9B9gKMNSnveb1CUfCfwlqHAtI/zJTdVhwCNeF/cdc/L8Dzt1n5rjvB0DT0
Lzv5cwFvouLfaLz2hWFLyrwEewFVhbLXVw+44NE729k6Ljbmd/x88z70Ad47
y8148rCx5uVXm0A1Z8xLpoz38bERUkwx04m6h8RryQM5q9koejXP/YvyH2an
P7Tp7WCj3nFu2Kv5CrZ8t/7J2cnG7X9jv/xOXMKpqB3NWbvZMDBySdCuNUL8
4Q91IkpslCqGHV/P1sVJv/dfGepsuG/3dlz4sZ2IFXuX8/AsGzFBCWb6MuZE
zdC1LPnzbLwUMbQ2YlsQ0yXbMmgX2JgRsvxu9uMqoWeZmKx9hQ0FP/mLjkY3
iKnkhNg1NmS+0mINPmvsCalHVjGVtmR+TV/uHLlwm9A12PrmgT0bQ8573Iq3
/EfETMRH9DiwsXKLpL185h3ixKH4kBQ3NqRWcUrmox0JhxVXg694suEwccpz
6Mw9Ipq6OVDYmw3B1EbnS9z3iQnvuMdO/mxopvV/LjByIt7Uxj7SfE762e88
5t7ygKiKsXg4/YKNnBmRKidbF2L8zqYHSZFsjFxZ83iS40Jor491XBlD8lE5
CzcJV2LsylvbjiQ2jHPNrUZ3uhGTL5Yom6ey0Ry25O7SaDdips56oTedDRpv
kUEQrzvBgWLwcA4bFl+0bDfddSe4ncKNHPLZ+PP0ZVRaojuxNGN2w7+PbEwo
ncotanMnBKXK07kJNmwWuSibq3gQK4y3Oz0uYyNF5O3kjJUHIRwScFiwgqxf
CeXU2qcehAjX2Ya139i4M/ehpKvXg9jawxiTaWLjMkfn8HcXT0JGROdTagsb
fQsWJlGvPQk5g1SKYhu5Xp+Tj/4VexKKpY5r1DrZOLN6x3XjWU9CeeZXR2k3
GyLT2wUur6MQKgrqCVo0Mh5H8DpLgUKoxyzdd+ovG3p7XquXm1OII2027KZ+
Nk6mmpTwOlEIzZV1X42H2DBtkObuDqQQ2tp7n3SyyHoumIueiKEQuu4vzluM
stGomidyIotCnCyY2/h3nNQP1In2fKYQZ0au9N2cYiP4kP1BoUYKcU6mImNk
hvTrsXjb2E0hjM1knB3n2JAjnB32DFGISy8Dj8wusPF7sRtNdppCmNaP8Ltx
caDUtmdDKZcXYcF3rpGHhwOHtENXxvi8CKvDHyN9l3Dg6apI+7zCi7jhJGkp
xMdBedPDPsW1XoRthsfOpwIcmDWYFBwV9SLs+3rH1wmR85fSo6bEvYg7UieK
Xq3g4IliV6+epBfhaJzmJSXMwf2Bjr/HSXYKEdZPWMNB90ap+T5y/MOqe2tl
13NwOviZ+x7Sz42rvTNNlPQT/NK6iYznqYLEvRIcvCttv1FC5uNzO86uYAMH
NmpPopfwexF+73n3H5LmIPbBhqF/5HoCe25yyjZz8L7iWHkUud4nIvWVx7Zx
oP1Q9c0wuR9PDZRCqmU4+Pvtxex4D4UI931pbLCTg9m9Vy4mN1GIiNJ5qZZd
HASKDBxd/4VCRM2Y9V9Q4GDrSuqRA7kUIkbhS2aXIgfcyop04XgKkRgTpNG3
n4P9C5/Mxl0pxIe2UYFbqhy0+zfZL9ygECkrjZpG1cjxC6zHX85QiCz3DVfn
jpDxQgWvhW+iELkFnnLumhysK/J1i+WjEAUjfyYWH+dAZu6v9l2mJ0GYpXsv
1+PAx+llsXW2J1FYZ6vbdZKD1aVJUX0hnkSeuuyqtNMccDVssf5r60mkSCRE
6Z/n4Mu1vTF2Up7E+wALC8mLHDBiZnnmpz2IuNmNMszLHESfv3F8da0HEdkW
mR1owYE8f2ZUv6MHEX7c2PmyFQehx742pR73IELz1kLuBgcSQbVKS0U8CN+w
kO/Vtzjwl/w545rjTjga+FAFnDnwnf346P1HN+I2cfTdbxcOZtLupvMddyNs
dy+6lfSIAwU9I62ihkeEheDDGR0vDgbmPTv2drsSBlX/rfB7QtaTGaHF3e5C
7Dxscog3kQO5nS8MNl+6T2xLF+Npfc9Bz5jHumul94hNG9qqEpM5UONZ1268
+R4hMn/m7LFMDsaPN7lfozkQSwu0b3oXceCY2GJXo3WHoMorRfA0cXD2oF2R
7klrouPNqGlTCwfxg5cdnjRfJ9qE0rfEtZHxAwMGZoyuEbWDOzI0ujjo1NmT
ZG9gSRS921jp0c/BgczyX9G7LxIF6zoDTw9xYMoJz9fhOk9ke0eekR7m4Oc/
xRCBakMiyXJtV+kEBwet7u21f3mCSGhsjAuZJuN/3iyRtkSTiDkSYm02y8G2
f3P89dWqRFSGvrzCAgeZTXlbj/TKEi82LpvkcDjY+fZBY7buiZL/AVC7bZU=

      "]]}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBlfY75FpfB+7os4fwd9o/OsRU2iK70N7E
GAQO22cE13zcwLYSKn/S3ud2iuwe8/X2EFMu2EeHcF1+6LUZqv6yfY5s154L
C3bap6eBwDV77mXTNjz7exCq/6Z9zLWkTg/ek/Znz4DAHfvr539dbWy/ADXv
gf3fyffT0+KuQNU/tDc4LjR75sTrUPMf28tON+99z3MLqv+J/a2VJ/67K92B
2vfM/sTZPJ8sv3tQ817Y7zpzeteUogdQ817a/9x/+7nk64dQ817bH3166P2e
sMdQ897YJ2QkfpqS/gRq3jv7TEbNXerPnkDN+2DPIP86M/z8E6j6D/YtXLZK
ZSFPoOZ/tL/4aZZS/d7HUP2f7E9EXo56Y/cYat9ne6+LIitu334ENe+LffGV
Tv3fqY+g5n2xD7wdGWQ7+yHUvK/21aVH9971fwA175v9+Usq/VwSd6HmfbdX
y7v9V0f8JtS8H/YMq75lezhchZr3w/5M2WELUd5LUPN+2h/wte2tUz4PNe+X
vauG9IqzP05Bzfttn/XgHF/ngmNQ8/7Yi3rW7uEqPgg174+94Y8qgTeK26Hm
/bWfNbl50fLO5VDz/tm3L899NPdDJ9S8//Znsx7ZBlxI2w9Ndg4Q8Zl7AEzf
NA4=
       "]]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{532.8000000000001, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-0.009821511044515034, 0.646441586000561}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6630897090704613`*^9, 3.663089871058789*^9, 3.6630903331829243`*^9, {
   3.664102840920538*^9, 3.6641028971106167`*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["The Error", "Subsubsection",
 CellChangeTimes->{{3.664103338112234*^9, 3.6641033476122475`*^9}, {
  3.6641034708824205`*^9, 3.664103471442421*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"LeftAntiderivative", " ", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_Real"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"y", "-", 
        RowBox[{"analogintegral", "[", "x", "]"}]}]}], "}"}]}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "Error"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.66410339917232*^9, 3.6641034496423903`*^9}, {
  3.6641034865824423`*^9, 3.6641035060624695`*^9}, {3.6641035669325547`*^9, 
  3.664103567752556*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBlfYNyXdXnLmVvB/C32nPEL9i1oKKkP0m
xiBw2J5hwrzOOD83e4j8SXuGC6UvGxep20NMuWDPYHJr544HhVD1l+0LDn08
YzK1Y396Gghcs1fYHX3b03QK1Pyb9ioxelFF52fsP3sGBO7YX8sJ5d8TOGM/
xLwH9kGyr5xMZ0+Gqn9or+Bp1fQ1tBtq/mN7CfmvDXt2NUP1P7FfoC2aGfOy
GWrfM3uBNKtFhzW6oOa9sHdYybM3wX0C1LyX9gFup9rmOk2Amvfa/oBu+5eD
29ug5r2xbxDx5TcqSIGa987+wJyTu/QtaqD+/WDvMD+UYz9njz1E/Qf7D9Vu
kpYNE6Dh89H+wapV0pdn9NlD9H+yZ9i2W/7mki57iH2f7RccX89gurobat4X
+4SYhZt4aydBzftiP2HD4leV/rOg5n21t3A9vF5EdiHUvG/256bqvNfIWgw1
77u9j9yBk77ai6Hm/bCPKetK5rqwAGreD/sLn91db62fDTXvp/2buKVHbB9N
h5r3y94ideuO3p/Toeb9tt/B5BHqKDkbat4f+wMV5o4OPvOg5v2xvyD6lavW
fR7UvL/2Dml5dQcSZkLN+2f/oVDk2NNJE6Dm/bdnWPgw1O92NdQ8BgcItWAP
ACqyJkI=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["Error", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{521.5999999999999, Automatic},
  Method->{},
  PlotRange->{{0, 2.}, {-0.024228846315590982`, 0.037919310756744914`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6641034364823723`*^9, 3.664103450122391*^9}, 
   3.6641035081124725`*^9, 3.6641035689725575`*^9}]
}, {2}]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[" Right-side approximation", "Subsection",
 CellChangeTimes->{{3.6641026450792637`*^9, 3.6641026706893*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      SubscriptBox["t", "k"]], 
     RowBox[{"f", 
      RowBox[{"(", "t", ")"}], 
      RowBox[{"\[DifferentialD]", "t"}]}]}], " ", "\[TildeTilde]", 
    RowBox[{"\[CapitalDelta]t", " ", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], "k"], 
      RowBox[{"f", "(", 
       SubscriptBox["t", "j"], ")"}]}]}]}], ":=", 
   RowBox[{
    SubscriptBox["F", "Right"], "(", " ", 
    SubscriptBox["t", "k"], ")"}]}], TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.6630899595317254`*^9, 3.663090023472245*^9}, {
   3.663090053777068*^9, 3.6630901573132176`*^9}, {3.6630949340085793`*^9, 
   3.6630949342454824`*^9}, {3.663095251437865*^9, 3.6630952572282677`*^9}, {
   3.6630954293646603`*^9, 3.6630954537235637`*^9}, {3.664103023130793*^9, 
   3.664103060000845*^9}, 3.664103187342023*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"analogsignal", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", " ", "t"}], "]"}], "+", 
    RowBox[{"0.3", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"5", "Pi", " ", "t"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "analogintegral", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"analogintegral", "[", "t_", "]"}], "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "t"], 
    RowBox[{
     RowBox[{"analogsignal", "[", "\[Tau]", "]"}], 
     RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"RightAntiderivative", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"dt", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Accumulate", "[", 
          RowBox[{"data", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", 
         RowBox[{"data", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], "}"}], "]"}]}],
   ";"}], "\n", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"analogintegral", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", "RightAntiderivative", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6630895120928946`*^9, 3.6630895133898344`*^9}, 
   3.6630896826317463`*^9, 3.663089893919262*^9, 3.663095512005945*^9, {
   3.6641029096306343`*^9, 3.6641029312706647`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVl3k8VV8XxkVliAZNxqJRUiRKkqdEEUopaSBDKhL9iiLJcJE5SooUmSrz
TMIhiiKzKOMdlOle85Dh3ve8f53P9/Ps/ay199p7nXOkLezPWHFzcXF1LuLi
+v/zhFVfQ2m/lfpU57qgHN0T6n/TjCy6RTWxXXZE+JuiDNYtawnOFj2LdM71
3o3HVLD7wJqE16JXsfu6WpyfrTZU6/dmPBV1wCfXA7cO5Buj9FW5cpCoF3TT
7sV5HrUGxSPAyV80DPuXG6en7X+Aqw7Don6i8Xgs+Omk9tMA8IXpvB0ZzUH2
Zf4eHufXmFOhzr0Vy8WySdei1Rmvwep0MjI8mgttPuH2+T+v0bT9/bK8sFzc
VEr778LZN3jzaek9l/15+GTRnqi4KxpK9PITS13zcY9uUhp6MwZmiuoT4nyF
CH/c53d0SSzy6xWPH99AIOOcTLfXVDyC+4e05Y4RUC26y6UpmIBr3O9OrLIj
YCF55NiIdALWKYmfbC8mYHRSbWClfgI+VXsk5e8uxfYj97zvxyZAXN4mU7e2
FA7XPWKWnEjE70lV4q7QZ3SK8Q+XBr2DMaXjd3lABbY5lq/bP/MBK3u2yV1/
WwET5eTev4JJ+Kb2n6tAfgVUnv61jpBOgurUEqnTtAoMpN8q4dJNgri1vFWX
yhdY3C5YPPI6CV0nPYdner9gqnD3szrNZFwVk1m8+3AlCp6yf2ZHpkDi/p1z
DecqwaN/NTMiIwUtTUWJDjcrkaPvovHsawqOBZ3W+RReic/5d9dWjKVgO5dL
sDazEqXSKrd366VioPeHiGVkFTTvSXzJ40mDfebdXS8nvmGlR/fwDv90sNSo
Td/4vqPA7HTtqth02FadfDAn8R1iagXckoXpuNG9o9JU6zsEareGRA+kw0yo
x2xr+HdYnIlYk7UtAwbWemFZ+6sxpmcptCcoAwrSW+dqHtRAo0U+YcgmE2kp
T9+yg2tQ2jp5+KVzJuRUuLQV4mrAyuBqMvHNhMyp9rBn1TWIas9r2Z+YCSnX
0N0XJX6AEkmR2U3PxKpfC+Z/i39gVOHsqwsWWRgL+Vm1aFEddqiIOB27n40i
20ww1tXhgazzX/mAbDzWDsz7KlcHAa0HZw9HZ0OCSyM+wLgOldUvZVsrs6Fl
n+q2NqMOyt8PfqSL5aBmm8arMPl6JCz3zUmtyoHUEtEz77vqIdoZ+MFPMw9L
7voERfTXI1WHurrcJA8DPeNV/hP18Ps4rCR7Pw+5RbW4JdCA/ndChzyT8nDC
wWuX4r4G5M2ZvjVZnQ8H+jBfUVADnnuEZ/Uw81FV9pWoU2vE2QXX3O6vH5FY
M88IOt4IpaRl5116P8K7VVFA70wj9l4UPXhscSE0mG/OVl1vxD3BP2PWGoUo
ErnfX/q0EaotMrwDpYXIsN++OquvEZSklf31Xz/hpaTvtbCwJngN6vXsmCqG
tbOO0IWhZnjwR7gV25chSXyVielUMz50/lO3opRhqLgtxZKrBYm/0903viiD
HfcNPbs1Lbgx6K9WXVIGhwCfAIpaC/xGd5ouLP8Mt9fl/GmBLTgVn+j5Mesz
npcdWsqz6ycszgfuHFxagTJ+RU7KrVbc7hHRE+n4isS4CrbY1t8IJsqXbfX+
gcPrimMN0zoQco1P89/fBuyq7Cj4KtuNUDHdjJtFzVjHuskMUe6GROnqj62V
zeBaOyd96XA3YsZMQg82NaPZQjRg+Fw3bvkGPBvob8ZD9jkTEY9uLF9cI9W7
rgU1ynWLbFq78St66b7j9i1QbjRLWKrRAxrP+IlY0Z9oPmzI+sDqge/p82dC
zrZiNpr+Omu8B8aTWbmHTFohzbmr/2mmBzlnbszQrVphVxyWUsNNxZ/t3/eK
328Fr+pPm+F1VHxdSFBUjmiF6t4Lf5VAxbbB0bOSHa2I2Xqlh3hCxUeV7O1T
l9tgK3CzsUWBBnPuA+nzer9Q3Xa+eHkwHexVppLnpdpheMyYymAw4HzXhmVL
68C+mIDzMVv+ANdvXPqW14Ue9rPmG25/kZCdTF/i3oNenbq4deV9UDqvVRv4
gYotAdufhFb1od9B9dbbNCqu1rg9EKztQ1zlF9/cbCpoJxVOc//qQ4a8/5KO
Yiq6DEPZTFYfDglVfJZqpKLNxPDCF7F+KAedefpolorv/7Uud7jTj5aRSn6l
EzRkRHQ7N0gPQH5OY66IRoPtDonfitsHUCnWWKzylwaZj8aqYXIDaBUvm8kY
pCG6rWHWaP8AfPP3fgifoCF4fYVLh94AvszFZigvpePW8/euf+8PgOt++eUC
GTpkQ//zWPgxgJqd47meNnT8kUqjmjYN4Ih5+Pf7dnTEZgwcKW0bwI2W3/+u
36FDrN6Sm0IfALf4bfcDD+jgX2FE4fs3gMnpX2IxfnT0Bap6r94yiMriZtm7
7+hI8OXx2/FgEPgxtXKsiw5hhu+j3W6DGE3QDeCi0eGO5Q57vQZx/uyZOv5e
Oi5OiVw5FDwId+PyKMFBOlZc3a18OnYQDnH3kxun6HDGBarT90HccXD+dkmI
gT+RXT9d6wZx41wZ1qxk4OyUZY1n8yAONebuqBRmYHeqXX5g1yB4dTu1JEQY
oIt5BcWMDUJCU0WKsokB/am0A1ViQ8jQdUnCPgYKTyvJ/9g4hErTO4avVRiQ
Sf24pXHLEHLSH+2eVGWA+2rFio7dQ3DNNbv1DAzkN/zqHdYYgp1VZ46fNgPS
qYufrr9J+vVL9128wEAwn/9jidtDUGdd1bt4iYF5yxWu0o5DeH9+Ms/QhIGf
YmI3droNIXmN1AslcwYCfOXV8WwIttd8TqfdYGDS8uLAtU9DeJu42Nr9HgP3
Vs+tbisdwu+HQ9IaTgxMfX51SOfrEHy46j7NO5Ms3Rmys2EIe5q6n1x2ZWCm
+8r+kT9DSB1MTf1KYcDpCZe5+dAQ7Pn5LU55k7r6W//G0SGI/DGcrPdh4N9r
WmfO/BC85FcVlvgxMHvJystZmInOTL8azScMPFi2NG1gPRNJO+mPw0IYmCtM
bL0kycRjpfUynaHk+kT7ZNVlmDivaypxIYyBhVabBm51Jlbk3+eaf8nAo8fL
5u4eZaJUrlVodSQD7H0pW3q1meBZRhXa/Irk58z7lYZMFAzuGt71mgGus7c3
BFoz4VzJ+2g4hgF3nlXaC3ZMMPwPXq99y8Ci7Mz/7ByY2COTYZwYS9ZHeLzC
wI2JsJ23zI/EM+BZ9oxV5sXErX4/t8UJpP6fkshefyYKZ59kl5LMU+94c+1z
JqKTdG23vGPAy23dc59IJuKzv8xUk7xYPr9kOpoJj/eZSbbvSQ6eWfU7iYmL
Y6lPIj6Q4w9FHNTNYGJm3q56axIDS5gHrIpymagW51FPJnmpnkvBm1ImBjYe
+/02mQGfOXHaiq9MjLcGCa1OIfXkomUe1Uy4cf32dyXZ56KJ8lg9E3k26uep
JPMKsE0tfzKxfu/gffVUBnw/vvFtbmdCLlJuLIxkPmtkaVHJ/emwqWb8Xxfp
ac/7w0QKvyz/7jRSr3JfIjPEBH87f+Ztkn3vS8tHjDIh4felKoVk/u2fjQWm
mXgbs9eIRrL/TwtPl3kmiJ9aV1alMyDgw5MytIgFhw6+gQMk+yvHt5jwsmC8
J37+0v/1Xk1OrSALLyYvvL7/fz2sV+awMAv45NMYSPIyTZ8zmetZqDF6G/uK
ZDXCftVXCRaykhXz40i2U71Q/1uaBbus5qOJJMfkajwZ3sbC6hu8J/+vNyrI
nVwsx0LpLtP2SJIXp6wVEt3DwuN4t9H/++/bzqnetY+FCd+t4c4k34jt89c4
yMKaYIk6M5IjJRt1zh9mQUhFM1aD5JqXn/hstVg4lhe8diPJ7NUJle4nWJAs
5pKfItev8CTY5/kpFhSvZE5Ukmwu4KSVdJaFg3++2YaR/NTbfDFxgYX/kr1f
XyK5gku3vMmUhZDhPUGSJMtMSx5ZuMHCEv/+z6FkPS7e4eUStiPHO/9dq0ly
IHOkZNtdUq8sPDJK1neYXq5m4MpCSz9FXY1kqSupc1c9Wfi4cVLiN3lezvwO
L3R+zMK/DYrDd0jOq7dWiQtlQUOsyP85eb76dA2n88NZ+NDBa7GRZLFKtbya
VyyMvJLQiSfPp2vxCqWpBBZcO/Uso8nzq5mUK69TyMKi6tZnlxLJfrI1mmVC
sDBksyy3hLwP72N8U+9UsGDZ0C8lSfKyF5d2RtWS9ffaPV0dR9aDsmj7MI2F
AvXwe2PkfVzMGejl6WOh+YnzFwWS9z1ojhdhsuAj+eC1TTQDEbffbdKYZuFV
3xL+BvI+m5nob3i+bBhuqleyrMn7/7RtX+eHlcN4w+rb5R1B7qehVFTJ2mGc
UFJwiCL7xfYT46J9G4dhPR/rWRLOAGtfxNqDSsNIaJB63vCUgYcrewWpl4fR
4vlc+qA/A7K/sw53mA/DffTAGkmyf/2Kc3dovTYMO9k1HnOPyfz2S3T8uD0M
ofcGg6lk/xsxMUwu9BpGiGDGSL87A5bJZTphKWR8V0mdr2S/PXHsjc/x+WEI
HlJ11Tcj+xvvPpO3XCO46m3gW2fKQPOQxPQGnhFY5Szbdors5555A7JifCNw
jZI/dPwiA106Pk9XCo/ApOhms/hZBl7eLjZf2DqCrrjme6bHGRAs2cnVqj+C
bvms5MdyDDD1pHL8DUZw9Ojy5HeyDNS2r7mhbjiCYzx+El9lGHjyb6EuwXgE
WeYRHuwtDAgr10c7WI6gddc1L1NJBkRSHCDsPIJU0421DPL9uCWy+JF+/Ai4
6X7rDFl0HLp3aqF8dgT2cQUbvqfRMWXT56KzMAJqzPtVUyl0ZFzxmK3ljGA+
m/fDpmQ6NulkT/9aPIr9IkW/Xcn3OZ/E+rHh5aOY9A/oVIuho7ms64/45lGs
NhovoYbSYStkV39XdxS7RA609zrSERUfGLc5ahTbNDd/8z9Cx5Wje9W634zi
Z2hVXgdIf9qv5si3o3Ay0jqioE7H+43blwq/G8WIr+2uDlU6ciLLbnBljeJf
qpbZcSU6akKmdnVWjsKt8sdHm+10LDw0KwgfH0Xk+u5j7cvpMD2n9INfdwxy
Y4YLWVQazMT1Ywr0x9BRTWk26yG/A6lWd68bjGFohYPVim4art56Ifrl3BjG
c50i7TposPaetXI3G4OmXvBzpVYaHHJL2VOOYyj9KZ7eVkOD/1p9BUbMGDYT
S6/qFdAQ2G7F8yxuDEVPJE7x5NMQ9PbRzyOJY9C6GLfwMZeGkF0ZD6OTx7C1
o9BjWzYNz7VWf7uYN4Y7b6Z3zqXSEOP4y7yhegzy3PyCAXE05LZYPSuZGkPG
VHMGdzA5f9HmPfg3huSV86z8QBpsdvXUEnPk/JsCIzcDaNjgfVGgjGscN39t
EKv3pcFH6ZRHucA4xJ+vkfGl0GD0TMW+asM4iu0Kh9OdaJg2WKbbeGwch/I1
++LMaWh8WNV3RmccEuJWjtJmNKS89/Zp0h3HRFjQpyhTcv+4uD43G4yjQa/q
dOAlGqrSJ1RaL46j89TBkpPnaHi5vGtbh904tKq2WV3QpuFATQb3n/BxpIXf
OqcvR4NErEthVASZz2mvfzqyNHA5HbtjGDUO29o3ZRoypN/mDmrp23E8X2fw
QmYLma8Lb9mrlHG4fHqqXyFOwx1ZU7fTn8dxobeocK8AqXPt2M/3ZRx6K5P2
sXjJeD/HWSWV49gn9lkjfgnp7+lnKvdjHK9z3vRxL6Lhya+cQ7xt5HiVlS5+
01Sk+C6bL2KOwzxv0/0cOhUhpj+z746MIzDj6tItVCruKr29KTs+jtzjPbHB
XVSo9uxrfzEzDovlj3rP/qLi236Lwjs8E3jAbi+PryX/S/4UOMmIToD50eCz
bgEVUlrXJp9pTkAimeHl/5iKDveW+xLHJ5BtJiPu40XFyyLN2XidCTjTPPIf
elCxSmkzJ/fkBA64sMcvulDBvbmHr814Ap9z7MXb7ajo5booIXFrAtNxpVf/
nqUiqUj/aPzzCfzLd7TcIEnFtZmiL3IvJwCTqjOOolRsVpLTzo2cQK3zevbX
tVREJQvof42ewA5/I++Ly6kIiqw06vswgZfyWzU1OD247XTERq5kAuLbPNTX
9PRAWUk5NOfPBJo2rGqveN0DhRfrTir0T6B7euGgX0QPZGenBVIGJzDvuTxa
+3kPpEoLveJGJiA9HH63ILAHAnqHnZ7OTuDVlaGnl1160GOpe+X28kk8XPbn
Z8H5Hvg/M98lt28Sk2XPVFoFe9A9FvQtznsS8wfTLVSbusDgPIw55zuJ02N/
fjyr7EKfoO193oBJHB8IkGZ86sLIthNbb4ZMwotruso6vgtcl5Z6KL6ahEm9
iPAyxy5sKn+kUpYxCVYDMZC7pgvXntm/62qfRKvEubn9JzsxtPe0t6jiFPrN
YPoxrZ38b9w1sKhpConK167+8WtDxRbHxtse09jScTu8/WgLKO8Kjecp0yj4
sFfGQKUFGrJc3Y99plHkzVxaLdeCMvmAwTcB0xB+3dDatLYFJapvF/94Pg33
cy2Tin3NyDf4sW9H0jR4/cP4FIKbkfRw6ytqI+lv6fPasrsJT5pbLM9smYFP
hLmawMtGBD4K2tKwbQaFYt+MHgU3wl9Gq/fUjhl8/KHT+s+rEd4Pc67p755B
+TMOH++dRrhseWatrTID8UORYg/0GnHdwcBeXW8GngZV5WXcjcCa6geyDjMw
jEjuqHBowLBhaSh3xQz2Fnt6e9yqx9Q7b9v8rzOoPnw6i8+qHuy5E8dtv83A
dVXLfPjlegjGt8y31M7gmJxafpVuPWQmBq5/+DWDreEV+m6y9TALW6tuMDwD
oQ+p2Rca61DfbDPwWuwf1jvyXDz8sxZZ59YePfDfP3ybsThgNVeDuB+U1zTh
WajxahRb5nzDdOVlF+HPs1hIbM39OPkFPaHE5Eq7OTytFPtNyyvDVMNBUc/l
8whou5Ki7FqI22GbSp2L5lFzVemPonMGzjy3sOYh5nGaLqRRfTYDyuGxwkFl
86Du3nnkjkIGZl9ssor5Oo8nkjFdv+vS4f1qk0Bl/TxyB/cwNdLTEBm76eya
3nnsDmzkBDukoCJjU1+a0AL2fFxZ4i35HomZFqEqKxdQM72oOuLXO/hlxap+
Fl5AwWKadvfzdziZsymoZf0CWq4OCSxa8Q6/8jcpzksvoP3YloIMnkSwSjY9
1NlH6ovWxB2fjsP6H5tWMkwXcOlzsPOtZTFQmWweNzNfQCK9fXxZTDSMJR+3
dlou4PNTlVfEjmhE3hp803pjATnSKfQs9TfYsDxnV/WdBZzPdJXrtYvCtlNa
ulk+Cxh8yF9+uv8llBuu+7inLeCZeMHpfL2nMPonarOQsQCFsuWlK/pCcU+6
Rv9B9gKMNSnveb1CUfCfwlqHAtI/zJTdVhwCNeF/cdc/L8Dzt1n5rjvB0DT0
Lzv5cwFvouLfaLz2hWFLyrwEewFVhbLXVw+44NE729k6Ljbmd/x88z70Ad47
y8148rCx5uVXm0A1Z8xLpoz38bERUkwx04m6h8RryQM5q9koejXP/YvyH2an
P7Tp7WCj3nFu2Kv5CrZ8t/7J2cnG7X9jv/xOXMKpqB3NWbvZMDBySdCuNUL8
4Q91IkpslCqGHV/P1sVJv/dfGepsuG/3dlz4sZ2IFXuX8/AsGzFBCWb6MuZE
zdC1LPnzbLwUMbQ2YlsQ0yXbMmgX2JgRsvxu9uMqoWeZmKx9hQ0FP/mLjkY3
iKnkhNg1NmS+0mINPmvsCalHVjGVtmR+TV/uHLlwm9A12PrmgT0bQ8573Iq3
/EfETMRH9DiwsXKLpL185h3ixKH4kBQ3NqRWcUrmox0JhxVXg694suEwccpz
6Mw9Ipq6OVDYmw3B1EbnS9z3iQnvuMdO/mxopvV/LjByIt7Uxj7SfE762e88
5t7ygKiKsXg4/YKNnBmRKidbF2L8zqYHSZFsjFxZ83iS40Jor491XBlD8lE5
CzcJV2LsylvbjiQ2jHPNrUZ3uhGTL5Yom6ey0Ry25O7SaDdips56oTedDRpv
kUEQrzvBgWLwcA4bFl+0bDfddSe4ncKNHPLZ+PP0ZVRaojuxNGN2w7+PbEwo
ncotanMnBKXK07kJNmwWuSibq3gQK4y3Oz0uYyNF5O3kjJUHIRwScFiwgqxf
CeXU2qcehAjX2Ya139i4M/ehpKvXg9jawxiTaWLjMkfn8HcXT0JGROdTagsb
fQsWJlGvPQk5g1SKYhu5Xp+Tj/4VexKKpY5r1DrZOLN6x3XjWU9CeeZXR2k3
GyLT2wUur6MQKgrqCVo0Mh5H8DpLgUKoxyzdd+ovG3p7XquXm1OII2027KZ+
Nk6mmpTwOlEIzZV1X42H2DBtkObuDqQQ2tp7n3SyyHoumIueiKEQuu4vzluM
stGomidyIotCnCyY2/h3nNQP1In2fKYQZ0au9N2cYiP4kP1BoUYKcU6mImNk
hvTrsXjb2E0hjM1knB3n2JAjnB32DFGISy8Dj8wusPF7sRtNdppCmNaP8Ltx
caDUtmdDKZcXYcF3rpGHhwOHtENXxvi8CKvDHyN9l3Dg6apI+7zCi7jhJGkp
xMdBedPDPsW1XoRthsfOpwIcmDWYFBwV9SLs+3rH1wmR85fSo6bEvYg7UieK
Xq3g4IliV6+epBfhaJzmJSXMwf2Bjr/HSXYKEdZPWMNB90ap+T5y/MOqe2tl
13NwOviZ+x7Sz42rvTNNlPQT/NK6iYznqYLEvRIcvCttv1FC5uNzO86uYAMH
NmpPopfwexF+73n3H5LmIPbBhqF/5HoCe25yyjZz8L7iWHkUud4nIvWVx7Zx
oP1Q9c0wuR9PDZRCqmU4+Pvtxex4D4UI931pbLCTg9m9Vy4mN1GIiNJ5qZZd
HASKDBxd/4VCRM2Y9V9Q4GDrSuqRA7kUIkbhS2aXIgfcyop04XgKkRgTpNG3
n4P9C5/Mxl0pxIe2UYFbqhy0+zfZL9ygECkrjZpG1cjxC6zHX85QiCz3DVfn
jpDxQgWvhW+iELkFnnLumhysK/J1i+WjEAUjfyYWH+dAZu6v9l2mJ0GYpXsv
1+PAx+llsXW2J1FYZ6vbdZKD1aVJUX0hnkSeuuyqtNMccDVssf5r60mkSCRE
6Z/n4Mu1vTF2Up7E+wALC8mLHDBiZnnmpz2IuNmNMszLHESfv3F8da0HEdkW
mR1owYE8f2ZUv6MHEX7c2PmyFQehx742pR73IELz1kLuBgcSQbVKS0U8CN+w
kO/Vtzjwl/w545rjTjga+FAFnDnwnf346P1HN+I2cfTdbxcOZtLupvMddyNs
dy+6lfSIAwU9I62ihkeEheDDGR0vDgbmPTv2drsSBlX/rfB7QtaTGaHF3e5C
7Dxscog3kQO5nS8MNl+6T2xLF+Npfc9Bz5jHumul94hNG9qqEpM5UONZ1268
+R4hMn/m7LFMDsaPN7lfozkQSwu0b3oXceCY2GJXo3WHoMorRfA0cXD2oF2R
7klrouPNqGlTCwfxg5cdnjRfJ9qE0rfEtZHxAwMGZoyuEbWDOzI0ujjo1NmT
ZG9gSRS921jp0c/BgczyX9G7LxIF6zoDTw9xYMoJz9fhOk9ke0eekR7m4Oc/
xRCBakMiyXJtV+kEBwet7u21f3mCSGhsjAuZJuN/3iyRtkSTiDkSYm02y8G2
f3P89dWqRFSGvrzCAgeZTXlbj/TKEi82LpvkcDjY+fZBY7buiZL/AVC7bZU=

      "]]}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBlfbp35y+3L83yR7C32m/i3t22ZyIhfYm
xiBw2H7u5OZFyzuXQ+VP2rMnGmuvf77OHmLKBfsplZL1x05uhaq/bK8Qcm9i
otAB+/Q0ELhmX9CyKuuw4nGo/pv2h3xte+uUz9ufPQMCd+w5sptvLM64DDXv
gb31vG3c12dfg6p/aK+Rd/uvjvhNqPmP7Z805BS06tyG6n9if2mJ0N7lEXeh
9j2zry2wfpb2/j7UvBf2dat1F1gUPISa99Le66LIitu3H0HNe23/NHjzqs1v
HkPNe2P/7k1VkVv2E6h57+xbuGyVykKeQM37YM/5re/WlJsw9R/sw+69uTXX
6THU/I/2vq6qwtxHHkH1f7I/vyct4VcCzL7P9j/2334u+foh1Lwv9teOreaK
UXgINe+LPcMhvTc/Vt6HmvfV/sbKE//dle5Azftmb+Ban5eleANq3nd77sZZ
d1q9rkDN+2F/3Td9ZZD4Rah5P+yv/m7J+2l+FmreT/uoa0mdHrwnoeb9sq/v
E/vAvPUI1Lzf9iHvOq25+fdDzftjHxXCdfmh12aoeX/sr0938VfbPh9q3l/7
43diVS7IJe+HmPfPftudur9GZpP2Q8z7b/9KrvV14I6+/dBk5wCh5uwBAG9G
MT8=
       "]]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{532.8000000000001, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-0.009821511044515034, 0.646441586000561}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6630897090704613`*^9, 3.663089871058789*^9, 
  3.6630903331829243`*^9, 3.664102932960667*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell["The Error", "Subsubsection",
 CellChangeTimes->{{3.664103338112234*^9, 3.6641033476122475`*^9}, {
  3.6641034708824205`*^9, 3.664103471442421*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"RightAntiderivative", " ", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_Real"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"y", "-", 
        RowBox[{"analogintegral", "[", "x", "]"}]}]}], "}"}]}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "Error"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.66410339917232*^9, 3.6641034496423903`*^9}, {
  3.6641034865824423`*^9, 3.664103541362519*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBlfYMK72nXSsNsIfwd9ozdNidd9D22m9i
DAKH7RsiVHz/2iTth8iftGewYFKxMLXZDzHlgn2DvAT7JN4ye4j6y/YGUxbl
xHV126engcA1ew4L56+zX06Bmn/Tnid+6RHbR9Ptz54BgTv2Vm4mkikHptpD
zHtg39fW9uuK9QSo+of2D6beulYW0wo1/7H9CckVT/+bN0D1P7FPMNZymP2o
CWrfM/sJHyKnn//WCTXvhX1DXNw981t9UPNe2i84vp7BdHU31LzX9g1bNPpv
dtdCzXtj39B24uvGfQn7Iea9s3/waoasX0Ab1L8f7B38o9KLNk/YD1H/wf4C
5/4L53dNhIbPR3uFbQcOGhzph+r/ZO/QkV299HoPNDw/2xe4nWqb6zQBat4X
e4dwhZfXzKZBzftiP2Hm6rkLK+ZBzftqv+Own177uUVQ877Za13/L3rDawnU
vO/2PV7uDq8tF0PN+2H/JuvDhsXlC6Dm/bD3mHX80trE2VDzftq7xOhFFZ2f
ATXvl/2PjHz2AyqzoOb9tvdwZze+tW4u1Lw/9g77XbTdBWDm/bFXMN70nKcT
5r6/9hNqVE5niMHM+2fPUOsUaGHeCzXvv71DunmSrm4Z1DwGBwi1YA8AY0gp
6Q==
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["Error", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{625.6000000000007, Automatic},
  Method->{},
  PlotRange->{{0, 2.}, {-0.03963351505801278, 0.02332397949916669}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6641034364823723`*^9, 3.664103450122391*^9}, 
   3.6641035081124725`*^9, 3.66410354236252*^9}]
}, {2}]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[" Trapezoid approximation", "Subsection",
 CellChangeTimes->{{3.6641026450792637`*^9, 3.6641026706893*^9}, {
  3.664102962640709*^9, 3.664102965860713*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      SubscriptBox["t", "k"]], 
     RowBox[{"f", 
      RowBox[{"(", "t", ")"}], 
      RowBox[{"\[DifferentialD]", "t"}]}]}], " ", "\[TildeTilde]", 
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["F", "Left"], "(", " ", 
        SubscriptBox["t", "k"], ")"}], "+", 
       RowBox[{
        SubscriptBox["F", "Right"], "(", " ", 
        SubscriptBox["t", "k"], ")"}]}], ")"}]}]}], " ", "=", 
   RowBox[{"\[CapitalDelta]t", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"f", 
          RowBox[{"(", 
           SubscriptBox["t", "0"], ")"}]}], "2"], "+", 
        RowBox[{"f", "(", 
         SubscriptBox["t", "1"], ")"}], "+"}], "..."}], "+", 
      RowBox[{"f", "(", 
       SubscriptBox["t", 
        RowBox[{"k", "-", "1"}]], ")"}], "+", 
      FractionBox[
       RowBox[{"f", 
        RowBox[{"(", 
         SubscriptBox["t", "k"], ")"}]}], "2"]}], ")"}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.6630899595317254`*^9, 3.663090023472245*^9}, {
  3.663090053777068*^9, 3.6630901573132176`*^9}, {3.6630949340085793`*^9, 
  3.6630949342454824`*^9}, {3.663095251437865*^9, 3.6630952572282677`*^9}, {
  3.6630954293646603`*^9, 3.6630954537235637`*^9}, {3.6641030052607684`*^9, 
  3.6641030092907743`*^9}, {3.6641030939618926`*^9, 3.66410316368199*^9}, {
  3.6641031952420344`*^9, 3.6641032393820963`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"analogsignal", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"Pi", " ", "t"}], "]"}], "+", 
    RowBox[{"0.3", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"5", "Pi", " ", "t"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "analogintegral", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"analogintegral", "[", "t_", "]"}], "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "t"], 
    RowBox[{
     RowBox[{"analogsignal", "[", "\[Tau]", "]"}], 
     RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TrapezAntiderivative", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"0.5", "dt", " ", 
       RowBox[{"(", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{"Accumulate", "[", 
             RowBox[{"Most", "[", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", 
            "0"}], "]"}], "+", 
          RowBox[{"Accumulate", "[", 
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", 
          RowBox[{"data", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}], ")"}]}]}], "}"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"analogintegral", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", "TrapezAntiderivative", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6630895120928946`*^9, 3.6630895133898344`*^9}, 
   3.6630896826317463`*^9, 3.663089893919262*^9, 3.663095512005945*^9, {
   3.6641029096306343`*^9, 3.6641029312706647`*^9}, {3.6641032511021123`*^9, 
   3.6641033089421935`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVl3k8VV8XxkVliAZNxqJRUiRKkqdEEUopaSBDKhL9iiLJcJE5SooUmSrz
TMIhiiKzKOMdlOle85Dh3ve8f53P9/Ps/ay199p7nXOkLezPWHFzcXF1LuLi
+v/zhFVfQ2m/lfpU57qgHN0T6n/TjCy6RTWxXXZE+JuiDNYtawnOFj2LdM71
3o3HVLD7wJqE16JXsfu6WpyfrTZU6/dmPBV1wCfXA7cO5Buj9FW5cpCoF3TT
7sV5HrUGxSPAyV80DPuXG6en7X+Aqw7Don6i8Xgs+Omk9tMA8IXpvB0ZzUH2
Zf4eHufXmFOhzr0Vy8WySdei1Rmvwep0MjI8mgttPuH2+T+v0bT9/bK8sFzc
VEr778LZN3jzaek9l/15+GTRnqi4KxpK9PITS13zcY9uUhp6MwZmiuoT4nyF
CH/c53d0SSzy6xWPH99AIOOcTLfXVDyC+4e05Y4RUC26y6UpmIBr3O9OrLIj
YCF55NiIdALWKYmfbC8mYHRSbWClfgI+VXsk5e8uxfYj97zvxyZAXN4mU7e2
FA7XPWKWnEjE70lV4q7QZ3SK8Q+XBr2DMaXjd3lABbY5lq/bP/MBK3u2yV1/
WwET5eTev4JJ+Kb2n6tAfgVUnv61jpBOgurUEqnTtAoMpN8q4dJNgri1vFWX
yhdY3C5YPPI6CV0nPYdner9gqnD3szrNZFwVk1m8+3AlCp6yf2ZHpkDi/p1z
DecqwaN/NTMiIwUtTUWJDjcrkaPvovHsawqOBZ3W+RReic/5d9dWjKVgO5dL
sDazEqXSKrd366VioPeHiGVkFTTvSXzJ40mDfebdXS8nvmGlR/fwDv90sNSo
Td/4vqPA7HTtqth02FadfDAn8R1iagXckoXpuNG9o9JU6zsEareGRA+kw0yo
x2xr+HdYnIlYk7UtAwbWemFZ+6sxpmcptCcoAwrSW+dqHtRAo0U+YcgmE2kp
T9+yg2tQ2jp5+KVzJuRUuLQV4mrAyuBqMvHNhMyp9rBn1TWIas9r2Z+YCSnX
0N0XJX6AEkmR2U3PxKpfC+Z/i39gVOHsqwsWWRgL+Vm1aFEddqiIOB27n40i
20ww1tXhgazzX/mAbDzWDsz7KlcHAa0HZw9HZ0OCSyM+wLgOldUvZVsrs6Fl
n+q2NqMOyt8PfqSL5aBmm8arMPl6JCz3zUmtyoHUEtEz77vqIdoZ+MFPMw9L
7voERfTXI1WHurrcJA8DPeNV/hP18Ps4rCR7Pw+5RbW4JdCA/ndChzyT8nDC
wWuX4r4G5M2ZvjVZnQ8H+jBfUVADnnuEZ/Uw81FV9pWoU2vE2QXX3O6vH5FY
M88IOt4IpaRl5116P8K7VVFA70wj9l4UPXhscSE0mG/OVl1vxD3BP2PWGoUo
ErnfX/q0EaotMrwDpYXIsN++OquvEZSklf31Xz/hpaTvtbCwJngN6vXsmCqG
tbOO0IWhZnjwR7gV25chSXyVielUMz50/lO3opRhqLgtxZKrBYm/0903viiD
HfcNPbs1Lbgx6K9WXVIGhwCfAIpaC/xGd5ouLP8Mt9fl/GmBLTgVn+j5Mesz
npcdWsqz6ycszgfuHFxagTJ+RU7KrVbc7hHRE+n4isS4CrbY1t8IJsqXbfX+
gcPrimMN0zoQco1P89/fBuyq7Cj4KtuNUDHdjJtFzVjHuskMUe6GROnqj62V
zeBaOyd96XA3YsZMQg82NaPZQjRg+Fw3bvkGPBvob8ZD9jkTEY9uLF9cI9W7
rgU1ynWLbFq78St66b7j9i1QbjRLWKrRAxrP+IlY0Z9oPmzI+sDqge/p82dC
zrZiNpr+Omu8B8aTWbmHTFohzbmr/2mmBzlnbszQrVphVxyWUsNNxZ/t3/eK
328Fr+pPm+F1VHxdSFBUjmiF6t4Lf5VAxbbB0bOSHa2I2Xqlh3hCxUeV7O1T
l9tgK3CzsUWBBnPuA+nzer9Q3Xa+eHkwHexVppLnpdpheMyYymAw4HzXhmVL
68C+mIDzMVv+ANdvXPqW14Ue9rPmG25/kZCdTF/i3oNenbq4deV9UDqvVRv4
gYotAdufhFb1od9B9dbbNCqu1rg9EKztQ1zlF9/cbCpoJxVOc//qQ4a8/5KO
Yiq6DEPZTFYfDglVfJZqpKLNxPDCF7F+KAedefpolorv/7Uud7jTj5aRSn6l
EzRkRHQ7N0gPQH5OY66IRoPtDonfitsHUCnWWKzylwaZj8aqYXIDaBUvm8kY
pCG6rWHWaP8AfPP3fgifoCF4fYVLh94AvszFZigvpePW8/euf+8PgOt++eUC
GTpkQ//zWPgxgJqd47meNnT8kUqjmjYN4Ih5+Pf7dnTEZgwcKW0bwI2W3/+u
36FDrN6Sm0IfALf4bfcDD+jgX2FE4fs3gMnpX2IxfnT0Bap6r94yiMriZtm7
7+hI8OXx2/FgEPgxtXKsiw5hhu+j3W6DGE3QDeCi0eGO5Q57vQZx/uyZOv5e
Oi5OiVw5FDwId+PyKMFBOlZc3a18OnYQDnH3kxun6HDGBarT90HccXD+dkmI
gT+RXT9d6wZx41wZ1qxk4OyUZY1n8yAONebuqBRmYHeqXX5g1yB4dTu1JEQY
oIt5BcWMDUJCU0WKsokB/am0A1ViQ8jQdUnCPgYKTyvJ/9g4hErTO4avVRiQ
Sf24pXHLEHLSH+2eVGWA+2rFio7dQ3DNNbv1DAzkN/zqHdYYgp1VZ46fNgPS
qYufrr9J+vVL9128wEAwn/9jidtDUGdd1bt4iYF5yxWu0o5DeH9+Ms/QhIGf
YmI3droNIXmN1AslcwYCfOXV8WwIttd8TqfdYGDS8uLAtU9DeJu42Nr9HgP3
Vs+tbisdwu+HQ9IaTgxMfX51SOfrEHy46j7NO5Ms3Rmys2EIe5q6n1x2ZWCm
+8r+kT9DSB1MTf1KYcDpCZe5+dAQ7Pn5LU55k7r6W//G0SGI/DGcrPdh4N9r
WmfO/BC85FcVlvgxMHvJystZmInOTL8azScMPFi2NG1gPRNJO+mPw0IYmCtM
bL0kycRjpfUynaHk+kT7ZNVlmDivaypxIYyBhVabBm51Jlbk3+eaf8nAo8fL
5u4eZaJUrlVodSQD7H0pW3q1meBZRhXa/Irk58z7lYZMFAzuGt71mgGus7c3
BFoz4VzJ+2g4hgF3nlXaC3ZMMPwPXq99y8Ci7Mz/7ByY2COTYZwYS9ZHeLzC
wI2JsJ23zI/EM+BZ9oxV5sXErX4/t8UJpP6fkshefyYKZ59kl5LMU+94c+1z
JqKTdG23vGPAy23dc59IJuKzv8xUk7xYPr9kOpoJj/eZSbbvSQ6eWfU7iYmL
Y6lPIj6Q4w9FHNTNYGJm3q56axIDS5gHrIpymagW51FPJnmpnkvBm1ImBjYe
+/02mQGfOXHaiq9MjLcGCa1OIfXkomUe1Uy4cf32dyXZ56KJ8lg9E3k26uep
JPMKsE0tfzKxfu/gffVUBnw/vvFtbmdCLlJuLIxkPmtkaVHJ/emwqWb8Xxfp
ac/7w0QKvyz/7jRSr3JfIjPEBH87f+Ztkn3vS8tHjDIh4felKoVk/u2fjQWm
mXgbs9eIRrL/TwtPl3kmiJ9aV1alMyDgw5MytIgFhw6+gQMk+yvHt5jwsmC8
J37+0v/1Xk1OrSALLyYvvL7/fz2sV+awMAv45NMYSPIyTZ8zmetZqDF6G/uK
ZDXCftVXCRaykhXz40i2U71Q/1uaBbus5qOJJMfkajwZ3sbC6hu8J/+vNyrI
nVwsx0LpLtP2SJIXp6wVEt3DwuN4t9H/++/bzqnetY+FCd+t4c4k34jt89c4
yMKaYIk6M5IjJRt1zh9mQUhFM1aD5JqXn/hstVg4lhe8diPJ7NUJle4nWJAs
5pKfItev8CTY5/kpFhSvZE5Ukmwu4KSVdJaFg3++2YaR/NTbfDFxgYX/kr1f
XyK5gku3vMmUhZDhPUGSJMtMSx5ZuMHCEv/+z6FkPS7e4eUStiPHO/9dq0ly
IHOkZNtdUq8sPDJK1neYXq5m4MpCSz9FXY1kqSupc1c9Wfi4cVLiN3lezvwO
L3R+zMK/DYrDd0jOq7dWiQtlQUOsyP85eb76dA2n88NZ+NDBa7GRZLFKtbya
VyyMvJLQiSfPp2vxCqWpBBZcO/Uso8nzq5mUK69TyMKi6tZnlxLJfrI1mmVC
sDBksyy3hLwP72N8U+9UsGDZ0C8lSfKyF5d2RtWS9ffaPV0dR9aDsmj7MI2F
AvXwe2PkfVzMGejl6WOh+YnzFwWS9z1ojhdhsuAj+eC1TTQDEbffbdKYZuFV
3xL+BvI+m5nob3i+bBhuqleyrMn7/7RtX+eHlcN4w+rb5R1B7qehVFTJ2mGc
UFJwiCL7xfYT46J9G4dhPR/rWRLOAGtfxNqDSsNIaJB63vCUgYcrewWpl4fR
4vlc+qA/A7K/sw53mA/DffTAGkmyf/2Kc3dovTYMO9k1HnOPyfz2S3T8uD0M
ofcGg6lk/xsxMUwu9BpGiGDGSL87A5bJZTphKWR8V0mdr2S/PXHsjc/x+WEI
HlJ11Tcj+xvvPpO3XCO46m3gW2fKQPOQxPQGnhFY5Szbdors5555A7JifCNw
jZI/dPwiA106Pk9XCo/ApOhms/hZBl7eLjZf2DqCrrjme6bHGRAs2cnVqj+C
bvms5MdyDDD1pHL8DUZw9Ojy5HeyDNS2r7mhbjiCYzx+El9lGHjyb6EuwXgE
WeYRHuwtDAgr10c7WI6gddc1L1NJBkRSHCDsPIJU0421DPL9uCWy+JF+/Ai4
6X7rDFl0HLp3aqF8dgT2cQUbvqfRMWXT56KzMAJqzPtVUyl0ZFzxmK3ljGA+
m/fDpmQ6NulkT/9aPIr9IkW/Xcn3OZ/E+rHh5aOY9A/oVIuho7ms64/45lGs
NhovoYbSYStkV39XdxS7RA609zrSERUfGLc5ahTbNDd/8z9Cx5Wje9W634zi
Z2hVXgdIf9qv5si3o3Ay0jqioE7H+43blwq/G8WIr+2uDlU6ciLLbnBljeJf
qpbZcSU6akKmdnVWjsKt8sdHm+10LDw0KwgfH0Xk+u5j7cvpMD2n9INfdwxy
Y4YLWVQazMT1Ywr0x9BRTWk26yG/A6lWd68bjGFohYPVim4art56Ifrl3BjG
c50i7TposPaetXI3G4OmXvBzpVYaHHJL2VOOYyj9KZ7eVkOD/1p9BUbMGDYT
S6/qFdAQ2G7F8yxuDEVPJE7x5NMQ9PbRzyOJY9C6GLfwMZeGkF0ZD6OTx7C1
o9BjWzYNz7VWf7uYN4Y7b6Z3zqXSEOP4y7yhegzy3PyCAXE05LZYPSuZGkPG
VHMGdzA5f9HmPfg3huSV86z8QBpsdvXUEnPk/JsCIzcDaNjgfVGgjGscN39t
EKv3pcFH6ZRHucA4xJ+vkfGl0GD0TMW+asM4iu0Kh9OdaJg2WKbbeGwch/I1
++LMaWh8WNV3RmccEuJWjtJmNKS89/Zp0h3HRFjQpyhTcv+4uD43G4yjQa/q
dOAlGqrSJ1RaL46j89TBkpPnaHi5vGtbh904tKq2WV3QpuFATQb3n/BxpIXf
OqcvR4NErEthVASZz2mvfzqyNHA5HbtjGDUO29o3ZRoypN/mDmrp23E8X2fw
QmYLma8Lb9mrlHG4fHqqXyFOwx1ZU7fTn8dxobeocK8AqXPt2M/3ZRx6K5P2
sXjJeD/HWSWV49gn9lkjfgnp7+lnKvdjHK9z3vRxL6Lhya+cQ7xt5HiVlS5+
01Sk+C6bL2KOwzxv0/0cOhUhpj+z746MIzDj6tItVCruKr29KTs+jtzjPbHB
XVSo9uxrfzEzDovlj3rP/qLi236Lwjs8E3jAbi+PryX/S/4UOMmIToD50eCz
bgEVUlrXJp9pTkAimeHl/5iKDveW+xLHJ5BtJiPu40XFyyLN2XidCTjTPPIf
elCxSmkzJ/fkBA64sMcvulDBvbmHr814Ap9z7MXb7ajo5booIXFrAtNxpVf/
nqUiqUj/aPzzCfzLd7TcIEnFtZmiL3IvJwCTqjOOolRsVpLTzo2cQK3zevbX
tVREJQvof42ewA5/I++Ly6kIiqw06vswgZfyWzU1OD247XTERq5kAuLbPNTX
9PRAWUk5NOfPBJo2rGqveN0DhRfrTir0T6B7euGgX0QPZGenBVIGJzDvuTxa
+3kPpEoLveJGJiA9HH63ILAHAnqHnZ7OTuDVlaGnl1160GOpe+X28kk8XPbn
Z8H5Hvg/M98lt28Sk2XPVFoFe9A9FvQtznsS8wfTLVSbusDgPIw55zuJ02N/
fjyr7EKfoO193oBJHB8IkGZ86sLIthNbb4ZMwotruso6vgtcl5Z6KL6ahEm9
iPAyxy5sKn+kUpYxCVYDMZC7pgvXntm/62qfRKvEubn9JzsxtPe0t6jiFPrN
YPoxrZ38b9w1sKhpConK167+8WtDxRbHxtse09jScTu8/WgLKO8Kjecp0yj4
sFfGQKUFGrJc3Y99plHkzVxaLdeCMvmAwTcB0xB+3dDatLYFJapvF/94Pg33
cy2Tin3NyDf4sW9H0jR4/cP4FIKbkfRw6ytqI+lv6fPasrsJT5pbLM9smYFP
hLmawMtGBD4K2tKwbQaFYt+MHgU3wl9Gq/fUjhl8/KHT+s+rEd4Pc67p755B
+TMOH++dRrhseWatrTID8UORYg/0GnHdwcBeXW8GngZV5WXcjcCa6geyDjMw
jEjuqHBowLBhaSh3xQz2Fnt6e9yqx9Q7b9v8rzOoPnw6i8+qHuy5E8dtv83A
dVXLfPjlegjGt8y31M7gmJxafpVuPWQmBq5/+DWDreEV+m6y9TALW6tuMDwD
oQ+p2Rca61DfbDPwWuwf1jvyXDz8sxZZ59YePfDfP3ybsThgNVeDuB+U1zTh
WajxahRb5nzDdOVlF+HPs1hIbM39OPkFPaHE5Eq7OTytFPtNyyvDVMNBUc/l
8whou5Ki7FqI22GbSp2L5lFzVemPonMGzjy3sOYh5nGaLqRRfTYDyuGxwkFl
86Du3nnkjkIGZl9ssor5Oo8nkjFdv+vS4f1qk0Bl/TxyB/cwNdLTEBm76eya
3nnsDmzkBDukoCJjU1+a0AL2fFxZ4i35HomZFqEqKxdQM72oOuLXO/hlxap+
Fl5AwWKadvfzdziZsymoZf0CWq4OCSxa8Q6/8jcpzksvoP3YloIMnkSwSjY9
1NlH6ovWxB2fjsP6H5tWMkwXcOlzsPOtZTFQmWweNzNfQCK9fXxZTDSMJR+3
dlou4PNTlVfEjmhE3hp803pjATnSKfQs9TfYsDxnV/WdBZzPdJXrtYvCtlNa
ulk+Cxh8yF9+uv8llBuu+7inLeCZeMHpfL2nMPonarOQsQCFsuWlK/pCcU+6
Rv9B9gKMNSnveb1CUfCfwlqHAtI/zJTdVhwCNeF/cdc/L8Dzt1n5rjvB0DT0
Lzv5cwFvouLfaLz2hWFLyrwEewFVhbLXVw+44NE729k6Ljbmd/x88z70Ad47
y8148rCx5uVXm0A1Z8xLpoz38bERUkwx04m6h8RryQM5q9koejXP/YvyH2an
P7Tp7WCj3nFu2Kv5CrZ8t/7J2cnG7X9jv/xOXMKpqB3NWbvZMDBySdCuNUL8
4Q91IkpslCqGHV/P1sVJv/dfGepsuG/3dlz4sZ2IFXuX8/AsGzFBCWb6MuZE
zdC1LPnzbLwUMbQ2YlsQ0yXbMmgX2JgRsvxu9uMqoWeZmKx9hQ0FP/mLjkY3
iKnkhNg1NmS+0mINPmvsCalHVjGVtmR+TV/uHLlwm9A12PrmgT0bQ8573Iq3
/EfETMRH9DiwsXKLpL185h3ixKH4kBQ3NqRWcUrmox0JhxVXg694suEwccpz
6Mw9Ipq6OVDYmw3B1EbnS9z3iQnvuMdO/mxopvV/LjByIt7Uxj7SfE762e88
5t7ygKiKsXg4/YKNnBmRKidbF2L8zqYHSZFsjFxZ83iS40Jor491XBlD8lE5
CzcJV2LsylvbjiQ2jHPNrUZ3uhGTL5Yom6ey0Ry25O7SaDdips56oTedDRpv
kUEQrzvBgWLwcA4bFl+0bDfddSe4ncKNHPLZ+PP0ZVRaojuxNGN2w7+PbEwo
ncotanMnBKXK07kJNmwWuSibq3gQK4y3Oz0uYyNF5O3kjJUHIRwScFiwgqxf
CeXU2qcehAjX2Ya139i4M/ehpKvXg9jawxiTaWLjMkfn8HcXT0JGROdTagsb
fQsWJlGvPQk5g1SKYhu5Xp+Tj/4VexKKpY5r1DrZOLN6x3XjWU9CeeZXR2k3
GyLT2wUur6MQKgrqCVo0Mh5H8DpLgUKoxyzdd+ovG3p7XquXm1OII2027KZ+
Nk6mmpTwOlEIzZV1X42H2DBtkObuDqQQ2tp7n3SyyHoumIueiKEQuu4vzluM
stGomidyIotCnCyY2/h3nNQP1In2fKYQZ0au9N2cYiP4kP1BoUYKcU6mImNk
hvTrsXjb2E0hjM1knB3n2JAjnB32DFGISy8Dj8wusPF7sRtNdppCmNaP8Ltx
caDUtmdDKZcXYcF3rpGHhwOHtENXxvi8CKvDHyN9l3Dg6apI+7zCi7jhJGkp
xMdBedPDPsW1XoRthsfOpwIcmDWYFBwV9SLs+3rH1wmR85fSo6bEvYg7UieK
Xq3g4IliV6+epBfhaJzmJSXMwf2Bjr/HSXYKEdZPWMNB90ap+T5y/MOqe2tl
13NwOviZ+x7Sz42rvTNNlPQT/NK6iYznqYLEvRIcvCttv1FC5uNzO86uYAMH
NmpPopfwexF+73n3H5LmIPbBhqF/5HoCe25yyjZz8L7iWHkUud4nIvWVx7Zx
oP1Q9c0wuR9PDZRCqmU4+Pvtxex4D4UI931pbLCTg9m9Vy4mN1GIiNJ5qZZd
HASKDBxd/4VCRM2Y9V9Q4GDrSuqRA7kUIkbhS2aXIgfcyop04XgKkRgTpNG3
n4P9C5/Mxl0pxIe2UYFbqhy0+zfZL9ygECkrjZpG1cjxC6zHX85QiCz3DVfn
jpDxQgWvhW+iELkFnnLumhysK/J1i+WjEAUjfyYWH+dAZu6v9l2mJ0GYpXsv
1+PAx+llsXW2J1FYZ6vbdZKD1aVJUX0hnkSeuuyqtNMccDVssf5r60mkSCRE
6Z/n4Mu1vTF2Up7E+wALC8mLHDBiZnnmpz2IuNmNMszLHESfv3F8da0HEdkW
mR1owYE8f2ZUv6MHEX7c2PmyFQehx742pR73IELz1kLuBgcSQbVKS0U8CN+w
kO/Vtzjwl/w545rjTjga+FAFnDnwnf346P1HN+I2cfTdbxcOZtLupvMddyNs
dy+6lfSIAwU9I62ihkeEheDDGR0vDgbmPTv2drsSBlX/rfB7QtaTGaHF3e5C
7Dxscog3kQO5nS8MNl+6T2xLF+Npfc9Bz5jHumul94hNG9qqEpM5UONZ1268
+R4hMn/m7LFMDsaPN7lfozkQSwu0b3oXceCY2GJXo3WHoMorRfA0cXD2oF2R
7klrouPNqGlTCwfxg5cdnjRfJ9qE0rfEtZHxAwMGZoyuEbWDOzI0ujjo1NmT
ZG9gSRS921jp0c/BgczyX9G7LxIF6zoDTw9xYMoJz9fhOk9ke0eekR7m4Oc/
xRCBakMiyXJtV+kEBwet7u21f3mCSGhsjAuZJuN/3iyRtkSTiDkSYm02y8G2
f3P89dWqRFSGvrzCAgeZTXlbj/TKEi82LpvkcDjY+fZBY7buiZL/AVC7bZU=

      "]]}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBlfaPDjGVtshOtIfwd9r7PT9XKmC90N7E
GAQO2zd//u+p47ECKn/SXkvOZ8lW/vX2EFMu2P94JqgZ0rUFqv6y/dUk5Q8n
H+2xT08DgWv2dlMX8F7tPwLVf9OeVyigO1nijP3ZMyBwxz5f1v660I+LUPMe
2MtInt4pV3sVqv6h/Rqpcp/kkBtQ8x/bM/Bcqts15xZU/xP70OW598r33oHa
98xeST505gu5+1DzXtjL7KlZm/bxAdS8l/YLPX4cr0p+BDXvtf1VGWvfHQsf
Q817Y79CK29TbuYTqHnv7L+zGr/zm/sEat4H+xYuW6WykCdQ9R/sc79M+dd5
+jHU/I/2AjIPpI46PIbq/2TvzT039vN5mH2f4fZDzPtiv+Ss1Fztww+h5n2x
15xn8URmB8y9X+0zTq3cy5h4D2reN/v/3BD/Q8z7bj/ju1XuzQ3XoOb9sH/9
e13XWe3LUPN+2Ef/YvrREXIBat5PePhDzPtln3Rb4syLa8eh5v22P/XaM4xd
5DDUvD/2TsVMy6oldkPN+2OvDo1/iHl/7c9utV2wK3wa1Lx/9qeUFQwnfE/Z
DzHvv/35O3V/jcya9kOTnQPEnFl7AOvuLwQ=
       "]]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{532.8000000000001, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-0.009821511044515034, 0.646441586000561}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6630897090704613`*^9, 3.663089871058789*^9, 3.6630903331829243`*^9, 
   3.664102932960667*^9, {3.6641033010321827`*^9, 3.664103310152195*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["The Error", "Subsubsection",
 CellChangeTimes->{{3.664103338112234*^9, 3.6641033476122475`*^9}, {
  3.6641034708824205`*^9, 3.664103471442421*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"TrapezAntiderivative", " ", "/.", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_Real"}], "}"}], "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"y", "-", 
        RowBox[{"analogintegral", "[", "x", "]"}]}]}], "}"}]}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "Error"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.66410339917232*^9, 3.6641034496423903`*^9}, {
  3.6641034865824423`*^9, 3.6641035060624695`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQjQ5mzQSBlfYMcvm7D9m774fwd9ozXFRuVDgesN/E
GAQO2zNkVYaeDvKEyp+0Zwhw1/+erLAfYsoFe4Z1301SNzvYQ9Rftmfobfvr
s9LdPj0NBK7ZM8x7b+PcZWYP0X/TnmG5/MZJy2z3nz0DAnfsE0w5N+7vCoGa
98BeYZuMM9PvKKh9D+0Zztat/fU0HOqex/YN2hm3noj6QPU/sWfoWN8nlGOw
H2LfM3uGC1YFrL84oOa9sGdwWL97poc11LyX9gyik40lMoKh5r22Z/A7vTnk
eDzUvDf2DWe6mIqmJ0HNe2ffYJHRkJORADXvgz3Dv2rJ6SWhUPVA/r2O8uyV
zlDzP9ozrElIvLXVCKr/kz3DlLq7SdMcofZ9htsPMe+LPcON75s9z8VCzfti
37BY/sy8JQlQ877aMzzf/kJdPBpq3jf7Bh2I/yHmfbdnmBDB99aKF2reD/sD
N5uWrZE0s4eY98OeIUFsgUy3MjT8f9ozrIaEP8S8X8D4v1A6KTIQat5v+waV
X2+PrYHFxx97hhiF0IcuvlD3/YHHP8S8v/YMc+aZVC91gcb3P3sGM+PrM0v8
oenhvz3DixXnmne42UOTnQOEWrAHAN22Gug=
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["Error", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{625.6000000000007, Automatic},
  Method->{},
  PlotRange->{{0, 2.}, {-0.0022694803959324994`, 0.0009599448370864461}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6641034364823723`*^9, 3.664103450122391*^9}, 
   3.6641035081124725`*^9}]
}, {2}]]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{1202, 677},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{Inherited, Inherited, 
   Cell[
    TextData[{"Impulz\[IAcute]v jelens\[EAcute]gek matematikai modelljei"}], 
    "Header"]}, {
   Cell[
    TextData[{
     "Adatbevitel, \[AAcute]br\[AAcute]zol\[AAcute]s, transzform\[AAcute]ci\
\[OAcute]k"}], "Header"], Inherited, Inherited}},
PrintingOptions->{"FirstPageFace"->Left,
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{54, 54}, {54, 54}}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Modelstyle-EN.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "part-1"->{
  Cell[567, 22, 541, 10, 166, "MainTitle",
   CellTags->"part-1"]},
 "SlideShowHeader"->{
  Cell[75487, 1452, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[82686, 1668, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[97110, 2029, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[177040, 3676, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"part-1", 232173, 4875},
 {"SlideShowHeader", 232263, 4878}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 541, 10, 166, "MainTitle",
 CellTags->"part-1"],
Cell[CellGroupData[{
Cell[1133, 36, 316, 4, 69, "Section"],
Cell[1452, 42, 354, 10, 78, "Input"],
Cell[CellGroupData[{
Cell[1831, 56, 247, 6, 78, "Input"],
Cell[2081, 64, 25993, 437, 5785, "Output"]
}, Closed]],
Cell[28089, 504, 624, 16, 98, "Input"],
Cell[CellGroupData[{
Cell[28738, 524, 134, 2, 78, "Input"],
Cell[28875, 528, 1491, 35, 307, "Output"]
}, Open  ]],
Cell[30381, 566, 189, 4, 78, "Input"],
Cell[CellGroupData[{
Cell[30595, 574, 232, 4, 78, "Input"],
Cell[30830, 580, 227, 3, 68, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[31106, 589, 337, 4, 68, "MainSection"],
Cell[CellGroupData[{
Cell[31468, 597, 156, 2, 69, "Section"],
Cell[31627, 601, 189, 4, 78, "Input"],
Cell[CellGroupData[{
Cell[31841, 609, 334, 7, 78, "Input"],
Cell[32178, 618, 4211, 108, 409, "Output"]
}, Open  ]],
Cell[36404, 729, 195, 2, 54, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36648, 737, 156, 2, 68, "MainSection"],
Cell[CellGroupData[{
Cell[36829, 743, 310, 5, 69, "Section"],
Cell[CellGroupData[{
Cell[37164, 752, 176, 3, 121, "Input"],
Cell[37343, 757, 10985, 220, 171, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48365, 982, 452, 12, 121, "Input",
 InitializationCell->True],
Cell[48820, 996, 26594, 448, 478, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[75487, 1452, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[75576, 1457, 162, 2, 69, "Section"],
Cell[75741, 1461, 520, 22, 55, "Text"],
Cell[76264, 1485, 91, 1, 39, "Th-Env"],
Cell[CellGroupData[{
Cell[76380, 1490, 194, 4, 43, "Item"],
Cell[76577, 1496, 318, 7, 57, "Item"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76932, 1508, 279, 7, 78, "Input",
 InitializationCell->True],
Cell[77214, 1517, 1736, 39, 359, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78987, 1561, 537, 16, 78, "Input",
 InitializationCell->True],
Cell[79527, 1579, 3098, 82, 307, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[82686, 1668, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[82775, 1673, 125, 1, 69, "Section"],
Cell[CellGroupData[{
Cell[82925, 1678, 101, 1, 43, "Item"],
Cell[83029, 1681, 102, 1, 43, "Item"],
Cell[83134, 1684, 88, 1, 43, "Item"]
}, Open  ]],
Cell[83237, 1688, 1082, 36, 215, "Input"],
Cell[CellGroupData[{
Cell[84344, 1728, 162, 2, 57, "Subsection"],
Cell[CellGroupData[{
Cell[84531, 1734, 846, 24, 183, "Input"],
Cell[85380, 1760, 4125, 83, 713, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[89554, 1849, 200, 3, 48, "Subsection"],
Cell[CellGroupData[{
Cell[89779, 1856, 3230, 84, 1016, "Input"],
Cell[93012, 1942, 4028, 79, 440, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97110, 2029, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[97199, 2034, 239, 3, 85, "MainSection"],
Cell[CellGroupData[{
Cell[97463, 2041, 107, 1, 86, "Section"],
Cell[CellGroupData[{
Cell[97595, 2046, 110, 1, 71, "Subsection"],
Cell[97708, 2049, 767, 22, 81, "Text"],
Cell[98478, 2073, 1032, 33, 83, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99547, 2111, 162, 2, 71, "Subsection"],
Cell[99712, 2115, 735, 22, 81, "Text"],
Cell[100450, 2139, 950, 32, 83, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101437, 2176, 276, 3, 71, "Subsection"],
Cell[101716, 2181, 128, 1, 67, "Text"],
Cell[101847, 2184, 819, 25, 82, "Text"],
Cell[102669, 2211, 1034, 35, 83, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103740, 2251, 168, 2, 71, "Subsection"],
Cell[CellGroupData[{
Cell[103933, 2257, 96, 1, 151, "Input"],
Cell[104032, 2260, 4008, 105, 628, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[108077, 2370, 1245, 38, 257, "Input"],
Cell[109325, 2410, 3901, 103, 4520, "Output"]
}, Closed]],
Cell[113241, 2516, 284, 9, 121, "Input"],
Cell[CellGroupData[{
Cell[113550, 2529, 691, 19, 285, "Input"],
Cell[114244, 2550, 52942, 883, 901, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[167247, 3440, 134, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[167406, 3445, 4916, 130, 813, "Input"],
Cell[172325, 3577, 4645, 91, 850, "Output"]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[177040, 3676, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[177129, 3681, 220, 2, 85, "MainSection"],
Cell[CellGroupData[{
Cell[177374, 3687, 271, 3, 86, "Section"],
Cell[CellGroupData[{
Cell[177670, 3694, 114, 1, 71, "Subsection"],
Cell[177787, 3697, 1015, 25, 156, "DisplayFormula"],
Cell[CellGroupData[{
Cell[178827, 3726, 2022, 58, 690, "Input"],
Cell[180852, 3786, 11796, 207, 701, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[192682, 3998, 153, 2, 68, "Subsubsection"],
Cell[CellGroupData[{
Cell[192860, 4004, 613, 16, 220, "Input"],
Cell[193476, 4022, 1764, 41, 691, "Output"]
}, {2}]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[195298, 4070, 113, 1, 60, "Subsection"],
Cell[195414, 4073, 934, 23, 195, "DisplayFormula"],
Cell[CellGroupData[{
Cell[196373, 4100, 1979, 58, 690, "Input"],
Cell[198355, 4160, 11766, 206, 876, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[210155, 4371, 153, 2, 85, "Subsubsection"],
Cell[CellGroupData[{
Cell[210333, 4377, 561, 15, 220, "Input"],
Cell[210897, 4394, 1753, 41, 1025, "Output"]
}, {2}]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[212708, 4442, 161, 2, 60, "Subsection"],
Cell[212872, 4446, 1563, 44, 150, "DisplayFormula"],
Cell[CellGroupData[{
Cell[214460, 4494, 2385, 68, 757, "Input"],
Cell[216848, 4564, 11789, 206, 876, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[228671, 4775, 153, 2, 85, "Subsubsection"],
Cell[CellGroupData[{
Cell[228849, 4781, 564, 15, 220, "Input"],
Cell[229416, 4798, 1708, 40, 1008, "Output"]
}, {2}]]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

