(* 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[ 224933, 4679] NotebookOptionsPosition[ 126961, 2904] NotebookOutlinePosition[ 220263, 4529] CellTagsIndexPosition[ 220183, 4524] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[GraphicsData["CompressedBitmap", "\<\ eJztfXd8VdeV7uGUe68KiGpMMcbG9CLACCRUQQVJgCRAINGrkIQoQoXeqygS KlRTbOMKphhjg22MSxInk5kkM2/m5WXyJpOZSebNJJMymUkmk8zYv/XWt/Y5 516JKyFAkDiTP759z9nn3FP23uv79trtTF1cUVSwanFF8dLFfSeVLS4tKl5a 3jdtTRlHGe00zSRN08b01bCNTTsgkvDOQM4Pfuj+jo+RCIM0K4y0kMcATUfI QehjOD+8F2ldhjngiC5DEY3dnnGk9Z4A+DhIwmX6pJHWfxagWRJy3IBZbpwX YQhHzcSB/jOxJXsWQonyYItv0D+XgwG5HmzJVXJJeyab75OocVzvBAObOrZw tEcMP9IQAPfgkOM6PsMv0g3APzjEa4aSP5WdYFbTVHnSTitODP5Ph6ect0fS cMhx3UY5r449Ffabzs+aB2g+hHinPEkFvEke3mSWJIe37VLGcLZm6NjCfWfI lWdgS/Zw5RnhHEznrd7x8vTD+T0GA9hToaRWV0DevKs/NeKbJk8HieAH0z1O oUFpQUrJ9YbhWPdxfLeJfvSdqvHr9c/v1sZJoyPK2zhprEaJdJek6YSkwYWn 4eTpYdiS7JyC5HKSLCDhBgFSFAZJ8ejjJpwuIcd5I4IUs/5N07GdRJiN0zG8 tyQhbpnslqp8QN4+Hy+T36nFlMQps3zNpaSvcaq1Yfrhb9M7YwsHcuR5p2FL 9iwnrt9kfjdQRxwSjEOO6z66ScLy2eE9nIRV8EYEpF3XgMT8D4fEvJ0CSazL cKRtt9FISYU+6Xik2XipfP9W26Rok7LpaZy2OIhkfUhp+zhCvmjvWDG9UU5i KnTsh9NbKJntAhLzJ00TM7y3nZig2XgnIUEC/WfjqfLNNklJjxPXNBGbTVg/ Hz68hI1w47LdOFw+BxfI5vhekuI9xpLWuZUp/ouAxP6Bw6SS2N2ZTJ6mdl2G U7tuoznR2/VOftxNZSmv3i9+Kkvq4crTOrWYthbkHvfN5rhnspBIfVO49I1X 6MXoKoLceSCOdXy6MVlYoSqFfxiQ2t91irbwbXcAqdxluCS1l9r1n8Nb/Wd3 b0wS/kTHiwoNDxBClj1PcxkhW0aLGRFM1FpOedF77yNNefwjyyd5gH9kYUv2 dIQwgfGuCQz0I+xxkcMuwWpdfxWQKX/piKBtAlL87SzxIEv4Apwn2JI9z92z SWwDNZ48/HfIYmo3dBnAd0HIccMLSR+1lvTRazmOQwO7fECP2kB69DbGduxF b9exyyUjehv+Fr2d9Lh9pCdW42+J1T5ql1jN902q5gRIqsGrxu8nLWYHoPET jN/BDzQe19Kit5D27FrSxuCWHJrYRcKNXk3a8KV+DFuCE4ZLOHiuylZUfoPn tlhh50eQ216EXGCfmaqynP/y2Eh/dnd8GoTXRbL0TwKy989k27a38N4qe7tH I3epXb/c9veXwx7XEOeSPrQA4NKGkHNtRAkZI9cCHIfQIGN0BZljtwG8p0Ir Zg9Z8YcAviWHXjLjD/nITDjsIyPhsJd0CQKz2YdsZj6fgGDiEY5LPsIJmFzL TxW7k5MkbieeavxW5LCb12WW5CcfGLoA+QNooQh1J6ceYp49hjzDczyRqGgT eGwkmHMAojs+JRnnAPl1KyADvyLbXrHPdk0yUO+XS3r/uSDR/nN7BmSlpqA9 RgFVA95nqxm8hPQhyxSGFphkjlyrk2fsVv6nJ2orWQzv+P38st7Ygz7yxB30 cMDZcv8ZhKCWg5RaLr4pdfw4qXVIqMS9bK47ATAVh3wkZiNpUWsDUEbaqBWm k38DZ5KqHUyT+o+qMrR1hvVAhvHJz0yxJOsQsi/yRAJnXYxC16Gam38dnvDn HxMtsutKQP7ddvKPRa8d+LXjIM7DEZx/KaT3zZH883CIrONt5CSgBctOvMts tqkhBfxQ+pACMiPX2iglz7Ob+KG8UZKTY3eQb/wBgB+RQx/5kJ0PK08jkKe8 m1rP6ZlWj1RNqSEtYReApErYZSJDkZajijk3FyuMWMIcqzT83rLRsrWv9dnY HlvIrycn+vPxscigZujtIFl3PiAbbzo8GpiN3Z5V2diPnQzOuzuzcY7WwyVT r22B7QYtRA4KzBGrdbIiWf+8Y7ZaFBpzwEsh4zl4lFkWgSzjNJrUgOxJPuTk m8L4TUjcsZJ1Iws4yxb7MTBX2hQeToZ1whYOTHYs0Mk51D+7jxSvaKBjgaFd FWwLPB6QddeCZJ3OWadz1hn9ZrZ3s05otIdtd8bgpWRyFlnDSvhO1ohSGNLo jeR7dguFjNlOYdFVEb/LDItAhnHCpB9F8qTVMp/u9iMWXKCNLcOxsWsb59oQ lMK2zSEDWzBgYUv8bQCQrTAwGw8zMAcXGcTs3ZfzsU+8QvcRpHUbzJAmw7Bu kmOHAnLvku2itRP9e4J05k7Jub4oaEb/uU3yr6MyOFM40jN8NXmYH72j1pNv DGdc1HaODYup8tj5h6wLiUX+xSL/4g4ayDqLvHEHkXUHpWKCrONMNBJ4y0jk TNQTDzMxJx5mY044DI5OqkZ2BquY3mfGdkDGcpHNOMqpkrQbGRazjrRxZQpR qw3kJSqkyLxAbZNs8zZWuZ4Plm8Gsg2PMIirToMdzODoIbl8wtCZqEwNYtvv m6TQi32Rx4Zx5jI69OZ6J5oxuDJpeCRLt9ptHmGPcTBygZ3Rr9mOiGui3WOQ 0eFB8lhcRS5NxqAlZA4uIM/QEvIOL6WQyHUUNmoLhY/ezhfqELWf8yZizH7e qgJ4j0MvdRhThfiqx7DlofZypP2YKsYB3jvApMahReFRXCbCxx7wcMBlImwc l47QcQe9FBrNQUjMIf6bL+YQ15cEfEsOWYJjD3HJi+UtK/YwB3FcTqx4lBMz vpoMBVSN46u5sCRUGygxJkoMilJiDUqMuDPi1FgoO5y+E2vCUXaMey5FPpQi BMf4v5nHkI/JVXzR3Qpxm3WUKUSPLvaTxLB5xsMsUjqKFAJUwQdPF19rBsqT A1TW4YYPRVvKsDwOhuejWX8E14RGzFGIBNhD65fCSCXtqSQ+7fFIXKxzPy5x j5PW/nG31JU6rQ8mX2bgVE7HHSiEybvs8vdiQKs6yqAQTY9E0vtM5isa/ee1 b1wS+Wkg8saAxeQZWEAhg1dT6OBS6jB0I0UM20Jdhu/xUNfh+7zUdcR+i7qM 2G9wHEokb1KXSAFfmEMforzUWYJILqCdIqt81GlklU6dR6Js8iZ1HHkA4D0O cZSLZadRB0zqiCBt6iovB1yb2FLEnujmoukWbSqczgy5qWg6tvzg/Y2FfA4O G7Rv1RS6smMcwHsqvMz7l7cL+AERctz2aLq8LZoubUMchya9gWDdcnjE6wpm UOVyAecvhwhyvVSxnDOyfHku/yV+WinF2YidVqpzwI5H7HR2xGNnwE8bNnUD U2wNG4MAVnGEfcoJXOTbTeCtdhMlqIWRJNei8HMW1qI4JdeaMAPO2lQEtovB QVpdyN2tooNYBef7ZK40ZNSzVexRSNyuuaYRtZqL2iKFYfO8zQnkI7EKRA+d BatwoKzDbGodOswD0ZHzmGfnO+DoUQv4SqMXovY2kk8dkMF3Z/SNI63nKObv 0aR1epKthwW/Qw9lHkudWhTMpwefMHYlJ9MBpDmjmi0p5aBtSWeauDywJIMt iSWbTDYZs/88kHegRfGFPYMKyDuoSIwofEi5GFGn4Ttt02Ej8puTGEwETAcG g2AkrGZkFUyiCmUpcROlZ610oNOkrFUGbVsxzaCtK9C79Or2eLq+byzAp1/f i/BbDYPoxy/2dKDTj1/oadKPnu9pcdDLoH8+18tD/3y2F//9n870ov+nwH/k kIPTHPzjc3zKP57CKT881Yt+eFLAp3Co0w9P9LboB8d7WfQPx/l6f3+sl5f+ /ij/4+8aePfv6vkC36/rFUrfr+U43jLo+/W41Jf3D6YLm6PpwpZo3uOQg63Y 3LEqi8qLcgHeQ2hReXEuFSydR3EzytiwGLkowLG55ajTJtaSkSSAmzKBrUWf WBtoVe2S66hdSh1aFFLqdNiSGI8O42ERmqT8u2bNqD2sCDmfURdoR6rSEi0V F5T0EYtgPIPzXOMxvljGo8N4OHh2EU54luVyjIMlHB21FM8ZtYxtxAE7TiPz 8ZyDp+Bln0Qr+hgAcR16Sj9F+8aNtDMC9aoHW+Xw2Th54i7Hu047CiCOQ/Wf kwF1KN2uQxl9JlticoYYH5sdIHXneVK58roGuJwNsJhCh6yl8KHrqAMbYOcR ewzYWUgQK/QirqNrhUqsLIpNK6cMtjsHy+Yv4FtvL5nGtzhclkk3qsb6cWAs /a/jg0Lopy/3NOgnL/X00r+c7+l7APOzYH46rM9zf0Znwei8OMqnHMUpx/C3 47wrF/iHE3iCrx4aQhd3RAO898ZOhGe3JFHFiplUUYI+BRXmL1zGllgOcEbF iRXGzSynTikH2BrrxCbrUL1IqmN7dFAPu6znbExmy2uX2sCFLK0hBEYXCnsz g1hed1geF4UpJ1AkJ3HxmLhXYfw6Hbbnmt2wubAuadnq7Focgqmd79vixJyn K4MbLE3kdzE3K1hNDleNRL2z1WZmNjUzCHYBosct55cudMDXjCnCTcdzFXf8 Cr4Nnok9lkEZuGmfsXjkLk+TFtELUMaU3tQAR6BdAAaIKvQ+VC8cIwQrNtg2 2ODYoBVOeod+pHcbQ0bv1NAWbRAt4AOXigmGsPmFDVtP7Ydv5YrgXhNmpcPA zBYNMQxHDcrMKuH3rCjIo12rcmgno6Y8g949GMXveZNDg/7y1ED6+es96Oev 9eAzERr0s9d60M9e7QnwkyDkuFd6wiwBZvS7GqgOA/W20kCb6KPVnKl6YKre +zNVD0w1nH5wiv/2g+dw+dMI+Im89LXaIfTGnhgXl/ZE07ltiVS5Ukx3JboB lxfOF1N1Mauc+mbu0slMELtNqOcaqgBdH4lsqXpSvcgqR05sAHAguUGktYEF VaCJRaMspjag1DhFiI32KIpX+lHLdvsDHLaMY9hiExeEuwbfvpHBs9YmMxI2 N2vw3uYMHn2JU4y2MHgj0OCx93CsveCu1m74rX38CtwstgRxcSWMlYD0OqxC 4/RqaeLkO0XmAjjQNwbX7c313I5PKJheMe/xDiuEcAWlD+89Kz0Tybv92nwA eSn5qTclhyOBAm1Xi81+szo0Rw7SwsXp52Vi8A1ZSaFD1zIxbKIOI3bwCVzj te5OD1KD5ns+NXYHTc4qEcyetUwHQ3D02S0T6b3DUYKvHR2h07+90cNDv7jY w6B/vdDDBFd4HilNGM1Vo4PRhO4qehvShAc0wU9wBi/4j2d70v87J+A9Dvkh n+/JD/N+9Si6tC/axbkdSZzhFatnsfO7BuMvM+etZNaocPFk5m509STUSyMh s0GSCyaFCQiYM7hwTDzKjGEjBXKfKtSQxtafzph0DAUr/ZgQgyUcYSj3dcpx qYBb2IrAZgQIgi186gn+x9STKNPpXAaT9yrErheqwN/Fu13I1jxLBha0QBBG IEEIMWQ/LHbQwQ44bdR8UASg/a55ImENuzSlDHRva0lrOZggbQQTypkBKhQS V+MxpWdrwETSnmbHug/X9zv1Ia1zH6lRgAiGO2Mv4GgPyOTn45um7IHftVs4 Bccm7ub8r0GuA0ZTRjkYUN2Q9nFUN/pwfpn953dqjlbQND6oUBglZGgZtR+x lSIiUa9h99l3d1rRscXXTUgroynMJnNmLeO02L0aHUGX9saxZUQBfL1/v9yD CeVSDy9YxXt3VrEQ6iCVJj6BF1xitJJLDDu8umscXd0p4OfjMCRIC5eFUEfj lrRr8dFv1z4NZgB473dDMmFCMvxaL/Skf3pRwPSK0KC/Pv00Xa6KBvi1Lh+I Ro1v7SyqDEDGwlV8Zmx+BZrAUw5xieSaRlKDFNkG6X3n/URWqaSjKGRJR1GM UbAmYisZQQqC1GPQMASTpCYC/klHQ5kAFZTjPuEcQ7HP1BOA1t7lHR94h008 66RQ2EFFPBN24ElihHnGFCvmiVyITv1HyjeR98Y3VlO+EboB6WBsUwDhgG9A OsuN++eZxKA8gxxyeUYaPyul13Yd5xewXiF1g9Q9NqLGl7aJj6PtheuBUfM4 vdI4bRO4ijNOBjH0xTUtX+PGhyecxnD4Pj25FjSUk3bCFr7wHqniKI7ShaP4 rBTbG1Ic5VRlGxPVPoeovJ39bRN9c0xwVABb+QLZip2iZcxSqxRLRW6jDiOZ GDuOlmbwUQdAV3aLX0vExYeZr+hprv9MyS4BY+m0Z3U2eGBfLN2qGUNfPzGC 0+KXV5msfnmlR+j90VaTypCvMYFZIDBm348PR6K9ka7vUXiLcWANe9xbirkw bylGYZ6Ru5xSs1YD/OwIDRqStIU6PHsQ4Ktw6KMOYw52oPZjDvkoPOqQl4PD BoWNRUfTs+nrKSmrFOD34tCgpKmlJlUWwDoql83grVyAL3VhExov/tfBp8Fl AL/No2S1UIQ6/dP5Hvyu/3y+B/3oJRc++tHLnOpXDkXzU5ejTrV81QIaP6dS YW4lPZG1V7QXnaU2ifHWRBBWMoIUqRulMDOlAlJzSjsOXZ50XDGZsBmzVuYJ /OrY4GDyCcvxrUBpWS4Ml9QihNTQSXtEtQcAcetBa8wBqAAwo/H/B05TwxcU mrCbDmLDIyo/626+1hCb3fTG3WO/b8QGXlspdIZLJ6y2a01twmimYrRJDuDt pm/RwjjcynmxzY/M7XzqBn5QrtpGY+BDOifzBNKeipGxI08JLXVx6mCdn+Zk n8xvtIr/tQ/StxfBHj/dKT+P4w46zt0kEcajd3DdLnfQArhuMLt5Sezm5YHl mJGdStl8bMleewktprsl7OoVCt2Fj9hM7Ufu5EeLGH3AuhfS00LcPkbw3WTG uqI82lOaQ5f3x9EHR6Lor18YyFf71ZtsYW3Leh4JmTfOPkXv7B9Lb+9TOLUh RVOdLxYtmbeQJk1d5WJo4mZOTH41D97Sh/f1UoQwXHCa6wia60Ch49BjPipj AyUw1yUI1yE0aEpuMVUwwzHQnlPA9nJhc7T0nZgum+lgM/MRslk42MxDP361 B4uBtL7dPjqSrlZHu6isgPdVWQmmyy9aTrHMcLHz1gki0qtRyCcKoU04hi3Z g62g5TflOBxFcf7Sjit6m3RCIf0ECqtNbvh75klmOIHU206Kc6g7lbTsk9iS PR17Pmwyb2WdwsFToLwpR5Xop+z1U944m/IM0JdDd5pqRTYD6nBSj7tbNa4Z otOF6EB3sx2yE4KTllmMBUBvTeQ87R74bsnvAd95gvEd2A6Utwkcs0la+TaD 6hTRpW9FE+E23A88N3mHjZ2cOTKgdsou5CrqaFmqzsY3jV0G4OggmKPW51nS ujLvRfRUvGUFkuEzKZwenAKT9ptBGFEuudsmxGp5umbIcJvdYoY2L6NLJJm9 03jP6j9fODAYHfokVF3CUvsbVk5hqP2N3q94oSVG1NR4CSfOcgmSLxifXkaT c0po79ocwe36KLpdF6XTr9+Cvf7HWz3oV9dceB6UIHWEBnq6VAeYRbNmFrgd 0+ikxhN2vBfqiwD1RYD6fBQSXe3loMZDvpgakxJyMEhz9tylVFGYq1AEoBPm 4vZoDr96cIjj2DZmPAOMZzxMxgsF4+n0L0iof7mAhPrJhR70vZeeojePwItF aNKeLdm0bl0erVufR0WlbKxMfHBj569DdQ5EJ30vcDlTxOVMYXZLFmBwUApq Z6lSaUsD9Z1USAe1ZSDIRDAZQSDnCbV5QW1sh9nPCb/xzVL288UY8RvZaNha o9fw2aOWKF5SHDcwR2wJOdtkcFzbM9johQ+DwWIfkMEqHz6DGcJgfFY2i002 i07OfhtVOGsabFybfoCBxgV+2oQifktJrSFpHHSTyYBhnV0P91dNWW7scn6a KjMI1emBVJeyh8+oVVRnBKW6TUGoztsi1RkSmuQdXES+YaUUOnwdqM6C/ev3 THayx3kxedpKmj27gPaW5dCLu5Lpw4Yo+vEbfT306+tMWTbZXbt/suMbfVo3 gm4eiKILuzCNeMdKdCUUzF8gXf5gtyfH7RTq9eHBIvDk3geguA6guBDyjj/C 6dktqYoSppW5mJxXQhXFM6lyxUw0wK+Y6fTIv7d/FNgN4L3W8ZyOMPyuPPdS 63jOA5oD2V3sQT99Q8B7HHJwCRf61vOD6Vp9tOD84SSD1m1kiohdsB60t3A9 9ZmGWpY0qKUIsaUysaWeVEg5iQi0rqVJ0z7ILs0lPVjXKZDeKRTgyafYoBhT T8EwpuJAlhzIPgXSc4gv+znm0ZznwKZTmQPTqhQSuGTHsW2P53res8wpY8Ap zYzSNAO5zR1K43dDdf/4MzTgL1JMpthMB5VJA/5S1YivGvJ1MBkedlyBasQf t1xrmc908JkhfGY25TOjZSozAqkMcex6ghY2KsdTOZ9gtM041c9mWlvRmemn M2DGIY6ecRiV/9zDpM2stlFD2qwj/Ae+RBLG4rHfOmoaZ0MGe7jStPdY/x85 zXjorOw1hoVpKicTJ0L6AWnMbZnzUvehOxptvtibhP6mIJy3rlG7nvJ1rX55 oU1ozxLa8wjNraXQERspfBQm67H9e+9OdoaETGzTmdjmMLFV5NALu5PZgWJi u8TE9p9vw7D+83oPUBzAT9RqsgsB2Rku2ZkgO77a/z49kN49FAVwcu5cie6N vJnLKGNqCcWmlWl648GHwnQd8Ni+B2W6jmC6EPLE1vI7d51wgOJnlAvicstl TFHFSja7ipWz0H+7Lckdx/DewVH6gxCbEUhszDnMapbLasbdWc0DVrPop5el JnyZa8JXBKgJX0E+fP+1p+ithhh662g0vVTNdLd+U54QHbopJh+x6e0Emq1T T4aAzdBSh3pZ+nMyEIKJKtMFKnPPwYF9DgV0KsdlCYTWngsBkfHWtNPi5Nbz hdAzf1Dmo20Ew0WzyYwtApuBuB4BbUUXKtrSQVs6WAt/UrwF1moVc8GeJ5TZ /Y1tTF5mU/IyGjuSaA+QBtfGxNUib1nBeAuPNgujTrW8OkY9gLj8BqjQ7AYG M88clqAMfvQUqdXx4REYldZ9AP7n8U9q/45DcxbneZd+pPVPQz7x/4R4Mw7K 2x0A7Qn14c2rhNOqwH+AtOY1ZULV1cFxh9BMrDrdcR463YMwYVmTkV9Gjwlg wg4uEzqVPRnqPHQ1haCyN2qXCVYwgzChLkwom9iiJ8fvoswZq2jdyjxq2JJB Hx4bQ3/zykCTfnODiew/32H6aiMeNMCDOsaEOMNE8mctw+AyemrcDtWx0hkT FxpxX3twX0ibcF84uM8gK66Wq89xdTqZcRgm2Td9l1CgDabAVViGqHL1TDq3 I5Eu74sW3KoeqYmr2r5NqE1H6G2O2gwnvMr7Vx8H+Ek5ZM5783GDfn4N+5+c HUlvnYgWHD2QrtP6LagpzVlTRHGLNwj65FZ5XMbzgvEwEgwMlnEadnkadHeG t6acAT9OPc0GecaPbN7P5t+cMyi2OTh72hm+1nTZn1LLVzgshRo1ny0w1uiV qrUbjTyN+M1qym9Cb3AulyoP02rqYUqNzHyo1IZqyTr8z/EtA/xL6c/ZpNzL QBczY+udtLbzEdCaGUhrIDUdnIZoh9WAuWi2nSt1+3lcY59/ygZr2AJGPmfZ JE6ASZWcPVmMbNL6jCbt8UEYRGKv7MBPEdpZkd4AJr1nmfQmyIzdzEPmgzAf xidWqXGFk+rcaiBOPa4qg+4YN/zzqBlAg6sDltXSw58go3ssmX2no8lvQQS4 0K4LYsCrd0gJ+UYwC47cjll3Ng2iWoiuzjGqu9N0WRG1BOZB3sKv2uO8H5a8 mTJzV9HeSnZ397G7e3wM/fbm4xb9RoK2IUcvyJFvhsEtGOSC8bWVy/NkOF18 WlkIWDH0YbBie7AiP7dv/BFQozjBHRCGgSRNlyR9IEnMNa7jBDbi62lE9mZ3 7Fn+kgI1OI3fc1dFNl3aH+2MIZH6H0f/0/meYEoBc6XuOrZ87x+90gNkCfBe Iz/Xe3faNEGbOljTujtZeunnb3Gu/fw6jvzdpb50/WS04OX6JJ02bANtFq9f RHFLNwqGz9sZjCw9IEuuIkw5K3XDc2zmwFnp0jiH4pnD+zln2cSBcxw9/Ryf OeMsB7nnwCjT2Qgn1yik7WIO2sYctQEkptYVcXtKgxLjOD8x+l3VlohRv3OY mTCj9oWgxhmHglNjzQNRoxWMGnGlhdC3hWfgFC/i/Ft8zo8lzzNe4NfiRMjk ymM01+ZHs2M8IB5/7DH4tkOcXZ4h7Yko0obmcNZwXkwSbZxyWJpL+PknHwKN NkemVa0hU3Gj92BL9hS3epVrjXaVVL5N2hFMrMLsDnfgjDjcMi5cxohLz7dD ryVuG+Pjqo2xz2Q+zrRqgWDDhWDRnlhMvuEVFDpyK4VhvjMzTCi4xgPWkeZF QxjVosyZq2ndqjyq35opzPkvbz7JF/jtu2yT90qiZmPe5Ddl4qTvnBsorFlb mYFBghh8DNbULHfegvBmSGPeDAdvhj4ob3YCUYaCKK0gROkDT2r2YH4F3lMj dIdP20yxeRWC5cVcPaooBXnWbknHkDvB148PMu6FJS2wpA6SNBtzY5MqpdlK lvSAJS3617d561/fwTl/f4X58rkYwbHqDObLHVjtYU5ZMcUVbBT0yTsoLIli fdrrsiQs/hyKndDk8wCKHYdwpnk/m00q5wUhTgmnvciGz3HT8fsi6PMFMXyO yn3e/mXMfAGXmfk85prmsGVnsfFPYWJI3aVINQGjZRmxK1ukypJ7oUqzKVUa 98KSwpB3Y0lpzxNl2QWqBLTfb77Ewy48o+hykYjiYpFBhy6XAsjHZeexnsOy l0greJm05a8wXiWtkJHLjJXFIjihmMVuJnvjGMjUa+gVh1C7glDHkjYwnXON cytZ3IypNUis6odBrWn7FJWm7hOi3YsHB92mBGKfqsqm8i1T0cJUDzIVfm2H STg2rRY6Q3YaOe/54FR+CYdevTa9eqTuupJCRqynsNG7fI3pVZdqq0XDUrZQ /vxC2rN+Gn10Mor+9sJAfov/eh+2/dv3HgfHAnxmS2zrDUKvMliRC+13nh8o Axjr1mVgSKOMxk5IK7MaTwsLcenV59JrWGN69T0qesXqN/Uy/wFLXqAgR3DO xOZXCDIWsllXlEktdUM2Bv4JPqgbaTwMjvWAVI3mSNULUjXoX29w3vziJh/4 xbvg2C+/NIrePhMj2F81nTl21xyd4grRojZ80W4wKqD5adUEj4IYnhdiECJ1 wNE5sLppL4JTz4NHz/PWjJd4K/clLqYzsTVLgvPCBuc5jjk6uwFAm9Qe6Rdi tprIxJZUAcY0fhdUiaa2bTqYUszc5UqtWbIUbbG7QbL3IS5nP4gkpwp0aZOl ECaOzcASK8yXii1zxfGGttQgGl0hs2oV8jB1PQ8iznxptyZKi6IOtkT03OOg S4V5GAUw/xTu67jeC0/bOIP7LjrbIll6gpNl4Wt8uOh1DoovYi3KFW8wLimU XObn43eYxumRsoqFL5/d+6mk9R7GGE6aN+yss9xC1/6KVwdlkDZqjtLJzP0o TFgLJgvLH943wVouoyr6VISaJhmRus+0WwNSJJBRPzLYGyN+ZOzXAVV/TT2C dVRS620iXWbXT3XUT7tGcf10iibc6WdRw2FRzGobVkYho7ZS6Jh9hhrCzKSj ySa23D1Fr9JfxP+MnVpJhYULqX7HZProVBST6i025gdkVh3Myn/BAMkr++No z5ocmpO3DKTKsXfOtvWBVkOD0Kp4+yH3R6vhoNXOoFUfaNXbmFY9oNWQILQq 88os0CrWnmrwyTQPk56YupfGz1bDpfOXL9dlFLVJdTsmuWMO/++LT3mDdFr7 KbTZTp1WUKjUS02XQsOFQg36BWfRL97rTv/2PlYARmjSD64/Se88HyM4XsdV 1417MCZmyppyiivaDChHHqX+eamTms3xJ9z4l1CpepmDma+AHV4FIyDIfwXG mM/GOpuNdTb/zuCK0jTmg6waWBabDhNPChNc6mYwJDhT9zdQBudL6Shwh77Y 3S6Wv9vFP1hZOhGkWqQ40xmt/PtKm0eD0ibqmK2gTV1ok09Y/HxT6tSEO3XQ Ji7cLHGaTYmTo1deQfSqq6StflNhzTWOXvMWPOvS63wbZs+ZnJMzOS1i5rIe zmMnPxW3fGLEYWdxGjSbdmNyfXIcaYMzSXt2LpSSk/yAJCjWPMmpQ0LXtiHZ ep3qawC7WtLfbhNr8q4A7JYFqvbYxLqoSfeSyTVUT798nTzPLPC4BGvaNVbv 4BXSABAyegeFRR0wQTUtE6wP5MT/HJ+1jrl1ETUwt378XJRJ/32LSfL+CVaN rvTQjy72pQ9qo6hufYaMRce49MgErlQ0s6JBqMuxUnUNAceGgGNDG3NsyD1z bJjLsSEtcqwPpOppTKoI0Nw9AS01w3K3yiwUBsZtV4Bbd2/Opqs1zK1Houmb ZwaZD8qoHjCq914Y1UDopX+71Z23PsBXZH7wDnPri9GCEw2ZzK375nD0lLIK ii/ZSvErt4JKjRap1ASVWg6VvsYH8mGo+a/z1uwLKONzLjBexy/25r4uvbto BjgFyLAjoaIMLtvp7E1P2gIClRZMRDceP/h7x6FWUw4VCkW1/Ijy1K2mnro4 6vqDE6g3GIGCPlHx1IJyaFEzHFrSDIde83OopTi09G3S1r6jUHYDdym/yUHF u0i4ivdIq3yf/3dF+uwPS/tIJbsbCxUGxHF0n5E41RfudtNXOksndOzN1DuA tJ6RMkhzsngmpco7yZKUng4HfVp9EyKWPDsCIgYkHx+IkmX0k3Rg7Xeqvo3a GJqStEc4WbHxfKcZ1ttZmmGtPlhd2NN/QRM+5lMUFVeCirUQl4d1UBSCw1hp 8pBhs+9QduTyFxbS3o3T6aPnxlr03x/0aJmCpa3WaI6CpXGW2RdD3es3ZtD6 4jyakuP243ubY9+Qxg0HTdhXRjiF3gv7gniFgmtCXfYNDcK+Ftg3tEX27SDs a8kMmCfYhp0ZMoVrMOh33bo8NZzcoG+dHez0SGktj09qQ+L1gHix+UF3sK8w sI7QS/9++zGD/v1DMPIPbzIjn+fa7ksxdOIYGLkKq41NqVhH8au204jC/Y3Z 13DZV1j1VVAwoDXlYdPm4YsKcy+Cdd7gY/MQzH8DnHMRiTeLK0l5Z2FqbF9s UNmHYVCT93xROTe/CedKShyzKVdoV/8icq7Q7buKciveQ1zl+xysu8XB+ts4 uuFD0jYKsLfxI7QaIG4xv9ycGoVM1tU4LLETi6BPJM58IpK0iO5CYwucLvtO T5D22ECFAcl86jBZrw4uT1IZXCJpzEdKzpSpGLmcsLmcyDMEyLSjvzv2Vu3E rWLvOU4jRXgfMh+LJavvdM7yRuzNRz1Disk7QhF3+yDEbUrl2aL0/DXC19ca 4un7lwfSZx+i9/uz28wozN4G2Nu8O3ubYG8++pubPUDhAPZsMrek482ib5we IUP695TlyDD/yKSNaiCqJVM/71he1mZ3ab/go12H7ZPJ8F2dafGIG74fS9Pi V+3pQVaq9SC0sEit6Q5yEFEIVdNQnSq5iIIHoqBTRzViQ81a53g1fuOgafc+ oh+SD4bxrpK/YLrhgW6EuLrRyR34EEw3grWMWAi9zcmImlFpyvSiYXnbZKoR g2VkQx5H79mW4w7P/9tXnmpD6dChGubdBcMjgsGy8dFjjG4A7/3y4246/fKT blooffv6QLrxSgzdeDWGqupyadOheVSyp4DiS3cwdlKfpQ13NILkiWJIHb5J 9V1kA3wUoBmXOFhwmS+w8ArI8U00oCxmFlvEmM8qNIfJMZ+VJPcog2+WxUaa zXQ+ZbczDxvCskN3+82MRhMTvyCKYPgVYan0aS59EWOIlSKo5t+mTcCNFMFq qggiCDoEAdf2S4L2EDRBRxQCObr+NuMD/sMH2Fv3gVwA13wfdy3gN5p1yI/0 ciRcDOYqaf3w+YURAO7aWz5K16G7W8OPdWr44V1J6z4IwHndB3HUiGyI6vBs ruaja7BSAX7g7DMM6Z/Mx5DuPAmQLbMwh8VWGx1Co/+OVWbS/ntSmVmOjyAt Ns+gxYYfyNMfc6RZZqA3AGa62sqju8qzwlYeLADANOiXHzZ51WxzWDAkbRvl LS6mht1Z9PGZGPrso96MXqxBPQ0IUbM65G1ReHRXeLiQ//hyX5lCVr8pk4oW L6D49HIsVC5Tz2TlgS6RVQZUQdaKxUKwUA/ex5bsiUJpltqHoqh4/MqZ+zgY uQ+zPPjvnUbvx8hnWb1fZvxWARpGAKqF+7G2P2+phfvDo6oofCyAAYEcsjs1 Du1d4w7oFBbNu6HRBwx8qsOkkBj2XELGs6viG68+1WFguX6MrTvkU1uycL8X AW+ZvHU4FEc1jyz1H8LwxRwWhADRXB0IiT6EAF5waPRhzi0HHB02lgPe4kcL HXsIu4BmuOFhJyc1w13BhSsXYw+LDvIleVNOsyGiaEEUQyGKPohil+ZE0XCd KR2a6G1RCvGRAYxsT8ZEn2SsJpByXE1FMymzYA2t35gneKl6go5JHHpzwifN /542ET7oXjeROw/kjoMv4fu4v/xyV7r5eozgtRcn6rSpGo721I0bKb5sF8WX yxqttrZB2i6KooHu38CReZcgaw70QHlbdNUUjQPdMx0veQsQur+OQNqYlyES 4sdcP585P5/FYtYJiB9OnA6WaQN9m9lE33Bn1UzfgsRZTSUOCoenmC+T/fwS J4NCztxF37wt6Zsm4gYNLL4AhVO4U+OUxHkDJQ4Cx7juSBwutfYd5EzZDQic QsW7uuibqRqb1t1ycKfMfXTvMgfxLA+EtGyVoZFrLYLSGwjeQeQa1t41rMOr r4tSX4eHhaE00/f6MQ3A6J8cyfSMDaSNzSctCrVIDvnAmDwMGsVMyTH4tuSz CEbjs5Kj8CmVUbJi+cS1rDmbHceboyfJgjeoSS140QEqLOj3mo8xBfMQzMXw 1blnpYLDFbE5ZxygUGDKQHBhxfkzj/u9uNYJrBkosIAH8iqz5qshr34okTVb 1Fdfq9V0RmCLW8chZPXBYrV3qqkloSlxWEwHOup7dqfPlVHx3fi0IZO20/IV y+j84Uz6/tUR9NnHfeG2fdyHL/jZR08oKf0QS5PeqaPSGucNpqMhro7+zasD 6UpNHO1aN41mLSikwZO2QJXwIRkNooD0CI0+iH38inywZrFSGQFbLGGayBc+ WQRANqKr2rPKQSHDo/fjg0YAZwGHXhz14NNGIa38PhVU4hC+R8OBfKnK+cgR RujgS0fykSO96UeOLHyyBqMl7X1sOZCv2+BqOGbGVbMi2YithrJi4R7v+Gp+ mGr8aviQDkKWNSgp+aLxR96zlNyFja1W9SAKAeQsJYAhbmtieHMCKF6h0aIA tncF0GMvHJZ8PBQC6JF51wb1mbZf5mNjqqKOWYv8OHt35NBbx6IF37/Q9z4F 0GqF4hmieL9S4D0OLfrVV7pyjn/7xkC6eTFGsOnIAtpUu4Dm7V6rU0IliChi yYtQPgAky6G4dUoC510STWgqgOiwfZO3llwzoXh8yrLrCN7G2QXMgwXMh8vf wfWWv41xnYv5egvZEVz4is070ENWppmsUjOqZeQjdPGAtOy7Yx8dpZMmJVlB xpnSrDqlQVZ1MuKpkdA9oM7hvZ7H350mvTua9YwgImcFEzkcK7mMcV4rr6h2 vcZte01V7lGLnBEocuI5vttahYNmv4XgGh5sJb/KSn6tEgHe+ioHK1BaiqVN s5iFvgi4BHB0oZSsQk6mwouAlBU0RRdc4K1lcImXwTleimDJq3zukldQAXkZ GYVgIYa+LcRIuPvUOyk4XALyTkHzXN3T/c2XRqDwaX7lwyBdfHKhFcrndyyN QMcys1WjW0OUL4l4/CG9Sg3BwphVZyiWM8r1btKYEyiN3aLI6juD62V3SqPu SCOW1RxeTiGjtjGhHjRU34y0tok+hkXZvmYIxeRspMryRXTtWBr97L2h9NmX nqHPPunHeJrxVCtEs0kXVhPRFL18nL77+kB6oy6etm6eTknzS6lT2l7oDgQI SsS3MCBFRgI0CoHolhV/UMe3+vhuvriDzidPAR2yZ0IALehhB6hlRBt/tBF5 g0+1TRDIBB0Uhok1HmyxeCbVcC7oSeqbVobgiPpNqOHL1/B9ajDJtQaSiCle 3tgaVjIBv7E97Su6BjoHiEBKXEyNE6/OcE72xvjniHV8UFEMdxtI/aKIb80d D4MoeuylliKmHKG4RetlCmtx5SKZ2apjnis/zl+8MghSKJO5jBZFUTOcXrQm PWmtkEcP9NADPTTpV5920enXX+1i0K+/1oXl8Z8/foLevRQjOHhqJm2uX0gr DxWxPG6AbUWA+RdcBpCbC68YQQQQAzzBiAVvQxpA48uFNAuZxguZwoukQa7o Xfg4xdhnIl3C1LfkEngM5MW0JRPPZsvyfIGrdyip01qtdSe+UFpnNdU6f3sl xOoW3hgCtuG2I3NmmygcrruWb7j2BlTuESrd8gdTOtwBpWX+8w7aVPHMQMWD 3hmN9Q4n5NRD7xzcg+4durvu6RKGqZPn8+Ov4bK0mlOz+HVOIC6Xc/nxZ3DJ n8oWkr7fmTKnll/d24L+TQ3szuseK/oXJvoXorRvwGLyDl1FvlGbKSRqvzgR oWNtZ2Icnj903GFLNbFyvC7LKHfmzcPic7hgv2PcjC1Uvn4pXT2VST97P5I+ +/JgxiDWxQGM/k30sS8r45P3Lo8e6Rr00I/ffJLeqGdV3DKDEhaUUsdJ+2yn S3leh6Wv6zBUCtBsT85CwEImH7NFa6YIZOwjF0j/x2+dL5ZOVF9zhMM44QhL o43EGug7WrjMhCN83SOsVUf4TkANtBHbqMvEHsFHVo94IHSyJX5kLUROVsuR ESUeyJ3PlTvdnYpi3V3uxAf0BpE7r8idoRbeShPI4upsX6x8fGBOaRFmJ8sM ZZ2un5JVtV8dBMGTyXnWI1A9D1TPS7/+k86Qvk9603tXYgSHnsujLccW0coj K1j6NmMmWkTRq5A5B365syB34updt909cfzY1cOAB6bPwnds7bthQvzAjTf5 hGJ4MiveA2miN6rkFmq4xXAVrygsepkBPWQCm8cu4txTzTRc+kVOF5Ez/SKn hE50DtGN5/62Wu8K/3D0Tnc9Ohz1C572EBUPwUXj/nTOcD0642Hq24w20je9 uQ5DS/TNE6hvCnlccksuIvWvYmWP0ivY4px5UwHbkLyi1ziFIHmnleShvRST HdXSa8lqsfE9aoXlFJnh1VjyMptInqffbC1cJM8rq6x5I9eRL2ovuwhH2Dc4 Im6FT7kVsUe0buRlkvXEM2smMBLryJNUR9aEejInMpIbyEwBjpKRykg7Rvqk owz+TT9G7TKOU9/ZB2jhhjV0+VwW/fT2GPrs02HwA78yVIvwa+KXB7aki5BF FsQ+dwojxPJ2DwgjwHF3SqRuj5659dxY2rp1BmUtL6Ync7aLS6aLdyaf1Haa LL9wihmhxJJlE1mPrRR85jhZOrhT7O8fJ8NzaCdx7SbWsrLW4quucJaTsHIc vvdqJtjgvLaAuFq8aS0+TM4XhGjySzsSOt7eE62VkwFNVmIKcRVVUq1O1hjB eBtvK7U1BNrqg7ZK4T6uvsuQIh+MTTke7jqVaO04GQZtRefAKR3LfEBg1xbT hu2zAQjsaXyh7e+v9oWiQlDvWVR1iKp5L6Jq0X9+HcGfQl5/9GWW1zdZXq+x vJ5leT2xmFbWlbC8bkXh6VhyATrqAPLT2IcsdH3IohviQ0KNREcDxBR2X/Ie FNUBH1sJeV15C1/LWcU6sfoD+/e22l7BfF/ErF54FbwMRmYGZkFc/ILqtZqP bqAFQqdqlIszL9xovYa+2ryGin4GaqivZQ0tRbIEEVARz0croGaggEI+dain aKjop2io/kcNbayh+j3PkVLaaSndxIE5/DgrueyslaFQpeiCX4OmmNWXkfZX pBr2hq2ZL9puYr3STAzLgU5O2IXvL+qOdKIVVeZTyTfUXNVMa7Q2laucYY5w DlxC1ugKMmN3kTGpgfTMk9RuMmMqqqLtpkp7S9YpZ9FclIVsWFPOKdlCPeKU nMFV346z6ii7fAOdPZlP37uZSJ99dSSLJDuMn45gDG8DwezVWsE0ZdypRX/z xiA6U51Kq9fPpcj8jVAYpMWEmj8s1XSczeRaCEstNAUVvRRpYEutw5agXUod Ps0KOdOT7W8vJ9WJetpfZnYUVNMlNAJUFItsWWhLtWLRoBqLaWN3KKMHoadF ZQxzvc5gyojux+PtGyujLIsaBmU03HWv+MQItsq4gk0Ut3wTFW9aTBt2zlbL E7x9Joav+g/X+kIcHYF86DLpgUzy1p91Muk33+jE1//Rp73o/bfGA5yeW05h wdT5h9dTwo5DAvYtRRahKDdEDM27iaEFMeQTVt2yoH2g6w9BFqUsDWs/4l8H vF/CFL6SUcwkvRzNdRgOtExG8aPpyT/SX5ehL1aQoS+idoWvPjLJ00XyLGhY U9nTWtY93VW/W6pfsVJp370o4DtfCAVEgOngtgLiUeeetQVQVrl5QPnT3cEw bSZ/btMoZpwvfB4yJ777Vb/2IYnRI7/qEnxIaN8qTrjVjDX2L+QSVTDo4Wx+ pen16iboNkyW+TYTMNjakUQlf8nO+FzInz0gVTmNJlkjSsiI28Z6h157dCBM R41QLR86nSuK054DsJcjCSmLxjtaqNaTN+WjQeGUuHIH1dQvoW9eS6fPvxZF n32NHcSvPcsaODqYDj64DPZsjQyyJd06M462bs+lrKIS6phZBaGQYVdH/vBl EE2ZdWjFrMMELwhiah30EB3cKZgm0S65HmqoMJG1cCK0kFURb51UZ+uh6GNC HQb4OGrHuidqp9t+YJxMwYAEJgg4Ne5BAeXbLh0geRYkz3AlL9SVPC8kz4f1 y9DEOPkM9Zl9iHVvs2DDrjmM2XS8NoPeORdNX3llpKY/NHHzQtw89JtvduK3 /M23OtF3PxlAt94ZT29cTdVp6xl8jSXrwG5K2F1NkVtOQtDAiTLWcMW7UDVX 2ZqqGUj3NijhQ5DDR8LNHzNVM8o/AcDbn4h+IIqxhi+26iZkTlPEi25J8MQF /LZWvKxg4mVPSjD9kxLUxARdZiWYTfUrQL6MQPnCZTbifTZ+ZPwBaRfOgqu9 7DUHf+gapomIKRcs/6RdsNa+aTYnYzpUDIl9Ef1/gYKG7RUXVJsCmijyT6j5 qJkHnf6/CTtt+UoKIl9htnx5Bi0l89kyZq191G6KOKxItGlItGmnrRZES+tI fRdU05o9pXTlfB797JNE+vxPohnjGGPvrl9faYV+2WNl7ke/dOgXG+VP3n6K Lh1PpNUb5lHknE2gdHEWkG/SSPg/RsQiIF1eWXKKXzat3l4+VfYmNYpLs/d0 OZklLpUlLrWBPT8byVCtdhNl1c8J9ez+CSB7SfUyqpUFLNEVMsNeuy4+qI6F usNlvM15ci3Lmkc8OQOLc0LbRN88CPGF7TOGvZbx8MV7ZEGkKWvKNWeRJFk3 6YVo+qsr+KznPSicAYXjv/zHp10gc4DWCq3TIXUm/fbPO1n027/g3Vs3Yvkq py/m0NazBbTqhHyKcw8KaMe1VyFrgGa4Ame6AgdF+dCCwImQ6bawlX9J68Rs /yVm/y/zr4Mv4Qj/sv6VsVqUshKUvgs25yu/ZdM47scouRIwwc4KcMLecpww 6SKTXk01uc5xxPSmy1ywALVWy3TImHF/Cqa7A1VEuay2lirDdbOMB5AoUadz SqHmyqimOXAW5qCA/u4kyhsoUQoYRDL7lDRZI43fNFopUIbdf7fiAq5aclFJ FH4BDFVBo8CCs1icKe+ELU0JAd1xVo+JIkqh9ghMa2ghmePWk54qXt+Ms1Yw cRrYSJyy122lmqOF9LfvZ9DnfxpPn389jhHLGH+v6gRxYgy5uzx9fG/ypEto 0fcuD6KzR9Jowdpl9GTuLrCzDNtBnqXU/k/XqAhbgCY1oMEbwSRZfbYBDVVY 4zsV39JtUEiGJjVAkRgNXJlhTGCT0JMaMN2iAZMxAiQnBJIT3niEpt9/gncn gRIa6Uyz7i40XnfdUliarISf9TzFrdgqa0Wt2L6UNu6bS1XVM3SsYMKXYamB 0tgrmzx8zQlXmvNff4lWxb/5lP2td2MBLnRbX8AS0lnV+yhxfy1F7pTGC9Uw qJTG4yqNBaUxoSk4BypT+RVm7K+IN/IpaqnrPsWWwjocs5WnAl4Ys/paZvE1 N/1OhjNlu7GaaPcpJ6BAtPc5nlGArFTep6w0GQ1iOnPZIJ+rrvmhZEb/PdQY cYNwdPZpCI2Ijf47khxLSQ46ouad4WRhv69cVPoepcaE1CBdX2+HrXaIs1XF mU+vh6llSrz98LFYb/9FzuB+f6OdfD0rF0sN36EvpujLM9R30RFauG0TXXl5 Pn3+ZxMZSawt7O38aULrNEb0ZVRbaYwOgYGkKIlxBOZDrFYFmfnGqyOpuiqL FpRBVnaDS6X/5o/S0khaIiAoMAl8oydDIM45inY6vk82CcvPpakPSzRgxXNI DUpLsvxtIv+FZYaBvQkYc54km0l8IPEofnG9xKNO3AQBeGMC5s0Fao8M5Iho rD0+aE/I3bVHPkXga6w9etMPEGTLNwZyXtB81GdBLcWv3EZTyitp4/65tLFq Hr16ZgK983I0ffutgTJa0pI1UnjzS92gQc7s8XtUIzXiw2A56gxJAmSveXHy QJw4+Cu4Rrdi+ZnPXJlGW88X0uozZZR4oJ4SD6J38E4t0iFFHugNPIlPEXwV cvBVLQKbfkFaz4JU+SUlRuUf2u4Qa0LpTdUEtvptuxnsBprFlCYotQgiOHrQ trj19viJJpIDPUPbnrTylb/XWrUxXHfGCHRnSpp1ZzxNpQZKY/fb3aE2CLCe zRdAbQx3apnRnMo4k6mxog4GCKL3cQ2nQwXSrvzafWqMAY0xMIzClpfopvLy NEZWeZ9ZaEBjLLtlzRy1hoyk3dQu+zhWnjebkxltFHSGRhYdpO1HSumb78yi z7+RykhhJLegOKw2X495FIrjH2jolxz63tVBVH0wm7JXrqKOUw8GNBj9UW2a UZsOUBbRGA4yZQvDhNJlIS18Gi79mPpNg/Skin6kcFFOPur8iu6Y9iq6WMdR myDQ/IuQGI0FBQ1m0nR20usKiscd/6BDT3zud79CgsgIVOQFVIUkeBH3xSds pp0H8ITTz+sUvwaLGWL5LCyjVVWXy/Zw49UY8WAsaIa3Oc2wZMKZwaLRBcIh Y/CtB5UQCxLCJ/7X/+7E6AjwA3HIrve3Oxr03/+nI/zvrw+gD27H0aUbk2jb y4W07ZUiPivxENL2ye0XnS4jvLGtMoarMmGuyoD+Eaz7FJkAf6fC9nfKP+JL sCaU3lJdTKtvqpEUJdIwdR2KDA8CirPWVp+yd0Um3nMVp9VyIn1J7+IKkJT7 k5U3719W9CDjEb5osqIHWblck0U6+ECtuvTiF1VzVhlWoKzE9P421paoRlOS x4rrYrna4qyCZY4pJz0Za53K5MWZ6AALLjG6/SHn7A276NzzRfS3t6fzPz7/ 5iSO+/wbaY7UIO7PJmr920hqht1Fau6YC91Iar735lA6W59BCyuWU99ZMrB/ EpzNP+pLK/TFB31BID0pmVzaJwukN1KUxonLFMClgDmwCkEXjuNTpQppAJ+T inNSRFhw4kRZ50otduXXGeSMDLZrqjOm+31Jr+uuNKszhqszKLdKbM5DYgCU 9MC1fVHmX9FCZKXG+LU7acqGDbTp8HwsaoXVrWSVq2+/M0DW/misP19thf6Y boNaMP3xQH+896c/HugPB9/pyO7YT/6yF93+KE6w7dUi2vZaMWUfPUiJNceo 767LfsVpD8WxpKXN9Le7KchZWmclPVCtMpaetezdlLJ+rMGC46wKK5n8V1xn sPdQfNXP5MLivL3Cpv4VYH1WCB9EKnBUt5IpteYThOaenBddVMYI7IuRcRNv yhiOq9AZBw+kN7jFEozvegXALZa8okN5DFd59CArZDyo8pxsI+VB1wnmVKED ZsE5NdVp1RvQFs5+WTpm3dvmw1Ge0fank9r5upDePZrMfnlkDVyiJgHDrWER kkY0DHobU0F6ShW/yhl+X1hscAni1+k4+wQt3LGNrrxWQD/72jT6/FuTGZmM DFuIugcKke3vTGidEH3trkJkjxVv3yoh+ul7A+ny6RRaWFlEffP2qtYh84/q cz/q08EWl8lYgnQKFoSSrUwEGceRsuqL2I7QiKmkHrek1x+Cc4JveUKWkQq3 F5NihVHziFNPasFcGiOI1IS2KDUIXhSPBnf3S40rNB53EXlTFpG3AheRV8h/ jctYfDm+8VVSVSSLSR04NpNuXpDFpfhYE9H5WqtEx9+L41cZAyrTHipjuQ1l /NwBKgMY0BgLGuMVjeH9v+5In31XgJbi73Y06bP/y1p0+5N4NtDqKwtp2+sr aOGZHZR45ARFHjjv9N1oYa7oiMQ4TpA91ECXXqD2alxd2SdKekrZ41mDaVUs O6sgOzfUGPJi5v2iK0pqlsuYueWyqFYBs9syrlEXXJQ9MHvRZYxPxInFV5Qu Ca7a4vGW0wL2APIid0FwCScoYXEWXQqmLbrry5htqChmoKK4qw0a96MjyCp0 w2Tb3TD4PAHWKJx3VvW7Y9hY2TXIB/ur0q65SWY+b7wJYRFxeUi6Eim6whnq aU/tugwn/ekZZA4uYCwja9DSQI3hB2KR4QfxDlxK5rgNZCiNMZsTGV1ExqSO c1hkdm6nK68X0ud/kcW68udTOfrzP59i600GK01628hN4KCB5uQmpFm5uf1S Eq3ZtoQiF21HJtjdDX/UmPvXmO5QFhTeKawOk11AaxBkiHKkc9wkAVI9TTWL mbbjknzC56qJ9PZ7oSb4r3gvpz2N1cTw9/Eb6pvPqptFprU11RUziJQYQdaU 1911d8EPEoAQnyw6QQnr9tDUrfiExOY6OP8XXkmWdZm+8/4ArqTfl2qYdxcK HWEHv1BYVH2VheIChGInJdaepMiDL6lOf6ffxRYIHwTBgBrgMOYTYfz12o9l ONHHWkd7/0M1v0i04lYQrWDSLryi9KEA+nCBKRh43WHlpTJ+eOnrTMguwM6v cbAMPKQEZvlFm9xlJcdCWcgYE5lc7+L+dMDfpiU6INOCX4IOOGiiB3rj2ab3 IAU4NuskpMCBkgRPU0mAIjiCIF2R0+qdvnkpm2CTrFr4iVPZxZjCmFzNRRs4 rDpO4HpgVQX4MnA/0IGCUVwYjFjxllIPqMWGG/hFlstwCBwqv+agDYRDa/f/ ATgBaHk=\ \>"], "ConferenceGraphicCell", ImageSize->{1279, 52}, ImageMargins->0], Cell[CellGroupData[{ Cell["Fractional Calculus", "Title", CellMargins->0, CellFrameMargins->{{60, 9}, {9, 12}}, CellChangeTimes->{ 3.40037239443489*^9, {3.4005073681923857`*^9, 3.4005073719643593`*^9}}, FontColor->GrayLevel[1], Background->GrayLevel[0]], Cell["Visualizing Fractional Derivatives and Integrals", "Subtitle", CellChangeTimes->{ 3.400372394435979*^9, {3.4005073875047617`*^9, 3.400507400907103*^9}, { 3.4008077858902473`*^9, 3.4008077909447117`*^9}}], Cell["Ernest Lee", "Author", CellChangeTimes->{{3.400372358143787*^9, 3.400372361763605*^9}, 3.400372394436825*^9}], Cell["Torrey Pines High School", "Affiliation", CellChangeTimes->{{3.400372363143773*^9, 3.4003723944377413`*^9}}], Cell[TextData[{ "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext", CellChangeTimes->{{3.3984418381493893`*^9, 3.398441843396253*^9}, 3.4003723944389763`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Introduction", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{{3.400507298311268*^9, 3.4005073016822968`*^9}, { 3.400507363421322*^9, 3.400507366213285*^9}}], Cell["\<\ Fractional calculus is a branch of mathematics that involves differentiation \ and integration of functions to an arbitrary order, including non-integer \ values.\ \>", "Text", CellChangeTimes->{{3.400507435230229*^9, 3.4005074389802523`*^9}, { 3.400507486056671*^9, 3.4005075268402557`*^9}, {3.400508462647379*^9, 3.400508481119337*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["The Gamma Function", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{{3.400507601936743*^9, 3.4005076132176123`*^9}, { 3.400507697291079*^9, 3.400507703060865*^9}, {3.400509034058667*^9, 3.400509043647335*^9}, {3.4005091235856037`*^9, 3.4005091251353188`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", "z", ")"}]}], " ", "=", " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["t", RowBox[{"z", "-", "1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]}]], "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.400853159358417*^9, 3.400853169664805*^9}, {3.401143933051663*^9, 3.401143995606523*^9}}, FontSize->18], Cell[TextData[{ "The Gamma Function takes factorials of non-integer values. This is \ utilized in taking fractional derivatives and integrals.\nThe built-in \ mathematica function is denoted by ", StyleBox["Gamma[]", FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.400853159358417*^9, 3.400853169664805*^9}, {3.401143928420126*^9, 3.401143928552721*^9}}], Cell[CellGroupData[{ Cell["Example", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807063372045*^9, 3.400807069818404*^9}, {3.4008074039865913`*^9, 3.400807406307102*^9}, { 3.400853076088522*^9, 3.400853110635964*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gamma", "[", "3.14", "]"}]], "Input", CellChangeTimes->{{3.4008531478620033`*^9, 3.400853187188492*^9}, { 3.4008534455400248`*^9, 3.400853492223957*^9}}], Cell[BoxData["2.284480633817801`"], "Output", CellChangeTimes->{{3.400853180835866*^9, 3.4008531874839973`*^9}, { 3.400853448904355*^9, 3.400853492499893*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Fractional Derivative Definition for a Monomial", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{{3.400507601936743*^9, 3.4005076132176123`*^9}, { 3.400507697291079*^9, 3.400507703060865*^9}, {3.400509034058667*^9, 3.400509043647335*^9}, {3.4008001900459137`*^9, 3.400800207863359*^9}, { 3.400800279151022*^9, 3.400800279582679*^9}}], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[DifferentialD]", "\[Alpha]"], RowBox[{"\[DifferentialD]", SuperscriptBox["t", "\[Alpha]"]}]], SuperscriptBox["t", "k"]}], "=", RowBox[{ FractionBox[ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "-", "\[Alpha]", "+", "1"}], ")"}]}]], SuperscriptBox["t", RowBox[{"k", "-", "\[Alpha]"}]]}]}]}]], "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.400853159358417*^9, 3.400853169664805*^9}, {3.401143933051663*^9, 3.401143995606523*^9}, {3.401144094966618*^9, 3.401144221044079*^9}, { 3.401144593388937*^9, 3.4011445977655277`*^9}}, FontSize->18], Cell["\<\ This formula allows for differentiation to order \[Alpha] of a monomial with \ exponent k.\ \>", "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400800244765641*^9, 3.400800270318776*^9}, {3.400800315054305*^9, 3.4008003351390953`*^9}, {3.400800738938609*^9, 3.4008007400877438`*^9}}], Cell["", "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.40050976473927*^9, 3.400509778359674*^9}, 3.400513147664587*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Introduction (con't)", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{{3.400507298311268*^9, 3.4005073016822968`*^9}, { 3.400507363421322*^9, 3.400507366213285*^9}, {3.400800177443716*^9, 3.400800179500823*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["The Riemann-Liouville Fractional Integral", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{{3.400507601936743*^9, 3.4005076132176123`*^9}, { 3.400507697291079*^9, 3.400507703060865*^9}, {3.400509034058667*^9, 3.400509043647335*^9}}], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ SubsuperscriptBox["D", "t", RowBox[{"-", "q"}]], "f", RowBox[{"(", "t", ")"}]}], "=", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", RowBox[{"(", "q", ")"}]}]], " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"t", "-", "\[Tau]"}], ")"}], RowBox[{"q", "-", "1"}]], RowBox[{"f", "(", "\[Tau]", ")"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], TraditionalForm]}]}]}]], "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.400853159358417*^9, 3.400853169664805*^9}, {3.401143933051663*^9, 3.401143995606523*^9}, {3.401144094966618*^9, 3.401144221044079*^9}, { 3.40114426531301*^9, 3.401144296701182*^9}, {3.401144343671288*^9, 3.401144401356805*^9}, {3.401144549147884*^9, 3.4011445493816442`*^9}}, FontSize->18], Cell["\<\ This formula allows for integration to order q, or equivalently, \ differentiation to order -q, where q is a real number.\ \>", "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400800742345549*^9, 3.4008007436942873`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["The Riemann-Liouville Differintegral", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{{3.400507601936743*^9, 3.4005076132176123`*^9}, { 3.400507697291079*^9, 3.400507703060865*^9}, {3.400509034058667*^9, 3.400509043647335*^9}, {3.4005091235856037`*^9, 3.4005091251353188`*^9}, { 3.400509517531921*^9, 3.400509523734914*^9}}], Cell["\<\ In order to derive a general formula for fractional differentiation to order \ q, we simply take the Riemann-Liouville Fractional Integral at order n - q \ and differentiate it at order n where n is the integer ceiling of q.\ \>", "Text", CellChangeTimes->{{3.400507435230229*^9, 3.4005074389802523`*^9}, { 3.400507486056671*^9, 3.4005075268402557`*^9}, {3.400508462647379*^9, 3.400508481119337*^9}, {3.400509579692843*^9, 3.400509708699595*^9}, { 3.4005097962867613`*^9, 3.400509796996166*^9}, {3.400853729965064*^9, 3.400853750031955*^9}}], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ SubsuperscriptBox["D", "t", "q"], "f", RowBox[{"(", "t", ")"}]}], "=", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"n", "-", "q"}], ")"}]}]], FractionBox[ SuperscriptBox["\[DifferentialD]", "n"], RowBox[{"\[DifferentialD]", SuperscriptBox["t", "n"]}]], " ", FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"t", "-", "\[Tau]"}], ")"}], RowBox[{"n", "-", "q", "-", "1"}]], RowBox[{"f", "(", "\[Tau]", ")"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], TraditionalForm]}]}]}]], "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.400853159358417*^9, 3.400853169664805*^9}, {3.401143933051663*^9, 3.401143995606523*^9}, {3.401144094966618*^9, 3.401144221044079*^9}, { 3.40114426531301*^9, 3.401144296701182*^9}, {3.401144343671288*^9, 3.401144401356805*^9}, {3.4011445442879744`*^9, 3.401144606866637*^9}}, FontSize->18], Cell["This formula allows for differentiation to order q.", "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.40050976473927*^9, 3.400509778359674*^9}}], Cell["", "Text", CellChangeTimes->{{3.4005084536262503`*^9, 3.4005085409799223`*^9}, { 3.400508755353404*^9, 3.400508760848303*^9}, {3.400508813088188*^9, 3.4005088240390587`*^9}, {3.400509084016691*^9, 3.400509107246414*^9}, { 3.400509191360804*^9, 3.400509245688282*^9}, {3.400509374188984*^9, 3.400509385237015*^9}, {3.4005094587645893`*^9, 3.400509470011326*^9}, { 3.40050976473927*^9, 3.400509778359674*^9}, 3.400513147664587*^9}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Visualizing Simple Fractional Derivatives", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.397919369590569*^9, {3.400508866635407*^9, 3.4005088739656487`*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Manipulate", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{ 3.3824524252213373`*^9, 3.3979195443087*^9, {3.400510023840186*^9, 3.400510026750568*^9}, {3.4005119804076653`*^9, 3.400511981430093*^9}}], Cell["\<\ I first implemented a specialized fractional derivative formula for monomials \ only. This is useful in illustrating the nature of fractional derivatives on \ a few simple functions.\ \>", "Text", CellChangeTimes->{{3.400511597774831*^9, 3.400511689812284*^9}, { 3.4005122536738253`*^9, 3.4005122679336348`*^9}, {3.400801478947048*^9, 3.4008015106077414`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FractionalDExp", "[", RowBox[{"lambda_", ",", "mu_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"lambda", "+", "1"}], "]"}], "/", " ", RowBox[{"Gamma", "[", RowBox[{"lambda", " ", "-", " ", "mu", " ", "+", "1"}], "]"}]}], " ", "*", " ", RowBox[{"t", " ", "^", RowBox[{"(", RowBox[{"lambda", " ", "-", " ", "mu"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"n", ",", "0"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "0"}], "]"}], "]"}], ",", " ", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "0"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Blue", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"n", ",", "1"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "1"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "1"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Green", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"n", ",", "2"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "2"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Purple", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"n", ",", "3"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "3"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "3"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Cyan", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"n", ",", "4"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "4"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "4"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Orange", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"n", ",", "5"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "5"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "5"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Yellow", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "order"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "order"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", "Red"}], "}"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "order"}], "}"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Blue"}], "]"}], ",", RowBox[{"Style", "[", " ", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "0"}], "]"}], "]"}], ",", "Blue"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"order", "\[Equal]", "0"}], ",", RowBox[{"HoldForm", "[", RowBox[{"D", "^", "0"}], "]"}], ",", RowBox[{"D", "^", "order"}]}], "]"}], ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", " ", ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", " ", RowBox[{ RowBox[{"N", "[", RowBox[{"FractionalDExp", "[", RowBox[{"degree", ",", "order"}], "]"}], "]"}], ",", "Red"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"Center", ",", "Center"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"order", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "5", ",", ".1"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"degree", ",", "2", ",", "\"\\""}], "}"}], ",", "1", ",", "5", ",", "1"}], "}"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{ RowBox[{"Floor", "[", "order", "]"}], ",", RowBox[{"Ceiling", "[", "order", "]"}]}], "}"}], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "CheckboxBar"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ExpressionCell", "[", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", "Center"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"order", "=", "0"}], ";", RowBox[{"degree", "=", "2"}], ";"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "20", ",", RowBox[{"FontFamily", "\[Rule]", " ", "Times"}], ",", "Bold"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", "]"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.3984337885880413`*^9, 3.3984337924362307`*^9}, { 3.3984338327479687`*^9, 3.398434046686987*^9}, {3.398434133983358*^9, 3.398434134127956*^9}, {3.398434212390357*^9, 3.398434214604205*^9}, { 3.398434259503533*^9, 3.398434305215526*^9}, 3.398434378179163*^9, { 3.3984344209778967`*^9, 3.3984344617766857`*^9}, {3.398699575252969*^9, 3.3986996315725822`*^9}, {3.398699667456493*^9, 3.398699708143365*^9}, { 3.3986997541198263`*^9, 3.398699785324666*^9}, {3.398699842603901*^9, 3.398699913633078*^9}, {3.398699975510651*^9, 3.398700002991373*^9}, { 3.398706587675561*^9, 3.398706624292337*^9}, {3.398706702972514*^9, 3.3987067169486227`*^9}, {3.3991261211493387`*^9, 3.399126122673353*^9}, { 3.3991262299522343`*^9, 3.399126516897891*^9}, {3.399126657004756*^9, 3.399126769885803*^9}, {3.399126802872682*^9, 3.399126866040563*^9}, { 3.3991269002649107`*^9, 3.3991269274072247`*^9}, {3.399126964668923*^9, 3.3991269723745747`*^9}, {3.3991270172568693`*^9, 3.39912702260069*^9}, { 3.399127227137561*^9, 3.399127228709343*^9}, {3.399127269099739*^9, 3.39912728355956*^9}, {3.399297512880072*^9, 3.399297523679352*^9}, { 3.3999919135343924`*^9, 3.3999919460702333`*^9}, {3.399991976304461*^9, 3.3999920175937357`*^9}, {3.399992061597342*^9, 3.3999920650863657`*^9}, { 3.3999921075486393`*^9, 3.3999922051123743`*^9}, {3.399992245702877*^9, 3.399992346267494*^9}, 3.399992379549*^9, {3.3999924167495003`*^9, 3.3999924771239243`*^9}, {3.3999926022804203`*^9, 3.399992616682868*^9}, { 3.3999926568792143`*^9, 3.399992728273109*^9}, {3.399992786659915*^9, 3.399992950629188*^9}, {3.399993004872116*^9, 3.3999930051228857`*^9}, { 3.3999930877521133`*^9, 3.3999931073572206`*^9}, {3.399993204114644*^9, 3.399993241058346*^9}, 3.3999933712878838`*^9, {3.399993405303795*^9, 3.399993448707271*^9}, {3.399993493907386*^9, 3.399993502985477*^9}, { 3.399993671178583*^9, 3.399993715842393*^9}, {3.3999937622935133`*^9, 3.399993823245377*^9}, {3.399993863869918*^9, 3.399993876431591*^9}, 3.3999939095324907`*^9, {3.399993967059795*^9, 3.39999397756651*^9}, { 3.3999940276232157`*^9, 3.3999940348646*^9}, {3.399994135811967*^9, 3.399994184307192*^9}, {3.399994278788067*^9, 3.39999428521095*^9}, { 3.399994327497957*^9, 3.399994345867807*^9}, {3.399994512681007*^9, 3.39999454165226*^9}, {3.399999473533166*^9, 3.399999516143816*^9}, { 3.4000317172190742`*^9, 3.4000317202830877`*^9}, {3.400031771244481*^9, 3.400031800678404*^9}, {3.400031950850576*^9, 3.400031963415276*^9}, { 3.400031993494522*^9, 3.400031993859173*^9}, {3.400032030868328*^9, 3.4000320600445633`*^9}, {3.400032239191051*^9, 3.4000322401010637`*^9}, { 3.400032347822291*^9, 3.4000323719772673`*^9}, {3.4000324223318853`*^9, 3.4000324238454447`*^9}, {3.4000325177900343`*^9, 3.400032564050889*^9}, { 3.400032609445911*^9, 3.400032635534093*^9}, {3.400032667278064*^9, 3.4000326712524033`*^9}, {3.400032725009478*^9, 3.400032824474416*^9}, { 3.4000328848525467`*^9, 3.400032887139021*^9}, {3.400032985556457*^9, 3.400032986015972*^9}, {3.400033022730298*^9, 3.4000331141039267`*^9}, { 3.400033222655786*^9, 3.4000332419636106`*^9}, {3.400033280441698*^9, 3.4000332850840673`*^9}, {3.400033359734864*^9, 3.400033436867219*^9}, { 3.4000334693934813`*^9, 3.4000334759130783`*^9}, {3.4000335431240377`*^9, 3.400033560555546*^9}, {3.400033604041325*^9, 3.400033747766551*^9}, { 3.400033817474461*^9, 3.400033915081109*^9}, {3.400033949036717*^9, 3.4000340027307568`*^9}, {3.400034349751515*^9, 3.4000345198815002`*^9}, { 3.400034550667226*^9, 3.4000346059146338`*^9}, {3.400034640602013*^9, 3.400034714529598*^9}, {3.400110905195052*^9, 3.400110905523909*^9}, { 3.400111189675405*^9, 3.400111190222123*^9}, {3.4001113127545233`*^9, 3.400111314650145*^9}, {3.4003696307590313`*^9, 3.4003696325417624`*^9}, { 3.4003718435061073`*^9, 3.400371857869605*^9}, 3.4005063014145727`*^9, { 3.400512603260413*^9, 3.4005126341245823`*^9}, {3.4010987253421793`*^9, 3.401098734860806*^9}, {3.401098828930184*^9, 3.401098835405353*^9}, { 3.401098908113772*^9, 3.401098927367453*^9}, {3.4010989763223658`*^9, 3.40109900349973*^9}, {3.401099462432269*^9, 3.401099466139991*^9}, { 3.401099500984934*^9, 3.4010995018471107`*^9}, {3.4010995640523777`*^9, 3.401099613195311*^9}, {3.401099646492673*^9, 3.401099656911607*^9}, { 3.4010997296942167`*^9, 3.40109974798493*^9}, {3.4010997816602592`*^9, 3.401099810143656*^9}, {3.401099840953128*^9, 3.401099880903658*^9}, { 3.4011000010619917`*^9, 3.4011000112618437`*^9}, {3.401100059118009*^9, 3.401100081738117*^9}, {3.40110019002171*^9, 3.401100208046788*^9}, { 3.4011002997821207`*^9, 3.40110031512816*^9}, {3.4011003641283627`*^9, 3.401100371599571*^9}, {3.401100407409439*^9, 3.401100519765353*^9}, { 3.4011005598642797`*^9, 3.401100620073358*^9}, {3.40110085792762*^9, 3.4011011591265907`*^9}, {3.4011012429400454`*^9, 3.401101246703431*^9}, { 3.401101277996216*^9, 3.401101303935217*^9}, {3.401101402287505*^9, 3.401101410429351*^9}, {3.4011023283777122`*^9, 3.401102361561418*^9}, { 3.401102422168283*^9, 3.4011024506793633`*^9}, {3.401106956022358*^9, 3.401106974501019*^9}, {3.401107004913663*^9, 3.401107006743229*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`degree$$ = 2, $CellContext`n$$ = {0, 0}, $CellContext`order$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`order$$], 0, "Order of Differentiation"}, 0, 5, 0.1}, {{ Hold[$CellContext`degree$$], 2, "Degree of Exponentiation"}, 1, 5, 1}, {{ Hold[$CellContext`n$$], { Floor[$CellContext`order$$], Ceiling[$CellContext`order$$]}, "Plot n'th Derivative"}, {0, 1, 2, 3, 4, 5}}, { Hold[ ExpressionCell[ Button[ Row[{"Reset Values"}, Center], $CellContext`order$$ = 0; $CellContext`degree$$ = 2; Null]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 500., {190., 199.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`order$47297$$ = 0, $CellContext`degree$47298$$ = 0, $CellContext`n$47299$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`degree$$ = 2, $CellContext`n$$ = { Floor[$CellContext`order$$], Ceiling[$CellContext`order$$]}, $CellContext`order$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`order$$, $CellContext`order$47297$$, 0], Hold[$CellContext`degree$$, $CellContext`degree$47298$$, 0], Hold[$CellContext`n$$, $CellContext`n$47299$$, 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" :> Column[{ Show[ If[ MemberQ[$CellContext`n$$, 0], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 0]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, 0]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> {Blue}, ImageSize -> 400], {}], If[ MemberQ[$CellContext`n$$, 1], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 1]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, 1]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> {Green}, ImageSize -> 400], {}], If[ MemberQ[$CellContext`n$$, 2], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 2]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, 2]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> {Purple}, ImageSize -> 400], {}], If[ MemberQ[$CellContext`n$$, 3], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 3]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, 3]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> {Cyan}, ImageSize -> 400], {}], If[ MemberQ[$CellContext`n$$, 4], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 4]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, 4]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> {Orange}, ImageSize -> 400], {}], If[ MemberQ[$CellContext`n$$, 5], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 5]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, 5]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> {Yellow}, ImageSize -> 400], {}], Plot[ Tooltip[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, \ $CellContext`order$$]], N[ $CellContext`FractionalDExp[$CellContext`degree$$, \ $CellContext`order$$]]], {$CellContext`t, -5, 5}, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> { Thickness[0.005], Red}]], Row[{"Order of Differentiation = ", $CellContext`order$$}], Row[{ Style["f(t) = ", Blue], Style[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, 0]], Blue]}], Row[{ Style[ If[$CellContext`order$$ == 0, HoldForm[D^0], D^$CellContext`order$$], Red], Style["f(t) = ", Red], Style[ N[ $CellContext`FractionalDExp[$CellContext`degree$$, \ $CellContext`order$$]], Red]}]}, {Center, Center}], "Specifications" :> { "X1" -> {{$CellContext`order$$, 0, "Order of Differentiation"}, 0, 5, 0.1}, "X2" -> {{$CellContext`degree$$, 2, "Degree of Exponentiation"}, 1, 5, 1}, {{$CellContext`n$$, { Floor[$CellContext`order$$], Ceiling[$CellContext`order$$]}, "Plot n'th Derivative"}, {0, 1, 2, 3, 4, 5}, ControlType -> CheckboxBar}, ExpressionCell[ Button[ Row[{"Reset Values"}, Center], $CellContext`order$$ = 0; $CellContext`degree$$ = 2; Null]]}, "Options" :> {FrameLabel -> {{"", ""}, {"", Style[ "Visualizing Simple Fractional Derivatives", 20, FontFamily -> Times, Bold]}}}, "DefaultOptions" :> {}], ImageSizeCache->{579., {311.5, 320.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4005117366556273`*^9, 3.4005126800377417`*^9, {3.400800704142681*^9, 3.400800708916584*^9}, 3.400802933793292*^9, 3.400803057185758*^9, 3.400886827689361*^9, 3.401021022535076*^9, 3.401098501226638*^9, 3.401098838368362*^9, 3.401098940223774*^9, 3.401098986742855*^9, 3.401099503005707*^9, {3.401099542129697*^9, 3.401099548001485*^9}, 3.4010996141010427`*^9, 3.401099756393263*^9, 3.401099885559753*^9, 3.4011000138475027`*^9, 3.4011000846337643`*^9, 3.401100227500469*^9, 3.401100322623448*^9, 3.401100373850401*^9, 3.401100528274445*^9, { 3.4011006152134333`*^9, 3.401100623937516*^9}, 3.401101045252533*^9, 3.40110111533797*^9, 3.401101160609111*^9, {3.401101248137712*^9, 3.4011013055383987`*^9}, 3.4011014116809483`*^9, 3.401102296916596*^9, 3.401102364840392*^9, {3.401102424423772*^9, 3.4011024515989103`*^9}, 3.401104295653617*^9, {3.401105027700506*^9, 3.4011050356948566`*^9}, 3.401106976210079*^9, 3.40110700748851*^9, 3.401107392117729*^9, 3.401109929818349*^9, 3.4011132648995123`*^9, 3.401118951867632*^9, 3.401270726967156*^9, 3.401271208624*^9, 3.401271659454*^9}] }, {2}]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Identical Implementation With The Riemann-Liouville \ Differintegral", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.3979193720200853`*^9, {3.400508894205439*^9, 3.40050890111852*^9}, { 3.400512122606576*^9, 3.400512124801777*^9}, {3.400512219430911*^9, 3.400512235304645*^9}, {3.400512288097344*^9, 3.400512290842162*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Manipulate", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{ 3.3824524252213373`*^9, 3.3979195443087*^9, {3.400510023840186*^9, 3.400510026750568*^9}, {3.4005119804076653`*^9, 3.400511981430093*^9}}], Cell["\<\ Next, I implemented a similar manipulate utilizing the Riemann-Liouville \ Differintegral as the definition.\ \>", "Text", CellChangeTimes->{{3.400511597774831*^9, 3.400511689812284*^9}, { 3.4005122536738253`*^9, 3.4005122679336348`*^9}, {3.400801384521667*^9, 3.400801427349368*^9}, 3.400801467459153*^9, {3.400801531909128*^9, 3.400801581832366*^9}, {3.401143670751802*^9, 3.401143677406542*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{ RowBox[{"q_Integer", "?", "NonNegative"}], ",", "f_", ",", "t_Symbol", ",", RowBox[{"assumptions", ":", RowBox[{"OptionsPattern", "[", "Integrate", "]"}]}]}], "]"}], ":=", RowBox[{"D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"t", ",", "q"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{"q_", ",", "f_", ",", "t_Symbol", ",", RowBox[{"assumptions", ":", RowBox[{"OptionsPattern", "[", "Integrate", "]"}]}]}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{"q", ",", "f", ",", "t", ",", "assumptions"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"Gamma", "[", RowBox[{"-", "q"}], "]"}]}], ")"}], " ", "*", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"f", "/.", RowBox[{"t", "\[Rule]", "var"}]}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"t", " ", "-", " ", "var"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "q"}], "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"var", ",", "0", ",", "t"}], "}"}], ",", "assumptions"}], "]"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RLExp", "[", RowBox[{"q_", ",", "f_", ",", "t_Symbol", ",", RowBox[{"assumptions", ":", RowBox[{"OptionsPattern", "[", "Integrate", "]"}]}]}], "]"}], " ", ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"q", "\[Equal]", "0"}], ",", "f", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"IntegerQ", "[", "q", "]"}], "\[Equal]", "True"}], ",", RowBox[{"D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"t", ",", "q"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Ceiling", "[", "q", "]"}]}], " ", "+", " ", "q"}], ",", "f", ",", "t", ",", "assumptions"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Ceiling", "[", "q", "]"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "0", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "1", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Green"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "2", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Purple"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "3", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Cyan"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "4", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Orange"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "order", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"5", "^", "degree"}]}], ",", RowBox[{"5", "^", "degree"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", "Red"}], "}"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"N", "[", "order", "]"}]}], "}"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Blue"}], "]"}], ",", RowBox[{"Style", "[", " ", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "0", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"t", ">", "0"}]}]}], "]"}], "]"}], ",", "Blue"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"order", "\[Equal]", "0"}], ",", RowBox[{"HoldForm", "[", RowBox[{"D", "^", "0"}], "]"}], ",", RowBox[{"D", "^", "order"}]}], "]"}], ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", " ", ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"Evaluate", "[", " ", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "order", "]"}], ",", RowBox[{"t", "^", "degree"}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}], ",", "Red"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "Center", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"order", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "5", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"degree", ",", "2", ",", "\"\\""}], "}"}], ",", "1", ",", "5", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ExpressionCell", "[", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", "Center"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"order", "=", "0"}], ";", RowBox[{"degree", "=", "2"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "20", ",", RowBox[{"FontFamily", "\[Rule]", " ", "Times"}], ",", "Bold"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.401116838776965*^9, 3.401116893442317*^9}, { 3.401116942502791*^9, 3.401116947715621*^9}, {3.401117000471002*^9, 3.401117008201545*^9}, {3.401117041063179*^9, 3.401117046187969*^9}, { 3.401117233603488*^9, 3.4011172409565573`*^9}, {3.4011174947113247`*^9, 3.401117501016616*^9}, {3.401117632212335*^9, 3.401117636146838*^9}, { 3.4011177430783253`*^9, 3.4011178098678427`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`degree$$ = 2, $CellContext`order$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`order$$], 0, "Order of Differentiation"}, 0, 5, Rational[1, 10]}, {{ Hold[$CellContext`degree$$], 2, "Degree of Exponentiation"}, 1, 5, 1}, { Hold[ ExpressionCell[ Button[ Row[{"Reset Values"}, Center], $CellContext`order$$ = 0; $CellContext`degree$$ = 2]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 664., {217., 226.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`order$49140$$ = 0, $CellContext`degree$49141$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`degree$$ = 2, $CellContext`order$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`order$$, $CellContext`order$49140$$, 0], Hold[$CellContext`degree$$, $CellContext`degree$49141$$, 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" :> Column[{ Show[ Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[ 0], $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> Blue], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[ 1], $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> Green], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[ 2], $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> Purple], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[ 3], $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> Cyan], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[ 4], $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> Orange], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[$CellContext`order$$], \ $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> {{-5, 5}, {-5^$CellContext`degree$$, 5^$CellContext`degree$$}}, PlotStyle -> { Thickness[0.005], Red}]], Row[{"Order of Differentiation = ", N[$CellContext`order$$]}], Row[{ Style["f(t) = ", Blue], Style[ Evaluate[ $CellContext`RLExp[ Rationalize[ 0], $CellContext`t^$CellContext`degree$$, $CellContext`t, Assumptions -> $CellContext`t > 0]], Blue]}], Row[{ Style[ If[$CellContext`order$$ == 0, HoldForm[D^0], D^$CellContext`order$$], Red], Style["f(t) = ", Red], Style[ N[ Evaluate[ $CellContext`RLExp[ Rationalize[$CellContext`order$$], \ $CellContext`t^$CellContext`degree$$, $CellContext`t, GenerateConditions -> False]]], Red]}]}, {Center}], "Specifications" :> { "X1" -> {{$CellContext`order$$, 0, "Order of Differentiation"}, 0, 5, Rational[1, 10]}, "X2" -> {{$CellContext`degree$$, 2, "Degree of Exponentiation"}, 1, 5, 1}, ExpressionCell[ Button[ Row[{"Reset Values"}, Center], $CellContext`order$$ = 0; $CellContext`degree$$ = 2]]}, "Options" :> {FrameLabel -> {{"", ""}, {"", Style[ "Visualizing Simple Fractional Derivatives (R-L)", 20, FontFamily -> Times, Bold]}}}, "DefaultOptions" :> {}], ImageSizeCache->{743., {327.5, 336.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4011167012283173`*^9, 3.4011167826210938`*^9, 3.401116897116784*^9, 3.4011170096436577`*^9, 3.4011170472892647`*^9, 3.401117475186079*^9, 3.401117638480598*^9, 3.4011177287037*^9, 3.401117810838649*^9, 3.401118742015902*^9, 3.4011190043863153`*^9}] }, {2}]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Fractional Derivatives of Sine", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.3979193720200853`*^9, {3.400508894205439*^9, 3.40050890111852*^9}, { 3.400512122606576*^9, 3.400512124801777*^9}, {3.400512219430911*^9, 3.400512235304645*^9}, {3.400512288097344*^9, 3.400512290842162*^9}, { 3.401270527165814*^9, 3.401270531630402*^9}, {3.401270670926094*^9, 3.401270680044105*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Manipulate", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{ 3.3824524252213373`*^9, 3.3979195443087*^9, {3.400510023840186*^9, 3.400510026750568*^9}, {3.4005119804076653`*^9, 3.400511981430093*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{ RowBox[{"q_Integer", "?", "NonNegative"}], ",", "f_", ",", "t_Symbol", ",", RowBox[{"assumptions", ":", RowBox[{"OptionsPattern", "[", "Integrate", "]"}]}]}], "]"}], ":=", RowBox[{"D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"t", ",", "q"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{"q_", ",", "f_", ",", "t_Symbol", ",", RowBox[{"assumptions", ":", RowBox[{"OptionsPattern", "[", "Integrate", "]"}]}]}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{"q", ",", "f", ",", "t", ",", "assumptions"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"Gamma", "[", RowBox[{"-", "q"}], "]"}]}], ")"}], " ", "*", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"f", "/.", RowBox[{"t", "\[Rule]", "var"}]}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"t", " ", "-", " ", "var"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "q"}], "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"var", ",", "0", ",", "t"}], "}"}], ",", "assumptions"}], "]"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RLExp", "[", RowBox[{"q_", ",", "f_", ",", "t_Symbol", ",", RowBox[{"assumptions", ":", RowBox[{"OptionsPattern", "[", "Integrate", "]"}]}]}], "]"}], " ", ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"q", "\[Equal]", "0"}], ",", "f", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"IntegerQ", "[", "q", "]"}], "\[Equal]", "True"}], ",", RowBox[{"D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"t", ",", "q"}], "}"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"RLIntegral", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Ceiling", "[", "q", "]"}]}], " ", "+", " ", "q"}], ",", "f", ",", "t", ",", "assumptions"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Ceiling", "[", "q", "]"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "0", "]"}], ",", RowBox[{"3", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", "5"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "1", "]"}], ",", RowBox[{"3", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", "5"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Green"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "2", "]"}], ",", RowBox[{"3", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", "5"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Purple"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "order", "]"}], ",", RowBox[{"3", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", "5"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", "Red"}], "}"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"N", "[", "order", "]"}]}], "}"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Blue"}], "]"}], ",", RowBox[{"Style", "[", " ", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "0", "]"}], ",", RowBox[{"3", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", "Blue"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"order", "\[Equal]", "0"}], ",", RowBox[{"HoldForm", "[", RowBox[{"D", "^", "0"}], "]"}], ",", RowBox[{"D", "^", "order"}]}], "]"}], ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", " ", ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"Evaluate", "[", " ", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "order", "]"}], ",", RowBox[{"3", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}], ",", "Red"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "Center", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"order", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "2", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ExpressionCell", "[", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", "Center"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"order", "=", "0"}], ";"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "20", ",", RowBox[{"FontFamily", "\[Rule]", " ", "Times"}], ",", "Bold"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.401116838776965*^9, 3.401116893442317*^9}, { 3.401116942502791*^9, 3.401116947715621*^9}, {3.401117000471002*^9, 3.401117008201545*^9}, {3.401117041063179*^9, 3.401117046187969*^9}, { 3.401117233603488*^9, 3.4011172409565573`*^9}, {3.4011174947113247`*^9, 3.401117501016616*^9}, {3.401117632212335*^9, 3.401117636146838*^9}, { 3.4011177430783253`*^9, 3.4011178098678427`*^9}, {3.401268681794923*^9, 3.4012687141676407`*^9}, {3.401269048624647*^9, 3.4012690497485313`*^9}, { 3.40126923860226*^9, 3.401269278736821*^9}, {3.401270158149803*^9, 3.401270203408208*^9}, {3.401270275869783*^9, 3.4012702832456512`*^9}, { 3.401270647264286*^9, 3.401270658169237*^9}, {3.40127071319524*^9, 3.401270721420257*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`order$$ = Rational[3, 5], Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`order$$], 0, "Order of Differentiation"}, 0, 2, Rational[1, 10]}, { Hold[ ExpressionCell[ Button[ Row[{"Reset Values"}, Center], $CellContext`order$$ = 0; Null]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 664., {227., 236.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`order$47341$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`order$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`order$$, $CellContext`order$47341$$, 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" :> Column[{ Show[ Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[0], 3 Sin[$CellContext`t], $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> 5, PlotStyle -> Blue], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[1], 3 Sin[$CellContext`t], $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> 5, PlotStyle -> Green], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[2], 3 Sin[$CellContext`t], $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> 5, PlotStyle -> Purple], Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[$CellContext`order$$], 3 Sin[$CellContext`t], $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotRange -> 5, PlotStyle -> { Thickness[0.005], Red}]], Row[{"Order of Differentiation = ", N[$CellContext`order$$]}], Row[{ Style["f(t) = ", Blue], Style[ Evaluate[ $CellContext`RLExp[ Rationalize[0], 3 Sin[$CellContext`t], $CellContext`t, GenerateConditions -> False]], Blue]}], Row[{ Style[ If[$CellContext`order$$ == 0, HoldForm[D^0], D^$CellContext`order$$], Red], Style["f(t) = ", Red], Style[ N[ Evaluate[ $CellContext`RLExp[ Rationalize[$CellContext`order$$], 3 Sin[$CellContext`t], $CellContext`t, GenerateConditions -> False]]], Red]}]}, {Center}], "Specifications" :> { "X1" -> {{$CellContext`order$$, 0, "Order of Differentiation"}, 0, 2, Rational[1, 10]}, ExpressionCell[ Button[ Row[{"Reset Values"}, Center], $CellContext`order$$ = 0; Null]]}, "Options" :> {FrameLabel -> {{"", ""}, {"", Style[ "Fractional Derivatives of Sine", 20, FontFamily -> Times, Bold]}}}, "DefaultOptions" :> {}], ImageSizeCache->{743., {317.5, 326.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.401268725774188*^9, 3.401268851261488*^9, 3.401269052700234*^9, 3.401269284525404*^9, 3.401270205435568*^9, 3.401270290476295*^9, 3.4012707303931303`*^9, 3.401270784571191*^9, 3.401271209112*^9, 3.401271659842*^9}] }, {2}]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Fractional Derivatives and Integrals with \ Polynomials", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.3979193720200853`*^9, {3.400508894205439*^9, 3.40050890111852*^9}}], Cell["\<\ This manipulate implements both the R-L Integral and Differintegral and can \ accept user input. It can take simple polynomials as arguments but not \ periodic or exponential functions.\ \>", "Text", CellChangeTimes->{{3.400512882847053*^9, 3.400512885975093*^9}, { 3.40080168392054*^9, 3.4008017332531*^9}, {3.400801773097803*^9, 3.400801825157836*^9}, {3.400803120230378*^9, 3.400803121500455*^9}, 3.400853922559456*^9}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Manipulate", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{ 3.3824524252213373`*^9, 3.3979195443087*^9, {3.400510023840186*^9, 3.400510026750568*^9}, {3.4005119804076653`*^9, 3.400511981430093*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Thickness", "[", ".005", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "25"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"deriv", "\[Equal]", "True"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "orderD", "]"}], ",", "f", ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"integral", "\[Equal]", "True"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"RLIntegral", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Rationalize", "[", "orderI", "]"}], ")"}]}], ",", "f", ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Red"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"f", ",", "Red"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"orderD", "\[Equal]", "0"}], ",", RowBox[{"HoldForm", "[", RowBox[{"D", "^", "0"}], "]"}], ",", RowBox[{"D", "^", "orderD"}]}], "]"}], ",", "Blue"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", " ", ",", "Blue"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"orderD", "\[Equal]", "0"}], ",", "f", ",", RowBox[{"N", "[", RowBox[{"Evaluate", "[", RowBox[{"RLExp", "[", RowBox[{ RowBox[{"Rationalize", "[", "orderD", "]"}], ",", "f", ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}]}], "]"}], ",", "Blue"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"orderI", "\[Equal]", "0"}], ",", RowBox[{"HoldForm", "[", RowBox[{"D", "^", "0"}], "]"}], ",", RowBox[{"\"\\"", "^", "orderI"}]}], "]"}], ",", "Green"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", " ", ",", "Green"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"orderI", "\[Equal]", "0"}], ",", "f", ",", RowBox[{"N", "[", RowBox[{"Evaluate", "[", " ", RowBox[{"RLIntegral", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Rationalize", "[", "orderI", "]"}], ")"}]}], ",", "f", ",", "t", ",", RowBox[{"GenerateConditions", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}]}], "]"}], ",", "Green"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "Center", "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", RowBox[{"t", "^", "2"}], ",", "\"\\""}], "}"}], ",", RowBox[{"t", "^", "2"}], ",", "InputField"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"orderD", ",", "1", ",", "\"\\""}], "}"}], ",", "InputField"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "orderI", ",", " ", "1", ",", " ", "\"\\""}], "}"}], ",", "InputField"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"deriv", ",", "True", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", " ", "False"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"integral", ",", "True", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", " ", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\<\>\"", ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "20", ",", RowBox[{"FontFamily", "\[Rule]", " ", "Times"}], ",", "Bold"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4003376027860727`*^9, 3.4003377561793633`*^9}, { 3.400337884740759*^9, 3.40033789543402*^9}, {3.4003379527606173`*^9, 3.4003379631347427`*^9}, {3.4003381139205008`*^9, 3.400338114185266*^9}, { 3.4003382498717413`*^9, 3.400338287509336*^9}, {3.400338453753208*^9, 3.4003385568632183`*^9}, {3.400338638169838*^9, 3.4003386466924067`*^9}, { 3.4003386779453363`*^9, 3.400338803616582*^9}, {3.400338889464387*^9, 3.400338893238442*^9}, {3.4003390340005302`*^9, 3.4003391543380327`*^9}, { 3.400339188567575*^9, 3.400339224686144*^9}, {3.4003392853175087`*^9, 3.400339310005495*^9}, {3.400339405288332*^9, 3.400339446594657*^9}, { 3.400340060637035*^9, 3.4003400638467693`*^9}, {3.400340185508918*^9, 3.400340188362895*^9}, {3.400369409243621*^9, 3.400369474048257*^9}, { 3.4003695050075417`*^9, 3.4003695166084137`*^9}, {3.400369569316773*^9, 3.4003695935788794`*^9}, {3.400369733560697*^9, 3.40036973382708*^9}, 3.400369773646439*^9, {3.400369846573305*^9, 3.400369904832079*^9}, { 3.400369948025467*^9, 3.4003699880387774`*^9}, {3.400370018206102*^9, 3.400370030018005*^9}, {3.400370100202794*^9, 3.400370328121839*^9}, { 3.40037039108202*^9, 3.400370562166991*^9}, {3.40037059328566*^9, 3.400370644319614*^9}, {3.4003706974848747`*^9, 3.400370729671747*^9}, { 3.400370890375628*^9, 3.400370946031157*^9}, {3.400370983382395*^9, 3.400370996192717*^9}, {3.4003718825676813`*^9, 3.400371932679441*^9}, { 3.400507089573545*^9, 3.4005071111227283`*^9}, {3.400507159971792*^9, 3.400507160201083*^9}, {3.400507192476817*^9, 3.400507212834291*^9}, { 3.400510307182046*^9, 3.40051030857742*^9}, {3.40051276206284*^9, 3.400512798916114*^9}, {3.400512854471053*^9, 3.4005128556050262`*^9}, { 3.400853864501616*^9, 3.4008538745888243`*^9}, {3.401021265780362*^9, 3.401021419215191*^9}, {3.401021528376395*^9, 3.4010215311067333`*^9}, { 3.401021571623185*^9, 3.401021586239286*^9}, {3.401021635759698*^9, 3.401021661053667*^9}, {3.4010217245526867`*^9, 3.401021753722186*^9}, { 3.401119030403583*^9, 3.401119087144907*^9}, {3.401119143320315*^9, 3.401119146498918*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`deriv$$ = True, $CellContext`f$$ = $CellContext`t^2, $CellContext`integral$$ = True, $CellContext`orderD$$ = 1, $CellContext`orderI$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`f$$], $CellContext`t^2, "f(t)"}, $CellContext`t^2}, {{ Hold[$CellContext`orderD$$], 1, "Order of Differentiation"}}, {{ Hold[$CellContext`orderI$$], 1, "Order of Integration"}}, {{ Hold[$CellContext`deriv$$], True, "Show Derivative"}, { True, False}}, {{ Hold[$CellContext`integral$$], True, "Show Integral"}, {True, False}}}, Typeset`size$$ = {678., {236., 245.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`deriv$285603$$ = False, $CellContext`integral$285604$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`deriv$$ = True, $CellContext`f$$ = $CellContext`t^2, $CellContext`integral$$ = True, $CellContext`orderD$$ = 1, $CellContext`orderI$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`deriv$$, $CellContext`deriv$285603$$, False], Hold[$CellContext`integral$$, $CellContext`integral$285604$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{ Show[ Plot[$CellContext`f$$, {$CellContext`t, -5, 5}, ImageSize -> 400, PlotStyle -> {Red, Thickness[0.005]}, PlotRange -> {{-5, 5}, {-25, 25}}], If[$CellContext`deriv$$ == True, Plot[ Evaluate[ $CellContext`RLExp[ Rationalize[$CellContext`orderD$$], $CellContext`f$$, \ $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotStyle -> Blue], {}], If[$CellContext`integral$$ == True, Plot[ Evaluate[ $CellContext`RLIntegral[- Rationalize[$CellContext`orderI$$], $CellContext`f$$, \ $CellContext`t, GenerateConditions -> False]], {$CellContext`t, -5, 5}, ImageSize -> 400, PlotStyle -> Green], {}]], Row[{ Style["f(t) = ", Red], Style[$CellContext`f$$, Red]}], Row[{ Style[ If[$CellContext`orderD$$ == 0, HoldForm[D^0], D^$CellContext`orderD$$], Blue], " ", Style["f(t) = ", Blue], Style[ If[$CellContext`orderD$$ == 0, $CellContext`f$$, N[ Evaluate[ $CellContext`RLExp[ Rationalize[$CellContext`orderD$$], $CellContext`f$$, \ $CellContext`t, GenerateConditions -> False]]]], Blue]}], Row[{ Style[ If[$CellContext`orderI$$ == 0, HoldForm[D^0], "I"^$CellContext`orderI$$], Green], " ", Style["f(t) = ", Green], Style[ If[$CellContext`orderI$$ == 0, $CellContext`f$$, N[ Evaluate[ $CellContext`RLIntegral[- Rationalize[$CellContext`orderI$$], $CellContext`f$$, \ $CellContext`t, GenerateConditions -> False]]]], Green]}]}, {Center}], "Specifications" :> {{{$CellContext`f$$, $CellContext`t^2, "f(t)"}, $CellContext`t^2, ControlType -> InputField}, {{$CellContext`orderD$$, 1, "Order of Differentiation"}, ControlType -> InputField}, {{$CellContext`orderI$$, 1, "Order of Integration"}, ControlType -> InputField}, {{$CellContext`deriv$$, True, "Show Derivative"}, { True, False}}, {{$CellContext`integral$$, True, "Show Integral"}, { True, False}}}, "Options" :> {FrameLabel -> {{"", ""}, {"", Style[ "Fractional Derivatives of Polynomials", 20, FontFamily -> Times, Bold]}}}, "DefaultOptions" :> {}], ImageSizeCache->{757., {351.5, 360.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4010986418535643`*^9, 3.4011072583532333`*^9, 3.401107484821213*^9, 3.40110761350071*^9, 3.401113826243586*^9, 3.401119014548976*^9, 3.401119092948573*^9, {3.401119147987424*^9, 3.401119167765037*^9}, 3.401143831866563*^9}] }, {2}]], Cell[BoxData[" "], "Input", CellChangeTimes->{{3.401021917225464*^9, 3.401021918168531*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Future Projects", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.3979193720200853`*^9, {3.400508894205439*^9, 3.40050890111852*^9}, { 3.400512122606576*^9, 3.400512124801777*^9}, {3.400512219430911*^9, 3.400512235304645*^9}, {3.400512288097344*^9, 3.400512290842162*^9}, { 3.401270527165814*^9, 3.401270531630402*^9}, {3.401270670926094*^9, 3.401270680044105*^9}, 3.4012714497799997`*^9}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Manipulate", FontColor->RGBColor[ 0.9584954604409858, 0.7702754253452354, 0.16601815823605706`]]], "Subsection", CellChangeTimes->{ 3.3824524252213373`*^9, 3.3979195443087*^9, {3.400510023840186*^9, 3.400510026750568*^9}, {3.4005119804076653`*^9, 3.400511981430093*^9}}], Cell["Applications of Fractional Calculus", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807063372045*^9, 3.400807069818404*^9}, {3.4008074039865913`*^9, 3.400807406307102*^9}}], Cell["Fractional Differential Equations", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807408637823*^9, 3.400807411560787*^9}}], Cell["Applications in Physics", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807408637823*^9, 3.400807411560787*^9}, {3.401271553196*^9, 3.401271555612*^9}}], Cell["Java in Mathematica", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806941476671*^9, 3.400806943468547*^9}}], Cell["Fourier Transforms", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806941476671*^9, 3.400806943468547*^9}, {3.4008072399842052`*^9, 3.400807244986117*^9}, {3.400807306267932*^9, 3.400807306710639*^9}}], Cell[CellGroupData[{ Cell["Bessel Functions", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806941476671*^9, 3.400806943468547*^9}, {3.4008072399842052`*^9, 3.400807244986117*^9}, {3.400807306267932*^9, 3.400807306710639*^9}, { 3.4008073992279863`*^9, 3.400807401381226*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Thanks", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.3979193720200853`*^9, {3.400508894205439*^9, 3.40050890111852*^9}, 3.401271491336*^9}], Cell["Abigail Brown", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807063372045*^9, 3.400807069818404*^9}, {3.4008074039865913`*^9, 3.400807406307102*^9}, { 3.4011252164856977`*^9, 3.401125228938245*^9}, {3.401125278135436*^9, 3.4011252790858097`*^9}, {3.4012323145587254`*^9, 3.401232315092005*^9}}], Cell["Sasha Pavlyk", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807063372045*^9, 3.400807069818404*^9}, {3.4008074039865913`*^9, 3.400807406307102*^9}, { 3.4011252164856977`*^9, 3.401125228938245*^9}, {3.401125278135436*^9, 3.401125291078826*^9}, {3.4011437805207567`*^9, 3.401143789480661*^9}}], Cell[CellGroupData[{ Cell["Wolfram Research", "Subsubsection", CellChangeTimes->{{3.40080335335135*^9, 3.4008034058098097`*^9}, { 3.400806999756518*^9, 3.400807000580666*^9}, {3.400807063372045*^9, 3.400807069818404*^9}, {3.4008074039865913`*^9, 3.400807406307102*^9}, { 3.4011252164856977`*^9, 3.401125228938245*^9}, {3.401125278135436*^9, 3.401125291078826*^9}, {3.4011437805207567`*^9, 3.401143808333963*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]" }], "PreviousNext", CellChangeTimes->{3.398441849219604*^9}] }, Open ]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{1020, 665}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, ShowSelection->True, Magnification->1.25, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData["Notebook"], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], Cell[ GraphicsData[ "CompressedBitmap", "eJztvQd8VVeSJ3y54b0HGJA7udNua2Z6OkwH2z0dHBE2GRTIUSCJICQRRMbY\n\ WGAwWSJHgSSQyEFkDLbB2W13N+1OMzs9227v7PR+u9+3pmdm95ud6ZmWz9a/\n\ 6pwbnp4iwjY2+v3q6KZ3863/v+rUqcoqmF80dWbB/OLJBen95xbMLiqePC+9\n\ X+lcWuR0sixXWZZ1b7qFaUzqRuHfN3m6h7KcuLLu/Jrq9CfZyv7mNOV8o1A5\n\ f1Go3K9PJZmivK9NVt5XJ6nYVwpU/M/zVfzLecr77nxl9y+3bGWN3m851O5T\n\ 1igWzI3aRwceWUNrR1bT1IhqWja8yoqr9MnbVOm6Jera5QLV8PNhquFnQ0hy\n\ SLJpXw1vZdEZN7yVqRp+OphkoGq4NoAWX+tv3aUaftKPpC9JH9Xw40dJHiHp\n\ pRp+lEHSk+Qh1fAm5AGS+1XDG/eR/EA1/PD7JN9Vf/zhX6o/vv4dkntJ7lF/\n\ fO1ukm+TfJMO/cdXv2F51P6F+uMrX1fXTjysKjaMVjmz5+ISB22nZiA32zxl\n\ DdhG19R/KzX9ttCyvltoqu9mmurDzSa62N6baKr3RlrxKJpHNtCyXhtoWa8K\n\ usJOGRXKDsRRds9yum1Oz3LlitCc+/B6W3loYg+td6hZZ6v4g+vo54kH16nE\n\ A2uN2KrzA2td1eX+tZ7qet+a7uqOH6zugakeWBbH2ji2S+CHCewjgb3FsN8E\n\ jhDHsRI4bALnEMfpxHFiCZxpHCedwOn3wIX0wCXFcXFoNsVxwZ1x6T1wE+K4\n\ HT1wY3rgFnXHzUrgtqHZ3h238i5lDd5Bs5k78aZk7cSUmZN2cLDMxhyWDaL5\n\ gSQDeG7ALlrRfxcm++2iQ7LQ60VztOf+u2lqQCUeVyXd/IF7YvR7NIP3dqW9\n\ VuGweCOzq2mTnBqaytlHzRBu9lMzFM2wWvrt8Dr62YgDNDvyIN7rQ3jhuTlM\n\ zRhujtCKsUdpatxRmhp3jN4ja/wxkuOB5B7HueaesOj0JpxQPR9byTKjolg9\n\ sTVPrds9Sl2qv19drr/fUf/y5idi6l9+9AlP/cuP74yrf/3JnTH1r9fudNS/\n\ /pSaP7x15x3qDz+7k/b3h5/fqf7tFyw0R21M/dsv73TVv/0qzVb//ldpMfXv\n\ f50WV//+n9Jo9b//TZr6469Z8Lr/Ou0u9ce/pe2uvPQwra2oz1NlR0pUae0C\n\ WpuxcSddzoJX6AbMf5nOeN5LdPJzX6TrmvMCrZhzlZrZV3Gds1/AbCClV/HI\n\ Sq9Y3ZQ16zllzbhM8oyySs4pq+iMsqadUlbhSWVNoXsyme7R5CPKmnRYWQWH\n\ 8R+/nYS7O+kwHbrgEB0g/yBN5eEBTKyjFRNraSr/AG5mfh2tgPBcwUGLt8Za\n\ kQKSSQexy4KDNhahqYNGNGtFzLq8OtpNHh76xP00O2EfGqiwXDTj8a6Mr8LP\n\ x1WR7DVCi8fuxeKxe+it2G2EFo/iZifOa+QOeotCMnw7znnYNm630lsH2YK9\n\ UIv3cQvJZgjPbaYV2VArWRutNGo30FtcITKonF5wyDqZzqR1QzbLEcfTCU6u\n\ VVYx3eRZdNPnnqaHeo5OauE57HYBPZN5ZyC4SXNP06I5p+lIc07R1OxTNFVa\n\ b+OXNDXzBE3NOE5TM47R2unHaKoEr3sx3v6iw8AUApO/YEihU+zxp8r6D48q\n\ 69slqtO3i1WnbxY1Cy3u9xcop+9aOm26t2Pw9bUKVawuAijry9S1Zyerhl+M\n\ JFAZQTI8GVyaxZYvamzp0wK2PNgebFHvPv8ddbI6S+UtnqnSx62B9nNvQ0rH\n\ Q0oPAIYHRKF7kr2T9HbWLprN3IXPajAhxCCSgSy46/g4B+x2fbTACzawEmgB\n\ wRehcSMO3OgC3HCBG9h5NTbOrgF4QKwkBLGBIFg4tBYwArEYS+IpsARrRh8G\n\ lhhJhSkOYAS6iJsTDlAEmuokFBe+0vxTdMAvzdyjej6xRmUtL6MLWLKjgJYd\n\ O9pHXT79gHrzmbvpUB2BKDEgig1AcYEj6RpHXnyYNF3FyYmq7HCxyqssUxkV\n\ 29Xdq/bhAue95AJAoFxegJq5Cg3DzRWH4eJOap8nXXNFhKdJZkIMjFwilUNQ\n\ UnyeYITUViFByZQTJD6MiK5nbDiIKUYKN4ohaGqh2bmBpsnlR5VLWmY8C34x\n\ voYe/TgombFVeBx7sckYKHgWpr170IBfjNpNG4/cBaKwE495B8ju9hj0O71/\n\ Q7fit6LgjXpvScmjwZedyU0FOPogo+vX08sKWSs6fzAtz9lEh95OZ00nl0/X\n\ MO0QdDUUuVHu88/iEPPO0kM4A1WPuRtQ8181lkPnTyvrCw8r61tTlXXPdGXd\n\ PV1U/rdSq3znvkXK7kdnPaoad7lVit7Cfa1W6VN2qNLyZerac1NVwy9Hk64f\n\ ZUPh0+r2qPy7Qiq/d8sq/42WVf61+kdVxcZclVHyBBD/tpK/eUo+DiWf0Po9\n\ m62AnF2YMnPZu/AF8WQmLcwkRjZ4N9sS0PqDfF0/CKJ1fdzX9Z2h671W6npW\n\ 8/tF1Q+txa7CdoMb1fVuCvVus8ngJpsMga63fV0PfloP7YYvtwBUbdIZWjv5\n\ LL1wPZ9cp3qWrVMT1i9US3ZNUuurx9DJPHv2ATrB//H6F6DzofJpyw5T/F83\n\ iv8hKP4TE1TZoSKVt5sUf/k2dffKatyMOS+4UXUv1oEXqHhfnsOtnPkc1s18\n\ lhQQ5DkzjX1Nf9aiF2E6QUEJQUHxBVJI56JQMOmoWBL5hwJTACYCmw7M729N\n\ AACBqcDrW259StN9QMA6gYH+a+X/IFqWTfR/OB1qLL3y+fTCFtKdmE4v1Ox6\n\ of/g+/M1DMw53Rb93wn6v5NKX7itk8rbOksjwZcNEsTp0dx1r7K+Pl5Z35ml\n\ rHtJ7pmhUaGkESrY352jOvVZw0iAb6G2FXBAtnPahEqVt3Klunp+pmr41XiS\n\ cYQGY9uKCIwGg6KI8Ol2IgLQ4Hs+IpzcN0zlPT5HpY9fx/6L+G0keH+QoAe0\n\ Ps1mQ8PnoMnejQ85m1R8lpE9tCBzj+credgIot+rRcdn11ipXEJNKnkPSt7z\n\ lTy/uocMn2eV0RZ1j8W5J9hBpAXKCt9lWO07UPsu1D6d/hSY81PP06HSZhxT\n\ PZeuVz2XwSu7pHIy7W3P4Rz17PkHWDpC438nqvFzSeNPU3m7lqiM9VtU+pNH\n\ rNapeIc1uiO0fjoLNqe2R7CsGDoedP8iKR6i/IWk66eSxppCmmwy3bMCrevz\n\ DkKrQ6ljjxP34yZO2A/9rv/faireAdFHsx5wN9Ao+TVaVtM8/R+0TvxAw0LK\n\ fupBqGwoe4Auk/zSenH9zDzBtz6lese9Lz6icsofUxVHhqtrr30Tj9nqpK5c\n\ +b5W83/Kap5O51PfUNaXs5VF6tv67mxl/eXsptU9revUeyXdJ9jRLWl49pLV\n\ kILfQwp+tao/OVc1/NUE9An8KpfWpVD2VlTbk6b/+dBWa/tYU9rehqonpEml\n\ 7N++/Kiq3j1O5cx7zNPa57Zyf3+VexzKHQ1zeCj3HAh/rTn4WrOh47P4W86q\n\ gnpnFe8aj38Nq3c04BQhj39tk0rd9p390A9HXF+VW+yZ0Zr8mBW4aNyWVbcH\n\ 1Y2fTIVaO886nDU5NYUXaPm0izB8i6D8nmFF+KWFtarnigqVvXaFrZ6smkI/\n\ Pn66r3ru4oPqR1fupY3br9Yf4O/dUe/+8gvqygsPQuhkyg4W0rKcTatUxtrN\n\ Kn3JoRT83MhlrJt+mS5t+iVMlhhfzTO4Kmrd4FrkemxMQN9jcSFuALHSKaTf\n\ J5O2mkR3tOAI3TvC0okHtB7fFyhw/M9lqB6/75bQ5OiFWgejc631SdHj/VaL\n\ 9F0lOn0g6fjsCk3ed2nyfhDqWRQ4FDlIfKDQocmtQJWjZ4k2zli1QuVtK1Vl\n\ tbmq6tRA/p+xcjl4ux3y4HzJKPSun1HWnw0kZT5TWd+fp6zvzW1auf9lKX3c\n\ K+hOwYE6Dt7MZrS6zW1M5ZRVqOqDi1XDXxeQ5JNWnwjNHlHsrNTbqNg/mazY\n\ oddJ+jXD48HhH9adxA+qa2cz1dL1ReqeKatwtuIvSO6PvK3jPxgdn4Bm70of\n\ XyX3iu2BejcC9Y1+txzujsshFT+kWv7n7POg1W0m7W6YtKdQ8eyccaMqntm6\n\ F/a9jxffO/PH44afW7av4r2oireh4r1mVHwhyDrpeFLxF1jN22hZHXqsKh3h\n\ vqxCRZlepm/77rJK1fPpTSp7/Ur1ZPVU9WTNVHXibD/13KUH1Y9fuNduparv\n\ rVX9b37y56zqT17qC1VfN5WWZazZqDJWb1Rpc+vZ3SLq3IYmt/0zu6gV+UXg\n\ ALVp5jpCckGuL6LVT9F9oVuXT+psotbqufRQxu+H/mYbjLtVqyE8d2uocxfs\n\ 3PqscHLo8f5ap/ch4tuXpN8qrduTHTPQ7UdYj6ctqCWIXanyds5RZQcmqKoz\n\ g9SVqz9QVacHqdI9hSr9sR12Sjf8F40Sd+lr+dz3SFkXKev+Rcq6b4GyfjC/\n\ aYXes4xOaIuXSonHfSV+z6ztqvrQE+r6W0Wq4T9NJuU9CZr5r/OtzkaJQ4dr\n\ MVp8TOu0+Ftai6c1o8X7NqnF6+vGqdKnZ6v0CeV2xNt7W3t/iLR3D2hvfIT4\n\ WIdCYQ/jQIlh9KEPNQJWPoy96sP2ib4etj/ZwZKkqN2mdLTtd422VzN7Yc0s\n\ UsQauugZV7PWYtaI3GjWC880e6dBxp4VktyZPR53P7WXNOpmlb1hlXpyfyHJ\n\ NHXifH/13HMPqR+/dC/tuDldncm6uovo6qsPqJPP9CVNPYUo3WSVU7GCqF4F\n\ wcIu4yZhc8HFybs+ykSNi3NWV1w5yZlAKxeQVs6DVj5MclBrZfDsGlHKNuJb\n\ 7FtGFztQxbjO/iGFTHL3pNkqY3qRylsyRpVtHKQqdvVWVy58W1174at0UNxo\n\ T/3mx3+qKg4PpZu7WDpQZzLQz2Dwh2MFZLz4CJs0RhF/m3Wwp+7+sqfK8rr5\n\ QvP4Fa9Lu8NWeQM6R9a5vM7h32XcE8M22C8vS/+sw8tIGi2j//5vsV+zHa/V\n\ x0KEZ3h7XmLrzbACG8hJYFmMT0LHhoZPyE46x+C8Pd5N+JpyHkrIcbyk42Bz\n\ /lFMLVu2DCvS0+UM09PpF7IsPz/f39jWP8EyWstC25qTMYt79eplPWYA8JNf\n\ UdbXRyjrQXpwD9DSBwCCC1MD4UOPS2/6GMRpjD+QhII2o+AdKn1apSrdtFq9\n\ /cZM1fA3hYSAU0mmGCTUpkxe0+ZMMhB+pikgBA6GOqlbRsJ64gh5ZYtU2qit\n\ ULjubQS8RRAQmhDNcLZbRhDXHVFjhDYYwa7QEQSBI0gHj6jDl0AtLRt5AAgI\n\ sdzkfobRh60kQMRrDc9u6wHRNR0J5+B0AmIUhoURkc0UHDjw41itxUQbmBgD\n\ JNroG3A5epT0yooqIr5bVMa6rTBCDkyjZVWnh6nnrzwEsWIpQlcdtKO0FXPt\n\ tbvVlSsPQLCD/ZPpCyytnKkyni5nufvJHTh1hkL2rOmLdLRhwoLbPOUMXFGT\n\ z+KOhIQgchIMl3q6XSfp5hEk5BFnn0C3PrcOxgvd7hpAI/YxZg9jYyXAEPKh\n\ wkbw+gFrVfq4x1XGzOkspWuGq7LNmaqiEiYgYWFnvqt3qCvnv6VKVw5R6aNI\n\ e/Z5Wtsw6+joG+kSttO1E/ZP2i9xRmyWTD9m+13EZlyBwNOVDZ9Uf7z6OTw2\n\ aj2eN0gD+Hj37F30imBdXJ1cfqe/DqJ/G4HB3xz6DC/DL8wywA+W0X8fGgFX\n\ ZjtH7x/LsN/Q9gYqERHNWxokpGPr80pEzjl0Tua3dopLg1RM744RBVc/p2FR\n\ DmAOGoJFjMZwgGcMjf/wD/9Ac1jmqpqaGn93GzdulMUxbOKjKC3GUvXCCy8s\n\ MGiYIKP8z/oRChLyPfyEIJ5BxvuTkBHT/YgqjUC4fC5i5MKQiBd6P1hFfrXK\n\ W1Ourl5apBp+XUyIOA2w9jeF6ClpDTJ+NhUySsDuL0a0GxmvvzpIVVdNUTkL\n\ lzp+r+9tPLz18JBj/Gwd1z2SLY+R8ELsh7ArmSNoR5HSHQ05CHH8TvYjwD4I\n\ 5gQFjzWJgtwn40ZRMOiTYYBwNV4IdEwLfF5sCcIPw42gnrjo/I5seM6eTYV6\n\ MaBeTA+hmPsifcdpj11QGeu3qYzy7WpWzTyOnyo7XCyxtPDRfUVgj7RyPreu\n\ eveXnye0u98Igd6+AtpTWU2Bytu0QGUsXyvy1FqVVnLIAYa5ADG+VAzKKIDJ\n\ p/Esn0y/iUc1nhHFGEe3e2w1rDxt3wHHdnP/LH9Lo3YDwiB4GO8PmNkAMzrc\n\ 3VPp6mbNYMlZNIUufAs6dysq+6krF4kFXGRTroe25N79+V2qqvYhlTO/QKVl\n\ L4VLDqfcdyXBm9X7aenGeHS5iIG4wevpPDfRJZO6mFglQyemHerEJp8GNdcH\n\ AAIuAJixqoBlUSyJqaqFaYwTGucM5tjagkqGEtpMoKo1uHat8lPa5Ovsm3zJ\n\ uGbmsa3ZpzkonZu2CBMR6y/5pGg7uRw3gm+lw7uaxeYqIbyYTTha5zRlCFL7\n\ 1ltvMWoByYYMGWKzNRdXaWlpPqCdOnXK4CHDni1GoCDgPffcw+CIPwOS/mqH\n\ V5tDloadpJ+l5ffmkeIrU1bGk8rquaRphMRrMgSe11xomkbQCF/RmP0qY/E2\n\ VX10mbr+i1mEjCVAxV8X01tGCCl2Y8u2IwASKDne+lQzCDm81Qh5/bVMVV1d\n\ SJ/JMtt0oHAv+W4jt3HylsdJDpeJwVEPC4Mb9l2gk2sMglzH8kCIcWQhjjvC\n\ 0QoMiDb3ZbnSj5V7UmQCRpE0ilhwo+joAB0d33zy7UPxnDJYsnHIXf3PaKck\n\ i+tDJZuGbCD6wQOYSw2Vno4e5mEjPAJx/ssORiWCpq+hL2/DDggMvyMlUETn\n\ R2AwI8u7v/pCIaCAtNbz98GqPJGpyqrzINieWlLZG+epjKWrSdD9i7aryigj\n\ HMg7IaYeoDH3ML56upsEjWMIGkdraBzJwYUj+WMBJI7YCWGz/sYREUozb6nK\n\ mF0KgZ6fPYvOemsOmmxSPFUHMjTqifzmjXTrc8YmvvoVMusGw+GJXfZbhc90\n\ FYMfvtCVDgAP5mBvDYGPPEUv+DL5Dyjsv9oizMsqt6xvaG0NgNDGFHS6l4RP\n\ sJUcvQxYp+FRY06sEabAhqP1dmuxDvuXY8YbYZyxBwGeyRiHfXlJsK1doo6G\n\ 6DCmmV2R3RbzQayLceESMhnQwn+a18frDtOLl8OCw44MMM2ePRvgZswzXgdk\n\ wt8777xjThdAp3EsAKtun1PWXwwlgCJQegQPZ2nToIXevMEb6P2scVOAlcdg\n\ FVfpxXtV6ZZy9faP56uGv51JMoNkegi0vtRW0EqKymsGtX6WGrWuvz5EVdcU\n\ qZzHnsKTug1VHweocgFVTJ7Qww+8GluH4KVxsEDIsBt/WCSXYCsXKvgYgROM\n\ uIlAKAEnjm0tOAOEYsPGbgNWXQiwyvXhiY24S8aQk/CHWFuQKaaRyVr4Kqbw\n\ H6/0wlcdGU0vGFVxKs/HqN/89KtzWGfH1LWXv6WuPPd9deVZyPdIvquuXP4u\n\ GYKX/5J016XvkIW3czhpyZ3DaGrHMJraMZTWXro3rq48cy9NPXMPDMY3eSwm\n\ 7/Rr2mC8dvWrqmJ3H5WzYJJKGwJC2H+1mwIWPCh/F6jQCbDQCXhgECBQ6zAl\n\ YinUrOsrzJA9Eda5Zgds/6TQ+4E94vkGQyNbx04CARwATkNjj4X70BobOl3D\n\ lkjk5GDC6G19wAnsmFQmTMTAMfaXIIVsE8YL0v0GCrUx40MFOrLoT7rBXF6F\n\ RXpvtqyTPeIn5o/2Pt0MvIFZ8/nvkMkyQ+C7N6zap1KjBhADI4eG7YLRz0FM\n\ B1NhhsOY0VnlLN+q6s8tUw2/maMa/vNskllNYMcXU2MH40ZBB2FHtrr+w2Gq\n\ et90lbN4uQOVc6tixkM3gBmdMUU76XLfGkzpOWrj2C6hOt8vOBJXcYAJ7TcN\n\ R7BwnPXKE5G5JmHFwbm7NEUX0KlnhXerAowY6o7Q93G1EDaKMBxwPA8NH4+I\n\ h0NaEP03kX2I3NMDD9lJfCT59Qw3p03PEOYmw1M45bzBF44kOaejLFJgDvsR\n\ L0QiSlqNPh7Qx4mij6PzsTSDPnegpd0veo0uNH1FPXCIpbR2AfComBaffHYA\n\ nI0sZDOd13j07s8/y8ER6B7KmFmio9vWeM2CRwzgEUBG6fCuvjJNhgyw9Qhk\n\ GNMgrJW1mSCBCCkgQ7qAor0qAiDNbuwBT5KhQPf1dA13z4TPlv/jhMI2SQAR\n\ 8XAPj7kW0fgCCiFHlol1EO2uFXsrscBYWQZZsGWxAYLun1fWN0fQQ1gq7kxE\n\ H/ZZkRoQsCxnq/RiThQgONQkGuD1Kdmrlu5Zr97+yWICg7k2EAFhgKkxQbqI\n\ fl0U6ibq3l5M8KMIkyChev9MlfP406wT3I7BAoaBAdwAC/oDC/ptZb/xFqgy\n\ kb4Ahj5NAUMfYAKjQ+8NtI9HN9AhOj1aoTo9soGEEYJa0q+PED48ysJz5bZy\n\ HlnvKacXAYKTAXXtZKzFFM95pJ/X0o/dnmtIZ/tCAPLwatblq1WchP7TRmgd\n\ rKFNWGhOWixze8oyTy/DLh0RPgwZJTQJw4KaThkEIZ16UWM9SiDV6ZF1tOxR\n\ Ai7r0fW4MAKOTr3LCR/60AXQFF1en4rP0RShRyfcgU6Pym1wgBn4GWYfwV2h\n\ SUzxXEKvZRxlbHnkQ48tCWALfx8xfCnwEwNW+MPJPYgPEt0qiKpDyEAeGTH5\n\ x6XLBeEECCuYfFpH4p0NRSJeMGhRiJhwCQyXsAvfnyZDagQ4vDBwmMALK8AO\n\ F9jhtgI7vDB2mGmrC6Y8YIgjtoxJCmZxVjCkd+E0L5DSffNU2eEi7sU6ebm/\n\ DBMlo+TaV3yjZL8JtHvjS9xjU7YlU+UsnIywBFyUid5zwtF7PNdq1DH6mXS1\n\ jzrGRECHvGjQrszZjUvLYEHIZAj7mKyOM1hMX4k5Ap1Zmw2WkMerCTSineU8\n\ lGilwcLQZaUZ9PEdVQZiktCJ/wPBwj0vZI5E4Mmsf+edd6xCvX/Loy/4i9+l\n\ b3yxBMSbgPmmoAp2ynDYKQc1OE081CRMMaejS8l5eruqv/C0anh7Acl8Qql5\n\ gCtGKxtohXCF5vGqQ+DK5YiG+qMlKm/5MpU2bqetA6CHAKuGAKty/NHp2bt1\n\ 6hJgVRa0UxZjFXuTs3YJXuG/zm6Fdzgbi3aYjbJl2Q6znEFuB3KjoPsqm3PN\n\ ZW3HFP7LHFZsw7G20lQmLJ7MLbRi8GbscNBmkk1GYBxt4sUb6bH5gm+VFXl/\n\ UuL9KiA8h37bvui37YMgpD7rAY1oACDWI/jEewHKOvVaA4wxQviXIXAUwJaL\n\ NoZFvFZP0cYxzPbQENVrDUwTQNQjazvjMN1wwASOD6goT8OZxXGapBAGbsCF\n\ DNwoFyPiYUEcFxnzL9fBTcCWmJUpAP2AzU54qj+m+nGDX/Tlu9RvE6aM4BbA\n\ oU/ohSmeAzuQFTxFJ91bqES3Dze+HYgxtDn6ozyA/+JEwOfJzWE4rycekZDy\n\ gmMikzToIdwcYecAOxhHMIiCEa4OAA3NZY4r1KgmyAaL6FnPD69vBaolki2i\n\ 5tAs5mcoc7Ar+G8eO68y1m/VQl9G2cFpsJcu9zMjZNW11+/dpO0lwbO7EZOg\n\ 8pblcnhdiqj0duOayyrbxBCQZWXcTMbI8u2kKEgBBZN7YYxoEGhHL4zXqBdG\n\ gr9DO2rcBZOInABALIyYtM74uQxaw0qjc/SSumI+7Ue+QYxTzKCW6Usx8eSm\n\ awbdMKbrBciGdaGuGf9iCbHM763Jpi+m+xeUdfcYelArJMcOQiGbQrC+T2Nk\n\ Ffpi+IPhZBQHNRU81CyG4cqmV6ulVRvU2z99UjW8s0g1/HZRKijTZldpS1DG\n\ SGYDyaw72+WOQ07NvBXLVVrubg5aptMegeS5I6tYdTjI3kPN6OoEOkfhzYdO\n\ 4YEi47BiLMc5I5poLNJ6Vul1Y/c6KUaS8Bx0EAIRR+12/D5W9K76QuuGo4N1\n\ GJBtKJoh22HzbQMAAsoYz7Jgo7WMZwNbg2f9OhjPumMRbD7ajjbhzbx245mc\n\ MS5gIAtIrwazBK4Vtu1mvhnIdbMlrsf9ZW8FCdjaBSTANTeNs9FmbQUdgFhM\n\ DLBs8DbaFYSXUYuD0DYDtPSnF34gyQDc8f649/24c7vfZuAZBEqAka0PzqPv\n\ ls4fXnjjb9PxOacLUIshFQEcgUegDwo0tE1CDuMTkpFmCkHb1DMy4moaQVvR\n\ BbHWfOMM5th0ANcMNJwDZ9bznh8NH/chzNFYNP/lO4BPNvvynLBlZvqVCMe8\n\ KI5xd1QMe4lpHOOkzLN9cYL8PI6fnydj7WZYHNTGON1D2YFCkqkYFcxjzq5c\n\ fdDGADRLMkQYY+4xnQzoIvKKlm3NVqVrR6mMWTMRquc0OTKrHRj4TY06BuxM\n\ 1w/AxWZ7KS5mCCGasY7wH+gk1pREqoWMIgEcsZVgjBlrKCUaCooK/pENGQEu\n\ xDkw3Fmd/X6v0O/4PA1up7L2gn27/r4j5+f5oYWNjD26bBzS7N5cMnbjA7+2\n\ +yREw+zJtwqtzzBCAhFh1xn0A4piu5Ad54flwYuJzi2sN9tjnbEXEfRAv3MY\n\ Vh3f6Um7tMTt2VlMwf/wfWVlzA9yWQ8uD4MrTr7/ambTqyTv6TDks0Zn8Xjx\n\ skAHGWQ1wk78g7zaZUj9Fr5v/ERkbJ3KeGK3qj65TjX8l8dJFhPMPqahduGN\n\ Qm2KiInmofbt1yarpXuWqvQ5hJBT6NynHiaFwoN7pjDLxrLJEGbZk2UZXfPk\n\ AxAsm8RZzyfR/KQ6kYJaUlOcoiyfkx4iKCwPym8ilN8EZDbjVOYysLNZOObB\n\ K6MAxyMBxyMYjgHDw32hdcMAx4LEtywcJ5rCX/Z7dscRgF3liSj+osMQHssB\n\ GxMpUBclDgC4WVsAYFvj2uDOYZgdQqb4UBZOU7E9gXvIK3Zgysw1WmaHl+Ww\n\ YFkO7wbz8AJksZ1PG2Vux2eSuU0g3MD4QAgIwABG9/4awQmzfeRmh/dWdn93\n\ Q3vLoDQGh+dzHrr8w5JDqIDH61L7CckPitxCEOSQMwheSAheSIZpISoUnJN8\n\ cyVkmE5/RqeeflbSUHMSuwA/Z3PBg6DoQfNInmSMxlsJ4q6P2wzZOjl26fMW\n\ B6XgsUezMbnGXr5EmL4aX1DGqg08VrysdjJQrRaj5E4+04fHlOvRcxhJp8cY\n\ OOraC19DQAkHlXDYIaDjqYmIQlR3Fy5gRtiqUdjtwPpvhQJONJb7/Xbh8WHw\n\ jAqoCYjrcHwN4gJwYYOTx2k1BfDhnkQTEej3JIZ69MQsDkZ7JQXO63XRqMIQ\n\ 0JvDhoHc0cuwq8hYOTvcpdho0JgMplbhP4Axmbi2JksGrw1mk7XrswZYwgaY\n\ w35cdCd63Cvp+BY1fpHLLd38Hl9U1nfG0/NegzBVjNtIDeCwjJG0MAuJyQlP\n\ xuzTXfA8lmdcrSC4JwjOXSSH5YPNNx8r3ZdJ9PFOPgrhEZrHiKxYhcdVWukR\n\ lbe9Ur39ixWq4e+WEIo/cYNoXiIhLD3aDObXrxWo6hOL1T1PcsdjEZ924REB\n\ 8qncrToV+mkK9NNk6KxJUGFccqSAB/aihkl+LcqOYOM83BguPjIRinACFGHu\n\ bcT+4BE7jrvUGfcrjjsHCNvJnog4bi87KXC7uXd5BHwlLHikw3moFOKthkJ2\n\ 6uRpQ9EM0c77sOveNqA9eDswVoP1NjONW4yz6b/NR+5tWMROAFjyH36A9vCV\n\ u7CiYwBiB3WAoFsYk40Yy1pj87TTUj0I+b6R99vgMpBvlsbl2QzCs2F0EGoC\n\ PnmUHS2bI17dAJMdwGwaAJdB2AYIu9o3rEGYt4v7RY94p74VzQcKqlc8nxqJ\n\ OX1WKIeWY5zcCPwpuujo4YXpC2pUxor1EFjh1MZVzrplGNgXSA0kX5280BvQ\n\ w0Marr3ybd8Uv98g90vfUFcufY/ku7AqqU2osh2jSEaqsu3DVWn5OJUxd47K\n\ mAOZrdJGAYuz+KPNqhBdTnN22xOutAPq79bQF85UYoYWmMwmyDjyUNIyIPOd\n\ ehn8v3qwl+/DhX9Y91r6+zODqzE3hdvPKetL9ynr4dn0ym+TcRkYh9EUqqGs\n\ EoZDwhybRm9oEb2hxfR2Tj9JT5re0JlkMZfSWzrnLL04xB7n01u64ALu5MKL\n\ 6HHgdGmLLmBWpT99SlVf3qqu/+en4J79uyetLq1FMgm8iTUPZN1aCWQTVf25\n\ hSpnPV12MWNs0VG6h9MYxaa2AsVwxwvqNIgxkDk+hmHdxH2StVPkNpa1D8vY\n\ +8sdiOtxVAjepUbQho8RYTY3Bm0J3NI4bi6UP5BiBA8AHrlbhv+OrgQ4cUaL\n\ Mci0G3pKlehfG1Fp0E9k2G5BviG7dI2OnbpAk0DdDtx5A3UsyFI6EAOnBnBH\n\ 9UADgdstXtH5lgG2zoAxfDbHAXHHYX5OJYUx9aSWeilbAWgrJmgrJmibfkGK\n\ 5c0kaJv1rBh6QByGsxc44MaaKxYl7s38VzDFxmSTYOb4YJZoJZhxtCk2mRkp\n\ vjHjspMyw2+JpIXkLDACbNAhF7xICjI/OHYKD82QANozEgE1+TTeARmhfgp6\n\ BcG2dz+2CSPygrF5NobmIbdU2UqV8aRIzsonVNneibBR905wVdmeCTFqcslc\n\ quRmPM3uHg/zafc4lbdmhsp4bCn2tmgpmjJkBFlYRvIkS3oh6YORtTr5Diuw\n\ 4ZzTdvg+yU03jNPzDMOLMgy1KKyh1Tox6S7tetkqFo/gB+MnmvKbCaKfTgGi\n\ TgrAdHSmr1Doj+8z52HssG0laFdvIkFITor9a0ParE1OLBaY4B673E2GMJjn\n\ GKHR9Ol5kdPTp2aZc2sU06QvJ5yFDOdvRijy3reY8KOuZJJ/I5MeFPJw0sMa\n\ tr154Eeem8kEanMJ0Ocj1lsKJ3KKwAXA8ZAs4oDuxQheWPwMtOBjz2BhILRR\n\ zq6D6uoPN6qG//oUyTKSMsF+J4T9i8EH3nkMecQaY7/VKvDvSqDfNPi//UaJ\n\ Kt29VqXNJsO7+BhHEh5l5AcdPWLDfMXNFeg3chv8PyjwR7YKRNv2Wc+Q3yUK\n\ +XyebvsgPxGF/EQU8vnGx/EIuuJhMNp7fqFTdOT79U8dXtxZZw0hGWX+Y5j0\n\ Hk0JKkEF2Hu9G9uG6YBQApAB2L6AdroE9mrrwTnMA7QJbFZAie5Iu2V4gAdb\n\ 1gPy4xM7AfslQgZIpkGIFBRpW7eYFE8JWRIzSH/MIrCdRaSglCB5zhWxbee9\n\ hDshbuUFr/p9w7bfXxxxNS94hYeDxHSXsvYyN88JbHY6u2GnM8TVgyFnPhcx\n\ eS/7HMExJm/I7mV64IAeeH6GUtyKc6xtzoXzsTViCJN4tOckTkjANKEeP8qv\n\ x/AcIzbG60A3Y/D+xLAc5wg1ZALK5SyxnB4Pz2ccV+XB4xqDRziGc+uNPkDv\n\ gC9QQpKAr064wUj2043kUUTCE3yWkMwVYkwTiL0PRV7bGhHkKR9ShThQGafA\n\ 7z96a7YI+mAY9+AKy9aZbwavv3mMIRzrZSC5cdY0LzycJSljm+uv079xUuza\n\ TvK6u+GDBOlwhA4g5it8bHj1w072wCkfHFt3gbv6h6HBPX5neygBj+Um+fT9\n\ 7fgcN/E86YvPfFVZD5UEKY+Q36E52jBuj2SHncNjkefw+wvqMI8Fy+afw+s5\n\ n77oBSFZeAFLH8P3sQhh/mll51TevgPq7b9CH3jD3y+3wRboCya+ALqgxScM\n\ TBdAGhYh6PjttjsLEo34wvWfFanq+jJ1Txm9qCWwXoqPtZ8nOH7R7VrwAyPM\n\ E9ymqIHlCMKMYcHdS5142GkPSXC4Dxae123C2UVuiDHY2q/MHuYPHU/gs/Pa\n\ xxPQ7ODe6TjuZWefJ6CRKD3mCT3wPOJ4UJ7mdWOrElwxnSZzq/GQTaJ/ahOS\n\ 7t+EBfJzrhLaMHIv+oxscAa2t+BAIBnC7CGb3elmABeYwmA81EE4Q2YLg241\n\ PgATmRvUYJzGzakYprg2zin67ggBSwgJpxNIziCNMZP4QCnxgdkEunMIkOcS\n\ Ys8jPjD/JdIoL2vMf1U6m21/8jWfIHRGy4zAa5kCcC/3Fc0AdMxYu/CfQ7r9\n\ PHqQmM7CUHjeaT8P8JJ5ANMAkAFUOpvIzfFU+O8A/8FlOZs8EuWN4VCaKP4z\n\ /ON9qHNbifoeUB9vFTcIgh1ShZhBLlBSFZK9KFWF8R56IAdCLjeLn9mUeh6E\n\ L3oQhgIGkVHr2A32fvGAIMtcMGhIsrFKRzd65GGWmwwPGnjt1pOBcB+9Twa6\n\ +YuB5uYA4cx7oZNJHnEFF0PCD4rDDrARdqLZBf7bOhQtzEWwf3Mssyku1vVP\n\ usI4E2KkYL/Wl57g2iBZYoQpbI8yhaH0dCfW6EqsyFMy57SwhFiYJYAjCEOY\n\ j+QlC9h/Bv8C3AmPsZ+NWk+lrzytNlzYq66/vUY1/G4lsYQVwhXgS2DXwlLQ\n\ Bd234CbThWbZghNmC9jD384ARfhbE+1W7NOFq1ceU3nbNqu0OaiL1ognQJHh\n\ K2sFT8CFFRww7gQJXcOdiTIGEAYTxZaSNHjMEtwwS9C2a9s5gg38A950gDeh\n\ eW5gA7ndm8kNuugj9OGmvGv7uAEPFbMczZbAnLZB2TWiCoFLgamC57sUUlEF\n\ KGBuqpgQJJgbuMIXJtQYAahyxU7Mwq8kYvPiO3VVuBrNMGqkiJBhFaN8RkGn\n\ VGmohPLrhcvYOu7x5EF0TCmYWkgRdxhhO+1bmlI4mlIUwbteDMVTfAq9EUwu\n\ jIBkGKJBimiGJhuznmmCbLxsAtJtkAs8nEWvaZrB4vjeBu6peFk6L+a9hDlN\n\ OhzdKT/nqpuCatg+1XAiVONyi1TDTcEubBALuxGrmJSSVbic98ORDCCcDJDL\n\ gITZBDgtV/FFgqrxvrBXwYuyCugfVnFIXsx+BDaHUrMJEN59AYfAwqHVxm1g\n\ MZuAj3MvKEU2KESV/k+SBTpRKZSC0xvAl0bgM3ijUIqBzCFsDq8Gf1gjo5gG\n\ Qt3cbCIRDB4LhmP7iUFaQRdkh2Z3VnLaD4QJ2DqDR3jMdHhEQKowelezkFDW\n\ wmAYXYJ3ZdiBcUOEzt6ccjhPfUAW1htXwh2fUtb9U+iJ7xDVNLaqedIwcqf0\n\ PMzgt670FH8Yp6VcexPuBSegDIkwZWDJ2HZcVV+pVA3/D9GF/7baBmeAV+Dv\n\ V4AziASsodWkYV5AGrokuRiiIfLXfzFTbTi6SqU/joD06SfcG2MLNohCM14F\n\ IQj4QJEO8f0kCGyabgFiGmkbUXA/rBwB79eADeY0reZ7HGI+W8DtSXYnxHyO\n\ wO6Erri/fMMTreQInfFM43i6McZ/R+hAHgtbfoDXPCBrfi1gLm+/YY7y39SR\n\ 5cIdmimMqkpiCZUBS+CR93gHsjD8PpPDFpgR4LxvYTLgaTJQggTxJaxRpgP9\n\ T+O/JcvuCNjATLCBi8IIZhMAz3mONBBB9bwXSPe8KK6Hheha4P6FBcwL/H4I\n\ wX/LbQr7naQRaToCIYT9M1rEfju1myHeMhE4HSUC4ADMBoQIgAdAZzWP/OxP\n\ iEWR32Hkd8PI35QrwebWDbsSIC6YgJOCCUAHQZ9xGdRs9o2yN4EpANZmQaNl\n\ 4f3LrAQmZO7WvBb9aFu0IjKkYG38fXEi2HqFsc0xajxMAMTPEMq+EiYAXSLR\n\ 9KHx5X7HhD6Wq4PcMQzO5FxJjfvRZC5ukushRYZh/1BYZ5bLWQuPCCdKJvKw\n\ xlCA//hduo9P0OtDTzx3v9TXa44KjN0jg7lmsi9rVn3TPCCFA2HeOQQrJLOB\n\ nD3H1NUf7yAWsI5kbVvYgA0iAC9AOC4REuECOilYPCUXuHr1CZW3g4cPz2Rq\n\ PQOxkywWew/cjyAfcG8pCoAsJNx7wP0I5d2iFCAexfw4roEdk5txfXyNXlso\n\ QMx3EzAFcHwK4KagAHhaANCwmwCYWJPAo43jIScA9NDcqOJXUMdvBo/4qhO/\n\ kglVYT9SrVSUx5c4DiNTapDDIMQCSIbtERaAJHKSmIeD+zN1rELWTlyu5OLJ\n\ 0q6E7F3sEPkokAHw9DMxgD+g9yzeU+YBJDMhgNGZ56GTZ10QWlAKuawdBYYa\n\ XJWwxbkv2gB+NAhFnPuS51MAKDGkb9EUINYqzPeTnj0TiM6KJiEGAebb3LXg\n\ BF0LU6XcG1MAZjlB5wKECYDtewJsdC847A5ww+6AKCXAY+GGuxaOYtPxR3TZ\n\ hSNRXmD7/QwHG/UzOAE5cMPkAAJ+sM+JUgLonWomAjGfCDDo482sxMvKumsw\n\ vZqDd2uB7hq00+qsx5NsRTIjrYPKZcgWD90SBkDb9l/VYTQgOrLNWPDhbnhG\n\ 4HiKIW+GAYQgvMliN7TOMIBwmuiWGECQ8cZNZgDJpxoMO4wGR5h1qfIKrOCW\n\ vpcYqbt7R9Cjpdued1DqoDdmBbaJgwMpGF9lwvBnMFjOPAlKAGm1fwCf3jmw\n\ +QXnIuEHefsPqbd/vUU1/PdykvXtIQfwCUTHLaR2FcxNjka4/qu5asPxtSp9\n\ ySFci9N2ZuCEmQHmWkkL9t+mBR8ILfB8WuCkoAVe1DNwh08LuPfAuwFaEMfz\n\ j5shl5wo4QCnTsAc3pbJB9GNwJkVtGADdEnl1QV0YbymCmNqAqowPOQwyAlH\n\ KJiuBRYmCXj2ko32o8INoJFgRs9gOnDOY07gCE0QusBK6wyC4LBshulcQBSD\n\ 4Q2XhDeUEtbPfl4CEGT0Hn47l/sLEO04h4WVm4yIx10OuguSyIMTJg/MXt4f\n\ 5sA9mad0gT1Wz81xiIk3wiGcMIfAkUbVtYFA2I18CtVW81QCCospMLwIg1hY\n\ fe1EdOnAHXqkjiYU0Fr9iVD0N4lcwCJWkdZYCcGyG6YTyHDjhOMHw5WAwl4F\n\ +XE4IV2IgHSJZBxP5hQpvArGO5GcBygVp0C+H1cHGpiAAgxQCDsyzLyUi288\n\ CEKfgmXrTEPmVLHXp4x7odtnlNWzREbLI+VF/qHmyIUAGtyiRTzafvrxjqIW\n\ aUvOqqWnatX1v9usGv7HBqIUFU1Qi1WNqcVTN0otHHX1xWUqb9dOc+Y3Siqm\n\ hEkFnqRBBTEoG5OL/bfJRdvIRQJHiOFYuNMY3NiXBe9TMzQjpq9m0Oag28H1\n\ yYXbSnJh+z6HVOQCJzRWZy4cWwXgGFsV9zsgApoRw+PmXoj95g2A+tGsI4EX\n\ xdMpHyYdMPR0ysEYv153hl82zTxI8kPMIzfEPEbXIPdi4KAYAtbB7t5sVBfP\n\ Zv3M6YQRWl6Jk/4ocgyedfSK6WfQAH5LTuG1QQRDyWndl3EuIBszzRAKPa4S\n\ nEGGOMAJIeEHnMvnCvc+eCnJxHRNJuwUoyBtE4AgTCLmD3PAdtFRkLoHol1M\n\ ghXOSU0kWGwOUHDMcAcz5CEU94jeCR3yGNAIVkIHTS1lsAjYm/CcaRKB70P6\n\ KQyL4P61MI1gBlEjLGKoMIgkj8SelDTCDdMICD5mlEwcCM02ELMDdsB5PWC7\n\ zjBJiqw/aat+pB76rZOK5UIhVmJnyLqKDKwi7eITQYSC64M8KEUkBa2TYkeM\n\ 1abEvHE1NF1ivmvEZxBO69tcgALiEk2AgkllpDMOJgcomH4PffJ+FvzQofwh\n\ lSHviLXUsIn0H9CDWi4DlKYc06zicBOsQodbAf40mzjWLKWoT0kpugeUgv+f\n\ U+nLTxGVqFPX/+tW1fD/gk5sTEEp1trgEyhE8rtVEgr5u6ebohRWc5zCBp1g\n\ YjFPXf+rhar63Fp1z9OA+FK4A2ehK7CjmITtZwCKMoj9N84g2Ie4W3LQjGBz\n\ 9OPIJXo0Sx48nL7TFvLgRslDN87q4+iMxHKnEeYIBtGIRiSa4g2eDmGcuD8R\n\ ZQuuHjUz6UBXvC2eeXvYzUXvU+Fh3PbCw7YZiHMYHy2/ZZo+FByM0oex+8Rp\n\ wdSBZPhesAGfPjBn8Nh/4ciotCEsMOw+sswBm6BWZMlpPDsOgawXKUK+Ie53\n\ LToJzwXmi07q9TpEskQna5h+kfZ1SRI2BLmIuM/2ChQvyMTM5wMRHuG1mUKw\n\ GyIgDngBUDhmshEufclNSuLgMHHwkolDENjotkwX2N/g+gwBigYjvkMMYV9K\n\ huCGGYLPD+JRfoDvDylFDD/wkvkBD/yNgR+4IAVQM9vBD/zclZv0QG3iBn3X\n\ wLNgiMDTbFmskNqINGeHeMEnBdijHgJx4fv9AWGHgzgTghBD/A9n34UxDxQH\n\ f9Bw3CreEPQjNNqALjJc4dLkUTDuhCayCppQy9BmtDs6vVD0RZBGONHoQnAY\n\ k7qBLsZOOv2grEDU7bKEl31KWXFSXd/OpreoEt+p5PAydGJSE3QCLlYY1tOO\n\ AEzpSzgGMoH/bScUNngEWQPpT9Wr6qv7VMP/t41YhGESm26YTfydYRNdm0ja\n\ JHn7335riSrdt12lLTqBc8QLZTwTch1CKdpJLKa8j8TCaw+TsP088x9NJoFL\n\ 4SbEJBx/HGUqJuFER0gwk0g0Sx1ieDxdWkkdoPoPuD51YB9DDNzAM4QBUFt0\n\ FH6HoiOYokVHg5SVSG5WoP0PE+qCAAnu8ajW5GGPIQ/MFpj6ZPvV9kSGsE9i\n\ CNOGjzR3wDeKUMGieqYL2D0GCRTyJzz1OOcrxZzNlKKLKEPO+KSTO5SYZIaX\n\ pHabOBlcLuLmyCLmB8IUJLzxGQlxFGmeKDjgB/hpKMaxeZbAXRRYG+RRsJgd\n\ YNmEY1KNO5drpDbiCU4qt4ImDRLdEE2i4NOH4R1MHxq5F+I+c4ghYyZt1W8b\n\ 6C2nuEZNR1I5fYk+9EWKNaIPfVZZEe6AumS9l2O/Pm0wcQohimC5SWiuHfuM\n\ l+1KmZCUSzi0kR2y6iN5g+nEgPpJWRMaMQOsj2ZbEAYUJH9qvJ25PEN9jOdB\n\ kjSJoyJcK5X2tZgXk7rpfpeyHi6kF/GIvPzIcGKYwZQmmEHeAXG5gxGIc6EY\n\ r1x7CIHVnbjAKeIC+1XD/9xBsr1tnOATreEESbkZopyg/vm1KmcriuTMPn3z\n\ eIBjygSwHcjdFdZtRvDBMwL2LXjNMgL2LXTHPYz7jIC1ZiVuN3t3PLTdg2pJ\n\ foIMz+cLgM2qrjfKF+LgC3H9phWxtgclLz7mJw3DG1lyDGOhS44LV8fKohCZ\n\ mEIyiV7N/INCJsZrTwRHWhoysdc2pXuRy2MoX9cwrGBhbPhIMwYXxMBjjuAJ\n\ W5h6TJQhZCpnZZ16jMwMa8pxzShOhlIin5VSBUiJDDogrgR2I1xiqnDJlIxF\n\ jT3Hz77k+AEOHcMXnLAPgbMs5EoEw1GJYhBpJVFww0QB4rZMExw/10ISM0AD\n\ VZWJuOLBGLETJgOeSaTdb5tf7gJz0E59t8K/0GeLLtpYIflXexM56L2K5GlQ\n\ AZtZgeED/kAAk9lQ0N6K1ls1QAlg1dkPMa0xv8WMi1YsMsAxtJHpKjCL9I7d\n\ EFEwGZXjqc8hrmMcwov1zkOdGLTEDU4nenELDNx/8dt0u8skWcmMC+IwC8M+\n\ Ep6lgn3AVuFhGCrsgDvSEubLAAnC/E+GMV9lbDqu6l8jrH93F8nOtmK+JaDv\n\ hEHfkgwLXVsE/eu/flJVX9yg0pcdF+7RTsjnD/io6FSR5qHfNqGPqfwAQXhC\n\ u1Hf8TsYKn23t9MSCbBcqVSDcjciARlgx/NWSX2SxUNDPqq0wMHpe1FaYPu0\n\ IJaCFthRWtDjRmmBi6d7R5QWQGHjBWhEC/j98UALuuCdiqegBQm8jzHzmgL+\n\ QQPkHeYX2ua3+U5JeeLTg2OSWNxQgwLt/sutRWkQKRMCajAS9KBaWMAwTv81\n\ dC8TA9tnBXqrkdXWR5QUxEAK2IvgMAVwNS04YgTfO5cjnHw4VCvlmDAF6FZk\n\ mJ56Shc2OitlCYOKuzjIRe5JuiDFeEWSWAGrlrOmtwFPovX8wG6m16GtjMH2\n\ Ax/xkINMTXWBjBQfA554arpgR3IrcJ4RPx1jlR+0wFpJJ2fK5jRzmkWwf8FL\n\ wSKggKDR+qH+Rj+w/L4Ide6zBUdA1efepKd6V0BXdKJmrWX9znS1f6M/XeYu\n\ iYBFjs9GcHk6BJfHA7iczPBYiDsy7XB7gBIAefWn+1TD9T0EkLvbCJQEkv99\n\ XQtA2TmU6TgKlG//YrkqratUaYv5RZl7NgklYxFYhFo5HoJF9xZFQjcKfl47\n\ 0c7RdV9vMbSzHJ3jVLDeM4kGk3HPciLV7mIpENDTUZIjK9lffod+ImNCTvNU\n\ aOfoJ90I7Vh1aU/TpAMS5tnZx714CtxL4D2M443kbw1Xg1d1xkkR/uT4BZ7N\n\ eXZKTxn/FK2rl5IhxfRaT4NFd1R0N/gvI2EdymMBwujaasJo6AL0cNkcdDUS\n\ SMlifSxQ76gRm+uBueJInOSLA0IBB3uBphUsMCgOS0g0a01oUGRbRkjP1DN4\n\ bqYSvSnbK9F6U8/7JvEZhjzb72Nn39opDXancCJcryCUhZCd5xLrH0lFHKCd\n\ 7Yf5O1GUY1VzWMxikRbRzlWNg/Qc03ISgRr2o9vRvISNwc8LB/6HrWcHuBfz\n\ cY874b0o7rHNHAPuscN8i8Ben808x21v0mm9AYWbLcLARzdb1gPaBkWdOtSa\n\ g9TU1DgpFtO0sWJRkVZXmqVLkkp1qFaLWu6+dR3n2rMeFwYK74fm/YA6rAvt\n\ 31jlqF4bORuakJ94XPXWrIOgWp6tq8ebevOWVM01i/VpsdBp2roorqmfi/2O\n\ NiZznBTWA/mCZEi1Nfu5NvCCI2YIXEucwGZwdUUTldarXhuPERGoJcy+vhfh\n\ +Kn5gA0ygAwAzdOBptlALFz3gNnA1dfXq7y9ANt5UAxhFuCksJXdVpIC25AC\n\ eBGEGLASuemkwPbL4LToGW+BCnjJVICZAPgAFya4uRQgrtc6tFb/wOp2MxgB\n\ m76JFBSg8weE+Qkf8xMtY75jnDV4HYVjc8g4h2fPPiXOKHZIcSwKmnln4S1H\n\ cg6EuKJOGOqFzSKZQduXnJSaYoYQwBk28SDAW0pYjwEh2Mf4z/CPY4MAjGZh\n\ u/9jCv14eAhRK0CUQz6uOu8ABgKg3wF3kesAw8WIer/0tCbXi/kKk9aYthyL\n\ P/mswXqOwdc5gJLA3fYj7tmEdUzXeO5x3TXO3SNNwLuXDO+M7sB4qTRgRyPr\n\ bK5DlMKSbRLbsSJlvkDHB3bcQD9TYGUU4B0ez4d2hx7Txw48jfeO33UO0Mdn\n\ 2xeZPvpsht6BvfLoJg3rrkbmMM45vMzjurMGEiGEsgTYsn0IRfUyjyv3AW3N\n\ H837II515o+2sTVQm7L0+AMC07wmC14EkSEE+P46/C68S+IF2l0f88vbh8vl\n\ 0uUZDhK6KmuUQfQen6V7t1iGn8x/QZJnpkL26eeTkL1ev/L8bkw92DyssxKy\n\ 2GhWvTYQmr9Vp977h2rV8PsqgDqQfQ9q26ay8tnC39I6K19G7CV0B7hJBiCg\n\ Xn15i8rYeAjJi522Avr05gGdXVRHBM8F070PAM7dGzPmnfcXvN2OBG8bFxDr\n\ OPAOCgoF4A0dWdUtCt7sI9Q5+3RJqWQYj7cPt5kDe3pURykyvUhO7jP82uK4\n\ nEoLebglBTfMwYUXuMierviFlYByA+MGwqfpPi2YnHmHpL71+DrgMgz0wFS3\n\ gdeM2rWC7+OYk3yckRvdv3mcKJcTLtTiP0en70f3N5ZNrBNOxLFBQHbaeT5u\n\ Nt30SSfFJteuaAFwAG5B4/IAjg/fNsM3dMPxMIS7KcDb1Rn9RqfI6BdAdsQS\n\ 1wn90AZo3TijX1WA1Q6w2vWx2o3Cs+2PlGMj3PGNcNcH5VRGuJuM0fdrQIYN\n\ rP98Y9pAMMrFGxjXhXOxTsO4w9XngaVk1frLzHb+/lxdUR4rUmN4LBnDpaM5\n\ PT0ZWMXYFpzWxrcvAb7H2d7X55C8S/88gfNYhtMwxwmXux/B7aeV9R+/Q7f9\n\ CWUteoW++pfp639J8l2mAvIZISBHLzfiODibyAEZmDP1IAN6K0x06/OqV8VR\n\ wvED6r1/3EdYXhPGczHRr1feCKBH8/t4PqRf/81KteHsTpW+gj+S+eddaDm3\n\ WRx3DJrD9RlgeSooZ6v8g3DYf9BgbjOYOwTCa31ctluGcw9reWXM3zh+o3DO\n\ 9H6TvibtbLh5wM6PpvuNAntMp31k7seB7IVHmoR4O9k0n3nSSgX2ruaozFa5\n\ wqeg/XxT1BPF2a1FF20U9aSpxy+B0y/WebUXPSNkALW+59AnPwvDzQl/ik7I\n\ pz8piQCM0yRgDGPaGM4RgPmxdQb/SQ58zMEfL0YdEwDG5FoZFBRUEN2HkCzE\n\ ESJgAF0luLsT4SnB3aaj5uPpczFATrnTbEXAaET7MSsV6Dt+WcCD4oIXcVsG\n\ fVjo0E5DazzfCHcjqXrZ9uZ+sRDEs7bZKQa4iBftZ24F1Bt/+6Ms7G8PgT4A\n\ Phn04UE3trgBfWMoA+AN8BrD10gAvEIIIuDvaSM9Cfibw33av9mdORRwu3MS\n\ vyBb3D+s5iV6Tk4TvAaOfPMH7iCYTlrxqxn0iOnOPv46fcivCbYjdzVyWDO2\n\ X4li+8xnBNuB61Pxek2Cm2Yy3tUpLVjm1hcJyMkg/9khAvJakv2tA/T/2RKg\n\ h4LVUgG6Q0C+Si09uUelPckJehacbzuan7iN5rcAmiduAL6hwBjDBb47497G\n\ ovDNNmkVngpX5kmy0OMpkDtmCjohklOy6QHqOgrIXbytXstAHmOD3ZHq25Hy\n\ WXEU6gaaK+sJ+ryfeFZZS0iepM/9SR65XfacjVlEVmHlYtpoEW08n3Y0l8C+\n\ 9KxY+8UnJR4bHctwMTPQA8Dr2I5Hw/cBy+DEn8Dc/2MI5cBabpCeOZedHlyw\n\ icXyP3l+u1CTASsY33HjDuKWkdBxJh4TM50h/KT8n3AigHIZmMbJ82xdi0dD\n\ uec73w81cr47UTy3fb+7rcvxpLLfGdddv9eccT3WEpC70bDzAMg5YAzaRrzp\n\ zcG39IubP4JfgUHXoHF0cQDKZEX7IA7gDYN4YFkHVnCzIM794vhVjBE5DOSw\n\ 1mlTR59V+FDsnw/sb+wwoA8u+9dDXQJmU0A52EkY3gHtoAfmD66KYWbk+d1Z\n\ kqJ6yZv0+b7RNpiH353zhNcijziQ3gHS2z7S40ZPo2+96LCMn50WQnziFulL\n\ 4H0/rN77p4MkB9oK+jYQH576ljA/mqRXvf3X67lkMAoI29B7AeI7nJzP0V2O\n\ Z3gknN0sAbB9GnDCkADO6pNMAbAJxuWJa56jEW8aGcCeTM15TQiapQWuH5Hn\n\ d75zv9mtxRI8bOx8HFkCoO8Qv0suXiunWZZgupA4Au+EvL/8SsdayRJiuvz2\n\ 4ksw8pGX5YlnbZACUIUlzwk1KIOQuigjtbGUZBnXx30KXY7LX0Ak77KrtILk\n\ SVr5xHNCGxaGKEPJKckig2gd7t/XlCGX+/i01Y/mkNAEksPgB2zA3mYJyDTm\n\ giX41gFnf65CyB8KOKGQE5dyqBVXyniwscMSR557xFT9lfq/bsAJnDAn4I54\n\ cfE70SR4ASGw/UBypylHvt3xvMDzPfhOlA2EYZmj2ARMAfvmj9CySXRvHxtw\n\ wocVf4GN/cT0LkECQj3/3G2QbNYHXoVo7Jx/tomwo4J/ht3iD3QgRCaMUwBn\n\ lsXtJ+nXpIN6FREivkSf7DX6Kn8cMILFLTGCZyXPE+KD8rkyUz57eIQRgBDw\n\ MIgmaIGMVWdaYP0Jj3xJf+KYqn7hqHrvf4EZHGqSHTT8viWXQDgsv2V6cO3n\n\ m0ELxAjCKcKpCZel5P4P+IHXMiGwzXCCZjvrCzvAJzCx42gACAASro/Y1bEu\n\ Ag8w69wM8Hd5rcvBd24gbWcCPZot3de5Q4gB7jF0WjPEIC0FE4hpqpeHSLV8\n\ qNb8uoTOkstVGyYdDBz/LpiA20om4Pjxra3Af+nfko9h4QWgbHNMwA2YgIjN\n\ 3gInIARLuXzdMk5Lv4y0yVOkVZaTPI2yN0+/jJUrX8Ys/uOjevolECVsAtqA\n\ vT92iU6HzJA5yFh7RpLSFaJr28QTwAjmOiDiS2DjGA5wpt95/N1hm3yMJ2CC\n\ /rGmCzHQBdfwUx4RiZGR7HIfDQ0xeg+6E7j8GlZWy/hDv1OG7uw4eKjGHcHb\n\ MY7OdeyRQMbwTU81it32YwQONKr65zZPJNyUI9Icv9vAD9njID5hFW6KvPyO\n\ zyvw9fOgmv7bQS7MePcwzXBBM5ymaUa4d9+AviyLNerY176GDnM1vPXWW7wl\n\ UXF4AsKuBjgRwHOw1lCGsBMBDMRQBs1IzGklExSMCzDxA8mxg8bREHhQosF+\n\ mdx+Qllpn6dntYy+YqIVy35GX/VPo9Tj8R82QT2uCvVAeD8Pvc3bz2Mm94sf\n\ IvBFWEnOCJtHyf+ZoRw8WDz98aOq+sVj6r3/Db5x5H3jHFd/tF1lbOWRUG3j\n\ Gm6Ya2jV3QzTcHzXg040YmL9Pyycw9Ymc0ucw+VhcE64XjD0SfMUxPYhfAOg\n\ 3cjN4yPMOTyZoo29DxsFsRxJd4xxmCN5HLwmIwmTRO/mkBF+5dyOIyM2PhIv\n\ RZeFm4KRYBP0WIAyLOHs9M3REUfTERbcoeUvYtmKl4SLEAuh3656BctWk1Za\n\ /aqy1ryKZatfQw8I5lfS8hUvC6VZ+gKORCdEJ7CQznHuBXG3wr0xzbg3AOn5\n\ RwwdyRM/BpZhRQGa25zENjUmAk3C/gfoktHwYI6C8hi5C6X6UASOUz3slcJT\n\ KAOBAaJjiFiMOWBcF5Kil3WfiVaQwkAj8TaHuYdEKITrDDtNjSCwm2Uhjj8u\n\ 3vWHD9h+0MKNcY/7dJxAKEjR5wxMCwSLDeQjdMHguxnbZ/4Qx+/osQHh5bp3\n\ RNhMs+EKTQw1cCPDAuiwZnG4eyJFUAM2ssMDJQyjgKvELAtHJA4y3Rtpn6Nb\n\ vlSYBRgGmMayt6Js44kw23g1yjZQcgv5IqRkepvZxp8w20ibc0QtPXVcvff/\n\ nyBJxTaIafxTXcts493WsA0dwUhsA+WLwTLiOixrQainw07R0+F0FNk40kFk\n\ Y2LzZMMGz2gx6KFJimHzAHoQjW1ATSPt5xsM3Bs1eDOM99/gANa99pENi/mE\n\ 8WrQt90RPKMbTiiBUwM9AhkasLHL+8UuYikqBRn1Pi4l44A7H/iQB32cX+v4\n\ jMPR9YHCjMMG40DMBEdKcMzEB8E4QDieY57BbON56QohimGjZZ7hgF4wu3BA\n\ Klx4OTxQB+xwFSmgVa8ackE/WvMaIrHWvoZZWezzjJeEr6AbJcwxZp2Tij5F\n\ OpH4ZFxzAT7RgqMc5X9M/CQsx7Heuk0umiEX3K0HwB6J4pQjONMGCs+jx5Sz\n\ muyR+pYjoZlG8eE48wC7NHA4k39AIh9lmKKmF24rGYUdHefg+fl73aaGIbaW\n\ Udg+o3BSMIrkjgWALFEEwygQXhAZGWjjF+FxD+AC4BtmGfhGi64M2p3DIw7i\n\ jaImQCIwLzxFNQqdoGlPHyq0WA9NjEeOgj8TzZmWluaTCTMsAr8YYFwWGN6A\n\ UEgQhiU/boZU/Cg1qYDbgl/niTX42oRTBGZ1KztP/pTH9aWVEqeoP65+/269\n\ 5hXHhVv8rxvlFjub5Rb1r1aCU0ATMq3AyaLflp0XF0LBkx96gjHxAyUYoBZc\n\ NQi1dFruSdlww2RCR1IaCsGOjNiHjUIkopwh6B5pE2fAA+ambZxB3iX/zWqT\n\ v4JDLN0OZg82iIMT5QwueyTcsEcC4oBAJMAJ4uyecA17AHmA2OAPYBHrSCGt\n\ +6H8X/u6bALCAY8FmMQSzSS4Z0V7K6brQdZTccVCFUAaIgSCQ0mmYIPbBCIV\n\ gUDP3y4EYDNSjyAYGb4dgrnhXJtn+A7hFByBVSlVK5H0eQRKUcH2HIFT0bn6\n\ amX4xDCd28BJnfzfaSV5iHccW0iKpTCDI5OxPzyW0IAtxinEUwBwyN+QIpYi\n\ RDIUd7KoRp0OdopEB/hDQKWn14UDRfEnURiyTkdURtb5rODPH6bXgO7WYvqo\n\ Hn+j7ewAgySn4XWeUH2j1CBd5e89rn7796fUe/8MaQ81qG6BGiTnO9yiqq9U\n\ q/QVp6Dj7CgvuPD+8AI7ms2owyiBY8ZRpaQEbltYgPs+Ab8XBn4Wh/0IHBWB\n\ zgqH2lW+S+EObqNuBk/oAf021jIp8FLUIu6G9g6fI/BVuOAIXd9XjuD4iRKa\n\ 5wj8YXk+R8D7wcl8O5wjuHi3vWY5gqvDkRch7/xjGEXZMcwgDmaQANDHQAw8\n\ wwhet0EEHDAC9F6AD8DLAOfD068E0RZPPE+ndJnOkjjBbERbnJOyflKQxOD+\n\ FFz1FA6GRp41JN6fxumAboM/gz+7DKAcdjDkw+yHIhi2DeA/jDB3GBGAYRr8\n\ UXOSCztUA9k9RnpPxlMYeBeIt1JhPJRMZczHeCeFgyDocoilwHj+pINxktA6\n\ m12gvRtF+yTvfzTNj+tnDogs9sKuej8hQTjZgI5wFPxtE/qHOwiA2kEKQy/C\n\ TPAnuRZkXdjHgT/4Agz6h4dG4g/77Gc6GL45UBKTLnpVQhUMC1jyI+lcSMkC\n\ fhJlAfiUJtCDza1iFoATnlgji9rS74DTKTykeq07qn77u9Pqvf9zhuT0jVAB\n\ GzwAKfxbYALVV2pU+vLTZkT4gvOmx0HGVtzcbocm0f9QCvS3XImhRyI7KfeT\n\ xAL2N2IBti4J0xILYC9fZbieMLMBfOtoPmRswNVsIEZsQDMC69OaDciGqznU\n\ IckxEMN+O0c5gKuP36e8h4/8HMjg6jMesPGOG0D+7k2VD04iAp5PBMzTaQb+\n\ HTxqr+PgP56i7E+sWTbg6NTdzbABptAOPiX2E7htYQO27ltYAQLAQZVhFhAH\n\ C+jOHQuOQD5D/+sW8wHkbVhPeqmcZL12F6wxtOBlOgTRgieJFjz+HJ0g0YJ5\n\ F+laiBbMQKVflNkBLTjFudhwmdoLIExAYsWLOS/wbTYQsIEYEwGaHLqVZAsE\n\ PxsKa3vIFrxLcCKiJAin+qZPYWilqRZZZboMYPwP4fyGhheAFnCWftcnCGz/\n\ x9vCDRw/Z3GT3MABN/CEG7zJ2HiXZOj9xgApYQErd+ErGidfbxtOll4ShTyO\n\ LmX8XuCkZczlCW02l3FiUw6qXmuPqqu/JHT8l3OEkmcFLf+5JbQMRQamNJxx\n\ YkgM3CUlXFZf2UcwWS/p0uad10F+qdHScnRGtXMcfd0xuFnSbty0dXxXm/DS\n\ geJ12oiXNtS9+/7gpQMMc1qFl07IetaYacU0XiIQ0FjP3dqHoXxOjo+hXXDG\n\ EkBgohdxldrhTlMDeWpjtxvA1W7aTTEipVnt+mjq4Nm5fsrgNqEpLoFzBoNy\n\ afIV4GoCkBp/vzDUAYZ6N4ChODWMSUC/+8pXLM9H0wTQ9JPASAZTNqxxrcbV\n\ vp6FFq9/A84RzGIxINf04y9/SWIFn7hCp/osnf0l8b5LPz4+fwbLaZyiD654\n\ IClwFoMeilkX3MZQxlAPEMrgtxXIyeiJuc3IiphDaiJnk/6/RTrkgKk5hHs5\n\ u3QxZjpeDh+Pg/hyqlqLmm60aK7tV7hxTdTeZs83oZGmYKNl/dDYkcDK+yaK\n\ LTj3BQk+ay1mPhXCzAUv4jFA6TLmC1wCLOl/KwDzjjBgsqQvPKyqXwRQXiQ5\n\ nwyYNtDS6t4yXv5jSrxsnEd/NxedRfFZ/TGfxQkLWkp8vPyHauCP+qaiZklH\n\ oqbNqOkov6bsxP2SsLN53HTDzk0ek8Nv5xj5GnjkTKUEvXL0lYSqGINpODqU\n\ +E0dji9lGAB1aAhQsSapqBzXYULM22BfHM59hxd8M8DGiG0C1PtvDALs+wFv\n\ +zJ69alQnUTQI92b4NfuXQ5wfLRc2Y9A1qNz+hF4kO1e6wkmIessm1sk1V9L\n\ cMrCMIsEv7GH1qj4g77YKvEg8DbxwGrVWcSKo3VV5/tXe5jqQg1QHL9IiNB7\n\ nnhwbVzFH6Im9hABcexhAmIPjdtzPRzfZNY6vbgpx8mVuzhjnHpFTHV6lOhE\n\ p94VLi6Npvoit0G/DXGd6mDARnSJS0WiCC5zAbtsZCLLAYkJg3MsRTWfeCux\n\ 2vGx2m0Zq228eojjrzVvYn6dYXOtQu14CkM4iLSL6e+juAVn+PsL3YHl2zmK\n\ 1V0Zq50wVuN6y3+IHAUGqI3tiy7ypS/qYDuyfRcQSM+9GLjEp58FFiMnuQA2\n\ 9oT5El/s2+CcEpy5ZUAGMLNNmcOJfQDW2RshWJa9CVo/i5ZlbRaVlU0Ank1f\n\ Sza+jmx0wmVxw5UdMyuB1xDWaE0jt+Pn7E9CboftXTds76aE8dd8GKcX6gcT\n\ hKLNfp7e7Ctth3OYwBh4z53CY/c0wvLcVmL5F30sT5txUC2tP6V+/4/PqPf+\n\ 9WJTWC6G7z+fvDEwdxjMr16rUfesOSHg2wjG5zcP40YHdCB4O2xOOOESsVYA\n\ 4zbDuCtdxgGUOzr92pSDtvayyyAnVpbsPq6Te5wvJpCtnfUC5sDxXA7nRKIX\n\ JHwZx44L3TcZgDndmFF4zCN4hAhs4eEkw3azAwifUM5OYAFIatb2QDIh9P4P\n\ 3oYNBwFRBnIDn9EANP3R9INzpi/GivQBJHFW694oEPUoh6g/QpDdiwV76VVB\n\ l9Ypo4KMVV8I9HqWMxqXEziywCZ+mGxoD03sIbJcYw+tswlh19HPEw+uIzhe\n\ a8Qm+KWm6/3UdLl/raPuuI9Qu+t9gORuP1it7hAhek5tD6zoge0A4tTQDhLY\n\ YwI7T+AwMRwQWE3gTCdBZ4JZ9+HyBM7Qxsl6yn64HAZ3RQIXg8vsVUGXyoLL\n\ fISgm64cU3wnNiK4DU1fDBrsx0l/+5OaGbAZgrkBm/nOQm8g9mUw7mwmeyJY\n\ n2WCPm1jQmXr8QNJFfq4c48xfRjSkQsnG6ZDiEfsQmIW7idoFcQ7fun6VBBv\n\ OVob1DLMs2Ee99E9HoXzIFw+sMQ9fB5OB4O4DRCP3QwQ7wYQj7Hn2g1Z3G9A\n\ AOZidb8RtbqNI7ss7MhG/zZi3uDMPusb1SU8CXSfATln3YbsxpCNOXQRZ0O/\n\ ZG3kkpWkVrIqtNB0JquYzI34CDI3y0fDSow+jUz6EjJ3MVYzcqMdvBuAbcbr\n\ N0JtfJD4lDRqe4GDuhFguz5g2wLYrzBgf0ZZ3e6iVXNkkMQsegVKn20jcP9E\n\ A/dbMiQdqn5M5Y0B95cYVPL3nFC//6fL6r0/QC5p4L7QQcDdOMPe1Z/uVxkb\n\ dQ32FLB9LgLbnu6WaiNs21zk05Min6Uo8nlSC/cP6ZJ1JjO+RnJwhBJdFrvk\n\ qAj7B8Ml7NwwcGvI1oFeiNLLJ7TOqxPhehnIir1ffzQ1kklzbI0kxkJqi9HV\n\ MnZ0ZJUM7OBgTHwvw9EMQy6JIUwr4TbK9gXvPr+t/D7TezqY/UKD4RcahPHs\n\ AxkQBhJUDJAIS9dEX4SCK209uFNQW6DbiUD3RsYv4NqGm4jaLoDYAyR3bzM4\n\ x3EsWNOCy3GcTgDJiCVDeFgv2MuPbOiMqTjQ2OPvE7xkI6Z4DnR7o+EvzL77\n\ sjOi32ZQHCNMehiqt4IIgRH5vGgQ+zkGbxPClMkgnbUdO87eLgZEjpYhrFeG\n\ 7MS6oTsFoX3hbGTaELehMOPwtyRMeePRQYl510du20duz8/CFmsKuRM+VMcj\n\ ZffEEPc6GLk9TaQ7ALltHt/mSrjYMl+SYNw2bnQEl2k3uusHrXdtCtW7cHya\n\ Ix3S5W8wotNcxRsw0ivepPk3Bd/X0vpVr8nunzKd1M+LR30ePOq6o5rxnZXU\n\ dG5Lzgq8y9xtQE8CdAeAjga6JpN7ojIJ0jPL6ZNiwbdVAVQfTB/s4E3aawjT\n\ ZDt0H3LtMHb72fwG7jQoHo/it+PrQMfHbQe47Qhuv2RKzXQj7H5kNj0iwtzp\n\ FyUfbZP4/XLz+I1xWXLHW4PcThi5OZPUfiB2fq3qteqI+unbhND/9hzJs6mR\n\ +/+0Brl1ZFYLyC2IzQUUwwW5Atg+1wi2/e+Zs84suiCjUURsjOSyNaQvZIhf\n\ ELLVpRInI/sZ6wuC7ajYiXJeXLL7lBTJNehdckLKdhfRtzGNpPCoVOtENACG\n\ 1E86JBWnUXOSK1SRoptQJ3UqkM96fK2U9h7HN3kMfwOo3hmU+YYeRjMc9tAw\n\ /h6G0gMbsheBEfxO40nmsG5Gz05OJXxE7PFGNrYsZGHIgs2ViQ8lE6MgwkCN\n\ Bm/lAMBzf8BzP7yafdH1/HFA5h64kB64pDguLobLtBxJtM31qTcxMm/qjDLV\n\ /LkmcGMc3Cc2oAHLWyGCytx/sA1grJUDHG2Z26E32KWxQ7vygMQ7gcEkzKWG\n\ 7uLQ113iFxmhZST7R0by8wTqhtUga0b+oBEPvgfAywVkgMHjkgPFk9A4nqLm\n\ jueDcyziJW8anD0/700AzsARZFNtFTgzXXY7BJxxppzkhnPuYq5DkTkGe9vh\n\ 3m1H4zNjMh5FxZuIK9/wpuA0hJ3q2gZfQQda9pLg9GJS2gtIgc8hRV4KGxwX\n\ Oh0aTYeJiTkuEWYl7GG/Dc+p4BkN3FuD2e/FAL2ePrr1jL3rkR9nEIH3QMgG\n\ CZwZuEUI88DtgsoDeNDqAHQV6iS72FO/bQBoCK5FQ7XTNFS/EIbqXrPo+aB7\n\ 5JxA9owmIHteM5CNcGnM53NOx9GVrcTrLydZ2vtU+tw6Vf/macFm4HSr8Pp0\n\ arz+38eayBwX4PVv39mvhuw8JjCpkZpB2uNe6kTQtb3gQijL5kUzgsrmwGq6\n\ k3N1Bc3ZqKJ5Rophz6R9ziDYLamXiprFJyQgvfC4rql3VF70gsOSRBtFtlAU\n\ csIBZNDmZNq6lKbA7VjuFxzDOg9Jk0btl8LZLOy34IraIzjAEEMTeYgiD8kd\n\ zqHrPGrBFyhuGD1D4bgciiDdIWwdAYsZk1lsQDJeZqCxGNBZO7URvVPM6dvg\n\ 3Bw4o9kUxwV3xqX3YBOZv1DtCtNOsS6aX2uYdhidXbGZB2inxMBtbDFDeTA4\n\ w42RpSXbB2aGZYe7KfAiVEowH5m+tjGAR+/RPRx7/Q5pvG0Iys5FeANDLU9p\n\ 5I0BeW18roExHInMLjiQ5Lx2/VS3N4yyTJ2dm4uyDLAvie/56ZdDEWStANhE\n\ 4M12YPsKmm54E3ea2m6CvKa72sSUMbJq7/ZcY/2eExAt5hDtolM2uhpjt0E0\n\ NYja2sAdxA2yIAxcC5U9kEB1QLlO9mS6isxXxLXnZCz1NoOcjKFbjY5qCjWv\n\ mOBpoGbPGQikp+dxWqPn+abREzVWU6EnhhjjPwqlj9qFu9Ym9Ozio2da8X61\n\ 9MQx9fvfEyL+4WIyetpYQHZh0+B5qk3g+dt36lR+1WGxIeH9ZY8v7EltUxax\n\ q7oQb+LUo6A1/pt4WIQR71CAevmS8RkuswlSNeKgJIUeLzDISYhRU5ILItT5\n\ palcBkVX0hyj/rQIL3YBlQ6Qkh2ABifZfhiFscMjkdRnJN7oEWhuA+IHCIhx\n\ 3A7kWUUYVn+ER/dDw+73Adv4BrKbart2XG3n7qod+NoN9kHg8R9CT2kod9Jj\n\ uKbNffegRnvQlS8JskdLClw7XPFlHCq+sAtJAgMwxG/CvsDE9Htuxbnk6ORn\n\ rcJCxy8TF2ChAyz0oljIbs/jpggMzq8RKjpARU/T1Lln3QgqXmgTKgIUr94U\n\ LLyDsTAWYKHgoZm3TccvJzoJQaLf4XtJUqWVnpORS8U6JWshF0Et5L4nHsN8\n\ kue824iYGhHh1cEgioFroX3WgDEOWEuyjr4swsf+FTo8dDNzTU+PM04Ngja+\n\ 307o/EF6MCt14zJEWlan/wuBMI8S"], "ConferenceGraphicCell", ImageSize -> {1279, 49}, ImageMargins -> 0]}, CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}], Cell[ GraphicsData[ "CompressedBitmap", "eJztvQd8VVeSJ3y54b0HGJA7udNua2Z6OkwH2z0dHBE2GRTIUSCJICQRRMbY\n\ WGAwWSJHgSSQyEFkDLbB2W13N+1OMzs9227v7PR+u9+3pmdm95ud6ZmWz9a/\n\ 6pwbnp4iwjY2+v3q6KZ3863/v+rUqcoqmF80dWbB/OLJBen95xbMLiqePC+9\n\ X+lcWuR0sixXWZZ1b7qFaUzqRuHfN3m6h7KcuLLu/Jrq9CfZyv7mNOV8o1A5\n\ f1Go3K9PJZmivK9NVt5XJ6nYVwpU/M/zVfzLecr77nxl9y+3bGWN3m851O5T\n\ 1igWzI3aRwceWUNrR1bT1IhqWja8yoqr9MnbVOm6Jera5QLV8PNhquFnQ0hy\n\ SLJpXw1vZdEZN7yVqRp+OphkoGq4NoAWX+tv3aUaftKPpC9JH9Xw40dJHiHp\n\ pRp+lEHSk+Qh1fAm5AGS+1XDG/eR/EA1/PD7JN9Vf/zhX6o/vv4dkntJ7lF/\n\ fO1ukm+TfJMO/cdXv2F51P6F+uMrX1fXTjysKjaMVjmz5+ISB22nZiA32zxl\n\ DdhG19R/KzX9ttCyvltoqu9mmurDzSa62N6baKr3RlrxKJpHNtCyXhtoWa8K\n\ usJOGRXKDsRRds9yum1Oz3LlitCc+/B6W3loYg+td6hZZ6v4g+vo54kH16nE\n\ A2uN2KrzA2td1eX+tZ7qet+a7uqOH6zugakeWBbH2ji2S+CHCewjgb3FsN8E\n\ jhDHsRI4bALnEMfpxHFiCZxpHCedwOn3wIX0wCXFcXFoNsVxwZ1x6T1wE+K4\n\ HT1wY3rgFnXHzUrgtqHZ3h238i5lDd5Bs5k78aZk7cSUmZN2cLDMxhyWDaL5\n\ gSQDeG7ALlrRfxcm++2iQ7LQ60VztOf+u2lqQCUeVyXd/IF7YvR7NIP3dqW9\n\ VuGweCOzq2mTnBqaytlHzRBu9lMzFM2wWvrt8Dr62YgDNDvyIN7rQ3jhuTlM\n\ zRhujtCKsUdpatxRmhp3jN4ja/wxkuOB5B7HueaesOj0JpxQPR9byTKjolg9\n\ sTVPrds9Sl2qv19drr/fUf/y5idi6l9+9AlP/cuP74yrf/3JnTH1r9fudNS/\n\ /pSaP7x15x3qDz+7k/b3h5/fqf7tFyw0R21M/dsv73TVv/0qzVb//ldpMfXv\n\ f50WV//+n9Jo9b//TZr6469Z8Lr/Ou0u9ce/pe2uvPQwra2oz1NlR0pUae0C\n\ WpuxcSddzoJX6AbMf5nOeN5LdPJzX6TrmvMCrZhzlZrZV3Gds1/AbCClV/HI\n\ Sq9Y3ZQ16zllzbhM8oyySs4pq+iMsqadUlbhSWVNoXsyme7R5CPKmnRYWQWH\n\ 8R+/nYS7O+kwHbrgEB0g/yBN5eEBTKyjFRNraSr/AG5mfh2tgPBcwUGLt8Za\n\ kQKSSQexy4KDNhahqYNGNGtFzLq8OtpNHh76xP00O2EfGqiwXDTj8a6Mr8LP\n\ x1WR7DVCi8fuxeKxe+it2G2EFo/iZifOa+QOeotCMnw7znnYNm630lsH2YK9\n\ UIv3cQvJZgjPbaYV2VArWRutNGo30FtcITKonF5wyDqZzqR1QzbLEcfTCU6u\n\ VVYx3eRZdNPnnqaHeo5OauE57HYBPZN5ZyC4SXNP06I5p+lIc07R1OxTNFVa\n\ b+OXNDXzBE3NOE5TM47R2unHaKoEr3sx3v6iw8AUApO/YEihU+zxp8r6D48q\n\ 69slqtO3i1WnbxY1Cy3u9xcop+9aOm26t2Pw9bUKVawuAijry9S1Zyerhl+M\n\ JFAZQTI8GVyaxZYvamzp0wK2PNgebFHvPv8ddbI6S+UtnqnSx62B9nNvQ0rH\n\ Q0oPAIYHRKF7kr2T9HbWLprN3IXPajAhxCCSgSy46/g4B+x2fbTACzawEmgB\n\ wRehcSMO3OgC3HCBG9h5NTbOrgF4QKwkBLGBIFg4tBYwArEYS+IpsARrRh8G\n\ lhhJhSkOYAS6iJsTDlAEmuokFBe+0vxTdMAvzdyjej6xRmUtL6MLWLKjgJYd\n\ O9pHXT79gHrzmbvpUB2BKDEgig1AcYEj6RpHXnyYNF3FyYmq7HCxyqssUxkV\n\ 29Xdq/bhAue95AJAoFxegJq5Cg3DzRWH4eJOap8nXXNFhKdJZkIMjFwilUNQ\n\ UnyeYITUViFByZQTJD6MiK5nbDiIKUYKN4ohaGqh2bmBpsnlR5VLWmY8C34x\n\ voYe/TgombFVeBx7sckYKHgWpr170IBfjNpNG4/cBaKwE495B8ju9hj0O71/\n\ Q7fit6LgjXpvScmjwZedyU0FOPogo+vX08sKWSs6fzAtz9lEh95OZ00nl0/X\n\ MO0QdDUUuVHu88/iEPPO0kM4A1WPuRtQ8181lkPnTyvrCw8r61tTlXXPdGXd\n\ PV1U/rdSq3znvkXK7kdnPaoad7lVit7Cfa1W6VN2qNLyZerac1NVwy9Hk64f\n\ ZUPh0+r2qPy7Qiq/d8sq/42WVf61+kdVxcZclVHyBBD/tpK/eUo+DiWf0Po9\n\ m62AnF2YMnPZu/AF8WQmLcwkRjZ4N9sS0PqDfF0/CKJ1fdzX9Z2h671W6npW\n\ 8/tF1Q+txa7CdoMb1fVuCvVus8ngJpsMga63fV0PfloP7YYvtwBUbdIZWjv5\n\ LL1wPZ9cp3qWrVMT1i9US3ZNUuurx9DJPHv2ATrB//H6F6DzofJpyw5T/F83\n\ iv8hKP4TE1TZoSKVt5sUf/k2dffKatyMOS+4UXUv1oEXqHhfnsOtnPkc1s18\n\ lhQQ5DkzjX1Nf9aiF2E6QUEJQUHxBVJI56JQMOmoWBL5hwJTACYCmw7M729N\n\ AACBqcDrW259StN9QMA6gYH+a+X/IFqWTfR/OB1qLL3y+fTCFtKdmE4v1Ox6\n\ of/g+/M1DMw53Rb93wn6v5NKX7itk8rbOksjwZcNEsTp0dx1r7K+Pl5Z35ml\n\ rHtJ7pmhUaGkESrY352jOvVZw0iAb6G2FXBAtnPahEqVt3Klunp+pmr41XiS\n\ cYQGY9uKCIwGg6KI8Ol2IgLQ4Hs+IpzcN0zlPT5HpY9fx/6L+G0keH+QoAe0\n\ Ps1mQ8PnoMnejQ85m1R8lpE9tCBzj+credgIot+rRcdn11ipXEJNKnkPSt7z\n\ lTy/uocMn2eV0RZ1j8W5J9hBpAXKCt9lWO07UPsu1D6d/hSY81PP06HSZhxT\n\ PZeuVz2XwSu7pHIy7W3P4Rz17PkHWDpC438nqvFzSeNPU3m7lqiM9VtU+pNH\n\ rNapeIc1uiO0fjoLNqe2R7CsGDoedP8iKR6i/IWk66eSxppCmmwy3bMCrevz\n\ DkKrQ6ljjxP34yZO2A/9rv/faireAdFHsx5wN9Ao+TVaVtM8/R+0TvxAw0LK\n\ fupBqGwoe4Auk/zSenH9zDzBtz6lese9Lz6icsofUxVHhqtrr30Tj9nqpK5c\n\ +b5W83/Kap5O51PfUNaXs5VF6tv67mxl/eXsptU9revUeyXdJ9jRLWl49pLV\n\ kILfQwp+tao/OVc1/NUE9An8KpfWpVD2VlTbk6b/+dBWa/tYU9rehqonpEml\n\ 7N++/Kiq3j1O5cx7zNPa57Zyf3+VexzKHQ1zeCj3HAh/rTn4WrOh47P4W86q\n\ gnpnFe8aj38Nq3c04BQhj39tk0rd9p390A9HXF+VW+yZ0Zr8mBW4aNyWVbcH\n\ 1Y2fTIVaO886nDU5NYUXaPm0izB8i6D8nmFF+KWFtarnigqVvXaFrZ6smkI/\n\ Pn66r3ru4oPqR1fupY3br9Yf4O/dUe/+8gvqygsPQuhkyg4W0rKcTatUxtrN\n\ Kn3JoRT83MhlrJt+mS5t+iVMlhhfzTO4Kmrd4FrkemxMQN9jcSFuALHSKaTf\n\ J5O2mkR3tOAI3TvC0okHtB7fFyhw/M9lqB6/75bQ5OiFWgejc631SdHj/VaL\n\ 9F0lOn0g6fjsCk3ed2nyfhDqWRQ4FDlIfKDQocmtQJWjZ4k2zli1QuVtK1Vl\n\ tbmq6tRA/p+xcjl4ux3y4HzJKPSun1HWnw0kZT5TWd+fp6zvzW1auf9lKX3c\n\ K+hOwYE6Dt7MZrS6zW1M5ZRVqOqDi1XDXxeQ5JNWnwjNHlHsrNTbqNg/mazY\n\ oddJ+jXD48HhH9adxA+qa2cz1dL1ReqeKatwtuIvSO6PvK3jPxgdn4Bm70of\n\ XyX3iu2BejcC9Y1+txzujsshFT+kWv7n7POg1W0m7W6YtKdQ8eyccaMqntm6\n\ F/a9jxffO/PH44afW7av4r2oireh4r1mVHwhyDrpeFLxF1jN22hZHXqsKh3h\n\ vqxCRZlepm/77rJK1fPpTSp7/Ur1ZPVU9WTNVHXibD/13KUH1Y9fuNduparv\n\ rVX9b37y56zqT17qC1VfN5WWZazZqDJWb1Rpc+vZ3SLq3IYmt/0zu6gV+UXg\n\ ALVp5jpCckGuL6LVT9F9oVuXT+psotbqufRQxu+H/mYbjLtVqyE8d2uocxfs\n\ 3PqscHLo8f5ap/ch4tuXpN8qrduTHTPQ7UdYj6ctqCWIXanyds5RZQcmqKoz\n\ g9SVqz9QVacHqdI9hSr9sR12Sjf8F40Sd+lr+dz3SFkXKev+Rcq6b4GyfjC/\n\ aYXes4xOaIuXSonHfSV+z6ztqvrQE+r6W0Wq4T9NJuU9CZr5r/OtzkaJQ4dr\n\ MVp8TOu0+Ftai6c1o8X7NqnF6+vGqdKnZ6v0CeV2xNt7W3t/iLR3D2hvfIT4\n\ WIdCYQ/jQIlh9KEPNQJWPoy96sP2ib4etj/ZwZKkqN2mdLTtd422VzN7Yc0s\n\ UsQauugZV7PWYtaI3GjWC880e6dBxp4VktyZPR53P7WXNOpmlb1hlXpyfyHJ\n\ NHXifH/13HMPqR+/dC/tuDldncm6uovo6qsPqJPP9CVNPYUo3WSVU7GCqF4F\n\ wcIu4yZhc8HFybs+ykSNi3NWV1w5yZlAKxeQVs6DVj5MclBrZfDsGlHKNuJb\n\ 7FtGFztQxbjO/iGFTHL3pNkqY3qRylsyRpVtHKQqdvVWVy58W1174at0UNxo\n\ T/3mx3+qKg4PpZu7WDpQZzLQz2Dwh2MFZLz4CJs0RhF/m3Wwp+7+sqfK8rr5\n\ QvP4Fa9Lu8NWeQM6R9a5vM7h32XcE8M22C8vS/+sw8tIGi2j//5vsV+zHa/V\n\ x0KEZ3h7XmLrzbACG8hJYFmMT0LHhoZPyE46x+C8Pd5N+JpyHkrIcbyk42Bz\n\ /lFMLVu2DCvS0+UM09PpF7IsPz/f39jWP8EyWstC25qTMYt79eplPWYA8JNf\n\ UdbXRyjrQXpwD9DSBwCCC1MD4UOPS2/6GMRpjD+QhII2o+AdKn1apSrdtFq9\n\ /cZM1fA3hYSAU0mmGCTUpkxe0+ZMMhB+pikgBA6GOqlbRsJ64gh5ZYtU2qit\n\ ULjubQS8RRAQmhDNcLZbRhDXHVFjhDYYwa7QEQSBI0gHj6jDl0AtLRt5AAgI\n\ sdzkfobRh60kQMRrDc9u6wHRNR0J5+B0AmIUhoURkc0UHDjw41itxUQbmBgD\n\ JNroG3A5epT0yooqIr5bVMa6rTBCDkyjZVWnh6nnrzwEsWIpQlcdtKO0FXPt\n\ tbvVlSsPQLCD/ZPpCyytnKkyni5nufvJHTh1hkL2rOmLdLRhwoLbPOUMXFGT\n\ z+KOhIQgchIMl3q6XSfp5hEk5BFnn0C3PrcOxgvd7hpAI/YxZg9jYyXAEPKh\n\ wkbw+gFrVfq4x1XGzOkspWuGq7LNmaqiEiYgYWFnvqt3qCvnv6VKVw5R6aNI\n\ e/Z5Wtsw6+joG+kSttO1E/ZP2i9xRmyWTD9m+13EZlyBwNOVDZ9Uf7z6OTw2\n\ aj2eN0gD+Hj37F30imBdXJ1cfqe/DqJ/G4HB3xz6DC/DL8wywA+W0X8fGgFX\n\ ZjtH7x/LsN/Q9gYqERHNWxokpGPr80pEzjl0Tua3dopLg1RM744RBVc/p2FR\n\ DmAOGoJFjMZwgGcMjf/wD/9Ac1jmqpqaGn93GzdulMUxbOKjKC3GUvXCCy8s\n\ MGiYIKP8z/oRChLyPfyEIJ5BxvuTkBHT/YgqjUC4fC5i5MKQiBd6P1hFfrXK\n\ W1Ourl5apBp+XUyIOA2w9jeF6ClpDTJ+NhUySsDuL0a0GxmvvzpIVVdNUTkL\n\ lzp+r+9tPLz18JBj/Gwd1z2SLY+R8ELsh7ArmSNoR5HSHQ05CHH8TvYjwD4I\n\ 5gQFjzWJgtwn40ZRMOiTYYBwNV4IdEwLfF5sCcIPw42gnrjo/I5seM6eTYV6\n\ MaBeTA+hmPsifcdpj11QGeu3qYzy7WpWzTyOnyo7XCyxtPDRfUVgj7RyPreu\n\ eveXnye0u98Igd6+AtpTWU2Bytu0QGUsXyvy1FqVVnLIAYa5ADG+VAzKKIDJ\n\ p/Esn0y/iUc1nhHFGEe3e2w1rDxt3wHHdnP/LH9Lo3YDwiB4GO8PmNkAMzrc\n\ 3VPp6mbNYMlZNIUufAs6dysq+6krF4kFXGRTroe25N79+V2qqvYhlTO/QKVl\n\ L4VLDqfcdyXBm9X7aenGeHS5iIG4wevpPDfRJZO6mFglQyemHerEJp8GNdcH\n\ AAIuAJixqoBlUSyJqaqFaYwTGucM5tjagkqGEtpMoKo1uHat8lPa5Ovsm3zJ\n\ uGbmsa3ZpzkonZu2CBMR6y/5pGg7uRw3gm+lw7uaxeYqIbyYTTha5zRlCFL7\n\ 1ltvMWoByYYMGWKzNRdXaWlpPqCdOnXK4CHDni1GoCDgPffcw+CIPwOS/mqH\n\ V5tDloadpJ+l5ffmkeIrU1bGk8rquaRphMRrMgSe11xomkbQCF/RmP0qY/E2\n\ VX10mbr+i1mEjCVAxV8X01tGCCl2Y8u2IwASKDne+lQzCDm81Qh5/bVMVV1d\n\ SJ/JMtt0oHAv+W4jt3HylsdJDpeJwVEPC4Mb9l2gk2sMglzH8kCIcWQhjjvC\n\ 0QoMiDb3ZbnSj5V7UmQCRpE0ilhwo+joAB0d33zy7UPxnDJYsnHIXf3PaKck\n\ i+tDJZuGbCD6wQOYSw2Vno4e5mEjPAJx/ssORiWCpq+hL2/DDggMvyMlUETn\n\ R2AwI8u7v/pCIaCAtNbz98GqPJGpyqrzINieWlLZG+epjKWrSdD9i7aryigj\n\ HMg7IaYeoDH3ML56upsEjWMIGkdraBzJwYUj+WMBJI7YCWGz/sYREUozb6nK\n\ mF0KgZ6fPYvOemsOmmxSPFUHMjTqifzmjXTrc8YmvvoVMusGw+GJXfZbhc90\n\ FYMfvtCVDgAP5mBvDYGPPEUv+DL5Dyjsv9oizMsqt6xvaG0NgNDGFHS6l4RP\n\ sJUcvQxYp+FRY06sEabAhqP1dmuxDvuXY8YbYZyxBwGeyRiHfXlJsK1doo6G\n\ 6DCmmV2R3RbzQayLceESMhnQwn+a18frDtOLl8OCw44MMM2ePRvgZswzXgdk\n\ wt8777xjThdAp3EsAKtun1PWXwwlgCJQegQPZ2nToIXevMEb6P2scVOAlcdg\n\ FVfpxXtV6ZZy9faP56uGv51JMoNkegi0vtRW0EqKymsGtX6WGrWuvz5EVdcU\n\ qZzHnsKTug1VHweocgFVTJ7Qww+8GluH4KVxsEDIsBt/WCSXYCsXKvgYgROM\n\ uIlAKAEnjm0tOAOEYsPGbgNWXQiwyvXhiY24S8aQk/CHWFuQKaaRyVr4Kqbw\n\ H6/0wlcdGU0vGFVxKs/HqN/89KtzWGfH1LWXv6WuPPd9deVZyPdIvquuXP4u\n\ GYKX/5J016XvkIW3czhpyZ3DaGrHMJraMZTWXro3rq48cy9NPXMPDMY3eSwm\n\ 7/Rr2mC8dvWrqmJ3H5WzYJJKGwJC2H+1mwIWPCh/F6jQCbDQCXhgECBQ6zAl\n\ YinUrOsrzJA9Eda5Zgds/6TQ+4E94vkGQyNbx04CARwATkNjj4X70BobOl3D\n\ lkjk5GDC6G19wAnsmFQmTMTAMfaXIIVsE8YL0v0GCrUx40MFOrLoT7rBXF6F\n\ RXpvtqyTPeIn5o/2Pt0MvIFZ8/nvkMkyQ+C7N6zap1KjBhADI4eG7YLRz0FM\n\ B1NhhsOY0VnlLN+q6s8tUw2/maMa/vNskllNYMcXU2MH40ZBB2FHtrr+w2Gq\n\ et90lbN4uQOVc6tixkM3gBmdMUU76XLfGkzpOWrj2C6hOt8vOBJXcYAJ7TcN\n\ R7BwnPXKE5G5JmHFwbm7NEUX0KlnhXerAowY6o7Q93G1EDaKMBxwPA8NH4+I\n\ h0NaEP03kX2I3NMDD9lJfCT59Qw3p03PEOYmw1M45bzBF44kOaejLFJgDvsR\n\ L0QiSlqNPh7Qx4mij6PzsTSDPnegpd0veo0uNH1FPXCIpbR2AfComBaffHYA\n\ nI0sZDOd13j07s8/y8ER6B7KmFmio9vWeM2CRwzgEUBG6fCuvjJNhgyw9Qhk\n\ GNMgrJW1mSCBCCkgQ7qAor0qAiDNbuwBT5KhQPf1dA13z4TPlv/jhMI2SQAR\n\ 8XAPj7kW0fgCCiFHlol1EO2uFXsrscBYWQZZsGWxAYLun1fWN0fQQ1gq7kxE\n\ H/ZZkRoQsCxnq/RiThQgONQkGuD1Kdmrlu5Zr97+yWICg7k2EAFhgKkxQbqI\n\ fl0U6ibq3l5M8KMIkyChev9MlfP406wT3I7BAoaBAdwAC/oDC/ptZb/xFqgy\n\ kb4Ahj5NAUMfYAKjQ+8NtI9HN9AhOj1aoTo9soGEEYJa0q+PED48ysJz5bZy\n\ HlnvKacXAYKTAXXtZKzFFM95pJ/X0o/dnmtIZ/tCAPLwatblq1WchP7TRmgd\n\ rKFNWGhOWixze8oyTy/DLh0RPgwZJTQJw4KaThkEIZ16UWM9SiDV6ZF1tOxR\n\ Ai7r0fW4MAKOTr3LCR/60AXQFF1en4rP0RShRyfcgU6Pym1wgBn4GWYfwV2h\n\ SUzxXEKvZRxlbHnkQ48tCWALfx8xfCnwEwNW+MPJPYgPEt0qiKpDyEAeGTH5\n\ x6XLBeEECCuYfFpH4p0NRSJeMGhRiJhwCQyXsAvfnyZDagQ4vDBwmMALK8AO\n\ F9jhtgI7vDB2mGmrC6Y8YIgjtoxJCmZxVjCkd+E0L5DSffNU2eEi7sU6ebm/\n\ DBMlo+TaV3yjZL8JtHvjS9xjU7YlU+UsnIywBFyUid5zwtF7PNdq1DH6mXS1\n\ jzrGRECHvGjQrszZjUvLYEHIZAj7mKyOM1hMX4k5Ap1Zmw2WkMerCTSineU8\n\ lGilwcLQZaUZ9PEdVQZiktCJ/wPBwj0vZI5E4Mmsf+edd6xCvX/Loy/4i9+l\n\ b3yxBMSbgPmmoAp2ynDYKQc1OE081CRMMaejS8l5eruqv/C0anh7Acl8Qql5\n\ gCtGKxtohXCF5vGqQ+DK5YiG+qMlKm/5MpU2bqetA6CHAKuGAKty/NHp2bt1\n\ 6hJgVRa0UxZjFXuTs3YJXuG/zm6Fdzgbi3aYjbJl2Q6znEFuB3KjoPsqm3PN\n\ ZW3HFP7LHFZsw7G20lQmLJ7MLbRi8GbscNBmkk1GYBxt4sUb6bH5gm+VFXl/\n\ UuL9KiA8h37bvui37YMgpD7rAY1oACDWI/jEewHKOvVaA4wxQviXIXAUwJaL\n\ NoZFvFZP0cYxzPbQENVrDUwTQNQjazvjMN1wwASOD6goT8OZxXGapBAGbsCF\n\ DNwoFyPiYUEcFxnzL9fBTcCWmJUpAP2AzU54qj+m+nGDX/Tlu9RvE6aM4BbA\n\ oU/ohSmeAzuQFTxFJ91bqES3Dze+HYgxtDn6ozyA/+JEwOfJzWE4rycekZDy\n\ gmMikzToIdwcYecAOxhHMIiCEa4OAA3NZY4r1KgmyAaL6FnPD69vBaolki2i\n\ 5tAs5mcoc7Ar+G8eO68y1m/VQl9G2cFpsJcu9zMjZNW11+/dpO0lwbO7EZOg\n\ 8pblcnhdiqj0duOayyrbxBCQZWXcTMbI8u2kKEgBBZN7YYxoEGhHL4zXqBdG\n\ gr9DO2rcBZOInABALIyYtM74uQxaw0qjc/SSumI+7Ue+QYxTzKCW6Usx8eSm\n\ awbdMKbrBciGdaGuGf9iCbHM763Jpi+m+xeUdfcYelArJMcOQiGbQrC+T2Nk\n\ Ffpi+IPhZBQHNRU81CyG4cqmV6ulVRvU2z99UjW8s0g1/HZRKijTZldpS1DG\n\ SGYDyaw72+WOQ07NvBXLVVrubg5aptMegeS5I6tYdTjI3kPN6OoEOkfhzYdO\n\ 4YEi47BiLMc5I5poLNJ6Vul1Y/c6KUaS8Bx0EAIRR+12/D5W9K76QuuGo4N1\n\ GJBtKJoh22HzbQMAAsoYz7Jgo7WMZwNbg2f9OhjPumMRbD7ajjbhzbx245mc\n\ MS5gIAtIrwazBK4Vtu1mvhnIdbMlrsf9ZW8FCdjaBSTANTeNs9FmbQUdgFhM\n\ DLBs8DbaFYSXUYuD0DYDtPSnF34gyQDc8f649/24c7vfZuAZBEqAka0PzqPv\n\ ls4fXnjjb9PxOacLUIshFQEcgUegDwo0tE1CDuMTkpFmCkHb1DMy4moaQVvR\n\ BbHWfOMM5th0ANcMNJwDZ9bznh8NH/chzNFYNP/lO4BPNvvynLBlZvqVCMe8\n\ KI5xd1QMe4lpHOOkzLN9cYL8PI6fnydj7WZYHNTGON1D2YFCkqkYFcxjzq5c\n\ fdDGADRLMkQYY+4xnQzoIvKKlm3NVqVrR6mMWTMRquc0OTKrHRj4TY06BuxM\n\ 1w/AxWZ7KS5mCCGasY7wH+gk1pREqoWMIgEcsZVgjBlrKCUaCooK/pENGQEu\n\ xDkw3Fmd/X6v0O/4PA1up7L2gn27/r4j5+f5oYWNjD26bBzS7N5cMnbjA7+2\n\ +yREw+zJtwqtzzBCAhFh1xn0A4piu5Ad54flwYuJzi2sN9tjnbEXEfRAv3MY\n\ Vh3f6Um7tMTt2VlMwf/wfWVlzA9yWQ8uD4MrTr7/ambTqyTv6TDks0Zn8Xjx\n\ skAHGWQ1wk78g7zaZUj9Fr5v/ERkbJ3KeGK3qj65TjX8l8dJFhPMPqahduGN\n\ Qm2KiInmofbt1yarpXuWqvQ5hJBT6NynHiaFwoN7pjDLxrLJEGbZk2UZXfPk\n\ AxAsm8RZzyfR/KQ6kYJaUlOcoiyfkx4iKCwPym8ilN8EZDbjVOYysLNZOObB\n\ K6MAxyMBxyMYjgHDw32hdcMAx4LEtywcJ5rCX/Z7dscRgF3liSj+osMQHssB\n\ GxMpUBclDgC4WVsAYFvj2uDOYZgdQqb4UBZOU7E9gXvIK3Zgysw1WmaHl+Ww\n\ YFkO7wbz8AJksZ1PG2Vux2eSuU0g3MD4QAgIwABG9/4awQmzfeRmh/dWdn93\n\ Q3vLoDQGh+dzHrr8w5JDqIDH61L7CckPitxCEOSQMwheSAheSIZpISoUnJN8\n\ cyVkmE5/RqeeflbSUHMSuwA/Z3PBg6DoQfNInmSMxlsJ4q6P2wzZOjl26fMW\n\ B6XgsUezMbnGXr5EmL4aX1DGqg08VrysdjJQrRaj5E4+04fHlOvRcxhJp8cY\n\ OOraC19DQAkHlXDYIaDjqYmIQlR3Fy5gRtiqUdjtwPpvhQJONJb7/Xbh8WHw\n\ jAqoCYjrcHwN4gJwYYOTx2k1BfDhnkQTEej3JIZ69MQsDkZ7JQXO63XRqMIQ\n\ 0JvDhoHc0cuwq8hYOTvcpdho0JgMplbhP4Axmbi2JksGrw1mk7XrswZYwgaY\n\ w35cdCd63Cvp+BY1fpHLLd38Hl9U1nfG0/NegzBVjNtIDeCwjJG0MAuJyQlP\n\ xuzTXfA8lmdcrSC4JwjOXSSH5YPNNx8r3ZdJ9PFOPgrhEZrHiKxYhcdVWukR\n\ lbe9Ur39ixWq4e+WEIo/cYNoXiIhLD3aDObXrxWo6hOL1T1PcsdjEZ924REB\n\ 8qncrToV+mkK9NNk6KxJUGFccqSAB/aihkl+LcqOYOM83BguPjIRinACFGHu\n\ bcT+4BE7jrvUGfcrjjsHCNvJnog4bi87KXC7uXd5BHwlLHikw3moFOKthkJ2\n\ 6uRpQ9EM0c77sOveNqA9eDswVoP1NjONW4yz6b/NR+5tWMROAFjyH36A9vCV\n\ u7CiYwBiB3WAoFsYk40Yy1pj87TTUj0I+b6R99vgMpBvlsbl2QzCs2F0EGoC\n\ PnmUHS2bI17dAJMdwGwaAJdB2AYIu9o3rEGYt4v7RY94p74VzQcKqlc8nxqJ\n\ OX1WKIeWY5zcCPwpuujo4YXpC2pUxor1EFjh1MZVzrplGNgXSA0kX5280BvQ\n\ w0Marr3ybd8Uv98g90vfUFcufY/ku7AqqU2osh2jSEaqsu3DVWn5OJUxd47K\n\ mAOZrdJGAYuz+KPNqhBdTnN22xOutAPq79bQF85UYoYWmMwmyDjyUNIyIPOd\n\ ehn8v3qwl+/DhX9Y91r6+zODqzE3hdvPKetL9ynr4dn0ym+TcRkYh9EUqqGs\n\ EoZDwhybRm9oEb2hxfR2Tj9JT5re0JlkMZfSWzrnLL04xB7n01u64ALu5MKL\n\ 6HHgdGmLLmBWpT99SlVf3qqu/+en4J79uyetLq1FMgm8iTUPZN1aCWQTVf25\n\ hSpnPV12MWNs0VG6h9MYxaa2AsVwxwvqNIgxkDk+hmHdxH2StVPkNpa1D8vY\n\ +8sdiOtxVAjepUbQho8RYTY3Bm0J3NI4bi6UP5BiBA8AHrlbhv+OrgQ4cUaL\n\ Mci0G3pKlehfG1Fp0E9k2G5BviG7dI2OnbpAk0DdDtx5A3UsyFI6EAOnBnBH\n\ 9UADgdstXtH5lgG2zoAxfDbHAXHHYX5OJYUx9aSWeilbAWgrJmgrJmibfkGK\n\ 5c0kaJv1rBh6QByGsxc44MaaKxYl7s38VzDFxmSTYOb4YJZoJZhxtCk2mRkp\n\ vjHjspMyw2+JpIXkLDACbNAhF7xICjI/OHYKD82QANozEgE1+TTeARmhfgp6\n\ BcG2dz+2CSPygrF5NobmIbdU2UqV8aRIzsonVNneibBR905wVdmeCTFqcslc\n\ quRmPM3uHg/zafc4lbdmhsp4bCn2tmgpmjJkBFlYRvIkS3oh6YORtTr5Diuw\n\ 4ZzTdvg+yU03jNPzDMOLMgy1KKyh1Tox6S7tetkqFo/gB+MnmvKbCaKfTgGi\n\ TgrAdHSmr1Doj+8z52HssG0laFdvIkFITor9a0ParE1OLBaY4B673E2GMJjn\n\ GKHR9Ol5kdPTp2aZc2sU06QvJ5yFDOdvRijy3reY8KOuZJJ/I5MeFPJw0sMa\n\ tr154Eeem8kEanMJ0Ocj1lsKJ3KKwAXA8ZAs4oDuxQheWPwMtOBjz2BhILRR\n\ zq6D6uoPN6qG//oUyTKSMsF+J4T9i8EH3nkMecQaY7/VKvDvSqDfNPi//UaJ\n\ Kt29VqXNJsO7+BhHEh5l5AcdPWLDfMXNFeg3chv8PyjwR7YKRNv2Wc+Q3yUK\n\ +XyebvsgPxGF/EQU8vnGx/EIuuJhMNp7fqFTdOT79U8dXtxZZw0hGWX+Y5j0\n\ Hk0JKkEF2Hu9G9uG6YBQApAB2L6AdroE9mrrwTnMA7QJbFZAie5Iu2V4gAdb\n\ 1gPy4xM7AfslQgZIpkGIFBRpW7eYFE8JWRIzSH/MIrCdRaSglCB5zhWxbee9\n\ hDshbuUFr/p9w7bfXxxxNS94hYeDxHSXsvYyN88JbHY6u2GnM8TVgyFnPhcx\n\ eS/7HMExJm/I7mV64IAeeH6GUtyKc6xtzoXzsTViCJN4tOckTkjANKEeP8qv\n\ x/AcIzbG60A3Y/D+xLAc5wg1ZALK5SyxnB4Pz2ccV+XB4xqDRziGc+uNPkDv\n\ gC9QQpKAr064wUj2043kUUTCE3yWkMwVYkwTiL0PRV7bGhHkKR9ShThQGafA\n\ 7z96a7YI+mAY9+AKy9aZbwavv3mMIRzrZSC5cdY0LzycJSljm+uv079xUuza\n\ TvK6u+GDBOlwhA4g5it8bHj1w072wCkfHFt3gbv6h6HBPX5neygBj+Um+fT9\n\ 7fgcN/E86YvPfFVZD5UEKY+Q36E52jBuj2SHncNjkefw+wvqMI8Fy+afw+s5\n\ n77oBSFZeAFLH8P3sQhh/mll51TevgPq7b9CH3jD3y+3wRboCya+ALqgxScM\n\ TBdAGhYh6PjttjsLEo34wvWfFanq+jJ1Txm9qCWwXoqPtZ8nOH7R7VrwAyPM\n\ E9ymqIHlCMKMYcHdS5142GkPSXC4Dxae123C2UVuiDHY2q/MHuYPHU/gs/Pa\n\ xxPQ7ODe6TjuZWefJ6CRKD3mCT3wPOJ4UJ7mdWOrElwxnSZzq/GQTaJ/ahOS\n\ 7t+EBfJzrhLaMHIv+oxscAa2t+BAIBnC7CGb3elmABeYwmA81EE4Q2YLg241\n\ PgATmRvUYJzGzakYprg2zin67ggBSwgJpxNIziCNMZP4QCnxgdkEunMIkOcS\n\ Ys8jPjD/JdIoL2vMf1U6m21/8jWfIHRGy4zAa5kCcC/3Fc0AdMxYu/CfQ7r9\n\ PHqQmM7CUHjeaT8P8JJ5ANMAkAFUOpvIzfFU+O8A/8FlOZs8EuWN4VCaKP4z\n\ /ON9qHNbifoeUB9vFTcIgh1ShZhBLlBSFZK9KFWF8R56IAdCLjeLn9mUeh6E\n\ L3oQhgIGkVHr2A32fvGAIMtcMGhIsrFKRzd65GGWmwwPGnjt1pOBcB+9Twa6\n\ +YuB5uYA4cx7oZNJHnEFF0PCD4rDDrARdqLZBf7bOhQtzEWwf3Mssyku1vVP\n\ usI4E2KkYL/Wl57g2iBZYoQpbI8yhaH0dCfW6EqsyFMy57SwhFiYJYAjCEOY\n\ j+QlC9h/Bv8C3AmPsZ+NWk+lrzytNlzYq66/vUY1/G4lsYQVwhXgS2DXwlLQ\n\ Bd234CbThWbZghNmC9jD384ARfhbE+1W7NOFq1ceU3nbNqu0OaiL1ognQJHh\n\ K2sFT8CFFRww7gQJXcOdiTIGEAYTxZaSNHjMEtwwS9C2a9s5gg38A950gDeh\n\ eW5gA7ndm8kNuugj9OGmvGv7uAEPFbMczZbAnLZB2TWiCoFLgamC57sUUlEF\n\ KGBuqpgQJJgbuMIXJtQYAahyxU7Mwq8kYvPiO3VVuBrNMGqkiJBhFaN8RkGn\n\ VGmohPLrhcvYOu7x5EF0TCmYWkgRdxhhO+1bmlI4mlIUwbteDMVTfAq9EUwu\n\ jIBkGKJBimiGJhuznmmCbLxsAtJtkAs8nEWvaZrB4vjeBu6peFk6L+a9hDlN\n\ OhzdKT/nqpuCatg+1XAiVONyi1TDTcEubBALuxGrmJSSVbic98ORDCCcDJDL\n\ gITZBDgtV/FFgqrxvrBXwYuyCugfVnFIXsx+BDaHUrMJEN59AYfAwqHVxm1g\n\ MZuAj3MvKEU2KESV/k+SBTpRKZSC0xvAl0bgM3ijUIqBzCFsDq8Gf1gjo5gG\n\ Qt3cbCIRDB4LhmP7iUFaQRdkh2Z3VnLaD4QJ2DqDR3jMdHhEQKowelezkFDW\n\ wmAYXYJ3ZdiBcUOEzt6ccjhPfUAW1htXwh2fUtb9U+iJ7xDVNLaqedIwcqf0\n\ PMzgt670FH8Yp6VcexPuBSegDIkwZWDJ2HZcVV+pVA3/D9GF/7baBmeAV+Dv\n\ V4AziASsodWkYV5AGrokuRiiIfLXfzFTbTi6SqU/joD06SfcG2MLNohCM14F\n\ IQj4QJEO8f0kCGyabgFiGmkbUXA/rBwB79eADeY0reZ7HGI+W8DtSXYnxHyO\n\ wO6Erri/fMMTreQInfFM43i6McZ/R+hAHgtbfoDXPCBrfi1gLm+/YY7y39SR\n\ 5cIdmimMqkpiCZUBS+CR93gHsjD8PpPDFpgR4LxvYTLgaTJQggTxJaxRpgP9\n\ T+O/JcvuCNjATLCBi8IIZhMAz3mONBBB9bwXSPe8KK6Hheha4P6FBcwL/H4I\n\ wX/LbQr7naQRaToCIYT9M1rEfju1myHeMhE4HSUC4ADMBoQIgAdAZzWP/OxP\n\ iEWR32Hkd8PI35QrwebWDbsSIC6YgJOCCUAHQZ9xGdRs9o2yN4EpANZmQaNl\n\ 4f3LrAQmZO7WvBb9aFu0IjKkYG38fXEi2HqFsc0xajxMAMTPEMq+EiYAXSLR\n\ 9KHx5X7HhD6Wq4PcMQzO5FxJjfvRZC5ukushRYZh/1BYZ5bLWQuPCCdKJvKw\n\ xlCA//hduo9P0OtDTzx3v9TXa44KjN0jg7lmsi9rVn3TPCCFA2HeOQQrJLOB\n\ nD3H1NUf7yAWsI5kbVvYgA0iAC9AOC4REuECOilYPCUXuHr1CZW3g4cPz2Rq\n\ PQOxkywWew/cjyAfcG8pCoAsJNx7wP0I5d2iFCAexfw4roEdk5txfXyNXlso\n\ QMx3EzAFcHwK4KagAHhaANCwmwCYWJPAo43jIScA9NDcqOJXUMdvBo/4qhO/\n\ kglVYT9SrVSUx5c4DiNTapDDIMQCSIbtERaAJHKSmIeD+zN1rELWTlyu5OLJ\n\ 0q6E7F3sEPkokAHw9DMxgD+g9yzeU+YBJDMhgNGZ56GTZ10QWlAKuawdBYYa\n\ XJWwxbkv2gB+NAhFnPuS51MAKDGkb9EUINYqzPeTnj0TiM6KJiEGAebb3LXg\n\ BF0LU6XcG1MAZjlB5wKECYDtewJsdC847A5ww+6AKCXAY+GGuxaOYtPxR3TZ\n\ hSNRXmD7/QwHG/UzOAE5cMPkAAJ+sM+JUgLonWomAjGfCDDo482sxMvKumsw\n\ vZqDd2uB7hq00+qsx5NsRTIjrYPKZcgWD90SBkDb9l/VYTQgOrLNWPDhbnhG\n\ 4HiKIW+GAYQgvMliN7TOMIBwmuiWGECQ8cZNZgDJpxoMO4wGR5h1qfIKrOCW\n\ vpcYqbt7R9Cjpdued1DqoDdmBbaJgwMpGF9lwvBnMFjOPAlKAGm1fwCf3jmw\n\ +QXnIuEHefsPqbd/vUU1/PdykvXtIQfwCUTHLaR2FcxNjka4/qu5asPxtSp9\n\ ySFci9N2ZuCEmQHmWkkL9t+mBR8ILfB8WuCkoAVe1DNwh08LuPfAuwFaEMfz\n\ j5shl5wo4QCnTsAc3pbJB9GNwJkVtGADdEnl1QV0YbymCmNqAqowPOQwyAlH\n\ KJiuBRYmCXj2ko32o8INoJFgRs9gOnDOY07gCE0QusBK6wyC4LBshulcQBSD\n\ 4Q2XhDeUEtbPfl4CEGT0Hn47l/sLEO04h4WVm4yIx10OuguSyIMTJg/MXt4f\n\ 5sA9mad0gT1Wz81xiIk3wiGcMIfAkUbVtYFA2I18CtVW81QCCospMLwIg1hY\n\ fe1EdOnAHXqkjiYU0Fr9iVD0N4lcwCJWkdZYCcGyG6YTyHDjhOMHw5WAwl4F\n\ +XE4IV2IgHSJZBxP5hQpvArGO5GcBygVp0C+H1cHGpiAAgxQCDsyzLyUi288\n\ CEKfgmXrTEPmVLHXp4x7odtnlNWzREbLI+VF/qHmyIUAGtyiRTzafvrxjqIW\n\ aUvOqqWnatX1v9usGv7HBqIUFU1Qi1WNqcVTN0otHHX1xWUqb9dOc+Y3Siqm\n\ hEkFnqRBBTEoG5OL/bfJRdvIRQJHiOFYuNMY3NiXBe9TMzQjpq9m0Oag28H1\n\ yYXbSnJh+z6HVOQCJzRWZy4cWwXgGFsV9zsgApoRw+PmXoj95g2A+tGsI4EX\n\ xdMpHyYdMPR0ysEYv153hl82zTxI8kPMIzfEPEbXIPdi4KAYAtbB7t5sVBfP\n\ Zv3M6YQRWl6Jk/4ocgyedfSK6WfQAH5LTuG1QQRDyWndl3EuIBszzRAKPa4S\n\ nEGGOMAJIeEHnMvnCvc+eCnJxHRNJuwUoyBtE4AgTCLmD3PAdtFRkLoHol1M\n\ ghXOSU0kWGwOUHDMcAcz5CEU94jeCR3yGNAIVkIHTS1lsAjYm/CcaRKB70P6\n\ KQyL4P61MI1gBlEjLGKoMIgkj8SelDTCDdMICD5mlEwcCM02ELMDdsB5PWC7\n\ zjBJiqw/aat+pB76rZOK5UIhVmJnyLqKDKwi7eITQYSC64M8KEUkBa2TYkeM\n\ 1abEvHE1NF1ivmvEZxBO69tcgALiEk2AgkllpDMOJgcomH4PffJ+FvzQofwh\n\ lSHviLXUsIn0H9CDWi4DlKYc06zicBOsQodbAf40mzjWLKWoT0kpugeUgv+f\n\ U+nLTxGVqFPX/+tW1fD/gk5sTEEp1trgEyhE8rtVEgr5u6ebohRWc5zCBp1g\n\ YjFPXf+rhar63Fp1z9OA+FK4A2ehK7CjmITtZwCKMoj9N84g2Ie4W3LQjGBz\n\ 9OPIJXo0Sx48nL7TFvLgRslDN87q4+iMxHKnEeYIBtGIRiSa4g2eDmGcuD8R\n\ ZQuuHjUz6UBXvC2eeXvYzUXvU+Fh3PbCw7YZiHMYHy2/ZZo+FByM0oex+8Rp\n\ wdSBZPhesAGfPjBn8Nh/4ciotCEsMOw+sswBm6BWZMlpPDsOgawXKUK+Ie53\n\ LToJzwXmi07q9TpEskQna5h+kfZ1SRI2BLmIuM/2ChQvyMTM5wMRHuG1mUKw\n\ GyIgDngBUDhmshEufclNSuLgMHHwkolDENjotkwX2N/g+gwBigYjvkMMYV9K\n\ huCGGYLPD+JRfoDvDylFDD/wkvkBD/yNgR+4IAVQM9vBD/zclZv0QG3iBn3X\n\ wLNgiMDTbFmskNqINGeHeMEnBdijHgJx4fv9AWGHgzgTghBD/A9n34UxDxQH\n\ f9Bw3CreEPQjNNqALjJc4dLkUTDuhCayCppQy9BmtDs6vVD0RZBGONHoQnAY\n\ k7qBLsZOOv2grEDU7bKEl31KWXFSXd/OpreoEt+p5PAydGJSE3QCLlYY1tOO\n\ AEzpSzgGMoH/bScUNngEWQPpT9Wr6qv7VMP/t41YhGESm26YTfydYRNdm0ja\n\ JHn7335riSrdt12lLTqBc8QLZTwTch1CKdpJLKa8j8TCaw+TsP088x9NJoFL\n\ 4SbEJBx/HGUqJuFER0gwk0g0Sx1ieDxdWkkdoPoPuD51YB9DDNzAM4QBUFt0\n\ FH6HoiOYokVHg5SVSG5WoP0PE+qCAAnu8ajW5GGPIQ/MFpj6ZPvV9kSGsE9i\n\ CNOGjzR3wDeKUMGieqYL2D0GCRTyJzz1OOcrxZzNlKKLKEPO+KSTO5SYZIaX\n\ pHabOBlcLuLmyCLmB8IUJLzxGQlxFGmeKDjgB/hpKMaxeZbAXRRYG+RRsJgd\n\ YNmEY1KNO5drpDbiCU4qt4ImDRLdEE2i4NOH4R1MHxq5F+I+c4ghYyZt1W8b\n\ 6C2nuEZNR1I5fYk+9EWKNaIPfVZZEe6AumS9l2O/Pm0wcQohimC5SWiuHfuM\n\ l+1KmZCUSzi0kR2y6iN5g+nEgPpJWRMaMQOsj2ZbEAYUJH9qvJ25PEN9jOdB\n\ kjSJoyJcK5X2tZgXk7rpfpeyHi6kF/GIvPzIcGKYwZQmmEHeAXG5gxGIc6EY\n\ r1x7CIHVnbjAKeIC+1XD/9xBsr1tnOATreEESbkZopyg/vm1KmcriuTMPn3z\n\ eIBjygSwHcjdFdZtRvDBMwL2LXjNMgL2LXTHPYz7jIC1ZiVuN3t3PLTdg2pJ\n\ foIMz+cLgM2qrjfKF+LgC3H9phWxtgclLz7mJw3DG1lyDGOhS44LV8fKohCZ\n\ mEIyiV7N/INCJsZrTwRHWhoysdc2pXuRy2MoX9cwrGBhbPhIMwYXxMBjjuAJ\n\ W5h6TJQhZCpnZZ16jMwMa8pxzShOhlIin5VSBUiJDDogrgR2I1xiqnDJlIxF\n\ jT3Hz77k+AEOHcMXnLAPgbMs5EoEw1GJYhBpJVFww0QB4rZMExw/10ISM0AD\n\ VZWJuOLBGLETJgOeSaTdb5tf7gJz0E59t8K/0GeLLtpYIflXexM56L2K5GlQ\n\ AZtZgeED/kAAk9lQ0N6K1ls1QAlg1dkPMa0xv8WMi1YsMsAxtJHpKjCL9I7d\n\ EFEwGZXjqc8hrmMcwov1zkOdGLTEDU4nenELDNx/8dt0u8skWcmMC+IwC8M+\n\ Ep6lgn3AVuFhGCrsgDvSEubLAAnC/E+GMV9lbDqu6l8jrH93F8nOtmK+JaDv\n\ hEHfkgwLXVsE/eu/flJVX9yg0pcdF+7RTsjnD/io6FSR5qHfNqGPqfwAQXhC\n\ u1Hf8TsYKn23t9MSCbBcqVSDcjciARlgx/NWSX2SxUNDPqq0wMHpe1FaYPu0\n\ IJaCFthRWtDjRmmBi6d7R5QWQGHjBWhEC/j98UALuuCdiqegBQm8jzHzmgL+\n\ QQPkHeYX2ua3+U5JeeLTg2OSWNxQgwLt/sutRWkQKRMCajAS9KBaWMAwTv81\n\ dC8TA9tnBXqrkdXWR5QUxEAK2IvgMAVwNS04YgTfO5cjnHw4VCvlmDAF6FZk\n\ mJ56Shc2OitlCYOKuzjIRe5JuiDFeEWSWAGrlrOmtwFPovX8wG6m16GtjMH2\n\ Ax/xkINMTXWBjBQfA554arpgR3IrcJ4RPx1jlR+0wFpJJ2fK5jRzmkWwf8FL\n\ wSKggKDR+qH+Rj+w/L4Ide6zBUdA1efepKd6V0BXdKJmrWX9znS1f6M/XeYu\n\ iYBFjs9GcHk6BJfHA7iczPBYiDsy7XB7gBIAefWn+1TD9T0EkLvbCJQEkv99\n\ XQtA2TmU6TgKlG//YrkqratUaYv5RZl7NgklYxFYhFo5HoJF9xZFQjcKfl47\n\ 0c7RdV9vMbSzHJ3jVLDeM4kGk3HPciLV7mIpENDTUZIjK9lffod+ImNCTvNU\n\ aOfoJ90I7Vh1aU/TpAMS5tnZx714CtxL4D2M443kbw1Xg1d1xkkR/uT4BZ7N\n\ eXZKTxn/FK2rl5IhxfRaT4NFd1R0N/gvI2EdymMBwujaasJo6AL0cNkcdDUS\n\ SMlifSxQ76gRm+uBueJInOSLA0IBB3uBphUsMCgOS0g0a01oUGRbRkjP1DN4\n\ bqYSvSnbK9F6U8/7JvEZhjzb72Nn39opDXancCJcryCUhZCd5xLrH0lFHKCd\n\ 7Yf5O1GUY1VzWMxikRbRzlWNg/Qc03ISgRr2o9vRvISNwc8LB/6HrWcHuBfz\n\ cY874b0o7rHNHAPuscN8i8Ben808x21v0mm9AYWbLcLARzdb1gPaBkWdOtSa\n\ g9TU1DgpFtO0sWJRkVZXmqVLkkp1qFaLWu6+dR3n2rMeFwYK74fm/YA6rAvt\n\ 31jlqF4bORuakJ94XPXWrIOgWp6tq8ebevOWVM01i/VpsdBp2roorqmfi/2O\n\ NiZznBTWA/mCZEi1Nfu5NvCCI2YIXEucwGZwdUUTldarXhuPERGoJcy+vhfh\n\ +Kn5gA0ygAwAzdOBptlALFz3gNnA1dfXq7y9ANt5UAxhFuCksJXdVpIC25AC\n\ eBGEGLASuemkwPbL4LToGW+BCnjJVICZAPgAFya4uRQgrtc6tFb/wOp2MxgB\n\ m76JFBSg8weE+Qkf8xMtY75jnDV4HYVjc8g4h2fPPiXOKHZIcSwKmnln4S1H\n\ cg6EuKJOGOqFzSKZQduXnJSaYoYQwBk28SDAW0pYjwEh2Mf4z/CPY4MAjGZh\n\ u/9jCv14eAhRK0CUQz6uOu8ABgKg3wF3kesAw8WIer/0tCbXi/kKk9aYthyL\n\ P/mswXqOwdc5gJLA3fYj7tmEdUzXeO5x3TXO3SNNwLuXDO+M7sB4qTRgRyPr\n\ bK5DlMKSbRLbsSJlvkDHB3bcQD9TYGUU4B0ez4d2hx7Txw48jfeO33UO0Mdn\n\ 2xeZPvpsht6BvfLoJg3rrkbmMM45vMzjurMGEiGEsgTYsn0IRfUyjyv3AW3N\n\ H837II515o+2sTVQm7L0+AMC07wmC14EkSEE+P46/C68S+IF2l0f88vbh8vl\n\ 0uUZDhK6KmuUQfQen6V7t1iGn8x/QZJnpkL26eeTkL1ev/L8bkw92DyssxKy\n\ 2GhWvTYQmr9Vp977h2rV8PsqgDqQfQ9q26ay8tnC39I6K19G7CV0B7hJBiCg\n\ Xn15i8rYeAjJi522Avr05gGdXVRHBM8F070PAM7dGzPmnfcXvN2OBG8bFxDr\n\ OPAOCgoF4A0dWdUtCt7sI9Q5+3RJqWQYj7cPt5kDe3pURykyvUhO7jP82uK4\n\ nEoLebglBTfMwYUXuMierviFlYByA+MGwqfpPi2YnHmHpL71+DrgMgz0wFS3\n\ gdeM2rWC7+OYk3yckRvdv3mcKJcTLtTiP0en70f3N5ZNrBNOxLFBQHbaeT5u\n\ Nt30SSfFJteuaAFwAG5B4/IAjg/fNsM3dMPxMIS7KcDb1Rn9RqfI6BdAdsQS\n\ 1wn90AZo3TijX1WA1Q6w2vWx2o3Cs+2PlGMj3PGNcNcH5VRGuJuM0fdrQIYN\n\ rP98Y9pAMMrFGxjXhXOxTsO4w9XngaVk1frLzHb+/lxdUR4rUmN4LBnDpaM5\n\ PT0ZWMXYFpzWxrcvAb7H2d7X55C8S/88gfNYhtMwxwmXux/B7aeV9R+/Q7f9\n\ CWUteoW++pfp639J8l2mAvIZISBHLzfiODibyAEZmDP1IAN6K0x06/OqV8VR\n\ wvED6r1/3EdYXhPGczHRr1feCKBH8/t4PqRf/81KteHsTpW+gj+S+eddaDm3\n\ WRx3DJrD9RlgeSooZ6v8g3DYf9BgbjOYOwTCa31ctluGcw9reWXM3zh+o3DO\n\ 9H6TvibtbLh5wM6PpvuNAntMp31k7seB7IVHmoR4O9k0n3nSSgX2ruaozFa5\n\ wqeg/XxT1BPF2a1FF20U9aSpxy+B0y/WebUXPSNkALW+59AnPwvDzQl/ik7I\n\ pz8piQCM0yRgDGPaGM4RgPmxdQb/SQ58zMEfL0YdEwDG5FoZFBRUEN2HkCzE\n\ ESJgAF0luLsT4SnB3aaj5uPpczFATrnTbEXAaET7MSsV6Dt+WcCD4oIXcVsG\n\ fVjo0E5DazzfCHcjqXrZ9uZ+sRDEs7bZKQa4iBftZ24F1Bt/+6Ms7G8PgT4A\n\ Phn04UE3trgBfWMoA+AN8BrD10gAvEIIIuDvaSM9Cfibw33av9mdORRwu3MS\n\ vyBb3D+s5iV6Tk4TvAaOfPMH7iCYTlrxqxn0iOnOPv46fcivCbYjdzVyWDO2\n\ X4li+8xnBNuB61Pxek2Cm2Yy3tUpLVjm1hcJyMkg/9khAvJakv2tA/T/2RKg\n\ h4LVUgG6Q0C+Si09uUelPckJehacbzuan7iN5rcAmiduAL6hwBjDBb47497G\n\ ovDNNmkVngpX5kmy0OMpkDtmCjohklOy6QHqOgrIXbytXstAHmOD3ZHq25Hy\n\ WXEU6gaaK+sJ+ryfeFZZS0iepM/9SR65XfacjVlEVmHlYtpoEW08n3Y0l8C+\n\ 9KxY+8UnJR4bHctwMTPQA8Dr2I5Hw/cBy+DEn8Dc/2MI5cBabpCeOZedHlyw\n\ icXyP3l+u1CTASsY33HjDuKWkdBxJh4TM50h/KT8n3AigHIZmMbJ82xdi0dD\n\ uec73w81cr47UTy3fb+7rcvxpLLfGdddv9eccT3WEpC70bDzAMg5YAzaRrzp\n\ zcG39IubP4JfgUHXoHF0cQDKZEX7IA7gDYN4YFkHVnCzIM794vhVjBE5DOSw\n\ 1mlTR59V+FDsnw/sb+wwoA8u+9dDXQJmU0A52EkY3gHtoAfmD66KYWbk+d1Z\n\ kqJ6yZv0+b7RNpiH353zhNcijziQ3gHS2z7S40ZPo2+96LCMn50WQnziFulL\n\ 4H0/rN77p4MkB9oK+jYQH576ljA/mqRXvf3X67lkMAoI29B7AeI7nJzP0V2O\n\ Z3gknN0sAbB9GnDCkADO6pNMAbAJxuWJa56jEW8aGcCeTM15TQiapQWuH5Hn\n\ d75zv9mtxRI8bOx8HFkCoO8Qv0suXiunWZZgupA4Au+EvL/8SsdayRJiuvz2\n\ 4ksw8pGX5YlnbZACUIUlzwk1KIOQuigjtbGUZBnXx30KXY7LX0Ak77KrtILk\n\ SVr5xHNCGxaGKEPJKckig2gd7t/XlCGX+/i01Y/mkNAEksPgB2zA3mYJyDTm\n\ giX41gFnf65CyB8KOKGQE5dyqBVXyniwscMSR557xFT9lfq/bsAJnDAn4I54\n\ cfE70SR4ASGw/UBypylHvt3xvMDzPfhOlA2EYZmj2ARMAfvmj9CySXRvHxtw\n\ wocVf4GN/cT0LkECQj3/3G2QbNYHXoVo7Jx/tomwo4J/ht3iD3QgRCaMUwBn\n\ lsXtJ+nXpIN6FREivkSf7DX6Kn8cMILFLTGCZyXPE+KD8rkyUz57eIQRgBDw\n\ MIgmaIGMVWdaYP0Jj3xJf+KYqn7hqHrvf4EZHGqSHTT8viWXQDgsv2V6cO3n\n\ m0ELxAjCKcKpCZel5P4P+IHXMiGwzXCCZjvrCzvAJzCx42gACAASro/Y1bEu\n\ Ag8w69wM8Hd5rcvBd24gbWcCPZot3de5Q4gB7jF0WjPEIC0FE4hpqpeHSLV8\n\ qNb8uoTOkstVGyYdDBz/LpiA20om4Pjxra3Af+nfko9h4QWgbHNMwA2YgIjN\n\ 3gInIARLuXzdMk5Lv4y0yVOkVZaTPI2yN0+/jJUrX8Ys/uOjevolECVsAtqA\n\ vT92iU6HzJA5yFh7RpLSFaJr28QTwAjmOiDiS2DjGA5wpt95/N1hm3yMJ2CC\n\ /rGmCzHQBdfwUx4RiZGR7HIfDQ0xeg+6E7j8GlZWy/hDv1OG7uw4eKjGHcHb\n\ MY7OdeyRQMbwTU81it32YwQONKr65zZPJNyUI9Icv9vAD9njID5hFW6KvPyO\n\ zyvw9fOgmv7bQS7MePcwzXBBM5ymaUa4d9+AviyLNerY176GDnM1vPXWW7wl\n\ UXF4AsKuBjgRwHOw1lCGsBMBDMRQBs1IzGklExSMCzDxA8mxg8bREHhQosF+\n\ mdx+Qllpn6dntYy+YqIVy35GX/VPo9Tj8R82QT2uCvVAeD8Pvc3bz2Mm94sf\n\ IvBFWEnOCJtHyf+ZoRw8WDz98aOq+sVj6r3/Db5x5H3jHFd/tF1lbOWRUG3j\n\ Gm6Ya2jV3QzTcHzXg040YmL9Pyycw9Ymc0ucw+VhcE64XjD0SfMUxPYhfAOg\n\ 3cjN4yPMOTyZoo29DxsFsRxJd4xxmCN5HLwmIwmTRO/mkBF+5dyOIyM2PhIv\n\ RZeFm4KRYBP0WIAyLOHs9M3REUfTERbcoeUvYtmKl4SLEAuh3656BctWk1Za\n\ /aqy1ryKZatfQw8I5lfS8hUvC6VZ+gKORCdEJ7CQznHuBXG3wr0xzbg3AOn5\n\ RwwdyRM/BpZhRQGa25zENjUmAk3C/gfoktHwYI6C8hi5C6X6UASOUz3slcJT\n\ KAOBAaJjiFiMOWBcF5Kil3WfiVaQwkAj8TaHuYdEKITrDDtNjSCwm2Uhjj8u\n\ 3vWHD9h+0MKNcY/7dJxAKEjR5wxMCwSLDeQjdMHguxnbZ/4Qx+/osQHh5bp3\n\ RNhMs+EKTQw1cCPDAuiwZnG4eyJFUAM2ssMDJQyjgKvELAtHJA4y3Rtpn6Nb\n\ vlSYBRgGmMayt6Js44kw23g1yjZQcgv5IqRkepvZxp8w20ibc0QtPXVcvff/\n\ nyBJxTaIafxTXcts493WsA0dwUhsA+WLwTLiOixrQainw07R0+F0FNk40kFk\n\ Y2LzZMMGz2gx6KFJimHzAHoQjW1ATSPt5xsM3Bs1eDOM99/gANa99pENi/mE\n\ 8WrQt90RPKMbTiiBUwM9AhkasLHL+8UuYikqBRn1Pi4l44A7H/iQB32cX+v4\n\ jMPR9YHCjMMG40DMBEdKcMzEB8E4QDieY57BbON56QohimGjZZ7hgF4wu3BA\n\ Klx4OTxQB+xwFSmgVa8ackE/WvMaIrHWvoZZWezzjJeEr6AbJcwxZp2Tij5F\n\ OpH4ZFxzAT7RgqMc5X9M/CQsx7Heuk0umiEX3K0HwB6J4pQjONMGCs+jx5Sz\n\ muyR+pYjoZlG8eE48wC7NHA4k39AIh9lmKKmF24rGYUdHefg+fl73aaGIbaW\n\ Udg+o3BSMIrkjgWALFEEwygQXhAZGWjjF+FxD+AC4BtmGfhGi64M2p3DIw7i\n\ jaImQCIwLzxFNQqdoGlPHyq0WA9NjEeOgj8TzZmWluaTCTMsAr8YYFwWGN6A\n\ UEgQhiU/boZU/Cg1qYDbgl/niTX42oRTBGZ1KztP/pTH9aWVEqeoP65+/269\n\ 5hXHhVv8rxvlFjub5Rb1r1aCU0ATMq3AyaLflp0XF0LBkx96gjHxAyUYoBZc\n\ NQi1dFruSdlww2RCR1IaCsGOjNiHjUIkopwh6B5pE2fAA+ambZxB3iX/zWqT\n\ v4JDLN0OZg82iIMT5QwueyTcsEcC4oBAJMAJ4uyecA17AHmA2OAPYBHrSCGt\n\ +6H8X/u6bALCAY8FmMQSzSS4Z0V7K6brQdZTccVCFUAaIgSCQ0mmYIPbBCIV\n\ gUDP3y4EYDNSjyAYGb4dgrnhXJtn+A7hFByBVSlVK5H0eQRKUcH2HIFT0bn6\n\ amX4xDCd28BJnfzfaSV5iHccW0iKpTCDI5OxPzyW0IAtxinEUwBwyN+QIpYi\n\ RDIUd7KoRp0OdopEB/hDQKWn14UDRfEnURiyTkdURtb5rODPH6bXgO7WYvqo\n\ Hn+j7ewAgySn4XWeUH2j1CBd5e89rn7796fUe/8MaQ81qG6BGiTnO9yiqq9U\n\ q/QVp6Dj7CgvuPD+8AI7ms2owyiBY8ZRpaQEbltYgPs+Ab8XBn4Wh/0IHBWB\n\ zgqH2lW+S+EObqNuBk/oAf021jIp8FLUIu6G9g6fI/BVuOAIXd9XjuD4iRKa\n\ 5wj8YXk+R8D7wcl8O5wjuHi3vWY5gqvDkRch7/xjGEXZMcwgDmaQANDHQAw8\n\ wwhet0EEHDAC9F6AD8DLAOfD068E0RZPPE+ndJnOkjjBbERbnJOyflKQxOD+\n\ FFz1FA6GRp41JN6fxumAboM/gz+7DKAcdjDkw+yHIhi2DeA/jDB3GBGAYRr8\n\ UXOSCztUA9k9RnpPxlMYeBeIt1JhPJRMZczHeCeFgyDocoilwHj+pINxktA6\n\ m12gvRtF+yTvfzTNj+tnDogs9sKuej8hQTjZgI5wFPxtE/qHOwiA2kEKQy/C\n\ TPAnuRZkXdjHgT/4Agz6h4dG4g/77Gc6GL45UBKTLnpVQhUMC1jyI+lcSMkC\n\ fhJlAfiUJtCDza1iFoATnlgji9rS74DTKTykeq07qn77u9Pqvf9zhuT0jVAB\n\ GzwAKfxbYALVV2pU+vLTZkT4gvOmx0HGVtzcbocm0f9QCvS3XImhRyI7KfeT\n\ xAL2N2IBti4J0xILYC9fZbieMLMBfOtoPmRswNVsIEZsQDMC69OaDciGqznU\n\ IckxEMN+O0c5gKuP36e8h4/8HMjg6jMesPGOG0D+7k2VD04iAp5PBMzTaQb+\n\ HTxqr+PgP56i7E+sWTbg6NTdzbABptAOPiX2E7htYQO27ltYAQLAQZVhFhAH\n\ C+jOHQuOQD5D/+sW8wHkbVhPeqmcZL12F6wxtOBlOgTRgieJFjz+HJ0g0YJ5\n\ F+laiBbMQKVflNkBLTjFudhwmdoLIExAYsWLOS/wbTYQsIEYEwGaHLqVZAsE\n\ PxsKa3vIFrxLcCKiJAin+qZPYWilqRZZZboMYPwP4fyGhheAFnCWftcnCGz/\n\ x9vCDRw/Z3GT3MABN/CEG7zJ2HiXZOj9xgApYQErd+ErGidfbxtOll4ShTyO\n\ LmX8XuCkZczlCW02l3FiUw6qXmuPqqu/JHT8l3OEkmcFLf+5JbQMRQamNJxx\n\ YkgM3CUlXFZf2UcwWS/p0uad10F+qdHScnRGtXMcfd0xuFnSbty0dXxXm/DS\n\ geJ12oiXNtS9+/7gpQMMc1qFl07IetaYacU0XiIQ0FjP3dqHoXxOjo+hXXDG\n\ EkBgohdxldrhTlMDeWpjtxvA1W7aTTEipVnt+mjq4Nm5fsrgNqEpLoFzBoNy\n\ afIV4GoCkBp/vzDUAYZ6N4ChODWMSUC/+8pXLM9H0wTQ9JPASAZTNqxxrcbV\n\ vp6FFq9/A84RzGIxINf04y9/SWIFn7hCp/osnf0l8b5LPz4+fwbLaZyiD654\n\ IClwFoMeilkX3MZQxlAPEMrgtxXIyeiJuc3IiphDaiJnk/6/RTrkgKk5hHs5\n\ u3QxZjpeDh+Pg/hyqlqLmm60aK7tV7hxTdTeZs83oZGmYKNl/dDYkcDK+yaK\n\ LTj3BQk+ay1mPhXCzAUv4jFA6TLmC1wCLOl/KwDzjjBgsqQvPKyqXwRQXiQ5\n\ nwyYNtDS6t4yXv5jSrxsnEd/NxedRfFZ/TGfxQkLWkp8vPyHauCP+qaiZklH\n\ oqbNqOkov6bsxP2SsLN53HTDzk0ek8Nv5xj5GnjkTKUEvXL0lYSqGINpODqU\n\ +E0dji9lGAB1aAhQsSapqBzXYULM22BfHM59hxd8M8DGiG0C1PtvDALs+wFv\n\ +zJ69alQnUTQI92b4NfuXQ5wfLRc2Y9A1qNz+hF4kO1e6wkmIessm1sk1V9L\n\ cMrCMIsEv7GH1qj4g77YKvEg8DbxwGrVWcSKo3VV5/tXe5jqQg1QHL9IiNB7\n\ nnhwbVzFH6Im9hABcexhAmIPjdtzPRzfZNY6vbgpx8mVuzhjnHpFTHV6lOhE\n\ p94VLi6Npvoit0G/DXGd6mDARnSJS0WiCC5zAbtsZCLLAYkJg3MsRTWfeCux\n\ 2vGx2m0Zq228eojjrzVvYn6dYXOtQu14CkM4iLSL6e+juAVn+PsL3YHl2zmK\n\ 1V0Zq50wVuN6y3+IHAUGqI3tiy7ypS/qYDuyfRcQSM+9GLjEp58FFiMnuQA2\n\ 9oT5El/s2+CcEpy5ZUAGMLNNmcOJfQDW2RshWJa9CVo/i5ZlbRaVlU0Ank1f\n\ Sza+jmx0wmVxw5UdMyuB1xDWaE0jt+Pn7E9CboftXTds76aE8dd8GKcX6gcT\n\ hKLNfp7e7Ctth3OYwBh4z53CY/c0wvLcVmL5F30sT5txUC2tP6V+/4/PqPf+\n\ 9WJTWC6G7z+fvDEwdxjMr16rUfesOSHg2wjG5zcP40YHdCB4O2xOOOESsVYA\n\ 4zbDuCtdxgGUOzr92pSDtvayyyAnVpbsPq6Te5wvJpCtnfUC5sDxXA7nRKIX\n\ JHwZx44L3TcZgDndmFF4zCN4hAhs4eEkw3azAwifUM5OYAFIatb2QDIh9P4P\n\ 3oYNBwFRBnIDn9EANP3R9INzpi/GivQBJHFW694oEPUoh6g/QpDdiwV76VVB\n\ l9Ypo4KMVV8I9HqWMxqXEziywCZ+mGxoD03sIbJcYw+tswlh19HPEw+uIzhe\n\ a8Qm+KWm6/3UdLl/raPuuI9Qu+t9gORuP1it7hAhek5tD6zoge0A4tTQDhLY\n\ YwI7T+AwMRwQWE3gTCdBZ4JZ9+HyBM7Qxsl6yn64HAZ3RQIXg8vsVUGXyoLL\n\ fISgm64cU3wnNiK4DU1fDBrsx0l/+5OaGbAZgrkBm/nOQm8g9mUw7mwmeyJY\n\ n2WCPm1jQmXr8QNJFfq4c48xfRjSkQsnG6ZDiEfsQmIW7idoFcQ7fun6VBBv\n\ OVob1DLMs2Ee99E9HoXzIFw+sMQ9fB5OB4O4DRCP3QwQ7wYQj7Hn2g1Z3G9A\n\ AOZidb8RtbqNI7ss7MhG/zZi3uDMPusb1SU8CXSfATln3YbsxpCNOXQRZ0O/\n\ ZG3kkpWkVrIqtNB0JquYzI34CDI3y0fDSow+jUz6EjJ3MVYzcqMdvBuAbcbr\n\ N0JtfJD4lDRqe4GDuhFguz5g2wLYrzBgf0ZZ3e6iVXNkkMQsegVKn20jcP9E\n\ A/dbMiQdqn5M5Y0B95cYVPL3nFC//6fL6r0/QC5p4L7QQcDdOMPe1Z/uVxkb\n\ dQ32FLB9LgLbnu6WaiNs21zk05Min6Uo8nlSC/cP6ZJ1JjO+RnJwhBJdFrvk\n\ qAj7B8Ml7NwwcGvI1oFeiNLLJ7TOqxPhehnIir1ffzQ1kklzbI0kxkJqi9HV\n\ MnZ0ZJUM7OBgTHwvw9EMQy6JIUwr4TbK9gXvPr+t/D7TezqY/UKD4RcahPHs\n\ AxkQBhJUDJAIS9dEX4SCK209uFNQW6DbiUD3RsYv4NqGm4jaLoDYAyR3bzM4\n\ x3EsWNOCy3GcTgDJiCVDeFgv2MuPbOiMqTjQ2OPvE7xkI6Z4DnR7o+EvzL77\n\ sjOi32ZQHCNMehiqt4IIgRH5vGgQ+zkGbxPClMkgnbUdO87eLgZEjpYhrFeG\n\ 7MS6oTsFoX3hbGTaELehMOPwtyRMeePRQYl510du20duz8/CFmsKuRM+VMcj\n\ ZffEEPc6GLk9TaQ7ALltHt/mSrjYMl+SYNw2bnQEl2k3uusHrXdtCtW7cHya\n\ Ix3S5W8wotNcxRsw0ivepPk3Bd/X0vpVr8nunzKd1M+LR30ePOq6o5rxnZXU\n\ dG5Lzgq8y9xtQE8CdAeAjga6JpN7ojIJ0jPL6ZNiwbdVAVQfTB/s4E3aawjT\n\ ZDt0H3LtMHb72fwG7jQoHo/it+PrQMfHbQe47Qhuv2RKzXQj7H5kNj0iwtzp\n\ FyUfbZP4/XLz+I1xWXLHW4PcThi5OZPUfiB2fq3qteqI+unbhND/9hzJs6mR\n\ +/+0Brl1ZFYLyC2IzQUUwwW5Atg+1wi2/e+Zs84suiCjUURsjOSyNaQvZIhf\n\ ELLVpRInI/sZ6wuC7ajYiXJeXLL7lBTJNehdckLKdhfRtzGNpPCoVOtENACG\n\ 1E86JBWnUXOSK1SRoptQJ3UqkM96fK2U9h7HN3kMfwOo3hmU+YYeRjMc9tAw\n\ /h6G0gMbsheBEfxO40nmsG5Gz05OJXxE7PFGNrYsZGHIgs2ViQ8lE6MgwkCN\n\ Bm/lAMBzf8BzP7yafdH1/HFA5h64kB64pDguLobLtBxJtM31qTcxMm/qjDLV\n\ /LkmcGMc3Cc2oAHLWyGCytx/sA1grJUDHG2Z26E32KWxQ7vygMQ7gcEkzKWG\n\ 7uLQ113iFxmhZST7R0by8wTqhtUga0b+oBEPvgfAywVkgMHjkgPFk9A4nqLm\n\ jueDcyziJW8anD0/700AzsARZFNtFTgzXXY7BJxxppzkhnPuYq5DkTkGe9vh\n\ 3m1H4zNjMh5FxZuIK9/wpuA0hJ3q2gZfQQda9pLg9GJS2gtIgc8hRV4KGxwX\n\ Oh0aTYeJiTkuEWYl7GG/Dc+p4BkN3FuD2e/FAL2ePrr1jL3rkR9nEIH3QMgG\n\ CZwZuEUI88DtgsoDeNDqAHQV6iS72FO/bQBoCK5FQ7XTNFS/EIbqXrPo+aB7\n\ 5JxA9owmIHteM5CNcGnM53NOx9GVrcTrLydZ2vtU+tw6Vf/macFm4HSr8Pp0\n\ arz+38eayBwX4PVv39mvhuw8JjCpkZpB2uNe6kTQtb3gQijL5kUzgsrmwGq6\n\ k3N1Bc3ZqKJ5Rophz6R9ziDYLamXiprFJyQgvfC4rql3VF70gsOSRBtFtlAU\n\ csIBZNDmZNq6lKbA7VjuFxzDOg9Jk0btl8LZLOy34IraIzjAEEMTeYgiD8kd\n\ zqHrPGrBFyhuGD1D4bgciiDdIWwdAYsZk1lsQDJeZqCxGNBZO7URvVPM6dvg\n\ 3Bw4o9kUxwV3xqX3YBOZv1DtCtNOsS6aX2uYdhidXbGZB2inxMBtbDFDeTA4\n\ w42RpSXbB2aGZYe7KfAiVEowH5m+tjGAR+/RPRx7/Q5pvG0Iys5FeANDLU9p\n\ 5I0BeW18roExHInMLjiQ5Lx2/VS3N4yyTJ2dm4uyDLAvie/56ZdDEWStANhE\n\ 4M12YPsKmm54E3ea2m6CvKa72sSUMbJq7/ZcY/2eExAt5hDtolM2uhpjt0E0\n\ NYja2sAdxA2yIAxcC5U9kEB1QLlO9mS6isxXxLXnZCz1NoOcjKFbjY5qCjWv\n\ mOBpoGbPGQikp+dxWqPn+abREzVWU6EnhhjjPwqlj9qFu9Ym9Ozio2da8X61\n\ 9MQx9fvfEyL+4WIyetpYQHZh0+B5qk3g+dt36lR+1WGxIeH9ZY8v7EltUxax\n\ q7oQb+LUo6A1/pt4WIQR71CAevmS8RkuswlSNeKgJIUeLzDISYhRU5ILItT5\n\ palcBkVX0hyj/rQIL3YBlQ6Qkh2ABifZfhiFscMjkdRnJN7oEWhuA+IHCIhx\n\ 3A7kWUUYVn+ER/dDw+73Adv4BrKbart2XG3n7qod+NoN9kHg8R9CT2kod9Jj\n\ uKbNffegRnvQlS8JskdLClw7XPFlHCq+sAtJAgMwxG/CvsDE9Htuxbnk6ORn\n\ rcJCxy8TF2ChAyz0oljIbs/jpggMzq8RKjpARU/T1Lln3QgqXmgTKgIUr94U\n\ LLyDsTAWYKHgoZm3TccvJzoJQaLf4XtJUqWVnpORS8U6JWshF0Et5L4nHsN8\n\ kue824iYGhHh1cEgioFroX3WgDEOWEuyjr4swsf+FTo8dDNzTU+PM04Ngja+\n\ 307o/EF6MCt14zJEWlan/wuBMI8S"], "ConferenceGraphicCell", ImageSize -> {1279, 49}, ImageMargins -> 0], Cell[ BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Evaluate", " ", "the", " ", "following", " ", "to", " ", "copy", " ", "the", " ", "style", " ", "of", " ", "the", " ", "cell", " ", "above", " ", "into", " ", "\[IndentingNewLine]", "the", " ", "docked", " ", "cell", " ", "style", " ", "of", " ", RowBox[{"the", " ", "'"}], RowBox[{"Notebook", "'"}], " ", "definition", " ", RowBox[{"(", RowBox[{"2", " ", "cells", " ", "above"}], ")"}], " ", "\[IndentingNewLine]", "These", " ", "two", " ", "cell", " ", "can", " ", "be", " ", "removed", " ", "once", " ", "the", " ", "docked", " ", "cell", " ", "is", " ", RowBox[{"created", "."}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"celldata", "=", RowBox[{"NotebookRead", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"DockedCells", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FEPrivate`FrontEndResource", "[", RowBox[{ "\"FEExpressions\"", ",", "\"SlideshowToolbar\""}], "]"}], ",", "celldata"}], "}"}]}]}], "]"}], ";"}]}]}]], "Input", CellChangeTimes -> {{3.38831364079608*^9, 3.388313648848673*^9}, { 3.388313705453738*^9, 3.388313712402935*^9}, {3.388313761332337*^9, 3.388313848299779*^9}, {3.388313886630456*^9, 3.388314048491518*^9}, { 3.3883140891684637`*^9, 3.3883141188834057`*^9}, {3.388316871550132*^9, 3.388316908611515*^9}, {3.3883170423920717`*^9, 3.3883170826776247`*^9}, {3.388317794784313*^9, 3.388317972980825*^9}, { 3.388318143311693*^9, 3.3883181457005157`*^9}, {3.38831883644632*^9, 3.3883188696857367`*^9}, {3.388318945630301*^9, 3.388318948563595*^9}, { 3.388319004342214*^9, 3.38831900651579*^9}, {3.388319058805889*^9, 3.388319098014468*^9}, {3.388319134493579*^9, 3.388319170214745*^9}, { 3.3883194184532957`*^9, 3.388319465324798*^9}, {3.388319542581661*^9, 3.3883195480769463`*^9}, {3.388319947903751*^9, 3.388319948372787*^9}, { 3.388320318629324*^9, 3.388320350829337*^9}, {3.388830915896137*^9, 3.388830957727977*^9}, {3.388831030559073*^9, 3.388831031198735*^9}}, FontWeight -> "Bold"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{27, Inherited}, {10, 30}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", FontColor -> RGBColor[0.796078, 0.0705882, 0]], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{72, 50}, {10, 80}}, LineSpacing -> {1, 0}, FontSize -> 45], Cell[ StyleData["Title", "SlideShow"], CellMargins -> {{72, 50}, {10, 80}}, FontSize -> 45], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{60, Inherited}, {20, 15}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], LineSpacing -> {1, 0}, FontSize -> 30], Cell[ StyleData["Subtitle", "SlideShow"], FontSize -> 30], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{27, Inherited}, {8, 2}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 16], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{54, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsubtitle", "SlideShow"], CellMargins -> {{72, 25}, {30, 10}}], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellMargins -> {{27, Inherited}, {8, 34}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 2}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold", FontColor -> RGBColor[0., 0.28628976882581825`, 0.745967803463798]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0, 2}}, ShowGroupOpener -> True, CellMargins -> {{72, 50}, {11, 30}}, CellFrameColor -> RGBColor[1, 0.796078, 0.501961], FontSize -> 30], Cell[ StyleData["Section", "SlideShow"], CellMargins -> {{71, 50}, {11, 35}}, FontSize -> 30], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellMargins -> {{60, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor -> RGBColor[1., 0.8104829480430304, 0.]], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{72, 50}, {6, 15}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsection", "SlideShow"], CellMargins -> {{99, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{21, 0}, {8, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{60, Inherited}, {2, 12}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontWeight -> "Bold", FontColor -> RGBColor[0., 0.5434805828946364, 0.7793545433737697]], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{72, 50}, {6, 20}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "SlideShow"], CellMargins -> {{99, 50}, {6, 20}}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{2, 0}, {7, 14}}, FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica"], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{72, 50}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 17], Cell[ StyleData["Text", "SlideShow"], CellMargins -> {{100, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{60, 10}, {6, 6}}, DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{72, 50}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 10], Cell[ StyleData["SmallText", "SlideShow"], CellMargins -> {{100, 50}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 10], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Author"], CellMargins -> {{90, 27}, {2, 20}}, FontFamily -> "Times", FontSize -> 24, FontSlant -> "Italic"], Cell[ StyleData["Author", "Presentation"], FontSize -> 32], Cell[ StyleData["Author", "SlideShow"], FontSize -> 32], Cell[ StyleData["Author", "Printout"], CellMargins -> {{100, 27}, {2, 20}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Affiliation"], CellMargins -> {{90, 27}, {30, 12}}, FontFamily -> "Times", FontSize -> 24, FontSlant -> "Italic"], Cell[ StyleData["Affiliation", "Presentation"], FontSize -> 32], Cell[ StyleData["Affiliation", "SlideShow"], FontSize -> 32], Cell[ StyleData["Affiliation", "Printout"], CellMargins -> {{100, 27}, {2, 12}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ConferenceGraphicCell"], ShowCellBracket -> True, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "Presentation"], ShowCellBracket -> False], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False], Cell[ StyleData["ConferenceGraphicCell", "Printout"], FontSize -> 8, Magnification -> 0.75]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicNoMagnification"], CellMargins -> {{60, 10}, {7, 7}}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", Magnification -> 1], Cell[ StyleData["GraphicNoMagnification", "Presentation"], CellMargins -> {{72, 50}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 17], Cell[ StyleData["GraphicNoMagnification", "SlideShow"], CellMargins -> {{100, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData["GraphicNoMagnification", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, CellMargins -> {{66, 10}, {5, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{72, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Input", "SlideShow"], CellMargins -> {{100, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, CellMargins -> {{66, 10}, {7, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["InputOnly", "SlideShow"], CellMargins -> {{100, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{66, 10}, {7, 5}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Output", "SlideShow"], CellMargins -> {{100, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Open]], Cell[ StyleData["ConferenceGraphicCell"], CellMargins -> 0]}, Visible -> False, FrontEndVersion -> "6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[25706, 455, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32450, 627, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[39119, 791, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[68285, 1450, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[89570, 1992, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[105391, 2390, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[121652, 2772, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[124902, 2854, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 219447, 4504} } *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 23854, 393, 52, "ConferenceGraphicCell"], Cell[CellGroupData[{ Cell[24447, 418, 239, 6, 91, "Title"], Cell[24689, 426, 215, 3, 86, "Subtitle"], Cell[24907, 431, 120, 2, 74, "Author"], Cell[25030, 435, 115, 1, 99, "Affiliation"], Cell[25148, 438, 521, 12, 98, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[25706, 455, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[25795, 460, 233, 3, 108, "Section"], Cell[26031, 465, 354, 7, 77, "Text"], Cell[CellGroupData[{ Cell[26410, 476, 367, 6, 60, "Subsection"], Cell[26780, 484, 872, 21, 80, "Text"], Cell[27655, 507, 713, 13, 105, "Text"], Cell[CellGroupData[{ Cell[28393, 524, 294, 4, 59, "Subsubsection"], Cell[CellGroupData[{ Cell[28712, 532, 180, 3, 49, "Input"], Cell[28895, 537, 162, 2, 47, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29118, 546, 443, 7, 60, "Subsection"], Cell[29564, 555, 1124, 27, 74, "Text"], Cell[30691, 584, 478, 8, 49, "Text"], Cell[31172, 594, 453, 6, 49, "Text"], Cell[31628, 602, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32450, 627, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32539, 632, 290, 4, 108, "Section"], Cell[CellGroupData[{ Cell[32854, 640, 340, 6, 60, "Subsection"], Cell[33197, 648, 1278, 31, 83, "Text"], Cell[34478, 681, 412, 7, 77, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[34927, 693, 434, 7, 60, "Subsection"], Cell[35364, 702, 562, 9, 105, "Text"], Cell[35929, 713, 1429, 35, 83, "Text"], Cell[37361, 750, 477, 6, 49, "Text"], Cell[37841, 758, 453, 6, 49, "Text"], Cell[38297, 766, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39119, 791, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[39208, 796, 238, 3, 108, "Section"], Cell[CellGroupData[{ Cell[39471, 803, 308, 6, 60, "Subsection"], Cell[39782, 811, 377, 7, 105, "Text"], Cell[CellGroupData[{ Cell[40184, 822, 19215, 416, 1221, "Input", InitializationCell->True], Cell[59402, 1240, 8049, 182, 657, "Output"] }, {2}]], Cell[67463, 1425, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68285, 1450, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[68374, 1455, 410, 6, 156, "Section"], Cell[CellGroupData[{ Cell[68809, 1465, 308, 6, 60, "Subsection"], Cell[69120, 1473, 420, 7, 77, "Text"], Cell[CellGroupData[{ Cell[69565, 1484, 13132, 335, 1111, "Input"], Cell[82700, 1821, 6036, 143, 689, "Output"] }, {2}]], Cell[88748, 1967, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[89570, 1992, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[89659, 1997, 472, 7, 108, "Section"], Cell[CellGroupData[{ Cell[90156, 2008, 308, 6, 60, "Subsection"], Cell[CellGroupData[{ Cell[90489, 2018, 9842, 246, 847, "Input", InitializationCell->True], Cell[100334, 2266, 4223, 96, 669, "Output"] }, {2}]], Cell[104569, 2365, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[105391, 2390, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[105480, 2395, 251, 4, 156, "Section"], Cell[105734, 2401, 445, 8, 105, "Text"], Cell[CellGroupData[{ Cell[106204, 2413, 308, 6, 60, "Subsection"], Cell[CellGroupData[{ Cell[106537, 2423, 9183, 209, 677, "Input"], Cell[115723, 2634, 4999, 107, 737, "Output"] }, {2}]], Cell[120734, 2744, 93, 1, 49, "Input"], Cell[120830, 2747, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[121652, 2772, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[121741, 2777, 481, 7, 108, "Section"], Cell[CellGroupData[{ Cell[122247, 2788, 308, 6, 60, "Subsection"], Cell[122558, 2796, 273, 3, 59, "Subsubsection"], Cell[122834, 2801, 223, 3, 38, "Subsubsection"], Cell[123060, 2806, 253, 3, 38, "Subsubsection"], Cell[123316, 2811, 160, 2, 38, "Subsubsection"], Cell[123479, 2815, 256, 3, 38, "Subsubsection"], Cell[CellGroupData[{ Cell[123760, 2822, 305, 4, 38, "Subsubsection"], Cell[124068, 2828, 761, 18, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124902, 2854, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[124991, 2859, 225, 4, 108, "Section"], Cell[125219, 2865, 401, 5, 59, "Subsubsection"], Cell[125623, 2872, 398, 5, 38, "Subsubsection"], Cell[CellGroupData[{ Cell[126046, 2881, 402, 5, 38, "Subsubsection"], Cell[126451, 2888, 470, 11, 98, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)