(* 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[     54143,       1650]
NotebookOptionsPosition[     46030,       1365]
NotebookOutlinePosition[     46626,       1389]
CellTagsIndexPosition[     46540,       1384]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "A quick start with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Title",
 CellChangeTimes->{{3.440420259109375*^9, 3.440420270953125*^9}}],

Cell["Steven Tschantz", "Subtitle",
 CellChangeTimes->{{3.44042027378125*^9, 3.440420276234375*^9}}],

Cell["1/8/09", "Subsubtitle",
 CellChangeTimes->{{3.440420278921875*^9, 3.440420281015625*^9}}],

Cell[CellGroupData[{

Cell["Notebooks and cells", "Section",
 CellChangeTimes->{{3.440420288265625*^9, 3.440420294921875*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " files are called notebooks."
}], "Text",
 CellChangeTimes->{{3.440420299765625*^9, 3.440420314734375*^9}}],

Cell["\<\
Notebooks record the calculations you do, like an experimental scientist's \
lab notebook. The result can be edited, organized, and reevaluated as a kind \
of proof of a calculation.  Notebooks can also be annotated with additional \
text and formatted as reports.\
\>", "Text",
 CellChangeTimes->{{3.440420436421875*^9, 3.440420752859375*^9}, {
  3.44042083671875*^9, 3.44042084025*^9}, {3.44042121396875*^9, 
  3.440421281125*^9}, {3.44042131734375*^9, 3.440421329625*^9}, {
  3.4404213726875*^9, 3.44042137625*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " frontend is the WYSIWYG editor that you use to prepare notebooks.  It \
communicates with the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " kernel, the program that does computation."
}], "Text",
 CellChangeTimes->{{3.440420994953125*^9, 3.4404211745*^9}}],

Cell["\<\
A notebook is a vertical sequence of cells and groups of cells, as delimited \
by brackets at right.\
\>", "Text",
 CellChangeTimes->{{3.44042032765625*^9, 3.440420365703125*^9}, {
  3.440420764859375*^9, 3.440420814359375*^9}}],

Cell["\<\
Cells are of various types with distinct formatting and functions.  Headings, \
sections, and text cells allow you to produce a polished report.  Input you \
want evaluated is typed in an input cell.  You evaluate the input by pressing \
shift-return, sending the command to the kernel, with any resulting output \
placed in a following output cell.\
\>", "Text",
 CellChangeTimes->{{3.440420379359375*^9, 3.440420390421875*^9}, {
  3.440420823859375*^9, 3.440420947984375*^9}, {3.440421405921875*^9, 
  3.440421508421875*^9}, {3.440421550234375*^9, 3.440421579875*^9}, {
  3.440421612640625*^9, 3.440421629578125*^9}}],

Cell["\<\
The editing insertion point is indicated by a small vertical bar when typing \
within a cell, or by a horizontal bar across the window when inserting into \
the vertical sequence of cells.  You may also select the cell brackets to \
operate on cells or groups of cells, for example to cut or copy whole cells.\
\>", "Text",
 CellChangeTimes->{{3.44042165715625*^9, 3.44042174559375*^9}, {
  3.44042178225*^9, 3.440421865875*^9}, {3.44042203478125*^9, 
  3.440422056125*^9}}],

Cell["\<\
Double clicking on a grouping bracket opens or closes a group of cells, \
allowing a condensed outline view of a document.\
\>", "Text",
 CellChangeTimes->{{3.4404218688125*^9, 3.440421983859375*^9}}],

Cell[TextData[{
 "If you are at the bottom of the notebook or between cells and start typing, \
you will start a new input cell.  Evaluating the input by pressing \
shift-return produces an output cell and leaves you after the output ready to \
start a new input cell.  This is the simplest way to start using ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.440422003078125*^9, 3.4404220268125*^9}, {
   3.44042206590625*^9, 3.440422279953125*^9}, 3.4404297382395067`*^9}],

Cell["\<\
You can edit and reevaluate an input cell in a notebook by clicking anywhere \
within the cell, placing the insertion point in the cell for editing, and \
then pressing shift-return.  Alternatively, you can select the cell brackets \
of one or more cells or groups of cells and press shift-return to reevaluate \
all of the included input.\
\>", "Text",
 CellChangeTimes->{{3.440422349*^9, 3.4404225890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Basic computation", "Section",
 CellChangeTimes->{{3.4404222926875*^9, 3.440422297953125*^9}}],

Cell["Here is an input cell and its corresponding output.", "Text",
 CellChangeTimes->{{3.44042230453125*^9, 3.44042232253125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "+", "2"}]], "Input",
 CellChangeTimes->{{3.4404223295*^9, 3.440422330265625*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.44042233584375*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " works with symbolic as well as numerical expressions, doing basic \
simplifications automatically."
}], "Text",
 CellChangeTimes->{{3.440422601125*^9, 3.4404226243125*^9}, {
  3.4404226833125*^9, 3.440422710171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "+", "2"}], ")"}], "+", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"2", "x"}], "+", "3"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.440422660859375*^9, 3.440422678140625*^9}}],

Cell[BoxData[
 RowBox[{"5", "+", 
  RowBox[{"3", " ", "x"}], "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.440422715234375*^9}]
}, Open  ]],

Cell["\<\
Parentheses are used for grouping only.  Square brackets [ ] are used to \
delimit arguments to functions.\
\>", "Text",
 CellChangeTimes->{{3.44042272709375*^9, 3.44042277978125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "12.3456", "]"}]], "Input",
 CellChangeTimes->{{3.440422790265625*^9, 3.44042280509375*^9}}],

Cell[BoxData["3.51363060095964`"], "Output",
 CellChangeTimes->{3.44042280959375*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " computes exact symbolic answers when given exact integer input.  Numerical \
answers are computed when approximate numbers are given as decimals, or by \
the N[ ] function."
}], "Text",
 CellChangeTimes->{{3.44042283284375*^9, 3.44042297503125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.440422981421875*^9, 3.440422982796875*^9}}],

Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{3.440422983578125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "2.", "]"}]], "Input",
 CellChangeTimes->{{3.440422984484375*^9, 3.440422986234375*^9}}],

Cell[BoxData["1.4142135623730951`"], "Output",
 CellChangeTimes->{3.44042298678125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Sqrt", "[", "2.", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.440422987859375*^9, 3.440422992796875*^9}}],

Cell[BoxData["1.4142135623730951`"], "Output",
 CellChangeTimes->{3.440423003828125*^9}]
}, Open  ]],

Cell[TextData[{
 "Capital and lowercase letters are distinguished in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " symbols.  The built-in constants and functions of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " all start with a capital letter.  You can use symbols that begin with \
lowercase without danger of confusion with system functions."
}], "Text",
 CellChangeTimes->{{3.440423073953125*^9, 3.440423234875*^9}, {
  3.440429801795487*^9, 3.440429806147538*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The last result %", "Section",
 CellChangeTimes->{{3.44042345871875*^9, 3.440423465*^9}}],

Cell[TextData[{
 "In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", the last output value produced can be entered in a new expression as %.   \
However, when you reevaluate input, remember that the value of % is NOT the \
output immediately above an input cell, unless that was the result that was \
just produced.  This is a handy shortcut, but can become confusing when you \
have to go back an edit your input.  A double percent sign %% denotes the \
output before last."
}], "Text",
 CellChangeTimes->{{3.440423468015625*^9, 3.440423724609375*^9}, {
  3.440423823453125*^9, 3.4404238640625*^9}, {3.440429828496347*^9, 
  3.440429863869535*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "+", "2", "+", "3", "+", "4"}]], "Input",
 CellChangeTimes->{{3.4404237643125*^9, 3.4404237675625*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.440423768828125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "+", "5"}]], "Input",
 CellChangeTimes->{{3.4404237701875*^9, 3.44042377096875*^9}}],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{3.440423773546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "+", "6"}]], "Input",
 CellChangeTimes->{{3.440423774765625*^9, 3.440423776546875*^9}}],

