(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 149947, 3903] NotebookOptionsPosition[ 74581, 2284] NotebookOutlinePosition[ 141590, 3644] CellTagsIndexPosition[ 141510, 3639] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3V9sVOeZx/FIKyHFHmzPeBiDApEsERLZNEQEO8GkJEQkaLsKf2LUNsRZ KJFIIFQrF4JK1RCllqIVVSWjJm16gUTCHUjJXSxxV1nlGiGtVlqhvdiLvZi5 2Iu92IuVVvtwHp/nfc7fOWM7IeDvp1N3OPOe97znOe/xhX99z4ye/Kc3T/7d Y4899g/y3xOPP/bY/fcjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFZJq9VaxsZW Uk+H61X1YXc9dNeBbajGD696+/IjZttUrIN24ttUr2F23/KadG1Zcrgi1Y/S 015VhrS8YVcs7zLaV+ywqGX2QEV6bVyl/+qnX95D1w6rl6vKCHsdHgAAAAAA AAAAD7VWq/XrX/96fHxc8xHduHPnTtm4ZXTUb9y9e7dstBhF/3nhwoUzZ87I 7s1m0/6EfvLkyf379/t9U4fTHVPGI6mPpHM5kHSe6i132KL80NJb0afa4Hqj Uf01PDwsA6vY+FLU3h9a3hxrNP7caHxdr9+Nfsp72fJko6HF1DaX4h6Oue1F w7Y2fsfZej116PJ9/afPNJunok9vRYOUN5fr9YOZc+naVQmtg3QrO96NDiRv Trk65PYjA0tVL7vXQVf/gwVDetW1OVVt2NJg175Xps+ekdebH5z+yYnjW8fG slPUt5cG0kzby2v7xK6i9tLz0V9+IA2KejOv/fyn0lJ6tpbyU7bYwEpeupf8 1PbljfcdnbaSFvUvZ/f8y3uL6iBDrT4qLe+yi+DLLn586KAdWk7kic2bsyOs ODw5wa7jAQAAAAAAAADgodBqte7cuXPmzBlLfDRHu3fv3szMjG7UZnNzcwsL C41GY8vo6NWrV6WB7Hjjxo17EWssbt68eeHChdxMSv4pjaWfGxkTExP79++X T/1GaSlbrly5kurt5MmTsl2OIuPx+YgcWgeZDXq089QuqbHdjSKqiq+BgYGh oaGKjb+q16WxnIVW+NU4ccu+bkdhlhXzerx9Nuohe15+2NbG7ygvOZyedckp p/qXn6eiweQO8ut6fTIeZNeuSkzGAV9uHY7Fw04FkQeLB2Z7ydGfdM2+dvX3 XfkqPd3Xl1sl3/7Hhw7OfXPzj3/7a+r1q7/8aXTbU9nsafvELvko2372i8+f f3lvNjI++ssP5FM5xBObN6dGmxqJdmud6MbsgXJfO17aI3vt2vdKlcYyVK2n HKVrY6uDP6ncChSNSo4yffbMsovgK/n7W99mj/LWh+c0JbR5XnF4b35wuuhX BwAAAAAAAAAAD5cNGzZcjfj0SuO/+fl5v3FhYWFubk62yPY7d+7MzMwMRLaO jZ0/f17aHzlyRJfUaT6YmxDJ4aTlvn37dN+hJI3wBmK6URrr4Sy70REuRnzo Iz81r5RdZHsqL7hy5Yrmg9mcyMbWUz5Yq9Wq54NfDg3JGekpHKvQ/qBbn6hb ztZq0kN25H7Y1sbveDfKIjf29VXcVy/35YLYzidxPiIs6qpk7k0Wx3z2utRo pFLLKtW7HKeBs+4spvr6UrNi0u3y6fr1ekGL8kE59FsfntOo6MTHH02+/tqP dr/47NTuvUcOz37xuWz8/a1vZaMPqrZP7NKIShpIM2ksL2mj7eW17+h0Ixlw azSmMVZJxmqp1rN7pqyZ5ncXr1+TgelLj5h+7Zlqbdokx33+5b16LuXttz23 Qw8hdGy57Q+9f0qTUzll2cXflTrUiqOSo6ykCLr93blPdCTSg56C/Dzwzts6 QvlpI5SiaSfyadnwpnaPbntKpwf5IAAAAAAAAADgYaerBe/cuTM0NKRRhUZ4 GsBZpKUbDx069MTmzbpaMBXwzc/Pa8go7W/cuFEUw/l8UBsbaezzQftUO5c+ rcMto6PaifzcuXOnZTryU5rJufi4U487Pj6uCx7PnTunJ5WbD87W6/I6W6vp 69P1631+ZNv1lcoHrw0Ophr413R/vx73mWbTh2Kyl3w01dcnP+X93Xix28Yo zJJT8PmgyI48Fcxpm1Q+KK/fRCVNRS25+8rGg8l95dwPRIM8Xqv5ZY8+dpSe s12VJClSh1RX0nmqDvqSQ1suM5kcWG71dMA6f/wSQo1ofW7lM1A5kfJ88LWf /1Qjpx/tfjE6v5rOUp2uB955W7M2K/LWsTENB+Uja2/2Hjlsi+YaLvh+84PT tmDt2andReOxVEsGY1Nd88HZLz5//PHHbXhFZBfNBw+9f6prex2h5YO57fW8 pAI6Bj8qHWqVUWkKuZIiWIx78fo1+UVhZdcRNjeO6Ag1edTfbNrJ+IsvyAi7 Fq1keSkAAAAAAAAAAA+LVvRNgvfu3ZuYmNC/z2tIt3PnTvmpS2Zs4xObN2sq J2/0D+m6VE1+WsgoquSDQy6ONJYP2p/ihbyR3jQf1F3kWIuLi7Va7erVq7rI 0dZPSTNdzGiLfUbcw1Hl05J8ULbIsTRH0EBnqq/Prz5bt26dZhw+5vChmG+Q YiflM6lP169P7TLd36/hoA5yFfPB3AV0RfmgT+5kSH6QMravk59arFM9H9SH l5bXwT6Vw2muJwP7s9srW3DdS3qTjVrtoiWEreirFf0ANBsqWvMoGzXs03DQ 8ms9hKbYO17aM+BCWF3C9taH54raa6R48fo1n21pNPazc7O6zK21aVPRWleL xmzYlg/qEe1wKXqxpLHlgxqMlrTXivl80Oazp3eErtHTVYc+gPN3QcmoxEqK sHVsTGNcCwf9EXWE+45O25XynWgdcofn61D2+xQAAAAAAAAAgIeB/tlfv4JQ /zauYVytVltcXPQbFxYWBgYGNB+0v7rrX8tT0V7FfNAyEVvP5TvRkEWHJyPR R5tq8iUjkf6l2czMTGrloxxaOpcGPjfcMjqqTyjtmg/qIilNcBrR1/b5aMli lEb88E/56eMqy00aGZaA2HK2W/W6xluaWWgzW4dlodsq5oPZp4zm7juZSe78 icubjS42/Wxw0J5o2lM+aMO7Ha3dS5VO3vgg9el4NaVtuTY4mBqY7jUZPffV pz+5Swhle0+LB/Wr+i5ev2bjtPlps9QutE5FjdIaG5rac7a9RWkyPy211Ghs /MUX3rv8z5qRDRU8p7c8H7QOc+klsHzQlgmXtBc+H8yekQ5ARqKncOCdt1MB XG4dskdZYRH02aSyi4Wk/rx0hDpV7EplOykfIQAAAAAAAAAAj4Bms2lfQSgs fZubm/OPDJV/pvJB2VF7aCWjva754JkzZ6Sf/c6W0VELGfdFdPuRI0f0kaFb x8a0Q13tOD4+Lsd6YvNmDf4sidB8ULboIseGW28o7S0fzF2OZOdiUUIqH8zG DdlQrDyXeSbZ3tas2S6aOWrcpmNYxXxQG/ioJXffg8mzToVBsou0+SoO127V 67bqqno+6I/72eBgbh1Sw9Dsz7Ycj6qXSpk1pLMc2TbOZqLGXhcPaupkS+2y WZUVR99sn9jll/Jle9aB/eJ3l+zxmDqBNRqTLY0NTV2xqF+ulwouK+aDucW3 AaTywa75l4WeJf3bKWi3OpN9Ptj1+ZyWDy6jCLLl9B8u+8WA2cNpoVTLPf7U V7J8hAAAAAAAAAAAPAIsQRsaGtKvF5yYmBgYGDh06JA9MlS/fPD+o/lWIx/M kt2H4+8f9GQA8/PzOh7tUJ8Uao/3tO891CTi5s2b+uWGcjo2Bn2v+eD58+dz B5YlDbL5YGrH3HytpGff4YH+/twIwy9WWpV88Fa97r/xcDJK0DbE39iYzTdn kwvrsuHRhuiLGq2N5nSNZApZPR88Gyd9vg6p4uu3N2aXczbib+7zpbOQzo7l lxB+un69dNXT4kHLBydff61ilKbrDU//4XKVKE2X2mm8ZdGY7KgPIM19wOYP Nh9sxV//t/fI4ZXng7KL1Lx6EWzLtud2VAz7yAcBAAAAAAAAAGtTK/4Kwq1j Y5oJavqmWaGu5tPleLLR54D2p/5e80HpUL8wzp6lqY21E/tIlwGObnvKf9eh PvXUnkV55MgRWyooDeTQ0ol8pN+HKNttLaHmg0UDyy3LMvLB8vWDXTtMyeaD ttDM5C7c8/ngtcHB47WatbGv82sVrH/02d+6det8EGyjWt18UI/rG7ei74JM tem1etZVdgmhjwvLFw+OJBOrKgdNRW8lUVpqqZ3lg89O7dZbY/aLz/VLDFOL Fn+w+aBstIemrjAf1CLILroksEoRss8yLT9WbifkgwAAAAAAAACAtaAVfwXh zMyMPlPU0jd91uj58+dtyV7qKwKtB83pqueDFgvqgTRHsM7t08XFRRuPNNCj yDj940n1gaX2HFTNB+3Ro7Jlfn6+68Byy9JTPnhtcPBsrTZbr2dfz0SJ3grz wVv1+pdDQ1/V67LFv75yyVdRPrhu3Tr56ZvZ9xuW54P2cNFUZVY9H8w2zo6t qHq2bDDLPvJLCP1qyq6LB0eSiVWVyVMxekvlg7oWMhWNjW57KvcBmxXzwdyQ OneQXb+vcMTlg0XfP7hldPTduU/8GLLfP1jyBX/Zatv/UaFiEVaeDzaKv4ex a1cAAAAAAAAAADxc9CsI5+fnFxcXT548qX8nHx4evnDhwo2Ifvng0NDQxMSE PoA0lQ9KS8sQq+SDGv+llsL58FEHoKv/tL00vnLliozwRpJs8YfWfFDIGO7c ueNXIH6n+WDJS/rR3GEl+WCVV0k+6BfN3Y2fMppdo/cw5oNFJXq1+FsI71Ze PDjygPJBuwX+/h/fyT5gsyQfvHj9mmzc8dIeGUP2tXVszPIvHeTsF5/LAA6f fk8OnX1Z+xGXD46/+MKze6Z8tz85cfytD8/pysHf3/pWFw9qlmdDLTmK9GBH SVVbi5D7lNHVzQePX/qtjDB3ePuOTme/cRIAAAAAAAAAgIedfQWhpWn6x3b7 QsA33njDQkNd06d/ute/6m8ZHZWN2WV62cU4zWbT8r5UztJKPqRU/yCvjwwV 9rzTmZkZffqoLT/0kaXlg3Lo8fFx2S5bNCxoRKsLH0g+KPvqGT2ofFBTMB+Q 6VNGZVRV8sHsNyR+D/lgtk1u9UpKpGXXGZhaQng3el9l8eDIg8sH9exke/Yp oyX5YPlL+tdubZDlL2nj87iu7U98/FFjQ9PiOT/UiqPKVluLkH3KaNd8sOuz TEdcPljykgb2q6xrhwAAAAAAAAAAPCxa8VcQLi4u+ocHDg8P6xI8aWPfJqYP +dTvAdy/f/+VK1ekzcLCgn5BoYZ08/Pz/hGganx8XHqomA/q3/Yto5Rd/DcJ 2sKiRrQOTgajKxwtH9Shyhvf+Ht4vmju6+nVyAdL+q+SD+ql+Tr5MFIZwCOf DxYtIZQ+/VQvnwkPKh/UYWefMlqSD859c1M6LHrteGmPZaY2yMcjtfj7QD1L 6EZcPrh9Ytf9JYRTu2U88pIe9LiNDU1Non2VbKjlR2m4/y9BtgjyUfYpo6ub D8oZlQyvyjwBAAAAAAAAAODh0oq/gnB+ft7/aV1+Xr16dWFhwS8IGh4e3r9/ /40bN3Rpoe5lsZ3GcPfyaDbnnxeamw9aWKAbbQmhPgHVZxZKn4O6uLho+aAG ZPKR/ByOaMubN29+d/ng2Vpt3bp1GjF4Pv5YST5Y1H+tcj7YiB4r6hO0p/v6 quSDP+Tni+oEkPe1KO+bcmeUqnC2/hVTpAebD+otkHrKqBSn5PsHNYnL5lyp JM4GmVqQ6+mxUusHLUfTNvJGnyy6a98r/heFXWvLB/XTrEb8JNiialcswgrz waI66P+7gPWDAAAAAAAAAIBHjz7Ez0IB+1u9vLc/ktujGnVj7hKb3E+zf3W3 BDB3DLZkKTUwG57f1w/SN2hlyPAakSpLgZaRD9riqUaSjcd3eKC/v9d8MLf/ ocwzQovyQU1LU08ZLc8HN8ZL8FKV+R7yQV+r6f7+onzQT0hRkg9WuaBFM+EB 5oMj8S3gnzIq/yzPB3PnoZ+KqXxwKJm5ez7ps3zQYnpdw7vv6LQmd9lgLpXZ 6WnmHqUkH6xYhA0r+P5B7WQo86WoqeEBAAAAAAAAAPAosZxF/zxuf6u3VXjZ jRbbae5gD3LUflKhnrbRZv4Q2TGkPrUObffUvn6QvXZeXpBe80ELR7LRpHom uSau13wwt3/poWI+qEnHUPIpo9nxH8x7RGfRqG6vOB/8dP36bGN5nxqGtPGL H4+76tmsk3EeS66OlDZ+YdoK88G9Rw73lA/OfvF5lXxQui3PB1t5TxnVpCw3 H/SL+HKNVA4xU1fN8kHfvyZ3uoRQS+QnTK9r+orywSpF8GHf8vLBKvMBAAAA AAAAAIBHSSpBKNk4EsdtuetrLDUoWoaT7S17uOzGkoU8uQlIxRMsqcYy8sHy nKXZbN52a/dyExM/wmw+mO0/dwxF+aCGLKmnjKbyQf/pb6K1n6mzfjKKBVOd 95oP+oRRVyluSK4JvexCTE36/EpJOW5uqpgNLi0kqnJBi2bCT04c/+Pf/vqz c7NVojT5dOvYmLS/eP1aSSiWTaaK8sGReJGsPWCzuXGkaz5YnsStJB/M9i9F tiWEqd5WKx+sUgTp/Be/uyRbJl9/rUqSm3sVyAcBAAAAAAAAAFizlp0Plqwf lI987HU8fq6jNTgW5YZPxk9AXfV8cCQOWWYzSwhtX/n0lvv0QH9/arHYn5Pr +OzplNVLIdtPuU4+Xb/e8h2rg30qg7EI0h96OhqYr16qT3/WFS9o0UzYPrHL wq+SkKvlVrrpMrcto6NFC9nkI43bmhtH7PGeJQ8y9Q/Y/Nm52R9UPij7Fi0h XMV8sGsR5FNNck98/FH5SWXjS/JBAAAAAAAAAADQaz746fr10kZ2yX1Nxl+7 5h8xKq8vo+d5SoODLvyyiNDHfKuVD+ou2aeM+n19PCevy/W6nsWxKK3zyd3G uCw+H+xaCjmEX4Sop3wsrsPl5MAO9Pfr+OUQryYH9tngoFXvutuuaxJT5VpJ PigDvnj9mqZpuQvT5J9vfXhu+8QuW6SpIVfRI0bln+/OfaJJlj0OtDwfbCUf sKk/x1984YeQD45ESwgnX38tu4RwdfPB8iJI509s3rz0ANJo9+w3jW4ZHZXK y88N8bepkg8CAAAAAAAAAADVaz5Y/vqqXtfoTXo4VqH9gXhx3HeRD2rIksra /KI/Oe7lvO8o9K/b0WM/7RmezWTuWV4KXQw4mYwIc1+6DNDSn4rVm44jRR8P LTsf1CJvn9ilwZNFhBYwbR0b04xp7pubWnwNqjRSnP3i89FtT2l73UUjKo23 5L19+WB5NDaSfMCmvlYrHyz/3kwdhpxXST64tC41WtCnJbI1sD4f9Os9i6yk CPakU6ntgXfetuBVRyIXUS/KL353ya6Izwcbpet/iQ4BAAAAAAAAAHi0rW4+ +OXQkKYPzWazEa13K4rGbkfxloUp30U+OBKHLJcK8kFdYJh9Bqm9vq7XNRz0 uUxPpbCI8FbBUW5HDy+VQ1gapRFP1+rpekPLenq6oCWTQVpue26HRoRz39x8 68Nzb35wWl76hXf6bYP6pFDNxeSnRYQaSGn7d+c+sU6kQ1s8WCUaG0k+YHNV 8kFpf+j9U4dPv6fDy772HZ22MyrJB3VsO17ao9mclMLmkgZw5UeR19axMW2/ kiLoldKIUIts/Z/+w2XdeOLjj1qbNll0qMM7fum3MsKS4Um5dBJ2nS0AAAAA AAAAAOAh1Wq1JqPFbl8ODcnr6b6+7OMK9fsB5dNrg4Plr98MDFhipenGxr6+ 47WafHQ7DrbkvWzZ6HI3OdyleAzT/f25eZaNwbfxO8qhLfhL7fhk9IhOHb/v X8OgoeisZXf5VDO1W/X6Z1FLi+10EdbySqFRqbyXDqVbCwqlzdlazfJHX3aL CLtWzxaC9XRBS+jqxdamTSc+/kgDPnvNfXNz75HDUhA/Wg2q5J+HT7+nX8xn L9n90PunmhtH/JI6HeH02TP3o7E9U0VjayUfsDn+4gt+pZ490bRKPrhr3yt+ VEWvX/3lT1rMrvmgX0IoZ61tLIDr+nr+5b06dZfywWUVwWbItud2WCBoLxnb s1O79Uql4suuLxmVLRqtMmEAAAAAAAAAAMDDSIOGgShfy65HG4kDEW3weKnU wxU1bBqKVtL5fS1jsocfWrNUUpY7BmuT3TH3OY0aAqb2taxK8zvZmDq71CCX XYrUCWaPomsMszFfxeoVrTsruaBd54Mdd9tzO56d2i2vLaOj2lv2AvkKSzNt r2sGi2qo7e3Ec4dhyaMd1CJavV5Fy+6yp2M1tFPI0g51Uln/RcOzNjYwK1r5 UXw1tP3yijDiQmT9VMsuLw1k/Rn5GLcWKxledjYCAAAAAAAAAIBHjOY1w8PD jUZDVzZlIzYfZ5TQHny4YJ2nWtqBfJLYiBStpcq2SW0sysv8CWb7104sJUwN siS266kURTs24i/yy41julZveRe0Kx+bdq1JyTjtBLOrQbV9+dhsGL4Tq2TF ZW4l51J0vbr279ukpmLXiWG7rKQIfhhVrlRP83YZEwYAAAAAAAAAADx0LODQ NyUNusr2kLtvqlkrqfogWxmreILfRSm6tqk4sIp7dW3ZtYemU1ST8vbZXbpe r/KW1Xe39tWvV5XpNJI3Y3udGCssQurstOCaNuZeqV6HV6WwAAAAAAAAAAAA eCQtIy0iYHogKDsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5NoJAAAAAAAAAAAAYM14 AwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAfO/+BQAAAAAAAAAAAMCa8a8AAAAAAAAAAAAA 1ox/AwAAAAAAAAAAALBm/DsAAAAAAAAAAACANeM/AAAAAAAAAAAAAKwZ/wkA AAAAAAAAAABgzei0O51Ou925/x/93+h/7v/Qf9x/q/9Z+nd7qYG9iXde2pzc 3o47bEf/CE2s9VKj6Hjxgd0+rsHSfzt+VB2/59Ln4eB2bu2278+104/iAdgB ls6+3YmP1w5vlz4M9QmnEXfrxtF2R0zVzZW9k+jSjSiuWXupEKHfxPHCj7BT +iKE6xafi52sbV7q0q5bXG+7JHHp7ZK33TCtvKGOcSM3l8I+S8N1F91qZpWz UoSDWYXc9bTZGy5UouyutPa5v35+9sQzOTGtXVXDJAnzLpx+Ym64qRjfA6na 2blbm0Tv/p5qu6O58XWS7xOjCsXsxLMtDCtxCf1Jtv3phnNzt0coqh9V8l4I V87fxPF2G4ifvskzDL8QbCrHc68d/tdNA3/4RCE7bovNJrsAnXCaHWtqZ2s/ /fQPN2DyctsYE0e1yof6JoYZ5pSfKe6Ojo8TJpi/Vdp2tRJ3qrWw0zLWS3yT +BHZzWaVbYfP3G+BThhBuE06bkDWh7vY4Y7thHslvI3P282tMK/TR+i0XX9h 1OEXRHzwMAHbbuShUPFMcTdhfDw/i8K8CBchDC7c4HYeoS5uNsSn4i+dXf70 Tex+CdmRE9MjzGR/3ds2Yn8Lhg9tqO5ODW3cLHIT3y5QmJZ+xtrUCaOz6+NH mfhtZGdtfVi5rKyh8omZZpfU3dyJS+amnV3TcIKulu4/jk2/+CqHWRsmZvIg 1qv/tRNmok12O2Y4fPqqhyP5m8OOELfv2K7hX3F1wkUKd6KvZrgl3PXrhL3s t4ex0wx3WrudbuFOyCa0n3m2m5+lyYvvjutmTWJ4dj3ju8eK6G7H1NYwncOV 80f2k9qmRmpSd+ydm1OJK9QOEzWeCW6KhpnrrmOYxW1fAz9qf+ptP1y7TxM1 C7d5Yg7YlY1ngJ+V7v5I1MD2CkMJNQ/3XPJOizuzoVsP8Zm3M0O23kPzcD3t EMlZZlciHnTivd1h6donbvH4ZrTpZO3iGy5MFDdjwpj9JLRZGiacDSVZNruT 3fxt+18INpkSY7QauUvsmoYrlyx+x43CX/VOONtw69g1sKtlF9UdONwZYSra lXI3iV3xcEOF2d4JVU1UxS5SmG3u0iQmhl3txOGXKmZzO/wW8PenmxTtdmqs Np64dn5rKGuYF223SzxfO2GANm9SN6K7gOGHlTj03rHTdCcZ5mM7jM0mYVwU d1HdYPw8Skwhq6KvTaiAnzvJ6sYlj29rG1m4ccPo/cRzg0/MSDf57aKGLeFk fdnstN1gQoUTdbIS2z3nr2aY1HZ+1j78OxzeDdj9Imi7Htwg/OzuuGOFKxzu Xnfp4/3DfZiYWnap3Mm6qWxTIdxVndB54ldDO3GyNmg7ms3+9O0SrqzrKlTL Kmr1sqH5OyVZRHfDJiri5mYn7ivUJdw3dvBQqMRst10TZxE3T064MLfDRQqN QnXa/jTjy9q2EVn5fWHi1jZnXDO7E23+2BlZQcKtGCanm4mh4p3ESfipYYNN HDzcgXbIjp1vuJOtTZgXnfiudneWv9385Ai3ie+ynTyrUDZX+cRFsWLbvWCj SN2tHd+x3bjWyF1MmzM22f2daOfqz8hqnLolE1fAdxp6dvepu1MTu4TfB/EN 5foMdfJ1DXMhzGebHMkZ6I4YCpP5PRBvT9yA7maN53C8KXzkLlQYs90z7vra mMKFa4cm7p5uhwOEqeDnfjvRkZt2NkXcpEn8OrBr4npxw/QXNRzCRu/vTnfL ujG7EYY92uF/QqN4loSr0Q7n4k7apmsYqLvqYXKE//EXqG3nljihMJNsGG6A 4bZyt4hNAz8X/P2SOEO7T+L37qpaVf2+4Qq76sTN7dYI1zbcTpkDpu6AduKu DFPA3Y3xvZi4WslboGMF8fVqu9478X0cqmTV9xfXjhVOwK51OE64P21axjM8 rqa7Y0Jjdx5WXHc7hA3uKrjBdJLHS81B17FdUJtGfo7GRwi/R9zUs0KEKx6m WTzz3EXuWD1CUd2d6IYaZmoolTsJq087jMeqGgpjEy7T1g4S/uUnT2Ki2Hji EvgZHW6jeA7ZNUgMNuxlbUM9E3e4u45WTptX+ua/AAAAAAAAAAAAAKwZ/w0A AAAAAAAAAABgzfgfAAAAAAAAAAAAAGvG/wIAAAAAAAAAAABYM/4PAAAAAAAA AAAAwJrx/1oIIGU= "], {{0, 75}, {2400, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{2400, 75}, PlotRange->{{0, 2400}, {0, 75}}]], "hidefromslideshowgraphic", CellChangeTimes->{{3.4483017593296423`*^9, 3.448301769562791*^9}, { 3.4487297016867533`*^9, 3.448729710294153*^9}, {3.449486136735977*^9, 3.449486146926845*^9}, {3.449490735677544*^9, 3.4494907482045183`*^9}, { 3.473785056790244*^9, 3.4737850735465307`*^9}, {3.485608891427413*^9, 3.485608902078108*^9}, {3.516534228793694*^9, 3.516534238460294*^9}, { 3.517925345960129*^9, 3.5179253474520397`*^9}, {3.518187873028657*^9, 3.518187875044894*^9}, {3.5181990234752483`*^9, 3.5181990242399282`*^9}, { 3.518200170676401*^9, 3.5182001710513353`*^9}}, Background->None], Cell[CellGroupData[{ Cell["Manipulate Secrets Revealed", "Title", ShowGroupOpener->False, FontSize->36], Cell["\<\ Everything you never knew you didn\[CloseCurlyQuote]t know about Manipulate \ \>", "Subtitle", FontColor->GrayLevel[0]], Cell["Lou D\[CloseCurlyQuote]Andria", "Subtitle", FontSlant->"Italic"], Cell["\<\ Wolfram Research, Inc. \ \>", "Subtitle", FontSlant->"Italic"], Cell[TextData[{ "The ubiquitous ", StyleBox["Manipulate", "MR"], " function will be used in most talks at this conference, and is the basis \ for such ventures as the ", StyleBox["Demonstrations Project", "IT"], " and Wolfram ", StyleBox["CDF Player", FontSlant->"Italic"], ". But just how well do you know the Manipulate function? In this talk, we \ will examine some of its lesser known features, ranging from those that are \ fully documented to those that are not documented at all. The goal of this \ talk is to empower you to become a ", StyleBox["Manipulate", "MR"], " expert." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["The basics", "Section"], Cell[TextData[{ "This talk will ", StyleBox["not ", FontSlant->"Italic"], "focus on the basics:" }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}], ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "1", ",", "\"\\""}], "}"}], ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ "We'll assume you have used ", StyleBox["Manipulate", "MR"], ", possibly extensively, and will focus on features which are less widely \ known." }], "Text"], Cell[CellGroupData[{ Cell["Refresher", "Subsubsection"], Cell[TextData[{ "If you'd like study the basics of ", StyleBox["Manipulate", "MR"], ", please see the two very fine ", StyleBox["Manipulate", "MR"], " tutorials, or go to the Demonstrations 2.0 Workshop this Friday, \ 4:30-5:30. Or check out talks from previous conferences. Or come talk to me." }], "Text"], Cell[TextData[{ "\[Bullet] ", ButtonBox["Introduction to Manipulate", BaseStyle->"Link", ButtonData->"paclet:tutorial/IntroductionToManipulate"], "\n\n\[Bullet] ", ButtonBox["Advanced Manipulate Functionality", BaseStyle->"Link", ButtonData->"paclet:tutorial/AdvancedManipulateFunctionality"], "\n\n\[Bullet] ", ButtonBox["http://library.wolfram.com/infocenter/Conferences/6526/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://library.wolfram.com/infocenter/Conferences/6526/"], None}], "\n\n\[Bullet] ", ButtonBox["http://library.wolfram.com/infocenter/Conferences/6531/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://library.wolfram.com/infocenter/Conferences/6531/"], None}, ButtonNote->"http://library.wolfram.com/infocenter/Conferences/6531/"], "\n\n\[Bullet] ", ButtonBox["http://library.wolfram.com/infocenter/Conferences/7325/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://library.wolfram.com/infocenter/Conferences/7325/"], None}, ButtonNote->"http://library.wolfram.com/infocenter/Conferences/7325/"], "\n\n" }], "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Three parts to this talk", "Section"], Cell["\<\ 1. Syntax: Look at some of the more obscure Manipulate syntaxes 2. Synchronicity: Understand what this is and why it\[CloseCurlyQuote]s \ important 3. Bonus content: For you, for later\ \>", "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Syntax: Using options in variable specs", "Section"], Cell[TextData[{ "If the specification for a particular ", StyleBox["Manipulate", "MR"], " variable causes it to use a certain control, then you can pass options to \ that control as options to the variable spec. Recall:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"opts", " ", "=", " ", RowBox[{"Style", "[", RowBox[{"opts", ",", "Blue"}], "]"}]}], "}"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", " ", "Bold"}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", " ", "Bold"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "var", ",", "xmin", ",", "\[Infinity]", ",", " ", "opts"}], "}"}], ",", " ", "Animator"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "var", ",", " ", "xmin", ",", " ", "xmax", ",", " ", "opts"}], "}"}], ",", " ", "Manipulator"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "var", ",", "xmin", ",", "xmax", ",", "\[CapitalDelta]x", ",", " ", "opts"}], "}"}], ",", "Manipulator"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"var", ",", RowBox[{"{", RowBox[{"xmin", ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{"xmax", ",", "ymax"}], "}"}], ",", " ", "opts"}], "}"}], ",", " ", "Slider2D"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"var", ",", RowBox[{"{", RowBox[{"xmin", ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{"xmax", ",", "ymax"}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalDelta]x", ",", "\[CapitalDelta]y"}], "}"}], ",", " ", "opts"}], "}"}], ",", " ", "Slider2D"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"var", ",", RowBox[{"{", RowBox[{"True", ",", " ", "False"}], "}"}], ",", " ", "opts"}], "}"}], ",", " ", "Checkbox"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"var", ",", " ", "list", ",", " ", "opts"}], "}"}], ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"var", ",", " ", "color", ",", " ", "opts"}], "}"}], ",", " ", "ColorSlider"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"var", ",", " ", "other", ",", " ", "opts"}], "}"}], ",", " ", "InputField"}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"ItemSize", " ", "->", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", RowBox[{"Scaled", "[", "0.5", "]"}], "}"}], "}"}]}], "}"}]}], ",", RowBox[{"Background", "->", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", RowBox[{"White", ",", " ", RowBox[{"GrayLevel", "[", "0.9", "]"}]}], "}"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"2", " ", "->", " ", "True"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"2", " ", "->", " ", "True"}], "}"}]}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"FontFamily", "->", "\"\\""}], ",", " ", RowBox[{"TextAlignment", " ", "->", " ", "Center"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ { StyleBox["\<\"Variable Specification\"\>", StripOnInput->False, FontWeight->Bold], StyleBox["\<\"Default Control Type\"\>", StripOnInput->False, FontWeight->Bold]}, { RowBox[{"{", RowBox[{"var", ",", "xmin", ",", "\[Infinity]", ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "Animator"}, { RowBox[{"{", RowBox[{"var", ",", "xmin", ",", "xmax", ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "Manipulator"}, { RowBox[{"{", RowBox[{ "var", ",", "xmin", ",", "xmax", ",", "\[CapitalDelta]x", ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "Manipulator"}, { RowBox[{"{", RowBox[{"var", ",", RowBox[{"{", RowBox[{"xmin", ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{"xmax", ",", "ymax"}], "}"}], ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "Slider2D"}, { RowBox[{"{", RowBox[{"var", ",", RowBox[{"{", RowBox[{"xmin", ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{"xmax", ",", "ymax"}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalDelta]x", ",", "\[CapitalDelta]y"}], "}"}], ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "Slider2D"}, { RowBox[{"{", RowBox[{"var", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "Checkbox"}, { RowBox[{"{", RowBox[{"var", ",", "list", ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "\<\"PopupMenu or SetterBar\"\>"}, { RowBox[{"{", RowBox[{"var", ",", "color", ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "ColorSlider"}, { RowBox[{"{", RowBox[{"var", ",", "other", ",", StyleBox["opts", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]]}], "}"}], "InputField"} }, AutoDelete->False, GridBoxBackground->{"Rows" -> {{ GrayLevel[1], GrayLevel[0.9]}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> True}, "RowsIndexed" -> {2 -> True}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.5]}}}], "Grid"], StripOnInput->False, TextAlignment->Center, FontFamily->"Helvetica"]], "Output"] }, {2}]], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "For example, this ", StyleBox["Manipulate", "MR"], " uses a ", StyleBox["Manipulator", "MR"], " control for x." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ StyleBox["ImageSize", "MR"], " and ", StyleBox["ContinuousAction", "MR"], " are ", StyleBox["Manipulator", "MR"], " options, and so they can be included in ", StyleBox["x", "MR"], "'s variable spec." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1", ",", " ", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Small"}], ",", " ", RowBox[{"ContinuousAction", " ", "\[Rule]", " ", "False"}]}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ "Options can also be set to values which dynamically depend on other \ variables. Note that, like elsewhere in ", StyleBox["Manipulate", "MR"], ", no explicit ", StyleBox["Dynamic", "MR"], " is required." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1", ",", " ", RowBox[{"Enabled", "\[RuleDelayed]", " ", RowBox[{"y", ">", "0.5"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Syntax: Locator options", "Section"], Cell[TextData[{ "Locator variables in ", StyleBox["Manipulate", "MR"], " let you overlay an arbitrary number of thumbs on top of a graphic or other \ expression, which intercepts ", StyleBox["all", FontSlant->"Italic"], " mouse clicks on the content area." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Line", "[", "pts", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".6"}], ",", RowBox[{"-", ".2"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", ".6"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "Locator"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ "But this control does not literally use the ", StyleBox["Locator", "MR"], " function internally. Rather, it uses ", StyleBox["LocatorPane", "MR"], "." }], "Text"], Cell[TextData[{ "That means that the options you can use in the variable specs are ", StyleBox["LocatorPane", "MR"], " options, like ", StyleBox["Appearance", "MR"], " and ", StyleBox["LocatorAutoCreate", "MR"], "." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Line", "[", "pts", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"{", RowBox[{".6", ",", ".2"}], "}"}]}], ",", RowBox[{"{", RowBox[{".5", ",", ".6"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "Locator", ",", RowBox[{"Appearance", " ", "\[Rule]", " ", RowBox[{"Style", "[", RowBox[{"\"\<\[FilledCircle]\>\"", ",", "24", ",", "Red"}], "]"}]}], ",", " ", RowBox[{"LocatorAutoCreate", "\[Rule]", "True"}]}], "}"}]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell["\<\ You can have lots of single locator variables, or you can have one \ multi-locator variable, but you can' t mix and match.\ \>", "Text"], Cell["OK:", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"...", ",", " ", RowBox[{"{", RowBox[{"pt1", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", " ", "Locator"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"pt2", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "Locator"}], "}"}]}], "]"}]], "Input"], Cell["OK:", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"...", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".2"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", " ", "Locator"}], "}"}]}], "]"}]], "Input"], Cell["Not OK:", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"...", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".1", ",", ".2"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", " ", "Locator"}], "}"}], ",", RowBox[{"{", RowBox[{"pt2", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "Locator"}], "}"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell["\<\ You can specify your own dynamic tracking function for locator variables.\ \>", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "pt"}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "Locator"}], ",", RowBox[{"Experimental`TrackingFunction", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"pt", "=", RowBox[{"-", "#"}]}], ")"}], "&"}], ")"}]}]}], "}"}]}], "]"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Syntax: {u, func} and {u, domain, func}", "Section"], Cell[TextData[{ StyleBox["Manipulate", "MR"], " lets you specify custom controls and controls with custom dynamic tracking \ functions by using ", StyleBox["{", "MR"], StyleBox["u", "MR", FontSlant->"Italic"], StyleBox[", ", "MR"], StyleBox["func", "MR", FontSlant->"Italic"], StyleBox["}", "MR"], " or ", StyleBox["{", "MR"], StyleBox["u", "MR", FontSlant->"Italic"], StyleBox[", ", "MR"], StyleBox["domain", "MR", FontSlant->"Italic"], StyleBox[", ", "MR"], StyleBox["func", "MR", FontSlant->"Italic"], StyleBox["}", "MR"] }], "Text"], Cell[TextData[{ StyleBox["func", "MR", FontSlant->"Italic"], " must be a pure function used to produce the display of the control." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", RowBox[{ RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"x", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "=", "#"}], ";", RowBox[{"y", "=", SqrtBox["#"]}]}], ")"}], "&"}]}], "]"}], ",", "#2"}], "]"}], "&"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", SqrtBox["10"]}], "}"}]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell["Advanced tip", "Subsubsection"], Cell[TextData[{ "Variables specified using the ", StyleBox["{", "MR"], StyleBox["u", "MR", FontSlant->"Italic"], StyleBox[", ", "MR"], StyleBox["domain", "MR", FontSlant->"Italic"], StyleBox[", ", "MR"], StyleBox["func", "MR", FontSlant->"Italic"], StyleBox["}", "MR"], " syntax will even autorun properly, which is especially important if you \ are creating a ", StyleBox["Mainpulate", "MR"], " for the ", ButtonBox["Demonstrations Project", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}], "." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell[TextData[{ "Two argument are passed to ", StyleBox["func", "MR", FontSlant->"Italic"], " by default:\n\[Bullet] #1 refers to ", StyleBox["Dynamic[", "MR"], StyleBox["var", "MR", FontSlant->"Italic"], StyleBox["]", "MR"], " for the current variable ", StyleBox["var", "MR", FontSlant->"Italic"], "\n\[Bullet] #2 refers to the domain specification for that variable, if one \ is given, wrapped in a list." }], "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Syntax: Control[]", "Section"], Cell[TextData[{ "Any control specification can optionally be specified inside the wrapper ", StyleBox["Control", "MR"], "." }], "Text"], Cell["These are equivalent:", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], "]"}]}], "]"}]], "Input"], Cell["\<\ Control can be used outside Manipulate:\ \>", "Text"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], "]"}], ",", " ", RowBox[{"Dynamic", "[", "x", "]"}]}], "}"}]], "Input"], Cell[TextData[{ "But the real power of ", StyleBox["Control", "MR"], " comes when it's used inside of ", StyleBox["annotations", FontSlant->"Italic"], "." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Syntax: Annotations", "Section"], Cell["\<\ You can interleave a few different kinds of elements among variable \ specifications. These are intended to annotate existing controls, but they \ can also be used to insert other controls, or other arbitrary content.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Prepend", "[", RowBox[{ "Manipulate`Dump`$validOtherArgumentHeads", ",", "String"}], "]"}], "]"}], ",", "Delimiter"}], "]"}], ",", "13", ",", "13", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "\"\<\>\""}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", "SpanFromLeft", ",", "SpanFromLeft"}], "}"}]}], "]"}], ",", RowBox[{"ItemSize", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", RowBox[{"Scaled", "[", "0.3", "]"}], "}"}], "}"}]}], "}"}]}], ",", RowBox[{"Background", "->", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", RowBox[{"White", ",", RowBox[{"GrayLevel", "[", "0.9", "]"}]}], "}"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"FontFamily", "->", "\"\\""}], ",", " ", RowBox[{"TextAlignment", " ", "->", " ", "Center"}]}], "]"}]], "Input"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ { StyleBox["\<\"Annotations\"\>", StripOnInput->False, FontWeight->Bold], "\[SpanFromLeft]", "\[SpanFromLeft]"}, {"Delimiter", "Grid", "PopupView"}, {"ActionMenu", "Hyperlink", "PopupWindow"}, {"Annotation", "Invisible", "Rotate"}, {"Button", "Item", "Row"}, {"ButtonBar", "Labeled", "SlideView"}, {"Column", "Magnify", "Spacer"}, {"Deploy", "MenuView", "StatusArea"}, {"Dynamic", "Mouseover", "String"}, {"DynamicModule", "OpenerView", "Style"}, {"DynamicWrapper", "Pane", "TabView"}, {"ExpressionCell", "Panel", "Text"}, {"FlipView", "PaneSelector", "TextCell"}, {"Framed", "PasteButton", "Tooltip"} }, AutoDelete->False, GridBoxBackground->{"Rows" -> {{ GrayLevel[1], GrayLevel[0.9]}}}, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "Rows" -> {False, True}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.3]}}}], "Grid"], StripOnInput->False, TextAlignment->Center, FontFamily->"Helvetica"]], "Output"] }, {2}]], Cell[CellGroupData[{ Cell["Annotation example", "Subsubsection"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Rectangle", "[", "]"}], ",", "Black", ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Rectangle", "[", "]"}], ",", "\[Theta]", ",", "center"}], "]"}], ",", "Red", ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", "center", "]"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "2"}], ",", " ", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "\[Pi]"}], ",", " ", RowBox[{"ControlType", " ", "\[Rule]", " ", "Animator"}], ",", " ", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"center", ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", " ", RowBox[{"ControlType", " ", "\[Rule]", " ", "Slider2D"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ControlPlacement", " ", "\[Rule]", " ", "Left"}]}], "\[IndentingNewLine]", "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Control layout example", "Subsubsection"], Cell["You can use this for arbitrary layout in the control area.", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"amp", " ", RowBox[{"f", "[", RowBox[{"freq", " ", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"color", ",", RowBox[{"Dashing", "[", "dashing", "]"}], ",", RowBox[{"Thickness", "[", "thickness", "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "axes"}], ",", RowBox[{"Frame", "\[Rule]", "frame"}], ",", RowBox[{"AxesOrigin", "\[Rule]", "axesorigin"}], ",", RowBox[{"PlotLabel", "\[Rule]", "f"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"f", ",", RowBox[{"{", RowBox[{"Sin", ",", "Cos", ",", "Tan"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"TabView", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{"freq", ",", "1", ",", "5"}], "}"}], "]"}], ",", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"amp", ",", "1", ",", "5"}], "}"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{"axes", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"frame", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"axesorigin", ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"Column", "[", RowBox[{"{", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{"color", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"dashing", ",", "0", ",", "0.1"}], "}"}], "]"}], ",", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"thickness", ",", "0.001", ",", "0.1"}], "}"}], "]"}]}], "}"}], "]"}]}]}], "}"}], ",", " ", RowBox[{"ImageSize", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"All", ",", "Automatic"}], "}"}]}]}], "]"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell[TextData[{ "To change the placement of controls, you can use ", StyleBox["ControlPlacement", "MR"], " as an option in the parameter spec." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"f", ",", RowBox[{"{", RowBox[{"Sin", ",", "Cos", ",", "Tan"}], "}"}], ",", RowBox[{"ControlPlacement", " ", "\[Rule]", " ", "Left"}]}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ "To change the placement of annotations, use ", StyleBox["Item[", "MR"], StyleBox["expr", "MR", FontSlant->"Italic"], StyleBox[", ControlPlacement ", "MR"], "\[Rule]", StyleBox[" ", "MR"], StyleBox["place", "MR", FontSlant->"Italic"], StyleBox["]", "MR"], "." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"f", ",", RowBox[{"{", RowBox[{"Sin", ",", "Cos", ",", "Tan"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Item", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"Dynamic", "[", "f", "]"}], ",", " ", "\"\< function\>\""}], "}"}], "]"}], ",", RowBox[{"ControlPlacement", " ", "\[Rule]", " ", "Bottom"}]}], "]"}]}], "]"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Synchronicity", "Section"], Cell[TextData[{ StyleBox["Manipulate", "MR"], " should always be responsive, but some evaluations just take time." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"x", "=", "1"}]}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", "1"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1", ",", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"Slider", "[", "##", "]"}]}], "]"}], "&"}]}], "}"}]}], "]"}]], "Input"], Cell["\<\ What\[CloseCurlyQuote]s the right way to handle evaluations that take longer \ than a seconds?\ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Synchronicity options", "Section"], Cell["\<\ There are two evaluation modes for dynamic content: synchronous and \ asynchronous.\ \>", "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Zeta", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"c", "=", "0"}], ";", RowBox[{"While", "[", RowBox[{"True", ",", RowBox[{ RowBox[{"Pause", "[", "2", "]"}], ";", RowBox[{"Print", "[", RowBox[{"++", "c"}], "]"}]}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell["\<\ \[OpenCurlyDoubleQuote]Synchronous\[CloseCurlyDoubleQuote] vs \ \[OpenCurlyDoubleQuote]Asynchronous\[CloseCurlyDoubleQuote]\ \>", "Subsubsection"], Cell["\<\ \[OpenCurlyDoubleQuote]Synchronous\[CloseCurlyDoubleQuote] \[Bullet] preemptive \[Bullet] very responsive \[Bullet] no indication on the cell bracket \[Bullet] can handle short evaluations \[Bullet] effectively pauses the front end while waiting \[Bullet] times out after a few seconds\ \>", "Text"], Cell["\<\ \[OpenCurlyDoubleQuote]Asynchronous\[CloseCurlyDoubleQuote] \[Bullet] queued \[Bullet] same queue as shift-return \[Bullet] can handle long running evaluations \[Bullet] cell bracket highlights until evaluation is complete \[Bullet] can be preempted \[Bullet] doesn\[CloseCurlyQuote]t interfere with other front end interactions\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Dynamic option: SynchronousUpdating", "Subsubsection"], Cell[TextData[{ "The default for ", StyleBox["Dynamic", "MR"], " is ", StyleBox["SynchronousUpdating ", "MR"], "\[Rule]", StyleBox[" True", "MR"], ", which is perfect for short evaluations, but can cause trouble for longer \ ones." }], "Text"], Cell[BoxData[ RowBox[{"Dynamic", "[", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"2", "+", "2"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Dynamic", "[", RowBox[{ RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"2", "+", "2"}]}], ",", RowBox[{"SynchronousUpdating", "\[Rule]", "False"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["DynamicModule option: SynchronousInitialization", "Subsubsection"], Cell[TextData[{ "The default for ", StyleBox["DynamicModule", "MR"], " is ", StyleBox["SynchronousInitialization ", "MR"], "\[Rule]", StyleBox[" True", "MR"], ", which again can cause problems for longer running initializations." }], "Text"], Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "0"}], "}"}], ",", RowBox[{"Dynamic", "[", "x", "]"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"x", "=", "1"}]}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "0"}], "}"}], ",", RowBox[{"Dynamic", "[", "x", "]"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"x", "=", "1"}]}], ")"}]}], ",", RowBox[{"SynchronousInitialization", " ", "\[Rule]", " ", "False"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Button option: Method", "Subsubsection"], Cell[TextData[{ StyleBox["Button", "MR"], " and ", StyleBox["ActionMenu", "MR"], " take a ", StyleBox["Method", "MR"], " option for determining whether to evaluate synchronously (", StyleBox["Method \[Rule] \[OpenCurlyDoubleQuote]Preemptive\ \[CloseCurlyDoubleQuote]", "MR"], ") or asynchronously (", StyleBox["Method \[Rule] \[OpenCurlyDoubleQuote]Queued\ \[CloseCurlyDoubleQuote]", "MR"], ")." }], "Text"], Cell[TextData[{ "Like ", StyleBox["Dynamic", "MR"], " and ", StyleBox["DynamicModule", "MR"], ", these options are set to synchronous mode by default." }], "Text"], Cell[BoxData[ RowBox[{"Dynamic", "[", "x", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"Pause", "[", "2", "]"}], ";", RowBox[{"x", "=", "\[Pi]"}]}], ",", RowBox[{"Method", " ", "\[Rule]", " ", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ActionMenu", "[", RowBox[{"\"\\"", ",", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"#1", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"Pause", "[", "#2", "]"}], ";", RowBox[{"x", "=", "#2"}]}], ")"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"Method", " ", "\[Rule]", " ", "\"\\""}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell["\<\ Note that depending on the values of these options, a DynamicModule\ \[CloseCurlyQuote]s initialization might evaluate after some Dynamics that \ are inside the DynamicModule.\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"list", "=", RowBox[{"{", "}"}]}], ";"}], "\n", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", RowBox[{"(", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"list", ",", "\"\\""}], "]"}], ";", "0"}], ")"}]}], "}"}], ",", RowBox[{"Dynamic", "[", RowBox[{ RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"list", ",", "\"\\""}], "]"}], ";", RowBox[{"Pause", "[", "1", "]"}], ";", "x"}], ",", " ", RowBox[{"TrackedSymbols", "\[RuleDelayed]", RowBox[{"{", "x", "}"}]}], ",", RowBox[{"SynchronousUpdating", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"list", ",", "\"\\""}], "]"}], ";", RowBox[{"Pause", "[", "2", "]"}], ";", RowBox[{"x", "=", "1"}]}], ")"}]}], ",", RowBox[{"SynchronousInitialization", "\[Rule]", "False"}]}], "]"}]}], "Input"], Cell[BoxData["list"], "Input"], Cell["\<\ This is actually a fairly common idiom for showing progress during long \ running evaluations.\ \>", "Text"], Cell[BoxData[ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "0"}], "}"}], ",", RowBox[{"Dynamic", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"x", "<", "100"}], ",", RowBox[{"ProgressIndicator", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "]"}], ",", "x"}], "]"}], ",", " ", RowBox[{"SynchronousUpdating", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Pause", "[", ".01", "]"}], ";", RowBox[{"x", "=", "i"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "100"}], "}"}]}], "]"}], ")"}]}], ",", RowBox[{"SynchronousInitialization", "\[Rule]", "False"}]}], "]"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Synchronicity options in Manipulate", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"SynchronousUpdating", " ", "\[Rule]", " ", "True"}], ",", "Bold"}], "]"}], ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"SynchronousUpdating", " ", "\[Rule]", " ", "False"}], ",", "Bold"}], "]"}], ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"SynchronousUpdating", " ", "\[Rule]", " ", "Automatic"}], " ", ",", "Bold"}], "]"}], ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"SynchronousInitialization", " ", "\[Rule]", " ", "True"}], ",", "Bold"}], "]"}], ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{ "SynchronousInitialization", " ", "\[Rule]", " ", "False"}], ",", "Bold"}], "]"}], ",", "\"\\"", ",", "\"\\""}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "->", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", RowBox[{"White", ",", RowBox[{"GrayLevel", "[", "0.9", "]"}]}], "}"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ItemSize", " ", "->", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", RowBox[{"{", RowBox[{"{", RowBox[{"Scaled", "[", "0.3", "]"}], "}"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", RowBox[{"{", RowBox[{ "False", ",", "True", ",", "False", ",", "False", ",", "True"}], "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "->", "\"\\""}], ",", " ", "\[IndentingNewLine]", RowBox[{"TextAlignment", " ", "->", " ", "Center"}]}], "]"}]], "Input"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ { StyleBox["\<\"Manipulate options\"\>", StripOnInput->False, FontSlant->Italic], StyleBox["\<\"Short evaluation\"\>", StripOnInput->False, FontWeight->Bold], StyleBox["\<\"Long evaluation\"\>", StripOnInput->False, FontWeight->Bold]}, { StyleBox[ RowBox[{"SynchronousUpdating", "\[Rule]", "True"}], StripOnInput->False, FontWeight-> Bold], "\<\"perfect\"\>", "\<\"might time out, $Aborted\"\>"}, { StyleBox[ RowBox[{"SynchronousUpdating", "\[Rule]", "False"}], StripOnInput->False, FontWeight-> Bold], "\<\"excess overhead, waits in queue\"\>", "\<\"perfect\"\>"}, { StyleBox[ RowBox[{"SynchronousUpdating", "\[Rule]", "Automatic"}], StripOnInput->False, FontWeight->Bold], "\<\"sync\"\>", "\<\"async\"\>"}, { StyleBox[ RowBox[{"SynchronousInitialization", "\[Rule]", "True"}], StripOnInput->False, FontWeight-> Bold], "\<\"perfect\"\>", "\<\"might time out, silently\"\>"}, { StyleBox[ RowBox[{"SynchronousInitialization", "\[Rule]", "False"}], StripOnInput->False, FontWeight-> Bold], "\<\"excess overhead, waits in queue\"\>", "\<\"perfect\"\>"} }, AutoDelete->False, GridBoxBackground->{"Rows" -> {{ GrayLevel[1], GrayLevel[0.9]}}}, GridBoxDividers->{ "Columns" -> {False, {True}, False}, "Rows" -> {False, True, False, False, True}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.3]}}}], "Grid"], StripOnInput->False, TextAlignment->Center, FontFamily->"Helvetica"]], "Output"] }, {2}]], Cell[CellGroupData[{ Cell["SynchronousInitialization", "Subsubsection"], Cell[TextData[{ "If you have a one-time evaluation that might take longer than a few \ seconds, put it in the ", StyleBox["Initialization", "MR"], " option, and set ", StyleBox["SynchronousInitilization", "MR"], " to ", StyleBox["False", "MR"], "." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"Pause", "[", "10", "]"}], ";", RowBox[{"x", "=", "1"}]}], ")"}]}], ",", RowBox[{"SynchronousInitialization", "\[Rule]", "False"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["SynchronousUpdating", "Subsubsection"], Cell[TextData[{ StyleBox["Manipulate", "MR"], "\[CloseCurlyQuote]s first argument gets wrapped in ", StyleBox["Dynamic", "MR"], ". That ", StyleBox["Dynamic", "MR"], " has ", StyleBox["SynchronousUpdating \[Rule] Automatic", "MR"], " by default." }], "Text"], Cell[TextData[{ "If evaluating the first argument might take longer than that during \ interactive manipulation, set ", StyleBox["SynchronousUpdating \[Rule] False", "MR"], " and possibly ", StyleBox["ContinuousAction \[Rule] False", "MR"], ". (You should also think hard about whether such an example belongs in ", StyleBox["Manipulate", "MR"], " to begin with." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pause", "[", "2", "]"}], ";", "x"}], ")"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1", ",", RowBox[{"ContinuousAction", " ", "\[Rule]", " ", "False"}]}], "}"}], ",", " ", RowBox[{"SynchronousUpdating", "\[Rule]", "False"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["ControlActive", "Subsubsection"], Cell[TextData[{ "Another possibility is to use ", StyleBox["ControlActive", "MR"], ". Note that ", StyleBox["ControlActive", "MR"], " works best with the default ", StyleBox["SynchronousUpdating", "MR"], " setting, ", StyleBox["Automatic", "MR"], ", which switches between ", StyleBox["True", "MR"], " and ", StyleBox["False", "MR"], " as needed." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ControlActive", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"hz", ",", "\"\< Hz\>\""}], "}"}], "]"}], ",", RowBox[{"Play", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"hz", " ", "2", " ", "Pi", " ", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"hz", ",", "220", ",", "880"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ StyleBox["ControlActive", "MR"], " is the basis for ", StyleBox["PerformanceGoal", "MR"], "." }], "Text"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ "Note that the default ", StyleBox["SynchronousUpdating \[Rule] Automatic", "MR"], " allows even the initial display to be shown first in preview mode, and \ then in full mode." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell["\<\ Here' s a real - world example that combines knowledge of SynchronousUpdating \ and Method to create a Manipulate that gives feedback during a long running \ evaluation, producing a result with links to more information.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"calculateResultsList", "[", "args___", "]"}], " ", ":=", "\n", RowBox[{"CheckAbort", "[", "\[IndentingNewLine]", "\t", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"fake", " ", "call", " ", "to", " ", "a", " ", "time"}], "-", RowBox[{"consuming", " ", "thing"}]}], ",", " ", RowBox[{"which", " ", "occasionally", " ", "sets", " ", RowBox[{"$status", "."}]}]}], " ", "*)"}], "\n", "\t", RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Pause", "[", ".1", "]"}], ";", RowBox[{"$status", " ", "=", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\t", RowBox[{"$status", "=", "\"\<\>\""}], ";", "\[IndentingNewLine]", "\t", RowBox[{"{", "args", "}"}]}], "\[IndentingNewLine]", "\t", ",", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"$status", "=", "\"\<\>\""}], ";", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], "\n", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fullReport", "[", "results_", "]"}], " ", ":=", " ", RowBox[{"CreateDocument", "[", "results", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"briefReport", "[", RowBox[{"{", RowBox[{"0", ".."}], "}"}], "]"}], " ", ":=", " ", "\"\\""}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"briefReport", "[", "results_", "]"}], " ", ":=", "\n", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"theResults", " ", "=", " ", "results"}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"Dynamic", "[", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", "\t\t", RowBox[{ RowBox[{"TabView", "[", RowBox[{"theResults", ",", " ", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Automatic"}]}], "]"}], ",", "\n", "\t\t", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"fullReport", "[", "theResults", "]"}], ",", " ", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Automatic"}]}], "]"}]}], "\n", "\t", "}"}], "]"}], "]"}]}], "\n", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", "\n", "\t", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"TrueQ", "[", "running", "]"}], ",", "\n", "\t\t", RowBox[{"Column", "[", RowBox[{"{", "\n", "\t\t\t", RowBox[{ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEnd`EvaluatorAbort", "[", "Automatic", "]"}], "]"}], ",", " ", RowBox[{"Evaluator", "\[Rule]", "None"}], ",", " ", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Automatic"}]}], "]"}], ",", "\n", "\t\t\t", "$status"}], "\n", "\t\t", "}"}], "]"}], ",", "\n", "\t\t", "result"}], "\n", "\t", "]"}], ",", "\[IndentingNewLine]", "\n", "\t", RowBox[{"{", RowBox[{"mode", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"PaneSelector", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", "\t\t", RowBox[{ RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"TabView", "[", RowBox[{"{", "\[IndentingNewLine]", "\t\t\t", RowBox[{ RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{"a", ",", "0.345"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"b", ",", "0.123"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"Control", "[", RowBox[{"{", RowBox[{"c", ",", "0.789"}], "}"}], "]"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", "\t\t\t", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "0.234"}], "}"}], ",", RowBox[{ RowBox[{"InputField", "[", RowBox[{"#", ",", "Number"}], "]"}], "&"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"Control", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"e", ",", "0.678"}], "}"}], ",", RowBox[{ RowBox[{"InputField", "[", RowBox[{"#", ",", "Number"}], "]"}], "&"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"Control", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "0.012"}], "}"}], ",", RowBox[{ RowBox[{"InputField", "[", RowBox[{"#", ",", "Number"}], "]"}], "&"}]}], "}"}], "]"}]}], "}"}], "]"}]}]}], "\n", "\t\t\t", "}"}], "]"}]}], ",", "\n", "\t\t", RowBox[{"\"\\"", " ", "\[Rule]", " ", "\"\\""}], ",", "\n", "\t\t", RowBox[{"\"\\"", " ", "\[Rule]", " ", "\"\\""}]}], "\n", "\t\t", "}"}], ",", "\n", "\t\t", RowBox[{"Dynamic", "[", "mode", "]"}], ",", "\n", "\t\t", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Automatic"}]}], "\n", "\t", "]"}], ",", "\n", "\t", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"result", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"ControlType", " ", "\[Rule]", " ", "None"}]}], "}"}], ",", "\n", "\t", RowBox[{"{", RowBox[{"running", ",", " ", RowBox[{"{", RowBox[{"False", ",", " ", "True"}], "}"}], ",", " ", RowBox[{"ControlType", " ", "\[Rule]", " ", "None"}]}], "}"}], ",", "\n", "\t", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"(", "\n", "\t\t", RowBox[{ RowBox[{"running", " ", "=", " ", "True"}], ";", "\n", "\t\t", RowBox[{"result", " ", "=", " ", RowBox[{"briefReport", "[", RowBox[{"calculateResultsList", "[", RowBox[{ "mode", ",", "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "]"}], "]"}]}], ";", "\n", "\t\t", RowBox[{"running", " ", "=", " ", "False"}]}], ")"}], ",", "\n", "\t\t", RowBox[{"ImageSize", " ", "\[Rule]", " ", "Automatic"}], ",", "\n", "\t\t", RowBox[{"Method", " ", "\[Rule]", " ", "\"\\""}], ",", "\n", "\t\t", RowBox[{"Enabled", " ", "\[Rule]", " ", RowBox[{"Dynamic", "[", RowBox[{"Not", " ", "@", " ", "running"}], "]"}]}]}], "\n", "\t", "]"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"SynchronousUpdating", " ", "\[Rule]", " ", "True"}]}], "\[IndentingNewLine]", "]"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Bonus", "Section"], Cell["\<\ Is there a better way to construct Manipulate inputs rather than typing them \ from scratch.\ \>", "Text"], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell["\<\ Palettes > Basic Math Assistant > Basic Commands > 2D or 3D > Manipulate\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Bonus", "Subsubsection"], Cell[BoxData[ RowBox[{"Explore`ManipulateMaker", "[", "]"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Conclusion", "Section"], Cell[TextData[{ StyleBox["Manipulate", "MR"], " at first glance is rather analogous to ", StyleBox["Table", "MR"], ", making it trivial to create useful interfaces in a few lines of code. But \ there is quite a bit of depth too. We've seen some of it today." }], "Text"], Cell["Questions?", "Subsubsection"] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{1405, 856}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, CellContext->Notebook, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, \ 2011)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzt3U9oXGe65/HAgEBSIVllV1UQjkEkyGAnYNyy2w43ThzjONyOO3YTbDqI 65tO0rG5gY7s0Ol0B4duQRbugAlO2pmFMY17Ydkh2Wnh3cVcr41hGBjMLGYx i6rFLGYxi4FhHp9H53mf854/daokOXL0/dxqR64657zv+5z36EL9/J4z85vf /eo3/+mpp556W/73r6NPPfXo5w4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAACwubWdNTlI4QErPvoRaU9aA/KjGGLHsm74o5VVyW9W XcaKLesfZIgW64xiuJ7U7OQQRys8lfkj5Hu73kNrZz2GHddEu7a12rHvvuva 7fUzULsbsP8AAAAAAAAAgDV39OjR559/XtMH//7BRP79vXv3yi47ZmbsW2LZ fX5+/pNPPjl79qzssm3btmgvbaLiK2U52tFy2g05QuGnsm++RX9Y62o0Ovmo OnPRkRYe2TvdbN4Y/HWx2dy6dascfOgd29mobue2be9NTfktrzab8o68H9Vn f/aA+aP5w150W8qOcijdUv70DVUcJH+c0+440WY6iqvZHhaOorD+hcWpQ7aX 41zKFlCOdmTr1joHlE+lOOdzJ0veiXouf17NblBxfNn3Ro26VfTquV27jpx6 61f/dk5e8sPufXNlZYx2FHOvHv7FO2d035+9fGh6+/bqfaUt2UWaqF//3Qd+ Lrvkr1B9f+6Vl6Xdvi/ZzC7k4XbURh/tWLmvDNAqUPjbRnev2boczVqPSlen ejpSf5DC8ygb/NPxN/Qk/vOZf5F2bb7l9+pbAf8a6EQDAAAAAAAAADaUdrt9 9+7da9euRSGFvv/w4UNN3/z7i4uL8r5sL+/Lp/pXcf/+ff3h1q1bzz//vA+S 5M1PPvmkIgc5evTow3JyQNlXjlC2gfRBepKPzLRv8/Pz2rT/6Pbt2/KR9FM+ KovGtALNylBG3j/fbD4Y/HWj2dyyZUtz2B19t3du23Zpaqpil4vN5jNTUzoK cWTrVv/pxMRERRFuuC1lR+mwVlI+8gc5n/SqrFDRcQo3llFcrBy4jNFGUVb/ fHH60mTwXmXB99dI8Wr2POrwveTURPPTOuZPq25p9e87qCOn3vrTP/5+5T/+ PXot/nBbPqoYjlxKv/q3c3+9s5zf952/XHx2drYwJZS/yl6yjewo29Q5BY9K 8Z//JrtYaBW9X/+l00mOMNyOel7qbC/Vk2FqVBoNcO7VwwM1Lcexs6Clk9fu fXOFk6GsdP4g0QbSn8JqyAkqHELNCthLDq6zkYgQAAAAAAAAAJ447Xb7q6++ un//vqYq9r30wYMHNXo7fvy4foVu2y8vL9+6dUuzLflZtvn4448709MTifn5 +fuJ6e3bNSOQY2o+WBHcaD54+PDhiZwtKc0Ho0+f27VLWteIMAry5AeNLJeW lqKmLR+8fPlyWaolA9EKSCsVoczQ+eD1yclGoyGtD7ejdWl/s3mnMhzU1/fJ Ejw9xVE+qN0oHKAub7QtXxwbs3LJR1ET+5Nsrs5xPmw0olBS+vZ9jVHISC2q K6x/VJy+ogyu4nW62SxMQ/ZXZouFPX9masrv8mFS//wklJpEm1WcKW/HzMy5 Ly9ZGCQ///KD9+UlP1jqt/DtN4Up3u59c4s/3LYs7Mznn8mOpy8sfHrjugVD /3zmX/Kl8CGXHLxOSmsh1wsHD0S/ZPR96cBHV7/W10LFK21OjqA7Sm8H2lHn s3a+bEd5x0dsO/fsiYK8uVderj5C9Dp08oTFmlY66flApTtx7oP89vLzr39/ wXorbekEkLPpT64NQfe1CtSsnsyKin8SAAAAAAAAAADYyNrttgZh+/bts+hB 3jx79qwuCVxcXPRRzo6ZGQ0ENQrU1XlRkCeH8tGb0F00Usx/mSzv+HxwS1YS yzRt/WAjiZaibTQifG7XLh8MnTx5UnND+fPZ2VkfrMgPt27d0vgv+si6pAGi tlgRyvy4+WAUIVW//pjUTU5HlA+Ojo7WzwdtMuTzwe+npsqWIubzQR2Cblkz HNSXLbiz1alRPlgxnPy5q16xGL2OjY83s8ljzXAw6rk4n32/NToaHTm/zFC2 8UUrI1eoLRv85Qfvb23LfqMN57X5tzUl1IV+Pt/ZvW/OPnrpxJvRjnJky8g0 lorieAu55CWt9A2PbLmf5YMWVOn70v/RRKOS/kLw+eDuAz8faEefD1bvKGWx EnWmp/08tHxwZGSkb9PWuj5Z0pdORl2/dLKx/gMGfyLeXfyzHurcl5fkrFln ZEv589DJEzaEA68fsyFYBWQa1K8e+SAAAAAAAAAAPInaydMDHz58ePbsWfuq XFy7dm15efny5cvyp//+WUM3DfKWlpbu3r1r4aB+Py9/ys+yo628k3csUqyZ D+qaGk/esXxQQ0N9U1u03W0Vkq6LlO7JzzY6H0DcunVLbx96/vz5/LfcunxS N6jOm2Qv2Vc2kI6NOh82Gj60Gkn4DewLdh8hvTg2lt8y0kgX30Whmzbkj3Bs fNxyty8mJnQg65cPPihfCleRD+ZDuu8mJ6XnhaPQ15XJSX9byKHzwagO95KO tUZHtd3ZsTEpWnU0GXWsov7yOjU+rtWTnvddQphfPGinryKO8QvHLODbkrNz z57FH25/euN6Z3racskdMzMaG8n7mirmg3h558znn+nxXzh4wGeaUT4oh5ID NisXcvp80CfLUT6Y70aeXg4+H2wU/UOCsh2jfLCwaL56WigphZ+HP3v5UM0j qGa63jnKB+UlTWypnMO+RA2XGsufb/zmX6MJYHVoJit8Hx356aflLOsqSGso 5INJutq3es1hn/UJAAAAAAAAAPjRabyljyDc4pbSaKKnKwRthV07faKfZoKy 1+XLl6NVJHpAXX7YmZ7Wr5Hr54NbSu6tJ+/Y/UWjb86j3bUnus5RutFoNKST 0tUtbvWi5oNLS0vy0f37931K0nH3XD1//nzffFCPpqmol88H84HF1uRxflE+ WOebef1afn923y8mJjSWst3lh9boqLyv4WAjDaHWLx98UHKX0Yp8cOe2bVE4 2MrmpzoKqaHfbDa506nOyeHywXb2kYj3kmNGp0l+ODU+7tt9b2rK5tjpGvWX o2nIKMfRj0KSVbSEsHBRpF88WD2u53btsuV71hNt0VIwjbNlzreefnqL+ycB v3jnjO6rK870avVJvaX/C8kqwk9vXPehnuWDv/vbFb0Z6UdXvy67nG1W9M0H bdK2KukQogNquers2HHpmD9NeVq9QydPaAZqv9OifLDiCPmm86WLaltRunw+ qNnluS8v2SWfnwCyvUwAOdH+5sktlw8OWj0AAAAAAAAAwBOn1WppHGbRm8Vt z87O6h1E7Sv65eXlpaUlzQct9asO7B5DPqgf6S1SNbuxZFO2P378eHQD1Vaa D+7du9cPUNvVBZXSYc0HG/0e+mbZhIluIGmhVRQZaJYa5YN1ApH8ujmNkLQV jXWUrhiyNZ562HXNB2Ww+WijVZIPyvtRyjabJqTRKJ7JrtSznO5RUDJUPhjl kpbfbUlXwloc5qNJG50c3z+48M7UlIaDhfXX02pTV6sXLSGUDtgkHHrxoGZ8 f72z7OPgaBdtXbNpHalOJ70r6ZmLn1n9W7mlYfJX2eXA68csSdzibkqsIddH f7viY8qKbrfq5YOFvzQKlR2w5r7a5+rrXas3vX17tNAvygfrzEB/zHzp3jz7 2zqli0o09+phOzV1JkDTPbM1ygcHqh4AAAAAAAAA4InTarX8Iwj1Tp4aFzYa Db3LqIYm/uGD8k5Z6hflfRVb5rfPr1ux9M3fX9QHbdJ56a2mlvZ9+O3bt/XO qNoB2cBGoUfTfHB0dPTmzZu6utAWUv3hD3/QxY/6WMO++WBe/UVtUcrmA7i+ TfjETVcI5vfVCFKfeWfFXNd8MFpkV3gcnw9ezBZqZGTEr2myUTST24ralldc TjdcPhgVoZUGaj4U0+pFCaZFddGIKuqvKaG/GaO+73t+Z2qqMDOtv3hQjnnu y0uW8VXniW2n47KhuVcP9w3IHp2LdOMt7o6+KyHX1a/lJP7yg/f73mX0ScwH O2lIajdZtTqvQT7oSld9l9HCEtlxPr1xvXA2Ro3qVewvUvJBAAAAAAAAANg8 2tlHEDabzeXl5WvXrumis8XFRVtaGD0lcM3zQV2ceCtrfn5ec0DNB5cS9unD hLzTmZ62XEmHIztqP+VNvY+oDx81H2w0Grq60JYQ7piZ0TBRPtJ8ML9isU5J 1zsfzCduZU1ESdA65YP3sj/Pjo35VKgsHyxM2SxyinoSldSOMEQ+2M7eHfS7 ZK/Cystfo/u42lLQ6MSV5Uo+iInWVBYuIZQj33ErE2suHtSGotty1p+0tmxN 7zlZPQOlJwvffqMN2cY+5NLVi33vMvqE5oNaAcsHpaE1zAd96SruMlqWD+rT J/XmooXXUZ0KkA8CAAAAAAAAwGbQTh9BqCvs7Ml9moudPHnSlhb6O3yuRz4o Hfg4Rz7SuyBq6/4j6bO8s3fvXrt5o35RbwsA7V6RBw8elHeOHz9uN6XUfNAe pCg/a5Lob0y6wfPBfD5VJ0lZp3zwWPY5fdFdRuvngxUp2+mikg6dD9bcSxeL RaXWqTLcifNHLlxCONziwY7LjF6bf3ugWE3MvfKyf3Zeda7kwyn/AD4LufR6 3LlnT/VdRp/cfHD3vjndeGu7tbb5YFS6sruMluWDQwfEHfJBAAAAAAAAANh8 WskjCO/evTsxMaGB4LOzsxqCNJOnB+rSQsvUqp8qOHQ+KNtb0uf5fDBJkFa2 0SxP/vRP2pKxyEB0/aPd1FH+1DftaH4sehztrWwmH+n7P1Y+2MzeYTV/t9Wy HWvemDSfD9q9OiPyZs18cGRkxN//80H2LqM188Fj4+NleVDU7ceWD3aSxWL5 UsvGq8wHOyVLCIdbPKhH++udZct36sdqspnPB/uuO6uTD+qVe+LcBxV3GX1C 88F2eh9XvY3n2t5fNCpd2V1GC0s0dN2iCpAPAgAAAAAAAMAm0UofQfjs7Ozi 4qIGhT5K07jNP3xQPqrIB/2qw4HyQQsft6Z0uV/LPX/QttE4z3qr8ZkuFZRR HE4cTckQ/KJCnw9uSR5QKBvovUatG3695OPJB7+bnJSNbzSbZS97ht0a5oPX Kxu9V9JKPh9sjY6W3WW0Zj5YMYoNng/qYxMtVrN7ilaHvPklhP51Z2qq/uLB jst3Bk3H8tlW/Xww//A7C7mkA9Pbty/+cLvsLqPrnQ9q3drlCqvnI7882ewX 75zRLV868aZ/ZmVUQ7vtat/WC0snf1bcZfQx5IMDVQ8AAAAAAAAA8CRqp48g nJ+f1xuNWihmwdzhw4dtkZ3mdxaxRfmFHK3mnUhte7/esOx7aX9MWxVoSwjt K/2vvvrqYTl7xmK0FlIPvry8LMPXr+jtzceZD/Z9lcVzq8kH67+q80GpW9ld RgvvI/qk5IOFpY7yQR+rycFvFFVPXz7k7RQtIbTXqfHx+osHO6tY/5XPtqqr VzMf3JawI+fvMlozH7TrvSJvjQ545uJnb579rfSn4qX/8MDva9WT/ki3869f vHPmT//4u24mTfhnVvoaSrerW5ctfdNlpau4y+i65oN9q3fk1Fs15yQAAAAA AAAAYCNrp48gXFpa0uf0+fUjuiLv5s2bunzP1hVqEqd3IvULjlrJHT5tWV+z /E6k1rrPB8vioXxa106eDadtaUPSjfv371++fHk0WXg14chflxN6BJ8Pyl47 ZmZkR3+3UjnyBswHbb3SRssHNSuRvhXeZTS6T+lmzgejJzO2S5YQ3pma0jWJ 9VOejZYP6m8P6cavf3+h8C6jffPBOi/7NTXojvnEreaO8jp9YcEmvP0ushr2 fUmhfLcrSld2l9F1zQf7vha+/aZ+bA0AAAAAAAAA2MhaySMIdZFdu93262Lk B83Obt68aTmIbK9LDpeXl6e3b2+6R+bpcSxk9Hcita++I8Plg53k3o+6hFAX BurP0nThcwxlGws0fT4oR9PjSCf9eqUNmA/acTZgPqgR7c5t2/J3GZWPNk8+ 2MreTDWfD0ZPuJMfmkkg6DcbdPFgZ0Pmg7px2V1G1yQfLDzgmYufSd/09ebZ 3xa+ol81Vr3f/e3KR/K6+vVC+pKf9SMZhRxwx8yMhYN2dnwN33j/3eqmZbzR vmWlK7vL6HqvH6wewqGTJ8gHAQAAAAAAAOCnoZU+gnB5eTl6Bpn8oA/vO3/+ vF/eopna/cTi4uInibt37+rj//wTDOWdpaWljxOf5Mg2Q+eDtoRQ+jC9fbv0 U9ct2rf3llrKzxpoat+WEn6ZpD7zy25w+qPkgy+OjY0kRktYh9cwHxxJFbZ4 3a0H7JsPSpHl0/eyUZeumPtp54OagVo+eDG5j6g+2FFePvvLt6WX0unc4sFB I56NmQ/q6ArvMto3H5Tj27RslCjMB6UC+RXEkbL1g9pi1IpGhIs/3NZP9TL0 u/sa2hEqmm72Wz9opSu8y+i65oO798317T/5IAAAAAAAAAD8NLSTRxAuLS2d PXs2SsTkh5MnT8pHe/fujb7Gl5+f27Xr8uXLGgvqvT0PHz7svwMXulhP3cqR LQ8ePCg/7Nu3r+xrZ3lnfn5eN25mH3co2x89elSOfPz48cL+2xFky8XFRX26 4mLCf1GvGaI9layixTrFHDoftKVJhXxv1zAfLFxuKeTNQfNBXQ0XLaA7Nj7u j1OWD743NbUB80Fpom8++KLLBy1rljFqtiXjrW5Lfi4bXfXZ9DZmPmgFyd9l tE4+qEFV2eUQBW0+H7SniBbSf7fQKnr+YGGL0kP99J+Ov+H/jURZDfu23qp8 /mBUuvxdRtc3H6xXPcJBAAAAAAAAAPgJ0K+Xm82mfh/uwwVN1uyrcn9bPI0I LUsqXCBj2/i1J/kv+bVp/ea8sHvSrm0TfTNvfTCF4YjvrbUbLQKKRl3YYp1i 1oyf8jGffjPvVz5GLArxq9JOjY+vJh/0yxK96LmBdfLBlUVPubuMfu96W5YP fpjElGX5YGFJH0M++Ex2OeRsST444W7Jq6Wzq8m3daWorbL0c6BUWjb+0z/+ fuU//n3u1cOrzAerc8lB88FOyV1GH527fvmgv99v9RXhd9QD2q+gMtGgrALa GTu+/h5Y+PYbXUJYGL3la2iToW/rfUu3JXeXUSvdOuWDg1YPAAAAAAAAAPDk amfX0EUf+bV1+V0sCrHQreXunmdxSeFSFP26u/D4hd3Lb6Pd25oqO44f4Cpb 7FvJofPBmslOK/uQO03W6iQC+Xyw+taaA+WDrfS+iPm7jD7I9tbywavu/T9O TJTlGmubD25tt/z9PO9VFqGwXM3sEwOjfNZSQp0/l3LZ6DrlgxYPDZ0PSmUG ygdt1lWHXO2iu4xKD+vkg/VzrlbJgsSa+2rf8p3XT63zhU/fy+eD9c9dndJF dxmVmhTmg+/85aI+QHD1+eCg/ygCAAAAAAAAAPDkqlgb0vcjv5wnn9/5DfLL f2ouS6nTveqDDLoKZrjFMo8nH/Sp03eTk4W5RmHf1jsf1B2bubuMFuaDvlB3 pqYqCuVXIGqSuJr1g/uzXfIPEIy29Me/5/JBP7ovypPNVm6lZ37Ltc0HT19Y qBkWGxm4ZkMvHDxQJx/8651l2filE2/WzAc7RXcZlW10Ud7Gzwe185q+Lf5w u/X00/kzuE75oLUe3WVUS1d/CWf9CpAPAgAAAAAAAAAwhMeQD8oGp7MJlz0C L4ot9jeb+90z2h5PPtguustoPh9sZZ+79yB5UmF+FNFyP5+yDZcPdpJEzPft yuRkYaa2M7eZ3T3yvdx9RwuTnfxm+VO8Vvmgpm+f3rg+aDz06NGcyc0/X5t/ u+8MfG7XrnyQVCecamXvMir7Pin5oG7w7OysbiMdi2bpuuaDndxdRmWzwnzw yKm3qkdRpwLkgwAAAAAAAAAADGGV+WCz35O/1DNTU9Ez/vYnd3nV2GIlL9i6 9V76kT5S7fHkg53Ku4z6fFC28cvr7mUjQj8Kv03LPSSusNR+90LRbT91DaA9 6k632blt2/fZbfQBkZpLyqf+I9lydmwsOndRrBl1z9dq9fmgHOTA68fqLwPU HtqJtsVx1dGS7PLu4p91DaA+qs9K3TfkaufuMiobPyn5YNstIZSx6xJCH4iv az7Yzt5lVCqjpYvyQYtuXzrxZn6a5Y/pPyUfBAAAAAAAAABgNYbOB7+YmPiw 0ZB9K16n08c7Rkvn9HVpako2OJIEczeymZpFhI8nH+yU32XU8sFHmUtubeCD ZBfpf34UD9LFg5ayRfngnampvgU8nxRQRAGr7n4+qd7ppJLRp3oerQJyhIu1 6/8gXTxYdgPJNckHpWO2xCwKsKIt313885FTb9mzNYUtjjvz+Weak+bjIXln 7pWXLaLyY6kTcnVydxnVtYRRILUx88FO5RLC9c4HO7m7jGrpohJJfyzB1NuQ tkqexCpnX+aAf7gq+SAAAAAAAAAAAKsxdD5Y53UjXSSo6dulogV6ha8/Juvj ZMfHlg9qiLY/1xOfD2rqIX2rOYovJiZGRkb8Y+/O19vRvzT/EvuT5LTOLt9N TrZGRy2+0Qo0k2WDNRvVWLMweVmTfFDP1+59c/pwwE9vXH92draZW4u6Y2ZG QzR5yQZ2d1A5U5pSaUTYmZ72SynVkVNv2cF1LJZM1Qy5Otm7jBYGUmubD1bz +/bNByuWEObzwb4rWNvu3qT1S2d3GfUprZVIa6vnSP6UOjSTNDyaALoCVF5y QvUsd0rywZrVAwAAAAAAAAAA7fXMB6+nT8prJeSwdcI1v+buseWDnTRSiSI8 nw920tSj8E6k+WBxZGTEh3TtofJBPYKUQiPCO/2avp6Eg9GtQdtJpibvfNGv /vdcONgsWtPXXqN8UKu9c88eTYjk9c5fLh54/djPXj6kr1///oJ9dOjkCR/w adyp4ZcuT5ONbccjp96yVPHTG9e3tltWw0HzwXb2LqOPAql9c2ubD742//YL Bw9Y58tec6+8nF891zehK1xC6PPB3Qd+Xqf153btsjk8UOnsLqPyeuP9d32J bAOLXxe+/UbOXeEEOH1hYSL5NwNRPlizenLWChcnAgAAAAAAAACwOeXzwbKv /YfLB+3hfRZRvTg2dmVysnD7LyYmZsfGfDi1mnzQApGa+WAnjf/8OrsPG41o 6ZmOQvpZlrXJ6HQU+VhqiHzQ355UuvFMclfSwoWE301Onhoft1AyWvrn63+9 qP73svWvut9jNh+szokq6IienZ1dSJ5PV/j66OrXz+3aFY3IxnLg9WN+cV/0 +uUH71s46KtRP+TqpDnm6QsLfdcP+nlSZ+wWYtZ8+flcJx/0SwjltWNmxq5E n3jWeUm5dO2eGLR0dpfRfISqG3Smp898/llZ03J+Xzh4oJFehlE+WPMlpbax 1zk7AAAAAAAAAAD8tLXb7Z3JMr0Xx8bkNeuW3UVbalqnm9V8RUezWEfebI2O ygYfNhryOjU+Lj/rqjcNHezL/GeSR/vZAS1tLBzI/uRperplK43V8j2vPsij NU3btvkh5NMlDbYehSNuFPLyo9A4w8LBfKlrvnxv5U/pibTbSNqSumm7x8bH NdezaM+3G41O6z+bHNzXf2RkJF//wjnjT0rFhKnDRrRzz57TFxY+uvq1veSv Lxw8UNYlP5ZDJ0+c+fwz2/Hcl5dem39bk0GtRj4qPXLqrYVvv9FVaWWTwXdy evt2OayGlb688tGvf39BDqUrHOvXwXb0Q16oeH37jQ1Es0V5xy+pq+i5tiI9 tMx39765AZpO99WQetDSyY5aupdOvJkvkU2AHTMzctZ8l+Sczr162K6mqOyP KuA2rh6C9LbsogAAAAAAAAAAYBPyaZd+CR+lWn5LTWR0yzryR9PmNBGw4+j3 /357fytF21iVfcmv3dOBKHtame959UHywywMy3QU1lx+FNZ6fi+/S50CRr31 w6zZbv50169/oeiklE2YmqKCN5zqQfmx2EBsx4rJHM2HvqGezyJtPthHvhT1 62A7RkMu44NO32h15wt7bvOwZtPWul8FPETpJkqS62hKR+3awKN0WN4ZtP/k gwAAAAAAAAAAGEu7VN90SZ+FV0fZ0aLjNJvNsu3r9616Y/9R39sM1my0/ijW toCaENlx6rRbv+d68Jq716xn/f74eFfzrOq4s+NSQr+v7lh9InT4Nftv21uV op5H79ccctTtalaKQSdzvuf2Zs2mLWZVg5ZOR1pRIl/GOhMgirnr9L/vRAIA AAAAAAAAYBOyL//rb1nHQIfqu2X9gazyIJ1VFGTQ7Ycu4KDtrvkRhm634mgt Z9CTHu1Yv3r1m8hvP3QB8+Ot5psYqNHCjQdqvXDf1ZeubLM6E2A11QMAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKu0FwAAAAAAAAAAAMCmcRwAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAADx2/wUAAAAAAAAAAADApvFfAQAAAAAAAAAAAGwa/w0AAAAA AAAAAADApvHfAQAAAAAAAAAAAGwa/wMAAAAAAAAAAADApvE/AQAAAAAAAAAA AGwavV6325P/e6SXSP4b/v7oP92VP/S/yebpZ+knulH6f72wU2/lsCuH7NrO tsPK31YaSBuJ9nV9tBbtp244SM96sNLV9OC9MCDbI90k0zHX+soxQs97boN0 k25aEevhyptpi91wvJ4dc2XEvlnby8prTVlprSV3oK71I3SzG85StH2352qT diQdSuhYqGA3FNBmg3U8LcpK8z0/BDuRvfhYPfeBFbNnzdt/er4Nq174M9Q7 PfduivZC7dKJECanVbnrRpbOIl+OcELSHf0ZCX/YxApvhnqFieMuLXfVZDoU Trad1FDEbnp9hl5mLkG78uzvtrGb0t3Qa39+wsfxJZr5BeCnf9phuxgzF3KY Lt1sA+FMuV8dbm64C8AuL2s/nQx2zt1e+aGF6WCfWzHSee1mlZ369HIIZ9ed E1e2MG/So/tpZU3YWQhHzbwVZkaYMtak3zLU0lUhHUJ2kFZZm5/WaqiVTT+b va6m0YUeCmuT1c6573A4J242hTGGazJcfe4y8vMpdCPMt3A8d/343V11s7vb PEjLFSayfeh2DNO1Gy44ezt7gfsDukngBpfW11UoO1GtEVfxzKD9VRT6nvY8 TIPMWe1lf+ravt3sgGx696Kxuesgcx35Trh5YW/ZmXdn019wXXds11DadbeV u47dNWZzPMyDcJbCvq6mmV8YmWKEizh/qWYuxvhysB76wttlHPbwo/e/OsJx w7xbqb772e2W6ar70zrr5lh6lqzmdo6ti9Z4N3Qrc4WEM+0OkDk3XWsq7G8T wW1lTYdj2jXXdU2GmWMXTC9sGtXIShhOZVq9cC1mz4Wfs+5K7/ki+E/DZPVF zn7myuZmSTokNzHS3rj6+usjzJvwQbfru2unLfQmned2TVlNbZalRUwL6y6q tNd2/nzx/QXbDXu5C9Q3aucilKMXupt2I1xYdtLTKe3npdvQz9Xw6yS6nl0D aVf8TAw9dtO8l/KTKXMR2DwOBcxOlNBzX7xeGEg32iYz0/2lE00Vt4Hvo2/d rmRXWn8+wwzI1iW3izu6r4n/1E2xsFlmsHYiXK/CYbMt+pL6muSLFs6hv5ys sfwZcc12XVt2qGgXX1WbvzZGfwSbnPHuXSc6P644vdzu3agPNuqVUtgPmcpE c8APO1N1u6yyMzBzBt2sCNPbLl8/EneWsifUTXU/W7IynXQ/xGffF9xdCP74 fmL03MSIehidkcwF66vtO+9OcXyJ+b18r3qZ39vpR+63np6FtI2VPcJwe67p 7C98a3blBHXD/2MJ150vibXXC73ypzT8LvBDtV/NaV/ChFyZRDYSP7Z0CoVO Z+Zb5uq1SR/qbnPfXzDpDAxFz9a8F9oPs3OlKit9T0dg14GVzVU1DNNORi9z iYSehTMY6uBOauaisZ+jeeROYzfU0bpjVbLuWnlcbdNz1A3thIH7k5UpU/jZ RmGdDg2Ec2FdDdeETbKe71s37O6nra9MOIVhqrkz3Muc0zCpuq7zYbZmy+bm UZi1rgp+Trl51/MFSlvs2jjCnEknRXpGQg+i0fptwzhC0cPsDIW0SdMr+Z/v lZ1Dd+7C3zM/ui6kfQgHctVMP89OLZuH7kLpZT8J89nKbafCih4at5/TWtq5 yfU8FNJdkKGb6bTx10/4W5jF3dBUuFAyU6bnTqF1JDNh7S/hZPiz28s0YjXo ht5kRtwLXQuDcB3phQ267mBp8fJdCHPVamA1sivHXWM9P/Uy0yG9rkKlwjVm pzecrqibYT7aibFaujnjpq9NUF+T0CebPJne2SWRHtlOgRtzdPatdnZSwrHt 6nCfu3lqkyUddNfv54vQC1eTTS33Yc+3YhdB+HXSsyvQdTucrMx14KprV2xu ovhzblXpWufjXwjpmQsF74XW3IjTs5ueVPupG0YYpoCfU+HEuXnsrj07/d2w b3aDcNr9BRnqEGZFdC7C5HEH9XMn1MLezRzEeh8unjDeTA39qcrOfzcT/fwL 5ylt3nYJm4RLyPrYDQ2EOqbTxpro+b/YCNyc6rle+evAxmAnywrY/V8AAAAA AAAAAAAANo3/DQAAAAAAAAAAAGDT+D8AAAAAAAAAAAAANo3/CwAAAAAAAAAA AGDT+H8AAAAAAAAAAAAANo3/D2zci8M= "], {{0, 90}, {2400, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSize -> Magnification[1], ImageSizeRaw -> {2400, 90}, PlotRange -> {{0, 2400}, {0, 90}}]], "", CellMargins -> 0, CellChangeTimes -> {{3.516548605022827*^9, 3.516548633085456*^9}, { 3.516616961864057*^9, 3.516616982571135*^9}, 3.518187891728025*^9, {3.518199033657151*^9, 3.5181990340305967`*^9}}]}, CellMargins -> 0, CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzt3U9oXGe65/HAgEBSIVllV1UQjkEkyGAnYNyy2w43ThzjONyOO3YTbDqI 65tO0rG5gY7s0Ol0B4duQRbugAlO2pmFMY17Ydkh2Wnh3cVcr41hGBjMLGYx i6rFLGYxi4FhHp9H53mf854/daokOXL0/dxqR64657zv+5z36EL9/J4z85vf /eo3/+mpp556W/73r6NPPfXo5w4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAACwubWdNTlI4QErPvoRaU9aA/KjGGLHsm74o5VVyW9W XcaKLesfZIgW64xiuJ7U7OQQRys8lfkj5Hu73kNrZz2GHddEu7a12rHvvuva 7fUzULsbsP8AAAAAAAAAgDV39OjR559/XtMH//7BRP79vXv3yi47ZmbsW2LZ fX5+/pNPPjl79qzssm3btmgvbaLiK2U52tFy2g05QuGnsm++RX9Y62o0Ovmo OnPRkRYe2TvdbN4Y/HWx2dy6dascfOgd29mobue2be9NTfktrzab8o68H9Vn f/aA+aP5w150W8qOcijdUv70DVUcJH+c0+440WY6iqvZHhaOorD+hcWpQ7aX 41zKFlCOdmTr1joHlE+lOOdzJ0veiXouf17NblBxfNn3Ro26VfTquV27jpx6 61f/dk5e8sPufXNlZYx2FHOvHv7FO2d035+9fGh6+/bqfaUt2UWaqF//3Qd+ Lrvkr1B9f+6Vl6Xdvi/ZzC7k4XbURh/tWLmvDNAqUPjbRnev2boczVqPSlen ejpSf5DC8ygb/NPxN/Qk/vOZf5F2bb7l9+pbAf8a6EQDAAAAAAAAADaUdrt9 9+7da9euRSGFvv/w4UNN3/z7i4uL8r5sL+/Lp/pXcf/+ff3h1q1bzz//vA+S 5M1PPvmkIgc5evTow3JyQNlXjlC2gfRBepKPzLRv8/Pz2rT/6Pbt2/KR9FM+ KovGtALNylBG3j/fbD4Y/HWj2dyyZUtz2B19t3du23Zpaqpil4vN5jNTUzoK cWTrVv/pxMRERRFuuC1lR+mwVlI+8gc5n/SqrFDRcQo3llFcrBy4jNFGUVb/ fHH60mTwXmXB99dI8Wr2POrwveTURPPTOuZPq25p9e87qCOn3vrTP/5+5T/+ PXot/nBbPqoYjlxKv/q3c3+9s5zf952/XHx2drYwJZS/yl6yjewo29Q5BY9K 8Z//JrtYaBW9X/+l00mOMNyOel7qbC/Vk2FqVBoNcO7VwwM1Lcexs6Clk9fu fXOFk6GsdP4g0QbSn8JqyAkqHELNCthLDq6zkYgQAAAAAAAAAJ447Xb7q6++ un//vqYq9r30wYMHNXo7fvy4foVu2y8vL9+6dUuzLflZtvn4448709MTifn5 +fuJ6e3bNSOQY2o+WBHcaD54+PDhiZwtKc0Ho0+f27VLWteIMAry5AeNLJeW lqKmLR+8fPlyWaolA9EKSCsVoczQ+eD1yclGoyGtD7ejdWl/s3mnMhzU1/fJ Ejw9xVE+qN0oHKAub7QtXxwbs3LJR1ET+5Nsrs5xPmw0olBS+vZ9jVHISC2q K6x/VJy+ogyu4nW62SxMQ/ZXZouFPX9masrv8mFS//wklJpEm1WcKW/HzMy5 Ly9ZGCQ///KD9+UlP1jqt/DtN4Up3u59c4s/3LYs7Mznn8mOpy8sfHrjugVD /3zmX/Kl8CGXHLxOSmsh1wsHD0S/ZPR96cBHV7/W10LFK21OjqA7Sm8H2lHn s3a+bEd5x0dsO/fsiYK8uVderj5C9Dp08oTFmlY66flApTtx7oP89vLzr39/ wXorbekEkLPpT64NQfe1CtSsnsyKin8SAAAAAAAAAADYyNrttgZh+/bts+hB 3jx79qwuCVxcXPRRzo6ZGQ0ENQrU1XlRkCeH8tGb0F00Usx/mSzv+HxwS1YS yzRt/WAjiZaibTQifG7XLh8MnTx5UnND+fPZ2VkfrMgPt27d0vgv+si6pAGi tlgRyvy4+WAUIVW//pjUTU5HlA+Ojo7WzwdtMuTzwe+npsqWIubzQR2Cblkz HNSXLbiz1alRPlgxnPy5q16xGL2OjY83s8ljzXAw6rk4n32/NToaHTm/zFC2 8UUrI1eoLRv85Qfvb23LfqMN57X5tzUl1IV+Pt/ZvW/OPnrpxJvRjnJky8g0 lorieAu55CWt9A2PbLmf5YMWVOn70v/RRKOS/kLw+eDuAz8faEefD1bvKGWx EnWmp/08tHxwZGSkb9PWuj5Z0pdORl2/dLKx/gMGfyLeXfyzHurcl5fkrFln ZEv589DJEzaEA68fsyFYBWQa1K8e+SAAAAAAAAAAPInaydMDHz58ePbsWfuq XFy7dm15efny5cvyp//+WUM3DfKWlpbu3r1r4aB+Py9/ys+yo628k3csUqyZ D+qaGk/esXxQQ0N9U1u03W0Vkq6LlO7JzzY6H0DcunVLbx96/vz5/LfcunxS N6jOm2Qv2Vc2kI6NOh82Gj60Gkn4DewLdh8hvTg2lt8y0kgX30Whmzbkj3Bs fNxyty8mJnQg65cPPihfCleRD+ZDuu8mJ6XnhaPQ15XJSX9byKHzwagO95KO tUZHtd3ZsTEpWnU0GXWsov7yOjU+rtWTnvddQphfPGinryKO8QvHLODbkrNz z57FH25/euN6Z3racskdMzMaG8n7mirmg3h558znn+nxXzh4wGeaUT4oh5ID NisXcvp80CfLUT6Y70aeXg4+H2wU/UOCsh2jfLCwaL56WigphZ+HP3v5UM0j qGa63jnKB+UlTWypnMO+RA2XGsufb/zmX6MJYHVoJit8Hx356aflLOsqSGso 5INJutq3es1hn/UJAAAAAAAAAPjRabyljyDc4pbSaKKnKwRthV07faKfZoKy 1+XLl6NVJHpAXX7YmZ7Wr5Hr54NbSu6tJ+/Y/UWjb86j3bUnus5RutFoNKST 0tUtbvWi5oNLS0vy0f37931K0nH3XD1//nzffFCPpqmol88H84HF1uRxflE+ WOebef1afn923y8mJjSWst3lh9boqLyv4WAjDaHWLx98UHKX0Yp8cOe2bVE4 2MrmpzoKqaHfbDa506nOyeHywXb2kYj3kmNGp0l+ODU+7tt9b2rK5tjpGvWX o2nIKMfRj0KSVbSEsHBRpF88WD2u53btsuV71hNt0VIwjbNlzreefnqL+ycB v3jnjO6rK870avVJvaX/C8kqwk9vXPehnuWDv/vbFb0Z6UdXvy67nG1W9M0H bdK2KukQogNquers2HHpmD9NeVq9QydPaAZqv9OifLDiCPmm86WLaltRunw+ qNnluS8v2SWfnwCyvUwAOdH+5sktlw8OWj0AAAAAAAAAwBOn1WppHGbRm8Vt z87O6h1E7Sv65eXlpaUlzQct9asO7B5DPqgf6S1SNbuxZFO2P378eHQD1Vaa D+7du9cPUNvVBZXSYc0HG/0e+mbZhIluIGmhVRQZaJYa5YN1ApH8ujmNkLQV jXWUrhiyNZ562HXNB2Ww+WijVZIPyvtRyjabJqTRKJ7JrtSznO5RUDJUPhjl kpbfbUlXwloc5qNJG50c3z+48M7UlIaDhfXX02pTV6sXLSGUDtgkHHrxoGZ8 f72z7OPgaBdtXbNpHalOJ70r6ZmLn1n9W7mlYfJX2eXA68csSdzibkqsIddH f7viY8qKbrfq5YOFvzQKlR2w5r7a5+rrXas3vX17tNAvygfrzEB/zHzp3jz7 2zqli0o09+phOzV1JkDTPbM1ygcHqh4AAAAAAAAA4InTarX8Iwj1Tp4aFzYa Db3LqIYm/uGD8k5Z6hflfRVb5rfPr1ux9M3fX9QHbdJ56a2mlvZ9+O3bt/XO qNoB2cBGoUfTfHB0dPTmzZu6utAWUv3hD3/QxY/6WMO++WBe/UVtUcrmA7i+ TfjETVcI5vfVCFKfeWfFXNd8MFpkV3gcnw9ezBZqZGTEr2myUTST24ralldc TjdcPhgVoZUGaj4U0+pFCaZFddGIKuqvKaG/GaO+73t+Z2qqMDOtv3hQjnnu y0uW8VXniW2n47KhuVcP9w3IHp2LdOMt7o6+KyHX1a/lJP7yg/f73mX0ScwH O2lIajdZtTqvQT7oSld9l9HCEtlxPr1xvXA2Ro3qVewvUvJBAAAAAAAAANg8 2tlHEDabzeXl5WvXrumis8XFRVtaGD0lcM3zQV2ceCtrfn5ec0DNB5cS9unD hLzTmZ62XEmHIztqP+VNvY+oDx81H2w0Grq60JYQ7piZ0TBRPtJ8ML9isU5J 1zsfzCduZU1ESdA65YP3sj/Pjo35VKgsHyxM2SxyinoSldSOMEQ+2M7eHfS7 ZK/Cystfo/u42lLQ6MSV5Uo+iInWVBYuIZQj33ErE2suHtSGotty1p+0tmxN 7zlZPQOlJwvffqMN2cY+5NLVi33vMvqE5oNaAcsHpaE1zAd96SruMlqWD+rT J/XmooXXUZ0KkA8CAAAAAAAAwGbQTh9BqCvs7Ml9moudPHnSlhb6O3yuRz4o Hfg4Rz7SuyBq6/4j6bO8s3fvXrt5o35RbwsA7V6RBw8elHeOHz9uN6XUfNAe pCg/a5Lob0y6wfPBfD5VJ0lZp3zwWPY5fdFdRuvngxUp2+mikg6dD9bcSxeL RaXWqTLcifNHLlxCONziwY7LjF6bf3ugWE3MvfKyf3Zeda7kwyn/AD4LufR6 3LlnT/VdRp/cfHD3vjndeGu7tbb5YFS6sruMluWDQwfEHfJBAAAAAAAAANh8 WskjCO/evTsxMaGB4LOzsxqCNJOnB+rSQsvUqp8qOHQ+KNtb0uf5fDBJkFa2 0SxP/vRP2pKxyEB0/aPd1FH+1DftaH4sehztrWwmH+n7P1Y+2MzeYTV/t9Wy HWvemDSfD9q9OiPyZs18cGRkxN//80H2LqM188Fj4+NleVDU7ceWD3aSxWL5 UsvGq8wHOyVLCIdbPKhH++udZct36sdqspnPB/uuO6uTD+qVe+LcBxV3GX1C 88F2eh9XvY3n2t5fNCpd2V1GC0s0dN2iCpAPAgAAAAAAAMAm0UofQfjs7Ozi 4qIGhT5K07jNP3xQPqrIB/2qw4HyQQsft6Z0uV/LPX/QttE4z3qr8ZkuFZRR HE4cTckQ/KJCnw9uSR5QKBvovUatG3695OPJB7+bnJSNbzSbZS97ht0a5oPX Kxu9V9JKPh9sjY6W3WW0Zj5YMYoNng/qYxMtVrN7ilaHvPklhP51Z2qq/uLB jst3Bk3H8tlW/Xww//A7C7mkA9Pbty/+cLvsLqPrnQ9q3drlCqvnI7882ewX 75zRLV868aZ/ZmVUQ7vtat/WC0snf1bcZfQx5IMDVQ8AAAAAAAAA8CRqp48g nJ+f1xuNWihmwdzhw4dtkZ3mdxaxRfmFHK3mnUhte7/esOx7aX9MWxVoSwjt K/2vvvrqYTl7xmK0FlIPvry8LMPXr+jtzceZD/Z9lcVzq8kH67+q80GpW9ld RgvvI/qk5IOFpY7yQR+rycFvFFVPXz7k7RQtIbTXqfHx+osHO6tY/5XPtqqr VzMf3JawI+fvMlozH7TrvSJvjQ545uJnb579rfSn4qX/8MDva9WT/ki3869f vHPmT//4u24mTfhnVvoaSrerW5ctfdNlpau4y+i65oN9q3fk1Fs15yQAAAAA AAAAYCNrp48gXFpa0uf0+fUjuiLv5s2bunzP1hVqEqd3IvULjlrJHT5tWV+z /E6k1rrPB8vioXxa106eDadtaUPSjfv371++fHk0WXg14chflxN6BJ8Pyl47 ZmZkR3+3UjnyBswHbb3SRssHNSuRvhXeZTS6T+lmzgejJzO2S5YQ3pma0jWJ 9VOejZYP6m8P6cavf3+h8C6jffPBOi/7NTXojvnEreaO8jp9YcEmvP0ushr2 fUmhfLcrSld2l9F1zQf7vha+/aZ+bA0AAAAAAAAA2MhaySMIdZFdu93262Lk B83Obt68aTmIbK9LDpeXl6e3b2+6R+bpcSxk9Hcita++I8Plg53k3o+6hFAX BurP0nThcwxlGws0fT4oR9PjSCf9eqUNmA/acTZgPqgR7c5t2/J3GZWPNk8+ 2MreTDWfD0ZPuJMfmkkg6DcbdPFgZ0Pmg7px2V1G1yQfLDzgmYufSd/09ebZ 3xa+ol81Vr3f/e3KR/K6+vVC+pKf9SMZhRxwx8yMhYN2dnwN33j/3eqmZbzR vmWlK7vL6HqvH6wewqGTJ8gHAQAAAAAAAOCnoZU+gnB5eTl6Bpn8oA/vO3/+ vF/eopna/cTi4uInibt37+rj//wTDOWdpaWljxOf5Mg2Q+eDtoRQ+jC9fbv0 U9ct2rf3llrKzxpoat+WEn6ZpD7zy25w+qPkgy+OjY0kRktYh9cwHxxJFbZ4 3a0H7JsPSpHl0/eyUZeumPtp54OagVo+eDG5j6g+2FFePvvLt6WX0unc4sFB I56NmQ/q6ArvMto3H5Tj27RslCjMB6UC+RXEkbL1g9pi1IpGhIs/3NZP9TL0 u/sa2hEqmm72Wz9opSu8y+i65oO798317T/5IAAAAAAAAAD8NLSTRxAuLS2d PXs2SsTkh5MnT8pHe/fujb7Gl5+f27Xr8uXLGgvqvT0PHz7svwMXulhP3cqR LQ8ePCg/7Nu3r+xrZ3lnfn5eN25mH3co2x89elSOfPz48cL+2xFky8XFRX26 4mLCf1GvGaI9layixTrFHDoftKVJhXxv1zAfLFxuKeTNQfNBXQ0XLaA7Nj7u j1OWD743NbUB80Fpom8++KLLBy1rljFqtiXjrW5Lfi4bXfXZ9DZmPmgFyd9l tE4+qEFV2eUQBW0+H7SniBbSf7fQKnr+YGGL0kP99J+Ov+H/jURZDfu23qp8 /mBUuvxdRtc3H6xXPcJBAAAAAAAAAPgJ0K+Xm82mfh/uwwVN1uyrcn9bPI0I LUsqXCBj2/i1J/kv+bVp/ea8sHvSrm0TfTNvfTCF4YjvrbUbLQKKRl3YYp1i 1oyf8jGffjPvVz5GLArxq9JOjY+vJh/0yxK96LmBdfLBlUVPubuMfu96W5YP fpjElGX5YGFJH0M++Ex2OeRsST444W7Jq6Wzq8m3daWorbL0c6BUWjb+0z/+ fuU//n3u1cOrzAerc8lB88FOyV1GH527fvmgv99v9RXhd9QD2q+gMtGgrALa GTu+/h5Y+PYbXUJYGL3la2iToW/rfUu3JXeXUSvdOuWDg1YPAAAAAAAAAPDk amfX0EUf+bV1+V0sCrHQreXunmdxSeFSFP26u/D4hd3Lb6Pd25oqO44f4Cpb 7FvJofPBmslOK/uQO03W6iQC+Xyw+taaA+WDrfS+iPm7jD7I9tbywavu/T9O TJTlGmubD25tt/z9PO9VFqGwXM3sEwOjfNZSQp0/l3LZ6DrlgxYPDZ0PSmUG ygdt1lWHXO2iu4xKD+vkg/VzrlbJgsSa+2rf8p3XT63zhU/fy+eD9c9dndJF dxmVmhTmg+/85aI+QHD1+eCg/ygCAAAAAAAAAPDkqlgb0vcjv5wnn9/5DfLL f2ouS6nTveqDDLoKZrjFMo8nH/Sp03eTk4W5RmHf1jsf1B2bubuMFuaDvlB3 pqYqCuVXIGqSuJr1g/uzXfIPEIy29Me/5/JBP7ovypPNVm6lZ37Ltc0HT19Y qBkWGxm4ZkMvHDxQJx/8651l2filE2/WzAc7RXcZlW10Ud7Gzwe185q+Lf5w u/X00/kzuE75oLUe3WVUS1d/CWf9CpAPAgAAAAAAAAAwhMeQD8oGp7MJlz0C L4ot9jeb+90z2h5PPtguustoPh9sZZ+79yB5UmF+FNFyP5+yDZcPdpJEzPft yuRkYaa2M7eZ3T3yvdx9RwuTnfxm+VO8Vvmgpm+f3rg+aDz06NGcyc0/X5t/ u+8MfG7XrnyQVCecamXvMir7Pin5oG7w7OysbiMdi2bpuuaDndxdRmWzwnzw yKm3qkdRpwLkgwAAAAAAAAAADGGV+WCz35O/1DNTU9Ez/vYnd3nV2GIlL9i6 9V76kT5S7fHkg53Ku4z6fFC28cvr7mUjQj8Kv03LPSSusNR+90LRbT91DaA9 6k632blt2/fZbfQBkZpLyqf+I9lydmwsOndRrBl1z9dq9fmgHOTA68fqLwPU HtqJtsVx1dGS7PLu4p91DaA+qs9K3TfkaufuMiobPyn5YNstIZSx6xJCH4iv az7Yzt5lVCqjpYvyQYtuXzrxZn6a5Y/pPyUfBAAAAAAAAABgNYbOB7+YmPiw 0ZB9K16n08c7Rkvn9HVpako2OJIEczeymZpFhI8nH+yU32XU8sFHmUtubeCD ZBfpf34UD9LFg5ayRfngnampvgU8nxRQRAGr7n4+qd7ppJLRp3oerQJyhIu1 6/8gXTxYdgPJNckHpWO2xCwKsKIt313885FTb9mzNYUtjjvz+Weak+bjIXln 7pWXLaLyY6kTcnVydxnVtYRRILUx88FO5RLC9c4HO7m7jGrpohJJfyzB1NuQ tkqexCpnX+aAf7gq+SAAAAAAAAAAAKsxdD5Y53UjXSSo6dulogV6ha8/Juvj ZMfHlg9qiLY/1xOfD2rqIX2rOYovJiZGRkb8Y+/O19vRvzT/EvuT5LTOLt9N TrZGRy2+0Qo0k2WDNRvVWLMweVmTfFDP1+59c/pwwE9vXH92draZW4u6Y2ZG QzR5yQZ2d1A5U5pSaUTYmZ72SynVkVNv2cF1LJZM1Qy5Otm7jBYGUmubD1bz +/bNByuWEObzwb4rWNvu3qT1S2d3GfUprZVIa6vnSP6UOjSTNDyaALoCVF5y QvUsd0rywZrVAwAAAAAAAAAA7fXMB6+nT8prJeSwdcI1v+buseWDnTRSiSI8 nw920tSj8E6k+WBxZGTEh3TtofJBPYKUQiPCO/2avp6Eg9GtQdtJpibvfNGv /vdcONgsWtPXXqN8UKu9c88eTYjk9c5fLh54/djPXj6kr1///oJ9dOjkCR/w adyp4ZcuT5ONbccjp96yVPHTG9e3tltWw0HzwXb2LqOPAql9c2ubD742//YL Bw9Y58tec6+8nF891zehK1xC6PPB3Qd+Xqf153btsjk8UOnsLqPyeuP9d32J bAOLXxe+/UbOXeEEOH1hYSL5NwNRPlizenLWChcnAgAAAAAAAACwOeXzwbKv /YfLB+3hfRZRvTg2dmVysnD7LyYmZsfGfDi1mnzQApGa+WAnjf/8OrsPG41o 6ZmOQvpZlrXJ6HQU+VhqiHzQ355UuvFMclfSwoWE301Onhoft1AyWvrn63+9 qP73svWvut9jNh+szokq6IienZ1dSJ5PV/j66OrXz+3aFY3IxnLg9WN+cV/0 +uUH71s46KtRP+TqpDnm6QsLfdcP+nlSZ+wWYtZ8+flcJx/0SwjltWNmxq5E n3jWeUm5dO2eGLR0dpfRfISqG3Smp898/llZ03J+Xzh4oJFehlE+WPMlpbax 1zk7AAAAAAAAAAD8tLXb7Z3JMr0Xx8bkNeuW3UVbalqnm9V8RUezWEfebI2O ygYfNhryOjU+Lj/rqjcNHezL/GeSR/vZAS1tLBzI/uRperplK43V8j2vPsij NU3btvkh5NMlDbYehSNuFPLyo9A4w8LBfKlrvnxv5U/pibTbSNqSumm7x8bH NdezaM+3G41O6z+bHNzXf2RkJF//wjnjT0rFhKnDRrRzz57TFxY+uvq1veSv Lxw8UNYlP5ZDJ0+c+fwz2/Hcl5dem39bk0GtRj4qPXLqrYVvv9FVaWWTwXdy evt2OayGlb688tGvf39BDqUrHOvXwXb0Q16oeH37jQ1Es0V5xy+pq+i5tiI9 tMx39765AZpO99WQetDSyY5aupdOvJkvkU2AHTMzctZ8l+Sczr162K6mqOyP KuA2rh6C9LbsogAAAAAAAAAAYBPyaZd+CR+lWn5LTWR0yzryR9PmNBGw4+j3 /357fytF21iVfcmv3dOBKHtame959UHywywMy3QU1lx+FNZ6fi+/S50CRr31 w6zZbv50169/oeiklE2YmqKCN5zqQfmx2EBsx4rJHM2HvqGezyJtPthHvhT1 62A7RkMu44NO32h15wt7bvOwZtPWul8FPETpJkqS62hKR+3awKN0WN4ZtP/k gwAAAAAAAAAAGEu7VN90SZ+FV0fZ0aLjNJvNsu3r9616Y/9R39sM1my0/ijW toCaENlx6rRbv+d68Jq716xn/f74eFfzrOq4s+NSQr+v7lh9InT4Nftv21uV op5H79ccctTtalaKQSdzvuf2Zs2mLWZVg5ZOR1pRIl/GOhMgirnr9L/vRAIA AAAAAAAAYBOyL//rb1nHQIfqu2X9gazyIJ1VFGTQ7Ycu4KDtrvkRhm634mgt Z9CTHu1Yv3r1m8hvP3QB8+Ot5psYqNHCjQdqvXDf1ZeubLM6E2A11QMAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAKu0FwAAAAAAAAAAAMCmcRwAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAADx2/wUAAAAAAAAAAADApvFfAQAAAAAAAAAAAGwa/w0AAAAA AAAAAADApvHfAQAAAAAAAAAAAGwa/wMAAAAAAAAAAADApvE/AQAAAAAAAAAA AGwavV6325P/e6SXSP4b/v7oP92VP/S/yebpZ+knulH6f72wU2/lsCuH7NrO tsPK31YaSBuJ9nV9tBbtp244SM96sNLV9OC9MCDbI90k0zHX+soxQs97boN0 k25aEevhyptpi91wvJ4dc2XEvlnby8prTVlprSV3oK71I3SzG85StH2352qT diQdSuhYqGA3FNBmg3U8LcpK8z0/BDuRvfhYPfeBFbNnzdt/er4Nq174M9Q7 PfduivZC7dKJECanVbnrRpbOIl+OcELSHf0ZCX/YxApvhnqFieMuLXfVZDoU Trad1FDEbnp9hl5mLkG78uzvtrGb0t3Qa39+wsfxJZr5BeCnf9phuxgzF3KY Lt1sA+FMuV8dbm64C8AuL2s/nQx2zt1e+aGF6WCfWzHSee1mlZ369HIIZ9ed E1e2MG/So/tpZU3YWQhHzbwVZkaYMtak3zLU0lUhHUJ2kFZZm5/WaqiVTT+b va6m0YUeCmuT1c6573A4J242hTGGazJcfe4y8vMpdCPMt3A8d/343V11s7vb PEjLFSayfeh2DNO1Gy44ezt7gfsDukngBpfW11UoO1GtEVfxzKD9VRT6nvY8 TIPMWe1lf+ravt3sgGx696Kxuesgcx35Trh5YW/ZmXdn019wXXds11DadbeV u47dNWZzPMyDcJbCvq6mmV8YmWKEizh/qWYuxvhysB76wttlHPbwo/e/OsJx w7xbqb772e2W6ar70zrr5lh6lqzmdo6ti9Z4N3Qrc4WEM+0OkDk3XWsq7G8T wW1lTYdj2jXXdU2GmWMXTC9sGtXIShhOZVq9cC1mz4Wfs+5K7/ki+E/DZPVF zn7myuZmSTokNzHS3rj6+usjzJvwQbfru2unLfQmned2TVlNbZalRUwL6y6q tNd2/nzx/QXbDXu5C9Q3aucilKMXupt2I1xYdtLTKe3npdvQz9Xw6yS6nl0D aVf8TAw9dtO8l/KTKXMR2DwOBcxOlNBzX7xeGEg32iYz0/2lE00Vt4Hvo2/d rmRXWn8+wwzI1iW3izu6r4n/1E2xsFlmsHYiXK/CYbMt+pL6muSLFs6hv5ys sfwZcc12XVt2qGgXX1WbvzZGfwSbnPHuXSc6P644vdzu3agPNuqVUtgPmcpE c8APO1N1u6yyMzBzBt2sCNPbLl8/EneWsifUTXU/W7IynXQ/xGffF9xdCP74 fmL03MSIehidkcwF66vtO+9OcXyJ+b18r3qZ39vpR+63np6FtI2VPcJwe67p 7C98a3blBHXD/2MJ150vibXXC73ypzT8LvBDtV/NaV/ChFyZRDYSP7Z0CoVO Z+Zb5uq1SR/qbnPfXzDpDAxFz9a8F9oPs3OlKit9T0dg14GVzVU1DNNORi9z iYSehTMY6uBOauaisZ+jeeROYzfU0bpjVbLuWnlcbdNz1A3thIH7k5UpU/jZ RmGdDg2Ec2FdDdeETbKe71s37O6nra9MOIVhqrkz3Muc0zCpuq7zYbZmy+bm UZi1rgp+Trl51/MFSlvs2jjCnEknRXpGQg+i0fptwzhC0cPsDIW0SdMr+Z/v lZ1Dd+7C3zM/ui6kfQgHctVMP89OLZuH7kLpZT8J89nKbafCih4at5/TWtq5 yfU8FNJdkKGb6bTx10/4W5jF3dBUuFAyU6bnTqF1JDNh7S/hZPiz28s0YjXo ht5kRtwLXQuDcB3phQ267mBp8fJdCHPVamA1sivHXWM9P/Uy0yG9rkKlwjVm pzecrqibYT7aibFaujnjpq9NUF+T0CebPJne2SWRHtlOgRtzdPatdnZSwrHt 6nCfu3lqkyUddNfv54vQC1eTTS33Yc+3YhdB+HXSsyvQdTucrMx14KprV2xu ovhzblXpWufjXwjpmQsF74XW3IjTs5ueVPupG0YYpoCfU+HEuXnsrj07/d2w b3aDcNr9BRnqEGZFdC7C5HEH9XMn1MLezRzEeh8unjDeTA39qcrOfzcT/fwL 5ylt3nYJm4RLyPrYDQ2EOqbTxpro+b/YCNyc6rle+evAxmAnywrY/V8AAAAA AAAAAAAANo3/DQAAAAAAAAAAAGDT+D8AAAAAAAAAAAAANo3/CwAAAAAAAAAA AGDT+H8AAAAAAAAAAAAANo3/D2zci8M= "], {{0, 90}, {2400, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSize -> Magnification[1], ImageSizeRaw -> {2400, 90}, PlotRange -> {{0, 2400}, {0, 90}}]], "", CellMargins -> 0, CellChangeTimes -> {{3.516548605022827*^9, 3.516548633085456*^9}, { 3.516616961864057*^9, 3.516616982571135*^9}, 3.518187891728025*^9, { 3.518199033657151*^9, 3.5181990340305967`*^9}}], 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", FontWeight -> "Bold"]}, Open]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> Automatic, ShowGroupOpener -> False, CellMargins -> {{58, 0}, {30, 0}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {20, 20}}, 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}, CellChangeTimes -> {3.479211616867702*^9, 3.483202458952606*^9}, TextAlignment -> Left, LineSpacing -> {1, 0}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 48, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Masked" -> False, "Outline" -> False, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765], Background -> None], Cell[ StyleData["Title", "Presentation", StyleDefinitions -> None], CellMargins -> {{55, 3}, {14, 125}}, LineSpacing -> {1, 5}, FontSize -> 28], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title", "Presentation"]], CellMargins -> {{55, 3}, {14, 35}}, FontSize -> 55], Cell[ StyleData["Title", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 10}}, LineSpacing -> {1, 18}, FontSize -> 15]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> False, CellMargins -> {{58, 0}, {0, 5}}, CellBracketOptions -> {"Margins" -> {0, 0}}, 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}, TextAlignment -> Left, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295], Background -> None], Cell[ StyleData["Subtitle", "Presentation", StyleDefinitions -> None], CellMargins -> {{58, 0}, {0, 5}}, FontSize -> 20], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle", "Presentation"]]], Cell[ StyleData["Subtitle", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 5}}, FontSize -> 14, Background -> GrayLevel[1]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle", StyleDefinitions -> StyleData["Subtitle"]], FontSize -> Inherited + 3], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> Inherited + 3], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle", "Presentation"]]], Cell[ StyleData["Subsubtitle", "Printout"], FontSize -> Inherited + 0]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.2, 0}}, ShowGroupOpener -> False, CellMargins -> {{88, 50}, {10, 25}}, FontSize -> 36, FontWeight -> "Plain", FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0.2, 0}}, CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section", "Presentation"]], CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData["Section", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {0, 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 -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295]], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{60, 50}, {6, 15}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "SlideShow"], CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {2, 22}}, FontSize -> 12]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> None, ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {0, 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", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295]], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{60, 50}, {6, 20}}, LineSpacing -> {1, 0}], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection", "Presentation"]]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {2, 22}}, FontSize -> 11]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], 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", FontSize -> 17], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{60, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text", "Presentation"]]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item"], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]]], Cell[ StyleData["Item", "Printout"], CellMargins -> {{2, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem", StyleDefinitions -> StyleData["Item"]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem"], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem", "Presentation"]]], Cell[ StyleData["Subitem", "Printout"], CellMargins -> {{30, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}]], CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered"], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered", "Presentation"]]], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{2, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemNumbered", StyleDefinitions -> StyleData["ItemNumbered"]], CellDingbat -> Cell[ TextData[{ CounterBox["SubitemNumbered", CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )], "."}]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered"], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered", "Presentation"]]], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{30, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "ItemParagraph", StyleDefinitions -> StyleData["Item"]], CellDingbat -> None, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph"], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph", "Presentation"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{14, 2}, {0, 6}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> None, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph"], Cell[ StyleData["SubitemParagraph", "Presentation"]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph", "Presentation"]]], Cell[ StyleData["SubitemParagraph", "Printout"]]}, Open]]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"]], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula", "Presentation"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered"], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaNumbered", "Presentation"]]], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Inline Formatting", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"]], Cell[ StyleData["InlineFormula", "Presentation"], FontSize -> 17], Cell[ StyleData[ "InlineFormula", "SlideShow", StyleDefinitions -> StyleData["InlineFormula", "Presentation"]]], Cell[ StyleData["InlineFormula", "Printout"]]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, CellMargins -> {{103, 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 -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Input", "SlideShow", StyleDefinitions -> StyleData["Input", "Presentation"]]], 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 -> {{103, 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", MenuSortingValue -> 1550, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{110, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "InputOnly", "SlideShow", StyleDefinitions -> StyleData["InputOnly", "Presentation"]]], 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 -> {{103, 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 -> {{110, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Output", "SlideShow", StyleDefinitions -> StyleData["Output", "Presentation"]]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Code"], CellMargins -> {{103, 10}, {5, 10}}], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Code", "SlideShow", StyleDefinitions -> StyleData["Code", "Presentation"]]], Cell[ StyleData["Code", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{103, Inherited}, {Inherited, Inherited}}, FontSize -> 14], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{70, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17, Magnification -> Inherited 1.5], Cell[ StyleData[ "Print", "SlideShow", StyleDefinitions -> StyleData["Print", "Presentation"]]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaShortInput", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{98, 10}, {5, 7}}, EvaluationMode -> "WolframAlphaShort", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "Equal"]]], CellBaseline -> Baseline], None}, {None, None}}, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaShortInput", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaShortInput", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaShortInput", "Presentation"]]], Cell[ StyleData["WolframAlphaShortInput", "Printout"], CellFrameLabelMargins -> 3]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaLong", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{100, 10}, {5, 7}}, StyleKeyMapping -> { "=" -> "Input", "Backspace" -> "WolframAlphaShort"}, EvaluationMode -> "WolframAlphaLong", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "SpikeyEqual"]]]], None}, {None, None}}, DefaultFormatType -> TextForm, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaLong", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaLong", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaLong", "Presentation"]], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData["WolframAlphaLong", "Printout"], CellFrameLabelMargins -> 3]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{60, 4}, {6, 8}}], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{60, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Program", "SlideShow", StyleDefinitions -> StyleData["Program", "Presentation"]]], Cell[ StyleData["Program", "Printout"], FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData[ "CellLabel", "SlideShow", StyleDefinitions -> StyleData["CellLabel", "Presentation"]]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> GrayLevel[0.]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["ManipulateLabel"]], Cell[ StyleData["ManipulateLabel", "Presentation"], FontSize -> 15], Cell[ StyleData[ "ManipulateLabel", "SlideShow", StyleDefinitions -> StyleData["ManipulateLabel", "Presentation"]]], Cell[ StyleData["ManipulateLabel", "Printout"], FontSize -> 8]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsLabel"]], Cell[ StyleData["GraphicsLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "GraphicsLabel", "SlideShow", StyleDefinitions -> StyleData["GraphicsLabel", "Presentation"]]], Cell[ StyleData["GraphicsLabel", "Printout"], FontSize -> 8]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics3DLabel"]], Cell[ StyleData["Graphics3DLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "Graphics3DLabel", "SlideShow", StyleDefinitions -> StyleData["Graphics3DLabel", "Presentation"]]], Cell[ StyleData["Graphics3DLabel", "Printout"], FontSize -> 8]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for SlideShow", "Section", CellChangeTimes -> {{3.514665148412793*^9, 3.5146651505550737`*^9}}], Cell[ StyleData["slideshowheader"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, -2}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], CellPadding -> 0, CellFramePadding -> 0], Cell[ CellGroupData[{ Cell[ StyleData["hidefromslideshowgraphic"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], CellPadding -> 0], Cell[ StyleData["hidefromslideshowgraphic", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> False]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["slideshowheader2"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> True], Cell[ StyleData["slideshowheader", "Printout"], FontSize -> 8, Magnification -> 0.75]}, Open]], Cell[ StyleData[ "ConferenceGraphicCellSlideShowOnly", StyleDefinitions -> StyleData["ConferenceCellGraphic"]], ShowCellBracket -> False, CellMargins -> 0, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> True, Selectable -> False, CellFrame -> 0, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {3, 3}}, CellOpen -> True, CellFrameMargins -> 0, CellFrameColor -> None, Background -> None], Cell[ StyleData["SlideShowNavigationBar", "Printout"], PageBreakAbove -> Automatic]}, Open]]}, Open]]}, Visible -> False, FrontEndVersion -> "8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, 2011)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[14096, 272, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[16820, 372, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[17223, 392, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27947, 716, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[33882, 942, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36588, 1055, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[37729, 1108, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[47590, 1408, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[49083, 1469, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[56533, 1740, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[73532, 2232, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[74120, 2265, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 140423, 3611} } *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 12512, 209, 2, "hidefromslideshowgraphic"], Cell[CellGroupData[{ Cell[13082, 233, 84, 2, 85, "Title"], Cell[13169, 237, 130, 4, 46, "Subtitle"], Cell[13302, 243, 71, 1, 25, "Subtitle"], Cell[13376, 246, 73, 4, 46, "Subtitle"], Cell[13452, 252, 607, 15, 81, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[14096, 272, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[14185, 277, 29, 0, 139, "Section"], Cell[14217, 279, 113, 5, 55, "Text"], Cell[14333, 286, 145, 4, 52, "Input"], Cell[14481, 292, 195, 6, 52, "Input"], Cell[14679, 300, 201, 7, 52, "Input"], Cell[14883, 309, 229, 7, 52, "Input"], Cell[15115, 318, 175, 5, 88, "Text"], Cell[CellGroupData[{ Cell[15315, 327, 34, 0, 75, "Subsubsection"], Cell[15352, 329, 312, 7, 175, "Text"], Cell[15667, 338, 1092, 27, 802, "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16820, 372, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[16909, 377, 43, 0, 139, "Section"], Cell[16955, 379, 219, 7, 219, "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17223, 392, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[17312, 397, 58, 0, 208, "Section"], Cell[17373, 399, 235, 5, 132, "Text"], Cell[CellGroupData[{ Cell[17633, 408, 4381, 113, 771, "Input"], Cell[22017, 523, 4373, 126, 571, "Output"] }, {2}]], Cell[CellGroupData[{ Cell[26424, 654, 32, 0, 112, "Subsubsection"], Cell[26459, 656, 145, 6, 105, "Text"], Cell[26607, 664, 145, 4, 82, "Input"], Cell[26755, 670, 235, 9, 105, "Text"], Cell[26993, 681, 293, 7, 82, "Input"], Cell[27289, 690, 237, 7, 175, "Text"], Cell[27529, 699, 357, 10, 82, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27947, 716, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[28036, 721, 42, 0, 208, "Section"], Cell[28081, 723, 275, 8, 132, "Text"], Cell[28359, 733, 745, 25, 127, "Input"], Cell[29107, 760, 184, 6, 82, "Text"], Cell[29294, 768, 234, 8, 132, "Text"], Cell[29531, 778, 950, 29, 177, "Input"], Cell[CellGroupData[{ Cell[30506, 811, 30, 0, 112, "Subsubsection"], Cell[30539, 813, 146, 3, 105, "Text"], Cell[30688, 818, 19, 0, 105, "Text"], Cell[30710, 820, 583, 20, 82, "Input"], Cell[31296, 842, 19, 0, 105, "Text"], Cell[31318, 844, 564, 19, 82, "Input"], Cell[31885, 865, 23, 0, 105, "Text"], Cell[31911, 867, 808, 27, 82, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[32756, 899, 30, 0, 73, "Subsubsection"], Cell[32789, 901, 97, 2, 105, "Text"], Cell[32889, 905, 932, 30, 139, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33882, 942, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[33971, 947, 58, 0, 208, "Section"], Cell[34032, 949, 561, 22, 132, "Text"], Cell[34596, 973, 147, 4, 82, "Text"], Cell[34746, 979, 637, 21, 193, "Input"], Cell[CellGroupData[{ Cell[35408, 1004, 37, 0, 112, "Subsubsection"], Cell[35448, 1006, 574, 21, 175, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[36059, 1032, 30, 0, 73, "Subsubsection"], Cell[36092, 1034, 435, 14, 247, "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36588, 1055, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[36677, 1060, 36, 0, 208, "Section"], Cell[36716, 1062, 138, 4, 82, "Text"], Cell[36857, 1068, 37, 0, 82, "Text"], Cell[36897, 1070, 145, 4, 78, "Input"], Cell[37045, 1076, 182, 5, 78, "Input"], Cell[37230, 1083, 63, 2, 82, "Text"], Cell[37296, 1087, 208, 6, 78, "Input"], Cell[37507, 1095, 173, 7, 82, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37729, 1108, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[37818, 1113, 38, 0, 208, "Section"], Cell[37859, 1115, 241, 4, 132, "Text"], Cell[CellGroupData[{ Cell[38125, 1123, 1706, 46, 400, "Input"], Cell[39834, 1171, 1108, 32, 780, "Output"] }, {2}]], Cell[CellGroupData[{ Cell[40976, 1208, 43, 0, 112, "Subsubsection"], Cell[41022, 1210, 1627, 40, 513, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[42686, 1255, 47, 0, 73, "Subsubsection"], Cell[42736, 1257, 74, 0, 105, "Text"], Cell[42813, 1259, 3017, 78, 513, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[45867, 1342, 30, 0, 73, "Subsubsection"], Cell[45900, 1344, 158, 4, 105, "Text"], Cell[46061, 1350, 429, 13, 82, "Input"], Cell[46493, 1365, 300, 12, 105, "Text"], Cell[46796, 1379, 733, 22, 193, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47590, 1408, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[47679, 1413, 32, 0, 208, "Section"], Cell[47714, 1415, 128, 3, 82, "Text"], Cell[47845, 1420, 204, 6, 78, "Input"], Cell[48052, 1428, 320, 9, 78, "Input"], Cell[48375, 1439, 211, 7, 78, "Input"], Cell[48589, 1448, 324, 10, 78, "Input"], Cell[48916, 1460, 118, 3, 82, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49083, 1469, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[49172, 1474, 40, 0, 208, "Section"], Cell[49215, 1476, 107, 3, 82, "Text"], Cell[49325, 1481, 177, 5, 78, "Input"], Cell[49505, 1488, 249, 8, 78, "Input"], Cell[CellGroupData[{ Cell[49779, 1500, 156, 3, 112, "Subsubsection"], Cell[49938, 1505, 309, 8, 523, "Text"], Cell[50250, 1515, 352, 8, 523, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[50639, 1528, 60, 0, 73, "Subsubsection"], Cell[50702, 1530, 250, 9, 175, "Text"], Cell[50955, 1541, 141, 4, 82, "Input"], Cell[51099, 1547, 219, 6, 82, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[51355, 1558, 72, 0, 73, "Subsubsection"], Cell[51430, 1560, 248, 8, 175, "Text"], Cell[51681, 1570, 348, 10, 82, "Input"], Cell[52032, 1582, 429, 12, 82, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[52498, 1599, 46, 0, 73, "Subsubsection"], Cell[52547, 1601, 417, 13, 175, "Text"], Cell[52967, 1616, 168, 6, 105, "Text"], Cell[53138, 1624, 60, 1, 82, "Input"], Cell[53201, 1627, 252, 7, 82, "Input"], Cell[53456, 1636, 649, 19, 82, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[54142, 1660, 30, 0, 73, "Subsubsection"], Cell[54175, 1662, 199, 4, 175, "Text"], Cell[54377, 1668, 1065, 30, 247, "Input"], Cell[55445, 1700, 30, 0, 82, "Input"], Cell[55478, 1702, 118, 3, 105, "Text"], Cell[55599, 1707, 873, 26, 139, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56533, 1740, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[56622, 1745, 54, 0, 208, "Section"], Cell[CellGroupData[{ Cell[56701, 1749, 3172, 79, 982, "Input"], Cell[59876, 1830, 1752, 55, 600, "Output"] }, {2}]], Cell[CellGroupData[{ Cell[61662, 1890, 50, 0, 112, "Subsubsection"], Cell[61715, 1892, 267, 9, 141, "Text"], Cell[61985, 1903, 391, 11, 67, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[62413, 1919, 44, 0, 73, "Subsubsection"], Cell[62460, 1921, 266, 9, 141, "Text"], Cell[62729, 1932, 382, 9, 198, "Text"], Cell[63114, 1943, 371, 10, 67, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[63522, 1958, 38, 0, 73, "Subsubsection"], Cell[63563, 1960, 372, 14, 141, "Text"], Cell[63938, 1976, 529, 15, 67, "Input"], Cell[64470, 1993, 125, 5, 85, "Text"], Cell[64598, 2000, 410, 12, 67, "Input"], Cell[65011, 2014, 208, 5, 141, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[65256, 2024, 30, 0, 73, "Subsubsection"], Cell[65289, 2026, 244, 4, 175, "Text"], Cell[65536, 2032, 1386, 34, 567, "Input"], Cell[66925, 2068, 151, 3, 82, "Input"], Cell[67079, 2073, 163, 5, 82, "Input"], Cell[67245, 2080, 863, 20, 406, "Input"], Cell[68111, 2102, 5360, 123, 2170, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73532, 2232, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[73621, 2237, 24, 0, 208, "Section"], Cell[73648, 2239, 116, 3, 82, "Text"], Cell[CellGroupData[{ Cell[73789, 2246, 30, 0, 112, "Subsubsection"], Cell[73822, 2248, 96, 2, 105, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[73955, 2255, 30, 0, 73, "Subsubsection"], Cell[73988, 2257, 71, 1, 82, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74120, 2265, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[74209, 2270, 29, 0, 208, "Section"], Cell[74241, 2272, 274, 6, 132, "Text"], Cell[74518, 2280, 35, 0, 112, "Subsubsection"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)