(* 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[     71920,       2479]
NotebookOptionsPosition[     61200,       2150]
NotebookOutlinePosition[     61827,       2174]
CellTagsIndexPosition[     61784,       2171]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Math 180 - 1", "Subtitle",
 Evaluatable->False,
 AspectRatioFixed->False,
 FontColor->RGBColor[0, 0, 1]],

Cell["\<\
Bring a USB memory stick to lab so that you can Save the notebooks for later \
use or reference.  Your homework will consist mostly of exercises from these \
notebooks.\
\>", "Subsection",
 CellChangeTimes->{{3.396981833377679*^9, 3.3969818869680557`*^9}, {
  3.428333072499072*^9, 3.4283330738693666`*^9}}],

Cell[TextData[{
 "References \n\n1)  \
http://www.wolfram.com/broadcast/screencasts/handsonstart/\n\n2)  Help -> \
Documentation Center  (far right on the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " bar above)\n\n3)  http://www.wolfram.com/\n\n4)  Blachman & Williams:  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " - A Practical Approach, Second Edition, Prentice Hall.  (This is not for \
version 6.0 but does have a lot of good information.)"
}], "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.3955953743506527`*^9, 3.395595382209083*^9}, {
   3.395595430961494*^9, 3.39559550591623*^9}, {3.395596509964568*^9, 
   3.395596512001356*^9}, 3.3957577592019253`*^9, {3.396697523115665*^9, 
   3.3966975647089577`*^9}, {3.4282375874581413`*^9, 3.42823764654384*^9}},
 AspectRatioFixed->False,
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  \n 0)  The vertical lines on the right of this document (called \
a Notebook) are the cell brackets.  Each cell or group of cells is specified \
by a bracket.\n \nDocumentation Center, etc.\n1) a) Help -> Documentation \
Center.  ",
  FontWeight->"Plain"],
 StyleBox["  \n",
  FontWeight->"Plain",
  FontColor->GrayLevel[0]],
 StyleBox["Or, \nb) Place the Toolbar (Window -> Show Toolbar) at the top of \
this Notebook and just click on the ? in a circle at the top right.  [It is a \
good idea to have the Toolbar available.] \n2)  Click on and work through ",
  FontWeight->"Plain"],
 StyleBox["First Five Minutes with ",
  FontWeight->"Plain",
  FontColor->RGBColor[0.6, 0.4, 0.2]],
 StyleBox["Mathematica ",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0.4, 0.2]],
 StyleBox["found on the lower right of the ",
  FontWeight->"Plain",
  FontColor->GrayLevel[0]],
 StyleBox["Documentation Center",
  FontWeight->"Plain"],
 StyleBox[" page.",
  FontWeight->"Plain",
  FontColor->GrayLevel[0]]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.3955955253734617`*^9, 3.395595571124893*^9}, {
  3.395595613804294*^9, 3.395595667551486*^9}, {3.3955964314662113`*^9, 
  3.3955964755862007`*^9}, {3.395596515699048*^9, 3.395596560959416*^9}, {
  3.395598978159837*^9, 3.395598998735784*^9}, {3.395600010560749*^9, 
  3.395600011994982*^9}, {3.395757805456081*^9, 3.395757839840911*^9}, {
  3.395757913703669*^9, 3.395757961287854*^9}, {3.395758536461918*^9, 
  3.395758538572094*^9}, {3.3957649174943037`*^9, 3.3957651354177856`*^9}, {
  3.395765235164839*^9, 3.39576526802857*^9}, {3.39663025131453*^9, 
  3.396630333721518*^9}, {3.396630413598116*^9, 3.3966304650695477`*^9}},
 AspectRatioFixed->False],

Cell[TextData[{
 StyleBox["Evaluating an Input cell.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  \n1)  To evaluate an existing Input cell, place your cursor in \
the Input cell, click once, then strike the <enter> key on the lower right of \
the number pad (",
  FontWeight->"Plain"],
 StyleBox["not",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0.5, 0]],
 StyleBox[" the <return> key) on your keyboard.  [See below to evaluate ",
  FontWeight->"Plain"],
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["2", "3"], "+", " ", "7"}]],
  CellChangeTimes->{{3.426440538234501*^9, 3.426440576042067*^9}, {
   3.426440622909605*^9, 3.426440627531767*^9}}],
 StyleBox[".] \n\nOn a Mac the <enter> key is sufficient.  Use <shift> + \
<enter>  on a PC.  ",
  FontWeight->"Plain"],
 StyleBox["Don't confuse the <return> key with the <enter> key.  Pressing the \
former will just result in a new line in the cell",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[". ",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395599502718622*^9, 3.395599525763536*^9}, {
   3.395599565920725*^9, 3.395599585036072*^9}, {3.395599643482101*^9, 
   3.395599645634234*^9}, {3.3955996928222322`*^9, 3.3955998414019623`*^9}, {
   3.395758354815629*^9, 3.3957583609696836`*^9}, {3.396629978918929*^9, 
   3.396630057526119*^9}, {3.4264403084907503`*^9, 3.426440323977316*^9}, {
   3.4264404312728977`*^9, 3.426440482222321*^9}, {3.426440515703369*^9, 
   3.4264405279919167`*^9}, {3.4264405890025473`*^9, 3.4264406029395933`*^9}, 
   3.42644063511132*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", "3"], "+", " ", "7"}]], "Input",
 CellChangeTimes->{{3.426440538234501*^9, 3.426440576042067*^9}, {
  3.426440622909605*^9, 3.426440627531767*^9}}],

Cell[TextData[{
 StyleBox["Creating & Evaluating an Input cell.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  \n1)  Use the mouse to place your cursor just below this cell \
and just above the cell with the heading ",
  FontWeight->"Plain"],
 "Help",
 StyleBox[".  \n2)  When the cursor is horizontal click once on your mouse to \
open an Input cell.  Before typing it will appear as a horizontal line.  \n3) \
 Type an expression, such as 2 + 3, into the Input cell.  \n4)  Evaluate the \
expression as explained above.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395599502718622*^9, 3.395599525763536*^9}, {
  3.395599565920725*^9, 3.395599585036072*^9}, {3.395599643482101*^9, 
  3.395599645634234*^9}, {3.3955996928222322`*^9, 3.3955998414019623`*^9}, {
  3.395758354815629*^9, 3.3957583609696836`*^9}, {3.396629978918929*^9, 
  3.396630057526119*^9}, {3.4264403084907503`*^9, 3.426440323977316*^9}, {
  3.426440649869844*^9, 3.426440654427929*^9}, {3.426440712634815*^9, 
  3.4264407414068527`*^9}},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Help.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  \t?\t",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.3960319274261208`*^9, 3.396031945202642*^9}, 
   3.4274633174525843`*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"?", "Plot"}]], "Input",
 CellChangeTimes->{{3.427463285551756*^9, 3.427463286687867*^9}}],

Cell[BoxData[
 RowBox[{"?", "*D"}]], "Input",
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"?", "*Fac*"}]], "Input",
 AspectRatioFixed->True]
}, Closed]],

Cell[TextData[StyleBox["To open the nested cell below double-click on the \
right vertical line with the triangle.  When done, you may double-click to \
close any nested cell.",
 FontWeight->"Plain",
 FontColor->RGBColor[0, 0, 1]]], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Help.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Using \"Complete Selection\" and \"Make Template\" in the ",
  FontWeight->"Plain"],
 "Edit",
 StyleBox[" menu.\n1)  Put your cursor to the right of \"Pl\" in the cell \
below.\n2)  Edit -> Complete Selection.  In the window that opens, click on ",
  
  FontWeight->"Plain"],
 "Plot",
 StyleBox[".\n3)  Select Plot in the cell below.   Edit -> Make Template.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395599121004635*^9, 3.3955991219693832`*^9}, {
  3.396697771883401*^9, 3.396697869942519*^9}, {3.396697908723975*^9, 
  3.396697993971713*^9}},
 AspectRatioFixed->False],