Cell[BoxData["21"], "Output",
 CellChangeTimes->{3.44042377734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "+", "%%"}]], "Input",
 CellChangeTimes->{{3.440423780875*^9, 3.44042378175*^9}}],

Cell[BoxData["36"], "Output",
 CellChangeTimes->{3.440423784109375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Assignments", "Section",
 CellChangeTimes->{{3.4404238704375*^9, 3.4404238735*^9}}],

Cell[TextData[{
 "You assign values to symbols using an equals sign.  The ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " kernel remembers each definition until you Clear the symbol or you make a \
substitute definition."
}], "Text",
 CellChangeTimes->{{3.440423876921875*^9, 3.440423963625*^9}, {
  3.440424128265625*^9, 3.440424185546875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", "4"}]], "Input",
 CellChangeTimes->{{3.44042411665625*^9, 3.440424117828125*^9}, {
  3.440424195375*^9, 3.440424197390625*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.440424200734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "2"}], "+", 
  RowBox[{"2", "x"}], "+", "3"}]], "Input",
 CellChangeTimes->{{3.44042420203125*^9, 3.440424204546875*^9}}],

Cell[BoxData["27"], "Output",
 CellChangeTimes->{3.44042420565625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "=", "5"}]], "Input",
 CellChangeTimes->{{3.44042420859375*^9, 3.440424209640625*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.4404242118125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "*", "y"}]], "Input",
 CellChangeTimes->{{3.44042421365625*^9, 3.440424215390625*^9}}],

Cell[BoxData["20"], "Output",
 CellChangeTimes->{3.4404242159375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.4404242201875*^9, 3.4404242228125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "*", "y"}]], "Input",
 CellChangeTimes->{{3.44042422459375*^9, 3.440424225421875*^9}}],

Cell[BoxData[
 RowBox[{"5", " ", "x"}]], "Output",
 CellChangeTimes->{3.440424227046875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.440424230125*^9, 3.4404242313125*^9}}],

Cell[TextData[{
 "Functions are defined by giving the dummy variable(s) followed by an \
underscore character (specifying a pattern for a rule ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " should use)."
}], "Text",
 CellChangeTimes->{{3.440424417296875*^9, 3.44042450371875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.440424505078125*^9, 3.44042452278125*^9}}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "+", 
   SuperscriptBox["x", "2"]}]]], "Output",
 CellChangeTimes->{3.4404245266875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.44042452909375*^9, 3.440424533125*^9}}],

Cell[BoxData[
 SqrtBox["5"]], "Output",
 CellChangeTimes->{3.440424534625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "2.", "]"}]], "Input",
 CellChangeTimes->{{3.4404245359375*^9, 3.440424537578125*^9}}],

Cell[BoxData["2.23606797749979`"], "Output",
 CellChangeTimes->{3.44042453871875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.4404245425*^9, 3.440424544875*^9}}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "+", 
   SuperscriptBox["y", "2"]}]]], "Output",
 CellChangeTimes->{3.440424545515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{
   RowBox[{"2", "x"}], "+", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.440424546890625*^9, 3.440424561375*^9}}],

Cell[BoxData[
 SqrtBox[
  RowBox[{"1", "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "x"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.440424562359375*^9}]
}, Open  ]],

Cell["\<\
You can see the current definition of a variable or function using a question \
mark.\
\>", "Text",
 CellChangeTimes->{{3.4404245704375*^9, 3.44042460175*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.440424602984375*^9, 3.44042460425*^9}}],

Cell[CellGroupData[{

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.440424605671875*^9},
 CellTags->"Info3440403005-5741638"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"f", "[", "x_", "]"}], "=", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["x", "2"]}]]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["f"],
  Editable->False]], "Print",
 CellChangeTimes->{3.440424605734375*^9},
 CellTags->"Info3440403005-5741638"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.44042460878125*^9, 3.440424610421875*^9}}],

Cell["\<\
You may assign names to each step in a computation (instead of using %).\
\>", "Text",
 CellChangeTimes->{{3.440424314859375*^9, 3.4404243716875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sum4", "=", 
  RowBox[{"1", "+", "2", "+", "3", "+", "4"}]}]], "Input",
 CellChangeTimes->{{3.44042469228125*^9, 3.440424697671875*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.44042469940625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sum5", "=", 
  RowBox[{"sum4", "+", "5"}]}]], "Input",
 CellChangeTimes->{{3.440424700265625*^9, 3.44042470434375*^9}}],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{3.440424706515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sum6", "=", 
  RowBox[{"sum5", "+", "6"}]}]], "Input",
 CellChangeTimes->{{3.440424723*^9, 3.4404247306875*^9}}],

Cell[BoxData["21"], "Output",
 CellChangeTimes->{3.440424732953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sum5", "+", "sum6"}]], "Input",
 CellChangeTimes->{{3.440424734015625*^9, 3.44042473603125*^9}}],

Cell[BoxData["36"], "Output",
 CellChangeTimes->{3.4404247386875*^9}]
}, Open  ]],

