(*^ ::[paletteColors = 128; currentKernel; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1, 12, "Courier"; ; fontset = output, output, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = print, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = info, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakBelow, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = Left Header, nohscroll, cellOutline, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1, 12; fontset = Left Footer, cellOutline, blackBox, 12; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Courier"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; next21StandardFontEncoding; ] :[font = title; inactive; Cclosed; preserveAspect; startGroup; ] Introduction :[font = subsubtitle; inactive; preserveAspect; endGroup; ] Version 2.0 2/12/92 Originally ªTour Of Mathematicaº by Wolfram Research Modified by John Schneider & John Weiss (Most modifications noted in ªChangesº section) :[font = section; inactive; preserveAspect; startGroup; ] Introduction to the Introduction :[font = text; inactive; preserveAspect; ] This NoteBook presents several different aspects of Mathematica. It does not provide a detailed discussion of Mathematica, but it will give you some examples of the capabilities of Mathematica and expose you to the NoteBook structure. In some sections of this NoteBook it is assumed that you have executed the previous commands. So, it is best to work through the commands in the sequence presented. Here are some points about scrolling and cell structure that you will need to know. :[font = subsection; inactive; preserveAspect; ] Scrolling :[font = text; inactive; preserveAspect; endGroup; ] Using the mouse, click the scroll buttons in the bottom left of the window. Your view of this file will scroll in the direction indicated by the arrow on the scroll button you choose. Holding the mouse button down makes the scrolling continue until you release the button. Notice that this scrolling causes the scroll bar to move vertically up and down. The mouse can be used to directly drag the scroll bar to any desired position. :[font = section; inactive; preserveAspect; startGroup; ] Cell Structure :[font = text; inactive; preserveAspect; endGroup; ] NoteBooks are hierarchically structured in a manner similar to a table of contents in a book. However, if one of the topics catches your eye, you do not thumb to the page corresponding to that topic; rather, you double click on the cell grouping line that corresponds to that heading. This will open the group and reveal individual cells that contain the text, formulae, and graphics associated with that heading. A closed group of cells is indicated by a hook on the bottom of the cell grouping line. An open grouping will not have a hook. This section, ªCell Structure,º is an open group of cells. There is a cell containing the title and the cell containing this text. The grouping line is on the far right, and it does not have a hook on the bottom. To close a group, double-click on the grouping line to the right. You should notice how the pointer changes shape when in position to click on the cell bracket. To open a group, double-click again on the hooked line. (From now on, it is up to you to open the group in which you are interested.) :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] Numerical Calculations :[font = text; inactive; preserveAspect; ] You can do arithmetic with Mathematica just as you would on a calculator. You type the input 5 + 7, hit ªEnterº, and Mathematica prints the result 12. Since 5 + 7 is already typed for you in the cell below, simply click anywhere in the cell below with the equation and then hit ªEnter.º Note that you must hit the ªEnterº key (the one on the numeric key pad) to perform the calculation Ð not the return key. Alternatively, you can hold the shift key and hit the return key. :[font = input; preserveAspect; ] 5 + 7 :[font = text; inactive; preserveAspect; ] Unlike a calculator, however, Mathematica can give you exact results. Here is the exact result for 3 to the power 100. The ^ is Mathematica notation for raising to a power. :[font = input; preserveAspect; ] 3 ^ 100 :[font = text; inactive; preserveAspect; ] You can use the Mathematica function N to get approximate numerical results. The % stands for the last result. The answer is given in scientific notation. :[font = input; preserveAspect; ] N[%] :[font = text; inactive; preserveAspect; ] You can find numerical results to any degree of precision. This calculates the square root of 10 to 40 decimal places. The text enclosed in the (* *) delimiters is ignored by Mathematica. :[font = input; preserveAspect; ] N[ Sqrt[10], 40 (* Give answer to 40 decimal places *) ] :[font = text; inactive; pageBreak; preserveAspect; ] Mathematica can also handle complex numbers. Here is (3 + i4)^10. In Mathematica, ªIº stands for the imaginary number square root of ±1. :[font = input; noPageBreak; preserveAspect; ] (3 + 4 I) ^ 10 :[font = text; inactive; preserveAspect; ] Mathematica can evaluate all standard mathematical functions. Here is the value of the Bessel function Jo(10.5). :[font = input; preserveAspect; ] BesselJ[0, 10.5] :[font = text; inactive; preserveAspect; ] You can do numerical integrals. Here is the numerical value of the integral of sin(sin(x)) from 0 to p. ;[s] 3:0,0;107,1;108,2;110,-1; 3:1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] NIntegrate[ Sin[Sin[x]], {x, 0, Pi} ] :[font = text; inactive; preserveAspect; ] Mathematica can do many kinds of exact computations with integers. FactorInteger gives the factors of an integer. :[font = input; preserveAspect; ] FactorInteger[ 20654065386 ] :[font = text; inactive; preserveAspect; endGroup; ] Note that all built-in Mathematica commands start with a capital letter. :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] Delimiters :[font = subsection; inactive; preserveAspect; startGroup; ] Parentheses :[font = text; inactive; preserveAspect; endGroup; ] Parentheses are used for grouping. Without parentheses, multiplication and division have a higher precedence than addition and subtraction. :[font = subsection; inactive; preserveAspect; startGroup; ] Square Brackets :[font = text; inactive; preserveAspect; ] Square brackets are used for specifying arguments to functions. For example, the following statement calculates the square root of the sine of ±p/2. ;[s] 3:0,0;150,1;151,2;155,-1; 3:1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] Sqrt[ Sin[-Pi/2] ] :[font = text; inactive; preserveAspect; endGroup; ] Some functions take a fixed number of arguments while others can be called with zero or more arguments. :[font = subsection; inactive; preserveAspect; startGroup; ] Curly Braces :[font = text; inactive; preserveAspect; ] Curly Braces are used for specifying lists, vectors, and matrices. A list or vector is several expressions separated by commas and enclosed in curly braces. The command shown below sets the variable ªmº equal to a 3 by 3 matrix. :[font = input; preserveAspect; ] m = {{1,2,3},{4,5,6},{7,8,9}} :[font = text; inactive; preserveAspect; ] The function MatrixForm displays a matrix in a more conventional form. :[font = input; preserveAspect; endGroup; ] MatrixForm[m] :[font = subsection; inactive; preserveAspect; startGroup; ] Double Square Brackets :[font = text; inactive; preserveAspect; ] Double square brackets are used for indexing, i.e., for referencing an object or set of objects in a list. Suppose we have a vector ªvº shown below. :[font = input; preserveAspect; ] v = {b,c,d} :[font = text; inactive; preserveAspect; ] The notation v[[i]] returns the ith element in the vector or list called ªvº. ;[s] 3:0,0;38,1;40,2;83,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] v[[2]] :[font = text; inactive; preserveAspect; ] Using the matrix ªmº, we can manipulate rows or elements. Recalling the assignment for ªmº from the above section, we can add row 1 to row 2. :[font = input; preserveAspect; ] m[[2]] = m[[1]] + m[[2]] :[font = input; preserveAspect; endGroup; ] MatrixForm[m] :[font = subsection; inactive; preserveAspect; startGroup; ] Comments :[font = text; inactive; preserveAspect; ] Text between (* and *) delimiters is not evaluated. It is taken to be a comment. :[font = input; preserveAspect; endGroup; endGroup; ] Sqrt[6. (*This command evaluates the square root of 6.*)] :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] On-line Help :[font = text; inactive; preserveAspect; ] Most names of objects in Mathematica are complete words. Mathematica rarely uses abbreviations. Abbreviations are only used where they are well known. For example: Abs absolute value of a number Cos cosine D derivative The ? operator can be used to obtain online help. The symbol * used with the ? operator acts as a wild card character, i.e., it can match any alphanumeric character or sequence of characters. If more than one command matches the request, Mathematica lists the names of all the commands. Given ?Plot* as input, Mathematica lists the commands that begin with the word Plot. :[font = input; preserveAspect; ] ?Plot* :[font = text; inactive; preserveAspect; ] If only one command matches the request, Mathematica will print the usage statement associated with the command. The usage statement typically consists of a template showing how to use the command and a brief description. Here is the information for Plot. :[font = input; preserveAspect; ] ?Plot :[font = text; inactive; preserveAspect; ] The usage statement tells us that this command plots a function over a specified domain. For example, evaluate the command below. :[font = input; preserveAspect; ] Plot[ Exp[-x], {x,-1,5} ] :[font = text; inactive; preserveAspect; ] Use ?? to obtain more information. (This often provides more detail than you need.) :[font = input; preserveAspect; endGroup; ] ??Plot :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] Editing :[font = subsection; inactive; preserveAspect; startGroup; ] Revising Text :[font = text; inactive; preserveAspect; ] To change a single character or word, position the vertical I-beam pointer to the right of the item to be deleted, click the mouse once, and press the backspace key to remove the text. To insert text, just begin typing. For larger text revisions as well as entire cells, it is more efficient to use the Undo, Cut, Copy, and Paste keys. These are described below. :[font = subsubsection; inactive; preserveAspect; startGroup; ] Undo :[font = text; inactive; preserveAspect; endGroup; ] Undo reverses your most recent typing or any editing action that used the Cut, Copy, or Paste keys. It can be activated by simultaneously pressing the Command and Undo keys. :[font = subsubsection; inactive; preserveAspect; startGroup; ] Cut :[font = text; inactive; preserveAspect; endGroup; ] Cut deletes selected text, graphics, or cells from your NoteBook and transfers them to the Pasteboard (special allocated memory). To cut selected material from a Notebook and place it in the Pasteboard: 1. Select the material to be cut. To select an entire cell, click its bracket. To select text inside a cell, drag over the desired text with the mouse. 2. Press Command and the Cut keys simultaneously. :[font = subsubsection; inactive; preserveAspect; startGroup; ] Copy :[font = text; inactive; preserveAspect; endGroup; ] Copy also moves selected text into the Pasteboard but, unlike the Cut command, it does not remove the selected text. :[font = subsubsection; inactive; preserveAspect; startGroup; ] Paste :[font = text; inactive; preserveAspect; endGroup; endGroup; ] This command inserts a copy of the Pasteboard contents at the current insertion point (chosen with the mouse). :[font = subsection; inactive; preserveAspect; startGroup; ] Creating New Cells :[font = text; inactive; preserveAspect; endGroup; endGroup; ] You can create a new cell by placing the cell insertion point at the bottom or top edge of the existing cell and typing. The mouse pointer will change to a horizontal I-beam when the mouse is properly positioned. :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Graphics :[font = text; inactive; preserveAspect; ] Here is a plot of the function sin(x3), with x ranging from ±2 to 2. ;[s] 3:0,0;41,1;42,2;74,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] Plot[ Sin[x^3], {x, -2, 2} ] :[font = text; inactive; preserveAspect; ] Mathematica chooses appropriate scales for plots, even when there are singularities. :[font = input; preserveAspect; endGroup; ] Plot[ 1 / Sin[x], {x, 0, 10} ] :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Three-Dimensional Plots :[font = text; inactive; preserveAspect; ] This makes a contour plot of the function sin(x) sin(3y). :[font = input; preserveAspect; ] ContourPlot[ Sin[x] Sin[3y], {x, -2, 2}, {y, -2, 2} ] :[font = text; inactive; pageBreak; preserveAspect; ] Mathematica can also make three-dimensional pictures. :[font = input; noPageBreak; preserveAspect; ] Plot3D[ Sin[x] Sin[3y], {x, -2, 2}, {y, -2, 2} ] :[font = text; inactive; pageBreak; preserveAspect; ] This displays the surface as seen from a different view point. :[font = input; noPageBreak; preserveAspect; ] Show[ %, ViewPoint -> {1, 0, 1} ] :[font = text; inactive; pageBreak; preserveAspect; ] Here is the original picture, with a finer grid of sample points, and with shading determined by simulated illumination. :[font = input; preserveAspect; endGroup; ] Plot3D[ Sin[x] Sin[3y], {x, -2, 2}, {y, -2, 2}, PlotPoints -> 30, Lighting -> True ] :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] Animations :[font = text; inactive; preserveAspect; ] Mathematica allows a sequence of graphics frames to be animated. In the example below, the graphics frames have already been generated by commands that are not shown. An animation is begun by selecting a group of graphics cell and then holding down the Command key and hitting the y key. Before starting the animation, make sure you can see all of the first two paragraphs which follow the box below. Now, start the animation in the following cell by clicking on the line with the hook at the bottom and then typing Command-y. Then, read the paragraphs below. :[font = postscript; PostScript; formatAsPostScript; output; inactive; Cclosed; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; startGroup; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.5619 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.10476 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 1.14 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.22571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.29714 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.37714 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.46286 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.55714 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.64571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.72286 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.80571 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.54603 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.08889 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 1.09918 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.1849 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.25633 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.33633 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.42204 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.51633 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.6049 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.68204 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.7649 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.53016 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.07302 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 1.05837 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.14408 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.21551 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.29551 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.38122 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.47551 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.56408 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.64122 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.72408 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.51429 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.05714 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 1.01755 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.10327 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.17469 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.25469 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.34041 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.43469 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.52327 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.60041 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.68327 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.49841 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.04127 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.97673 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.06245 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.13388 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.21388 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.29959 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.39388 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.48245 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.55959 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.64245 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.48254 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.0254 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.93592 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.02163 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.09306 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.17306 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.25878 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.35306 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.44163 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.51878 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.60163 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.46667 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 -0.00952 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.8951 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.98082 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.05224 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.13224 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.21796 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.31224 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.40082 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.47796 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.56082 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.45079 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.00635 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.85429 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.94 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 1.01143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.09143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.17714 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.27143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.36 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.43714 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.52 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.43492 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.02222 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.81347 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.89918 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.97061 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.05061 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.13633 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.23061 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.31918 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.39633 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.47918 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.41905 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.0381 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.77265 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.85837 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.9298 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 1.0098 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.09551 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.1898 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.27837 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.35551 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.43837 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.40317 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.05397 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.73184 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.81755 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.88898 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.96898 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.05469 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.14898 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.23755 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.31469 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.39755 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.3873 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.06984 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.69102 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.77673 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.84816 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.92816 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 1.01388 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.10816 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.19673 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.27388 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.35673 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.37143 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.08571 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.6502 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.73592 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.80735 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.88735 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.97306 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.06735 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.15592 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.23306 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.31592 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.35556 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.10159 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.60939 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.6951 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.76653 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.84653 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.93224 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.02653 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.1151 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.19224 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.2751 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.33968 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.11746 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.56857 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.65429 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.72571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.80571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.89143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.98571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.07429 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.15143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.23429 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.32381 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.13333 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.52776 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.61347 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.6849 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.7649 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.85061 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.9449 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 1.03347 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.11061 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.19347 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.30794 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.14921 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.48694 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.57265 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.64408 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.72408 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.8098 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.90408 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.99265 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.0698 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.15265 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.29206 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.16508 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.44612 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.53184 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.60327 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.68327 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.76898 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.86327 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.95184 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 1.02898 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.11184 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.27619 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.18095 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.40531 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.49102 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.56245 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.64245 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.72816 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.82245 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.91102 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 0.98816 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.07102 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.26032 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.19683 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.36449 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.4502 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.52163 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.60163 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.68735 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.78163 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.8702 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 0.94735 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 1.0302 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.24444 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.2127 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.32367 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.40939 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.48082 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.56082 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.64653 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.74082 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.82939 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 0.90653 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 0.98939 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 39; pictureWidth = 282; pictureHeight = 157; endGroup; ] %! %%Creator: Mathematica %%AspectRatio: 0.55714 MathPictureStart % Scaling calculations 0.02857 0.28571 0 0.28571 [ [ -0.001 -0.001 0 0 ] [ 1.001 0.55814 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave 0.002 setlinewidth 0 0 moveto 0 0.55714 lineto 1 0.55714 lineto 1 0 lineto 0 0 lineto stroke grestore gsave gsave grestore grestore 0 0 moveto 1 0 lineto 1 0.557143 lineto 0 0.557143 lineto closepath clip newpath 0 setgray gsave 0 setgray gsave Italic 50 scalefont setfont [(E)] 0.07143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Italic 50 scalefont setfont [(M)] 0.17143 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(N)] 0.28286 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.36857 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(t)] 0.44 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(e)] 0.52 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(B)] 0.60571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.7 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(o)] 0.78857 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(k)] 0.86571 0.22857 0 -1 Mshowa grestore 0 setgray gsave Plain 50 scalefont setfont [(s)] 0.94857 0.22857 0 -1 Mshowa grestore grestore % End of Graphics MathPictureEnd :[font = text; inactive; preserveAspect; endGroup; ] Notice the control buttons which appeared in the lower right corner of this window after the start of animation. As read from left to right, these buttons control the direction of the animation (backwards, loop, or forward), pausing, and the speed of the animation (decrease or increase). Click once on the pause button to freeze animation. Click on the pause button again restart the animation. An animation is stopped by typing Command-y again or by clicking the mouse button while the mouse pointer is within the Mathematica window (but not pointing to one of the animation control buttons). If you stop the animation with the mouse button, you will most likely have un-selected the graphics cells. To reselect these cells, click only ONCE on the grouping line with the hook on the bottom that is closest to the desired graphics. (If you do click twice on this grouping line, you will open the cell and see each ªframeº of the animation [feel free to do this, but it isn't very interesting].) An animated sequence may go very slowly when it is first run. This is because each frame has to be loaded into memory from the disk. Just be patient Ð once all the frames are in memory the speed of the animation should increase. Again, you have not been shown the commands that generated the frames for this animation. That will come later. All that is important here is that you learn how to animate a collection of frames. :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Making Definitions :[font = text; inactive; preserveAspect; ] This defines a value for the variable ªvº. :[font = input; preserveAspect; ] v = 1 + x :[font = text; inactive; preserveAspect; ] Now the value you have defined for ªvº is used whenever v appears. :[font = input; preserveAspect; ] 5 + 2 v + 3 v^2 :[font = text; inactive; preserveAspect; ] Expand[expr] expands out products and positive powers in expr. :[font = input; preserveAspect; ] Expand[%] :[font = text; inactive; preserveAspect; ] This defines a function ªfº. The definition can be thought of as a rule for transforming expressions of the form f[anything]. :[font = input; preserveAspect; ] f[x_] := x^2 :[font = text; inactive; preserveAspect; ] The occurrences of ªfº in an expression like this are transformed according to the rules you have given. :[font = input; preserveAspect; ] f[3] + f[a+b] :[font = text; inactive; preserveAspect; ] You can define functions of multiple variables. This defines the function ªf1º, which depends on two variables. :[font = input; preserveAspect; ] f1[x_,y_] := 2 x^2 + x y + Sqrt[y] :[font = text; inactive; preserveAspect; ] Mathematica will evaluate as much of the expression as possible. Unknowns are left as unknowns. Here are two examples. :[font = input; preserveAspect; ] f1[a,4] :[font = input; preserveAspect; ] f1[3,4] :[font = text; inactive; preserveAspect; ] Here is the recursive rule for the factorial function. :[font = input; preserveAspect; ] fac[n_] := n fac[n-1] :[font = text; inactive; preserveAspect; ] This gives a rule for the end condition of the factorial function. :[font = input; preserveAspect; ] fac[1] = 1 :[font = text; inactive; pageBreak; preserveAspect; ] Here are the two rules you have defined for fac. :[font = input; preserveAspect; ] ?fac :[font = text; inactive; preserveAspect; ] Mathematica can now apply these rules to find values for factorials. :[font = input; preserveAspect; endGroup; ] fac[20] :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Algebraic Formulae :[font = text; inactive; preserveAspect; ] Mathematica can work not only with numbers, but also with algebraic formulae. Here is the formula (x + y)2 + 9 (2+x)(x+y). ;[s] 3:0,0;111,1;112,2;129,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] (x + y)^2 + 9 (2 + x) (x + y) :[font = text; inactive; preserveAspect; ] This does the algebra to expand products and powers. :[font = input; preserveAspect; ] Expand[ % ] :[font = text; inactive; preserveAspect; ] Here is the third power of the expression. :[font = input; preserveAspect; ] % ^ 3 :[font = text; inactive; preserveAspect; ] Expanding this gives a somewhat more complicated result. :[font = input; preserveAspect; ] Expand[ % ] :[font = text; inactive; preserveAspect; ] Factoring the previous expression puts it in a much simpler form. :[font = input; preserveAspect; ] Factor[ % ] :[font = text; inactive; pageBreak; preserveAspect; ] Mathematica can do many kinds of algebraic computations. This gives an exact formula for the integral of x/(1±x3) dx. ;[s] 3:0,0;117,1;118,2;124,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] Integrate[ x / (1 - x^3), x ] :[font = text; inactive; preserveAspect; ] You can also find approximate formulae. This computes the power series expansion of e±x sin(x) about the point x = 0 up to order x^6. ;[s] 3:0,0;91,1;93,2;140,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; endGroup; ] Series[ Exp[-x] Sin[2x], {x, 0, 6} ] :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Lists :[font = text; inactive; preserveAspect; ] This makes a list of the first twenty factorials. :[font = input; noPageBreak; preserveAspect; ] Table[ n!, {n, 1, 20} ] :[font = text; inactive; preserveAspect; ] This takes the logarithm of each entry in the list, and evaluates the result numerically. Functions like Log have the property of being ``listable'', so that they apply separately to each element in a list. :[font = input; noPageBreak; preserveAspect; ] N[ Log[ % ] ] :[font = text; inactive; preserveAspect; ] Here is a plot of the entries in the list. :[font = input; noPageBreak; preserveAspect; ] ListPlot[ % ] :[font = text; inactive; preserveAspect; ] Mathematica uses lists to represent vectors. Here is the dot product of two three-dimensional vectors. :[font = input; preserveAspect; ] {x, y, z} . {a, b, c} :[font = text; inactive; preserveAspect; ] You can also do purely symbolic operations with lists. Permutations gives all possible permutations of a list, i.e. all possible orderings of the elements in a list. :[font = input; preserveAspect; ] Permutations[{a, b, c}] :[font = text; inactive; preserveAspect; ] Flatten ``un-nests'' lists. :[font = input; preserveAspect; ] Flatten[%] :[font = text; inactive; preserveAspect; ] The list given as the permutations of {a,b,c} is actually a list of lists. In this sense, the list is two dimensional. Let us use the Permutations command again a set a variable equal to the output. The list ªlist1º is essentially a matrix, as you will see in the next section. :[font = input; preserveAspect; ] list1 = Permutations[{a, b, c}] :[font = text; inactive; preserveAspect; ] The number of elements in each dimension of ªlist1º can be determined with the Dimensions command. One of the dimensions of ªlist1º has 6 elements, and the second dimension has 3. :[font = input; preserveAspect; ] Dimensions[list1] :[font = text; inactive; preserveAspect; ] As noted in the Delimiters section, element locations within a list are specified with double brackets. To get the second element of ªlist1,º we write: :[font = input; preserveAspect; ] list1[[2]] :[font = text; inactive; preserveAspect; ] Notice that the second element is itself a list Ð one with three element. To obtain the second element from this ªsub-list,º we can add another subscript. :[font = input; preserveAspect; endGroup; ] list1[[2,2]] :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Matrices :[font = text; inactive; preserveAspect; ] This generates a matrix whose (i , j)th element is 1/(i+j+1). Mathematica represents the matrix as a list of lists. ;[s] 3:0,0;42,1;44,2;122,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] m = Table[ 1 / (i + j + 1), {i, 3}, {j, 3} ] :[font = text; inactive; preserveAspect; ] The matrix can be displayed in matrix form rather than list form. :[font = input; preserveAspect; ] MatrixForm[ m ] :[font = text; inactive; preserveAspect; ] Here is the inverse of the matrix. :[font = input; preserveAspect; ] Inverse[ m ] :[font = text; inactive; preserveAspect; ] Multiplying the inverse by the original matrix gives an identity matrix. :[font = input; preserveAspect; ] % . m :[font = text; inactive; preserveAspect; ] This gives a new matrix, with a modified diagonal. :[font = input; preserveAspect; ] m - x IdentityMatrix[3] :[font = text; inactive; preserveAspect; ] The determinant of the new matrix gives the characteristic polynomial for the original matrix. :[font = input; preserveAspect; ] Det[ % ] :[font = text; inactive; pageBreak; preserveAspect; ] This finds (numerically) the roots of the characteristic polynomial using the Solve function. These roots correspond to the eigenvalues of ªmº. :[font = input; preserveAspect; ] N[ Solve[ % == 0, x ] ] :[font = text; inactive; preserveAspect; ] Using the function Eigenvalues, you can find the numerical eigenvalues of ªmº directly. :[font = input; preserveAspect; endGroup; ] Eigenvalues[ N[ m ] ] :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Procedural Programming :[font = text; inactive; preserveAspect; ] Here is a simple Mathematica program that generates and expands products. :[font = input; preserveAspect; ] exprod[n_] := Expand[ Product[ x + i, {i, 1, n} ] ] :[font = text; inactive; preserveAspect; ] The result of this function (or program) is the expansion of (x+1)(x+2)(x+3)...(x+n), where n is specified by you, the user. The following statement runs the program with n=4. :[font = input; preserveAspect; endGroup; ] exprod[4] :[font = section; inactive; Cclosed; pageBreak; preserveAspect; startGroup; ] Defining Mathematical Relations :[font = text; inactive; preserveAspect; ] Here is an example of mathematical programming in Mathematica. This definition gives the mathematical rule log(x y) = log(x) + log(y). :[font = input; preserveAspect; ] log[x_ y_] := log[x] + log[y] :[font = text; inactive; preserveAspect; ] Mathematica uses your definition to expand out this logarithm. :[font = input; preserveAspect; ] log[a b c^2 d] :[font = text; inactive; preserveAspect; ] You can add the rule log(xn) = n log(x). ;[s] 3:0,0;31,1;32,2;46,-1; 3:1,11,8,Times,0,12,0,0,0;1,8,6,Times,32,9,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect; ] log[x_ ^ n_] := n log[x] :[font = text; inactive; preserveAspect; ] Now logarithms of powers are also expanded out. :[font = input; preserveAspect; ] log[a b c^2 d] :[font = text; inactive; preserveAspect; ] This shows all the definitions you have given for log. :[font = input; preserveAspect; endGroup; ] ?log :[font = section; inactive; Cclosed; preserveAspect; startGroup; ] Changes :[font = text; inactive; preserveAspect; ] This NoteBook was originally entitled ªTourOfMathematica.maº and was provided with the Mathematica distribution. The modifications made are listed below. This should not be of interest to the general reader. :[font = text; inactive; preserveAspect; ] Changes on 2/12/92: reformated the notebook to agree with 2.0 formattting; changes ªpiº in the text to p; indicated exponentiation with superscripts rather than ª^º. ;[s] 3:0,0;108,1;109,2;171,-1; 3:1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect; ] The font sizes were changed to agree with the default font sizes used in NeXT release 1.0 of Mathematica. All the results were deleted so that the user must initiate the calculation. All variables were enclosed in quotes in the text. :[font = text; inactive; preserveAspect; ] The original introductory paragraph was deleted and the ªIntroduction to the Introductionº section was added. :[font = text; inactive; preserveAspect; ] ªNumerical Calculationsº section: Added statement about enter key. Changed Rieman Zeta function to square root. Added statement about Mathmatica commands starting with capital letters. Added statement about comment delimiters. :[font = text; inactive; preserveAspect; ] ªCell Structure,º ªOn Line Help,º ªDelimiters,º and ªEditingº sections were added. :[font = text; inactive; preserveAspect; ] ªGraphicsº section: The ?Function construct was further explained. :[font = text; inactive; preserveAspect; ] ªThree-Dimensional Graphicsº section: Deleted sentence about postscript output. :[font = text; inactive; preserveAspect; ] ªAnimationsº section was added. :[font = text; inactive; preserveAspect; ] ªAlgebraic Formulaeº section: Deleted sentence about time to perform calculation. :[font = text; inactive; preserveAspect; ] ªSolving Equationsº section was deleted. :[font = text; inactive; preserveAspect; ] ªListsº section: Statements about Fit function were deleted. Statements about retrieving an element from a list were added. Sentence about the ListPlot being nearly linear was deleted. :[font = text; inactive; preserveAspect; ] ªMatricesº section: Statements about the symbolic determination of the eigenvalues were deleted. Statements added to demonstrate MatrixForm. The phrase ªleading diagonalº was changed to just ªdiagonal.º :[font = text; inactive; preserveAspect; ] ªProcedural Programming in Mathematicaº section: Continued fraction example was deleted. Some explanatory text was added. :[font = text; inactive; preserveAspect; ] ªDefining Mathematical Relations in Mathematicaº section: Typos were corrected (super- and sub-scripts were not properly rendered). Statements about Laplace transform package were deleted. :[font = text; inactive; preserveAspect; ] ªInterfacing with Mathematicaº section: TeXForm statements were deleted. OpenRead and ReadList statements were deleted. :[font = text; inactive; preserveAspect; ] ªMaking Definitions in Mathematicaº section: Statements about defining w[2] were deleted. Statements added about multi-variable functions. Section was moved to follow ªThree-Dimensional Plots.º :[font = text; inactive; preserveAspect; ] ªMore Graphicsº section was deleted. :[font = text; inactive; preserveAspect; ] ªMathematica Front Endsº section was deleted. :[font = text; inactive; preserveAspect; endGroup; ] ªNotebooksº section was deleted. ^*)