Cell[BoxData["Pl"], "Input",
 CellChangeTimes->{{3.395599159411689*^9, 3.395599194211605*^9}, 
   3.396697890411907*^9, 3.396697971389612*^9, 3.427463517579809*^9, {
   3.427463564480329*^9, 3.427463569570269*^9}}]
}, Closed]],

Cell[TextData[{
 StyleBox["Put the BasicMathInput Palette on your Desktop.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  \t\n\nPalettes -> BasicMathInput",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395599209049574*^9, 3.3955992229658957`*^9}, {
  3.3955998791816273`*^9, 3.395599880116061*^9}},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 1.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Computations Using the BasicMathInput Palette.  ",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.3966305177735863`*^9, 3.396630518757223*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  FractionBox["112", "34"], "+", " ", 
  FractionBox["567", "89"], " ", "-", " ", 
  FractionBox["357", "231"]}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["11", "2"], "34"], "+", " ", 
  FractionBox[
   SuperscriptBox["56", "7"], "89"], " ", "-", " ", 
  FractionBox[
   SuperscriptBox["35", "7"], "231"]}]], "Input"],

Cell[BoxData[
 SqrtBox["512"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SqrtBox["113"], ",", 
   SqrtBox["113.0"], ",", " ", 
   RowBox[{"N", "[", 
    SqrtBox["113"], "]"}], ",", " ", 
   RowBox[{
    SqrtBox["113"], " ", "//", " ", "N"}]}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox["\[Pi]", "2"], ",", "  ", 
   RowBox[{"N", "[", 
    SuperscriptBox["\[Pi]", "2"], "]"}]}], "}"}]], "Input"],

Cell[BoxData[
 SuperscriptBox["7", "99"]], "Input"],

Cell[BoxData[
 RowBox[{"The", " ", "%", " ", "symbol", " ", "stands", " ", "for", " ", 
  "last", " ", 
  RowBox[{"output", ".", "  ", "Use"}], " ", "it", " ", 
  RowBox[{"sparingly", "."}]}]], "Input",
 CellChangeTimes->{{3.3957534546140327`*^9, 3.395753488481688*^9}}],

Cell[BoxData[
 RadicalBox["%", "99"]], "Input"]
}, Closed]],

Cell[TextData[{
 StyleBox["Exercise",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" 1.",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox["  Use the ",
  FontWeight->"Plain"],
 "BasicMathInput",
 StyleBox[" palette to do others similar to the above examples.  Note that \
you may evaluate more than one expression in a cell by separating them with \
commas and wrapping them with braces to make a list of the expressions.",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395599241855988*^9, 3.395599242735258*^9}, 
   3.398537172100209*^9},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 2.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Integers: Factoring & Prime Numbers  ",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42807200114417*^9, 3.4280720029973907`*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"?", "Factor"}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "FactorInteger"}]], "Input"],

Cell[BoxData[
 RowBox[{"FactorInteger", "[", "123456789", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["3", "2"], " ", "3607", " ", "3803"}]], "Input"],

Cell[BoxData[
 RowBox[{"FactorInteger", "[", "42", "]"}]], "Input",
 CellChangeTimes->{{3.42807204304163*^9, 3.428072045146391*^9}, {
  3.428072102857955*^9, 3.428072103115528*^9}}],

Cell[BoxData[
 RowBox[{"?", "PrimeQ"}]], "Input",
 CellChangeTimes->{{3.4280719372449636`*^9, 3.428071940238867*^9}}],

Cell[BoxData[
 RowBox[{"PrimeQ", "[", "3803", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"PrimeQ", "[", "3813", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "Prime"}]], "Input",
 CellChangeTimes->{{3.4280719551267433`*^9, 3.428071956735446*^9}}],

Cell[BoxData[
 RowBox[{"Prime", "[", "6", "]"}]], "Input",
 CellChangeTimes->{{3.428071975796156*^9, 3.428071983424954*^9}}],

Cell[BoxData[
 RowBox[{"PrimeQ", "[", "6", "]"}]], "Input",
 CellChangeTimes->{{3.428071975796156*^9, 3.428071983424954*^9}, 
   3.428072153316585*^9}]
}, Closed]],

Cell[TextData[{
 StyleBox["Exercise",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" 2.",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox["  Do others similar to the above examples.  You may wish to copy \
and paste, then edit before evaluating the cell.",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.398537172125723*^9},
 AspectRatioFixed->False],

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" The percent symbol ",
  FontWeight->"Plain"],
 "%",
 StyleBox[" stands for the last output.  Use it infrequently.  ",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.39603431385432*^9, 3.3960343195126553`*^9}, {
  3.396700628304393*^9, 3.396700644061501*^9}, {3.397408295366143*^9, 
  3.39740830383641*^9}, {3.397408359000814*^9, 3.3974083989104567`*^9}, {
  3.427737635469433*^9, 3.427737700677273*^9}, {3.428072207986967*^9, 
  3.428072245676187*^9}, {3.428072277721533*^9, 3.4280723012307653`*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"?", "%"}]], "Input",
 CellChangeTimes->{{3.428072261464188*^9, 3.428072263692588*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 3.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  A little algebra.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"x", " ", "+", " ", "y"}], ")"}], "2"], " ", "+", " ", 
  RowBox[{"3", 
   RowBox[{"(", 
    RowBox[{"x", " ", "+", " ", "y"}], ")"}]}], " ", "-", " ", "4"}]], "Input"],

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"Factor", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "-", " ", 
   RowBox[{"5", "x"}], " ", "-", " ", "6"}], "]"}]], "Input",
 CellChangeTimes->{{3.396698085573667*^9, 3.3966982033955173`*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "2"], " ", "-", " ", 
     RowBox[{"5", "x"}], " ", "-", " ", "6"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"x", " ", "+", " ", "5"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.396698208289084*^9, 3.396698215282971*^9}},
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"Factor", "[", "%", "]"}]], "Input",
 AspectRatioFixed->True]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 4.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  More algebra.  First we will input the expression and inspect \
the output.   Then we'll transform it as needed.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 "a)  1 - ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["1", "2"], " ", "+", " ", 
    FractionBox["2", "3"]}], TraditionalForm]]],
 " - ",
 Cell[BoxData[
  FormBox[
   FractionBox["3", "4"], TraditionalForm]]],
 " + ",
 Cell[BoxData[
  FormBox[
   FractionBox["4", "5"], TraditionalForm]]],
 ".  Simplify."
}], "Subsection"],

