(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 6310, 183]*) (*NotebookOutlinePosition[ 7365, 219]*) (* CellTagsIndexPosition[ 7321, 215]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData["Version 2.0 Notes"], "Title", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "\nSome notes on effects of Version 2.0 on my code are included in the cells \ for which they are relevant (also below)."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Any underlined code denotes places where, for a variety of reasons, the code \ differs from the printed version."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Some bitmap figures are included but, to save disk space, only very few of \ the book's figures or animations appear."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Some of the programs take a very long time and lots of memory. Occasionally \ I have changed some parameters in the disk version, to speed up the \ computations; thus the results may not be highly resolved. Always start with \ small values of the parameters so that you familiarize yourself with your \ machine's capabilities. Animations should almost always be run with the \ monitor in a B&W setting. Even short animations do not run well when my \ monitor is set to color."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Occasionally cell groups are included with improved versions of the code."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[CellGroupData[{Cell[TextData["Errata and some 2.0 notes"], "Section", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Figure 10.8. Two dots are missing, Upper one of the missing is big and \ black, lower one is gray. I have no idea how this could have happened."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Chapter 5 Cover Art: Lower right figure should have had larger pointsize. As \ it is, the orbit is hard to see."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Figure 1.6: The dashed line should be thick and gray, as it is on the \ chapter cover art."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Figure 6.4: Bottom left has too-thin lines. Ditto bottom of Chapter opening \ for Chapter 6."], "Text", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[{ StyleBox[ "Some of the code will not work in version 2.0, as some of my usages have \ become obsolete. Some examples:\n\nCode such as: ", Evaluatable->False, AspectRatioFixed->False], StyleBox["Do[****] /; Mod[x, 4]==1", Evaluatable->False, AspectRatioFixed->False, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" should be replaced by \t\t\t", Evaluatable->False, AspectRatioFixed->False], StyleBox["If[Mod[x,4] == 1, Do[***] ]", Evaluatable->False, AspectRatioFixed->False, FontWeight->"Bold"], StyleBox[". \n\nThe ", Evaluatable->False, AspectRatioFixed->False], StyleBox["/;", Evaluatable->False, AspectRatioFixed->False, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " usage is still okay in function definitions, however.\n\nThe option ", Evaluatable->False, AspectRatioFixed->False], StyleBox["Compiled->False", Evaluatable->False, AspectRatioFixed->False, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " should be used in plots where the function(s) being plotted are not in \ compilable form. You'll know because of the messages.\n\nAlso, I have noticed \ that the Next computers are more finicky about semicolons, and seem to \ require at the ends of essentially all lines, whereas on the Macintosh one \ can often omit then. On the other hand, version 2.0 on the Mac is more \ demanding of semicolons.\n\n", Evaluatable->False, AspectRatioFixed->False], StyleBox[ "Finally, I have included a Microsoft Word file of my current correction \ list. Many of these are typographical errors that you don't really want to \ know about (e.g., commas or hyphens set in the wrong font), but there are a \ few more important items as well. In particular, I made a big mathematical \ goof in the gravity discussion in Chapter 2. The next printing of my book \ will incorporate these corrections, and the code enclosed is the corrected \ code.", Evaluatable->False, AspectRatioFixed->False, FontWeight->"Bold"] }], "Text", Evaluatable->False, AspectRatioFixed->False]}, Open]], Cell[TextData[ "All this material is copyrighted and may not be placed on computer \ networks."], "Text", Evaluatable->False, AspectRatioFixed->True] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{20, Automatic}, {Automatic, 16}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000V1e009POM0000000ORWP095TlP0AP1Y06`0I@1^0642H7D0 0V1ml0000001n:MP0TFCb000000000000000009PM@0000000000000000000000 00000000000000000000000000000000\>" ] (*********************************************************************** 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[1711, 51, 93, 2, 70, "Title", Evaluatable->False], Cell[1807, 55, 195, 4, 70, "Text", Evaluatable->False], Cell[2005, 61, 188, 4, 70, "Text", Evaluatable->False], Cell[2196, 67, 193, 4, 70, "Text", Evaluatable->False], Cell[2392, 73, 551, 9, 70, "Text", Evaluatable->False], Cell[2946, 84, 152, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[3121, 90, 103, 2, 70, "Section", Evaluatable->False], Cell[3227, 94, 222, 5, 70, "Text", Evaluatable->False], Cell[3452, 101, 187, 4, 70, "Text", Evaluatable->False], Cell[3642, 107, 166, 4, 70, "Text", Evaluatable->False], Cell[3811, 113, 168, 4, 70, "Text", Evaluatable->False], Cell[3982, 119, 2160, 57, 70, "Text", Evaluatable->False] }, Open ]], Cell[6154, 178, 153, 4, 70, "Text", Evaluatable->False] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)