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

                    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[     30267,        907]*)
(*NotebookOutlinePosition[     60624,       2010]*)
(*  CellTagsIndexPosition[     60497,       2003]*)
(*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 1"
}], "Subtitle",
  CellMargins->{{-1.1875, -33.1875}, {Inherited, Inherited}}],

Cell["\<\
Before you print any notebook today, please type your name(s) in the notebook \
so you can identify your copy at the shared printers.  Please do this right \
now for this notebook: Click the cursor into the indicated space below and \
type your names.\
\>", "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[TextData[{
  "\[FilledSmallCircle] Enlarge the type (if necessary, so you and/or your \
partner can read it comfortably), by selecting from the ",
  StyleBox["Format",
    FontFamily->"Helvetica"],
  "  menu the",
  StyleBox[" Screen Style Environment",
    FontFamily->"Helvetica"],
  " entry\[LongDash]you have to keep the mouse button depressed as you do \
that\[LongDash]and finally selecting ",
  StyleBox["Presentation",
    FontFamily->"Helvetica"],
  " on the fly-out menu.\n\[FilledSmallCircle] Enlarge the type further, if \
needed, by selecting from the ",
  StyleBox["Format",
    FontFamily->"Helvetica"],
  " menu the ",
  StyleBox["Magnification",
    FontFamily->"Helvetica"],
  " entry at its bottom and then selecting an appropriate percentage such as \
",
  StyleBox["125%",
    FontFamily->"Helvetica"],
  ".\n\[FilledSmallCircle] Adjust the size of this window to suit your taste \
by dragging on its lower right corner.\n\[FilledSmallCircle] Adjust the \
position of the window by dragging on its title bar at its top."
}], "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["Notebooks", "Section",
  CellMargins->{{17.625, 62}, {Inherited, Inherited}}],

Cell[TextData[{
  "This document is a ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " ",
  StyleBox["notebook",
    FontWeight->"Bold"],
  ".  It's just an ordinary text file that ",
  StyleBox["Mathematica'",
    FontSlant->"Italic"],
  "s user interface\[LongDash]its ",
  StyleBox["front end",
    FontWeight->"Bold"],
  "\[LongDash]interprets and displays in special ways."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Using the ",
  StyleBox["File",
    FontFamily->"Helvetica"],
  " menu, you can create a new notebook, open an existing one, or save an \
open notebook."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To save an open notebook,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " from the ",
  StyleBox["File",
    FontFamily->"Helvetica"],
  " menu select ",
  StyleBox["Save",
    FontFamily->"Helvetica"],
  ".  In the dialog box that pops up, navigate to the place where you want to \
save the notebook."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "At this lab, the computer has been configured so that the ",
  StyleBox["Save",
    FontFamily->"Helvetica"],
  " dialog directs you to saving on floppy disk.  You can do that or, for \
faster saves, navigate to the ",
  StyleBox["User Items",
    FontFamily->"Courier"],
  " folder on your computer's hard disk.  Your computer's hard disk is named \
",
  StyleBox["Math HD",
    FontFamily->"Courier"],
  ".  (By contrast, the notebooks you are using today come from the lab \
server's hard disk, ",
  StyleBox["UMASTR1 Disk",
    FontFamily->"Courier"],
  ".\n",
  StyleBox["Do it now:",
    Background->GrayLevel[0.900008]],
  "  Save this notebook to your floppy disk.  Get in the habit of saving your \
open notebook regularly so that you don't risk losing all your work in case \
of a system crash or other catastrophic error.  (If you are working with a \
partner, be sure that eventually you have saved copies for each of you.)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
You'll also want to make printed copies of the notebooks you work in today.  \
Towards the end of this notebook you'll be told how.\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}},
  CellTags->"Printing reference near top"],