Cell[BoxData[
 RowBox[{"1", " ", "-", " ", 
  FormBox[
   RowBox[{
    FractionBox["1", "2"], " ", "+", " ", 
    FractionBox["2", "3"]}],
   TraditionalForm], " ", "-", " ", 
  FormBox[
   FractionBox["3", "4"],
   TraditionalForm], " ", "+", " ", 
  FormBox[
   FractionBox["4", "5"],
   TraditionalForm]}]], "Input",
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"1", " ", "-", " ", 
   FormBox[
    RowBox[{
     FractionBox["1", "2"], " ", "+", " ", 
     FractionBox["2", "3"]}],
    TraditionalForm], " ", "-", " ", 
   FormBox[
    FractionBox["3", "4"],
    TraditionalForm], " ", "+", " ", 
   FormBox[
    FractionBox["4", "5"],
    TraditionalForm]}], "]"}]], "Input",
 AspectRatioFixed->True]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "b)    ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"(", 
     RowBox[{
      FormBox[
       FractionBox["7", "5"],
       TraditionalForm], " ", "-", " ", "3"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FormBox[
       FractionBox["4", "5"],
       TraditionalForm]}], ")"}]], TraditionalForm]]],
 ".  Simplify."
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox["7", "5"], "-", "3"}], 
  RowBox[{"1", "+", 
   FractionBox["4", "5"]}]]], "Input"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  FormBox[
   FractionBox[
    RowBox[{
     FractionBox["7", "5"], "-", "3"}], 
    RowBox[{"1", "+", 
     FractionBox["4", "5"]}]],
   TraditionalForm], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "c)    ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1", " ", "-", " ", 
     FormBox[
      FractionBox["4", 
       SuperscriptBox["x", "2"]],
      TraditionalForm]}], 
    RowBox[{"1", "-", 
     FormBox[
      FractionBox["4", "x"],
      TraditionalForm], "+", 
     FormBox[
      FractionBox["4", 
       SuperscriptBox["x", "2"]],
      TraditionalForm]}]], TraditionalForm]]],
 " +  ",
 Cell[BoxData[
  FormBox[
   FractionBox["3", 
    RowBox[{"x", "-", "2"}]], TraditionalForm]]],
 ".  Simplify."
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"1", "-", 
    FractionBox["4", 
     SuperscriptBox["x", "2"]]}], 
   RowBox[{"1", "-", 
    FractionBox["4", "x"], "+", 
    FractionBox["4", 
     SuperscriptBox["x", "2"]]}]], "+", 
  FractionBox["3", 
   RowBox[{"x", "-", "2"}]]}]], "Input"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"1", "-", 
     FractionBox["4", 
      SuperscriptBox["x", "2"]]}], 
    RowBox[{"1", "+", 
     FractionBox["4", 
      SuperscriptBox["x", "2"]], "-", 
     FractionBox["4", "x"]}]], "+", 
   FractionBox["3", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "x"}]]}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "d)  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", "2"}], ")"}], "7"], TraditionalForm]]],
 ".  Expand.  Factor."
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"x", " ", "-", " ", "2"}], ")"}], "7"]], "Input"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "2"}], ")"}], "7"], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"-", "128"}], "+", 
   RowBox[{"448", " ", "x"}], "-", 
   RowBox[{"672", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{"560", " ", 
    SuperscriptBox["x", "3"]}], "-", 
   RowBox[{"280", " ", 
    SuperscriptBox["x", "4"]}], "+", 
   RowBox[{"84", " ", 
    SuperscriptBox["x", "5"]}], "-", 
   RowBox[{"14", " ", 
    SuperscriptBox["x", "6"]}], "+", 
   SuperscriptBox["x", "7"]}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "e)  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "7"], TraditionalForm]]],
 "- 1 .  Factor.   Repeat for ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "8"], TraditionalForm]]],
 "- 1, ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SuperscriptBox["x", "8"]}], TraditionalForm]]],
 "+ 1",
 Cell[BoxData[
  FormBox[
   RowBox[{",", " ", 
    SuperscriptBox["x", "14"]}], TraditionalForm]]],
 "- 1, ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SuperscriptBox["x", "15"]}], TraditionalForm]]],
 "+ 1."
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "7"], "-", "1"}]], "Input"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["x", "7"], "-", "1"}], "]"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "f)  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "x"}], "-", "2"}], ")"}], "7"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"x", " "}], "2"], "-", " ", 
      RowBox[{"2", "x"}], " ", "+", " ", "1"}], ")"}], "3"]}]]],
 ".  Expand.  Simplify."
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", "x"}], "-", "2"}], ")"}], "7"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"x", " "}], "2"], "-", " ", 
     RowBox[{"2", "x"}], " ", "+", " ", "1"}], ")"}], "3"]}]], "Input"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "x"}]}], ")"}], "7"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "x"}], "+", 
      SuperscriptBox["x", "2"]}], ")"}], "3"]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "x"}]}], ")"}], "7"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "x"}], "+", 
      SuperscriptBox["x", "2"]}], ")"}], "3"]}], "]"}]], "Input"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 5.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Algebra with quotients and assignments.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.4280734084350443`*^9, 3.4280734160032*^9}},
 AspectRatioFixed->False],

Cell[TextData[{
 StyleBox["We are assigning the name \"bill\" to an expression so that we can \
manipulate it easily",
  FontWeight->"Plain"],
 ".  ",
 StyleBox["The function ",
  FontWeight->"Plain"],
 "Clear",
 StyleBox[" is used to erase any previous value that \"bill\" may have had \
assigned to it.",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42644099187187*^9, 3.4264409991032763`*^9}, {
   3.427737902477955*^9, 3.427737998935693*^9}, {3.427738363175708*^9, 
   3.427738380579646*^9}, 3.427738623020081*^9, {3.42807246967069*^9, 
   3.428072562446796*^9}, {3.428072595241434*^9, 3.428072610473731*^9}},
 AspectRatioFixed->False],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "bill", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"bill", " ", "=", " ", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", " ", "+", " ", "y"}], ")"}], "2"], 
    RowBox[{"x", " ", "-", " ", "y"}]], " ", "+", " ", 
   FractionBox[
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", 
      RowBox[{"2", "y"}]}], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", " ", "+", " ", "y"}], ")"}], 
     RowBox[{"2", " "}]]]}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"Expand", "[", "bill", "]"}]], "Input",
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"ExpandAll", "[", "bill", "]"}]], "Input",
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{"Together", "[", "bill", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Denominator", "[", "%", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Apart", "[", "bill", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Factor", "[", "bill", "]"}]], "Input"]
}, Closed]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Both \[Pi] and \[ExponentialE] come from the BasicMathInput \
Palette.  You may type Pi for ",
  FontWeight->"Plain"],
 "\[Pi]",
 StyleBox[" but don't type e for the ",
  FontWeight->"Plain"],
 "\[ExponentialE]",
 StyleBox[" from the palette.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.39603431385432*^9, 3.3960343195126553`*^9}, {
  3.396700628304393*^9, 3.396700644061501*^9}, {3.397408295366143*^9, 
  3.39740830383641*^9}, {3.397408359000814*^9, 3.3974083989104567`*^9}, {
  3.427737635469433*^9, 3.427737700677273*^9}},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 6.  a)",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Trig functions   ",
  FontWeight->"Plain"],
 StyleBox["b)",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  The ",
  FontWeight->"Plain"],
 "Log",
 StyleBox[" function.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.427737314443475*^9, 3.4277373252730417`*^9}, {
   3.427737403755664*^9, 3.427737420636496*^9}, {3.427737479670821*^9, 
   3.427737481062498*^9}, {3.4277377423589573`*^9, 3.427737766687277*^9}, 
   3.4277383581351767`*^9, 3.427738393484436*^9, {3.427738640091962*^9, 
   3.427738644324133*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Sin", "[", "\[Pi]", "]"}]], "Input",
 CellChangeTimes->{{3.42773743102109*^9, 3.427737440742041*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Sin", "[", 
    FractionBox["\[Pi]", "3"], "]"}], ",", 
   RowBox[{"Cos", "[", 
    FractionBox["\[Pi]", "3"], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.42773743102109*^9, 3.4277374652956533`*^9}, {
  3.4277377867981167`*^9, 3.4277377883750057`*^9}, {3.427738699191105*^9, 
  3.427738715410322*^9}}],

Cell[TextData[{
 StyleBox["Trig functions only recognize radian input.  If you want to use \
degrees, you may use ",
  FontWeight->"Plain"],
 "\[Degree]",
 StyleBox[" from the palette.  Or you may multiply by ",
  FontWeight->"Plain"],
 Cell[BoxData[
  FormBox[
   FractionBox["\[Pi]", "180"], TraditionalForm]]],
 "."
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42644099187187*^9, 3.4264409991032763`*^9}, {
   3.427737902477955*^9, 3.427737998935693*^9}, {3.427738363175708*^9, 
   3.427738380579646*^9}, 3.427738623020081*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"150", "\[Degree]"}], "]"}]], "Input",
 CellChangeTimes->{{3.42773743102109*^9, 3.4277374652956533`*^9}, {
  3.4277377867981167`*^9, 3.4277377883750057`*^9}, {3.4277379235040216`*^9, 
  3.427737926728153*^9}, {3.4277380825249453`*^9, 3.427738084754621*^9}}],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"150", " ", 
   FractionBox["\[Pi]", "180"]}], "]"}]], "Input",
 CellChangeTimes->{{3.4277380208397083`*^9, 3.427738052507815*^9}}],

