(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 151898, 4181]*) (*NotebookOutlinePosition[ 176840, 5076]*) (* CellTagsIndexPosition[ 176796, 5072]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Introduction to Notebooks", "Title", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ R.G. Palmer, Duke University 7/13/04\ \>", "Subsubtitle", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True], Cell[TextData[{ StyleBox["Keyboard/mouse notes:", FontWeight->"Bold"], "\n1. If your mouse has more than one button, use only the the ", StyleBox["left", FontWeight->"Bold"], " one unless otherwise specified;\n2. When this Notebook specifies the ", StyleBox["Command", FontWeight->"Bold"], " key, on your computer that might be labelled with a diamond, or a \ propeller, or an apple icon. Or it might say ", StyleBox["Command", FontWeight->"Bold"], ", or ", StyleBox["Option", FontWeight->"Bold"], ", or ", StyleBox["Alt", FontWeight->"Bold"], ". (It is NOT ", StyleBox["Control", FontWeight->"Bold"], " nor ", StyleBox["Crtl", FontWeight->"Bold"], "). Find out which by trial and error. On menus it may be called ", StyleBox["Mod1", FontWeight->"Bold"], "." }], "Text", CellFrame->True, CellMargins->{{28, Inherited}, {Inherited, Inherited}}, TextAlignment->Left, FontColor->RGBColor[1, 0, 0], Background->GrayLevel[0.849989]], Cell["\<\ Double click on the closed group cell brackets (the ones with the \ little downward arrows at the extreme right of each cell group) to open them. \ \ \>", "Text", CellFrame->True, CellMargins->{{27, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellLabelMargins->{{17, Inherited}, {Inherited, Inherited}}, TextAlignment->Center, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Background and Copyright", "Subsection"], Cell[TextData[{ "This ", StyleBox["Mathematica", FontSlant->"Italic"], " Notebook was written by Richard G. Palmer (Physics Department, Duke \ University) for use in a course he taught. As of 1999, it has been made \ available for general non-profit use under the following copyright \ provision." }], "Text"], Cell[TextData[{ StyleBox["This Mathematica Notebook is Copyright Richard G. Palmer, 1997", FontWeight->"Bold"], ". It may be freely used by individuals, and by classes at academic \ institutions, provided:\n1. Credit is given to Richard Palmer as the original \ author; and\n2. It is not bought or sold or exchanged for profit, or \ incorporated into material that is bought or sold or exchanged for profit.\n\ Any other use requires the written permission of Richard Palmer, Dept. of \ Physics, Box 90305, Duke University, Durham, NC 27708, USA. See ", StyleBox["http://www.phy.duke.edu/~palmer", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " for the email address." }], "Text"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Version: 4.2" }], "Text"], Cell[TextData[{ "See ", StyleBox["http://www.phy.duke.edu/~palmer/notebooks/", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " for other ", StyleBox["Mathematica", FontSlant->"Italic"], " noteboks by Richard Palmer." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Preface", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "This Notebook describes the Notebook interface to ", StyleBox["Mathematica", FontSlant->"Italic"], ". It is only about the Notebook front end, ", StyleBox["not", FontSlant->"Italic"], " about the ", StyleBox["Mathematica", FontSlant->"Italic"], " kernel nor ", StyleBox["Mathematica", FontSlant->"Italic"], " expressions." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "You should have read the ", StyleBox["Mathematica", FontSlant->"Italic"], " Tutorial already. If you haven't done it, then you can find the ", StyleBox["Tutorial...", FontWeight->"Bold"], " in the ", StyleBox["Help", FontWeight->"Bold"], " menu." }], "Text", Evaluatable->False, AspectRatioFixed->True, Background->RGBColor[1, 1, 0]], Cell[TextData[{ "This Notebook is in two parts:\n\n1. Most of the material is written from \ the perspective of the Notebook ", StyleBox["user", FontSlant->"Italic"], ", assuming you're going to work through a Notebook written by someone \ else.", StyleBox["\n\n", FontSlant->"Italic"], "2. This is for making up your own Notebooks." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Notebook User", "Title"], Cell[CellGroupData[{ Cell["Notebook Size and Shape", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ You can move the Notebook window wherever you like on the screen; \ the best place depends on what other windows you have open. But should you \ resize it, or might that mess up the author's intentions?\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Exactly how you move and resize windows depends on the computer/operating \ system you're using, not just on ", StyleBox["Mathematica", FontSlant->"Italic"], ". In most cases you can drag on the top (title bar) of a window to move \ it (or to bring it to the front), and can drag on other parts of the outer \ border to resize it. In some cases there's another button or command you \ need to use first." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Window Height", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "First, it's always OK to change the ", StyleBox["height", FontSlant->"Italic"], ". It's usually convenient to make it almost the full height of the \ screen, so as to see as much as possible at a time. Or, if you want to have \ two Notebooks open at once, you might make them each half the screen height. \ The only real constraint is being able to see the whole of a graphic at once. \ Try increasing the height of this window now, probably by dragging downwards \ on the bottom edge of the window." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Window Width", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ The width of each cell in a Notebook sometimes is set independently \ of the window size, so if the window is made too wide it leaves some white \ space, and if it is made too narrow it obscures the text. Try changing the \ width of this Notebook now (probably by dragging on the right-hand window \ border). Don't worry about the long sine wave just below.\ \>", "Text", PageWidth->390, CellMargins->{{Inherited, 0}, {Inherited, Inherited}}, Evaluatable->False, CellSize->{435, Inherited}, AspectRatioFixed->True], Cell["\<\ Note that some individual cells can be scrolled horizontally with \ the horizontal scroll bar at the bottom. The most common example is with a \ large graphic, in which case you may have to scroll horizontally to see it \ all. \ \>", "Text", Evaluatable->False, CellHorizontalScrolling->True, AspectRatioFixed->True], Cell["\<\ Here's a silly example to play with. Note how only certain cells \ scroll. I made the preceding text cell scroll as well, just so you could see \ what happened.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .05 %%ImageSize: 1500 75 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00952381 0.025 0.0238096 [ [.21429 .0125 -6 -9 ] [.21429 .0125 6 0 ] [.40476 .0125 -6 -9 ] [.40476 .0125 6 0 ] [.59524 .0125 -6 -9 ] [.59524 .0125 6 0 ] [.78571 .0125 -6 -9 ] [.78571 .0125 6 0 ] [.97619 .0125 -9 -9 ] [.97619 .0125 9 0 ] [.01131 .00119 -12 -4.5 ] [.01131 .00119 0 4.5 ] [.01131 .0131 -24 -4.5 ] [.01131 .0131 0 4.5 ] [.01131 .0369 -18 -4.5 ] [.01131 .0369 0 4.5 ] [.01131 .04881 -6 -4.5 ] [.01131 .04881 0 4.5 ] [ 0 0 0 0 ] [ 1 .05 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .025 m .21429 .03125 L s [(20)] .21429 .0125 0 1 Mshowa .40476 .025 m .40476 .03125 L s [(40)] .40476 .0125 0 1 Mshowa .59524 .025 m .59524 .03125 L s [(60)] .59524 .0125 0 1 Mshowa .78571 .025 m .78571 .03125 L s [(80)] .78571 .0125 0 1 Mshowa .97619 .025 m .97619 .03125 L s [(100)] .97619 .0125 0 1 Mshowa .125 Mabswid .07143 .025 m .07143 .02875 L s .11905 .025 m .11905 .02875 L s .16667 .025 m .16667 .02875 L s .2619 .025 m .2619 .02875 L s .30952 .025 m .30952 .02875 L s .35714 .025 m .35714 .02875 L s .45238 .025 m .45238 .02875 L s .5 .025 m .5 .02875 L s .54762 .025 m .54762 .02875 L s .64286 .025 m .64286 .02875 L s .69048 .025 m .69048 .02875 L s .7381 .025 m .7381 .02875 L s .83333 .025 m .83333 .02875 L s .88095 .025 m .88095 .02875 L s .92857 .025 m .92857 .02875 L s .25 Mabswid 0 .025 m 1 .025 L s .02381 .00119 m .03006 .00119 L s [(-1)] .01131 .00119 1 0 Mshowa .02381 .0131 m .03006 .0131 L s [(-0.5)] .01131 .0131 1 0 Mshowa .02381 .0369 m .03006 .0369 L s [(0.5)] .01131 .0369 1 0 Mshowa .02381 .04881 m .03006 .04881 L s [(1)] .01131 .04881 1 0 Mshowa .125 Mabswid .02381 .00357 m .02756 .00357 L s .02381 .00595 m .02756 .00595 L s .02381 .00833 m .02756 .00833 L s .02381 .01071 m .02756 .01071 L s .02381 .01548 m .02756 .01548 L s .02381 .01786 m .02756 .01786 L s .02381 .02024 m .02756 .02024 L s .02381 .02262 m .02756 .02262 L s .02381 .02738 m .02756 .02738 L s .02381 .02976 m .02756 .02976 L s .02381 .03214 m .02756 .03214 L s .02381 .03452 m .02756 .03452 L s .02381 .03929 m .02756 .03929 L s .02381 .04167 m .02756 .04167 L s .02381 .04405 m .02756 .04405 L s .02381 .04643 m .02756 .04643 L s .25 Mabswid .02381 0 m .02381 .05 L s 0 0 m 1 0 L 1 .05 L 0 .05 L closepath clip newpath .5 Mabswid .02381 .025 m .02846 .03616 L .03068 .04073 L .03279 .04426 L .03398 .04586 L .03527 .04722 L .03645 .04811 L .03754 .04861 L .03871 .04881 L .04 .04861 L .04065 .04835 L .04135 .04794 L .04262 .04689 L .04393 .04539 L .04516 .04366 L .04793 .03863 L .05297 .02689 L .05752 .01577 L .05992 .0106 L .06244 .00613 L .06381 .00424 L .06454 .00342 L .06531 .00267 L .06603 .00211 L .06668 .00172 L .06795 .00126 L .06923 .00123 L .06995 .0014 L .07062 .00168 L .07184 .00248 L .07314 .00374 L .07428 .00518 L .07552 .00705 L .07775 .01118 L .08284 .02298 L .08836 .03631 L .09138 .04227 L .09285 .04458 L .09418 .04628 L .09542 .04748 L .09658 .04827 L .09781 .04873 L .09851 .04881 L .09915 .04877 L .1004 .04839 L .10112 .04799 L .10179 .0475 L .10313 .04617 L .10458 .04428 L .10713 .03991 L Mistroke .10984 .03409 L .11471 .02215 L .11745 .01557 L .1204 .00935 L .12176 .00696 L .12319 .00483 L .12441 .00338 L .12575 .00219 L .12646 .00175 L .12713 .00145 L .12839 .00119 L .12909 .00123 L .12974 .00138 L .13046 .00168 L .13121 .00213 L .13246 .00319 L .13363 .00453 L .1363 .00869 L .1409 .01862 L .14586 .03086 L .1505 .04098 L .15184 .0433 L .1531 .04515 L .15424 .04652 L .15545 .04764 L .1561 .04809 L .15681 .04846 L .15806 .04879 L .15877 .0488 L .15952 .04866 L .16024 .04839 L .16089 .04803 L .16213 .04706 L .16348 .04557 L .16594 .04182 L .17597 .01868 L .17872 .01241 L .18016 .0095 L .18168 .00683 L .18302 .00485 L .18448 .00315 L .18512 .00256 L .18581 .00204 L .18705 .00142 L .18769 .00125 L .18838 .00119 L .1896 .00139 L .19092 .00204 L .19167 .0026 L .19237 .00326 L Mistroke .19479 .0064 L .19739 .0111 L .2068 .03348 L .20949 .03935 L .21091 .04201 L .21242 .04444 L .21388 .0463 L .2152 .04756 L .21583 .04802 L .21652 .0484 L .21777 .04877 L .21898 .04875 L .21967 .04856 L .22031 .04828 L .2216 .04738 L .22233 .0467 L .22299 .04596 L .22546 .04237 L .2278 .03789 L .23746 .01481 L .23981 .00986 L .24234 .00557 L .24379 .00371 L .24442 .00305 L .24512 .00243 L .24639 .00162 L .24708 .00136 L .24772 .00122 L .24888 .00125 L .25013 .00167 L .25131 .00244 L .25239 .00345 L .25445 .00613 L .25663 .00991 L .26161 .02111 L .26615 .03233 L .26847 .03757 L .27099 .04244 L .27215 .04427 L .27338 .04591 L .27454 .04714 L .27559 .04797 L .2769 .04861 L .27811 .04881 L .27943 .04859 L .28009 .0483 L .28082 .04786 L .28205 .04682 L .28337 .0453 L .28574 .04161 L Mistroke .29526 .01962 L .29944 .01026 L .30182 .0061 L .30297 .0045 L .30406 .00325 L .3053 .00217 L .30644 .00153 L .30767 .00121 L .30836 .0012 L .30901 .00131 L .3097 .00155 L .31034 .00188 L .31155 .00278 L .31286 .00416 L .31426 .00608 L .31707 .0111 L .32004 .01769 L .32535 .0308 L .32998 .04092 L .33132 .04323 L .33258 .0451 L .33373 .04649 L .33495 .04762 L .33559 .04807 L .3363 .04845 L .33756 .04879 L .33826 .0488 L .33902 .04866 L .33974 .0484 L .3404 .04804 L .34158 .04712 L .34288 .04572 L .34549 .04177 L .35557 .01848 L .35797 .01297 L .36052 .00796 L .3627 .00464 L .36393 .00321 L .36509 .00221 L .36577 .00178 L .36642 .00147 L .36763 .0012 L .36893 .00133 L .36967 .00161 L .37035 .00198 L .3711 .00253 L .3718 .00318 L .37312 .00469 L .37606 .00944 L .38086 .02006 L Mistroke .38604 .03282 L .38842 .03814 L .39097 .04292 L .3922 .0448 L .39337 .04627 L .39442 .04732 L .39556 .04815 L .39681 .04868 L .39753 .0488 L .39819 .04879 L .3989 .04865 L .39954 .04842 L .40025 .04803 L .40099 .04749 L .40223 .04629 L .40339 .04484 L .40601 .04052 L .41121 .02887 L .41685 .0151 L .41944 .00965 L .42085 .00713 L .42218 .00512 L .4234 .00361 L .42451 .00254 L .42575 .0017 L .42643 .00141 L .42708 .00125 L .42825 .00123 L .42955 .00162 L .4302 .00199 L .4309 .0025 L .43217 .00373 L .43337 .00525 L .43463 .00717 L .43689 .01138 L .44242 .02432 L .44757 .03667 L .44977 .04112 L .45186 .04454 L .45301 .04604 L .45426 .04732 L .4554 .04815 L .45644 .04862 L .4576 .04881 L .45869 .04867 L .45988 .04816 L .46116 .04721 L .4618 .04658 L .4625 .04578 L .46378 .04405 L Mistroke .46617 .03991 L .47103 .02892 L .4763 .016 L .47872 .01075 L .48127 .00621 L .48232 .00471 L .48345 .00338 L .48469 .00227 L .48584 .00158 L .48658 .00132 L .48726 .0012 L .48801 .00122 L .4888 .00139 L .48949 .00167 L .49013 .00205 L .49084 .00258 L .4916 .00329 L .49293 .00487 L .49434 .00695 L .49685 .01162 L .50207 .02386 L .50682 .03537 L .50918 .0403 L .51042 .04254 L .51173 .04459 L .51288 .04608 L .51414 .04736 L .51529 .04818 L .51637 .04864 L .51768 .0488 L .51894 .04853 L .52006 .04795 L .52128 .04694 L .52261 .04545 L .52402 .04342 L .52657 .03879 L .53122 .02805 L .53614 .016 L .54034 .00746 L .54148 .00565 L .54272 .00402 L .54388 .00281 L .54493 .00199 L .54626 .00136 L .54748 .00119 L .54811 .00126 L .54881 .00145 L .54955 .00179 L .55024 .00223 L .5515 .00335 L Mistroke .55265 .00471 L .55525 .00882 L .56096 .02149 L .56639 .03476 L .56881 .03991 L .57014 .04235 L .57139 .04433 L .57256 .04589 L .57383 .04722 L .57498 .04809 L .57604 .04859 L .5773 .04881 L .57848 .04864 L .57977 .04803 L .5805 .0475 L .58116 .04691 L .58249 .04539 L .58394 .0433 L .58658 .03844 L .59148 .02703 L .59676 .01422 L .59919 .00921 L .60052 .00689 L .60175 .00504 L .6029 .00363 L .60394 .00261 L .6051 .0018 L .60633 .0013 L .60761 .00121 L .60879 .0015 L .61009 .00224 L .61074 .00278 L .61146 .00349 L .61397 .00687 L .61631 .01118 L .62158 .02344 L .62437 .03035 L .62733 .0372 L .63016 .04265 L .6315 .04471 L .63273 .04627 L .63396 .04747 L .63461 .04796 L .6353 .04835 L .63646 .04874 L .63773 .04877 L .63902 .04836 L .64019 .04762 L .64084 .04706 L .64155 .04633 L Mistroke .64284 .04472 L .64531 .04062 L .6476 .03589 L .65652 .0144 L .65897 .00933 L .6603 .00699 L .66154 .00512 L .66269 .00369 L .66373 .00265 L .66489 .00182 L .66613 .00131 L .66737 .0012 L .66851 .00146 L .66977 .00213 L .6704 .00262 L .67109 .00327 L .67351 .0064 L .67577 .01042 L .68482 .03183 L .68748 .03786 L .69001 .04267 L .69228 .04594 L .69357 .04727 L .69476 .04815 L .69543 .04848 L .69616 .04871 L .69747 .04878 L .69875 .04841 L .69993 .0477 L .7012 .04654 L .7026 .04482 L .70543 .0401 L .71025 .02927 L .71549 .0164 L .71789 .01114 L .72043 .00652 L .7226 .0036 L .72384 .00243 L .725 .00168 L .72567 .0014 L .72641 .00123 L .72711 .00119 L .72775 .00128 L .72897 .00174 L .73028 .00265 L .73101 .00335 L .73181 .00425 L .73326 .00625 L .73596 .01111 L .74112 .02307 L Mistroke .74593 .03481 L .74829 .03982 L .75052 .04374 L .75175 .04548 L .75309 .04698 L .75431 .04797 L .75543 .04855 L .75667 .04881 L .75784 .04868 L .75912 .04814 L .75983 .04765 L .76049 .04709 L .76174 .04573 L .76311 .04385 L .76587 .03891 L .77154 .02566 L .7769 .01286 L .77924 .00825 L .78171 .00447 L .78301 .00302 L .78369 .00242 L .78443 .00191 L .78572 .00133 L .78693 .00119 L .78823 .00147 L .78944 .00212 L .79014 .00267 L .79077 .00326 L .79218 .00494 L .79476 .00909 L .79717 .01405 L .80654 .03652 L .80909 .04163 L .81048 .04393 L .81178 .04572 L .8129 .04695 L .81408 .04793 L .8154 .04859 L .81661 .04881 L .81728 .04876 L .818 .04858 L .81929 .04793 L .82 .04738 L .82067 .04676 L .8222 .04494 L .82474 .04079 L .82749 .03508 L .83252 .02282 L .83528 .01613 L .83789 .01048 L Mistroke .84033 .00618 L .8417 .00428 L .84296 .00291 L .84403 .00206 L .8452 .00145 L .84642 .0012 L .84756 .00131 L .84887 .00186 L .85011 .00278 L .85122 .00393 L .85243 .0055 L .85514 .01012 L .85765 .01548 L .86295 .02845 L .86574 .0351 L .86867 .04116 L .87106 .045 L .87242 .04663 L .87368 .04776 L .87485 .04844 L .87591 .04876 L .87713 .04876 L .87828 .04841 L .87938 .04775 L .88053 .04673 L .88152 .04561 L .88261 .04411 L .88731 .03511 L .89283 .02167 L .89554 .01516 L .89807 .00983 L .90034 .00592 L .90151 .00432 L .90277 .00294 L .90349 .00233 L .90416 .00188 L .90546 .00132 L .90665 .0012 L .9079 .00147 L .90911 .00212 L .91021 .00303 L .91149 .00445 L .91269 .00613 L .91716 .01474 L .92244 .02758 L .92476 .03321 L .92732 .03886 L .92966 .04314 L .93088 .04497 L .93217 .04654 L Mistroke .93284 .04719 L .93356 .04778 L .93483 .0485 L .93613 .0488 L .93733 .04869 L .93801 .04846 L .93875 .04807 L .93944 .04758 L .94008 .04702 L .9413 .04569 L .94259 .04391 L .94526 .03916 L .94821 .03267 L .95513 .01575 L .95854 .00865 L .9602 .00589 L .9617 .0039 L .96254 .00301 L .96346 .00224 L .96442 .00165 L .96532 .00131 L .96633 .00119 L .96738 .00135 L .96828 .00171 L .96927 .00235 L .97018 .00315 L .971 .00405 L .97285 .00663 L .97619 .01294 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", Editable->False, PageWidth->Infinity, ImageSize->{1491, 77.3125}, ImageMargins->{{6, 0}, {0, 0}}, ImageRegion->{{-0.0389889, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0?ooo`L00000CP3oool7000004h0oooo1@00001@0?ooo`H00000C`3oool5 000004h0oooo1`00001>0?ooo`L00000CP3oool6000004l0oooo1P00001>0?ooo`L00000K03oool0 0180oooo100000040?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0>@3oool00`00 0000oooo0?ooo`040?ooo`030000003oool0oooo04X0oooo00<000000?ooo`3oool01@3oool00`00 0000oooo0?ooo`1:0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3oool0B@3oool00`00 0000oooo0?ooo`060?ooo`030000003oool0oooo04T0oooo00<000000?ooo`3oool0103oool20000 04`0oooo0P0000050?ooo`030000003oool0oooo04/0oooo00<000000?ooo`3oool0103oool00`00 0000oooo0?ooo`1:0?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool0BP3oool20000 00D0oooo0P00001<0?ooo`8000001P3oool00`000000oooo0?ooo`1:0?ooo`8000001@3oool00`00 0000oooo0?ooo`1:0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3oool0B@3oool20000 00L0oooo00<000000?ooo`3oool0B@3oool2000000H0oooo00<000000?ooo`3oool0BP3oool20000 00H0oooo00<000000?ooo`3oool0B@3oool2000000L0oooo00<000000?ooo`3oool0J@3oool001X0 oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo00H0 oooo0P00001:0?ooo`030000003oool0oooo00H0oooo00<000000?ooo`3oool0A`3oool2000000T0 oooo00<000000?ooo`3oool0A`3oool00`000000oooo0?ooo`070?ooo`030000003oool0oooo04P0 oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`180?ooo`030000003oool0oooo00H0 oooo0P0000190?ooo`800000203oool2000004T0oooo00<000000?ooo`3oool01P3oool2000004T0 oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`180?ooo`030000003oool0oooo00L0 oooo00<000000?ooo`3oool0A`3oool2000000P0oooo00<000000?ooo`3oool0B03oool00`000000 oooo0?ooo`070?ooo`030000003oool0oooo04L0oooo00<000000?ooo`3oool0203oool00`000000 oooo0?ooo`170?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0B03oool00`000000 oooo0?ooo`070?ooo`030000003oool0oooo04L0oooo00<000000?ooo`3oool0203oool00`000000 oooo0?ooo`1X0?ooo`00603oool3000001<0oooo1`00000c0?ooo`030000003oool0oooo00T0oooo 00<000000?ooo`3oool0AP3oool00`000000oooo0?ooo`080?ooo`800000AP3oool00`000000oooo 0?ooo`0:0?ooo`030000003oool0oooo04D0oooo00<000000?ooo`3oool02@3oool00`000000oooo 0?ooo`160?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0AP3oool00`000000oooo 0?ooo`090?ooo`030000003oool0oooo04D0oooo00<000000?ooo`3oool02P3oool00`000000oooo 0?ooo`150?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0AP3oool00`000000oooo 0?ooo`080?ooo`030000003oool0oooo04H0oooo00<000000?ooo`3oool02@3oool00`000000oooo 0?ooo`150?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0AP3oool00`000000oooo 0?ooo`090?ooo`030000003oool0oooo04H0oooo00<000000?ooo`3oool0203oool00`000000oooo 0?ooo`160?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0AP3oool00`000000oooo 0?ooo`090?ooo`030000003oool0oooo04H0oooo00<000000?ooo`3oool0203oool00`000000oooo 0?ooo`1X0?ooo`006P3oool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo03H0oooo00<0 00000?ooo`3oool02`3oool00`000000oooo0?ooo`140?ooo`030000003oool0oooo00/0oooo00<0 00000?ooo`3oool0@`3oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo04<0oooo00<0 00000?ooo`3oool02`3oool00`000000oooo0?ooo`140?ooo`030000003oool0oooo00/0oooo00<0 00000?ooo`3oool0A03oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo04@0oooo00<0 00000?ooo`3oool02`3oool00`000000oooo0?ooo`140?ooo`030000003oool0oooo00X0oooo00<0 00000?ooo`3oool0A@3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo04@0oooo00<0 00000?ooo`3oool02`3oool00`000000oooo0?ooo`140?ooo`030000003oool0oooo00X0oooo00<0 00000?ooo`3oool0A03oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo04@0oooo00<0 00000?ooo`3oool02P3oool00`000000oooo0?ooo`140?ooo`030000003oool0oooo00/0oooo00<0 00000?ooo`3oool0A03oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo04@0oooo00<0 00000?ooo`3oool02P3oool00`000000oooo0?ooo`1W0?ooo`00;P3oool00`000000oooo0?ooo`0e 0?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@P3oool00`000000oooo0?ooo`0< 0?ooo`030000003oool0oooo0480oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`13 0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0= 0?ooo`030000003oool0oooo0480oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`12 0?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@P3oool00`000000oooo0?ooo`0< 0?ooo`030000003oool0oooo04<0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`12 0?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@P3oool00`000000oooo0?ooo`0< 0?ooo`030000003oool0oooo04<0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`12 0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0< 0?ooo`030000003oool0oooo0480oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`12 0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0IP3oool002h0oooo1`00000a0?oo o`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0>0?oo o`030000003oool0oooo0400oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`110?oo o`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@P3oool00`000000oooo0?ooo`0=0?oo o`030000003oool0oooo0440oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`110?oo o`030000003oool0oooo00h0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0=0?oo o`030000003oool0oooo0440oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`110?oo o`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0>0?oo o`030000003oool0oooo0440oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`120?oo o`030000003oool0oooo00d0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0>0?oo o`030000003oool0oooo0400oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`110?oo o`030000003oool0oooo00h0oooo00<000000?ooo`3oool0I@3oool002h0oooo00<000000?ooo`3o ool0=03oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3o ool03P3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3o ool0@03oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3o ool03`3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3o ool0@03oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3o ool03P3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0?`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3o ool03`3oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3o ool0@03oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo0440oooo00<000000?ooo`3o ool03P3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3o ool0@03oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo06@0oooo000^0?ooo`030000 003oool0oooo03<0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0o0?ooo`030000 003oool0oooo0100oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0A0?ooo`030000 003oool0oooo03h0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0o0?ooo`030000 003oool0oooo0100oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0@0?ooo`030000 003oool0oooo03l0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0n0?ooo`030000 003oool0oooo0100oooo00<000000?ooo`3oool0?`3oool00`000000oooo0?ooo`0@0?ooo`030000 003oool0oooo03l0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0n0?ooo`030000 003oool0oooo0100oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0A0?ooo`030000 003oool0oooo03h0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0o0?ooo`030000 003oool0oooo0100oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0@0?ooo`030000 003oool0oooo03l0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`1S0?ooo`00;P3o ool00`000000oooo0?ooo`0c0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0?@3o ool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo03d0oooo00<000000?ooo`3oool04P3o ool00`000000oooo0?ooo`0C0?ooo`@000000`3oool200000280oooo00<000000?ooo`3oool0403o ool00`000000oooo0?ooo`0n0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0?@3o ool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo02@0oooo00<000000?ooo`3oool00P3o ool2000001<0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0n0?ooo`030000003o ool0oooo0140oooo00<000000?ooo`3oool0?@3oool00`000000oooo0?ooo`0B0?ooo`030000003o ool0oooo0380oooo0P0000040?ooo`8000000`3oool00`000000oooo0?ooo`0A0?ooo`030000003o ool0oooo03d0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`0m0?ooo`030000003o ool0oooo0140oooo00<000000?ooo`3oool0?P3oool010000000oooo0?ooo`3oool2000000@0oooo 0P0000080?ooo`030000003oool0oooo03h0oooo00<000000?ooo`3oool0403oool00`000000oooo 0?ooo`0n0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0?P3oool00`000000oooo 0?ooo`0=0?ooo`D000000P3oool2000000@0oooo0P00001K0?ooo`00;P3oool7000002h0oooo00<0 00000?ooo`3oool04P3oool00`000000oooo0?ooo`0m0?ooo`030000003oool0oooo0180oooo00<0 00000?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo0180oooo00<0 00000?ooo`3oool00`3oool010000000oooo0?ooo`00000P0?ooo`030000003oool0oooo0180oooo 00<000000?ooo`3oool0?@3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03`0oooo 00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`0T0?ooo`050000003oool0oooo0?ooo`00 00000P3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0180oooo00<000000?ooo`3o ool0?03oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03d0oooo00<000000?ooo`3o ool04`3oool00`000000oooo0?ooo`0`0?ooo`040000003oool0oooo00000080oooo00@000000?oo o`3oool000000P3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03`0oooo00<00000 0?ooo`3oool04P3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo01<0oooo00<00000 0?ooo`3oool0?03oool01@000000oooo0?ooo`3oool000000080oooo00@000000?ooo`3oool00000 0P3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo03d0oooo00<000000?ooo`3oool0 4P3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo0180oooo00<000000?ooo`3oool0 ?@3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo008000000P3oool010000000oooo 0?ooo`0000020?ooo`030000003oool0oooo05P0oooo000^0?ooo`030000003oool0oooo0340oooo 00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0k0?ooo`030000003oool0oooo01<0oooo 00<000000?ooo`3oool0>`3oool00`000000oooo0?ooo`0D0?ooo`030000003oool0oooo01<0oooo 00<000000?ooo`3oool00P3oool010000000oooo0?ooo`00000P0?ooo`030000003oool0oooo0180 oooo00<000000?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo03/0 oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0P0?ooo`D000000P3oool010000000 oooo0?ooo`00000A0?ooo`030000003oool0oooo0180oooo00<000000?ooo`3oool0>`3oool00`00 0000oooo0?ooo`0D0?ooo`030000003oool0oooo03/0oooo00<000000?ooo`3oool0503oool00`00 0000oooo0?ooo`0`0?ooo`040000003oool0oooo00000080oooo00H000000?ooo`3oool000000?oo o`00000E0?ooo`030000003oool0oooo03/0oooo00<000000?ooo`3oool0503oool00`000000oooo 0?ooo`0k0?ooo`030000003oool0oooo01<0oooo00<000000?ooo`3oool0?03oool01@000000oooo 0?ooo`3oool000000080oooo00@000000?ooo`3oool000000P3oool00`000000oooo0?ooo`060?oo o`030000003oool0oooo03/0oooo00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`0l0?oo o`030000003oool0oooo01<0oooo00<000000?ooo`3oool0?03oool00`000000oooo0?ooo`0@0?oo o`030000003oool0oooo008000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0 oooo05P0oooo000^0?ooo`030000003oool0oooo0340oooo00<000000?ooo`3oool05@3oool00`00 0000oooo0?ooo`0j0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>P3oool00`00 0000oooo0?ooo`0E0?ooo`030000003oool0oooo01<0oooo00D000000?ooo`3oool0oooo00000002 0?ooo`030000003oool0oooo01d0oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0k 0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>P3oool00`000000oooo0?ooo`0D 0?ooo`030000003oool0oooo0200oooo00@000000?ooo`3oool000000`3oool010000000oooo0?oo o`00000@0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>P3oool00`000000oooo 0?ooo`0E0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool05@3oool00`000000oooo 0?ooo`0_0?ooo`<000000`3oool00`000000oooo0?ooo`02000001L0oooo00<000000?ooo`3oool0 >P3oool00`000000oooo0?ooo`0D0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool0 5@3oool00`000000oooo0?ooo`0j0?ooo`030000003oool0oooo00<0oooo0P0000030?ooo`040000 003oool0oooo000000T0oooo00<000000?ooo`3oool0>P3oool00`000000oooo0?ooo`0D0?ooo`03 0000003oool0oooo03X0oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0k0?ooo`03 0000003oool0oooo0140oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003oool0oooo 00000080oooo00<000000?ooo`3oool0F03oool002h0oooo1`00000/0?ooo`030000003oool0oooo 01H0oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo 03T0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0D0?ooo`040000003oool0oooo 00000080oooo00<000000?ooo`3oool0703oool00`000000oooo0?ooo`0E0?ooo`030000003oool0 oooo03X0oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0 oooo01H0oooo00<000000?ooo`3oool0803oool00`000000oooo000000030?ooo`040000003oool0 oooo000000l0oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`0i0?ooo`030000003o ool0oooo01H0oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`0F0?ooo`030000003o ool0oooo02l0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`02000001L0oooo00<0 00000?ooo`3oool0>@3oool00`000000oooo0?ooo`0F0?ooo`030000003oool0oooo03T0oooo00<0 00000?ooo`3oool05@3oool00`000000oooo0?ooo`0j0?ooo`030000003oool0oooo0080oooo00@0 00000?ooo`3oool000000P3oool010000000oooo0?ooo`0000090?ooo`030000003oool0oooo03T0 oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`0j0?ooo`030000003oool0oooo01D0 oooo00<000000?ooo`3oool0>P3oool00`000000oooo0?ooo`0A0?ooo`050000003oool0oooo0?oo o`0000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo05P0oooo000^0?oo o`030000003oool0oooo0300oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0h0?oo o`030000003oool0oooo01H0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?oo o`030000003oool0oooo0100oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`00 000N0?ooo`030000003oool0oooo01H0oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?oo o`0F0?ooo`030000003oool0oooo03P0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?oo o`0Q0?ooo`8000000`3oool010000000oooo0?ooo`00000?0?ooo`030000003oool0oooo01H0oooo 00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo03P0oooo 00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0^0?ooo`030000003oool0oooo00<0oooo 00@000000?ooo`3oool000006@3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo01H0 oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo03P0 oooo00<000000?ooo`3oool00`3oool010000000oooo0?ooo`0000020?ooo`040000003oool0oooo 000000X0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0F0?ooo`030000003oool0 oooo03P0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0 oooo0100oooo0`0000030?ooo`80000000D0oooo0000003oool0oooo000000020?ooo`030000003o ool0oooo05P0oooo000=0?ooo`800000103oool00`000000oooo0?ooo`020?ooo`<000004`3oool0 0`000000oooo0?ooo`0_0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=`3oool0 0`000000oooo0?ooo`0G0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool0603oool0 0`000000oooo0?ooo`0A0?ooo`800000103oool2000001h0oooo00<000000?ooo`3oool05`3oool0 0`000000oooo0?ooo`0h0?ooo`030000003oool0oooo01L0oooo00<000000?ooo`3oool0=`3oool0 0`000000oooo0?ooo`0H0?ooo`030000003oool0oooo0240oooo00<000000?ooo`3oool00P3oool2 000000l0oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0g0?ooo`030000003oool0 oooo01P0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?ooo`030000003oool0 oooo02l0oooo0`0000030?ooo`<000006@3oool00`000000oooo0?ooo`0g0?ooo`030000003oool0 oooo01P0oooo00<000000?ooo`3oool0=`3oool00`000000oooo0?ooo`0G0?ooo`030000003oool0 oooo03P0oooo00<000000?ooo`3oool0103oool2000000@0oooo0P00000;0?ooo`030000003oool0 oooo03L0oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0 oooo01L0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0B0?ooo`030000003oool0 oooo0080oooo0P0000040?ooo`800000F`3oool000`0oooo00@000000?ooo`3oool000002`3oool0 0`000000oooo0?ooo`0@0?ooo`030000003oool0oooo02l0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0f0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool0603oool0 0`000000oooo0?ooo`0g0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0H0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool0603oool0 0`000000oooo0?ooo`0f0?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03D0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0f0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0f0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0H0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`1O0?ooo`00303oool010000000oooo0?ooo`00000;0?ooo`030000003oool0 oooo0100oooo2P00000W0?ooo`030000003oool0oooo01X0oooo00<000000?ooo`3oool0=@3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0e0?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0e0?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool0=P3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0e0?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool0=@3oool0 0`000000oooo0?ooo`0J0?ooo`030000003oool0oooo03D0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0f0?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool0=@3oool0 0`000000oooo0?ooo`0I0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool06@3oool0 0`000000oooo0?ooo`0f0?ooo`030000003oool0oooo07/0oooo00060?ooo`@000000P3oool01000 0000oooo0?ooo`0000080?ooo`<000004`3oool00`000000oooo0?ooo`0^0?ooo`030000003oool0 oooo01/0oooo00<000000?ooo`3oool0=03oool00`000000oooo0?ooo`0J0?ooo`030000003oool0 oooo03@0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?ooo`0d0?ooo`030000003oool0 oooo01X0oooo00<000000?ooo`3oool0=@3oool00`000000oooo0?ooo`0J0?ooo`030000003oool0 oooo03@0oooo00<000000?ooo`3oool06P3oool00`000000oooo0?ooo`0e0?ooo`030000003oool0 oooo01X0oooo00<000000?ooo`3oool0=03oool00`000000oooo0?ooo`0K0?ooo`030000003oool0 oooo03@0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?ooo`0c0?ooo`030000003oool0 oooo01/0oooo00<000000?ooo`3oool0=03oool00`000000oooo0?ooo`0J0?ooo`030000003oool0 oooo03@0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?ooo`0d0?ooo`030000003oool0 oooo01/0oooo00<000000?ooo`3oool0=03oool00`000000oooo0?ooo`0J0?ooo`030000003oool0 oooo03@0oooo00<000000?ooo`3oool06P3oool00`000000oooo0?ooo`0e0?ooo`030000003oool0 oooo07`0oooo000<0?ooo`040000003oool0oooo000000P0oooo00<000000?ooo`3oool04`3oool0 0`000000oooo0?ooo`0]0?ooo`030000003oool0oooo01`0oooo00<000000?ooo`3oool0<`3oool0 0`000000oooo0?ooo`0K0?ooo`030000003oool0oooo03@0oooo00<000000?ooo`3oool06`3oool0 0`000000oooo0?ooo`0c0?ooo`030000003oool0oooo01/0oooo00<000000?ooo`3oool0=03oool0 0`000000oooo0?ooo`0K0?ooo`030000003oool0oooo03@0oooo00<000000?ooo`3oool06`3oool0 0`000000oooo0?ooo`0c0?ooo`030000003oool0oooo01/0oooo00<000000?ooo`3oool0=03oool0 0`000000oooo0?ooo`0K0?ooo`030000003oool0oooo03@0oooo00<000000?ooo`3oool06`3oool0 0`000000oooo0?ooo`0c0?ooo`030000003oool0oooo01/0oooo00<000000?ooo`3oool0=03oool0 0`000000oooo0?ooo`0K0?ooo`030000003oool0oooo03<0oooo00<000000?ooo`3oool06`3oool0 0`000000oooo0?ooo`0d0?ooo`030000003oool0oooo01/0oooo00<000000?ooo`3oool0<`3oool0 0`000000oooo0?ooo`0K0?ooo`030000003oool0oooo03@0oooo00<000000?ooo`3oool06`3oool0 0`000000oooo0?ooo`0d0?ooo`030000003oool0oooo07`0oooo000<0?ooo`040000003oool0oooo 000000P0oooo00<000000?ooo`3oool04`3oool7000002T0oooo00<000000?ooo`3oool07@3oool0 0`000000oooo0?ooo`0b0?ooo`030000003oool0oooo01`0oooo00<000000?ooo`3oool003oool00`00 0000oooo0?ooo`0H0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool05`3oool00`00 0000oooo0?ooo`0g0?ooo`030000003oool0oooo01L0oooo00<000000?ooo`3oool0>03oool00`00 0000oooo0?ooo`0G0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool0603oool00`00 0000oooo0?ooo`0g0?ooo`030000003oool0oooo01L0oooo00<000000?ooo`3oool0>03oool00`00 0000oooo0?ooo`0G0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool0603oool00`00 0000oooo0?ooo`0f0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=`3oool00`00 0000oooo0?ooo`0G0?ooo`030000003oool0oooo03P0oooo00<000000?ooo`3oool05`3oool00`00 0000oooo0?ooo`0g0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0=`3oool00`00 0000oooo0?ooo`0G0?ooo`030000003oool0oooo08/0oooo000<0?ooo`040000003oool0oooo0000 00P0oooo00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo 01H0oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`0F0?ooo`030000003oool0oooo 03P0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0oooo 01H0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo 03P0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo 01L0oooo00<000000?ooo`3oool0=`3oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo 03P0oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo 01H0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo 03P0oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo 01H0oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo 03P0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo 01L0oooo00<000000?ooo`3oool0R`3oool000d0oooo0P0000090?ooo`@000004P3oool700000080 oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0oooo01D0 oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo03X0 oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0oooo01D0 oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo03X0 oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0oooo01H0 oooo00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo03X0 oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`0i0?ooo`030000003oool0oooo01H0 oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`0F0?ooo`030000003oool0oooo03T0 oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`0j0?ooo`030000003oool0oooo01D0 oooo00<000000?ooo`3oool0>P3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo03T0 oooo00<000000?ooo`3oool05@3oool00`000000oooo0?ooo`2<0?ooo`00;P3oool00`000000oooo 0?ooo`070?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>`3oool00`000000oooo 0?ooo`0D0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool0503oool00`000000oooo 0?ooo`0k0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>P3oool00`000000oooo 0?ooo`0E0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool0503oool00`000000oooo 0?ooo`0j0?ooo`030000003oool0oooo01D0oooo00<000000?ooo`3oool0>@3oool00`000000oooo 0?ooo`0E0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool05@3oool00`000000oooo 0?ooo`0j0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>P3oool00`000000oooo 0?ooo`0E0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool05@3oool00`000000oooo 0?ooo`0j0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0>P3oool00`000000oooo 0?ooo`0E0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool0503oool00`000000oooo 0?ooo`0j0?ooo`030000003oool0oooo01D0oooo00<000000?ooo`3oool0S03oool002h0oooo00<0 00000?ooo`3oool01`3oool00`000000oooo0?ooo`0D0?ooo`030000003oool0oooo03/0oooo00<0 00000?ooo`3oool04`3oool00`000000oooo0?ooo`0k0?ooo`030000003oool0oooo01<0oooo00<0 00000?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo03`0oooo00<0 00000?ooo`3oool04`3oool00`000000oooo0?ooo`0k0?ooo`030000003oool0oooo01<0oooo00<0 00000?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo03/0oooo00<0 00000?ooo`3oool0503oool00`000000oooo0?ooo`0k0?ooo`030000003oool0oooo01<0oooo00<0 00000?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo03/0oooo00<0 00000?ooo`3oool04`3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo01<0oooo00<0 00000?ooo`3oool0>`3oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo03`0oooo00<0 00000?ooo`3oool04`3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo0180oooo00<0 00000?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo08d0oooo000^ 0?ooo`L00000103oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03d0oooo00<00000 0?ooo`3oool04P3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo0180oooo00<00000 0?ooo`3oool0?@3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03`0oooo00<00000 0?ooo`3oool04`3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo0180oooo00<00000 0?ooo`3oool0?03oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo03`0oooo00<00000 0?ooo`3oool04P3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo0180oooo00<00000 0?ooo`3oool0?@3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03`0oooo00<00000 0?ooo`3oool04`3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo01<0oooo00<00000 0?ooo`3oool0?03oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo03`0oooo00<00000 0?ooo`3oool04`3oool00`000000oooo0?ooo`0l0?ooo`030000003oool0oooo0180oooo00<00000 0?ooo`3oool0?@3oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo08d0oooo000^0?oo o`030000003oool0oooo00P0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`0m0?oo o`030000003oool0oooo0140oooo00<000000?ooo`3oool0?@3oool00`000000oooo0?ooo`0A0?oo o`030000003oool0oooo03h0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`0n0?oo o`030000003oool0oooo0140oooo00<000000?ooo`3oool0?@3oool00`000000oooo0?ooo`0A0?oo o`030000003oool0oooo03h0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`0m0?oo o`030000003oool0oooo0140oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0A0?oo o`030000003oool0oooo03h0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`0m0?oo o`030000003oool0oooo0140oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0A0?oo o`030000003oool0oooo03h0oooo00<000000?ooo`3oool0403oool00`000000oooo0?ooo`0n0?oo o`030000003oool0oooo0140oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0@0?oo o`030000003oool0oooo03h0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`2>0?oo o`00;P3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0?`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo03h0oooo00<000000?ooo`3o ool0403oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3o ool0?`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo03l0oooo00<000000?ooo`3o ool0403oool00`000000oooo0?ooo`0n0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0?`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo03l0oooo00<000000?ooo`3o ool03`3oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0?`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3o ool03`3oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0?P3oool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo03h0oooo00<000000?ooo`3o ool0403oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3o ool0SP3oool002h0oooo1`0000050?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0 ?`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3oool0 3P3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool0 @03oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3oool0 3P3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool0 ?`3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3oool0 3P3oool00`000000oooo0?ooo`110?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0 @03oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3oool0 3`3oool00`000000oooo0?ooo`100?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0 @03oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3oool0 3P3oool00`000000oooo0?ooo`110?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0 S`3oool002h0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0>0?ooo`030000003o ool0oooo0440oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`100?ooo`030000003o ool0oooo00h0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0=0?ooo`030000003o ool0oooo0440oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`110?ooo`030000003o ool0oooo00d0oooo00<000000?ooo`3oool0@P3oool00`000000oooo0?ooo`0=0?ooo`030000003o ool0oooo0440oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`120?ooo`030000003o ool0oooo00d0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0>0?ooo`030000003o ool0oooo0440oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`120?ooo`030000003o ool0oooo00d0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0=0?ooo`030000003o ool0oooo0480oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`100?ooo`030000003o ool0oooo00h0oooo00<000000?ooo`3oool0@@3oool00`000000oooo0?ooo`0=0?ooo`030000003o ool0oooo0900oooo000^0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool0303oool0 0`000000oooo0?ooo`130?ooo`030000003oool0oooo00/0oooo0P0000140?ooo`030000003oool0 oooo00`0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0 oooo0480oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`130?ooo`030000003oool0 oooo00`0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0;0?ooo`030000003oool0 oooo04<0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`130?ooo`030000003oool0 oooo00/0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0 oooo04<0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`120?ooo`030000003oool0 oooo00`0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0 oooo0480oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`120?ooo`030000003oool0 oooo00`0oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0 oooo0900oooo000^0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool02P3oool00`00 0000oooo0?ooo`150?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0A@3oool00`00 0000oooo0?ooo`0:0?ooo`030000003oool0oooo04D0oooo00<000000?ooo`3oool02P3oool00`00 0000oooo0?ooo`140?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0A03oool00`00 0000oooo0?ooo`0;0?ooo`030000003oool0oooo04D0oooo00<000000?ooo`3oool02@3oool00`00 0000oooo0?ooo`150?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0A@3oool00`00 0000oooo0?ooo`0:0?ooo`030000003oool0oooo04@0oooo00<000000?ooo`3oool02P3oool00`00 0000oooo0?ooo`150?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0A03oool00`00 0000oooo0?ooo`0;0?ooo`030000003oool0oooo04@0oooo00<000000?ooo`3oool02P3oool00`00 0000oooo0?ooo`140?ooo`800000303oool00`000000oooo0?ooo`140?ooo`030000003oool0oooo 00X0oooo00<000000?ooo`3oool0A03oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo 0940oooo000^0?ooo`L000002@3oool00`000000oooo0?ooo`080?ooo`030000003oool0oooo04L0 oooo00<000000?ooo`3oool0203oool00`000000oooo0?ooo`160?ooo`030000003oool0oooo00T0 oooo00<000000?ooo`3oool0AP3oool00`000000oooo0?ooo`080?ooo`030000003oool0oooo04H0 oooo00<000000?ooo`3oool0203oool00`000000oooo0?ooo`160?ooo`8000002`3oool00`000000 oooo0?ooo`150?ooo`030000003oool0oooo00P0oooo00<000000?ooo`3oool0A`3oool00`000000 oooo0?ooo`080?ooo`030000003oool0oooo04H0oooo00<000000?ooo`3oool02@3oool00`000000 oooo0?ooo`160?ooo`030000003oool0oooo00P0oooo00<000000?ooo`3oool0A`3oool00`000000 oooo0?ooo`090?ooo`030000003oool0oooo04D0oooo00<000000?ooo`3oool0203oool2000004P0 oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`160?ooo`030000003oool0oooo00P0 oooo00<000000?ooo`3oool0AP3oool00`000000oooo0?ooo`080?ooo`030000003oool0oooo04H0 oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`2B0?ooo`00603oool400000180oooo 00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo04T0oooo 00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`180?ooo`030000003oool0oooo00H0oooo 0P00001:0?ooo`030000003oool0oooo00D0oooo0P00001:0?ooo`030000003oool0oooo00L0oooo 00<000000?ooo`3oool0B03oool00`000000oooo0?ooo`060?ooo`800000B@3oool2000000L0oooo 00<000000?ooo`3oool0B@3oool00`000000oooo0?ooo`060?ooo`800000B@3oool2000000P0oooo 00<000000?ooo`3oool0B03oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo04T0oooo 00<000000?ooo`3oool01@3oool3000004T0oooo0P0000060?ooo`800000B`3oool00`000000oooo 0?ooo`060?ooo`800000B@3oool00`000000oooo0?ooo`070?ooo`030000003oool0oooo04P0oooo 00<000000?ooo`3oool01@3oool2000004X0oooo00<000000?ooo`3oool01`3oool00`000000oooo 0?ooo`2C0?ooo`006P3oool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo00l0oooo0P00 00040?ooo`800000C@3oool2000000<0oooo0`00001<0?ooo`030000003oool0oooo00<0oooo0P00 001=0?ooo`<000000`3oool00`000000oooo0?ooo`1;0?ooo`8000001@3oool2000004`0oooo0`00 00030?ooo`800000C@3oool2000000<0oooo0P00001=0?ooo`800000103oool2000004d0oooo0P00 00040?ooo`800000C03oool2000000@0oooo0P00001=0?ooo`8000000`3oool2000004h0oooo00<0 00000?ooo`3oool00P3oool00`000000oooo0?ooo`1<0?ooo`800000103oool2000004`0oooo0P00 00050?ooo`800000C03oool3000000<0oooo00<000000?ooo`3oool0B`3oool2000000H0oooo00<0 00000?ooo`3oool0U03oool001X0oooo00<000000?ooo`3oool04@3oool:000000X0oooo1000001A 0?ooo`<00000D03oool500000580oooo0`00001@0?ooo`D00000D@3oool300000540oooo1000001@ 0?ooo`@00000D@3oool400000500oooo1000001A0?ooo`<00000D@3oool400000540oooo1000001@ 0?ooo`D00000D@3oool300000500oooo1P00002G0?ooo`006P3oool00`000000oooo0?ooo`0A0?oo o`030000003oool0oooo0?l0ooooo`3ooooo0?ooool0ooooo`3ooonW0?ooo`006P3oool00`000000 oooo0?ooo`0A0?ooo`030000003oool0oooo0?l0ooooo`3ooooo0?ooool0ooooo`3ooonW0?ooo`00 603oool300000?l0ooooo`3ooooo0?ooool0ooooo`3ooonm0?ooo`006P3oool00`000000oooo0?oo o`3o0?ooool0ooooo`3ooooo0?ooool0oooo^`3oool00001\ \>"], ImageRangeCache->{{{-58.125, 1490}, {76.3125, 0}} -> {-3.47934, -1.13374, \ 0.0742826, 0.029713}}], Cell[TextData[{ StyleBox["Note:", FontSlant->"Italic"], " a common problem encountered by beginners is suddenly \"losing\" their \ work; a lot of their cells just seem to go blank. What happens is that they \ click by accident in the scroll bar at the bottom, which moves their work out \ of the window to the left. Try clicking in the right half of the scroll bar \ below, and see how even the wide picture above disappears. Then get it \ back." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Text Size", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "One common issue is the size of the text. I usually make it 14point, as \ in this sentence. ", StyleBox["But the default size for new Notebooks is only 12point, like the \ rest of this paragraph, which some people find difficult or tiring to read. \ Notebooks produced by other people with the default settings will often use \ this size. If you have to read a Notebook in which the type is painfully \ small, the easiest thing to do is to enlarge the whole thing, using the ", FontSize->12], StyleBox["Magnification", FontSize->12, FontWeight->"Bold"], StyleBox[" command on the ", FontSize->12], StyleBox["Format", FontSize->12, FontWeight->"Bold"], StyleBox[" menu. But that may give poorly rendered characters in some \ cases. Try it.", FontSize->12] }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Cells", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["General structure", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "A Notebook is divided into ", StyleBox["cells", FontSlant->"Italic"], ". Cells are often grouped together, and cell groups may be grouped into \ further groups. Grouping is shown by the presence of multiple cell brackets \ at the right hand side, displaying the hierarchy of groups in an obvious \ way." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ The group structure is sometimes used for functional reasons (e.g. \ to group a set of expressions which must be evaluated together), but is \ mainly to make it easy for the reader. A well-designed Notebook is its own \ table of contents, and is easy to navigate at all levels of detail.\ \>", \ "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Cells themselves come in many different types, and have lots of possible \ ", StyleBox["attributes", FontSlant->"Italic"], " which control how they are displayed and treated. Some of these types \ and attributes are shown by the shape of the ", StyleBox["cell bracket", FontSlant->"Italic"], ", but others are less obvious." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ To be an efficient Notebook reader (or creator), it is crucial to \ have a firm understanding of cells and groups. It will also leave you \ feeling much more in control of your work.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Opening groups", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ If you're reading this, then you've already mastered opening up \ closed groups of cells by double-clicking on the \"arrow\" cell bracket. \ Practice opening and closing groups in this Notebook. Note carefully how the \ outer bracket changes when you open or close a group.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ When you open a new Notebook, you'll often find that all levels of \ groups are closed, so you just see the top level structure. Other authors \ may decide to leave some of the lower levels open. It's an aesthetic choice, \ and shouldn't give you any trouble either way.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Open/Close All Subgroups", "Subsection"], Cell[TextData[{ "You can also consider using the ", StyleBox["Open All Subgroups", FontWeight->"Bold"], " command in the ", StyleBox["Cell Grouping", FontWeight->"Bold"], " submenu of the ", StyleBox["Cell", FontWeight->"Bold"], " menu. You can apply that to any set of cells at any level of the \ hierarchy (first select them, as described below). You can even apply it to \ the whole Notebook by using ", StyleBox["Select All", FontWeight->"Bold"], " on the ", StyleBox["Edit", FontWeight->"Bold"], " menu first. But that's usually a bad idea; the author of the Notebook \ has typically left some cells open and some closed for a good reason. I'd \ suggest using ", StyleBox["Open All Subgroups", FontWeight->"Bold"], " sparingly if at all. Do ", StyleBox["not", FontSlant->"Italic"], " use it on this Notebook (if you really can't resist, use it only on \ sections you've already read)." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Similarly with ", StyleBox["Close All Subgroups", FontWeight->"Bold"], ", though that can be quite useful if you're writing your own Notebook and \ not doing any strange grouping." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Selecting cells", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "You can ", StyleBox["select", FontSlant->"Italic"], " a cell by clicking (singly, not doubly) on its bracket. This applies to \ groups as well as to individual cells. To deselect a cell or cells, just \ click somewhere else. Try it." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ You can also select several adjacent cells by (a) clicking on one, \ and (b) shift-clicking on another. (To \"shift-click\" is to hold down the \ Shift key while clicking.) Try this. See what happens when you include open \ or closed groups, or parts thereof, and what happens if you select all cells \ in a group.\ \>", "Text"], Cell["Selecting cells is useful for three main reasons:", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["1. To evaluate them. We'll get to this soon.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. To move or copy them from one place to another (using ", StyleBox["Cut", FontWeight->"Bold"], ", ", StyleBox["Copy", FontWeight->"Bold"], ", and ", StyleBox["Paste", FontWeight->"Bold"], " on the ", StyleBox["Edit", FontWeight->"Bold"], " menu)." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. To print them. Look at the ", StyleBox["File", FontWeight->"Bold"], " menu---you can either use ", StyleBox["Print...", FontWeight->"Bold"], " to print the whole Notebook, or you can use ", StyleBox["Print Selection...", FontWeight->"Bold"], " to print a set of selected cells. ", StyleBox["Print Selection...", FontWeight->"Bold"], " will be dimmed if you don't have any cells selected." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Types of cells, and cell brackets", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["We've only seen two types of cells so far:", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 1. Cell groups indicated by a plain bracket, or by an arrow bracket \ if closed.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. ", StyleBox["Text", FontSlant->"Italic"], " cells (like this one), shown by a little horizontal tick line near the \ top of the cell bracket. Actually the horizontal tick technically means that \ the cell is ", StyleBox["inactive", FontSlant->"Italic"], " - it cannot be evaluated as a ", StyleBox["Mathematica", FontSlant->"Italic"], " expression. ", StyleBox["Graphics", FontSlant->"Italic"], " cells use the same type of brackets since they're also inactive. " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Here are some more types of cells:", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. The next cell is an ", StyleBox["input", FontSlant->"Italic"], " cell--one that ", StyleBox["can", FontSlant->"Italic"], " be evaluated. Note the \"triangle\" bracket, which means that the cell \ contains mathematics. When you're working through notebooks (at least the \ ones that I write), you're normally expected to evaluate all input cells in \ the order they appear, unless they've already been evaluated for you. You \ can recognize them either by the triangle bracket or by the heavy type. \ Evaluate this one now by selecting it and pressing the ", StyleBox["Enter", FontWeight->"Bold"], " key at the bottom right of your keyboard (or ", StyleBox["Shift-Return", FontWeight->"Bold"], "). It may take a while because ", StyleBox["Mathematica", FontSlant->"Italic"], " has to start up its kernel if this is the first thing you've evaluated. \ While that's happening, note the ", StyleBox["Running...", FontWeight->"Bold"], " in the title bar of this window." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(e = Expand[\((1 + x)\)\^10]\)], "Input", AspectRatioFixed->True], Cell[TextData[{ "4. Observe that this produced a new type of cell for the output, called an \ ", StyleBox["output", FontSlant->"Italic"], " cell. It has both a triangle (showing it contains mathematics) and a \ tick (showing it's inactive). Note also that the input and output cells were \ automatically grouped together. You can close the group if you like. \ Finally note the ", StyleBox["In[1]:=", FontSlant->"Italic"], " and ", StyleBox["Out[1]=", FontSlant->"Italic"], " names that were automatically added by ", StyleBox["Mathematica", FontSlant->"Italic"], ". You can actually turn these off with ", StyleBox["Show In/Out Names", FontWeight->"Bold"], " on the ", StyleBox["Kernel", FontWeight->"Bold"], " menu, but you'll normally find it useful to leave them on." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 5. There are some other cell types that you won't normally run \ into, including locked cells, fixed height cells, initialization cells, \ active cells, and sound cells. \ \>", "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["The Cursor", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "If you move the cursor over a ", StyleBox["Mathematica", FontSlant->"Italic"], " Notebook, you'll see it change in all sorts of weird ways. It's worth \ understanding these different cursor types. The most important ones are:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "1. The vertical I-bar cursor---e.g. point to this text. This indicates \ that you can edit the text; if you click you get a ", StyleBox["text insertion point", FontSlant->"Italic"], ", a blinking vertical bar. Try it." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. The horizontal I-bar cursor---e.g. point to the gap between two cells. \ This indicates that you can insert a cell; if you click you get a ", StyleBox["cell insertion point", FontSlant->"Italic"], "; a horizontal bar across the Notebook. Try it. Note the parallel \ between this case (cell insertion) and the previous one (text insertion)." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["3. The cell bracket cursor---e.g. point to a cell bracket.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 4. The ordinary arrow cursor---e.g. point to a menu item. This \ appears whenever you're outside the main Notebook window.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "5. The various graphics cursors. We'll discuss these in the ", StyleBox["Graphics", FontWeight->"Bold"], " section." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Help", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There are several different forms of help available inside ", StyleBox["Mathematica", FontSlant->"Italic"], ":" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["The Help Function Browser", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Select ", StyleBox["Help Browser...", FontWeight->"Bold"], " on the ", StyleBox["Help", FontWeight->"Bold"], " menu. This may take a while the first time you try it. Then explore \ some of the topics, first clicking on one of the options (such as ", StyleBox["Getting Started/Demos", FontWeight->"Bold"], ") at the top, and selecting things in successive columns from left to \ right. Under ", StyleBox["Other Information", FontWeight->"Bold"], ", there's an explanation of all menu commands. The whole big fat \ reference book is under ", StyleBox["The Mathematica Book", FontWeight->"Bold"], ". All ", StyleBox["Mathematica", FontSlant->"Italic"], " functions are defined under ", StyleBox["Built-In Functions", FontWeight->"Bold"], " - look for ", StyleBox["DensityPlot", FontWeight->"Bold"], " under ", StyleBox["Graphics and Sound", FontWeight->"Bold"], " for example. You can also search for headings with the ", StyleBox["GoTo", FontWeight->"Bold"], " button." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Many panels also have their own Help buttons that take you directly \ to the appropriate place in the Help Function Browser.\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Why the Beep?", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "If Mathematica beeps, you can choose the ", StyleBox["Why the Beep?", FontWeight->"Bold"], " command from the ", StyleBox["Help", FontWeight->"Bold"], " menu to get an explanation. For example, try evaluating the following \ expression:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["((1-3x)/2+x) + 5x^4)^3", "Input", AspectRatioFixed->True], Cell[TextData[{ "Note that syntax errors leave the cursor where the error was found, though \ that's not always where the real error occurred; in the above example the \ probable mistake was a missing ", StyleBox["(", FontWeight->"Bold"], " before the ", StyleBox["2", FontWeight->"Bold"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["The ? and ?? Operators", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "If you evaluate a line of the form ", StyleBox["?symbol", FontWeight->"Bold"], " then ", StyleBox["Mathematica", FontSlant->"Italic"], " will show you some information about that symbol. The symbol can be a \ name like ", StyleBox["Sin", FontWeight->"Bold"], " defined in ", StyleBox["Mathematica", FontSlant->"Italic"], ", a symbol that you have defined previously, or an operator (like ", StyleBox[":=", FontWeight->"Bold"], "). Here are some examples:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(?? DensityPlot\)], "Input"], Cell[BoxData[ \(\(?Mesh\)\)], "Input"], Cell[BoxData[ \(?? e\)], "Input"], Cell[BoxData[ \(?? :=\)], "Input"], Cell[TextData[{ "Some times, there is more information from the ", StyleBox["Help", FontWeight->"Bold"], ", with \"", StyleBox["More...", FontVariations->{"Underline"->True}], "\". Try it." }], "Text"], Cell[TextData[{ "The information given for a symbol that you've used earlier (like ", StyleBox["e", FontWeight->"Bold"], ", which we defined in the very first evaluation) includes its full name. \ In this case the full name is ", StyleBox["Global`e", FontWeight->"Bold"], " because we defined ", StyleBox["e", FontWeight->"Bold"], " in the ", StyleBox["Global`", FontWeight->"Bold"], " context. Don't worry about contexts for now." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ " ", StyleBox["??", FontWeight->"Bold"], StyleBox["symbol", FontSlant->"Italic"], " is the same as ", StyleBox["?", FontWeight->"Bold"], StyleBox["symbol", FontSlant->"Italic"], ", except that more information may be given. Try changing each of the \ above ", StyleBox["?", FontWeight->"Bold"], "'s to ", StyleBox["??", FontWeight->"Bold"], "'s, and evaluating again. Note that if you've just been editing a cell, \ so there's a text insertion point (blinking bar) within it, then you can just \ press ", StyleBox["Enter", FontWeight->"Bold"], " to evaluate the cell; you don't need to select the cell bracket \ explicitly." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "In the case of ", StyleBox["?", FontWeight->"Bold"], StyleBox["symbol", FontSlant->"Italic"], ", you can also use a * as a wild-card (matching any sequence of ordinary \ characters) within ", StyleBox["symbol", FontSlant->"Italic"], ". If more than one symbol known to ", StyleBox["Mathematica", FontSlant->"Italic"], " is matched, then you just get a list of the matches. For example:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(?Infin*\)\)], "Input"], Cell[BoxData[ \(\(?List*\)\)], "Input"], Cell[BoxData[ \(\(?*Label\)\)], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Expression Evaluation", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "We've already learned how to evaluate expressions by selecting their \ cells, or by putting the text insertion point within them, and then pressing \ ", StyleBox["Enter", FontWeight->"Bold"], " (or Shift-Return). But there are several issues deserving a bit more \ attention." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["What to evaluate", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ In a Notebook that someone else has prepared, you'll normally want \ to evaluate every expression that hasn't already been evaluated for you. You \ recognize these by looking for triangle cell brackets that are not already \ grouped with the corresponding output.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Following are three examples: which of them should you evaluate? \ Obviously not the first, which already has its output displayed. Nor the \ last, which has its output hidden in a closed group; you can just open the \ group to see the result. The closed group approach is sometimes used in \ Notebooks so that you have to uncover the \"answer\" (perhaps after thinking \ about it first?), but don't have to wait for its computation. So only the \ second would need evaluation.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[x^2\ == \ 1, \ x]\)], "Input"], Cell[BoxData[ \({{x \[Rule] \(-1\)}, {x \[Rule] 1}}\)], "Output"] }, Open ]], Cell[BoxData[ \(Solve[x^3\ == \ 1, \ x]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[x^4\ == \ 1, \ x]\)], "Input"], Cell[BoxData[ \({{x \[Rule] \(-1\)}, {x \[Rule] \(-I\)}, {x \[Rule] I}, {x \[Rule] 1}}\)], "Output"] }, Closed]], Cell[TextData[{ StyleBox["The order of evaluation is often crucial. Usually the Notebook \ author expects you to evaluate the appropriate cells ", Background->GrayLevel[0.900008]], StyleBox["in order", FontSlant->"Italic", Background->GrayLevel[0.900008]], StyleBox[".", Background->GrayLevel[0.900008]] }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Evaluate Notebook? --- No", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There's a very tempting command on the ", StyleBox["Evaluation", FontWeight->"Bold"], " submenu of the ", StyleBox["Kernel", FontWeight->"Bold"], " menu called ", StyleBox["Evaluate Notebook", FontWeight->"Bold"], ". It will evaluate everything that it can in the whole Notebook, in \ order. ", StyleBox["But this is a bad idea", FontSlant->"Italic"], ". In many cases it won't work properly, because the Notebook author \ expected you to change or complete some expressions before evaluating them, \ or because intentional errors were introduced for illustration, or because \ some parameters need to be set at certain places before continuing. Even if \ it does work, it will reevaluate expressions that may have already been \ evaluated for you, typically because they were very slow (I've sometimes \ included pictures that take an hour to evaluate). And in any case, you'll \ almost certainly learn more by evaluating the expressions individually, \ especially if you think about what to expect while waiting for each \ evaluation." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Interrupting Evaluations", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Sooner or later you'll ask ", StyleBox["Mathematica", FontSlant->"Italic"], " to do something that will take longer than you're prepared to wait. Or \ maybe you'll hit an infinite loop, either through your own mistake or by \ hitting a bug. In any case, you'll want to try to stop ", StyleBox["Mathematica", FontSlant->"Italic"], ", preferably without losing recent changes to your Notebook. \ Unfortunately ", StyleBox["Mathematica", FontSlant->"Italic"], " is notoriously hard to stop non-destructively, although sometimes it'll \ be okay. In general you should folow the following steps:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Interrupt Evaluation, Abort Evaluation", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "The first thing to try is the ", StyleBox["Interrupt Evaluation...", FontWeight->"Bold"], " command on the ", StyleBox["Kernel", FontWeight->"Bold"], " menu (assuming menu selection is working). That should temporarily stop \ the calculation. Then you can try using the ", StyleBox["Abort", FontWeight->"Bold"], " button to abort it (or the ", StyleBox["Trace", FontWeight->"Bold"], " button to watch what's happening). ", StyleBox["Give the Abort button at least a minute to take effect", FontSlant->"Italic"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Alternatively you can just use the ", StyleBox["Abort Evaluation", FontWeight->"Bold"], " command on the ", StyleBox["Kernel", FontWeight->"Bold"], " menu, which does the above two steps in one." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Even if your cursor is not responding properly, you might still be able to \ use ", StyleBox["Abort Evaluation", FontWeight->"Bold"], " command via its keyboard equivalent, Command-. (Command-period)." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Don't forget this one: try Command-period to abort", "Text", CellFrame->True, CellMargins->{{72, 162}, {Inherited, Inherited}}, Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Quit Kernel", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Often the ", StyleBox["Abort", FontWeight->"Bold"], " button (or the equivalent ", StyleBox["Abort Evaluation", FontWeight->"Bold"], " command on the ", StyleBox["Kernel", FontWeight->"Bold"], " submenu) won't work. In that case the next best choice is aborting the \ Kernel with the ", StyleBox["Quit Kernel", FontWeight->"Bold"], " command on the ", StyleBox["Kernel", FontWeight->"Bold"], " menu." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ If you do have to quit the kernel, you'll lose definitions that you \ made in the current session, but your Notebook should remain intact.\ \>", \ "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Quit Mathematica", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "If neither of the above approaches work, you're going to have to quit ", StyleBox["Mathematica", FontSlant->"Italic"], " itself, and will lose any changes you made to your Notebook since you \ last saved it. Try selecting Quit from the main menu or using the Command-q \ keyboard equivalent." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Log out", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "If nothing in ", StyleBox["Mathematica", FontSlant->"Italic"], " works, you can probably get out by clicking on something else on the \ screen. If that works you can now kill ", StyleBox["Mathematica", FontSlant->"Italic"], " by logging out (on a network computer) or rebooting (on a personal \ computer)." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Graphics", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There are several ", StyleBox["Mathematica", FontSlant->"Italic"], " commands that produce graphical output, including ", StyleBox["Plot[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["Plot3D[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["ListPlot[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["ParametricPlot[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " etc." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Also there are several further packages available for more specialized \ types of plots and pictures, like maps, histograms, pie charts, polar plots, \ log-log plots, projections, vector fields, complex mappings, polyhedra, \ surfaces of revolution, and so on. These packages are documented in the ", StyleBox["Mathematica 4 Standard Add-On Packages", FontSlant->"Italic"], " and in the ", StyleBox["Add-ons", FontWeight->"Bold"], " section of the Help Function Browser. Make sure you look there before \ concluding that ", StyleBox["Mathematica", FontSlant->"Italic"], " doesn't have what you need In particular, the package ", StyleBox["Graphics`MultipleListPlot`", FontWeight->"Bold"], " provides facilities for data plotting when you want to show more than one \ curve on the same plot, which isn't easy with the built-in ", StyleBox["ListPlot[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ". " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Moving, resizing, and clipping graphics", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Once you have produced some graphical output, you can manipulate it \ in three ways: moving, resizing, and clipping. Here's an example graphic to \ play with (evaluate it):\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(Plot3D[x\^2 - y\^2, {x, \(-1\), 1}, {y, \(-1\), 1}]\)], "Input", AspectRatioFixed->True], Cell["\<\ Now try the following:\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tHey, you're way \ off the right edge of the normal window. Look at the horizontal scroll bar. \ Here be dragons. I formatted this cell specially to warn you. Just where do \ you think you're going? There's nothing more here. Scroll back <<<<<<< \ Scroll back <<<<<<<< Scroll back <<<<<<<<< Scroll back <<<<<<<<\ \>", "Text", PageWidth->Infinity, Evaluatable->False, CellHorizontalScrolling->True, AspectRatioFixed->True], Cell[TextData[{ "1. Click anywhere within the graphics cell (the one containing the \ picture). Observe that the graphic itself is selected, as shown by the \ rectangular ", StyleBox["bounding box", FontSlant->"Italic"], " around it. Note that selecting the graphic in this way is ", StyleBox["not", FontSlant->"Italic"], " the same as selecting the cell it's in, just as selecting a piece of text \ is not the same as selecting a text cell. Most of the following operations \ require you to select the graphic first." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. After selecting the graphic, move the cursor over it. Note the shape \ of the cursor within the cell and on top of each of the little square ", StyleBox["handles", FontSlant->"Italic"], " on the bounding box." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. Trying dragging while the cursor is within the bounding box (", StyleBox["not", FontSlant->"Italic"], " on a handle). This ", StyleBox["moves", FontSlant->"Italic"], " the graphic. Notice the coordinates given at the bottom of this window, \ which show the location (in ", StyleBox["points", FontSlant->"Italic"], ", 72/inch) of the top left of the bounding box with respect to the top \ left of the cell. What happens if you try to move the graphic off the left, \ right, top, and bottom boundaries of the cell?" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ (Somewhere about now you might want to make another copy of the \ above graphic cell lower down to avoid excessive scrolling up and \ down.)\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "4. Now try dragging on one of the corner or side handles of the bounding \ box. This ", StyleBox["resizes", FontSlant->"Italic"], " the graphic. Note that the size (in points) is given at the bottom of \ the window. Notice that you can't change the shape; the horizontal and \ vertical size always scale together." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "5. Try dragging on one of the corner or side handles with the Command key \ held down. This ", StyleBox["clips", FontSlant->"Italic"], " the graphic, changing its bounding box without changing its size. Any \ part of the image outside the bounding box disappears." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ " ", StyleBox["Note:", FontSlant->"Italic"], " this may not work if Command-mouse has been defined to do something else. \ If you have your KDE desktop then you can change: Control Center -> Look & \ Feel -> Window Behavior -> Actions -> Modifier Key + Left Button: Nothing. " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "6. Select ", StyleBox["Make Standard Size", FontWeight->"Bold"], " from the ", StyleBox["Cell", FontWeight->"Bold"], " menu. This resets everything." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 7. Finally, here's another graphic to play with (evaluate it, \ below). Combine any of the above operations to produce something weird \ looking (e.g., make it tiny) Then reevaluate it. Surprised? The properties \ of the Graphics cell are retained until you change them. Of course, \ evaluating the same expression anywhere else would go back to default \ options.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(ParametricPlot3D[{Sin[t], Cos[t], z}, {t, 0, 2\ \[Pi]}, {z, 0, 1}]\)], "Input", AspectRatioFixed->True], Cell[TextData[{ "By the way, you might have noticed that the reevaluation was faster than \ the first. That's often true, because ", StyleBox["Mathematica", FontSlant->"Italic"], " stores tables of partial results from some evaluations, and reuses them \ when appropriate." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Graphical input", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Here's a graph of two functions that cross several times (evaluate \ it):\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(Plot[{Sin[x], x\/\(6\ \[Pi]\)}, {x, 0, 7\ \[Pi]}]\)], "Input", AspectRatioFixed->True], Cell[TextData[{ "How could we determine the crossing points? There are various numerical \ approaches that could be used (such as ", StyleBox["Mathematica", FontSlant->"Italic"], "'s ", StyleBox["FindRoot[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "), but we should be able to get reasonable approximations by reading \ points off the graph. ", StyleBox["Mathematica", FontSlant->"Italic"], " makes this easy for us:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["1. Select the graphic (click in it).", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. ", StyleBox["Hold down the Command key", FontSlant->"Italic"], " and move the cursor around over the graph. Note that the cursor changes \ shape and that its coordinates are shown in the cell at bottom right. The \ coordinates are in our own units (at least for 2D graphics; for 3D graphics \ they're in some projected units, which are less useful)." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 3. See how accurately you can determine the first crossing point; \ your precision is limited by the screen resolution (and also by the plotting \ algorithm). You could enlarge the graphic and try again.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "You can also copy into your Notebook the coordinate values you determine \ with the cursor. ", StyleBox["Note", FontSlant->"Italic"], ": this probably won't work if clipping graphics didn't earlier. You \ follow the above procedure (steps 1-3), and then ", StyleBox["click", FontSlant->"Italic"], " when you're at the desired point. Try it at an arbitrary point in the \ graph above; you'll see a faint point left behind. Now use ", StyleBox["Copy", FontWeight->"Bold"], " (from the ", StyleBox["Edit", FontWeight->"Bold"], " menu, or Command-C) while the graphic is still selected; this puts the \ coordinates on the Clipboard. Finally, click at the end of the following \ expression, and use ", StyleBox["Paste", FontWeight->"Bold"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["mypoint = ", "Input", AspectRatioFixed->True], Cell[TextData[{ "You can also do this with several points at once, in which case you get a \ list of coordinate pairs. You can even ", StyleBox["drag", FontSlant->"Italic"], " across the graph to get a whole series of points. Try it. Don't forget \ the Command key, and don't omit the ", StyleBox["Copy", FontWeight->"Bold"], " step, which is easily forgotten." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["The 3D ViewPoint selector", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "When you make 3D plots with ", StyleBox["Plot3D[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", ", StyleBox["ParametricPlot3D[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", or ", StyleBox["ListPlot3D[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", the three dimensional object is drawn from the perspective of a \ particular point called the ", StyleBox["ViewPoint", FontWeight->"Bold"], ". The default is a point at x = 1.3, y = -2.4, z = 2 (with respect to a 1 \ by 1 by 1 box) that is usually reasonable. But in the following perverse \ example, the default ViewPoint actually gives a very deceptive picture, \ because it doesn't show the hole. Evaluate it to see what I mean." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(ParametricPlot3D[{Sin[v]\ Cos[u], Sin[v]\ Sin[u], Cos[v]}, {u, 0, 2\ \[Pi]}, {v, 0, \(3\ \[Pi]\)\/4}]\)], "Input", AspectRatioFixed->True], Cell["\<\ You can change to a different ViewPoint by adding an option of the \ form\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "ViewPoint->{", StyleBox["x", FontSlant->"Italic"], ", ", StyleBox["y", FontSlant->"Italic"], ", ", StyleBox["z", FontSlant->"Italic"], "}" }], "Print", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ to the above command, but figuring out an appropriate set of \ ViewPoint parameters to get a particular view is not easy to do by hand. \ Luckily it's not necessary, because you can use the 3D ViewPoint selector to \ do it visually.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Let's try it. First bring up the 3D ViewPoint selector by selecting it \ from the ", StyleBox["Input", FontWeight->"Bold"], " menu. Move it to somewhere convenient on the screen if necessary (drag \ its title bar). Play with the three slider bars and the Coordinate system \ buttons to see how to select a particular view of the x-y-z sample cube. \ It's usually easiest to rotate the cube using the ", StyleBox["spherical", FontSlant->"Italic"], " coordinate system, so the the sliders control the ", StyleBox["\[Theta]", FontFamily->"Symbol"], ", ", StyleBox["\[Phi]", FontFamily->"Symbol"], ", and r coordinates of the observer. You can also change ", StyleBox["\[Theta]", FontFamily->"Symbol"], " and ", StyleBox["\[Phi]", FontFamily->"Symbol"], " (but not r) by dragging on the cube itself; try it. The ", StyleBox["Defaults", FontWeight->"Bold"], " button puts you back to square one." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ All that the 3D ViewPoint selector does is to let you select \ suitable parameters for the ViewPoint option. Then you can paste them into \ your Notebook. For example, do the following:\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "1. In the above ", StyleBox["ParametricPlot3D", FontWeight->"Bold"], " command, insert a comma (", StyleBox[",", FontWeight->"Bold"], ") right before the final ", StyleBox["]", FontWeight->"Bold"], " and leave the insertion point (blinking vertical bar) there, between the \ comma and the ", StyleBox["]", FontWeight->"Bold"], ". That's where we'll paste in a ViewPoint setting." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 2. Click in the 3D ViewPoint selector, and choose a ViewPoint so \ that you're looking at the sample cube from somewhere below the x-y \ plane.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. Click the ", StyleBox["Paste", FontWeight->"Bold"], " button. This will paste an appropriate ViewPoint option into where we \ left the insertion point in step 1." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "4. Reevaluate the ", StyleBox["ParametricPlot3D", FontWeight->"Bold"], " command." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Animation (movies)", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "The Notebook front-end produces an animation simply by cycling through a \ series of Graphics cells. All you do is select the cells and then use ", StyleBox["Animate Selected Graphics", FontWeight->"Bold"], " from the ", StyleBox["Cell", FontWeight->"Bold"], " menu. The keyboard equivalent Command-y is often useful." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ But if the graphics cells are arranged properly, in a group, it's \ even simpler; all you need to do is to double-click on one of them. For \ example, the following expression evaluates to a sequence of 8 images of a \ rotating spiral. Evaluate it, and then double-click on one of the images. \ You can stop it by clicking anywhere in the Notebook.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(Do[ParametricPlot[{r\ Cos[r + n\ Pi/4], \ r\ Sin[r + n\ Pi/4]}, \ {r, \ 0, \ 8\ Pi}, \ AspectRatio -> Automatic, \ Axes -> False, \n\t\tPlotRange -> {{\(-8\) Pi, 8 Pi}, {\(-8\) Pi, 8 Pi}}], \ {n, 0, 7}]\)], "Input", AnimationDisplayTime->1.31233, AnimationCycleOffset->1, AnimationCycleRepetitions->Infinity], Cell[TextData[{ "While the animation is running, there are several \"tape recorder\" \ controls at the bottom right of the window. The first three control whether \ the order of showing the images is forwards, to-and-fro, or backwards. The \ fourth button is a pause button. The last two are ", StyleBox["slower", FontSlant->"Italic"], " and ", StyleBox["faster", FontSlant->"Italic"], ". You can also use the < and > keys to change the speed. Try all these \ controls." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "If you want to make your own animations, you need to be careful that all \ your images are the same size and in the same position. The ", StyleBox["Align Selected Graphics", FontWeight->"Bold"], " command on the ", StyleBox["Cell", FontWeight->"Bold"], " menu can help to fix this if you don't do it correctly in the first \ place." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Printing", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Printing is pretty straightforward unless you want to mess around \ with controlling where page breaks occur, or want to add fancy headers or \ footers.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "As mentioned earlier, there are two choices on the ", StyleBox["File", FontWeight->"Bold"], " menu: you can either use ", StyleBox["Print...", FontWeight->"Bold"], " to print the whole Notebook, or you can use ", StyleBox["Print Selection...", FontWeight->"Bold"], " to print a set of selected cells. In both cases note that the contents \ of closed groups of cells is ", StyleBox["not", FontSlant->"Italic"], " printed; printing is always supposed to be WYSIWYG (what you see is what \ you get)." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Let's try it. Make a short selection including some visible cells and \ some closed groups, and use ", StyleBox["Print Selection", FontWeight->"Bold"], ". Make sure you tell it print to a printer, and not to a file. Note the \ following: " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["1. As I said, closed groups remain closed.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 2. There's a heading, giving the name of the Notebook file and the \ page number. See below for changing it.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. Cell brackets are ", StyleBox["not", FontSlant->"Italic"], " printed by default." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "4. The type is pretty large. The default ", StyleBox["12", FontSize->14], "pt text size is really better for printing (saving trees), but is a bit \ tiring to read on the screen, as discussed earlier. You can select ", StyleBox["Condensed", FontWeight->"Bold"], " on the ", StyleBox["PrintingEnvironment", FontWeight->"Bold"], " submenu of the ", StyleBox["Format", FontWeight->"Bold"], " menu to make it a bit smaller. Try that and compare the results. But is \ it OK? Sometimes there's a bug." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There's a ", StyleBox["Headers and Footers...", FontWeight->"Bold"], " command on the ", StyleBox["File", FontWeight->"Bold"], " menu that lets you change the headers and footers. Select it now, and \ look at the resulting Headers and Footers panel. Note that you can specify \ the text for both ", StyleBox["Right", FontSlant->"Italic"], " and ", StyleBox["Left", FontSlant->"Italic"], " headers and footers (for duplex printers). For each header/footer, you \ can specify text to appear at the left, center, and right of the line. \ Filling in the text is fairly complicated; press the ", StyleBox["Help", FontWeight->"Bold"], " button for details." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Author", "Title", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ You need to make up your own Notebooks as part of an assignment or \ project. Depending on how fancy you want to get, that can involve quite a \ bit more than just reading someone else's Notebook, since you may want to add \ text and headings, group things together, and so on. At the very least you \ need to know how to make and save new Notebooks, and how to create, copy, and \ delete new cells, as described in these sections.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Starting a new Notebook", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "To start a new Notebook you can use ", StyleBox["New", FontWeight->"Bold"], " from the ", StyleBox["File", FontWeight->"Bold"], " menu. This will create a new Notebook window with a default layout and \ styles. ", StyleBox["For example, the text in a cell with the ", FontSize->12], StyleBox["text style", FontSize->12, FontSlant->"Italic"], StyleBox[" (discussed below) will probably be only 12 point, like this", FontSize->12], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Sometimes it's more convenient to start with a Notebook whose layout and \ styles you like, and edit a copy of that. It's best to make a copy of it by \ opening it afresh in ", StyleBox["Mathematica", FontSlant->"Italic"], " and using ", StyleBox["Save As...", FontWeight->"Bold"], " on the ", StyleBox["File", FontWeight->"Bold"], " menu to save it under a new name. Then you can delete all (or almost \ all) of the cells and go ahead. Using ", StyleBox["Select All", FontWeight->"Bold"], " and then ", StyleBox["Clear", FontWeight->"Bold"], " from the ", StyleBox["Edit", FontWeight->"Bold"], " menu would do that. Of course you should be careful to double check that \ you're deleting cells in the copy, not in the original!" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Alternatively, you can change the default settings for new Notebooks; see \ the ", StyleBox["Changing styles", FontWeight->"Bold"], " section below." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Creating, copying, and deleting cells", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["New input cells", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "You already know one way of creating new cells; just click between \ existing cells (or after the last one) while the cursor is a horizontal \ I-beam. This gives you a ", StyleBox["cell insertion point", FontSlant->"Italic"], " (a horizontal line), and you can start typing. The new cell is in ", StyleBox["Input style", FontSlant->"Italic"], ", with a set of attributes suitable for typing ", StyleBox["Mathematica", FontSlant->"Italic"], " input for evaluation. Soon we'll learn how to change the style of an \ existing cell, but first let's explore some ", StyleBox["other", FontSlant->"Italic"], " ways of making new cells. First practice the usual method (click and \ type) by adding a cell containing the expression ", StyleBox["RiemannSiegelTheta[2.5]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " below this cell for practice. ", StyleBox["RiemannSiegelTheta[]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is an obscure mathematical function that I picked mainly for its long \ name." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ StyleBox[\(RiemannSiegelTheta[2.5]\), FontFamily->"Courier", FontSize->12, FontWeight->"Bold"]], "Input"], Cell[TextData[{ "Now suppose we wanted to evaluate ", StyleBox["RiemannSiegelTheta[3.5]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " . One way is to edit the above expression: try that, noting that the old \ ", StyleBox["In[n]:=", FontSlant->"Italic"], " cell name disappears as soon as you edit its contents, and the old output \ disappears right before the new one appears." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "But often we want to keep the old output and make a new cell for the new \ case. A useful shortcut for doing that (particularly if the expression is \ complicated) is the ", StyleBox["Copy Input from Above", FontWeight->"Bold"], " command on the ", StyleBox["Input", FontWeight->"Bold"], " menu. Its keyboard equivalent is Command-l (lowercase L). Try it; click \ a cell insertion point (horizontal line) below this cell and then type \ Command-l." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Getting a copy like this, and then editing it, is extremely useful \ when you're doing a series of similar calculations.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Another way of making a new cell that is a copy of a previous cell is \ using ", StyleBox["Copy", FontWeight->"Bold"], " and ", StyleBox["Paste", FontWeight->"Bold"], " from the ", StyleBox["Edit", FontWeight->"Bold"], " menu (or Command-C and Command-V). Note that you can do this ", StyleBox["either", FontSlant->"Italic"], " on whole cells (selecting them with their cell brackets), ", StyleBox["or", FontSlant->"Italic"], " on the text in the cells (selecting by dragging). Practice both here. \ Usually it's quicker to copy the whole cell or cells (you can select several \ cells, or a group)." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["New cells of other styles", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Now suppose you want to make a cell for ", StyleBox["text", FontSlant->"Italic"], ", or a ", StyleBox["heading", FontSlant->"Italic"], ". Soon we'll discuss how to change the style of an ", StyleBox["existing", FontSlant->"Italic"], " cell, but it's fairly complicated and often all you need is to make a new \ cell with the same style as another one. There are ways of doing that:" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "1. Copy (using ", StyleBox["Copy", FontWeight->"Bold"], " and ", StyleBox["Paste", FontWeight->"Bold"], ") an existing cell with the style you want, then replace its contents. \ Try that. Now it's crucial that you copy the cell (selecting the cell \ bracket) rather than its contents." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. Use ", StyleBox["Start New Cell Below", FontWeight->"Bold"], " on the ", StyleBox["Input", FontWeight->"Bold"], " menu when your blinking insertion point is in a cell of the desired type. \ This makes an ", StyleBox["empty", FontSlant->"Italic"], " cell of the same style immediately below that cell. Then you can \ Cut/Paste the new cell to where you want if necessary. Try it; click in this \ cell, use ", StyleBox["Start New Cell Below", FontWeight->"Bold"], ", type some words. That's the way to go when typing lots of text." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Dividing or Merging Cells", "Subsection"], Cell[TextData[{ "You can also split a cell into two, or join two (or more) cells together \ with the ", StyleBox["Divide Cell", FontWeight->"Bold"], " and ", StyleBox["Merge Cells", FontWeight->"Bold"], " commands on the ", StyleBox["Cell", FontWeight->"Bold"], " menu. Try dividing this cell into two in the middle of this line; put \ the cursor there first, then use ", StyleBox["Divide Cell", FontWeight->"Bold"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Now try merging the above two fragments, and then this one too. First \ select all three cells, then use ", StyleBox["Merge Cells", FontWeight->"Bold"], ". Note that you're still left with extra line breaks at the merge \ points." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Deleting cells", "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Sometimes, you can't delete cells with the Delete key; that was considered \ too dangerous. Instead you must use ", StyleBox["Clear", FontWeight->"Bold"], " from the ", StyleBox["Edit", FontWeight->"Bold"], " menu, or the keyboard equivalent Command-Shift-X. Or you can use ", StyleBox["Cut", FontWeight->"Bold"], " (Command-x) unless you are saving the Clipboard contents for something \ else. Of course you must first select the cell or cells you want to delete." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Homework assignments, and the independence of windows", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ A common problem is the preparation of a homework assignment. \ There are two cases:\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 1. If the assignment is independent of any existing Notebooks, then \ you just create a new Notebook, save it (as described shortly), and print it.\ \ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "2. If the assignment consists of exercises specified in an existing \ Notebook, then it's usually best to have ", StyleBox["both", FontSlant->"Italic"], " the existing Notebook ", StyleBox["and", FontSlant->"Italic"], " your new \"homework\" Notebook on the screen at the same time. Then you \ can easily copy cells and expressions from the original Notebook to the \ assignment, probably starting with the specification of the exercises \ themselves. You still need to create, save, and print the new Notebook of \ course." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ In the second case, it may not be immediately clear which things in \ the two Notebooks are independent and which are common. So let's practice. \ We'll create a new Notebook which will also be used in some later examples.\ \ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "1. First evaluate the following input cell to give a value to the symbol \ ", StyleBox["foo", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(foo = ComplexExpand[\[ImaginaryI]\^\[ImaginaryI]]\)], "Input", AspectRatioFixed->True], Cell[TextData[{ "2. Create a new Notebook using ", StyleBox["New", FontWeight->"Bold"], " on the ", StyleBox["File", FontWeight->"Bold"], " menu. We'll refer to it here as the ", StyleBox["Homework Notebook", FontSlant->"Italic"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. See if ", StyleBox["foo", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is defined in the Homework Notebook; type in a new expression like \"", StyleBox["foo", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "\" or \"", StyleBox["N[foo]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "\" and evaluate it. Also look at the ", StyleBox["In[n]:=", FontSlant->"Italic"], " and ", StyleBox["Out[n]=", FontSlant->"Italic"], " number; are they separate, or part of one sequence?" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["Explanation", FontSlant->"Italic"], ": you're only running one kernel, which is where all the variables and \ functions are defined. Different Notebooks talking to the same kernel are \ not distinguished by the kernel, so they all seem to be part of ", StyleBox["one", FontSlant->"Italic"], " front-end. Actually you ", StyleBox["can", FontSlant->"Italic"], " have multiple kernels running (even on different computers), and connect \ different Notebooks to different kernels, but that's pretty fancy." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "4. Here's a simple assignment; copy it into the Homework Notebook by \ selecting the whole ", StyleBox["group", FontSlant->"Italic"], " (containing 3 cells) and using ", StyleBox["Copy", FontWeight->"Bold"], " and ", StyleBox["Paste", FontWeight->"Bold"], ". " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Assignment 42", "Subsubsection", CellMargins->{{37, Inherited}, {Inherited, Inherited}}, Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Explore the properties of ", StyleBox["Mathematica", FontSlant->"Italic"], "'s symbol ", StyleBox["Infinity", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " (or \[Infinity]). Try multiplying it by positive and negative constants, \ squaring it, multiplying it by zero, and dividing it by zero." }], "Text", CellMargins->{{37, Inherited}, {Inherited, Inherited}}, Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "For a ", StyleBox["challenge", FontSlant->"Italic"], ", try to find an expression that produces ", StyleBox["Infinity", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " as a result, without already containing it. Note that ", StyleBox["1/0", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " isn't good enough because the limit of ", StyleBox["1/z", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " could be many different things depending on how ", StyleBox["z", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " approaches ", StyleBox["0", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " in the complex plane." }], "Text", CellMargins->{{37, Inherited}, {Inherited, Inherited}}, Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell["End of group", "Subsubsection", CellOpen->False], Cell[TextData[{ "5. Note how the text size [probably] reverted to the 12pt default and the \ nice purple heading is now plain (unless you've already changed your default \ styles). We'll learn how to fix that below (\"Changing the standard \ styles\"). The fact that it is different is telling you (well, ", StyleBox["me", FontSlant->"Italic"], ", and maybe ", StyleBox["you", FontSlant->"Italic"], " too) that ", StyleBox["cell styles", FontSlant->"Italic"], " are kept independently for each Notebook window." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ If the new text is too small for you, magnify your homework window \ to 125%. Then you'll need to widen it too. Also (if you magnify it) note \ the somewhat ugly spacing between letters -- compare it with this window \ (which is presumably at 100%, 14pt).\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "6. [Optional] Do the assignment in the Homework Notebook, just evaluating \ the expressions suggested (e.g. the first one could be ", StyleBox["7*Infinity", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "). You can ignore the ", StyleBox["challenge", FontSlant->"Italic"], " if you like. " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["----------", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "In general, kernel-related things are common to all windows, as we saw \ with ", StyleBox["foo", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", while layout-related things are independent for each window. Besides \ window size, shape, and magnification, the latter include cell styles, \ rulers, page layout parameters (for printing), printing options, and headers \ and footers." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Entering text and headings: using styles", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Besides entering ", StyleBox["Mathematica", FontSlant->"Italic"], " input and evaluating it, the main thing you'll probably want to do is to \ add cells containing text (like this one) or headings. The previous sections \ explained how to create new cells in the same style as another one, but how \ do you start? Or, if you start typing and then realize that the style is \ wrong, how do you change it? You ", StyleBox["could", FontSlant->"Italic"], " fix it by changing the attributes and font individually, but there's a \ much easier way using ", StyleBox["styles", FontSlant->"Italic"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There are a standard set of cell styles used for things like text, ", StyleBox["Mathematica", FontSlant->"Italic"], " input, headings (at various levels), error messages, and so on. Each \ style, such as the ", StyleBox["Input style", FontSlant->"Italic"], " or the ", StyleBox["Text style", FontSlant->"Italic"], ", is just a particular combination of a font, some cell properties (see \ the ", StyleBox["Format", FontWeight->"Bold"], " and ", StyleBox["Cell", FontWeight->"Bold"], " menus) and some margin settings (found on the ruler, as mentioned below). \ For example the ", StyleBox["Text style", FontSlant->"Italic"], " used for this cell involves a 14pt Times font, the ", StyleBox["editable", FontSlant->"Italic"], " but not the ", StyleBox["active", FontSlant->"Italic"], " cell attributes, text that word-wraps, 4pt spaces above and below the \ cell, and so on." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "To change the style of an existing cell (or cells) you must first select \ it (or them). Then you can use the ", StyleBox["Style", FontWeight->"Bold"], " submenu in the ", StyleBox["Format", FontWeight->"Bold"], " menu to change to any of the standard styles." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Try it now. First type some text into a new cell in your Homework \ Notebook. Then select the cell (not the text) and play with changing it to \ any of the first 9 styles (the numbered ones) on the ", StyleBox["Style", FontWeight->"Bold"], " submenu." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "There's a shortcut that's quite useful; you can use Command-", StyleBox["n", FontSlant->"Italic"], " to select the ", StyleBox["n", FontSlant->"Italic"], "th style, where ", StyleBox["n", FontSlant->"Italic"], " = 1-9. You still have to select the cell(s) first, then use Command-", StyleBox["n", FontSlant->"Italic"], ". You can try several different values of ", StyleBox["n", FontSlant->"Italic"], " in quick succession. Try it." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]], Cell[CellGroupData[{ Cell["Changing the standard styles", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "You probably won't need to change the standard styles, except perhaps to \ make the Text style larger. ", StyleBox["Skip this section if you don't care", FontSlant->"Italic"], ". If you ", StyleBox["do", FontSlant->"Italic"], " change a style it'll change every use of that style in the whole \ Notebook, so be sure that that is want you want. Let's try it..." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "1. Select ", StyleBox["Edit Style Sheet...", FontWeight->"Bold"], " from the ", StyleBox["Format", FontWeight->"Bold"], " menu. You may get a warning that the Notebook is using a shared Style \ Sheet; in this case tell it to \"Import Private Copy\" to make a separate one \ for the Notebook. This brings up a ", StyleBox["style sheet", FontSlant->"Italic"], " for this Notebook. Note that the name of the Notebook is displayed in \ the \"Style Definitions...\" title bar. ", StyleBox["A style sheet only applies to the Notebook window it specifies in \ its title bar", FontSlant->"Italic"], "." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ 2. Open up the group called \"Styles for Body Text\" and then the \ group called \"Prototype for style 'Text'\". Select the first cell, the one \ containing \"Text\". Changing that will change the text style throughout \ this Notebook.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "3. Change the font size (or other cell attributes) using the appropriate \ commands on the ", StyleBox["Format", FontWeight->"Bold"], " menu." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Closed]] }, FrontEndVersion->"4.2 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, ScreenStyleEnvironment->"Working", PrintingStyleEnvironment->"Printout", WindowToolbars->"RulerBar", WindowSize->{565, 810}, WindowMargins->{{Automatic, 64}, {Automatic, 25}}, PrintingPageRange->{Automatic, Automatic}, PageHeaders->{{Cell[ "Physics 230", "Header"], Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], Inherited}, { Inherited, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], Cell[ "Physics 230", "Header"]}}, PrintingOptions->{"PrintingMargins"->{{54, 54}, {72, 72}}, "PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "PrintCellBrackets"->False, "PrintRegistrationMarks"->False, "PrintMultipleHorizontalPages"->False, "PostScriptOutputFile":>FrontEnd`FileName[{$RootDirectory, "home", \ "einstein", "palmer", "public_html", "Phy230"}, "MMAintro.nb.ps", \ CharacterEncoding -> "iso8859-1"], "Magnification"->1}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, Magnification->1, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using \ commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ScriptMinSize->12, FontSize->16], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellBracketOptions->{"Margins"->{1, 1}, "Widths"->{0, 5}}, ScriptMinSize->8, FontSize->11], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ScriptMinSize->5, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, 10}, {20, 40}}, LineSpacing->{1, 0}, FontSize->44], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, FontSize->20], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{12, Inherited}, {10, 15}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->24, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{24, 10}, {15, 20}}, LineSpacing->{1, 0}, FontSize->36], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, FontSize->14], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{12, Inherited}, {10, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {10, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 12}}, FontSize->12], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellDingbat->"\[FilledSquare]", CellMargins->{{25, Inherited}, {8, 24}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Section", "Printout"], CellMargins->{{13, 0}, {7, 22}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{22, Inherited}, {8, 20}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->22], Cell[StyleData["Subsection", "Condensed"], CellMargins->{{16, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 22}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{22, Inherited}, {8, 18}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, FontSize->10], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, FontSize->11] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, CounterIncrements->"Text", FontSize->14], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{12, 10}, {6, 6}}, LineSpacing->{1, 3}, CounterIncrements->"SmallText", FontFamily->"Helvetica", FontSize->12], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellMargins->{{45, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Closed]], Cell[StyleData["InputOnly"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{47, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", ImageMargins->{{43, Inherited}, {Inherited, 0}}, StyleMenuListing->None], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Condensed"], ImageSize->{175, 175}, ImageMargins->{{38, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Printout"], ImageSize->{250, 250}, ImageMargins->{{30, Inherited}, {Inherited, 0}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], FontSize->12], Cell[StyleData["CellLabel", "Condensed"], FontSize->9], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, ScriptLevel->1, SingleLetterItalics->True], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, ScriptLevel->0, SingleLetterItalics->True, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}], Cell[StyleData["DisplayFormula", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontSize->10, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, StyleMenuListing->None, FontSize->9, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"]], Cell[StyleData["Hyperlink", "Condensed"]], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"]], Cell[StyleData["MainBookLink", "Condensed"]], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"]], Cell[StyleData["AddOnsLink", "Condensed"]], Cell[StyleData["AddOnLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "Condensed"]], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"]], Cell[StyleData["GettingStartedLink", "Condensed"]], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"]], Cell[StyleData["OtherInformationLink", "Condensed"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, StyleMenuListing->None], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SelectionPlaceholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->PrimaryPlaceholder, StyleMenuListing->None, DrawHighlighted->True], Cell[StyleData["SelectionPlaceholder", "Presentation"]], Cell[StyleData["SelectionPlaceholder", "Condensed"]], Cell[StyleData["SelectionPlaceholder", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], Cell["\<\ The cells below define styles that are mixed in with the styles \ of most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", Background->GrayLevel[1]], Cell[StyleData["InputForm"], AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{1, -5}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text"], Cell[StyleData["InlineCell"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, Closed]] }, Open ]] }] ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 90, 2, 110, "Title", Evaluatable->False], Cell[1869, 57, 141, 6, 66, "Subsubtitle", Evaluatable->False], Cell[2013, 65, 1013, 34, 163, "Text"], Cell[3029, 101, 385, 10, 68, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[3439, 115, 46, 0, 45, "Subsection"], Cell[3488, 117, 320, 8, 71, "Text"], Cell[3811, 127, 719, 14, 166, "Text"], Cell[4533, 143, 97, 4, 33, "Text"], Cell[4633, 149, 266, 10, 52, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[4936, 164, 77, 2, 29, "Subsection", Evaluatable->False], Cell[5016, 168, 434, 16, 52, "Text", Evaluatable->False], Cell[5453, 186, 383, 14, 68, "Text", Evaluatable->False], Cell[5839, 202, 411, 12, 128, "Text", Evaluatable->False] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[6299, 220, 30, 0, 110, "Title"], Cell[CellGroupData[{ Cell[6354, 224, 90, 2, 55, "Section", Evaluatable->False], Cell[6447, 228, 275, 6, 71, "Text", Evaluatable->False], Cell[6725, 236, 493, 11, 109, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[7243, 251, 83, 2, 45, "Subsection", Evaluatable->False], Cell[7329, 255, 591, 12, 128, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[7957, 272, 82, 2, 29, "Subsection", Evaluatable->False], Cell[8042, 276, 536, 11, 128, "Text", Evaluatable->False], Cell[8581, 289, 334, 8, 71, "Text", Evaluatable->False], Cell[8918, 299, 234, 6, 52, "Text", Evaluatable->False], Cell[9155, 307, 75425, 1537, 86, 11169, 738, "GraphicsData", "PostScript", \ "Graphics"], Cell[84583, 1846, 517, 11, 109, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[85137, 1862, 79, 2, 29, "Subsection", Evaluatable->False], Cell[85219, 1866, 876, 22, 123, "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[86144, 1894, 81, 2, 35, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[86250, 1900, 87, 2, 45, "Subsection", Evaluatable->False], Cell[86340, 1904, 392, 10, 90, "Text", Evaluatable->False], Cell[86735, 1916, 362, 8, 90, "Text", Evaluatable->False], Cell[87100, 1926, 420, 12, 71, "Text", Evaluatable->False], Cell[87523, 1940, 255, 6, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[87815, 1951, 84, 2, 29, "Subsection", Evaluatable->False], Cell[87902, 1955, 347, 7, 90, "Text", Evaluatable->False], Cell[88252, 1964, 344, 7, 90, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[88633, 1976, 46, 0, 29, "Subsection"], Cell[88682, 1978, 1013, 30, 166, "Text", Evaluatable->False], Cell[89698, 2010, 267, 8, 52, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[90002, 2023, 85, 2, 29, "Subsection", Evaluatable->False], Cell[90090, 2027, 322, 9, 71, "Text", Evaluatable->False], Cell[90415, 2038, 341, 6, 90, "Text"], Cell[90759, 2046, 113, 2, 33, "Text", Evaluatable->False], Cell[90875, 2050, 109, 2, 33, "Text", Evaluatable->False], Cell[90987, 2054, 360, 16, 52, "Text", Evaluatable->False], Cell[91350, 2072, 504, 16, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[91891, 2093, 103, 2, 29, "Subsection", Evaluatable->False], Cell[91997, 2097, 106, 2, 33, "Text", Evaluatable->False], Cell[92106, 2101, 152, 5, 33, "Text", Evaluatable->False], Cell[92261, 2108, 579, 18, 90, "Text", Evaluatable->False], Cell[92843, 2128, 98, 2, 33, "Text", Evaluatable->False], Cell[92944, 2132, 1101, 28, 185, "Text", Evaluatable->False], Cell[94048, 2162, 86, 2, 31, "Input"], Cell[94137, 2166, 886, 26, 147, "Text", Evaluatable->False], Cell[95026, 2194, 242, 6, 52, "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[95317, 2206, 77, 2, 35, "Section", Evaluatable->False], Cell[95397, 2210, 315, 8, 71, "Text", Evaluatable->False], Cell[95715, 2220, 307, 8, 52, "Text", Evaluatable->False], Cell[96025, 2230, 434, 9, 90, "Text", Evaluatable->False], Cell[96462, 2241, 122, 2, 33, "Text", Evaluatable->False], Cell[96587, 2245, 195, 5, 52, "Text", Evaluatable->False], Cell[96785, 2252, 204, 7, 33, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[97026, 2264, 71, 2, 35, "Section", Evaluatable->False], Cell[97100, 2268, 198, 7, 33, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[97323, 2279, 95, 2, 45, "Subsection", Evaluatable->False], Cell[97421, 2283, 1132, 37, 166, "Text", Evaluatable->False], Cell[98556, 2322, 148, 3, 52, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[98741, 2330, 83, 2, 29, "Subsection", Evaluatable->False], Cell[98827, 2334, 333, 11, 52, "Text", Evaluatable->False], Cell[99163, 2347, 65, 1, 27, "Input"], Cell[99231, 2350, 371, 12, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[99639, 2367, 92, 2, 29, "Subsection", Evaluatable->False], Cell[99734, 2371, 576, 20, 90, "Text", Evaluatable->False], Cell[100313, 2393, 47, 1, 27, "Input"], Cell[100363, 2396, 42, 1, 27, "Input"], Cell[100408, 2399, 37, 1, 27, "Input"], Cell[100448, 2402, 38, 1, 27, "Input"], Cell[100489, 2405, 220, 8, 33, "Text"], Cell[100712, 2415, 527, 17, 71, "Text", Evaluatable->False], Cell[101242, 2434, 756, 27, 90, "Text", Evaluatable->False], Cell[102001, 2463, 497, 16, 71, "Text", Evaluatable->False], Cell[102501, 2481, 44, 1, 27, "Input"], Cell[102548, 2484, 43, 1, 27, "Input"], Cell[102594, 2487, 44, 1, 27, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[102687, 2494, 88, 2, 35, "Section", Evaluatable->False], Cell[102778, 2498, 364, 10, 71, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[103167, 2512, 86, 2, 45, "Subsection", Evaluatable->False], Cell[103256, 2516, 336, 7, 71, "Text", Evaluatable->False], Cell[103595, 2525, 553, 10, 128, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[104173, 2539, 57, 1, 27, "Input"], Cell[104233, 2542, 69, 1, 27, "Output"] }, Open ]], Cell[104317, 2546, 57, 1, 27, "Input"], Cell[CellGroupData[{ Cell[104399, 2551, 57, 1, 27, "Input"], Cell[104459, 2554, 115, 2, 69, "Output"] }, Closed]], Cell[104589, 2559, 386, 11, 49, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[105012, 2575, 95, 2, 29, "Subsection", Evaluatable->False], Cell[105110, 2579, 1153, 26, 223, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[106300, 2610, 94, 2, 29, "Subsection", Evaluatable->False], Cell[106397, 2614, 698, 17, 128, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[107120, 2635, 111, 2, 42, "Subsubsection", Evaluatable->False], Cell[107234, 2639, 637, 20, 90, "Text", Evaluatable->False], Cell[107874, 2661, 290, 10, 52, "Text", Evaluatable->False], Cell[108167, 2673, 288, 8, 52, "Text", Evaluatable->False], Cell[108458, 2683, 210, 5, 68, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[108705, 2693, 84, 2, 28, "Subsubsection", Evaluatable->False], Cell[108792, 2697, 520, 20, 71, "Text", Evaluatable->False], Cell[109315, 2719, 212, 6, 52, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[109564, 2730, 89, 2, 28, "Subsubsection", Evaluatable->False], Cell[109656, 2734, 380, 9, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[110073, 2748, 80, 2, 28, "Subsubsection", Evaluatable->False], Cell[110156, 2752, 402, 12, 71, "Text", Evaluatable->False] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[110619, 2771, 75, 2, 35, "Section", Evaluatable->False], Cell[110697, 2775, 622, 27, 52, "Text", Evaluatable->False], Cell[111322, 2804, 1045, 26, 185, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[112392, 2834, 109, 2, 45, "Subsection", Evaluatable->False], Cell[112504, 2838, 245, 6, 52, "Text", Evaluatable->False], Cell[112752, 2846, 110, 2, 31, "Input"], Cell[112865, 2850, 496, 10, 33, "Text", Evaluatable->False], Cell[113364, 2862, 599, 14, 109, "Text", Evaluatable->False], Cell[113966, 2878, 300, 8, 52, "Text", Evaluatable->False], Cell[114269, 2888, 622, 16, 109, "Text", Evaluatable->False], Cell[114894, 2906, 212, 6, 52, "Text", Evaluatable->False], Cell[115109, 2914, 404, 10, 90, "Text", Evaluatable->False], Cell[115516, 2926, 353, 9, 71, "Text", Evaluatable->False], Cell[115872, 2937, 364, 9, 71, "Text", Evaluatable->False], Cell[116239, 2948, 245, 10, 33, "Text", Evaluatable->False], Cell[116487, 2960, 441, 9, 109, "Text", Evaluatable->False], Cell[116931, 2971, 134, 3, 27, "Input"], Cell[117068, 2976, 344, 9, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[117449, 2990, 85, 2, 29, "Subsection", Evaluatable->False], Cell[117537, 2994, 145, 5, 33, "Text", Evaluatable->False], Cell[117685, 3001, 108, 2, 41, "Input"], Cell[117796, 3005, 532, 17, 90, "Text", Evaluatable->False], Cell[118331, 3024, 100, 2, 33, "Text", Evaluatable->False], Cell[118434, 3028, 442, 10, 90, "Text", Evaluatable->False], Cell[118879, 3040, 277, 6, 71, "Text", Evaluatable->False], Cell[119159, 3048, 864, 24, 147, "Text", Evaluatable->False], Cell[120026, 3074, 53, 1, 27, "Input"], Cell[120082, 3077, 442, 12, 90, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[120561, 3094, 95, 2, 29, "Subsection", Evaluatable->False], Cell[120659, 3098, 870, 26, 128, "Text", Evaluatable->False], Cell[121532, 3126, 169, 3, 64, "Input"], Cell[121704, 3131, 145, 5, 33, "Text", Evaluatable->False], Cell[121852, 3138, 242, 13, 25, "Print", Evaluatable->False], Cell[122097, 3153, 305, 7, 71, "Text", Evaluatable->False], Cell[122405, 3162, 1031, 29, 147, "Text", Evaluatable->False], Cell[123439, 3193, 259, 6, 71, "Text", Evaluatable->False], Cell[123701, 3201, 491, 17, 71, "Text", Evaluatable->False], Cell[124195, 3220, 215, 6, 52, "Text", Evaluatable->False], Cell[124413, 3228, 253, 8, 52, "Text", Evaluatable->False], Cell[124669, 3238, 169, 7, 33, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[124875, 3250, 88, 2, 29, "Subsection", Evaluatable->False], Cell[124966, 3254, 415, 11, 71, "Text", Evaluatable->False], Cell[125384, 3267, 423, 8, 90, "Text", Evaluatable->False], Cell[125810, 3277, 371, 7, 59, "Input"], Cell[126184, 3286, 552, 14, 109, "Text", Evaluatable->False], Cell[126739, 3302, 428, 12, 71, "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[127216, 3320, 75, 2, 35, "Section", Evaluatable->False], Cell[127294, 3324, 224, 6, 52, "Text", Evaluatable->False], Cell[127521, 3332, 609, 18, 90, "Text", Evaluatable->False], Cell[128133, 3352, 329, 9, 71, "Text", Evaluatable->False], Cell[128465, 3363, 106, 2, 33, "Text", Evaluatable->False], Cell[128574, 3367, 181, 5, 52, "Text", Evaluatable->False], Cell[128758, 3374, 171, 7, 33, "Text", Evaluatable->False], Cell[128932, 3383, 611, 18, 90, "Text", Evaluatable->False], Cell[129546, 3403, 774, 23, 128, "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[130369, 3432, 80, 2, 74, "Title", Evaluatable->False], Cell[130452, 3436, 505, 9, 128, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[130982, 3449, 90, 2, 55, "Section", Evaluatable->False], Cell[131075, 3453, 554, 19, 71, "Text", Evaluatable->False], Cell[131632, 3474, 859, 26, 128, "Text", Evaluatable->False], Cell[132494, 3502, 236, 8, 52, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[132767, 3515, 104, 2, 35, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[132896, 3521, 85, 2, 45, "Subsection", Evaluatable->False], Cell[132984, 3525, 1177, 31, 185, "Text", Evaluatable->False], Cell[134164, 3558, 141, 4, 27, "Input"], Cell[134308, 3564, 480, 14, 71, "Text", Evaluatable->False], Cell[134791, 3580, 546, 14, 109, "Text", Evaluatable->False], Cell[135340, 3596, 192, 5, 52, "Text", Evaluatable->False], Cell[135535, 3603, 721, 22, 109, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[136293, 3630, 95, 2, 29, "Subsection", Evaluatable->False], Cell[136391, 3634, 487, 14, 71, "Text", Evaluatable->False], Cell[136881, 3650, 382, 12, 71, "Text", Evaluatable->False], Cell[137266, 3664, 647, 19, 109, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[137950, 3688, 47, 0, 29, "Subsection"], Cell[138000, 3690, 515, 18, 71, "Text", Evaluatable->False], Cell[138518, 3710, 319, 9, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[138874, 3724, 84, 2, 29, "Subsection", Evaluatable->False], Cell[138961, 3728, 571, 15, 109, "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[139581, 3749, 120, 2, 35, "Section", Evaluatable->False], Cell[139704, 3753, 157, 5, 52, "Text", Evaluatable->False], Cell[139864, 3760, 221, 6, 52, "Text", Evaluatable->False], Cell[140088, 3768, 621, 15, 128, "Text", Evaluatable->False], Cell[140712, 3785, 298, 7, 71, "Text", Evaluatable->False], Cell[141013, 3794, 250, 10, 33, "Text", Evaluatable->False], Cell[141266, 3806, 108, 2, 32, "Input"], Cell[141377, 3810, 321, 13, 52, "Text", Evaluatable->False], Cell[141701, 3825, 657, 25, 71, "Text", Evaluatable->False], Cell[142361, 3852, 614, 15, 109, "Text", Evaluatable->False], Cell[142978, 3869, 363, 14, 52, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[143366, 3887, 144, 3, 42, "Subsubsection", Evaluatable->False], Cell[143513, 3892, 468, 14, 71, "Text", Evaluatable->False], Cell[143984, 3908, 892, 33, 90, "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[144913, 3946, 56, 1, 31, "Subsubsection", CellOpen->False], Cell[144972, 3949, 599, 16, 109, "Text", Evaluatable->False], Cell[145574, 3967, 329, 7, 71, "Text", Evaluatable->False], Cell[145906, 3976, 405, 13, 71, "Text", Evaluatable->False], Cell[146314, 3991, 74, 2, 33, "Text", Evaluatable->False], Cell[146391, 3995, 490, 13, 90, "Text", Evaluatable->False] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[146930, 4014, 107, 2, 35, "Section", Evaluatable->False], Cell[147040, 4018, 701, 18, 128, "Text", Evaluatable->False], Cell[147744, 4038, 1018, 32, 147, "Text", Evaluatable->False], Cell[148765, 4072, 356, 11, 71, "Text", Evaluatable->False], Cell[149124, 4085, 340, 9, 71, "Text", Evaluatable->False], Cell[149467, 4096, 554, 19, 71, "Text", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[150058, 4120, 95, 2, 35, "Section", Evaluatable->False], Cell[150156, 4124, 458, 12, 90, "Text", Evaluatable->False], Cell[150617, 4138, 709, 20, 109, "Text", Evaluatable->False], Cell[151329, 4160, 309, 7, 71, "Text", Evaluatable->False], Cell[151641, 4169, 229, 8, 52, "Text", Evaluatable->False] }, Closed]] }, Closed]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)