(* 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[   1132003,      27454]
NotebookOptionsPosition[   1069044,      25747]
NotebookOutlinePosition[   1070225,      25786]
CellTagsIndexPosition[   1070182,      25783]
WindowFrame->Generic
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox["SCCC ",
  CellFrame->3],
 StyleBox["Mathematica",
  CellFrame->3,
  FontSlant->"Italic"],
 StyleBox[" Tutorial",
  CellFrame->3]
}], "Text",
 CellFrame->0.5,
 CellChangeTimes->{{3.393694500438837*^9, 3.3936945105133233`*^9}, {
   3.3937033788464656`*^9, 3.3937033792270126`*^9}, {3.39429114332375*^9, 
   3.39429115913625*^9}, {3.394326962276875*^9, 3.394326979995625*^9}, 
   3.394494211651875*^9},
 FontFamily->"Comic Sans MS",
 FontSize->24,
 Background->RGBColor[0.6666666666666666, 0.8431372549019608, 1.]],

Cell[TextData[{
 StyleBox["SCCC ",
  FontSize->9,
  FontColor->GrayLevel[0.5]],
 StyleBox["Mathematica",
  FontSize->9,
  FontSlant->"Italic",
  FontColor->GrayLevel[0.5]],
 StyleBox[" Tutorial, \[Copyright] 2007, Seattle Central Community College \
Math Dept., contact: Mike Pepe at mdpepe@gmail.com\nVersion 1.2/ Winter, \
2008",
  FontSize->9,
  FontColor->GrayLevel[0.5]]
}], "Text",
 Editable->False,
 Deletable->False,
 CellChangeTimes->{{3.393694805056856*^9, 3.3936948436723824`*^9}, {
  3.393703204405632*^9, 3.3937032115258703`*^9}, {3.393703401819499*^9, 
  3.393703414627917*^9}, {3.394290864495625*^9, 3.394290886026875*^9}, {
  3.394291021995625*^9, 3.394291025714375*^9}, {3.39432690732375*^9, 
  3.394326941214375*^9}, {3.39432698538625*^9, 3.39432701173*^9}, {
  3.3969686842884693`*^9, 3.3969687035697193`*^9}, {3.399040915296875*^9, 
  3.39904091553125*^9}, {3.399557728890625*^9, 3.399557860234375*^9}, {
  3.39955791925*^9, 3.39955792971875*^9}, {3.39955798521875*^9, 
  3.39955799546875*^9}, {3.399755205875*^9, 3.399755252703125*^9}},
 TextAlignment->Right,
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell["\t\t\tIntroduction", "Section",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936948695095344`*^9, 3.3936948718929615`*^9}, {
  3.3962873666558685`*^9, 3.3962873705222874`*^9}, {3.396319889765625*^9, 
  3.396319893125*^9}, {3.39637949125*^9, 3.396379498171875*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->16,
 FontWeight->"Plain",
 Background->RGBColor[
  0.6901960784313725, 0.8235294117647058, 0.7019607843137254]],

Cell[TextData[{
 StyleBox["Purpose",
  FontWeight->"Bold"],
 "\nThis tutorial has been designed by the Mathematics Department at Seattle \
Central Community College to provide you with a complete, hands-on \
introduction to the basic commands that you will need to use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " effectively in your math and science classes.  The six lessons of the \
tutorial will step you through each topic with many opportunities for you to \
practice and experiment with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  It is expected that you will be able to work through the tutorial on \
your own with minimal help in a relatively short time. "
}], "Text",
 CellChangeTimes->{{3.3936948796040497`*^9, 3.3936949916151133`*^9}, {
   3.394290517683125*^9, 3.3942907001675*^9}, {3.3942921521675*^9, 
   3.394292186089375*^9}, 3.394293931839375*^9, {3.394295257026875*^9, 
   3.39429529032375*^9}, {3.394540217870625*^9, 3.394540981433125*^9}, {
   3.394541033089375*^9, 3.3945410534175*^9}, {3.394541085808125*^9, 
   3.394541507870625*^9}, {3.394541560276875*^9, 3.39454161182375*^9}, {
   3.394541720776875*^9, 3.394541877355*^9}, {3.3945420070425*^9, 
   3.394542075776875*^9}, 3.39454286748*^9, {3.39454290248*^9, 
   3.394542991605*^9}, {3.39454302373*^9, 3.39454313713625*^9}, {
   3.394543183605*^9, 3.394543184605*^9}, 3.394544243355*^9, {
   3.39463656560425*^9, 3.3946365885105*^9}, {3.394636632963625*^9, 
   3.394636637901125*^9}, {3.39463673279175*^9, 3.394636819151125*^9}, {
   3.394636903619875*^9, 3.394637064948*^9}, 3.3948845872053747`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Mathematical Level Required",
  FontWeight->"Bold"],
 "\nThe tutorial was developed to provide a thorough and efficient \
introduction to ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "for students about to enter a Calculus course. Therefore the tutorial only \
assumes familiarity with mathematics at the Precalculus level."
}], "Text",
 CellChangeTimes->{{3.3936948796040497`*^9, 3.3936949916151133`*^9}, {
   3.394290517683125*^9, 3.3942907001675*^9}, {3.3942921521675*^9, 
   3.394292186089375*^9}, 3.394293931839375*^9, {3.394295257026875*^9, 
   3.39429529032375*^9}, {3.394540217870625*^9, 3.394540981433125*^9}, {
   3.394541033089375*^9, 3.3945410534175*^9}, {3.394541085808125*^9, 
   3.394541507870625*^9}, {3.394541560276875*^9, 3.39454161182375*^9}, {
   3.394541720776875*^9, 3.394541877355*^9}, {3.3945420070425*^9, 
   3.394542075776875*^9}, 3.39454286748*^9, {3.39454290248*^9, 
   3.394542991605*^9}, {3.39454302373*^9, 3.39454313713625*^9}, {
   3.394543183605*^9, 3.394543184605*^9}, 3.394544243355*^9, {
   3.39463656560425*^9, 3.3946365885105*^9}, {3.394636632963625*^9, 
   3.394636637901125*^9}, {3.39463673279175*^9, 3.394636819151125*^9}, {
   3.394636903619875*^9, 3.394637064948*^9}, {3.3948845872053747`*^9, 
   3.3948845944553747`*^9}, 3.39594427929*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Structure",
  FontWeight->"Bold"],
 "\nThe tutorial is divided into six lessons. Each lesson is divided further \
into subsections devoted to specific topics and corresponding ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands. Following most subsections there is a set of exercises. These \
are short practice problems based on the material from the section.  Answers \
are provided for all exercises so that you can check your work. \n\nThe first \
lesson covers the material that is typically presented during the \
introductory lecture in the first class session of CSC 102Q.  Subsequent \
lessons cover the basic commands relating to numerical calculation, algebra, \
functions, graphing and solving equations.  Everything that you will need to \
use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " in your math class is covered. "
}], "Text",
 CellChangeTimes->{{3.3936948796040497`*^9, 3.3936949916151133`*^9}, {
   3.394290517683125*^9, 3.3942907001675*^9}, {3.3942921521675*^9, 
   3.394292186089375*^9}, 3.394293931839375*^9, {3.394295257026875*^9, 
   3.39429529032375*^9}, {3.394540217870625*^9, 3.394540981433125*^9}, {
   3.394541033089375*^9, 3.3945410534175*^9}, {3.394541085808125*^9, 
   3.394541507870625*^9}, {3.394541560276875*^9, 3.39454161182375*^9}, {
   3.394541720776875*^9, 3.394541877355*^9}, {3.3945420070425*^9, 
   3.394542075776875*^9}, 3.39454286748*^9, {3.39454290248*^9, 
   3.394542991605*^9}, {3.39454302373*^9, 3.39454313713625*^9}, {
   3.394543183605*^9, 3.394543184605*^9}, 3.394544243355*^9, {
   3.39463656560425*^9, 3.3946365885105*^9}, {3.394636632963625*^9, 
   3.394636637901125*^9}, {3.39463673279175*^9, 3.394636819151125*^9}, {
   3.394636903619875*^9, 3.394637064948*^9}, {3.3948845872053747`*^9, 
   3.3948846098616247`*^9}, {3.39653484665625*^9, 3.396534859625*^9}, {
   3.397595444140625*^9, 3.397595526578125*^9}, {3.39760307409375*^9, 
   3.39760309140625*^9}, {3.397603135734375*^9, 3.397603137515625*^9}, {
   3.397603223125*^9, 3.397603290953125*^9}, {3.397603335640625*^9, 
   3.397603408265625*^9}, {3.397603443421875*^9, 3.39760344771875*^9}, {
   3.397675487859375*^9, 3.397675490578125*^9}, 3.397676437*^9, {
   3.3978378761875*^9, 3.397837911265625*^9}, {3.400074009109375*^9, 
   3.400074022046875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Format",
  FontWeight->"Bold"],
 "\nThis tutorial has been specially formatted to aid the new user in \
learning ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  Here are some things to be aware of.\n\n1. Math input and output cells \
appear as red and blue boxes respectively (as shown below). This is \
nonstandard for ",
 StyleBox["Mathematica,",
  FontSlant->"Italic"],
 " but should help you keep track of your work as you proceed through the \
tutorial.  "
}], "Text",
 CellChangeTimes->{{3.3936948796040497`*^9, 3.3936949916151133`*^9}, {
   3.394290517683125*^9, 3.3942907001675*^9}, {3.3942921521675*^9, 
   3.394292186089375*^9}, 3.394293931839375*^9, {3.394295257026875*^9, 
   3.39429529032375*^9}, {3.394540217870625*^9, 3.394540981433125*^9}, {
   3.394541033089375*^9, 3.3945410534175*^9}, {3.394541085808125*^9, 
   3.394541507870625*^9}, {3.394541560276875*^9, 3.39454161182375*^9}, {
   3.394541720776875*^9, 3.394541877355*^9}, {3.3945420070425*^9, 
   3.394542075776875*^9}, 3.39454286748*^9, {3.39454290248*^9, 
   3.394542991605*^9}, {3.39454302373*^9, 3.39454313713625*^9}, {
   3.394543183605*^9, 3.394543184605*^9}, 3.394544243355*^9, {
   3.39463656560425*^9, 3.3946365885105*^9}, {3.394636632963625*^9, 
   3.394636637901125*^9}, {3.39463673279175*^9, 3.394636819151125*^9}, {
   3.394636903619875*^9, 3.394637064948*^9}, {3.3948845872053747`*^9, 
   3.3948846126584997`*^9}, 3.39767545653125*^9, 3.4001835578125*^9},
 FontFamily->"Comic Sans MS"],

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

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

Cell[TextData[{
 "2. The tutorial opens at 125 % magnification. You can change the \
magnification to suit your needs by clicking on the bottom right of the \
screen. \n3. The tutorial lessons are presented in a collapsible outline \
form. The triangle icon ",
 StyleBox["\[RightPointer]",
  FontSize->24,
  FontColor->GrayLevel[0.5]],
 " at the left will toggle each section open or  closed. You have the option \
of opening all the sections at once if you prefer to work on the tutorial \
this way. Likewise, you can collapse all of the sections of the tutorial in \
one step. Instructions on both of these operations are given below.  \n\nTo \
",
 StyleBox["open",
  FontVariations->{"Underline"->True}],
 " all subsections: \n\ta.  Choose Edit from the Menu and then Select All\n\t\
b.  Choose Cell, then Grouping, then Open All Subgroups\nTo ",
 StyleBox["close",
  FontVariations->{"Underline"->True}],
 " all subsections: \n\ta.  Choose Edit from the Menu and then Select All  \n\
\tb.  Choose Cell, then Grouping, then Close All Subgroups\t"
}], "Text",
 CellChangeTimes->{{3.3936948796040497`*^9, 3.3936949916151133`*^9}, {
   3.394290517683125*^9, 3.3942907001675*^9}, {3.3942921521675*^9, 
   3.394292186089375*^9}, 3.394293931839375*^9, {3.394295257026875*^9, 
   3.39429529032375*^9}, {3.394540217870625*^9, 3.394540981433125*^9}, {
   3.394541033089375*^9, 3.3945410534175*^9}, {3.394541085808125*^9, 
   3.394541507870625*^9}, {3.394541560276875*^9, 3.39454161182375*^9}, {
   3.394541720776875*^9, 3.39454184063625*^9}, {3.3945419877925*^9, 
   3.394541996026875*^9}, {3.39454209001125*^9, 3.39454228469875*^9}, {
   3.394542361605*^9, 3.39454238573*^9}, {3.394542479558125*^9, 
   3.394542703058125*^9}, {3.39454273394875*^9, 3.394542735589375*^9}, {
   3.39454276707375*^9, 3.39454282451125*^9}, 3.394543201370625*^9, {
   3.39454324019875*^9, 3.39454324457375*^9}, {3.39653746509375*^9, 
   3.396537490796875*^9}, 3.396537552203125*^9, {3.3969681944290943`*^9, 
   3.3969681954759693`*^9}, 3.3994857621875*^9, {3.399485847953125*^9, 
   3.399485849265625*^9}},
 FontFamily->"Comic Sans MS"],

Cell["\<\
4. Note that we have suppressed the numbering of math input and output cells \
in this worksheet. You will learn how to do this later in the tutorial. \
\>", "Text",
 CellChangeTimes->{{3.3936948796040497`*^9, 3.3936949916151133`*^9}, {
   3.394290517683125*^9, 3.3942907001675*^9}, {3.3942921521675*^9, 
   3.394292186089375*^9}, 3.394293931839375*^9, {3.394295257026875*^9, 
   3.39429529032375*^9}, {3.394540217870625*^9, 3.394540981433125*^9}, {
   3.394541033089375*^9, 3.3945410534175*^9}, {3.394541085808125*^9, 
   3.394541507870625*^9}, {3.394541560276875*^9, 3.39454161182375*^9}, {
   3.394541720776875*^9, 3.39454184063625*^9}, {3.3945419877925*^9, 
   3.394541996026875*^9}, {3.39454209001125*^9, 3.39454228469875*^9}, {
   3.394542361605*^9, 3.39454238573*^9}, {3.394542479558125*^9, 
   3.394542703058125*^9}, {3.39454273394875*^9, 3.394542735589375*^9}, {
   3.39454276707375*^9, 3.39454282451125*^9}, 3.394543201370625*^9, {
   3.39454324019875*^9, 3.39454324457375*^9}, {3.39653746509375*^9, 
   3.396537490796875*^9}, 3.396537552203125*^9, {3.3969681944290943`*^9, 
   3.3969681954759693`*^9}, 3.3994857621875*^9, 3.399485853640625*^9},
 FontFamily->"Comic Sans MS"],

Cell["\<\
5. When you get started doing calculations in the tutorial the following \
screen will pop up. Click Yes. \
\>", "Text",
 CellChangeTimes->{{3.399485624875*^9, 3.3994856739375*^9}, {
   3.399485715875*^9, 3.39948572103125*^9}, 3.39948606434375*^9, 
   3.399486286359375*^9}],

Cell[GraphicsData["CompressedBitmap", "\<\
eJzsfQmYXUWx/8mdTDJZZxIgM2HJJEAIewhZSIBASNiRfRFEBISniPpEUfH9
eY8oIoKIK/qA99yfiOICKiooO9lnn7n7fvZ9vefud/r/63MmiJhoIsHl+4Cb
un2qu6uruquqq8450/fCGz9+y799+MaPf+CmGxee87Ebb7vlAzfdvvDsj3wM
qLZJDDPpYYZhvtTDoExQCv/NJM1YzcmQJqn5hJQIqTVJnZAWLdoBokFIhNQI
09ZEJWmMkwZDCKlvxD+mA5WST8wWqaCqRmq1CiEWek9CN9CfSYhBxkm5SmSV
jNdJw6c0HJdo6EcotFskUquCuj2OjsRtEYb4DbIR/5gOt0l5QI3jE0Mn46BU
1k3FnkT5YZjZtRrRbbLfwv9k5n6qrfOmthmXM1PO6VnyIab3Q8zCjzKLPjRp
wYc65n+048DbIkzvLUzb5IM+OHX+R/BhFgP0TOn59w58d0x8d+G7a+K75w31
n5rAL6WdO6Ye+IHOw26Z2v3ejtm3HXjQh30IPU4whRNSz7FrxGgSZt4Dkw99
bP7K7+9/zH3t3R+YeshtzKKNzGH3MIcDbpy04J5JC+5mDvsvWl74BWbJ5AUP
9rQd8sUOfHdMfHfhu2viu+cN9Z+awC/FN9Mxufc+pucTUw68s7PnQSZyUxWL
2Aw4KjvBOujjRBgnzOJvM0t+vv9pP1lz3a/WXfv948/70tGXfO/wy350+OXf
W3LZ9yLHXvwDpu3Iy76N8mHn/JAhh5/9k434x3QsPusnS875yczDv9az+Idz
53/GqxPDaY3TVW4G8lrBak5f+fjKW+Qjrnr2ZZmMKCSukH6JbFPIFpVsU8mQ
SIZF0q+Q7SrpkwmzpE8iPf0y6cB3x8R3F767Jr573lD/qQn8UnwzHdsl8vsM
WXLW00zHfXMO/pzXJGCKcuTZAUfNQG3mrfnOidfHDr/wO8MGyYs1WfR4kRRF
UpBbRbkqC2VF8GTREWSnqDoMKWjORvxjOpIq5bL75O9PPeQbk+fe7hJSppMJ
eVsBdUKqpRbpXh1S/9aYQURBdYWsy6kWZ+iiaIlFn89UuFSZT3lCwlSiDNG0
0Y34x3QUNKtPJwec+j9TF3ylbf9/dyj11jilPj5BveW0yJzVPzvuer73oscH
TSKKcplPlFneZ2WXL7pCpsJH69xokx2t8aOuNMwQSxneiH9MB6vqfQY5YO1D
U3vvbzvg/QHvtT9SB6wbhMw8+ZdH3Kj1XPrEdoewCutJw2Uu73OcJWYtOeZJ
g2WxryIMloVhWx421WFTGX0bvg3/1SHDPPzPwMbbcM8hq6l9Jule+6WpC++Z
fMBN8GcVUiWv+WIaTiiEtJ/2i4Pfp82+6okXyyRtpk1tqy0lTCkr6QnBHJXN
7ZqxVdf6dXVY1qOSHgP+bfg2/FeH8Gf/DGy8DfccZg2D+rPTHuxYeE/7/v9G
My78P74zlkZJ16k/e+rg9xkzr/rZCxWStFKmvsmWYvBnvJEqWlHW7hesPlkf
lbWYrCUkLSVrqbfh2/BfHVJ/9k/Axttwz2FOc+DPetZ+aVrv56bu936fkDry
cHovpB74M9JSKy3SufrXh9/g7nfZU5s9wqppX96K5NjjOFnhWCPLm/CMMUXJ
anLelDOmnLDkxNvwbfivDmm++U/AxttwzyEvOwM66Tn1a9MW3D917gcr46TZ
gk8jE/ec55CmVW2Q/U765dHvsedf/NR2m3By0Zf6ylwG/kyROUktympWUTOK
ktflvCWlmKVIRpmZlhwDfVzbYsYVMq6Y8MSoK43a8rAtj6LWlFNtcH8RNFln
iylmBi40hX4siTZHW1ca9qRhWhApJSaiKymmLaCZooP0AiyifTuAQy+EjKZU
BAR5DIIgMuKKMaadUhMyYIQ2g56egH5d6EfHZmbbYtYS8zrtmEcXV4rS7hL4
jXlCIug10XEhsAvDfpnJGIZpB88oh+xgFIaOF6GsdQiyM6SR+ad8bcYhD3TM
+XfsCs0mfbywc2bHScMeJ/utfuL494i9Fz7Rb5G8KprqcLA0mIVgd5DoBqGp
CUWL6UqCOR6LxtyoKzGk9QiG0cISOJcvekLKl/pddbMqvqjr2007Iapps6Ty
CpvJx0ybk8GgXjCUrCqmNCkt8wmhGNXljCIkd4kXijFDyYls3DFYSytIXMLW
i7qc9SyeL0SBzKUGS7aANoqQCmHYQBXTmpSR+SSa4XL3eDouBnptXL4wFl46
RtFUc0CG7Iks5UTFErnKmJjifEXXeVdJ2cKWurOVeDuU3PNlI+NY3HB+qGBm
dTWHBWF66Mp2GUJC5+N1VxBzw2WzqLJRXLpq1gFFNi7mRssm56p5U0w3PFnK
j3XbcpaZaylZzILriuiWzmY8r8XynKqPSdImSxn11YTJDTpCXC/mS7oKzZcC
Xe7FiF22nO7cSUNVc4VCTOE41/bjOVk27LKVkQqvamrU0pNucdDn4iqbt0wV
Kq8ENDop1/uDWbBsiklHyfhGQcgOKcUxUAbjYB9CQJSwDS4hIkSpuxKXHqo5
YgSyMG2+wcqFKGVkHgXdlpzTFTZfSPEiZ3pWMp+VTdW0tUIhgVmGxoVqb8tU
82FjrGIN6eTgUx6ccciDHV0fqzRJvUWYyMTzgCohyNn2W/2Tpe8pLHrH4wMm
yamyoo1qagyqCmGwwK6Qh+FAVEUfBp45nqrvPKixYA4LRhTOwhR5l+d8PgNv
4qqbSu42rzKS5vrSQmYkk+YMs6AqsqMLmiTpmDwlzxfAekTUJGYKMOJu8JKm
1lpNWdeGo2OaZUYERWZmq6aRzGZ4WcLHr1WjyYTjl4oCn87n0FIxdDTAJZAR
XDNTcLlrvKVhRMVUUSiKrFN2I7gO8CEzqCoIRatkR3DNzFV1xTJ1UVeHdSHh
6YZrYpVIJSamfy5lfl6zdki5QVXjhsSURaq8kIUPEqViNyezTBevcKImFIS8
oPKmZ8iGZLg6J/MQsFyvGY6d59hssVDgOfAJSbshGzOX9oJyGyyvCKrrjyRk
SXf9Rl7SX7W0EUsaM9i+usOW0UExcsWYU5Xh0HsxYie6Mm3oFk4TM2uCnqC7
cpHPaoqeLxq8QxKspgrDrt6nGDFZjTqFAWKynmGpGqXnVSi9TipBD1iGBFk2
k8onM8W0aile1cUoqIQoqIVYEA4iohkGghxYLciHKbdLHieJENEt+4Fk3Whg
2gZWmzf0lChKbinB8zmJl6AiShaOEdpLfb4cNZWYpqSKqjVkQIcfmHkwdPh2
v0VqgQ6Pvzkd7la0qGAOQo0RwJsi9b7QYU8atNWtqrqVl/vL416SE+w6qWCM
MikYZblGxCrhfJKz6dMoGalCRKgQ6OufVVB8hC0Rpl0fJ0A5ATZrNZgIikx7
2BxFvkxoswA7RWnQVuhacMctQtQmiYD0HuGbr8PPBxLfIJ13GiYhaIbx1ArJ
YY93KhohuUpDhzUYkq30t7xBg3+OkKLOJ6Ho+bKd8618MVMul7UmwYJhpju4
FlHQrUpEQpIeGTMbuCw2SAQoZkq+RoTgubhMUNVCVdBrrtKiz95ZOVMQ2Roh
fp3wmpNkt4jqJkMeIVXJVaP5xNZiIgvfquic2XCUcXLazr5axWuQeq3aktWy
UScaZJBHy86wqI3VG0pFigtj23OptOl6klG0Ghb6dtK+PWByRK+FLLFNkq2Q
TJmkfcqwQjlsQAQxEAeXEA2dwkf7aiBdInjSP2o0Aym6wYnhVxqk6TUbnGXZ
jZZRqxUUUXfUv6fGvhfXktkvmYMYA4FOEC9kEFpZar9hDLNiNMXyWaX2hYd+
ccSyC49ffenS065cuPKSw9ZefdCJlx5y0mULT7pq0SlXHbjskt41VyxYecUu
8KuvOmb9jTMXb+g+/qKFa94558hzD1pxWc/Siw9cfumByy6de8x5XUvOmX/i
JcduuGn/4y7oXXVV9wkXLVh55WGnvuugEy87ZNUVC09656KTr55/wiULTrpy
9/g3jjv/hIsXrL68d9WVh592zcHLL0N50ep3HnrqO9HmiJMuPef869asu+SW
u7+KtRS0SiGVUrmhhht1le1CdrOYjYmqFresO7/+9SuuvmbpCSsOW3Fq94JV
65lp3UtPmXf8yUeuewc+h5967sEr1i1ee95By09fdu5VTKR31ZlM+4KVGw5d
c86i1WcfcOzJh518LtMNBDP30JWnHnbc4qUrj3nnddduvO9B0yd2haTY7V4t
mkq8gh1WYQcdLYsdVODVLz/04HlXXXjoylOWYszOnf2XLF966hmnHLnk2Euu
uOFTn/9fzqlXSkVZ2BxNvSprCaMwVJbzBMYjKl/65gPnX/UO9O+kPM887JRz
9j929aI1Zx168tlA9J60AXDZeVeCbTAPESBIBPIw0yAaBNz/mDVgfP4Jpx27
4VIIAXjM+kuYHspH96ErTjvqxGWnnrH20GOOfsfVV//XfV8QXdcoe3m6A/y9
dbYPaot2lkgbBTpLn5LZbnY0NcLq1Tvv/7/j1lx/z1d/f8c9P/rkPU/cuvHn
t33+mY/f//yHPvt0CD9yzzOffPCFD9z1q13hX/rkAy/e+bXNd319+62fAZ6W
Ad9/1y8/+Onffvmx1KcefDXE3/Gll2/d+JtPfPHFD9z19G2f/z0wH/rsb2+/
74UP3v2bj9zze9DZPf6P495+33MfvPvXIT+3bvz1R+979hNfeOHD9/wmhLd9
7tn/fPCZT/7Hw1/8+s+OP/fGW+5+xK2RilurumIh8QoSJoUdanhOPFN438Z7
L/vgx77/oye2bdo8OtjXPTq0g2mXhcKOra/k0rGXX3g2OtLPREYGtzPTBvu2
7Nj6Ej6Z5MjY8PbNr/whER3IZ6L9219h0G8bM3d4eNuOgVd2jGx//Kknr7/l
I3ff923BrIh2QnOHJGXMtQq+nUXEMtQ/duPNH/z4XZ989P8eGRrethRjdgb9
h4Z3PPvC7wajw5u39D35q5dvuO3zG7/yqKrEq5Ukp8UMp1Az8lWNGxgcu+59
tP+3fvDf6N9JeZ7Wv31TIZtIRIc2v/I8eM4kxyBC37ZXwXXI/yxgIQ+kQgUk
hBR9217GuNs2vwBBCtnYL3/xOJtPhLJ0Dw/teO75Z4aiwy9t3/bT3/3ufR+9
/Z6vfKWoSk7Z+nvrrWz2yUY/krRAb7MuUi95VFdHVTPLG2qcryxaetlvNtlf
eHjTieve/92fR69475fvf3TraRf/1/d+WVhx1u0P/zj+juseuOcbr1x201d3
iT9x/e1f+e7wqrPv+NbPcusu+cz9j2w/7aKNDz+ePPfq++/95pZTLvhPlFee
9cn//lFi7YV3PfqT9BU3f+OB/+lDy//7tYBewFx8/VfQcrf4f/v6A/+7fd2l
G//vaW7VOZ949InkxTd86d7/3nT5zV/7wv9sO/2Su77/q+LKsz/+yE8SF77n
i/d/44XLr7rjK4/87ocvFI4+6ybVJa5VzcSHGyW+5hZcvSBhjfLC8ouu+emW
EYSSOiK37Fi3mhlkurjoVjGxo6Jk+Ni2spw28iN6brim5Rx+jI9vyQ2/VJLi
rhBVMn3IxItjr3ar2X5mrpgfFKRUUS6MpFNPPvvK6nVXaj4R3UyCfdGysUxp
kRtRpRxSiGuvv/XZTS9l+LiQH12KETvD/kgFa3Y8mxYlfcdw/tGfvnzmFTeq
WloUt6tegdfSamHM4nPJDPfO997y7KYXshwSxeFOynFPYWSTy8flVL/NRj0h
kR18mR3bgjKYBusQAGJAGIgEwSAe+MaYen4Q8kip7YXRV0hZZKObAkm6pexw
tWonssmiqmyLRr/305+fd+WVnK4UhNzfU2fnUp01+hV9EFfQWVukOotMV9NG
C1JcLrn9Gad36aX/+7PESefebhOSUUm84ER4tcpMKUo+vgFZuay7JJk3Avy8
N+BZuYo4LseXDI+YJRLPGk6FKBZRbVr2EAZqCPeqfoOkCjYaZFg3IupNZgqn
1CSjxat1fP4i3ga+TvEVyWhgaHyATxWQAWo1Zh7YwDcgGhgu4Xiy6owbv/FU
4pCT3z2aQ6ZvSHweOXtydFNwM4QrKGbPivWjVku0ShKyEIXt9pQC06XkY6RV
KsYHfI1tOLLBpYT0iJKPYi1Jy4HqlNTceElmE32+lq/bfLcrZ5i5tpqzkF/n
42O5PG9Wew5bI7iNghnXyrFccchxhGpZkqT84GB6+Zqz4iJXNDhTY3sxYqcr
55k2V86BDiU1K6BnqrkclxlKxmyvjmkbKFR7l61VjYzpxBLciF4SmiXF4PN9
Q+mlp1J6vF60NLaTStBTs8SSWizEEL+rQMi5KAQSM6OQDKJAIIgF4SAi8JBM
SA/WLM4WU6SM9lmIVdYLkDKQrBuSscXMaGLMKPsFXY8W2MXLlsHNqZb899Rh
ghKu0VSnMS50OEPfiFEphtVSWV3pz9kLl1/+6E9HvvS9l5E4sXbLdH3Ptetl
X5aERqWsyKJN82i9ZFu7xJddzzYtQ1E9xzVVrVzyFUGcxDBT2yYDtuEzKYKy
LEpoaWig46BlzS8D06hUFUm2dcMyzN3j6bg1v/SGcX0HybATYprViqpIjqFb
ZknVyGNPDX/lZ/HZx15i1kg2x1ZKliZlXD3nWZyiFAeTqYNWn51Bjmm7lmU4
tunY+puHlXKJY3NT2tsikxgqeISZPm0q4LSOtkxmrFb1MHSl7MhyoV4r6Tpv
W6pty28SWrasWILkKLxppSS79+h1Zp2k5GHeGjTsPM8nRClpmHKBtQ47ZrVU
KetN13L2jby7g7Zl2Ja2N3Cv5FXtiu01a6Jip1k3qZHDV50paRnVGBG9YlZO
aULS0+QsZ/Uet5ph1kFkq77XIhu62qhTvapWPOhVveZnM6np09qDNaUQ64tV
ntI+iWMLlbLrOnqlYpmGrKosmDRNqv+axr35JY7gi5lX8u1yo8LpWkoUC5px
9KpVrCaLGr/nruRNe5LvUU+iRQHpY4QJTxIz1UHZGJRLubiYH+aceUdv+PFz
iWVnX5t1qlqt5lh22TArhrmHUMmxpFyDi/Z1q+WWLVFxJc1TDYuXG67fsEs1
26votinIqHVkDZiq5dqCUndKNdNVizwp18uGjTa7hnvMCWDJKOlaY/2FH7j/
xyMLTr2BsxqcwIpcqmTzmhyn99qk+Fg+eeBJZ6WwZXslwzUVz5e9muw23iQU
rCqg5NTtBuGMMmt4KOuVFms4Zq0h2CXWsLRyvaibeqWh+hXZw8d/k1DxXCai
uSrzbd404rx+5PLzCnq1YCV4d1gxcryY1owCLxViKfGIpacJlQrrO2KpsleC
FbUSxODNSk6x1FIrD1smJCVowJQIKage/HVOdkKxlVIdvdAGLTnsAnVi1Wmt
5FYxQaAAjFEdB8QEgU5WNvdO7FJJxn7kWKZTZZXamDh+2MoNqplX9THWzmeV
rKUVFL44mhYXLaPy8qW9ljeU0arRvykADOUFBP9Ok7C6LzoVQEhnVgnKVn08
p2iqX5NcrLGDBWbapiqlMm95eqXGQcX9CvB2g6rC3i9wKaI7BnOAVvKKhpEW
5aNWrhRM7S/4kUGdLFj74OwFX57a+TH4kfo4/QsXZtJ482/2JUupL5kTVKdM
KU9vu9E8MKpr/Yi1s8pwSi0k1NKCE8786g9++/vBBFd15LLiOArTWbYUpqdZ
chqe7aqSIbCOIpJ6hbTqvqGSWnkKw+CyahuoIpXSVIbp6mgHsuaY2ejI3OlT
p01iZk9pI1Vfymemlk2ti1Kc61mmIFjPb2e/+NPRGUddILhVRefqVV3kxgI7
T4jy6FghduDqDdTOEYy4muqWerC6TCeWkpkxJ1aUoIFQTmbqLKwX1kgrV5m2
dmZKB6BPSKzI8ZbDdGMdmLmwM1iZ7kHpjRRvhGZWfIOZicVoWjr8hNPEarVY
pmrXScebgTFUv8Fb/qSZc9u75gEybdOgUib9w6xpzJSZTIR+z8Y1qqkC+lQN
J3ceAE7BIzN5Oq2fOgsk0A2XQfu2ou7CCpkZnUznBI8l2KLmGLZd5SZM4wzN
eL1psNQ0ssrCEymPoWkEPC6EqsNyd9pjzW2Rvng25CbEYELAOLiBwjNTwFD7
jHk9Q+msVW8y02dCz5n2qXT2ZmAy24EER/B3RrUO3wdbCDjsCR0u1PlNKvM+
0OWgzpSKO3V5VNf6ZLNPLWWkirE9LfSesP4HT79y9tXvlmqKViuY5TzTafs5
pqfcEDh5pFTjmkQzvazupBUzwSujXpWd3skUxSHUjhODmcxIeizL9ml2CmVg
BHUMfRPZLbPmMug+zfbzsynFuXYJm4N/1mX/9n8vyweuuVrwPF5OGlpG4kcN
zIQeF5WBscJIqMuqb7muWHLkbt9WmemaWKh6xmQYUbNMxquuIc2dNRWXviMD
Rmq+zrRpUo42IGWmB2hmLjrbrmB4CmY+zWtHn3gOq5ehy6LzBl1WFi87A3oi
lE3b0zvpeAvFYrri6p3TJ3umjLIhs6Th25oAjMxl6d8IjlcxGNgCrPvWeM0T
Cqnp7UzYC+Wyo6EZYDvDgAjao/uMKUzYsTPg0HVlsGe4uutUBLkyJjZDTcYS
hprsqBOavGj56eBQ9k3HDTnsbVVdS+VB31Q4XSpiXmolM2QGSDR5jbeONspA
s2px+dj8A2YqQgZ4W+emtYMZHwVdzgPTqGAbQxakOAbPdFH+ekqOajsaVWW/
9Ho9FlTu76bH4R06JIhBdT5UZaSJtjys69uhyqOZLRmFHSkYx5x88a9fGn74
sR/7xC2aYwgP9CprYgvbM1hqqbydsaqCVuEUN2/UBLPC14gj2VlmCqP7rDuu
NoiDMtoAXyd2jB3wxzXWTBWUWPschmln7KaMXnqV/zO4F5wAmmWpQcijP/rt
I7/Nzl91xebokAWWtIwppwJbiYpKX5QdPhiZIrUVxyuJVVfsrjki09nw5IrF
z5nGmGI6H+/rgBK4Enxp2eRmtTM6n2z5Kqno2IJKepHpoX3morPrCbYny6ae
4bRjTjyLg8QmtRVZT4e2IkhsLKMeuWy9VKvBeXie0kn7LiQ1E2MoxRipGqRh
y4UoGfcAp9I3xb1Con+8rE0NmAD0DRbDa1zikAOmN0sKbdNyUWUIqfASVSAI
XoXsCKlbM9qYYJS5ZVcEe4GtlCWlHJMah688XTeymjbMWrnQVlSBjWblQ1es
A4eqb/juBIf0xoqQctU8aTqgjHkBpnMqNl8RBcwCOA+5DSGmDyyBTzRAM2Aw
fZAI+HDiIAVmuWoLtG9FD0bpqSL4c/TQWljTzEjKP8haTthpLdkgiMkiFbKU
YVPbruj9NWJnJTlaKM0/fN2Pfrn1XTd9SLaFCrF0hBxlV/fdPYSihaCQ2LVq
iuewy2FHRWTMGTrKzOQ2f7yFslXFFtrOtE+O0PsNJ8w56EC0YTqmzpp3AOIM
lHOyhLnS/NKu4R7zg8Y5nr/uA3d85/fsISe/C1FXrrDD0rNyYdQUk7YWl+W+
WHH4kFXn58oEjRFbQze60Z3pbNU9ic+20Y2jWitb7RGmUXVw6VrytCkMqoCs
V2xgbAOLTPvMherD4NySpFpanlePOfFMTvdYMyY5g4qeFoS0rofWIh+5bJ1c
r8sV2ykZXbRvLwiNN0r46ArrmBIGAHXS9IGfPpXekJo9Y7KhclPaGAyMHmS8
EnIDjGcripgHx1XfxCVaogqFrllTQApl7Cshf5pT0rCZlVxfUvy4WDtixVrd
SGvaIGtlc0raUQuv2Qr4UwP+gr5dpsaTVhnjgSIQ2AJQBunXBg5HsnQBUzVr
eluEDovIlRG5DIqFbAwQUwhemzU3ZB29QArzB0wwSo/nGq5nmp5llP1/qK3M
fZ2tZOlLgXLUUgZNrY/uwXJmKFlIcWTxcZf99g+Znz35il8pmYgqSl6nVaoy
PbxiVVvEcKtedRwFSXd1p1JukLaO2UAyk6Y65aZq+YhiFbPkVlpWqQ6kgLg8
gECiAdpPRUUXpbjcKlUMx33quR0PPZk4eNU1eZVXtKhnUCuG17LVlCwPxIqj
C1ZdkvOJ4Vd93/BKpuubbsl6kzCbT40T8McouoAA17CVVCbeMb3dcvTgjlKp
DMsWZQEX46Rlu1a3W3KY9Rje8yTkcIal5nn5uBPP4jWPN6OSM6DoSUFI6kZe
lNhkVjnqxDOURkOq2lZ57zgDB+0dk/LFjOmoGKVcc5vjtXqrbLuGaoh+xQUe
XHllCxC1wDdJNeCzHpnMiAo7ThqgI8pc2xTGtDVZ4zmh0DFjMujPnD0NcDaV
ZV0wnO56WsUtq2o5KdaWrFhrGmldG+TMCbvR+WIspyBOgyyw672VBaODK0jE
iXnPt6uNUqVWmj5ryqzO6UiPZnfNAJzUxkA68A8fglooXTjnU6dNqdTKqPV8
17B0VVdQrgW2BoxpG3OoFFgWyyrZZqXMWdbfbFhvPo/uAnUYV/CuLU08JsxK
GzVcLS94A2PVJce8a9uO0qpVl1UrLdcxuiqezcxsVis1vyQUC6TZqJY8h56p
0ZJ5jnro8RYgMBFUMNNRnjWto2NyW9iGNOq4DJGWpk6reO5sSnGNX3Lr9frq
My75ycvm0Wd+IK+KkjImszFP5Sw+Z8tZRRpK5OMLV15R9IldavklCyvjlPFx
3yRskKaGYD3C1EkNsEkaWBmkSW7Z9yp0hdumTmEik5qE5NiibltMt+OXmFUY
HltUyZdMSykK8tITN/Cawxkjij2gaklJSJo6bKoImzp6+XqlWZdrjlnZO86w
c02aAobgk8xSzQdn6ULGrTiKqc6cQ5Wwc//ZaMnJ7Jx5c3HZPn1KIEArU0yX
G5UILhjk5gzaoNeUGVMR/E7vnAFpWYljaIZDJVmG6lJZK5XUqlvSlFJKqi5Z
cappJHWtn7PSBTmJoCy0qMWr1mmNulL9WySBDH69XBuvVppVxZSzbA4cYHOB
VOBVdzRwi8gRq0E5C26Qz661mpplooi1mDZrJgodM2cgdKk06uAcVX6tijJq
u6gk3bAw23dCq8rK6j/AqpZRq3oPMgD6hj790/NB+CVFi7FSkVW8WLpx/LJ3
/eKpxHPPZxt1omt21cPHqHvGHsKSISE59TQZyayrSqRVEbKpaZPpfStkmqRV
p+mkazUriKE1ZOBV20AbtERiCwVE+gmItBRtKM0/h3vMCWClZNmO9+Qf+n68
2exedpmo8a4Rb1Q0rpBEYmuoaV3sS+eH6UZYJkaZINPuwRIxXTTw0OT95+2H
FZVVqVqvwDFGJrdZjt1ojrueb9lutdbAplKrNyvVerdXKiNi8t2Sb0BVsb9Q
i1t+uqTbvB5V7GFVjwtiDJmGJBeSWfGY5afpzaZaK9vlUicdcRF8MnZDDIex
NEMtV334ZDhtVNabNeyYFtSmVkZZR4xdxUgOnDkK6IVNtdGqh2W0QQHMAwPf
Dgya0X0N6jf7dVx6JR3uQ9XstOQtWblaMxHXDQtmsignHC2L2Ynn+CUr38Dl
QgwPohgPE4TNo0WaGCwyeVI4JPBg/YDu/XFZ5ArN8Va1XtMNC1OG/Qc245er
mDtMHKYPs4bpAwawifjHtNGmk3I4A7xSQyl5kIY3EeCrR69YJRmGpPCKkqUK
3GbJUWa6/pbe94qAPHM9TBHfuhrVtFFEUZKWsnwtKwop1jri2PXPvJhacvz5
ik2q46TilxtVeGYEvAoiBTIOb2IAE8I/xxNSdkwBZjLecMuO1qzZjTLNEOq+
VSkheNARDsNMaK/xKqXjW5SOpVBMvUTpBJjd4ncz7i7xtWrJKdWOPuWCJwad
/Zad55h5h9tqeyyrFwWbLfKDZvEFUxlddPr5efoCch1erFapMt1Yf6YDbpnU
GjDs2R3TSaNFL1sEl720di7aybrWwCq4Lq/oi444ulyvZbmobMRlLZYr9pVq
QkFMFCXhyGWr8opbI6RWqXcGlE1ZBSnfcuheMG3GtLZ2enOu0eqitZMxEIwG
DaAZkYrjMW2tSg0NaOXsYOxGBTbkYt/UXRv5YFpRlqxaqpQ40YwLBr3hWK4I
nJDIy8Li5atSmosMtFoNx+4JSZdMG+N5Bj3rSyyws6ZOG6/WXd2sl8qhkCij
gNHRniIbrZCJEG8pWjBH3QEnZcimO77p1YqCedyJq3Xbg3eR1byipqB20DKq
0oFSFlVnH78tEeg01DmCYZjrKF6Lhn9TX5TSw6lomhMXHrl8MK6+3Cf44yQv
NGpIR1plTEnZ0xEgIqkL0zkkYLvEIzcDUpUKgLhEAvpaG2SAKKNjWAsHjOR1
d3T2Cd5FBF8mv3wl/lSismDtpY6cJOaIoCQScnaEjdp+npRG4sO/nXn0iTFC
EE5DQV3XZbp9x2U6XNPCTLdqdZHlQugY5ni90Utr56JdHa2b43lJNb3yCStW
CqooyHnD4RQzpTtp1cknckOJXOqk09fbVaJZDcQYnbTvZJA1VeTjBDQjFa/E
tAGNIWjlRItmy1BUFEu2E6x3m8Tx8w+YRytnB+N7DnWOdq3qNhuS5xRt7eiT
TxAcIS1GMb5hpw07mwrGX7nuTL1OBLfhuOH4PRiqXq5gcNIar5Z8iIUhFEEk
jWbIF0Z9DYmW0FuUo8Mj6HhQdw+a6TIcEgnmqRszAbftVup+fVyzqrJaXrZi
rabbBTYvK0VZSyGyCB+ph2rJKs6w/tZp9ZGv12rDk2RXzQrS0ctPfbU/N2/R
SaVx6qebDcLlc6TVRLiPZUMWgEK97CP03zW+1UQ64VkmTQ9aTeQVgGG2ULIt
W9dMVYEELWY57YKoaXd09gW+UqlBUQ857szHtuuHrLm47krF4WdlrYBoR/RU
qHdN3cFltxxz3uUsIUndVT3XR8Da7dMzDN1WRXQ0wCppGVUX0Kx5dsPvpbVz
0U52S6pXLcqm4VaPX7ZKUFQkEUU+LWkZ3c6Lek6xhGQ+e8Rxy+nJeD7xCemk
fdusegl0QI2JgGpwjW/ZM5iuYGTUOHCDyPgbvupb4ALlBJcNes8tk6ZXbbiV
VpX+SYmd040Fxx0tI4a0OYxs2HkVEYlJRz586UqrRZQKPa4x6NvDW7hq6vC/
41XQBGWUy/TZSh3DAxkrpoHH6FrZBhKchKKjajSXsAKXjS7BDAE0nXrNRthC
CKe6vOwtPnKZadGw5jUvDR0LHTXyUl6x3kp9PiTUZ0Wl+syruTSb3j4ytnT1
6VsGcnDUWARexYZFo51yqVbyqgh5oN66aiGJqcN77wrPs1LI4VRRUBu1cRR9
jxp5xa836hPck2Kepzeh4AZkY3eU9gm+UiGiUt0aN38+6C4+/SpXYcetTLXm
jObTWNtEZsAubJYKAwedtCFHiEyPkCF2s2q3ym8eyiW7ApVxTcCioUANsf8X
DHFf0d81xDTQo3CIX8PGUD108bGiatiuo5kSK6RENaOZnGYrWVZYtPgErE6p
QexGa69GgReCRGa9rJQtYOidbFUE3FturUbFJdUSaaLstGrwMaC5t3Qcmv4S
yxvXvHHOqKil1sJjliIDFnQB8spyxjA401JyLLdgyfF+cJql2dw7eUMZsXaC
q/m00HLH61bTNwMvWqEHqdH1DdtACtSaDeqrnfFKiIGMwLxGjWH2+5uXmIlQ
AvOsWtXwK7pXE/SS6bYOP2qpV8L+KCkK3Egi8CGjMHFYOnLxXbqRfeZFxl7v
RXJ8okEa6WIRTvyFLSNrz7zKqdJj5mpNukbNcWI4TUDNqgMikarvBg9YrlOI
7civUIiNCVx7Pi1X64T+9ds4hY0WxeyOzr7CN8bJcWsu/UOyMe/YM8dLbmLr
M4oqpAWe0zVEIhV5VMgOdS1ZyQcn/RoujcRrCPDeNIRoXq3i1WqletVvNMI0
pxEY+D6hv2sIG/EbCvYpOg/1NaeeZTvlVCpj2Zoo5TkxbSLczSUS2eLyk9ZX
mqRUp132apTq+LjmWKFEbrUKWG42/wa5IujDnA06lRYlhQ+nKJixvaJTb1Fd
akK7Al1FHHf86jNE0xlLxEWpKPFZ15Iz2UQyWzhhzXqPbhD0L3D3dh0Nz4GM
4M0ul8vNeig7VhacO5UKMLh0Kn6pXrfLpUCuNl5Vg45IPen1vDe/uhF8IYYi
zP7QohrNmciJJ9GQOpYYpecGqQnqNYIDIy36N/sJQTbeGt/RRn3Hu+k7sWoC
kTx2poHRvng6dd5Flw3Gcq/2xU9ed0l/TFp7/nWvRpXFK87ryzrHnHzxCFdZ
vv6df+gvnnL+9bvEH3biOS8M8UevuSihtI486R07Mvahy85GmxPPuGp72jr2
lEvQZsWGq5/enEKbgby3Ozr7BP9CX/6kUy/eEdOfHXWWbbiGtOitAknmFNeR
TV03hDL1z5kV51z5fFL3AvXFlHbTF8s6sD5Ik6vBkcmAKAsmImuykNZ21YLG
+Dz/0vYLLrjcLzdY/MflbEdJpAYtW1Z1KZ7OrT3j/Fe3JGCcXZWJdZ/i1Ck5
VkMo3gypdwXjGWWKpyvqjyNi8ZokbNlJa+cisVHUJqKqSp0g/n3u1bFTz7yY
lTS/UnZsPZ0YhonompRMZU5Zf+6L22N+QDno2wYiZnDWKBNw0AZkqUWs6sQ1
HTmsh4yhsKgGd21B65Av0aoyPZTaTN5yQgJ2jbz4av+6DecKolyuuIH2xsLj
TiOWMsp02FJMko1RbV9rb1uw8ymx12mvpGRKFXMoOvjQo4+uPPm0VFFBgtKX
VF/JNQZcMuiSbQbZJJPnWfIiR4ZK5LkC2SW+zyLRGhnxyeN9+liFvCSQAYe8
KpNXJbLdJNsN0u+QV0SSbJFtOnkm29odnX2Cj7tkOGtoJbLi3Bu+8cNfD259
sTC2uVq1CyKbKdI3CCx+RBdTt33m/o9+/hvPvLq9Ghwq0G3Q1yLFJj1jIFci
Uou0UUxbxqUYWjyEgrk2IVq5id1jx8Dopz9z7/+7cyPHCdWKL0l51xXT2UFV
z1fqTjqb2nj35+9/8JHfvxpFl86AlhYQSloYKLjm6ztpHxBcFys7r2cFY4Gt
RnCwfKNJBqPC1x5+7NOf/+pYPCPLcslR8+kRUy02qk4mk7rrs/fe++WHf7d5
FGPNCWgJDZL3CVeDtgbX8jjJevSv8cPrybgIx4LIITdoOzF6DwXd4fH/QZxI
BuKZhx75zmfvfSAWT8oKpyAeD5TWUgbD44tcEUqr/7nSvumsb/JOrb2Wnvqj
pjC0IGUKXKZ/ZODb3//BBRdfdtCCxUvXbFh40nkHrrlov6VnzTnhrEVrL1+w
9rKeFefPW3n+wasv2iV+3onnAgM8MAeddGH3qguOWH/1rGPP6F5+HvALTr4E
mJlHnoa+81decOgZV+2Ozj7BH7z8rCUnrDn97Is++tmvDufEii1WtHQqNWDY
ku2ptoPYZYvKx4qW/R9f/PoFl1+5+Lilh604jeletGID03HYqrOOWHPuwUtP
O27dxXMXr1iwbN3i1ecA9tLauWh37KqVy1efuOGsM/9r4122baeSUdOQC4Ux
TUmVfE4Qx3KFkVR61C15d33m3vMuffdhy9d3BpTnH3vKwuXrQf/wk84GQQxx
6MozQbwrqAXyoOPXAo82wPccc/KyMy9Hm6Dv3MUnrl998jkLFxyzauWGtWdc
eMuH7pARSbilQpGudM0TIA+bG0mnR23fufOznzv78msPXbEu6Nsz76jVx55+
UTj0UadeAJq9J56BmrCMqv2OWImqEIlC2AAFsAF+jjzl/O6j12BOgvmhf8G/
7PTT5x++8ISTTzllw9m3fPijimE7nlsspKnaYStTh/+ox1L0LdbjS0M9lpW0
KKd5IQtVzuYzqUw6kUzHk4lsajSbHsylBt8imI73pRJ9bx5mEv3pZP8bYWIw
lY7Gs+nRIp/kWIUbNUXMQIKJKFqW6UDJFAcVfjjJ50bZfDwXT2aGU5mB3nSm
ryeR3DY1mdrOzE2kt8fTfYnMQCo7lsvHWTYFn61IaVWJm3pc18dkdYSXh4v8
aLYQh59NZbB9D1IaHejfDTqgQdmMpRLZdKqQyrLwF3mO5fg8KNlqysaaS2Oq
MMKz0WwhGiskovlYMvunNLrjyR1jmeHRbDSaSyfz+TSlwbN8URCy9PWLIN78
U/+3i0173+nNDFyEfz4Rni2H/E1RipLMIjBTpZwljTG9rjjQ6wj9zFxMuyKl
OCVfUFlWzavyqCENagqmLqoqURQMqV+Vh1k1W1CLHFSRPjMc6TWUgV5dRn9V
HkRTUYtLajIYLhuYCo2ydRW89alan6wNoY2kpCW5IMpoMPbH/ro0qvEpRWAl
CWGOICmirPGaVqSv2SpRSxqy5AFTHtLkKAbgtBynplT1j+PPVJRhXk6ySpFX
OF4RBEWVVUXVRJB4be4j9PcupgWn2iXemrln2jH59GA+JfjICaaNYqepUgKz
q8pp+txVzYEpXWcNg9P0HNOr6Zle3chGNDPLzFLNvGTkZT2tq6MQDlMOyQAx
v7gEElWSmWMiqpldqBi5XnTA7JtZ3UppVkIzEqqWhMSaHFelMV0e1OUdmrpD
1/p0Y0AzopqZ1s2iZnKKke99rb9m5C0NnwI4UzVO0TlZK6ha1lDjUANH6nOV
PkcdsLWobiYVuyDbRTBB+y+k/efJVl42C+im6IKiyYqK+UdOV5iY+p1H89NM
S0oJ8ltxlwazHtypwaRHaOyqycmIKieZM5Vg7iU5JShpjn6ybxEUtLygZd88
5NUcr2beAJE2QvEjkhpnZsOIYHswK8yqHkxsCIGUFRggtUGJ7hbZXkHO90hq
caqoFJh20BDVUVEdlpRR+EYmAiVhZhjymKEMmWq/CR2hn35VpXaK/UZScqKU
ZyiVDlDoBiVmDjyJoaYtJUnP3FOyyAgwliLH9OBgSlfu9+Q+QBirqoyJahL8
MwtfT6FdUvOKnqYfJQuPxERkiWUmIx6Gzw4T8wgUnZkOwzeDoxx5eRePu/aJ
xiDxn0zN9BpXz9hGxtLTppYy1CT1XEoMkwRfJtNP9i2CipbDTvfm4e7oC2JM
lKKyNApvAOeJubXUmKWOYUdDgT4ml6OqFJOlqCjFJYGeXsH02kK+xxELU/GN
nUHOYCHDCdW1pKlhlrKukfKMuK1SvYHGaOoA3JQoj4oSfSPOEvNL0LcbNJh2
R8o6chzjYVpVLQ3PhZ19Bi6A8uQRT+r3pX5HGjCkYbAJJ86LSRNa90cKtkwd
ka7FdBVuMUd9aoHp1FV6F0cL3ijRdj5IwlqzivdWPEt6vba0QfstuEYYYwSg
DVEGvtPMOkMBp+l/OYh5xcpgcSOQCtOLaVZScKYMlZppg8i6nMF841pJRmjh
21hVT0p74r8ktJUklkwz6N9m68EMWErWltO2EreCFJW+zkejligNvWkok/2X
lteTkoj2zMADYEuGAWINYciOSo8I9qRBXxz0pGH6x7XQdDgO5kzY3D+a578d
OnLSkEc0ZcigEqUihpJjJptqnp6KS11GLIKlZaaHBq/J+aJSGnpL9pfJ8Bg0
ImnTEWy3Y4ekm608gg/9bamIJcaZ9Rb1l/F/ZhiezfwGiEDO0HIIz5EehV4B
c0xfLp+ozUSol95ADUvNGFpew0eOI+YPdPCfGoYvKr4BMoHOzKL5kJxU6TnL
WV3IGnzaEBKwLDNYUoQtwftndJdTC8xDb7XEu+SUvmS5L+hDV3VxyBBHdTGG
IFqGzHJGk9ImPVNsrCSMlIVRT6TJFByoorIKUgblX1hehM+a1IdsMhQ5Ykhp
pgvyIpMIvQZ9+KvF6C3FIG4tqOW3wGvQbbftj78HQDffNuzKEfqTkJN3uo8x
S4wib4/3uGJiKrw704HdC6xCNQ0pji5akGfC+CKoYC6x6Ou+hfDHMgyJqi+i
e+T1sjqm0hz/LYHh4/I3DxH4qXrszyH4h74hqcZU0nPz5YIlQ+R0mAlGmQ3B
ssaR/CliVpLecnl3x+ebn4HQ90yzNRpGw9nSN+5VusB68Pc89ID+iCdGmfMc
IWqKSVVMSVJWlNPIBv9FJQ7DelsftbSRIFWJ09gzjdgUgaiSCu4QUpOZAYN8
7QbXLrfx10f+XIVa5Jpb1IUX/OgVjgiOxYsDf/WvPIL4V6EGyUzBdztczjp6
MZnmGzRPpJ82GmcAS5HMhgCXCv7mijqO4G3kf0lIfy+CSpwKbmQFExHgYsz6
UMZ/dTHbqCxtwV8nJILFnljH8H4SVvmMUEItULp/OLt/4ypOplK2vyZluHQU
m2Bm0jsuSiIUkVWsEYMccuoXZx3ypdcsKPitufB3C4qabhDScdx3Dr6gf8ll
P083iOjagjT4l2yIgPpGOlIHqxp/kXrn/APFOulZ+wvsmUde/osdGhnKpNxS
Zt9QZ9roU8s5qx4/9trs4Rc/MeyQ0XzWtBP7hnrbrNnhzBz37lzv+Y+l6oQ1
dVUf22e8s2Xqu9Z9xDnwrO9hZvKaYljxfUO9Y+5+6jidmeOvyx909veHbJKW
BFkd2We8h6u65KoEIqFRj8TYguUk9xH1adNzLll09u+Wv5efu/aRqE+9Oif0
7xH1qaD+F+4VhRozfen3Drts7MTrntmukoFUYk/18a/Qll0PtOef9uRZHy8f
sO5/wXdBV0V5aF/QrgYP5acd/90jrowffM4PcuNkOJv2K/l9NCd8la7moZeO
woq2SIS3zXxx277jm1n4tVM/aKy68bnfp+mc/JWYeU9p2/UGaPee+Rt4rnln
fAv2mRS4fbSWYWQxd/WPEFkcdtFPtimEswyW79tJO4WgZYK2NgrawZZDn9Sh
FntrgrrgycH7NnKCjnnDXx9z3kR+sebxpdfnF1342ICF/EIM+I7ucszgRvrE
bh28ypOIIHRiOnRl58OqYHMIqyQ9MVnSUhF8R3DJtAev2k7sHBMJSmxnXBQc
Hgtw3V/neuFf5Dq2k+usLaboTV2N/pITJADjr3Et0z+EiYVch7+PFT7lDLlu
oz8J2Rb+ziBl/PXchwK8Ce4P2Fvu6U8CifSHtqgAwTNtgKn0mXaQ2yFxRvAe
rgqtS9HglmkLdDGjURxAG+3YFj6OCO7IAuyhjszfW36RR/h8aifLExMbhH2p
4NYOnbNUcJM9w9Df78JEitngl71wTX+HTA/5pdHGPtHj3fAoJDwhEf6eGRgK
f9FMp78CST9MO733ZItZps2m+k8P4w64jVAx2l6L2RlY355y2b2XXA66UvQN
XO5c2ggt0N88m/hNN/qbalk6kfkIJnMnn5GAwTB4Cz9vFaeWHMWUgs1QGwPN
w3zRe8DTpOCxEv2RnoBd6IYnUD+JVIs+O8xDlmyw7sHM7rSnwLftKb+L9opf
esB68K5/eH8k/LU7sCjRR6dZXqcQqSDY8YRUjUuAY1wyEaAZOLTsxFsJcoYq
cpCt7bk1HbVXnMrGoOVl4KkkcUyWosjWVY2yyapprSymxVhRTWp6xpGTdnZQ
2va8MrpJ0dM5I6VXxHih3/F5SU4U80P0saQKT2AgxZ/iaumSkaUuT4gCMbFb
XL8zTtrKkUPP+CripP0P3ug1iFsO4qSS64P7ZXvFvWQOsuoIp40petIwc7ZZ
pL8lZhYkqwDW02LUrgiVUtEpDLQKQ5se+eL2Hz8KOqwdV71corDN9nKmQR+Q
mTADPVvSMiU55QhxU4hZYpzKrCRpavUn3MccsvjMh5jZGxnmBsy84497bmVS
OPcn7C33BWOUQ3RsZzDHmpRWpBR9dUrNWFWJVeKcMCRltpaSm4mWfnbjR/7w
wP8ryUOiOoiQ19DGSmaCTW3y5XjLzuuZfl+IVZSMw8VMNuZI9BfkoDuv6Qzl
/OUsWXL2Nxct+/6sAz6luvRd5Sb9jcK/jXPRS4puhr7kIcRUNm4IKU3KgP88
O6wZiYqTrgn9JP6q/7vHnnj3hb+//eZy7IWqOugLO0rsdlRV2f5GcSiz6enM
pt8aqb6alIYTsoQkPbUI5sGN/QnnO0Qyf/V9Mw764sz972CYxX4t0Jh6tfG3
aAzvxAUzCbXV+XhZzo/Tl74LSn7UN3NNJ1sRBsdTr5LoS9s+9f4nzz3l2Xed
L/3sv0lxK+F2tEafI9ntxMxKz/3soY9cz730tBff0RST4JweGGYWNSPP8nTE
P9WYlE8OXHN/Z+9XwtMKGGbaH08r2GvuOSMqmknsDtj+WgpLZFZPDMdefTbf
/4KV2kKKfYTrJ6ktL7/nou0XrY9ef2ny3o9Xnv4Oib5MsjtI/x/EJ/7n2++7
5hs3XzU+tpXkR8fFFDRGFhCrZGE0vJHB9v5n+t696l7M/SGL71McwrTNpFpT
q9T/Fu4FI6ZbGeimzyWbhUwzn9YHt8X/8Ks7b7ziqYfuJulNxEqRTb/afNmG
4TNPtt5/rXDnh9nPf4I8/jB5+jH5G5//0TUXfnjJIWPffIDkxwgbH+cSLh9X
pASnp4tWjrVyNKx6jXvqJwcUmpNNP/CByPQP07mPzNjpJ/8y72+MTCVjmNej
upWjPylZiFUKKSIVCJ+uJAe/cPM7P3fphl/eem32Mx/z7v6YfPOVsXNO4t55
buOzHxPu+mDqzvc/8+7zn7xk3U/ese4zR/X6T3yXZAfG8/0VdrCsJCpaGpwW
1XhBpyEtcxCu5tE44ZDw/uE+h8HvqnZiFHqEGTNrT3vtt1et6Rgn0BU4Tp+4
k/MPhsxhlJtZe9p6v71qPed1XurwDV+fNv8Lc+b/p03/mGIGtZRGrUm1rRLe
1V3zOHLd4695+sUCMevVArt9l7kXtE2yUgU+aqq5ss7qbMyTkg0t48W2xr71
tS+uPPZ7Rx/+zDFLNi1bolx9TuFdZ6SuO4O99VLy4y/qj9yx/Y5rfn/FGb/a
cNIDB+9HfvsTkn2lavS7et+4OUbyfeKWp7OxP+gWvd/DUD2YgtFp/M60GVom
k9rhOSwTaW9jsHZqtnMWw7Mx1+Z1pQCULGRELtUeoQcOTpvCeLYksEnXElHL
FxOzpk9CA4lPO6YwpQ2Nc4qYnTyJ6Whnwr62IQKDKlwaKue7CgozOuiJhKn4
AGpxGRKf29mBlqCANkxwVuC8GR2TDJX+6Rebj83pjLRNYqZNZSwjJ4vxrtkM
Wxg29Sw8AfDANOsaIHYR3+MBVTk9tZ2hfZhpnsNLCHdtDlcdUxhAYAq54a7Z
k8IWcwwtj8FDrsGdIuaLuWjXrCnhqYQIJ+lpYdMnhXOA2rKnhj1nS0JyvGmj
iM/smYwq0+fJKDdqRiE3YhnFWTMYkU/oaq6NytQ1Z3Z7MRefPSNi6QImECOk
E4NV3wymKwdBKyWDzpWWA5H957YFo8xoNXSeHYW4EFENz0IWYqhxrALKmANm
Ic3Fjg80K7rnUN/NM8s3D+l9+ICn2XvXp+tv6NO50/NHbdJ5/F1zFn1t7oH/
hZjh9bncpBkzmf3XTF/6vdXvV3rPfyzboveddnd3mL4zb2cKxWGVjdpslI9v
MbP9EWJnmfnk1V//+JxTnziid/PSI3JnryYfvUa7/RL2tgvSN5wufOzywr03
br/tomfOW/67tcd9d1HPr89fK/z4q5lnvvXydz//w423/vRTt77y8H3xHU+J
ygD1In9ii5eKfJQQB4uKqCKbHoACo9ysm8lYPyxwzuyptsFPncxAGWERXCEe
nHPnF7IxKI3vavt1TeUKsEwZahQcrOlBnW1DHh7YQkgdZTafAt7UxJKjOqYS
HM0pJaID2RTVdJT365omcjnHlApZqpdhm3rFhd0KbDYsd82aDN7AJ+J/sKer
6YDhPPQSjoP+AqWRK+QGYZsww3RyO1wLxIE3KZdkQDQOzcPUC/SljIjAxZmz
pncwmdSA5wiKhNAyibFhYhiSzSdIkx5q6tkaZJaFQnC4qgw5VYlFueyZAVtm
ITsGtwHHk0uPwBXBpDBTcD+A2dSwqbGqlAuOJqWuSGDT440ShHyNwlD/VkKq
mCNNLmoyPUEQwrfqHl+kJ5Waeh6uJJfpr1cViAfuK74ICSEb1gx2SVom8Chj
Ol6zxbaddhZlZgH00r+0bNPDo39QvWDi3kmgyaia+Yb62burn7hDMOt1sRri
5O4lDyNO1ks0wrdMbyLCX6b5ZaFGZpzw/aOuTh1+8RNPR+lxHn/h7rmlJ309
TawiQR6RHyLsMMluqb/60+av//dHF658/OTDtl+yWrvtUvLQbbWv3OTde633
0YsL71qbveWc7deseeb0JU8eN/+ZpYc/fuj87y7p/fGpJz118TuevvmGwS/d
Z217vuRm3SZP450/3YGgJnBlkyMME4GDZs6GZ95vTnsuMwTNR7aP6QfEwrKF
sWbNxs4EWMyPNqoWFAl2gdUAtHSu6uvYSKCr6JJNjaJZLj2GMhQHaw67wL6l
SoXwzFl6NFerPLDjZXjh0PPGx3bUylZYxg7AF1PQI5ShQbHRPuB9T0zEYEoO
eMXiYx8ZbxoYHftno6bWKjKQ1bKErQdOGYog8nHMbz47FHjwC5p1A12A5Nko
SIX+vYQ4OT0AubFtYAjwDA4hS2jCUEZstDCF8MxhqDAw4A1ywdjzmVE1uCES
bH8p35NqFQ3lVKJvwcFd2HiACS0OJgUpwlmCdWMy4TQOnt8F84K5BKZGZ2b/
OR2gDNPBnIA++JwxDRslOzbySrkkgA7MGQJCwc0gW4PJAwmzcO0iMIHWw3vH
Fk54/q4Jb971eg89YtD7AJP3/xwz6WbE5qUqeX1sbhCy/5onEC0te/fvtsqk
aGiSMrxLXQ3uv0al2OZqYgfJDhm/+uErd/37wKc/1Hzsy8O3X/OLdxy37b2n
y3e/q/HNW8kTd7Z+8JHyQzeR+2+qfeyy/HVrRy5f/sq5Rz12XNdLG44tXPsO
64Z3j5x7bvLGm0qPPEy2b6qzCZaL5uU4zYp26mob1dWZYayBFQvXDWXMMVYA
KXDg0vIzp4dRwfFhlIEpxGpgeR2LQ3hFD4DUC4gKqONUCvAp0FloesmR4QEr
Jbp68OtYNEQ9wAS/OUbhIQd1jg1vxWog7KCveyLWCvYBQCwdXCh8HyIj9KJ4
JYPVgDMCBfimgJ9roJJQUq44Mtj/PLwYaqGtJZeDqwakY02izhtaiYVFWBS8
RkZ9mcDF5u3fDoiVRy1XHOucNSmd7IcqgfOQ50xyCFzRIGkS9bZQN6gtOIG3
DTYHlow7odcHRCAWHd2CoKhe1YFJxneAOLQ11FNsAOgYSk37GlR/CSljr4A3
r/gKZoAGV1ULKh+OGIZ1YBWBEGQMrIqDgPSXWfQs/DIkCojYaIDyX9dT6lU3
F2lcjwy4u/funEiPuKD5u++VJzR1R54cffFLy25g9zvt0ahPn3jqZmx3muqr
saHf/OgHd9z6tcvO/u65pz15xqrfn3L8q2uPHrvkpNi1J3v3vYf84DbyszvI
c58lv/nP0vdvbXzzlua9Nxi3nCPevP6lS4/6zeVHDd1+vvXABxufvm3smkuV
z95FNj9HjGK9JMN4ES/S/OtPvOrDWGlI2zNvGtYMWmgZBSwbwtBqWYFFY73R
AH6MjFuxsS1wwcEEOXBWUI5EbBsuyyUJl5hcKC525kA/stB7aBvKUGKsE9Qa
bRDphsscxC2DB+w3BRqMXoF3ysBvB0siBkvF1yoq9CYswwCgfxg9dC9YPChx
GNdi/bDHQgSsHxjG6qKAlsn41qlTaK96TcIyCzy1JVmKAgPvAV/UFqGqUMj3
07/N0rOhfkDtIHg+O7z/3HboELYYrhjF5IBnegpffjQQ3wstFqSQBcHYYNWY
y1bDDBxsEvKCPYQ6mVQ/pg4+nL7dpWYDeytMpuOmg62Bph6g36jpA30vBjE6
1DEODUaABBcK1wAimH/YWKD0sVAvISZ9/VlOhjEV7BPWu0e6OmrSkzGRgyIC
8IODWCrlxsQz6Amv2nbkoytuEpCDbpGI1agl06/sUlfpn+rkBoieq/W/uOP+
O3991fkvnLU6ec7J5uVnmFefbn3gbPe+q0vfuaXy1CfI5vvI5vsbT/8//we3
K/e+2/rEJbmbT3/q0kW5r15bffrT3CO3ShvfW7jjveS5nxIpWjITkp3PJEeE
HL0v/qe6OgULjeWGMkBq+AVMdVuQWWEpMS2ukw+Xdb85EUBMXTaznb4Xr6dQ
hjJgXQIfNx8rhb6hX4YjDrM8OGUsJcrQecdisXZI0rBMaFDMj0D8MCUEEUCs
KfQZdEKK7eiDbRtrjKbwgiG2C0sXahZcYmg6WEOoMPBYNCwmpAHGsXO2lZ3W
wVC2mQ7PLUji2IzpDDBA4LJWFWfNDGunln0ujCyhI+AOuekUev4wHe/oMFSA
lwT/sEqUwSSEAsOAiEnAB5AH7DcZRocZC5nDpNENJqiCUUOXwnkAddgC9DzU
dmgpnAOmJdT/cCqCqKYfIQ11xKDCtGGvh2AQkongm5kC24OsUFYYWzCzhUVY
z87XaerO54I0z5m1M697A+41DU549MlGZO5nmcnvDzXYNNydMWz4NkLniseW
XJU49p2/2iySsUJud28MQINb8BSpwXL0VcIOkC2/Yv/j5pHzVnnXnTX+gQuc
D57F/sd58n9fbz/5Mf+ZO1t/uLvym0+nv/WhrXddmrz9wicvWPT8R9fWnr+b
jHyV+8Un4vdeG//sjWTHz0nhlUT+RbaU0bRi1VHoA6U/0eDl+SwiAg5zh80N
LhI6F6RGWeioXyqgGc8NtppqIb/DL7G2lebYIV2LK3LMc3M8N6zIY/Rn0E3q
BTCfmExMfXALg/oCLOfrPQKCLWgKgk6MiCpgsLrBWo6Gd0bADNqgC93rIrAR
5lR4HVT8f/beBDzq6uofv5ns+0LY90UBFUHFBVRkJxCWAGEnkIQdwiZarVbb
qlXf2uqrlWqrFisKKoggIKLsa8KSbZKZzExmMjOZfZ/JJDNZ7+9zvydQ21d+
b237PP/n/3v0iZc793uXc88953PP3ZEvsiAjDn58oX4TKfEViWnQhk+oCcqG
ikBi/b5ag/6ax61CTVAB0Or1qC3mCpCurS2uN5biK+I0h00GfSlKBVnK6kuQ
PhrLghQAGzJHtuAV0Q050mqu4SsGkVATMAVAHmwwVFacBhfggdLLPG4Ni8NP
o6EMEarkZ6FNyAFdFjKRCYOzd1qKMFqQFUoB8QItfAZQTjY4qgksRyngJlQS
ZSEEpdO0CdW9vdUFaomDYmd8f+QnnnWDFNf0l8YnN7cWiEkJSPjfh/X93vrW
gMfeyByys/fgl61eIcHCXmhv7fgbBifdsxsYPCB77zUXt6JLvcXcg7gzTFPB
vdYWu7JBdY6bi3n1N/yPzxgLp/Bnlvh/Nqv+l7MDf90YOPgz/UcbLB8W2T95
4qsnpx/alnVu49TXH0ix79nOr73pOPZ0+NtfG15eqnh6IT+3mxsvuiyXfM26
eks1gERM7P6dBCeDaSQP6C2BByrlFfR14gylTeF2QTTVRsP1pkYDk0GS2TD8
dtirIQGQYsiEJNGlEBHUJ9RkAlsBf+A4De3AVoGGEsfR8PBAQhGHRkxUMNoJ
wIdoaFaSQoAp+gUCGFAIGYJISdLcBz/RwNRXApwQBg+SIAL8kGYqCzgFaAWw
gnTQGQ7Vq1UXQ01C/yDECEEV4La1WlEFGYJYPEIgbSQWIEDscBCmTpkQNpkQ
jwdQMMiCi2LgEVLjVDns0lktpwpSzDtc4BksEvil9yBUUHbIL0jBwBzKjrxg
xMDWgc6hDEA25BdZIUOUCq6RFBNTCA2giIhJSo1A8ILQICMtQlRSmncUQwdD
JfRsAKhO65RgyY9/xQML/b83X9B/3Osx3V5hsRuBteJBno6bM9Y/6mSAy1Hd
aKlz69V2lyrUDsU712Y+wVWHKp5faHp+Ydtb669tfqz8uWznrs3Gd9fp3yj8
dv3EUztyD6+btWfBg8/cEe3a/TPTnzfY/7ia73mWv7zet36ebs08/vk73Hi1
yXLN6qw0OOX/Y74gmdgDGYUco/NCz4yqi7GKTYHWBJ3AI5tVzmQBv5Y9BnHF
v4CrYEMd/GhlSDEEAvHQZGgagAowBokBdWgmakqEowXhQSAaEV/hIhpcRIiO
YmhHeCRIv46vEBpEhge54RPyEcmdtWhEwG1bixMYQ7NGoB6NCCgSxqskxOhu
RYctY8jcbCqHakGXoHOQRXH2WM4S4UMd4KIC0DlxXNZejXiQLSoSsulUsUQQ
CxrBKARB+sIhs1jcd4rzIaBIp73KZOJgdTrsDqQTGOZUqVWXoSFUd6oUAlEd
ADASIzvxQKxZnAbz1LKRoJKYhW9UVRCN2AgkKYf4wsqAKIvLWAL11LN06qJk
hkBHIaZgAVgDlUVLQqDFHr26crgQd3yCECNttfwC+CWO9liUYBCEHnGoV4Mf
mUg7kNhA6D5iU46IShpDFjWSoULgA/UuEpapQTE17w9WwOvS2MxV7S12g+66
sa7U79GKY+gyu6WaJVlNcvyLGA6rIujXS5cYKBDSErLAj2QBr06GzyzaUl8J
mcXPen1ZR6uDyZAVGwujBh9QCyAfKAWvqC8HHAIXEULoRRCIcNSRumMwDawg
Pkjjj6uID7DEV8QnKwFJkJvox10aUNPgq0NZoM/tUMHT1GCEx2ysAE0gXa+9
BvqoJsifWIW0NCdApUvc7UKTPWgjmtwUhQYMqBUSepxq5Aam3CyFDqjXqopR
nMSztP9950rKP4840jmTgXa9yuuwmDAq8FcrTGfCvhJuOFHxm4KKjdm+51ZU
rp6g2TG7/uW8sp/Nlv889/zGGd+unlX53IYrP1v+2kO9zG8UdXz4TPDlAtOa
Kf6VWZb5E0om3CdftcD50RvN8hPNAYWN9lb+vXUHlqPqsLzLrp+BUYdhIcZ7
QB8xAvFq0KMAVWAcoXcBsEBTAUDQTlXNhZZmM0Kg1Jw7obuQMOoRajUlED74
oZNwMZ5B10BIgkJhEMkrz2B8AHuKuhWIaUe7k9QT4VBYBEJYmQxZsnToJ4LE
YWBJfdCO6GBg6khzkNUIhP/mhA9+Qk6QEgrUF2UCGoEmqAdcdJGEl1ZLJbrF
GuV5GHZAHNQAEep0V1A+FEdcPGBTEHbCBXjAlZ5oq9aoi0EykwnIiG1tsdE3
fEBN4cegHXJhU7B7aOcRKoOYqBjgBp6bvSb8yLu87CR6U8JWZA9iEQEJgV+o
P+KAQWggVIeEE/0o9B7V5O0etBlUBuALTelocyMQXwmX4AcigxXUp4JXxDRg
nFvHHoQPCkb4BbmHB2pGkwmkaQhESigtotMcE1QaHugGKTA1I8gF0dTggKBb
VQD6I46BWaqhVJCC5iazpuYytAigAkUFqISC9UAPaBfFxCcBJjIEsxyKisRQ
RLhiN6RTraw6Dx0NN5oQD2lAMapI3Q2ZZag0GcioCWqLQAASCQtqAvbgJzyo
LeoJeQH/4EE0RL655EFcF6Dl1uk0V0CfyVAOigE8wAOgJ0gHeoKwqoozrWEr
aPO5awX1ErqAoTRLBz+yomZBWQRssI7IdhSqZ1cDrlAdFCFDfVgCEJUyR7nI
Fp/wE6WjLCBQ6v+OOT/OyrG5qj0ei9NjrbEotXYYlwpuux48+Kdv5o4zLc8J
FczXTnvIkDu+ZuXkY9l3H1k4+ot59785qu+JZTPkTxUemP2AfN0s+/bFrvVz
HYUzyrLuvTrrwUOP3LF3/MgPpj30ztKs07tetavPi4dO/g5zBqKBIGG62jKM
1X0esFrZ1uKBlQMZApGwEKCi0FWMuqCuki0gzNnWFgssB3zCT8CRpL16aQWu
Di7yBHtpnCit+MPLhmKYRp0I9UqIQfMxaCGoDNqAxlaghsCEJAkuMoWH+h2k
oskQdFWIg9wrys5AbiBkyFnsj5Ym8KCYEH8MEcgS6YVuFxWCjuAPKAAdARDg
C3XWYAZwDXmBPhQARUNGVBUqGwVAw6kCKEkmlHgSJFeaySyFNQ2hBk3iAglJ
lhFOqxU0l4i0sEioztJMt6gVjR4RSOMLUIz46poSWtmDYKJ0/AQBKAKZgFmE
CeAOQQQKAj2ICfKkkYuYg9JqStU1VzvavHVajELtwQDEvMbt1FF/wjv86E9s
FrSBA+EIRIMz6S6LNPym5SK4FrHxSQ3bF5kiNgQVrYQyaBKARk2S/KQShP1g
BaCw4UaLQVfWGKhXyC+YhCXlx7iql82sqKm+ZLcoESSSefUep9jd0+Az6DTX
9NpSeEJBc13tdaRHNLdDgxCkcmKUZlG2NTuUVRebm6wtYadRL5eBRjYT1cK/
IF2aTK2FBIsHAX31YAZVHSZ8W4sbVjzigE/4BHGvUZSgu603VHHeAB2gMSki
aFTXUE+j1MJu6R4Qs1GOcusxZIRYGuUoXVNTAhdUUSUbpLECCqL8kZvfC+sR
cgsIqwcTEQLCTEa0Xp2yWvSbYBAyR6VuVh9+ZGg1VbeG7WAOCGiT+KhSXAZD
/uOIY3VVm511dRadzlSD/Hmw3n/mUMnjGw4+cE/l2DHmRx+pGXlHzdiRJeNH
HH3sttMrHr2wMeubhY9+Me2e3eOH//GuzKMPDTEsnWZdNkO7dOrZRY9e37G4
/Pm1tvd/E9jzR+XOV5R73rFcPioO5P4d4jxAayXgFYgBf9BSiip0G2Z0xLAR
0HOLfd7crVFfkvpuOZQVhg60FoMC9PGoHw2WkFmN4jKN+yGXZNySClInCcMe
UksLFFAaiCb8NDRATAgxQqDNCIEQw0V8mi+SiaX12wh/kJui6iJtXUIcKD1c
mlOnOVjERdFQcWQFIlE1peICpB8GhjCtjWIuCHaYWMk0VYrVgw4XiiALCslB
ORHJZMibLSIz4OYcE02WATFpsg2lQk1BENgH6iXtFnKPYR/0XQJHOwAR0oyu
mDphMqZpfoOmSlAkjfjhQSlko4ApwDFpoVFADRkxKJ16Y5odBAFktYNTkjWv
ADEoXVrywEDTDInX68QNegiHB0IPOqF+0AF4IPeICQ0MNdqge4gsLciJfCAE
SIIQxITLZIjLYsBylIdGhgcMBvUyUMe63aoCXpcWigKIgSaRAnFYFGglSck4
90GTEGipr5LuKUpCIP6F+kLnEIgk0GwoH5IDZgBFUD4Z/pHOOAf9RrF/3aaR
CcicKbpIXQW0GYHSWo6oNjyoDGAGvCB1B8BA+0nppe0pYJ9carBiqcGsUoOd
kxrsCigBsAFLCFfk5WcJ/wA5ABsHjJYGEyhEHNTULgZ2SmR4teQEQBt5ArSQ
D5gOkvATXIZ6wQOSpOU0BbIFpra3OJEVoWlVxTmwCLl5xJv31chc7P316uEC
e/7zeOOWqzCM85ma/ZaAslS5568HVuW/d9/or+65/0CPXmf79rsyYID83jsq
pt6nWz8TAyh+4g/tu541Pr/izKIxfxoc/3YiuzpuRNXcx47PGXPpN2uayvd1
mM5ySzH3aDjwXqvokF9pNP/DqCoLggENAypDwojhJqNCkj9pTGAUwwL0sjAI
IFxi0G6oFNMRztr0NDHBgHAyICGE6FLQfNR7wEWjg/PUv6L1IbjgNkk8uC0t
B4p+F9HwCc0BD3ohEga0CAQA0dBkpDxQNhT3faMUqAOto2kMsmARCOUEtSBJ
Gln1REKEQHignJJqWRAiLaII0xdSijxRd0gCEQZqQSqIgQtqQRhKh0eyA9Bc
bBgESFqedVLU5pATyZqCNkQy1MlpjwHobm+FskMPgahOhNzsN8FfcBkF4yct
aEEfUAzypg4acahHhmInxLGqyvMgGvWUUHcaag6AvTnVgEYiQ1Gyd6qoswYH
kT+aEAwF3fCAVLQNagVGSMNmwV9Ew1cqmjCmWn4J4aABP6m7B5ukRdQqCYEU
hHPgNQoFHII2MB34QmsKkACy5sjEASJAo6A5UCe40NKyayfhAkeAJlr1VSgS
Pknn2gAprD9+A4GgWFBBwAoUDvGQBWIgHgKhnYgDpRePARkqqVlAHCgWmuTQ
wmwDxT/IUIx3rWr2MGKgKci2A3tI9wlq21s9UotVSC1mRDSYWoA4IAlIRm0A
CCgbgagNgBGkgD7AKe/wwjWIMWoteIYWBvPQFCgCmcDiRMmws8B1yhal16qv
oxQkRz2RG5iB5IAaFIRKoghUnurJZEAdFglo84sxGK1+/KdRx+xRNTXb2p0G
+YE9R59/9uiWou/Wr1Y8tePqikX77xn+cb8uFx8d4d6+iH/8a178Pi/dxT97
puH1woaXV2ryJ3w9LOPwkMyv7ht0IPsB4xev8yZ5WxiD6LN25Xnn9XO8poI7
TQ3mf9xtBgWF+kpLmuhUZW5nHYsEXyDGmRmRnevI1JlCWWkanvy0wob+F6KG
tsLPPr2SpZUkCJ9FrFlHdK6cxseKQDBeNLwMWsDiEEqLrLR8C+UD4CCGTCzy
DkBIj27xiCBNlOokM1lFi1QwL2glGwYvbfuFAUGrVbSHgyZWkU3P7gkQSlAG
MUDB1IXTerJUq94QSgjhzaVxJEEIRAX+vr1TIDm06YGW4SHcyCQtJYKGLilJ
YnMDmIWvNYorVrMKpUscZHG0By1KJpLhG/K1mGogZNLXSKQHHWJrOe3ERgbQ
C3gxFKIFemFwe+q6pCMDKDjLwG/UC/YDfsXFiA0BxAqwHhgArZGWZCrAScg8
qgyaU5Io9760ZRYsp83f8GekRdJeDTQJfiJwyKCu0lY2sS0LmeMr7QOg7R3S
WoKK9meAAGEYtnuoprES7Vck2t0S7Ua7mDWCNrEkaEwUso9iwA14oEbQVCgo
/LDg8TUxjsnwg3UD1MBqQEpgC1QtSmxfrIILLcfoC5HhhyctWWQCrASBvXok
ksih0sIjqEn+n5xETJJAWoiGIEAobraSuB38RiuVIF5LkwMFRwqa7gTGwUJL
T2EtIRtKBRRKO2mvlV8/hfqAMkA4yUzXLjHohUAEbaEAA8FbCE+ktP0NP2lH
RWKs2EWPGgJYgB/IEGgD7ojdk1KF8bOj1QU/vto6bYP/8KxNhcun8lirW+qq
jCePmE58xWvLuKmMu8udFQffLpr+zMM9vlw51vPWJv7li/zL5zr2bud7Nldu
frB2w1hH0VTXysllE0cduKvfOyP6mz78fUfNebf2kttWybkXnHZYNA3e+v+x
ijqE5hIixa5tDP1r0T7SfhY1bVEDg8AsYL1kznf2wlAzyCvpKlwoDnAhNTki
GLBUlJ2HpnXLjKuWX6aTBeEmR626VAKYehl+s7WIAHVDw8AGaAm7kApfjfoq
/OzeNT7UaDfXo6utl9YLq6TDEwbJONZAbWifiHQLsgadPtkxoF/aIWKlTrZr
lygMaNDk0H9Jyszihmi7lrbzIWc67wAFrzdUS0tcdtQXdCJ/kC2Qq91fXnoO
4dIuKgCTEskhOrQ1tarykth4Iva6QkoUkro4xXbX9mCtqtzrqo+LZnQOxWHV
BbwWv8cs7YVRSkQ6eEcAhMFwpAqidvgJzQArEEGjui7xTawZoYI0ipIBS9hm
DOpo5aVbZjRNbcGckJa81WhEgnOYUqgdMpG2CmAAW0sFgQkoAvSnp0bqapGP
gfbEoWnQ3K3NblQTfmlHm1vqNxRgEW1x9Lj0EACgvLSmW4VugAYqpME0UyHR
75Tov0b0OyzqRr851GBFd+G0iitBLUaFeH7WY9SqruMT/IiTEMPMhuqmgMXv
NsCPr/D4XHqTvqpXtwS14gqi4ScC7WZVfDSjDOEnwkqvYYQahF9ZXdK1Syya
7Bb8rKWGhrAx6WbFh6mS1AAAH3HWReAorBITCR8oJnKDPlN9nTz6RohRVwlq
EC5e/G3z8VYvKmCRuIzWpfMz4CbkWxJcBQkZPhGV6IUg6EKpdJWUSZ2mDAyC
ct78CUagLPxUVF5KimNeZx1g6T+PN3ZXhd+nsWivcaeOW9WtJgX3qO3mYoej
OOAq/sMvl76QO+qbp3O1v1+vf61Q//uC4PtFLW+v0m8br9sw7nz2sOKZ957L
fvDLCaP/a8Sgr7as4sqrHACjqwCtJpvaiIGGS/f9/cgS3mTTzGN6qtiDDkxG
TwBRknSxCpIIP7oBQDfYRLvMaSKA9pNBrMBWGu1S+6HxwWsJh8TuYwg1AiHs
tJUTfow5ADZoYGgw9JsEAQiUkRZF29Ah9ZB00mwIFGWFT+imJR1SS41nB/BI
doEOtNExEmlB3Ez7NhAIkiBraSkyJkP2LP6m+qBIiAD5ka9kVwgJzCfCaQ8b
RBYk0I5TJEAN8BPii5SgHXShEtJBGGPQb5OOeogjAHW18nCjy2rSREmbsLuk
xQJxxB57qy4mklGRyBN0IQfaEEv8ICgkAvAJGgLOgbuwvOjgCOw+ae+G2MYF
JZcSOqQV7kvgBFl8Uj/uIxaSEsIDsqncxgYr1UvaoGMSN5FL/KZwlfIq0oKS
KLFhUommA0mgBPWFHx5ElgHSWB/gC4SC5pKlDU+iZUgcCPJAsES/AvoC1LDW
KzNSZPraciAFFDMOtp1REQ7a4I+NZPCIPYrQLjYX4YhjM9VA4wAxLlstPgGJ
oH0GbQUgBhkiuVJ+OT05AtFINMBAgk7aCw4AuRU/qf9ATwDO06GPxgCGo+Lk
oWhZtFd6tGgvbYVoryiBhqBQ3LuB7sqqAeAAZ0AA8Af0EDggDiLo1KXNUuYo
ArmBBnQzgtsWMKfG58ZYrwadE0SNNqO3NftAj0ecXYoS69fIUWCKRQ1mEcbB
BSSjGHR9VAxsPhgL/8wIqknaKZY6es+olYbBsz+/4hA3dd3qDIQ4t2wTt9B7
7SqPXSFu3rRWhqzl3FzO6yvenjfxg9mPlT29Tv7M+qpfrT/z5OKKZ1b4nlhq
X5V1cspdl1ZM4Z+/ZfjTi9/9YtN/zZ2cd+cQ/4XT3FTXUH293a4PWMTagc2u
FJs2uwu67/V7tDazMFSllcVymLcwDaNlDGKSkiD6HbQqJAKWHzgKACbGgztg
AfxwISj4CQwGp+ABZqNBSFIQH0xECHolcBDSRJgtPkmqRpKOzkTCNQWBC/pr
ye6f1dnJoBlstaQlN9EHcg2tRZ+LhoWkSyqiQHzoAbpgqCnghoYN0AZxl4RT
BwMM+kGmNJ06vWngShHqpJ3C1pslkh/5NwVtJKcoHbSh+xJkiBNrFjpm5HbU
04nXKOmAg2TbGKOF/Kos9bV0dAnKiqKhu9AAaee4UAjkBsDt3H8MrSFNB7aI
cxGSpoAOJPN5jEBZcXZXVKZzxCOlSuiSHgWgQGSEEI+QO+IA0GDHSHEGQNdQ
HuG9VO1yQksUDzgCN5EWdNBxEXzt0yuF+mjUPDKiM5wYByKFekonOogpSCiV
kvEP9KN6UFtqZrjU1QD7QSpKR1o0uThEINJ2h2UcKYan1dI8VxVVBA2ADFEd
hIN9yJaaH5nDj3AqhRoMzKEx0WC0PwqmUgncYW8CXKIkoEFDmY0qNEhS/P9s
KzW1FcYBP4gyEF6AIHQiOZ7B3GHSvTpxPpcBaZB10O9o8FmtJnG4LTUpWjoX
3J2OphnralCex2mKkg4UQ+RougxCe1NQ4aIx6TAOPknsEWsCYjyScmOXHzBm
eNa7aQPeZJFr6d6Pv50KHPVjUUa6fkst3u5wKWxO8VJauL6ca0v59XMfzZ95
dPlCwyu/DH/8J6681Hrqs5Ln1tatztUvzjo9+5HQrtd4zTmuON1cdU51bN+L
Kxa+uXGN59IF7rK16pVtrjq3rdpkqeghqH6gXl8GbEFnq1JcDAXrATi1qmLw
ocFnAA4AH9CfgJvUsYDFAFbqgoDfAFz6BKbDBcKA5eiR0P+g+wLmIBxJCIgA
PohAXZwAaFutVlMGqQde02kV0cmYaiBiUA74MzNiMIQRWgKZZLGQMnEUSxJ5
KBA0AAapmOkxslmEBWJzr1lFfTcgQ1pWtJN9Ul56Fi0HSw2GGBlfN3p/ryTY
okVJB5EvhnAgjiAAkg9dAKFXS06CFLKByWTr0zNNOqVfmxArzi2iB4Twos+C
wCLEbNRIJ2jt6DEJfeh4DnSEJnXQ+UJBYEijthhQoScFUEDlqYYEBSgOqVA6
qZXYP1TNRhDo4DdItJo7x0zgDZQQZFGnDg8CARaITDYZlA4WI42lUIGb5hSi
IVe0ALCGxoiUA1KhCCobpbS1gOdVYAFcQAki0zxePEq6VQ3E3h4Duw3ZIBTl
ozo0lEA5KJxOJJEpIvUWVQSqYDii3exvSEpAAigl8hGOzoASgpkopEZxpVeP
JGQrcEYqdSyYA4oIRunwH7Koqb6GMa5eq5BOKMthcwAV9NqqW7XZrUZQgB0I
eEuTg9QCekBjKjpNqqmp0NSUcR6mewwwpAa0SLavCaU0Nbik09M+uBBQYAyE
VSYW+hLLrp+hOR+CHMglepS2FjfwFD2q/cYIqhNpEob/PHPIzoHDf0dnN8R+
4lBj+EfbM+JWOrvSYxXby6wCeGCbVgXqS5vVxYYvPnw7d0bZy7/k1y9wxWUx
kaM5Fz61p3TNvFNTHziWO4Ff+ZrrinldCfdo2ozy2jNH33qiqPrIl9xr96jL
PGaFL6C1Spe8kD2T2BgweJwC65ubzPAAbYA5+EkrcF3FbLCYGxvWGKiv11fQ
fJ2lviotGSpW6XVpg35jcgJ6dA2+piaJayGixHlFHc3gtYRsHmct4kSJ45FX
kAkAFJEzUsXYnlAbOEDzPjenAMjaAIPBe6mv7JWWEkEb8dEyFAESaKirpJUS
Gk1kpEUiDkJoJIefdPKTJi/RVhhdtbU4b9wlEYdBh0Z1BeoVbrLSOU8QIwZn
4mssrfxGSvPEyAojSDF0kL51oU4UHRSwDsMnjDqom0K3CC0St1lEsfSUaISo
laXSRmAFHZyjnj+XRhv4TXPQNyfEUQhMD/Kj6ggHS/r3TcOoFYE0aqUJXAyq
UDl8RZzIGzPpNHahJRcyNCKluVKSYJoyxidaOCNpBucQjchA5sRISkgH+6gp
wH4URDsiaJ0cXAdXbkU/TEfe7qNWpRwQp2/vFOQjcSAZxCAazQHSjDMdGUIV
aNmLOED8SkYMKBxqiFLhAZXIiwwtBFJNkKZz3QJEoXehD4iK8oF3ncxmYlIY
A11hKbP/W5PRtDCT5oV735wXhoAjAcIg+BBkneYaJBqjOuqFIPvonWAtiZOU
jKG7hAvgxHBK2FwOA+APftF50mw07Z6CcNLxOYz7UbuuXaKkekTSdkyxGfP7
p3HvnvUBi306OnkbY7cxFh8XmxQRExX7r2CM3yYue8NgxgaM8dSIl3aMpd6a
S3t/tf3yzt+KqRdjdWv5aW68wp3l3FTs/fPLX0wfU/zUam68zvUljbWXmswV
DfVy3ujwqkqVp44F9cqASVmvu9rYYrKKC+Y7MSYB9ovXJSYUjHWlLSGLvPy0
NOOtDXj1VlO1tMK2jPZFNDWYwNq2ZoempgR+NAHgBsMsh7SeCTQhDAK+gPGE
PoRHyEpsomhzw48INHsPNOEdfggjhAsuLa6KfWbtPmmxSwN5gpxAouGHtEKN
YH9AVKXDCMLkhDxChBBI+E+IAz80UtpIpa2WX2hvddHecFqhrVFcFoczNdc4
9zeHbG5nLZ3zkbbj06qWmBNB0TCDxGNeN1bkSQNo+VeSfSgkE5HQD0NT0Dnj
A/zSQma9vOICLABJo8WZRfTAUJzmkEPqlsTeOM4DNYoSZAQ/rSMDcaH+0Adk
DPikdX3kJmbybRpYZ7QTDNWmASDpO3JD6bR1g3YS0Oo53SSEQNqNR6gizspJ
i7uIj7QonVK1t3qQrUp5BTSgRGQIrEUEWiVHQrjUNvQV0WhFAEQSWv4g/XSC
k9CM2EdLDGhCWnmn1oKHtpggIe13kXYeVKM5aaMd6ES5EAtwlbYdkHzQ0IMO
N5OL6iBE2nEorlxEFWjlrFp+CYCGQuGXzKJqadyGtKLut2qvW61wQ8rFLcA2
Fa0Y4WvZtZPoUSHEkFcYbiBDsizFxJt0wYYWflhZAFiyyMScjUdcR4EeDxLZ
ErZDOmlXKuRVuuKgtuz6Kfghl7Xqq3Rjx9+QxtDGk+58ts9dH/QY8CKsGU+g
VdznJV1Q9S8hjc8EpKkkpHF4lHZTuU1TfGbPO43VxdypbdVcazGXN3mrzbar
7d5KfuXoBznjlH9+heuvcHtFo13uMFeIt9xM1bzF49LJfUZl2G+w2qucDbV6
W4X9BtJEwXZxWMXyCZBasltug03T4KsDutC2RRednFRdEff+WZRqZTFBSL20
XR6IolVfBcfBd9o6iZj4BD/Sii0GNnH9IDAGgfDT1grgFsRFnBIUK91CdTl0
jpaSoYK0/0w6bF+FeNLJ/zJSeQgIBJnmH2nTDuQIMdGx0e4K2tIgSZzY8msx
VdPmPrQeyG0KmoEtdNsXXDQvWpuOBUKESS+pEyRdV1RdhpDS1i8QQwoEKAPJ
KAVQBtogDiBe2vusBHxBCeACG2A2SZMpdXSwnFZvyB6mjbggEpWlJWna7ioN
BsTquXSdBqBLTrOutLsOLt3IAFkmswIwCwwovXYapEIXQQBpIS3i064cKBM6
d7iAaNJjQAKdV4dZDhf6h9yQAyVHttKciJFyoFVaYg5dW4DSgRa044jQ6Afp
R8426Z7LXj0SwUZ8Jd4ikEazcJEKzJHUro72tIAkEAPVJPsIbETpKBdEgtV0
CQ66fMSUBqKd24JopR75IxoJFliHEFhJCOySHoWf0vaGGqk/EpU16iukzbwV
t2qvW23eQ78JyUZXi3AAD2x6ABJEHHiA3EA5XSEnbWKtRiDoQddGY3WyxVER
xKHzmBBLdU0JY0mQTNrcKYExjEEPCTBt96SjpDex5rpN3FMpy3gxMnEL3dwk
Rk4RTAasyfwXsMZvFs/qAmtkNreS9bZZ5TZDqU9f0e7QuKHdOlhcVru3+rr2
TCik4TUXd62eJ/90p6fyJIDG51GarZV2F3q16jrVVd7kaPLWmY0VHn+t3lFh
9SpvYs3rQBZLfWVr2FpXexUBnHuAPiqFYDJtkAKfYdrAaAFAwGKhTQUADvjx
iXaXw705KEIEtAI8QB8gEcIRH/iCyLTXWyG/IHaaW2Bv2iE8EAPqHkkHISG0
H15qNTEuIomi/h9JoCmQQ+rtpZMUbjLqEQFNSUvxtMcPEElmTDBQT2eJgDNo
XyAP8AFQA8rpUAzt4qO9X/DQhn5QRf0/EYCvUG3aXAoBEJtYasXhe7Xqsjig
aKqkELG3sMUmjhCYxXFJo6EMvRMdfiEtQFbIE30g/MiQlIt2v9AInYZ/BBqo
L1wQgJ8y+NinN9f+xBvahipiI7ICE8gSoXsxQDlwDDSjIMRHcsoWxSEJrSQC
JYirYCb0Ai7ZAgQgiAbFpG0OZECC7QR3SIucy66fQcit6Ed8BNKdWaAQugze
Ah8IECSgvkTJaYMhIaS0vTaATxQH/CEzkGw0gkT4QRIikNVGe5pRClWByKPc
pLlvDQEIVFVRfR7iR/tO3S41ehlx4O0W7XWrcwmAl7ra6xBgdLEQb3TJZP9D
kAx6IV3i+G2DCfIgjqypi1FuR7sTg/aMdLHJKDqKUU9Hl12CMAyNyK5GOG3M
BDTRkR3askYn074/ehox8/1ut7+T3vMXgRbe1CLdD0Ojpx+NM+KZbJt4mNfm
VIg3GFhvq0OcPbLqyniTLezSGTVXjfUV9sY6Y5NWa77OTZXle/6oOvF5g7E0
4Fa5vWqnr9burm0ImiBo4YAp4KoFkDhcSpOryh3Q3Bw99WoMGDBuCnh1sGxg
ylRVnHHalDdna8KNJoQ3NRg1NZfr9WWIoNdeo4NvPrfI0W6pBi6ZDOVWk1yc
HYOPdYUfoIaxGMZl8PA2p1ZdgjyRFT65HSpxjNdngIUITYfO0q1RdEsR0ECs
RyvYBnwALkAaxFVDEqYjWFF1ES1Bd1x0tLnphBudUKCjhDBT6OiSuB/GUhVs
MMCl8+eQpLZWOySAwum0pMupagjopTenNXQaS5xlgGC1wOLVaVRX6DwPBIVO
4tHtIeJ0n6mypdksHaVUhZpMGvUllNLaYkFWAb/W79P5fbUOuxIuHbqko0u0
lZnqQme+6MA1ir65458OX6B2IAZVo8tIIf34hN4XqeDCjxA6OIwQSDmd2aJN
vEzaT9yLTnSjJnQaXhzjavfQFl66XE46QGGkMxh0QhEcp+OWdIEIbb6GH0TI
8I2lid3iUDLNNand/DDrblUB2tUpvcA+FFnRsU261EHalSCO6ZMOkckJP6LR
TnA6AiYdzhPnVVTKYjrCiGgkATTYAAEoDlIj2ZLicB1dGwSSpLN3Qo4m0fEP
ISkNBrerpk53zWi4jpZBK5WXnexot9+qxSDhP3josqPVAQ+0B2KMQKgDtAYa
ASmQ7nERxwalw7q14ZC53lgqnSmuDvjrICOiJ7JUAuUQuTFoRNHop6Q7avSi
q/LpULR0yYKK4kBI8RNUIdu/jZ8UfnHvOWyaiPgimg0Oh9r+JZvG7qpw26rE
0pNTKbDG4oRNAwPF5dY0+fQmGPPomzCIhAbXl9cHDWZ3TRNswporivNHWn06
cZeHudLu09VbFRarmFE11pY6zdVBv7hBwRPQ1FvLb2JNMuCAzvbTMjeBC0Lo
bDuiAInEJQAycJWNB3IQ3iAU7McHYJIwlpxqOvcPLKEbApAj0qOVkBEdUYWL
OEiCr2hGSC8dt4VswIQk8aPTR2R3SJtGxBFIyQhV1Iv9550gQocqScghdXTO
GREAExA8Og6NtqXrHNBQdA0C2l86fRntcYtLtOj0tbhAQobvLJVEn7bS0xCZ
+hS6fuDmlS50IhpybKlis4MNdeCptrYYwipdbFRlMVfAI8lTjSS1FXW6K2h9
U30Z6RNyQQF0cQvhD21EpGPJiENbflFXUACWiGMhN1COktMpLYoP3oirhKQe
ER6iksCQSkFa5IZqkB4jDp0Ru3ljBM0SkB5T5nRqlXZ/U4bidKWodCpQ5OZR
akJmurztB+knxBtFp7eoMKKM+nO69IZaXOy5kCCVWpnKuHkTBCLT1daUuzAk
a0ro/CmoRMVQsHQSTUHTp4Sx+IQ4xA4hWvUVkh5XydBobDA0z2wqR2+BhrlV
g93qRgk6dY1P6E7hB/xgTAAPMpduutLTWWRk5ZTeaoT+doeAIEf8bmu14pt0
85UCSII+sKmxnsCkOWyhuw4guNRJkuDSxSz4+o9okzlkZ0LGkw2tfz+C6kK3
LnUdu5/Qpsz7v79yS281sUhh14jnmkSHY1PTe0IJHptIYXPU0kMujbCITQrx
goVNXNgrE88QROMrPeKCZOKFXPEikszlqB5/4zYe6ZY0u1rWeVvaL7/np5t6
HNJNaTdrWO0TNewy+O2Ubj93BMR9qX+rYcaPqqHNVQEYRfWk2kXDY3dQBemN
JPHUT4rXovVYtUiG0IBFLT0SJF7TvvE2199qJ/PSO5Tiwapqep+LPdZ5a1Z6
Zy2lm7LoiSBxn7GCfktZsV/8wPcf5ECVV7xFwZKeo5c0Ou+Gy8zo+rdX2f55
DlhdCmrdWDQX1d91gwWIxCIDZjgAT/H8kUWc3xCLFvRKUudDQmrxAHKkz0pP
ddHDQqyfaF+XXXHjFry0znsbf9X5bxrdive3G++K6/ld2e+l9HsjOnkbbPLO
93CsZtu/WitZp8x2tqr0HoMks/QGFuqBKjWYaxtNwqV3vyKld7Okd8xIWjtf
hGfRqBlqSH8ioH9n/W7cRylaWFxrrbjRgP83l70oYqf+k7E70wiOSa/oJv+T
iVj69/l73SbevUns/bu4tB3BNiE17W033r3p+i/pzd/ERbwnppbe0k0Vm+/E
G8fiTafAjYfJbr6gJr2xJlwhKJ1v03a+31rz/Tfe+v4DdzOIu/Sq6//mEndT
/snYnXeHyn5smu/zttLNM+97MSrzN0mZTxHqCo2ku3EzfyRvxQ1fN3AImGKV
ZPbvngK033gaTzwCBt5J90hKLBbCyWTigWmhjh66V1K8HCi7cddkp3b+o/SS
dtrVv+r8l25VldBZ8f2d4d3u/w1GzWk9nq2zilre2KX54+oohdfQE3D0+pua
xXlsne8Cwmo14c+jEFurXNVC4tGTEBxKdVYEYO6LMbe4bs3urEY8sxuxa26q
urjp7fs3xff5wZvm/3YbfZJwIm+ozo2b5iVYFvCO7/Za+k3fn7/VdyqSJd8s
T4oiBPdGesWN2++l8n7g5voeD76Cvi21+zO+8A0dDfgaRO/dyMMOzjMe/WRk
Qe3gnE/KvVxvdUtCIb2f6Kilt9SQl9ldDf4hXHoJDjYpWM/iA2bx+h/Yjg/g
FmKAz2ZXrc0hvVWD/hqeNInL1fRWI4EgQuxSN2mFIeiosznqBJcdnU8cir48
UuJ35/sZqJpAWpnTKRcr19XEdiZJYNwNnnVyQjxqJ21BoTs6OpHLKfc4Kjx2
uXghEF2veNdQzLO4HHJhQ1jVgji7HJjjKGMx1NFSXp3vX4iSo6gSkgDIZSJ6
AvlFvnb5jbf6aqivA1Mk+mKIOLt4tbKaoI3e9iPKxEWU4n0NmxY1kQil589v
vFgp6ip9jZRIUnSCtSK1s4Yp4kVB/DtBlDXHdePBxv+fuZ2viNOzl/+7S084
CgtV6sJ+VEr0vWi51E4JdEmvdNrLfLYKifWiHxbN75CLxwbFK/SKTttULd5s
pPfOaygSvYKeTPRLXZeQX6PDdc3BezzydsqgnbHpO0JtvE0ymFkEl94ly/Rw
Uz3nceN3Ds4r6TfjzVIrbwxyh8FodxjNbvHUltGrsXgr6/3lmgZVbUBrd+v8
trqgpb7RbJFhyMziGs1m/AxYDT6HzumuQQS70+a2O2SNFgMb6LY6HXZoMYZX
leJ6XJvRbzH5rEY6G+G1Q2NNLovPZfW47TqvQ+EDADqq3K5yl6vc61B67WI0
7HApHO5SEWLTiV2gnqsO72XEQbZ2l5LJbG4VG2rD2MphtDv1DleVw3Pd4SkR
rlPlcOjtTp3dpbF5KhHic5U02CoxtPKbPKBGZO25DuJAVtBkbTJrg7ZKv+uC
z3XZZ9N6KYK7EnS4HUq7pxR0NFiVQYvK5aoCQUyG6Ow2L0hGFo5y/El+MWRC
+gazyW8xulED8QCY0eHQgZcWb7lYxbDpfXaVz65EvkjrdV/2Okt9ZrvX4kRy
l/sqyLJ7yu0ulUNMv4hs/War3+T02etghDjV+R5nrXR7xkyvXeMWvPx/2Y3E
P6loBfbgj0oJ/gZtpQ32codTa3FrzL5yl6ek1XK51VJiMV01meVhZz3MYyhc
wC/XGopdbk3AVhey1IXNuqC0yVtMqNhrAo5qQLbDViGu1As75HUVGqs8EKix
+gMlXp4y5qPovn9K6PY09AvK1epvhn61CP3q4uTWOs5jxu66e73loXXnT9Zy
nZkbTFxp47A2yl1w22vcAYW7odTLSz1cbudKK9eYOIvUGjmL0xm5rl78qS1t
CntYbu+QW7nSxGV1+JpWU8+rLFxhDykc/ip7W5WV15h4jZkrbCJyjYWr67my
nitQnrWjxhaSqa0tLE7haESSGoQgrZXLHW1yZ2OVIyRTWjhLlbt8crdL5IlM
bLwKf/YOuAopsgh0NCodPoWjQWHrYDKEsYFSpBZ8gJLpzCGdnmv1XGnmgian
H3mhLnV6bjDwOlNI47Cq7S61WURAdVE8ykWlK5xhuSOsRW2NUpH2Fp2po66+
A4QqbW1MprG0sH5KW1hhb0FstYlrDRz5wi9iI72dX/eEytwhwQYzGMZRW4kT
IdCL2oMZYBjyqnI2yF0NFa5QhbMNxUvMaJMhOxaJhGAV/thmOFtVNs661Fpb
681BvTmMosqdvNTXovAEHCafo77R2MRr/Fyp4T4vLy43G4PczvllbaPayuvM
sB7r65FeD1ItXGtr09qbddYmZxP3tPELVeHaAHd0cK2LX9TyI0Y+MOdS3G2f
sMTN7gCkqF0IUAQPCynqB0PJEwKfj8eNcbM7T/aZfqnr6E97jdndfdJHXaZ+
lDFtb/cpnwyc9MHgibsGTjjQa/LBlOl7E7N3p2XtTZ+2L2Pq/swp+zOnfpY5
9ZOMabtTs3YlZH8Qn/3X+On7kqd+Icuc/Cm7PWXaV4nTDyRnf5Q8873Eme8n
Zn+SMvVYytTDibPeS5z1TkrWvrSph5OnHU3OOpg8Y3fKjI/Spu1Lm3YA4SlZ
+9OmfpU25WiyyOFg4vT9Ih/EnHY4IfuzhOy9CEHmmZOOd514rOvk/V2nfCbc
yQdlXScdZpHdJx2Ufu5nsq5T9rHJgtDJhzMnH+w69ZOuU/YiTebEb0XZWfuT
Z+xNyfosY/JRBHaf+BUyysj6MD1rd/qUwylTjidkHU3IOpY85UzylBMJ0w8n
Zh1On3gufeL55KnHQE3GpBOZE0+kTTmeMvVo+uRjIsPp+xJn7AOVaZO/zZh4
BhFSpgnqE6Z/FT/jYNSsfTEzDyBDcCF96oG0rM8SZ3wm4mcdQGVQYbjgBaqa
MP1gfPb++Jl7UVuwIG3KMeQPItOmfLE1dernLFJqAPHHioQzDHT3mfhJz4n7
0yafiJ92KnLm4YQZB3pP2N9zwmF2376EOaUJD52NvfvQbfPPxT7yEXvg4+6L
LsZlHUmYeiR94je9xh0fNPab/o+Agk9Tsz7KGPvnfuP3RY74pM/k4sGPlUYN
3Jcw+oueM093nXWBDdudfOehxL6/DnWguxczKBHcL15RzeSQOWhsz3MxD7TF
THIlTNNHjrmePkPJphazrCssqzJyqjxl0vUuEyq7TKhLmGJgc2vYQjnLrWbz
lDKWU8P6sBwlm4uflWx+OVtQznIr8Ul8mV3DZqnZbB2bo2U5VWxuKZt3VXiy
7Wymmc0rYfMvsdkaNsvEZuvZHA3LqRRfZ+lYtknGZhpZFJtpYtlmEXmmWcZm
G1kym2Vls8xsDuLrREC2OSrLGTvNGjtdE5tdFTtDITzTzEwWM83OhsZkmWJm
qKJmKsRftiYqyxo53RoxE0Uq2Uw9m2WUCgZxGuHOkkIQPlsrqEHIbFBm7nSz
3WymUxQJcqcH2PSgIEv4PWy6T6IStFpFoEzQliF82faI6e6I6XZRGcEGHcvR
sbl6lmMUOSLxTB2bpZU+6UUxs1Bv/EgUdMyiso2CDiREpZF7tknQN7OWbWWz
NFtZtpoNY9NroqcqZFPUbJqDzfCw2VYRZXIdm2xi88IsKxAxydttppvddyZt
TiW7+xjLKmPTL7GsYjaxNOGRsi5jrqU9fFE25Vs27WjPeRcj7jnU7bHqtAdr
U0fVZY5zsUe17NFyNurr6LGnut1/NrHfK0HOG0NBLuZRpP5sNA/x1hCPH/xN
5IPuqJkulq1nU9VsroEtN7KVZrbCx/IaEpYF0pYE0xfzxDzONjSzLQG2OcA2
BSI3BKLWByLXB9nGICsKss1BtinENobY+gBbF2SrWyILOuJWdiSsaEtY2ZSQ
70/M9ybCs5wn5PHEAldigS1hZUvcCp6woiNxRTghvyFxZUPyinDK8o7UpTxl
GZfhhyx5GWdR8IgYeSKlLHFFG4sXafI6Upa3pS8Lp67wpq50pOTbUla6UvLC
TJa8nLMURBMFFtgSCxwJBV5QAVqiVjVGrPGztV4Gd00DW9PIVjdFin+S2Jom
tiYMqtmaFrYWblNsoTcx35OQ3wi6BL35XhmKlSXneyQaUuBJznckr/SjerH5
LbH5bQhOzmtJWd6Sir9lwh+X3xRT0CSLKQizF2ILGpEZKEzOa0tYwRE/Lh8h
DeCCIBZ1BHdWhlFGJ49WNiXm+5NXNMblh2UFrWxVOyts/8n9N12Z+CeSFbSx
fOmvSDjDZCvDscu8McsCbAVn+Zyt6mAF4YilQdmSJlbAWV5rn+WBvtNL+009
OnTu0TsXn+4+61DG4oOZiw72zzk2ePax/nOP9J+3b0Duh/0XvNd30Yf9Z30y
cvyRwSOPDp1axYYfi1lqYPNVqYsMmdmqyNu/YanPwyJobm8DkkMPxfsSt/OW
UHMrjxnyOXsQIGZlCx0RS/wRy7ws385WOSTZbJatbo5f3Z6wises42xLG9se
Ytsa2dbGmKJg7KbG6E2tbHMH24Y/zjZztpFHbgzJNjSxtZyt4dH5PLaARxe2
Rxe2xhW0x+VzWRSqmRRX0BxXGIwq5PiLzecIjy1sjS1sjitojV/JU5bzJGhc
XGEIEg89TMxvjS9oji7k0QVchu8sIVpkyqVcQkiDlLGrAtGrA1GrWpGjTFYI
mzdiTXPE2qD4WxOKWC2oYWub2bomGdsQYHECKtY24RNbG2IgF/gBjFmPdgLh
UWxDO1sfil7jjVvtlsWu9rGo+FXu+EKfoBhtiR8ylC9CnfGrbXGrfNGrmmUR
qzjrClLiC4PxhYHEgqaUPJ60gotPa0JRq5ujVjfJ1nqj1/ji89tRC/BGZLcm
CLoRJ7agHWmZDJVisWBIXJ70VxiKXeOOXh1EK7A6UYdhMrAV6LGqSaoRZ+vh
tkSu9EWv8LDlvrgV1p4Tv37t3aZQmLeFeHOY+/y8sZWHWnhrWPwMtHM/52Hp
9LjFyzvCnGs4d/I6NX/pEx4/F1h/go2/wkaXsEHfse6v+SAzkBjeHsFDjZCZ
O5rb7JAj1u8d2aMGlqVnS/yJK9tjlwViC+wxa6yR63yRGxtiigJxW4IJ25oT
tzYnbG1M2upP3uJLL/J03+jqvsHXZUNLwmYesZ2z7Tx6I09azzPWN6SvC8Sj
ZmuFmEWv57JNrbKN7XFreMwaIVRskwiM3sBlrKiVRcKPaFEbYBtHbWxliXHr
25PWcPxFb2yK2hSMXx9OXNeSuLY1bn2LrKhJtgnoHAdWxck28ogiBDVEbWyJ
Wsdla3nEBpE3csX/m3gU/mUpQo6LUFh7zIZW2aaWqE3h+PVNyWuDqWuaktaG
oze2RGxqR06Cmnjkeh/oABUxG5tiNgZROmiI2xCOWd8eIdGNQHySoUob4G+I
2+SO2RCGn2qF+DFFjujNtriN3uQ1ohYokW1GLcJRRX62vT5imwVZidoih434
Ggb5ss1e2WZ/9MYwKEQd49bxuNWCU6ANn9hWL9sSlK1vZVsj1/KtQm+HIUri
uqb4DcGo9S1Cuje2RaxvzCgw9Vip7ZpfN6Lw2hu/kzdebXjmkekvjnnoF/eO
fHfy5HdHjfnzyDFv3TfmtYdGv/rwnb95dOhLjw599eHhu7Mm/ffQOz8a8cDb
w8c8OzLbW95S9F8XM+fuT8upiR5fmzG2JrLv29Zm7m5q4Lw1gneIt9/vaOV+
D6Smzx+Ss2BxWGTLQskrecJiX+bKui6FNRlrtGkb6tI312Zu03bbpuu5va7P
ZmPfImPfzboBRbW3b1AP2WDss6EhfXNH9BM88nGetIl3Xcf7rbP1XWtJXcsT
1vGkjR3xm0NR25qit7QmbuDxG4Vwse0dcUU8rqhDxnYEWWTs5vb4TRwukyEW
6xm3uTltQ3PqxlD01lDU9mDSFmdqkTt1Q2tiUatshzvqcW/SBiGcUVs6ZNuD
cdut8Vt88es5OBkLadzSKtseitjeGrEFqAgoEP/2we+orc0oBH9RRTy2iKdu
aO+2rqnn2mDXdSEERheJxIkbIfHtXda1Jm0UMRM3tYP22K3B2C0iThzkcTOX
beFxm1sF7ciIpcVvCSZu8cZvbkYObCsH2kZvC8Zts0c/7ozf6u2yviljg6hD
xONBkQqtH/GkiXVBDUWGEOYtHSAsansg6nFn9Ha3KKioNamoKWlTe9JajlpF
b22O2OFlTwTYjhAUj22BirF3Y/BhnfiLXfuT+x9wY9d2JGxsi98AsOiAMgMC
otY1ZxaY+65U985TDpm6F0D8TvaCYzmPHp846MLsO65Nv7PmsXvU4+4pnzz8
WtbA6zO6lczsdnpO37OzhpwbO6B0zOBLwxNUU4Z+OmrALx+Z0tjGUya+m5BV
wUZWJNxTxbq/YWvByB//tUS0hfzQwjfDPOyGFT5od/TDZpj+sqUtqeigsuu6
z7vUe/6RYflnMTDvt/JQ/xX7blv56W15nw/NPz6k4ES3hQdGbr7QN/fA7fkX
7nzcE7nSFPW0UC8AzuBtfNhGddclF1JXN3aBxBYYMrfb2FojW1rb9wmeuLaB
rbbFP9PGlhsGPNfB1mjYeu2AF9pjVpmStwbjoXUbGhM3NQ7Y0Ri7rC5pa0fK
Ey1s4cVe2wxdVjXJlrmjd5jSnnVnbuCxy1qTtvPYrY7u2xSAhKSFjRl5vO+2
lqTVdZEr5MkbLOhvM7fwxDXehDWO5NXe+AJrz8cd8WtMssJQ6s+kLjKPJ6/l
w57i3fLsXQobEjdDI7gMwJjrH/wE740OIseWthE5tAAO0ncEIlfbASoxq4Tu
RKxtilkbjlkrtBWaG1Vo6fYEejt37Lo2ADhb1pCEfq7IG1fUFL3KmbRQNXCr
M2K9LnaHPzY/nIJOZouDbTambA0kr2/s8TiXFfjTd4Rl6y1JT7hjNzvZckvG
5uZumz2JK1wJS3j3zRy5sc02tg3jm7DojraiG5FFoApbI9dz/PuT+++7ovuV
ia5/iJANiMFqnlrQ0G2Frfty891zvuFe/snM2d9NuEMz9y5d7gjV7BGG+Y/p
csZalz1oWTLEktPFvKinsnDEmfnDrs67/+rEQZrxCaX3s1OPdn1pzGizl3eZ
dTB+Rk3kOFPMiErW7U30e9IZjZYI3h6CFv43NDLYzmMGfhQ71sCm2tiSxqS8
xqjpV3d81PHU+/ptb5X995fm33xS9erHV1/6w5FX//jdC++XvbrP/OJ+45Z3
rr+wR79jl61oPx/ynJ9tMrCfd3TfwWNn6wYuOZgwZSfr9U7GGvvw7dVs0PNs
xPsPvNjcd/l1dttONvLT6ELV6OcsrOuz7N73M3dou625EJdzhI3Yzfq/n7pK
33tdHevxCrvnw5QCVe9tptQFR9kdr/VeeC019zob8lu24OSAlfqMHCWbfCF2
yeUBq75imZvY0P2PbGth3Z5jtz/HHn2X3f4Gu2Mf6/ZOv4Ird28r777ou+Ts
g+y2F9hjn8UUOoWhuoon/gz9XnPk9Kus/0521+dsRTB6E0/YwLtsCPTMr2Kj
947+NU9daWOPnmf3fs7uezdh0fmMPE+/jR1d87Vp+XI2bA8be6bbCkvmEnX0
nBPx846zHv8VPbus+zaeUdTRa6OG9XohatF1NnofG/x2+pTD3dcpBj3lyZin
Tpx5jY39C7v3D2zKycHrXBkL1APXmqNyTrF+qPIHmQXVw7e5eq1UsGGvs+F/
GbmWR02wRi+8yh7Zw+ZVJeyAZbixg2mFvYZ/f3L/fXcd/tp+cv8zrgz4JY1a
h4gBIQa6hTxmZSgpz5WZ7x804zj38H3z51yb/5Bx4b2GRfda102uWptdunKy
bunoYOE9wQW9LXO6yZfcUVU07eyKCeXL73fOybBNijh1F3tx+MBwmGdmfZ04
TRP5iCH6rgrCssaOdsmul7BsMm9tb2vm6QPfSxmrZFm1bJk5eoWeZR148sPq
QyWGei/X6u1um8dYXvrHbWt4nTJs9Xo9bRfLVAZ/hzXEjW386f2NGWvPxP5K
y7bVJa8O3FaglXfwKowVxvyp69KzVe1cB//tr/Ycv9fUwTXtnA3/84ClxSVe
XofwEa/3W3z8g0vCr2znD6+rGret4mqIm9o467Lu7sIv/lwuPp1X8y9LuJbz
31/gAxd+/ellrm/jz33BRxZ8q+fcwnlU76ev1HOZyJEr2nkt57XtfPiMfY+t
3bWvslkR5jX4a+SPf+hms79l611RMCpWuLtvUBVzXoFEd78cu7w8Y5srsbC6
95pLl1D6oHUDV379uV1UpLqNv38hxG5f3X3a0QFzzv61WAy4yzgftvT4A4sP
ndVxRQcvD3NdO9/6ZoCNODNma1MN51/peSXnxQFeWcsTM5/tOf7ogOwTSh83
dPBrnO+3cdb35aGTTj0w98QVGy9v4irO91Zw1mNH0sjXUCkT54mDNw1+4Piu
44KGd5W8b6EyaqE+ak2ArWti60I/uf8Zd1WQrWr4f8dlw/+/JEAm/h3KVjey
1fjtZQUhMSu6Esrml+U5olb4+sw9yxv57qVzzy96tHzBaOvjc/l373H71auv
bS1dPtG59FG+dZpnwV3avPFnVkzhnkr/+0/WjY/hUxNND6f9vldfGHb9xp9K
nqSKGqONvaOUZb7u4zzc0cF5u9jL0gxEE9NdHcC9/u+lj1GwrBq2tC5quVI2
5S8vfHhOazC6dUr5sc+4tUq1+7Wja6cEd/+Gq4rlX3z0wctPN9m0XpO+qZU/
u0s7aOMptvwoW1vVc33z8KVyM+cGwMTgn9+5+qSdc38HTx3y60fmHHAFuA+I
dvvOkQvOuTmgmnd58J0hM/Y5OAdh8X2evmPS5/cu2AOdr7fy4fdsu+LnCs7f
eM969gLYwA0hXvBy3R0zv0AmOgfvdv+rd87epW4Q+aT33VquF8vI73x9hfXO
nrD44/uzvsxZdfqUkhs7+HmV78BprSPEz9TxIZvlLLeUrXUlb3UlzztU2sEB
H6xvQX+A8tJvuy4/cqKRq1p4l5GLvjFwJedvfhnee7IZRXwnb44Z/vuHl58H
5aYwl92x7Y45uw4ebwm18MMlgT2njDByi6v4hEJr38nfAWRRqcjhOd8BjRq5
oZonD3j5Qi2vt/G/fl7xtdZT3sq/LedD7n6jTMFNbv7lqeaDFztqG3hJHR96
//OOIHcGeWzq6EWLv3I0cFWIb3jHOGDx5f5rnGLes6CB5Tf+5P4HXPYuy29g
K/DnZ3k/uf8R18fy3SzfEbXSJMtzsWWcLeVsuZcts7Mlnj4LinkT/3Dp7IvL
p5YuG2f++UpedoS7S3m4tvjxNdrVS4wLJjRvWVRemM0dct5Qw13FfON9mkHM
8kD6rsF3wni5M6s4+bHKyIcUccNKWJffBTp4c3sHb2+P4K0tnXjWGuJd+u5O
f0jLptSxxea4perE8X95493ju1//Pa+5duBna95dMu3aM4Wl+Y82vlhg+nXR
h3PGnXlxGzdXc7fVrwm8tds+OO9UxnPmyG3eLrktd85Q+JsJt14aNGe/pYUH
YPAkFU3MORRu475WzuKeH73kmrlRLDSw7s8NzjoIhADYJPV+5pHcM8NmvlsP
CAhzFjsOYAZbKyp15UNjftHEm828I2nUmw8svgDwE2sMmQWjFnwB4LRyHt3j
l5OXnizzC3Da+mZ519Fv3jX5zCPzz1c3cOQW029in5FLE3vNjxywjQ18K3V1
feJmV1xexZBFX8FodDbyzGGwBg+k5+z6VMsVTTzUzgcNGmcPC4Dsec+zd45/
0dYkdmazbq8MnnY80M6dIK9vUfaOq6Gw6A2ie0zsf//y2IT7krvmRgx+Y0D2
51axZsLZgLx7pv6Gh3lbgLO0uXVhHg7xHr1nP1b4Aqqmb+ZpfefZvKI4Wfzc
cdlvAAINrTw2IyfYjG6Hv/72h5Vq7mnnfz7O7ys422thccJ8Rexin2xxc9Si
1p/cf98FnkVJHrjRP7n/GbcpcpkvZpk9cYkhfrE9YgFn+FvsY4sdLLeh95wS
GFl7l8zRbllm27KksjBX/cpTADPeUs8D/uOPP321oEC+fgXXX+L+Su6q/nrV
lEvjk5sWDKwf2/uzex6G2seO+jj+kZLI0aXxt12ISP8tjIg2DDilvSPipfmX
mlu5r5kn9fs47UEtm2xgCyxpuaoeY9/b/5fTzSUXuaLY/O7Lr40dejJvcujZ
Ra1P5egKp35wX++/zLj7zPPrT7zwVPXhq2/+yThoyRmWX8ZWWNJz+KOLXOEW
3tjGY+/+/YDsz6TpOp4y8Jf3TfoIKAU8ZYPeGT5PYJKjhbN+L45YdNJJ+JS8
ecz8c/cu/gyYBIUePKLwfIDLOf/iOB8/4deNvEkgRNKT9y66grSWEJcNferu
RYcwnK1v57E9fjtyytHBk36haJMGsqmbbh/37dBHvoSdZJcOiWid3N8mIISN
+DR2kZHNLUvMuzpy6TfOVh7089Tui+9e8sHOa/xqo8AhHuI9YwZ1tAnEjehZ
MH7J+yBP4eK9Z5wZMvuSLyyMRTboifRx7wXE4q94nqA2yMHJYAuPGv6HuxYf
A54Zgej9V42b/0feggE+H/rYc+pGHg7z+MRx9y95rlYaUw65b0VYbCLgPXpt
nbNsr0zU8On+d6xvQJ4N3NUY9LTyklo+Ys6nwxZdT5xV3K3QGb3QJ1sYilwQ
+sn9N12Z+CdqYZjtjFkQxr8/uf+2G5ItDUQvtScu0icusEXO42w+j1jgilho
ZTm+vtnnoU+Hlk6v3zQ/sG1xTX5O2Za8rx5fxN1qHgAw8E/XbeZOA2+o4A3X
9hVMvrx6sqNwlOqx5OqHuv/1wTEBN+8768vYR05F3XspYchpWfrLoTYOFYVq
3djX/SZUHUPD6MG7ksfUsEmamLnGPrOrh4x669X8Fz7PzyvZvupkwcyTa+fx
wzv5H4v4q0tLZ91+IefOL+bffem5PPkfX+LOtj994u6Xd4E9YWJrPFGz+JCp
Wk9I4Bcb+lL/nP1QT7WrJfn2Z8bm7Am2cluYJz/y8eDc74whMUZMePDt7lmf
1IbEWJOlbHpgfvFdi49f83NbgPcbsbrfnN9+6+SOVm6wCrADqRnjDw7MPuuU
RntJo//Qd8ZeIIKugaf2/N3spVWDxj79VXlQ7uVq2ELpP79n3Md6H4eJ1b3/
rJk5z/kCvL6JJ0+9GrMEFrG+W5E2ZcwuSwNvbuBpXQrX/0FZyvlpK69Gjg38
oT4TAVKiFn1XjZrzhqNNlM5G7rlvbS26A4Ong4147sEtJR6PwLL4wZPvz90B
/AWW9Z98qU/2aa1kMSbf/3iP+56G9Rt08Huy9lx3cKeb9x48beSSx1WA1xZ+
x5hnGjvETpio2LWjHn4byFvuDTww+TVvSMBlvVdsoD50pYENfCkzqyxxnjFu
eYAtcrHtbLGb7WSL3OLfn9x/1/Wy5Q1smSd6sTF6gY1BA+dylmuLyNWzOdb+
076BBp4rGG/KHxtaN9GzeXbjLwp8Ty2temI1N3vF2nZzmDfpuefcN4UjyzaO
q8gdph+f5J6eaci9/Xdjh7iDvMesP8SMPRg98mzC4O8i014Mt3JpJU5oYLPQ
wGF2af43Zsj7KQ9XsUmKuDnaHjOr+o1666Nfv//6jAlHFs0pXb/U/PLj/OBO
fn1f46+X6wsfafnVEv7Rk5a3NnNVCXd3vPmJvtuyr9kmHSv0d13GB02r8nZI
GtVj+7AlX5skWXzqXfvLH7fYW7nCzUcsv5A5da8MoWwd6/P48EVf0txIxp2v
sMyXB2Z/iZ4WQ4LI7rkD5n02aMnXiXc+/Yu3SkHnCT0fMO/63XlyhUcaq6QV
jVx4GNkg28yBv71v/OGYfqtZ96wPTgWN0CUVZ12fulrPza384Dn++gc1vg5+
qZ53z6lILwizLHnGmrph87+zNwtromvPwusBfj7I+01+0d3OOwK8T/JDVSpB
+a5L/KldJni+0/LeuRd7zAYmSKUPfpINeqGmnrsBkVUdL32hQuDJct5nSsWg
nCt1El6wwYsOXud2Hz9zhd82/fy+Su5u4x8fqXn1sLya84/L+L0LDl8ycn2I
7z/N39gjhnaX7fyB6Tsx+oKZEtNzWLWboy6//ZqzYQdi59WzHBNbbGNb2RLL
VrbIzIayJXYhPhhMLzJGzrdFzOJsDsTHyHI1CbnO3g9/ygPtJUWT3JvHt2+b
4tw4w7Fxln9dtmZb/u7nf9MhRKGJN9acfHrOpZWji+fdrZ1/l3VSWjC3V/mc
Hq88PLCtjSfe++uEBw7HjjiTNOhwVNrzEJ+OVnGaV0Lv8UAJMDVxwM7U+4tl
Uypic3WJ87VpE3e/9s4n1Ud2+z7cHfiv3+ueWsv37TS8/qtTaxcfzx7Fdz/P
9z9bvXU611S3ab3vfq3umr+bLZNH54fSs9x3zCy2Sj1C3F0vDZx5pIbzo/Uc
rCpv5YDlpz4IDJt3Dj+Bb/IWfnfu3tKAGPxigFzj58Mnf6lsEtyq9fIxue/1
nXfuRCs/ExLJz3j5k3t5r3mq5McOolm8QP4Bm0xtXGaFbTtnVNaHxjZeFRIr
CFfCYtGhgvNes48MXf7t51p+OSyWDw4beL+5X2TOO5s8v5rNMSXMUd8290h9
izDEL1fyKi+/a/Ynt035bxDvbePR3aeNWfHl7iqxxnG6icPgHbHsUNKEv1ZK
lKMUZNh3xqF7c784VSfIQ/g+BR88+1T/+eruk4+J+VHOlS5RtcNq3mdeaWqO
rs+i6mNaUVM15/sNvOtSVeJ8Tcb87w7ZRSnIcL+Cj5z31t1ZO60t4jgM655z
f+7bh2s5upUXzvOM5aqIecrIhXq2NWKRcatsQT0bxhZZxDzXch9baIibY46d
1iGb3srm6dg8ZdIsa7+HPuPelotP5diemuXcPM32+GL7z1bVrpt/5al1vAky
3xKCFjTXcnN52cq513NmaOaN12X3qJ2ZWjKz28ezJ7QZ+bDRn2eMuBA9+HTa
7V/IUp4INUvQE7qx97ZPaxtvbMc45nfJ955lE69FzFVH5tTGTPzo5b9+fuTD
Vxs+/uxKXv7VvInfLrz3i/ype5dN/mrOQ/5f5Zs2TypZMe6DufMv7z/92y9L
0vP/FLFMnrCisfts66AZ38mMoidnfXd0mXSoe87n6XP29Fv8Xdq0A0OWnB2e
dzV29KFhi06nT3uyx6wnMx7eOWzOfpkG8Zf0euQvd8z47t6FRwZO3nnPzDej
h/8yYWpxn9WO5HmH0ufv7Z93IWby6dQc/V1rVEYJqVjCwpHTPx09Z0/88F8k
3/PKqCWH+83c33/B8YTJX/bNK0lfcIFNPpw0/2KvAnnC3PMJOWd6LLuWOv9c
t7wSNAObakpd4Bww/0SdlFVdE3/8Lfvdc4/dk3sAwiFGQkPyu875rv9qjO32
9i8423X+hZ7zLvaef+TOgmPnw0I0o+7/y225xX1mn0yd+sXAFd/1zTudNON8
5jxlRo5y8MISCI3SyeP6zhs45Q9pOdfYbHPkQh977MKgJUduX/DebQt29Vl2
gk0sZ0ubWK46LV/Fxh9h4/YNzzszcOano3I/Z9IaYFzcXS/0mvLXXrMPdZl7
Kmn+5aTl1ZELFRCfrRELTVtluSZIz0Iby/OxZc7I+brEWcbEqS3RWc2S9Cji
JuuHT/wG0PJ/2nvuuKiupWfvdpYOgkawEKMkSuIzeWlPo0SlCuyyvVENioqA
mkSNealqLNgLRqM+X2JLNL4kljRbLFFEBaX3tix1F3Zhl3q+ORfzfe//L3/G
3/kNp8yZmXPunJk5d889/rBKWveBruvDlKZ16cXvLC78IJO0VpFBm7O/ffMH
qcRZTjqKSdn9i0rF5QWh5sQXa6R+RbIJu16djvHW6JAvPabd4k781WvyVxzP
jJ5+annQZ3HIIP0CZ+fgUA8GL+Lx6yUzLsPsfCamXBhd7jrz8M4vTj2+cPhL
WcyJ16Z987qoNHNq87ao0g2xX8x++t+zg383zHHs+4T8eq34atGGb/MCM06D
5iFHb/FWNvpG/YCTW0x/U/0wIOGem+IXd/VVifSmW3yey4JbPorHE/Wt3Nk/
3kKb5CDcf5z0ifjpGzP5oZMExt4cHXnXN+ritV5yu4f4Rn7Ll1XAgnLP5HxG
+gMn8oqHtlqstrjKCx6wR419Zx8MVly7bSe/2YjrnONPyX8J0N0RRP4yLq0a
om9y5Q99FjXyNaUQfpurfCTWl2KNSPMIZl70WdQJcidH0S1ZcB1Ffegku38a
eFZ31SfiF7/o77EGbQk8t8ZFehdCb7snFnokPhTJHwljHnhr7vIjzh2tJ7fR
8oVdn2isc1uQD3N+9NT+7qa7D5GFrmqzUFoljrx5t49K6PX65peX5HNjCjFA
4Rh6hEazJO6yn/LCKOWPfOlNSOyGxEFQNYCibPTSNi/9Y8/439zCv3N/8+Td
fvK7k8Df9o9VXvXT3HFVPYCYfLe3WiGuFDTN6LfUbZmgbEXt0bSCrgU0DUJZ
qVt0tet8By+8l9WeMkFE07SoGxjbnF6lK/lwYfXalNLVy0pyPiU9ZuK0EIvt
+LKl11YlXV+tJI0/EWcBsZaeX2m8PX9ir3a6WT514/MTqHd+JYf7t58h6KL7
lMPgtQhD/z/eoQz3su+ESRc6L5egDaIXL8OcB7wF1R6RFT6vHt2Sc2xDioL8
52L7h+/veQYcWyPIjXXDX6WfT5n36fPjj705g9SVEAyrnGTjf0ogdh+TWA9q
m0jaEPxW6T1C8tFzxf0M0XkCdT4Tn8eNLxqzyMKTlsAbeT7aHk9N/Zfd5PNm
MvGt+qeMNe6K7wNSrvPn3htn6BDH3L04QP6DCzfyimtyN8Q3uaZUMKrf3Y3V
LvpWCK9n5OW/DJGf7ARnlh/68xkTuTJAfOJveSvucaNu+S2sh9iH4qQmYWIz
LHgMiip+ciujq2d0tXxDHcQ9liQ2eS8dgCgrSC2BS1ovY0xxnQQqv3GNuSaM
ueOvy79KyB1CJHHn/NNaQFEHyiKIvidJaJcY2hhZoX9qhUhxQxh3e1xqO/wj
DyKKRqd1Uh2Ne8So2iG6Sahp9k+qu2AnP1mJR8T3/IifYX4+DUsW1IGuGWLu
oSpI1AUQWwi4iYg10x9bYssESWaQl0DEzVH6x0GpZd92UgX1U+e5ye+5aYqE
umqIeAjaRtCaUXFAhanjL/gnQMilGUU7XYp/wT8FqtGYNYKqRhxX5BZZIZln
44bbQVYFslLu/Pqn5/6CO+oLn2S17P+gaX1m957NpPQBaa4kFvPdTzb9lpxi
ytTf1P79TPqrxHGXOGuIpbIpOar4pcDK0Kl7Xnu52kkEsUfhbxcg6FvXKbng
ndw9RAboJ6kDHDRkI/bMgvZMEPQJ96Ur8MYjflSD9/zKp/5+/FDur2237uO+
ntyuORc5x56zvPEjzYN3ZZeyNFUHtv4rPvZ8RhapNaNfffdIoY/xAq5Xno4I
Ymzc0MKghHsB+nyYXz96EQF5DaOqhPhG3IEwChNP2c6TOUSqTr9lj/jaXzDw
h1n3vJLR4xTC/Ep+bJub0cRTFPgbywTSImFyL8ibGX0VSPNFukaIrRclD0Bc
+ZiU3/0MP7ur7vsaq/0NFbyoW2OSajnR9yEiX6ivh5hSjqGFm9gJkWWQaHHP
GIIFFRD+WJjcIUlBu1JOTYu6DzS9EJbvZXg0SnfdXXnNVVcq0tfA3Ou+ySVj
Ux/Aa994pLSjs2GMLUgN3igWJzggohjdDMgeCJSlPGmji7rLPaFHoGlnv6qt
AWWPOIkIcJcVetvHUIUicSPzPI11LkktIKsGNIfGdi6atHh8tjWAtpn+VGyH
xC6Q1kJ0CUfTwNfWuCXUwezrYsVjHBq8eZ0jxVmq4RuaxWnddP+mQ31pBVUr
uxz/gv9vSO0ZrkJMLX/BPwcqm0FdD4pK1p5VSeZ38SK6AMNaWbEkuu4ZjO6t
5PzHmdZDH7Z/tty2431y+xIxVTZv23BvYaopc1GtamaT4dXKxaHn4/9OTFXk
0KE7r79kU8ka4+UHZyoGeggzdS835CIEnREH7wEfYxeN7PFfL9qzdvaE+FAv
RvcwYT28iPasAKKqvMOL/F85nLPzwsH1u0g1+U/Grsrdh0hDCbl86syi2KKv
tpOaQlJclpf7L2Lvs/eQw3cGvTUXRbpOkY5wItv8NB1j1NXiqHKJkkConafp
5Oma+ForRDZgBMPXdMNsM1duBfktScojTny9RG8V6Eog8o5Y3QNx3RyNCaIL
3Q2NEFdJv9SObwJ5mciAYVk9+06mA6JL+Yq7Hob7fHUJGiSBvESiLIWoAozb
fBd1Qdgjj8VOUDWDpo2GvnF1EFuDGY6uFeJrIbbSK9UGUhNoHaCzCQ2tEPNQ
rHwgVBZg6IZBkmuqGeNoiL3rqi3jYjwUUQLyeg7uvmTtQoNDoOvEyNk1weSa
YGakZoHSClGNEF7NUbczehvIMNLqAGmNZ7IZIh/xMWyXVov0LSCvglikQ+8Z
4CV0UzembOeiMZPWgYLeFSDEEE3RgOYWTTVHUS0xNol09RD1yD+9S4hWHO1f
TAWNzOaXgKwhC/tkUvcQTF8+KZFEjTCuTBJdKw63cqMtEF8K8Y88oqumhV0k
NnL2vSWdB98f2P9u54YM68fZtcsSLWtXmt9eUZNmbE6K6l4UYVkc1ZahKjAo
O1dlDmctrIiceWvem+v/Fol9vZ8/JJh6CYLOioL3oubQ42v0agYbak4ras57
WOwZIDB+B7x0A0IfQlyJR8wNnzk739tzstXW7bSS387dI6020ttFqgpOb347
/8pXZKiD9A7Rd95D/SbHcMbhOz7as0JNlVhvEcSVeSpLRBH34c3H7loCsn56
9UDUY5CZuYp2nsoEsiaI6vBOHQDlPZDe4MgbvBc6IfS6axKqSjtX2QsRpTy9
iQbxsjrvdIfA2Apz88TqGggvctW38bTNIC1hFIWuCZW4tlyTMHwv9DQ0SLR1
6EI5+IzkdTDnvjDJCtEV4hQ7o29DtyNJsrgY2yCmjJHXwpuPhPImSVIXR22m
AUdMEV9VBXFFoK0GRQWoq5AgJ65Ioq2B2GKBoZmHj17Z5J02CLOLIbZarDVB
RAGEF4pxxYdXcWXN3ikOobYD4ptBjj6tFaJKXFQ1EF1GXzWGl6HiQXSRu65O
oq6lN0Bg3MOAwgw+NCerEmkaIK7CLakTddrF2AKxuFSq+RgZxVWge+Wq6iH8
EUdRiwg8dRPVPHUDZHHl1Zk8tC3BdLyIoqznSeuEsSZedBcnphN3maAoEIXe
m/zGaeIgV7b8k5zZTr7fQf69gWxZRTasGVy3xrJ+Y+Xqd7o/W9u+ZqF9dVLr
Mrnl7YRrYVMakmbUpv79kmLG6lmvOfuJaOomQQjqzvfC4APgk2QZRnqkn9if
WB1vwv6GAkG74JXfIKwAObsqf3eN/HzFv2+s//rqjnN1O79uPPRd3eYDV8+d
L9q84+Shby9vOXKR+ddXj+H9fSev7r5U9MHP/X4pN4T6OoGxTajFmXvoqan1
ULcyuAqlnVyNCZcOhhp00xRXgQ/fNXEA5pVztEWSt6pA3QhhJR6LOugtIPJ2
iLeAtp1um1VmiKrgqHDNVXoltzPxVWPS7PBmPgYxvku6YF4+qKoBn4a8gr4g
mHmTUVS7JrbBmw9dU62iZAuNSzDmkDeADKe2gdobWRVPWe9mbHXXmkVYE1GI
RoVRN1Ejp2yiG3t8ippaSlNZg01igxmVVGRooBLiY1PUc1RNqIBCTROKJDGi
CleJtLggGiG6itoPtI6yZo6yzReVPTSPBl5JFjC2cwxtnNhyl/hKcWwZD1U1
vg4SrYCqHV/HxNcI4soFqjox3S2WidEESqupPOomRtvM1baO8MXVINThbBRL
kKa0HBUHMrnyykxePL3TA7UH1UmNitvMkbah1Yb4DlBXgOqxe0xp4OwzA33k
yqGjzSf3dx7a0LHnY8uW9xyfZresTS/659vlOevz1mWUfLisZk1q7Qp1dbai
ZY28NG36rYSp51Le+MSgLm0gkhnbBSE/wsSLoimHwHthB6s9fcMO1B4Lak9Q
n53YBwlM2ggvnaemNfwRX1Puorrhozvtpz/lq789Sl/iry8ep3s8WX0/WHVz
kuHXSfqrIcqC6Yp70/TfByX84Jt0X5xo4iQMQIKTSazlJ5bjaNFV0cMlug7Q
NoC2jqH+wxV0NaCro34HVcRQDsZS0DeAzgT6JtCjH0HV6WJA3wE80FlovKlt
YjQNDKM2gSuuPEZTx2hqKEFsQix8wLQXqwE0mRm07DzAaR9DTbzWhA0cTRPq
CHbmqzA18DQ1HG0dbUXJ9F10r48PzWBiabVSuujeNA0sThPoMDWgpdA2cLES
eCgAttCsxsSOyI0y05hFCjNfxdJINEOCGTN8pVkiN7nGm9h6E9JINIEYc1gW
K6gkODCUjcpNRW1FDGQuALRhdNyttHZEekTMxCUIXNRpnroOE2RQEEzlGHnN
QLfFXaC0g9oC+jrQoSWtGSvLX7urNO9ue965K99t2nn2n5t/WLvm13dUV1bH
fvee4cx7Kd+sTjq3Snc+U3VpWfyVTMVp5as/Js668FZUrkHRcLt63baHoucP
eL98FwIviCYdcZ+01mSnL74HCeEMDFlRcyZhvriWTJMdc424BGG3XBZ2ohnn
aEs4htuQmE8HnGyHlB5Osl2U0IULT5Rqxj2Qt574G5x+KZWeC4uFqa2AfieV
wFsDsKgO3qqEJNyadEJiO53JxEZIMIHRAgkdDCShDiV0gAiS6yG5DpJM9LKL
pDbcZNHlmNiNM2wHT0jqpjXGFkbfQi/EMNA8B32SEWm1QGIvJDkBN2LJbZSY
EekaLQJIsKDG0XIbTbhZoovfG0kwBjPP0MjgA8RWpJ/UR/vj2kfLgGwwg5X0
2hsz8mAZoA4m1YMHFRwVAX2JETWiERLr2dGYWS7YF+tbMI5jdFYqCgNvteCz
T27j6SwSZbdEZcUMJLdgvQlcINnM13aI1R3oBDmGEaJt7LRYIYGOm96LgbEQ
lcPCNlE0HALH2J4JCe3AfSIHpgwKpoCxniol6pq2G3R2+kY8GefTxCTZYdat
caqL7x8z3a2mZ6vQ/Qw52GClr5+MnIPoowfB6W89nfQ3f3rGAKEZo2CycUeB
6wu7vd74VRRyw33aVa/njrqMW2W20yOTfUMEOM4+uusPJSyB0l7iHnqIifjJ
KwWj0krA/W9KGaSVw5ImWN4OWS2Q3QxZ9ZDZCNldkDkAS+ilE4LlbfxMRLDB
8gH6PX12L6yshRWVsKwNlnRylrRAugnSW2CxdeTWEFhihiUmesfQYjukW2BJ
ByxFTAssdsDiPnqDCGYWDcHiIfY2IjuT1s1f2MtBdaQa2c1Z1MFLs3DQcS0e
ufiB4sDiXlzKixxcSOuFUbDI/uS+krRuJs0qXEivCqEfmaQP0c+MsdNipNRH
uWFmyQCk941gInkqJkNFFEF6BytzL61F+dPNsLgNaxg6Bj4stnAWWYUpAzyM
2JZ2Y5/MDvCGZVYsSxIJJn5qHyyxQmYbLG+DpRZhikOcTG8uQVZU+rSRz16o
FEhxAPmhOFjEyrTeEdnZQTqWAwb8XHZS7DRlUBDMpFkEC+uFqfUYV/OTu+nX
Hig/zmW6lX7qnGjjGsq9U++NTrzoqzw1Wv7t05rLgbIrT8X/5qe85a/+bZzi
8jPSS9OjL8yIOD81/IdRM7/yiTzjKf2BF3Eewq5yw4v5c0pHzSqcMPMa8Ja3
DdC7TvqGSU9vP/ooehb6+e6e1g7nYCshzytzXeYclcTcFKrK3BZZYGETLG6i
n12vMME7TbAGUyOsbYE1XbB6kPM24a0iwtXdgnc7+O84mXeGOO8OwBo7Z10j
d02DcJVNnN0rye6QrGgTZ3eKsmyizEFRplO0wixa2SRYYRVk9wiybYLsLsHK
VsGKTkFWvyBzkMFa8EJMzMPbXcwqq0dGj+dSejGKIHMYkZGUR0aXy3InrCCw
knBWOvgrbIIsBwiRNnBFWQ5xJk3ApcDXZTkWepC5OKvLcxkmlMLJWdkPq4Zh
5TDycclAofq52f2wsp9Z6XDJ7HFbbsNeouwuRrSyGfxFVPYe8fJ+Sje7Vbyi
WbSiFVuxFx1NdqdLltVzyaDbskFmFc5KO7zbjhkseqUTn8XEbVk/fyXVwnda
gY85j6X9XksGXTOcKBYwVEaRGMlkOgVZI6kfIRaxkm0liEc5Z/UJszEN/AX/
FIh6gk/1L/inQNdMq8+yWr+ltaPSOzyXdLtmWIRZHczKNs4KtLV93EwiyOjl
LTEJ04sh8Q6o7nH1tWz86QCDHSMIgcbspmzyldb7xNW5xNa5o9dP7qR2EWN2
9M5ai2vi0Gi11Xfm1Smh374w9/NW3MtjlD1AhoaGOI5e6vOmDZIuJxnoGCAN
/SRw9qap+muBxrKgLKd/9oDv2/3+a3qfer9nwofOSZ8OPbORPL2ZPL19eOJ2
8sw2MiWHPLedTN1GnsshU7aSKdvI5B1k0i4yZQeZuoU8v5G8uIG8+BkJ2Uym
YdrEwpzeadu6pm3tn7aFLW5ha7b2M9gMvlgM2TI0HbtsIs/s7A3ebn9pI3n5
UxKykTy7hQRvG5yW40SCiDAph6AMwTlk2tahEVIM9pEgK/DB8rM5lPRLG8jL
6yn7yTkkaAeV+IXPqEwIUb5JWLOdTN9EXtxIa2hXJiTHBj4oAtL6Q17ntG22
kK3OEBSNlStka/8LW5zYB6V4NmfomR3OydudmMEiMC+tJ+CCuak5g1iLCTMz
2Hl4YdOT8bpQRtwnw8dsFlLOpHXB0zcPvvxZ52sbrC+vH2R7OKZttU3dantu
68DkjWTKJjL+IxL4IXl2+/ALu0kIzv1W+jQmbSYhOM0fk1f/SV5eR158jzy/
jkxeRwLXkKCP6dUg2OqfPjRtFfGKfjhDe9U35H10Vu39pLOXDGP05LSiJ7PT
/4ligNgHiNMxNGR1EtyKTZq72yf8jJ/2fsjqnufW2qa/3/zKB00zP2qZ84l9
9gbyxhYSutcxZ7997r7BeftJ2H4cfcQ+AqPC9pG5uST0czL74HDoATJ/L4nc
RaQ7iHQnidxNwvaQsBG43xqW2xq23xa2t58W9w6H77eG77MBE74LNSF8b1/U
np7YHcNRu/vnHGoOPdgSu3NQuo2E7SJz9pE5B2zzcrtjd/ZH7ySzcsnrn5N5
+3uwM/YK2zvIhO8Z5IXv7Qdu5J5+/EuzDAWTsRHb5u3rn/25Y+7+vliUajvB
mjm5fTMP9sw54IjZOSzbTqJ3DYft65t10Db7cxvyj9lJonZStPD9neH72ymT
/xtFd1hue/i+bspmFwnfTVCKyH3WqN192DFsn4OZm2sDz3n7HSgKksWEGSxi
9dzcnpH6KGS3h8zbOxxG0yCSYiL39IEwcq8D6WAWE1ZiEyIAg4iZ4TjT3PB9
Q09Gl0FBMOJH77FG77FFspKE7euhsuW2onivbeievY0+i1m7yIzNnS9sbHll
k+PVrYP/2NM/a7dzfk5f1KaByI1k3gYyc+PwK58NvL598LXtg6GI/JHz9Y+G
gtLqAnQFT6t/FYe828wG1zSy7utx9LVjtM3p6qyiN7i2dNnYO9zRuBCLlZ7o
KyPEZ8EXwvAjwojPvcI3jg77aNz8zRPm5QaGfx0Q9c24uMOB8bnj5EfGK75k
JihOg2ii/PQE5VcBmsP++kOjDIdH6f81Rn16nOI080z8vyEoUH5qjOK7MfE/
Uqg5MkZ7YKzq2FjlqYD47wLkZwPUXwSojgbKLgTKLgYqjk9QHJ0kPRUkPzbK
mONn2I75STEXx8gvemvOeuuPjNZ+ESQ7NUF21kt7xkN/Yqz6yHjlFwHKL8cq
T/AClMcZJMDgXwgJUJzAOkxjVKeQlZ/6hJf+2CjN8SDp2UlxZ7F1lPaol+EL
P+0R5PBszJmnZScClMe8jAe9DV+Ml59AtPEylO4MlU59kJKSfzd2ZATqo2M0
B8eqj7IjuEAHoTyGaIHKo4GKL6ksqi/HqCnEPKBEX8Lo/60dozqOkC0eH636
erTqDCsf8j6OiOMVx8Yrjk6QIzzG0jo+MgBEQ+QA1enMQOVJ4OIgsZUSXkaB
F9LyVZ/0Un/rqfzVU/mTj/qkv+bQWPW+8YrcYM3pMVHHcSiTjZcm6k48rf9q
kuprr3n7gQmQHgCf8THHAmK+8VtwySPmJ5fY78VxJ2DO5gnGw8zMdf6xO8fE
H/AM2+E1d+uDAVLsoEe0mtHUkP5BYgHuyDtmL8cwNUbD9m7i6MO9XHsv/Yjv
MaFn7QrYD/oa2eOfLUP0k5KaYVI1jPamihBuJT1bVcWeAiplz/09YDsVskX2
5BW3lKVEr3/gImCKCOEVY89SWoHdaln6wNBLF9yxQ80Qxc0nJO8P3hVs/i57
lKmChU9oMJRH8QhNShvcCli8+2y3Ghb1AUurgOXTOPikEpg8yr2MxSuj2SdU
eP8l4X9T5z35y1AuoiJ2OAVsKmSlKWbHS4fD/EFu5BjkyLi4IyiUcwaCTDp2
78esrLcIucHCPFbW0j9EL+p9MvQHTlI0RGtq2XOh7Jz6lrHII91/ZxnlDVLk
clamMpZ7DXsOug2dDRnsRXNBGhxObDGhv6H/sxTnfwDREE06\
\>"], "Graphics",
 ImageSize->{408, 142},
 ImageMargins->{{152.75, 0.}, {0., 0.}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Lesson 1  \t\tNumerical Computation ", "Section",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936938130904784`*^9, 3.393693846258171*^9}, {
   3.393694471657451*^9, 3.393694481721923*^9}, {3.393694524323181*^9, 
   3.393694550681082*^9}, {3.3936945850304737`*^9, 3.3936945906084943`*^9}, {
   3.3936950013791533`*^9, 3.393695005805518*^9}, {3.393702643228699*^9, 
   3.393702679430755*^9}, {3.393702729222352*^9, 3.393702755840627*^9}, {
   3.393703570702341*^9, 3.393703575369051*^9}, 3.39429416194875*^9, 
   3.394298203589375*^9, 3.39457151357375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->16,
 FontWeight->"Plain",
 Background->RGBColor[
  0.6901960784313725, 0.8235294117647058, 0.7019607843137254]],

Cell[CellGroupData[{

Cell["1.1\tHow to enter a simple numerical calculation.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
  3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
  3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
  3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
  3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
  3.3948254697053747`*^9, 3.3948254747522497`*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["Using ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" to do numerical calculations is very straightforward. Just enter \
the expression and then  press ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   StyleBox["\[ShiftKey]\[LeftModified]\[EnterKey]\[RightModified]",
    FontSize->16], TraditionalForm]],
  FontSize->14],
 StyleBox[" ",
  CellFrame->0.5],
 " (hold down the Shift key, then press Enter). We will refer to pressing ",
 Cell[BoxData[
  FormBox[
   StyleBox["\[ShiftKey]\[LeftModified]\[EnterKey]\[RightModified]",
    FontSize->16], TraditionalForm]],
  FontSize->14],
 " ",
 StyleBox["as \"",
  CellFrame->0.5],
 "evaluating",
 StyleBox["\" the input. ",
  CellFrame->0.5],
 "The result of the calculation will appear in a blue output cell. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948489506897497`*^9, 
   3.3948489943616247`*^9}, {3.3948493053303747`*^9, 
   3.3948494049866247`*^9}, {3.3948841627678747`*^9, 
   3.3948841690647497`*^9}, {3.3948842030803747`*^9, 
   3.3948842541584997`*^9}, {3.3949194211272497`*^9, 
   3.3949194822678747`*^9}, {3.3949292177991247`*^9, 
   3.3949292272678747`*^9}, {3.3949292710803747`*^9, 
   3.3949294290959997`*^9}, {3.396701866328125*^9, 3.396701957109375*^9}, 
   3.397678829234375*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Enter ",
  CellFrame->0.5],
 StyleBox["2 + 2",
  CellFrame->0.5,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" in the red input cell below and then press ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   StyleBox["\[ShiftKey]\[LeftModified]\[EnterKey]\[RightModified]",
    FontSize->16], TraditionalForm]],
  FontSize->14],
 " (hold down the Shift key, then press Enter). ",
 StyleBox["  ",
  CellFrame->0.5]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948489506897497`*^9, 
   3.3948489943616247`*^9}, {3.3948493053303747`*^9, 
   3.3948494049866247`*^9}, {3.3948841627678747`*^9, 
   3.3948841690647497`*^9}, {3.3948842030803747`*^9, 
   3.3948842541584997`*^9}, {3.3949194211272497`*^9, 
   3.3949194822678747`*^9}, {3.3949292177991247`*^9, 3.3949292272678747`*^9}, 
   3.3949294077366247`*^9, {3.3967019605625*^9, 3.396701962484375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"2", "+", "2"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, 3.394671480625*^9, {3.39467161821875*^9, 
   3.39467161859375*^9}, 3.39467957146875*^9, {3.39468243534375*^9, 
   3.394682435671875*^9}, 3.3948207788147497`*^9, {3.3948208378616247`*^9, 
   3.3948208546272497`*^9}, 3.3948468770803747`*^9, 3.3948470888928747`*^9, {
   3.3948487271741247`*^9, 3.3948487280803747`*^9}, 3.3948501756116247`*^9, {
   3.3964422535176973`*^9, 3.3964422544535723`*^9}, 3.396575811375*^9, {
   3.39663331065625*^9, 3.39663332546875*^9}, 3.39663368003125*^9, {
   3.397060251475*^9, 3.397060252365625*^9}, {3.398996550046875*^9, 
   3.39899655146875*^9}}],

Cell[TextData[{
 StyleBox["Two ways to evaluate an input.",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["\nNote that there are usually two Enter keys on a keyboard. You \
can use either one. In fact, if you use the Enter key that is located at the \
extreme right of the keyboard, next to the numeric keypad, then you do not \
have to press the Shift key at all ; just pressing the Enter key by itself \
works. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948487739084997`*^9, 
   3.3948489175959997`*^9}, {3.3948490166116247`*^9, 
   3.3948490907209997`*^9}, {3.3948491255334997`*^9, 
   3.3948492081897497`*^9}, {3.3948492476897497`*^9, 
   3.3948492905334997`*^9}, {3.3948503085647497`*^9, 
   3.3948503677522497`*^9}, {3.3948504097834997`*^9, 
   3.3948504300491247`*^9}, {3.3948842795647497`*^9, 3.3948842868147497`*^9}, 
   3.3948843329084997`*^9, 3.3976789576875*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[StyleBox["Click anywhere in the input cell below and then press \
the Enter key on the extreme right of the keyboard.",
 CellFrame->0.5]], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948487739084997`*^9, 
   3.3948489175959997`*^9}, {3.3948490166116247`*^9, 
   3.3948490907209997`*^9}, {3.3948491255334997`*^9, 
   3.3948492081897497`*^9}, {3.3948492476897497`*^9, 
   3.3948492905334997`*^9}, {3.3948503085647497`*^9, 
   3.3948503677522497`*^9}, {3.3948504097834997`*^9, 
   3.3948504300491247`*^9}, {3.3948504819241247`*^9, 
   3.3948506259709997`*^9}, {3.3948506646428747`*^9, 
   3.3948506655022497`*^9}, {3.3948843586428747`*^9, 3.3948844144241247`*^9}, 
   3.394994725609375*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"1", "+", "2", "+", "3", "+", "4", "+", "5"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, 3.394671480625*^9, {3.39467161821875*^9, 
   3.39467161859375*^9}, 3.39467957146875*^9, {3.39468243534375*^9, 
   3.394682435671875*^9}, 3.3948207788147497`*^9, {3.3948208378616247`*^9, 
   3.3948208546272497`*^9}, 3.3948468770803747`*^9, 3.3948470888928747`*^9, {
   3.3948487271741247`*^9, 3.3948487280803747`*^9}, 3.3948501756116247`*^9, {
   3.3948506311272497`*^9, 3.3948506406428747`*^9}, {3.3948507508303747`*^9, 
   3.3948507510178747`*^9}, {3.3948508835647497`*^9, 
   3.3948508837209997`*^9}, {3.3948845044866247`*^9, 
   3.3948845185022497`*^9}, {3.39899653328125*^9, 3.39899654509375*^9}}],

Cell[TextData[{
 StyleBox["Note",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox[": ",
  FontWeight->"Bold"],
 "For ease of reading, we will often put extra spaces in our input entries.  \
Compare the next line to the one above. Both produce the same output. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948487739084997`*^9, 
   3.3948489175959997`*^9}, {3.3948490166116247`*^9, 
   3.3948490907209997`*^9}, {3.3948491255334997`*^9, 
   3.3948492081897497`*^9}, {3.3948492476897497`*^9, 
   3.3948492905334997`*^9}, {3.3948503085647497`*^9, 
   3.3948503677522497`*^9}, {3.3948504097834997`*^9, 
   3.3948504300491247`*^9}, {3.3948842795647497`*^9, 3.3948842868147497`*^9}, 
   3.3948843329084997`*^9, {3.395944420680625*^9, 3.39594456154*^9}, {
   3.39899647634375*^9, 3.3989965205*^9}, {3.398996558671875*^9, 
   3.398996639*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"1", " ", "+", " ", "2", " ", "+", " ", "3", " ", "+", " ", "4", " ",
   "+", " ", "5"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, 3.394671480625*^9, {3.39467161821875*^9, 
   3.39467161859375*^9}, 3.39467957146875*^9, {3.39468243534375*^9, 
   3.394682435671875*^9}, 3.3948207788147497`*^9, {3.3948208378616247`*^9, 
   3.3948208546272497`*^9}, 3.3948468770803747`*^9, 3.3948470888928747`*^9, {
   3.3948487271741247`*^9, 3.3948487280803747`*^9}, 3.3948501756116247`*^9, {
   3.3948506311272497`*^9, 3.3948506406428747`*^9}, {3.3948507508303747`*^9, 
   3.3948507510178747`*^9}, {3.3948508835647497`*^9, 
   3.3948508837209997`*^9}, {3.3948845044866247`*^9, 
   3.3948845185022497`*^9}, {3.398996599296875*^9, 3.3989966025625*^9}}],

Cell[TextData[{
 StyleBox["Note",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox[": ",
  FontWeight->"Bold"],
 "For the remainder of the tutorial whenever we say \"press",
 StyleBox[" ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["\[EnterKey]",
  FontSize->18,
  FontColor->GrayLevel[0]],
 "\" , we mean press the Enter key at the extreme right of the keyboard. ",
 StyleBox[" ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948487739084997`*^9, 
   3.3948489175959997`*^9}, {3.3948490166116247`*^9, 
   3.3948490907209997`*^9}, {3.3948491255334997`*^9, 
   3.3948492081897497`*^9}, {3.3948492476897497`*^9, 
   3.3948492905334997`*^9}, {3.3948503085647497`*^9, 
   3.3948503677522497`*^9}, {3.3948504097834997`*^9, 
   3.3948504300491247`*^9}, {3.3948842795647497`*^9, 3.3948842868147497`*^9}, 
   3.3948843329084997`*^9, {3.395944420680625*^9, 3.39594456154*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Modifying an input to create a new input.\n",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 "Note that any ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " input cell can be changed and reevaluated.  Change the 5 in the input \
above to 500 and then ",
 "evaluate",
 StyleBox[" the revised input.",
  CellFrame->0.5],
 StyleBox[" ",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1]],
 "Observe that the output automatically updates to reflect the new input. "
}], "Text",
 CellChangeTimes->{{3.39467128815625*^9, 3.394671599015625*^9}, {
   3.3946716343125*^9, 3.394671857328125*^9}, {3.39467195134375*^9, 
   3.394671952875*^9}, {3.394679459359375*^9, 3.394679463953125*^9}, {
   3.39467949471875*^9, 3.394679541765625*^9}, {3.394713494609375*^9, 
   3.394713766390625*^9}, {3.3948472145959997`*^9, 3.3948472161741247`*^9}, 
   3.3948495100022497`*^9, 3.3948495506584997`*^9, {3.3948500687522497`*^9, 
   3.3948501001428747`*^9}, 3.3948504486272497`*^9, {3.3948507089709997`*^9, 
   3.3948507454553747`*^9}, {3.3948844758772497`*^9, 
   3.3948844965178747`*^9}, {3.3948845688772497`*^9, 3.3948845693616247`*^9}, 
   3.39760351034375*^9, {3.397678971515625*^9, 3.397678979640625*^9}}],

Cell[TextData[{
 StyleBox["Creating a new input cell.",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 "\nIf you pass your mouse vertically over the screen you will see that the \
edit cursor is vertical (looks like an I) when passing over text cells and \
existing input and output cells, but switches to a horizontal edit cursor in \
the spaces between these cells.  At any point where the cursor is horizontal \
you can click on the screen and just start typing math input. A red input \
cell is automatically created as you type. Try entering and ",
 "evaluating",
 " a new input cell by clicking between the end of this paragraph and the \
gray box below when you see the cursor switch to horizontal."
}], "Text",
 CellChangeTimes->{{3.39467128815625*^9, 3.394671599015625*^9}, {
   3.3946716343125*^9, 3.394671857328125*^9}, {3.39467195134375*^9, 
   3.394671952875*^9}, {3.394679459359375*^9, 3.394679463953125*^9}, {
   3.39467949471875*^9, 3.394679541765625*^9}, {3.394713494609375*^9, 
   3.394713774625*^9}, 3.394717603109375*^9, {3.39471763821875*^9, 
   3.39471764128125*^9}, {3.3948509330178747`*^9, 3.3948510557991247`*^9}, {
   3.3948511060334997`*^9, 3.3948512747053747`*^9}, {3.395944601915*^9, 
   3.39594461404*^9}, {3.395969691461875*^9, 3.39596973025875*^9}, {
   3.39620441203125*^9, 3.396204420625*^9}, 3.397678839609375*^9}],

Cell[TextData[{
 " ",
 StyleBox[" ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.39471316603125*^9, 3.394713219765625*^9}, 
   3.394713273625*^9, {3.394718610046875*^9, 3.394718628640625*^9}, {
   3.3948464664866247`*^9, 3.3948466418147497`*^9}, {3.3948467139241247`*^9, 
   3.3948468329084997`*^9}, {3.3948468646741247`*^9, 
   3.3948469197678747`*^9}, {3.3948470984709997`*^9, 
   3.3948471069084997`*^9}, {3.3948471410647497`*^9, 
   3.3948471816741247`*^9}, {3.3948472279553747`*^9, 
   3.3948474031897497`*^9}, {3.3948474402834997`*^9, 
   3.3948475213772497`*^9}, {3.3948482179397497`*^9, 
   3.3948484224241247`*^9}, {3.3948485525178747`*^9, 
   3.3948487169553747`*^9}, {3.3948487739084997`*^9, 
   3.3948489175959997`*^9}, {3.3948490166116247`*^9, 
   3.3948490907209997`*^9}, {3.3948491255334997`*^9, 
   3.3948492081897497`*^9}, {3.3948492476897497`*^9, 
   3.3948492905334997`*^9}, {3.3948503085647497`*^9, 
   3.3948503677522497`*^9}, {3.3948504097834997`*^9, 
   3.3948504300491247`*^9}, {3.3948842795647497`*^9, 3.3948842868147497`*^9}, 
   3.3948843329084997`*^9, {3.395944420680625*^9, 3.39594456154*^9}, {
   3.39594464250875*^9, 3.39594464429*^9}, {3.395944688274375*^9, 
   3.395944689055625*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8627450980392157, 0.8627450980392157, 0.8705882352941177]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.1 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
  3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
  3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
  3.3948918258303747`*^9, 3.3948918260334997`*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Evaluate the expression ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["3.56", "2"], "+", 
      SuperscriptBox["4.53", "4"]}], "34.87"],
    FontSize->16], TraditionalForm]]],
 ". Enter this just as you would on a calculator (use \" / \" for division). \
Don't forget to enclose the entire numerator in parentheses."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 3.3948919809553747`*^9}, 
   3.3948934394241247`*^9, 3.39499475409375*^9, {3.39760370084375*^9, 
   3.397603727578125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, 3.39899675975*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.1A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.3948919865959997`*^9, 3.3948919868147497`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"3.56", "^", "2"}], " ", "+", " ", 
    RowBox[{"4.53", "^", "4"}]}], ")"}], "/", "34.87"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.3948919252834997`*^9, 3.3948919462678747`*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.1 B",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
  3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
  3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
  3.3948918258303747`*^9, 3.3948918260334997`*^9}, {3.3948920259084997`*^9, 
  3.3948920305803747`*^9}, {3.3948928270334997`*^9, 3.3948928285334997`*^9}, {
  3.399481435359375*^9, 3.3994814359375*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell["\<\
Create a new input cell with the expression 5 + 9 between the two text cells \
below.  Move the mouse from one text cell down to the other and click and \
start typing when the cursor is horizontal. \
\>", "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 
   3.3948919809553747`*^9}, {3.3948920430178747`*^9, 
   3.3948920865491247`*^9}, {3.3948923263459997`*^9, 
   3.3948923520491247`*^9}, {3.3948924308772497`*^9, 
   3.3948924956741247`*^9}, {3.3948925422678747`*^9, 
   3.3948925841428747`*^9}, {3.3948927500647497`*^9, 
   3.3948927615178747`*^9}, {3.3948928337522497`*^9, 
   3.3948928934241247`*^9}, {3.3948929390647497`*^9, 
   3.3948929425647497`*^9}, {3.3948930812209997`*^9, 3.3948931420959997`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Put your new input cell below this text cell  ",
 StyleBox["\[DownArrow]\[DownArrow]\[DownArrow]\[DownArrow]\[DownArrow]\
\[DownArrow]\[DownArrow]\[DownArrow]\[DownArrow] ...",
  FontSize->16]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 
   3.3948919809553747`*^9}, {3.3948920430178747`*^9, 
   3.3948920865491247`*^9}, {3.3948923263459997`*^9, 
   3.3948923520491247`*^9}, {3.3948924308772497`*^9, 
   3.3948924956741247`*^9}, {3.3948925422678747`*^9, 
   3.3948925841428747`*^9}, {3.3948927500647497`*^9, 
   3.3948927615178747`*^9}, {3.3948928337522497`*^9, 
   3.3948929343303747`*^9}, {3.3948929683147497`*^9, 
   3.3948929745959997`*^9}, {3.3948930159866247`*^9, 3.3948930191116247`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "..and above this text cell ",
 StyleBox["\[UpArrow]\[UpArrow]\[UpArrow]\[UpArrow]\[UpArrow]\[UpArrow]\
\[UpArrow]\[UpArrow]\[UpArrow]",
  FontSize->16]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 
   3.3948919809553747`*^9}, {3.3948920430178747`*^9, 
   3.3948920865491247`*^9}, {3.3948923263459997`*^9, 
   3.3948923520491247`*^9}, {3.3948924308772497`*^9, 
   3.3948924956741247`*^9}, {3.3948925422678747`*^9, 
   3.3948925841428747`*^9}, {3.3948927500647497`*^9, 
   3.3948927615178747`*^9}, {3.3948928337522497`*^9, 
   3.3948928934241247`*^9}, {3.3948929878303747`*^9, 3.3948930222209997`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.1B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.3948919865959997`*^9, 3.3948919868147497`*^9}, {3.3948925291897497`*^9, 
  3.3948925299397497`*^9}, {3.3948932848147497`*^9, 3.3948932856897497`*^9}, {
  3.399481438609375*^9, 3.399481439421875*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell["This is what it should look like when you  are done.", "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 
   3.3948919809553747`*^9}, {3.3948920430178747`*^9, 
   3.3948920865491247`*^9}, {3.3948923263459997`*^9, 
   3.3948923520491247`*^9}, {3.3948924308772497`*^9, 
   3.3948924956741247`*^9}, {3.3948925422678747`*^9, 
   3.3948925841428747`*^9}, {3.3948927500647497`*^9, 
   3.3948927615178747`*^9}, {3.3948928337522497`*^9, 
   3.3948928934241247`*^9}, {3.3948931952834997`*^9, 3.3948932312522497`*^9}, 
   3.3948934628303747`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Put your new input cell below this text cell  ",
 StyleBox["\[DownArrow]\[DownArrow]\[DownArrow]\[DownArrow]\[DownArrow]\
\[DownArrow]\[DownArrow]\[DownArrow]\[DownArrow] ...",
  FontSize->16]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 
   3.3948919809553747`*^9}, {3.3948920430178747`*^9, 
   3.3948920865491247`*^9}, {3.3948923263459997`*^9, 
   3.3948923520491247`*^9}, {3.3948924308772497`*^9, 
   3.3948924956741247`*^9}, {3.3948925422678747`*^9, 
   3.3948925841428747`*^9}, {3.3948927500647497`*^9, 
   3.3948927615178747`*^9}, {3.3948928337522497`*^9, 
   3.3948929343303747`*^9}, {3.3948929683147497`*^9, 
   3.3948929745959997`*^9}, {3.3948930159866247`*^9, 3.3948930191116247`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"5", " ", "+", " ", "9"}]], "Input",
 CellChangeTimes->{{3.3948932065803747`*^9, 3.3948932086741247`*^9}}],

Cell[TextData[{
 "..and above this text cell ",
 StyleBox["\[UpArrow]\[UpArrow]\[UpArrow]\[UpArrow]\[UpArrow]\[UpArrow]\
\[UpArrow]\[UpArrow]\[UpArrow]",
  FontSize->16]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3948918484397497`*^9, 
   3.3948919150959997`*^9}, {3.3948919541897497`*^9, 
   3.3948919809553747`*^9}, {3.3948920430178747`*^9, 
   3.3948920865491247`*^9}, {3.3948923263459997`*^9, 
   3.3948923520491247`*^9}, {3.3948924308772497`*^9, 
   3.3948924956741247`*^9}, {3.3948925422678747`*^9, 
   3.3948925841428747`*^9}, {3.3948927500647497`*^9, 
   3.3948927615178747`*^9}, {3.3948928337522497`*^9, 
   3.3948928934241247`*^9}, {3.3948929878303747`*^9, 3.3948930222209997`*^9}},
 
 FontFamily->"Comic Sans MS"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
1.2\tExact vs. numerical approximations. Using the \"N\" command. \
\>", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, 
   3.39429576188625*^9, 3.39429581701125*^9, {3.394298169401875*^9, 
   3.394298172308125*^9}, {3.39433098482375*^9, 3.39433100194875*^9}, 
   3.3943310409175*^9, {3.39433288198*^9, 3.3943329432925*^9}, 
   3.39438222157375*^9, 3.3948254773147497`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 "Calculate ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["34", "19"], TraditionalForm]]],
 ".  Enter the expression ",
 StyleBox["34^19",
  FontColor->RGBColor[1, 0, 0]],
 ", then press",
 StyleBox[" ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["\[EnterKey]",
  FontSize->18,
  FontColor->GrayLevel[0]],
 StyleBox[".",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1]]
}], "Item",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, 3.39429581701125*^9, 
   3.394295888370625*^9, {3.3949295165491247`*^9, 3.3949295752053747`*^9}},
 FontFamily->"Comic Sans MS",
 Background->GrayLevel[1]],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306525058125*^9, 3.394306532464375*^9}, {3.3943284161675*^9, 
   3.394328419026875*^9}, 3.3948209990491247`*^9, {3.3948344421741247`*^9, 
   3.3948345384397497`*^9}, 3.3948470780491247`*^9, 3.3989966755625*^9}],

Cell[TextData[{
 "Note that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " produces the ",
 StyleBox["exact",
  FontVariations->{"Underline"->True}],
 " answer here; all thirty digits!  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will always display the exact value when doing a calculation if it is \
possible to do so.  However, if we really just want a ",
 StyleBox["numerical approximation",
  FontVariations->{"Underline"->True}],
 ", then we can use the \"N\" command as shown below.  Here \"N\" stands for \
\"numerical\". "
}], "Text",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.39432771788625*^9}, {3.39432867726125*^9, 
   3.394328796964375*^9}, {3.394329353464375*^9, 3.3943293766675*^9}, {
   3.394333975589375*^9, 3.394333978964375*^9}, {3.3948210132991247`*^9, 
   3.3948210221741247`*^9}, {3.3948497268459997`*^9, 3.3948497527366247`*^9}, 
   3.3948498154709997`*^9, {3.3949294782522497`*^9, 3.3949294827991247`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 " Click anywhere in the red input cell below and press",
 StyleBox[" ",
  FontColor->GrayLevel[0]],
 StyleBox["\[EnterKey]",
  FontSize->16],
 ". (Note the use of square brackets in the command below. Square brackets \
are used in all ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands)."
}], "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.39432771788625*^9}, {3.39432867726125*^9, 
   3.394328796964375*^9}, {3.394329353464375*^9, 3.3943293766675*^9}, {
   3.394333975589375*^9, 3.394333978964375*^9}, {3.3948210132991247`*^9, 
   3.3948210221741247`*^9}, {3.3948497268459997`*^9, 3.3948497527366247`*^9}, 
   3.3948498154709997`*^9, {3.3949294782522497`*^9, 3.3949294827991247`*^9}, {
   3.3949295884709997`*^9, 3.3949296370178747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"34", "^", "19"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306525058125*^9, 3.394306532464375*^9}, {3.394327552089375*^9, 
   3.39432755538625*^9}, {3.394539591745625*^9, 3.394539593401875*^9}, {
   3.394550663808125*^9, 3.394550671776875*^9}, {3.3948343363147497`*^9, 
   3.3948343483459997`*^9}, {3.3948497112366247`*^9, 3.3948497175959997`*^9}}],

Cell[TextData[{
 "Here the answer is expressed using ",
 StyleBox["scientific notation",
  FontSlant->"Italic"],
 " with a default of 6 ",
 StyleBox["significant digits",
  FontSlant->"Italic"],
 ". To get more digits, we just add a second argument to the command. For \
example, if we want 25 digits we enter ",
 StyleBox["N[34^19, 25]",
  FontColor->RGBColor[1, 0, 0]],
 ". "
}], "Text",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.3948211021116247`*^9, 3.3948211134553747`*^9}, {3.3948498103303747`*^9, 
   3.3948498652053747`*^9}, {3.3949296603616247`*^9, 3.3949296747678747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 " Click anywhere in the red input cell below and press",
 StyleBox[" ",
  FontColor->GrayLevel[0]],
 StyleBox["\[EnterKey]",
  FontSize->16],
 "."
}], "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.3948211021116247`*^9, 3.3948211134553747`*^9}, {3.3948498103303747`*^9, 
   3.3948498652053747`*^9}, {3.3949296603616247`*^9, 3.3949296747678747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"34", "^", "19"}], ",", "25"}], "]"}]], "Input",
 CellChangeTimes->{{3.394668618796875*^9, 3.3946686295*^9}, {
  3.400165099515625*^9, 3.40016510159375*^9}, {3.40016514571875*^9, 
  3.400165148453125*^9}}],

Cell[TextData[{
 StyleBox["Note that the command above has two \"arguments\" (or inputs) \
namely 34^19 and 25. These are separated by a ",
  FontColor->GrayLevel[0]],
 StyleBox["comma",
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[0]],
 StyleBox[". This is standard syntax for ",
  FontColor->GrayLevel[0]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->GrayLevel[0]],
 StyleBox[" commands that have more than one argument. ",
  FontColor->GrayLevel[0]],
 " "
}], "Text",
 CellChangeTimes->{{3.393703836144027*^9, 3.39370386045899*^9}, {
   3.394294649933125*^9, 3.39429468794875*^9}, 3.39429491569875*^9, {
   3.394295379620625*^9, 3.394295403339375*^9}, 3.39429581701125*^9, {
   3.394327576355*^9, 3.394327599495625*^9}, {3.394329406245625*^9, 
   3.394329416026875*^9}, {3.394334014401875*^9, 3.394334092151875*^9}, {
   3.3949297027522497`*^9, 3.3949297185334997`*^9}},
 FontFamily->"Comic Sans MS",
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[{
 StyleBox["When entering a command it's okay to put in some extra spaces as \
in the next input cell.   ",
  FontColor->GrayLevel[0]],
 " "
}], "Text",
 CellChangeTimes->{{3.393703836144027*^9, 3.39370386045899*^9}, {
   3.394294649933125*^9, 3.39429468794875*^9}, 3.39429491569875*^9, {
   3.394295379620625*^9, 3.394295403339375*^9}, 3.39429581701125*^9, {
   3.394327576355*^9, 3.394327599495625*^9}, {3.394329406245625*^9, 
   3.394329416026875*^9}, {3.394334014401875*^9, 3.394334092151875*^9}, {
   3.3949297027522497`*^9, 3.3949297185334997`*^9}, {3.39597002938375*^9, 
   3.395970080618125*^9}, {3.39597013382125*^9, 3.39597018907125*^9}, 
   3.400165118734375*^9},
 FontFamily->"Comic Sans MS",
 FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
 RowBox[{"N", "[", "  ", 
  RowBox[{
   RowBox[{"34", "^", "19"}], "   ", ",", " ", "25"}], "  ", "]"}]], "Input",
 CellChangeTimes->{{3.394668618796875*^9, 3.3946686295*^9}, {3.39597011304*^9,
   3.39597011857125*^9}, {3.4001651104375*^9, 3.40016515440625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["1.3\tAdding fractions.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, 
   3.39429602048*^9, {3.39430616019875*^9, 3.39430616069875*^9}, {
   3.394331008058125*^9, 3.39433104294875*^9}, {3.39433287148*^9, 
   3.3943328940425*^9}, 3.394382224808125*^9, 3.394712985625*^9, 
   3.3948254799241247`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["Add the fractions ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["2", "3"], "+", 
    FractionBox["5", "7"]}], TraditionalForm]]],
 " by ",
 "evaluating",
 " ",
 StyleBox["the input cell below.",
  CellFrame->0.5]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.3948499024397497`*^9, 3.3948499755491247`*^9}, {3.3949297825022497`*^9, 
   3.3949297941741247`*^9}, 3.397678843875*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "/", "3"}], " ", "+", " ", 
  RowBox[{"5", "/", "7"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.3937029242728205`*^9, 3.393702925063958*^9}, {
  3.394328989745625*^9, 3.39432899398*^9}}],

Cell[TextData[{
 "Again ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " gives us the exact answer rather than a decimal approximation. "
}], "Text",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.3949298452834997`*^9, 3.3949298512834997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.3 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
  3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
  3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Find a 100 digit approximation for the sum of the fractions",
 StyleBox[" ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["2", "3"], "+", 
    FractionBox["5", "7"]}], TraditionalForm]]],
 StyleBox[".",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, 3.39899675975*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.3A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "/", "3"}], " ", "+", " ", 
    RowBox[{"5", "/", "7"}]}], ",", " ", "100"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}}],

Cell[TextData[{
 "\[LightBulb]Math fact: The fraction",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    FractionBox["29", "21"]}], TraditionalForm]]],
 " is by definition a rational number. Recall that rational numbers are \
always expressible as either terminating decimals (e.g. ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["3", "4"], "=", ".75"}], TraditionalForm]]],
 ") ... or repeating, nonterminating decimals (e.g. ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["1", "3"], "=", 
    RowBox[{".333333", "..."}]}], TraditionalForm]]],
 "). What can you say about ",
 Cell[BoxData[
  FormBox[
   FractionBox["29", "21"], TraditionalForm]]],
 "?"
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.39433039494875*^9, 
   3.394330404183125*^9}, {3.394330570401875*^9, 3.394330630933125*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->10]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.4\tAnother way to apply the N command.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, 
   3.39429576188625*^9, 3.39429581701125*^9, {3.394298169401875*^9, 
   3.394298172308125*^9}, {3.39433098482375*^9, 3.39433100194875*^9}, 
   3.3943310409175*^9, {3.39433288198*^9, 3.3943329432925*^9}, 
   3.39438222157375*^9, {3.39463766935425*^9, 3.394637687026125*^9}, 
   3.3946798719375*^9, 3.394679938671875*^9, {3.394682054734375*^9, 
   3.39468212115625*^9}, {3.3947129628125*^9, 3.394712975265625*^9}, 
   3.3948254861584997`*^9, 3.398615821670375*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 "In Section 1.2 you learned about the N command which produces numerical \
approximations.  Recall that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will produce the exact answer for a calculation whenever possible. This \
sometimes produces surprising results."
}], "Text",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.394637751932375*^9, 3.3946378107605*^9}, {3.39467995371875*^9, 
   3.394680037046875*^9}, {3.39468019815625*^9, 3.394680245578125*^9}, {
   3.394680310796875*^9, 3.39468032921875*^9}, {3.394680408375*^9, 
   3.3946804193125*^9}, {3.394680543625*^9, 3.394680583703125*^9}, 
   3.3949300967522497`*^9, {3.395970550368125*^9, 3.3959705522275*^9}},
 FontFamily->"Comic Sans MS"],

Cell["Execute the input below.", "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.394637751932375*^9, 3.3946378107605*^9}, {3.39467995371875*^9, 
   3.394680037046875*^9}, {3.39468019815625*^9, 3.394680245578125*^9}, {
   3.394680310796875*^9, 3.39468032921875*^9}, {3.394680408375*^9, 
   3.3946804193125*^9}, {3.394680543625*^9, 3.394680583703125*^9}, {
   3.3949300967522497`*^9, 3.3949301075022497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"987", "^", "17"}], " ", "-", " ", 
    RowBox[{"85", "^", "20"}]}], ")"}], "/", "1452"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306525058125*^9, 3.394306532464375*^9}, {3.394327552089375*^9, 
   3.39432755538625*^9}, {3.394539591745625*^9, 3.394539593401875*^9}, {
   3.394550663808125*^9, 3.394550671776875*^9}, {3.394637717619875*^9, 
   3.394637725713625*^9}, {3.3946804275*^9, 3.39468050928125*^9}}],

Cell[TextData[{
 "Well, there it is, the exact answer! This is the exact, reduced fraction \
which is equal to our input.  In cases like this we almost always prefer ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to give us a numerical approximation. "
}], "Text",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.394637751932375*^9, 3.3946378107605*^9}, {3.39467995371875*^9, 
   3.394680037046875*^9}, {3.39468019815625*^9, 3.394680245578125*^9}, {
   3.394680310796875*^9, 3.39468032921875*^9}, {3.394680408375*^9, 
   3.3946804193125*^9}, {3.394680543625*^9, 3.394680583703125*^9}, {
   3.3946807219375*^9, 3.39468078534375*^9}, {3.39468097109375*^9, 
   3.394681024*^9}, 3.3946812024375*^9, 3.3946821511875*^9, 3.3947187545*^9, 
   3.3949302757209997`*^9, {3.3959705669775*^9, 3.395970567836875*^9}},
 FontFamily->"Comic Sans MS"],

Cell["\<\
Earlier we applied the N command to our original expression as in the input \
cell below. Execute this cell.\
\>", "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.394637751932375*^9, 3.3946378107605*^9}, {3.39467995371875*^9, 
   3.394680037046875*^9}, {3.39468019815625*^9, 3.394680245578125*^9}, {
   3.394680310796875*^9, 3.39468032921875*^9}, {3.394680408375*^9, 
   3.3946804193125*^9}, {3.394680543625*^9, 3.394680583703125*^9}, {
   3.3946807219375*^9, 3.39468078534375*^9}, {3.39468097109375*^9, 
   3.394681024*^9}, 3.3946812024375*^9, 3.3946821511875*^9, 3.3947187545*^9, {
   3.3949302757209997`*^9, 3.3949303073303747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"987", "^", "17"}], " ", "-", " ", 
     RowBox[{"85", "^", "20"}]}], ")"}], "/", "1452"}], "]"}]], "Input",
 CellChangeTimes->{{3.394680676609375*^9, 3.3946806855625*^9}}],

Cell["\<\
In the input cell below, we introduce an alternative way to achieve the same \
result. This is called \"postfix\" (as contrasted to \"prefix\") form, since \
here the command follows, rather than precedes, the argument. Note the use of \
the double forward slash \" // \".  Execute this cell.\
\>", "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.394329438901875*^9, 3.394329489995625*^9}, {
   3.394637751932375*^9, 3.3946378107605*^9}, {3.39467995371875*^9, 
   3.394680037046875*^9}, {3.39468019815625*^9, 3.394680245578125*^9}, {
   3.394680310796875*^9, 3.39468032921875*^9}, {3.394680408375*^9, 
   3.3946804193125*^9}, {3.394680543625*^9, 3.394680583703125*^9}, {
   3.3946807943125*^9, 3.394680948390625*^9}, {3.394681091609375*^9, 
   3.39468116475*^9}, {3.394681226015625*^9, 3.39468123325*^9}, {
   3.394681392921875*^9, 3.394681403890625*^9}, 3.39468153390625*^9, {
   3.39468216753125*^9, 3.3946822523125*^9}, {3.394682322640625*^9, 
   3.39468232603125*^9}, {3.3949303354553747`*^9, 3.3949303493147497`*^9}, {
   3.39597059044625*^9, 3.395970618461875*^9}, 3.3976050664375*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"987", "^", "17"}], " ", "-", " ", 
     RowBox[{"85", "^", "20"}]}], ")"}], "/", "1452"}], "//", "N"}]], "Input",\

 CellChangeTimes->{{3.394680688546875*^9, 3.39468068909375*^9}, {
  3.399480756703125*^9, 3.399480761046875*^9}, {3.399481063015625*^9, 
  3.399481063734375*^9}}],

Cell[TextData[{
 StyleBox["Prefix vs. Postfix",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontWeight->"Bold"],
 StyleBox[" \[LineSeparator]Postfix form is often convenient, however it does \
have one significant limitation. ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["It is not possible to specify options for a command when using the \
postfix form.",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontVariations->{"Underline"->True}],
 StyleBox[" So, for example, if you want \[Pi] displayed with 20 digits then \
you will need to use ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 Cell[BoxData[
  FormBox[
   RowBox[{"N", "[", 
    RowBox[{"\[Pi]", ",", "20"}], "]"}], TraditionalForm]]],
 " . There is no way to use //N and at the same time specify that you want 20 \
digits. "
}], "Text",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447210163625*^9}, {
   3.394473544214375*^9, 3.39447358294875*^9}, {3.394571422058125*^9, 
   3.39457143957375*^9}, {3.394737344671875*^9, 3.3947373696875*^9}, {
   3.39767668840625*^9, 3.39767692746875*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "1.5\tRepresenting the numbers  ",
 StyleBox["\[Pi]",
  FontSize->16],
 StyleBox[" ",
  FontSize->18],
 "and ",
 StyleBox["\[ExponentialE]",
  FontSize->16],
 " in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  "
}], "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, 
   3.39429602048*^9, {3.39430616019875*^9, 3.39430616069875*^9}, 
   3.394330940355*^9, {3.3943323711675*^9, 3.394332447495625*^9}, 
   3.39438223144875*^9, 3.394681270109375*^9, 3.3948254889553747`*^9, 
   3.39861582546725*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["In ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" we can enter the constant \[Pi]  by using the keyboard shortcut ",
  
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " p ",
 StyleBox["\[EscapeKey]",
  FontSize->14],
 ". (You will find the ",
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " key at the upper left-hand corner of your keyboard). "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.394332505120625*^9, 3.394332552245625*^9}, {3.394332632058125*^9, 
   3.394332705245625*^9}, {3.39433274463625*^9, 3.394332759526875*^9}, 
   3.394669223796875*^9, {3.39466943271875*^9, 3.3946695245*^9}, {
   3.39466956025*^9, 3.394669614421875*^9}, {3.394669669640625*^9, 
   3.394669749296875*^9}, {3.394669786375*^9, 3.3946698608125*^9}, {
   3.394669901671875*^9, 3.394669920640625*^9}, {3.394670036796875*^9, 
   3.394670225390625*^9}, {3.394670808375*^9, 3.39467089234375*^9}, {
   3.394671032921875*^9, 3.394671051109375*^9}, 3.39471891865625*^9, 
   3.3948951654553747`*^9, 3.3949308997991247`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Enter \[Pi] in the input cell below by using the keyboard shortcut",
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " p ",
 StyleBox["\[EscapeKey]",
  FontSize->14],
 ".  (Observe",
 StyleBox[" that when you press the ",
  FontColor->GrayLevel[0]],
 StyleBox["\[EscapeKey]",
  FontSize->14,
  FontColor->GrayLevel[0]],
 StyleBox[" key it appears as ",
  FontColor->GrayLevel[0]],
 StyleBox["\[AliasIndicator] ",
  FontSize->14,
  FontColor->GrayLevel[0]],
 StyleBox[", then you enter p, and when you press the ",
  FontColor->GrayLevel[0]],
 StyleBox["\[EscapeKey]",
  FontSize->14,
  FontColor->GrayLevel[0]],
 StyleBox[" key the second time, the \[Pi] symbol magically appears). ",
  FontColor->GrayLevel[0]]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.394332505120625*^9, 3.394332552245625*^9}, {3.394332632058125*^9, 
   3.394332705245625*^9}, {3.39433274463625*^9, 3.394332759526875*^9}, 
   3.394669223796875*^9, {3.39466943271875*^9, 3.3946695245*^9}, {
   3.39466956025*^9, 3.394669614421875*^9}, {3.394669669640625*^9, 
   3.394669749296875*^9}, {3.394669786375*^9, 3.3946698608125*^9}, {
   3.394669901671875*^9, 3.394669920640625*^9}, {3.394670036796875*^9, 
   3.394670225390625*^9}, {3.394670808375*^9, 3.39467089234375*^9}, {
   3.394671032921875*^9, 3.394671051109375*^9}, 3.39471891865625*^9, 
   3.3948951654553747`*^9, {3.3949308997991247`*^9, 3.3949309505959997`*^9}, {
   3.3949309868459997`*^9, 3.3949310050647497`*^9}, {3.3949312460022497`*^9, 
   3.3949312619241247`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.39467022909375*^9, 3.39467023021875*^9}, {
   3.3948951845491247`*^9, 3.3948951886428747`*^9}, {3.3949313606897497`*^9, 
   3.3949313719084997`*^9}, 3.398996709171875*^9}],

Cell[TextData[{
 "Find the first 1000 digits of \[Pi].  Note the next line is entered ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"N", "[", 
     RowBox[{
      StyleBox[
       RowBox[{
        StyleBox["\[EscapeKey]",
         FontSize->14], "p", 
        StyleBox["\[EscapeKey]",
         FontSize->14]}]], ",", "1000"}], "]"}],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.394332505120625*^9, 3.394332552245625*^9}, {3.394332632058125*^9, 
   3.394332705245625*^9}, {3.39433274463625*^9, 3.394332759526875*^9}, 
   3.394669223796875*^9, {3.39466943271875*^9, 3.3946695245*^9}, {
   3.39466956025*^9, 3.394669614421875*^9}, {3.394669669640625*^9, 
   3.394669749296875*^9}, {3.394669786375*^9, 3.3946698608125*^9}, {
   3.394669901671875*^9, 3.394669963625*^9}, {3.394670232625*^9, 
   3.394670300609375*^9}, {3.39467037253125*^9, 3.394670386734375*^9}, {
   3.3947571588152275`*^9, 3.3947572265496025`*^9}, {3.3949313831897497`*^9, 
   3.3949313836897497`*^9}, {3.3949314242366247`*^9, 3.3949314450647497`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"\[Pi]", ",", " ", "1000"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.3937029242728205`*^9, 3.393702925063958*^9}, {
  3.394328989745625*^9, 3.39432899398*^9}, {3.39433258032375*^9, 
  3.3943325860425*^9}, {3.394332763776875*^9, 3.394332771026875*^9}, {
  3.39467041028125*^9, 3.39467041834375*^9}, {3.398998185734375*^9, 
  3.398998187*^9}}],

Cell[TextData[{
 "In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", we can enter the ",
 StyleBox["exponential constant ",
  FontSlant->"Italic"],
 "(i.e. the base of the natural logarithm) ",
 StyleBox[", ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{" ", "\[ExponentialE]"}],
    FontSize->14], TraditionalForm]]],
 " \[TildeTilde] 2.71828 , by ",
 StyleBox["using the keyboard shortcut ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " ee ",
 StyleBox["\[EscapeKey]. ",
  FontSize->14],
 StyleBox[" ",
  CellFrame->0.5,
  FontSize->16],
 "Note that you must use ",
 StyleBox["two",
  FontVariations->{"Underline"->True}],
 " e's.  If you use just ",
 StyleBox["one",
  FontVariations->{"Underline"->True}],
 " e,  you will get the symbol ",
 StyleBox["\[Epsilon]",
  FontSize->16],
 " for the Greek letter epsilon.  Try entering ",
 StyleBox["\[ExponentialE]",
  FontSize->14],
 " using the keyboard shortcut in the red input cell below.  "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.394332505120625*^9, 3.394332552245625*^9}, {3.394332632058125*^9, 
   3.394332705245625*^9}, {3.39433274463625*^9, 3.394332759526875*^9}, 
   3.394669223796875*^9, {3.39466943271875*^9, 3.3946695245*^9}, {
   3.39466956025*^9, 3.394669614421875*^9}, {3.394669669640625*^9, 
   3.394669749296875*^9}, {3.394669786375*^9, 3.3946698608125*^9}, {
   3.394669901671875*^9, 3.394669963625*^9}, {3.394670232625*^9, 
   3.394670360171875*^9}, {3.3946704568125*^9, 3.39467046609375*^9}, {
   3.394671112171875*^9, 3.39467111625*^9}, {3.39471893825*^9, 
   3.394719067609375*^9}, {3.394719128*^9, 3.394719202828125*^9}, {
   3.394719361734375*^9, 3.394719364609375*^9}, {3.394719460609375*^9, 
   3.394719584546875*^9}, {3.39471965209375*^9, 3.39471967615625*^9}, {
   3.3948247321584997`*^9, 3.3948247357834997`*^9}, {3.3948952443459997`*^9, 
   3.3948952719084997`*^9}, 3.3948953345178747`*^9, 3.3948953924084997`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Enter  ",
 StyleBox["\[ExponentialE]",
  FontSize->14],
 "  in the input cell below by using the keyboard shortcut",
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ee ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\[EscapeKey]",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 ".  "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.394332505120625*^9, 3.394332552245625*^9}, {3.394332632058125*^9, 
   3.394332705245625*^9}, {3.39433274463625*^9, 3.394332759526875*^9}, 
   3.394669223796875*^9, {3.39466943271875*^9, 3.3946695245*^9}, {
   3.39466956025*^9, 3.394669614421875*^9}, {3.394669669640625*^9, 
   3.394669749296875*^9}, {3.394669786375*^9, 3.3946698608125*^9}, {
   3.394669901671875*^9, 3.394669920640625*^9}, {3.394670036796875*^9, 
   3.394670225390625*^9}, {3.394670808375*^9, 3.39467089234375*^9}, {
   3.394671032921875*^9, 3.394671051109375*^9}, 3.39471891865625*^9, 
   3.3948951654553747`*^9, {3.3949308997991247`*^9, 3.3949309505959997`*^9}, {
   3.3949309868459997`*^9, 3.3949310050647497`*^9}, {3.3949312460022497`*^9, 
   3.3949312619241247`*^9}, {3.3949314983616247`*^9, 3.3949315043616247`*^9}, 
   3.395970646836875*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.3949332617991247`*^9, 3.3949332632991247`*^9}, 
   3.398996716234375*^9}],

Cell[TextData[{
 StyleBox["\[CheckmarkedBox] ",
  FontSize->24],
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "  has simple shortcuts for the Greek alphabet. Here some common ones that \
you may want to use. "
}], "Text",
 CellChangeTimes->{
  3.3948946998459997`*^9, {3.3948947369241247`*^9, 3.3948947646741247`*^9}, 
   3.3948953724709997`*^9, {3.3948954172053747`*^9, 3.3948956138147497`*^9}, {
   3.3948958081272497`*^9, 3.3948959455803747`*^9}, {3.3948959950178747`*^9, 
   3.3948961226741247`*^9}, {3.3948961534553747`*^9, 3.3948961568616247`*^9}, 
   3.3949331721584997`*^9}],

Cell[TextData[{
 Cell[BoxData[GridBox[{
    {"alpha", 
     StyleBox["\[Alpha]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "a", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"beta", 
     StyleBox["\[Beta]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "b", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"gamma", 
     StyleBox["\[Gamma]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "g", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"delta", 
     StyleBox["\[Delta]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "d", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"epsilon", 
     StyleBox["\[Epsilon]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "e", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"theta", 
     StyleBox["\[Theta]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "th", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"kappa", 
     StyleBox["\[Kappa]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "k", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"lambda", 
     StyleBox["\[Lambda]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "l", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"pi", 
     StyleBox["\[Pi]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "p", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]},
    {"omega", 
     StyleBox["\[Omega]",
      FontSize->14,
      FontWeight->"Bold"], 
     RowBox[{
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}], " ", "o", " ", 
      StyleBox["\[EscapeKey]",
       CellFrame->{{0.5, 3}, {3, 0.5}}]}]}
   },
   GridBoxDividers->{
    "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
     "RowsIndexed" -> {}}]]],
 " "
}], "Text",
 CellChangeTimes->{
  3.3948946998459997`*^9, {3.3948947369241247`*^9, 3.3948947646741247`*^9}, 
   3.3948953724709997`*^9, {3.3948954172053747`*^9, 3.3948956138147497`*^9}, {
   3.3948958081272497`*^9, 3.3948959455803747`*^9}, {3.3948959950178747`*^9, 
   3.3948961226741247`*^9}, {3.3948961534553747`*^9, 
   3.3948961642834997`*^9}, {3.3948963257366247`*^9, 
   3.3948963503147497`*^9}, {3.396442989623412*^9, 3.396443014008829*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.5 A",
 FontSlant->"Italic"]], "Subsubsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, 
   3.39433094598*^9, {3.394332195901875*^9, 3.394332196651875*^9}, {
   3.39433307123*^9, 3.39433307457375*^9}, 3.394681272296875*^9, 
   3.398615840201625*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Multiple choice question.\nWhich of the following will give us the \
exponential constant ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{" ", "\[ExponentialE]"}],
    FontSize->14], TraditionalForm]]],
 " \[TildeTilde] 2.71828 ?\nA.         ",
 StyleBox[" ",
  CellFrame->0.5],
 "e",
 StyleBox["\n",
  FontSize->14],
 "B.  ",
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " e ",
 StyleBox["\[EscapeKey]\n",
  FontSize->14],
 "C.  ",
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " ee ",
 StyleBox["\[EscapeKey]",
  FontSize->14]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394331872464375*^9, 
   3.39433199323*^9}, {3.39433204338625*^9, 3.394332118589375*^9}, {
   3.39433220282375*^9, 3.394332227214375*^9}, {3.394333097214375*^9, 
   3.3943331921675*^9}, {3.3943332470425*^9, 3.39433324738625*^9}, {
   3.39433330948*^9, 3.39433339326125*^9}, {3.394333486605*^9, 
   3.394333716245625*^9}, {3.3948248102678747`*^9, 3.3948249422366247`*^9}, 
   3.394994769765625*^9},
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.5A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.39433372507375*^9, 3.394333725558125*^9}, 3.3946812760625*^9, {
   3.3986158673735*^9, 3.398615868170375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "A.         ",
 StyleBox[" ",
  CellFrame->0.5],
 "e\t\t",
 StyleBox["\[SadSmiley]",
  FontSize->24],
 "  WRONG! \tThis is just the letter e. ",
 StyleBox["\n",
  FontSize->14],
 "B.  ",
 StyleBox["  ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " e ",
 StyleBox["\[EscapeKey]\t    ",
  FontSize->14],
 StyleBox["\[SadSmiley] ",
  FontSize->24],
 "WRONG! ",
 StyleBox["\t        ",
  FontSize->14],
 "This gives the Greek letter epsilon ",
 Cell[BoxData[
  FormBox[
   StyleBox["\[Epsilon]",
    FontSize->14], TraditionalForm]]],
 ".",
 StyleBox["\n",
  FontSize->14],
 "C.  ",
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " ee ",
 StyleBox["\[EscapeKey]  \t    ",
  FontSize->14],
 StyleBox["\[HappySmiley] ",
  FontSize->24],
 StyleBox[" ",
  FontSize->14],
 "RIGHT !!"
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394331872464375*^9, 
   3.39433199323*^9}, {3.39433204338625*^9, 3.394332118589375*^9}, {
   3.39433220282375*^9, 3.394332227214375*^9}, {3.394333097214375*^9, 
   3.3943331921675*^9}, {3.3943332470425*^9, 3.39433324738625*^9}, {
   3.39433330948*^9, 3.39433339326125*^9}, {3.394333486605*^9, 
   3.394333716245625*^9}, {3.3948248102678747`*^9, 3.3948249422366247`*^9}, {
   3.3948249727209997`*^9, 3.3948252724397497`*^9}, 3.3948253126741247`*^9, {
   3.395970662680625*^9, 3.39597073438375*^9}, {3.40016532553125*^9, 
   3.40016535759375*^9}, {3.4001653988125*^9, 3.400165408625*^9}},
 FontFamily->"Comic Sans MS"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.5 B",
 FontSlant->"Italic"]], "Subsubsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, 
   3.39433094598*^9, {3.394332195901875*^9, 3.394332196651875*^9}, {
   3.39433307123*^9, 3.39433307457375*^9}, 3.394681272296875*^9, {
   3.3948247881584997`*^9, 3.3948247897366247`*^9}, 3.398615841545375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Look at the first two thousand digits of ",
 StyleBox["\[ExponentialE].",
  FontSize->14],
 "  Given that ",
 StyleBox["\[ExponentialE]",
  FontSize->14],
 StyleBox[" ",
  FontSize->16],
 "is an ",
 StyleBox["irrational number",
  FontSlant->"Italic"],
 " what should we expect to see (or not see) when we look at this decimal?"
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394331872464375*^9, 
   3.39433199323*^9}, {3.39433204338625*^9, 3.394332118589375*^9}, {
   3.39433220282375*^9, 3.394332227214375*^9}, {3.394333097214375*^9, 
   3.3943331921675*^9}, {3.3943332470425*^9, 3.39433324738625*^9}, {
   3.39433330948*^9, 3.39433339326125*^9}, {3.394333486605*^9, 
   3.394333716245625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39433199857375*^9, 3.394332072589375*^9}, 
   3.394332157620625*^9, {3.394332234901875*^9, 3.3943322399175*^9}, {
   3.394333216089375*^9, 3.394333251183125*^9}, {3.394333883026875*^9, 
   3.394333883339375*^9}, 3.39899672178125*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.5B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.39433372507375*^9, 3.394333725558125*^9}, 3.3946812760625*^9, {
   3.3948247959084997`*^9, 3.3948247967991247`*^9}, {3.39861587271725*^9, 
   3.398615873420375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"\[ExponentialE]", ",", " ", "2000"}], "]"}]], "Input",
 CellFrame->0.5,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, 3.394332178355*^9, 3.39433373648*^9, {
   3.394670504546875*^9, 3.39467050503125*^9}, {3.398999285609375*^9, 
   3.398999286265625*^9}}],

Cell["\<\
\[LightBulb]Math fact: Since \[ExponentialE] is an irrational number it is a \
nonrepeating, nonterminating decimal. Therefore we should expect to see a \
decimal that goes on forever with no repeating sequence of digits. \
\>", "Text",
 CellFrame->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.39433039494875*^9, 
   3.394330404183125*^9}, {3.394330570401875*^9, 3.394330630933125*^9}, {
   3.39433374998*^9, 3.39433384569875*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->10]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["1.6\tA keyboard shortcut for entering square roots.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, 
   3.39429602048*^9, {3.39430616019875*^9, 3.39430616069875*^9}, 
   3.394330940355*^9, {3.3943323711675*^9, 3.394332447495625*^9}, 
   3.39438223144875*^9, 3.394681270109375*^9, 3.3948254889553747`*^9, 
   3.39861582546725*^9, {3.398994843328125*^9, 3.39899486128125*^9}, {
   3.399038271984375*^9, 3.399038285578125*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 "If you need to enter a square root on your calculator you simply press the \
button with the square root symbol ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    StyleBox[".",
     FontColor->GrayLevel[1],
     Background->RGBColor[0.529198, 0.777737, 1]]], TraditionalForm]]],
 " . Unfortunately, standard computer keyboards don't have a square root key. \
 But ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does have a special keyboard shortcut which allows you to enter a square \
root symbol.  To enter a square root enter ",
 StyleBox["\[ControlKey]",
  FontSize->18],
 StyleBox["\[LeftModified]",
  FontSize->14],
 "2",
 StyleBox["\[RightModified]",
  FontSize->14],
 " , (that is, while holding down the Control key, type the number 2).",
 StyleBox[" ",
  FontSize->14],
 " The result is the square root template ",
 Cell[BoxData[
  FormBox[
   SqrtBox["\[Placeholder]"], TraditionalForm]]],
 ".  If you now enter a number, while the small entry box is still \
highlighted, it will be placed under the radical. "
}], "Text",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.39433167838625*^9, 3.394331856839375*^9}, {
   3.394384378276875*^9, 3.39438447657375*^9}, {3.394384527620625*^9, 
   3.394384545355*^9}, {3.3948213615647497`*^9, 3.3948213692834997`*^9}, {
   3.3948214312366247`*^9, 3.3948214989397497`*^9}, 3.3949299430334997`*^9, {
   3.396701269046875*^9, 3.396701306375*^9}, {3.3967015085*^9, 
   3.39670151159375*^9}, {3.398995007078125*^9, 3.39899524871875*^9}, {
   3.39899528425*^9, 3.39899532740625*^9}, {3.398995418203125*^9, 
   3.3989954905*^9}, {3.398995524984375*^9, 3.398995601046875*^9}, {
   3.398995676046875*^9, 3.39899574159375*^9}, {3.398995814609375*^9, 
   3.398995837734375*^9}, {3.398995905671875*^9, 3.3989959319375*^9}, 
   3.399039028578125*^9, 3.3994861400625*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "To enter the expression ",
 Cell[BoxData[
  FormBox[
   SqrtBox["49"], TraditionalForm]]],
 ", enter  ",
 StyleBox["\[ControlKey]",
  FontSize->18,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\[LeftModified]",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["2",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\[RightModified]",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" 49",
  FontColor->RGBColor[1, 0, 0]],
 ".  Try this below. "
}], "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.3948214748772497`*^9, 3.3948215051428747`*^9}, {
   3.3949300436272497`*^9, 3.3949300441428747`*^9}, 3.39670152134375*^9, {
   3.39760455734375*^9, 3.397604567578125*^9}, {3.39899594853125*^9, 
   3.398995950140625*^9}, 3.398996729125*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.398995610421875*^9, 3.39899561171875*^9}, 
   3.398995666859375*^9, {3.39899570646875*^9, 3.3989957096875*^9}, {
   3.398995745671875*^9, 3.39899574659375*^9}, {3.398995936953125*^9, 
   3.39899593834375*^9}, 3.398996731328125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["1.7\tDecimals in -- decimals out.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.39438129419875*^9, 3.394381313464375*^9}, {
   3.394381406370625*^9, 3.39438141351125*^9}, 3.39438223463625*^9, 
   3.39468128134375*^9, 3.394712981*^9, 3.395107551445136*^9, 
   3.398615828061*^9, {3.398994865453125*^9, 3.398994866046875*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" employs a useful convention when doing numerical calculations. If \
your input contains any numbers in decimal form then it automatically \
produces an answer in decimal form. This is an alternative way to get a \
numerical approximation without using the \"N\" command. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, 3.3949333238928747`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Compare the outputs resulting from entering ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   SqrtBox["90"], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   SqrtBox["90."], TraditionalForm]]],
 " below.  Observe that the mere presence of the decimal point in the second \
radical is enough to change the output form from exact to decimal."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.39438176663625*^9, 3.3943818911675*^9}, {
   3.394382017683125*^9, 3.394382055995625*^9}, {3.3949333289866247`*^9, 
   3.3949333503616247`*^9}, {3.40037606084375*^9, 3.40037606084375*^9}, {
   3.4087507368220263`*^9, 3.4087507570599146`*^9}, {3.4087508516704745`*^9, 
   3.4087508516704745`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 SqrtBox["90"]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.39438167088625*^9, 3.39438167701125*^9}, {
   3.394387735605*^9, 3.394387740605*^9}, {3.398999212953125*^9, 
   3.398999219796875*^9}, {3.408750804459179*^9, 3.4087508094246664`*^9}, {
   3.4087508407526665`*^9, 3.4087508447626505`*^9}}],

Cell[BoxData[
 SqrtBox["90."]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.39438167088625*^9, 3.39438168838625*^9}, {
   3.3989992436875*^9, 3.39899924928125*^9}, 3.40037606440625*^9, {
   3.4087507386390505`*^9, 3.4087507592372103`*^9}, {3.408750818979707*^9, 
   3.4087508197785707`*^9}, {3.4087508547876105`*^9, 3.4087508568239307`*^9}}],\


Cell[TextData[StyleBox["Here is another example. Note that if any part of the \
input contains a decimal then the output will be displayed in decimal form. ",
 
 CellFrame->0.5]], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.39438176663625*^9, 3.3943818911675*^9}, {
   3.394382017683125*^9, 3.394382055995625*^9}, {3.3949333707366247`*^9, 
   3.3949333710959997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"12", " ", "+", " ", 
  RowBox[{"1", "/", "2"}], " ", "+", " ", "23", " ", "+", " ", 
  RowBox[{"2", "^", "2.3"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.39438167088625*^9, 3.39438168838625*^9}, {
   3.394381903620625*^9, 3.3943819569175*^9}, {3.394668719609375*^9, 
   3.394668733890625*^9}, {3.39597078600875*^9, 3.395970796415*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["1.8\tNumerical lists -- the Range command", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, 3.394558786355*^9, {
   3.394558849558125*^9, 3.394558855870625*^9}, {3.3945603797925*^9, 
   3.394560380308125*^9}, 3.3945853551885486`*^9, 3.3948255172366247`*^9, {
   3.395107560054511*^9, 3.395107562101386*^9}, {3.395108016742011*^9, 
   3.395108018929511*^9}, {3.395108113492011*^9, 3.395108149085761*^9}, {
   3.395108384960761*^9, 3.395108393773261*^9}, {3.395108874601386*^9, 
   3.395108894335761*^9}, {3.395147487100875*^9, 3.395147488804*^9}, 
   3.395149084882125*^9, 3.3986158302485*^9, {3.398994869*^9, 
   3.3989948708125*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 "The Range command allows you to quickly generate a list of numbers. Here \
are some examples of how it works.\nThe basic syntax is:   ",
 StyleBox["Range[ start, end, increment] ",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.395108956195136*^9, 3.395109010804511*^9}, {
  3.395109058601386*^9, 3.395109063507636*^9}, {3.3951672149636636`*^9, 
  3.39516725629747*^9}}],

Cell["\<\
Generate a list of numbers starting with 10 ending with 200 in increments of \
2.\
\>", "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.3948214748772497`*^9, 3.3948215051428747`*^9}, {
   3.3949300436272497`*^9, 3.3949300441428747`*^9}, {3.395109051820136*^9, 
   3.395109079726386*^9}, {3.395109118304511*^9, 3.395109137382636*^9}, {
   3.395147524632125*^9, 3.3951475481165*^9}, {3.3951475801165*^9, 
   3.395147582413375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"10", ",", " ", "200", ",", " ", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.395109083242011*^9, 3.395109100179511*^9}, {
  3.395109140835761*^9, 3.395109141617011*^9}, {3.39514755214775*^9, 
  3.39514758821025*^9}}],

Cell["\<\
Generate a list of numbers starting with 1, ending with 10 in increments of \
.5.\
\>", "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.39433167838625*^9, 3.394331856839375*^9}, {
   3.394384378276875*^9, 3.39438447657375*^9}, {3.394384527620625*^9, 
   3.394384545355*^9}, {3.3948213615647497`*^9, 3.3948213692834997`*^9}, {
   3.3948214312366247`*^9, 3.3948214989397497`*^9}, {3.3949299430334997`*^9, 
   3.3949300318616247`*^9}, {3.395147863944625*^9, 3.395147894194625*^9}, 
   3.395147933382125*^9, {3.3969684987103443`*^9, 3.3969684999134693`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"1", ",", " ", "10", ",", " ", "0.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.395147938725875*^9, 3.39514794808525*^9}, {
  3.3951672804244432`*^9, 3.3951672805803027`*^9}}],

Cell[TextData[{
 "Generate a list of numbers starting with 0, ending with \[Pi] in increments \
of ",
 Cell[BoxData[
  FormBox[
   FractionBox["\[Pi]", "16"], TraditionalForm]]],
 "."
}], "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.39433167838625*^9, 3.394331856839375*^9}, {
   3.394384378276875*^9, 3.39438447657375*^9}, {3.394384527620625*^9, 
   3.394384545355*^9}, {3.3948213615647497`*^9, 3.3948213692834997`*^9}, {
   3.3948214312366247`*^9, 3.3948214989397497`*^9}, {3.3949299430334997`*^9, 
   3.3949300318616247`*^9}, {3.395147863944625*^9, 3.395147920913375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"0", ",", " ", "\[Pi]", ",", " ", 
   RowBox[{"\[Pi]", "/", "16"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.395147958975875*^9, 3.3951479724915*^9}, {
  3.39899954246875*^9, 3.398999549*^9}}],

Cell["\<\
If you leave out the increment, it is assumed to be 1 . That is, Range[ a, b] \
is equivalent to Range[a, b, 1] (see below). \
\>", "Text",
 CellChangeTimes->{{3.395108956195136*^9, 3.395109010804511*^9}, {
   3.395109058601386*^9, 3.395109063507636*^9}, {3.395109167554511*^9, 
   3.395109195710761*^9}, {3.395148016679*^9, 3.3951480632415*^9}, {
   3.3951672967896385`*^9, 3.395167302821382*^9}, 3.39637756215625*^9, 
   3.39714295919375*^9, 3.3971464594125*^9, {3.3994710155625*^9, 
   3.399471034859375*^9}, {3.399471170671875*^9, 3.399471187984375*^9}, {
   3.399471383*^9, 3.399471437234375*^9}}],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{
   RowBox[{"-", "2"}], ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.395148012257125*^9, 3.395148013304*^9}, {
  3.395148067304*^9, 3.3951480708665*^9}, {3.399471038640625*^9, 
  3.39947104309375*^9}, {3.39947111234375*^9, 3.3994711181875*^9}, {
  3.39947129403125*^9, 3.39947129840625*^9}}],

Cell["\<\
If you want to generate a list of positive integers, starting with 1, up to \
some particular integer, then you can use the shorter form below. That is, \
Range[n] is equivalent to Range[1,n,1] and Range[1,n]. \
\>", "Text",
 CellChangeTimes->{{3.395108956195136*^9, 3.395109010804511*^9}, {
   3.395109058601386*^9, 3.395109063507636*^9}, {3.395109167554511*^9, 
   3.395109195710761*^9}, {3.395148016679*^9, 3.3951480632415*^9}, {
   3.3951672967896385`*^9, 3.395167302821382*^9}, 3.39637756215625*^9, 
   3.39714295919375*^9, 3.3971464594125*^9, {3.399471149109375*^9, 
   3.399471157859375*^9}, {3.3994713171875*^9, 3.399471343828125*^9}}],

Cell[BoxData[
 RowBox[{"Range", "[", "20", "]"}]], "Input",
 CellChangeTimes->{{3.395148012257125*^9, 3.395148013304*^9}, {
  3.395148067304*^9, 3.3951480708665*^9}}],

Cell["\<\
If you apply an arithmetic operation to a list and the operation will be \
performed on each element of the list. \
\>", "Text",
 CellChangeTimes->{{3.395108956195136*^9, 3.395109010804511*^9}, {
  3.395109058601386*^9, 3.395109063507636*^9}, {3.395109167554511*^9, 
  3.395109195710761*^9}, {3.395148016679*^9, 3.3951480632415*^9}, {
  3.395148124944625*^9, 3.3951481931165*^9}, {3.395148467944625*^9, 
  3.395148529132125*^9}, {3.3951673156797495`*^9, 3.3951673838213043`*^9}, {
  3.4100356039*^9, 3.400165582484375*^9}}],

Cell["Find the square of all the positive integers from 1 to 25. ", "Item",
 CellChangeTimes->{{3.3937028613022738`*^9, 3.393702898035093*^9}, {
   3.3937029303715906`*^9, 3.3937029435104833`*^9}, {3.3937041372670207`*^9, 
   3.3937041684718914`*^9}, {3.393704205815589*^9, 3.393704214608232*^9}, {
   3.39428985907375*^9, 3.394289901714375*^9}, 3.394290507526875*^9, {
   3.39432716719875*^9, 3.394327207839375*^9}, {3.394327242776875*^9, 
   3.39432753788625*^9}, {3.3943276322925*^9, 3.394327641933125*^9}, {
   3.39432768332375*^9, 3.394327849401875*^9}, {3.394327903308125*^9, 
   3.394327919589375*^9}, {3.39432903963625*^9, 3.39432913398*^9}, 
   3.394330745105*^9, {3.39433167838625*^9, 3.394331856839375*^9}, {
   3.394384378276875*^9, 3.39438447657375*^9}, {3.394384527620625*^9, 
   3.394384545355*^9}, {3.3948213615647497`*^9, 3.3948213692834997`*^9}, {
   3.3948214312366247`*^9, 3.3948214989397497`*^9}, {3.3949299430334997`*^9, 
   3.3949300318616247`*^9}, {3.395147863944625*^9, 3.395147920913375*^9}, {
   3.395148200054*^9, 3.395148232975875*^9}, {3.395148346163375*^9, 
   3.395148346475875*^9}, {3.39516740417649*^9, 3.395167413153968*^9}, 
   3.39637756753125*^9, 3.40016557159375*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"Range", "[", "25", "]"}], ")"}], "^", "2"}]], "Input",
 CellChangeTimes->{{3.3951482371165*^9, 3.3951482436165*^9}, {
  3.39514834939775*^9, 3.395148349679*^9}, {3.400165459890625*^9, 
  3.40016547690625*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.8 A",
 FontSlant->"Italic"]], "Subsubsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, 
   3.39433094598*^9, {3.394332195901875*^9, 3.394332196651875*^9}, {
   3.39433307123*^9, 3.39433307457375*^9}, 3.394681272296875*^9, {
   3.39767556984375*^9, 3.397675572234375*^9}, 3.39861583459225*^9, {
   3.398994875703125*^9, 3.39899487628125*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell["\<\
Create a list that consists of all the integers from -10 to 10. \
\>", "Text",
 CellChangeTimes->{{3.397675867*^9, 3.3976759171875*^9}, {3.3976765559375*^9, 
  3.397676567984375*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.3979964898805*^9, 3.397996490083625*^9}, 
   3.398996747578125*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.8A ",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.39433372507375*^9, 3.394333725558125*^9}, 3.3946812760625*^9, {
   3.3976755828125*^9, 3.397675592640625*^9}, 3.397675781671875*^9, {
   3.398615879857875*^9, 3.398615880576625*^9}, {3.398994879171875*^9, 
   3.39899487971875*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{
   RowBox[{"-", "10"}], ",", "10", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.399471242484375*^9, 3.3994712520625*^9}}],

Cell["Or we could use the shorter form.", "Text",
 CellChangeTimes->{{3.399471264734375*^9, 3.399471272453125*^9}}],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{
   RowBox[{"-", "10"}], ",", " ", "10"}], "]"}]], "Input",
 CellChangeTimes->{
  3.39767580159375*^9, {3.397675923515625*^9, 3.397675946484375*^9}, {
   3.397676575640625*^9, 3.3976765779375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.8 B",
 FontSlant->"Italic"]], "Subsubsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, 
   3.39433094598*^9, {3.394332195901875*^9, 3.394332196651875*^9}, {
   3.39433307123*^9, 3.39433307457375*^9}, 3.394681272296875*^9, {
   3.39767556984375*^9, 3.397675572234375*^9}, 3.397676546578125*^9, 
   3.398615836139125*^9, {3.398994882046875*^9, 3.39899488259375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell["\<\
Create a list that consists of all the even numbers from 12 to 56.\
\>", "Text",
 CellChangeTimes->{{3.397675867*^9, 3.3976759171875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.397996503943*^9, 3.39799650478675*^9}, 
   3.398996759015625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.8B ",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.39433372507375*^9, 3.394333725558125*^9}, 3.3946812760625*^9, {
   3.3976755828125*^9, 3.397675592640625*^9}, 3.397675781671875*^9, {
   3.397676591375*^9, 3.397676592109375*^9}, {3.3986158843735*^9, 
   3.398615885076625*^9}, {3.39899488559375*^9, 3.3989948860625*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"12", ",", " ", "56", ",", " ", "2"}], "]"}]], "Input",
 CellChangeTimes->{
  3.39767580159375*^9, {3.397675923515625*^9, 3.397675946484375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 1.8 C",
 FontSlant->"Italic"]], "Subsubsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, 
   3.39433094598*^9, {3.394332195901875*^9, 3.394332196651875*^9}, {
   3.39433307123*^9, 3.39433307457375*^9}, 3.394681272296875*^9, {
   3.39767556984375*^9, 3.397675572234375*^9}, 3.397675994171875*^9, 
   3.397676549890625*^9, 3.398615837420375*^9, {3.398994889125*^9, 
   3.39899488946875*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Create a list that consists of the ",
 StyleBox["cubes",
  FontVariations->{"Underline"->True}],
 " of the integers from 1 to 15."
}], "Text",
 CellChangeTimes->{{3.397675867*^9, 3.3976759171875*^9}, {3.39767600640625*^9,
   3.39767602915625*^9}, {3.397676108265625*^9, 3.397676148890625*^9}, {
  3.39767620365625*^9, 3.397676326609375*^9}, {3.3976763894375*^9, 
  3.39767640578125*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.397996510318*^9, 3.397996510568*^9}, 
   3.398996759015625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 1.8C ",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.39433372507375*^9, 3.394333725558125*^9}, 3.3946812760625*^9, {
   3.3976755828125*^9, 3.397675592640625*^9}, 3.397675781671875*^9, {
   3.39767603425*^9, 3.397676034734375*^9}, {3.397676597125*^9, 
   3.39767659915625*^9}, {3.39861588934225*^9, 3.398615889936*^9}, {
   3.39899489221875*^9, 3.3989948928125*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"Range", "[", "15", "]"}], ")"}], "^", "3"}]], "Input",
 CellChangeTimes->{
  3.39767580159375*^9, {3.397675923515625*^9, 3.397675946484375*^9}, {
   3.39767604115625*^9, 3.397676048421875*^9}, {3.39767616196875*^9, 
   3.39767616509375*^9}, 3.39903430621875*^9, {3.400165495953125*^9, 
   3.40016550190625*^9}}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lesson 2   \t\tStandard Mathematical Functions", "Section",
 CellFrame->0.5,
 CellFrameColor->RGBColor[0, 0, 0],
 CellChangeTimes->{{3.3936938130904784`*^9, 3.393693846258171*^9}, {
   3.393694471657451*^9, 3.393694481721923*^9}, {3.393694524323181*^9, 
   3.393694550681082*^9}, {3.3936945850304737`*^9, 3.3936945906084943`*^9}, {
   3.3936950013791533`*^9, 3.393695005805518*^9}, {3.393702643228699*^9, 
   3.3937027610581293`*^9}, {3.393703581197432*^9, 3.393703585483595*^9}, {
   3.39429415419875*^9, 3.39429416101125*^9}, 3.39429821157375*^9, {
   3.394562320558125*^9, 3.39456234823*^9}, {3.394571497151875*^9, 
   3.394571503839375*^9}, 3.397073492021875*^9},
 FontFamily->"Comic Sans MS",
 FontSize->16,
 FontWeight->"Plain",
 Background->RGBColor[
  0.6901960784313725, 0.8235294117647058, 0.7019607843137254]],

Cell[CellGroupData[{

Cell["2.1\tIntroduction", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394412545526875*^9, 3.39441257148*^9}, {3.394415233183125*^9, 
   3.394415239808125*^9}, {3.3944713966675*^9, 3.394471416995625*^9}, 
   3.3944714942925*^9, {3.39447188951125*^9, 3.394471889683125*^9}, {
   3.3944762252925*^9, 3.394476240605*^9}, 3.39456221523*^9, 
   3.3948255082834997`*^9, 3.4000708881875*^9, {3.40007095609375*^9, 
   3.40007097809375*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["Mathematica ",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" has thousands of built-in mathematical functions.  In this lesson \
we will focus on the functions that you are already familiar with from \
Precalculus; namely trigonometric, exponential and logarithmic functions.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209363625*^9}, {
   3.39456228857375*^9, 3.39456230744875*^9}, {3.394562373214375*^9, 
   3.3945623887925*^9}, {3.394571337105*^9, 3.39457137048*^9}, {
   3.394571536495625*^9, 3.394571546401875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["There are two important rules that you need to remember when using \
",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["Mathematica",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontSlant->"Italic"],
 StyleBox["'s built-in functions. \[LineSeparator]1.  All functions start \
with a ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["capital letter",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontSlant->"Italic"],
 StyleBox[".\n2. All functions use ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["square brackets",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontSlant->"Italic"],
 StyleBox[" (not parentheses) to enclose their input value. ",
  CellFrame->{{0.5, 3}, {3, 0.5}}]
}], "Text",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447210163625*^9}, {
   3.394473544214375*^9, 3.39447358294875*^9}, {3.394571422058125*^9, 
   3.39457143957375*^9}, {3.394737344671875*^9, 3.3947373696875*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]],

Cell[TextData[{
 StyleBox["The Absolute Value and Square Root Functions.",
  CellFrame->0.5,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["\nA simple example of the application of these rules is the \
absolute value function.  On most calculators the absolute value function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"\[RightBracketingBar]", " ", "x", "\[LeftBracketingBar]"}], 
   TraditionalForm]]],
 " is represented by the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"abs", "(", "x", ")"}], TraditionalForm]]],
 ". The corresponding function in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is ",
 StyleBox["Abs[x]",
  FontWeight->"Bold"],
 " . Note that we start with a capital letter and use square brackets. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209363625*^9}, {
   3.39456228857375*^9, 3.39456230744875*^9}, {3.394562373214375*^9, 
   3.3945623887925*^9}, {3.394571337105*^9, 3.39457137048*^9}, {
   3.394571536495625*^9, 3.394571657995625*^9}, {3.394571700276875*^9, 
   3.394571834933125*^9}, {3.39457199557375*^9, 3.394572019339375*^9}, {
   3.39597087575875*^9, 3.395970876211875*^9}, {3.396460275828125*^9, 
   3.396460280828125*^9}, {3.399471784265625*^9, 3.399471820859375*^9}, {
   3.399471876109375*^9, 3.39947188284375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Abs", "[", 
  RowBox[{"-", "6"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394471704026875*^9, 3.394471720308125*^9}, {3.394571848495625*^9, 
   3.39457185494875*^9}}],

Cell[TextData[{
 "Earlier, we introduced the keyboard shortcut ",
 StyleBox["\[ControlKey]",
  FontSize->18],
 StyleBox["\[LeftModified]",
  FontSize->14],
 "2",
 StyleBox["\[RightModified]",
  FontSize->14],
 " to enter a square root.  So to enter the square root function we would \
enter the keystrokes ",
 StyleBox["\[ControlKey]",
  FontSize->18],
 StyleBox["\[LeftModified]",
  FontSize->14],
 "2",
 StyleBox["\[RightModified]",
  FontSize->14],
 " ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 ".  "
}], "Text",
 CellChangeTimes->{{3.399039080953125*^9, 3.399039333015625*^9}, {
  3.39903939153125*^9, 3.399039436546875*^9}, {3.399039468390625*^9, 
  3.399039587328125*^9}, {3.399039626265625*^9, 3.3990396449375*^9}}],

Cell[BoxData[
 SqrtBox["x"]], "Input",
 CellChangeTimes->{{3.3990396493125*^9, 3.399039650109375*^9}}],

Cell[TextData[{
 "The square root function ",
 Cell[BoxData[
  FormBox[
   SqrtBox["x"], TraditionalForm]]],
 " is also represented in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " by the built-in function ",
 StyleBox["Sqrt[x]",
  FontWeight->"Bold"],
 " (note that this function starts with a capital letter S).  So the two \
expressions below are equivalent. You can use either, although in this \
tutorial we will continue to use the keyboard shortcut."
}], "Text",
 CellChangeTimes->{{3.399039080953125*^9, 3.399039333015625*^9}, {
  3.39903939153125*^9, 3.399039436546875*^9}, {3.399039468390625*^9, 
  3.399039587328125*^9}, {3.399039626265625*^9, 3.39903969078125*^9}}],

Cell[BoxData[
 SqrtBox["36"]], "Input",
 CellChangeTimes->{{3.39903950640625*^9, 3.39903950928125*^9}}],

Cell[BoxData[
 RowBox[{"Sqrt", "[", "36", "]"}]], "Input",
 CellChangeTimes->{{3.399039514515625*^9, 3.399039518078125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2\tTrigonometric functions.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394412545526875*^9, 3.39441257148*^9}, {3.394415233183125*^9, 
   3.394415239808125*^9}, {3.3944713966675*^9, 3.394471416995625*^9}, 
   3.3944714942925*^9, {3.39447188951125*^9, 3.394471889683125*^9}, {
   3.3944762252925*^9, 3.394476240605*^9}, 3.39456221523*^9, 
   3.3948255082834997`*^9, 3.4000708881875*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["Use ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" to evaluate ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", "(", 
    FractionBox["\[Pi]", "3"], ")"}], TraditionalForm]]],
 StyleBox[". Recall that the keyboard shortcut for \[Pi] is ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " p ",
 StyleBox["\[EscapeKey]",
  FontSize->14],
 ".  ",
 StyleBox["We use ",
  CellFrame->0.5],
 StyleBox["S",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox["in for the function name and enclose the input in square brackets. \
",
  CellFrame->0.5]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, 
   3.397605496*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"\[Pi]", "/", "3"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394471704026875*^9, 3.394471720308125*^9}, {3.39471792940625*^9, 
   3.39471797065625*^9}, {3.398998164546875*^9, 3.398998165796875*^9}}],

Cell[TextData[{
 StyleBox["Unlike a calculator, ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" gives an exact value.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394718023953125*^9}, 
   3.394994796796875*^9, 3.3969682420228443`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["The table below shows the syntax for the other trigonometric \
functions. ",
  CellFrame->0.5],
 "Note that each function on the right starts with a capital letter and uses \
square brackets to enclose the function input."
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.394414266558125*^9, 3.39441426751125*^9}, {3.394472375745625*^9, 
   3.394472376776875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    StyleBox[
     RowBox[{
      RowBox[{"to", " ", "get", " ", "this"}], ","}],
     FontSize->12,
     Background->GrayLevel[0.95]], 
    StyleBox[
     RowBox[{"we", " ", "enter", " ", 
      RowBox[{"this", ":"}]}],
     FontSize->12,
     Background->GrayLevel[0.95]]},
   {
    StyleBox[
     RowBox[{"sin", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Sin", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{"cos", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Cos", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{"tan", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Tan", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{"csc", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Csc", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{"sec", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Sec", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{"cot", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Cot", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{
      SuperscriptBox["sin", 
       RowBox[{"-", "1"}]], 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"ArcSin", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{
      SuperscriptBox["cos", 
       RowBox[{"-", "1"}]], 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"ArcCos", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{
      SuperscriptBox["tan", 
       RowBox[{"-", "1"}]], 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"ArcTan", "[", "x", "]"}],
     FontSize->12]}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> {}}]],
 TextAlignment->Center]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, {3.394413917120625*^9, 
   3.39441392132375*^9}, {3.3944145482925*^9, 3.394414548526875*^9}, {
   3.394416003105*^9, 3.39441600673*^9}},
 TextAlignment->-0.5,
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["\[WarningSign] ",
  FontSize->18],
 StyleBox["Caution: Note that for the inverse functions two letters are \
capitalized, e.g. both A and T are capitalized in ArcTan.",
  CellFrame->0.5]
}], "Text",
 CellFrame->0.5,
 CellFrameColor->RGBColor[0, 0, 1],
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394471911433125*^9, 
   3.394471925526875*^9}, {3.39447537613625*^9, 3.39447563251125*^9}, {
   3.3944757309175*^9, 3.394475768464375*^9}, {3.394475800089375*^9, 
   3.39447581448*^9}, 3.3946368411355*^9, {3.3976060288125*^9, 
   3.39760606771875*^9}, {3.3994722348125*^9, 3.399472310859375*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]],

Cell[TextData[StyleBox["Use the table above and the keyboard shortcut for \
\[Pi] to enter and evaluate each of the following expressions. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394472180964375*^9, 
   3.394472211526875*^9}, {3.3949335056741247`*^9, 3.3949336408928747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"cos", "(", 
    FractionBox["\[Pi]", "4"], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.3944143372925*^9}, {
   3.394414395355*^9, 3.394414429464375*^9}, {3.394414469433125*^9, 
   3.394414470745625*^9}, {3.39471807965625*^9, 3.39471807965625*^9}, {
   3.3949336450178747`*^9, 3.3949336617522497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"\[Pi]", "/", "4"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394413406276875*^9, 3.39441342673*^9}, {3.394413968308125*^9, 
   3.394413983089375*^9}, {3.394414022558125*^9, 3.3944140435425*^9}, {
   3.39441410023*^9, 3.3944141012925*^9}, {3.394414407026875*^9, 
   3.39441447676125*^9}, {3.394470263245625*^9, 3.394470270714375*^9}, {
   3.39471805353125*^9, 3.39471807634375*^9}, 3.397996579677375*^9, {
   3.39817562603675*^9, 3.3981756393805*^9}, 3.398175760427375*^9, {
   3.398432229489875*^9, 3.398432240568*^9}, 3.398432413068*^9, {
   3.398995977171875*^9, 3.3989959886875*^9}, {3.398998158671875*^9, 
   3.39899815946875*^9}}],

Cell[TextData[{
 " ",
 StyleBox[" value = ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]],
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    SqrtBox["2"]], TraditionalForm]],
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.3969669975228443`*^9, 
   3.3969670013040943`*^9}, {3.3969670976790943`*^9, 3.3969671004759693`*^9}, 
   3.3969673028978443`*^9, {3.397605191953125*^9, 3.397605211*^9}, {
   3.398432259583625*^9, 3.398432284489875*^9}, 3.398995972984375*^9},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sec", "(", 
    FractionBox["\[Pi]", "4"], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.3944143372925*^9}, {
   3.394414395355*^9, 3.394414429464375*^9}, {3.394414469433125*^9, 
   3.394414470745625*^9}, {3.39471807965625*^9, 3.39471807965625*^9}, {
   3.3949336450178747`*^9, 3.3949336891584997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394413406276875*^9, 3.39441342673*^9}, {3.394413968308125*^9, 
   3.394413983089375*^9}, {3.394414022558125*^9, 3.3944140435425*^9}, {
   3.39441410023*^9, 3.3944141012925*^9}, {3.394414460589375*^9, 
   3.394414477855*^9}, {3.39447027626125*^9, 3.39447028863625*^9}, {
   3.394718094734375*^9, 3.394718101234375*^9}, 3.397996581114875*^9, {
   3.398175674802375*^9, 3.39817568353675*^9}, 3.3981757593805*^9, {
   3.398432327271125*^9, 3.398432337302375*^9}, 3.398996759015625*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]],
 Cell[BoxData[
  FormBox[
   SqrtBox["2"], TraditionalForm]],
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.3969669975228443`*^9, 
   3.3969670013040943`*^9}, {3.3969670976790943`*^9, 3.3969671004759693`*^9}, 
   3.3969673028978443`*^9, {3.397605191953125*^9, 3.397605211*^9}, {
   3.398432259583625*^9, 3.398432284489875*^9}, {3.3984323216305*^9, 
   3.398432325427375*^9}},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"tan", "(", 
    FractionBox["\[Pi]", "4"], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.3944143372925*^9}, {
   3.394414395355*^9, 3.394414429464375*^9}, {3.394414469433125*^9, 
   3.394414470745625*^9}, {3.39471807965625*^9, 3.39471807965625*^9}, {
   3.3949336450178747`*^9, 3.3949336617522497`*^9}, 3.3949337112522497`*^9, {
   3.3984323438805*^9, 3.398432344271125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394413406276875*^9, 3.39441342673*^9}, {3.394413968308125*^9, 
   3.394413983089375*^9}, {3.394414022558125*^9, 3.3944140435425*^9}, {
   3.39441410023*^9, 3.3944141012925*^9}, {3.394414589464375*^9, 
   3.394414593526875*^9}, 3.394414976589375*^9, {3.394470304870625*^9, 
   3.39447031032375*^9}, {3.39471811653125*^9, 3.39471813059375*^9}, 
   3.397996582568*^9, {3.39817570397425*^9, 3.398175710458625*^9}, 
   3.3981757581305*^9, {3.39843244091175*^9, 3.398432460083625*^9}, 
   3.39899675903125*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]],
 Cell[BoxData[
  FormBox["1", TraditionalForm]],
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.3969669975228443`*^9, 
   3.3969670013040943`*^9}, {3.3969670976790943`*^9, 3.3969671004759693`*^9}, 
   3.3969673028978443`*^9, {3.397605191953125*^9, 3.397605211*^9}, {
   3.398432259583625*^9, 3.398432284489875*^9}, {3.3984323216305*^9, 
   3.398432325427375*^9}, 3.398432377021125*^9},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["tan", 
     RowBox[{"-", "1"}]], "(", "1", ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.3944143372925*^9}, {
   3.394414395355*^9, 3.394414429464375*^9}, {3.394414469433125*^9, 
   3.394414470745625*^9}, {3.39471807965625*^9, 3.39471807965625*^9}, {
   3.3949336450178747`*^9, 3.3949336617522497`*^9}, 3.3949337112522497`*^9, 
   3.3949337481428747`*^9, {3.3984323713805*^9, 3.3984323713805*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394413406276875*^9, 3.39441342673*^9}, {3.394413968308125*^9, 
   3.394413983089375*^9}, {3.394414022558125*^9, 3.3944140435425*^9}, {
   3.39441410023*^9, 3.3944141012925*^9}, {3.394414614933125*^9, 
   3.394414621776875*^9}, 3.394414979245625*^9, {3.394470315433125*^9, 
   3.394470320151875*^9}, {3.39471815271875*^9, 3.3947181554375*^9}, 
   3.397996584396125*^9, {3.398432430552375*^9, 3.398432461646125*^9}, 
   3.39899675903125*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]],
 Cell[BoxData[
  FormBox[
   FractionBox["\[Pi]", "4"], TraditionalForm]],
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.3969669975228443`*^9, 
   3.3969670013040943`*^9}, {3.3969670976790943`*^9, 3.3969671004759693`*^9}, 
   3.3969673028978443`*^9, {3.397605191953125*^9, 3.397605211*^9}, {
   3.398432259583625*^9, 3.398432284489875*^9}, {3.3984323216305*^9, 
   3.398432325427375*^9}, {3.398432422614875*^9, 3.39843242772425*^9}},
 FontFamily->"Courier New",
 FontSize->11],

Cell["", "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.394414266558125*^9, 3.39441426751125*^9}, {3.394472375745625*^9, 
   3.394472376776875*^9}, {3.3949786709866247`*^9, 3.3949789033616247`*^9}, {
   3.3949789867522497`*^9, 3.3949789887678747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Raising a trigonometric function to a power.",
  CellFrame->0.5,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["\nSuppose you want to enter a power of trigonometric function such \
as ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["sin", "2"], "(", 
    FractionBox["\[Pi]", "3"], ")"}], TraditionalForm]]],
 ". The correct ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " syntax in this case is:  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"\[Pi]", "/", "3"}], "]"}], "2"], TraditionalForm]]],
 " .  Note in particular that you must place the exponent after the argument, \
",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{"\[Pi]", "/", "3"}], "]"}], TraditionalForm]]],
 ",  and not directly after the Sin. So the keystrokes for entering ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["sin", "2"], "(", 
    FractionBox["\[Pi]", "3"], ")"}], TraditionalForm]]],
 " are: ",
 StyleBox["Sin[ \[Pi]/3] ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["^",
  FontSize->14,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" 2",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" . Try this below.",
  FontColor->GrayLevel[0]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.394414266558125*^9, 3.39441426751125*^9}, {3.394472375745625*^9, 
   3.394472376776875*^9}, {3.3949786709866247`*^9, 3.3949789033616247`*^9}, {
   3.3949793037209997`*^9, 3.3949793211428747`*^9}, {3.3949793617366247`*^9, 
   3.3949793989397497`*^9}, {3.3949794417678747`*^9, 
   3.3949794452991247`*^9}, {3.3969683644603443`*^9, 
   3.3969684233353443`*^9}, {3.397605569609375*^9, 3.397605629375*^9}, {
   3.39760566009375*^9, 3.397605701328125*^9}, {3.397605786546875*^9, 
   3.397605812359375*^9}, {3.397605845703125*^9, 3.397605851078125*^9}, {
   3.398996022671875*^9, 3.398996085171875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.39760574278125*^9, 3.397605744296875*^9}, {
   3.39899608925*^9, 3.398996106046875*^9}, 3.39899675903125*^9}],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["cos", "3"], "(", 
    FractionBox["\[Pi]", "4"], ")"}], TraditionalForm]]],
 ".  If you enter this correctly you should get ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{"2", 
     SqrtBox["2"]}]], TraditionalForm]]],
 " as an output."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.3944143372925*^9}, {
   3.394414395355*^9, 3.394414429464375*^9}, {3.394414469433125*^9, 
   3.394414470745625*^9}, {3.39471807965625*^9, 3.39471807965625*^9}, {
   3.3949336450178747`*^9, 3.3949336617522497`*^9}, 3.3949337112522497`*^9, 
   3.3949337481428747`*^9, {3.3949789184241247`*^9, 3.3949789465491247`*^9}, {
   3.3979966946305*^9, 3.397996721943*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.3949789517522497`*^9, 3.3949789664397497`*^9}, {
   3.39799673103675*^9, 3.39799673291175*^9}, 3.398996759046875*^9}],

Cell["", "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.394414266558125*^9, 3.39441426751125*^9}, {3.394472375745625*^9, 
   3.394472376776875*^9}, {3.3949786709866247`*^9, 3.3949789033616247`*^9}, {
   3.3949789867522497`*^9, 3.3949789887678747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Radians vs. Degrees\n",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontWeight->"Bold"],
 StyleBox["All trigonometric functions in ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["Mathematica",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontSlant->"Italic"],
 StyleBox[" are based on radians. However there is an easy way to enter \
angles in degrees using the keyboard shortcut ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " deg ",
 StyleBox["\[EscapeKey]",
  FontSize->14],
 StyleBox[" for the degree symbol  \[Degree] ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 ". So to ca",
 StyleBox["lculate cos(60\[Degree]) enter Cos[60 ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["\[EscapeKey]",
  FontSize->14],
 " deg ",
 StyleBox["\[EscapeKey]",
  FontSize->14],
 StyleBox["]. ",
  CellFrame->{{0.5, 3}, {3, 0.5}}]
}], "Text",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447210163625*^9}, {
   3.394473544214375*^9, 3.39447358294875*^9}, {3.394571422058125*^9, 
   3.39457143957375*^9}, {3.394737344671875*^9, 3.3947373696875*^9}, {
   3.3963796840625*^9, 3.39637970690625*^9}, {3.396379740734375*^9, 
   3.396379807875*^9}, {3.396379920875*^9, 3.39637992153125*^9}, {
   3.396380019359375*^9, 3.39638001975*^9}, {3.396443403251439*^9, 
   3.396443449576068*^9}, {3.39646032828125*^9, 3.3964603290625*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"cos", "(", 
    RowBox[{"60", "\[Degree]"}], ")"}], TraditionalForm]]],
 ". If you enter this correctly you should get ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "2"], TraditionalForm]]],
 " as an output."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.3944143372925*^9}, {
   3.394414395355*^9, 3.394414429464375*^9}, {3.394414469433125*^9, 
   3.394414470745625*^9}, {3.39471807965625*^9, 3.39471807965625*^9}, {
   3.3949336450178747`*^9, 3.3949336617522497`*^9}, 3.3949337112522497`*^9, 
   3.3949337481428747`*^9, {3.3949337857678747`*^9, 3.3949337952522497`*^9}, {
   3.400165653515625*^9, 3.4001656625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394413406276875*^9, 3.39441342673*^9}, {3.394413968308125*^9, 
   3.394413983089375*^9}, {3.394414022558125*^9, 3.3944140435425*^9}, {
   3.39441410023*^9, 3.3944141012925*^9}, {3.394414614933125*^9, 
   3.394414621776875*^9}, 3.394414979245625*^9, {3.394470315433125*^9, 
   3.394470320151875*^9}, {3.39447264857375*^9, 3.39447265894875*^9}, {
   3.394719927890625*^9, 3.3947199333125*^9}, 3.397996780864875*^9, 
   3.398996759046875*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.2 A",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, 3.40007083271875*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"cos", "(", 
     FractionBox["\[Pi]", "3"], ")"}], "+", 
    RowBox[{"sin", "(", 
     FractionBox[
      RowBox[{"3", "\[Pi]"}], "2"], ")"}]}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.39447303719875*^9, 3.39447307273*^9}, {
   3.39447311201125*^9, 3.394473125870625*^9}, 3.39447318294875*^9, {
   3.399132839906294*^9, 3.399132842827758*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.3944730770425*^9, 3.39447309144875*^9}, {3.394473131120625*^9, 
   3.3944731707925*^9}, 3.39447322557375*^9, 3.398996759046875*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.2A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, 3.40007083553125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", 
   RowBox[{"\[Pi]", "/", "3"}], "]"}], " ", "+", " ", 
  RowBox[{"Sin", "[", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.394473204995625*^9, {3.394719948390625*^9, 3.39471998334375*^9}, {
   3.398996139140625*^9, 3.398996171578125*^9}, 3.3989975465625*^9, {
   3.398998143953125*^9, 3.398998148375*^9}, {3.398999312203125*^9, 
   3.3989993133125*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.2 B",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.394473024589375*^9, 
   3.394473025901875*^9}, 3.40007083753125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell["Calculate sin(15\[Degree])", "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, 
   3.39447326148*^9, 3.3989967590625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.2B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.39447327919875*^9, 
   3.394473280355*^9}, 3.400070839359375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"15", "\[Degree]"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, {
   3.394719998703125*^9, 3.3947199999375*^9}, 3.398997546578125*^9, {
   3.400165745640625*^9, 3.400165752578125*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.2 C",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, 3.400070841578125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["sin", 
     RowBox[{"-", "1"}]], "(", 
    RowBox[{"-", 
     FractionBox["1", "2"]}], ")"}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.399132849842395*^9, 3.399132852529516*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, 3.394662792484375*^9, 3.3989967590625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.2C",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, 3.40007084359375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ArcSin", "[", 
  RowBox[{
   RowBox[{"-", "1"}], "/", "2"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.39899684203125*^9, 3.3989968434375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.2 D",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, {3.3949794848303747`*^9, 3.3949794860022497`*^9}, 
   3.400070851578125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Have ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " calculate ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["sin", "4"], "(", 
      FractionBox["\[Pi]", "3"], ")"}], "+", 
     RowBox[{
      SuperscriptBox["cos", "4"], "(", 
      FractionBox["\[Pi]", "3"], ")"}]}],
    FontSize->14], TraditionalForm]]],
 ". "
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.3949794923147497`*^9, 3.3949795840647497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, 3.394662792484375*^9, {3.3949796247522497`*^9, 
   3.3949796829084997`*^9}, 3.3989967590625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.2D",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.397996646052375*^9, 3.397996647239875*^9}, 
   3.40007085353125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"\[Pi]", "/", "3"}], "]"}], "^", "4"}], " ", "+", " ", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"\[Pi]", "/", "3"}], "]"}], "^", "4"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, 3.3949796766584997`*^9, {3.39899813003125*^9, 
   3.398998135640625*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.3\tExponential and logarithmic functions.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394412545526875*^9, 3.39441257148*^9}, {3.394415233183125*^9, 
   3.394415281464375*^9}, {3.394415774401875*^9, 3.394415822964375*^9}, {
   3.3944714270425*^9, 3.394471459105*^9}, 3.3944714960425*^9, {
   3.394472281058125*^9, 3.394472281245625*^9}, {3.394476244995625*^9, 
   3.394476267276875*^9}, {3.39447638838625*^9, 3.394476417105*^9}, 
   3.394737404640625*^9, 3.3948255108928747`*^9, 3.400070890765625*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["We now consider the functions ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["\[ExponentialE]", "x"]}], TraditionalForm]]],
 ",  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"ln", "(", "x", ")"}]}], TraditionalForm]]],
 " and the general logarithm ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SubscriptBox["log", "b"]}], TraditionalForm]]],
 "(x).\nThe table below gives the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " syntax for each of these functions. Note that each function on the right \
starts with a capital letter and uses square brackets to enclose the function \
input."
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.394415311355*^9, 3.39441543494875*^9}, {
   3.394415558401875*^9, 3.39441566126125*^9}, {3.39441583323*^9, 
   3.394415860339375*^9}, {3.394471931495625*^9, 3.394471969995625*^9}, {
   3.39447229169875*^9, 3.394472336901875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    StyleBox[
     RowBox[{
      RowBox[{"to", " ", "get", " ", "this"}], ","}],
     FontSize->12], 
    StyleBox[
     RowBox[{"we", " ", "enter", " ", 
      RowBox[{"this", ":"}]}],
     FontSize->12]},
   {
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       SuperscriptBox["\[ExponentialE]", "x"], TraditionalForm]]]]],
     FontSize->12], 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "or", Cell[TextData[Cell[BoxData[
       FormBox[
        RowBox[{"\[ExponentialE]", "^", "x"}], TraditionalForm]]]]]}], ",", 
     RowBox[{
      RowBox[{"with", " ", Cell["\[ExponentialE]"]}], "=", 
      RowBox[{Cell[""], 
       StyleBox[" ",
        FontSize->12], "\[EscapeKey]ee\[EscapeKey]", " "}]}]}]},
   {
    StyleBox[
     RowBox[{"ln", 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Log", "[", "x", "]"}],
     FontSize->12]},
   {
    StyleBox[
     RowBox[{
      SubscriptBox["log", "b"], 
      RowBox[{"(", "x", ")"}]}],
     FontSize->12], 
    StyleBox[
     RowBox[{"Log", "[", 
      RowBox[{"b", ",", "x"}], "]"}],
     FontSize->12]}
  },
  GridBoxDividers->{
   "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
    "RowsIndexed" -> {}}]],
 TextAlignment->-0.5]], "Text",
 Editable->False,
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.394415311355*^9, 3.39441543494875*^9}, {
   3.394415558401875*^9, 3.39441566126125*^9}, {3.39441583323*^9, 
   3.39441597388625*^9}, {3.3965382508125*^9, 3.39653828334375*^9}, {
   3.396538316390625*^9, 3.396538421671875*^9}, {3.396538464421875*^9, 
   3.396538464421875*^9}, {3.39653850996875*^9, 3.3965385173125*^9}, {
   3.3965385531875*^9, 3.396538669609375*^9}, {3.3994725083125*^9, 
   3.39947259715625*^9}},
 TextAlignment->Center,
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["\[WarningSign] ",
  FontSize->18],
 StyleBox["Caution: In most math textbooks if we write log(x) it is assumed \
that the base is 10, the so-called \"common log\". However in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" this is not true. As you can see from the chart above, in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["  Log[x] is equivalent to ln(x), the \"natural logarithm\". Why \
this difference? It turns out that as you progress further in math and \
science, you will be using the natural logarithm most often. So most advanced \
math software programs treat it as the default logarithm when no base is \
indicated. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->0.5,
 CellFrameColor->RGBColor[0, 0, 1],
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394471911433125*^9, 
   3.394471925526875*^9}, {3.39447537613625*^9, 3.39447563251125*^9}, {
   3.3944757309175*^9, 3.394475768464375*^9}, {3.394475800089375*^9, 
   3.39447581448*^9}, 3.3946368411355*^9},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]],

Cell[TextData[{
 StyleBox["\[WarningSign] ",
  FontSize->18],
 StyleBox["Caution: The only way to enter ln(x) in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" is by using Log[x].  ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" does not recognize Ln[x]. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->0.5,
 CellFrameColor->RGBColor[0, 0, 1],
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394471911433125*^9, 
   3.394471925526875*^9}, {3.39447537613625*^9, 3.39447563251125*^9}, {
   3.3944757309175*^9, 3.394475768464375*^9}, {3.394475800089375*^9, 
   3.39447581448*^9}, 3.3946368411355*^9, {3.3976060288125*^9, 
   3.39760606771875*^9}, {3.399473627859375*^9, 3.399473691953125*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]],

Cell[TextData[StyleBox["Evaluate the following expressions. Values provided \
to check your work.",
 CellFrame->{{0.5, 3}, {3, 0.5}}]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394471911433125*^9, 
   3.394471925526875*^9}, {3.3949352406897497`*^9, 3.3949352518928747`*^9}, 
   3.3970651186*^9, 3.397996797989875*^9, {3.398432055614875*^9, 
   3.398432069864875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["log", "2"], "(", "16", ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949352815334997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{"2", ",", " ", "16"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394415442808125*^9, 3.394415447105*^9}, {3.394415508355*^9, 
   3.39441552298*^9}, {3.394415703558125*^9, 3.39441572563625*^9}, {
   3.394415758464375*^9, 3.3944157660425*^9}, {3.394416204401875*^9, 
   3.39441622726125*^9}, {3.39447052007375*^9, 3.394470524214375*^9}, 
   3.398431997021125*^9, {3.398432073552375*^9, 3.39843209047425*^9}, {
   3.398996227796875*^9, 3.398996242453125*^9}}],

Cell[TextData[{
 " ",
 StyleBox[" value = 4",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 3.3969669558509693`*^9}, 
   3.398431999818*^9},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["log", "2"], "(", 
    FractionBox["1", "8"], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949353070647497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394415442808125*^9, 3.394415447105*^9}, {3.394415508355*^9, 
   3.39441552298*^9}, {3.394415703558125*^9, 3.39441572563625*^9}, {
   3.394415758464375*^9, 3.3944157660425*^9}, {3.394416204401875*^9, 
   3.39441622726125*^9}, {3.394470529151875*^9, 3.394470539464375*^9}, 
   3.3984320881305*^9, 3.398996759078125*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = -3 ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.398432003739875*^9, 3.398432004396125*^9}},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["log", "10"], "(", "1000", ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949352815334997`*^9}, 
   3.3949353364397497`*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394415442808125*^9, 3.394415447105*^9}, {3.394415508355*^9, 
   3.39441552298*^9}, {3.394415703558125*^9, 3.39441572563625*^9}, {
   3.394415758464375*^9, 3.3944157660425*^9}, {3.394416204401875*^9, 
   3.39441622726125*^9}, {3.39447054398*^9, 3.394470551605*^9}, 
   3.39843209553675*^9, 3.398996759078125*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = 3 ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.398432021489875*^9, 3.39843202178675*^9}},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"ln", "(", "2.0", ")"}], TraditionalForm]]],
 ".  Include decimal point to get decimal answer."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949352815334997`*^9}, 
   3.3949353648303747`*^9, {3.39843212297425*^9, 3.398432136646125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394415442808125*^9, 3.394415447105*^9}, {3.394415508355*^9, 
   3.39441552298*^9}, {3.394415703558125*^9, 3.39441572563625*^9}, {
   3.394415758464375*^9, 3.3944157660425*^9}, {3.394416204401875*^9, 
   3.39441622726125*^9}, {3.39447054398*^9, 3.394470551605*^9}, {
   3.394470617714375*^9, 3.39447064182375*^9}, 3.39843198334925*^9, {
   3.39843209922425*^9, 3.398432105927375*^9}, 3.3984321388805*^9, 
   3.398996759078125*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = 0.693147 ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.398432115677375*^9, 3.398432118677375*^9}},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"ln", "(", "\[ExponentialE]", ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949352815334997`*^9}, {
   3.3949353648303747`*^9, 3.3949353915647497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394415442808125*^9, 3.394415447105*^9}, {3.394415508355*^9, 
   3.39441552298*^9}, {3.394415703558125*^9, 3.39441572563625*^9}, {
   3.394415758464375*^9, 3.3944157660425*^9}, {3.394416204401875*^9, 
   3.39441622726125*^9}, {3.39447054398*^9, 3.394470551605*^9}, {
   3.394470617714375*^9, 3.39447066944875*^9}, {3.395970946680625*^9, 
   3.395970947805625*^9}, 3.398432547364875*^9, 3.39899675909375*^9}],

Cell[TextData[{
 " ",
 StyleBox[" value = 1 ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.398432003739875*^9, 3.3984320320055*^9}},
 FontFamily->"Courier New",
 FontSize->11],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", "ln5"], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949352815334997`*^9}, 
   3.3949353648303747`*^9, {3.395970975868125*^9, 3.39597099094625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3944133190425*^9, 3.394413352105*^9}, {
   3.394415442808125*^9, 3.394415447105*^9}, {3.394415508355*^9, 
   3.39441552298*^9}, {3.394415703558125*^9, 3.39441572563625*^9}, {
   3.394415758464375*^9, 3.3944157660425*^9}, {3.394416204401875*^9, 
   3.39441622726125*^9}, {3.39447054398*^9, 3.394470551605*^9}, {
   3.394470617714375*^9, 3.39447064182375*^9}, {3.39597099850875*^9, 
   3.395971006211875*^9}, 3.39843254841175*^9, 3.39899675909375*^9, {
   3.399472738765625*^9, 3.399472759453125*^9}}],

Cell[TextData[{
 " ",
 StyleBox[" value = 5 ",
  Background->RGBColor[
   0.8156862745098039, 0.8509803921568627, 0.807843137254902]]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394381328745625*^9, 3.394381658651875*^9}, 
   3.3943816970425*^9, {3.394381997495625*^9, 3.394382005401875*^9}, 
   3.39438211923*^9, {3.394383114183125*^9, 3.39438313113625*^9}, {
   3.394384782870625*^9, 3.39438502682375*^9}, {3.394385077276875*^9, 
   3.394385145308125*^9}, {3.394385178933125*^9, 3.39438533363625*^9}, {
   3.394385364433125*^9, 3.394385412370625*^9}, 3.394385443433125*^9, 
   3.394385565339375*^9, 3.39438580869875*^9, {3.39438660894875*^9, 
   3.394386609651875*^9}, 3.39438751982375*^9, 3.394387822183125*^9, {
   3.3969666745540943`*^9, 3.3969666787103443`*^9}, {3.3969667240072193`*^9, 
   3.3969667590072193`*^9}, {3.3969668853822193`*^9, 
   3.3969669558509693`*^9}, {3.398432003739875*^9, 3.398432004396125*^9}, 
   3.3984320372555*^9},
 FontFamily->"Courier New",
 FontSize->11],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.3 A",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, {3.394476997495625*^9, 3.394477004401875*^9}, 
   3.40007091275*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["log", "10"], "(", "45.8", ")"}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.39447704369875*^9, 3.39447710582375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, {3.3944770779175*^9, 3.394477116026875*^9}, 
   3.39899675909375*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.3 A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.394477017558125*^9, 3.394477020370625*^9}, 
   3.39447735551125*^9, 3.400070910765625*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{"10", ",", " ", "45.8"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662813359375*^9, 3.394662820546875*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.3 B",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, {3.3944770004175*^9, 3.39447700713625*^9}, 
   3.40007090915625*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Calculate ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", "2.34"], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.39466286796875*^9, 3.394662886421875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, 3.39466283978125*^9, 3.398996759109375*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.3 B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.39447702857375*^9, 3.394477031589375*^9}, 
   3.39447736182375*^9, 3.40007090709375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Exp", "[", "2.34", "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662894171875*^9, 3.39466289940625*^9}, {
   3.39899626990625*^9, 3.398996278265625*^9}, {3.3989968641875*^9, 
   3.39899686475*^9}, {3.39947352375*^9, 3.399473527984375*^9}}],

Cell["\<\
Or using the keyboard shortcut for \[ExponentialE] :\
\>", "Text",
 CellChangeTimes->{{3.3994735656875*^9, 3.399473584171875*^9}, 
   3.399475691984375*^9}],

Cell[BoxData[
 RowBox[{"\[ExponentialE]", "^", "2.34"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662894171875*^9, 3.39466289940625*^9}, {
   3.39899626990625*^9, 3.398996278265625*^9}, {3.3989968641875*^9, 
   3.39899686475*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 2.3 C",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, {3.394476997495625*^9, 3.394477004401875*^9}, 
   3.3949354368616247`*^9, 3.4000709053125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"ln", "(", "0.458", ")"}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.39447704369875*^9, 3.39447710582375*^9}, {3.3949354527522497`*^9, 
   3.3949354690959997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, {3.3944770779175*^9, 3.394477116026875*^9}, 
   3.398996759109375*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 2.3 C",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.394477017558125*^9, 3.394477020370625*^9}, 
   3.39447735551125*^9, 3.3949354421897497`*^9, 3.400070903328125*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Log", "[", "0.458", "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662813359375*^9, 3.394662820546875*^9}, {
   3.3949354792991247`*^9, 3.3949354862834997`*^9}}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lesson 3 \t\tBasic Algebra", "Section",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936938130904784`*^9, 3.393693846258171*^9}, {
   3.393694471657451*^9, 3.393694481721923*^9}, {3.393694524323181*^9, 
   3.393694550681082*^9}, {3.3936945850304737`*^9, 3.3936945906084943`*^9}, {
   3.3936950013791533`*^9, 3.393695005805518*^9}, {3.393702643228699*^9, 
   3.393702679430755*^9}, {3.393702729222352*^9, 3.393702755840627*^9}, {
   3.393703570702341*^9, 3.393703575369051*^9}, 3.39429416194875*^9, 
   3.394298203589375*^9, {3.394558539855*^9, 3.39455854873*^9}, {
   3.3949393408459997`*^9, 3.3949393459397497`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->16,
 FontWeight->"Plain",
 Background->RGBColor[
  0.6901960784313725, 0.8235294117647058, 0.7019607843137254]],

Cell[CellGroupData[{

Cell["3.1\tBasic input of algebraic expressions.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, {3.394558805370625*^9, 
   3.394558827589375*^9}, {3.394559854339375*^9, 3.394559947245625*^9}, 
   3.3948255147991247`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["Variables can be represented by single letters or multiple \
characters.  For example ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
   "x", ",", " ", "y", ",", " ", "Y", ",", " ", "cost", ",", " ", "speed", 
    ",", " ", 
    RowBox[{"and", " ", "Profit"}], " ", ","}], TraditionalForm]]],
 " ",
 StyleBox["are all acceptable names for variables in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" . Keep in mind that ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" is case sensitive, so it will treat ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " ", "and", " ", "X", " "}], TraditionalForm]]],
 " ",
 StyleBox["as two different variables. The following rules will help you \
construct algebraic expressions. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.3945824018753386`*^9, 
   3.3945824370685263`*^9}, {3.394636849619875*^9, 3.394636853401125*^9}, {
   3.394720079171875*^9, 3.3947201990625*^9}, {3.394720243359375*^9, 
   3.39472039784375*^9}, {3.39472043540625*^9, 3.39472083734375*^9}, {
   3.39472091559375*^9, 3.394720956578125*^9}, {3.394721002765625*^9, 
   3.394721033*^9}, {3.39472461*^9, 3.39472464*^9}, {3.39472468528125*^9, 
   3.394724717703125*^9}, 3.394725128671875*^9, {3.3947256495625*^9, 
   3.39472582903125*^9}, 3.3949948094375*^9, {3.395150563054*^9, 
   3.395150602225875*^9}, 3.395150667304*^9, 3.395663200421875*^9, {
   3.39760614871875*^9, 3.397606210609375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Implied multiplication",
  CellFrame->0.5,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["\nIf you want to ",
  CellFrame->0.5],
 StyleBox["multiply a number times a variable",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox[", say 5 times ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 StyleBox[" , you just type in ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["5", TraditionalForm]]],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 StyleBox[".  On the other hand, if you want to ",
  CellFrame->0.5],
 StyleBox["multiply two variables",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox[", say ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " times ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 ", use an ",
 StyleBox["asterisk",
  FontVariations->{"Underline"->True}],
 " to explicitly indicate multiplication (i.e. x*y).  If we enter xy instead \
of x*y, then ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "  interprets these two adjacent letters as a ",
 StyleBox["single",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox[", multi-character variable called \"",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[Cell[TextData[{
    Cell[BoxData[
     FormBox["x", TraditionalForm]]],
    Cell[BoxData[
     FormBox["y", TraditionalForm]]]
   }]], TraditionalForm]]],
 "\", rather than as the product of the two separate variables ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 ". [Note: As an alternative to using an asterisk for multiplication, you can \
indicate multiplication by putting a space between the two variables:  e.g. \
use  x y instead of xy]."
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.3945824018753386`*^9, 
   3.3945824370685263`*^9}, {3.394636849619875*^9, 3.394636853401125*^9}, {
   3.394720079171875*^9, 3.3947201990625*^9}, {3.394720243359375*^9, 
   3.39472039784375*^9}, {3.39472043540625*^9, 3.39472083734375*^9}, {
   3.39472091559375*^9, 3.394720956578125*^9}, {3.394721002765625*^9, 
   3.394721033*^9}, {3.39472461*^9, 3.39472464*^9}, {3.39472468528125*^9, 
   3.394724717703125*^9}, 3.394725128671875*^9, {3.3947256495625*^9, 
   3.39472582903125*^9}, 3.3949948094375*^9, {3.395150563054*^9, 
   3.395150602225875*^9}, {3.395150667304*^9, 3.395150679429*^9}, {
   3.39515080471025*^9, 3.395150886850875*^9}, 3.395971107118125*^9, {
   3.3976062176875*^9, 3.39760625971875*^9}, {3.39760630559375*^9, 
   3.397606338125*^9}, {3.398996964171875*^9, 3.3989970135*^9}, 
   3.398997546609375*^9, {3.3990343950625*^9, 3.39903440925*^9}, {
   3.399038332265625*^9, 3.399038392484375*^9}, {3.399038603890625*^9, 
   3.399038604765625*^9}, {3.3990387586875*^9, 3.399038870296875*^9}, {
   3.400165822453125*^9, 3.400165838015625*^9}, {3.4001658721875*^9, 
   3.4001660870625*^9}, {3.40016614590625*^9, 3.40016615025*^9}, {
   3.4087510395914826`*^9, 3.4087511848907466`*^9}, {3.4087512187406507`*^9, 
   3.4087512616600103`*^9}, {3.408751363272379*^9, 3.4087513663268585`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Parentheses vs.Square Brackets",
  CellFrame->0.5,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["\nYou have seen that square brackets are used to enclose input \
arguments in both commands and functions. This is the only place in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" where square brackets are allowed. Therefore, when entering a \
mathematical expression ",
  CellFrame->0.5],
 StyleBox["you must use parentheses for all grouping",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox[". You cannot use square brackets for grouping the way you do when \
writing math by hand. So, for example, in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["  ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"5", 
    RowBox[{"(", 
     RowBox[{"x", "+", 
      RowBox[{"3", 
       RowBox[{"(", 
        RowBox[{"x", "-", "2"}], ")"}]}]}], ")"}]}], TraditionalForm]]],
 " ",
 StyleBox["cannot",
  FontVariations->{"Underline"->True}],
 " be entered as ",
 StyleBox[" ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"5", " ", "[", 
    RowBox[{"x", "+", 
     RowBox[{"3", 
      RowBox[{"(", 
       RowBox[{"x", "-", "2"}], ")"}]}]}], "]"}], TraditionalForm]]],
 " .",
 StyleBox[" ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.3945824018753386`*^9, 
   3.3945824370685263`*^9}, {3.394636849619875*^9, 3.394636853401125*^9}, {
   3.394720079171875*^9, 3.3947201990625*^9}, {3.394720243359375*^9, 
   3.39472039784375*^9}, {3.39472043540625*^9, 3.39472083734375*^9}, {
   3.39472091559375*^9, 3.394720956578125*^9}, {3.394721002765625*^9, 
   3.394721033*^9}, {3.39472461*^9, 3.39472464*^9}, {3.39472468528125*^9, 
   3.394724717703125*^9}, 3.394725128671875*^9, {3.3947256495625*^9, 
   3.39472582903125*^9}, 3.3949948094375*^9, {3.395150563054*^9, 
   3.395150602225875*^9}, {3.395150667304*^9, 3.3951506804915*^9}, {
   3.395151017975875*^9, 3.395151064819625*^9}, {3.395663270921875*^9, 
   3.39566339375*^9}, {3.395663425*^9, 3.3956634875*^9}, {3.397606357875*^9, 
   3.39760635840625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Standard vs. Traditional Form\[LineSeparator]",
  CellFrame->0.5,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["  has two formats available for displaying algebraic output. They \
are called ",
  CellFrame->0.5],
 StyleBox["StandardForm",
  CellFrame->0.5,
  FontWeight->"Bold"],
 StyleBox[" and ",
  CellFrame->0.5],
 StyleBox["TraditionalForm",
  CellFrame->0.5,
  FontWeight->"Bold"],
 StyleBox[". The default form is StandardForm. The most noticeable aspect of \
this form is that polynomial expressions are displayed in ",
  CellFrame->0.5],
 StyleBox["ascending",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" powers of the variable. So if you enter ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", "x"}], "+", "5"}], TraditionalForm]]],
 ", ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will automatically display it as ",
 Cell[BoxData[
  FormBox[
   RowBox[{"5", "+", 
    RowBox[{"3", "x"}], "+", 
    SuperscriptBox["x", "2"]}], TraditionalForm]]],
 ". Execute the line below to see how this works. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.3945824018753386`*^9, 
   3.3945824370685263`*^9}, {3.394636849619875*^9, 3.394636853401125*^9}, {
   3.394720079171875*^9, 3.3947201990625*^9}, {3.394720243359375*^9, 
   3.39472039784375*^9}, {3.39472043540625*^9, 3.39472083734375*^9}, {
   3.39472091559375*^9, 3.394720956578125*^9}, {3.394721002765625*^9, 
   3.394721033*^9}, {3.39472461*^9, 3.39472464*^9}, {3.39472468528125*^9, 
   3.394724717703125*^9}, 3.394725128671875*^9, {3.3947256495625*^9, 
   3.39472582903125*^9}, 3.3949948094375*^9, {3.395150563054*^9, 
   3.395150602225875*^9}, {3.395150667304*^9, 3.3951506804915*^9}, {
   3.395151017975875*^9, 3.395151064819625*^9}, {3.395663270921875*^9, 
   3.39566339375*^9}, {3.395663425*^9, 3.3956634875*^9}, {
   3.396280013802123*^9, 3.396280251951516*^9}, {3.3962802822543497`*^9, 
   3.396280356631197*^9}, {3.396280489804587*^9, 3.3962804929861507`*^9}, 
   3.3963179739375*^9, {3.396460433*^9, 3.39646043984375*^9}, 
   3.39706715425625*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "2"}], " ", "+", " ", 
  RowBox[{"3", "x"}], " ", "+", " ", "5"}]], "Input",
 CellChangeTimes->{{3.39628036240168*^9, 3.3962803739582415`*^9}, 
   3.398996330640625*^9}],

Cell[TextData[StyleBox["If you prefer to have polynomials displayed in \
descending powers of the variable then you can add the command \
TraditionalForm to the input line. Note that the command TraditionalForm is \
just one word, no space. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.3945824018753386`*^9, 
   3.3945824370685263`*^9}, {3.394636849619875*^9, 3.394636853401125*^9}, {
   3.394720079171875*^9, 3.3947201990625*^9}, {3.394720243359375*^9, 
   3.39472039784375*^9}, {3.39472043540625*^9, 3.39472083734375*^9}, {
   3.39472091559375*^9, 3.394720956578125*^9}, {3.394721002765625*^9, 
   3.394721033*^9}, {3.39472461*^9, 3.39472464*^9}, {3.39472468528125*^9, 
   3.394724717703125*^9}, 3.394725128671875*^9, {3.3947256495625*^9, 
   3.39472582903125*^9}, 3.3949948094375*^9, {3.395150563054*^9, 
   3.395150602225875*^9}, {3.395150667304*^9, 3.3951506804915*^9}, {
   3.395151017975875*^9, 3.395151064819625*^9}, {3.395663270921875*^9, 
   3.39566339375*^9}, {3.395663425*^9, 3.3956634875*^9}, {
   3.396280013802123*^9, 3.396280251951516*^9}, {3.3962802822543497`*^9, 
   3.396280356631197*^9}, {3.3962804098444076`*^9, 3.3962804328015723`*^9}, {
   3.3962805132764163`*^9, 3.396280584346933*^9}, {3.396280623180724*^9, 
   3.3962806792635803`*^9}, 3.396377579671875*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"3", "x"}], " ", "+", " ", "5"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.3989968918125*^9, 3.398996912671875*^9}}],

Cell[TextData[StyleBox["Observe that when displaying polynomials in \
TraditionalForm, a different font is used as well.  ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.3945824018753386`*^9, 
   3.3945824370685263`*^9}, {3.394636849619875*^9, 3.394636853401125*^9}, {
   3.394720079171875*^9, 3.3947201990625*^9}, {3.394720243359375*^9, 
   3.39472039784375*^9}, {3.39472043540625*^9, 3.39472083734375*^9}, {
   3.39472091559375*^9, 3.394720956578125*^9}, {3.394721002765625*^9, 
   3.394721033*^9}, {3.39472461*^9, 3.39472464*^9}, {3.39472468528125*^9, 
   3.394724717703125*^9}, 3.394725128671875*^9, {3.3947256495625*^9, 
   3.39472582903125*^9}, 3.3949948094375*^9, {3.395150563054*^9, 
   3.395150602225875*^9}, {3.395150667304*^9, 3.3951506804915*^9}, {
   3.395151017975875*^9, 3.395151064819625*^9}, {3.395663270921875*^9, 
   3.39566339375*^9}, {3.395663425*^9, 3.3956634875*^9}, {
   3.396280013802123*^9, 3.396280251951516*^9}, {3.3962802822543497`*^9, 
   3.396280356631197*^9}, {3.3962804098444076`*^9, 3.3962804328015723`*^9}, {
   3.3962805132764163`*^9, 3.396280584346933*^9}, {3.3962806878257294`*^9, 
   3.3962807537963867`*^9}, 3.3962808632640085`*^9, {3.39714650638125*^9, 
   3.397146512928125*^9}, {3.400166203234375*^9, 3.4001662298125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.1 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
  3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
  3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
  3.394724749828125*^9, 3.39472475190625*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Enter the expression ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{"5", " ", "x"}], "+", "10", "+", 
     RowBox[{"7", "x", " ", "y"}]}]}], TraditionalForm]]],
 ".  Use an asterisk to indicate ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " times ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 "."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.39515109327275*^9, 3.395151131350875*^9}, {3.395151192538375*^9, 
   3.395151192538375*^9}, {3.398996934828125*^9, 3.398996940546875*^9}, {
   3.39899702671875*^9, 3.398997051015625*^9}, {3.398997644546875*^9, 
   3.398997647859375*^9}, {3.39903868675*^9, 3.399038716984375*^9}, 
   3.399039733734375*^9},
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.1A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.396279932750231*^9, 3.396279934918061*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "To enter this expression we type:  ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     RowBox[{"5", "x"}], "+", "10", "+", 
     RowBox[{"7", "x", "*", "y"}]}],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]]],
 ".  [Or you can use 5x+10+7x y]"
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.39515109327275*^9, 3.395151254850875*^9}, {3.39899706709375*^9, 
   3.398997083453125*^9}, 3.398997546640625*^9, 3.398997634578125*^9, {
   3.399038701*^9, 3.399038703109375*^9}, {3.4087513032792587`*^9, 
   3.4087513308322344`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"5", "x"}], " ", "+", " ", "10", " ", "+", " ", 
  RowBox[{"7", "x", "*", "y"}]}]], "Input",
 CellChangeTimes->{{3.39472555390625*^9, 3.3947255898125*^9}, {
   3.39515126383525*^9, 3.395151275257125*^9}, {3.39899709*^9, 
   3.398997104578125*^9}, 3.398997546640625*^9, 3.398997626671875*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.1 B",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
  3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
  3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
  3.394724749828125*^9, 3.39472475190625*^9}, {3.39472525771875*^9, 
  3.394725257890625*^9}, {3.394725315046875*^9, 3.394725317734375*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Enter the expression ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "2"], "-", 
     RowBox[{"3", "x"}], "+", "5"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "4"}], ")"}], "3"]], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.394725263484375*^9, 3.394725297578125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, 3.398996759140625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.1B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.394725305734375*^9, 3.394725308125*^9}, {3.396279919462524*^9, 
  3.3962799207881756`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "-", " ", 
    RowBox[{"3", "x"}], " ", "+", " ", "5"}], ")"}], "/", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "4"}], ")"}], "^", "3"}]}]], "Input",
 CellChangeTimes->{{3.3964611033125*^9, 3.396461122421875*^9}, 
   3.39899712421875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "-", " ", 
     RowBox[{"3", "x"}], " ", "+", " ", "5"}], ")"}], "/", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", "4"}], ")"}], "^", "3"}]}], "  ", "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.3964611033125*^9, 3.396461122421875*^9}, {
  3.39899712421875*^9, 3.398997150875*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["3.2\tAssigning a value to a variable. ", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, 3.394558786355*^9, {
   3.394558849558125*^9, 3.394558855870625*^9}, {3.3945603797925*^9, 
   3.394560380308125*^9}, 3.3945853551885486`*^9, 3.3948255172366247`*^9, {
   3.395150620944625*^9, 3.395150633975875*^9}, {3.395151327319625*^9, 
   3.39515133358525*^9}, {3.397143062271875*^9, 3.397143068334375*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["If we wish to assign the value 10 to the variable ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " we just enter ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "10"}], TraditionalForm]]],
 ". ",
 StyleBox["Once the assignment is made it will remain in ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["'s memory until either there is a reassignment or the variable is \
\"cleared\". ",
  CellFrame->0.5],
 "\n",
 StyleBox["\nLook at the input cell below.  Observe",
  CellFrame->0.5],
 " that the letter ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " "}], TraditionalForm]]],
 "is currently",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["blue",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 " .  Unassigned variables and functions are always displayed in a color.  \
However, as soon as you ",
 "evaluate",
 " the cell, the ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " will change to ",
 StyleBox["black",
  FontVariations->{"Underline"->True}],
 ". This is ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s way of alerting you that ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " is no longer a symbolic variable, but instead equals a particular number.  \
"
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.39455915601125*^9}, 3.394559211276875*^9, {
   3.394559423276875*^9, 3.394559430245625*^9}, {3.39455952207375*^9, 
   3.394559549339375*^9}, {3.39455958273*^9, 3.3945595827925*^9}, {
   3.394572109964375*^9, 3.394572113683125*^9}, {3.3945853636517467`*^9, 
   3.3945853758088264`*^9}, {3.39466311484375*^9, 3.394663125*^9}, {
   3.394725498484375*^9, 3.394725506359375*^9}, {3.394725846125*^9, 
   3.394725903921875*^9}, {3.3947259371875*^9, 3.39472610390625*^9}, {
   3.3947261433125*^9, 3.394726147453125*^9}, {3.3948852336897497`*^9, 
   3.3948852378616247`*^9}, {3.3948935735803747`*^9, 
   3.3948936236272497`*^9}, {3.3948936617678747`*^9, 
   3.3948937503616247`*^9}, {3.3948937991272497`*^9, 
   3.3948939086272497`*^9}, {3.3948941020178747`*^9, 
   3.3948941570803747`*^9}, {3.3948941878459997`*^9, 
   3.3948941905959997`*^9}, {3.3948944415647497`*^9, 
   3.3948946743459997`*^9}, {3.3956635546875*^9, 3.395663590546875*^9}, {
   3.39597111869625*^9, 3.395971124493125*^9}, {3.397606439296875*^9, 
   3.397606441765625*^9}, 3.39767899840625*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"x", " ", "=", " ", "10"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.394559432776875*^9, 3.394559455620625*^9}, {3.394559586120625*^9, 
   3.39455958619875*^9}}],

Cell[TextData[{
 StyleBox["We can check the current value of ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 "  by simply entering it and ",
 "evaluating",
 " the cell. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, 3.3945595587925*^9, {
   3.394629102401125*^9, 3.394629154901125*^9}, {3.3948942051116247`*^9, 
   3.3948942603616247`*^9}, 3.397678853203125*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData["x"], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.394559432776875*^9, 3.394559455620625*^9}, {3.394559586120625*^9, 
   3.39455958619875*^9}, {3.39462907791675*^9, 3.394629079682375*^9}}],

Cell[TextData[{
 StyleBox["Now if we use ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " in an expression, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will automatically substitute our assigned value (i.e. 10) for ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 "."
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, 3.3945595587925*^9, {
   3.39566363490625*^9, 3.395663640328125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", "x"}], " ", "+", " ", "4"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455943926125*^9, 
   3.39455946219875*^9}, 3.394559590714375*^9, 3.398997175703125*^9}],

Cell[TextData[{
 StyleBox["If we redefine ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " to be a different value, then the original value is replaced with this new \
value. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.3946289107605*^9, 3.39462891085425*^9}, {
   3.395663691453125*^9, 3.39566375703125*^9}, 3.395663881*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"x", " ", "=", " ", "100"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455935932375*^9, 
   3.394559385245625*^9}, {3.394559446401875*^9, 3.39455948523*^9}, {
   3.394559599651875*^9, 3.394559603183125*^9}, {3.3945850053763647`*^9, 
   3.394585012280963*^9}, {3.39462892572925*^9, 3.394628926557375*^9}}],

Cell[TextData[{
 StyleBox["Let's check that the value of ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 StyleBox[" has changed.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, 3.3945595587925*^9, {
   3.394629102401125*^9, 3.394629154901125*^9}, {3.394629201182375*^9, 
   3.394629237307375*^9}, 3.3948939391897497`*^9, {3.3948942916897497`*^9, 
   3.3948942949241247`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData["x"], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455935932375*^9, 
   3.39455940001125*^9}, {3.39455949088625*^9, 3.39455949538625*^9}, 
   3.394559776589375*^9, {3.39462921491675*^9, 3.3946292160105*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", "x"}], "+", "4"}]], "Input",
 CellChangeTimes->{{3.399475842328125*^9, 3.39947584465625*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.39714311856875*^9, 3.39714318238125*^9}}],

Cell[TextData[StyleBox["The Clear command.",
 FontWeight->"Bold",
 FontVariations->{"Underline"->True}]], "Text",
 CellChangeTimes->{{3.39714311856875*^9, 3.397143173334375*^9}}],

Cell[TextData[{
 StyleBox["We can use the Clear command to clear ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " of any value, so that we can use it as a symbolic variable again.  As you \
",
 "evaluate",
 " this command in the next input cell notice how all of the ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 "'s (up and down the page) become ",
 StyleBox["blue",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 " again. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, 
   3.394628942369875*^9, {3.394726207609375*^9, 3.394726234171875*^9}, {
   3.3948853306272497`*^9, 3.3948853328772497`*^9}, {3.3948939487053747`*^9, 
   3.3948939540022497`*^9}, 3.3948939858303747`*^9, {3.3948943082678747`*^9, 
   3.3948943560022497`*^9}, {3.395971155649375*^9, 3.395971225774375*^9}, 
   3.397678879859375*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455935932375*^9, 
   3.39455940001125*^9}, {3.39455949088625*^9, 3.39455949538625*^9}, {
   3.394559757808125*^9, 3.394559759839375*^9}}],

Cell[TextData[{
 StyleBox["We can check that ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 StyleBox[" no longer has a value assigned. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, 3.3945595587925*^9, {
   3.394629102401125*^9, 3.394629154901125*^9}, {3.394629201182375*^9, 
   3.394629237307375*^9}, {3.3948853707209997`*^9, 3.3948853822053747`*^9}, 
   3.3948939941116247`*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData["x"], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455935932375*^9, 
   3.39455940001125*^9}, {3.39455949088625*^9, 3.39455949538625*^9}, {
   3.394559757808125*^9, 3.394559759839375*^9}, {3.3945848496722245`*^9, 
   3.3945848671753025`*^9}, {3.3945850335090947`*^9, 3.394585037265321*^9}, 
   3.394629262948*^9}],

Cell[TextData[{
 StyleBox["There is an alternative way to clear a variable. This is \
illustrated below.\nFirst let's set ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "20"}], TraditionalForm]]],
 ". Watch as the ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 "'s go from ",
 StyleBox["blue",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 " to",
 StyleBox[" black",
  FontVariations->{"Underline"->True}],
 " as soon as you ",
 "evaluate",
 " the input cell. "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945851514951143`*^9}, {3.39462899510425*^9, 
   3.394629034651125*^9}, {3.394629302323*^9, 3.394629317963625*^9}, {
   3.394726296953125*^9, 3.394726321265625*^9}, 3.3948940056272497`*^9, 
   3.39767888753125*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"x", " ", "=", " ", "20"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455935932375*^9, 
   3.39455940001125*^9}, {3.39455949088625*^9, 3.39455949538625*^9}, {
   3.394559757808125*^9, 3.394559759839375*^9}, {3.3945848496722245`*^9, 
   3.3945848560624847`*^9}, {3.3945850550177746`*^9, 3.3945850733157387`*^9}}],

Cell[TextData[{
 StyleBox["Now to clear ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " we set it equal to \".\" Again watch how the ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 "'s turn back to ",
 StyleBox["blue",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 " as you ",
 "evaluate",
 " the next line."
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, 3.3948940306116247`*^9, 3.397678890546875*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", " ", "=."}], " "}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945589737925*^9, 3.39455897538625*^9}, {
   3.394559132714375*^9, 3.394559159339375*^9}, 3.394559213558125*^9, {
   3.39455926598*^9, 3.39455928073*^9}, {3.39455935932375*^9, 
   3.39455940001125*^9}, {3.39455949088625*^9, 3.39455949538625*^9}, {
   3.394559757808125*^9, 3.394559759839375*^9}, {3.3945848496722245`*^9, 
   3.3945848560624847`*^9}, {3.3945850550177746`*^9, 3.3945850855039907`*^9}}],

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

Cell["\<\
The Clear command can clear more than one variable at a time. Execute the \
next set of inputs to see how this works. \
\>", "Text",
 CellChangeTimes->{{3.39714321250625*^9, 3.39714324606875*^9}}],

Cell[BoxData[
 RowBox[{"a", " ", "=", " ", "1"}]], "Input",
 CellChangeTimes->{{3.397143252771875*^9, 3.397143254928125*^9}}],

Cell[BoxData[
 RowBox[{"b", " ", "=", " ", "2"}]], "Input",
 CellChangeTimes->{{3.397143258209375*^9, 3.397143259709375*^9}}],

Cell[BoxData[
 RowBox[{"a", " ", "+", " ", "b"}]], "Input",
 CellChangeTimes->{{3.3971433021*^9, 3.3971433029125*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", " ", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.39714327506875*^9, 3.39714327838125*^9}}],

Cell[BoxData[
 RowBox[{"a", " ", "+", " ", "b"}]], "Input",
 CellChangeTimes->{{3.397143281084375*^9, 3.397143296115625*^9}}],

Cell[TextData[{
 StyleBox["\[CheckmarkedBox] ",
  FontSize->24],
 "It turns out that the most common error that new users make is to forget \
that they have assigned a value to a variable. ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s color coding scheme is designed to help avoid this error. "
}], "Text",
 CellChangeTimes->{
  3.3948946998459997`*^9, {3.3948947369241247`*^9, 3.3948947646741247`*^9}, 
   3.3948953724709997`*^9, {3.3949355513772497`*^9, 3.3949355561897497`*^9}, {
   3.395663837109375*^9, 3.395663860375*^9}, {3.39714340744375*^9, 
   3.3971434255375*^9}}],

Cell[TextData[StyleBox["The ClearNames command.",
 FontWeight->"Bold",
 FontVariations->{"Underline"->True}]], "Text",
 CellChangeTimes->{{3.39714311856875*^9, 3.397143173334375*^9}, {
   3.397594171625*^9, 3.397594175359375*^9}, 3.39767846096875*^9, {
   3.397678501515625*^9, 3.39767852196875*^9}}],

Cell[TextData[{
 "The ClearNames command (see the input cell below) allows us, in a single \
step, to clear ",
 StyleBox["all",
  FontVariations->{"Underline"->True}],
 "  variable and function names that we have defined during the current \
session. Note that the command has no arguments in the square brackets. "
}], "Text",
 CellChangeTimes->{{3.39467128815625*^9, 3.394671599015625*^9}, {
   3.3946716343125*^9, 3.394671857328125*^9}, {3.39467195134375*^9, 
   3.394671952875*^9}, {3.394679459359375*^9, 3.394679463953125*^9}, {
   3.39467949471875*^9, 3.394679541765625*^9}, {3.394713494609375*^9, 
   3.394713774625*^9}, 3.394717603109375*^9, {3.39471763821875*^9, 
   3.39471764128125*^9}, {3.3948509330178747`*^9, 3.3948510557991247`*^9}, {
   3.3948511060334997`*^9, 3.3948512747053747`*^9}, {3.395944601915*^9, 
   3.39594461404*^9}, {3.395969691461875*^9, 3.39596973025875*^9}, {
   3.39620441203125*^9, 3.396204420625*^9}, {3.39717857956875*^9, 
   3.397178887771875*^9}, 3.39717892385*^9, {3.39717900294375*^9, 
   3.39717905281875*^9}, {3.397218208190832*^9, 3.397218252425968*^9}, {
   3.397594675265625*^9, 3.397594676078125*^9}, {3.397594753796875*^9, 
   3.397594782546875*^9}, {3.397594868859375*^9, 3.39759507875*^9}, {
   3.397595181546875*^9, 3.397595266375*^9}, 3.397678461*^9, {
   3.3976785146875*^9, 3.39767851590625*^9}}],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, {3.397218215944512*^9, 
   3.397218226110448*^9}, 3.397678461015625*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 "When you ",
 "evaluate",
 " this command, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " locates all user-defined variable and function names and removes their \
definitions. This gives you a \"clean slate\" from which to work. For \
convenience, we will include a ClearNames command at the start of each of the \
remaining sections of the tutorial. "
}], "Text",
 CellChangeTimes->{{3.39467128815625*^9, 3.394671599015625*^9}, {
   3.3946716343125*^9, 3.394671857328125*^9}, {3.39467195134375*^9, 
   3.394671952875*^9}, {3.394679459359375*^9, 3.394679463953125*^9}, {
   3.39467949471875*^9, 3.394679541765625*^9}, {3.394713494609375*^9, 
   3.394713774625*^9}, 3.394717603109375*^9, {3.39471763821875*^9, 
   3.39471764128125*^9}, {3.3948509330178747`*^9, 3.3948510557991247`*^9}, {
   3.3948511060334997`*^9, 3.3948512747053747`*^9}, {3.395944601915*^9, 
   3.39594461404*^9}, {3.395969691461875*^9, 3.39596973025875*^9}, {
   3.39620441203125*^9, 3.396204420625*^9}, {3.39717857956875*^9, 
   3.397178887771875*^9}, 3.39717892385*^9, {3.39717906538125*^9, 
   3.3971791346625*^9}, 3.397179323209375*^9, {3.39717937381875*^9, 
   3.397179386490625*^9}, 3.3972183112129602`*^9, {3.39759510875*^9, 
   3.39759516725*^9}, 3.39759541559375*^9, {3.3976785293125*^9, 
   3.397678529453125*^9}, 3.39767889615625*^9}],

Cell[TextData[{
 "Note: The ClearNames command is a custom command that is running in this \
notebook.  It is not part of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s built-in command set."
}], "Text",
 CellChangeTimes->{{3.39467128815625*^9, 3.394671599015625*^9}, {
   3.3946716343125*^9, 3.394671857328125*^9}, {3.39467195134375*^9, 
   3.394671952875*^9}, {3.394679459359375*^9, 3.394679463953125*^9}, {
   3.39467949471875*^9, 3.394679541765625*^9}, {3.394713494609375*^9, 
   3.394713774625*^9}, 3.394717603109375*^9, {3.39471763821875*^9, 
   3.39471764128125*^9}, {3.3948509330178747`*^9, 3.3948510557991247`*^9}, {
   3.3948511060334997`*^9, 3.3948512747053747`*^9}, {3.395944601915*^9, 
   3.39594461404*^9}, {3.395969691461875*^9, 3.39596973025875*^9}, {
   3.39620441203125*^9, 3.396204420625*^9}, {3.39717857956875*^9, 
   3.397178887771875*^9}, 3.39717892385*^9, {3.39717906538125*^9, 
   3.3971791346625*^9}, 3.397179323209375*^9, {3.39717937381875*^9, 
   3.397179386490625*^9}, 3.3972183112129602`*^9, {3.39759510875*^9, 
   3.39759516725*^9}, 3.39759541559375*^9, {3.3976785293125*^9, 
   3.397678529453125*^9}, 3.39767889615625*^9, {3.39951055078125*^9, 
   3.399510557765625*^9}, {3.39951059071875*^9, 3.39951077846875*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.2 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.39649105965625*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Assign the value ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"2", "\[Pi]"}], "3"], TraditionalForm]]],
 " to the variable  ",
 Cell[BoxData[
  FormBox["m", TraditionalForm]]],
 " .  Then find a decimal approximation for ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"m", "+", "3"}]], TraditionalForm]]],
 " ."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.39515109327275*^9, 3.395151131350875*^9}, {3.395151192538375*^9, 
   3.395151192538375*^9}, {3.396491065640625*^9, 3.396491234890625*^9}, {
   3.396491352703125*^9, 3.396491354046875*^9}, {3.396491406078125*^9, 
   3.39649140725*^9}, {3.396492221921875*^9, 3.396492279890625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, 3.398996759140625*^9}],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, 3.398996759140625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.2A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.396279932750231*^9, 3.396279934918061*^9}, {3.396491247265625*^9, 
  3.396491247625*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"m", " ", "=", " ", 
  RowBox[{"2", 
   RowBox[{"\[Pi]", "/", "3"}]}]}]], "Input",
 CellChangeTimes->{{3.39649126234375*^9, 3.396491268609375*^9}, 
   3.39899718878125*^9, {3.398999177515625*^9, 3.398999184984375*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", 
  SqrtBox[
   RowBox[{"m", "+", "3"}]], "]"}]], "Input",
 CellChangeTimes->{{3.3989993559375*^9, 3.398999365859375*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["3.3\tThe Expand and Factor commands. ", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, {3.394558805370625*^9, 
   3.394558827589375*^9}, {3.394559854339375*^9, 3.394559947245625*^9}, {
   3.39456044357375*^9, 3.394560482058125*^9}, {3.394560527105*^9, 
   3.39456053523*^9}, 3.3945826383928885`*^9, {3.39472685640625*^9, 
   3.39472685675*^9}, 3.3947283094375*^9, 3.3948255200803747`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[StyleBox["Please evaluate the following command, before \
continuing with this section.",
 CellFrame->{{0.5, 3}, {3, 0.5}}]], "Text",
 CellChangeTimes->{{3.398111918427375*^9, 3.39811191897425*^9}, {
  3.398111968364875*^9, 3.39811197066175*^9}}],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183115262403`*^9, 
   3.397678461015625*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[StyleBox["The principal use of the Expand command is to \
\"multiply out\" products of polynomial expressions. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3949103014553747`*^9, 
   3.3949103336584997`*^9}, {3.396461188*^9, 3.396461189578125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Use the Expand command to expand the product ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "-", "3"}], ")"}]}], TraditionalForm]]],
 ".  ",
 Cell[BoxData[
  FormBox[Cell[""], TraditionalForm]]],
 "Note no asterisk for multiplication is needed here since we are using \
parentheses to separate the factors."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 3.3948949306116247`*^9}, 
   3.3948950449866247`*^9, {3.3949100612834997`*^9, 3.3949100692834997`*^9}, {
   3.3949102788772497`*^9, 3.3949102794397497`*^9}, {3.397678644421875*^9, 
   3.3976786733125*^9}, {3.399038890375*^9, 3.399038952234375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", " ", "+", " ", "2"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "3"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3976786765*^9, 3.397678691453125*^9}, 
   3.398997195234375*^9}],

Cell[TextData[{
 StyleBox["Use the Expand command to expand the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "-", "5"}], ")"}], "7"], TraditionalForm]]],
 ".  ",
 Cell[BoxData[
  FormBox[Cell[""], TraditionalForm]]],
 StyleBox[" ",
  CellFrame->0.5]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 3.3948949306116247`*^9}, 
   3.3948950449866247`*^9, {3.3949100612834997`*^9, 3.3949100692834997`*^9}, {
   3.3949102788772497`*^9, 3.3949102794397497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "5"}], ")"}], "^", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.3966337249375*^9, 3.39663373171875*^9}, 
   3.39899675915625*^9, 3.398997213578125*^9}],

Cell[TextData[StyleBox["Alternatively, we could use the postfix form of the \
Expand command. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 3.3948964307366247`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "5"}], ")"}], "^", "7"}], " ", "//", 
  "Expand"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3945826730561523`*^9, 3.3945826796022725`*^9}, {
   3.3948256480959997`*^9, 3.3948256619709997`*^9}, {3.3949818537522497`*^9, 
   3.3949818617209997`*^9}, {3.398997217921875*^9, 3.39899722353125*^9}}],

Cell[TextData[StyleBox["Here are some additional examples.",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 3.3949197525022497`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Expand the product ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "3"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "x"}], "-", "1"}], ")"}], "3"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "3"}], ")"}], "2"]}], TraditionalForm]]],
 ". "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 
   3.3949197916272497`*^9}, {3.398997249015625*^9, 3.39899728590625*^9}, 
   3.39899940234375*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "x"}], " ", "-", " ", "1"}], ")"}], "^", "3"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", " ", "+", " ", "3"}], ")"}], "^", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3948977382678747`*^9, 3.3948977674553747`*^9}, {
  3.3948978435178747`*^9, 3.3948978603772497`*^9}, {3.398997232484375*^9, 
  3.398997272015625*^9}, {3.398999391234375*^9, 3.39899939384375*^9}}],

Cell[TextData[{
 StyleBox["Expand the product ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", "b"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      RowBox[{"2", "a"}], "+", 
      RowBox[{"2", "b"}], "-", 
      SuperscriptBox["b", "2"]}], ")"}]}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 3.3949198188928747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"a", " ", "+", " ", "b"}], ")"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"a", "^", "2"}], " ", "+", " ", 
     RowBox[{"2", "a"}], " ", "+", " ", 
     RowBox[{"2", "b"}], " ", "-", " ", 
     RowBox[{"b", "^", "2"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3949105753147497`*^9, 3.3949106701272497`*^9}, {
  3.39899729090625*^9, 3.398997295375*^9}}],

Cell[TextData[StyleBox["Here is a final example. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949104461741247`*^9, 
   3.3949105356584997`*^9}, {3.3949199074241247`*^9, 
   3.3949199187522497`*^9}, {3.3949200122834997`*^9, 3.3949200227991247`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Have ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" expand the product ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", 
     FractionBox["1", "2"]], "(", 
    RowBox[{
     SuperscriptBox["x", 
      FractionBox["3", "2"]], "+", 
     SuperscriptBox["x", 
      RowBox[{"-", 
       FractionBox["1", "2"]}]]}], ")"}], TraditionalForm]]],
 ".",
 StyleBox["  Note the parentheses surrounding the fractional exponents.",
  CellFrame->0.5]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949104461741247`*^9, 
   3.3949105356584997`*^9}, {3.3949199074241247`*^9, 
   3.3949199187522497`*^9}, {3.3949200122834997`*^9, 
   3.3949200258147497`*^9}, {3.398997328640625*^9, 3.3989973469375*^9}, {
   3.39899768996875*^9, 3.39899770996875*^9}, {3.3989994174375*^9, 
   3.398999447296875*^9}, {3.3990397655*^9, 3.399039784265625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Expand", "[", " ", 
  RowBox[{
   RowBox[{"x", "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}], " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"3", "/", "2"}], ")"}]}], " ", "+", " ", 
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "/", "2"}], ")"}]}]}], " ", ")"}]}], " ", 
  "]"}]], "Input",
 CellChangeTimes->{{3.3949103421897497`*^9, 3.3949104087678747`*^9}, 
   3.3949105275803747`*^9, {3.398997302140625*^9, 3.398997352515625*^9}}],

Cell[TextData[StyleBox["The Factor command does what you would expect. Here \
are some examples. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3971466324125*^9, 3.3971467066*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Factor ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "-", "4"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 
   3.3949198806584997`*^9}, {3.3949200712209997`*^9, 3.3949200945178747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "-", " ", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.3948976516272497`*^9, 3.3948976627209997`*^9}}],

Cell[TextData[{
 "Note that each factor is displayed using StandardForm, i.e. ascending \
powers of ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 ". "
}], "Text",
 CellChangeTimes->{{3.397146713178125*^9, 3.39714675569375*^9}}],

Cell[TextData[{
 StyleBox["Factor ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "3"], "+", "8"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 
   3.3949198806584997`*^9}, {3.3949200712209997`*^9, 3.3949200945178747`*^9}, 
   3.3949201272834997`*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], " ", "+", " ", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.3948976516272497`*^9, 3.3948976627209997`*^9}, {
  3.3948979881897497`*^9, 3.3948980105022497`*^9}}],

Cell[TextData[{
 StyleBox["Factor ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "4"], "-", 
    RowBox[{"9", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"23", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"3", "x"}], "-", "36"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 
   3.3949198806584997`*^9}, {3.3949200712209997`*^9, 
   3.3949200945178747`*^9}, {3.39706730344375*^9, 3.397067349990625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "4"}], " ", "-", " ", 
   RowBox[{"9", 
    RowBox[{"x", "^", "3"}]}], " ", "+", " ", 
   RowBox[{"23", 
    RowBox[{"x", "^", "2"}]}], " ", "-", " ", 
   RowBox[{"3", "x"}], " ", "-", " ", "36"}], "]"}]], "Input",
 CellChangeTimes->{{3.3948978262053747`*^9, 3.3948978546116247`*^9}, {
  3.3948979167522497`*^9, 3.3948979513928747`*^9}, {3.3989973663125*^9, 
  3.398997369609375*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" can factor expressions with more than one variable.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Factor ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "y"}], "+", 
    RowBox[{"2", "xy"}], "+", "y"}], TraditionalForm]]],
 ". "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 
   3.3949198806584997`*^9}, {3.3949200712209997`*^9, 
   3.3949200945178747`*^9}, {3.397067362209375*^9, 3.397067395771875*^9}, {
   3.3990398043125*^9, 3.3990398594375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "*", "y"}], " ", "+", " ", 
   RowBox[{"2", "x", "*", "y"}], " ", "+", " ", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.398514742802375*^9, 3.398514776677375*^9}, 
   3.398997375859375*^9, {3.398997546640625*^9, 3.39899754665625*^9}, {
   3.39899772575*^9, 3.398997732671875*^9}, {3.399039844046875*^9, 
   3.39903985221875*^9}}],

Cell[TextData[{
 StyleBox["If the Factor command is applied to a rational expression such as \
",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "3"], "-", 
     RowBox[{"7", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"15", "x"}], "-", "9"}], 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"4", "x"}], "+", "4"}]], TraditionalForm]]],
 ",",
 StyleBox[" then the numerator and denominator are each factored. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}, {3.3949109913616247`*^9, 
   3.3949110845491247`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Factor ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "3"], "-", 
     RowBox[{"7", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"15", "x"}], "-", "9"}], 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"4", "x"}], "+", "4"}]], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3949197441116247`*^9, 
   3.3949198806584997`*^9}, {3.3949200712209997`*^9, 
   3.3949200945178747`*^9}, {3.397067423771875*^9, 3.39706745444375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "3"}], " ", "-", " ", 
     RowBox[{"7", 
      RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
     RowBox[{"15", "x"}], " ", "-", " ", "9"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "+", " ", 
     RowBox[{"4", "x"}], " ", "+", " ", "4"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3949109193772497`*^9, 3.3949109653459997`*^9}, {
  3.39899747459375*^9, 3.398997479015625*^9}}],

Cell[TextData[StyleBox["Next we consider a rational expression in which the \
numerator and denominator share common factors. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}, {3.3949109913616247`*^9, 
   3.3949110845491247`*^9}, {3.3949115454241247`*^9, 3.3949115840647497`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Consider the rational expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "3"], "-", 
     RowBox[{"4", 
      SuperscriptBox["x", "2"]}], "+", "x", "+", "6"}], 
    RowBox[{
     SuperscriptBox["x", "2"], "-", "x", "-", "2"}]], TraditionalForm]]],
 StyleBox[" . For convenience we give the name  h to the expression.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}, {3.3949109913616247`*^9, 
   3.3949110845491247`*^9}, {3.3949115454241247`*^9, 3.3949117184709997`*^9}, 
   3.3949119945178747`*^9, {3.3949121137678747`*^9, 3.3949121228616247`*^9}, {
   3.3949124787366247`*^9, 3.3949125075334997`*^9}, {3.3949356543616247`*^9, 
   3.3949356713147497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"h", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "3"}], " ", "-", " ", 
     RowBox[{"4", 
      RowBox[{"x", "^", "2"}]}], " ", "+", " ", "x", " ", "+", " ", "6"}], 
    ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "-", " ", "x", " ", "-", " ", "2"}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.3949113052678747`*^9, 3.3949113790022497`*^9}, {
   3.3949120018459997`*^9, 3.3949120020022497`*^9}, {3.3949121098928747`*^9, 
   3.3949121109241247`*^9}, {3.3949123967991247`*^9, 3.3949124214397497`*^9}, 
   3.3949124539866247`*^9, 3.3989974853125*^9}],

Cell[TextData[{
 StyleBox["If we apply the Factor command, the common factors are \
automatically cancelled to simplify the expression and we are left with just \
",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[Cell["(x-3)"], TraditionalForm]]],
 ". "
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}, {3.3949109913616247`*^9, 
   3.3949110845491247`*^9}, {3.3949115454241247`*^9, 
   3.3949115840647497`*^9}, {3.3949117437678747`*^9, 3.3949118637053747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", "h", "]"}]], "Input",
 CellChangeTimes->{{3.3949117623147497`*^9, 3.3949117644866247`*^9}, {
  3.39706756794375*^9, 3.397067575740625*^9}}],

Cell[TextData[{
 StyleBox["How can we find out which factors were cancelled? To answer this \
question we can use ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["'s Numerator and Denominator commands. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}, {3.3949109913616247`*^9, 
   3.3949110845491247`*^9}, {3.3949115454241247`*^9, 
   3.3949115840647497`*^9}, {3.3949117437678747`*^9, 
   3.3949119842209997`*^9}, {3.3949120183303747`*^9, 3.3949120977522497`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"Numerator", "[", "h", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949114797209997`*^9, 3.3949114817522497`*^9}, 
   3.3949120699553747`*^9}],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"Denominator", "[", "h", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949114854241247`*^9, 3.3949114873303747`*^9}, 
   3.3949120740178747`*^9}],

Cell[TextData[{
 StyleBox["Now we can see that the common factors of the numerator and \
denominator are ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", "-", "2"}], ")"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", "+", "1"}], ")"}], TraditionalForm]]],
 ". With this information we can say that  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["x", "3"], "-", 
      RowBox[{"4", 
       SuperscriptBox["x", "2"]}], "+", "x", "+", "6"}], 
     RowBox[{
      SuperscriptBox["x", "2"], "-", "x", "-", "2"}]], "=", 
    RowBox[{"x", "-", "3"}]}], TraditionalForm]]],
 " if and only if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "\[NotEqual]", "2"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "\[NotEqual]", 
    RowBox[{"-", "1"}]}], TraditionalForm]]],
 ".",
 StyleBox[" ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949100880178747`*^9, 3.3949100915959997`*^9}, {
   3.3949108524709997`*^9, 3.3949108763459997`*^9}, {3.3949109913616247`*^9, 
   3.3949110845491247`*^9}, {3.3949115454241247`*^9, 
   3.3949115840647497`*^9}, {3.3949117437678747`*^9, 
   3.3949119842209997`*^9}, {3.3949120183303747`*^9, 3.3949120977522497`*^9}, 
   3.3949122003303747`*^9, {3.3949123302678747`*^9, 3.3949123477991247`*^9}, {
   3.3949357205491247`*^9, 3.3949358540491247`*^9}, {3.3949358853616247`*^9, 
   3.3949359767991247`*^9}, 3.39499482409375*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["If ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" cannot factor an expression using rational numbers (integers and \
fractions) then it returns the input unchanged. ",
  CellFrame->0.5]
}], "Text",
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.394559954683125*^9, 3.39456003073*^9}, {3.394582655989483*^9, 
   3.3945826667905807`*^9}, 3.394726372609375*^9, {3.3948253446116247`*^9, 
   3.3948254323303747`*^9}, {3.3948255937209997`*^9, 
   3.3948256330803747`*^9}, {3.3948948216584997`*^9, 
   3.3948949306116247`*^9}, {3.3948950091741247`*^9, 
   3.3948950307991247`*^9}, {3.3948964296897497`*^9, 
   3.3948964307366247`*^9}, {3.3948976283459997`*^9, 3.3948976459397497`*^9}, 
   3.3949096968459997`*^9, {3.3949097544709997`*^9, 3.3949097613147497`*^9}, {
   3.3949099842678747`*^9, 3.3949100223928747`*^9}, {3.3949101333928747`*^9, 
   3.3949101405022497`*^9}, 3.3949102293772497`*^9, {3.3949107717991247`*^9, 
   3.3949107722209997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"3", 
    RowBox[{"x", "^", "2"}]}], " ", "-", " ", 
   RowBox[{"10", "x"}], " ", "-", " ", "9"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949097685022497`*^9, 3.3949097778147497`*^9}, {
  3.3949098759553747`*^9, 3.3949099512053747`*^9}, {3.3989974970625*^9, 
  3.398997498359375*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.3 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.3949093736272497`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Expand ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "3"], "+", "2"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "-", "5"}], ")"}]}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.3949093811428747`*^9, 3.3949094180334997`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, {3.3949094252053747`*^9, 3.3949094429084997`*^9}, 
   3.3949096890491247`*^9, 3.398996759171875*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.3A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.3949096817522497`*^9, 3.3949096821116247`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "3"}], " ", "+", " ", "2"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", "5"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.39472555390625*^9, 3.3947255898125*^9}, 
   3.3949094537053747`*^9, {3.39799699672425*^9, 3.397997005364875*^9}, 
   3.39899752028125*^9, {3.39903450265625*^9, 3.399034505484375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.3 B",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, {3.39472525771875*^9, 
   3.394725257890625*^9}, {3.394725315046875*^9, 3.394725317734375*^9}, 
   3.3949093750959997`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Factor the expression ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "20"], "-", "1"}], TraditionalForm]]],
 "."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.394725263484375*^9, 3.394725297578125*^9}, {3.3949095984866247`*^9, 
   3.3949096219397497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.3949096264709997`*^9, 
   3.3949096497991247`*^9}, 3.398996759171875*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.3B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.394725305734375*^9, 3.394725308125*^9}, {3.3949096735178747`*^9, 
  3.3949096738303747`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"x", "^", "20"}], "-", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.399475884734375*^9, 3.399475892796875*^9}}],

Cell["Or we could use the postfix form.", "Text",
 CellChangeTimes->{{3.39947589765625*^9, 3.39947590446875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"x", "^", "20"}], " ", "-", " ", "1"}], "//", "Factor"}]], "Input",\

 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.3949096264709997`*^9, 
   3.3949096350647497`*^9}, {3.3994759155625*^9, 3.399475922421875*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["3.4\tThe TrigExpand and TrigFactor commands. ", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, {3.394558805370625*^9, 
   3.394558827589375*^9}, {3.394559854339375*^9, 3.394559947245625*^9}, {
   3.39456044357375*^9, 3.394560482058125*^9}, {3.394560527105*^9, 
   3.39456053523*^9}, 3.3945826383928885`*^9, {3.39472685640625*^9, 
   3.39472685675*^9}, 3.3947283094375*^9, 3.3948255200803747`*^9, {
   3.3948965742209997`*^9, 3.3948965903928747`*^9}, 3.3948969842522497`*^9, 
   3.3948975374553747`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[TextData[StyleBox["Please evaluate the following command, before \
continuing with this section.",
 CellFrame->{{0.5, 3}, {3, 0.5}}]], "Text",
 CellChangeTimes->{{3.398111918427375*^9, 3.39811191897425*^9}, {
  3.3981119588805*^9, 3.398111960177375*^9}}],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183115732317`*^9, 
   3.397678461015625*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell["\<\
As their names suggest, the TrigExpand and TrigFactor commands are \
specifically designed to transform trigonometric expressions. They employ the \
full range of trigonometric identities that you encountered in Precalculus. \
\>", "Text",
 CellChangeTimes->{{3.3948966477678747`*^9, 3.3948967177991247`*^9}, {
   3.3948969976741247`*^9, 3.3948970273459997`*^9}, {3.3948971997209997`*^9, 
   3.3948972315178747`*^9}, 3.3948974469866247`*^9, 3.3948975006116247`*^9, 
   3.394994830703125*^9}],

Cell["\<\
The TrigExpand command expands out trigonometric functions. Here are two \
examples.\
\>", "Text",
 CellChangeTimes->{{3.3948966477678747`*^9, 3.3948967177991247`*^9}, {
   3.3948969976741247`*^9, 3.3948970605491247`*^9}, 3.3948971373303747`*^9}],

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"Sin", "[", 
   RowBox[{"2", "x"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3948967561428747`*^9, 3.3948967779084997`*^9}, {
   3.3948972608772497`*^9, 3.3948972722366247`*^9}, 3.398997524015625*^9}],

Cell[BoxData[
 RowBox[{"TrigExpand", "[", 
  RowBox[{"Cos", "[", 
   RowBox[{"a", " ", "+", " ", "b"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.3948966145334997`*^9, {3.3948967271897497`*^9, 3.3948967307991247`*^9}, {
   3.3948967851741247`*^9, 3.3948967992366247`*^9}, {3.3971450571*^9, 
   3.397145059271875*^9}}],

Cell["\<\
The TrigFactor command factors trigonometric functions. Here are two \
examples.\
\>", "Text",
 CellChangeTimes->{{3.3948966477678747`*^9, 3.3948967177991247`*^9}, {
   3.3948969976741247`*^9, 3.3948971035803747`*^9}, 3.3948971409397497`*^9, 
   3.39907481634375*^9}],

Cell[BoxData[
 RowBox[{"TrigFactor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "a", "]"}], 
    RowBox[{"Cos", "[", "b", "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"Sin", "[", "b", "]"}], 
    RowBox[{"Cos", "[", "a", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3948968166428747`*^9, 3.3948968191272497`*^9}, {
  3.3948969121741247`*^9, 3.3948969724084997`*^9}, {3.397145060990625*^9, 
  3.3971450672875*^9}, {3.39899752784375*^9, 3.39899753071875*^9}}],

Cell[BoxData[
 RowBox[{"TrigFactor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "^", "4"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "^", "4"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3948971543303747`*^9, 3.3948971762522497`*^9}, {
  3.3948972493147497`*^9, 3.3948972546116247`*^9}, {3.3948973227053747`*^9, 
  3.3948973356116247`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["3.5\tSubstituting values into an expression.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, {3.394558805370625*^9, 
   3.394558827589375*^9}, {3.394560422745625*^9, 3.39456042507375*^9}, 
   3.3945826414165726`*^9, {3.39472685409375*^9, 3.39472685459375*^9}, 
   3.394728312109375*^9, {3.3947510193621025`*^9, 3.3947510293777275`*^9}, 
   3.3948255225959997`*^9, 3.3948975402834997`*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183115732317`*^9, 
   3.39767846103125*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 StyleBox["Suppose that you want to evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", "x"}], "-", "4"}], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " has the value 7. The quickest way to do this is to enter the following:  \
",
 StyleBox[" ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", "x"}], "-", "4"}], TraditionalForm]]],
 "  ",
 StyleBox[" /.  x",
  CellFrame->0.5],
 StyleBox[" -> ",
  CellFrame->0.5,
  FontFamily->"Courier New"],
 StyleBox["7 .",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727526421875*^9}, {3.3947510763933525`*^9, 
   3.3947511641589775`*^9}, {3.3947512042683525`*^9, 
   3.3947513069871025`*^9}, {3.3947566835027275`*^9, 3.3947566864558525`*^9}, 
   3.3947567495808525`*^9, {3.3947568497058525`*^9, 3.3947568537214775`*^9}, {
   3.3949386163928747`*^9, 3.3949386170647497`*^9}, 3.3949761356584997`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Note the syntax:    ",
  CellFrame->0.5],
 StyleBox["expression  ",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" ",
  CellFrame->0.5],
 StyleBox["/. ",
  CellFrame->0.5,
  FontWeight->"Bold"],
 StyleBox[" x  ",
  CellFrame->0.5],
 StyleBox["-> ",
  CellFrame->0.5,
  FontFamily->"Courier New"],
 StyleBox["value .   ",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["You will find that as you type \"",
  CellFrame->0.5],
 StyleBox["-",
  CellFrame->0.5,
  FontFamily->"Courier New"],
 StyleBox["\" followed by \"",
  CellFrame->0.5],
 StyleBox[">",
  CellFrame->0.5,
  FontFamily->"Courier New"],
 StyleBox["\" to create the crude arrow \"",
  CellFrame->0.5],
 StyleBox["->",
  CellFrame->0.5,
  FontFamily->"Courier New"],
 StyleBox["\", a nice, formatted arrow \"",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["\[RightArrow]", TraditionalForm]]],
 "\" ",
 StyleBox["will take its place. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727529140625*^9}, {3.394727669625*^9, 
   3.394727701890625*^9}, {3.3947511754714775`*^9, 3.3947511760027275`*^9}, {
   3.3947569613464775`*^9, 3.3947569840964775`*^9}, {3.3949386256272497`*^9, 
   3.3949387620803747`*^9}, {3.3949761424241247`*^9, 3.3949761460647497`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 "Substitute the value 7 for ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " in the expression ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", "x"}], "-", "4"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.394413588855*^9}, {
   3.394413654151875*^9, 3.394413864995625*^9}, 3.394413917120625*^9, {
   3.39441401007375*^9, 3.39441401394875*^9}, {3.394414127745625*^9, 
   3.39441420307375*^9}, {3.39441429832375*^9, 3.394414332464375*^9}, {
   3.394414519401875*^9, 3.3944145405425*^9}, {3.394416142120625*^9, 
   3.394416222464375*^9}, {3.3949352751272497`*^9, 3.3949352815334997`*^9}, 
   3.3949353364397497`*^9, {3.3949360767209997`*^9, 3.3949361196116247`*^9}, {
   3.3949761627209997`*^9, 3.3949761692053747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"3", "x"}], " ", "-", " ", "4"}], " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", "7"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.39456057082375*^9, 3.394560626558125*^9}, 
   3.39472724203125*^9, 3.3947513127527275`*^9, 3.398997534515625*^9}],

Cell[TextData[{
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" allows you to substitute many values for a variable in a single \
command. Here is an example.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, 
   3.3949361109553747`*^9, {3.3949387796272497`*^9, 3.3949387821897497`*^9}, {
   3.3949389416116247`*^9, 3.3949389755022497`*^9}, {3.3949391543459997`*^9, 
   3.3949391627678747`*^9}, {3.3949762206272497`*^9, 3.3949763282678747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", "x"}], "-", "4"}], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " is replaced by 10.5, 21.7, 37 and 44. Note we use curly brackets { } to \
enter the list of inputs. "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, 
   3.3949361109553747`*^9, {3.3949387796272497`*^9, 3.3949387821897497`*^9}, {
   3.3949389416116247`*^9, 3.3949389755022497`*^9}, {3.3949391543459997`*^9, 
   3.3949391627678747`*^9}, {3.3949762206272497`*^9, 
   3.3949762523928747`*^9}, {3.3949763689084997`*^9, 
   3.3949763762522497`*^9}, {3.3951513579915*^9, 3.395151410475875*^9}, 
   3.39515192096025*^9, {3.395151985429*^9, 3.395152103007125*^9}, {
   3.3976065161875*^9, 3.39760651671875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"3", "x"}], " ", "-", " ", "4"}], " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", 
   RowBox[{"{", 
    RowBox[{"10.5", ",", " ", "21.7", ",", " ", "37", ",", " ", "44"}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.3949389855647497`*^9, 3.3949391453303747`*^9}, {
   3.395083612308161*^9, 3.395083652964671*^9}, {3.3951519288665*^9, 
   3.39515197021025*^9}, {3.39515201758525*^9, 3.39515204427275*^9}, 
   3.3989975380625*^9}],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "3"], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " is replaced by 1, 2, 3, 4 , 5, 6, 7, 8, 9 and 10.  "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, 
   3.3949361109553747`*^9, {3.3949387796272497`*^9, 3.3949387821897497`*^9}, {
   3.3949389416116247`*^9, 3.3949389755022497`*^9}, {3.3949391543459997`*^9, 
   3.3949391627678747`*^9}, {3.3949762206272497`*^9, 
   3.3949762523928747`*^9}, {3.3949763689084997`*^9, 
   3.3949763762522497`*^9}, {3.3951513579915*^9, 3.395151410475875*^9}, 
   3.39515192096025*^9, {3.395152109257125*^9, 3.3951521213665*^9}, {
   3.397067695896875*^9, 3.397067701053125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "3"}], " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ",
      "6", ",", " ", "7", ",", " ", "8", ",", " ", "9", ",", " ", "10"}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.3949389855647497`*^9, 3.3949391453303747`*^9}, {
  3.395083612308161*^9, 3.395083652964671*^9}, {3.3951519288665*^9, 
  3.39515197021025*^9}, {3.397067689740625*^9, 3.397067691615625*^9}}],

Cell[TextData[StyleBox["In this case we could have also used the Range \
command to save ourselves some typing. ",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, 
   3.3949361109553747`*^9, {3.3949387796272497`*^9, 3.3949387821897497`*^9}, {
   3.3949389416116247`*^9, 3.3949389755022497`*^9}, {3.3949391543459997`*^9, 
   3.3949391627678747`*^9}, {3.3949762206272497`*^9, 
   3.3949763282678747`*^9}, {3.39515147264775*^9, 3.39515148283525*^9}, {
   3.395151945663375*^9, 3.39515196114775*^9}, {3.395152131819625*^9, 
   3.395152149944625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "^", "3"}], " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", 
   RowBox[{"Range", "[", "10", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.3949389855647497`*^9, 3.3949391453303747`*^9}, {
   3.395083612308161*^9, 3.395083652964671*^9}, 3.395151437929*^9, {
   3.39515215739775*^9, 3.3951521574915*^9}, 3.398111689489875*^9}],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   FractionBox[
    SqrtBox[
     RowBox[{"x", "+", "4"}]], "7"], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " is replaced by 3.45.  You should get 0.389924 as the output."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, 
   3.3949361109553747`*^9, {3.3949387796272497`*^9, 3.3949387821897497`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.394582466526067*^9, 3.3945824763452463`*^9}, {
   3.394727597484375*^9, 3.394727626140625*^9}, 3.3949361379084997`*^9, {
   3.3976065615*^9, 3.397606609390625*^9}, 3.3989967591875*^9}],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", "x"}], "-", "4"}], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " is replaced by ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"2", "m"}], "+", "7"}], TraditionalForm]]],
 " and label the result ",
 Cell[BoxData[
  FormBox["h", TraditionalForm]]],
 ". Then have ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " express ",
 Cell[BoxData[
  FormBox["h", TraditionalForm]]],
 " in simplest form. "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, {
   3.394728410515625*^9, 3.39472845196875*^9}, {3.3947285750625*^9, 
   3.394728581453125*^9}, 3.3949362375334997`*^9, {3.3949363376116247`*^9, 
   3.3949363527678747`*^9}, {3.399481783109375*^9, 3.3994817925625*^9}, {
   3.39948193153125*^9, 3.399481975328125*^9}, {3.399482069671875*^9, 
   3.39948207371875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"h", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"3", "x"}], " ", "-", " ", "4"}], " ", "/.", " ", 
   RowBox[{"x", " ", "->", " ", 
    RowBox[{
     RowBox[{"2", "m"}], " ", "+", " ", "7"}]}]}]}]], "Input",
 CellChangeTimes->{{3.39472852934375*^9, 3.3947285470625*^9}, 
   3.3949363572053747`*^9, {3.398997541078125*^9, 3.398997544359375*^9}, {
   3.399481746265625*^9, 3.399481747265625*^9}, 3.399481851*^9, {
   3.39948197984375*^9, 3.399481980390625*^9}}],

Cell[BoxData[
 RowBox[{"Expand", "[", "h", "]"}]], "Input",
 CellChangeTimes->{{3.399481754734375*^9, 3.399481758390625*^9}, 
   3.399481912953125*^9, 3.39948199053125*^9}],

Cell[TextData[{
 StyleBox["If an expression has more than one variable, we can direct ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" to replace some or all of the variables with particular values. \
Examples follow.",
  CellFrame->0.5]
}], "Text",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, {
   3.394728410515625*^9, 3.39472845196875*^9}, {3.3947285750625*^9, 
   3.39472864540625*^9}, 3.3949361578303747`*^9, 3.3949362462366247`*^9, {
   3.3949382293616247`*^9, 3.3949383704553747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", 
      RowBox[{"3", "y"}]}], ")"}], "3"], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "2.3"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"-", "5.4"}]}], TraditionalForm]]],
 ".  Note the use of curly braces {  } in the line below."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, {
   3.394728410515625*^9, 3.39472845196875*^9}, {3.3947285750625*^9, 
   3.394728581453125*^9}, 3.3949362375334997`*^9, {3.3949363376116247`*^9, 
   3.3949363527678747`*^9}, {3.3949364077053747`*^9, 
   3.3949364105334997`*^9}, {3.3949379988459997`*^9, 
   3.3949381301116247`*^9}, {3.3949381835647497`*^9, 3.3949382143459997`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", " ", "+", " ", 
     RowBox[{"3", "y"}]}], ")"}], "^", "3"}], " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", " ", "->", " ", "2.3"}], ",", " ", 
    RowBox[{"y", " ", "->", " ", 
     RowBox[{"-", "5.4"}]}]}], "}"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.39456057082375*^9, 3.394560652605*^9}, {
   3.3949381370022497`*^9, 3.3949381672366247`*^9}, 3.39899754575*^9}],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"-", "b"}], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["b", "2"], "-", 
       RowBox[{"4", "a", " ", "c"}]}]]}], 
    RowBox[{"2", "a"}]], TraditionalForm]]],
 " when ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", "2"}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"b", "=", "5"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "=", 
    RowBox[{"-", "3"}]}], TraditionalForm]]],
 ".  "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, {
   3.394728410515625*^9, 3.39472845196875*^9}, {3.3947285750625*^9, 
   3.394728581453125*^9}, 3.3949362375334997`*^9, {3.3949363376116247`*^9, 
   3.3949363527678747`*^9}, {3.3949364077053747`*^9, 
   3.3949364105334997`*^9}, {3.3949379988459997`*^9, 
   3.3949381301116247`*^9}, {3.3949381835647497`*^9, 
   3.3949382143459997`*^9}, {3.3949383855178747`*^9, 3.3949384676428747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "b"}], " ", "+", 
     SqrtBox[
      RowBox[{" ", 
       RowBox[{
        RowBox[{"b", "^", "2"}], " ", "-", " ", 
        RowBox[{"4", "a", "*", "c"}]}]}]]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"2", "a"}], ")"}]}], " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", " ", "->", " ", "2"}], ",", " ", 
    RowBox[{"b", " ", "->", " ", "5"}], ",", " ", 
    RowBox[{"c", " ", "->", " ", 
     RowBox[{"-", "3"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.3949384758928747`*^9, 3.3949385292522497`*^9}, {
  3.398997545765625*^9, 3.398997545765625*^9}, {3.398999490015625*^9, 
  3.39899950515625*^9}, {3.398999595484375*^9, 3.3989996144375*^9}}],

Cell[TextData[{
 StyleBox["Evaluate the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["b", "2"], "-", 
    RowBox[{"4", "a", " ", "c"}]}], TraditionalForm]]],
 " when  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"b", "=", "5"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727585828125*^9}, {3.39472763859375*^9, 
   3.39472766228125*^9}, {3.39472832696875*^9, 3.3947283315625*^9}, {
   3.394728410515625*^9, 3.39472845196875*^9}, {3.3947285750625*^9, 
   3.394728581453125*^9}, 3.3949362375334997`*^9, {3.3949363376116247`*^9, 
   3.3949363527678747`*^9}, {3.3949364077053747`*^9, 
   3.3949364105334997`*^9}, {3.3949379988459997`*^9, 
   3.3949381301116247`*^9}, {3.3949381835647497`*^9, 
   3.3949382143459997`*^9}, {3.3949383855178747`*^9, 
   3.3949384676428747`*^9}, {3.3949764219084997`*^9, 3.3949764525803747`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"b", "^", "2"}], " ", "-", " ", 
   RowBox[{"4", "a", "*", "c"}]}], " ", "/.", " ", 
  RowBox[{"b", " ", "->", " ", "5"}]}]], "Input",
 CellChangeTimes->{{3.3949764591116247`*^9, 3.3949764767522497`*^9}, {
  3.398997545765625*^9, 3.39899754578125*^9}, {3.398999600796875*^9, 
  3.3989996181875*^9}}],

Cell[TextData[{
 StyleBox["Global assignment (",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "value"}], TraditionalForm]],
  FontWeight->"Bold"],
 StyleBox[") vs. local substitution (",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   RowBox[{"/.", 
    RowBox[{"x", "\[Rule]", "value"}]}], TraditionalForm]],
  FontWeight->"Bold"],
 StyleBox[")",
  FontWeight->"Bold"],
 StyleBox["\nHere is an important distinction to keep in mind. \nWhen we \
enter x = 5 we are directing ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["Mathematica",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontSlant->"Italic"],
 StyleBox[" to ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 StyleBox["assign",
  CellFrame->{{0.5, 3}, {3, 0.5}},
  FontVariations->{"Underline"->True}],
 StyleBox[" the value of 5 to x.  From that point on, x has the value of 5 \
anywhere and everywhere it appears in the notebook.\n\nIn contrast, when we \
enter, say, ",
  CellFrame->{{0.5, 3}, {3, 0.5}}],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", "4"}], " ", "/.", " ", 
    RowBox[{"x", "\[Rule]", " ", "5"}]}], TraditionalForm]]],
 ", we are directing ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to ",
 StyleBox["replace",
  FontVariations->{"Underline"->True}],
 " the x in ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", "4"}], TraditionalForm]]],
 " by 5, BUT, ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " itself ",
 StyleBox["does not change",
  FontVariations->{"Underline"->True}],
 " ; ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " remains a symbolic variable with no particular value. "
}], "Text",
 CellFrame->0.5,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447210163625*^9}, {
   3.394473544214375*^9, 3.39447358294875*^9}, {3.394571422058125*^9, 
   3.39457143957375*^9}, {3.39472773171875*^9, 3.394728054796875*^9}, {
   3.39472808553125*^9, 3.39472821396875*^9}, {3.3949362282366247`*^9, 
   3.3949362303772497`*^9}, {3.39515227189775*^9, 3.39515233102275*^9}, {
   3.39597128413375*^9, 3.395971324368125*^9}},
 FontFamily->"Comic Sans MS",
 Background->RGBColor[
  0.8745098039215686, 0.8745098039215686, 0.8745098039215686]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.5 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.3949093736272497`*^9, 
   3.396465130484375*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183115732317`*^9, 
   3.397678461015625*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 "Find the approximate value of ",
 Cell[BoxData[
  FormBox["T", TraditionalForm]]],
 " in the formula ",
 Cell[BoxData[
  FormBox[
   RowBox[{"T", "=", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"2", "a"}], "-", 
       RowBox[{"3", 
        SuperscriptBox["b", "2"]}]}], 
      RowBox[{"c", "-", "20"}]]]}], TraditionalForm]]],
 "when ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", "4.6"}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"b", "=", 
    RowBox[{"-", "3.8"}]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "=", "2.9"}], TraditionalForm]]],
 ". "
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.3949093811428747`*^9, 3.3949094180334997`*^9}, {3.39646513634375*^9, 
   3.39646521878125*^9}, 3.396465251609375*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, {3.3949094252053747`*^9, 3.3949094429084997`*^9}, 
   3.3949096890491247`*^9, 3.398996759203125*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.5A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.3949096817522497`*^9, 3.3949096821116247`*^9}, {3.396465223921875*^9, 
  3.396465224484375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397129755646875*^9, 3.397129764178125*^9}, {
  3.397143369303125*^9, 3.397143370178125*^9}, {3.39714394044375*^9, 
  3.397143961553125*^9}, {3.397145033584375*^9, 3.3971450364125*^9}, {
  3.39714507388125*^9, 3.397145074771875*^9}, {3.397146889271875*^9, 
  3.397146896084375*^9}, {3.39767813353125*^9, 3.397678138171875*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "a"}], " ", "-", " ", 
      RowBox[{"3", 
       RowBox[{"b", "^", "2"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"c", " ", "-", " ", "20"}], ")"}]}]], " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", " ", "->", " ", "4.6"}], ",", " ", 
    RowBox[{"b", " ", "->", " ", 
     RowBox[{"-", "3.8"}]}], ",", " ", 
    RowBox[{"c", " ", "->", " ", "2.9"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.39472555390625*^9, 3.3947255898125*^9}, 
   3.3949094537053747`*^9, {3.39646523103125*^9, 3.396465303625*^9}, {
   3.39899754578125*^9, 3.39899754578125*^9}, {3.39899779815625*^9, 
   3.398997808703125*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["3.6\tThe Simplify command.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, {3.394558805370625*^9, 
   3.394558827589375*^9}, {3.394559854339375*^9, 3.394559947245625*^9}, {
   3.39456044357375*^9, 3.39456055138625*^9}, 3.3948255253928747`*^9, 
   3.3948975421584997`*^9, {3.397606652484375*^9, 3.397606654640625*^9}, {
   3.399482918875*^9, 3.399482922640625*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.397218311620224*^9, 
   3.39767846103125*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 StyleBox["You can use ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox["'s Simplify command to help you simplify complicated algebraic \
expressions. When you apply Simplify to an expression, ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" applies a large number of algebraic rules in an effort to make \
the expression less complex. ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727526421875*^9}, {3.3947510763933525`*^9, 
   3.3947511641589775`*^9}, {3.3947512042683525`*^9, 
   3.3947513069871025`*^9}, {3.3947566835027275`*^9, 3.3947566864558525`*^9}, 
   3.3947567495808525`*^9, {3.3947568497058525`*^9, 3.3947568537214775`*^9}, {
   3.3949386163928747`*^9, 3.3949386170647497`*^9}, 3.3949761356584997`*^9, {
   3.3949799637522497`*^9, 3.3949801161584997`*^9}, {3.3949802836741247`*^9, 
   3.3949803284397497`*^9}, 3.3949809128303747`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 " Simplify the expression ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"2", "x"}], "-", 
    RowBox[{"5", "x"}], "+", 
    RowBox[{"7", 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}], "+", "4"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.3948499024397497`*^9, 3.3948499755491247`*^9}, {3.3949297825022497`*^9, 
   3.3949297941741247`*^9}, {3.3949801536741247`*^9, 
   3.3949802459397497`*^9}, {3.3949805996116247`*^9, 
   3.3949806109241247`*^9}, {3.3949806937834997`*^9, 
   3.3949807509709997`*^9}, {3.397912563568*^9, 3.3979125793805*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"2", "x"}], " ", "-", " ", 
   RowBox[{"5", "x"}], " ", "+", " ", 
   RowBox[{"7", 
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", "2"}], ")"}]}], " ", "+", " ", "4"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.397912532958625*^9, 3.397912551521125*^9}, {
  3.398997545796875*^9, 3.398997545796875*^9}}],

Cell[TextData[{
 StyleBox["Simplify the compound fraction ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   StyleBox[
    FractionBox[
     RowBox[{"3", "+", 
      FractionBox["1", 
       RowBox[{"x", "-", "2"}]]}], 
     RowBox[{
      FractionBox["3", "x"], "+", 
      FractionBox["4", 
       RowBox[{"x", "+", "1"}]]}]],
    FontSize->18], TraditionalForm]]],
 ". Note that we use parentheses for each denominator."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.3948499024397497`*^9, 3.3948499755491247`*^9}, {3.3949297825022497`*^9, 
   3.3949297941741247`*^9}, {3.3949801536741247`*^9, 
   3.3949802459397497`*^9}, {3.3949822561584997`*^9, 
   3.3949823176741247`*^9}, {3.399034560734375*^9, 3.399034597609375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"3", " ", "+", " ", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"x", " ", "-", " ", "2"}], ")"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", "/", "x"}], " ", "+", " ", 
     RowBox[{"4", "/", 
      RowBox[{"(", 
       RowBox[{"x", " ", "+", " ", "1"}], ")"}]}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.3949821473303747`*^9, 3.3949822371897497`*^9}, {
  3.3949823399866247`*^9, 3.3949823589397497`*^9}}],

Cell[TextData[StyleBox["",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727526421875*^9}, {3.3947510763933525`*^9, 
   3.3947511641589775`*^9}, {3.3947512042683525`*^9, 
   3.3947513069871025`*^9}, {3.3947566835027275`*^9, 3.3947566864558525`*^9}, 
   3.3947567495808525`*^9, {3.3947568497058525`*^9, 3.3947568537214775`*^9}, {
   3.3949386163928747`*^9, 3.3949386170647497`*^9}, 3.3949761356584997`*^9, {
   3.3949799637522497`*^9, 3.3949801161584997`*^9}, {3.3949802836741247`*^9, 
   3.3949803284397497`*^9}, 3.3949809128303747`*^9, 3.3949809640334997`*^9},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox[" In the next example ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" applies everything it knows about trigonometric identities to \
come up with a simpler form of the expression.  ",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727526421875*^9}, {3.3947510763933525`*^9, 
   3.3947511641589775`*^9}, {3.3947512042683525`*^9, 
   3.3947513069871025`*^9}, {3.3947566835027275`*^9, 3.3947566864558525`*^9}, 
   3.3947567495808525`*^9, {3.3947568497058525`*^9, 3.3947568537214775`*^9}, {
   3.3949386163928747`*^9, 3.3949386170647497`*^9}, 3.3949761356584997`*^9, {
   3.3949799637522497`*^9, 3.3949801161584997`*^9}, {3.3949802836741247`*^9, 
   3.3949803284397497`*^9}, 3.3949809128303747`*^9, {3.3949809698147497`*^9, 
   3.3949810338928747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Simplify the expression ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["cos", "4"], "(", "x", ")"}], "-", 
    RowBox[{
     SuperscriptBox["sin", "4"], "(", "x", ")"}]}], TraditionalForm]]],
 ". "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.39429499648*^9, 3.394294996808125*^9}, 
   3.394296047526875*^9, {3.394328943808125*^9, 3.394328982120625*^9}, {
   3.3948499024397497`*^9, 3.3948499755491247`*^9}, {3.3949297825022497`*^9, 
   3.3949297941741247`*^9}, {3.3949801536741247`*^9, 
   3.3949802459397497`*^9}, {3.397606688859375*^9, 3.397606694609375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "^", "4"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "^", "4"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3949783820491247`*^9, 3.3949785291584997`*^9}, {
  3.397606673*^9, 3.397606682578125*^9}}],

Cell[TextData[StyleBox["",
 CellFrame->0.5]], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727526421875*^9}, {3.3947510763933525`*^9, 
   3.3947511641589775`*^9}, {3.3947512042683525`*^9, 
   3.3947513069871025`*^9}, {3.3947566835027275`*^9, 3.3947566864558525`*^9}, 
   3.3947567495808525`*^9, {3.3947568497058525`*^9, 3.3947568537214775`*^9}, {
   3.3949386163928747`*^9, 3.3949386170647497`*^9}, 3.3949761356584997`*^9, {
   3.3949799637522497`*^9, 3.3949801161584997`*^9}, {3.3949802836741247`*^9, 
   3.3949803284397497`*^9}, 3.3949809128303747`*^9, 3.3949809640334997`*^9, {
   3.3949821367053747`*^9, 3.3949821446428747`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[TextData[{
 StyleBox["Adding an assumption to the Simplify command.",
  CellFrame->0.5,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox["\nA useful feature of the Simplify command is that it allows you \
to state assumptions about the variables. The syntax is Simplify[ expression, \
assumption ].  Notice how ",
  CellFrame->0.5],
 StyleBox["Mathematica",
  CellFrame->0.5,
  FontSlant->"Italic"],
 StyleBox[" responds to the next three input lines.",
  CellFrame->0.5]
}], "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.394559252433125*^9}, {3.39455930573*^9, 
   3.394559348151875*^9}, {3.394559628855*^9, 3.394559750308125*^9}, {
   3.394585106965913*^9, 3.3945852563421364`*^9}, {3.394726272171875*^9, 
   3.394726293125*^9}, {3.394726974734375*^9, 3.394727195203125*^9}, {
   3.394727261859375*^9, 3.394727526421875*^9}, {3.3947510763933525`*^9, 
   3.3947511641589775`*^9}, {3.3947512042683525`*^9, 
   3.3947513069871025`*^9}, {3.3947566835027275`*^9, 3.3947566864558525`*^9}, 
   3.3947567495808525`*^9, {3.3947568497058525`*^9, 3.3947568537214775`*^9}, {
   3.3949386163928747`*^9, 3.3949386170647497`*^9}, 3.3949761356584997`*^9, {
   3.3949799637522497`*^9, 3.3949801161584997`*^9}, {3.3949802836741247`*^9, 
   3.3949803284397497`*^9}, 3.3949809128303747`*^9, {3.3949809698147497`*^9, 
   3.3949810338928747`*^9}, {3.3949810640022497`*^9, 
   3.3949811486428747`*^9}, {3.3949812480178747`*^9, 
   3.3949812820647497`*^9}, {3.3949813253147497`*^9, 
   3.3949813592834997`*^9}, {3.3949814240803747`*^9, 3.3949814243772497`*^9}},
 
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  SqrtBox[
   RowBox[{"x", "^", "2"}]], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3949811607991247`*^9, 3.3949811935959997`*^9}, {
   3.398997838640625*^9, 3.39899785134375*^9}}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   SqrtBox[
    RowBox[{"x", "^", "2"}]], ",", " ", 
   RowBox[{"x", " ", ">", " ", "0"}]}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394327065776875*^9, 3.3943270666675*^9}, {3.394327950589375*^9, 
   3.39432796294875*^9}, {3.3949811607991247`*^9, 3.3949812237834997`*^9}, {
   3.39899784246875*^9, 3.398997855390625*^9}}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   SqrtBox[
    RowBox[{"x", "^", "2"}]], ",", " ", 
   RowBox[{"x", " ", "<", " ", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.3949812382366247`*^9, {3.3989978454375*^9, 3.398997859078125*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 3.6 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.3949093736272497`*^9, 
   3.396465130484375*^9, {3.400164076375*^9, 3.400164077140625*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183115732317`*^9, 
   3.397678461015625*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 "Have ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " simplify the expression ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"2", "x", " ", "y"}], " ", "+", 
     SuperscriptBox["y", "2"]}]], TraditionalForm]]],
 " twice. First without any assumptions, and then repeat with the added \
assumption that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "+", "y"}], ">", "0"}], TraditionalForm]]],
 ".  Can you explain the different outputs produced ? "
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.3949093811428747`*^9, 3.3949094180334997`*^9}, {3.39646513634375*^9, 
   3.39646521878125*^9}, 3.396465251609375*^9, {3.4001641119375*^9, 
   3.4001642184375*^9}, {3.400164268859375*^9, 3.40016434759375*^9}, {
   3.400164617015625*^9, 3.400164632703125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.400165035828125*^9, 3.400165037203125*^9}}],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, {3.3949094252053747`*^9, 3.3949094429084997`*^9}, 
   3.3949096890491247`*^9, 3.398996759203125*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 3.6A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.3949096817522497`*^9, 3.3949096821116247`*^9}, {3.396465223921875*^9, 
  3.396465224484375*^9}, {3.40016422434375*^9, 3.400164225515625*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397129755646875*^9, 3.397129764178125*^9}, {
  3.397143369303125*^9, 3.397143370178125*^9}, {3.39714394044375*^9, 
  3.397143961553125*^9}, {3.397145033584375*^9, 3.3971450364125*^9}, {
  3.39714507388125*^9, 3.397145074771875*^9}, {3.397146889271875*^9, 
  3.397146896084375*^9}, {3.39767813353125*^9, 3.397678138171875*^9}}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  SqrtBox[
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"2", "x", "*", " ", "y"}], "+", 
    RowBox[{"y", "^", "2"}]}]], "]"}]], "Input",
 CellChangeTimes->{{3.40001273878125*^9, 3.400012800265625*^9}, {
   3.400164262921875*^9, 3.400164263703125*^9}, 3.4003760880625*^9}],

Cell[TextData[{
 "Note that in general ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox[
     SuperscriptBox["n", "2"]], "=", "n"}], TraditionalForm]]],
 " if and only if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "\[GreaterEqual]", " ", "0"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox[
     SuperscriptBox["n", "2"]], "=", 
    RowBox[{"-", "n"}]}], TraditionalForm]]],
 " if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "<", "0"}], TraditionalForm]]],
 ".  Since we haven't told ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " whether the expression ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "+", "y"}], TraditionalForm]]],
 " is positive or negative, it cannot simplify the expression any further."
}], "Text",
 CellChangeTimes->{{3.400164426421875*^9, 3.40016449696875*^9}, {
  3.400164584296875*^9, 3.400164593390625*^9}, {3.400164690703125*^9, 
  3.400164867890625*^9}}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   SqrtBox[
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"2", "x", " ", "*", "y"}], "+", 
     RowBox[{"y", "^", "2"}]}]], ",", 
   RowBox[{
    RowBox[{"x", "+", "y"}], ">", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40001273878125*^9, 3.400012800265625*^9}, 
   3.400376091140625*^9}],

Cell[TextData[{
 "With the added information that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "+", "y"}], ">", "0"}], TraditionalForm]]],
 " , ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can now further simplify the expression. "
}], "Text",
 CellChangeTimes->{{3.400164426421875*^9, 3.40016449696875*^9}, {
  3.400164584296875*^9, 3.400164593390625*^9}, {3.400164690703125*^9, 
  3.40016490815625*^9}, {3.400164942671875*^9, 3.400164987890625*^9}}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lesson 4    \t\tFunctions", "Section",
 CellFrame->0.5,
 CellFrameColor->RGBColor[0, 0, 0],
 CellChangeTimes->{{3.3936938130904784`*^9, 3.393693846258171*^9}, {
  3.393694471657451*^9, 3.393694481721923*^9}, {3.393694524323181*^9, 
  3.393694550681082*^9}, {3.3936945850304737`*^9, 3.3936945906084943`*^9}, {
  3.3936950013791533`*^9, 3.393695005805518*^9}, {3.393702643228699*^9, 
  3.3937026489369073`*^9}, {3.3937026978672657`*^9, 3.3937027326973486`*^9}, {
  3.3937027870054398`*^9, 3.3937028137839456`*^9}, {3.394381217714375*^9, 
  3.39438122523*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->16,
 FontWeight->"Plain",
 Background->RGBColor[
  0.6901960784313725, 0.8235294117647058, 0.7019607843137254]],

Cell[CellGroupData[{

Cell[TextData[{
 "4.1\tHow to define a function in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, {3.394558805370625*^9, 
   3.394558827589375*^9}, {3.394559854339375*^9, 3.394559947245625*^9}, 
   3.3948255147991247`*^9, {3.394988366921875*^9, 3.39498837909375*^9}, 
   3.39498842975*^9, {3.394988638328125*^9, 3.39498864009375*^9}, {
   3.394992801796875*^9, 3.3949928213125*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.397218311651552*^9, 
   3.39767846103125*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 "In this section you will learn how to define your own functions in ",
 StyleBox["Mathematica. ",
  FontSlant->"Italic"],
 "As a first example, we will consider the linear function f(x) = 5 x + 13.  \
The ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " command to define this function is ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"5", "x"}], "+", "13"}]}]], "InlineFormula"],
 ". The ",
 Cell[BoxData["_"], "InlineFormula"],
 " (referred to as \[OpenCurlyDoubleQuote]blank\[CloseCurlyDoubleQuote]) on \
the left\[Hyphen]hand side is required.  Remember to put a ",
 Cell[BoxData["_"], "InlineFormula"],
 " on the left\[Hyphen]hand side, but not on the right\[Hyphen]hand side, of \
your definition.  Also note that we have used := instead of just =. "
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, 
   3.394988224921875*^9, {3.3949885149375*^9, 3.39498853365625*^9}, {
   3.3949890760625*^9, 3.3949890929375*^9}, {3.395665621671875*^9, 
   3.3956656615*^9}, {3.395665702953125*^9, 3.395665901984375*^9}, {
   3.396461349671875*^9, 3.39646137534375*^9}, {3.3990410955*^9, 
   3.399041111734375*^9}}],

Cell[TextData[{
 StyleBox["Define the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{
     RowBox[{"5", "x"}], "+", "13"}]}], TraditionalForm]]],
 StyleBox[".  Before you ",
  CellFrame->0.5],
 "evaluate",
 StyleBox[" the input cell notice that the function name is colored ",
  CellFrame->0.5],
 StyleBox["blue",
  CellFrame->0.5,
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[". This indicates that this function name has not yet been used.  ",
  
  CellFrame->0.5],
 StyleBox["As soon as you ",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox["evaluate",
  FontVariations->{"Underline"->True}],
 StyleBox[" the input",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox[" the f will turn ",
  CellFrame->0.5],
 StyleBox["black",
  CellFrame->0.5,
  FontVariations->{"Underline"->True}],
 StyleBox[" which will be a signal to you that the function f now has a \
definition. Later when we clear the function f, it will turn back to ",
  CellFrame->0.5],
 StyleBox["blue",
  CellFrame->0.5,
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[".  ",
  CellFrame->0.5]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394990000703125*^9, 3.39499021525*^9}, {
   3.397678902296875*^9, 3.397678909375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"5", "x"}], " ", "+", " ", "13"}]}]], "Input",
 CellChangeTimes->{{3.3949848418147497`*^9, 3.3949848531272497`*^9}, 
   3.395665552828125*^9, 3.396461386109375*^9, 3.398997545828125*^9}],

Cell[TextData[StyleBox["Enter f[x] to check that the function was defined \
properly. ",
 CellFrame->0.5]], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.394986729078125*^9, 3.39498673025*^9}, {
  3.39498676365625*^9, 3.394986764625*^9}}],

Cell["\<\
You can now use your function freely in any mathematical expression. Just \
remember to keep using square brackets. \
\>", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
  3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
  3.3949843483147497`*^9}, {3.3949847637991247`*^9, 3.3949847949553747`*^9}, {
  3.3949852121897497`*^9, 3.3949854192053747`*^9}, {3.394986656515625*^9, 
  3.394986681984375*^9}, {3.394986802390625*^9, 3.394986942828125*^9}}],

Cell[TextData[{
 StyleBox["Evaluate the function f when ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "5"}], TraditionalForm]]],
 ". "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.394986985421875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"f", "[", "5", "]"}]], "Input",
 CellChangeTimes->{{3.3949848636897497`*^9, 3.3949848831741247`*^9}, 
   3.394986868609375*^9, {3.3949869890625*^9, 3.394986989453125*^9}}],

Cell["\<\
Function names can be more than one letter and any variable can be used to \
make the definition.  \
\>", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
  3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
  3.3949843483147497`*^9}, {3.3949847637991247`*^9, 3.3949847949553747`*^9}, {
  3.3949852121897497`*^9, 3.3949854192053747`*^9}, {3.394986656515625*^9, 
  3.394986681984375*^9}, {3.394986802390625*^9, 3.394986942828125*^9}, {
  3.39499531378125*^9, 3.39499534859375*^9}}],

Cell[TextData[{
 StyleBox["Define the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"speed", "(", "t", ")"}], "=", 
    RowBox[{
     RowBox[{"200", 
      SuperscriptBox["t", "2"]}], "+", 
     RowBox[{"5", "t"}]}]}], TraditionalForm]]],
 ". Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"speed", "(", "4.5", ")"}], TraditionalForm]]]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.394986985421875*^9}, {3.394995365734375*^9, 
   3.394995434375*^9}, {3.3949954805*^9, 3.394995524203125*^9}, {
   3.397067850271875*^9, 3.397067857209375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"speed", "[", "t_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"200", 
    RowBox[{"t", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"5", "t"}]}]}]], "Input",
 CellChangeTimes->{{3.39499544171875*^9, 3.394995460265625*^9}, {
   3.394995528453125*^9, 3.39499552909375*^9}, 3.39566555896875*^9, 
   3.3964614195625*^9, {3.39706786485*^9, 3.397067865553125*^9}, {
   3.39899754584375*^9, 3.39899754584375*^9}}],

Cell[BoxData[
 RowBox[{"speed", "[", "4.5", "]"}]], "Input",
 CellChangeTimes->{{3.394995466703125*^9, 3.394995473390625*^9}, {
  3.394995532328125*^9, 3.39499553290625*^9}, {3.397067868475*^9, 
  3.3970678691*^9}}],

Cell[TextData[{
 StyleBox["Redefining a function",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 ".  \nIf you give f a new definition, the new definition will replace the \
former one. "
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949925256875*^9, 
   3.394992617359375*^9}, 3.394992842359375*^9, {3.3949929335625*^9, 
   3.39499294990625*^9}, 3.39499483990625*^9, {3.397606758046875*^9, 
   3.39760676128125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", " ", "*", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], " ", "+", " ", "7"}]}]], "Input",
 CellChangeTimes->{{3.394992954578125*^9, 3.39499302353125*^9}, 
   3.395665579875*^9, 3.39646142425*^9, 3.398997545859375*^9, {
   3.398999662609375*^9, 3.39899966971875*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.394993009484375*^9, 3.394993011984375*^9}, {
  3.398999657359375*^9, 3.39899966578125*^9}}],

Cell[TextData[{
 StyleBox["Clearing a function",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 ".  \nThe same Clear function that we used to clear variables works for \
functions.  "
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949925256875*^9, 
   3.394992617359375*^9}, 3.394992842359375*^9}],

Cell[TextData[{
 StyleBox["Clear the function f",
  CellFrame->0.5],
 ".  Note that as soon as the next line is ",
 "evaluate",
 "d, f is colored ",
 StyleBox["blue",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 " again since it is now free from any definition. "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.394986985421875*^9}, {3.394992626578125*^9, 
   3.394992699046875*^9}, {3.397606767140625*^9, 3.397606767578125*^9}, {
   3.397678925953125*^9, 3.397678938125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.39498994625*^9, 3.39498995553125*^9}, {
  3.39499263596875*^9, 3.394992639109375*^9}}],

Cell[TextData[StyleBox["Enter f[x] to confirm that the function is \
undefined.",
 CellFrame->0.5]], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.3949927414375*^9, 3.394992754046875*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.3949899615*^9, 3.394989962328125*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.1 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.394988499765625*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Define the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "(", "x", ")"}], "="}], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "3"], " ", "-", " ", 
    RowBox[{"5", " ", 
     SuperscriptBox["x", "2"]}]}], TraditionalForm]]],
 " and then evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"g", "(", "3.5", ")"}], TraditionalForm]]],
 "."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.394989552796875*^9, 3.394989627734375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, 3.398996759203125*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 4.1A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.3949896645625*^9, 3.394989665609375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "3"}], " ", "-", " ", 
   RowBox[{"5", 
    RowBox[{"x", "^", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.39472555390625*^9, 3.3947255898125*^9}, {
   3.39498959521875*^9, 3.394989600203125*^9}, {3.39498963153125*^9, 
   3.394989640375*^9}, 3.395665588828125*^9, 3.396461440125*^9, 
   3.398997545859375*^9}],

Cell[BoxData[
 RowBox[{"g", "[", "3.5", "]"}]], "Input",
 CellChangeTimes->{{3.394989648140625*^9, 3.394989650609375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.1 B",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, {3.39472525771875*^9, 
   3.394725257890625*^9}, {3.394725315046875*^9, 3.394725317734375*^9}, 
   3.39498850121875*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Define the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "="}], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"sin", "(", "x", ")"}], "x"], TraditionalForm]]],
 " and then evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    FractionBox["\[Pi]", "2"], ")"}], TraditionalForm]]],
 ".  Remember to use Sin[x] for sin(x). "
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.394989552796875*^9, 3.394989627734375*^9}, {3.394989744140625*^9, 
   3.39498977753125*^9}, {3.3949898299375*^9, 3.39498985503125*^9}, {
   3.396461449234375*^9, 3.39646145696875*^9}, {3.3970679206625*^9, 
   3.3970679284125*^9}, 3.399479984296875*^9},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, 3.39899675921875*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 4.1B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
  3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
  3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
  3.394725305734375*^9, 3.394725308125*^9}, {3.3956661176875*^9, 
  3.395666119046875*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], "/", "x"}]}]], "Input",
 CellChangeTimes->{{3.394989784375*^9, 3.39498980271875*^9}, 
   3.395665595765625*^9, {3.396461493421875*^9, 3.3964614996875*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"\[Pi]", "/", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.39498980978125*^9, 3.39498981465625*^9}, {
  3.3964614964375*^9, 3.396461496609375*^9}, {3.397067938990625*^9, 
  3.397067944709375*^9}, {3.398999684859375*^9, 3.398999686*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["4.2\tWorking with functions.", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, 3.394558786355*^9, {
   3.394558849558125*^9, 3.394558855870625*^9}, {3.3945603797925*^9, 
   3.394560380308125*^9}, 3.3945853551885486`*^9, 3.3948255172366247`*^9, {
   3.394988411890625*^9, 3.394988456171875*^9}, {3.39516762195827*^9, 
   3.3951676271639605`*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.39721831168288*^9, 
   3.397678461046875*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 "In this section we will present a few examples of how you can manipulate \
functions that you have defined in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
  3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
  3.3949843483147497`*^9}, {3.3949847637991247`*^9, 3.3949847949553747`*^9}, {
  3.3949852121897497`*^9, 3.3949854192053747`*^9}, {3.394986656515625*^9, 
  3.394986681984375*^9}, {3.394986802390625*^9, 3.394986942828125*^9}, {
  3.3949935755625*^9, 3.394993612796875*^9}, {3.3949949006875*^9, 
  3.39499490259375*^9}}],

Cell[TextData[StyleBox["Evaluating a function for a symbolic input.",
 FontWeight->"Bold",
 FontVariations->{"Underline"->True}]], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
  3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
  3.3949843483147497`*^9}, {3.3949847637991247`*^9, 3.3949847949553747`*^9}, {
  3.3949852121897497`*^9, 3.3949854192053747`*^9}, {3.394986656515625*^9, 
  3.394986681984375*^9}, {3.394986802390625*^9, 3.394986942828125*^9}, {
  3.3949935755625*^9, 3.394993612796875*^9}, {3.3949937616875*^9, 
  3.39499378028125*^9}, {3.394994071671875*^9, 3.394994162703125*^9}, {
  3.39499425703125*^9, 3.39499428659375*^9}, {3.39499432065625*^9, 
  3.394994431765625*^9}, {3.394995015921875*^9, 3.394995230375*^9}, {
  3.39499559121875*^9, 3.394995600484375*^9}, {3.394995887953125*^9, 
  3.394995891078125*^9}, {3.394996144859375*^9, 3.39499614659375*^9}, {
  3.39499620340625*^9, 3.39499624775*^9}}],

Cell[TextData[{
 StyleBox["Let's begin by defining the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"2", "x"}], "+", "5"}]}], TraditionalForm]]],
 ". "
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, {
   3.39499362115625*^9, 3.39499372528125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"2", "x"}], " ", "+", " ", "5"}]}]], "Input",
 CellChangeTimes->{{3.3949848663303747`*^9, 3.3949848901428747`*^9}, {
   3.394987015296875*^9, 3.394987026203125*^9}, {3.394993684171875*^9, 
   3.394993728375*^9}, 3.3956661595*^9, 3.39646150628125*^9, 
   3.398997545859375*^9}],

Cell[TextData[{
 StyleBox["Evaluate the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["f", TraditionalForm]]],
 StyleBox[" when ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    RowBox[{
     RowBox[{"2", "b"}], "+", "7"}]}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, 
   3.394993842734375*^9, 3.39499403365625*^9, {3.396461597640625*^9, 
   3.39646160053125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{
   RowBox[{"2", "b"}], " ", "+", " ", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949848663303747`*^9, 3.3949848901428747`*^9}, {
   3.394987015296875*^9, 3.394987026203125*^9}, {3.396461603*^9, 
   3.39646160325*^9}, 3.398997545875*^9}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "  has substituted the value for ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 ", but it has not expanded the resulting expression out. The following input \
does both operations in one step. "
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
  3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
  3.3949843483147497`*^9}, {3.3949847637991247`*^9, 3.3949847949553747`*^9}, {
  3.3949852121897497`*^9, 3.3949854192053747`*^9}, {3.394986656515625*^9, 
  3.394986681984375*^9}, {3.394986802390625*^9, 3.394986942828125*^9}, {
  3.3949935755625*^9, 3.394993612796875*^9}, {3.39499386440625*^9, 
  3.394994009703125*^9}, {3.394994050328125*^9, 3.394994063734375*^9}}],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"f", "[", 
   RowBox[{
    RowBox[{"2", "b"}], " ", "+", " ", "7"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949848663303747`*^9, 3.3949848901428747`*^9}, {
   3.394987015296875*^9, 3.394987026203125*^9}, {3.394987083484375*^9, 
   3.3949870849375*^9}, {3.396461605671875*^9, 3.396461605828125*^9}, 
   3.398997545875*^9}],

Cell[TextData[{
 StyleBox["Evaluate ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"x", "-", "1"}], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, 
   3.394993842734375*^9, 3.39499403365625*^9, {3.39499629921875*^9, 
   3.39499631440625*^9}, {3.394996350640625*^9, 3.394996354859375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"f", "[", 
   RowBox[{"x", " ", "-", " ", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.394996319859375*^9, 3.39499634375*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949949006875*^9, 3.39499492475*^9}, 
   3.394996278859375*^9, 3.394996382359375*^9, {3.399041257*^9, 
   3.399041260078125*^9}}],

Cell[TextData[{
 StyleBox["Composition of functions.\n",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 "If we define two or more functions we can combine then by arithmetic \
operations and/or by composition to define new functions. ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " allows us to do this easily. \nWe begin by defining three functions. "
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949937616875*^9, 3.39499378028125*^9}, {
   3.394994071671875*^9, 3.394994162703125*^9}, {3.39499425703125*^9, 
   3.39499428659375*^9}, {3.39499432065625*^9, 3.394994431765625*^9}, {
   3.394995015921875*^9, 3.394995230375*^9}, {3.39499559121875*^9, 
   3.394995600484375*^9}, {3.394995887953125*^9, 3.394995891078125*^9}, {
   3.394996144859375*^9, 3.39499614659375*^9}, 3.39597145400875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  SqrtBox["x"]}]], "Input",
 CellChangeTimes->{{3.394995663421875*^9, 3.394995687125*^9}, 
   3.394995787171875*^9, 3.395666165296875*^9, 3.3964615139375*^9, {
   3.398997994046875*^9, 3.398997997453125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", " ", "+", " ", "2"}]}]], "Input",
 CellChangeTimes->{{3.39499569128125*^9, 3.394995699421875*^9}, 
   3.39499578946875*^9, 3.3956661664375*^9, 3.396461517796875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"1", "/", "x"}]}]], "Input",
 CellChangeTimes->{{3.3949957070625*^9, 3.394995718125*^9}, 
   3.39499579234375*^9, 3.39566616821875*^9, 3.396461520765625*^9}],

Cell[TextData[{
 StyleBox["Find the composition ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"h", "(", "x", ")"}], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, {
   3.39499362115625*^9, 3.39499372528125*^9}, {3.394995927375*^9, 
   3.39499594440625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"h", "[", "x", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.394995724359375*^9, 3.394995731390625*^9}, {
  3.394995796265625*^9, 3.394995836578125*^9}}],

Cell[TextData[{
 StyleBox["Find the composition ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{"g", "(", 
    RowBox[{"f", "(", "x", ")"}], ")"}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, {
   3.39499362115625*^9, 3.39499372528125*^9}, {3.394995927375*^9, 
   3.3949959595*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"g", "[", 
  RowBox[{"f", "[", "x", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949957653125*^9, 3.39499580540625*^9}}],

Cell[TextData[{
 StyleBox["Define a new function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox["m", TraditionalForm]]],
 StyleBox[" as the composition ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"m", "(", "x", ")"}], "=", 
    RowBox[{"f", "(", 
     RowBox[{"g", "(", 
      RowBox[{"h", "(", "x", ")"}], ")"}], ")"}]}], TraditionalForm]]],
 ".  Then evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"m", "(", 
    FractionBox["1", "4"], ")"}], TraditionalForm]]]
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, {
   3.39499362115625*^9, 3.39499372528125*^9}, {3.394995927375*^9, 
   3.3949959595*^9}, {3.3949959928125*^9, 3.394996077140625*^9}, 
   3.394996172359375*^9, {3.396461568359375*^9, 3.3964615744375*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"f", "[", 
   RowBox[{"g", "[", 
    RowBox[{"h", "[", "x", "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.39499584234375*^9, 3.394995863171875*^9}, 
   3.39566617153125*^9, 3.39646153015625*^9, 3.3964615763125*^9}],

Cell[BoxData[
 RowBox[{"m", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.394995868140625*^9, 3.394995869171875*^9}, 
   3.3964615778125*^9}],

Cell[BoxData[
 RowBox[{"m", "[", 
  RowBox[{"1", "/", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949960809375*^9, 3.3949960889375*^9}, 
   3.39646158065625*^9}],

Cell["", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
  3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
  3.3949843483147497`*^9}, {3.3949847637991247`*^9, 3.3949847949553747`*^9}, {
  3.3949852121897497`*^9, 3.3949854192053747`*^9}, {3.394986656515625*^9, 
  3.394986681984375*^9}, {3.394986802390625*^9, 3.394986942828125*^9}, {
  3.3949935755625*^9, 3.394993612796875*^9}, {3.3949949006875*^9, 
  3.39499492475*^9}, {3.3949957031875*^9, 3.394995723125*^9}}],

Cell[TextData[{
 StyleBox["Computing the difference quotient.",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 "\nYou may recall that for any function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"f", "(", "x", ")"}]}], TraditionalForm]]],
 " the ",
 StyleBox["difference quotient",
  FontSlant->"Italic"],
 " is defined as: ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    FractionBox[
     RowBox[{
      RowBox[{"f", "(", 
       RowBox[{"x", "+", "h"}], ")"}], "-", 
      RowBox[{"f", "(", "x", ")"}]}], "h"],
    FontSize->16], TraditionalForm]]],
 ". Depending on the function, computing and simplifying this expression can \
be considerable work by hand.  Let's give this problem to ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949937616875*^9, 3.39499378028125*^9}, {
   3.394994071671875*^9, 3.394994162703125*^9}, {3.39499425703125*^9, 
   3.39499428659375*^9}, {3.39499432065625*^9, 3.394994431765625*^9}, {
   3.394995607046875*^9, 3.39499564678125*^9}, {3.394996115359375*^9, 
   3.39499611896875*^9}, 3.39706800081875*^9}],

Cell[TextData[{
 StyleBox["Find and simplify the difference quotient for the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"3", "x"}]}]}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, {
   3.39499362115625*^9, 3.39499372528125*^9}, {3.39499450253125*^9, 
   3.3949945585*^9}, 3.394994613828125*^9, {3.394994688015625*^9, 
   3.394994695203125*^9}, {3.395971587149375*^9, 3.3959715918525*^9}, {
   3.408750508033643*^9, 3.4087505084722347`*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"3", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.395971527493125*^9, 3.39597154329*^9}, {
   3.395971597415*^9, 3.395971597555625*^9}, 3.39646164921875*^9, 
   3.398997545890625*^9}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", " ", "+", " ", "h"}], "]"}], " ", "-", " ", 
     RowBox[{"f", "[", "x", "]"}]}], ")"}], "/", "h"}], "]"}]], "Input",
 CellChangeTimes->{{3.3949848663303747`*^9, 3.3949848901428747`*^9}, {
   3.394987015296875*^9, 3.394987026203125*^9}, {3.394987083484375*^9, 
   3.3949870849375*^9}, {3.394993712515625*^9, 3.394993721765625*^9}, {
   3.3949944448125*^9, 3.39499447190625*^9}, 3.394995607046875*^9}],

Cell[TextData[{
 StyleBox["Find and simplify the difference quotient for the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "(", "x", ")"}], "=", 
    SuperscriptBox["x", "3"]}], TraditionalForm]]],
 "."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, {
   3.39499362115625*^9, 3.39499372528125*^9}, {3.39499450253125*^9, 
   3.3949945585*^9}, 3.394994613828125*^9, {3.394994688015625*^9, 
   3.394994695203125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", "^", "3"}]}]], "Input",
 CellChangeTimes->{{3.39499456709375*^9, 3.394994609296875*^9}, 
   3.39499467903125*^9, 3.3956661765625*^9, 3.396461654734375*^9}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"x", " ", "+", " ", "h"}], "]"}], " ", "-", " ", 
     RowBox[{"g", "[", "x", "]"}]}], ")"}], "/", "h"}], "]"}]], "Input",
 CellChangeTimes->{{3.394994634796875*^9, 3.394994637453125*^9}}],

Cell["", "Text",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394558595683125*^9, 3.39455862623*^9}, {
   3.39455893326125*^9, 3.39455915601125*^9}, 3.394559211276875*^9, {
   3.394559423276875*^9, 3.394559430245625*^9}, {3.39455952207375*^9, 
   3.394559549339375*^9}, {3.39455958273*^9, 3.3945595827925*^9}, {
   3.394572109964375*^9, 3.394572113683125*^9}, {3.3945853636517467`*^9, 
   3.3945853758088264`*^9}, {3.39466311484375*^9, 3.394663125*^9}, {
   3.394725498484375*^9, 3.394725506359375*^9}, {3.394725846125*^9, 
   3.394725903921875*^9}, {3.3947259371875*^9, 3.39472610390625*^9}, {
   3.3947261433125*^9, 3.394726147453125*^9}, {3.3948852336897497`*^9, 
   3.3948852378616247`*^9}, {3.3948935735803747`*^9, 
   3.3948936236272497`*^9}, {3.3948936617678747`*^9, 
   3.3948937503616247`*^9}, {3.3948937991272497`*^9, 
   3.3948939086272497`*^9}, {3.3948941020178747`*^9, 
   3.3948941570803747`*^9}, {3.3948941878459997`*^9, 
   3.3948941905959997`*^9}, {3.3948944415647497`*^9, 3.3948946743459997`*^9}, 
   3.394988603640625*^9},
 FontFamily->"Comic Sans MS"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.2 A",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
  3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
  3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
  3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
  3.394473390605*^9}, {3.394476997495625*^9, 3.394477004401875*^9}, {
  3.397677048515625*^9, 3.397677048828125*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Evaluate and expand ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"5", "-", "m"}], ")"}], TraditionalForm]]],
 " where ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]]],
 " is the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "t", ")"}], "=", 
    RowBox[{
     SuperscriptBox["t", "3"], "-", 
     RowBox[{"2", "t"}], "+", "4"}]}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.39447704369875*^9, 3.39447710582375*^9}, {3.39767708646875*^9, 
   3.397677154546875*^9}, {3.397677256109375*^9, 3.397677258125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183115732317`*^9, 
   3.397678461015625*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.3976771615*^9, 3.39767716371875*^9}, 
   3.398996759234375*^9}],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, {3.3944770779175*^9, 3.394477116026875*^9}, 
   3.39899675925*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 4.2 A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.394477017558125*^9, 3.394477020370625*^9}, 
   3.39447735551125*^9, {3.397677323796875*^9, 3.397677324765625*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397677279984375*^9, 3.397677283296875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "t_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"t", "^", "3"}], " ", "-", " ", 
   RowBox[{"2", "t"}], " ", "+", " ", "4"}]}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662813359375*^9, 3.394662820546875*^9}, {
   3.397677173828125*^9, 3.39767719409375*^9}, 3.398997545890625*^9}],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"f", "[", 
   RowBox[{"5", " ", "-", " ", "m"}], "]"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662813359375*^9, 3.394662820546875*^9}, {
   3.397677173828125*^9, 3.39767723465625*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.2 B",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, {3.3944770004175*^9, 3.39447700713625*^9}, 
   3.397677056171875*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Define the functions ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    SqrtBox[
     RowBox[{"x", "+", "2"}]]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "-", "1"}]}], TraditionalForm]]],
 ". Then evaluate and simplify each of the following compositions:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"g", "(", "x", ")"}], ")"}], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   RowBox[{"g", "(", 
    RowBox[{"f", "(", "x", ")"}], ")"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"g", "(", 
    RowBox[{"g", "(", "x", ")"}], ")"}], TraditionalForm]]],
 ". "
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.39466286796875*^9, 3.394662886421875*^9}, {3.3976773391875*^9, 
   3.3976774753125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.39767765903125*^9, 3.397677662859375*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.39899675925*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.39899675925*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.398996759265625*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.398996759265625*^9}],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, 3.39466283978125*^9, 3.398996759265625*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 4.2 B",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.39447702857375*^9, 3.394477031589375*^9}, 
   3.39447736182375*^9, {3.397677791984375*^9, 3.397677792359375*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397677527484375*^9, 3.397677530671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  SqrtBox[
   RowBox[{"x", "+", "2"}]]}]], "Input",
 CellChangeTimes->{
  3.397677514109375*^9, {3.398998017953125*^9, 3.3989980245625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "-", " ", "1"}]}]], "Input",
 CellChangeTimes->{{3.397677521109375*^9, 3.397677545046875*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"g", "[", "x", "]"}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662894171875*^9, 3.39466289940625*^9}, {
   3.39767748528125*^9, 3.397677518234375*^9}, {3.397677551234375*^9, 
   3.397677555953125*^9}}],

Cell[BoxData[
 RowBox[{"g", "[", 
  RowBox[{"f", "[", "x", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.397677571296875*^9, 3.397677574734375*^9}}],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"g", "[", 
   RowBox[{"g", "[", "x", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.397677594953125*^9, 3.39767760909375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.2 C",
 FontSlant->"Italic"]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.39447274263625*^9, 3.394472743683125*^9}, {3.39447339013625*^9, 
   3.394473390605*^9}, {3.394476997495625*^9, 3.394477004401875*^9}, 
   3.3949354368616247`*^9, 3.39767705884375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->12,
 FontSlant->"Italic",
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Find ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", 
     RowBox[{"x", "+", "h"}], ")"}], "-", 
    RowBox[{"f", "(", 
     RowBox[{"x", "-", "h"}], ")"}]}], TraditionalForm]]],
 " for the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{
     RowBox[{"3", "x"}], "+", "5"}]}], TraditionalForm]]],
 ".  Simplify answer as much as possible."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.394472795355*^9, 
   3.394472819058125*^9}, {3.394473298855*^9, 3.39447336976125*^9}, {
   3.39447704369875*^9, 3.39447710582375*^9}, {3.3949354527522497`*^9, 
   3.3949354690959997`*^9}, {3.397677717609375*^9, 3.39767777590625*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397677907421875*^9, 3.397677910546875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.39899675928125*^9}],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.394472823355*^9, 3.394472831120625*^9}, {
   3.394473313355*^9, 3.394473321495625*^9}, {3.3944733781675*^9, 
   3.394473381714375*^9}, {3.3944770779175*^9, 3.394477116026875*^9}, 
   3.39899675928125*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 4.2 C",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.394472862855*^9, 3.39447286507375*^9}, {3.3944733870425*^9, 
   3.394473387651875*^9}, {3.394477017558125*^9, 3.394477020370625*^9}, 
   3.39447735551125*^9, 3.3949354421897497`*^9, 3.3976777834375*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"3", "x"}], " ", "+", " ", "5"}]}]], "Input",
 CellChangeTimes->{{3.39767781290625*^9, 3.397677821140625*^9}, 
   3.398997545890625*^9}],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", " ", "+", " ", "h"}], "]"}], " ", "-", " ", 
   RowBox[{"f", "[", 
    RowBox[{"x", " ", "-", " ", "h"}], "]"}]}], "]"}]], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394329195151875*^9, 3.394329224901875*^9}, {3.394329937151875*^9, 
   3.3943299641675*^9}, {3.394472871401875*^9, 3.39447287713625*^9}, 
   3.3944734004175*^9, {3.394662813359375*^9, 3.394662820546875*^9}, {
   3.3949354792991247`*^9, 3.3949354862834997`*^9}, {3.397677800890625*^9, 
   3.397677848921875*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["4.3\tCreating a table of values -- The Table command", "Subsection",
 CellFrame->{{0, 0}, {0.5, 0.5}},
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295677245625*^9, 3.39429567923*^9}, {
   3.39429735526125*^9, 3.394297369683125*^9}, {3.394298164105*^9, 
   3.39429816569875*^9}, {3.394298228839375*^9, 3.394298243964375*^9}, {
   3.394331018105*^9, 3.394331037245625*^9}, {3.394332947151875*^9, 
   3.394333007464375*^9}, {3.394382216339375*^9, 3.394382217651875*^9}, {
   3.394558579964375*^9, 3.394558589651875*^9}, 3.394558786355*^9, {
   3.394558849558125*^9, 3.394558855870625*^9}, {3.3945603797925*^9, 
   3.394560380308125*^9}, 3.3945853551885486`*^9, 3.3948255172366247`*^9, {
   3.394988411890625*^9, 3.394988456171875*^9}, {3.3951494013665*^9, 
   3.395149453444625*^9}},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397177378053125*^9, 3.39717740694375*^9}, {
   3.397177488475*^9, 3.397177493771875*^9}, 3.3972183117298717`*^9, 
   3.397678461046875*^9},
 Background->RGBColor[1., 1., 0.8235294117647058]],

Cell[TextData[{
 "We can use the Table command to create a table of values for one or more \
functions. \nThe basic syntax is:   ",
 StyleBox["Table[ { x, f[x] } , { x, start, end, increment} ]",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949949006875*^9, 3.39499492475*^9}, 
   3.394996278859375*^9, 3.394996382359375*^9, {3.395149503694625*^9, 
   3.395149536850875*^9}, {3.395149774413375*^9, 3.395149824913375*^9}}],

Cell[TextData[{
 StyleBox["Create a table of values for the function ",
  CellFrame->0.5],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "-", 
     RowBox[{"5", "x"}], "+", "3"}]}], TraditionalForm]]],
 " for ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " values from 0 to 3 in increments of 0.2 ."
}], "Item",
 CellFrame->None,
 CellFrameColor->Automatic,
 CellChangeTimes->{{3.3936943905508256`*^9, 3.393694402608163*^9}, {
   3.3937038213026867`*^9, 3.3937038217032623`*^9}, {3.394293294308125*^9, 
   3.394293296401875*^9}, {3.394295727901875*^9, 3.39429572882375*^9}, 
   3.394297916651875*^9, {3.394412599901875*^9, 3.394412906026875*^9}, {
   3.394413015964375*^9, 3.39441302232375*^9}, {3.3944131440425*^9, 
   3.39441334723*^9}, {3.39441348523*^9, 3.39441349748*^9}, {3.39441422273*^9,
    3.394414228964375*^9}, {3.39447198419875*^9, 3.39447209732375*^9}, 
   3.3944721534175*^9, {3.394473510433125*^9, 3.3944735305425*^9}, {
   3.39457191101125*^9, 3.39457197573*^9}, {3.39471779815625*^9, 
   3.39471792471875*^9}, {3.394717980921875*^9, 3.394717983484375*^9}, {
   3.3949848188459997`*^9, 3.3949848362053747`*^9}, {3.3949854432991247`*^9, 
   3.3949854664084997`*^9}, {3.394986739828125*^9, 3.394986760296875*^9}, {
   3.394986955484375*^9, 3.39498707225*^9}, {3.394987107671875*^9, 
   3.3949871135*^9}, {3.394988288375*^9, 3.394988289890625*^9}, 
   3.394993842734375*^9, 3.39499403365625*^9, {3.395149848132125*^9, 
   3.39514990127275*^9}, {3.397070500771875*^9, 3.3970705014125*^9}, {
   3.397070654271875*^9, 3.397070656975*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "-", " ", 
   RowBox[{"5", "x"}], " ", "+", " ", "3"}]}]], "Input",
 CellChangeTimes->{{3.3951495432415*^9, 3.395149641975875*^9}, 
   3.3964617215*^9, 3.39899754590625*^9}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "3", ",", " ", "0.2"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.39514964633525*^9, 3.3951496859915*^9}, {
  3.3951499344915*^9, 3.395149942007125*^9}, {3.3970705046*^9, 
  3.397070505146875*^9}, {3.39707066094375*^9, 3.3970706676*^9}}],

Cell["\<\
For a vertical display, we can apply either the TableForm or Grid command. \
\>", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949949006875*^9, 3.39499492475*^9}, 
   3.394996278859375*^9, 3.394996382359375*^9, {3.395149503694625*^9, 
   3.395149536850875*^9}, {3.395149774413375*^9, 3.395149824913375*^9}, {
   3.39514996089775*^9, 3.39514999202275*^9}, {3.395150477694625*^9, 
   3.395150499194625*^9}, {3.396461686671875*^9, 3.39646170546875*^9}, {
   3.396461824578125*^9, 3.396461831640625*^9}, {3.396461941796875*^9, 
   3.396461952203125*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "3", ",", " ", "0.2"}], "}"}]}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.39514964633525*^9, 3.3951496859915*^9}, {
  3.3951499344915*^9, 3.395149942007125*^9}, {3.395150013304*^9, 
  3.3951500146165*^9}, {3.396446954058268*^9, 3.396446956961628*^9}, {
  3.39646170909375*^9, 3.396461715796875*^9}, {3.39646183515625*^9, 
  3.3964618365*^9}, {3.39646196065625*^9, 3.396461963515625*^9}, {
  3.397070537084375*^9, 3.3970705379125*^9}, {3.397070674021875*^9, 
  3.39707067725625*^9}}],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "3", ",", " ", "0.2"}], "}"}]}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.39514964633525*^9, 3.3951496859915*^9}, {
  3.3951499344915*^9, 3.395149942007125*^9}, {3.395150013304*^9, 
  3.3951500146165*^9}, {3.396446954058268*^9, 3.396446956961628*^9}, {
  3.39646170909375*^9, 3.396461715796875*^9}, {3.39646183515625*^9, 
  3.3964618365*^9}, {3.39707054344375*^9, 3.397070544053125*^9}, {
  3.39707068331875*^9, 3.397070685428125*^9}}],

Cell["\<\
If you want more of a spreadsheet look you could try the following.\
\>", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949949006875*^9, 3.39499492475*^9}, 
   3.394996278859375*^9, 3.394996382359375*^9, {3.395149503694625*^9, 
   3.395149536850875*^9}, {3.395149774413375*^9, 3.395149824913375*^9}, {
   3.39514996089775*^9, 3.39514999202275*^9}, {3.395150477694625*^9, 
   3.395150499194625*^9}, {3.396461686671875*^9, 3.39646170546875*^9}, {
   3.396461824578125*^9, 3.396461831640625*^9}, {3.396461941796875*^9, 
   3.396461952203125*^9}, {3.3964619839375*^9, 3.396462030140625*^9}}],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "3", ",", " ", "0.2"}], "}"}]}], 
    "]"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.39514964633525*^9, 3.3951496859915*^9}, {
  3.3951499344915*^9, 3.395149942007125*^9}, {3.395150013304*^9, 
  3.3951500146165*^9}, {3.396446954058268*^9, 3.396446956961628*^9}, {
  3.39646170909375*^9, 3.396461811875*^9}, {3.39646200275*^9, 
  3.396462011421875*^9}, {3.39707054994375*^9, 3.397070550615625*^9}, {
  3.3970705816625*^9, 3.397070591115625*^9}, {3.3970706242875*^9, 
  3.397070643740625*^9}, {3.397070693553125*^9, 3.3970706954125*^9}}],

Cell["\<\
The Table command allows us to evaluate more than one function. The next \
command produces the square, cube, fourth and fifth powers of the integers \
from 1 to 20. \
\>", "Text",
 CellChangeTimes->{{3.3949838351272497`*^9, 3.3949838616584997`*^9}, {
   3.3949838926272497`*^9, 3.3949839706897497`*^9}, {3.3949840589553747`*^9, 
   3.3949843483147497`*^9}, {3.3949847637991247`*^9, 
   3.3949847949553747`*^9}, {3.3949852121897497`*^9, 
   3.3949854192053747`*^9}, {3.394986656515625*^9, 3.394986681984375*^9}, {
   3.394986802390625*^9, 3.394986942828125*^9}, {3.3949935755625*^9, 
   3.394993612796875*^9}, {3.3949949006875*^9, 3.39499492475*^9}, 
   3.394996278859375*^9, 3.394996382359375*^9, {3.395149503694625*^9, 
   3.395149536850875*^9}, {3.395149774413375*^9, 3.395149824913375*^9}, {
   3.39514996089775*^9, 3.39514999202275*^9}, {3.39515003302275*^9, 
   3.395150050679*^9}, {3.395150267429*^9, 3.39515026789775*^9}, {
   3.395150335100875*^9, 3.395150341069625*^9}, {3.395971668868125*^9, 
   3.395971716805625*^9}}],

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"x", "^", "2"}], ",", " ", 
      RowBox[{"x", "^", "3"}], ",", " ", 
      RowBox[{"x", "^", "4"}], ",", " ", 
      RowBox[{"x", "^", "5"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1", ",", " ", "20", ",", " ", "1"}], "}"}]}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.39514969846025*^9, 3.395149742007125*^9}, {
  3.395149998319625*^9, 3.395150004163375*^9}, {3.3951500589915*^9, 
  3.39515013402275*^9}, {3.395150279069625*^9, 3.39515031246025*^9}, {
  3.396461920828125*^9, 3.39646193346875*^9}, {3.39646205890625*^9, 
  3.396462079125*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.3 A",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.394988499765625*^9, 
   3.397679093*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Create a table of values for the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    SqrtBox[
     RowBox[{
      RowBox[{"2", "x"}], "-", "3.5"}]]}], TraditionalForm]]],
 " for the following values of ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 ": 10, 15, 20, 25, 30, 35, 40, and 45."
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9}, 3.3943292140425*^9, {
   3.39432924576125*^9, 3.394329246355*^9}, {3.3947247590625*^9, 
   3.394724811921875*^9}, {3.39472485296875*^9, 3.394724884984375*^9}, {
   3.394989552796875*^9, 3.394989627734375*^9}, {3.397679129140625*^9, 
   3.39767921809375*^9}, {3.397679391*^9, 3.397679444953125*^9}},
 FontFamily->"Comic Sans MS"],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.39767923365625*^9, 3.397679237140625*^9}, {
  3.39767945721875*^9, 3.3976794573125*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.3976792238125*^9, 3.39767922959375*^9}, 
   3.397679365015625*^9, 3.398996759296875*^9}],

Cell[BoxData[""], "Input",
 CellFrame->0.5,
 CellFrameColor->RGBColor[1, 0, 0],
 CellChangeTimes->{{3.393703864184347*^9, 3.3937038660970974`*^9}, 
   3.39429581701125*^9, {3.394306420433125*^9, 3.39430643882375*^9}, {
   3.394306516151875*^9, 3.394306548558125*^9}, {3.39432918282375*^9, 
   3.3943291831675*^9}, {3.39449440063625*^9, 3.394494412183125*^9}, {
   3.39455074419875*^9, 3.394550747745625*^9}, {3.394725523859375*^9, 
   3.39472553759375*^9}, 3.398996759296875*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Answer to ",
  FontSize->10],
 StyleBox["Exercise 4.3A",
  FontSize->10,
  FontSlant->"Italic"]
}], "Subsubsubsubsection",
 CellFrame->None,
 CellDingbat->None,
 ShowGroupOpener->True,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.39429295526125*^9, 3.394292955995625*^9}, {
   3.39429337701125*^9, 3.394293380964375*^9}, {3.394300655308125*^9, 
   3.394300657714375*^9}, {3.3943291901675*^9, 3.394329190464375*^9}, {
   3.3949896645625*^9, 3.394989665609375*^9}, 3.3976790990625*^9},
 FontFamily->"Comic Sans MS",
 FontSize->9,
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[BoxData[
 RowBox[{"ClearNames", "[", "]"}]], "Input",
 CellChangeTimes->{{3.397679244703125*^9, 3.397679249390625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  SqrtBox[
   RowBox[{
    RowBox[{"2", "x"}], " ", "-", " ", "3.5"}]]}]], "Input",
 CellChangeTimes->{{3.39472555390625*^9, 3.3947255898125*^9}, {
   3.39498959521875*^9, 3.394989600203125*^9}, {3.39498963153125*^9, 
   3.394989640375*^9}, 3.395665588828125*^9, 3.396461440125*^9, {
   3.39767925375*^9, 3.39767926171875*^9}, 3.397679442*^9, 
   3.39899754590625*^9, {3.398998041546875*^9, 3.398998046578125*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "10", ",", " ", "45", ",", " ", "5"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.394989648140625*^9, 3.394989650609375*^9}, {
  3.39767926484375*^9, 3.397679298859375*^9}, {3.397679349140625*^9, 
  3.397679357171875*^9}, {3.39767943196875*^9, 3.397679434859375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise 4.3 B",
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontVariations->{"Underline"->False}]], "Subsubsubsection",
 CellDingbat->None,
 ShowGroupOpener->True,
 CellChangeTimes->{{3.394295963808125*^9, 3.39429597588625*^9}, {
   3.394298058058125*^9, 3.39429806344875*^9}, {3.3942981760425*^9, 
   3.39429818444875*^9}, {3.39432913019875*^9, 3.394329130558125*^9}, {
   3.394724749828125*^9, 3.39472475190625*^9}, 3.394988499765625*^9, 
   3.397679093*^9, 3.398047141802375*^9},
 FontFamily->"Comic Sans MS",
 FontWeight->"Plain",
 FontSlant->"Italic",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[
  0.25882352941176473`, 0.41568627450980394`, 0.5333333333333333]],

Cell[TextData[{
 "Create a table of values for the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    FractionBox[
     RowBox[{"sin", "(", "x", ")"}], "x"]}], TraditionalForm]]],
 " for the following values of ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 ": ",
 Cell[BoxData[
  FormBox[
   RowBox[{
   "1", ",", ".9", ",", ".8", ",", ".7", ",", ".6", ",", ".5", ",", ".4", ",",
     ".3", ",", ".2", ",", ".1"}], TraditionalForm]]]
}], "Text",
 CellFrame->None,
 CellFrameColor->RGBColor[0.6, 0.4, 0.2],
 CellChangeTimes->{{3.393702970639493*^9, 3.393702974324792*^9}, {
   3.3937037957960095`*^9, 3.3937038244071503`*^9}, {3.39429326423*^9, 
   3.394293304855*^9}, {3.394293613839375*^9, 3.39429364519875*^9}, 
   3.394295979526875*^9, {3.394296547495625*^9, 3.39429656301125*^9}, {
   3.39432914144875*^9, 3.394329177714375*^9