Cell[TextData[{
 "Log",
 StyleBox[" is the natural logarithm",
  FontWeight->"Plain"],
 ". ",
 StyleBox[" ",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42644099187187*^9, 3.4264409991032763`*^9}, {
   3.427737902477955*^9, 3.427737998935693*^9}, {3.427738111061482*^9, 
   3.427738190957193*^9}, 3.427738593116315*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"?", "Log"}]], "Input",
 CellChangeTimes->{{3.4277381664463663`*^9, 3.427738168301052*^9}}],

Cell[BoxData[
 RowBox[{"Log", "[", 
  SuperscriptBox["\[ExponentialE]", "3"], "]"}]], "Input",
 CellChangeTimes->{{3.42773780263627*^9, 3.427737810057373*^9}, {
  3.4277382621186113`*^9, 3.427738263626302*^9}}],

Cell[TextData[StyleBox["Typing e does not work.",
 FontWeight->"Plain"]], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42644099187187*^9, 3.4264409991032763`*^9}, {
  3.427737902477955*^9, 3.427737998935693*^9}, {3.427738111061482*^9, 
  3.427738190957193*^9}, {3.427738315787293*^9, 3.427738328521738*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Log", "[", "e", "]"}]], "Input",
 CellChangeTimes->{{3.427737819832803*^9, 3.427737822802006*^9}}],

Cell[TextData[StyleBox["If you wish to use log base 10 of x, then you must \
type Log[10, x].",
 FontWeight->"Plain"]], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42644099187187*^9, 3.4264409991032763`*^9}, {
   3.427737902477955*^9, 3.427737998935693*^9}, {3.427738111061482*^9, 
   3.427738190957193*^9}, 3.427738598874627*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{"10", ",", " ", "1000"}], "]"}]], "Input",
 CellChangeTimes->{{3.42773780263627*^9, 3.427737810057373*^9}, {
  3.427738238257842*^9, 3.427738241551729*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  There are three types of \"equal\" signs that will be used as we \
progress.  Two of them are assignments in the sense that we are assigning a \
value to a symbol.  The other is used when solving equations.  They are:\n\n\
single-equal (=) is used for immediate assignments, as done above with \
\"bill.\"\t\n\ncolon-equal (:=) is used for delayed assignments, usually to \
define functions as we do below.\n\ndouble-equal (==) is used in equations to \
be solved.  It may be thought of as \"are these equal?\"  See Example 9 \
below.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.396629897419804*^9, 3.396629900736862*^9}, {
   3.3966305851512737`*^9, 3.396630611120089*^9}, {3.3966307712798853`*^9, 
   3.396630779453294*^9}, 3.428775790901314*^9},
 AspectRatioFixed->False],

Cell[TextData[{
 StyleBox["As you evaluate each cell below in order, determine what is \
happening.  The assignments below for ",
  FontWeight->"Plain"],
 StyleBox["a",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox[" are all immediate assignments (=).  Can you see the difference \
between the results of an immediate assignment (=) and a delayed assignment \
(:=) in the definitions of ",
  FontWeight->"Plain"],
 StyleBox["gi ",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["and",
  FontWeight->"Plain"],
 StyleBox[" gd",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["?  ",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.42644099187187*^9, 3.4264409991032763`*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "a", "]"}], ";", " ", 
  RowBox[{"a", " ", "=", " ", "6"}]}]], "Input",
 CellChangeTimes->{
  3.42644107891282*^9, {3.426441115262141*^9, 3.426441118019772*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "gi", "]"}], ";", " ", 
  RowBox[{
   RowBox[{"gi", "[", "x_", "]"}], " ", "=", " ", 
   RowBox[{
    SuperscriptBox["x", "2"], " ", "+", " ", "a"}]}]}]], "Input",
 CellChangeTimes->{{3.426440947854823*^9, 3.4264409658233852`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "a", "]"}], ";", " ", 
  RowBox[{"a", " ", "=", " ", "2"}], ";", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"gi", "[", "x", "]"}], ",", " ", "a"}], "}"}]}]], "Input",
 CellChangeTimes->{3.4264409680633173`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "gd", "]"}], ";", " ", 
  RowBox[{
   RowBox[{"gd", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    SuperscriptBox["x", "2"], " ", "+", " ", "a"}]}]}]], "Input",
 CellChangeTimes->{{3.426440972415633*^9, 3.426440974615753*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "a", "]"}], ";", " ", 
  RowBox[{"a", " ", "=", " ", "2"}], ";", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"gd", "[", "x", "]"}], ",", " ", "a"}], "}"}]}]], "Input",
 CellChangeTimes->{3.426440976487698*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", " ", "==", " ", "5"}], ",", " ", 
   RowBox[{"a", " ", "==", " ", "2"}], ",", " ", "a"}], "}"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 7.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Defining Functions.  ",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.396630540566704*^9, 3.427738424885169*^9},
 AspectRatioFixed->False],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "g", "]"}], ";"}], " "}], "\n", 
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"1", " ", "+", " ", 
   SuperscriptBox["x", "3"]}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"g", "[", "2", "]"}], ",", " ", 
   RowBox[{"g", "[", 
    RowBox[{"2", "+", "h"}], "]"}], ",", " ", 
   FractionBox[
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"2", "+", "h"}], "]"}], " ", "-", " ", 
     RowBox[{"g", "[", "2", "]"}]}], "h"]}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  FractionBox[
   RowBox[{
    RowBox[{"g", "[", 
     RowBox[{"2", "+", "h"}], "]"}], " ", "-", " ", 
    RowBox[{"g", "[", "2", "]"}]}], "h"], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"g", "[", "stuff", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "x"], " ", 
  RowBox[{"g", "[", "x", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "'"}], "[", "x", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"],

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

