(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     46919,       1532]
NotebookOptionsPosition[     38775,       1314]
NotebookOutlinePosition[     42518,       1410]
CellTagsIndexPosition[     42399,       1404]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Math 421  ",
 StyleBox["\[FilledSmallCircle]",
  FontSlant->"Plain"],
 "  Fall 2010"
}], "Subsubtitle",
 CellChangeTimes->{{3.490972032015625*^9, 3.490972032375*^9}, {
  3.4912404535625*^9, 3.491240457265625*^9}},
 TextAlignment->Center,
 TextJustification->0],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Introduction\[LongDash]Part 1"
}], "Subtitle",
 TextAlignment->Center],

Cell["9 September 2010", "Subsubtitle",
 CellChangeTimes->{{3.492979416828125*^9, 3.49297941990625*^9}, 
   3.493073935696005*^9},
 TextAlignment->Center],

Cell["\<\
Copyright \[Copyright] 2010 by Murray Eisenberg. All rights reserved.\
\>", "SmallText",
 TextAlignment->Center,
 TextJustification->0],

Cell[TextData[{
 "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 \
 ",
 StyleBox["now",
  FontSlant->"Italic"],
 " for this notebook: ",
 StyleBox["click the cursor into the indicated space below and type your \
names. ",
  FontWeight->"Bold"]
}], "EmphasisText",
 CellFrame->True,
 CellChangeTimes->{{3.490972075953125*^9, 3.490972085140625*^9}, {
  3.492968847265625*^9, 3.492968857875*^9}}],

Cell[TextData[StyleBox["Your name(s):\n\n",
 FontWeight->"Bold"]], "Text"],

