(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. 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[     23066,        759]*)
(*NotebookOutlinePosition[     53117,       1852]*)
(*  CellTagsIndexPosition[     53073,       1848]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[{
  StyleBox["Math 245",
    FontSlant->"Italic"],
  " ",
  StyleBox["\[FilledSmallCircle]",
    FontSlant->"Plain"],
  " 9 September 1999"
}], "Subsubtitle",
  CellMargins->{{22, 62}, {Inherited, Inherited}},
  TextAlignment->Center,
  TextJustification->0],

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Introduction\[LongDash]Part 2"
}], "Subtitle",
  CellMargins->{{-1.1875, -33.1875}, {Inherited, Inherited}}],

Cell["Type your name(s) into the cell below.", "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[StyleBox["Your name(s):\n\n",
  FontWeight->"Bold"]], "ExampleSection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
From now on when you work with a notebook, enlarge its type as needed for \
readability and adjust the position and size of the window to suit your \
taste.\
\>", "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
The sections and subsections in this notebook (and in most others you will \
use in the course) are in closed groups, to give an outline view.  Open each \
group when you are ready.\
\>", "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell[TextData[{
  "Mathematical notation in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " "
}], "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["Names of built-in objects", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "All of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "'s built-in names begin with upper-case letters, and unlike in most \
traditional elementary mathematical notation, names may consist of multiple \
letters.  In fact, most built-in function names are entire words or unspaced \
phrases.  For example:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Limit[\(z\^2 - \ 9\)\/\(z\  - \ 3\), \ z\  \[Rule] \ 3]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(FactorInteger[5625]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
A handful of the most common elementary transcendental functions keep their \
usual abbreviations\[LongDash]but with initial upper-case letters of \
course:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(ArcTan[Sin[\[Pi]\/2]]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Exponents, fractions, and square-roots", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
If you are running out of time today, you could omit this subsection for now \
and go through it at another time.\
\>", "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To enter an exponent,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " you may use the character ",
  StyleBox["^",
    FontFamily->"Courier"],
  " inline.  For example, type ",
  StyleBox["x^2",
    FontFamily->"Courier"],
  " for the square of ",
  StyleBox["x",
    FontFamily->"Courier"],
  ".  To get raised exponents, use the \[ControlKey]-^ key combination, type \
the exponent, and use the mouse or cursor keys to move to the right beyond \
the exponent.\nSimilarly, ",
  StyleBox["to enter a fraction,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " you may use the / character inline.  For example:  ",
  StyleBox["2/3",
    FontFamily->"Courier"],
  "  To get a multi-line built-up fraction, use the \[ControlKey]-/ key \
combination.\n",
  StyleBox["To get a square root",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", you may use the ",
  StyleBox["Sqrt",
    FontFamily->"Courier"],
  " function inline.  For example:  ",
  StyleBox["Sqrt[2]",
    FontFamily->"Courier"],
  "  To get a traditional square-root symbol, use the  \[ControlKey]-2 key \
combination."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  In new input cells, enter the ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " equivalent of the traditional mathematical notation\n",
  Cell[BoxData[
      \(TraditionalForm\`\@\(\(z\^\(\(2\)\(\ \)\) - \ 9\)\/\(z - \ 3\)\)\)]],
  " first inline and then as a multi-line display."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Common math constants", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To enter common the math constants",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " traditionally denoted ",
  Cell[BoxData[
      \(TraditionalForm\`e\)]],
  ", \[Pi], ",
  Cell[BoxData[
      \(TraditionalForm\`i\)]],
  " (that is, ",
  Cell[BoxData[
      \(TraditionalForm\`\@\(-1\)\)]],
  "), and ",
  Cell[BoxData[
      \(TraditionalForm\`\[Infinity]\)]],
  ", you may type ",
  StyleBox["E",
    FontFamily->"Courier"],
  ", ",
  StyleBox["Pi",
    FontFamily->"Courier"],
  ", ",
  StyleBox["I",
    FontFamily->"Courier"],
  ", and ",
  StyleBox["Infinity",
    FontFamily->"Courier"],
  ", respectively.  To get their more traditionally-appearing forms \
\[ExponentialE], \[Pi], and \[ImaginaryI], and ",
  Cell[BoxData[
      \(TraditionalForm\`\[Infinity]\)]],
  ", use paired \[EscapeKey] (Escape) key sequences.  For example, type \[Pi] \
as \[EscapeKey]p\[EscapeKey].  (Pressing \[EscapeKey] will cause the glyph  \
\[AliasIndicator]  to appear temporarily in the cell.)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Constants and functions", "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["Clearing", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Before introducing a new a name for a constant or a function, it's a good \
idea to ",
  StyleBox["clear",
    FontWeight->"Bold"],
  " any values it may previously have been given:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Clear[abc, \ myNumber]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Assigning constants", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "To assign a constant value to a name, use the form ",
  StyleBox["name = expr",
    FontFamily->"Courier"],
  " with an equals sign, like this:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(myNumber\  = \ abc + 5\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
To suppress the uninteresting output from evaluating such an assignment\
\[LongDash]or the output from any expression whatsoever\[LongDash]just \
terminate the expression with a semicolon:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(myNumber\  = \ abc\  + 5\ ;\)\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
Once assigned a value, the name can of course be used in subsequent \
expressions:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(myNumber/2\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(abc\  = \ 7;\)\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(myNumber/2\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Working with functions", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["\[WarningSign]",
    Background->RGBColor[1, 1, 0]],
  "  As you have already seen, ",
  StyleBox["the arguments of a ",
    Background->RGBColor[1, 1, 0]],
  StyleBox["Mathematica",
    FontSlant->"Italic",
    Background->RGBColor[1, 1, 0]],
  StyleBox[" function are enclosed in square brackets",
    Background->RGBColor[1, 1, 0]],
  " and ",
  StyleBox["not",
    FontSlant->"Italic"],
  " in parentheses:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Exp[0]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Parentheses are used in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " to group expressions.  ",
  StyleBox["Try this:",
    Background->GrayLevel[0.900008]],
  " Explain the output from the three expressions in the following cell:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[{
    \(Exp \((0)\)\), "\n", 
    \(Exp \((1)\)\), "\n", 
    \(Exp \((2)\)\)}], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
If a function has several arguments, they are separated with commas.  For \
example:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Log[2, \ 32]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Random[Integer, \ 100]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Random[Integer, \ 100]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To define a function",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " of a single argument in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  ", use the form ",
  StyleBox["fname[var_] := expr",
    FontFamily->"Courier"],
  ", where the expression ",
  StyleBox["expr",
    FontFamily->"Courier"],
  " will typically involve the symbol ",
  StyleBox["var",
    FontFamily->"Courier"],
  ".  Be sure to append the underscore (\[ShiftKey] ",
  StyleBox["-",
    FontFamily->"Courier"],
  " ) to the argument name ",
  StyleBox["var",
    FontFamily->"Courier"],
  ".  And be sure to use colon equal (",
  StyleBox[" :=",
    FontFamily->"Courier",
    FontWeight->"Bold",
    FontSlant->"Plain"],
  "  ), not just equal.  For example:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(picture[c_]\  := \ Plot[Sin[c\ x], \ {x, \ 0, \ 2  \[Pi]}]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(picture[1]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Table[picture[coef], \ {coef, \ 1, \ 5}]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Do the obvious thing to define a function of several arguments.  ",
  StyleBox["Try this:",
    Background->GrayLevel[0.900008]],
  "  Define a function of two arguments\[LongDash]which in use will be real \
numbers\[LongDash]that calculates the distance between them.  For example, if \
the arguments are given the values 3 and 8, then the result of evaluating \
your function should be 5.  (",
  StyleBox["Hint:",
    FontSlant->"Italic"],
  "  Use the absolute value function ",
  StyleBox["Abs",
    FontFamily->"Courier"],
  ".)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Getting built-in help (important!)", "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Perhaps this section is the most important in this tutorial: it tells how \
to get help from ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " itself.  There are two basic ways\[LongDash]evaluating an information \
expression and using the help browser. "
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["Information", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
To get a brief summary of the syntax and meaning of a built-in object, \
evaluate a cell with an information expression like the following:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(?Integrate\)\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Use the information you obtained about Integrate to figure out how to \
calculate with ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " an indefinite integral (antiderivative) of ",
  StyleBox["x",
    FontSlant->"Italic"],
  " ",
  Cell[BoxData[
      \(TraditionalForm\`Exp(\(-\ \(x\^2\/2\)\))\)]],
  ".\n",
  StyleBox["\[WarningSign]",
    FontSize->16,
    FontColor->RGBColor[1, 0, 0]],
  " Recall that arguments to ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " functions are enclosed in square brackets, not parentheses!"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["Here's another information request:", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(?Plot\)\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "The ",
  StyleBox["derivative",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " of a function may be denoted by a prime, for example:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(Cos'\)[x]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[{
    \(Clear[f]\), "\n", 
    \(f[x_]\  := \ 0.75  Cos[2  x]\ Exp[\(-\(x\/10\)\)]\), "\n", 
    \(\(f'\)[x]\)}], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try this:",
    Background->GrayLevel[0.900008]],
  "  Guided by the information message you obtained about ",
  StyleBox["Plot",
    FontFamily->"Courier"],
  ", on the same axes plot the graphs of both ",
  StyleBox["f[x]",
    FontFamily->"Courier"],
  " and ",
  StyleBox["f'[x]",
    FontFamily->"Courier"],
  " over the interval from ",
  StyleBox["-2\[Pi]",
    FontFamily->"Courier"],
  " to ",
  StyleBox["2\[Pi].",
    FontFamily->"Courier"]
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Asking for information about a name that ",
  StyleBox["you",
    FontSlant->"Italic"],
  " have defined will display its definition:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(?f\)\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
If you know just part of the name of an object, you can use wild cards in the \
information request.  For example:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(\(?Int*\)\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  " Find out what objects have names ",
  StyleBox["ending",
    FontSlant->"Italic"],
  " in ",
  StyleBox["Solve",
    FontFamily->"Courier"],
  "."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Information long form", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To get more information",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " about an object than a single question mark information request provides, \
use a double question mark form.  This provides the basic information, the ",
  StyleBox["options ",
    FontWeight->"Bold"],
  "(optional arguments of the form ",
  StyleBox["optname \[Rule] val",
    FontFamily->"Courier"],
  StyleBox[")",
    FontFamily->"Times"],
  ", and the so-called \"attributes\".  For example:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(?? Plot\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(?? Cos\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "The help browser (",
  StyleBox["very",
    FontSlant->"Italic"],
  " important!)"
}], "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "The ",
  StyleBox["Help Browser",
    FontWeight->"Bold"],
  " provides (nearly) complete documentation about ",
  StyleBox["Mathematica. ",
    FontSlant->"Italic"],
  "In fact, the Help Browser contains the entire text of Stephen Wolfram's \
1,496-page definitive reference, \"The ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Book\"."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To open the Help Browser",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", from the ",
  StyleBox["Help",
    FontFamily->"Helvetica"],
  " menu select ",
  StyleBox["Help Browser",
    FontFamily->"Helvetica"],
  ".  Then navigate to find the topic you want.  It's fairly intuitive how to \
do this.  But if you need help on how to use the Help Browser, ask a human: \
it's much easier for someone to show you than to describe how in words."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Use the Help Browser to find out about the built-in function ",
  StyleBox["Solve",
    FontFamily->"Courier"],
  "."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
Many Help Browser entries include at the end a section that looks like the \
following:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["Further examples", "ExampleSection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["(examples would go here)", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell["\<\
Such a section is just a specially formatted close group of cells.  To see \
the further examples, click on the little triangle to open the group and see \
the examples.\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "The display in the large window at the bottom of the Help Browser is, in \
fact, just another ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " notebook, albeit one with a specialized style.  So you can copy examples \
from the Help Browser window and paste them into your own notebook."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Copy below into this notebook one of the \"Further examples\" input \
cells that you found in the help about ",
  StyleBox["Solve",
    FontFamily->"Courier"],
  ".  Then evaluate the input cell\[LongDash]perhap after modifying the \
example."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]]
}, Closed]],

Cell[TextData[{
  "Before proceeding, print a copy of this notebook\[LongDash]one copy for \
each of you if you are working with a partner\[LongDash]to keep for \
reference.  (Do ",
  StyleBox["not",
    FontSlant->"Italic"],
  " hand it in!)"
}], "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["What's next?", "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "If you have time at this lab session\[LongDash]you \
should!\[LongDash]continue this introduction by opening the notebook ",
  StyleBox["Intro3.nb",
    FontFamily->"Courier"],
  ".  Otherwise,\" clean up\" as indicated  below."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell["Cleaning up", "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "When you are finished at your ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " session for today, please:\n \[FilledSmallCircle] Save all notebooks \
(such as this one) that you want to save to your diskette (or copy them to \
your diskette from the ",
  StyleBox["User Item",
    FontFamily->"Courier"],
  "s folder on ",
  StyleBox["Math HD",
    FontFamily->"Courier"],
  " where you originally put them).\n \[FilledSmallCircle] Close all open \
notebooks.\n \[FilledSmallCircle] Exit (quit) ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " from the ",
  StyleBox["File",
    FontFamily->"Helvetica"],
  " menu."
}], "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["Copyright \[Copyright] 1999 by Murray Eisenberg", "Copyright",
  CellMargins->{{17.625, 62}, {Inherited, Inherited}},
  TextAlignment->Center,
  TextJustification->0]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 723}},
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{687, 517},
WindowMargins->{{Automatic, 109}, {Automatic, 20}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
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->7,
    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"]}},
    PageHeaderLines->{True, True},
    PrintingOptions->{"FirstPageHeader"->False,
    "FacingPages"->True},
    CellFrameLabelMargins->6,
    StyleMenuListing->None]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Headings", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Title"],
    ShowCellBracket->False,
    CellMargins->{{0, 0}, {0, 0}},
    PageBreakBelow->False,
    LineSpacing->{1, 0},
    CounterIncrements->"Title",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subtitle", 0}, {"Subsubtitle", 0}},
    FontSize->34,
    FontColor->GrayLevel[1],
    Background->RGBColor[0.571389, 0.19675, 0.570504]],
  
  Cell[StyleData["Title", "Presentation"],
    CellMargins->{{0, 0}, {0, 0}},
    LineSpacing->{1, 0},
    FontSize->44],
  
  Cell[StyleData["Title", "Condensed"],
    CellMargins->{{0, 0}, {0, 0}},
    FontSize->20],
  
  Cell[StyleData["Title", "Printout"],
    CellMargins->{{0, 0}, {0, 0}},
    FontSize->24,
    FontTracking->"Plain",
    Background->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subtitle"],
    ShowCellBracket->False,
    CellMargins->{{0, 0}, {0, 0}},
    PageBreakBelow->False,
    LineSpacing->{1, 3},
    ParagraphIndent->-96,
    CounterIncrements->"Subtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->18,
    FontColor->GrayLevel[1],
    Background->RGBColor[0.2, 0.700008, 0.700008]],
  
  Cell[StyleData["Subtitle", "Presentation"],
    CellMargins->{{0, 0}, {0, 0}},
    LineSpacing->{1, 6},
    ParagraphIndent->-157,
    FontSize->30],
  
  Cell[StyleData["Subtitle", "Condensed"],
    CellMargins->{{0, 0}, {0, 0}},
    ParagraphIndent->-78,
    FontSize->14],
  
  Cell[StyleData["Subtitle", "Printout"],
    CellMargins->{{0, 0}, {0, 0}},
    ParagraphIndent->-85,
    FontSize->16,
    Background->GrayLevel[0.6]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubtitle"],
    ShowCellBracket->False,
    CellMargins->{{10, 4}, {30, 10}},
    PageBreakBelow->False,
    CounterIncrements->"Subsubtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
    FontFamily->"Helvetica",
    FontSize->14,
    FontSlant->"Italic"],
  
  Cell[StyleData["Subsubtitle", "Presentation"],
    CellMargins->{{8, 10}, {40, 20}},
    LineSpacing->{1, 0},
    FontSize->24],
  
  Cell[StyleData["Subsubtitle", "Condensed"],
    CellMargins->{{8, 10}, {12, 8}},
    FontSize->12],
  
  Cell[StyleData["Subsubtitle", "Printout"],
    CellMargins->{{9, 10}, {50, 10}},
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Section"],
    CellFrame->{{6, 0}, {0, 1}},
    CellDingbat->None,
    CellMargins->{{12, Inherited}, {4, 24}},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    CellFrameMargins->6,
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->16,
    FontWeight->"Bold",
    FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
  
  Cell[StyleData["Section", "Presentation"],
    CellMargins->{{10, 10}, {8, 32}},
    LineSpacing->{1, 2},
    FontSize->24,
    FontTracking->"Condensed"],
  
  Cell[StyleData["Section", "Condensed"],
    CellMargins->{{8, Inherited}, {2, 12}},
    FontSize->12],
  
  Cell[StyleData["Section", "Printout"],
    CellMargins->{{9, 0}, {2, 50}},
    FontSize->14,
    FontTracking->"Plain",
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsection"],
    CellMargins->{{12, Inherited}, {8, 20}},
    CellGroupingRules->{"SectionGrouping", 40},
    PageBreakBelow->False,
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->13,
    FontWeight->"Bold"],
  
  Cell[StyleData["Subsection", "Presentation"],
    CellMargins->{{11, 10}, {8, 32}},
    LineSpacing->{1, 0},
    FontSize->22],
  
  Cell[StyleData["Subsection", "Condensed"],
    CellMargins->{{8, Inherited}, {2, 12}},
    FontSize->12],
  
  Cell[StyleData["Subsection", "Printout"],
    CellMargins->{{9, 0}, {4, 40}},
    FontSize->12]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubsection"],
    CellDingbat->"\[FilledSquare]",
    CellMargins->{{25, Inherited}, {8, 12}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    CounterIncrements->"Subsubsection",
    FontFamily->"Times",
    FontSize->13,
    FontWeight->"Bold"],
  
  Cell[StyleData["Subsubsection", "Presentation"],
    CellMargins->{{29, 10}, {8, 26}},
    LineSpacing->{1, 0},
    FontSize->18],
  
  Cell[StyleData["Subsubsection", "Condensed"],
    CellMargins->{{22, Inherited}, {2, 12}},
    FontSize->10],
  
  Cell[StyleData["Subsubsection", "Printout"],
    CellMargins->{{21, 0}, {4, 20}},
    FontSize->11]
  }, Closed]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Body Text", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Text"],
    CellMargins->{{12, 10}, {5, 5}},
    LineSpacing->{1, 3},
    ParagraphSpacing->{0, 12},
    CounterIncrements->"Text",
    FontFamily->"Times"],
  
  Cell[StyleData["Text", "Presentation"],
    CellMargins->{{13, 10}, {8, 8}},
    LineSpacing->{1, 5},
    ParagraphSpacing->{0, 12}],
  
  Cell[StyleData["Text", "Condensed"],
    CellMargins->{{8, 10}, {4, 4}},
    LineSpacing->{1, 1},
    ParagraphSpacing->{0, 4}],
  
  Cell[StyleData["Text", "Printout"],
    CellMargins->{{9, 0}, {4, 4}},
    ParagraphSpacing->{0, 6}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["SmallText"],
    CellMargins->{{12, 10}, {5, 5}},
    LineSpacing->{1, 3},
    ParagraphSpacing->{0, 6},
    CounterIncrements->"SmallText",
    FontFamily->"Helvetica",
    FontSize->9],
  
  Cell[StyleData["SmallText", "Presentation"],
    CellMargins->{{13, 10}, {8, 8}},
    LineSpacing->{1, 5},
    FontSize->12],
  
  Cell[StyleData["SmallText", "Condensed"],
    CellMargins->{{8, 10}, {2, 2}},
    LineSpacing->{1, 2},
    FontSize->9],
  
  Cell[StyleData["SmallText", "Printout"],
    CellMargins->{{9, 0}, {4, 4}},
    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"],
    CellFrame->{{3, 0}, {0, 0}},
    CellMargins->{{52, 10}, {8, 8}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{5, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultInputFormatType,
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    CounterIncrements->"Input",
    FontWeight->"Bold",
    Background->RGBColor[1, 0.700008, 0.4]],
  
  Cell[StyleData["Input", "Presentation"],
    CellMargins->{{62, Inherited}, {10, 10}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Input", "Condensed"],
    CellMargins->{{40, 10}, {4, 4}}],
  
  Cell[StyleData["Input", "Printout"],
    CellMargins->{{44, 0}, {6, 6}},
    Background->GrayLevel[0.8]]
  }, Closed]],
  
  Cell[StyleData["InlineInput"],
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    DefaultFormatType->DefaultInputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    CounterIncrements->"Input",
    FontWeight->"Bold"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Output"],
    CellFrame->{{3, 0}, {0, 0}},
    CellMargins->{{52, 10}, {8, 8}},
    CellEditDuplicate->True,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Output",
    Background->RGBColor[1, 0.900008, 0.900008]],
  
  Cell[StyleData["Output", "Presentation"],
    CellMargins->{{62, Inherited}, {12, 5}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Output", "Condensed"],
    CellMargins->{{40, Inherited}, {4, 1}}],
  
  Cell[StyleData["Output", "Printout"],
    CellMargins->{{44, 0}, {6, 2}},
    Background->GrayLevel[0.900008]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Message"],
    CellMargins->{{62, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Message",
    StyleMenuListing->None,
    FontColor->RGBColor[1, 0, 0]],
  
  Cell[StyleData["Message", "Presentation"],
    CellMargins->{{74, Inherited}, {Inherited, Inherited}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Message", "Condensed"],
    CellMargins->{{50, Inherited}, {Inherited, Inherited}}],
  
  Cell[StyleData["Message", "Printout"],
    CellMargins->{{54, Inherited}, {Inherited, Inherited}},
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Print"],
    CellMargins->{{62, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Print",
    StyleMenuListing->None],
  
  Cell[StyleData["Print", "Presentation"],
    CellMargins->{{74, Inherited}, {Inherited, Inherited}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Print", "Condensed"],
    CellMargins->{{50, Inherited}, {Inherited, Inherited}}],
  
  Cell[StyleData["Print", "Printout"],
    CellMargins->{{54, Inherited}, {Inherited, Inherited}}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Graphics"],
    CellMargins->{{62, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"GraphicsGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Graphics",
    StyleMenuListing->None],
  
  Cell[StyleData["Graphics", "Presentation"],
    CellMargins->{{74, Inherited}, {Inherited, Inherited}}],
  
  Cell[StyleData["Graphics", "Condensed"],
    CellMargins->{{52, Inherited}, {Inherited, Inherited}},
    ImageSize->{175, 175}],
  
  Cell[StyleData["Graphics", "Printout"],
    CellMargins->{{54, Inherited}, {Inherited, Inherited}},
    ImageSize->{250, 250}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["CellLabel"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->11,
    FontWeight->"Bold",
    FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
  
  Cell[StyleData["CellLabel", "Presentation"],
    FontSize->12],
  
  Cell[StyleData["CellLabel", "Condensed"],
    FontSize->8],
  
  Cell[StyleData["CellLabel", "Printout"],
    FontSize->8,
    FontColor->GrayLevel[0]]
  }, Closed]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Unique Styles", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["BoxedText"],
    CellFrame->True,
    CellMargins->{{12, 10}, {5, 5}},
    LineSpacing->{1, 3},
    ParagraphSpacing->{0, 12},
    CounterIncrements->"Text",
    FontFamily->"Times",
    FontWeight->"Bold",
    FontColor->RGBColor[0.571389, 0.19675, 0.570504],
    Background->GrayLevel[0.849989]],
  
  Cell[StyleData["BoxedText", "Presentation"],
    CellMargins->{{13, 10}, {8, 8}},
    LineSpacing->{1, 5},
    ParagraphSpacing->{0, 12},
    FontSize->15],
  
  Cell[StyleData["BodyText", "Condensed"],
    CellMargins->{{8, 10}, {4, 4}},
    LineSpacing->{1, 1},
    ParagraphSpacing->{0, 4}],
  
  Cell[StyleData["BodyText", "Printout"],
    CellMargins->{{9, 0}, {4, 4}},
    ParagraphSpacing->{0, 6},
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["ExampleSection"],
    ShowCellBracket->False,
    ShowGroupOpenCloseIcon->True,
    CellMargins->{{11, 4}, {0, 10}},
    CellGroupingRules->{"SectionGrouping", 70},
    CellFrameMargins->12,
    FontSize->13,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 0.4]],
  
  Cell[StyleData["ExampleSection", "Printout"],
    CellMargins->{{3, 0}, {0, 10}},
    PageBreakBelow->False,
    FontSize->9,
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Author"],
    ShowCellBracket->False,
    CellMargins->{{10, 4}, {2, 10}},
    FontSize->16,
    FontSlant->"Italic"],
  
  Cell[StyleData["Author", "Presentation"],
    CellMargins->{{12, 10}, {2, 12}},
    LineSpacing->{1, 5},
    ParagraphSpacing->{0, 12},
    FontSize->20],
  
  Cell[StyleData["Author", "Condensed"],
    CellMargins->{{8, 10}, {1, 4}},
    LineSpacing->{1, 1},
    ParagraphSpacing->{0, 4},
    FontSize->12],
  
  Cell[StyleData["Author", "Printout"],
    CellMargins->{{9, 0}, {4, 12}},
    ParagraphSpacing->{0, 6},
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Copyright"],
    ShowCellBracket->False,
    CellMargins->{{10, 10}, {40, 2}},
    FontFamily->"Helvetica",
    FontSize->9],
  
  Cell[StyleData["Copyright", "Presentation"],
    CellMargins->{{12, 10}, {50, 2}},
    LineSpacing->{1, 5},
    FontSize->12],
  
  Cell[StyleData["Copyright", "Condensed"],
    CellMargins->{{8, 10}, {12, 1}},
    LineSpacing->{1, 2},
    FontSize->9],
  
  Cell[StyleData["Copyright", "Printout"],
    CellMargins->{{9, 0}, {72, 4}},
    FontSize->7]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Example"],
    CellMargins->{{12, 10}, {5, 12}},
    LineSpacing->{1, 3},
    ParagraphSpacing->{0, 12},
    CounterIncrements->"Example",
    FontFamily->"Times",
    FontWeight->"Bold"],
  
  Cell[StyleData["Example", "Presentation"],
    CellMargins->{{18, 10}, {8, 20}},
    LineSpacing->{1, 5},
    ParagraphSpacing->{0, 12}],
  
  Cell[StyleData["Example", "Condensed"],
    CellMargins->{{8, 10}, {4, 8}},
    LineSpacing->{1, 1},
    ParagraphSpacing->{0, 4}],
  
  Cell[StyleData["Example", "Printout"],
    CellMargins->{{9, 0}, {4, 10}},
    ParagraphSpacing->{0, 6}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Definition"],
    CellFrame->{{3, 0}, {0, 0}},
    CellMargins->{{52, 10}, {8, 8}},
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    ShowStringCharacters->True,
    CounterIncrements->"Definition",
    FontFamily->"Helvetica",
    FontWeight->"Bold",
    FontColor->GrayLevel[1],
    Background->RGBColor[0.2, 0.700008, 0.700008]],
  
  Cell[StyleData["Definition", "Presentation"],
    CellMargins->{{62, Inherited}, {5, 12}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Definition", "Condensed"],
    CellMargins->{{40, 10}, {1, 4}}],
  
  Cell[StyleData["Definition", "Printout"],
    CellMargins->{{44, 0}, {2, 6}},
    Background->GrayLevel[0.6]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Theorem"],
    CellFrame->{{3, 0}, {0, 0}},
    CellMargins->{{52, 10}, {8, 8}},
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
    ShowStringCharacters->True,
    CounterIncrements->"Theorem",
    FontFamily->"Helvetica",
    FontWeight->"Bold",
    FontColor->GrayLevel[1],
    Background->RGBColor[0.571389, 0.19675, 0.570504]],
  
  Cell[StyleData["Theorem", "Presentation"],
    CellMargins->{{62, Inherited}, {5, 12}},
    LineSpacing->{1, 0}],
  
  Cell[StyleData["Theorem", "Condensed"],
    CellMargins->{{40, 10}, {1, 4}}],
  
  Cell[StyleData["Theorem", "Printout"],
    CellMargins->{{44, 0}, {2, 6}},
    Background->GrayLevel[0.4]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["ExerciseMain"],
    CellFrame->{{6, 0}, {0, 1}},
    CellMargins->{{12, Inherited}, {4, 20}},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    CellFrameColor->RGBColor[0.571389, 0.19675, 0.570504],
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->16,
    FontWeight->"Bold",
    FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
  
  Cell[StyleData["ExerciseMain", "Presentation"],
    CellMargins->{{18, 10}, {8, 32}},
    LineSpacing->{1, 2},
    FontSize->24,
    FontTracking->"Condensed"],
  
  Cell[StyleData["ExerciseMain", "Condensed"],
    CellMargins->{{8, Inherited}, {2, 12}},
    FontSize->12],
  
  Cell[StyleData["ExerciseMain", "Printout"],
    CellMargins->{{9, 0}, {2, 50}},
    CellFrameColor->GrayLevel[0.500008],
    FontSize->14,
    FontTracking->"Plain",
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Exercise"],
    CellDingbat->"\[FilledDownTriangle]",
    CellMargins->{{23, Inherited}, {4, 18}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    CounterIncrements->"Subsubsection",
    FontFamily->"Times",
    FontSize->13,
    FontWeight->"Bold",
    FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
  
  Cell[StyleData["Exercise", "Presentation"],
    CellMargins->{{33, 10}, {8, 26}},
    LineSpacing->{1, 0},
    FontSize->18],
  
  Cell[StyleData["Exercise", "Condensed"],
    CellMargins->{{17, Inherited}, {2, 12}},
    FontSize->10],
  
  Cell[StyleData["Exercise", "Printout"],
    CellFrame->{{0, 0}, {0.5, 0}},
    CellDingbat->None,
    CellMargins->{{9, 0}, {6, 20}},
    FontSize->11,
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["ExerciseText"],
    CellMargins->{{62, 10}, {5, 5}},
    LineSpacing->{1, 3},
    ParagraphSpacing->{0, 8},
    CounterIncrements->"ExcersiceText",
    FontFamily->"Times"],
  
  Cell[StyleData["ExerciseText", "Presentation"],
    CellMargins->{{74, 10}, {8, 8}},
    LineSpacing->{1, 5},
    ParagraphSpacing->{0, 12}],
  
  Cell[StyleData["ExerciseText", "Condensed"],
    CellMargins->{{52, 10}, {2, 2}},
    LineSpacing->{1, 1},
    ParagraphSpacing->{0, 4}],
  
  Cell[StyleData["ExerciseText", "Printout"],
    CellMargins->{{54, 0}, {4, 4}},
    ParagraphSpacing->{0, 6}]
  }, Closed]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Formulas and Programming", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["DisplayFormula"],
    CellMargins->{{62, 10}, {2, 10}},
    CellHorizontalScrolling->True,
    DefaultFormatType->DefaultInputFormatType,
    ScriptLevel->0,
    SingleLetterItalics->True,
    UnderoverscriptBoxOptions->{LimitsPositioning->True}],
  
  Cell[StyleData["DisplayFormula", "Presentation"],
    CellMargins->{{74, 10}, {2, 10}},
    FontSize->10],
  
  Cell[StyleData["DisplayFormula", "Condensed"],
    CellMargins->{{52, 10}, {2, 10}},
    FontSize->10],
  
  Cell[StyleData["DisplayFormula", "Printout"],
    CellMargins->{{54, 10}, {2, 10}},
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["ChemicalFormula"],
    CellMargins->{{62, 10}, {2, 10}},
    DefaultFormatType->DefaultInputFormatType,
    AutoSpacing->False,
    ScriptLevel->1,
    ScriptBaselineShifts->{0.6, Automatic},
    SingleLetterItalics->False,
    ZeroWidthTimes->True],
  
  Cell[StyleData["ChemicalFormula", "Presentation"],
    CellMargins->{{74, 10}, {2, 10}},
    FontSize->10],
  
  Cell[StyleData["ChemicalFormula", "Condensed"],
    CellMargins->{{52, 10}, {2, 10}},
    FontSize->10],
  
  Cell[StyleData["ChemicalFormula", "Printout"],
    CellMargins->{{54, 10}, {2, 10}},
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Program"],
    CellMargins->{{12, 10}, {Inherited, 6}},
    FontFamily->"Courier"],
  
  Cell[StyleData["Program", "Presentation"],
    CellMargins->{{13, 30}, {Inherited, 4}},
    FontSize->9.5],
  
  Cell[StyleData["Program", "Condensed"],
    CellMargins->{{8, 10}, {Inherited, 4}},
    FontSize->9.5],
  
  Cell[StyleData["Program", "Printout"],
    CellMargins->{{9, 0}, {Inherited, 4}},
    FontSize->9.5]
  }, Closed]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Automatic Numbering", "Section"],
  
  Cell["\<\
The following styles are useful for numbered equations, figures, etc.  They \
automatically give the cell a FrameLabel containing a reference to a \
particular counter, and also increment that counter.\
\>", "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["NumberedEquation"],
    CellMargins->{{62, 10}, {Inherited, Inherited}},
    CellFrameLabels->{{None, Cell[ 
            TextData[ {"(", 
              CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}},
    DefaultFormatType->DefaultInputFormatType,
    CounterIncrements->"NumberedEquation",
    FormatTypeAutoConvert->False],
  
  Cell[StyleData["NumberedEquation", "Presentation"],
    CellMargins->{{74, 10}, {Inherited, Inherited}}],
  
  Cell[StyleData["NumberedEquation", "Condensed"],
    CellMargins->{{52, 10}, {Inherited, Inherited}}],
  
  Cell[StyleData["NumberedEquation", "Printout"],
    CellMargins->{{54, 0}, {Inherited, Inherited}}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["NumberedFigure"],
    CellMargins->{{62, 145}, {Inherited, Inherited}},
    CellFrameLabels->{{None, None}, {Cell[ 
            TextData[ {"Figure ", 
              CounterBox[ "NumberedFigure"]}]], None}},
    CounterIncrements->"NumberedFigure",
    ImageMargins->{{43, Inherited}, {Inherited, 0}},
    FormatTypeAutoConvert->False],
  
  Cell[StyleData["NumberedFigure", "Presentation"]],
  
  Cell[StyleData["NumberedFigure", "Condensed"]],
  
  Cell[StyleData["NumberedFigure", "Printout"]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["NumberedTable"],
    CellMargins->{{62, 145}, {Inherited, Inherited}},
    CellFrameLabels->{{None, None}, {Cell[ 
            TextData[ {"Table ", 
              CounterBox[ "NumberedTable"]}]], None}},
    TextAlignment->Center,
    CounterIncrements->"NumberedTable",
    FormatTypeAutoConvert->False],
  
  Cell[StyleData["NumberedTable", "Presentation"]],
  
  Cell[StyleData["NumberedTable", "Condensed"]],
  
  Cell[StyleData["NumberedTable", "Printout"]]
  }, Closed]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Headers and Footers", "Section"],
  
  Cell[StyleData["Header"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->9,
    FontSlant->"Italic"],
  
  Cell[StyleData["Footer"],
    CellMargins->{{0, 0}, {0, 4}},
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->6],
  
  Cell[StyleData["PageNumber"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->9,
    FontWeight->"Bold"]
  }, 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]]
  }, 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[1717, 49, 272, 10, 58, "Subsubtitle"],
Cell[1992, 61, 180, 5, 42, "Subtitle"],
Cell[2175, 68, 121, 1, 45, "BoxedText"],
Cell[2299, 71, 147, 2, 64, "ExampleSection"],
Cell[2449, 75, 247, 5, 64, "BoxedText"],
Cell[2699, 82, 272, 5, 64, "BoxedText"],

Cell[CellGroupData[{
Cell[2996, 91, 181, 6, 56, "Section"],

Cell[CellGroupData[{
Cell[3202, 101, 109, 1, 46, "Subsection"],
Cell[3314, 104, 408, 9, 67, "Text"],
Cell[3725, 115, 150, 2, 65, "Input"],
Cell[3878, 119, 114, 2, 50, "Input"],
Cell[3995, 123, 242, 5, 48, "Text"],
Cell[4240, 130, 116, 2, 60, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[4393, 137, 122, 1, 30, "Subsection"],
Cell[4518, 140, 204, 4, 45, "BoxedText"],
Cell[4725, 146, 1202, 36, 148, "Text"],
Cell[5930, 184, 449, 11, 78, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[6416, 200, 105, 1, 30, "Subsection"],
Cell[6524, 203, 1096, 36, 67, "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[7669, 245, 104, 1, 36, "Section"],

Cell[CellGroupData[{
Cell[7798, 250, 92, 1, 46, "Subsection"],
Cell[7893, 253, 275, 7, 70, "Text"],
Cell[8171, 262, 117, 2, 70, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[8325, 269, 103, 1, 30, "Subsection"],
Cell[8431, 272, 237, 6, 70, "Text"],
Cell[8671, 280, 117, 2, 70, "Input"],
Cell[8791, 284, 274, 5, 70, "Text"],
Cell[9068, 291, 126, 2, 70, "Input"],
Cell[9197, 295, 168, 4, 70, "Text"],
Cell[9368, 301, 105, 2, 70, "Input"],
Cell[9476, 305, 111, 2, 70, "Input"],
Cell[9590, 309, 105, 2, 70, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[9732, 316, 106, 1, 30, "Subsection"],
Cell[9841, 319, 513, 16, 29, "Text"],
Cell[10357, 337, 101, 2, 50, "Input"],
Cell[10461, 341, 337, 9, 48, "Text"],
Cell[10801, 352, 164, 4, 90, "Input"],
Cell[10968, 358, 170, 4, 29, "Text"],
Cell[11141, 364, 107, 2, 50, "Input"],
Cell[11251, 368, 117, 2, 50, "Input"],
Cell[11371, 372, 117, 2, 50, "Input"],
Cell[11491, 376, 852, 29, 68, "Text"],
Cell[12346, 407, 153, 2, 50, "Input"],
Cell[12502, 411, 105, 2, 50, "Input"],
Cell[12610, 415, 135, 2, 50, "Input"],
Cell[12748, 419, 627, 15, 67, "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[13424, 440, 115, 1, 36, "Section"],
Cell[13542, 443, 357, 8, 48, "Text"],

Cell[CellGroupData[{
Cell[13924, 455, 95, 1, 46, "Subsection"],
Cell[14022, 458, 225, 4, 48, "Text"],
Cell[14250, 464, 109, 2, 50, "Input"],
Cell[14362, 468, 709, 22, 89, "Text"],
Cell[15074, 492, 113, 1, 29, "Text"],
Cell[15190, 495, 104, 2, 50, "Input"],
Cell[15297, 499, 233, 7, 29, "Text"],
Cell[15533, 508, 106, 2, 50, "Input"],
Cell[15642, 512, 197, 4, 102, "Input"],
Cell[15842, 518, 553, 19, 48, "Text"],
Cell[16398, 539, 227, 6, 29, "Text"],
Cell[16628, 547, 101, 2, 50, "Input"],
Cell[16732, 551, 200, 4, 29, "Text"],
Cell[16935, 557, 104, 2, 50, "Input"],
Cell[17042, 561, 304, 11, 29, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[17383, 577, 105, 1, 30, "Subsection"],
Cell[17491, 580, 579, 15, 67, "Text"],
Cell[18073, 597, 102, 2, 50, "Input"],
Cell[18178, 601, 101, 2, 50, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[18316, 608, 181, 6, 30, "Subsection"],
Cell[18500, 616, 443, 13, 48, "Text"],
Cell[18946, 631, 551, 14, 67, "Text"],
Cell[19500, 647, 276, 8, 29, "Text"],
Cell[19779, 657, 173, 4, 29, "Text"],

Cell[CellGroupData[{
Cell[19977, 665, 104, 1, 28, "ExampleSection"],
Cell[20084, 668, 102, 1, 29, "Text"]
}, Closed]],
Cell[20201, 672, 255, 5, 47, "Text"],
Cell[20459, 679, 389, 8, 48, "Text"],
Cell[20851, 689, 402, 10, 48, "Text"]
}, Closed]]
}, Closed]],
Cell[21280, 703, 322, 8, 63, "BoxedText"],

Cell[CellGroupData[{
Cell[21627, 715, 93, 1, 56, "Section"],
Cell[21723, 718, 321, 7, 48, "Text"]
}, Closed]],
Cell[22059, 728, 92, 1, 36, "Section"],
Cell[22154, 731, 733, 21, 159, "BoxedText"],
Cell[22890, 754, 172, 3, 56, "Copyright"]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)