Cell[TextData[{
 StyleBox["Exercise",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" 3.",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox["  Repeat Example 7 for a function of your choice.  Name it f (as \
distinct from g).  [Hint:  Copy the cells above and paste them below first.]",
  
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.3966307311967697`*^9, 3.398537172168191*^9, 
  3.42644121492733*^9, 3.427738422126267*^9},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 8.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Plot both f and g over the domain [-2, 3].",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{
  3.396630682386545*^9, {3.396698708938624*^9, 3.396698720474832*^9}, 
   3.427738427717494*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", " ", 
     RowBox[{"g", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.396698653111924*^9, 3.396698674728508*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 9.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Solving equations.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.396630685490695*^9, 3.427738431221455*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"?", "Solve"}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"3", "x"}], " ", "-", " ", "7"}], " ", "==", " ", "11"}], ",", 
   " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "-", " ", 
     RowBox[{"5", "x"}], " ", "+", " ", "6"}], " ", "==", " ", "0"}], ",", 
   " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", " ", "+", " ", "y"}], " ", "==", " ", "5"}], ",", 
     RowBox[{
      RowBox[{"x", " ", "-", " ", "y"}], " ", "==", " ", "3"}]}], "}"}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "2"]}], " ", "+", " ", 
     RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], " ", "==", " ", "0"}], 
   ",", " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "2"]}], " ", "+", " ", 
     RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], " ", "==", " ", "0"}], 
   ",", " ", "b"}], "]"}]], "Input"]
}, Closed]],

Cell[TextData[{
 StyleBox["Exercise",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" 4.",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox["  Use ",
  FontWeight->"Plain"],
 "Solve",
 StyleBox[" for similar examples.  You may wish to copy and paste, then edit \
before evaluating the cell.",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.396630734356744*^9, 3.3985371722023373`*^9},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 10.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Some plots and roots.  Using ",
  FontWeight->"Plain"],
 "Solve",
 StyleBox[" and ",
  FontWeight->"Plain"],
 "Plot",
 StyleBox[".",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395756436505875*^9, 3.395756455501577*^9}, 
   3.3966306886989613`*^9, {3.4277384337178507`*^9, 3.427738434309431*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "-", " ", 
    RowBox[{"5", "x"}], " ", "-", " ", "14"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "3"}], ",", " ", "8"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.395756293554511*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "-", " ", 
     RowBox[{"5", "x"}], " ", "-", " ", "14"}], "==", " ", "0"}], ",", " ", 
   "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "x"}], " ", "+", " ", "5"}], ",", " ", 
     RowBox[{"x", " ", "+", "3"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "3"}], ",", " ", "6"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", " ", "==", " ", 
      RowBox[{
       RowBox[{"-", "x"}], " ", "+", " ", "5"}]}], ",", " ", 
     RowBox[{"y", " ", "==", " ", 
      RowBox[{"x", " ", "+", " ", "3"}]}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]], "Input"]
}, Closed]],

Cell[TextData[{
 StyleBox["Exercise",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" 5.",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox["  In the above we considered linear or quadratic expressions.  \
Plot several cubic expressions -  e.g. ",
  FontWeight->"Plain"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "3"], "-", 
    RowBox[{"2", 
     SuperscriptBox["x", "2"]}], " ", "+", " ", "1"}], TraditionalForm]]],
 StyleBox[".  Try to find their roots using ",
  FontWeight->"Plain"],
 "Solve",
 StyleBox[".",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.396629777441229*^9, 3.396629796761688*^9}, 
   3.396630737325282*^9, 3.398537172236334*^9},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  ",
  FontWeight->"Plain"],
 StyleBox["The string  /. (ReplaceAll) is frequently used to substitute a \
value for some variable in an expression without assigning (using = or :=) \
that variable the new value.",
  FontWeight->"Plain",
  FontColor->GrayLevel[0]]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.39603431385432*^9, 3.3960343195126553`*^9}, {
  3.396700628304393*^9, 3.396700644061501*^9}, {3.397408295366143*^9, 
  3.39740830383641*^9}, {3.397408359000814*^9, 3.3974083989104567`*^9}, {
  3.427738481256567*^9, 3.427738483863168*^9}, {3.428951578381377*^9, 
  3.428951689940673*^9}, {3.428951949869618*^9, 3.428951996310493*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"?", "/."}]], "Input",
 CellChangeTimes->{{3.4289515987160378`*^9, 3.428951600368638*^9}, {
  3.428951771586145*^9, 3.4289517732956657`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", "x"}], " ", "-", " ", "3"}], "/.", 
  RowBox[{"x", "\[Rule]", " ", "5"}]}]], "Input",
 CellChangeTimes->{{3.428951708204886*^9, 3.428951732782442*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "x", "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "\[Pi]"}]}]], "Input",
 CellChangeTimes->{{3.428951907609521*^9, 3.428951922759432*^9}}],

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.428951761839944*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 11.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Solving equations and variable replacement.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{
  3.39575366316368*^9, {3.3966306936510563`*^9, 3.396630693874802*^9}, 
   3.427738438093814*^9},
 AspectRatioFixed->False],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "bill", "]"}], ";"}], "\n", 
 RowBox[{"bill", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"3", "x"}], " ", "-", " ", "7"}], " ", "==", " ", "11"}], 
   ")"}]}]}], "Input"],

Cell["Solve[bill, x]", "Input",
 AspectRatioFixed->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"3", "x"}], " ", "-", " ", "7"}], " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", "6"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"bill", " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", "6"}]}]], "Input"],

Cell["bull = Solve[bill, x]", "Input",
 AspectRatioFixed->True],

Cell["bill /. bull", "Input",
 AspectRatioFixed->True],

Cell["3x - 7 /. bull", "Input",
 AspectRatioFixed->True],

Cell["3x - 7 /. bull[[1]]", "Input",
 AspectRatioFixed->True],

Cell["bill /. bull[[1]]", "Input",
 AspectRatioFixed->True]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 12.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Solving \"hard\" equations.  Using ",
  FontWeight->"Plain"],
 "NSolve",
 StyleBox[" and ",
  FontWeight->"Plain"],
 "FindRoot",
 StyleBox[".  More variable replacement.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.396630697419299*^9, 3.396630697602765*^9}, 
   3.4277384405259447`*^9, {3.4280735264549723`*^9, 3.428073537342993*^9}},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "5"], " ", "-", " ", 
     RowBox[{"7", "x"}], " ", "+", " ", "1"}], " ", "==", " ", "0"}], ",", 
   " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "NSolve"}]], "Input"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "5"], " ", "-", " ", 
     RowBox[{"7", "x"}], " ", "+", " ", "1"}], " ", "==", " ", "0"}], ",", 
   " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.396698968316721*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], " ", "==", " ", "x"}], ",", " ", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], " ", "==", " ", "x"}], ",", " ", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "FindRoot"}]], "Input"],

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], " ", "==", " ", "x"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "wil", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"wil", " ", "=", " ", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], " ", "==", " ", "x"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1"}], "}"}]}], "]"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cos", "[", "x", "]"}], " ", "==", " ", "x"}], " ", "/.", 
  "wil"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cos", "[", "x", "]"}], " ", "-", " ", "x"}], " ", "/.", 
  "wil"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 13.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  A little calculus.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.396630700499194*^9, 3.427738443037654*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "5"], " ", "-", " ", 
     RowBox[{"7", "x"}], " ", "+", " ", "1"}], ")"}], 
   RowBox[{"\[DifferentialD]", "x", " "}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "1"], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "5"], " ", "-", " ", 
     RowBox[{"7", "x"}], " ", "+", " ", "1"}], ")"}], 
   RowBox[{"\[DifferentialD]", "x", " "}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
    SuperscriptBox["x", "3"]}], ",", " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
    SuperscriptBox["x", "3"]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "x"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
    SuperscriptBox["x", "3"]}], ")"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
    SuperscriptBox["x", "3"]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
    SuperscriptBox["x", "3"]}], ")"}]}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 14.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Lists.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.3966307054033337`*^9, 3.4277384455976973`*^9},
 AspectRatioFixed->False],

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

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"{", 
    RowBox[{"a", ",", " ", "9", ",", " ", "\[Pi]"}], "}"}], ")"}], 
  "2"]], "Input"],

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

Cell[BoxData[
 SqrtBox[
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "9", ",", " ", "\[Pi]"}], "}"}]]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Example 15.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
  FontWeight->"Plain"],
 "Table",
 StyleBox[" and ",
  FontWeight->"Plain"],
 "TableForm",
 StyleBox[".",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{3.396630708907383*^9, 3.427738448662072*^9},
 AspectRatioFixed->False],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "n"], " ", "-", " ", "1"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Factor", "[", 
    RowBox[{
     SuperscriptBox["x", "n"], " ", "-", " ", "1"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Factor", "[", 
     RowBox[{
      SuperscriptBox["x", "n"], " ", "-", " ", "1"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Factor", "[", 
     RowBox[{
      SuperscriptBox["x", "n"], " ", "-", " ", "1"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}], " ", "//", 
  " ", "TableForm"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "n"], " ", "-", " ", "1"}], ",", 
      RowBox[{"Factor", "[", 
       RowBox[{
        SuperscriptBox["x", "n"], " ", "-", " ", "1"}], "]"}]}], "}"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}], " ", "//", 
  " ", "TableForm"}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", "+", " ", 
      SuperscriptBox["x", "5"]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "n"}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "n"}], "}"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], " ", "+", " ", 
       SuperscriptBox["x", "5"]}], ")"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}], "//", " ", 
  "TableForm"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", " ", 
      RowBox[{
       SubscriptBox["\[PartialD]", 
        RowBox[{"{", 
         RowBox[{"x", ",", "n"}], "}"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sin", "[", "x", "]"}], " ", "+", " ", 
         SuperscriptBox["x", "5"]}], ")"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "0", ",", " ", "6"}], "}"}]}], "]"}], "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{3.39603208820662*^9}]
}, Closed]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  After the practice following you should understand how a product \
is formed.",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.39603431385432*^9, 3.3960343195126553`*^9}, {
  3.396700628304393*^9, 3.396700644061501*^9}, {3.397408295366143*^9, 
  3.39740830383641*^9}, {3.397408359000814*^9, 3.3974083989104567`*^9}, {
  3.427738481256567*^9, 3.427738483863168*^9}},
 AspectRatioFixed->False],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Practice.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
  FontWeight->"Plain"]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 AspectRatioFixed->False],

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

Cell[BoxData[
 RowBox[{"2", " ", "-", " ", "5"}]], "Input"],

Cell[BoxData["23"], "Input",
 CellChangeTimes->{3.3957641327530613`*^9}],

Cell["\<\
Before evaluating the next cell place a space between 2 and 3 and note what \
happens.\
\>", "Subsubsection",
 CellChangeTimes->{{3.395764168854817*^9, 3.395764223807631*^9}}],

Cell[BoxData["23"], "Input",
 CellChangeTimes->{{3.395763843941009*^9, 3.395763864982605*^9}, 
   3.395763963267436*^9, {3.395764009518449*^9, 3.395764013410851*^9}, {
   3.395764249046082*^9, 3.3957642522540073`*^9}, {3.3960336934235363`*^9, 
   3.396033700565638*^9}, 3.426441372842834*^9}],

Cell[BoxData[
 RowBox[{"3", " ", "5"}]], "Input"],

Cell[BoxData["35"], "Input"],

Cell[BoxData[
 FractionBox["3", "15"]], "Input"],

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

Cell[BoxData[
 SuperscriptBox["2", "10"]], "Input"],

Cell[BoxData[
 RadicalBox["1024", "10"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Sin", "[", "1", "]"}], ",", " ", 
   RowBox[{"Sin", "[", "1.0", "]"}]}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", "\[Pi]"], " ", ">", " ", 
  SuperscriptBox["\[Pi]", "\[ExponentialE]"]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"E", "^", "Pi"}], " ", "<", " ", 
  RowBox[{"Pi", "^", "E"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", "\[Pi]"], " ", "==", " ", 
  SuperscriptBox["\[Pi]", "\[ExponentialE]"]}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", "\[Pi]"], " ", "=", " ", 
  SuperscriptBox["\[Pi]", "\[ExponentialE]"]}]], "Input"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "3"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"m", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"1", " ", "/", " ", 
     RowBox[{"(", 
      RowBox[{"i", " ", "+", " ", "j"}], ")"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "3"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", " ", "5"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"m", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 RowBox[{"TableForm", "[", "m", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"m", "//", "MatrixForm"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Exercise",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[" 6",
  FontWeight->"Plain",
  FontColor->RGBColor[1, 0, 1]],
 StyleBox[".",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
  FontWeight->"Plain"]
}], "Subsection",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.395757696633917*^9, 3.3957577084610023`*^9}, 
   3.396630741204714*^9, 3.3985371722592154`*^9},
 AspectRatioFixed->False],