Cell[TextData[{
 "\[FilledSmallCircle] If the text in this window is not large enough to read \
comfortably, from the ",
 StyleBox["Window",
  FontFamily->"Helvetica",
  FontWeight->"Bold"],
 " menu select the ",
 StyleBox["Magnification",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " entry at its bottom and then select an appropriate percentage such as ",
 StyleBox["150%",
  FontFamily->"Helvetica"],
 ". Or, use the magnification percentage tool in the status bar at the bottom \
of the window.\n\[FilledSmallCircle] Adjust the size and position of this \
window to suit your taste."
}], "EmphasisText",
 CellFrame->True,
 CellChangeTimes->{
  3.490972098203125*^9, {3.49296937078125*^9, 3.492969372984375*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[CellGroupData[{

Cell["Notebooks", "Section"],

Cell[TextData[{
 "This document is a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " ",
 StyleBox["notebook",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ". It's just an ordinary text file that ",
 StyleBox["Mathematica'",
  FontSlant->"Italic"],
 "s user interface\[LongDash]its ",
 StyleBox["front end",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "\[LongDash]interprets and displays in special ways."
}], "Text",
 CellChangeTimes->{3.49097210384375*^9}],

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

Cell[TextData[{
 StyleBox["To save an open notebook",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[",",
  FontWeight->"Bold"],
 " from the ",
 StyleBox["File",
  FontFamily->"Helvetica"],
 " menu select ",
 StyleBox["Save",
  FontFamily->"Helvetica"],
 "."
}], "Text",
 CellChangeTimes->{{3.490975191375*^9, 3.49097520853125*^9}}],

Cell["\<\
You can save the notebook to removable media such as a USB flash \
\[OpenCurlyDoubleQuote]thumb drive\[CloseCurlyDoubleQuote]. For faster saves\
\[LongDash]but for temporary storage only\[LongDash]navigate to a suitable \
directory on the computer's hard disk.\
\>", "Text",
 CellChangeTimes->{{3.490972134078125*^9, 3.49097217978125*^9}, {
   3.492968928828125*^9, 3.492968935546875*^9}, 3.493074081664755*^9},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Save this notebook now!"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.493074089071005*^9, 
   3.49307409683663*^9}}],

Cell["\<\
Get in the habit of saving your open notebook regularly. (If you are working \
with a partner, be sure that eventually you have saved copies for each of you \
on removable media.)\
\>", "Text",
 CellChangeTimes->{{3.490972134078125*^9, 3.49097217978125*^9}, {
  3.492968928828125*^9, 3.492968935546875*^9}, {3.493074081664755*^9, 
  3.49307411186788*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "You'll also want to ",
 ButtonBox["make printed copies",
  BaseStyle->"Hyperlink",
  ButtonData:>"HowPrint"],
 " of the notebooks you work in today. Towards the end of this notebook \
you'll be told how."
}], "Text",
 CellChangeTimes->{3.490972185890625*^9},
 CellTags->"Printing reference near top"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cells and evaluation", "Section"],

Cell[TextData[{
 "A notebook is divided into distinct parts called ",
 StyleBox["cells",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ". Typically, a cell is enclosed by a ",
 StyleBox["cell bracket",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " along its right edge."
}], "Text",
 CellChangeTimes->{3.490972202234375*^9, 3.492969417609375*^9, 
  3.492969452328125*^9}],

Cell[CellGroupData[{

Cell["Types of cells", "Subsection"],

Cell[TextData[{
 "Cells come in various ",
 StyleBox["styles",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ":"
}], "Text"],

Cell[TextData[{
 "\[FilledSmallCircle] ",
 StyleBox["Text",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " cells\[LongDash]they just contain text meant for reading. The text can \
include mathematical expressions in-line, such as",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[ExponentialE]", " "}], "t"], "cos", " ", "2", "t", 
      RowBox[{"\[DifferentialD]", "t", " "}]}]}]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"(", GridBox[{
       {
        RowBox[{"cos", " ", "\[Theta]"}], 
        RowBox[{
         RowBox[{"-", "sin"}], " ", "\[Theta]"}]},
       {
        RowBox[{"sin", " ", "\[Theta]"}], 
        RowBox[{"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"],
 "."
}], "Text",
 CellChangeTimes->{{3.490972213875*^9, 3.49097222346875*^9}, {
  3.49296946275*^9, 3.49296946321875*^9}, {3.492969494875*^9, 
  3.492969506625*^9}}],

Cell["\<\
You will use text cells to type some answers and explanations.\
\>", "Text",
 CellChangeTimes->{{3.490972213875*^9, 3.49097222346875*^9}, {
  3.49296946275*^9, 3.49296946321875*^9}, {3.492969494875*^9, 
  3.492969507734375*^9}}],

Cell[TextData[{
 "\[FilledSmallCircle] ",
 StyleBox["Sectioning",
  FontWeight->"Bold"],
 " style cells\[LongDash]specially formatted text-like cells such as those \
for headings of various levels. For example, the cell saying \"Cells and \
evaluation\" is a ",
 StyleBox["Section",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " style cell; the cell above containing the phrase \
\[OpenCurlyDoubleQuote]Cells come in various\[Ellipsis]\
\[CloseCurlyDoubleQuote] is a ",
 StyleBox["Subsection",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " style cell. You use sectioning styles in order to organize your work."
}], "Text",
 CellChangeTimes->{{3.49097226875*^9, 3.490972320765625*^9}, {
  3.492969527453125*^9, 3.492969596390625*^9}, {3.49296962840625*^9, 
  3.492969659375*^9}}],

Cell[TextData[{
 "\[FilledSmallCircle] ",
 StyleBox["Input",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " cells, containing ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " expressions to be evaluated. The cell below highlighted in light tan, \
saying ",
 StyleBox["1+1",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", is an unevaluated Input cell.\n(By default, Input cells in a new ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook have a white background; I changed the background color in this \
notebook in order to make the Input cells stand out more clearly.)"
}], "Text",
 CellChangeTimes->{
  3.490972331453125*^9, {3.49097426221875*^9, 3.490974277328125*^9}, {
   3.4909744268125*^9, 3.49097450446875*^9}, {3.490975626953125*^9, 
   3.49097562965625*^9}, {3.490975675765625*^9, 3.490975685921875*^9}, {
   3.49097600828125*^9, 3.49097601896875*^9}, {3.492969765765625*^9, 
   3.49296983990625*^9}, 3.492969983796875*^9},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox[" To evaluate an input cell:",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "\n\t\[FilledSmallCircle] click the cursor anywhere inside the cell; and \
then\n\t\[FilledSmallCircle] press at the same time the two keys",
 StyleBox[" \[ShiftKey] \[ReturnKey] ",
  Magnification->1.25],
 "(Shift and Return)."
}], "BlueComments",
 CellFrame->True,
 CellChangeTimes->{{3.49097530371875*^9, 3.490975333734375*^9}, 
   3.49296979090625*^9, {3.493074151039755*^9, 3.493074152102255*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "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"],

Cell[TextData[{
 StyleBox["Do it now",
  Background->RGBColor[0.941, 0.973, 1.]],
 "\[LongDash]evaluate the following cell. And please wait until you see the \
answer."
}], "Text",
 CellChangeTimes->{3.490972365109375*^9, 3.490972465921875*^9}],

Cell[BoxData[
 RowBox[{"1", "+", "1"}]], "Input",
 CellChangeTimes->{{3.49097597490625*^9, 3.490975976890625*^9}}],

Cell[TextData[{
 StyleBox["\[WatchIcon]",
  FontSize->16,
  Magnification->1.5],
 " Sorry if that took a bit longer than you expected! What happened is that ",
 StyleBox["Mathematica'",
  FontSlant->"Italic"],
 "s ",
 StyleBox["kernel",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "\[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",
 CellChangeTimes->{{3.4909723716875*^9, 3.49097237953125*^9}, 
   3.49307416461788*^9}],

Cell[TextData[{
 "\[FilledSmallCircle] ",
 StyleBox["Output",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " cells, containing the results of evaluated ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " expressions. For example, the cell now saying 2 that you should see below \
the ",
 StyleBox["1+1",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " Input cell. (Ask for help if you don't see it!)"
}], "Text",
 CellChangeTimes->{
  3.490972486015625*^9, 3.49097252521875*^9, {3.49296990071875*^9, 
   3.4929699535*^9}, {3.4929699948125*^9, 3.492970001171875*^9}}],

Cell[TextData[{
 "Notice above the larger ",
 StyleBox["group bracket",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " that encloses the individual ",
 StyleBox["cell brackets",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " of the input and output cells."
}], "Text"],

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\[LongDash]",
 StyleBox["not",
  FontSlant->"Italic"],
 " their order in the notebook."
}], "Text",
 CellChangeTimes->{{3.49097251675*^9, 3.49097254378125*^9}, {
  3.4929700353125*^9, 3.4929700429375*^9}}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Evaluate the ",
 StyleBox["second",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " of the four input cells that follow; next the third cell and the fourth \
cell; and finally the first. Notice the numbers in the ",
 StyleBox["In",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["Out",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " cell labels."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.49307419274288*^9, 
   3.49307427393038*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.490972600265625*^9, 3.4909726034375*^9}, 
   3.490972726234375*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["4", "20"], "+", 
  FractionBox["135", "136"]}]], "Input"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["a", "5"], "+", 
   RowBox[{"14", 
    SuperscriptBox["a", "4"]}], "-", 
   RowBox[{"8", 
    SuperscriptBox["a", "3"]}], "-", 
   RowBox[{"368", 
    SuperscriptBox["a", "2"]}], "+", 
   RowBox[{"1040", "a"}], "-", "800"}], "]"}]], "Input",
 CellChangeTimes->{{3.49097261553125*^9, 3.490972656359375*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{"-", "2"}]], 
  SqrtBox[
   RowBox[{"-", "3"}]]}]], "Input",
 CellChangeTimes->{3.490972685546875*^9}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can produce parametric plots as well as ordinary plots. ",
 StyleBox["Evaluate this:",
  Background->RGBColor[0.941, 0.973, 1.]]
}], "Text",
 CellChangeTimes->{3.49097275078125*^9}],

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", 
     FractionBox["\[Pi]", "2"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.490972772046875*^9, 3.490972773328125*^9}}],

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

Cell[BoxData[{
 RowBox[{"2", "^", "5"}], "\n", 
 RowBox[{"Log", "[", 
  RowBox[{"2", ",", "32"}], "]"}]}], "Input",
 CellChangeTimes->{3.49097285778125*^9}],

Cell["\<\
If you look carefully, you will see that different types of cells have \
distinctive iconic markings on their cell brackets\[LongDash]one kind of \
marking for an Input cell, another kind for an Output cell, still another for \
a Text cell, etc.\
\>", "Text",
 CellChangeTimes->{{3.49097287003125*^9, 3.49097290596875*^9}}],

Cell["From now on, evaluate Input cells as you come to them!", "EmphasisText",
 CellChangeTimes->{{3.493074314071005*^9, 3.49307432249288*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Error messages", "Subsection"],

Cell[TextData[{
 "If you ask ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to evaluate an expression that it doesn't know how to evaluate, or that it \
suspects isn't what you really intended, one of several things can happen.  "
}], "Text",
 CellChangeTimes->{{3.492970099421875*^9, 3.492970122609375*^9}}],

Cell[TextData[{
 "If the expression makes sense\[LongDash]that is, it has correct syntax\
\[LongDash]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->RGBColor[0.941, 0.973, 1.]],
 ":  "
}], "Text",
 CellDingbat->"\[FilledSmallCircle]",
 CellChangeTimes->{{3.49097605003125*^9, 3.49097608596875*^9}, {
  3.49097668403125*^9, 3.490976692265625*^9}}],

Cell[BoxData[
 RowBox[{"Cos", "[", "something", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"myfunction", "[", "2", "]"}]], "Input"],

Cell[TextData[{
 "Did you notice the way ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " colored the names ",
 StyleBox["something",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 " and ",
 StyleBox["myfunction",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 " in the Input cells above? Their blue color indicates they are at present \
unknown to ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\[LongDash]they don\[CloseCurlyQuote]t have any built-in meaning and you \
didn\[CloseCurlyQuote]t give them meaning."
}], "Text",
 CellChangeTimes->{{3.490976133359375*^9, 3.490976233390625*^9}, {
  3.490976289109375*^9, 3.490976291703125*^9}, {3.4909763370625*^9, 
  3.490976401203125*^9}, {3.492970167640625*^9, 3.492970178*^9}}],

Cell[TextData[{
 StyleBox["All built-in ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" names begin with upper-case letters",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ". So if you mistakenly type something like ",
 StyleBox["sin",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " where you really meant to type ",
 StyleBox["Sin",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", then you\[CloseCurlyQuote]ll again get blue coloring in the input."
}], "Text",
 CellChangeTimes->{{3.490976451828125*^9, 3.490976597609375*^9}, {
  3.490976883515625*^9, 3.490976911734375*^9}, {3.493074415492*^9, 
  3.493074419757625*^9}}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " ",
 StyleBox["Inspect the following two input cells and then evaluate them.",
  Background->RGBColor[0.941, 0.973, 1.]]
}], "Exercise",
 CellChangeTimes->{{3.490976451828125*^9, 3.490976597609375*^9}, {
  3.490976883515625*^9, 3.490976911734375*^9}, {3.493074415492*^9, 
  3.493074434695125*^9}}],

Cell[BoxData[
 RowBox[{"sin", "[", "\[Pi]", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Sin", "[", "\[Pi]", "]"}]], "Input"],

Cell[TextData[{
 "If there is an syntax error in your input expression, then ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will warn you with appropriate coloring."
}], "Text",
 CellDingbat->"\[FilledSmallCircle]",
 CellChangeTimes->{{3.49097662596875*^9, 3.490976666625*^9}, {
   3.490976708328125*^9, 3.49097671665625*^9}, {3.4909769320625*^9, 
   3.490976950640625*^9}, {3.490977045078125*^9, 3.490977055546875*^9}, {
   3.490977086*^9, 3.490977107359375*^9}, 3.4909771375625*^9, {
   3.492970224578125*^9, 3.49297027715625*^9}, 3.492970331921875*^9, {
   3.49307435777413*^9, 3.49307435921163*^9}}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Inspect each of the following input cells and notice the purplish-pink \
colors."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.49307438552413*^9, 
   3.493074403867*^9}}],

Cell[BoxData[
 RowBox[{"2", "-", "3", "+"}]], "Input",
 CellChangeTimes->{{3.492970303375*^9, 3.492970304796875*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", 
      RowBox[{"2", "\[Pi]"}]}]}]}]}], "]"}]], "Input"],

Cell[TextData[{
 "For each input cell, ",
 StyleBox["what's wrong with the syntax?",
  Background->RGBColor[0.941, 0.973, 1.]],
 " See if you can figure it out."
}], "Text",
 CellChangeTimes->{{3.492977913796875*^9, 3.492977962890625*^9}, {
  3.4929780805625*^9, 3.49297811590625*^9}}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Now evaluate the preceding three input cells.\nDue to the syntax error in \
each, its cell bracket turned bright red and a little ",
 StyleBox["+",
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " button appeared in the cell\[CloseCurlyQuote]s upper-right corner.\n",
 StyleBox["Click the ",
  Background->RGBColor[0.941, 0.973, 1.]],
 StyleBox["+",
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Plain",
  Background->RGBColor[0.941, 0.973, 1.]],
 StyleBox[" button",
  Background->RGBColor[0.941, 0.973, 1.]],
 ", to see the error message(s)."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.49307438552413*^9, 
   3.493074403867*^9}, {3.493074456445125*^9, 3.493074480882625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "\[FilledSmallCircle] If your expression has correct syntax but trying to \
evaluate it causes ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to make an error, then ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will print an appropriate ",
 StyleBox["error message",
  FontWeight->"Bold"],
 " or ",
 StyleBox["warning message",
  FontWeight->"Bold"],
 "."
}], "Text",
 CellChangeTimes->{{3.490976740671875*^9, 3.490976824234375*^9}, {
   3.490977365265625*^9, 3.49097738846875*^9}, {3.49097750321875*^9, 
   3.490977532453125*^9}, 3.493074507038875*^9}],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "2"], 
  RowBox[{
   FractionBox["1", "x"], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "3"], 
     RowBox[{"Sin", "[", "x", "]"}]}], "\[Equal]", "1"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.49097746978125*^9, 3.49097749090625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cell grouping and cell selection", "Subsection"],

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 ",
 StyleBox["groups",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " the two cells together as a single entity. Such ",
 "grouping",
 " helps indicate the notebook's logical structure and provides a handy \
mechanism for editing the notebook."
}], "Text",
 CellChangeTimes->{{3.490977541921875*^9, 3.4909775469375*^9}, {
  3.4909780068125*^9, 3.490978008203125*^9}}],

Cell[TextData[{
 "Many operations in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " require you to act upon an entire cell, which you must first select."
}], "Text",
 CellChangeTimes->{{3.490977552359375*^9, 3.4909775624375*^9}, {
   3.490977610234375*^9, 3.49097762278125*^9}, 3.49297823371875*^9}],

Cell[TextData[{
 StyleBox["To select a cell",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 ", click the mouse cursor on its bracket. ",
 StyleBox["Try it now",
  Background->RGBColor[0.941, 0.973, 1.]],
 ": Select ",
 StyleBox["this",
  FontSlant->"Italic"],
 " cell."
}], "Text",
 CellChangeTimes->{{3.490977552359375*^9, 3.4909775624375*^9}, {
  3.490977610234375*^9, 3.49097762278125*^9}, {3.49297823371875*^9, 
  3.492978235171875*^9}}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Select the preceding Text cell."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.493074568226375*^9, 
   3.493074578476375*^9}}],

Cell[TextData[{
 StyleBox["To select several contiguous cells",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 ", click on one of their brackets and drag along the other brackets."
}], "Text",
 CellChangeTimes->{{3.490977552359375*^9, 3.4909775624375*^9}, {
  3.490977610234375*^9, 3.49097770446875*^9}, {3.49097791459375*^9, 
  3.490977927515625*^9}}],

Cell[TextData[{
 "You can also evaluate a cell by selecting its bracket\[LongDash]instead of \
clicking inside the cell\[LongDash]and, as usual, pressing ",
 StyleBox["\[ShiftKey] \[ReturnKey]",
  Magnification->1.5],
 ". "
}], "Text"],

Cell[TextData[{
 StyleBox["To evaluate several cells together,",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " one after another:\n\t\[FilledSmallCircle] select all their brackets; and \
then\n\t\[FilledSmallCircle]  ",
 StyleBox["\[ShiftKey] \[ReturnKey]",
  Magnification->1.5],
 ". "
}], "BlueComments",
 CellFrame->True,
 CellChangeTimes->{{3.49097793796875*^9, 3.490977959578125*^9}, {
  3.49298780040625*^9, 3.492987801890625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Evaluate all three of the following input cells together (not one at a \
time)."
}], "Exercise",
 CellChangeTimes->{
  3.49097783775*^9, 3.493074552132625*^9, {3.49307458502325*^9, 
   3.493074600726375*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox["2"], "+", "1"}]], "Input"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{
    SqrtBox["2"], "+", "1"}], ")"}], "10"]], "Input"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     SqrtBox["2"], "+", "1"}], ")"}], "100"], "]"}]], "Input"],