Cell["\<\
Equations are denoted by double equal signs.  (It is easy to forget and make \
an unintended assignment with a single equal sign.)\
\>", "Text",
 CellChangeTimes->{{3.4404247108125*^9, 3.44042481071875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eqn", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "-", 
    RowBox[{"3", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"2", "x"}]}], "\[Equal]", "0"}]}]], "Input",
 CellChangeTimes->{{3.440424636546875*^9, 3.44042467228125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", "x"}], "-", 
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   SuperscriptBox["x", "3"]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{3.440424814515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solns", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{"eqn", ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.440424815375*^9, 3.440424822203125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.440424822984375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Useful functions", "Section",
 CellChangeTimes->{{3.440423311359375*^9, 3.44042331396875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExpandAll", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "2"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"x", "+", "3"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44042331853125*^9, 3.440423338453125*^9}}],

Cell[BoxData[
 RowBox[{"6", "+", 
  RowBox[{"5", " ", "x"}], "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.44042334165625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", 
   RowBox[{"2", "x"}], "+", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.440423343234375*^9, 3.44042335796875*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], "2"]], "Output",
 CellChangeTimes->{3.440423360203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], "+", 
   RowBox[{"3", 
    RowBox[{"x", "^", "2"}]}], "+", 
   RowBox[{"3", "x"}], "+", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.4404233611875*^9, 3.44042337490625*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], "3"]], "Output",
 CellChangeTimes->{3.4404233781875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "+", 
    RowBox[{"2", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"3", "x"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.440423987171875*^9, 3.440424018375*^9}}],

Cell[BoxData[
 RowBox[{"3", "+", 
  RowBox[{"4", " ", "x"}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{3.44042402296875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "+", 
    RowBox[{"2", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"3", "x"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.440424024703125*^9, 3.44042403284375*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["x", "2"]}], "2"], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["x", "3"]}], "3"], "+", 
  FractionBox[
   SuperscriptBox["x", "4"], "4"]}]], "Output",
 CellChangeTimes->{3.44042403434375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "+", 
    RowBox[{"2", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"3", "x"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4404240353125*^9, 3.440424048234375*^9}}],

Cell[BoxData[
 FractionBox["29", "12"]], "Output",
 CellChangeTimes->{3.440424050671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "-", 
     RowBox[{"2", "x"}], "-", "3"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4404240589375*^9, 3.44042408153125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.44042407128125*^9, 3.44042408196875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "-", 
    RowBox[{"2", "x"}], "-", "3"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440424087*^9, 3.440424094984375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk0Vd/bAHAUwnUPUTJWFEqEikbPoaIQZYhMKZU0IENSGZKikiEylqFB
pZKQpHS34RsJmZPM3UwXd3DN07t/a71/nfVZ66x1zj7PsJ991p70sDjNx8PD
I8HLw/O/639Oa7sWFxdp26m5tYuLEqTyxDbTy1OLNPn7ida5XAky/L7xp2HW
Iu1ZxcKTM4MSpOkX79jfPYu0aA/jmKYGCbJB+ptRXtkire9u5+f/nkuQ3U3n
cs6ELdLimdMH5k0kyDnj/Bs11EXauOe8QUnScnKrrtG6FPkFWq6lbsGjneIk
SRPverJ8jhZZNEAzzqOQm9NfpFpsnKFlV6u3HY4SJOMyMsPjTaZobvv4e7OK
+ch4C+MBw30TtOLiI2o+t2bhqsMn07TjXNpTULIMz+HA7Ioa5VMWHFr7pbrG
p/AXOMyDasVmLJrm/PNnIRV5kLB/ndv1P8O0r1ZDQqtut9JuCi+csakcoJ0o
Emvo38Ogbbvh7h4yQ6cd67gZLLWeS2vc/r6qGXpoZ88yx3lkZmjWaVfXLT3b
RksQCnQ7JsSDojXRt7m2BlrLqUSngAQ+dI1HK8jM5j8apXazrKocP5KNzBKT
WPGcZsxE/p2Wgiibzpsh5JEHqnJH9yipCSFzEcHCoanvILaHsP8xJIziC0XM
U7ZVgTtlY0wzSxh1nhbrM/GqAvjgo9E+IYzckbTkW0YV7I5NSu3kE0ERvps8
PTp/QGbwWutCGRFU2XVElVtWA5vXbpSlHRRBa+zMqgMr6kDBX0FE5rkIStJI
2h3+oAkuhsZe5T9CQQY7S5BbXhOIJSSZJRyloOH9g/tMmppAfsJvcJ0DBZGO
Ow5RVzaDX1Kx9xZXChq499sxLqkZVH0vtMkHUND2Qemg9PQWCAm2Zam8pKDW
p8klhdmtQO130xOfpaCQd6X7k3+2Ak+Y/4gsjyja9Hno+zVWKzh4n3BR5BdF
wQ07G/S0f4OVVtFTRUIUqfL+6S3/8Bv0DaIusxRF0RUn2aX1X9pgeWHFqZKD
okhK+pHhYFU7RI5dctkeJ4qKHsiHazHa4cc5lZHMRFHkQEn77i/SAUiu8JT4
Y1H0ZDHDVNi0A+o1z8u3PcfP73thoVbTAQ+lV33Y+VEUkXl5Thd/dsKjkYiA
7b9F0YfM05+n3LrhTVqvl7IMFd12UW6Xu9oNAxcXPy5XoCLbNf1z5N1u6Lw8
OTSzlopmks7q3cnqBuZ2fxnaBioi758vkWZ0Q15AWdrKHVRU5X2pYueFHigS
8t7LZ0NFnWRA43X3Xviupsf8EUVFA0+k8u8F9ILtGOv87AMq4izNjUuO6AWt
+UxHlXgqEvzeZ12Y1Qulv+TSfR5RkeaRw61jfb3g/HJzBv0lFYWcUOo4d/wv
3PnIjpUpoaL1Id/7bA/TIep+/67OUXw/3aXC9TgdXFP5jj1iU9FOw4UXl93p
cIe9hnGUS0Vmwlvc4iLo8MbJ1b1kmoouP3jE+FlJhwtWsuzzSwlU+cSDZaj/
D/68Xd2/UppAF8pWzGzV7gP3VckPy4FA04t8fuEGffAATIsNDAh0ezdr7I9F
H8gJNhZ92UegjA9VIyHefXDaz0n32UECtbwI6qnL74P/2i/o6FsSSD9isPKC
bj/QilxN804TqLayZT8y6gfTAZf6UVcCOfCXl0rY9gMUbN2kfI5AlwNTvxRd
6YdjW6xcwt0J9MbTMmdZUT845N79JeNHoJXWxQnPdg9AclnzL78wAj2NyZKc
Mh2AqEnZIs87BNKsTYgxcRwAxg8dr9P3CGRi5HWPEzAALdZDLgZRBAreoRJE
0gbg2uiBQ1XxBGLIx5xp1x+EBW267vLnBEJ9p7ZJGg3B8LLYCyFf8Xor1bws
jg7BwYcfbnbQCGSaxcmOPj0ElxQ8preWEOj3xWBV0dAhUFJ5wfO7jEAcboqs
QMkQUJarBY5XEmjdkkbeqZ0M4BwK2RbcQKAhepKejjEDeF9I6mQ0Eijnm/M1
n2MM+DO35+HXJgLtuTvKZfkxgJVq7THaQqCj4sIDg/kMyPiS+EDxD4HCV+vX
/tEYBikn94ftvQQy410mIqM3DK03PYPK/hJI8m+tke2hYXDJFKrMpOP4ZDqU
NJ0fhvYeHt+TfQQqUr+SX/NyGKy0l+hlD+LvQQBbpHAY3PWK5a4MEciQza9h
XDEMlkZUOz0GgRrzY198+zcMgea+LNowgYZ3vUumKY7AsR02EQlMAuXKX/41
rzUC1Wrfj+9jEejK4m7J3fojICzbEDOCzV9Wdb/w+Aj0M1+Kb+MQSMG4L/j9
oxFQ9j4XnMglEF3tbTHz9QhwTOIOqI4TKEvUZ0b98wiEr7X2yMfWqef1yfo9
AlJlKa0lEwQyt5V3fbpyFIq6dsu8nyLQcnY038P1o1Aeq5+2dppATXeWpt7e
Ogp86nwvIrHtPjOa3CxGQYH4qOc0QyA5q+Oe9idGYdbmdS3C7hpuEDnkOQrU
2/Y9q2cJdEqhyEAzchTqY5iRjdjKH9U71z4ehZsejRtU5wg0aJ7hL/FmFNy0
vY38sd1vhOdMfB+FZtc+YfF5nH8ycyYDraNg1/YpxwZ7LNej/3f/KEhqH/yd
jH2FflShmJ8JqjEpuSsXCLQzoOpTtiQTQhKdXMyx51foWacrMUHsVkd8KDbK
fs+K0WZC49FVhwqwQ4zWR9zUZ0K1KHGbjr2vO1HF9zATpl+V6BOLBBL0p5Sd
Oc4EezXNYB3sKvFgJ1t3JozF2OnbYUdkjU0fDGACrYO8dRXbbK/rw10RTEDU
vyYJ2OLtbZrqKUyYXKf/MAe7ycesWiGLCSfX2J/4hh0vWuoq9okJfLxaOa3Y
tpnblvBVMqH1W+mNfmxZeJU61sKE3ktiLRzszl9yO//9Y4Iin8zbGex0z+jm
Fi4T4v26BBax3y8N2U7nZQE0OP/9n5fX7xJwFGKBwvJUg3lsn8fjjc1iLNDS
TVg3id3s9i7DbBUL/PVN74xg6+i4eVSsZsGEZrFnN3Yin9IeUoUFr/iH2n5i
T9e2C3/SYEE0raHiM7ZdSnyrlg4L90M/3WfYn10PZ2btYcFC768Nd7Dltgr7
KO1nQagpN/UcdiBPuf4jUxaQKdXxB7C7qgOIFVYs0PzpLK6ETSbpdty3Z4H1
QA51BsfjyWl2loALC3L6vkTWYJ9aOGU4dYkFS2KXSZ3D/q9KQfKSPwvmyAOr
t2ArJ7T2DAazQK1pb9YUzo/BzaYBf6JYoJzlfsAf23iO38QqgQXc4cf2W7Hf
VNJW1aTi9UreYTP+l38ntuR/fcuCZMnY54ex69RHbuh+YMGu4fdl8zh/tWYy
zXO+sED8VcSpF9jcBzKMjB8scGzw1WDh/Pcv51W8NcgCz78r/9rgepFboO9J
Z7PAxWRHWBeur6+6lcc+T7OgukdczAV76evIGLYQG5Ym//vpOEmg6BhZXqeN
bBDcLrVMEdfrlh8Lcv7abMiRYNSH4/puWdq7PW4nGxrkfYMZYzg/rrz0rDJm
w5Xi1/ee4X6Q6bStW+c8G45ufGr3D/eTg4mr5o54s6HAX9VYDXu4flbq4jU2
RE66KFwcxevZX2r+9B4bngTO+9BxP/qiZk4j3rDBoaioLQP3s8aps6kDw2yQ
GXAMt8H98bK2adGScTYMKhiW2fcQaNWFzS0K82zQCKX32ncTyKlrXNRalAMK
bXvrzDtxf/4vJKBEnQPReREuAm0E4ol95JDszoGvckYXsuvwflMddOXDZTyH
7nzA8fyJ+6WAS1xdIAeyw2IdN9cS6J7/hmqBKA5cfVPYk/YD71fOBbu833Hg
mdL9J+bfCKSuXidjyuKAQaWTwFAR3m93pMe3T3Lg+oq+mNBPOL77PZdfXOSA
qdXAHdlCAm10EhOOpI5BbqYjTe8DgVSjDk//3DQGt1NFSLt3BFJk1/2ydBsD
5zafxH9PCHRiPt2S7jkGPPqvGYYZuN6ELv30uTIGOkkOr5+lEWi1onjFw7Ax
OKWg6Wn9CMfb8kjBr+djUHstmYh4iN/3Q32cfe8Y1Idcf34I76/WJRliw4Nj
0MJ3EvneIlBczaWI6+wx8PIpNUq+SSCJPvHQxzxcOLeJm9IaRCAxKQvvLgUu
uDFl7DZeIZCwf8MRF3suxJf4qiueJdDC7kbq+SYuvI131nTZT6CggurWx+1c
CNRxjOjH8wWP5rcndXQuhD8bzXclCcSr9ElHZ5wLxoyf5+134fwTSnPiXTkO
wUoRnmJaBBJpPpedYDMOND1Gc44sju9FPrPytnEIXLNP7McIFSX1zUpN9o5D
aFjbQuUQFck4j/dsYIxD+Rf+otJ+KpK1HPCNmh0HdoxM/KseKlLYUfvYTm4C
Fvr2/NvXjOct/uQRluMEDO063/X+MxVpP9a6L98zAXwxzntP36IiLa8bAhsH
J0A47NiRkRt4HjOqD9JhT8Bb758WlwKpSIPt6WXOOwnfNLU1L/pR0cb9OTY3
1k6Cwc5Gq61uVKQ4oqH478QkHL97cz+PKRWJ79n08U3vJOisflweSaUiVrty
zy76FJjK5u+4HSaKIkJdiooZUyBTWuFte1MUqWxKj4WxKXC6s1pVJUgUOV2T
NtzLNw1G/imLny6LomppymvjNdOQ1lnu9uG0KHpxlO1zzGEaztA6Ni7Zi++v
+7zMr2kaTH6rOM/MUFB12WHN3PIZ8HOXT7BxpqBXrQU2LdUzoPEir6XNjoJu
j8gFzTTNwLrKOvYxa3x+kBqsMfg3AzWlaUUmxhSUf+7G+Ub+WSBSouPnt1DQ
I/HcTK7hLNj+KvZLFqCgC8cl5HW/z8JMoGFX4UsRJDLbLPSlZg5C7ortDe8W
Rq6/ozrl8xdA0F1B1FNPCGWaeJb7HuAhCzrvqIZeEEQ/LL45KZvwkmcLEotU
tvKjoLcFEyG7+UiNrJO9o3186FROk+UGgyVk+5kiDYYKD2oVuJ99TWcpGZdl
W7ulYIYmXiPGXaLMT8Y9vcQXUMGlXd9VutC8QYA8/FaR053LoPnOiwpayQmS
nim73y19/YeW7hrWJKu0jAye10ebMt5DtH51hPR6ITLHUDPi5HQvUD1eG5St
ECY1EwNpluVs+LqvsLhARoTUvP7Q66reLMxfPK5zlEohz9zeXVJpxEfyCjYk
qc1TSKeByv714oKkzgGvUmMeKtm9abNmyg0KOdP+ZmAFh0pWVX9cKTIgRjKl
VzRtnCJI+Y6OI6EDEuS+ZTdVjbH7TAs1e7GTJ1jX3bBD3EXFSHx+N2ysXv8S
W7lCpW4WOzUi1G/9NEGuqZU76s3A5/vFMZk1MwTZq73M/+SoBPmK3nBixRxB
vrKhy+hzJciFBrJgK7YF7wqhNGyrkmxhK+xaBzQ5h82TejfvAbb2hrCWwnEJ
0tbGgF9sniCzpZqTNCclSIGq9y+FFwjS08RLd82MBOlQuHp+AzZluZl6IHZu
5v0jB7Gv3H2m1I7teNNtJgz7U3SJeOKsBJm/e60p/yJBcjmfx4h5CVJYLSp9
HfayAxdHLmI7S89z92IPmyX1/8CmTLQ+DsFe43WiI2xBgjxJN+RkYHtGzrf+
wy5syDcswY52kGzeuyhBUksUU/CcQAa3P6/PwHZ5F83Ecwe54///j/wfJymq
+w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 4}, {-3.9999997867510326`, 4.999999265306138}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.440424099703125*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lists, tables, rules, and substitution.", "Section",
 CellChangeTimes->{{3.4404300016516848`*^9, 3.44043003569843*^9}}],

Cell["\<\
A list is delimited by curly braces { } with elements separated by commas.  \
An ordered pair, say for the coordinates of a point, is given as {x,y}.\
\>", "Text",
 CellChangeTimes->{{3.440430040277121*^9, 3.440430153005632*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"list1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.440430161281357*^9, 3.440430166953973*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{3.44043017679556*^9}]
}, Open  ]],

Cell["\<\
Double square brackets [[ ]] are used to access the i-th element of a list.\
\>", "Text",
 CellChangeTimes->{{3.4404301815999413`*^9, 3.4404302256641827`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"list1", "[", 
  RowBox[{"[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.440430233150901*^9, 3.440430245680476*^9}, 
   3.440430670952133*^9}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.4404302476098833`*^9, 3.440430672676095*^9}]
}, Open  ]],

Cell["\<\
The Plot command takes as second argument a list consisting of the \
independent variable and the minimum and maximum values of the variable to \
plot.\
\>", "Text",
 CellChangeTimes->{{3.440430447341748*^9, 3.440430537977551*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440430541180582*^9, 3.4404305532143583`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwlmXk01N//x61ZEjPvoagU7YslpbTgdStbkShpE0KFZC0hqbQhyZZKtlQo
n1L2hBtSVKQUoVRIlpl5W8fMZPnd7/n9dc/jnLn3zn0+n/f1unNml5eT+hER
ERExERHRZ/8bDS+s7ayXxeL/P5bzwCFu3qby3sVknDvcXHALvGJbXLSfCcn4
xSj/pg+ciy3kuyr+IWN6UMWj83Aj9mHlJZNWMu7+kHZBFVJjk5fGOnyF1Jg9
NjOM9SAn9nariscuyLkeWCbEawHHJuTZDcUADlE1eqS0Hhr8tshur94EDcay
xmWll+Gbd95hyyBvaG4p1a06XQS/FopFHSk+Ae1ss4/zspdAl1OmzLaeL9Ap
Xb2/pbsLevYXivC0I6CbuV30sZQ6sB++ulmz0gd6+Nlr3/oJgV2Ydr7rSBf0
iq9dWOzvA+y35z1E0myhd0ax6ozzz4Ddi7ZsUNoIvQseLdF1bASOBuY+mhKD
Xgu9zTN7twInD5te+xwLvSmiiunHnIFbUSbYGZgLffp6p5pbLGHA88fT485C
6He6Vd8z8z8Y8C8NGGY6Qr/7i/kHp17CQMjdrUHl1dDv21gX5xIHA1H7vkWo
REN/6Ogmf/MXMPDki1jWx6XQn96zJMJyHQyw39l2b7SB/t+R1xY758Kge+HU
YcZTYO+vPGGToAKDvjdre8oVgX14eq1YRQYMBp2M9z4eCGxXS5PW7+YwGLF6
+bk3RsD2L08Xb/SDwUdPdqecaQN2nMVD39wbMNhzP7PtrzSw3891lDd6D0NH
o61sy5yAszaEh/dcgSEvFUq5cDVw9P0iFvL8YOj0vcbWHDHgbHX4sGpBIAyF
5e21T0sHjvV8G8d7mjD0uMn+6MUO4HhsNIxJ14Mheq6H/3ayXtqPuuD1r2D4
dFbYzWYn4IrXczYeZ8DweZ3textWA1emILe5yx6Gw0rkVGrFgKsQxy5yCYPh
O+9vJJekA3fOusKYg70w/JKb8DC5A7irlU5ey98HIyK6DwpcyHr261Z5V/2G
kbBXr74MEl9yBD/dQt1gJLp4b3SQI3Dzg5zn5rbDyO0croW4HXCLh7fV6fnD
SFbqnColW+Jj/abipCgYqTnr/3yDGXAbl8UtNP0Jo9IbNa5f0ALuiKf6pwkZ
GGXoVG2TXQFc/kkbj0RVGFVefkAibilwx31blhe/htFlylfPPFQDWmLf11lw
HUZNeR1utSygWTVngqMNYfRq3m0TBh9onbVPk7LXweiNbG3ROyNA676KzntP
9ruVXl22YBDo9VsLhKKhMJoZM6yr2wc0rH5zp6EYRt96Wy7Y9wNoi7wegwhR
4Elpik+mVQJ9dPNJZTYXeAqLEkuWlwPtZrXoy6la4M2aq3Mq9yXQHnunF1Zw
gLd0uj37dT7QvjsCBiVp4Jn0vmjtyQT67PfS3IW3gXclw6toVSTQcZfMvbQP
Ai/qVHfz6ndAJ8isTN82CLwE40Nja6WBvn3lsgjbDHgPuyz0NlwCOtk9rZNF
1q9esKxoyxmgM76dUDg/CrwPg6nNRsVAP1KfdrR9F/C+VMwcM+EBne2keEh6
BvC6HCX1zH2BzqmLFL3cCmPiyb+LbNyBLt7WFrv9DYxNP7Gv2TYL6BLb6RsT
NGGMpf9xbF830KUHsl1FymFsQVu53qHDQL/aselY7GcY26KSWHR0H9BvmyNH
9Fxg7PzN3UUBpkB/PR8vPl8XxsJc3jUHke/bzErY6LoSxqJ1N48FE/2+pYqp
xhXBWGrjKr0LhkC3pSp5Bz2DMcyUK4pYB/RvIzWP5a9g7M2vi82RJ4HuSDyq
cuEhjNXnCMeicoHu7KXybq6CsXbLXr04TaC7vVK9y9kwNhFZXZS0COh+9ZCa
dfnAl7TTb05xApq9cfhqy0Xgz1iZN5aWBjTH4kPPwEzgz32XrvdwLtD0/v8i
t+QCf1Giyt7MA0AP2ORae6gBX8Mt+vSj20APms0p69oIfH3pkKKnJF/DysoZ
11uAv7V5tPmZFeGR7HytAeCbZ3qM5UYBPVJ779rEMPAPmhzUK5IFmmeX3yCo
B76z0ue9L8yAHpv9qX32dOC7/9l2+uUVwp+sRneS7xN0Sa/olRjQgqUnb361
Bn7oRAY14zHhL1a/JSKBf+20osfBXUALA3Sbs34AP24g9E2WEOh/LDXzmhjg
J7kNqvHuE37IYnK1gf+g0+GMkQXQ41ozRJddAf4Tu7qvMST/409nDMsWAL98
5+MITSOgJ+IWWWdNAP9NrXJXEJswf0OIuiXwP265algTD/SkzR6NF+PAb345
ememPuHM01uT9gL/11rnYec/hAdTs/3XAb/n6ecdz8n5p1bX7wycAv7gMpQ5
RfycOi6uav8E+IJ7OWIW7YQTDSUdGkEgNkfVLpGcf+pViNDgIQhk468V9mgR
/lE9qD8GAtYMIXNtE+EhqmPpVhDMuep6/GII4Ykjb7c/BsEikabqT0sJT5Un
B46AQCPIWG1eA2GBqovcTRDoDucFeQQQ7g2d254NAoMT6l9KSL2YamB/sBoH
gXF3tLZUDeGcQ4FmPBBYOkyG7/EmfOmL5qocENi2eHTeVyZsbTXM+wkCh11t
BgOvCCs2fpcnfOzDttuGbuT8H+143vdB4G1cNBRJET7Ptr39AgQBeIlFSwnh
5aFUmCEILqyPz1xK8jhRO2/L6+8gCM8VFz1F8jHhUCG2rxIEsSt9DlaSfI9z
3D0/p4Ag8cHPQgbJ47jv7CzjGyC4P8+SYU/y8Y/z6dO2hSDIvlXqnp1N2DFa
XmAOgnzmitcCG5KPd3vCeDtAUBpxZ77JOOGVC9xcykBQd/ZUYwfJA/9TI1V2
EgRfeV1a2iQP/FlF+pfJ+du9d4WdTSJ5tLkfFYxAQDtrGyhzgB7Nuxl28BwI
mWY9GTuJv0OSfzxJ/xGqVO4VSSb+DkowncayQbhgU/WBPuIvLTA9k3sYhGu0
0hWuaJP7VtNopkuDcI/iwYBS4k/PuO8c83oQHrpe2yhL/PmbO0ZLq4HwqNR6
zX3En27HiEsG2iD0Fyr+HiZ+dKY1+9iIg/D2z3rzFUygfxTOsY3fCcK0Gmaq
FKlP35G274l+EGY9sxn6Q/RurTwTHJcCwuLzbYn3XEj9ySn9HJMLwm/qPX3K
pD5+0qC1Dx8E4S9ZDQPedaA/BtQdsGWA8O+QV8wX4k9daXdswlIQjlXyNkRP
B/qd5vv2cC78m+UiHi5lD3RlrqeeDxv+zbcw+f5nDamHr3Sox/7wb6luxKoq
Uq/L36yOS6mHf3qSjG8hxM+SkmH/kTb4Z5sxbylPEuhc06DyQSn4d7Nn/Zuu
/4BO5SgdERbDv+SG4NmVF0h9PyfyNOQT/HtYjD3Je4m+K7Nmg2wd/CsIN5lp
J0L6wzTvs0cr4d/XFbuPNO4G+tqDQ3ID72Fc0cNTooLUg1OeUZW8NBiPHbi/
JZXUm62bN8mFvYHxu6E/Gmqukv4Wv/jUnGIYf6CkbD/4BuhN7cqrjMnnCzZc
P2NkTPrj3tmdF+bDeHPo6bzeLUAv+pH3/NIPmJiraLF4Dbn/EoZaY+HZMPFQ
b1Tq7SrgltrkdiZcgIkn77RvDngBtyii9/IzBBOFdu6LVJ4CN7d456W9r2Hi
7fmfyEMTuFn8nIWyMjDRW1sbyCT9/aZCl/H1QpjUOpjcd3ARcI/fcTucfRwm
i86ZfKBnAZdaGNwhWQmTuPcwjrkNXDn7WWYXomCyZndwrq4ycKdFOy3PfAmT
LUtzbwUqA0f4XaG2k8wXNsxzEp8NnE4FvoS2JkwZqo2OzZoHnOf9XsMdozD1
uvKhOiwBzrazzLGADCTiJi5a8jYR2I5+i38pHkAiHnTgs18D5P2nlZX0zAmJ
eLcNZghNgW3duT/x8VEkEpD/O05jBNhb1+84rLoIiYQdrTgeawnsxdFP0jyU
kEjmuwtzD4lBf894x5XPJUikO1bk7NBx8j5tEBFpDkaiLmpTm1X1oe9A3f6w
qw1I1NXJ94udGfRZq3dX/fyGRD3udx+7awN9pl6ilwUHkOipJXVRKsehb81Q
X+K/diR6ReNum1Ii9Mnd+3ak+CMSzVq//tQMPvSWpsSblJ9BouydPlmT+dA7
a2mYSexVJHbybBfj10r4W6TaNay3H4n7FrhSWU+g66f3RymeHJK4srLxUHsw
/Pa8uPzIrh9IMj7FfL2+D7SFrIk3bTiLpkX3OxmlCuGLVs09i+5WJJV+2jHR
uwHefvFdFig3D0nf+zG5wHQDPBOZPCrX9AnJJKGsDca1+Glkzjz7hg1INrtj
w53nD3HN6Yf6aqxPaPoje3eNhUq48Y/JotylNkiuVCVUWvQzbmvVfZT6TgLN
qG3I8JMuwL8TqgpWBcYj+Wond4aSBu56abfvfrQGUmhao8iLovHf2iWdzOva
SKFVs3LeABv/bawtqUo1QQrty7xMd/Xhv+1Hn+ymq5FCt2rt7Zld+O9w1Lcb
44R50iEbUlpxj+qtSYvYjYghyx0u3+uEe7yvbXFaoYYYK14fEj22A/cyO5td
ko0Qw91L++rVhbhvc2Ooba0MYng4heg2+eK+7S8TxQvXIYbnng8di1/hvt3J
PkfblyGGr767/mt73HfE0ra9LQYxgmQeDIkm4r4wl4pP/ccRI/zBbLtgCvfV
OZlEWwYgRlaLpI6PGO7fFdMwftgNMR5/2N3+yhr3H3jyRylcEzH+w+mRCmm4
36kqQD8hGDGeZUD3U0Pc79umKPn8O2IU+wXd7Q/C/bEv2ay/4YhRM2Ng2pEh
3P9py+mSjw2I8XdLa9uBDszeZjt3s7EOYvQ6Zu41kMNsa/2PbWUpiNEf4tc4
fy1m75+ToCDPRQy6RO5dZxhmu1ZY+9rORgy+jmGJhzZmX31iOq3IHTFl5qff
ORuM2a8lzeMcHyPminH3vWlKmLMuUz1Sehdias5e1xhqiDkGkfKfj5UipvZ6
8Z0urphj5PohYpkJYq7xSzJdVoo5u2Sep/XpI+amvvp1z50wx6OHo9NQhZgW
LauVKp9izr05V9PV1BHTs0DQ+McMc8WNnlss7EJM75wzUSvPYq70y+H4UlPE
9M2aMPPJxVz5lV1qMcGI6Z8kUjo5B3OVR98V/nyLmCGhUhkzuZirpROuGz2J
mFGWSgFm8Zi71/Q/ac3PiPmkW2du9i/Mvf+HrZBah5g5P3ObhpQwN8s7zOTZ
asR83qIbs3475v43nP31ZAZiFnxYL/k6D3MLOi/d/PMUMctyDbk/rmDuWzd7
c8ZKxKwLsahQID9qe+Wqa/MEiMmZ6XrENwDTS7IdnNJ3Iya98RjXPAzTK2Kn
rardjJiD9sdOL7qFaS2vV2LsY4g5mnE0rKkQ0+sYrqb9EYg5uc7lv43DmDbq
9hj160SUgq3jsLgnph277CzcIhHFDHI88/0spl025c8cW4IoVoqjREEkpo9F
yB/+a4KoWd0OM49lY9pz+pvnPApRav6HNrzvwXTQfY0D5hxE6STsPx/vjOlY
dUmQYyBqTcl+mRO+mI7vUVG61Yuote37Yk1CMX0rQ/3MxB5EbVyy9z4/DdPJ
UnJNeXGI2lK4561dO6Yz7da7RS5ElFHrHqu1HEw/am3bFZqKKJNJmxb5cUz/
Z+Xx/swmRJmb7O6rmIPp52r7Upq8ELW7aZf84n2YLtmNCv20ELVHaJ0w6Yrp
0nAjfmQEovbNs57ffBrT5YWrfSSXI8ruqJVOeAKmK0fehD9biSgXnqUNpxHT
7yUqI2XcEOU/c/vdQktMt3hdG56zEVEBSlNOw2S9Vr7VXbktiApSyl+x6iKm
vweqtY3qIypESbX4cTGmfzp1PLbwRdQV1sDX1AWY7mr67fdwMaLCWA+Tvutj
uns+v0Gc6BXBOuCishfTfw8rj29xRFQUVTUUR/Tufe97+c5LRCUwbylc5WGa
i0JZmIWo20zzpmoGpultzXc2kfmJTJEUsZWYHjBf86CO+JHCcNcIdsT00NrJ
nSoPEJXGmDf8IgjTw/M9/ExOISpdobGEdxPTIyK/lrkTzlAw2Ob9DtOj2c1H
XVIQlSU/xHjShWneqQOXkmwQ9Vg+o7lvCtNj6zrso4i+T+UZR4/oYpp/b+qK
9VxEPZtRrZlO9BGYxweeIvvnzggc+elGmKPpKzRFVKFc58X9KZj+p+zeUnYM
UcVyt7cnEH3+pcuPbx5GVIncDmYj0Xt8YeGNAkVElcqJtjC4hJMP+xV6Iqp8
emGapTSmJxQUwrvWIurV9OPHrhE9JwJeFbQZIqpyuppWjQHh1pM/9MQR9Vr2
C0+S+D+pu/JvTCai3siGl20h+Zu8/Kf84gSiamQNL50j+k5+TN/xMBZR72SG
zUszMT3FPBwa+R+iPshkUYJKwuYLLep3Iapexq513XfCwX+TJ60Q1SDDvOdH
/JjKeOqWswFRn6XfuD5nEiYdyfcEor5In9HmahDu2Gr2bRaimqS1x1aaEB5h
7vBag6hvUl3lrsSfqYnfT6ujEdUqdefywzOEp/Ldj9Uj6ruUpUUHyeOUIPzc
b5KHdilxxfnPCPc7DpSS+/lrWlGbHfFr6uvGV6Fkv45pHul3/hAumjlSQvLQ
NU3drVmEcPRoPLsWUd2STTqKswk7NT1OJvN7JCP41sS/KY2SzdbXEdUnCThq
J9GDm3b0GpnPlhi58t6dcFb48nqiD1fikaX0JcIHTiYlLkXUgIS9kjHxc1LC
6bMnE1FDEtT30BdE/4zdv2p8EMUTD3Yf/59/nw3/ikUhakyw3HzffsL2ySJO
xxEl4DatzHtN/O/cUVrdjKiJVm22+x1MC79mJnwWQdTUx+8f3kgQ3mo1usYU
sUSrw5+ok/okeLQjQEYdsSSfdZ74ZkTyZ4/Ovw1CLKmMaMs1OSSfT/RsF9sg
lkySgdYNcl7eyAVuhyNizbiaQBsPkHx7sFQzpyOWkv1277y7mB6cWlGWS3jW
7jFrhWmEGa+5wfsRS2XbAx13b3KfZucH/BhDLFXdiSF14h93VnzYmSeItXj6
c7+oIXI/CxyCC/0Ra6mo/e6+Q5juCc+25b5FrGVj03WNa8h9trVMKElBLI0O
l5HxZHL/vyV5Ccl83RfK/u5mpD5csJe/nINY655W21bnYbpd+cT1Lg5irX/g
q6c+j9STzKaRgCjE0r/xfqyZ1OuWnOLWIQPEMjp6LvB/+jc6V2n2FiGWiZ3G
/nsymP5Uli1834NYZtYtG8ZPYrpBYTBD9DxiWRisFuZtw/SH5Jtr680Ry4bV
Haw2gunqQ2Y8+9mIZSsTZxfsgOmqoEUup/IRa+8U0m8m+aq44ahqRfQ82Hdn
IioV02XpQrOdOxDLuWJHyPh2TBd4vvn2Zxli+XnmX2i+h+n7d3RuzE5ArFNR
P1dVd2P6nnRRIRIi1ukcmZ/55D6keO00ghmIdYZ2MIgm/eiOesEV9mXEuuQt
I9j2AdNRc/wa7Tcg1k0fB++XfEz7O7tpWZP1b8VEzH9siGk/I+cDddqIded5
fv1tUm+9555pbSD+Jg/JapySx7Rb7nTX8ADEyvDN79FaiGk733KL/rOIVXRS
1iGN1CdkbiYqrohYL+LXykfFY1o/5dZny1bEepnvUBbcgun1vUpHmusQC48U
zNnvgmkd55RpT6cQq+aUQzMViGl1Wlxt9RXEavEvsLz0ANOijooO7G7E+hfo
aOAqxNwXebERdZ8Ra+IUWvGS9PcCdOHx8yrEmvJRU55xF3OfVXdKnvBAiuKu
P4dy9TE3s0Tka0gjUpy+zyHzXwjm3jSt0TrLQYpz9ByoKHHM9RReMc95ghQ3
jh76myeHuXOrF+/5rwIp6g8afJW0w9xZTunzPmxFioYc1cq9TzCXyS/iU3VI
cUvXj6RxS8yVks9fFZuIFLd/ObTLOBpzBjoUT6VkIsUDeXal3xQxp2pp1uKa
HqQY5HMwZkIVc5zWqyT+JRx868WODjPMOeiinVffiRRDymfJvD2JOTZX330e
KESKF2U/X4h5hzkmBbdZjfJI8dqDbT5L/DFnRfab4os/kGJSs57VzgbMHpQw
sJa4gBSxAUs+PRSzT5/co1TcipQkpN9dM+3G/cc/ruE42CGlaYvVHM2dcL/z
LJ2gbeeQkvRm/7WWP8h7dW/Ub8E4UpILUv+55wvuN6vwE9PuRkqK/YFrnCtx
/+KNi9GsP0hpcf3StnPJuO97hb3niBVSMo27vLLIBveZrB872JCGlK7Ngw9L
qnCvuJP6a+cmNFNGXSJD2h13O9RtlzX2RzNjqgwWpRXhTvVSd80yKTSLuata
f1M9/nmrqrrE9wqaFeW4+647H3+Le1tiU7QKKc+csSfVqgY3RKm9/dY+gZTj
MzP1NzjhiiTVLDv/JKSi+tvj7Ld07H0sacNl1w+EBxuFVzSw9+JJ1yorN6Qy
T2zT6TWF2KumQrMTdAgvlPWOeo89K7f9OmzPJOyS5Ww0gj0KDmo6FTAI/+0y
e26CXe+e9ZLgXkQq87l2rPA+7HjsVZ16DU14sipa7yR2qJUZaK7+iVTUFFbK
dU1i+8pY4z3OZD81beE0kmq7gvQe69c3CPvc4vP08b67r5VXb7YmPNLY7hSF
rVynaWX5JyMVdclNBxnK2LJqbnPDpBJhpfTmsnRsUahpZf6klPA6n0/KRdgs
yXJTSakz4QCFqvpfGLlGixi3vSUcdhoFu2P9IvS9QuE44dvtZctH8Prkw0Us
72LCL54UXpbGq9zuH1u49hrhd0prVsfiZalhQV+VFQm3Buf8movVjr9bXH2f
6Kfe16VxPQMzvGelGomdIPzP/NEmnfL//d91XWfR/wEUFtFq
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{
     0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.44043055542969*^9}]
}, Open  ]],

Cell["\<\
You can produce a list of values of some expression for a range of values of \
a variable using Table.\
\>", "Text",
 CellChangeTimes->{{3.440430577454072*^9, 3.440430616739951*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "3", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440430256672329*^9, 3.440430263265048*^9}, {
  3.440430619522628*^9, 3.440430630727921*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9", ",", "16", ",", "25"}], "}"}]], "Output",
 CellChangeTimes->{
  3.440430264026636*^9, {3.4404306206954813`*^9, 3.440430636863686*^9}}]
}, Open  ]],

Cell["\<\
A matrix is represented as a list of its rows, each row given as a list of \
elements.\
\>", "Text",
 CellChangeTimes->{{3.440430696037203*^9, 3.44043073795959*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"matrix1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.440430746385483*^9, 3.440430758492375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.440430760591833*^9}]
}, Open  ]],

Cell["To display this as a matrix you use MatrixForm", "Text",
 CellChangeTimes->{{3.4404307651969147`*^9, 3.4404307848649282`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "matrix1", "]"}]], "Input",
 CellChangeTimes->{{3.440430786265313*^9, 3.4404307907835484`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2"},
     {"3", "4"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.4404307923907423`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "matrix1", "]"}]], "Input",
 CellChangeTimes->{{3.440430845293672*^9, 3.440430847740448*^9}}],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.440430848279352*^9}]
}, Open  ]],

Cell["\<\
A period is used for the dot product of vectors or multiplication by a \
matrix.\
\>", "Text",
 CellChangeTimes->{{3.440430799666355*^9, 3.440430853073998*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vector1", "=", 
  RowBox[{"{", 
   RowBox[{"5", ",", "6"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4404308546122026`*^9, 3.4404308678669443`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{3.440430868952846*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vector1", ".", "vector1"}]], "Input",
 CellChangeTimes->{{3.440430870233399*^9, 3.440430873070113*^9}}],

Cell[BoxData["61"], "Output",
 CellChangeTimes->{3.440430876069642*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"matrix1", ".", "vector1"}]], "Input",
 CellChangeTimes->{{3.4404308786709337`*^9, 3.440430882041754*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"17", ",", "39"}], "}"}]], "Output",
 CellChangeTimes->{3.440430886761052*^9}]
}, Open  ]],

