(* 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[ 164157, 4190] NotebookOptionsPosition[ 88549, 2506] NotebookOutlinePosition[ 150750, 3797] CellTagsIndexPosition[ 150670, 3792] 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[TextData[{ "Advanced Typesetting ", StyleBox["(Workshop)", FontSize->24] }], "Title", ShowGroupOpener->False], Cell["Jason Harris", "Subtitle"], Cell["Wolfram Research", "Subsubtitle"], Cell["", "Text"], Cell["\<\ This workshop will give you a hands on tutorial for creating your own \ advanced typeset structures in Mathematica.You will be exposed to, evaluate, \ and experiment \[LongDash] in a hands on fashion \[LongDash] some of the core \ technologies that underlie the typesetting system in Mathematica. At the \ conclusion of the workshop you should be able to create and use your own \ typeset structures. For instance, have you ever looked at the output of say \ Binomial[a, b] // TraditionalForm and wondered how you can create something \ like that yourself? If so then this workshop is for you! The topics covered \ are:\ \>", "Text"], Cell[CellGroupData[{ Cell["Boxes and the representation of typeset structures", "ItemNumbered"], Cell["\<\ MakeBoxes & MakeExpression and how the typesetting system interacts between \ the Kernel and the FrontEnd\ \>", "ItemNumbered"], Cell["\<\ The Notation Package and how to short cut much of the work required in using \ MakeBoxes and MakeExpression\ \>", "ItemNumbered"], Cell["\<\ StyleSheets and how to package up the typeset structures onto the style sheet\ \ \>", "ItemNumbered"], Cell["\<\ TemplateBoxes and how to use these modern mechanisms which significantly \ advance typesetting\ \>", "ItemNumbered"], Cell["Miscellaneous topics.", "ItemNumbered"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Please Fire Up Your Copy Mathematica", "Subtitle"], Cell["\<\ This will be a hands on tutorial. Grab a copy of this notebook!\ \>", "Text"], Cell[CellGroupData[{ Cell["Hands On!", "Subtitle"], Cell["\<\ Please type and work the exercises as we go...\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["The Schedule", "Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}, {"ItemNumbered", 0}}], Cell[CellGroupData[{ Cell["\<\ Introduction To Boxes (10 minutes)\ \>", "ItemNumbered"], Cell["The \[OpenCurlyDoubleQuote]guts\[CloseCurlyDoubleQuote] (35 minutes)", \ "ItemNumbered"], Cell["\<\ Problem solving clinic / difficult questions (last 15+ minutes, \ continuation...)\ \>", "ItemNumbered"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Our Goal", "Subtitle"], Cell["\<\ Our goal is to introduce new notations which can do computations.\ \>", "Text"], Cell[TextData[{ "For instance something like ", Cell[BoxData[ FormBox[ SubscriptBox["a", "\[PartialD]"], TraditionalForm]]], " and make this parse and format as the operator ADiff, etc." }], "Text"], Cell["\<\ Throughout the notebook there are various encrypted cells, so you have the \ answers to the questions in the notebook but you just can\[CloseCurlyQuote]t \ reveal them until I give you the answer code.\ \>", "Text"], Cell[TextData[{ "Excersie:", " type the code ", Cell[BoxData[ FormBox["\"\\"", TraditionalForm]]], " (including quotes) into the code placeholder below and evaluate.\t" }], "Instruction"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_pvi", "\"1:eJyFTstqwzAQdJMmcUBv/YD1D5j4UYqvbgAkFAJWbqUQ2ZZgcio1toydv8/\ KKSSn9jLMzs7OrF9cLmee53WPBB+\ qs7fpXWjNMaIZYcV7LKASZXturDI12G8BJRl8OBKTqDUOTlgdgKaFEi0qogPWAkpQpultwFzoUYxWP\ txXXAuffqesxb7Zgsv/+uoisCJ4w3EyT8KSIMeBNDm/P2Zrt+Cmwp9ggM2g+XPCL7Yc3Ln3/\ mlcz8Q3QZxEiRxvojAK0/QlCV9PzLUeeksR0/WhEeYC4KBP+Q==\""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell["Encryption Code", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"MyPermutations", " ", "@", " ", "code_String"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"chars", " ", "=", " ", RowBox[{"DeleteDuplicates", " ", "@", " ", RowBox[{"Characters", " ", "@", " ", "code"}]}]}], ",", " ", "imageChars"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"imageChars", " ", "=", " ", RowBox[{"Take", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"Length", " ", "@", " ", "chars"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"Inner", "[", RowBox[{"Rule", ",", "chars", ",", "imageChars", ",", "List"}], "]"}], ",", RowBox[{"Inner", "[", RowBox[{"Rule", ",", "imageChars", ",", "chars", ",", "List"}], "]"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{"CryptoTransform", "[", RowBox[{"str_String", ",", "code_String"}], "]"}], ":=", RowBox[{"StringReplace", "[", RowBox[{"str", ",", RowBox[{"MyPermutations", " ", "@", " ", "code"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Decryptify", "[", RowBox[{"str_String", ",", "code_String"}], "]"}], ":=", RowBox[{"CellPrint", " ", "@", RowBox[{"Uncompress", "@", RowBox[{"CryptoTransform", "[", RowBox[{"str", ",", "code"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Decryptify", "[", RowBox[{"str_String", ",", "code_Symbol"}], "]"}], ":=", RowBox[{"Decryptify", "[", RowBox[{"str", ",", RowBox[{"ToString", " ", "@", " ", "code"}]}], "]"}]}]}], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{"Random3Letters", "[", "]"}], ":=", RowBox[{"FromCharacterCode", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{"DeleteDuplicates", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"25", ",", "100"}], "]"}], "+", "97"}], "]"}], ",", "3"}], "]"}], "]"}]}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{"CreatePalette", " ", "@", " ", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"theContents", "=", RowBox[{"NotebookRead", " ", "@", " ", RowBox[{"InputNotebook", "[", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"theShownCode", "=", RowBox[{"\"\\"", "<>", RowBox[{"Random3Letters", "[", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"thePassCode", "=", RowBox[{"Random3Letters", "[", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"encrypted", "=", RowBox[{"\"\<\\\"\>\"", "<>", RowBox[{"CryptoTransform", "[", RowBox[{ RowBox[{"Compress", "@", " ", "theContents"}], ",", "thePassCode"}], "]"}], "<>", "\"\<\\\"\>\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", " ", "@", " ", "theContents"}], ";", "\[IndentingNewLine]", RowBox[{"Pause", "[", "0.5", "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"InputNotebook", "[", "]"}], ",", "Before", ",", "Cell"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"InputNotebook", "[", "]"}], ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<[\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"InterpretationBox", "[", RowBox[{"theShownCode", ",", "encrypted"}], "]"}], ",", "\"\<,\>\"", ",", RowBox[{"TagBox", "[", RowBox[{ RowBox[{"FrameBox", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}]}], "}"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"InputNotebook", "[", "]"}], ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", "thePassCode", "]"}], ",", "\"\\""}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Everything is Boxes!", "Subtitle"], Cell["\<\ Select the cell bracket on the rhs and choose the menu option Cell > Show \ Expression (\[CommandKey]\[ShiftKey]E)\ \>", "Instruction"], Cell[BoxData[ RowBox[{ SuperscriptBox["x", "3"], "+", "2"}]], "Input"], Cell["Do the same for the following:", "Instruction"], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["x", "z"]}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"z", "\[Rule]", "3"}]}]], "Input"], Cell[TextData[{ "Change something and convert back to ", StyleBox["Mathematica", FontSlant->"Italic"], " input." }], "Instruction"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Visual form vs. Internal form", "Subsection"], Cell[TextData[{ "Evaluate the following then enter ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["x", "2"]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]], " into the input field and observe the changing underlying expression as you \ type." }], "Instruction"], Cell[BoxData[ RowBox[{ RowBox[{"theboxes", " ", "=", " ", "\"\<\>\""}], ";", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "@", "theboxes"}], ",", "Boxes", ",", RowBox[{"ContinuousAction", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Dynamic", "@", RowBox[{"Style", "[", RowBox[{"theboxes", ",", RowBox[{"ShowStringCharacters", "\[Rule]", "True"}]}], "]"}]}]], "Input"], Cell[TextData[{ "Observe the automatic grouping and precedence as you type in ", Cell[BoxData[ FormBox[ RowBox[{"a", "+", RowBox[{"b", "*", "c"}]}], TraditionalForm]]] }], "Instruction"], Cell[TextData[{ "Its ", StyleBox["all", FontWeight->"Bold"], " about boxes! ", StyleBox["Everything", FontWeight->"Bold"], " is a Box." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Generators and Graphics Boxes", "Section"], Cell["All displayed graphics are actually boxes.", "Text"], Cell[BoxData[ RowBox[{"Graphics", " ", "@", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", " ", "@", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Random", "[", "]"}], ",", RowBox[{"Random", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Random", "[", "]"}], ",", RowBox[{"Random", "[", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"{", "7", "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"pts", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellID->826941582], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"BezierCurve", "[", "pts", "]"}], ",", "Green", ",", RowBox[{"Line", "[", "pts", "]"}], ",", "Red", ",", RowBox[{"Point", "[", "pts", "]"}]}], "}"}], "]"}]], "Input", CellID->234422992], Cell["\<\ Similarly all box control are also boxes:\ \>", "Text"], Cell[BoxData[ RowBox[{"3", "+", RowBox[{"Style", "[", RowBox[{"bob", ",", RowBox[{"FontSize", "->", "50"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{"Print", " ", "@", " ", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "mn", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "100", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Dynamic", "[", RowBox[{"Factor", "[", RowBox[{ SuperscriptBox["y", "mn"], "+", "1"}], "]"}], "]"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["MakeExpression & MakeBoxes", "Section"], Cell["We need to be able to do computation with our boxes.", "Text"], Cell["Generators are not sufficient.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Style", "[", RowBox[{"foo", ",", RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], "+", RowBox[{"Style", "[", RowBox[{"foo", ",", RowBox[{"FontSize", "\[Rule]", "30"}]}], "]"}]}]], "Input"], Cell["\<\ Our goal is to introduce new notations which can do computations.\ \>", "Text"], Cell[CellGroupData[{ Cell["Evaluation Model", "Subsection"], Cell[GraphicsData["PDF", "\<\ 9E14ARda;S<:9LCUl^G[Yo>Pd7;LAQ^oi57fIG:SM ?7BcnmJ6WH/0P@GY1HC9bU:`JdNkl^7aDlE3oCmWNUN;b0P`o9N/:]KDT=mdCKi< KjL_dgLo??WYlSCijNTb;E=8biAbV]kXRlNkjN>dc=]BoXGY/`aRoIMdnWOoT;Fo ?;VHiS9SWd;8/iMGOWZH_?PcCE=X/D6E5?XijYhCZMk?NBTk9CmM6j>1JS738_IU_VV_YeV< 9H^QE^dV5_IiUENaI37f/^ZZdba:=592=5EB947/L`XfF[Kb;/JJ@4UOW=Nmo;D] Uf:;OKWiPGJQV:1:m^CceK?GE>LmfoNSLdnAHC5R?mWjNKVUTRPo7cYK2oJHaJSH dT@5;AYC=4UBmKY;R7i=/hCPSmT76T^/^OcmdQAoY3W/IDHc8U]=eHR[WVb/JK:8 X8[oHcidYi5D_lcQJ>M1Ln6P3H50AKQV4E/jbLIik]JF^h3IAgUELTMScEbLSoHQ kJYOHc]3=9hmG6U;;/O:FU;HEMgS/IObJX`ejmb`;@? ]IP:EmZbUb29BNnaT4G/lbm5YA[=VE9:nUn?2bLK:ZKVGS2keoI^PJTJ3n:dIkJ[VBMm?bD:` /M>hmo;gBi_Q3kV?mc;3[?QmjeK<7k@;a@IEXY0C_FNaZi8UGKdMi0LJAN=8ALaV 4O/bgjB=FGB06[ZfDkfeiG?1D0>EXLID1eZ9RPK]b3B^BOfD7[Q6L4>]AlJTI]0k 0ZZ^3E`3UKT6Z]6:8clP68k8E<@>RmRinGK@GXoLD6AHSmY>]_`Y]D[_;Xj4=548KR1ELHT<5gm6V0DD4fUC/d4Af]6U`4W936a/? J0>Ed@HZXDeg`FS3PIQ:hL:RKNTT6jm2VmA^l8hf63?J@0F`a0VRC5O0/eJO>:89h1:6GO[QV0PFT3@T05K<0RXL0I3:0a@T05K<0RX0Bn1jRa>1UZH]`:Pi0Hfhe2KQ`d3PPZ@SN3f?M9Q]`; B2>CjTg0B9?DAZe:@YZd;LXTVTEC9D]43SYR[=0aV`34 08gI0RY0Qb`J[I1_YQg4BK@SVe4hbCAG<[KNn8764D55k6CAb>H/Abo@S/`>=Om4 >k8[S9gVLZm/@[?B]]o@3S@V35>9ALRR1JX R9X/PWI>l_82kLRgQIE9AciGfcGYC3F?XG`2XJH]gi0>=><:Mb4E148FSEC8=i=> SK4[CSd_GU4lJ4TmIl@cRJ WoJNMF9`d9QdX892H16d0]nV^@_RW9QfXWcW4CPAjX>Z>K[fHm[0GYP9fX55k16n RGKLao?^E6D9jT^1M[P_AFaRGAXRVm[N8H6j@8@jeYN2>N/[>CPNne;7d942V40U e;6>53B>QM@JRhBHAIZ:M18]X>jWGXF5U/G73bZR4 iQ;WV0OR7@NZdH]3/hXhQeY3a3WFA895 =9_<]a^JEBE6JU@AUD0UcS4O81Z>Q^S7hXI5JUAMiNHdRb?WC=bT0V]`T`YDHRXc SCEmB:=V5G6>=I9PdAY>3[jiHHDh^F45:X4:YX4O40e7A:[53X_H>EQ`K5SimZ7N fb>am/127clob3OhXkmE/Oi8a4_YJe=JFl@2C=ZFmO9i[0<9k9S[hePMnD=`HLLR _fNbZ:<;NIBa:hnhO?l9@ihb[6@bGehg_cJoQ=F]>AgYm/Y?TWih=bgC^anV;k;K AOikhjLgJbT^BM7UHM[]nDhZSjJUZ=_3PUFOGDX0]O5AF]RC[5cfm_aOQAj 4NVO]Ki2e2ZX;a?:;PQM7:6NBGe5Y[Yc>^;2dc5GWXjUaV171lUZ[kU5hFTlHo3O :[gc>Q4/G_fjbFI_:nnOMhnog]foE7cW=^GLGJ@^Sk?Rno6_ockN?Cemo^gGUjY? 3l[j]F2]ge0BEemJ=bdROCbPgbZfX@kZ^9E87J1j/38km?WYE131;IJ@nm251PH?RVYJ4U@fnF8YA2:lVcigDCGVH_h[a fe[lemfOdg?ej0K3;aGTm:f2M=l/b7XYXgSZYHc2:YNDUUfoUE]1;T=5e_/DZoBR QLej;I]?Yf<^BVmUf0beVUbX:?_US5GJ4QoglJZJ[?La:RP=5JTgX5HN;TLMKBQ9 G:JXhX<[lQP:dQeS?Aje7655Alfl_XAO[4UDSbjmXQbO^d?eK9AhDje7Mef?cmk< gc3koeo=@U:QT]@bd9BkO_MlG3EemDG`Zcf=dT`D:iNWITFbDPkc]GdSB4j^ABfP cCM1;j[]B_Qd]DQLgMJBXfSTN`kmTW`OPRXo/JCaYi/EkmcKIb]E_fM;IFRWEDj@ LX36CKoZ5;=EZQ^?nR2>:Ghl:d6L074MJ8lI>[En_d?f5jDnYlWEKPlmBiL_;ga?/gGJKYGM]JM_X _KjbZ6NhoP2TYWOYKombm8;`LHi9cj=kZVCl^: ^V5@f^S7ihalOkWool7GP_?ioCBUaOiUdZSZ9nScBnK2LQE`>dU_c ?ogfn?3QjmO?_oibBP?ULJBDlS=9>;=h4[13S?[CS[2M7NKQc=S?7ajO>3KgmWm4 >4bS2VE^I7=dLVEQK@YUKVA_HVX:=20`86mRJPXc20`858P;e9ULfmeLV=ULb0c830PDR0_ @fm^M6E^M7BheGB0n?PYUKVA_ HVX:CTi>CTP?Sh:IFiTKf9Z2S4d830PKf9Z2S`l82mD NG1U82m5N7A7DgAQM6DP;f=Q830^<3D`<30`<30a83hn2VE^I6mRJPXa=B0`86mR JPXl?20_E7U`IB0_AGQdAe=dHGAU82mSHB0`;S8e83hn2VE^I6mRJPXa=R0`86mR JPXl?20_E7U`IB0_AGQdAe=dHGAU82mSHB0`;S@g83hn2VE^I6mRJPXa=b0`86mR JPXl?20_C6E^IgAX834h830PDR0_CR0a82m6JFadIG8P;dI/HGAUA6ESKfAU83hn 2W=dLVEQK@YhfXeCCF/CDABmTeKLQ5Y4BnWZ;H/THO`0[A^9BIXV;C6V:IXRj3Qi JJJIc8a_9]64[[Ya8iZE^70S^7=CL>>R2aN5KQB54_d5PUD;OT2GhYVIV8b]GaON NfO^>oONLnmSR8KG5<_B@hbXKSPRGHRG;YLFfL7G5:8A2Q=I=ag;8I9Th2>eHR41 W0@NDBgQnX_0SK AJmWJNb5fQ3=g[DT_BAbn2g7oDRHET]XBeF77InJ>/>Rk8@/WfAaC8RcQ5Vg6PhG ;6>X/@QCM9eiE9/9KW?Ai>DHeOG6cmh>HHFi/C2?Li8Xm87KZAjF[;:BW0Dn1OmH VBMC`6OQgjQXdaWP6=I6AD`_h3`6?m>LC=7gQmH=?COWnd=I`laM08j0ll1bcQN0 l@jQ>gIc?]G;lgEIbNIaSX6C[IVc;VLL7:MM;Eh27XGoF[^Jb?UnjC^EB2M>6QWH 3F8d@`X9ZV=G:4XF/4TEg6_PJICfF1aNSFbZPIl6O^MQaL/dR=0Y7l0^La^afek/ 3FZ0jdLSDhiF8o:Jo4Un;;nEMnB^o0SXHfNR20`86mRJPXf=C4:IFiTKf9Z2SDP<21_HVX:Fb0_BD=3@V5cIF@P837J:;5IfTHgS`d26@ R10Dje92gBB3@?0B/_eVI]LMDG_`iWgVmoogN`lXKhcY^^XAPKAVlTQ?@1`M6aL[ eU6>BWQ1:bHK^SlL7[2IK75TkGf1H9dK?T_Oo_gLeK;AZXloKjd<6/?@6 ^5QOTSGF0QM6P>GFTV`gH/m7Z5Tc4Zd]]TS`1X3b[Gan]ajXN0[/?lWWokkVf299;J;? >UY5?kd@9PHcJCe[33M@`h;iaFc;nZ`Yd=C@`<5 QYH9gGARHTLg0i5RO2V/8gWkM:KO/ZTQglJIE7C4HB4jT`Z62[b2 827X@P0lj>398T4HQ2hFTc;KQa0JVSkED4GJaB?Y]l]VfONhPBmjF ec028L`e7D@@YJoBKfUCFYANBklFj[:=9LdL_jg8Jo=o::jE^ARgX2gDiVAkJ[ /b^eYEbKYiHW=[b[/hMVUCWB5C_Xj_1obLk]coh1[P/8N0YUKVAcM79UHFd:IFiT Kf9Z2S8`830PKf9Z2SLb=PYUKVA_HVX:=b0`86mRJPYK82m9@d=2HG=UI20a>B0` 858PG@YUKVA_HVX:>20`86mRJPXl?20_E7U`IB0_D65WIG20`858P;eIULW=YKfhP ;c4^=20n?PYUKVA_HVX:neOW_]]MI>3a00D<=JH20dOfWKk3UADc?cnoYM]kcag7M0>A10:I[ hK95B`lMoF88P<=^lN2R9Kd;Ich@Z@M8NQ;0j>aXKe]`gY=c2B1CnWi91cHT;nLN 0O2`F;n]k]VYjk2>ld?Yd[IKUXTm2Z@md_NM?fUK fWiMkm9=F?lBjaW;K[bYVgk0O0?PeF:mJMV:mVG/WEHNjag8gnn`SH0TSb@A3knB iX3VhIKofhO:>@?/B0/WikPf238UoYe_:c0Y@HEL8EBH=79[ `Sf`6oZAYoe8Il5Lf0T_T2hhA^K089`SjA34OFHQ0U?PAA:?_`X;hNLh_Q]>`CHh S=aU`E;TH`Y/8Ikh:Zb7T9h7jn:?@BJD`Ue`0/Y`eRd`53l@?h:mSG0M78A3n?gO 4CLmc:K4Oa4oSdQgTEK6_hlOSIn=_h1kJhGYH0F]@^U?`2Ub0K`V3LmV8QiBC BS8GWkET=ce6mY1SM1XiBEjQ1lTOb]m10mAEmR>YU]c4?< 7iR_fG4LiOI`Wo0NhMgH_=RVf4_al_Q7lKnREX[P`YfYQ0Jh0MY@fVD`2_h5YGP: WgkL]M=`1Uj@Whn93HKP[hP243faT49BSdl3VDXFTTkb27T6WfMUG[jQ^15D@GGD B6ed1Ye7Um:em0fjU[4bfL`TISKCSlocc3WV8W>AiMPD=YFMb=K1IWHY^`^O_Nan MX1mVB_SaW4=g4a^;KN9flcHCj[8?=R>^k67]44OJ]L2/Q5iG0IIlAIV3C>AiZ7;QmdJ64R=38b>9eUT15KTicVZgGVB8HS12YY hS1Yl@W g:eNh5i`Mb@4leXUZVe>DiQYJ`kCEVT^GB1/M5N5SJ/nLMKUa100R[NB^@ck3c_Wb8ViT]UC:fT^QKghY3/=?i6O2F6: >/=h`YbW[RflM/IU=SZZ4/beMUD=:<`FBHKFbVHLgmZW7H?;h7R]fmWg=N0F^XNn _;ZUKKR5mfRo1XVD=WY4Ek3o<]dS0b<]Ig9gB?_KDceLMi^Z[fS0^PB=a7?H42jL ?:g95GHfHd<40SVC8j2HeWBHT2g=4A9O7h4Znc7dJ/`=Lk4kAe:ecRYL7b^i>MR@ kD8ZV>>/`HU[95eamSWkjQKd>F^L7JQ<[4L^/J>m[cT?4IcAQ3S1]KQRZ=Tj@[Hg =ho1NO:TNEQiW[iVW:5[N8H^N@JL88Z3lWA:Q4LS ]bDb`ZGo88C;OPc2HghD`^DoS705lU`^8CcfWhO`^:/@7_og4@iMRO0eb6e8A[Sb 7hC`Q1n3L=F?@[SjQa6^@Ij[9H@Wo_<@[[d:hKZoSo2T:a6NS=a>TQ6NlPm2^?k7 8=c`Xa2Nn/<8Cd>NYdX8CooW8Mah1L;b;F@?GScbl6k0h:eSGXf>RJOj/Y46RhD54O[FS@OU=A[heF`?R:J8FD2_:;M2jM3mFUY8hNRBhU4n [m^U^h9TG4hYEQ=h8BeAnPTm_JKV9cMGgQ7k:GWZJ4?1_E=Fafkn3Ee9j=;@E7om l];icN]S7dBg<]?LXnnm[m0F:h_>kYY``j=S7=6;G8 Mcn6XD>8PgAgJ`QU2^T/Zf;B2@K6H[YB9JZYFTf1kjCU2X^64CePC]94R>Z8Jm/V FN9QPBnLAb7cH7`2O5W^P_`DEjY;=ia8?i]gJB/C^?@6Lm_5DmC1WARlnRaRFXD^35 aOb]o>Ll`e^BR=:S0[_O3YnR;92GjDmXMRdISOc[5 WHR>XRm6`iNfdXlnR/WWBI8iFlIE2CdQ`fQBbU>168V?C2A=:1jQ=49fQhajWQNX 82;W8RlZ6JFBl29UY;iOLZa5;HSB::D2c2[eXjjNIENO^fP5KWmI@P76Eb39KPP6 =Z`nPdbg4>BHj8YdKX9o3on9OW[R3m7TInTHk/C5fNcNKbN`CeblGUJ2Q2knECjC 1VP;5GNZ>oFmjUEj]]K@I>P`[3:`PYR^dfZEA96;?R?XWGe_PKk3OL9i27MjeHJ:hofNOfNT/d aJj9gWWNEIZEVH[5XTUSm=1VCHOVH0JSe8c9bf1HG@jl[:Y8AR3LUf AS/TBAV<5[D/Uhe=OEI@i`2ANZTgel=k;5hV1`:@6i@;;Q]]Scg54@1[ZRU0c2JB b`I0hE<5R4M5PTP;O/cBmCK/C;=9MPXoFVdP@;@EB;XbJonfb>@>CYcafmSOC=a?maLo8 Q>?91MNo4mhe^obEUkI=gackjImRok5k=d?[bC^[6ai`SW_dUZ92Cfi>lIbSclGn l7G?n9/NW;NTd9VOUe6nj?B5ecKOoAn/B[;[SO7gi5]j9dZ]bZZf nHYZ]If:;Ze@9^[E2/IJ:6@Zk5Ze_Ca0PokbXnFd_33KXmL:W6ScIAQ]4M8GLQ_] 3/5W3jZX_EQE8EADf0b2?g]oYVFLeFnKU>`[=HlMmb^b0ea`S6b7ZkKYO?Ad`R8> B@o^T;@m;GQBeGO^NZNLYMb?oNGadodg6cdZ==efCWN U^`daNRGK]]fhYTMOBo?cZWKNgnZSMLTfO8FTBERSRUgcX`YfC>NfeeK^c>j`iK1 <>_EO:DkE=_ebhgKOYi2cT]WYCcn4O<:f`0F/<:nD=hnHUOjS6JK?D:48jhEZhOAUNg=D5WId0Rj/_;;D8k2 Z<2SCUEj@I>RmA:m;UT[V;760NQCHR5S>TKdKnf:LN6ooTSDMRggke0KWQlcMOn=e_G_T]7CdZOC:eOc]^fo`VT__] 5f@FW[OJn3^/1LnK3C;1@mBQgQgR@iIm3XKCd6C>T:[A9jLJ@^Z@@OAKb6CEdlaI lQace_ZFn;KRW><]mnO6cmfZ/kZcNSY7i5bIbK_Bk9UU_22T^N`f@FU?DgV47KIm ]Z>f=ff/9bgIHn?h//<2SjcfN]kgKFgIMSRWiM]i>_A<_A2TU=2 kFPIdA?90`aM3/MZ`FiMFN36^V5iaPmi9d^l8XN46E Z_6B98gKh/8V3S?AQ7ZEY]@RDS2>:;o7CaGFZ;GG_Z:^fo7?MOV6`h;D`/JNjmYO3kf1C7m>g6X/RHmMM]n S[SIRH^_VkiTdV>?WfTYVEQnOg2JCD_LQ2NDE1ZZ;c7DRGF:9[5I/E5m`;[OO/2g=g3mG/RbH:ICJEb@[54WNN`IG^:cn_4lZ_D^P>m>hFGk9VUXLI4>HeiG Q]MG=>aTI0^F:B48gY7CRFJ?d=_V5QG_[EPFNn6Y;cE7TgaSkg`ii6E:MZknAN`R 4IhQECooUfM[?5]_>cDe9oHZFcW>?F73YL8GNmkIoDB][n:1VNlgC_/;/ICU``jiOW^RO_hhVkRC[<7P/7kjCU8A/`RL/1Y5A ZCG?E2eBZMdNYLG^=R/YJoBhk4Ik4Rl0KkEiV1AU5ZjYla/RQ0aHo6Q`B@Q]BM23 Vf?fIDE8dY4[n3R__C1d8C[ A?R6ZGD3XE7=bmLfi6AF?=KnET?flLGeG@lM]ORG;M`gb>K]W9XiMWaVcL`I3enk 9CZJO[ihfYJmdO_YlJF5Tami>O[ll;h`@jSWI_@/Ld<5AoVc?6Ei0nlcm?3M0VM@ Dh=9JnM@C9=:JA4/5U3k5AHK2I[lIS1KdLGcEdTVVhkQN`cZVGR6: ;n5S=@A[I=fQ:@LkcTo;>F[?Ga?bCb[=]@jBOLSogYdn?ZmR@E9JIO7b c^S;b2c^M7WlKMJ5oU0]ocO/_U3ACW6kmZ6d9mSmhUk]PKB8n;ch9_^9iXl6mARA ]i/4]Ef_Z;QoL8ciHN[AG5F2CQn3iLWcoUVBNf Kgol74Vo5?_;nk5;A?lIgdfBmfjOnn2UPD?WVGMRGlH^a::aGi309@a<@Y;_jhUM agY@M0eT@7LXih2hcdRcA:M=Yn7]ZD8b[k7KE1TJjS=I]C8Z@JeFo=5NXW7NojlJNSYbDSV_SM02j[GYXaEHY7Y8>c jE3ZcaMc9[_FZ]gh01jEHbFk:O2X<^ Sl]UPbUPBKDJKJKDG4<`:eWE:GXm9AkZbDQB/X4Ddgk0ZXl@J7ADP7b G7TFQbW=i3>>bo8:_Ra;PLKQdhh3Gm2LGc0`hZOAQ2ClAiTFZLC]D@Z:4cLJ:F:F C4[R:S>5i59_:UiQG1Z72aAN`DG`5^?2F`aBMSffF@dV5g4VIkS0UJ594We:5o5j 54ZleKR0mf>F[[>iY9^D/XoK3RBnMLMS=GGVET>bKlck/<:XkGAkhB ?EGk5n`Ljk_YgTgGM;mkk;lFCj07>NnhQaIfEVLe[3aEfOWf1enM5LQAX9]^LH/o;ZGk`gUONOYCn3GG96?n::[SIJ1dJ OiTDE9kDT0PI7o:`JFE6Q]LXMAHde`cQoI2ZBDeV70aU;ZFIcII;[TG3DG:dYNbd 7>`Tc7BNI:BS5D?Jj7WINJ0OdQVIQ6oPMg8kH?mE9`8]KBJWLCM aFkRc[;?Lf9MeTeIdRlOJ6XGBNMdLV=_9;i/40=69a/QMaiUV:EjBRR7M2RMiiOZ LBF>IaU2><[`3?0LZaBUcNZWca0YRUQgQ?CcIW?31E=mm<mYYn3knH]:l>oklg<2MX0oQGT Bj5Ybo8D1BW2f?4mTTh2If9;C/I^I_<^kF@j;[j:2150i@RQj_ P0;?L]90GU282ZDX]F_d;5hUEgokf[^3/AN>_o?khk7O8JB3c9A;aiR95emUaUkj 3@8j[8LO8HUU2WkEZ21^o2?YOocVKno6MY3NCf?Oa6;WBBnK5m]0N[WXaNRki87H CjP74[nCbYm5a/bR6i8[_PIMhZFLOnghcjm6BUF/W?M`WlQ_iEan<`Q;gQoc0fiY K?W59^G[on>M8B]g5_K@<]ciVK03DcokIBVVFTaS bEUHQfTCOa3FHEe:DWl??@RKL6`UcVW4nUZTECRGGRYa_E7hA>0B2I;m94J_IIah >YN`Kg6?lI?hFoQM@YZ`@_Q2W246n7mQmlUlTZgj4l T0Enm:05N=4XPBZXTMncV@ACH:[lYTlS[W/Mc8AId0C=<1^^Sd1M80;SEk3<7G`4LOKYXn?4c>D;l9RlN]d[8FB 7BO]ScSneKk8lBbV@hV^Poj8m9d3mRF>[NTA/V_0lH1dFAQ`g9lXK[KSEimf;?E_ Mb`XT?^WK8o@@`>><^bO6E8iBTYMSV;kNDNN;b8B[>OJYcRb2ok=TFVGQcUaDTm8 ik3I]c[6H5Nj_MXg1]=aLY3/QVbbNl0cbO4R;b8m_`Gf]J:;n^hJi^ am@J_[^W`aAN>loY?=beK?QM56o[_?TMD]WF7UkVKZl:MkV[W8Mk5_i0md:Y^lMM MAPFEUoKM7QQZ;eZX2OD8knYLVANiHZFZmKJ=;;FR/XOV:aBVVb5]=JlUQoXKY6j idU[]DQ[]DQ[c@_=TmNBi:c^W55iDcMZYk>jLk8cW3DSG3MmMU?HfMIL5B5kYOn; gPco3h>lTST:IFiTLgAbIF5]2VE^I6mRJPXbS8`<3Da<30d3De;C0e9c0`9bTP;de_I4AQM6DP:4@jC@f830`<30`86hP2S0`<30`<3Df>3PP<30`<30PKR0:<30`<30`=CLb=20`<30` <21^80X`<30`<30c=SP`830`<30`86hP2S0`<30`<338`830`<30`86hP2S0`<30`<3CLg830`<30`86hP 2S0`<30`<3@`30e830`<30`86hP2S0`<30`<3@h=S4P<30`<30PKR0:<30`<30`=CHf>20`<30` <21^80X`<30`<30e>30g830`<30`86hP2S0`<30`<3Dh=c4P<30`<30PKR0:<30` <30aCDh>CPd6AU>CQQ?PXl=3Pe=V4c=f@f<3UT=F8i=CPi>3@cICER=SLh I6Di>64n85dP?Sh:LgAQLWAhLVEV2S4d"], "Graphics", ImageSize->{474., 239.5}, ImageMargins->{{87, 0}, {0, 0}}], Cell["\<\ Parsing \t\[LongLeftRightArrow] \tMakeExpression Formatting \t\[LongLeftRightArrow] \tMakeBoxes\ \>", "Text"], Cell[BoxData[ RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"Sin", "[", "y", "]"}]}]], "Input"], Cell["\<\ Exercise: Open the help browser and look at the MakeExpression and MakeBoxes \ documentation.\ \>", "Instruction"], Cell[BoxData[ RowBox[{"?", "MakeBoxes"}]], "Input"], Cell[BoxData[ RowBox[{"?", "MakeExpression"}]], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example Vectors", "Subsection"], Cell["\<\ Consider a new notation for \[OpenCurlyDoubleQuote]Vectors\ \[CloseCurlyDoubleQuote] by underscripting by \[OpenCurlyQuote]~\ \[CloseCurlyQuote] and having \[OpenCurlyDoubleQuote]FullForm\ \[CloseCurlyDoubleQuote] MyVector.\ \>", "Text"], Cell[BoxData[ UnderscriptBox["t", "~"]], "Input"], Cell[BoxData[ RowBox[{"MyVector", "[", "t", "]"}]], "Input"], Cell[TextData[{ "Typically in MakeExpression we transform to another MakeExpression of \ something ", StyleBox["Mathematica", FontSlant->"Italic"], " actually can make." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"UnderscriptBox", "[", RowBox[{"t_", ",", "\"\<~\>\""}], "]"}], ",", "StandardForm"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<[\>\"", ",", "t", ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}]}]], "Input"], Cell["\<\ In MakeBoxes we transform from expressions to boxes and we need to further \ call MakeBoxes on any subparts.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"MyVector", "[", "t_", "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"UnderscriptBox", "[", RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"t", ",", "StandardForm"}], "]"}], ",", "\"\<~\>\""}], "]"}]}]], "Input"], Cell["\<\ We can then define rules using this new notation.\ \>", "Text"], Cell[BoxData[ RowBox[{"MyVector", "/:", RowBox[{ UnderscriptBox["t_", "~"], "+", UnderscriptBox["y_", "~"]}], ":=", UnderscriptBox[ RowBox[{"t", "+", "y"}], "~"]}]], "Input"], Cell[BoxData[ RowBox[{ UnderscriptBox["r", "~"], "+", UnderscriptBox["t", "~"]}]], "Input"], Cell["\<\ Maybe this notation is not the best since it\[CloseCurlyQuote]s visually \ ambiguous.\ \>", "Text"], Cell[TextData[{ "Exercise: Modify the above notation so the last answer looks like say: ", Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztljGL2zAUgAX9F926ZcpYvHbwLOhmyOIbDjydN9PFQ/DkxdwQKFq8+CCL h2hwQVAPHswhOA8aFAzNeEuHDF0yZGhl2b6L2/PZysHlCvnA4Ci23qenp5d8 uLj6fPEOAPBeXB/FVd3/PnNmHLvdvvPx11aw73v61flxMwNgtpZC+y27vpyC mql9uz21XM3P75UTnIfhXMpNr1d367sVFLeXqzeSyfvbm1klN519+bput/f+ 2/yTvdq9ePLNm6HkjEoKxrvfUA+CfsyEPz3hk7B0uQhJqSrHU9fQOmE1aPso pTJ2mZrPCAItZgqhsDsBwCkU/YL+FAWkkiwZzfOcUuLIdVgoKaoBSaHit9kk ngYmntI7ZYaaXFiLnIutLlIcOm1KnfhwuczXq0EvUbPqGuqqhgx7tWDUTT0v aJYJ5c6ztaGL1XZJLLuGlyyyq13OeDvE2GBNsqQ21PHwwtocjnj08K2q9Ppx h2Y7wtCOqIrhpshTIkmzNKhOnRWLO9KMFUNJPMJQlERAjixFol6HJfFlUJgM NyneGspMoqYR5slygaJ8XFdUOcsMR2EYRYHdRLWCUAzUIIRw9jgNz0JD1yHU /ykoTWv7qLlIx0SV/dAdc9J4k7p+Ju6DIsPO4TdekmP/7y5uoFGGFAe2txyV 7zLzLdMwTdgmYQJNy2wxDDc8iMgpjpexBCekrm1OCQo8u8LxQ7XjrYRKHZ6G h7Os9PP6mjDsju42J4IljgFNN+qr3hf/wTzzH/AHKVxoxw== "], {{0., -1.5}, {27., 11.5}}, {0, 255}, ColorFunction->RGBColor], ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{27., 13.}, PlotRange->{{0., 27.}, {0., 13.}}, PlotRangePadding->Automatic]], "Output", GeneratedCell->False, CellAutoOverwrite->False] }], "Instruction"], Cell["Answer :", "Instruction"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_ixm", "\"1:eJy1U11OwkAQLoj/YcINkFfUoDEGTdSgRmKCwVD1RY1Z6dQQym6znYJ94SYewet4CY/\ gi/tHoMQCCfoy6ux88+\ 3M9JvNF1Z305ZlBRlaqs0A3UzfOwfPu1PSWxTmjL1dECQ6sCBMnXVFzJ2LFY9mM8NZe1l8XJMWiAwE\ tsQ+zMS3JPmie2gg45rOlrPgs3KelN2y14S1kVCHuOeS8bZJScTR8YQX1sXHHXWABw3e9FEA/\ qatGyMPkcnm/3OrCoPjt6OTscKxcLcnlpXLThBdkTIajdYrZyF1VM32yRTNVziJqtABz/xDcZ/\ iTclg/7BUGmqn35R8NN/Lm9iqsGUhdIFfUT/\ EgZjroQdBVtIDBU4QHClolbrlIYwAN4zgyyGyWgd4lzuRBcBU7CaUhdZ4FTGtr04jfkdph4Y7UsUJ4\ tNS7ylbGItEg0zu0e+tJVDq+LB4p5CZbrhg2xnZeVwvmiymB/7+2b75/vg6NXPIl2oaiaEUSu0H+\ gPBKv78\""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["hbu"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"MyVector", "[", "t_", "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"UnderscriptBox", "[", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"t", ",", "StandardForm"}], "]"}], ",", "\n", " ", RowBox[{"Background", "->", RowBox[{"GrayLevel", "[", "0.864988", "]"}]}]}], "]"}], ",", "\"\<~\>\""}], "]"}]}]], "AnswerInput", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ RowBox[{ UnderscriptBox["r", "~"], "+", UnderscriptBox["t", "~"]}]], "AnswerInput"], Cell[TextData[{ StyleBox["Trick", FontWeight->"Bold", FontColor->RGBColor[0.5, 0, 0.5]], ": Often it is best to create the notation you want using the 2D editing \ tools in ", StyleBox["Mathematica", FontSlant->"Italic"], " and then just copy the underlying boxes." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ ConvertTo uses MakeBoxes and Expression\ \>", "Subsection"], Cell[TextData[{ StyleBox["Trick", FontWeight->"Bold", FontColor->RGBColor[0.5, 0, 0.5]], ": You can use the menu Cell > Convert To > StandardForm (\[CommandKey]\ \[ShiftKey]N) to format an expression in 2D. To enter tricky notations you \ can enter the full form of a notation and then convert the cell to \ StandardForm." }], "Text"], Cell["\<\ Exercise: Enter x^2 +y^2 + MyVector[t] in a new cell and convert it to \ StandardForm.\ \>", "Instruction"], Cell["Conversions only work with syntactically valid structures.", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Evaluation In MakeBoxes and Expression\ \>", "Subsection"], Cell["\<\ You have to be very careful that we don\[CloseCurlyQuote]t let evaluation \ occur as a side effect of our transformations. (Mostly in MakeBoxes)\ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example Function Notation", "Subsection"], Cell["\<\ Exercise: Create a MakeBoxes rule so that Function[a_,s_] formats as (a_\ \[Function]s_)\ \>", "Instruction"], Cell["\<\ Hint: use \[CommandKey]\[ShiftKey]E on the following to get the \ \[OpenCurlyDoubleQuote]model\[CloseCurlyDoubleQuote] of what MakeBoxes should \ produce:\ \>", "Instruction"], Cell[BoxData[ RowBox[{"(", RowBox[{"a", "\[Function]", "s"}], ")"}]], "Input"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_ygi", "\"1:eJxTTMoPSmNiYGAoZgESPpnFJQiew2pOThojiMwOJJzaK1cSSxIhAmxAIii/\ HCiWxoaiGV2WBVk2mBPI8E3MTgXKpBYHg9RGU2QeB5DhVpqXXJKZn0eMwwEgvaXGg5XqgDnFEE4sVI\ gHSAyXJOylJBylbOUX5UIlQSqtuAk4BiFBlFNAstUYylhR1IB0KGkoQRxHd+\ bpHZlgNYn4QxoiCYpXpRgrNxNHQ+\ I8T55uigm7pRuFXeD40FRCkeEGko55xeWpRZ55ByUkZx8KEzRINglHEOFSGQwmjuG7HcA3bwR5\""]\ , ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["yuw"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"a_", ",", "s_"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\<(\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"a", ",", "StandardForm"}], "]"}], ",", "\"\<\[Function]\>\"", ",", RowBox[{"MakeBoxes", "[", RowBox[{"s", ",", "StandardForm"}], "]"}]}], "}"}], "]"}], ",", "\"\<)\>\""}], "}"}], "]"}]}]], "AnswerInput"], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{"b", ",", RowBox[{"b", "^", "3"}]}], "]"}]], "AnswerInput"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example Up and Down", "Subsection"], Cell[TextData[{ "Exercise: Create a notation so that ", Cell[BoxData[ FormBox[ SuperscriptBox["b", "\[UpArrow]"], TraditionalForm]], FormatType->"TraditionalForm"], " and ", Cell[BoxData[ FormBox[ SuperscriptBox["b", "\[DownArrow]"], TraditionalForm]], FormatType->"TraditionalForm"], " parse and format as Up[b] and Down[b] respectively." }], "Instruction"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_gcs", "\"1:eJcTTMoPSmNhYGAoBhE+\ mxUlfUwwnnNqTk4fI4jHDiSx8itxEksSIQJsQCIovcwolsfMohldFsXoYD4gwzxcO9W1oqAotug4Mz\ 8vGKQhmmJDg0sLUobKk4syC0qACogcNBjkzfR4sFKdYA4gqRRjZWRoffgEFoqFSvCADC9JzEtJLEpc\ yy/KhUqCNFvZDoRvERJE+\ RIkW42hhh1FDYihFFqgBPUyyAClfBgPRCYhy8RCZGqJCSZbIOmYV1yeWbSZV1BK06TFCQ1soEcqMRX\ CGeTU0AKIQxhphVoJg/QUS+0AQIlfHN7BmTvoGLNDoNAwHnmFBkhCySW/PG+\ 02EAvS0GhMlpw4MghfHELAMczq5x=\""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["fux"], "MyCode"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_gcs", "\"1:eJcTTMoPSmNhYGAoBhE+\ mxUlfUwwnnNqTk4fI4jHDiSx8itxEksSIQJsQCIovcwolsfMohldFsXoYD4gwzxcO9W1oqAotug4Mz\ 8vGKQhmmJDg0sLUobKk4syC0qACogcNBjkzfR4sFKdYA4gqRRjZWRoffgEFoqFSvCADC9JzEtJLEpc\ yy/KhUqCNFvZDoRvERJE+\ RIkW42hhh1FDYihFFqgBPUyyAClfBgPRCYhy8RCZGqJCSZbIOmYV1yeWbSZV1BK06TFCQ1soEcqMRX\ CGeTU0AKIQxhphVoJg/QUS+0AQIlfHN7BmTvoGLNDoNAwHnmFBkhCySW/PG+\ 02EAvS0GhMlpw4MghfHELAMczq5x=\""], ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"SuperscriptBox", "[", RowBox[{"b_", ",", "\"\<\[UpArrow]\>\""}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<[\>\"", ",", "b", ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}]}]], "AnswerInput", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"Up", "[", "b_", "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"SuperscriptBox", "[", RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"b", ",", "StandardForm"}], "]"}], ",", "\"\<\[UpArrow]\>\""}], "]"}]}]], "AnswerInput", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ RowBox[{ RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"SuperscriptBox", "[", RowBox[{"b_", ",", "\"\<\[DownArrow]\>\""}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<[\>\"", ",", "b", ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}]}]], "AnswerInput", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"Down", "[", "b_", "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"SuperscriptBox", "[", RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"b", ",", "StandardForm"}], "]"}], ",", "\"\<\[DownArrow]\>\""}], "]"}]}]], "AnswerInput", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ RowBox[{ SuperscriptBox["b", "\[UpArrow]"], "+", SuperscriptBox["t", "\[DownArrow]"]}]], "Input"], Cell[BoxData[ RowBox[{"FullForm", " ", "@", " ", "%"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Example LegendreP", "Subsection"], Cell[TextData[{ "Exercise: Add MakeBoxes and MakeExpression rules in StandardForm so \ LegendreP[n,x] formats and parses as ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["P", FontSlant->"Plain"], StyleBox["n", FontSlant->"Plain"]], "[", "x", "]"}], TraditionalForm]], FormatType->"TraditionalForm"], ". (Similarly to TraditionalForm typesetting)" }], "Instruction"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_fxi", "\"1:eJzVVMsKwjAQrG9E8R/s2S8QPPgEQUHMUtREm0pRk5JULIj/\ 7iYNGh9o1XrwsnR3NclsJpP6gk29rGVZIg9h5IvwknXJZcNlZFtC0GFRD4u4LhQhTNketl7ctvEamj\ dRVItPMV4TQIhAsnf29X4jsiLU5WSSZD8kh6OOtm2oJIqTcS5VItIQUxdzd8D4VoOys9l6weYCJKIi\ 0uNdT+mN8RXZ3UIscR+ESX8rM3aix/OmrZfqou/\ P0jxcRWb2SzLRtzKtxjymudRIBWKbij3hQxrsfmqLmp6sHwWuCOEzmoI3/\ vA2mc58eEOQXIf5ynmi2/u+/hM51A21z8+f/YGlUiFVcOchJpWGSQy0eyDW2zLeePMEITVICg==\"\ "], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["tbu"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"n_", ",", "x_"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", RowBox[{"MakeBoxes", "[", RowBox[{"n", ",", "StandardForm"}], "]"}]}], "]"}], ",", "\"\<[\>\"", ",", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}]}]], "AnswerInput"], Cell[BoxData[ RowBox[{ RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", "n_"}], "]"}], ",", "\"\<[\>\"", ",", "arg_", ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<[\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"n", ",", "\"\<,\>\"", ",", "arg"}], "}"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}]}]], "AnswerInput"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Example Format \[OpenCurlyQuote]List Of Lists\[CloseCurlyQuote] as Matrix\ \>", "Subsection"], Cell["\<\ Exercise: Create a MakeBoxes rule to format a list of lists as a GridBox, \ like the way TraditionalForm works. (Don\[CloseCurlyQuote]t worry about \ evaluation as a first stage)\ \>", "Instruction"], Cell[TextData[{ "Hint: MatrixQ will test to see if a list of lists is rectangular. Ie of the \ form ", StyleBox["n", "TI"], " \[Cross] ", StyleBox["m", "TI"] }], "Instruction"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "}"}]], "Input"], Cell[CellGroupData[{ Cell["Answer", "Subsubsection"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_qrs", "\"1:eJxTTMoPSmNiYGAoZgESzqk5OWmMIB47kHDKr3BJLEmECLABijD8sqBYGaNMbU9msQmGL\ AbyuDAnkOGumJ0KlEktDgjpaSuRPBTZYJBTU+PBBtkHc4MNLynKrAgEi+gE8wDJ4JLEvJTEohS3/\ KJscHAcWJeVLQGngkxzL8pMAsrgsCiqemjw7QU41LLi9RQTXlkKgxCcRhl/\ iIBINjgSEJkKYRNhsDWYNAKTtUimxQZzA0nHvOLy1CLPvILSEgCLvXKN\""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["jus"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"e_", "?", "MatrixQ"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"GridBox", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], ",", "e", ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}]}]], "AnswerInput"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "}"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Answer With Correct Holding", "Subsubsection"], Cell["\<\ Now modeling your answer on how the TraditionalForm output looks, define a \ MakeBoxes rule which has the correct holding attributes\ \>", "Text"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_fud", "\"1:eJytU9FKbzAUrW6uivoPmieFcwUPPlQGTsdU0AdXxAdXRrSaFmMy0tQNxH83SweZklXT4\ gvl9a7gm3NPTvef6CBZdxbnp4abcTBO1uSXK8I5nfYch0WhJgKATkQtpg2P36QZN9CmjoZwIrmFw0c\ cKAvl2gffObx0bx5V85GKeyoGRW50NYyuz1DCo9Gi8DUwI7U5Oq2YU77dVwtylk7vNA5nVr3wIrkn6\ APiHHIUm/3pwu1ZZUfEkEMSQxw3KXtX5UjjHXRCegHQO/\ YrSJQfSyYPKX9d6Z2WpPrHzjKB7CXTFuxY8WbooggVNN0p9tbUST8nzzylZKVxy5bkI9RM1LZpqvpf\ ot1j4Yj5EwnOFgVxF2MT/X+\ TWcvmp4JFtgX7ASqUs3HnrmEygABK4km7cGHceygeqMFOpn7J0nhBr2z9yOqOctAhMHSK1Lt0STZB7\ JqMg/4NpMAC5Q==\""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["pwg"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{ RowBox[{"e", " ", ":", " ", RowBox[{"{", "__List", "}"}]}], " ", "/;", " ", RowBox[{"MatrixQ", " ", "@", " ", RowBox[{"Unevaluated", " ", "@", " ", "e"}]}]}], ",", " ", "StandardForm"}], "]"}], " ", ":=", "\n", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"args", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "a", "}"}], ",", " ", RowBox[{"MakeBoxes", "[", RowBox[{"a", ",", " ", "StandardForm"}], "]"}], ",", " ", "HoldAll"}], "]"}], ",", " ", RowBox[{"Unevaluated", " ", "@", " ", "e"}], ",", " ", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\<(\>\"", ",", " ", "\"\<\[NoBreak]\>\"", ",", " ", RowBox[{"GridBox", "[", "args", "]"}], ",", " ", "\"\<\[NoBreak]\>\"", ",", " ", "\"\<)\>\""}], "}"}], "]"}]}], "]"}]}]], "AnswerInput"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "}"}]], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Tag Boxes", "Section"], Cell[TextData[{ "TagBoxes are invisible tags that have the form ", StyleBox["TagBox[", "Input"], StyleBox["boxes", FontSlant->"Italic"], StyleBox[",", "Input"], StyleBox["tag", FontSlant->"Italic"], StyleBox["]", "Input"], ". ", StyleBox["tag", FontSlant->"Italic"], " can be any expression.TagBoxes are used to invisibly \ \[OpenCurlyDoubleQuote]tag\[CloseCurlyDoubleQuote] a box structure so we can \ identify it later." }], "Text"], Cell[TextData[{ "( In ", StyleBox["Mathematica", FontSlant->"Italic"], " 8 we have now transitioned to TemplateBoxes in the vast majority of cases.)" }], "Text"], Cell["\<\ TagBoxes are still used to guide interpretation in some cases. Eg Grid\ \>", "Text"], Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}], "]"}]], "Input"], Cell["\<\ MakeTemplate creates generalized placeholders. These placeholders are based \ on TagBoxes.\ \>", "Text"], Cell[BoxData["Plot"], "Input"], Cell["\<\ Exercise: Do Plot MakeTemplate and \[CommandKey] - \[ShiftKey] - E\ \>", "Instruction"], Cell["\<\ The \[TabKey] key takes you between placeholders.\ \>", "Text"], Cell["\<\ Another example of TagBox usage is in event handlers (See Faisal & Lou\ \[CloseCurlyQuote]s talk). Or eg\ \>", "Text"], Cell["We also hijack TagBoxes for MouseAppearance", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MouseAppearance", "[", RowBox[{"bob", ",", " ", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ TagBox["bob", MouseAppearanceTag["x"]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Modified LegendreP", "Subsubsection"], Cell["\<\ These are the MakeExpression and MakeBoxes rules from the last example on \ LegendreP\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"n_", ",", "x_"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", RowBox[{"MakeBoxes", "[", RowBox[{"n", ",", "StandardForm"}], "]"}]}], "]"}], ",", "\"\<[\>\"", ",", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", "n_"}], "]"}], ",", "\"\<[\>\"", ",", "arg_", ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<[\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"n", ",", "\"\<,\>\"", ",", "x"}], "}"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Subscript", "[", RowBox[{"P", ",", "n"}], "]"}], "[", "x", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["P", "n"], "[", "x", "]"}], "+", "1"}], "//", "FullForm"}]], \ "Input"], Cell["Ouch!", "Text"], Cell["\<\ Exercise: Modify these rules so they don\[CloseCurlyQuote]t interfere with \ Subscript, by translating to a TagBox structure.\ \>", "Instruction"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_jmg", "\"1:aJzbVEbLw0AQjbpefNCD/8Ccayp4KXjQekCoUJpCD7WUTTOJwtgJuxseEP+\ 7u5ul2T6T2ngoaBky+02+/aexc+bEA+/UMAxe46YXUJZ7XQhD70R4DW4ao/QJMZQdnHMziOt8zDbt+\ nkVramofcE/XbEHcASoLWLHB/\ P1wAfsEuiX4tNFcngqQ1vSSTNnoo6uutUZwi4irhWRTwWKyM59gZocKCVFoF9rMY090pdiE4fOSBCz\ kbaWyGGI/O1kS/psQW32TVW8pvAW/\ aA0CigoxI1IA0KYsVHA3rsRZoAZlVLaObZdu22L0CFJoBTd5YIOOSHoNHX+\ eeGQgb7yqkdWxuDd46RPnCzhaFulqhCTFobRMieZjG+FXHH7gOkcyAuOkz/dDE2V2XMeE6A0iHBFw/\ z/II/bQao7auMjktcj4k93jO7h2/xIJlI+0rzH5i+2SiWi6msxWJfS0oXx3m1o1b5bXFlPP8EUsxI=\ \""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["etc"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"n_", ",", "x_"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{ RowBox[{"TagBox", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"SelectWithContents", "\[Rule]", "True"}], ",", RowBox[{"Selectable", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"MakeBoxes", "[", RowBox[{"n", ",", "StandardForm"}], "]"}]}], "]"}], ",", "\"\<[\>\"", ",", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}]}]], "AnswerInput"], Cell[BoxData[ RowBox[{ RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{ RowBox[{"TagBox", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", RowBox[{"SelectWithContents", "\[Rule]", "True"}], ",", RowBox[{"Selectable", "\[Rule]", "False"}]}], "]"}], ",", "n_"}], "]"}], ",", "\"\<[\>\"", ",", "arg_", ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}], ":=", RowBox[{"MakeExpression", "[", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<[\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"n", ",", "\"\<,\>\"", ",", "arg"}], "}"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}], ",", "StandardForm"}], "]"}]}]], "AnswerInput"], Cell[BoxData[ RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"n", ",", "x"}], "]"}], "+", "1"}]], "Input"], Cell[BoxData[ RowBox[{"FullForm", " ", "@", " ", "%"}]], "Input"], Cell["\<\ However whatever you come up with here, the P is likely to be detachable from \ the rest of the notation, as well as having other problems. This gives rise \ to TemplateBoxes.\ \>", "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["The Notation package", "Section"], Cell[BoxData[ RowBox[{"<<", "Notation`"}]], "Input"], Cell[TextData[{ "The notation package allows us to automate the process that has been \ described for creating notations. A notation statement is of the form:\n \ Notation[", StyleBox["ExternalForm", FontSlant->"Italic"], " \[DoubleLongLeftRightArrow] ", StyleBox["InternalForm", FontSlant->"Italic"], "]" }], "Text"], Cell["Example: ring addition, ring multiplication.", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"a", SubscriptBox["*", "\[ScriptCapitalR]"], "b"}], SubscriptBox["+", "\[ScriptCapitalR]"], "c"}]], "Input"], Cell[BoxData[ RowBox[{"FullForm", " ", "@", " ", "%"}]], "Input"], Cell[BoxData[{ RowBox[{"Notation", "[", RowBox[{ TagBox[ RowBox[{"a_", SubscriptBox["+", "\[ScriptCapitalR]"], "b_"}], "NotationTemplateTag"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[ RowBox[{"RingPlus", "[", RowBox[{"a_", ",", "b_"}], "]"}], "NotationTemplateTag"]}], "]"}], "\[IndentingNewLine]", RowBox[{"Notation", "[", RowBox[{ TagBox[ RowBox[{"a_", SubscriptBox["*", "\[ScriptCapitalR]"], "b_"}], "NotationTemplateTag"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[ RowBox[{"RingTimes", "[", RowBox[{"a_", ",", "b_"}], "]"}], "NotationTemplateTag"]}], "]"}]}], "Input"], Cell[CellGroupData[{ Cell["Notation Package Functioning", "Subsubsection"], Cell["\<\ The notation package internally is a notation compiler. It takes a box \ structure representing the notation to be compiled and returns the equivalent \ MakeBoxes and MakeExpression rules.\ \>", "Text"], Cell[BoxData[{ RowBox[{"Notation", "[", RowBox[{ RowBox[{ TagBox[ RowBox[{"a_", SubscriptBox["+", "\[ScriptCapitalR]"], "b_"}], "NotationTemplateTag"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[ RowBox[{"RingPlus", "[", RowBox[{"a_", ",", "b_"}], "]"}], "NotationTemplateTag"]}], ",", RowBox[{"Action", "\[Rule]", "PrintNotationRules"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Notation", "[", RowBox[{ RowBox[{ TagBox[ RowBox[{"a_", SubscriptBox["*", "\[ScriptCapitalR]"], "b_"}], "NotationTemplateTag"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[ RowBox[{"RingTimes", "[", RowBox[{"a_", ",", "b_"}], "]"}], "NotationTemplateTag"]}], ",", RowBox[{"Action", "\[Rule]", "PrintNotationRules"}]}], "]"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Example Up and Down Revisited", "Subsubsection"], Cell[TextData[{ "Exercise: create a new notation statement in a new cell by typing \ \[EscapeKey]notation\[EscapeKey]. Create notations for Up[b] and Down[b] \ being ", Cell[BoxData[ FormBox[ SuperscriptBox["b", "\[UpArrow]"], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ SuperscriptBox["b", "\[DownArrow]"], TraditionalForm]]], "." }], "Instruction"] }, Open ]], Cell[CellGroupData[{ Cell["Quickly Entering Notations", "Subsection"], Cell[TextData[{ StyleBox["Trick:", FontWeight->"Bold", FontColor->RGBColor[0.5, 0, 0.5]], " You can quick create shortcuts for notations through an \ \[OpenCurlyDoubleQuote]add input alias\[CloseCurlyDoubleQuote] statement. (\ \[EscapeKey]addia\[EscapeKey])" }], "Text"], Cell[BoxData[ RowBox[{"AddInputAlias", "[", RowBox[{"\"\\"", "\[Rule]", TemplateBox[{SuperscriptBox["\[SelectionPlaceholder]", "\[UpArrow]"]}, "NotationTemplateTag"]}], "]"}]], "Input"], Cell["\<\ Exercise: create an input alias, \[OpenCurlyDoubleQuote]opd\ \[CloseCurlyDoubleQuote], for the Down operator. (Use a selection placeholder \ \[EscapeKey]spl\[EscapeKey] instead of a placeholder for bonus points.)\ \>", "Instruction"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["BaseStyle", "Section"], Cell["\<\ Lets revisit the previous example of vector with a shaded background. Assume \ we had put the style box around the whole underscript to yield a structure \ like the following:\ \>", "Text"], Cell[BoxData[ RowBox[{"RawBoxes", " ", "@", " ", RowBox[{"StyleBox", "[", RowBox[{ RowBox[{"UnderscriptBox", "[", RowBox[{"\"\\"", ",", "\"\<~\>\""}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"GrayLevel", "[", "0.8", "]"}]}]}], "]"}]}]], "Input"], Cell["\<\ Exercise: Start typing next to the v above. Note: the style spreads, as \ styles should. But here we really don\[CloseCurlyQuote]t want the style to \ spread.\ \>", "Instruction"], Cell["\<\ So instead we can add the style into the base style.\ \>", "Text"], Cell[BoxData[ RowBox[{"RawBoxes", " ", "@", " ", RowBox[{"UnderscriptBox", "[", RowBox[{"\"\\"", ",", "\"\<~\>\"", ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"Background", "\[Rule]", RowBox[{"GrayLevel", "[", "0.8", "]"}]}], "}"}]}]}], "]"}]}]], "Input"], Cell["\<\ Sometimes there are lots of styles we would like to add to the base style so \ we can just encapsulate all these styles into a new style and add that to the \ style sheet.\ \>", "Text"], Cell["\<\ BaseStyle and DefaultBaseStyle are options to almost every box.\ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["TemplateBoxes", "Section"], Cell["\<\ Exercise: create a Binomial[a,b] in TraditionalForm and look at it\ \[CloseCurlyQuote]s boxes.\ \>", "Instruction"], Cell[TextData[{ "Almost all composite typesetting in ", StyleBox["Mathematica", FontSlant->"Italic"], " is now done through TemplateBox. TemplateBox is:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["box", "TI"], "1"], ",", StyleBox[ SubscriptBox["box", "2"], "TI"], StyleBox[",", "TR"], StyleBox["...", "TR"]}], "}"}], ",", StyleBox["tag", "TI"]}], "]"}]], "ItemParagraph"], Cell[TextData[{ "is a low level box structure which displays as the ", Cell[BoxData["DisplayFunction"], "InlineFormula"], " of the template box filled in with the ", Cell[BoxData[ StyleBox[ SubscriptBox["box", "i"], "TI"]], "InlineFormula"] }], "ItemParagraph"], Cell[TextData[{ Cell[BoxData["TemplateBox"], "InlineFormula"], " is low-level notebook structure used to represent a parameterized box \ structure. The ", Cell[BoxData["DisplayFunction"], "InlineFormula"], " option of the ", Cell[BoxData["TemplateBox"], "InlineFormula"], " is applied to the box arguments to yield a new box structure which is \ displayed." }], "ItemParagraph"], Cell[TextData[{ "The ", Cell[BoxData["DisplayFunction"], "InlineFormula"], " option is normally specified on the style sheet in order that when the \ style sheet changes all displayed instances of the template box change \ uniformly." }], "ItemParagraph", CellID->1967647048], Cell[TextData[{ "If the ", StyleBox["tag", "TI"], " of the ", Cell[BoxData["TemplateBox"], "InlineFormula"], " is a string then that style will be used for the ", Cell[BoxData["TemplateBox"], "InlineFormula"], "." }], "ItemParagraph", CellChangeTimes->{{3.4552649687665052`*^9, 3.455264971683963*^9}, { 3.455265057259535*^9, 3.4552651154476233`*^9}, {3.455265217048744*^9, 3.455265324567507*^9}, {3.4552653799809*^9, 3.4552654282168503`*^9}}, CellID->994293201] }, Open ]], Cell["TemplateBoxes can be nested to any level", "Text", CellChangeTimes->{{3.455265465818254*^9, 3.455265477472821*^9}, { 3.455265514338522*^9, 3.455265537705809*^9}, {3.4552656097147093`*^9, 3.455265750667716*^9}, {3.455265788645203*^9, 3.4552657886464567`*^9}, { 3.455265845565928*^9, 3.455265857220953*^9}, {3.455265891341674*^9, 3.4552659093275757`*^9}, {3.455266204050437*^9, 3.45526627030488*^9}, { 3.455269100711931*^9, 3.455269108748752*^9}}, CellID->1112495170], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}], ",", "\"\\""}], "}"}], ",", "\"\\""}], "]"}], "//", "RawBoxes"}], "//", "TraditionalForm"}]], "Input", CellID->316304785], Cell[TextData[{ "You can write ", Cell[BoxData["MakeBoxes"], "InlineFormula"], " and ", Cell[BoxData["MakeExpression"], "InlineFormula"], " rules which use TemplateBoxes in order to define new notations." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Change Binomial Formatting", "Section"], Cell["\<\ Consider the display function for traditional form typesetting of Binomial. \ How is this done?\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], "//", "TraditionalForm"}]], "Input"], Cell[BoxData[ FormBox[ TemplateBox[{"n","k"}, "Binomial"], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ Exercise: Open the StyleSheet, and look at the local copy of the binomial \ style.\ \>", "Instruction"], Cell[TextData[{ "Exercise: Modify the binomial style\[CloseCurlyQuote]s display function so \ that the notation for a binomial is ", Cell[BoxData[ FormBox[ SubsuperscriptBox["C", "n", "k"], TraditionalForm]], FormatType->"TraditionalForm"], " for this notebook." }], "Instruction"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RawBoxes", " ", "@", " ", RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\"", ",", RowBox[{"DisplayFunction", ":>", RowBox[{"(", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\\"", ",", "#1"}], "]"}], ",", "\"\<[\>\"", ",", "#2", ",", "\"\<]\>\""}], "}"}], "]"}], "&"}], ")"}]}], ",", RowBox[{"Tooltip", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input"], Cell[BoxData[ TemplateBox[{"a","b"}, "FooLegendreP", DisplayFunction:>(RowBox[{ SubscriptBox["P", #], "[", #2, "]"}]& ), Tooltip->"MyLegendreP"]], "Output"] }, Open ]], Cell["\<\ Exercise: Try and select the P in the output. Tab through the template box. \ Arrow through the template box. Edit each of the arguments. Delete each of \ the arguments.\ \>", "Instruction"], Cell["Exercise : Add an input alias for binomials.", "Instruction"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Putting it on the StyleSheet", "Section"], Cell["So consider the following:", "Text"], Cell[BoxData[ RowBox[{"c", "+", RowBox[{"RawBoxes", " ", "@", " ", RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "\"\\"", ",", RowBox[{"DisplayFunction", ":>", RowBox[{"(", RowBox[{ RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\<[\>\"", ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"#1", ",", "\"\<,\>\"", ",", "#2"}], "}"}], "]"}], ",", "\"\<]\>\""}], "}"}], "]"}], "&"}], ")"}]}]}], "]"}]}]}]], "Input"], Cell["\<\ Exercise: change the tag to a new name and evaluate, then evaluate the output.\ \>", "Instruction"], Cell[TextData[{ "Note: the option template box option ", StyleBox["InterpretationFunction", "MR"], "\[Rule]", StyleBox["Automatic", "MR"], " means ", StyleBox["Mathematica", FontSlant->"Italic"], " chooses the ", StyleBox["tag", "TI", FontSlant->"Italic"], " name by default as the function name." }], "Text"], Cell["\<\ Exercise: Open the style sheet copy the binomial style and change it and \ change the display function to the one above. Then remove the explicit \ DisplayFunction from above and see that we still get \ \[OpenCurlyDoubleQuote]commutator\[CloseCurlyDoubleQuote] formatting.\ \>", "Instruction"], Cell["\<\ Exercise: Add a MakeBoxes rule for MyCommutator\ \>", "Instruction"], Cell[BoxData[ RowBox[{"Decryptify", "[", RowBox[{ InterpretationBox["Code_kib", "\"1:eJxTTMbPSmNaYGAbZgESzqk5OWmMIB47kHDKr3BJLEmECLABaiD8pqBYGgtMuU9mpQl+\ 2WBOIMM3MTsVKJNiHAxSG42hg5kE83hA5lU65+fmlcYkluQXEWNkMMh/\ afFgcTcgThKEEwsVAhkiXJKYl5JYlOKWX5QLlQSctLIFpxQIOIsoyAhJzS3ISSwBeZUsj6K6GSRoTV\ FQkRz0YDWJ+MMELEkTa5MIW1wLVpIHJJWQU4ESVBEbGhzzastTazzzCkcLAG+/kiE=\""], ",", TagBox[ FrameBox["code"], "Placeholder"]}], "]"}]], "Input"], Cell[BoxData["iop"], "MyCode"], Cell[BoxData[ RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{ RowBox[{"MyCommutator", "[", RowBox[{"a_", ",", "b_"}], "]"}], ",", "StandardForm"}], "]"}], ":=", " ", RowBox[{"TemplateBox", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MakeBoxes", "[", RowBox[{"a", ",", "StandardForm"}], "]"}], ",", RowBox[{"MakeBoxes", "[", RowBox[{"b", ",", "StandardForm"}], "]"}]}], "}"}], ",", "\"\\""}], "]"}]}]], "AnswerInput"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Miscellaneous", "Section"], Cell["\<\ I should talk here about precedence\[CloseCurlyQuote]s and SyntaxForm:\ \>", "Text"], Cell[BoxData[ RowBox[{"a", "+", RowBox[{ SubscriptBox["\[PartialD]", "x"], "func"}], "+", "b"}]], "Input"], Cell["\<\ Also note that Graphics does context sensitive typesetting. Eg:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", " ", RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "50"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[PointBox[{0, 0}], ImageSize->50]], "Output"] }, Open ]], Cell["\<\ This is achieved by having the MakeExpression rules in Graphics be context \ sensitive.\ \>", "Text"], Cell[TextData[{ "Interesting Irrelevant note: The ", StyleBox["Mathematica", FontSlant->"Italic"], " box model to css box model, and BaseStyle to styles, ImageMargins, \ FrameMargins, to html margins and padding." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Conclusions", "Section"], Cell["\<\ Steps to create a TemplateBox notation:\ \>", "Text"], Cell[CellGroupData[{ Cell["Enter a structure in 2D typesetting.", "ItemNumbered"], Cell[TextData[{ "Copy the boxes for that structure into a display function replacing the \ arguments you want parameterized with ", StyleBox["#", "MR"], StyleBox["n", "TI"] }], "ItemNumbered"], Cell["\<\ Put the resulting style on the style sheet.\ \>", "ItemNumbered"], Cell["\<\ Create a MakeBoxes rule for the given notation.\ \>", "ItemNumbered"], Cell["\<\ Bonus points: create an input alias for the notation.\ \>", "ItemNumbered"] }, Open ]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{1405, 856}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, InputAliases->{"intt" -> RowBox[{"\[Integral]", RowBox[{"\[SelectionPlaceholder]", RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> RowBox[{ SubsuperscriptBox[ "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], RowBox[{"\[Placeholder]", RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "sumt" -> RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{ SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", "\[SelectionPlaceholder]"}], "ket" -> TemplateBox[{"\[Placeholder]"}, "Ket"], "bra" -> TemplateBox[{"\[Placeholder]"}, "Bra"], "braket" -> TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "BraKet"], "notation" -> RowBox[{"Notation", "[", RowBox[{ TemplateBox[{"\[SelectionPlaceholder]"}, "NotationTemplateTag"], " ", "\[DoubleLongLeftRightArrow]", " ", TemplateBox[{"\[Placeholder]"}, "NotationTemplateTag"]}], "]"}], "notation>" -> RowBox[{"Notation", "[", RowBox[{ TemplateBox[{"\[SelectionPlaceholder]"}, "NotationTemplateTag"], " ", "\[DoubleLongRightArrow]", " ", TemplateBox[{"\[Placeholder]"}, "NotationTemplateTag"]}], "]"}], "notation<" -> RowBox[{"Notation", "[", RowBox[{ TemplateBox[{"\[SelectionPlaceholder]"}, "NotationTemplateTag"], " ", "\[DoubleLongLeftArrow]", " ", TemplateBox[{"\[Placeholder]"}, "NotationTemplateTag"]}], "]"}], "symb" -> RowBox[{"Symbolize", "[", TemplateBox[{"\[SelectionPlaceholder]"}, "NotationTemplateTag"], "]"}], "infixnotation" -> RowBox[{"InfixNotation", "[", RowBox[{ TemplateBox[{"\[SelectionPlaceholder]"}, "NotationTemplateTag"], ",", "\[Placeholder]"}], "]"}], "addia" -> RowBox[{"AddInputAlias", "[", RowBox[{"\"\[SelectionPlaceholder]\"", "\[Rule]", TemplateBox[{"\[Placeholder]"}, "NotationTemplateTag"]}], "]"}], "pattwraper" -> TemplateBox[{"\[SelectionPlaceholder]"}, "NotationPatternTag"], "madeboxeswraper" -> TemplateBox[{"\[SelectionPlaceholder]"}, "NotationMadeBoxesTag"], "nup" -> SuperscriptBox["\[SelectionPlaceholder]", "\[UpArrow]"]}, 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["Styles For Tech Conference", "Title"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"]}, 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 -> True, 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}}, MenuCommandKey -> None, StyleMenuListing -> Automatic], 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]]}, Closed]], Cell[ CellGroupData[{ Cell["Style For Typsetting Talk", "Title"], Cell["These are the styles particular to this typsetting talk", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MyCode", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{100, 50}, {7, -3}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CellFrameMargins -> 0, CellFrameColor -> RGBColor[0.2, 0.2, 0.2], CellFrameLabels -> {{None, Cell[ "\[LeftArrow] code", "Text", FontColor -> RGBColor[0.6, 0.6, 0.6]]}, {None, None}}, TextAlignment -> Right, CounterIncrements -> "MyCode", FontColor -> RGBColor[0.555123, 0, 0]], Cell[ StyleData["MyCode", "Presentation"], CellMargins -> {{107, 50}, {9, -3}}], Cell[ StyleData[ "MyCode", "SlideShow", StyleDefinitions -> StyleData["MyCode", "Presentation"]], CellMargins -> {{107, 50}, {8, -4}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["AnswerInput", StyleDefinitions -> StyleData["Input"]], CellFrame -> {{0.2, 0}, {0, 0}}, CellFrameColor -> GrayLevel[0.867842], CellFrameStyle -> {}, CounterIncrements -> "Input", MenuCommandKey -> None, StyleMenuListing -> Automatic], Cell[ StyleData["AnswerInput", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "AnswerInput", "SlideShow", StyleDefinitions -> StyleData["AnswerInput", "Presentation"]]], Cell[ StyleData["AnswerInput", "Printout"], CellFrame -> {{None, None}, {None, None}}, CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Instruction", StyleDefinitions -> StyleData["Text"]], CounterIncrements -> "Instruction", MenuCommandKey -> "8", StyleMenuListing -> Automatic, FontColor -> RGBColor[0.609537, 0.555901, 0.502632]], Cell[ StyleData["Instruction", "Presentation"], CellMargins -> {{61, 10}, {7, 7}}, FontColor -> GrayLevel[0.719066]], Cell[ StyleData[ "Instruction", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]], CellMargins -> {{62, 50}, {8, 10}}, FontColor -> GrayLevel[0.719066]], Cell[ StyleData["Instruction", "Printout"], CellMargins -> {{2, 2}, {0, 6}}, FontColor -> GrayLevel[0.719066]]}, Open]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles For Attendees", "Title"], Cell["Add the styles you need to the style sheet here.", "Text"], Cell[ StyleData["Binomial"], TemplateBoxOptions -> {DisplayFunction -> (RowBox[{"(", GridBox[{{#}, {#2}}], ")"}]& ), Tooltip -> Automatic}], Cell[ StyleData["MyCommutator"], TemplateBoxOptions -> {DisplayFunction -> (RowBox[{"[", RowBox[{#, ",", #2}], "]"}]& ), Tooltip -> Automatic}]}, 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[14664, 288, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[22163, 516, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[23045, 555, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[24463, 613, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[26572, 696, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[48133, 1066, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[53196, 1235, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[54219, 1277, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[56044, 1343, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[59633, 1463, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[62089, 1546, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[66302, 1690, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[72789, 1920, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[76732, 2062, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[78263, 2117, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[81667, 2232, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[83734, 2312, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[86397, 2404, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[87793, 2469, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 148960, 3750} } *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 12512, 209, 2, "hidefromslideshowgraphic"], Cell[CellGroupData[{ Cell[13082, 233, 119, 5, 104, "Title"], Cell[13204, 240, 32, 0, 25, "Subtitle"], Cell[13239, 242, 39, 0, 20, "Subsubtitle"], Cell[13281, 244, 16, 0, 37, "Text"], Cell[13300, 246, 643, 10, 103, "Text"], Cell[CellGroupData[{ Cell[13968, 260, 74, 0, 31, "ItemNumbered"], Cell[14045, 262, 137, 3, 31, "ItemNumbered"], Cell[14185, 267, 139, 3, 31, "ItemNumbered"], Cell[14327, 272, 111, 3, 31, "ItemNumbered"], Cell[14441, 277, 126, 3, 31, "ItemNumbered"], Cell[14570, 282, 45, 0, 31, "ItemNumbered"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14664, 288, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14731, 291, 56, 0, 25, "Subtitle"], Cell[14790, 293, 87, 2, 37, "Text"], Cell[CellGroupData[{ Cell[14902, 299, 29, 0, 25, "Subtitle"], Cell[14934, 301, 70, 2, 37, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[15041, 308, 148, 2, 25, "Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}, {"ItemNumbered", 0}}], Cell[CellGroupData[{ Cell[15214, 314, 66, 2, 31, "ItemNumbered"], Cell[15283, 318, 94, 1, 31, "ItemNumbered"], Cell[15380, 321, 114, 3, 31, "ItemNumbered"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15543, 330, 28, 0, 25, "Subtitle"], Cell[15574, 332, 89, 2, 37, "Text"], Cell[15666, 336, 206, 6, 39, "Text"], Cell[15875, 344, 225, 4, 59, "Text"], Cell[16103, 350, 199, 6, 35, "Instruction"], Cell[16305, 358, 475, 11, 52, "Input"], Cell[CellGroupData[{ Cell[16805, 373, 40, 0, 50, "Subsubsection"], Cell[16848, 375, 1131, 29, 796, "Input", InitializationCell->True], Cell[17982, 406, 799, 21, 436, "Input", InitializationCell->True], Cell[18784, 429, 370, 11, 192, "Input", InitializationCell->True], Cell[19157, 442, 2945, 67, 2356, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22163, 516, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[22230, 519, 40, 0, 25, "Subtitle"], Cell[22273, 521, 145, 3, 35, "Instruction"], Cell[22421, 526, 73, 2, 40, "Input"], Cell[22497, 530, 53, 0, 35, "Instruction"], Cell[22553, 532, 234, 7, 60, "Input"], Cell[22790, 541, 79, 2, 35, "Input"], Cell[22872, 545, 136, 5, 35, "Instruction"] }, Open ]], Cell[CellGroupData[{ Cell[23045, 555, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[23134, 560, 51, 0, 48, "Subsection"], Cell[23188, 562, 431, 13, 54, "Instruction"], Cell[23622, 577, 258, 6, 35, "Input"], Cell[23883, 585, 171, 4, 35, "Input"], Cell[24057, 591, 198, 6, 35, "Instruction"], Cell[24258, 599, 156, 8, 37, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24463, 613, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[24552, 618, 48, 0, 93, "Section"], Cell[24603, 620, 58, 0, 37, "Text"], Cell[24664, 622, 492, 15, 100, "Input"], Cell[25159, 639, 393, 14, 35, "Input", CellID->826941582], Cell[25555, 655, 277, 7, 57, "Input", CellID->234422992], Cell[25835, 664, 65, 2, 37, "Text"], Cell[25903, 668, 141, 4, 35, "Input"], Cell[26047, 674, 147, 3, 35, "Input"], Cell[26197, 679, 179, 5, 35, "Input"], Cell[26379, 686, 144, 4, 41, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26572, 696, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[26661, 701, 45, 0, 93, "Section"], Cell[26709, 703, 68, 0, 37, "Text"], Cell[26780, 705, 46, 0, 37, "Text"], Cell[26829, 707, 243, 7, 35, "Input"], Cell[27075, 716, 89, 2, 37, "Text"], Cell[CellGroupData[{ Cell[27189, 722, 38, 0, 48, "Subsection"], Cell[27230, 724, 20369, 314, 239, "Graphics"], Cell[47602, 1040, 119, 3, 59, "Text"], Cell[47724, 1045, 106, 3, 38, "Input"], Cell[47833, 1050, 124, 3, 57, "Instruction"], Cell[47960, 1055, 52, 1, 35, "Input"], Cell[48015, 1058, 57, 1, 35, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48133, 1066, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[48222, 1071, 37, 0, 48, "Subsection"], Cell[48262, 1073, 247, 5, 59, "Text"], Cell[48512, 1080, 50, 1, 37, "Input"], Cell[48565, 1083, 61, 1, 35, "Input"], Cell[48629, 1086, 186, 6, 59, "Text"], Cell[48818, 1094, 459, 13, 100, "Input"], Cell[49280, 1109, 132, 3, 59, "Text"], Cell[49415, 1114, 314, 10, 57, "Input"], Cell[49732, 1126, 73, 2, 37, "Text"], Cell[49808, 1130, 191, 6, 41, "Input"], Cell[50002, 1138, 97, 3, 37, "Input"], Cell[50102, 1143, 109, 3, 37, "Text"], Cell[50214, 1148, 1228, 26, 35, "Instruction"], Cell[51445, 1176, 31, 0, 35, "Instruction"], Cell[51479, 1178, 703, 15, 52, "Input"], Cell[52185, 1195, 30, 0, 21, "MyCode"], Cell[52218, 1197, 533, 16, 100, "AnswerInput"], Cell[52754, 1215, 103, 3, 37, "AnswerInput"], Cell[52860, 1220, 287, 9, 59, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53196, 1235, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[53285, 1240, 69, 2, 48, "Subsection"], Cell[53357, 1244, 340, 8, 81, "Text"], Cell[53700, 1254, 117, 3, 57, "Instruction"], Cell[53820, 1259, 74, 0, 37, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[53931, 1264, 68, 2, 48, "Subsection"], Cell[54002, 1268, 168, 3, 59, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54219, 1277, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[54308, 1282, 47, 0, 48, "Subsection"], Cell[54358, 1284, 119, 3, 57, "Instruction"], Cell[54480, 1289, 185, 4, 57, "Instruction"], Cell[54668, 1295, 82, 2, 35, "Input"], Cell[54753, 1299, 489, 12, 52, "Input"], Cell[55245, 1313, 30, 0, 21, "MyCode"], Cell[55278, 1315, 600, 17, 100, "AnswerInput"], Cell[55881, 1334, 114, 3, 35, "AnswerInput"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56044, 1343, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[56133, 1348, 41, 0, 36, "Subsection"], Cell[56177, 1350, 377, 12, 54, "Instruction"], Cell[56557, 1364, 555, 13, 30, "Input"], Cell[57115, 1379, 30, 0, 21, "MyCode"], Cell[57148, 1381, 516, 10, 24, "Input"], Cell[57667, 1393, 487, 14, 39, "AnswerInput"], Cell[58157, 1409, 368, 11, 24, "AnswerInput"], Cell[58528, 1422, 492, 14, 39, "AnswerInput"], Cell[59023, 1438, 372, 11, 24, "AnswerInput"], Cell[59398, 1451, 117, 3, 26, "Input"], Cell[59518, 1456, 66, 1, 24, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59633, 1463, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[59722, 1468, 39, 0, 36, "Subsection"], Cell[59764, 1470, 414, 13, 51, "Instruction"], Cell[60181, 1485, 567, 13, 30, "Input"], Cell[60751, 1500, 30, 0, 21, "MyCode"], Cell[60784, 1502, 556, 16, 39, "AnswerInput"], Cell[61343, 1520, 697, 20, 39, "AnswerInput"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62089, 1546, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[62178, 1551, 103, 2, 36, "Subsection"], Cell[62284, 1555, 209, 4, 51, "Instruction"], Cell[62496, 1561, 180, 6, 31, "Instruction"], Cell[62679, 1569, 196, 7, 24, "Input"], Cell[CellGroupData[{ Cell[62900, 1580, 31, 0, 36, "Subsubsection"], Cell[62934, 1582, 445, 10, 30, "Input"], Cell[63382, 1594, 30, 0, 21, "MyCode"], Cell[63415, 1596, 385, 11, 24, "AnswerInput"], Cell[63803, 1609, 196, 7, 24, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[64036, 1621, 52, 0, 36, "Subsubsection"], Cell[64091, 1623, 156, 3, 51, "Text"], Cell[64250, 1628, 657, 14, 30, "Input"], Cell[64910, 1644, 30, 0, 21, "MyCode"], Cell[64943, 1646, 1099, 28, 84, "AnswerInput"], Cell[66045, 1676, 196, 7, 24, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66302, 1690, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[66391, 1695, 28, 0, 75, "Section"], Cell[66422, 1697, 449, 15, 51, "Text"], Cell[66874, 1714, 166, 5, 31, "Text"], Cell[67043, 1721, 94, 2, 31, "Text"], Cell[67140, 1725, 206, 7, 24, "Input"], Cell[67349, 1734, 114, 3, 51, "Text"], Cell[67466, 1739, 30, 0, 24, "Input"], Cell[67499, 1741, 97, 2, 31, "Instruction"], Cell[67599, 1745, 73, 2, 31, "Text"], Cell[67675, 1749, 128, 3, 31, "Text"], Cell[67806, 1754, 59, 0, 31, "Text"], Cell[CellGroupData[{ Cell[67890, 1758, 106, 2, 24, "Input"], Cell[67999, 1762, 67, 2, 24, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68103, 1769, 43, 0, 36, "Subsubsection"], Cell[68149, 1771, 109, 3, 31, "Text"], Cell[68261, 1776, 550, 16, 39, "Input"], Cell[68814, 1794, 685, 19, 39, "Input"], Cell[69502, 1815, 114, 3, 24, "Input"], Cell[69619, 1820, 135, 5, 24, "Input"], Cell[69757, 1827, 21, 0, 31, "Text"], Cell[69781, 1829, 156, 3, 51, "Instruction"], Cell[69940, 1834, 679, 15, 30, "Input"], Cell[70622, 1851, 30, 0, 21, "MyCode"], Cell[70655, 1853, 767, 20, 69, "AnswerInput"], Cell[71425, 1875, 920, 24, 84, "AnswerInput"], Cell[72348, 1901, 109, 3, 24, "Input"], Cell[72460, 1906, 66, 1, 24, "Input"], Cell[72529, 1909, 199, 4, 81, "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72789, 1920, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[72878, 1925, 39, 0, 93, "Section"], Cell[72920, 1927, 53, 1, 35, "Input"], Cell[72976, 1930, 327, 10, 81, "Text"], Cell[73306, 1942, 60, 0, 37, "Text"], Cell[73369, 1944, 149, 4, 35, "Input"], Cell[73521, 1950, 66, 1, 35, "Input"], Cell[73590, 1953, 666, 20, 57, "Input"], Cell[CellGroupData[{ Cell[74281, 1977, 53, 0, 50, "Subsubsection"], Cell[74337, 1979, 212, 4, 81, "Text"], Cell[74552, 1985, 837, 25, 100, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[75426, 2015, 54, 0, 50, "Subsubsection"], Cell[75483, 2017, 372, 12, 62, "Instruction"] }, Open ]], Cell[CellGroupData[{ Cell[75892, 2034, 48, 0, 48, "Subsection"], Cell[75943, 2036, 276, 7, 59, "Text"], Cell[76222, 2045, 203, 4, 52, "Input"], Cell[76428, 2051, 243, 4, 57, "Instruction"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76732, 2062, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[76821, 2067, 28, 0, 93, "Section"], Cell[76852, 2069, 199, 4, 81, "Text"], Cell[77054, 2075, 291, 7, 57, "Input"], Cell[77348, 2084, 189, 4, 51, "Instruction"], Cell[77540, 2090, 76, 2, 31, "Text"], Cell[77619, 2094, 307, 7, 24, "Input"], Cell[77929, 2103, 195, 4, 51, "Text"], Cell[78127, 2109, 87, 2, 31, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78263, 2117, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[78352, 2122, 32, 0, 75, "Section"], Cell[78387, 2124, 125, 3, 31, "Instruction"], Cell[78515, 2129, 170, 5, 51, "Text"], Cell[CellGroupData[{ Cell[78710, 2138, 322, 11, 31, "ItemParagraph"], Cell[79035, 2151, 270, 7, 51, "ItemParagraph"], Cell[79308, 2160, 384, 9, 71, "ItemParagraph"], Cell[79695, 2171, 279, 7, 51, "ItemParagraph", CellID->1967647048], Cell[79977, 2180, 475, 12, 51, "ItemParagraph", CellID->994293201] }, Open ]], Cell[80467, 2195, 485, 7, 31, "Text", CellID->1112495170], Cell[80955, 2204, 439, 14, 39, "Input", CellID->316304785], Cell[81397, 2220, 221, 6, 51, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81667, 2232, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[81756, 2237, 45, 0, 75, "Section"], Cell[81804, 2239, 119, 3, 31, "Text"], Cell[CellGroupData[{ Cell[81948, 2246, 123, 3, 48, "Input"], Cell[82074, 2251, 93, 3, 81, "Output"] }, Open ]], Cell[82182, 2257, 113, 3, 62, "Instruction"], Cell[82298, 2262, 291, 8, 113, "Instruction"], Cell[CellGroupData[{ Cell[82614, 2274, 615, 16, 79, "Input"], Cell[83232, 2292, 168, 5, 48, "Output"] }, Open ]], Cell[83415, 2300, 200, 4, 102, "Instruction"], Cell[83618, 2306, 67, 0, 62, "Instruction"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83734, 2312, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[83823, 2317, 47, 0, 150, "Section"], Cell[83873, 2319, 42, 0, 62, "Text"], Cell[83918, 2321, 615, 17, 79, "Input"], Cell[84536, 2340, 109, 2, 62, "Instruction"], Cell[84648, 2344, 322, 12, 102, "Text"], Cell[84973, 2358, 303, 5, 142, "Instruction"], Cell[85279, 2365, 78, 2, 62, "Instruction"], Cell[85360, 2369, 453, 10, 60, "Input"], Cell[85816, 2381, 30, 0, 42, "MyCode"], Cell[85849, 2383, 499, 15, 79, "AnswerInput"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86397, 2404, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[86486, 2409, 32, 0, 150, "Section"], Cell[86521, 2411, 94, 2, 62, "Text"], Cell[86618, 2415, 113, 3, 48, "Input"], Cell[86734, 2420, 87, 2, 62, "Text"], Cell[CellGroupData[{ Cell[86846, 2426, 105, 3, 48, "Input"], Cell[86954, 2431, 106, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87097, 2439, 212, 6, 48, "Input"], Cell[87312, 2447, 73, 2, 124, "Output"] }, Open ]], Cell[87400, 2452, 111, 3, 62, "Text"], Cell[87514, 2457, 230, 6, 81, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[87793, 2469, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[87882, 2474, 30, 0, 93, "Section"], Cell[87915, 2476, 63, 2, 37, "Text"], Cell[CellGroupData[{ Cell[88003, 2482, 60, 0, 31, "ItemNumbered"], Cell[88066, 2484, 195, 5, 53, "ItemNumbered"], Cell[88264, 2491, 75, 2, 31, "ItemNumbered"], Cell[88342, 2495, 79, 2, 31, "ItemNumbered"], Cell[88424, 2499, 85, 2, 31, "ItemNumbered"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)