Cell["\<\
Just as Input-Output cell pairs are grouped with an enclosing group bracket, \
so all the cells in a Section are grouped together with a group bracket. (And \
all the cells in a Subsection are grouped together with a group bracket that \
is within the enclosing Section\[CloseCurlyQuote]s group bracket.)\
\>", "Text",
 CellChangeTimes->{
  3.490977980640625*^9, {3.490978073671875*^9, 3.49097820484375*^9}, {
   3.49097834184375*^9, 3.490978344375*^9}, {3.493074622070125*^9, 
   3.49307465189825*^9}, 3.493074997757625*^9}],

Cell[TextData[{
 "You can tell that a group is ",
 StyleBox["closed",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " from the tiny triangular icon at the bottom of the \
group\[CloseCurlyQuote]s cell bracket."
}], "Text",
 CellChangeTimes->{
  3.490978430328125*^9, {3.4929783223125*^9, 3.4929783231875*^9}}],

Cell[TextData[{
 "Grouping allows you to ",
 StyleBox["close",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " an entire group\[LongDash]to collapse it so you see only the first cell in \
the group\[LongDash]in order to concentrate upon the \
\[OpenCurlyDoubleQuote]big picture\[CloseCurlyDoubleQuote]. "
}], "Text",
 CellChangeTimes->{
  3.490977980640625*^9, {3.490978073671875*^9, 3.490978309296875*^9}, {
   3.49097835071875*^9, 3.490978409609375*^9}}],

Cell[TextData[{
 "All the cells and cell groups of the next subsection have been ",
 StyleBox["closed",
  FontColor->RGBColor[0, 0, 0]],
 " so that only the first cell of the group shows.  "
}], "Text",
 CellChangeTimes->{
  3.490977980640625*^9, {3.490978073671875*^9, 3.490978309296875*^9}, {
   3.49097835071875*^9, 3.490978420890625*^9}, {3.492978351125*^9, 
   3.492978414984375*^9}, {3.493074687492*^9, 3.493074692132625*^9}, {
   3.49307477477325*^9, 3.49307477927325*^9}}],

Cell[TextData[{
 StyleBox["To open a closed group,",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " double-click its cell bracket.\n(To close the group again, double-click \
its cell bracket again.)"
}], "BlueComments",
 CellFrame->True,
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " The first cell in the group below has the subsection title \"",
 StyleBox["Creating and editing cells",
  FontFamily->"Helvetica"],
 "\". ",
 StyleBox["Open that group",
  FontWeight->"Bold"],
 " and then continue working. (From now on do the same with all closed groups \
as you get to them.)"
}], "Exercise",
 CellChangeTimes->{{3.492978598125*^9, 3.492978601796875*^9}, {
  3.49307473158575*^9, 3.493074743913875*^9}}],

Cell["Did you open the closed group just below? If not, do it now!", \
"EmphasisText",
 CellChangeTimes->{{3.49124037646875*^9, 3.491240383328125*^9}},
 Background->RGBColor[1., 0.894, 0.882]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Creating and editing cells", "Subsection"],

Cell[TextData[{
 StyleBox["To create a new cell",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[":",
  FontSlant->"Italic"],
 "\n\t\[FilledSmallCircle] ",
 StyleBox["Move the cursor",
  FontWeight->"Bold"],
 " to above or below the cell where the new cell should go. The cursor will \
change to a ",
 StyleBox["horizontal",
  FontSlant->"Italic"],
 " I-beam shape.\n\t\[FilledSmallCircle] ",
 StyleBox["Click",
  FontWeight->"Bold"],
 ".You'll see a horizontal line across the window that marks the top of the \
new cell.\n\t\[FilledSmallCircle] ",
 StyleBox["Type",
  FontWeight->"Bold"],
 ". By default, the new cell will be an input cell."
}], "Text",
 CellChangeTimes->{{3.492978635359375*^9, 3.49297877109375*^9}, {
   3.4929791056875*^9, 3.492979129203125*^9}, 3.49307480577325*^9},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Create an input cell immediately below this one and type into it:  ",
 StyleBox["N[Pi,100]",
  FontFamily->"Courier"]
}], "Exercise",
 CellChangeTimes->{{3.492978635359375*^9, 3.49297877109375*^9}, {
  3.4929791056875*^9, 3.492979129203125*^9}, {3.49307480577325*^9, 
  3.493074824757625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "You couldn't resist evaluating the cell above that you just created, could \
you?\nBy all means, ",
 StyleBox["from now on evaluate input cells whenever you come to them",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1],
  Background->RGBColor[0.941, 0.973, 1.]],
 ". \nExpressions used in some input cells later on will depend upon earlier \
cells having been evaluated."
}], "Text",
 CellChangeTimes->{{3.49297880296875*^9, 3.49297880425*^9}, {
  3.49297883659375*^9, 3.4929788539375*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["To edit the contents of a cell",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[",",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " just move the cursor there and make the changes you want."
}], "Text",
 CellChangeTimes->{{3.49297889025*^9, 3.49297889121875*^9}, {
  3.493074867570125*^9, 3.493074878288875*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " 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."
}], "Exercise",
 CellChangeTimes->{{3.49297889025*^9, 3.49297889121875*^9}, {
  3.493074867570125*^9, 3.493074879242*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"5", 
    RowBox[{"Sin", "[", 
     RowBox[{"3", "x"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4929789208125*^9, 3.4929789444375*^9}}],

Cell[TextData[{
 StyleBox["To copy or cut text that's inside a cell,",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 " you first select that text.\n",
 StyleBox["To select any text,",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 " you can click and drag over it."
}], "Text",
 CellChangeTimes->{{3.49297897653125*^9, 3.49297897790625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["\[LightBulb]",
  FontWeight->"Bold",
  FontSlant->"Plain",
  Magnification->2,
  Background->RGBColor[1, 1, 0]],
 "  Shortcut: ",
 StyleBox["To select a subexpression of a larger expression",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 " in an input cell:\n\t\[FilledSmallCircle] ",
 StyleBox["Click",
  FontWeight->"Bold"],
 " inside that expression.\n\t\[FilledSmallCircle] Repeatedly use the key \
combination ",
 StyleBox["\[ControlKey] .",
  FontSize->14,
  FontWeight->"Bold",
  Magnification->1.5],
 StyleBox[" ",
  FontSize->14,
  FontWeight->"Bold"],
 "(Control together with period) as successively larger expressions are \
highlighted until you reach the desired one."
}], "Text",
 CellChangeTimes->{{3.492978997578125*^9, 3.492978998703125*^9}, {
   3.492979037265625*^9, 3.492979101421875*^9}, 3.493074893882625*^9},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " Select the argument ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"-", 
    FractionBox["\[Theta]", "10"]}],
   FontFamily->"Courier"]]],
 "to ",
 StyleBox["Exp",
  FontFamily->"Courier"],
 " in the following cell."
}], "Exercise",
 CellChangeTimes->{{3.492978997578125*^9, 3.492978998703125*^9}, {
  3.492979037265625*^9, 3.492979101421875*^9}, {3.493074893882625*^9, 
  3.493074905695125*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[BoxData[
 RowBox[{"0.75", 
  RowBox[{"Cos", "[", 
   RowBox[{"2", "\[Theta]"}], "]"}], " ", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", 
    FractionBox["\[Theta]", "10"]}], "]"}]}]], "Input"],

Cell[TextData[{
 "The usual ",
 StyleBox["Edit",
  FontFamily->"Helvetica"],
 " menu's ",
 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 ",
 StyleBox["\[ControlKey]",
  Magnification->1.5],
 " ",
 StyleBox["c",
  FontFamily->"Courier"],
 ", ",
 StyleBox["\[ControlKey]",
  Magnification->1.5],
 " ",
 StyleBox["v",
  FontFamily->"Courier"],
 ", and ",
 StyleBox["\[ControlKey]",
  Magnification->1.5],
 " ",
 StyleBox["x",
  FontFamily->"Courier"],
 ".\n",
 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",
 CellChangeTimes->{{3.492979025125*^9, 3.49297903290625*^9}, {
  3.492979174828125*^9, 3.492979184265625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise.",
  FontWeight->"Bold"],
 " The following cell contains an expression in the variable \[Theta]. ",
 StyleBox["Without",
  FontSlant->"Italic"],
 " changing that cell and ",
 StyleBox["without",
  FontSlant->"Italic"],
 " 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"],
 ". (",
 StyleBox["Hint",
  FontSlant->"Italic"],
 ": To get ",
 StyleBox["\[Pi]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " you may spell it out as ",
 StyleBox["Pi",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " or else type \[EscapeKey]p\[EscapeKey].)"
}], "Exercise",
 CellChangeTimes->{{3.492979210109375*^9, 3.492979296796875*^9}, {
  3.4930749213045*^9, 3.49307492746075*^9}}],

Cell[BoxData[
 RowBox[{"0.75", 
  RowBox[{"Cos", "[", 
   RowBox[{"2", "\[Theta]"}], "]"}], " ", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", 
    FractionBox["\[Theta]", "10"]}], "]"}]}]], "Input"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Printing notebooks", "Section",
 CellTags->"HowPrint"],

