(*^
::[ Information =
"This is a Mathematica Notebook file. It contains ASCII text, and can be
transferred by email, ftp, or other text-file transfer utility. It should
be read or edited using a copy of Mathematica or MathReader. If you
received this as email, use your mail application or copy/paste to save
everything from the line containing (*^ down to the line containing ^*)
into a plain text file. On some systems you may have to give the file a
name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
The line below identifies what version of Mathematica created this file,
but it can be opened using any other version as well.";
FrontEndVersion = "NeXT Mathematica Notebook Front End Version 2.2";
NeXTStandardFontEncoding;
fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L3, e8, 24, "Times"; ;
fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ;
fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 14, "Times"; ;
fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 14, "Times"; ;
fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 12, "Times"; ;
fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 10, "Times"; ;
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 14, "Times"; ;
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ;
fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1, 12, "Courier"; ;
fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ;
fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L1, 12, "Courier"; ;
fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ;
fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ;
fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w415, h422, L1, 10, "Courier"; ;
fontset = name, inactive, noPageBreakInGroup, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L1, 10, "Times"; ;
fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ;
fontset = leftheader, 12;
fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1, 12;
fontset = leftfooter, 12;
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ;
fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12;
fontset = completions, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12;
fontset = special1, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12;
fontset = special2, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1, 12;
fontset = special3, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, right, M7, L1, 12;
fontset = special4, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12;
fontset = special5, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12;
paletteColors = 128; currentKernel;
]
:[font = title; inactive; dontPreserveAspect]
Version 2.0 Notes
:[font = text; inactive; dontPreserveAspect]
Some notes on effects of Version 2.0 on my code are included in the cells for which they are relevant (also below).
:[font = text; inactive; dontPreserveAspect]
Any underlined code denotes places where, for a variety of reasons, the code differs from the printed version.
:[font = text; inactive; dontPreserveAspect]
Some bitmap figures are included but, to save disk space, only very few of the book's figures or animations appear.
:[font = text; inactive; dontPreserveAspect]
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.
:[font = text; inactive; dontPreserveAspect]
Occasionally cell groups are included with improved versions of the code.
:[font = section; inactive; dontPreserveAspect; startGroup]
Errata and some 2.0 notes
:[font = text; inactive; dontPreserveAspect]
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.
:[font = text; inactive; dontPreserveAspect]
Chapter 5 Cover Art: Lower right figure should have had larger pointsize. As it is, the orbit is hard to see.
:[font = text; inactive; dontPreserveAspect]
Figure 1.6: The dashed line should be thick and gray, as it is on the chapter cover art.
:[font = text; inactive; dontPreserveAspect]
Figure 6.4: Bottom left has too-thin lines. Ditto bottom of Chapter opening for Chapter 6.
:[font = text; inactive; dontPreserveAspect; endGroup]
Some of the code will not work in version 2.0, as some of my usages have become obsolete. Some examples:
Code such as: Do[****] /; Mod[x, 4]==1 should be replaced by If[Mod[x,4] == 1, Do[***] ].
The /; usage is still okay in function definitions, however.
The option Compiled->False should be used in plots where the function(s) being plotted are not in compilable form. You'll know because of the messages.
Also, 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.
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.
;[s]
10:0,0;128,1;152,2;183,3;210,4;218,5;220,6;287,7;302,8;693,9;1146,-1;
10:1,13,10,Times,0,14,0,0,0;1,11,9,Courier,1,14,0,0,0;1,13,10,Times,0,14,0,0,0;1,12,9,Times,1,14,0,0,0;1,13,10,Times,0,14,0,0,0;1,11,9,Courier,1,14,0,0,0;1,13,10,Times,0,14,0,0,0;1,11,9,Courier,1,14,0,0,0;1,13,10,Times,0,14,0,0,0;1,12,9,Times,1,14,0,0,0;
:[font = text; inactive; preserveAspect]
All this material is copyrighted and may not be placed on computer networks.
^*)