(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     53825,       1593]
NotebookOptionsPosition[     29187,       1100]
NotebookOutlinePosition[     48479,       1451]
CellTagsIndexPosition[     48245,       1441]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Beginning Mathematica", "Title"],

Cell["Mark Senn", "Subtitle"],

Cell["\<\
revised: September 28, 2008
created: December 5, 2006\
\>", "Subsubtitle",
 CellChangeTimes->{{3.431628900737224*^9, 3.431628946780631*^9}}],

Cell[TextData[{
 ButtonBox["Wolfram Research",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://www.wolfram.com"], None}],
 StyleBox["'s ", "Text"],
 StyleBox[ButtonBox["Mathematica",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://www.wolfram.com/products/mathematica"], None}],
  FontSlant->"Italic"],
 StyleBox[" is ", "Text"],
 StyleBox["the world's only fully integrated environment for technical \
computing.  ", "Text",
  FontFamily->"Times"],
 StyleBox["It does symbolic mathematics, numeric mathematics, graphics, and \
interactive notebooks (you're reading one now).  There is a separate grid", 
  "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" product for using ", "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" on clustered computers, ", "Text"],
 Cell[BoxData[
  FormBox[
   RowBox[{"web", 
    StyleBox[
     AdjustmentBox["Mathematica",
      BoxMargins->{{-0.175, 0}, {0, 0}}],
     FontSlant->"Italic"]}], TextForm]]],
 StyleBox[" for using ", "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" over the web, and a slew of application packages and programs.\n\n\
", "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" is built on the powerful unifying idea that ", "Text"],
 StyleBox["everything", "Text",
  FontSlant->"Italic"],
 StyleBox[" can be represented as a symbolic expression.  For example, ", 
  "Text"],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " ", "+", " ", "y"}], TraditionalForm]]],
 StyleBox[" is represented internally as ", "Text"],
 StyleBox["Plus[x,y]", "Text",
  FontFamily->"Courier New"],
 StyleBox[",", "Text",
  FontFamily->"Times New Roman"],
 StyleBox[" ", "Text"],
 StyleBox["{x, y, z}", "Text",
  FontSlant->"Italic"],
 StyleBox[" is represented internally as ", "Text"],
 StyleBox["List[x,y,z]", "Text",
  FontFamily->"Courier New"],
 StyleBox[",", "Text",
  FontFamily->"Times New Roman"],
 StyleBox[" ", "Text",
  FontFamily->"Courier"],
 StyleBox["etc.  I", "Text",
  FontFamily->"Times New Roman"],
 StyleBox["n", "Text",
  FontFamily->"Times New Roman",
  FontVariations->{"CompatibilityType"->0}],
 StyleBox[" ", "Text",
  FontFamily->"Times",
  FontVariations->{"CompatibilityType"->0}],
 StyleBox["Mathematica", "Text",
  FontFamily->"Times",
  FontSlant->"Italic",
  FontVariations->{"CompatibilityType"->0}],
 StyleBox[" ", "Text",
  FontFamily->"Courier"],
 StyleBox["there are few concepts but they are used many different ways.\n\n",
   "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" is a very comprehensive software package.  This document just \
demonstrates a tiny fraction of ", "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" and is meant to help people get started using it.", "Text",
  FontVariations->{"CompatibilityType"->0}]
}], "Text",
 TextJustification->0],