Cell[TextData[{
 "a)\tUse ",
 StyleBox["Plot",
  FontWeight->"Bold"],
 " to plot ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", 
    RowBox[{"3", " "}]], TraditionalForm]]],
 "- 7x - 6 over the domain  -3 \[LessEqual] x \[LessEqual] 4."
}], "Text",
 CellChangeTimes->{{3.395757717928445*^9, 3.395757718737952*^9}}],

Cell[TextData[{
 "b)\tUse ",
 StyleBox["Solve",
  FontWeight->"Bold"],
 " to solve ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", 
    RowBox[{"3", " "}]], TraditionalForm]]],
 "- 7x - 6 = 0."
}], "Text",
 CellChangeTimes->{{3.395757722487986*^9, 3.395757723677432*^9}}],

Cell[TextData[{
 "c)\tUse ",
 StyleBox["FactorInteger",
  FontWeight->"Bold"],
 " to factor some large positive integer.  [Try 969 &  9699690 e.g..]"
}], "Text",
 CellChangeTimes->{{3.3957577269821*^9, 3.395757727917128*^9}, {
  3.396700746506814*^9, 3.396700818190733*^9}, {3.428073736400382*^9, 
  3.42807375225418*^9}}],

Cell[TextData[{
 "d)\tUse ",
 StyleBox["Factor",
  FontWeight->"Bold"],
 " to factor some polynomial."
}], "Text",
 CellChangeTimes->{{3.3957577310057707`*^9, 3.395757731708928*^9}}],

Cell[TextData[{
 "e)\tUse ",
 StyleBox["Table",
  FontWeight->"Bold"],
 " and ",
 StyleBox["D",
  FontWeight->"Bold"],
 " to find the first five derivatives of Log[x + 1].  [Hint :  See Example 15 \
above.]"
}], "Text",
 CellChangeTimes->{3.396701083452701*^9, 3.4280736093398943`*^9}],

Cell[TextData[{
 "f)\tUse ",
 StyleBox["Table",
  FontWeight->"Bold"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[PartialD]", 
     RowBox[{"{", "}"}]], " ", "\[Placeholder]"}], TraditionalForm]]],
 " from the BasicMathInput palette to find the first seven derivatives of \
Log[x+1].  [Hint:  See Example 15 above.]"
}], "Text",
 CellChangeTimes->{{3.395757735110997*^9, 3.395757735709519*^9}, {
   3.3967008868898983`*^9, 3.396700906218206*^9}, {3.3967009491116047`*^9, 
   3.396701026364723*^9}, {3.396701061814765*^9, 3.39670108818477*^9}, 
   3.428073619910512*^9}]
}, Closed]],