Cell["\<\
The Solve function will take a system of equations given as a list and solve \
for the variables given in a list.\
\>", "Text",
 CellChangeTimes->{{3.440430348977708*^9, 3.440430380020602*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solns", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"2", "x"}], "+", 
        RowBox[{"3", "y"}]}], "\[Equal]", "7"}], ",", 
      RowBox[{
       RowBox[{"x", "-", "y"}], "\[Equal]", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.440430382745243*^9, 3.440430402048362*^9}, {
  3.4404308965303698`*^9, 3.4404308978072042`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "2"}], ",", 
    RowBox[{"y", "\[Rule]", "1"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.4404304040132837`*^9, 3.4404309001397123`*^9}]
}, Open  ]],

Cell["\<\
Solve returns a list of solutin sets.  Each solution set is a list of rules \
giving values to the variables.  A rule is of the form var -> val (the arrow \
is typed as minus greater but converted to an arrow).  To use a rule to \
substitute values of variables in an expression you use ReplaceAll which has \
the handy shorthand infix notation /. (forward slash and period).  If you \
substitute a list of rules you get one result.  If you substitute a list of \
lists of rules you get one result for each list of rules.  Thus if you want \
to use the first solution set to substitute in an expression you would use\
\>", "Text",
 CellChangeTimes->{{3.440430908613514*^9, 3.440431192381727*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "+", "y"}], "/.", 
  RowBox[{"solns", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4404311223055763`*^9, 3.440431123538557*^9}, {
  3.440431194466235*^9, 3.440431199972795*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.440431204123253*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solns", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"3", "x"}], "+", "2"}], "\[Equal]", "0"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.44043121446813*^9, 3.4404312382123537`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.440431230759988*^9, 3.440431238626007*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "2"}], "/.", "solns"}]], "Input",
 CellChangeTimes->{{3.440431242497445*^9, 3.440431261498695*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{{3.4404312490924377`*^9, 3.4404312621176443`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "2"}], "/.", 
  RowBox[{"solns", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.440431250374489*^9, 3.440431264963542*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{{3.440431255916464*^9, 3.440431265456955*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Help", "Section",
 CellChangeTimes->{{3.440431320235519*^9, 3.440431320697727*^9}}],

Cell[TextData[{
 "You can access all of the documentation for ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " from the Help menu Documentation Center.  If you want to know about a \
specific function, you can highlight the function and select Find Selected \
Function from the Help menu.  If you go to the Help menu Documentation \
Center, there is a link to First Five Minutes with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " on the lower right side of the page."
}], "Text",
 CellChangeTimes->{{3.4404313255000963`*^9, 3.440431495359891*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{628, 640},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3440403005-5741638"->{
  Cell[13759, 475, 118, 2, 39, "Print",
   CellTags->"Info3440403005-5741638"],
  Cell[13880, 479, 850, 25, 32, "Print",
   CellTags->"Info3440403005-5741638"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3440403005-5741638", 46355, 1376}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 166, 5, 83, "Title"],
Cell[759, 30, 100, 1, 49, "Subtitle"],
Cell[862, 33, 95, 1, 28, "Subsubtitle"],
Cell[CellGroupData[{
Cell[982, 38, 104, 1, 71, "Section"],
Cell[1089, 41, 174, 5, 29, "Text"],
Cell[1266, 48, 528, 9, 65, "Text"],
Cell[1797, 59, 342, 10, 47, "Text"],
Cell[2142, 71, 238, 5, 29, "Text"],
Cell[2383, 78, 629, 10, 83, "Text"],
Cell[3015, 90, 484, 8, 65, "Text"],
Cell[3502, 100, 210, 4, 47, "Text"],
Cell[3715, 106, 515, 10, 65, "Text"],
Cell[4233, 118, 421, 7, 83, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4691, 130, 100, 1, 71, "Section"],
Cell[4794, 133, 131, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[4950, 138, 110, 2, 27, "Input"],
Cell[5063, 142, 69, 1, 27, "Output"]
}, Open  ]],
Cell[5147, 146, 287, 7, 41, "Text"],
Cell[CellGroupData[{
Cell[5459, 157, 264, 8, 27, "Input"],
Cell[5726, 167, 149, 4, 30, "Output"]
}, Open  ]],
Cell[5890, 174, 194, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[6109, 182, 128, 2, 27, "Input"],
Cell[6240, 186, 85, 1, 27, "Output"]
}, Open  ]],
Cell[6340, 190, 317, 7, 41, "Text"],
Cell[CellGroupData[{
Cell[6682, 201, 123, 2, 27, "Input"],
Cell[6808, 205, 81, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6926, 212, 124, 2, 27, "Input"],
Cell[7053, 216, 87, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7177, 222, 152, 3, 27, "Input"],
Cell[7332, 227, 88, 1, 27, "Output"]
}, Open  ]],
Cell[7435, 231, 486, 11, 56, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7958, 247, 95, 1, 67, "Section"],
Cell[8056, 250, 657, 13, 71, "Text"],
Cell[CellGroupData[{
Cell[8738, 267, 131, 2, 27, "Input"],
Cell[8872, 271, 71, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8980, 277, 112, 2, 27, "Input"],
Cell[9095, 281, 71, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9203, 287, 115, 2, 27, "Input"],
Cell[9321, 291, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9428, 297, 109, 2, 27, "Input"],
Cell[9540, 301, 71, 1, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9660, 308, 89, 1, 67, "Section"],
Cell[9752, 311, 352, 8, 41, "Text"],
Cell[CellGroupData[{
Cell[10129, 323, 160, 3, 27, "Input"],
Cell[10292, 328, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10399, 334, 165, 4, 27, "Input"],
Cell[10567, 340, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10674, 346, 114, 2, 27, "Input"],
Cell[10791, 350, 68, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10896, 356, 114, 2, 27, "Input"],
Cell[11013, 360, 69, 1, 27, "Output"]
}, Open  ]],
Cell[11097, 364, 120, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[11242, 370, 114, 2, 27, "Input"],
Cell[11359, 374, 92, 2, 27, "Output"]
}, Open  ]],
Cell[11466, 379, 119, 2, 27, "Input"],
Cell[11588, 383, 288, 7, 41, "Text"],
Cell[CellGroupData[{
Cell[11901, 394, 223, 6, 27, "Input"],
Cell[12127, 402, 127, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12291, 411, 116, 2, 27, "Input"],
Cell[12410, 415, 78, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12525, 422, 119, 2, 27, "Input"],
Cell[12647, 426, 85, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12769, 432, 112, 2, 27, "Input"],
Cell[12884, 436, 129, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13050, 445, 159, 4, 27, "Input"],
Cell[13212, 451, 207, 7, 38, "Output"]
}, Open  ]],
Cell[13434, 461, 169, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[13628, 469, 106, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[13759, 475, 118, 2, 39, "Print",
 CellTags->"Info3440403005-5741638"],
Cell[13880, 479, 850, 25, 32, "Print",
 CellTags->"Info3440403005-5741638"]
}, Open  ]]
}, Open  ]],
Cell[14757, 508, 123, 2, 27, "Input"],
Cell[14883, 512, 160, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[15068, 519, 160, 3, 27, "Input"],
Cell[15231, 524, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15338, 530, 143, 3, 27, "Input"],
Cell[15484, 535, 71, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15592, 541, 136, 3, 27, "Input"],
Cell[15731, 546, 71, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15839, 552, 120, 2, 27, "Input"],
Cell[15962, 556, 69, 1, 27, "Output"]
}, Open  ]],
Cell[16046, 560, 217, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[16288, 568, 271, 8, 27, "Input"],
Cell[16562, 578, 231, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16830, 590, 174, 4, 27, "Input"],
Cell[17007, 596, 290, 9, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17346, 611, 100, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[17471, 616, 243, 7, 27, "Input"],
Cell[17717, 625, 148, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17902, 634, 200, 5, 27, "Input"],
Cell[18105, 641, 140, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18282, 650, 254, 7, 27, "Input"],
Cell[18539, 659, 138, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18714, 668, 265, 8, 27, "Input"],
Cell[18982, 678, 172, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19191, 688, 275, 8, 27, "Input"],
Cell[19469, 698, 289, 10, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19795, 713, 333, 10, 27, "Input"],
Cell[20131, 725, 92, 2, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20260, 732, 260, 8, 27, "Input"],
Cell[20523, 742, 268, 8, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20828, 755, 299, 9, 27, "Input"],
Cell[21130, 766, 6083, 106, 239, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27262, 878, 125, 1, 67, "Section"],
Cell[27390, 881, 239, 4, 41, "Text"],
Cell[CellGroupData[{
Cell[27654, 889, 196, 4, 27, "Input"],
Cell[27853, 895, 144, 3, 27, "Output"]
}, Open  ]],
Cell[28012, 901, 169, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[28206, 908, 173, 4, 27, "Input"],
Cell[28382, 914, 94, 1, 27, "Output"]
}, Open  ]],
Cell[28491, 918, 241, 5, 41, "Text"],
Cell[CellGroupData[{
Cell[28757, 927, 260, 7, 27, "Input"],
Cell[29020, 936, 9387, 160, 230, "Output"]
}, Open  ]],
Cell[38422, 1099, 192, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[38639, 1107, 279, 7, 27, "Input"],
Cell[38921, 1116, 178, 4, 27, "Output"]
}, Open  ]],
Cell[39114, 1123, 175, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[39314, 1131, 270, 8, 27, "Input"],
Cell[39587, 1141, 213, 7, 27, "Output"]
}, Open  ]],
Cell[39815, 1151, 132, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[39972, 1156, 137, 2, 27, "Input"],
Cell[40112, 1160, 627, 18, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40776, 1183, 128, 2, 27, "Input"],
Cell[40907, 1187, 87, 2, 27, "Output"]
}, Open  ]],
Cell[41009, 1192, 170, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[41204, 1200, 172, 4, 27, "Input"],
Cell[41379, 1206, 115, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41531, 1214, 127, 2, 27, "Input"],
Cell[41661, 1218, 71, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41769, 1224, 129, 2, 27, "Input"],
Cell[41901, 1228, 117, 3, 27, "Output"]
}, Open  ]],
Cell[42033, 1234, 203, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[42261, 1242, 502, 15, 27, "Input"],
Cell[42766, 1259, 227, 6, 27, "Output"]
}, Open  ]],
Cell[43008, 1268, 706, 10, 101, "Text"],
Cell[CellGroupData[{
Cell[43739, 1282, 246, 6, 27, "Input"],
Cell[43988, 1290, 70, 1, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44095, 1296, 297, 9, 27, "Input"],
Cell[44395, 1307, 249, 7, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44681, 1319, 143, 3, 27, "Input"],
Cell[44827, 1324, 143, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45007, 1332, 195, 5, 27, "Input"],
Cell[45205, 1339, 94, 1, 27, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45348, 1346, 89, 1, 67, "Section"],
Cell[45440, 1349, 562, 12, 71, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)