Cell[TextData[{
 StyleBox["To print an open notebook",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[",",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " from the ",
 StyleBox["File",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " menu select ",
 StyleBox["Print",
  FontFamily->"Helvetica"],
 ".\nIn the dialog box that pops up, the ",
 StyleBox["Number of Copies",
  FontFamily->"Helvetica"],
 " field is highlighted with a default number of 1, that is, a single copy. \
Change that to 2 if you're working with a partner, and then be sure to click \
the ",
 StyleBox["Collate",
  FontFamily->"Helvetica"],
 " check box. Then click on the ",
 StyleBox["OK",
  FontFamily->"Helvetica"],
 " button."
}], "Text",
 CellChangeTimes->{{3.492968979515625*^9, 3.492969035125*^9}, {
  3.492979334375*^9, 3.49297934353125*^9}},
 ParagraphSpacing->{0.5, 0}],

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",
  BaseStyle->"Hyperlink",
  ButtonData:>"Printing reference near top"],
 " to return there.)"
}], "Text"],

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!)"
}], "EmphasisText",
 Background->RGBColor[0.941207, 0.972503, 1]]
}, Closed]],

Cell[CellGroupData[{

Cell["What's next?", "Section"],

Cell[TextData[{
 "If you have time at this lab session\[LongDash]you \
should!\[LongDash]continue this introduction with notebook",
 StyleBox[" ",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["Intro2.nb",
  FontFamily->"Courier",
  FontWeight->"Bold"],
 ".\nGet that from the ",
 ButtonBox["Math 421 web site Files page",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://blogs.umass.edu/math421-murray/files/"], None}],
 "  (Click on the underlined, blue hyperlink in the preceding sentence!)\n\
Open that notebook and work through it.\nOtherwise, if you're out of time, \
then \" clean up\" as indicated  below."
}], "Text",
 CellChangeTimes->{{3.492979371265625*^9, 3.492979383609375*^9}},
 ParagraphSpacing->{0.5, 0}]
}, Closed]],

Cell[CellGroupData[{

Cell["Cleaning up", "Section"],

Cell[TextData[{
 "When you are finished at your ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " session for today, please:\n \[FilledSmallCircle] Save whatever notebooks \
you want to removable media.\n \[FilledSmallCircle] Close all open notebooks.\
\n \[FilledSmallCircle] Exit ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " from the ",
 StyleBox["File",
  FontFamily->"Helvetica"],
 " menu.\n \[FilledSmallCircle] Log out"
}], "EmphasisText",
 CellChangeTimes->{3.491240428296875*^9},
 ParagraphSpacing->{0.5, 0}]
}, Closed]]
}, Open  ]]
},
ScreenStyleEnvironment->"Working",
WindowSize->{654, 653},
WindowMargins->{{37, Automatic}, {Automatic, 29}},
PrivateNotebookOptions -> {"NotebookAuthor" -> ""},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
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[
       StyleData[StyleDefinitions -> "Default.nb"]], 
      Cell[
       StyleData["EmphasisText", StyleDefinitions -> StyleData["Text"]], 
       CellFrame -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
       MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 14], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["BlueComments", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, Background -> 
          RGBColor[0.941207, 0.972503, 1]], 
         Cell[
          StyleData[
          "BlueComments", "Printout", StyleDefinitions -> 
           StyleData["BlueComments"]], Background -> None], 
         Cell[
          StyleData[
          "BlueComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "Exercise", StyleDefinitions -> StyleData["BlueComments"]], 
          CellFrame -> True, 
          CellChangeTimes -> {3.48969559478125*^9, 3.48969563040625*^9}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1420], 
         Cell[
          StyleData[
          "Exercise", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, 
          CellChangeTimes -> {3.48969559478125*^9, 3.48969563040625*^9}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1420, FontSize -> 
          10], 
         Cell[
          StyleData[
          "Input", "Working", StyleDefinitions -> StyleData["Input"]], 
          Background -> RGBColor[0.976471, 0.909804, 0.815686]], 
         Cell[
          StyleData[
          "Input", "Printout", StyleDefinitions -> StyleData["Input"]], 
          Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subtitle"], Background -> 
          RGBColor[0.815686, 0.901961, 0.92549]], 
         Cell[
          StyleData[
          "Subtitle", "Printout", StyleDefinitions -> StyleData["Subtitle"]], 
          Background -> None]}, Open]]}, Open]]}, 
  WindowMargins -> {{169, Automatic}, {Automatic, 101}}, Visible -> False, 
  FrontEndVersion -> "7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
   StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "HowPrint"->{
  Cell[35741, 1208, 60, 1, 88, "Section",
   CellTags->"HowPrint"]},
 "Printing reference near top"->{
  Cell[4907, 173, 318, 9, 55, "Text",
   CellTags->"Printing reference near top"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"HowPrint", 42189, 1395},
 {"Printing reference near top", 42292, 1398}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 278, 9, 35, "Subsubtitle"],