Cell[TextData[{
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Note.",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["  Help -> Documentation Center.  Click on and examine a couple of \
examples from ",
  FontWeight->"Plain"],
 StyleBox["The Wolfram Demonstrations Project",
  FontWeight->"Plain",
  FontColor->RGBColor[0.6, 0.4, 0.2]],
 StyleBox[" ",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0.6, 0.4, 0.2]],
 StyleBox["found on the lower right of the ",
  FontWeight->"Plain",
  FontColor->GrayLevel[0]],
 StyleBox["Documentation Center",
  FontWeight->"Plain"],
 StyleBox[" page.  ",
  FontWeight->"Plain",
  FontColor->GrayLevel[0]]
}], "Section",
 CellMargins->{{Inherited, 54}, {Inherited, Inherited}},
 Evaluatable->False,
 CellChangeTimes->{{3.3955955253734617`*^9, 3.395595571124893*^9}, {
  3.395595613804294*^9, 3.395595667551486*^9}, {3.3955964314662113`*^9, 
  3.3955964755862007`*^9}, {3.395596515699048*^9, 3.395596560959416*^9}, {
  3.395598978159837*^9, 3.395598998735784*^9}, {3.395600083596201*^9, 
  3.3956001112087593`*^9}, {3.395753814299395*^9, 3.395753849593258*^9}, {
  3.395757582239196*^9, 3.3957576457086287`*^9}, {3.3960322816921873`*^9, 
  3.396032283867331*^9}},
 AspectRatioFixed->False]
},
WindowToolbars->"EditBar",
CellGrouping->Manual,
WindowSize->{874, 746},
WindowMargins->{{60, Automatic}, {19, Automatic}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}},
ShowSelection->True,
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
CharacterEncoding->"MacintoshAutomaticEncoding",
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 110, 3, 46, "Subtitle",
 Evaluatable->False],
Cell[681, 26, 317, 6, 49, "Subsection"],
Cell[1001, 34, 848, 18, 235, "Section",
 Evaluatable->False],
Cell[1852, 54, 2001, 47, 279, "Section",
 Evaluatable->False],
Cell[3856, 103, 1688, 38, 194, "Section",
 Evaluatable->False],
Cell[5547, 143, 193, 4, 24, "Input"],
Cell[5743, 149, 1151, 23, 199, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[6919, 176, 349, 11, 37, "Section",
 Evaluatable->False],
Cell[7271, 189, 113, 2, 27, "Input"],
Cell[7387, 193, 70, 2, 27, "Input"],
Cell[7460, 197, 73, 2, 27, "Input"]
}, Closed]],
Cell[7548, 202, 347, 7, 59, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[7920, 213, 772, 20, 103, "Section",
 Evaluatable->False],
Cell[8695, 235, 214, 3, 27, "Input"]
}, Closed]],
Cell[8924, 241, 441, 11, 81, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[9390, 256, 369, 10, 37, "Section",
 Evaluatable->False],
Cell[9762, 268, 147, 4, 47, "Input"],
Cell[9912, 274, 219, 7, 49, "Input"],
Cell[10134, 283, 40, 1, 32, "Input"],
Cell[10177, 286, 230, 8, 38, "Input"],
Cell[10410, 296, 166, 5, 33, "Input"],
Cell[10579, 303, 51, 1, 30, "Input"],
Cell[10633, 306, 270, 5, 27, "Input"],
Cell[10906, 313, 47, 1, 36, "Input"]
}, Closed]],
Cell[10968, 317, 676, 18, 56, "Subsection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[11669, 339, 357, 10, 37, "Section",
 Evaluatable->False],
Cell[12029, 351, 49, 1, 27, "Input"],
Cell[12081, 354, 56, 1, 27, "Input"],
Cell[12140, 357, 74, 1, 27, "Input"],
Cell[12217, 360, 89, 2, 30, "Input"],
Cell[12309, 364, 181, 3, 27, "Input"],
Cell[12493, 369, 117, 2, 27, "Input"],
Cell[12613, 373, 62, 1, 27, "Input"],
Cell[12678, 376, 62, 1, 27, "Input"],
Cell[12743, 379, 116, 2, 27, "Input"],
Cell[12862, 383, 124, 2, 27, "Input"],
Cell[12989, 387, 151, 3, 27, "Input"]
}, Closed]],
Cell[13155, 393, 459, 13, 41, "Subsection",
 Evaluatable->False],
Cell[13617, 408, 825, 21, 59, "Section",
 Evaluatable->False],
Cell[14445, 431, 110, 2, 21, "Input"],
Cell[CellGroupData[{
Cell[14580, 437, 270, 9, 67, "Section",
 Evaluatable->False],
Cell[14853, 448, 239, 7, 30, "Input"],
Cell[15095, 457, 84, 2, 27, "Input"],
Cell[15182, 461, 59, 1, 27, "Input"],
Cell[15244, 464, 249, 6, 33, "Input"],
Cell[15496, 472, 428, 12, 33, "Input"],
Cell[15927, 486, 84, 2, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[16048, 493, 365, 10, 59, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[16438, 507, 352, 16, 46, "Subsection"],
Cell[16793, 525, 344, 13, 47, "Input"],
Cell[17140, 540, 390, 14, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17567, 559, 480, 19, 65, "Subsection",
 Evaluatable->False],
Cell[18050, 580, 137, 5, 64, "Input"],
Cell[18190, 587, 213, 8, 64, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18440, 600, 659, 27, 71, "Subsection",
 Evaluatable->False],
Cell[19102, 629, 296, 11, 64, "Input"],
Cell[19401, 642, 362, 13, 64, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19800, 660, 305, 11, 37, "Subsection",
 Evaluatable->False],
Cell[20108, 673, 107, 3, 30, "Input"],
Cell[20218, 678, 142, 4, 33, "Input"],
Cell[20363, 684, 472, 15, 33, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20872, 704, 657, 28, 38, "Subsection",
 Evaluatable->False],
Cell[21532, 734, 73, 2, 30, "Input"],
Cell[21608, 738, 107, 3, 33, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21752, 746, 487, 18, 43, "Subsection",
 Evaluatable->False],
Cell[22242, 766, 311, 11, 35, "Input"],
Cell[22556, 779, 348, 12, 35, "Input"],
Cell[22907, 793, 350, 12, 35, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23306, 811, 358, 10, 37, "Section",
 Evaluatable->False],
Cell[23667, 823, 735, 18, 49, "Subsection",
 Evaluatable->False],
Cell[24405, 843, 538, 17, 63, "Input"],
Cell[24946, 862, 87, 2, 27, "Input"],
Cell[25036, 866, 90, 2, 27, "Input"],
Cell[25129, 870, 64, 1, 27, "Input"],
Cell[25196, 873, 64, 1, 27, "Input"],
Cell[25263, 876, 61, 1, 27, "Input"],
Cell[25327, 879, 62, 1, 27, "Input"]
}, Closed]],
Cell[25404, 883, 855, 24, 59, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[26284, 911, 762, 22, 37, "Section",
 Evaluatable->False],
Cell[27049, 935, 125, 2, 27, "Input"],
Cell[27177, 939, 357, 9, 45, "Input"],
Cell[27537, 950, 629, 17, 58, "Subsection",
 Evaluatable->False],
Cell[28169, 969, 303, 5, 21, "Input"],
Cell[28475, 976, 177, 4, 45, "Input"],
Cell[28655, 982, 442, 13, 34, "Subsection",
 Evaluatable->False],
Cell[29100, 997, 114, 2, 21, "Input"],
Cell[29217, 1001, 210, 4, 33, "Input"],
Cell[29430, 1007, 402, 7, 34, "Subsection",
 Evaluatable->False],
Cell[29835, 1016, 122, 2, 21, "Input"],
Cell[29960, 1020, 426, 8, 34, "Subsection",
 Evaluatable->False],
Cell[30389, 1030, 202, 4, 21, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[30628, 1039, 1079, 23, 257, "Section",
 Evaluatable->False],
Cell[31710, 1064, 822, 25, 64, "Subsection",
 Evaluatable->False],
Cell[32535, 1091, 209, 5, 21, "Input"],
Cell[32747, 1098, 279, 7, 30, "Input"],
Cell[33029, 1107, 261, 7, 27, "Input"],
Cell[33293, 1116, 278, 7, 30, "Input"],
Cell[33574, 1125, 259, 7, 27, "Input"],
Cell[33836, 1134, 162, 4, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[34035, 1143, 338, 10, 37, "Section",
 Evaluatable->False],
Cell[34376, 1155, 228, 7, 46, "Input"],
Cell[34607, 1164, 321, 10, 46, "Input"],
Cell[34931, 1176, 202, 6, 46, "Input"],
Cell[35136, 1184, 58, 1, 27, "Input"],
Cell[35197, 1187, 189, 6, 27, "Input"],
Cell[35389, 1195, 109, 3, 27, "Input"],
Cell[35501, 1200, 72, 2, 27, "Input"],
Cell[35576, 1204, 135, 4, 44, "Input"],
Cell[35714, 1210, 167, 5, 48, "Input"]
}, Closed]],
Cell[35896, 1218, 560, 15, 41, "Subsection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[36481, 1237, 412, 12, 37, "Section",
 Evaluatable->False],
Cell[36896, 1251, 357, 10, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[37290, 1266, 335, 10, 37, "Section",
 Evaluatable->False],
Cell[37628, 1278, 48, 1, 27, "Input"],
Cell[37679, 1281, 182, 6, 27, "Input"],
Cell[37864, 1289, 223, 7, 33, "Input"],
Cell[38090, 1298, 341, 11, 27, "Input"],
Cell[38434, 1311, 260, 8, 33, "Input"],
Cell[38697, 1321, 260, 8, 33, "Input"]
}, Closed]],
Cell[38972, 1332, 517, 16, 26, "Subsection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[39514, 1352, 526, 17, 37, "Section",
 Evaluatable->False],