Cell["Table of Contents", "Section"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   ButtonBox["Interfaces",
    BaseStyle->"Hyperlink",
    ButtonData:>"Interfaces"], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   ButtonBox[
    ButtonBox["Help",
     BaseStyle->"Hyperlink",
     ButtonData:>"Help"],
    BaseStyle->"Hyperlink",
    ButtonData:>"Help"], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   ButtonBox["Notebooks",
    BaseStyle->"Hyperlink",
    ButtonData:>"Notebooks"], TraditionalForm]]],
 "\n",
 ButtonBox["Numeric Mathematics",
  BaseStyle->"Hyperlink",
  ButtonData:>"Numeric Mathematics"],
 "\n",
 ButtonBox["Symbolic Mathematics",
  BaseStyle->"Hyperlink",
  ButtonData:>"Symbolic Mathematics"],
 "\n",
 ButtonBox["Graphics",
  BaseStyle->"Hyperlink",
  ButtonData:>"Graphics"]
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["\<\

Interfaces\
\>", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellTags->"Interfaces"],

Cell[TextData[{
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" comes with two interfaces: ", "Text"],
 StyleBox["math", "Text",
  FontFamily->"Courier New"],
 StyleBox[" and ", "Text"],
 StyleBox["mathematica", "Text",
  FontFamily->"Courier New"],
 StyleBox[".  I ", "Text",
  FontFamily->"Times New Roman"],
 StyleBox["recommend people using ", "Text",
  FontFamily->"Times"],
 StyleBox["Mathematica", "Text",
  FontFamily->"Times",
  FontSlant->"Italic"],
 StyleBox[" interactively use the ", "Text",
  FontFamily->"Times"],
 StyleBox["mathematica", "Text",
  FontFamily->"Courier New",
  FontVariations->{"CompatibilityType"->0}],
 StyleBox[" ", "Text",
  FontFamily->"Times",
  FontSlant->"Italic"],
 StyleBox["interface and any other programs that use ", "Text",
  FontFamily->"Times"],
 StyleBox["Mathematica", "Text",
  FontFamily->"Times",
  FontSlant->"Italic"],
 StyleBox[" non-interactively use the ", "Text",
  FontFamily->"Times"],
 StyleBox["math", "Text",
  FontFamily->"Courier New"],
 StyleBox[" interface.", "Text",
  FontFamily->"Times"],
 "\n",
 StyleBox["The rest of this document is only applicable for the ", "Text",
  FontFamily->"Times"],
 StyleBox["mathematica", "Text",
  FontFamily->"Courier New"],
 StyleBox[" interface.", "Text",
  FontFamily->"Times"]
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Help", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellTags->"Help"],

Cell[TextData[{
 "For ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " help s",
 StyleBox["ee ",
  FontFamily->"Times"],
 StyleBox["Mathematica'",
  FontFamily->"Times",
  FontSlant->"Italic"],
 StyleBox["s on-",
  FontFamily->"Times"],
 "line help system (c",
 StyleBox["lick on the word ``Help'' on the top part of ",
  FontFamily->"Times"],
 StyleBox["Mathematica",
  FontFamily->"Times",
  FontSlant->"Italic"],
 StyleBox[" window), or see ",
  FontFamily->"Times"],
 ButtonBox["Wolfram Research's Documenation Center",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://documents.wolfram.com"], None}],
 StyleBox[".",
  FontFamily->"Times"]
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Notebooks", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellTags->"Notebooks"],

Cell[TextData[{
 "Normally, when Mathematica starts up everything you type is in an \"input\" \
cell and when you type \"Shift Enter\" Mathematica evaluates what you type.  \
If you type input followed by \";\" ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " evaluates it but doesn't print the result."
}], "Text"],

Cell[TextData[{
 "You may be wondering how stuff like this paragraph was input.  This is a \
\"text\" cell.  Don't worry if this doesn't make much sense now, the \
important ideas are the appearance of a notebook is controlled by a style \
sheet and notebooks consist of cells.  Notebooks are all represented \
internally in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " with Notebook[\[Ellipsis]].  Sometimes notebooks are described after \
everything else in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " training...I think it is better to at least have the information here so \
you know where to find it later."
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Style Sheets", "Subsection"],

Cell[TextData[{
 "Notebooks are stored internally in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " using the generic ",
 StyleBox["Notebook[\[Ellipsis]] ",
  FontFamily->"Courier New"],
 "function.  The style used to display a notebook is controlled by the style \
sheet.  This notebook uses the \"Textbook\" style sheet (",
 StyleBox["Format => Style Sheet => Textbook",
  FontFamily->"Courier New"],
 ")."
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Cells", "Subsection"],

Cell["Notebooks consist of cells.  There are", "Text"],

Cell["\<\
Title
Subtitle
Subsubtitle
Section
Subsection
Subsubsection
Text
MathCaption
Input
etc.\
\>", "IndentedText",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell[TextData[{
 "cell types.  This subsection starts with a \"Cells\" Subsection cell, \
followed by a Text cell, and then (immediately above) an IndentedText cell.  \
Input cells are evaluated by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".\nCell structure is shown using the blue brackets on the right hand side \
of the window.  Cells can be nested.  Cell types and cell structure can be \
changed.\nTo delete a cell left click on the cell bracket and type Back \
Space.\nTo change cell type left click on cell bracket and do ",
 StyleBox["Format => Style => \[Ellipsis]",
  FontFamily->"Courier New"],
 ".",
 StyleBox["\n",
  FontFamily->"Courier New"],
 "To combine multiple cells to make one, left click on first cell bracket, \
shift-left-click on other cells to combine, and then do ",
 StyleBox["Cell => Merge Cells",
  FontFamily->"Courier New"],
 ".\nTo divide an existing cell into two, left click in the text where you'd \
like to divide a cell and then do ",
 StyleBox["Cell => Divide Cell",
  FontFamily->"Courier New"],
 "."
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Making External Links", "Subsection"],

Cell[TextData[{
 "To make a link like this one to ",
 ButtonBox["abbymath.com",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["http://www.abbymath.com"], None}],
 " I did the following:"
}], "Text"],

Cell[TextData[{
 "type above paragraph into text cell\nmove mouse to beginning of \
\"abbymath.com\" in above paragraph\nleft click and hold left mouse button \
down\nmove mouse to end of \"abbymath.com\"\nlet up on mouse button\ndo ",
 StyleBox["Input => Create Hyperlink...",
  FontFamily->"Courier"],
 "\nClick on \"Other notebook or URL:\"\nEnter \"http://www.abbymath.com\" in \
the top dialog box and click ok."
}], "ItemizedText"],

Cell["Making Internal Links", "Subsection"],

Cell[TextData[{
 "Ta make a link like this one to ",
 ButtonBox["Numeric Mathematics",
  BaseStyle->"Hyperlink",
  ButtonData:>"Numeric Mathematics"],
 " (the next section) I did the following.  First set up the link:"
}], "Text"],

Cell[TextData[{
 "type above paragraph into text cell\nmove mouse to beginning of \"Numeric \
Mathematics\" in above paragraph\nleft click and hold left mouse button down\n\
move mouse to end of \"Numeric Mathematics\"\nlet up on mouse button\ndo ",
 StyleBox["Input => Create Hyperlink...",
  FontFamily->"Courier"],
 "\nclick on \"Current notebook\"\nclick on \"Cells with the tag:\"\nfill in \
\"Numeric Mathemtics\" for the tag"
}], "ItemizedText"],

Cell["\<\
after putting in the link target cell, in this case the \"Numeric Mathematics\
\" cell, do\
\>", "Text"],

Cell[TextData[{
 "left click on the cell bracket\ndo ",
 StyleBox["Find => Add/Remove Cell Tags",
  FontFamily->"Courier"],
 "\nput in \"Numeric Mathematics\" for the cell tag\nclick Add"
}], "ItemizedText"],

Cell["Numeric Mathematics", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellTags->"Numeric Mathematics"],

Cell[TextData[{
 "Let's have Mathematica add 2 + 2.  I typed \"2 + 2\" followed by \
Shift-Enter in an input cell to do that.  If you just type Enter, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " won't do anything so be sure to type Shift-Enter when you want Mathematica \
to evaluate something."
}], "Text"],

Cell["2 + 2", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[183]:="],

Cell["Sqrt[50 + 50]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[184]:="],

Cell["\<\
Mathematica can do numeric mathematics with an arbitrary number of digits:\
\>", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["N[2 1/3, 20]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[185]:="],

Cell["N[Pi, 1000]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[186]:="],

Cell["Random Numbers", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["\<\
Pseudorandom (from now on just called random) number between 0 and 1:\
\>", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell[BoxData[
 RowBox[{"RandomReal", "[", "]"}]], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[187]:="],

Cell["Return 0 or 1 with equal probabilty:", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell[BoxData[
 RowBox[{"RandomInteger", "[", "]"}]], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[188]:="],

Cell["Random integer between 1 and 12 inclusive:", "Text"],

Cell[BoxData[
 RowBox[{"RandomInteger", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "12"}], "}"}], "]"}]], "Input",
 CellLabel->"In[189]:="],

Cell["Throw two six sided dice:", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RandomInteger", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], "]"}], "+", 
  RowBox[{"RandomInteger", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "6"}], "}"}], "]"}]}]], "Input",
 CellLabel->"In[190]:="],

Cell[TextData[Cell[BoxData[
 FormBox["Range", TraditionalForm]]]], "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Return all numbers in a range:", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Range[1, 5]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[191]:="],

Cell["Range[3, 5]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[192]:="],

Cell["Range[3, 5, 0.2]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[193]:="],

Cell["Sets", "Subsection"],

Cell["\<\
x = {a, b, c};
y = {a, c, d};
Union[x, y]\
\>", "Input",
 CellChangeTimes->{{3.431631610203622*^9, 3.431631687508194*^9}},
 CellLabel->"In[266]:="],

Cell["Intersection[x, y]", "Input",
 CellChangeTimes->{{3.431631694435973*^9, 3.431631698001676*^9}},
 CellLabel->"In[269]:="],

Cell["Complement[x, y]", "Input",
 CellChangeTimes->{{3.4316317013632*^9, 3.431631705986362*^9}},
 CellLabel->"In[270]:="],

Cell["Statistics", "Subsection"],

Cell["data = {2, 3, 5, 17, 19, 31}", "Input",
 CellLabel->"In[199]:="],

Cell[CellGroupData[{

Cell["Mean[data]", "Input",
 CellLabel->"In[200]:="],

Cell["\"%\" gets replaced by the last evaluated result.", "Text"],

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellLabel->"In[201]:="]
}, Open  ]],

Cell["Of course, one can use this:", "Text"],

Cell["N[Mean[data]]", "Input",
 CellLabel->"In[202]:="],

Cell["Variance[data]", "Input",
 CellLabel->"In[203]:="],

Cell["StandardDeviation[data]", "Input",
 CellLabel->"In[204]:="],

Cell["Median[data]", "Input",
 CellLabel->"In[205]:="],

Cell["Quantile[data, 0]", "Input",
 CellLabel->"In[206]:="],

Cell["Quantile[data, 0.5]", "Input",
 CellLabel->"In[207]:="],

Cell["Quantile[data, 1]", "Input",
 CellLabel->"In[208]:="],

Cell["Sum", "Subsection"],

Cell["Add 1 + 2 + 3.", "Text"],

Cell["Sum[i, {i,1,3}]", "Input",
 CellLabel->"In[209]:="],

Cell["Unit Conversion", "Subsection",
 CellChangeTimes->{{3.431630024190246*^9, 3.431630032841028*^9}}],

Cell["\<\
Usain Bolt set a world's record in the 2008 Olympics by running 100 meters in \
9.69 seconds.  What was his average speed in miles per hour?\
\>", "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.431630040931264*^9, 3.431630107811502*^9}},
 CellLabel->"In[1]:="],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Convert", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"100", " ", "Meter"}], 
     RowBox[{"9.69", "  ", "Second"}]], ",", 
    FractionBox["Mile", "Hour"]}], "]"}]}]], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.43162909990341*^9, 3.431629100893516*^9}, {
  3.4316298126429243`*^9, 3.4316298157975607`*^9}, {3.431629983965967*^9, 
  3.431629988098015*^9}},
 CellLabel->"In[210]:="],

Cell["How many carats are in pound?", "Text",
 CellChangeTimes->{{3.4316301431645193`*^9, 3.4316301584272213`*^9}}],

Cell[BoxData[
 RowBox[{"Convert", "[", 
  RowBox[{
   RowBox[{"1", " ", "Pound"}], ",", " ", "Carat"}], "]"}]], "Input",
 CellChangeTimes->{{3.431630184454935*^9, 3.431630200571176*^9}},
 FormatType->"InputForm",
 CellLabel->"In[211]:="],

Cell["Symbolic Mathematics", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellTags->"Symbolic Mathematics"],

