(* 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[ 278061, 6666] NotebookOptionsPosition[ 172053, 4667] NotebookOutlinePosition[ 266663, 6320] CellTagsIndexPosition[ 266583, 6315] 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["Making the Most of the Visualization Functions", "Title", CellMargins->0, CellFrameMargins->{{60, 9}, {9, 12}}, CellChangeTimes->{3.401051018635*^9}, FontColor->GrayLevel[1], Background->GrayLevel[0]], Cell["", "Subtitle", CellChangeTimes->{3.401051028506*^9}], Cell["\<\ Ulises Cervantes-Pimentel Brett Champion \ \>", "Author", CellChangeTimes->{{3.401051031483*^9, 3.401051054793*^9}, { 3.4010553441752663`*^9, 3.401055344573266*^9}, {3.401055497283266*^9, 3.4010554975832663`*^9}, {3.40111903566*^9, 3.4011190359230003`*^9}}], Cell["Wolfram Research, Inc.", "Affiliation", CellChangeTimes->{{3.401051058876*^9, 3.401051069167*^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}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Visualization in Mathematica", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{{3.40105118851*^9, 3.401051194784*^9}}], Cell[TextData[{ StyleBox["Visualization in ", FontSize->24], StyleBox["Mathematica", FontSize->24, FontSlant->"Italic"], StyleBox[" reaches a new level in V6.0. All the plotting operations, \ including function and data oriented operations, have been reimplemented from \ the ground up to take advantage of areas such as symbolics, numerics, \ geometric constructions, adaptive meshes, and spatial data structures. We \ have integrated a large number of pre- and post-processing operations such as \ function analysis, region selection, line overlays, etc., as an integral part \ of the geometry construction. This approach allows us to generate high \ quality graphics which were not possible before, not only in ", FontSize->24], StyleBox["Mathematica,", FontSize->24, FontSlant->"Italic"], StyleBox[" but in any other visualization system. With this technology, we \ put in the hands of our users the power to generate amazing visualizations as \ well as new tools for scientific explorations.", FontSize->24] }], "Text", CellChangeTimes->{3.401051204917*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Function and Data Based", "Section", CellChangeTimes->{{3.4010512865950003`*^9, 3.4010513042980003`*^9}}], Cell[CellGroupData[{ Cell[" Function Evaluation Based ", "Subsection", CellChangeTimes->{{3.3918273870734143`*^9, 3.391827416836211*^9}, { 3.3918275371191697`*^9, 3.391827538431056*^9}}, FontWeight->"Bold"], Cell[CellGroupData[{ Cell["Plot", "Item", FontSize->18], Cell["ParametricPlot", "Item", FontSize->18], Cell["LogLinearPlot", "Item", CellChangeTimes->{{3.3930652927674093`*^9, 3.3930652950174522`*^9}}, FontSize->18], Cell["LogLogPlot", "Item", CellChangeTimes->{{3.3930653001738014`*^9, 3.3930653032363605`*^9}}, FontSize->18], Cell["Plot3D", "Item", FontSize->18], Cell["ParametricPlot3D", "Item", FontSize->18], Cell["ContourPlot", "Item", FontSize->18], Cell["DensityPlot", "Item", FontSize->18], Cell["ContourPlot3D", "Item", FontSize->18], Cell["RegionPlot", "Item", FontSize->18], Cell["RegionPlot3D", "Item", FontSize->18], Cell["SphericalPlot3D", "Item", CellChangeTimes->{{3.3930519420185537`*^9, 3.393051945964227*^9}}, FontSize->18], Cell["RevolutionPlo3D", "Item", CellChangeTimes->{{3.3930519538055024`*^9, 3.3930519689773183`*^9}}, FontSize->18] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[" Data Based ", "Subsection", CellChangeTimes->{{3.3918273870734143`*^9, 3.391827416836211*^9}, { 3.391827454280053*^9, 3.391827454710672*^9}, {3.3918275467730513`*^9, 3.3918275479847937`*^9}}, FontWeight->"Bold"], Cell[CellGroupData[{ Cell["ListPlot", "Item", FontSize->18], Cell["ListLinePlot", "Item", FontSize->18], Cell["ListLogPlot", "Item", CellChangeTimes->{{3.3930652498603354`*^9, 3.393065250672851*^9}}, FontSize->18], Cell["ListPlot3D", "Item", FontSize->18], Cell["ListContourPlot", "Item", FontSize->18], Cell["ListDensityPlot", "Item", FontSize->18], Cell["ListContourPlot3D", "Item", FontSize->18], Cell["ListSurfacePlot3D", "Item", CellChangeTimes->{{3.3695933920932064`*^9, 3.3695933923588367`*^9}}, FontSize->18], Cell["ListPointPlot3D", "Item", CellChangeTimes->{{3.393051985210661*^9, 3.3930519913194447`*^9}}, FontSize->18], Cell["ArrayPlot", "Item", FontSize->18], Cell["ReliefPlot", "Item", CellChangeTimes->{{3.3695933920932064`*^9, 3.3695933923588367`*^9}, { 3.369610196100963*^9, 3.369610198894981*^9}}, FontSize->18] }, Open ]], 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["Visualization Framework", FontColor->RGBColor[0., 0.254032196536202, 0.7862973983367666]]], "Section", CellChangeTimes->{ 3.397919369590569*^9, {3.4010514966210003`*^9, 3.4010515016870003`*^9}}], Cell["\<\ For all the visualization functions, we can identify three major areas of \ optimization: geometric, numeric and symbolic.\ \>", "Text", CellChangeTimes->{ 3.3918276028837347`*^9, {3.391948030169335*^9, 3.391948039981835*^9}, 3.3930568209810953`*^9, {3.39308323184375*^9, 3.393083234984375*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Geometric", FontWeight->"Bold"]], "Subsection"], Cell[CellGroupData[{ Cell["Adaptive Refinement", "Item", FontSize->18], Cell["Mesh lines and points overlay", "Item", CellChangeTimes->{{3.3696111950774207`*^9, 3.3696111954579678`*^9}}, FontSize->18], Cell["MeshFunctions", "Item", FontSize->18], Cell["MeshShading", "Item", FontSize->18], Cell["Arbitrary clipping by using a RegionFunction", "Item", FontSize->18], Cell["Irregularities and Singularities removal", "Item", CellChangeTimes->{3.393083299671875*^9}, FontSize->18], Cell["\<\ Extended Filling between Curves and Surfaces in Plot and Plot3D\ \>", "Item", CellChangeTimes->{{3.3696112084166017`*^9, 3.369611211200605*^9}}, FontSize->18], Cell["Improved ContourPlot labeling", "Item", CellChangeTimes->{3.3930833009375*^9}, FontSize->18], Cell["Irregular data plotting", "Item", CellChangeTimes->{3.393083301671875*^9}, FontSize->18] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Numeric", FontWeight->"Bold"]], "Subsection"], Cell[CellGroupData[{ Cell["Arbitrary precision via a WorkingPrecision option", "Item", CellChangeTimes->{3.393083302890625*^9}, FontSize->18], Cell["Evaluation monitor support", "Item", CellChangeTimes->{3.39308330359375*^9}, FontSize->18], Cell["FiniteDifference and Symbolic vertex normals computation", "Item", FontSize->18] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Symbolic", FontWeight->"Bold"]], "Subsection"], Cell[CellGroupData[{ Cell["Vector valued function plotting", "Item", CellChangeTimes->{3.369611243967722*^9}, FontSize->18], Cell["Piecewise functions handling", "Item", FontSize->18], Cell["Exclusions to handle Jumps and Singularities", "Item", CellChangeTimes->{{3.369610455724283*^9, 3.3696104708259983`*^9}}, FontSize->18], Cell["Improved ContourPlot3D", "Item", FontSize->18], Cell["Implicit Algebraic Surfaces", "Item", FontSize->18] }, Open ]], 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["Adaptive Refinement", "Section", CellChangeTimes->{{3.401052438791266*^9, 3.4010524435652657`*^9}}], Cell[TextData[{ "One of the basic changes for function based visualization functions is the \ use of adaptive refinement. This is a major improvement over the previous \ versions. It is possible to reduce the number of function evaluations by \ using lower values of ", Cell[BoxData[ ButtonBox["PlotPoints", BaseStyle->"Link", ButtonData->"paclet:ref/PlotPoints"]], "InlineFormula"], ", and still get smooth graphs and surfaces." }], "Text", CellChangeTimes->{{3.391948158450585*^9, 3.391948335294335*^9}, 3.39201937513797*^9, 3.39308333653125*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"1", "/", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Mesh", "->", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.3995132869517965`*^9, 3.399513287351797*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "u", "]"}], ",", RowBox[{"Sin", "[", "v", "]"}], ",", RowBox[{"Sin", "[", RowBox[{"u", "+", "v"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.4010524996362658`*^9, 3.4010525184442663`*^9}}], Cell[TextData[{ "This is another example, in this case for ", Cell[BoxData[ ButtonBox["ParametricPlot3D", BaseStyle->"Link", ButtonData->"paclet:ref/ParametricPlot3D"]], "InlineFormula"], ", that demonstrates how the adaptivity helps to reduce the number of \ function evaluations." }], "Text", CellChangeTimes->{{3.39194870068496*^9, 3.39194875334121*^9}, 3.3930570089453297`*^9, 3.393083473328125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"r", ",", "KleinBottle"}], "]"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "[", "u_", "]"}], ":=", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Cos", "[", "u", "]"}], "2"]}], ")"}]}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KleinBottle", "[", RowBox[{ RowBox[{"u_", "/;", RowBox[{"u", "\[LessEqual]", "\[Pi]"}]}], ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", RowBox[{"Cos", "[", "u", "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sin", "[", "u", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"r", "[", "u", "]"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{ RowBox[{"16", RowBox[{"Sin", "[", "u", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "u", "]"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{ RowBox[{"r", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"KleinBottle", "[", RowBox[{ RowBox[{"u_", "/;", RowBox[{"u", ">", "\[Pi]"}]}], ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", RowBox[{"Cos", "[", "u", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sin", "[", "u", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Cos", "[", RowBox[{"v", "+", "\[Pi]"}], "]"}]}]}], ",", RowBox[{"16", " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"kbtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"KleinBottle", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "8"}], ",", RowBox[{"-", "15"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "5"}], ",", " ", RowBox[{"MaxRecursion", "\[Rule]", "rr"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Yellow"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"220", ",", "Automatic"}], "}"}]}], ",", RowBox[{"Evaluate", "@", "SemStyle1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"rr", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"Partition", "[", RowBox[{"kbtable", ",", "2"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.36896293116741*^9, 3.36896293233909*^9}, 3.36896459952639*^9, 3.369526789874685*^9, {3.3919274011409826`*^9, 3.391927464702379*^9}, {3.401052885073266*^9, 3.401052925467266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Computational Mesh and Visual Mesh", "Section", CellChangeTimes->{3.4010525605252657`*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"$PerformanceGoal", "=", "\"\\""}], ",", RowBox[{"vpt", "=", RowBox[{"ViewPoint", "\[Rule]", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "Infinity"}], "}"}]}]}], ",", "p1", ",", "p2"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "+", " ", RowBox[{"Cos", "[", "y", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", " ", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "None"}], ",", RowBox[{"MaxRecursion", "\[Rule]", " ", "n"}]}], "]"}], ",", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "+", " ", RowBox[{"Cos", "[", "y", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "None"}], ",", RowBox[{"MaxRecursion", "\[Rule]", " ", "n"}]}], "]"}]}], "}"}]}], ";", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"p1", ",", "vpt"}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"p2", ",", "vpt"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "450"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Range", "[", RowBox[{"0", ",", "4"}], "]"}]}], "}"}]}], "]"}]], "Input"], 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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Analytic Region Plotting", "Section", CellChangeTimes->{{3.401052954533266*^9, 3.401052967396266*^9}}], Cell[TextData[{ Cell[BoxData[ ButtonBox["RegionPlot", BaseStyle->"Link", ButtonData->"paclet:ref/RegionPlot"]], "InlineFormula", FontSize->16], StyleBox[" is used to visualize regions defined by boolean functions. \ Adaptivity is used consistently as with all the other visualization \ functions.", FontSize->16] }], "Text", CellChangeTimes->{{3.39194888999746*^9, 3.39194907784121*^9}, { 3.392019520326683*^9, 3.3920195207201433`*^9}, 3.393083496890625*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"pstyle", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tt1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RegionPlot", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Ceiling", "[", "x", "]"}], "+", RowBox[{"Ceiling", "[", "y", "]"}]}], ",", "2"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "rr"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Evaluate", "@", RowBox[{"Sequence", "[", "pstyle", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"rr", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tt2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"RegionPlot", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", FractionBox["1", "2"]}], ")"}], "2"], "+", SuperscriptBox["y", "2"]}], "\[LessEqual]", "1"}], "\[Xor]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", FractionBox["1", "2"]}], ")"}], "2"], "+", SuperscriptBox["y", "2"]}], "\[LessEqual]", "1"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.61"}], ",", "1.6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1.015"}], ",", "1"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "9"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "rr"}], ",", RowBox[{"Evaluate", "@", RowBox[{"Sequence", "[", "pstyle", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"rr", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tt3", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"RegionPlot", "[", RowBox[{ RowBox[{ RowBox[{"Im", "[", RowBox[{"ChebyshevT", "[", RowBox[{"12", ",", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}]}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "rr"}], ",", RowBox[{"PlotPoints", "\[Rule]", "26"}], ",", RowBox[{"Evaluate", "@", RowBox[{"Sequence", "[", "pstyle", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"rr", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"tt1", ",", "tt2", ",", "tt3"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"750", ",", "Automatic"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.36896305728876*^9, 3.36896306122442*^9}, { 3.36896461640065*^9, 3.36896462933926*^9}, {3.391927502797157*^9, 3.391927522245122*^9}, {3.401053026414266*^9, 3.4010531476022663`*^9}, { 3.401053181895266*^9, 3.401053273756266*^9}, {3.401053342630266*^9, 3.4010533566422663`*^9}, {3.4010556409732656`*^9, 3.4010556417092657`*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Adaptive Contouring", "Section", CellChangeTimes->{3.401053397122266*^9}], Cell[TextData[{ "For ", Cell[BoxData[ ButtonBox["ContourPlot", BaseStyle->"Link", ButtonData->"paclet:ref/ContourPlot"]], "InlineFormula"], ", the adaptivity is based on the contour lines in addition to the function \ itself." }], "Text", CellChangeTimes->{{3.39194950396621*^9, 3.391949544169335*^9}, 3.393083519890625*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"Arg", "[", RowBox[{"Tanh", "[", FractionBox["1", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}]], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", FractionBox["1", "4"]}], ",", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "rr"}], ",", RowBox[{"PlotPoints", "\[Rule]", "15"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Contours", "\[Rule]", "5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"rr", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"t2", "=", RowBox[{"{", RowBox[{ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", FractionBox["1", "4"]}], ",", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Contours", "\[Rule]", "5"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", FractionBox["1", "4"]}], ",", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"#1", "&"}], ",", RowBox[{"#2", "&"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "6"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Contours", "\[Rule]", "5"}]}], "]"}]}], "}"}]}], ";"}], "\n", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"t1", ",", "t2"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"550", ",", "Automatic"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{ 3.39194913577871*^9, 3.401053424934266*^9, {3.401055678902266*^9, 3.401055703277266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Implicit Surfaces Based on an Adaptive Octree", "Section", CellChangeTimes->{3.401053504200266*^9}], Cell[TextData[{ "For ", Cell[BoxData[ ButtonBox["ContourPlot3D", BaseStyle->"Link", ButtonData->"paclet:ref/ContourPlot3D"]], "InlineFormula"], ", we use adaptivity based on cubic cells." }], "Text", CellChangeTimes->{{3.39194958109121*^9, 3.391949604794335*^9}, { 3.391953264013085*^9, 3.391953270356835*^9}, 3.392019706227852*^9, 3.39308354715625*^9}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"x", ",", "y", ",", "z", ",", "pp1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pp1", "=", FormBox[ RowBox[{ RowBox[{"16", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"48", " ", "y", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"24", " ", "z", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"48", " ", SuperscriptBox["y", "2"], " ", "x"}], "+", RowBox[{"16", " ", SuperscriptBox["y", "3"]}], "-", RowBox[{"31", " ", SuperscriptBox["z", "3"]}], "-", RowBox[{"93.5307", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["y", "2"], " ", "z"}], "-", RowBox[{"72", " ", "z"}]}], TraditionalForm]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pstyle", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"ImageSize", "\[Rule]", "250"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"pp1", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2.3"}], ",", "2"}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"Method", "\[Rule]", "\"\\""}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "5"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "r"}], ",", RowBox[{"Evaluate", "@", RowBox[{"Sequence", "[", "pstyle", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "2"}], "}"}]}], "]"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.36896371835933*^9, 3.36896372162403*^9}, { 3.36896473203693*^9, 3.36896473905702*^9}, {3.36896477173401*^9, 3.36896477739215*^9}, 3.369526928383851*^9, {3.369611725670376*^9, 3.369611725840621*^9}, {3.401053577156266*^9, 3.401053627388266*^9}}], Cell[BoxData[ RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"pp1", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2.3"}], ",", "2"}], "}"}], ",", RowBox[{"Evaluate", "@", RowBox[{"Sequence", "[", "pstyle", "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "#"}]}], "]"}], "&"}], " ", "/@", " ", RowBox[{"{", RowBox[{"All", ",", "None", ",", "8"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.3689639812173*^9, 3.36896399021024*^9}, { 3.36896480713492*^9, 3.36896482121516*^9}, {3.3919278386901474`*^9, 3.3919278440077934`*^9}, {3.401053551730266*^9, 3.401053557421266*^9}, { 3.401053656342266*^9, 3.401053800828266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Performance Goal", "Section", CellChangeTimes->{{3.4010538554582663`*^9, 3.401053858637266*^9}}], Cell[TextData[{ Cell[BoxData[ ButtonBox["Manipulate", BaseStyle->"Link", ButtonData->"paclet:ref/Manipulate"]], "InlineFormula"], " makes extensive use of an automatic feature of the plotting functions, \ that is, ", Cell[BoxData[ ButtonBox["PerformanceGoal", BaseStyle->"Link", ButtonData->"paclet:ref/PerformancecGoal"]], "InlineFormula"], ". During the dragging of sliders, ", Cell[BoxData[ ButtonBox["Manipulate", BaseStyle->"Link", ButtonData->"paclet:ref/Manipulate"]], "InlineFormula"], " uses a \"Speed\" mode which will lower the quality requirements of the \ plot. This allows for faster refresh at the expense of generating low quality \ plots. It is possible to force a \"Quality\" mode or even a \"Speed\" mode \ explicitly." }], "Text", CellChangeTimes->{{3.391953678794335*^9, 3.39195371552871*^9}, { 3.3930530132388926`*^9, 3.3930531811903954`*^9}, {3.3930532596432047`*^9, 3.393053293151387*^9}, {3.393083580046875*^9, 3.393083598796875*^9}, { 3.3931040903468833`*^9, 3.3931040903468833`*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "*", RowBox[{"(", RowBox[{"3", " ", "+", " ", RowBox[{"aa", "*", RowBox[{"Cos", "[", "u", "]"}]}]}], ")"}]}], ",", " ", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "*", RowBox[{"(", RowBox[{"3", " ", "+", " ", RowBox[{"aa", "*", RowBox[{"Cos", "[", "u", "]"}]}]}], ")"}]}], ",", " ", RowBox[{"bb", "*", RowBox[{"Sin", "[", "u", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "cc"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"u", ",", " ", "0", ",", " ", RowBox[{"2", "*", "Pi"}]}], "}"}], ",", " ", RowBox[{"Mesh", " ", "->", " ", "mm"}], ",", " ", RowBox[{"PerformanceGoal", "\[Rule]", "pg"}], ",", RowBox[{"PlotRange", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.5"}], ",", " ", "5.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5"}], ",", " ", "5.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", " ", "2.5"}], "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"mm", ",", "None", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"None", ",", "All"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pg", ",", "Automatic", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", " ", RowBox[{"15", "/", "8"}]}], "}"}], ",", " ", RowBox[{"1", "/", "4"}], ",", " ", RowBox[{"5", "/", "2"}], ",", RowBox[{"1", "/", "16"}], ",", RowBox[{"Appearance", "->", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"bb", ",", " ", RowBox[{"3", "/", "4"}]}], "}"}], ",", " ", RowBox[{"1", "/", "4"}], ",", " ", RowBox[{"5", "/", "2"}], ",", RowBox[{"1", "/", "16"}], ",", RowBox[{"Appearance", "->", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"cc", ",", " ", RowBox[{"3", "*", RowBox[{"(", RowBox[{"Pi", "/", "2"}], ")"}]}]}], "}"}], ",", " ", "Pi", ",", " ", RowBox[{"2", "*", "Pi"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.36896522568676*^9, 3.36896530392927*^9}, { 3.3689653353845*^9, 3.36896534470791*^9}, {3.369611785075797*^9, 3.3696117938884687`*^9}, 3.369612064898162*^9, 3.391927900118477*^9, { 3.391927952443717*^9, 3.391927977439659*^9}, {3.391928021623192*^9, 3.3919280990745616`*^9}, {3.391953405231835*^9, 3.39195360337246*^9}, { 3.392019979671775*^9, 3.392020014379366*^9}, {3.3930525809272594`*^9, 3.39305268548761*^9}, {3.393052751372347*^9, 3.393052758632787*^9}, { 3.393052790168133*^9, 3.3930529531725216`*^9}, 3.3930572934967337`*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Arbitrary Mesh Functions over harmonic Functions", "Section", CellChangeTimes->{{3.4010539327862663`*^9, 3.4010539573922663`*^9}}], Cell[TextData[{ "The use of ", Cell[BoxData[ ButtonBox["MeshFunctions", BaseStyle->"Link", ButtonData->"paclet:ref/MeshFunctions"]], "InlineFormula"], " help to understand properties of the functions." }], "Text", CellChangeTimes->{{3.39195372768496*^9, 3.391953773263085*^9}, 3.393083695109375*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", FractionBox[ RowBox[{"2", " ", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{"2", " ", "x", " ", "y", " ", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], SuperscriptBox["y", "2"]]]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}]}], ")"}], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}]], "]"}]}], "\[Pi]"]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", " ", "y"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "\[Equal]", "1"}]}], "}"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#1", "^", "2"}], "+", RowBox[{"#2", "^", "2"}]}], ")"}], "&"}], ",", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"#1", "/", "#2"}], "]"}], "&"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"8", ",", "12"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Opacity", "[", ".3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", ".3", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "40"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}]}], "}"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.5"}], "}"}]}], ",", RowBox[{"NormalsFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "480"}], "}"}]}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "Input", CellChangeTimes->{{3.36308823178125*^9, 3.36308842825*^9}, 3.3630884656875*^9, {3.36308851435938*^9, 3.36308851492188*^9}, { 3.36308920057813*^9, 3.36308920453125*^9}, {3.36896581070798*^9, 3.36896581393262*^9}, 3.36896593272343*^9, {3.36896600372553*^9, 3.36896602515634*^9}, {3.36896607256451*^9, 3.36896607392647*^9}, { 3.3689661761034*^9, 3.36896622799802*^9}, {3.36896627596699*^9, 3.36896628458939*^9}, {3.3689663206913*^9, 3.36896643273241*^9}, 3.36896650527672*^9, {3.3919281651395583`*^9, 3.391928166882064*^9}, { 3.391928198307251*^9, 3.391928199148461*^9}}], Cell[TextData[{ "This example constructs the ", Cell[BoxData[ ButtonBox["MeshFunction", BaseStyle->"Link", ButtonData->"paclet:ref/MeshFunction"]], "InlineFormula"], " as the Gaussian curvature of a given function." }], "Text", CellChangeTimes->{{3.39195389890371*^9, 3.391953926575585*^9}, { 3.393083719484375*^9, 3.393083723125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"tt", ",", "x", ",", "y", ",", "z", ",", "t", ",", "K"}], "]"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", "7.5"}], ";"}], "\n", RowBox[{ RowBox[{"tt", "=", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"Cos", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["y", "2"], " ", RowBox[{"Cos", "[", "y", "]"}]}], "+", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"Cos", "[", "z", "]"}]}], "+", FractionBox[ RowBox[{ RowBox[{"37", " ", RowBox[{"Cos", "[", FractionBox["t", "5"], "]"}]}], "+", "33"}], "2."]}]}], ";"}], "\n", RowBox[{ RowBox[{"K", "[", RowBox[{"x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ", "=", " ", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "tt"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "tt"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "tt"}]}]}], ")"}], "^", "2"}]}], ")"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "z"], "tt"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "z"], "tt"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "tt"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "tt"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "tt"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"z", ",", "z"}]], "tt"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "z"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "z"}]], "tt"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "tt"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "z"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "tt"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "z"}]], "tt"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "tt"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "z"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "tt"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "z"}]], "tt"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "tt"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"z", ",", "z"}]], "tt"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "z"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "z"}]], "tt"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "tt"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"z", ",", "z"}]], "tt"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "z"}]], "tt"}], " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "z"}]], "tt"}]}]}], ")"}]}]}], "]"}]}], ")"}]}]}]}], "Input", CellChangeTimes->{ 3.36295404839063*^9, 3.36295412154688*^9, {3.36308589892188*^9, 3.363086000125*^9}, {3.36896675373399*^9, 3.36896675398435*^9}}], Cell[BoxData[ RowBox[{"ContourPlot3D", "[", RowBox[{"tt", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "40"}], ",", RowBox[{"Contours", "\[Rule]", RowBox[{"{", "0.0", "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "6"}], ",", RowBox[{"MeshStyle", "\[Rule]", "Black"}], ",", RowBox[{"MeshFunctions", "\[Rule]", StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"K", "[", RowBox[{"#1", ",", "#2", ",", "#3"}], "]"}], "&"}], ")"}], FontColor->RGBColor[0, 0, 1]]}], ",", RowBox[{"MeshShading", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "t", ",", "0"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1", ",", "0.17"}], "}"}]}], "]"}]}], ",", RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "480"}], "}"}]}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}]}], "]"}]], "Input", CellChangeTimes->{{3.401054016171266*^9, 3.401054152744266*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"r", ",", "KleinBottle"}], "]"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"r", "[", "u_", "]"}], ":=", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Cos", "[", "u", "]"}], "2"]}], ")"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"KleinBottle", "[", RowBox[{ RowBox[{"u_", "/;", RowBox[{"u", "\[LessEqual]", "\[Pi]"}]}], ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", RowBox[{"Cos", "[", "u", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sin", "[", "u", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Cos", "[", "u", "]"}], " ", RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{ RowBox[{"16", " ", RowBox[{"Sin", "[", "u", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Sin", "[", "u", "]"}], " ", RowBox[{"Cos", "[", "v", "]"}]}]}], ",", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}], "\n", RowBox[{ RowBox[{"KleinBottle", "[", RowBox[{ RowBox[{"u_", "/;", RowBox[{"u", ">", "\[Pi]"}]}], ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", RowBox[{"Cos", "[", "u", "]"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sin", "[", "u", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Cos", "[", RowBox[{"v", "+", "\[Pi]"}], "]"}]}]}], ",", RowBox[{"16", " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"r", "[", "u", "]"}], " ", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}]}], "Input", CellChangeTimes->{3.36308602859375*^9}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"KleinBottle", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "8"}], ",", RowBox[{"-", "15"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"55", ",", "30"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "480"}], "}"}]}], ",", RowBox[{"MeshShading", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Orange", ",", "None", ",", "Blue", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", "Pink", ",", "Yellow", ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Evaluate", "@", "SemStyle1"}]}], "]"}]], "Input", CellChangeTimes->{{3.36896684725847*^9, 3.36896698718968*^9}, { 3.39192826367124*^9, 3.3919282865140867`*^9}, {3.39195408284121*^9, 3.39195411577871*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Working Precision", "Section", CellChangeTimes->{{3.401054218415266*^9, 3.401054223614266*^9}}], Cell["\<\ By default all functions evaluations are performed using machine precision. \ This will produce an incorrect plot for large numbers.\ \>", "Text", CellChangeTimes->{{3.391954813575585*^9, 3.391954858200585*^9}, 3.391956591013085*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"2", "^", "50"}], "+", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.369612223335984*^9, 3.369612227942608*^9}, { 3.369612275080389*^9, 3.369612277003154*^9}, 3.391928316236826*^9, { 3.401054305667266*^9, 3.4010543058262663`*^9}}], Cell[TextData[{ StyleBox["This shows how to specify a given precision by using the ", FontSize->18], Cell[BoxData[ ButtonBox["WorkingPrecision", BaseStyle->"Link", ButtonData->"paclet:ref/WorkingPrecision"]], "InlineFormula", FontSize->18], StyleBox[" option.", FontSize->18] }], "MathCaption", CellChangeTimes->{{3.39195486949746*^9, 3.39195489834121*^9}, 3.393083776203125*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"2", "^", "50"}], "+", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "10"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.369612230856798*^9, 3.3696122370657263`*^9}, 3.3919283217447453`*^9, {3.4010543096432657`*^9, 3.4010543097822657`*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Irregularities Removal", "Section", CellChangeTimes->{{3.401054346748266*^9, 3.4010543536282663`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Not real valued. The visualization functions in ", FontSize->18], StyleBox["Mathematica", FontSize->18, FontSlant->"Italic"], StyleBox[" are defined to visualize real valued functions only. Hence if a \ function becomes complex (or other) valued at some point we exclude those \ values. With the adaptive sampling scheme we will usually get fairly close to \ the real valued barrier. ", FontSize->18] }], "Item", CellChangeTimes->{3.39308378934375*^9}], Cell[TextData[{ StyleBox["There are many types of non-real values including: ", FontSize->18], Cell[BoxData[ ButtonBox["Complex", BaseStyle->"Link", ButtonData->"paclet:ref/Complex"]], "InlineFormula", FontSize->18], StyleBox[", DirectedInfinity[c], Underflow[], Overflow[], Null etc. But \ literally anything can be returned. ", FontSize->18] }], "Item", CellChangeTimes->{{3.393083791453125*^9, 3.39308381128125*^9}}] }, Open ]], Cell["Example of complex valued function.", "Text"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"]}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.369612324751813*^9, 3.3696123262239294`*^9}, 3.3919283305874605`*^9, {3.401054384546266*^9, 3.401054404457266*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ SqrtBox[ RowBox[{"x", " ", "y"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ SqrtBox[ RowBox[{"64", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.3696123486561856`*^9, 3.369612349046747*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Automatic Processing of Piecewise Functions", "Section", CellChangeTimes->{{3.4010544522352657`*^9, 3.4010544639252663`*^9}}], Cell[BoxData[ RowBox[{"CompareDensityPlot", "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Boole", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{ SuperscriptBox["y", "2"], " ", RowBox[{"Boole", "[", RowBox[{"y", ">", "0"}], "]"}]}]}], "<", "1"}], "]"}]], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.3689676464877*^9, 3.36896765658222*^9}, { 3.3919285547898483`*^9, 3.391928564173341*^9}, 3.39195470927871*^9, 3.3920482932532797`*^9}], Cell[BoxData[ RowBox[{"CompareDensityPlot", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", " ", "y"}], "]"}], " ", RowBox[{"Boole", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "\[LessEqual]", SuperscriptBox["2", "2"]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.36896767758242*^9, 3.391928662264389*^9, {3.391954787231835*^9, 3.391954787388085*^9}, 3.3920482932532797`*^9}], Cell[BoxData[ RowBox[{ StyleBox["CompareDensityPlot", FontFamily->"Courier"], StyleBox["[", FontFamily->"Courier"], RowBox[{ StyleBox[ FormBox[ RowBox[{ SqrtBox[ RowBox[{"Abs", "[", RowBox[{"y", "-", SuperscriptBox["x", "2"]}], "]"}]], " ", RowBox[{"Boole", "[", RowBox[{ SuperscriptBox["x", "2"], "\[LessEqual]", "y", "<", "4"}], "]"}]}], TraditionalForm], FontFamily->"Courier"], StyleBox[",", FontFamily->"Courier"], StyleBox[" ", FontFamily->"Courier"], StyleBox[ RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "5"}], ",", " ", "5"}], "}"}], FontFamily->"Courier"], StyleBox[",", FontFamily->"Courier"], StyleBox[" ", FontFamily->"Courier"], StyleBox[ RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "2"}], ",", " ", "7"}], "}"}], FontFamily->"Courier"], StyleBox[",", FontFamily->"Courier"], RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], StyleBox["]", FontFamily->"Courier"]}]], "Input", CellChangeTimes->{{3.36242358604838*^9, 3.36242364253961*^9}, { 3.36242388176359*^9, 3.36242388506835*^9}, {3.36294472907813*^9, 3.36294474309375*^9}, {3.36294506239063*^9, 3.36294507145313*^9}, { 3.36896770223787*^9, 3.36896771458562*^9}, 3.391928665929659*^9, { 3.39195479318496*^9, 3.39195479334121*^9}, 3.3920482932532797`*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Exclusions", "Section", CellChangeTimes->{{3.401054511896266*^9, 3.401054515777266*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Im", "[", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Cos", "[", "y", "]"}], "+", RowBox[{"I", " ", RowBox[{"Sin", "[", "x", "]"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", "Orange"}], ",", RowBox[{"Exclusions", "->", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.36887619342466*^9, 3.36887619784101*^9}, { 3.36948372317191*^9, 3.36948372353243*^9}, {3.3694837577316*^9, 3.36948375832245*^9}, {3.36948774826204*^9, 3.36948775640375*^9}, { 3.369612825451784*^9, 3.3696128312501216`*^9}, {3.3919286858983727`*^9, 3.391928696653838*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSize->18, FontSlant->"Italic"], StyleBox[" can automatically detect many cases of jumps and \ discontinuities.", FontSize->18] }], "MathCaption", CellChangeTimes->{{3.39195524443496*^9, 3.39195532865371*^9}, 3.393083870390625*^9}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Im", "[", SqrtBox[ RowBox[{ RowBox[{"Cos", "[", "y", "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", "x", "]"}]}]}]], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.36887619342466*^9, 3.36887619784101*^9}, { 3.3688762293363*^9, 3.36887623799875*^9}, {3.36948372756823*^9, 3.36948372791873*^9}, {3.36948376409075*^9, 3.36948376436114*^9}, { 3.3694877604696*^9, 3.36948776705907*^9}, {3.3696128354461555`*^9, 3.369612840293125*^9}, 3.391928702101672*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Exclusions as Level Sets", "Section", CellChangeTimes->{{3.4010545794042664`*^9, 3.401054585026266*^9}}], Cell["\<\ An exclusion is a region around a point or curve on which the function \ presents jumps.\ \>", "Text", CellChangeTimes->{{3.391955371669335*^9, 3.391955434481835*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"DensityPlot", "[", RowBox[{ FormBox[ RowBox[{"Im", "(", SqrtBox[ RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}]], ")"}], TraditionalForm], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"ColorFunction", "->", "\"\\""}], ",", RowBox[{"ExclusionsStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "None"}], "}"}]}], ",", RowBox[{"Mesh", "->", "All"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"MaxRecursion", "->", "0"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}], ",", RowBox[{"Offset", "\[Rule]", "offset"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"offset", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "0.", ",", "0.05", ",", "0.1", ",", "0.15", ",", "0.2", ",", "0.25", ",", "0.3"}], "}"}], ",", RowBox[{"ControlType", "->", "PopupMenu"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.36948897190155*^9, 3.36948897752965*^9}, { 3.36948901036686*^9, 3.36948906354333*^9}, {3.3696130766730223`*^9, 3.3696130850650897`*^9}, 3.39192872141945*^9, {3.39195544555996*^9, 3.391955491575585*^9}, {3.401055902054266*^9, 3.401055902441266*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ FormBox[ RowBox[{"Im", "(", SqrtBox[ RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}]], ")"}], TraditionalForm], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ColorFunction", "->", "\"\\""}], ",", RowBox[{"ExclusionsStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "None"}], "}"}]}], ",", RowBox[{"Mesh", "->", "All"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"MaxRecursion", "->", "0"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}], ",", RowBox[{"Offset", "\[Rule]", "offset"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"offset", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "0.", ",", "0.05", ",", "0.1", ",", "0.15", ",", "0.2", ",", "0.25", ",", "0.3"}], "}"}], ",", RowBox[{"ControlType", "->", "PopupMenu"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.36948924722745*^9, 3.36948924912017*^9}, { 3.3696131204960365`*^9, 3.3696131266248493`*^9}, 3.391928749139309*^9, { 3.391955510919335*^9, 3.39195555293496*^9}, {3.401055909883266*^9, 3.401055910313266*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"DensityPlot", "[", RowBox[{ FormBox[ RowBox[{"Im", "(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["z", "10"]}], "+", RowBox[{"4", " ", SuperscriptBox["z", "9"]}], "+", RowBox[{"4", " ", SuperscriptBox["z", "8"]}], "+", RowBox[{"6", " ", SuperscriptBox["z", "7"]}], "-", RowBox[{"7", " ", SuperscriptBox["z", "6"]}], "+", RowBox[{"7", " ", SuperscriptBox["z", "5"]}], "+", RowBox[{"5", " ", SuperscriptBox["z", "4"]}], "+", SuperscriptBox["z", "3"], "+", RowBox[{"6", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"4", " ", "z"}], "-", "5"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "7"}], ")"}]}], "/.", "\[InvisibleSpace]", RowBox[{"z", "\[Rule]", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}]}]}], ")"}], TraditionalForm], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ColorFunction", "->", "\"\\""}], ",", RowBox[{"ExclusionsStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"Evaluated", "\[Rule]", "True"}], ",", RowBox[{"Mesh", "->", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"MaxRecursion", "->", "1"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}], ",", RowBox[{"Offset", "\[Rule]", "offset"}], ",", RowBox[{"TimeConstraint", "\[Rule]", "10"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"offset", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "0.", ",", "0.02", ",", "0.04", ",", "0.06", ",", "0.1", ",", "0.15", ",", "0.2"}], "}"}], ",", RowBox[{"ControlType", "->", "PopupMenu"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.36948948839423*^9, 3.36948952242316*^9}, { 3.3696132296229534`*^9, 3.3696132445243807`*^9}, {3.3696133097381535`*^9, 3.369613316567974*^9}, {3.3696134829872737`*^9, 3.369613487593898*^9}, 3.3919287929222655`*^9, {3.39195564505996*^9, 3.391955700888085*^9}, { 3.39195573777871*^9, 3.39195575318496*^9}, {3.4010559169042664`*^9, 3.401055917355266*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ FormBox[ RowBox[{"Im", "(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["z", "10"]}], "+", RowBox[{"4", " ", SuperscriptBox["z", "9"]}], "+", RowBox[{"4", " ", SuperscriptBox["z", "8"]}], "+", RowBox[{"6", " ", SuperscriptBox["z", "7"]}], "-", RowBox[{"7", " ", SuperscriptBox["z", "6"]}], "+", RowBox[{"7", " ", SuperscriptBox["z", "5"]}], "+", RowBox[{"5", " ", SuperscriptBox["z", "4"]}], "+", SuperscriptBox["z", "3"], "+", RowBox[{"6", " ", SuperscriptBox["z", "2"]}], "+", RowBox[{"4", " ", "z"}], "-", "5"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "7"}], ")"}]}], "/.", "\[InvisibleSpace]", RowBox[{"z", "\[Rule]", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}]}]}], ")"}], TraditionalForm], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"ColorFunction", "->", "\"\\""}], ",", RowBox[{"Mesh", "->", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"MaxRecursion", "->", "2"}], ",", RowBox[{"Evaluated", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.36948959274428*^9, 3.36948966178355*^9}, { 3.3696133787173405`*^9, 3.3696133901037135`*^9}, {3.3696134610557375`*^9, 3.3696134665436287`*^9}, {3.369613602619296*^9, 3.369613627304792*^9}, { 3.3696136632965455`*^9, 3.3696136714282384`*^9}, {3.3919288981235375`*^9, 3.3919289284771843`*^9}, {3.4010559249662657`*^9, 3.401055925321266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Algebraic Surfaces", "Section", CellChangeTimes->{{3.401054697309266*^9, 3.4010547014522657`*^9}}], Cell[TextData[{ Cell[BoxData[ ButtonBox["ContourPlot3D", BaseStyle->"Link", ButtonData->"paclet:ref/ContourPlot3D"]], "InlineFormula"], " can detect all the singular points for algebraic surfaces." }], "Text", CellChangeTimes->{{3.391956233325585*^9, 3.39195626937246*^9}, 3.39308404153125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ContourPlot3D", ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"GrayLevel", "[", "0.85", "]"}]}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.39195609943496*^9, 3.391956101763085*^9}}], Cell[BoxData[ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"z", "^", "4"}]}]}], "\[Equal]", "0.0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1.001"}], "}"}], ",", RowBox[{"RegionFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#1", "^", "2"}], "+", RowBox[{"#2", "^", "2"}]}], "<", "1"}], "&"}], ")"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "33"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "4"}], ",", RowBox[{"ContourStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0.15", ",", "0.45", ",", "0.94"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.369579608341607*^9, 3.369579620935437*^9}, { 3.3696143719855905`*^9, 3.369614397161792*^9}, {3.39195629524746*^9, 3.39195629540371*^9}, {3.401055938580266*^9, 3.4010559415772657`*^9}}], Cell[BoxData[ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"4", " ", RowBox[{"x", "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}]}], "-", RowBox[{ RowBox[{"y", "^", "2"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"y", "^", "2"}], "-", RowBox[{"z", "^", "2"}]}], ")"}]}]}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1.001"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1.02"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "33"}], ",", RowBox[{"Mesh", "\[Rule]", "1"}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"#2", "&"}], "}"}]}], ",", RowBox[{"MaxRecursion", "\[Rule]", "4"}], ",", RowBox[{"MeshShading", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0.15", ",", "0.45", ",", "0.94"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0.94`", ",", "0.90", ",", "0.16"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.369579645138717*^9, 3.3695796551075315`*^9}, { 3.369614425502544*^9, 3.3696144329132*^9}, {3.39195630574746*^9, 3.39195630590371*^9}}], Cell[BoxData[ RowBox[{"ContourPlot3D", "[", RowBox[{ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "-", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "4"], "+", SuperscriptBox["z", "4"], "-", SuperscriptBox["y", "2"], "-", SuperscriptBox["z", "2"], "+", "0.5"}], "\[LongEqual]", "0"}], TraditionalForm], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "33"}], ",", RowBox[{"ContourStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}], ",", "Blue"}], "}"}]}], ",", RowBox[{"Lighting", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"White", ",", RowBox[{"ImageScaled", "[", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"ImageScaled", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.36313446584375*^9, 3.36313447673438*^9}, 3.36313830315625*^9, 3.363139212375*^9, 3.36313926435938*^9, { 3.3695791720069623`*^9, 3.3695792082546425`*^9}, {3.3695792680325193`*^9, 3.369579306094532*^9}, {3.3919292371209917`*^9, 3.3919292688566256`*^9}, { 3.4010547419372663`*^9, 3.401054742686266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Surface Surface Intersections", "Section", CellChangeTimes->{{3.40111823385*^9, 3.4011182395690002`*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ",", RowBox[{"x", "+", RowBox[{"r", " ", "y"}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "2"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "Red"}], ",", RowBox[{"2", "\[Rule]", "Yellow"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue"}], "}"}]}]}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotPoints", "\[Rule]", "15"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "10"}], "}"}], ",", "10", ",", "30", ",", "0.25"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "5"}], "}"}], ",", RowBox[{"-", "20"}], ",", "20", ",", "0.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.401118366034*^9, 3.401118399241*^9}, {3.401118431455*^9, 3.4011184888380003`*^9}, {3.401118524829*^9, 3.401118658351*^9}, { 3.401118715303*^9, 3.401118720209*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "+", "y", "+", "a"}], ",", RowBox[{"Im", "[", RowBox[{"Sqrt", "[", RowBox[{"x", "+", RowBox[{"y", " ", "I"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PerformanceGoal", "->", "\"\\""}], ",", RowBox[{"ClippingStyle", "\[Rule]", "Yellow"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Green", ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue"}], "}"}]}]}], "}"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1.2"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0"}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", "0.1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.401118758476*^9, 3.401118796925*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}], " ", "+", " ", RowBox[{"z", "^", "2"}]}], " ", "\[Equal]", " ", "r"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "3"}]}], " ", "\[Equal]", " ", RowBox[{"z", "^", "2"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "2"}], ",", " ", "\n", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"z", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"Mesh", " ", "\[Rule]", " ", "None"}], ",", " ", "\n", " ", RowBox[{"ContourStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", " ", "Yellow"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"BoundaryStyle", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[Rule]", " ", "None"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}], " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"Tube", "[", "0.12", "]"}], ",", " ", "Blue"}], "}"}]}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "2"}], "}"}], ",", "0.1", ",", "3", ",", "0.1"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input"], 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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Data Visualization", "Section", CellChangeTimes->{{3.401054817416266*^9, 3.401054820435266*^9}}], Cell["\<\ Several of the data based visualization functions support interpolation.\ \>", "Text", CellChangeTimes->{{3.39195636196621*^9, 3.391956426544335*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"N", "[", RowBox[{"5", "-", RowBox[{"Log", "[", RowBox[{"x", "+", "1"}], "]"}]}], "]"}], "+", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{"x", ",", "3"}], "]"}], "==", "0"}], "]"}], RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "35", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data1i", "=", RowBox[{"Interpolation", "[", RowBox[{"data1", ",", RowBox[{"InterpolationOrder", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.369484160671*^9, 3.36948417101588*^9}, { 3.3696149790284753`*^9, 3.3696149832845955`*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"data1i", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", RowBox[{"Length", "[", "data1", "]"}]}], "}"}], ",", RowBox[{"PlotLabel", "->", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Black"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"Range", "[", RowBox[{"Length", "[", "data1", "]"}], "]"}], "}"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"#1", "&"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.36948418205175*^9, 3.3694842230507*^9}, { 3.3694842702686*^9, 3.36948427561628*^9}, {3.36948435968717*^9, 3.36948441500672*^9}, {3.401054876350266*^9, 3.401054876549266*^9}}], Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"ListLinePlot", "[", RowBox[{"data1", " ", ",", RowBox[{"InterpolationOrder", "->", "n"}], ",", RowBox[{"ImageSize", "->", "300"}], ",", RowBox[{"Mesh", "->", "Full"}], ",", RowBox[{"MeshStyle", "->", RowBox[{"{", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "->", "900"}]}], "]"}]], "Input", CellChangeTimes->{{3.36948442728437*^9, 3.36948447572403*^9}, { 3.36948450619784*^9, 3.36948462070249*^9}, {3.369526357653181*^9, 3.369526410789587*^9}, {3.369526488351115*^9, 3.369526557290245*^9}, { 3.3695266030961103`*^9, 3.3695266679894223`*^9}, {3.3696150115552464`*^9, 3.3696150117755632`*^9}, {3.392044447948099*^9, 3.392044461197935*^9}, { 3.3920445145025387`*^9, 3.392044519781364*^9}, {3.3920484096126547`*^9, 3.3920484692532797`*^9}, {3.401054884289266*^9, 3.401054884443266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Irregular Data", "Section", CellChangeTimes->{{3.401054952844266*^9, 3.401054956434266*^9}}], Cell["\<\ It is possible to plot irregular data as easily as regular data.\ \>", "Text", CellChangeTimes->{{3.391950490950585*^9, 3.391950528169335*^9}}], Cell[BoxData[ RowBox[{"ReliefPlot", "[", RowBox[{"Helen", ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0.6"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.36948684005611*^9, 3.3694868545169*^9}, { 3.369615231791931*^9, 3.369615261084051*^9}, 3.3919294854881268`*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ListPlot3D", "[", RowBox[{"Helen", ",", RowBox[{"MaxPlotPoints", "\[Rule]", "50"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"#3", "&"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "mmesh"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mmesh", ",", RowBox[{"{", RowBox[{"None", ",", "All", ",", RowBox[{ RowBox[{"{", "ctrs", "}"}], "\[Rule]", "\"\\""}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.36948708429731*^9, 3.3694871243449*^9}, 3.3919294974052625`*^9, {3.3920491054876547`*^9, 3.3920491234876547`*^9}}], Cell[TextData[StyleBox["Data do not have to be on a regular grid, here we \ randomly sample data from elevation data.", FontSize->18]], "MathCaption", CellChangeTimes->{{3.39195054009121*^9, 3.39195056530996*^9}, { 3.3930656050859056`*^9, 3.393065607320324*^9}, {3.3930656525086913`*^9, 3.3930656655401917`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"rdata", " ", "=", " ", RowBox[{"SampleData", "[", RowBox[{"Helen", ",", "100"}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ListPlot3D", "[", RowBox[{"rdata", ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"#3", "&"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "mmesh"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mmesh", ",", RowBox[{"{", RowBox[{"None", ",", "All", ",", RowBox[{ RowBox[{"{", "ctrs", "}"}], "\[Rule]", "\"\\""}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.3688135687706*^9, 3.36881361171235*^9}, { 3.36881398014212*^9, 3.36881398153412*^9}, {3.36881407899426*^9, 3.36881410589294*^9}, {3.36881688446834*^9, 3.36881691926838*^9}, { 3.36881707182775*^9, 3.36881707362033*^9}, {3.36881995872891*^9, 3.36881997663465*^9}, {3.36948697213603*^9, 3.36948702243836*^9}, 3.391929522511363*^9, {3.392044935714122*^9, 3.392044944014344*^9}, { 3.3920491422220297`*^9, 3.3920491437532797`*^9}}], Cell[TextData[StyleBox["For irregular data, the interpolation supported are : \ linear, Voronoi cells and Natural Neighbor.", FontSize->18]], "MathCaption", CellChangeTimes->{{3.391950999638085*^9, 3.391951044794335*^9}, 3.39195108534121*^9, 3.39195660359121*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListContourPlot", "[", RowBox[{"rdata", ",", RowBox[{"ColorFunction", "\[Rule]", "bmap"}], ",", RowBox[{"Contours", "\[Rule]", "ctrs"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"ListContourPlot", "[", RowBox[{"rdata", ",", RowBox[{"ColorFunction", "\[Rule]", "bmap"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Contours", "\[Rule]", "ctrs"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListContourPlot", "[", RowBox[{"rdata", ",", RowBox[{"ColorFunction", "\[Rule]", "bmap"}], ",", RowBox[{"Contours", "\[Rule]", "ctrs"}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "450"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "350"}], "}"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListContourPlot", "[", RowBox[{"rdata", ",", RowBox[{"ColorFunction", "\[Rule]", "bmap"}], ",", RowBox[{"Contours", "\[Rule]", "ctrs"}], ",", RowBox[{"MaxPlotPoints", "\[Rule]", "50"}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "450"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "350"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "550"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"bmap", ",", "\"\\""}], "}"}], ",", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.369615346827344*^9, 3.3696153536972227`*^9}, { 3.3696154053715267`*^9, 3.3696154062027216`*^9}, 3.369615472488035*^9, { 3.39192953274608*^9, 3.391929545594555*^9}, {3.3919296725170608`*^9, 3.3919297057949123`*^9}, {3.3919297471443696`*^9, 3.3919298451252594`*^9}, {3.39195082834121*^9, 3.391950832013085*^9}, { 3.393065710416053*^9, 3.3930657194631014`*^9}, {3.401056012498266*^9, 3.401056012814266*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Delaunay and Voronoi Diagrams", "Section", CellChangeTimes->{{3.401055164783266*^9, 3.4010551799512663`*^9}}], Cell["\<\ The basic operation needed to visualize irregular data is to construct a \ Delaunay triangulation.\ \>", "Text", CellChangeTimes->{{3.39195302587246*^9, 3.39195306618496*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "=", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}], ",", RowBox[{"y", "=", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}]}], ",", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], "}"}], ",", RowBox[{"{", "300", "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[{ RowBox[{"ListDensityPlot", "[", RowBox[{"data", ",", RowBox[{"InterpolationOrder", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}], "\n", RowBox[{"ListDensityPlot", "[", RowBox[{"data", ",", RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot3D", "[", RowBox[{"data", ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", RowBox[{"FillingStyle", "\[Rule]", "Pink"}]}], "]"}], "\n", RowBox[{"ListPlot3D", "[", RowBox[{"data", ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"Full", ",", "Full"}], "}"}]}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"Filling", "\[Rule]", "None"}], ",", RowBox[{"FillingStyle", "\[Rule]", "Pink"}]}], "]"}]}], "Input", CellChangeTimes->{{3.36949028647181*^9, 3.36949030974528*^9}, { 3.36949034679856*^9, 3.36949040489209*^9}, {3.36949044962642*^9, 3.36949061775818*^9}, {3.3919300039135857`*^9, 3.391930028839427*^9}}], Cell[TextData[StyleBox["The Delaunay and Voronoi Diagrams construction is \ highly optimized and can deal with highly complex data.", FontSize->18]], "MathCaption", CellChangeTimes->{{3.391953093388085*^9, 3.39195318252871*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ll", "=", RowBox[{"N", "[", RowBox[{"stars", "[", RowBox[{"7", ",", "6"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ll", "=", RowBox[{"Union", "[", "ll", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ll", "=", RowBox[{ RowBox[{ RowBox[{"LL", "[", "#", "]"}], "&"}], " ", "/@", " ", "ll"}]}], ";"}]}], "Input"], Cell[BoxData[{ RowBox[{"ListDensityPlot", "[", RowBox[{"ll", ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListDensityPlot", "[", RowBox[{"ll", ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], "Input", CellChangeTimes->{{3.36949002506593*^9, 3.36949002720901*^9}, { 3.369615646007544*^9, 3.3696156810679584`*^9}, {3.3696157904752784`*^9, 3.369615793850131*^9}, {3.391930047786672*^9, 3.3919300524333534`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ll", "=", RowBox[{"N", "[", RowBox[{"stars", "[", RowBox[{"17", ",", "4"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ll", "=", RowBox[{"Union", "[", "ll", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ll", "=", RowBox[{ RowBox[{ RowBox[{"LL", "[", "#", "]"}], "&"}], " ", "/@", " ", "ll"}]}], ";"}]}], "Input", CellChangeTimes->{{3.36949005053255*^9, 3.36949005079292*^9}}], Cell[BoxData[{ RowBox[{"ListDensityPlot", "[", RowBox[{"ll", ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListDensityPlot", "[", RowBox[{"ll", ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"InterpolationOrder", "\[Rule]", "0"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], "Input", CellChangeTimes->{{3.3696157173401155`*^9, 3.369615735265891*^9}, { 3.3696158065483904`*^9, 3.3696158091621485`*^9}, {3.3919300738741837`*^9, 3.3919300778398867`*^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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Summary", "Section", CellChangeTimes->{{3.401056132445266*^9, 3.401056133653266*^9}}], Cell[CellGroupData[{ Cell["\<\ Same concepts and methods consistent in all visualization functions.\ \>", "Item", CellChangeTimes->{3.393084288609375*^9}, FontSize->24], Cell["Great flexibility and a plethora of new features", "Item", FontSize->24], Cell["High quality graphics with a minimum amount of coding", "Item", FontSize->24], Cell["State of the art algorithms and spatial data structures ", "Item", FontSize->24], Cell["\<\ Combination of numerical and symbolic methods provide the new set of \ visualization functions with unique features not found in any other algebraic \ computational system.\ \>", "Item", CellChangeTimes->{{3.39308427253125*^9, 3.3930842828125*^9}}, FontSize->24] }, Open ]], 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 ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox[" ", Background->GrayLevel[0.500008]], StyleBox["Initialization", FontColor->GrayLevel[1], Background->GrayLevel[0.500008]], StyleBox[" ", Background->GrayLevel[0.500008]], " " }], "Section"], Cell[BoxData[{ RowBox[{ RowBox[{"POrange", " ", "=", " ", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"228.", "/", "255"}], ",", RowBox[{"111.", "/", "255"}], ",", RowBox[{"0.", "/", "255"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"POrangeO", " ", "=", " ", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"228.", "/", "255"}], ",", RowBox[{"111.", "/", "255"}], ",", RowBox[{"0.", "/", "255"}], ",", "0.3"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"bmap", "=", "\"\\""}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c1", "=", RowBox[{ RowBox[{"{", RowBox[{"143", ",", "79", ",", "186"}], "}"}], "/", "255."}]}], ";"}], "\n", RowBox[{ RowBox[{"mypurple", "=", RowBox[{"RGBColor", "[", "c1", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"c2", " ", "=", " ", RowBox[{ RowBox[{"{", RowBox[{"217", ",", "34", ",", "135"}], "}"}], "/", "255."}]}], ";"}], "\n", RowBox[{ RowBox[{"myred", " ", "=", " ", RowBox[{"RGBColor", "[", "c2", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"c3", " ", "=", " ", RowBox[{ RowBox[{"{", RowBox[{"188", ",", "243", ",", "0"}], "}"}], "/", "255."}]}], ";"}], "\n", RowBox[{ RowBox[{"mygreen", " ", "=", " ", RowBox[{"RGBColor", "[", "c3", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"c4", "=", RowBox[{ RowBox[{"{", RowBox[{"59", ",", "94", ",", "255"}], "}"}], "/", "255."}]}], ";"}], "\n", RowBox[{ RowBox[{"myblue", "=", RowBox[{"RGBColor", "[", "c4", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"c5", "=", RowBox[{ RowBox[{"{", RowBox[{"251", ",", "255", ",", "0"}], "}"}], "/", "255."}]}], ";"}], "\n", RowBox[{ RowBox[{"myyellow", "=", RowBox[{"RGBColor", "[", "c5", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"c6", " ", "=", " ", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "168", ",", "245"}], "}"}], "/", "255."}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"mylightblue", "=", RowBox[{"RGBColor", "[", "c6", "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"ComparePlot", "[", RowBox[{"f_", ",", " ", "x_", ",", " ", "opts___"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{"f", ",", "x", ",", "opts", ",", " ", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"POrange", ",", " ", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"FillingStyle", "->", "POrangeO"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{"f", ",", "x", ",", "opts", ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"POrange", ",", " ", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}], ",", RowBox[{"FillingStyle", "->", "POrangeO"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "True"}], "}"}]}]}], "]"}]}], "}"}], "}"}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"plotstyle", " ", "=", " ", RowBox[{"FaceForm", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", "POrange"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", "Purple"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"ComparePlot3D", "[", RowBox[{"f_", ",", " ", "x_", ",", " ", "y_", ",", " ", "opts___"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyle"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "280"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"Plot3D", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyle"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "280"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"Plot3D", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyle"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "280"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "5"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"CompareDensityPlot", "[", RowBox[{"f_", ",", " ", "x_", ",", " ", "y_", ",", " ", "opts___"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DensityPlot", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "280"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"DensityPlot", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "280"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "True"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DensityPlot", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "280"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "5"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "True"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{"plotstyleexcl", " ", "=", " ", RowBox[{"FaceForm", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", "POrange"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", "Purple"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"imagesizeexc", " ", "=", " ", "200"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"cfunctionexc", "[", "v_", "]"}], ":=", RowBox[{"RGBColor", "[", RowBox[{"v", ",", "v", ",", "0"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"CompareExclusions", "[", RowBox[{"f_", ",", " ", "x_", ",", " ", "y_", ",", " ", "opts___"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyleexcl"}], ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"pw", "\[Rule]", "False"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DensityPlot", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot3D", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyleexcl"}], ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc"}], ",", RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "4"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DensityPlot", "[", RowBox[{"f", ",", "x", ",", "y", ",", "opts", ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc"}], ",", RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"imagesizeexc2", " ", "=", " ", "270"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"CompareExclusions2", "[", RowBox[{"f_", ",", " ", "x_", ",", " ", "y_", ",", " ", "opts___"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", " ", "Pi"}], ",", " ", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyleexcl"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}], ",", "1"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DensityPlot", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", " ", "Pi"}], ",", " ", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", "opts", ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc2"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "Red"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", " ", "Pi"}], ",", " ", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "plotstyleexcl"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}], ",", "1"}], "}"}]}], ",", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "Red"}], ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc2"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"4", ",", "10"}], "}"}]}]}], "]"}], ",", RowBox[{"DensityPlot", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", " ", "Pi"}], ",", " ", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "opts", ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Abs", "[", "y", "]"}], ">", "cut"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{ RowBox[{"Abs", "[", "y", "]"}], ">", "cut"}]}], "}"}]}], "}"}]}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "Red"}], ",", RowBox[{"ImageSize", "\[Rule]", "imagesizeexc2"}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"binimagesize", "=", RowBox[{"{", RowBox[{"400", ",", "Automatic"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"binplotstyle", "=", RowBox[{"FaceForm", "[", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.85", "]"}], ",", "POrange"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.85", "]"}], ",", "Purple"}], "}"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Compare2Plot3D", "[", RowBox[{"f_", ",", " ", "x_", ",", " ", "y_", ",", " ", "opts___"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "1.5"}], "}"}], ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "binplotstyle"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "binimagesize"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0.7", ",", RowBox[{"-", "2.3"}], ",", "1.5"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "1.5"}], "}"}], ",", "opts", ",", RowBox[{"PlotStyle", "\[Rule]", "binplotstyle"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "6.001"}], ",", "6", ",", "1"}], "]"}], "}"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"(", RowBox[{"#3", "&"}], ")"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", "Black"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"ClippingStyle", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0.7", ",", RowBox[{"-", "2.3"}], ",", "1.5"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "binimagesize"}], ",", RowBox[{"AxesEdge", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"x", "\[Equal]", RowBox[{"-", "2"}]}], ",", RowBox[{"x", "\[Equal]", RowBox[{"-", "3"}]}]}], "}"}]}], ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"bticks", "[", RowBox[{ "xmin_", ",", "xmax_", ",", "step_", ",", "plen_", ",", "nlen_", ",", "size_", ",", "col_", ",", "op_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Style", "[", RowBox[{"i", ",", RowBox[{"FontColor", "\[Rule]", "col"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "size"}]}], "]"}], ",", RowBox[{"{", RowBox[{"plen", ",", "nlen"}], "}"}], ",", RowBox[{"{", RowBox[{"col", ",", RowBox[{"Opacity", "[", "op", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "xmin", ",", "xmax", ",", "step"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"xticks", "[", RowBox[{"xmin_", ",", "xmax_", ",", "step_"}], "]"}], ":=", RowBox[{"bticks", "[", RowBox[{ "xmin", ",", "xmax", ",", "step", ",", ".02", ",", ".02", ",", "16", ",", "Black", ",", ".4"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"yticks", "[", RowBox[{"ymin_", ",", "ymax_", ",", "step_"}], "]"}], ":=", RowBox[{"bticks", "[", RowBox[{ "ymin", ",", "ymax", ",", "step", ",", ".98", ",", ".02", ",", "16", ",", "Black", ",", ".2"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"fticks", "[", RowBox[{"xmin_", ",", "xmax_", ",", "step_"}], "]"}], ":=", RowBox[{"bticks", "[", RowBox[{ "xmin", ",", "xmax", ",", "step", ",", ".01", ",", "0.", ",", "15", ",", "Black", ",", "1."}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"cpts", "[", RowBox[{"data_", ",", "col_", ",", "op_", ",", "size_"}], "]"}], ":=", RowBox[{"Sequence", "[", RowBox[{ RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"Range", "[", RowBox[{"Length", "[", "data", "]"}], "]"}], "}"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"#1", "&"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"col", ",", RowBox[{"Opacity", "[", "op", "]"}], ",", RowBox[{"PointSize", "[", "size", "]"}]}], "}"}], "}"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"cpts3d", "[", RowBox[{"data_", ",", "col_", ",", "op_", ",", "size_"}], "]"}], ":=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"col", ",", RowBox[{"Opacity", "[", "op", "]"}], ",", RowBox[{"PointSize", "[", "size", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"j", ",", "i", ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"First", "[", "data", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"mesh3d", "[", "data_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"First", "[", "data", "]"}], "]"}], "-", "2"}], ",", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "-", "2"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"terrainColor", "[", "v_", "]"}], ":=", RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{"Brown", ",", RowBox[{"Darker", "[", RowBox[{"Green", ",", ".75"}], "]"}], ",", "White"}], "}"}], ",", RowBox[{"v", "+", RowBox[{"RandomReal", "[", ".2", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "plot1style", ",", "image1style", ",", "label1style", ",", "plot2style"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"plot1style", "[", "clist_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", RowBox[{"Opacity", "[", ".7", "]"}], ",", RowBox[{"Darker", "[", RowBox[{ RowBox[{"clist", "[", RowBox[{"[", "i", "]"}], "]"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "clist", "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"image1style", "[", RowBox[{"min_", ",", "max_"}], "]"}], ":=", RowBox[{"Sequence", "[", RowBox[{ RowBox[{"Filling", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"ImageMargins", "\[Rule]", "15"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"Gray", ",", ".9"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"min", ",", "max"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"label1style", "=", RowBox[{"Sequence", "[", RowBox[{ RowBox[{"FontColor", "\[Rule]", "Black"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"plot2style", "=", RowBox[{"Sequence", "[", RowBox[{ RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "50"}], "]"}], ",", RowBox[{"Opacity", "[", ".7", "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}], ",", RowBox[{"ImageMargins", "\[Rule]", "15"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"plot3style", "=", RowBox[{"Sequence", "[", RowBox[{ RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"ImageMargins", "\[Rule]", "15"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\n"}], "Input", InitializationCell->True, CellChangeTimes->{{3.36896429468805*^9, 3.36896436246551*^9}, { 3.36896444683683*^9, 3.36896445416737*^9}, {3.36896451894051*^9, 3.36896455039574*^9}, {3.36896713433126*^9, 3.3689671351925*^9}, { 3.36896722174696*^9, 3.368967287151*^9}, {3.36896732043887*^9, 3.36896735649071*^9}, {3.36896747368923*^9, 3.36896751828336*^9}, { 3.36896781030326*^9, 3.36896781354793*^9}, {3.36896793217851*^9, 3.36896794157201*^9}, {3.36896806661181*^9, 3.36896810460645*^9}, 3.36896817629954*^9, {3.36896821789935*^9, 3.36896822311686*^9}, 3.36896831997613*^9, {3.36896848560429*^9, 3.36896853919135*^9}, { 3.36948288509682*^9, 3.36948288685935*^9}, {3.36948335481223*^9, 3.36948335623428*^9}, {3.36948345623808*^9, 3.36948345724953*^9}, { 3.36948351511273*^9, 3.36948352050048*^9}, {3.36948406721662*^9, 3.36948406806784*^9}, {3.36948411409403*^9, 3.36948411521564*^9}, { 3.36948675869912*^9, 3.36948675893947*^9}, 3.36948679219729*^9, { 3.36948993430542*^9, 3.36948995667759*^9}, {3.369612388173008*^9, 3.3696124181761503`*^9}, {3.369612468388352*^9, 3.3696124723340254`*^9}, { 3.369612534253061*^9, 3.3696125435364094`*^9}, {3.3696125867986174`*^9, 3.369612596592701*^9}, {3.3696126873932657`*^9, 3.369612697978486*^9}, { 3.36961376210863*^9, 3.3696137623790193`*^9}, {3.391926638664595*^9, 3.391926658693395*^9}, {3.391926694364688*^9, 3.3919266957466755`*^9}, { 3.3919283631042175`*^9, 3.3919283694833903`*^9}, {3.391928430050482*^9, 3.391928431532613*^9}, {3.391928464359816*^9, 3.391928498609064*^9}, { 3.3919285878874397`*^9, 3.3919285916528544`*^9}, {3.3919286291868258`*^9, 3.391928640262752*^9}, {3.391928966531904*^9, 3.3919289848582563`*^9}, { 3.391954725388085*^9, 3.39195475771621*^9}, 3.3921655113714657`*^9}], Cell[CellGroupData[{ Cell["Data", "Subsection", CellChangeTimes->{{3.3919272519063935`*^9, 3.391927262541686*^9}, { 3.3919285083430605`*^9, 3.391928508703579*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"$DataDirectory", "=", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{"NotebookDirectory", "[", "]"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"$Path", ",", "$DataDirectory"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"rawHelen", "=", RowBox[{"Developer`ToPackedArray", "[", RowBox[{"Get", "[", "\"\\"", "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"cx", "=", "600"}], ";", " ", RowBox[{"cy", "=", "300"}], ";", " ", RowBox[{"mm", "=", "500"}], ";", " ", RowBox[{"nn", "=", "400"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Helen", "=", RowBox[{"Developer`ToPackedArray", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"rawHelen", "[", RowBox[{"[", RowBox[{ RowBox[{"cx", "+", "i"}], ",", RowBox[{"cy", "+", "j"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "mm"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "nn"}], "}"}]}], "]"}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SampleData", "[", RowBox[{"data_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dx", ",", "dy", ",", " ", "temp", ",", " ", "temp2", ",", "i", ",", "j"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"dx", ",", "dy"}], "}"}], " ", "=", " ", RowBox[{"Dimensions", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"temp", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "dx"}], "}"}], "]"}]}], ",", RowBox[{"j", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "dy"}], "}"}], "]"}]}], ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"temp2", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "dy", ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", "dy"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"dx", ",", "dy", ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"dx", ",", "dy"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"dx", ",", "1", ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"dx", ",", "1"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Union", "[", RowBox[{"Join", "[", RowBox[{"temp", ",", "temp2"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ctrs", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "5000", ",", "7800", ",", "200"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"blendmap", " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stars", "[", RowBox[{"side_", ",", "0"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"stars", "[", RowBox[{"sides_", ",", "lvl_"}], "]"}], ":=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{"(", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"starhelp", "[", RowBox[{"sides", ",", "#"}], "]"}], "&"}], ",", RowBox[{"stars", "[", RowBox[{"sides", ",", RowBox[{"lvl", "-", "1"}]}], "]"}]}], "]"}], ")"}], "]"}], ",", "1"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"starhelp", "[", RowBox[{"sides_", ",", "center_List"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"center", "+", RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "#", "]"}], ",", RowBox[{"Im", "[", "#", "]"}], ",", "1"}], "}"}]}], "&"}], "[", RowBox[{"Exp", "[", RowBox[{"2", " ", "Pi", " ", "I", " ", RowBox[{"k", "/", "sides"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"sides", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LL", "[", RowBox[{"{", RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"x", ",", "y", ",", RowBox[{"Norm", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.398763482928467*^9, 3.3987635097148848`*^9}, 3.398763649578034*^9, 3.401054977820266*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Default Styles.", "Subsection", CellChangeTimes->{{3.3919272519063935`*^9, 3.391927262541686*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"SemStyle1", " ", ":=", " ", RowBox[{"Sequence", "[", RowBox[{"{", RowBox[{ RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"MeshStyle", "\[Rule]", "Black"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}]}], "}"}], "]"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.3919272394284515`*^9, 3.3919272662570286`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Lastly", "Subsection"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"$Line", "=", "0"}], ";"}]}]], "Input", InitializationCell->True], 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 ]] }, Closed]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{Full, Full}, WindowMargins->{{-3, Automatic}, {Automatic, -2}}, FrontEndVersion->"6.0 for Microsoft Windows (64-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[0., 0.28628976882581825`, 0.745967803463798]], 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]}, Open]], 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]}, WindowSize -> {607, 702}, WindowMargins -> {{Automatic, 54}, {0, Automatic}}, Visible -> False, FrontEndVersion -> "6.0 for Microsoft Windows (64-bit) (June 19, 2007)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[25637, 455, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27815, 513, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31093, 649, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[34553, 780, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40969, 970, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[44246, 1066, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[49719, 1223, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[54372, 1363, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[59290, 1505, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[64946, 1658, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[81016, 2140, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[83609, 2219, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[86996, 2331, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[90878, 2455, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[94069, 2548, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[104171, 2818, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[110916, 3018, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[116835, 3189, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[121414, 3317, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[128517, 3496, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[134596, 3662, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[136312, 3720, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 264599, 6267} } *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 23854, 393, 52, "ConferenceGraphicCell"], Cell[CellGroupData[{ Cell[24447, 418, 211, 5, 138, "Title"], Cell[24661, 425, 59, 1, 70, "Subtitle"], Cell[24723, 428, 273, 6, 97, "Author"], Cell[24999, 436, 105, 1, 79, "Affiliation"], Cell[25107, 439, 493, 11, 80, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[25637, 455, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[25726, 460, 191, 2, 86, "Section"], Cell[25920, 464, 1082, 23, 349, "Text"], Cell[27005, 489, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27815, 513, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[27904, 518, 112, 1, 71, "Section"], Cell[CellGroupData[{ Cell[28041, 523, 189, 3, 39, "Subsection"], Cell[CellGroupData[{ Cell[28255, 530, 35, 1, 34, "Item"], Cell[28293, 533, 45, 1, 34, "Item"], Cell[28341, 536, 114, 2, 34, "Item"], Cell[28458, 540, 111, 2, 34, "Item"], Cell[28572, 544, 37, 1, 34, "Item"], Cell[28612, 547, 47, 1, 34, "Item"], Cell[28662, 550, 42, 1, 34, "Item"], Cell[28707, 553, 42, 1, 34, "Item"], Cell[28752, 556, 44, 1, 34, "Item"], Cell[28799, 559, 41, 1, 34, "Item"], Cell[28843, 562, 43, 1, 34, "Item"], Cell[28889, 565, 114, 2, 34, "Item"], Cell[29006, 569, 116, 2, 34, "Item"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29171, 577, 225, 4, 39, "Subsection"], Cell[CellGroupData[{ Cell[29421, 585, 39, 1, 34, "Item"], Cell[29463, 588, 43, 1, 34, "Item"], Cell[29509, 591, 110, 2, 34, "Item"], Cell[29622, 595, 41, 1, 34, "Item"], Cell[29666, 598, 46, 1, 34, "Item"], Cell[29715, 601, 46, 1, 34, "Item"], Cell[29764, 604, 48, 1, 34, "Item"], Cell[29815, 607, 118, 2, 34, "Item"], Cell[29936, 611, 114, 2, 34, "Item"], Cell[30053, 615, 40, 1, 34, "Item"], Cell[30096, 618, 160, 3, 34, "Item"] }, Open ]], Cell[30271, 624, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31093, 649, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[31182, 654, 222, 3, 71, "Section"], Cell[31407, 659, 312, 6, 29, "Text"], Cell[CellGroupData[{ Cell[31744, 669, 72, 1, 39, "Subsection"], Cell[CellGroupData[{ Cell[31841, 674, 50, 1, 34, "Item"], Cell[31894, 677, 130, 2, 34, "Item"], Cell[32027, 681, 44, 1, 34, "Item"], Cell[32074, 684, 42, 1, 34, "Item"], Cell[32119, 687, 75, 1, 34, "Item"], Cell[32197, 690, 113, 2, 34, "Item"], Cell[32313, 694, 170, 4, 34, "Item"], Cell[32486, 700, 100, 2, 34, "Item"], Cell[32589, 704, 96, 2, 34, "Item"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32734, 712, 70, 1, 39, "Subsection"], Cell[CellGroupData[{ Cell[32829, 717, 122, 2, 34, "Item"], Cell[32954, 721, 98, 2, 34, "Item"], Cell[33055, 725, 87, 1, 34, "Item"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33191, 732, 71, 1, 39, "Subsection"], Cell[CellGroupData[{ Cell[33287, 737, 104, 2, 34, "Item"], Cell[33394, 741, 59, 1, 34, "Item"], Cell[33456, 744, 143, 2, 34, "Item"], Cell[33602, 748, 53, 1, 34, "Item"], Cell[33658, 751, 58, 1, 34, "Item"] }, Open ]], Cell[33731, 755, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34553, 780, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[34642, 785, 106, 1, 71, "Section"], Cell[34751, 788, 564, 12, 47, "Text"], Cell[35318, 802, 303, 8, 28, "Input"], Cell[35624, 812, 580, 16, 28, "Input"], Cell[36207, 830, 419, 10, 29, "Text"], Cell[36629, 842, 3527, 102, 223, "Input"], Cell[40159, 946, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40969, 970, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[41058, 975, 97, 1, 71, "Section"], Cell[41158, 978, 2275, 62, 89, "Input"], Cell[43436, 1042, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44246, 1066, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[44335, 1071, 109, 1, 71, "Section"], Cell[44447, 1074, 476, 12, 33, "Text"], Cell[44926, 1088, 3980, 109, 231, "Input"], Cell[48909, 1199, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49719, 1223, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[49808, 1228, 80, 1, 71, "Section"], Cell[49891, 1231, 340, 10, 29, "Text"], Cell[50234, 1243, 3325, 94, 222, "Input"], Cell[53562, 1339, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54372, 1363, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[54461, 1368, 106, 1, 71, "Section"], Cell[54570, 1371, 372, 10, 29, "Text"], Cell[54945, 1383, 2504, 69, 169, "Input"], Cell[57452, 1454, 1025, 25, 49, "Input"], Cell[58480, 1481, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59290, 1505, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[59379, 1510, 103, 1, 71, "Section"], Cell[59485, 1513, 1048, 24, 47, "Text"], Cell[60536, 1539, 3597, 93, 209, "Input"], Cell[64136, 1634, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64946, 1658, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[65035, 1663, 137, 1, 71, "Section"], Cell[65175, 1666, 315, 9, 29, "Text"], Cell[65493, 1677, 3396, 95, 181, "Input"], Cell[68892, 1774, 349, 9, 29, "Text"], Cell[69244, 1785, 6369, 188, 212, "Input"], Cell[75616, 1975, 1412, 39, 49, "Input"], Cell[77031, 2016, 1912, 61, 123, "Input"], Cell[78946, 2079, 1257, 35, 49, "Input"], Cell[80206, 2116, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81016, 2140, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[81105, 2145, 102, 1, 71, "Section"], Cell[81210, 2148, 248, 5, 29, "Text"], Cell[81461, 2155, 458, 11, 28, "Input"], Cell[81922, 2168, 401, 12, 49, "MathCaption"], Cell[82326, 2182, 470, 11, 28, "Input"], Cell[82799, 2195, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83609, 2219, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[83698, 2224, 109, 1, 71, "Section"], Cell[CellGroupData[{ Cell[83832, 2229, 490, 12, 76, "Item"], Cell[84325, 2243, 437, 12, 56, "Item"] }, Open ]], Cell[84777, 2258, 51, 0, 29, "Text"], Cell[84831, 2260, 543, 16, 40, "Input"], Cell[85377, 2278, 335, 11, 36, "Input"], Cell[85715, 2291, 468, 14, 40, "Input"], Cell[86186, 2307, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86996, 2331, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[87085, 2336, 132, 1, 71, "Section"], Cell[87220, 2339, 739, 20, 37, "Input"], Cell[87962, 2361, 670, 20, 30, "Input"], Cell[88635, 2383, 1430, 46, 38, "Input"], Cell[90068, 2431, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90878, 2455, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[90967, 2460, 95, 1, 71, "Section"], Cell[91065, 2463, 995, 24, 49, "Input"], Cell[92063, 2489, 287, 9, 48, "MathCaption"], Cell[92353, 2500, 903, 22, 37, "Input"], Cell[93259, 2524, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94069, 2548, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[94158, 2553, 111, 1, 71, "Section"], Cell[94272, 2556, 178, 4, 29, "Text"], Cell[94453, 2562, 1831, 44, 197, "Input"], Cell[96287, 2608, 1795, 45, 197, "Input"], Cell[98085, 2655, 3203, 80, 198, "Input"], Cell[101291, 2737, 2067, 55, 52, "Input"], Cell[103361, 2794, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104171, 2818, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[104260, 2823, 105, 1, 71, "Section"], Cell[104368, 2826, 309, 8, 29, "Text"], Cell[104680, 2836, 514, 11, 28, "Input"], Cell[105197, 2849, 1374, 39, 49, "Input"], Cell[106574, 2890, 1764, 51, 69, "Input"], Cell[108341, 2943, 1762, 49, 52, "Input"], Cell[110106, 2994, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[110916, 3018, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[111005, 3023, 112, 1, 71, "Section"], Cell[111120, 3026, 1783, 48, 109, "Input"], Cell[112906, 3076, 1396, 40, 89, "Input"], Cell[114305, 3118, 1717, 45, 129, "Input"], Cell[116025, 3165, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[116835, 3189, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[116924, 3194, 103, 1, 71, "Section"], Cell[117030, 3197, 161, 3, 29, "Text"], Cell[117194, 3202, 1009, 30, 69, "Input"], Cell[118206, 3234, 1173, 29, 49, "Input"], Cell[119382, 3265, 1219, 26, 49, "Input"], Cell[120604, 3293, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[121414, 3317, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[121503, 3322, 99, 1, 71, "Section"], Cell[121605, 3325, 154, 3, 29, "Text"], Cell[121762, 3330, 398, 8, 28, "Input"], Cell[122163, 3340, 785, 19, 49, "Input"], Cell[122951, 3361, 319, 5, 48, "MathCaption"], Cell[123273, 3368, 150, 4, 28, "Input"], Cell[123426, 3374, 1058, 23, 28, "Input"], Cell[124487, 3399, 269, 4, 48, "MathCaption"], Cell[124759, 3405, 2945, 65, 229, "Input"], Cell[127707, 3472, 761, 18, 27, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[128517, 3496, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[128606, 3501, 116, 1, 71, "Section"], Cell[128725, 3504, 186, 4, 29, "Text"], Cell[128914, 3510, 697, 22, 28, "Input"], Cell[129614, 3534, 1519, 32, 89, "Input"], Cell[131136, 3568, 230, 3, 48, "MathCaption"], Cell[131369, 3573, 422, 14, 94, "Input"], Cell[131794, 3589, 768, 14, 121, "Input"], Cell[132565, 3605, 487, 15, 94, "Input"], Cell[133055, 3622, 728, 14, 121, "Input"], Cell[133786, 3638, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[134596, 3662, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[134685, 3667, 92, 1, 86, "Section"], Cell[CellGroupData[{ Cell[134802, 3672, 149, 4, 41, "Item"], Cell[134954, 3678, 79, 1, 41, "Item"], Cell[135036, 3681, 84, 1, 41, "Item"], Cell[135123, 3684, 87, 1, 41, "Item"], Cell[135213, 3687, 274, 6, 69, "Item"] }, Open ]], Cell[135502, 3696, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136312, 3720, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[136401, 3725, 228, 9, 86, "Section"], Cell[136632, 3736, 28344, 711, 2169, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[165001, 4451, 145, 2, 39, "Subsection"], Cell[165149, 4455, 5501, 161, 443, "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[170687, 4621, 105, 1, 39, "Subsection"], Cell[170795, 4624, 560, 14, 49, "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[171392, 4643, 28, 0, 39, "Subsection"], Cell[171423, 4645, 117, 4, 28, "Input", InitializationCell->True], Cell[171543, 4651, 470, 11, 27, "PreviousNext"] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)