Cell[40043, 1371, 313, 9, 33, "Input"],
Cell[40359, 1382, 219, 7, 33, "Input"],
Cell[40581, 1391, 318, 10, 27, "Input"],
Cell[40902, 1403, 365, 11, 27, "Input"]
}, Closed]],
Cell[41282, 1417, 807, 25, 45, "Subsection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[42114, 1446, 944, 23, 81, "Section",
 Evaluatable->False],
Cell[43061, 1471, 164, 3, 27, "Input"],
Cell[43228, 1476, 202, 5, 27, "Input"],
Cell[43433, 1483, 179, 4, 27, "Input"],
Cell[43615, 1489, 69, 1, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[43721, 1495, 415, 12, 37, "Section",
 Evaluatable->False],
Cell[44139, 1509, 246, 8, 43, "Input"],
Cell[44388, 1519, 56, 1, 27, "Input"],
Cell[44447, 1522, 146, 4, 27, "Input"],
Cell[44596, 1528, 97, 2, 27, "Input"],
Cell[44696, 1532, 63, 1, 27, "Input"],
Cell[44762, 1535, 54, 1, 27, "Input"],
Cell[44819, 1538, 56, 1, 27, "Input"],
Cell[44878, 1541, 61, 1, 27, "Input"],
Cell[44942, 1544, 59, 1, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[45038, 1550, 565, 17, 59, "Section",
 Evaluatable->False],
Cell[45606, 1569, 228, 7, 33, "Input"],
Cell[45837, 1578, 49, 1, 27, "Input"],
Cell[45889, 1581, 229, 7, 33, "Input"],
Cell[46121, 1590, 304, 9, 27, "Input"],
Cell[46428, 1601, 156, 5, 27, "Input"],
Cell[46587, 1608, 157, 5, 27, "Input"],
Cell[46747, 1615, 51, 1, 27, "Input"],
Cell[46801, 1618, 210, 6, 27, "Input"],
Cell[47014, 1626, 331, 9, 43, "Input"],
Cell[47348, 1637, 125, 4, 27, "Input"],
Cell[47476, 1643, 124, 4, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[47637, 1652, 336, 10, 37, "Section",
 Evaluatable->False],
Cell[47976, 1664, 238, 7, 44, "Input"],
Cell[48217, 1673, 270, 8, 48, "Input"],
Cell[48490, 1683, 174, 5, 33, "Input"],
Cell[48667, 1690, 228, 7, 33, "Input"],
Cell[48898, 1699, 196, 6, 33, "Input"],
Cell[49097, 1707, 228, 7, 33, "Input"],
Cell[49328, 1716, 245, 8, 33, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[49610, 1729, 327, 10, 37, "Section",
 Evaluatable->False],
Cell[49940, 1741, 96, 2, 27, "Input"],
Cell[50039, 1745, 149, 5, 30, "Input"],
Cell[50191, 1752, 154, 4, 44, "Input"],
Cell[50348, 1758, 109, 3, 32, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[50494, 1766, 423, 16, 37, "Section",
 Evaluatable->False],
Cell[50920, 1784, 215, 6, 33, "Input"],
Cell[51138, 1792, 251, 7, 33, "Input"],
Cell[51392, 1801, 296, 9, 33, "Input"],
Cell[51691, 1812, 302, 9, 33, "Input"],
Cell[51996, 1823, 430, 14, 33, "Input"],
Cell[52429, 1839, 370, 11, 33, "Input"],
Cell[52802, 1852, 445, 14, 33, "Input"],
Cell[53250, 1868, 553, 17, 33, "Input"]
}, Closed]],
Cell[53818, 1888, 691, 18, 59, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[54534, 1910, 251, 9, 37, "Section",
 Evaluatable->False],
Cell[54788, 1921, 59, 1, 27, "Input"],
Cell[54850, 1924, 59, 1, 27, "Input"],
Cell[54912, 1927, 72, 1, 27, "Input"],
Cell[54987, 1930, 185, 4, 25, "Subsubsection"],
Cell[55175, 1936, 292, 4, 21, "Input"],
Cell[55470, 1942, 49, 1, 27, "Input"],
Cell[55522, 1945, 28, 0, 27, "Input"],
Cell[55553, 1947, 48, 1, 47, "Input"],
Cell[55604, 1950, 175, 4, 27, "Input"],
Cell[55782, 1956, 51, 1, 30, "Input"],
Cell[55836, 1959, 50, 1, 36, "Input"],
Cell[55889, 1962, 141, 4, 27, "Input"],
Cell[56033, 1968, 143, 3, 29, "Input"],
Cell[56179, 1973, 107, 3, 27, "Input"],
Cell[56289, 1978, 144, 3, 29, "Input"],
Cell[56436, 1983, 143, 3, 29, "Input"],
Cell[56582, 1988, 180, 5, 27, "Input"],
Cell[56765, 1995, 370, 10, 27, "Input"],
Cell[57138, 2007, 58, 1, 27, "Input"],
Cell[57199, 2010, 62, 1, 27, "Input"],
Cell[57264, 2013, 59, 1, 27, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[57360, 2019, 491, 16, 26, "Subsection",
 Evaluatable->False],
Cell[57854, 2037, 319, 11, 29, "Text"],
Cell[58176, 2050, 275, 11, 29, "Text"],
Cell[58454, 2063, 322, 8, 26, "Text"],
Cell[58779, 2073, 182, 6, 26, "Text"],
Cell[58964, 2081, 285, 10, 26, "Text"],
Cell[59252, 2093, 594, 16, 28, "Text"]
}, Closed]],
Cell[59861, 2112, 1335, 36, 81, "Section",
 Evaluatable->False]
}
]
*)

(* End of internal cache information *)