Cell["\<\
x = 3; y = 5;
x + y\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[212]:="],

Cell["Differentiation", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell[TextData[{
 StyleBox["Clear[]",
  FontFamily->"Courier"],
 " variables in case they have values left over from earlier.  Solving for ",
 StyleBox["knowns",
  FontSlant->"Italic"],
 " (instead of unknowns) causes weird problems and confusion.  If you get \
really weird results when solving for unknowns double check that they don't \
already have a value."
}], "Text",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["\<\
Clear[a, b, x];
expr = 2 a x + b;
D[expr, x]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[214]:="],

Cell["Integration", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell["Integrate[expr, x]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[217]:="],

Cell["Matrix and Vector Operations", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[7]:="],

Cell[CellGroupData[{

Cell["\<\
Clear[a, b, c, d, x, y];
(* matrix *)
m = {{a, b}, {c, d}};
(* vector *)
v = {x, y};\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[218]:="],

Cell["\<\
(* constant times matrix *)
k m\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[223]:="],

Cell["\<\
(* square each element of m *)
m^2\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[225]:="],

Cell["\<\
(* matrix multiplication *)
m . m\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[227]:="],

Cell["\<\
(* matrix times vector, v acts as column vector *)
m . v\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[229]:="],

Cell["\<\
(* vector times matrix, v acts as row vector *)
v . m\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[231]:="],

Cell["\<\
(* transpose matrix *)
Transpose[m]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[233]:="]
}, Open  ]],

Cell["Solving Equations", "Subsection",
 GeneratedCell->False,
 CellAutoOverwrite->False],

Cell[CellGroupData[{

Cell["\<\
Clear[x, y];
Solve[{x + y == 10, 2x - y == 5}, {x, y}]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[235]:="],

Cell["Solve[{a x^2 + b x + c == 0}, x]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[237]:="],

Cell[TextData[{
 "Do the ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]]],
 ", and ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]]],
 " replacements on the fly just for this one statement."
}], "Text"],

Cell["% /. {a->1, b->5, c->4}", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[238]:="],

Cell[TextData[{
 "Set ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]]],
 ", and ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]]],
 " until they are reset."
}], "Text"],

Cell["a = 1; b = 5; c = 4;", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[239]:="],

Cell["Solve[{a x^2 + b x + c == 0}, x]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[240]:="],

Cell[TextData[{
 "Reset ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]]],
 "."
}], "Text"],

Cell["\<\
b = 10; c = 9;
Solve[{a x^2 + b x + c == 0}, x]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[241]:="],

Cell[TextData[{
 "Reset just ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]]],
 "."
}], "Text"],

Cell[CellGroupData[{

Cell["\<\
c = 8;
Solve[{a x^2 + b x + c == 0}, x]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[243]:="],

Cell["N[%,20]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[245]:="],

Cell[TextData[{
 "After the following input is evaluated you may want to left click on the \
output cell bracket and do ",
 StyleBox["Cell => Convert To => ",
  FontFamily->"Courier"],
 StyleBox["and then",
  FontFamily->"Times New Roman"],
 StyleBox[" InputForm",
  FontFamily->"Courier"],
 StyleBox[", ",
  FontFamily->"Times New Roman"],
 StyleBox["OutputForm",
  FontFamily->"Courier"],
 StyleBox[", ",
  FontFamily->"Times New Roman"],
 StyleBox["StandardForm",
  FontFamily->"Courier"],
 StyleBox[", or ",
  FontFamily->"Times New Roman"],
 StyleBox["TraditionalForm ",
  FontFamily->"Courier"],
 StyleBox["to see the different ways the output can be displayed.",
  FontFamily->"Times New Roman"]
}], "Text"],

Cell["\<\
Clear[a, b, c, d, e];
Solve[{a x^4 + b x^3 + c x^2 + d x + e == 0}, x]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[246]:="]
}, Open  ]]
}, Open  ]],

Cell["Graphics", "Section",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellTags->"Graphics"],

Cell[TextData[{
 "Plot ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", " ", "=", " "}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", " ", "x", "  ", "for", " ", Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{"0", " ", "\[LessEqual]", " ", "x", " ", "\[LessEqual]", " ", 
       RowBox[{"2", 
        RowBox[{"\[Pi]", "."}]}]}], TraditionalForm]]]]]}], 
   TraditionalForm]]]
}], "Text"],

Cell["p1 = Plot[Sin[x], {x, 0, 2Pi}]", "Input",
 CellChangeTimes->{{3.431630979004386*^9, 3.431630981615553*^9}},
 CellLabel->"In[248]:="],

Cell[TextData[{
 "Plot ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", " ", "=", " ", 
    RowBox[{"cos", " ", "x"}]}], TraditionalForm]]],
 "  for ",
 Cell[BoxData[
  FormBox[Cell[TextData[Cell[BoxData[
    FormBox[
     RowBox[{"0", " ", "\[LessEqual]", " ", "x", " ", "\[LessEqual]", " ", 
      RowBox[{"2", 
       RowBox[{"\[Pi]", "."}]}]}], TraditionalForm]]]]], TraditionalForm]]]
}], "Text"],

Cell["p2 = Plot[Cos[x], {x, 0, 2Pi}]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.431630986015396*^9, 3.431630993382464*^9}},
 CellLabel->"In[249]:="],

Cell["Show both the plots on the same set of axes.", "Text"],

Cell["Show[p1, p2]", "Input",
 CellLabel->"In[250]:="],

Cell["Make an animation.", "Text",
 CellChangeTimes->{{3.4316305094969788`*^9, 3.431630525235836*^9}}],

Cell["\<\
Animate[
    Plot[Sin[x-t], {x, 0, 10}],
    {t, 0, Pi, Pi/10}
]\
\>", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.431630412795012*^9, 3.4316304191638517`*^9}, {
  3.431630461787822*^9, 3.431630464856422*^9}},
 AnimationDisplayTime->0.13,
 AnimationCycleOffset->12,
 AnimationCycleRepetitions->Infinity,
 CellLabel->"In[251]:="],

Cell["Do a 3D plot.", "Text"],

Cell["Plot3D[Sin[x] Cos[y], {x,-Pi,Pi}, {y,-Pi,Pi}]", "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellLabel->"In[252]:="],

Cell["Make a set of 3D plots to do an animation.", "Text"],

Cell[TextData[{
 "Animate[\n    Plot3D[\n        Sin[t+x] + Cos[t+y],\n        {x, -Pi, Pi},\n\
        {y, -Pi, Pi},\n        Axes \[Rule] False,\n        Boxed \[Rule] \
False,\n        Mesh \[Rule] True\n    ],\n    {t, -Pi, Pi ,Pi/10}\n",
 Cell[BoxData[
  FormBox["]", TraditionalForm]]]
}], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.4316305530598993`*^9, 3.431630654766467*^9}},
 CellLabel->"In[253]:="],

Cell[BoxData[
 RowBox[{"Animate", "[", "\n", "    ", 
  RowBox[{
   RowBox[{"Plot3D", "[", "\n", "        ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Tan", "[", 
        RowBox[{"t", " ", "x", " ", "y"}], "]"}], " ", 
       RowBox[{"Sin", "[", "x", "]"}]}], " ", "+", " ", 
      RowBox[{"Cos", "[", "y", "]"}], " ", "+", " ", "t"}], ",", "\n", 
     "        ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", "\n", "        ", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", "\n", "        ", 
     RowBox[{"Mesh", " ", "\[Rule]", " ", "True"}], ",", "\n", "        ", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "10"}], "}"}]}]}], "\n", "    ", "]"}], ",",
    "\n", "    ", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "Pi"}], ",", "Pi", ",", 
     RowBox[{"Pi", "/", "100"}]}], "}"}]}], "\n", "]"}]], "Input",
 CellLabel->"In[7]:="],

Cell["\<\
Compare throwing one twelve-sided die with two six-sided dice.\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "1000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"die", "=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "12"}], "}"}], ",", "n"}], "]"}]}], ";", 
  RowBox[{"dice", " ", "=", " ", 
   RowBox[{
    RowBox[{"RandomInteger", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "6"}], "}"}], ",", " ", "n"}], "]"}], "+", 
    RowBox[{"RandomInteger", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "6"}], "}"}], ",", "n"}], "]"}]}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.4316293933491488`*^9, 3.4316294246598177`*^9}, {
  3.431630732813073*^9, 3.431630746153356*^9}, {3.431632043870864*^9, 
  3.431632062846019*^9}},
 CellLabel->"In[273]:="],

Cell["Make some plots showing the individual dice throws.", "Text"],

Cell[BoxData[
 RowBox[{"pdie", " ", "=", " ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"die", ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]], "Input",
 CellLabel->"In[275]:="],

Cell[BoxData[
 RowBox[{"pdice", " ", "=", " ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"dice", ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}]], "Input",
 CellLabel->"In[276]:="],

Cell["Put both plots on the same axes.", "Text"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pdie", ",", " ", "pdice"}], "]"}]], "Input",
 CellLabel->"In[277]:="],

Cell["Add individual dice throws to get total distribution.", "Text",
 CellLabel->"In[252]:="],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tdie", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", " ", 
     RowBox[{"{", "12", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tdice", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "12", "}"}]}], "]"}]}], ";"}]}], "Input",
 CellLabel->"In[278]:="],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Do", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"tdie", "[", 
      RowBox[{"[", 
       RowBox[{"die", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "++"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "n"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"tdice", "[", 
      RowBox[{"[", 
       RowBox[{"dice", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "++"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "n"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellLabel->"In[280]:="],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tdie", " ", "=", " ", 
   RowBox[{"tdie", " ", "/", " ", "n"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tdice", " ", "=", " ", 
   RowBox[{"tdice", " ", "/", " ", "n"}]}], ";"}]}], "Input",
 CellLabel->"In[282]:="],

Cell[BoxData[
 RowBox[{"pdie", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"tdie", ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]], "Input",
 CellLabel->"In[285]:="],

Cell[BoxData[
 RowBox[{"pdice", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"tdice", ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}]], "Input",
 CellLabel->"In[286]:="],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pdie", ",", "pdice"}], "]"}]], "Input",
 CellLabel->"In[265]:="]
},
ScreenStyleEnvironment->"Presentation",
CellGrouping->Manual,
WindowSize->{968, 1482},
WindowMargins->{{6, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      Cell[
       GraphicsData[
       "CompressedBitmap", 
        "eJy9XXd4FEeWHysRDKwxJoNlQDmQkRAoYoKEDQIbFhPMGXvB2IDx4rDnsAu7\n\
BntJwhgEiCCQQBmBAkpIQkIBJZRzQgIRP/vu9tu7+76L+7uq7qqe6pmekQTs\n\
/TGMprq6Xqiq93vv1etm2abPt27esenzjz7Y9NqSXZs+3frRB5+9tnjnLtJk\n\
+YJOZ+Gu0+mcX9PRv0H+ZP+8gs7OTp0VqvPycSnwTeRHRKK9tdVaah6Ehrp6\n\
3PYPQs8Ed5S5TEWznzfu/UMw7n6yFlUb1uD2xYs6S6nvAHR2dKD66hXk79iO\n\
gjnzUDzKEQkzPFFx6ZIOtM/fpI66kYxk5nd7cXm8A2I2b0NVcbGV1DwCHWSY\n\
+rfW4Z7DTNyxn42Wpf5o3xiEB9vext13g9H03irUhZ9CbcoVVJ45jbztH6Nw\n\
njdqp7mhyNUVZ8ZMwZUVb6G9sVGDrA3qqqoQ7zYHcYMn4vwMLxQfPY767FwL\n\
6fLLaG9uRtuqlbjn6YW2GXNRM88DTesWofuz1Xj03XrcX0/YWfY6WoID0Lx6\n\
ISp8ZqJ8ljsqZkxHtK0Twij5lW9JlCFTHiV9jUUyEThtxGRkj7BDEvlOd5yG\n\
mzs+RVnoSZSsX4eHnh646++LRm9vtNpNR4PPbHR/twoP//g2Oj8PRtvmQDQt\n\
mY3mra/jlv9sFARMRfxUN5yztcd5Jxdc//S3OmO641FTXIREB3fEjJpCPnbI\n\
GW+HtAn2iLV3QJGDEx66zcZ9P190LvZH16x56HB3w52di3D/zAbcO7YO7V8E\n\
omyTH0rXeyF39VwkvT4HYQ7OODR2Ak64uKEyIUGiShaAbqBE0xJ1mZmoz82V\n\
fkns/FXkaRw62tqQvvLXuPTSq0jw9sKtP76Pij9vRcn+rag8uBUNhz9G4487\n\
0HB8Jxp++gR1h7ai7sR2NMZ8gYZLX6Ix6kvUnPstqkK3o/LEDpQf+wSlBz9G\n\
xvZVOD59Kq5//Q0KDxy0ZpPe0daKiosXUXo6DJnr1iH97dW4HRcncfavMmej\n\
pa8puEVmI97NBVXnvkTzlcOojTmKpvhjuJ92Gt1pYehOPYWu1DDcST+Hroyz\n\
6Lz8Ezqjj6CTXGvPPoPWnDNoJH/XJoaiNu4Y6hJ/QlNKKHI+/xCXHNyQ8clO\n\
lBFWyuknIgIlp07h6voNSAhegUSyjrPJ7F8nLDbm58ua+zeRv8koOBSC2CAf\n\
NFzeh9sRYai8FIGHqTHoSovCP9dk4y+3s/Fzfgoe5mfgUUEanqRE4edrMXiU\n\
HI0HqdHoSYlFW1Is2qMi0RJ1AVVnCL/nI9BOeDk91QXfT7ZFiJMTDrm64exM\n\
sqg9ZiLWeSpuTfNE0VxfZG35EG119U0SO9ZovZqKKhdvVL7kgprgDfS3bgJb\n\
BMXFxfLCIL/+ynZ9Wloatm3bhh9++AGNjY3yrtf9it1BbQi/w4oJ3NbcioSV\n\
KxC9dD7q4r4n038WPZcj8UtBMs75+CI5KAitaRH4p4Yb6MlPw/0bSXhSnITH\n\
WTHoSSTKSbiAB1HhuHPhHDrPnsXdC+FoPhWGhqgodF5LwQHPadg/fTJC3Kfg\n\
tLszssjOL3k9ADV+Acjx8iMT9wUVuJkJ3FFZjSqPJah8dZYkNBGe7DGZ/crK\n\
Spw4cUL69a9MCKqExMREfPXVVwgPD1cJ7IjCwyHIev99otUtuL7jE+T/sB9V\n\
KddQfT0LBR9tQR7Z2ylv+qI+7gfcTzmPRxlReFKdicT5fijTTcS1iS7I2bUV\n\
bfmX8bgyCw+J4A9yY3Ev+SIR/gLuEeHvEOFbz59FY8RZYjFPojUuBveyUpG0\n\
2Bv5QfPRuGwhWgMWo9k3EOUBAUjz88fNfd/r2pkEbXk3JUnpp/mnsHEawv47\n\
a4siOqWCstmkkg6WvoiVKCpCVcR5NJ4JQ/XFSJRGRaMw4iIKtm9H3bQZ6Hp5\n\
Eu4Mn4z2oZPQ5uSMBzPc8MjOFTfe8ENV3D6y986jO/0Sem6nIdY3AOWDHFA7\n\
zBk3dJOQ4DYTN77/Gl1lKXhQmIiulAh0JoSj4/J5tMaGo/rCaZSGheL2qWO4\n\
kxiLzuvXUPbWG2hZtQzt5PvO2mDULl6IdI95uLaBLOKamg4mQ82CFZLgdRs+\n\
1JmTnE4zXdfkWy25K+oqylFIDM/1t1bitpMbSkdPRswIW0SPm4I8e0dkjLFF\n\
zYuTcPcVO3S6uaLdZw66p09HzooAlEb+kezWM+jIuIg7ZcmIIosyf4gDike7\n\
oWSMG4qHOSBpGBnPfwGKQ/eh/Xo0WuLPoiHuHLEMZ1F67iQKfgrBrWMhZJMk\n\
oPV6Kio+XIPubzbi3taVBOoWIdvPBxkbNtJFrhvC5rw5IkaZc7LSpVVrSX8R\n\
4eg1vkktGPjTXVH30WeKKaDf9Ddpl9VhwW5u+N1u4WbaZiW20b+lZitmueni\n\
o3aFMSINStqkPhb6gbUHsWCTQ68xaaijwm+yEUVROpGZFjh+UenDReQbn3JF\n\
uZOMAd0aETFs5q3RuPeQXhXkem/SWjJ/i1pTQl+tRvKbtrP+Ov0NpnX6otLW\n\
F64tOEqSvqKuqRQKmREqxumHMkW7i4LSPn0haWN+ZvrHvyXfq4x3apKthYVJ\n\
x+L9BY3qLEwpcYDGRudtdJNTENObOEsKZNi1axe9piwBbgppf/pNfjNIGyCN\n\
SdvpPfReSpeOuWfPHsIUHWUQ/Ru5sgel0Dxy5IhyH8ESNp45WtrX+L7gYKzf\n\
yZYSVtE28s2UqO5nY2ZcSw0d2RiMIeuI/juYQ4XyITJxPUqysnu4kaHqoGrh\n\
JOlv+k1ZlfsMk9RJ1cuHodepbebtXH10eHo//U2u8S1gODMqDmykkajnwgSR\n\
/iZtWvq0ZAwJuuiNCXGuB5igSOUn8lqyy6JK6IeOLohDFzAlImqDKHmgcLeh\n\
OKTN0qQ41ipx2HVl2ik1el2/FBieOKGVSFdK4oTb23agx3E6euydUGTngjxH\n\
4hnMnIaWSS644zoVbXO9cGehH7LfDUTBud2oiz9NvOkLaCmMxxlfP1x5yQ7p\n\
Y12RNtaFfFyRNcYVV4ZNQRiJbS4GL0PhiYOoiCVe9YUwFB4/gsIjB1AZcwoN\n\
N1LQmJOKht0b8cuP7+HBFytR9UYAkr19SFBweiiTTjBH0ofCl4Xg6YrXqC3m\n\
WlGcQnaNeA2Kvaft9Dpb5E8LhNzKUkNInRLmg/4dgFAwlSqY4X2oK8RGpXJa\n\
KbaZ2WO++ESFUe4ZEPbO52DqZoruh15gWe/G2Glaq/q2vvKtQKA8kfx+Lb4J\n\
n5asWWKReT2EkjlCvYBf3zm2FN0y7iOIbpnBmhR1+PToRxFCRD+KBNyyc8K8\n\
jVp02p9+c9Mg9xmoWD7al/YR7C01WhaSXR8s2S/ahRtHbjjpLbSdgWHfKQ82\n\
10ciwzCQ7xrOKIVcPnccJuX931fSagUajkXllX6RqJfbWBEWuaJEi85hhf6m\n\
5lvUikBL6kOtvzgOHZfiC8dL3k7HYffLbL+oOVeCCqS1wljQyRNnowxDrwla\n\
tWKTIHLXKwdqxVkLK5R2k/0mWX0cX0WngCqTtovKYStbUR7zYZQ+ZMwBBvOj\n\
F85SgU09GfWaEPGSS8muKxtHHJfhpZwXGI6mm4VoDtmProVz0e7sjlav2ahZ\n\
4oWWJfPQPXMu7s0LQPqaQOSe+QNKo0+hLPY0anJiEeLtjZBf2eLkGAeqi9EO\n\
ZCzyN06NssehIRPw3QQ7hK9fh7xTR5AZcgC5xw+gPPEMam8moy4/BS37/wGP\n\
dq9C51o/3FzghatvkCj5dqWOA6RoG9Xhgxz0iNeo9eJ+igis3FCR776Y7d4A\n\
UiZhpYIbaehOVVBAB3hWnLQUg0GdtuGlbdZKP26wFYPLCBvBjrpZinD7yCsn\n\
oajbgt4u+//ioL3gpLXS1leeOXM0nOLMKc0DVDyL8Sxljg9L/SKBnAlqveBl\n\
/zmnEyR6GCpvTriFDKefCfWcPB1kcqa40WGuO59KbgL1XW0Ue8VVyYyGpXAL\n\
teOiWeSuvLlhGCnLvlwepLqsZfYJIukMraXIUV8EY3rSGsbGzDDcEHfqAxLK\n\
FncHeBO3wRxLSRcWIvc+rJHarVVKoBNO0EOJuCmScHThJp9fE1lhZBUbaUiS\n\
9eXCMzICulgq0uh1rdYrvU7vIettMLuFLj3mYel4bMHzCjwGVSG1OQyzkpjm\n\
aQAl8CSgQ79eQmdqEgnnFqE7yBN3VnihdVMgWjcsQc9Sf2SsD0Rm2O9ReO4I\n\
isJ/wu1rkdjnORefDR2Hb0fa4utRtlb4ZqQtwe9vR03C18MnYueQ0fja0QVn\n\
338Pt66EoTz5DGqKr6Im+wpaDmzCL39+B63vL0G2vw+uBgcPY/yLCSq1edBH\n\
fErQ47FEn09iuV/qe2u1mTQH/YUrYga5CRDs0jPD1QAFhjg0c00Y+P/GeEXY\n\
UBtpQwuqJmrZG6fy6lRZXQqhWpa93zjVG69afGmQkF0ZBvOETz3ZThXOmiHX\n\
b6DqVc3WEroyeDdaoHzRkphTO4DsPzYNVOyHaOL46QYZg1srnuzhh3wGMZNw\n\
hzLLxtTUw/RCxejyQNVlzi+PdIhl4qfRIpZYaTBoSiYzkGRtchg1OJgDAIr+\n\
ZEZUKGmoH3GsXnCIJfcUUtz49wWH5KBGm6QBDjEyKhwST7+sGQke03FJKWsv\n\
CrjFtWZloHw2dl9ASIk8GKZxsCff7JruZelrGDqKb6Ftwwp0+c/G/W0EgXa9\n\
ge4NC5Cx3B95JIiqijiK6pRw1OclYP+8+fj2VxOwb4ydDfaOnkJu3ztmCv0L\n\
vx8yHntenoDI4CAURP+IlopU1JO4qT10C/7l5EZ0f7QEhYt8kLSUxE1VVUOY\n\
bOLe5saBBCZKjMJARet4x9rQbul7PRX+KPlEZjvYoT03gc8lnzhAzBWqhKbW\n\
Sxhdn3iUzngYDhOrqOLA4JTOUEMmEMcoAJKi0H7HRTb6bJxJFg3PRPuEN8o0\n\
kjYhP6zgQV/JWZmfi77wr87/cnAS4nM1f3IbT43KkROP3vqHQENU27pTSMfw\n\
VIyBHeXGxbQ1UKfTrNi/PJ1G23Nzc62Y5rjRUI1upYyuah5g2Kz4voRnnTmo\n\
MW5TC8CZNYczWmcxPCnXm4Hn43M5uGWmYxq4/Jq5LG5mxfnQK7g3zNPO9GnQ\n\
NpfpE9ushDZ+yigeEQqpOYVVGWZllOP5SBHA+FTqaVpzJ6JX9RqiEZ8qKh69\n\
n0ZaDI1GSF9D0Zabg673gnBv43y0vxeAe3t/jeztK1F0+g9ojD2BlvQItBUn\n\
4oS3L84On4Koca5kk14a50Kg6OIoR0SPccS12Z7I2rweqX/+ggRCJ9FVmoTW\n\
onR0nNyMv5xdj57NC9C0aj4yAvxwbf27HIqUyg6yy3kMQiwC9zd4hCBd4l6q\n\
ypH++wCSpXSqz+CC0HgOKDTIKKoRCwfo33rWrMXMnjzgq7NkNp4agCxFpCGM\n\
aYJSn6MdY76eDXX4zuptXC14sWAhMZ0u1lenuUKMB9dPihILksmhv7kTRGJV\n\
ebCBZpdUf0DFVPrqKUCFtlnrMyAcUHQiohhBh4lmS7GZFX5YKkUfopB/L1TR\n\
OrHoL6rwuEAo3pAle/5QYmM0s4yoVf/xY6DRWPzkSCzqGMDEEfrpxNQrzZyJ\n\
mMGP5vqLGfQ+EWvIGBwzXmGLuvXoXrSv9kXLjkB0/Gk1sj97G6Vnif8VGYrm\n\
xHB03LiMsz5+SBlmj+tj3axobQQJf7JGueD6CCcUOs1A8TsrcPWrnciJPY2W\n\
0hR0FCag69YVtN9IRkfoZvzLwRV48vkS3N0ehHJ/L6R4+6D4SAhaa2sHM9Up\n\
0QvZrcrOHKhsdh7kiBta7Ro+b/jgy5sCFjUtWqM9A3wIEKky3aw2Tp8xMiqK\n\
lBGNtuszS88WywgHbHyzikcVKl32uSrCPMPPhjED+ziuFsZYsX40ank63gcZ\n\
BZc01hUnkfxW7jdKjYr8EPh6CiAaqtryYmRjCER9SUYZeMlC3Zgq8cQzPtyq\n\
Gg5H73s+iTZqs1j4Yxj9JCqVDPJZVx/yhyZybfqRrJWuXPSnzbnRTNRAtvDo\n\
mHQ8lpHqK2b1PdemVTNjkmzfoEsNg1wbJOzgFHktg4hWfO7F/cYiIxWCcRTs\n\
H4LZqJa2sNZeUINYc2IC2vznoGb1fFRuW4yMT1agKvJPaLkQivboc+jMjkeU\n\
jz+KBtujYqSbBcpGuupGomyEC8qGOaFmojtqly5G/u5PceXIAVw9eBANGXFo\n\
z72Ktsx4dBWk4s5NAgRfLcejLxbh3pdv4t47AehYMheFnp5I8piHlNW/Rmt1\n\
NTEPMuO8QIAbGgZbFqxOWQA7c6m753pGZHACwT0sk2dD4gm8MAbP2ij22Ajd\n\
uEBcdo52zFCaMdb9PxbSZFI+FhKfMFEKs4WzD0H/CkssflOx2RtWmGP9GU+J\n\
BmgPbcMmUKxC6GS+Eq8SJIJyYXgXKqgN2zIGI0r9BLDiXHGg4vMgnBspeKbg\n\
oOHC5N6NeTxTGwAWVJk8qeilwkB1kKF1Bm/NkycKPOjrpGyUWjueQ3o+9QwC\n\
pBnFTUpcQ2aZx2i9UGUoaXoka8Vk8iMMfUGAtaogwFwgJJzy8yIArhb+YZz1\n\
Fd7UJQ02WiUNFG+Uo1G9vVeWQy8c9A3p1CuO15vz/mJFBB9XSL6pxlXDnI0W\n\
zOklGqzylgwXCQdcHiO+QJl4gc6CCuzs0XI5Fk0rPVG5yhMFm32RuiUQdZf2\n\
ojv6DO4mR6HnRhLivQNQaWOP2hGuqHnZFdVDndEw0gVt831Q9tvfIPv8MRSn\n\
xqMmOR43joeiIS0W98vScDfvKu4XZZLvTFS/7YeGlTNQt3I+WhZ5oeNNb7R4\n\
eKB4+mykesxF0vIVKP7xRxLG1ej4cwXcgrA4hpsGC2Z6mOWQjQuDHXILn1zR\n\
nD3ncj6aKGPPHgnHUlJXfTW+SYy1UvKaUkk+5Vi2sFwYoRZEDPbkwEx4qMjw\n\
1F/PtrUqhmPPIxmHDBz+TEOijSGvai0PFgNoBTQ4P3zeBLjnIoooySnISTXG\n\
vh62emffLCyaKPKTH3hQDrI4uDFaJsNuoySjvF9F50AddatTCWpRrI0gV3Ys\n\
ZMGMSzYH6/OSQoKce1AC3krD89JPSpP2F2tZzOGmEAMyPn9lhJu9FafzYmbZ\n\
+aaR0SCVieKFztzCcaffgtlOjdr5fpTt97t4Xjwke7bieTmLyk9lSLtWFpM/\n\
nqZRM69kWHvDU6E6U1bwUKVUnn7EYQ2ryY0nZ4ARfhjXyltr1cqTa9S9GmpU\n\
FM+R1Qwvuv7B7HBN8cWFwnFQqLhX0aTqFas01XlRK8O8qCzaiyZF0/JFLGWs\n\
lWBWAlwBax3R+M0/onzpPFS8S3DzA29c+80SNMR8jzsx4XiQGIWH+amImR+A\n\
0kH20k6uGO6EhqlzUP3BWmQe3I3c6Ai0FVxHZ34GiSiv4lbkBVRFnceTkmQ8\n\
LLyCnysy0XOTYO3GBWhe4IzqWQ6oc3FG08xpqHacjlLHaSh3n458t5nImDUX\n\
6W+tRsmJUzR1qjz2qeXJ8+MhC8lRt1LZewVRrRRDxB404/aPI4SR2RVRl0K7\n\
/oG0FyVjRm+kRlCoy9A/YsuiLX2oY6083SQYYuMIQm+5K5UKAcM20Q2wFgcQ\n\
g1sOnDyGkcvkjENRlsYVFCIGmYxn3kt+gqpTiLKkB9vpfUNVQCIefVKxDHDN\n\
CGONRbdRTYwAJnqVCVzrQ2MKb+RO3swnSvUctrUWr4pHJdEltBqEZ9YEUpai\n\
ghSDYAL0hXJFISzVFEGveB5iUqYM8yG0TJEjjfCsturZbIMVbKXSpFBiaQ5l\n\
uVGikGMu4jH3aDRvlw05/XeA6kEm8b5E5RkgGwUJDR7VfrYntQcaOQm8toD2\n\
I2yZQ0LTw+oL56h5Zxxrng3KGh6kekCbgbDCFo/O+IuctunLMxToEJ9coxDC\n\
NSryyOGUY4Ech8rITftzOlzjZp/JHqBMFn9YnJOmsaoYt2uQ7x+IDlKBKAdo\n\
/nA2q3lR1b1yrgWSfHkb16MMNqpHMSGVqXQ1dQsYhkp5WXLtBSmFzqpSiJdc\n\
W4vS1xegxNMdBW/MRWawF5LWLkZT9PfoOn8G9+OjcD83BWfn+yFp0CQUOcxA\n\
2eplyNr9GdJOHEVJZAQqoy6iOj4GzZlJaM1ORvXlGNyODMf9nHg8zI7Fk6Jr\n\
6MlLR/1aX9xd4o46NxL7OtihzskeTePtUT7ODiXuU1HhOAOVDtNR5TgVJbM9\n\
kf/OWlSev4DmWyVKqbz+HSWKWnkbtRrccqgzfINV4ZvyegjhASUWahqdoLHx\n\
2MmUtSqByvBUJ8IMH1ux6DJU6GMYZXz5dRfiS0OoOaX3U1Q0aFNXeisp0uAN\n\
ir3l54TK48MGQjOYEV9hxIWWmLLRI4GgYDnSlMy6Os8qa156Gwi31fRFLTK3\n\
8uWhqmhMfM8IpU2FZAlRsU3Hs3Vm+FXA2NoMZPFXMfAKI+V9VWRMHgyboWEu\n\
ODUs7FW8EkJOxOneRBCqcQ2zBrILIyvZxNtQVJG6sixJH7OAaaWAlSqNqbb8\n\
g820iTZwdB/v1er3okbbWI221/plj9Vtr7A248pzffqSRsJaPMtnhcxM2qH+\n\
y89R5+CGvJlTkeLsjkvOzkgI9kOjZCZPo4OEEo2JcQj1mIeEOR7I+nwrUg5/\n\
j9KYC6i/Eo3bl86j+EwYbpwIRX7YKVTGRaIiJgK5J46jMfYc2uPP4f71K7iX\n\
fQ1ly3zRudQDNVNdUTRrFrL9/JH//ibkffQRamJiURsfb0H+iaNOZHws6i9F\n\
ojaazP+NXMM0i/LciGS+DF0zuk2GGBo8/RY3brMXO4tn53xkvjMUD9zAdx9s\n\
wJ+B86mm5mTqwgSNUbQSQCzhoymKUy87hOIqcyfN7RCxQvf/c4eIdJ/HDjF+\n\
QNBSfEDQ3A6RH7aYhPo/fYfbM6Yi3c4V0RMcETXBHuG2kxEd5IPqi9+h6eQx\n\
lIQeR8mpE7gYvBwpe75AyeVwdBVcwYP6bDxsyEJ3ebp0pFufFIWS8JPIPBKC\n\
tJBDyDh8EAXHjhBn4CTakmLQkXUNhYv8UeYzFzkLFqDoz/tRTRzyIXyFM6DR\n\
A6SV6rUY5G8l3NSXifS+GUQMtFf2lc7wYFKeAZEgc0kUBvu7AXo9oqT9R2ns\n\
AfYCEH14zqph+r0veB6NZ/z0kmqvWrGicdBT7gx9HYj6vZLD+9hPK6qR3+dn\n\
I/InfVgCb4IGq33dTCMNyJl6dYTWxmab6SW+mYpvoXrdeygZ74Bzo20ROcwW\n\
ia/Y4vxEWxweNxFh3h4oP78XuT/sR9GRwyg9fgTlESfRlJOAzltJ6KxIwR36\n\
KbmC9oJ4NKVEoTk9Gu0ZEaiNOoE8Wkfx3V6kkvsLTh0n6/c67lWUIdvXAzme\n\
c1BIWB/G2DQ29FaK12bGfRE2k3r1Kgc0MhKxJALB2E59jp3S5LNoVPamsZ8o\n\
8EjuFt/w5ta29MI9spNpPstk51GaIKP36PWOXy/UTD2CyZMVfCWJJn200K8v\n\
G8b4PWvqjTrcTD+exTa1YV5lbcLhqfLuU1O7hD+hofXUxihhA2q8h2yIBgts\n\
cwzl64S+dDolFTl79yGZ+GI59u64MtUT8YFLEee9EOmr1yJqSSCOuLjhwksT\n\
kfW7T9CQRFDmdhkeN9fiSUcjHne34PGDTvz8pAtPHnfh554WPOluxMO2Bjxs\n\
rcOjdvJpqsL9mgp03S5Hc0kp7rY047/+9jfcDjmMFBdnpPj4oPzCBRf9CjDO\n\
08nVhvrVzjX9uqllM1W+IG820Xd6rT8LzUlD8XwBiQttpkabt8a9nhr9VLMy\n\
AO1NTYjzDcDVpW+g6NtvUJuUhKaqSvrWZwYU41FfWor4hYG4NGwsDtjZIf7D\n\
91B/dD/qQ0PQEBGKtqvh6Ei7hLaUCLQlR0qv+G29ehotF46iIexHNJw6iMbQ\n\
A2g4fpj8fQRVIQdRSd8ZuOVDnJriiBhbO1z2mo/y8PO6v2mo5b9FlonVaG9H\n\
BdkmHa3NLHM2HhUZWcjc+z3OrliO3bbjcHLWFNQv9ETN2oVo37MGj/atxS8X\n\
tuGXuF34JXwLfk74EI/PvYuezfPQETwHLW+6o9nfCfUBM9Dw+kyUzHJHBgkW\n\
4ghrZ2wdcWYifQm3G4qPHlWxyA9PGItjpK+xiFy5AvvGj0W21zQ0es9D26bl\n\
ePzDJjz8YhUefrcWj/+wBr+ErMcvP63B4z3LcXd7ALoWuqJn/RzcCZqOan8P\n\
NM6bgTrvmbg1zR15Tm6IIx7a8VcdEDHWFmnr1stvnP5fme5opobmhkYc9fPD\n\
8ZFjUTfbEy1vBeLe1hV4uONtPPn9anRtCcL9XcF48H4AnvwuEA++XY7OnUFo\n\
WeiGpjn2aPckJtPfC5XuM1Dzug/KPGajxNkNRVOnIWmKM6JfmYz4xUul1SHR\n\
/x81/ZKEBJy2nYQcWyc0zvZDz+rluLdxKbrfDULrb5aiNsgPDSsC0BbkgQc7\n\
FuP+58vQvtIHrX4z0eDugCpHO5T7+qBkzx9RFRmJvM8+Q/rKVbhBdHjLzR3J\n\
4xwRMnwiru/eo0H/ZZRejETCFDtUzp+LzsWLcNfDF43By1C0cT1ufvWPuHX4\n\
ELI3bkCevw/qA+fj7up5uPOOH9rmTkfjdGeUObui8vQp/p781toalJ0+jVy6\n\
p6YTUzXGDmFz5tPXpcvk/1skPwCxa9YgnUxVl48velYEouWTnahLSpRety5v\n\
pkFoqajAtV+/g2wiUlOQF7qX+6F91nS0OjrixptLUZeVpRR40s1ZTFZY0jxf\n\
RE92Rta3v1fR5Ua5/kautIlrXOcQVS5FW1oqOniF0UCJZNq6dSiYMRNNszxI\n\
RDwVdS9NkiJTwhoPoKrJ1s/8YDNivbzJiHkSof8SCVkhe+enyJg+GxW+S9B4\n\
PYe/nLI2PV16PWPlnBmodnJF2RQXlJ04MYjdRcXI+ng7rn/5O2nz0ub/lAfm\n\
/8OA9JL5N99A3oJFqLlxYzBTQNHBQ8ghcXmTnROqgt+WikG5H1ZDsKSjtVX6\n\
JQ35H+KQlig5dgzpQYGou1XK7rEiE5eD5Pl+qLd1Ruk77+pfwc+sIg+sKFal\n\
rF2HyuRk5T3LtC3zo49RTHCrcMtWo3s53Y7mZsXIc1isupqE1Flz6fvDdUY3\n\
2rFOdJqSlr6JlDVrjDvZs04Zv9mMq8tX6qWW/pGnUKd74f8A8yVfcQ=="], 
       ImageSize -> {557, 41}, ImageMargins -> {{0, 0}, {0, 0}}, 
       ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> 
     GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
     CellFrameMargins -> 0], 
    Cell[
     BoxData[
      GridBox[{{
         Cell[
          GraphicsData[
          "CompressedBitmap", 
           "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\
ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\
H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\
mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\
E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\
FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\
DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\
a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\
SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\
RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\
Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\
dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\
4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\
nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\
3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\
miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\
6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\
SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\
iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\
0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\
erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\
8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\
02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\
YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], 
          Evaluatable -> False, ImageSize -> {199, 30}, 
          ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
         
         ButtonBox[
          Cell[
           GraphicsData[
           "CompressedBitmap", 
            "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\
xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\
y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\
GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\
WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\
hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\
YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\
+qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\
PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\
gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\
AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\
6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, 
           ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, 
           ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         Cell[
          GraphicsData[
          "CompressedBitmap", 
           
           "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\
jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> 
          False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, 
          ImageRegion -> {{0, 1}, {0, 1}}], 
         ButtonBox[
          Cell[
           GraphicsData[
           "CompressedBitmap", 
            "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\
9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\
WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\
xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\
xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\
yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\
4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\
lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\
yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\
Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\
UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\
V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\
2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\
QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], 
           Evaluatable -> False, ImageSize -> {77, 14}, 
           ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}],
           ButtonData -> {
            URL[
            "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"], None}, ButtonNote -> 
          "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"]}}, ColumnsEqual -> False, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
     "DockedCell", Background -> GrayLevel[0.494118], 
     CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
     CellFrameMargins -> {{0, 0}, {0, -1}}, 
     ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
          NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, 
       Evaluator -> None, Method -> "Queued"}]}, 
   FEPrivate`If[
    FEPrivate`SameQ[
     FrontEnd`CurrentValue[
      FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], {
    Inherited}, {}]], Inherited],
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"Magnification"->1,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792},
"PostScriptOutputFile":>FrontEnd`FileName[{
  "home", "resolute", "a", "mds", "mathematica"}, "shortcourse.nb.ps", 
  CharacterEncoding -> "MacintoshRoman"]},
ShowCellLabel->False,
LanguageCategory->None,
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)",
StyleDefinitions->"Textbook.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Interfaces"->{
  Cell[4602, 158, 113, 6, 221, "Section",
   CellTags->"Interfaces"]},
 "Help"->{
  Cell[6088, 212, 92, 3, 179, "Section",
   CellTags->"Help"]},
 "Notebooks"->{
  Cell[6906, 247, 102, 3, 179, "Section",
   CellTags->"Notebooks"]},
 "Numeric Mathematics"->{
  Cell[11679, 397, 122, 3, 179, "Section",
   CellTags->"Numeric Mathematics"]},
 "Symbolic Mathematics"->{
  Cell[16993, 610, 124, 3, 179, "Section",
   CellTags->"Symbolic Mathematics"]},
 "Graphics"->{
  Cell[22156, 860, 100, 3, 179, "Section",
   CellTags->"Graphics"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Interfaces", 47689, 1420},
 {"Help", 47771, 1423},
 {"Notebooks", 47851, 1426},
 {"Numeric Mathematics", 47947, 1429},
 {"Symbolic Mathematics", 48055, 1432},
 {"Graphics", 48152, 1435}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 38, 0, 121, "Title"],
Cell[609, 23, 29, 0, 66, "Subtitle"],
Cell[641, 25, 150, 4, 97, "Subsubtitle"],
Cell[794, 31, 2926, 86, 517, "Text"],
Cell[3723, 119, 36, 0, 179, "Section"],
Cell[3762, 121, 837, 35, 241, "Text"],
Cell[4602, 158, 113, 6, 221, "Section",
 CellTags->"Interfaces"],
Cell[4718, 166, 1367, 44, 171, "Text"],
Cell[6088, 212, 92, 3, 179, "Section",
 CellTags->"Help"],
Cell[6183, 217, 720, 28, 94, "Text"],
Cell[6906, 247, 102, 3, 179, "Section",
 CellTags->"Notebooks"],
Cell[7011, 252, 321, 7, 94, "Text"],
Cell[7335, 261, 695, 16, 219, "Text"],
Cell[8033, 279, 34, 0, 82, "Subsection"],
Cell[8070, 281, 478, 14, 132, "Text"],
Cell[8551, 297, 27, 0, 82, "Subsection"],
Cell[8581, 299, 54, 0, 37, "Text"],
Cell[8638, 301, 169, 13, 368, "IndentedText"],
Cell[8810, 316, 1114, 26, 380, "Text"],
Cell[9927, 344, 43, 0, 82, "Subsection"],
Cell[9973, 346, 202, 7, 37, "Text"],
Cell[10178, 355, 437, 8, 304, "ItemizedText"],
Cell[10618, 365, 43, 0, 82, "Subsection"],
Cell[10664, 367, 230, 6, 66, "Text"],
Cell[10897, 375, 452, 8, 340, "ItemizedText"],
Cell[11352, 385, 114, 3, 48, "Text"],
Cell[11469, 390, 207, 5, 158, "ItemizedText"],
Cell[11679, 397, 122, 3, 179, "Section",
 CellTags->"Numeric Mathematics"],
Cell[11804, 402, 318, 7, 94, "Text"],
Cell[12125, 411, 97, 3, 51, "Input"],
Cell[12225, 416, 105, 3, 51, "Input"],
Cell[12333, 421, 148, 4, 48, "Text"],
Cell[12484, 427, 104, 3, 51, "Input"],
Cell[12591, 432, 103, 3, 51, "Input"],
Cell[12697, 437, 86, 2, 82, "Subsection"],
Cell[12786, 441, 143, 4, 37, "Text"],
Cell[12932, 447, 133, 4, 51, "Input"],
Cell[13068, 453, 102, 2, 48, "Text"],
Cell[13173, 457, 136, 4, 51, "Input"],
Cell[13312, 463, 58, 0, 48, "Text"],
Cell[13373, 465, 139, 4, 51, "Input"],
Cell[13515, 471, 41, 0, 48, "Text"],
Cell[13559, 473, 252, 8, 51, "Input"],
Cell[13814, 483, 130, 3, 82, "Subsection"],
Cell[13947, 488, 96, 2, 37, "Text"],
Cell[14046, 492, 103, 3, 51, "Input"],
Cell[14152, 497, 103, 3, 51, "Input"],
Cell[14258, 502, 108, 3, 51, "Input"],
Cell[14369, 507, 26, 0, 82, "Subsection"],
Cell[14398, 509, 157, 6, 105, "Input"],
Cell[14558, 517, 126, 2, 51, "Input"],
Cell[14687, 521, 122, 2, 51, "Input"],
Cell[14812, 525, 32, 0, 82, "Subsection"],
Cell[14847, 527, 70, 1, 37, "Input"],
Cell[CellGroupData[{
Cell[14942, 532, 52, 1, 51, "Input"],
Cell[14997, 535, 65, 0, 48, "Text"],
Cell[15065, 537, 79, 2, 51, "Input"]
}, Open  ]],
Cell[15159, 542, 44, 0, 48, "Text"],
Cell[15206, 544, 55, 1, 51, "Input"],
Cell[15264, 547, 56, 1, 51, "Input"],
Cell[15323, 550, 65, 1, 51, "Input"],
Cell[15391, 553, 54, 1, 51, "Input"],
Cell[15448, 556, 59, 1, 51, "Input"],
Cell[15510, 559, 61, 1, 51, "Input"],
Cell[15574, 562, 59, 1, 51, "Input"],
Cell[15636, 565, 25, 0, 82, "Subsection"],
Cell[15664, 567, 30, 0, 37, "Text"],
Cell[15697, 569, 57, 1, 51, "Input"],
Cell[15757, 572, 103, 1, 82, "Subsection"],
Cell[15863, 575, 303, 7, 66, "Text"],
Cell[16169, 584, 463, 13, 88, "Input"],
Cell[16635, 599, 115, 1, 48, "Text"],
Cell[16753, 602, 237, 6, 51, "Input"],
Cell[16993, 610, 124, 3, 179, "Section",
 CellTags->"Symbolic Mathematics"],
Cell[17120, 615, 119, 6, 71, "Input"],
Cell[17242, 623, 87, 2, 82, "Subsection"],
Cell[17332, 627, 423, 11, 123, "Text"],
Cell[17758, 640, 144, 7, 119, "Input"],
Cell[17905, 649, 83, 2, 82, "Subsection"],
Cell[17991, 653, 110, 3, 37, "Input"],
Cell[18104, 658, 123, 3, 82, "Subsection"],
Cell[CellGroupData[{
Cell[18252, 665, 184, 9, 172, "Input"],
Cell[18439, 676, 131, 6, 85, "Input"],
Cell[18573, 684, 134, 6, 85, "Input"],
Cell[18710, 692, 133, 6, 85, "Input"],
Cell[18846, 700, 156, 6, 119, "Input"],
Cell[19005, 708, 153, 6, 85, "Input"],
Cell[19161, 716, 135, 6, 85, "Input"]
}, Open  ]],
Cell[19311, 725, 89, 2, 82, "Subsection"],
Cell[CellGroupData[{
Cell[19425, 731, 154, 6, 71, "Input"],
Cell[19582, 739, 124, 3, 51, "Input"],
Cell[19709, 744, 264, 11, 48, "Text"],
Cell[19976, 757, 115, 3, 51, "Input"],
Cell[20094, 762, 230, 11, 48, "Text"],
Cell[20327, 775, 112, 3, 51, "Input"],
Cell[20442, 780, 124, 3, 51, "Input"],
Cell[20569, 785, 153, 8, 48, "Text"],
Cell[20725, 795, 147, 6, 85, "Input"],
Cell[20875, 803, 98, 5, 48, "Text"],
Cell[CellGroupData[{
Cell[20998, 812, 139, 6, 85, "Input"],
Cell[21140, 820, 99, 3, 51, "Input"],
Cell[21242, 825, 714, 23, 145, "Text"],
Cell[21959, 850, 170, 6, 85, "Input"]
}, Open  ]]
}, Open  ]],
Cell[22156, 860, 100, 3, 179, "Section",
 CellTags->"Graphics"],
Cell[22259, 865, 411, 13, 37, "Text"],
Cell[22673, 880, 138, 2, 51, "Input"],
Cell[22814, 884, 397, 13, 48, "Text"],
Cell[23214, 899, 188, 4, 51, "Input"],
Cell[23405, 905, 60, 0, 48, "Text"],
Cell[23468, 907, 54, 1, 51, "Input"],
Cell[23525, 910, 102, 1, 48, "Text"],
Cell[23630, 913, 375, 13, 153, "Input"],
Cell[24008, 928, 29, 0, 48, "Text"],
Cell[24040, 930, 137, 3, 51, "Input"],
Cell[24180, 935, 58, 0, 48, "Text"],
Cell[24241, 937, 447, 10, 382, "Input"],
Cell[24691, 949, 1030, 28, 358, "Input"],
Cell[25724, 979, 86, 2, 48, "Text"],
Cell[25813, 983, 778, 23, 154, "Input"],
Cell[26594, 1008, 67, 0, 48, "Text"],
Cell[26664, 1010, 194, 5, 51, "Input"],
Cell[26861, 1017, 197, 5, 51, "Input"],
Cell[27061, 1024, 48, 0, 48, "Text"],
Cell[27112, 1026, 117, 3, 51, "Input"],
Cell[27232, 1031, 94, 1, 48, "Text"],
Cell[27329, 1034, 364, 11, 86, "Input"],
Cell[27696, 1047, 638, 21, 86, "Input"],
Cell[28337, 1070, 264, 7, 86, "Input"],
Cell[28604, 1079, 229, 6, 86, "Input"],
Cell[28836, 1087, 232, 6, 86, "Input"],
Cell[29071, 1095, 112, 3, 51, "Input"]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature 3x0cS4eXBTYu7DK1vkeEUpMX *)