Cell[CellGroupData[{
Cell[860, 33, 138, 5, 82, "Subtitle"],
Cell[1001, 40, 154, 3, 35, "Subsubtitle"],
Cell[1158, 45, 145, 4, 29, "SmallText"],
Cell[1306, 51, 495, 13, 135, "EmphasisText"],
Cell[1804, 66, 74, 1, 76, "Text"],
Cell[1881, 69, 775, 21, 194, "EmphasisText"],
Cell[CellGroupData[{
Cell[2681, 94, 28, 0, 88, "Section"],
Cell[2712, 96, 487, 17, 57, "Text"],
Cell[3202, 115, 275, 11, 56, "Text"],
Cell[3480, 128, 350, 14, 35, "Text"],
Cell[3833, 144, 451, 8, 76, "Text"],
Cell[4287, 154, 219, 7, 56, "Exercise"],
Cell[4509, 163, 395, 8, 76, "Text"],
Cell[4907, 173, 318, 9, 55, "Text",
 CellTags->"Printing reference near top"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5262, 187, 39, 0, 88, "Section"],
Cell[5304, 189, 393, 12, 57, "Text"],
Cell[CellGroupData[{
Cell[5722, 205, 36, 0, 46, "Subsection"],
Cell[5761, 207, 134, 6, 35, "Text"],
Cell[5898, 215, 1374, 51, 114, "Text"],
Cell[7275, 268, 238, 5, 34, "Text"],
Cell[7516, 275, 802, 20, 100, "Text"],
Cell[8321, 297, 1021, 26, 127, "Text"],
Cell[9345, 325, 544, 13, 114, "BlueComments"],
Cell[9892, 340, 337, 10, 77, "Text"],
Cell[10232, 352, 244, 6, 34, "Text"],
Cell[10479, 360, 114, 2, 55, "Input"],
Cell[10596, 364, 559, 16, 87, "Text"],
Cell[11158, 382, 606, 18, 77, "Text"],
Cell[11767, 402, 290, 10, 56, "Text"],
Cell[12060, 414, 535, 17, 78, "Text"],
Cell[12598, 433, 616, 22, 99, "Exercise"],
Cell[13217, 457, 285, 8, 55, "Input"],
Cell[13505, 467, 96, 3, 73, "Input"],
Cell[13604, 472, 374, 11, 59, "Input"],
Cell[13981, 485, 148, 6, 59, "Input"],
Cell[14132, 493, 249, 7, 34, "Text"],
Cell[14384, 502, 379, 10, 70, "Input"],
Cell[14766, 514, 110, 3, 34, "Text"],
Cell[14879, 519, 156, 4, 78, "Input"],
Cell[15038, 525, 333, 6, 76, "Text"],
Cell[15374, 533, 143, 1, 59, "EmphasisText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15554, 539, 36, 0, 46, "Subsection"],
Cell[15593, 541, 316, 7, 76, "Text"],
Cell[15912, 550, 509, 13, 76, "Text"],
Cell[16424, 565, 64, 1, 55, "Input"],
Cell[16491, 568, 63, 1, 55, "Input"],
Cell[16557, 571, 855, 25, 97, "Text"],
Cell[17415, 598, 811, 25, 77, "Text"],
Cell[18229, 625, 361, 9, 56, "Exercise"],
Cell[18593, 636, 60, 1, 55, "Input"],
Cell[18656, 639, 60, 1, 55, "Input"],
Cell[18719, 642, 611, 12, 55, "Text"],
Cell[19333, 656, 273, 8, 77, "Exercise"],
Cell[19609, 666, 117, 2, 55, "Input"],
Cell[19729, 670, 210, 6, 55, "Input"],
Cell[19942, 678, 208, 7, 55, "Input"],
Cell[20153, 687, 285, 7, 34, "Text"],
Cell[20441, 696, 854, 24, 136, "Exercise"],
Cell[21298, 722, 587, 18, 78, "Text"],
Cell[21888, 742, 160, 5, 75, "Input"],
Cell[22051, 749, 259, 8, 59, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22347, 762, 54, 0, 46, "Subsection"],
Cell[22404, 764, 529, 12, 98, "Text"],
Cell[22936, 778, 307, 7, 55, "Text"],
Cell[23246, 787, 474, 15, 35, "Text"],
Cell[23723, 804, 228, 7, 56, "Exercise"],
Cell[23954, 813, 384, 9, 56, "Text"],
Cell[24341, 824, 235, 6, 59, "Text"],
Cell[24579, 832, 469, 13, 116, "BlueComments"],
Cell[25051, 847, 273, 8, 56, "Exercise"],
Cell[25327, 857, 61, 2, 59, "Input"],
Cell[25391, 861, 112, 4, 62, "Input"],
Cell[25506, 867, 149, 5, 65, "Input"],
Cell[25658, 874, 535, 9, 97, "Text"],
Cell[26196, 885, 319, 9, 56, "Text"],
Cell[26518, 896, 466, 11, 56, "Text"],
Cell[26987, 909, 480, 10, 55, "Text"],
Cell[27470, 921, 277, 8, 86, "BlueComments"],
Cell[27750, 931, 486, 13, 99, "Exercise"],
Cell[28239, 946, 192, 3, 59, "EmphasisText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28468, 954, 48, 0, 46, "Subsection"],
Cell[28519, 956, 859, 25, 165, "Text"],
Cell[29381, 983, 387, 10, 77, "Exercise"],
Cell[29771, 995, 543, 12, 114, "Text"],
Cell[30317, 1009, 411, 12, 56, "Text"],
Cell[30731, 1023, 364, 8, 77, "Exercise"],
Cell[31098, 1033, 303, 9, 55, "Input"],
Cell[31404, 1044, 435, 13, 66, "Text"],
Cell[31842, 1059, 920, 28, 124, "Text"],
Cell[32765, 1089, 484, 17, 63, "Exercise"],
Cell[33252, 1108, 193, 6, 72, "Input"],
Cell[33448, 1116, 1058, 41, 133, "Text"],
Cell[34509, 1159, 987, 35, 119, "Exercise"],
Cell[35499, 1196, 193, 6, 72, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35741, 1208, 60, 1, 88, "Section",
 CellTags->"HowPrint"],
Cell[35804, 1211, 919, 31, 107, "Text"],
Cell[36726, 1244, 279, 7, 55, "Text"],
Cell[37008, 1253, 304, 8, 110, "EmphasisText"]
}, Closed]],
Cell[CellGroupData[{
Cell[37349, 1266, 31, 0, 50, "Section"],
Cell[37383, 1268, 763, 20, 165, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[38183, 1293, 30, 0, 50, "Section"],
Cell[38216, 1295, 531, 15, 227, "EmphasisText"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)