Cell["Cells and evaluation", "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "A notebook is divided into distinct parts called ",
  StyleBox["cells",
    FontWeight->"Bold"],
  ".  Typically, a cell is enclosed by a ",
  StyleBox["cell bracket",
    FontWeight->"Bold"],
  " along its right edge.  (Some specially formatted cells, such as the two \
at the top of this notebook that precede the Section cell \"Notebooks\", do \
not normally display their cell brackets.)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["Types of cells", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Cells come in various ",
  StyleBox["styles",
    FontWeight->"Bold"],
  ":"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "\[FilledSmallCircle] ",
  StyleBox["Text",
    FontWeight->"Bold"],
  " style cells\[LongDash]they just contain text meant for reading..  The \
text can include mathematical expressions in-line, such as",
  Cell[BoxData[
      \(TraditionalForm\`\(\(\ \)\(\[Integral]\_0\%\[Pi]\ \(\(\(\
\[ExponentialE]\)\(\ \)\)\^t\) cos\ 2  
          t \(\(\[DifferentialD]\)\(t\)\(\ \)\)\)\)\)]],
  " and ",
  Cell[BoxData[
      FormBox[
        RowBox[{" ", 
          RowBox[{"(", GridBox[{
                {\(cos\ \[Theta]\), \(\(-sin\)\ \[Theta]\)},
                {\(sin\ \[Theta]\), \(cos\ \[Theta]\)}
                }], ")"}], " "}], TraditionalForm]]],
  ".  And the text can be ",
  StyleBox["adorned",
    FontColor->RGBColor[1, 0, 1]],
  " ",
  StyleBox["with",
    FontSlant->"Italic"],
  " ",
  StyleBox["various",
    FontFamily->"Helvetica"],
  " ",
  StyleBox["kinds",
    Background->RGBColor[1, 1, 0]],
  " ",
  StyleBox["of",
    FontSize->25],
  " ",
  StyleBox["formatting ",
    FontWeight->"Bold"],
  "if you really wish.  You will use text cells to type some answers and \
explanations."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
\[FilledSmallCircle] Specially formatted text-like cells such as those for \
headings of various levels.  For example, the cell above containing the words \
\"Cells and evaluation\" is a Section style cell.\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "\[FilledSmallCircle] ",
  StyleBox["Input",
    FontWeight->"Bold"],
  " cells, containing ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " expressions to be evaluated.  The following cell is an unevaluated input \
cell. ",
  StyleBox["To evaluate an input cell",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", click the cursor anywhere inside the cell and then press at the same \
time the two keys \[ShiftKey] \[ReturnKey] (Shift and Return).  Notice that \
",
  StyleBox["while a cell is evaluating",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", the legend ",
  StyleBox["Running...",
    FontFamily->"Helvetica"],
  " appears in the title bar at the top of the notebook window and the cell \
bracket assumes a doubled outline shape filled with color."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Do it now",
    Background->GrayLevel[0.900008]],
  "\[LongDash]evaluate the following cell.  And please be patient for ",
  StyleBox["this",
    FontSlant->"Italic"],
  " evaluation\[LongDash]wait until you see the answer."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell[TextData[{
  "\[WatchIcon]  Sorry if that took longer than you expected!  What happened \
is that ",
  StyleBox["Mathematica'",
    FontSlant->"Italic"],
  "s ",
  StyleBox["kernel",
    FontWeight->"Bold"],
  "\[LongDash]its evaluation engine\[LongDash]had to be loaded into memory \
before it could evaluate the input cell.  (Subsequent evaluations should be \
much faster.)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "\[FilledSmallCircle] ",
  StyleBox["Output",
    FontWeight->"Bold"],
  " cells, containing the results of evaluated ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " expressions.  Below the input cell above you should now see the \
corresponding output cell containing the result ",
  StyleBox["2",
    FontFamily->"Courier"],
  ".  (Ask for help if you don't see it!)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
Notice that, in addition to the individual cell brackets of the input and \
output cell above, there is a larger bracket \
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Evaluated input cells and their corresponding output cells receive \
numbered ",
  StyleBox["In",
    FontFamily->"Helvetica",
    FontWeight->"Bold"],
  " and ",
  StyleBox["Out",
    FontFamily->"Helvetica",
    FontWeight->"Bold"],
  " labels.  The numbers indicate the order in which the input cells have \
been evaluated and ",
  StyleBox["not",
    FontSlant->"Italic"],
  " their order in the notebook.  For example, ",
  StyleBox["do this",
    Background->GrayLevel[0.900008]],
  ":  Evaluate the ",
  StyleBox["second",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " of the three input cells below; next the third; and finally the first.  \
Notice the numbers in the cell labels."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell[BoxData[
    \(4\/20 + 135\/136\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Factor[
      a\^5\  + \ 14\ a\^4\  - \ 8\ a\^3\  - \ 368\ a\^2\  + \ 1040\ a\  - \ 
        800]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Like text cells, graphics cells are ",
  StyleBox["inactive",
    FontWeight->"Bold"],
  "\[LongDash]they cannot be evaluated."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Evaluating the input cell containing ",
  StyleBox["Plot[Sin[x], {x, 0, 2 \[Pi]}]",
    FontFamily->"Courier"],
  "  produced not only a correspondingly numbered output cell (containing \
just the mysterious legend ",
  StyleBox["\[SkeletonIndicator]Graphics\[SkeletonIndicator])",
    FontFamily->"Courier"],
  " but also, as a side-effect, a graphics cell displaying the plot.  To \
suppress printing of that ",
  StyleBox["\[SkeletonIndicator]Graphics\[SkeletonIndicator]",
    FontFamily->"Courier"],
  " output cell, terminate the ",
  StyleBox["Plot",
    FontFamily->"Courier"],
  " input cell with a semicolon.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Evaluate the following cell after typing a semicolon ( ",
  StyleBox[";",
    FontFamily->"Courier"],
  " ) at the end of the expression in it. "
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell["\<\
A single input cell may contain several separate expressions to be evaluated, \
as in:\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell["\<\
If you look carefully, you will see that different types of cells have \
distinctive iconic markings on their cell brackets.\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell[TextData[{
  "If you ask ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " to evaluate an expression that it does not know how to evaluate, or that \
it suspects is not what you really intended, one of several things can \
happen.  "
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "If the expression makes sense (that is, has a syntactically correct form) \
but ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " does not know any rule for evaluating it, then the output will be exactly \
the same as the input.  For example, ",
  StyleBox["try these:",
    Background->GrayLevel[0.900008]],
  "  "
}], "Text",
  CellDingbat->"\[FilledSmallCircle]",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

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

Cell[TextData[{
  "If you use a name similar to a built-in name, then you will see a spelling \
error warning message (often, just the first time).  ",
  StyleBox["Try these:",
    Background->GrayLevel[0.900008]]
}], "Text",
  CellDingbat->"\[FilledSmallCircle]",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

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

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

Cell[TextData[{
  "Finally, if there is an actual error in your input expression, or if \
evaluating that expression causes an error or unusual condition, then ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " will issue an appropriate error or warning message.  For example, ",
  StyleBox["try these:",
    Background->GrayLevel[0.900008]]
}], "Text",
  CellDingbat->"\[FilledSmallCircle]",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

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

Cell[BoxData[
    \(\[Integral]\_0\%2\( 1\/x\) \[DifferentialD]x\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell[TextData[{
  "Whereas text cells are wonderful for annotating work\[LongDash]by students \
as well as teachers!\[LongDash]sometimes all that's needed is a brief \
comment.  A ",
  StyleBox["comment",
    FontWeight->"Bold"],
  " is indicated by included its text between the symbol pairs ",
  StyleBox["(* *)",
    FontFamily->"Courier"],
  ".  The comment is ignored when the input cell is evaluated.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Evaluate the following cell and be sure you understand the result."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(2\ \ 10\ \ \ \ \ \ \ \  (*\ a\ very\ hard\ problem\ *) \ \  + \ 
      5\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["Cell grouping and cell selection", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Look at one of the input-output cell pairs above.  In addition to the \
individual cell brackets, there is also a larger bracket that groups the two \
cells together as a single entity.  Such ",
  StyleBox["grouping",
    FontWeight->"Bold"],
  " helps indicate the notebook's logical structure and provides a handy \
mechanism for editing the notebook."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Many operations in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " require you to act upon an entire cell, which you must first select.  ",
  StyleBox["To select a cell",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", click the mouse cursor on its bracket.  ",
  StyleBox["To select several contiguous cells",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", click on one of their brackets and drag along the other brackets.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Select ",
  StyleBox["this",
    FontSlant->"Italic"],
  " cell."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "You can also evaluate a cell by selecting its bracket\[LongDash]instead of \
clicking inside the cell\[LongDash]and, as usual, pressing \[ShiftKey] \
\[ReturnKey].  And you can evaluate several contiguous cells by selecting all \
their brackets first.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Evaluate all three of the following input cells together:"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell[BoxData[
    \(\((\@2 + 1)\)\^10\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(Expand[\((\@2 + 1)\)\^100]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Some cells below have been grouped together into groups, some of which may \
be grouped into larger groups, etc.  These groups have been ",
  StyleBox["closed",
    FontWeight->"Bold"],
  " so that only the first cell of the group shows.  You can tell that a \
group is closed from the triangular icon at the bottom of the group's cell \
bracket  ",
  StyleBox["To open a closed group,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " double-click its cell bracket.  (To close the group again, double-click \
its cell bracket again.)  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  The first cell in the group below has the subsection title \"",
  StyleBox["Creating and editing cells",
    FontFamily->"Helvetica"],
  "\".  Open that group and then continue working.  (From now on do the same \
with all closed groups as you get to them.)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["Creating and editing cells", "Subsection",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To create a new cell",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", move the cursor to a position above or below the cell where the new cell \
should go.  Adjust the cursor position until the cursor changes to a \
horizontal I-beam shape and then click.  You'll see a horizontal line across \
the window marking the top of the new cell.  Then just type.  By default, the \
new cell will be an input cell.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  " create an input cell immediately below this one and type into it:  ",
  StyleBox["N[Pi, 100]",
    FontFamily->"Courier"]
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell["\<\
You couldn't resist evaluating the cell above that you just created, could \
you?  By all means, feel free from now on to evaluate input cells whenver you \
see them.  Note, though, that expressions used in some input cells later on \
will depend upon earlier cells having been evaluated.\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To change the type of a cell,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " select the cell's bracket.  From the ",
  StyleBox["Format",
    FontFamily->"Helvetica"],
  " menu select ",
  StyleBox["Style",
    FontFamily->"Helvetica"],
  " and then select the style you want.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Change the following input cell into a text cell."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(guess\ the\ result\ of\ this\ one\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["To edit the contents of a cell,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " just move the cursor there and make the changes you want.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  In the following cell, change the function to be plotted to be the \
cosine instead of the sine and, if you wish, change its amplitude and \
period."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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

Cell[TextData[{
  "To copy or cut text that's inside a cell, you first select that text.  ",
  StyleBox["To select any text,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " you can click and drag over it."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "\[LightBulb] Shortcut: ",
  StyleBox["To select a subexpression of a larger expression",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " in an input cell, first click inside that expression.  Then repeatedly \
use the key combination ",
  StyleBox["\[ControlKey]-. ",
    FontSize->14,
    FontWeight->"Bold"],
  "(Control together with period) as successively larger expressions are \
highlighted until you reach the desired one.  ",
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  "  Select the argument ",
  Cell[BoxData[
      StyleBox[\(-\(\[Theta]\/10\)\),
        FontFamily->"Courier"]]],
  "to ",
  StyleBox["Exp",
    FontFamily->"Courier"],
  " in the following cell."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(0.75  Cos[2  \[Theta]]\ Exp[\(-\(\[Theta]\/10\)\)]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "The usual ",
  StyleBox["Edit",
    FontFamily->"Helvetica"],
  " menu ",
  StyleBox["Copy",
    FontFamily->"Helvetica"],
  ", ",
  StyleBox["Paste",
    FontFamily->"Helvetica"],
  ", and ",
  StyleBox["Cut",
    FontFamily->"Helvetica"],
  " commands work not just upon selections inside a cell but also selections \
of entire cells (or even groups of cells).  So do their equivalent keyboard \
combinations \[CloverLeaf]-C, \[CloverLeaf]-V, and \[CloverLeaf]-X.  ",
  StyleBox["Often the quickest way to build an expression in an input cell is \
to copy parts of expressions from other cells.",
    FontWeight->"Bold",
    FontSlant->"Italic"]
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  StyleBox["Try it now:",
    Background->GrayLevel[0.900008]],
  " The following cell contains an expression in the variable \[Theta].  \
Without changing that cell and without typing everything from scratch, create \
a new cell below it that will plot the corresponding function of ",
  StyleBox["\[Theta]",
    FontFamily->"Courier"],
  " on the interval from ",
  StyleBox["-3\[Pi]",
    FontFamily->"Courier"],
  " to ",
  StyleBox["3\[Pi]",
    FontFamily->"Courier"],
  "."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
    \(0.75  Cos[2  \[Theta]]\ Exp[\(-\(\[Theta]\/10\)\)]\)], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell["\<\
Did you open and work through the closed group just above?  If not, do it \
now!\
\>", "BoxedText",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[CellGroupData[{

Cell["Printing notebooks", "Section",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "Notebooks can be rather long.. So it's a good idea (if your eyes can stand \
it) to print them \"2-up\"\[LongDash]two notebook pages per printed page.  On \
the Mac you enable 2-up printing before giving the ",
  StyleBox["Print",
    FontFamily->"Helvetica"],
  " command.  ",
  StyleBox["To enable 2-up printing for the currently selected notebook",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  ", from the ",
  StyleBox["File",
    FontFamily->"Helvetica"],
  " menu first select ",
  StyleBox["Print Settings",
    FontFamily->"Helvetica"],
  ".  From the pop-out menu that appears, select ",
  StyleBox["Page Setup",
    FontFamily->"Helvetica"],
  ".  On the pop-up ",
  StyleBox["Page Setup",
    FontFamily->"Helvetica"],
  " dialog box there is a ",
  StyleBox["Layout",
    FontFamily->"Helvetica"],
  " field; select ",
  StyleBox["2 Up",
    FontFamily->"Helvetica"],
  " from the \"spin box\" to its right.."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}},
  CellTags->"How to print"],

Cell[TextData[{
  StyleBox["To print an open notebook,",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  " from the File menu select ",
  StyleBox["Print",
    FontFamily->"Helvetica"],
  ".  In the dialog box that pops up, the ",
  StyleBox["Copies",
    FontFamily->"Helvetica"],
  " field is highlighted with a default number of 1, that is, a single copy.  \
To print 2 copies, just type ",
  StyleBox["2",
    FontFamily->"Courier"],
  " into that field.  Then click on the ",
  StyleBox["Print",
    FontFamily->"Helvetica"],
  " button."
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

Cell[TextData[{
  "(If you reached this section by clicking on a hyperlink in the \"Notebooks\
\" section near the start of this notebook, you may ",
  ButtonBox["click here",
    ButtonData:>"Printing reference near top",
    ButtonStyle->"Hyperlink"],
  " to return there.)"
}], "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]
}, Closed]],

Cell["\<\
Did you remember to open the closed group immediately above this cell?  If \
not, do it now!\
\>", "Text",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}],

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[" Intro2.nb",
    FontFamily->"Courier"],
  " the same way you opened this notebook.  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->{{135, Automatic}, {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->{
  "Printing reference near top"->{
    Cell[6045, 179, 260, 5, 29, "Text",
      CellTags->"Printing reference near top"]},
  "How to print"->{
    Cell[26219, 779, 1049, 31, 86, "Text",
      CellTags->"How to print"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"Printing reference near top", 60286, 1993},
  {"How to print", 60395, 1996}
  }
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 272, 10, 58, "Subsubtitle"],
Cell[1992, 61, 180, 5, 42, "Subtitle"],
Cell[2175, 68, 342, 6, 83, "BoxedText"],
Cell[2520, 76, 147, 2, 64, "ExampleSection"],
Cell[2670, 80, 1125, 27, 195, "BoxedText"],
Cell[3798, 109, 83, 1, 56, "Section"],
Cell[3884, 112, 462, 15, 48, "Text"],
Cell[4349, 129, 246, 7, 29, "Text"],
Cell[4598, 138, 412, 13, 48, "Text"],
Cell[5013, 153, 1029, 24, 136, "Text"],
Cell[6045, 179, 260, 5, 29, "Text",
  CellTags->"Printing reference near top"],
Cell[6308, 186, 101, 1, 56, "Section"],
Cell[6412, 189, 485, 11, 67, "Text"],
Cell[6900, 202, 98, 1, 46, "Subsection"],
Cell[7001, 205, 169, 6, 29, "Text"],
Cell[7173, 213, 1194, 39, 85, "Text"],
Cell[8370, 254, 292, 5, 48, "Text"],
Cell[8665, 261, 876, 24, 86, "Text"],
Cell[9544, 287, 326, 8, 29, "Text"],
Cell[9873, 297, 104, 2, 50, "Input"],
Cell[9980, 301, 456, 12, 48, "Text"],
Cell[10439, 315, 472, 13, 48, "Text"],
Cell[10914, 330, 207, 4, 29, "Text"],
Cell[11124, 336, 790, 24, 67, "Text"],
Cell[11917, 362, 131, 2, 50, "Input"],
Cell[12051, 366, 111, 2, 62, "Input"],
Cell[12165, 370, 192, 4, 51, "Input"],
Cell[12360, 376, 220, 6, 29, "Text"],
Cell[12583, 384, 930, 23, 86, "Text"],
Cell[13516, 409, 131, 2, 50, "Input"],
Cell[13650, 413, 172, 4, 29, "Text"],
Cell[13825, 419, 129, 3, 70, "Input"],
Cell[13957, 424, 210, 4, 29, "Text"],
Cell[14170, 430, 98, 1, 46, "Subsection"],
Cell[14271, 433, 321, 8, 48, "Text"],
Cell[14595, 443, 456, 12, 48, "Text"],
Cell[15054, 457, 109, 2, 50, "Input"],
Cell[15166, 461, 108, 2, 50, "Input"],
Cell[15277, 465, 326, 7, 48, "Text"],
Cell[15606, 474, 105, 2, 50, "Input"],
Cell[15714, 478, 105, 2, 50, "Input"],
Cell[15822, 482, 105, 2, 50, "Input"],
Cell[15930, 486, 462, 10, 48, "Text"],
Cell[16395, 498, 109, 2, 50, "Input"],
Cell[16507, 502, 146, 2, 50, "Input"],
Cell[16656, 506, 139, 2, 62, "Input"],
Cell[16798, 510, 92, 1, 46, "Subsection"],
Cell[16893, 513, 621, 14, 67, "Text"],
Cell[17517, 529, 167, 3, 50, "Input"],
Cell[17687, 534, 116, 1, 46, "Subsection"],
Cell[17806, 537, 447, 9, 67, "Text"],
Cell[18256, 548, 681, 20, 67, "Text"],
Cell[18940, 570, 476, 9, 67, "Text"],
Cell[19419, 581, 102, 2, 52, "Input"],
Cell[19524, 585, 112, 2, 54, "Input"],
Cell[19639, 589, 121, 2, 54, "Input"],
Cell[19763, 593, 965, 21, 105, "Text"],

Cell[CellGroupData[{
Cell[20753, 618, 110, 1, 46, "Subsection"],
Cell[20866, 621, 710, 15, 86, "Text"],
Cell[21579, 638, 374, 6, 67, "Text"],
Cell[21956, 646, 511, 15, 48, "Text"],
Cell[22470, 663, 128, 2, 50, "Input"],
Cell[22601, 667, 470, 11, 48, "Text"],
Cell[23074, 680, 131, 2, 50, "Input"],
Cell[23208, 684, 287, 7, 29, "Text"],
Cell[23498, 693, 796, 23, 72, "Text"],
Cell[24297, 718, 145, 2, 62, "Input"],
Cell[24445, 722, 740, 21, 67, "Text"],
Cell[25188, 745, 570, 16, 48, "Text"],
Cell[25761, 763, 145, 2, 62, "Input"]
}, Closed]],
Cell[25921, 768, 171, 4, 44, "BoxedText"],

Cell[CellGroupData[{
Cell[26117, 776, 99, 1, 56, "Section"],
Cell[26219, 779, 1049, 31, 86, "Text",
  CellTags->"How to print"],
Cell[27271, 812, 621, 19, 48, "Text"],
Cell[27895, 833, 350, 8, 48, "Text"]
}, Closed]],
Cell[28260, 844, 178, 4, 28, "Text"],
Cell[28441, 850, 322, 8, 64, "BoxedText"],

Cell[CellGroupData[{
Cell[28788, 862, 93, 1, 56, "Section"],
Cell[28884, 865, 361, 8, 48, "Text"]
}, Closed]],
Cell[29260, 876, 92, 1, 36, "Section"],
Cell[29355, 879, 733, 21, 159, "BoxedText"],
Cell[30091, 902, 172, 3, 56, "Copyright"]
}
]
*)




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