(* 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[     28666,        617]
NotebookOptionsPosition[     27895,        586]
NotebookOutlinePosition[     28375,        606]
CellTagsIndexPosition[     28332,        603]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Lesson 10  Answers  -  Two-Dimensional Plots (Part II)", "Section",
 CellChangeTimes->{
  3.4612562964071407`*^9, {3.4614189256292973`*^9, 3.461418929565085*^9}, {
   3.466013250414542*^9, 3.4660132608313293`*^9}}],

Cell[TextData[{
 "1) Find a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " command to make the following graph of the cosine function. You will need \
the ",
 StyleBox["Background", "Input",
  FontWeight->"Bold"],
 " command. All the text is 18pt Times Italic, except the title which is \
24pt."
}], "Text",
 CellChangeTimes->{
  3.418340975180147*^9, {3.461603600768251*^9, 3.461603602136752*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"xticks", "=", 
   RowBox[{"Range", "[", 
    RowBox[{
     RowBox[{"Pi", "/", "2"}], ",", 
     RowBox[{"2", "Pi"}], ",", 
     RowBox[{"Pi", "/", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yticks", "=", 
   RowBox[{"Range", "[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", ".5"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Cos", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"xticks", ",", "yticks"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "White", ",", "Dashed"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"2", "Pi"}], "+", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"18", ",", "Italic"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Arrowheads", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.03"}], "}"}], "]"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<x\>\""}], "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", "Green"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<x=cos \[Theta]\>\"", ",", "24", ",", 
      RowBox[{"Background", "\[Rule]", "Red"}]}], "]"}]}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.461603690448103*^9, 3.4616037297209187`*^9}, {
  3.461603804847823*^9, 3.4616038135928497`*^9}, {3.461603848940177*^9, 
  3.461604292182685*^9}, {3.461604345775968*^9, 3.4616043522547417`*^9}, {
  3.461604416652972*^9, 3.4616044169388037`*^9}, {3.461604470911602*^9, 
  3.461604578069133*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[1], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[CompressedData["
1:eJw12Xk01N//B3C7GVvZh7KWkqQ+WVrQfaVSKNFC2SpFkgolfaRFJdpkT/qE
FlkKyZ50kUqSlCVLCiHLzFx7Ic33+p3zm3/mPM7MOe/3fb2erzvzPnfbMVcN
Nz4+PgE+Pv6cmfc1QYY/asSwICK8mVc+2hOlavyyT4v6zxwxIyF0LLL5wNKn
k9SDXkcKCpB/pnQDGs+m/jq6xOkuOheZ/9tDrpu67NmWjkJ0sThTslLpOnXC
o4Y+fRSSyZfopP2I+vinD5Oe6FrS9mWDK0qp1+pDUDu6GZlcfsm8hVrk/apP
a1FEeaCOhA693t+K25Vqe1BUcbJv4/IQ6oCEqdDFKCa3pjhptRy1dkuPRB66
lfFbyHPtPUSmP265E7UA3U7R2GJgoUd95Nc/Pc/RnSTLmL82xdRCX0oLMEqM
vLswck8DIn/mrFkmcRQlvf6xUk+frmcqvsLiUAW6V+7/NWqFP7VMUPWvBvSg
+J6WMxJCZKL/we2l3ehhoeG7crMqaivGopYJlJxbdXSheQQivx88zC1sRykZ
I/lD1qqI/DK97Ny1HqWmhzra2XYhMn72fd3uhSgtZS6veOdjRMYKLYa2RqPH
Seabgp1XIjIqO9j3gx9lRca1KHltQ2TwCLlxMx893RiL0UoJRIg3b6L4IXr6
ukPap2gQEa6X5esOG5Rd7pfXWJKPCNsq/EylIcopTvib9HodIj+f/KjLWIpy
V/XZ1G1cgEiPT028jBzKLdR/IPxODJFuvbHBsViUl1u50bO6FpHOiKnr+6+h
goyhcIN6Z0S+Tg6E1jigQl3jzoN2gEhr0Kv69h5UmH7Z4HbTfERa+FodOgJQ
UYpy09/WfkQaf767sdYTFSet16j8QetXuytjre41hCNjc5yGaX3K3nDKL69B
pZKlJvHyNxDBKZ4Tpx1Q6TZDteDsz4iUnK3zsbNEpa2q3U79jogUyXgkRKxE
ZexhH3HHo4hkVed93WCDKmbfDvUwjUbkTtjx2iffUMVOqcPbm5sRiWsbbX5Z
hipuX7RGJ2n9Y+d7GdfrodeaR+QUMlMQCY9duzgzAr0xgMTXas8RCZaMX7ql
B1Xa/yzQ5P+OiJdVxU8VNVT5n1O8ZAJd3yFxqcdP/0OV7Z8CJ1Z7IOJW5uQ/
xxq9O1RsVus7jMgeWdFe0Vuo6nRYzdkumg9byyLtv3aoOtGwu/WNDiIGEm4b
ncJR7XEzMcvXxog73H5Yv00F1Uat+Piofjbicqtvv3IqRrU5S2IEOrsQtz9b
OvyFOaodUVIr5gtD3E7Xdh5JQJ98Bw0XG3ci7ifPufZRfuizb8Je8WehiJsp
OuqbdBHV+0zmVSc2Iu6+K2Lsp46oPmLwtHbmY8R1On9h/2kTVJ/dA5dKziOu
vffBqGouqh/69N6kdRHibll1fumbQ6jBJ7U9QyEQcVf6SGmNjaNGH3vxGzfm
Ia7kybKXU+6oyTtnn3WAN+Jk98xKCFFGTeGMVJOjlojzRLzjMDcGNWU5Ex3X
eYjzSCf26mIX1MRlnBGxaESc+G1PXSS3oObDznEvlUwR58KWqg2q/KjFXbR2
SaEY4tgMtmZ1T6Kvjk5IYiwZsXtHh+/fXIna5wmEuRUeQWwha4c1nSqo3YBf
3ZbO88AfuR3PY66j9vW8ZybNg2hg5LNncn0sanf/0yg7dQIN/DAaVhVxRu3p
v1TK1wSggbJ72fZSgDqWD2SoVlxGA2f4REx+e6JOs/r3X2qTUD9naGGWnTvq
ck1hWvTWo74iQ5tZVZ2od3c+3/jSq+inbuBNS8FsxE4ujalc7IO6BMol86dc
0ODRtszD+ydR+41JzXXP9NGwe7iNXYkrapk/69+eqBNoNLS0tH5oP/o838Hj
Qp8RGr/86FjBsuuo4tXsIaNf1uh3wKUVBaUC6CHHzW0y+iyajPteY6UjjQvc
euMNHFvRn8jBB2aJm/B72xOZRztl0N+Cc+bVRBE3dGb1JK7uA75DgvzP38bj
tmhc31/zDvgPqPPWqpjgzgXHh3/Yu4LAiTNds9sX4+5A5pHrJv+CoG+eh0xq
Bu5du//ki656EPQXXIsbLuHezfFVAU8UQfC07ZwjAk641/69fIJ9JwheZNe8
dRLDvUcVgrWYCiAYM98wcJY77o3fdYx/OAYEC6IEuk+q496h4AebJoJB8I/3
3cJ10bgv/lhyuBo/CF1eXOf8LRD3NzSXz387CEJX3e6abhzF/d/Fl+mpD4BQ
WOLBudleuL/XUPX7CSkQuiUz2XrJEfdP+p7gH2oHoZRJzd06q/GAamS+vjqA
0LtKnx1+E3jA7aBH7BIbEJZ0m2UleRIPcGwObi9/CcLSCc06J7l4YOyGmpbe
bhCWb3rAbHfHA9PlzL5LfCCsutmoMscOs6Xkjs3fYw/CS/VdzHcbYrae48qP
qotA2JY/Y+3DUcw+crTu6pxcEI5OsFpp4oPZ3Qnc1glBEI67eS76KB9ms/dd
Hw+vA+H/zucMJoZh9oiKlmxXHwg/3D83TSAdc/jOmdTYXgDh3IVcpcpOzFHm
fu35EgnCddnhUzt3YI51QIDnSxUQkalofHnUCHOernS0CTABEYV8ceXECszJ
V1ymEXcVRJRT0MlP2zCnmPth0u01iGheSV1qcBRz3obuYbGcQGS59b+JkymY
8+1AVtGxfBCxbZobFMLCXLHSRuHODyASPuC6PnESc52nieK3WBCJ+SfS9Nca
zN3vXJ925wmI3PYvX2EdhLkeeZLJ9j4gcl9Ic9E0A3OPWxyv0F8DIjlzO2c5
yGNuKLPn+pIMEGmw3tcitwxzs3pVPnX0g0hzdETd4eOYm/siNGhsJYi0tZRV
l+djblHo0n1/+0Ck56AG9jHF3FfCuqtL14HIr3MdD2ssMbch5kXcB2kQVcre
dyzUDXMnZstEvL4Poiq/Ijy+p2LutP29gCvXQFTTtMzViI0Jf6x9c2oviOpU
aezo9sWEOWE0P78QRI07O1abncdEecetxAoCoi5y+4T+xGOyai9bZAH9/n3/
vfHetZh4V1pXl24D0UcnpmaH62ByvEQnTfc0iKb7xlzOuojJyfTlvLd+IPrs
SJUv1wiTQK83+qMNIFp+wMDq8F1MQqI6a02cQLTTVvSPuycm/x1y5H2YBNEe
6/u+wRWYJLQ/cTtWD6L9m016k1UwuWejemXTZxAd3uhT/4Ne/5Gi2z3JPGAI
mLZm7FuBSdbGo9ExY8DQ1MlycRLCpFSXy9qMgbFA26L+tAsm5QvkRwyZwNDR
6rKML8CkQtHudagqMJZrKBk10+u/7dTYfyoCGGaKF2fZfcLkI+uD/8gmYJjL
qwSfpOur/Zw18v02MCxlCqZiLmHy+VJK6QkXYGyTZP+sX4lJQ23D3UQ7YLgK
2ZXaJmDyVUxN7uYIMNz5h4y8f2PSdikp99ohYBziXXsSvg2Tb78MAs9lAMNn
sjTuozAmHRUR8sfjgRE0pOOz2QuTn3xyn8azgBHMrfh5+A0mvcaqYvZLgHGF
vcf5mhomfUeNSjfUASPiZ7TFu8+YDLyI8VPdCox7bX81N67ChEzyzbtjAozk
t6FVDwwwGRxMSpnuAUZatqwvTw+Toe93E0tEgZF9SftVgSYmI4+eiASnAyPv
SI6X7FxMRs+WMIolgVFkv0bumAImY1sXPXxYBowyne1uC8UxGW+W6xJdCYzX
st8kL4pg8isyapFlNzAqpz3yvvNh8nu9l1XTR2DU1p4ViR3FZCJC73zwRWDU
P2dkDnMxmdRVXDfrMTCaHkTZW/dSY4d1z78Co/1kaqpIGyZTNdwTh5SA0bVX
38a1CZM/Vmj/v1rA6LUo+f2SrvcP7peqsAAGW3/TPeVqTKZ1uQ773wFjcG6d
xUlar+nIzbobzIAxKuI89LmUelDQS+cZMH6R3ni955j8NZcTTD8DjKnm42ZX
c6mjz3xbegIYvPLp/p4s6lbo/f0FmIJPQqPM0jHhKTvLKrsAUzRW1jjhIbXt
5y2BRsAUP3f3xyTtNy8o6WqrFDBnHdK+bhdHnfYWV0oDU3ZbjsGzSOqqjZ2p
BJiKJqZtUtepf6gPFHwF5hytymDPy9Sj2xoEo4CpNmv7kjdB1NNt8cd2A1Pz
d1ujZiA1r2zVswlgLuj0OHv2JPXE9DOHamDqvB9Z0OJNzY4SfvsMmHp5Zz4a
0TzzvgStWKoAzOWJDP/IA9TPK63iB4BpFBqlxqXzwIv1sOjLAOZqX5VKy13U
nvtW1zgDc41jqvej7dRGOdq154FptkFfScCa1mPKRX2zKjDN9UrKXDZRF7ou
9SkGpiVr06HnZtRHsLv5LmBa89fJKJhQz/FrfOAFTNsB5+e+dP6ny4KjjbqA
ubO+17VmGfUebu5FRWA6p0znXNai/Qz+EOg3B5j7IkIdO9WpJdft2hALTLfT
skJrlGkebsjw5ssA84i19o5xKZoXv1Kd80LA9FnxbHobg+br292hqiRg+mmY
JmcKUKNGZsk5YAaObht3+0XzObDz9Y77wDzf1pZQNkxtePf5wTBgXnrrsVGF
7ofjp+A+7zcwr8efudXQTvPfEydcvB6Y/0Hqqg3v6LwcjDwVVg/MpHN6Z9+e
ovO0p1xc6xUwH5bkVlho03mzHt2kmg/MjNVlWzfTfnJk9o23fwPmS4MWt+3r
6fwuOaw7tg2Y5cf3ptfTeehpKxIxuA3MN9k9g3YPMOkOljBi0zx91Bs57UDv
v7OwQmvXPmC2L5KI2Evz+zU32CedDcyug5GNnbTfrSrMZUHRwOx9pDT3AN0P
mgNjYh5ygDk0Tyvl4FlMGtWrdPS/gJiAypqSo7QfNdNZHHdxEJsv7d13mu5/
mNmRZmYJYtpbf+lNu2Py4oeu2ZMhENMNO3PiHJ335zmhQlscQcxQ/ArvwglM
8lf5naoYBjFz4QfyV5Zj8qRlFc8lBsQOTjSsjc3EJM6b73IyA8S8VjqGsGi+
Yp4/+dVyBsS8T3ZUx0tiEvnHL7ZyHYidGuHa36X72w03l5M/ToDYFa7okYd0
fw2qfjj1chaIPe5cdTs7GROPIbxw2QYQy2rScZyieXbrub/8XQSI5dTMUd1A
8+NaVyd19CeIFRf9ud/0AhOnWxrGS86D2PsI/JhXh8nWsksTK5xBbGDthpfW
/JgYPJqbXrILxHWSbDv7nTH3d+6liOTLIK4Xa5ZsoIm5o7nFuT3pIL78uv7B
M72YO5jhdJDZCuKrT8mxpU9gbm/ItyOih0HccuuXsZXXMPdLJ/+cfXEgfojn
Inq5CHPzFqeMZAeAeJqLp+48+vvuOVduWbAZiGek2V2LDMfcA2UrnhW4g3j2
qNmAgBjm7nGOHx2zAvHnV+ekdfBh7o7ABYOTH0D8fd6HhQlszF1jc/5Lez6I
cyWXzVOuwNzZ9snzjoWAxPLicWWZE5iTMXBqfO4GkFgh0vlvEMGclNNvEvYM
gYSxbU3TkCfm3BO8Gnx2EUis+5lyq3Yv5kRNBF42UgaJnbK75cM2Y86/59bI
+c0CCX/PF9Ji8zDHbKT7AjsTJF4oXWDwf8bsjzfzXZ0UQKLUxuV2BhezKw3T
3mgFgERFiPFiByZml9Yl+S6eBxLVo6PWzwCzs38lflEBkGirdY9xzcTsqHb1
kpbzIMELsdJ8dQ2z7Qz5Lz0LBEmzMTnT4PV4oH7aXdtsHki+q310nJGH+4uv
SNiIvwHJDy85QYE9uP9Zx8H8uAyQ/JRhcHOIhfvT9W1FTS+CZPOV8ifN9P9v
3KuGKv39INln9q0nfT3u97vV2R2gCVKMPEUHq8+4X0+yd8JoB0htvB26NmyQ
/n+GDtt7ASD12tVztrwu7t271uHjYimY1agvNx5GcLfH7GX/phvAbM9jS0NC
5uFOy4uCMmETMPunWUurQyduY7+zOHnNDqSP5k3UdW/Cjfr4S3x5HEhzFDzc
fE/hDxYvax58SAWZkwqWd/KtceHH8MYXEwAy44KBnn+46L/L4m5Zy6tA9vjR
3KAv99CrxSX+O2WlQHbq372mHpPoUyfTwWhNOMgF+DhGTKug5l0Binkld0Be
iFF1bWMPaj+bHRLBqwT5a6qoesEr9GPM8ZPH1jRQYGoIPWJ4op72gs77T1VA
IeKV6fykAtT3KM3d+ZUWKESVnV7Pm4/6nuplgNkoKMTgIjfncPo8lhHluDca
FG6/MHyk7IH6quP0az4MgsK9PL2F0cqob1j9ktiH2aCQnaKmExKI+o2nHBSc
I0Hh0zX+ZUfNUH/Vu2HyswQUpbe9NjGuQQP1Nn0PTIRAUdZ8yq/wKhr4KjRZ
Xk8tb/xPluFG+vz4zJ1ZYgWKSvMSNPVK0cDwxLpiLRFQVB/1Z2jkILa0UW9F
kT0oLovVrheNQ+zN3ht9HYZAcWvz9cN1+xG75OOcgGFJULT9UJ5so47YFY8F
W8K1QHF72e9v1V8R+/15qbbnTFC0T3ezfWOH2M3yly17PoHintNrVhRtQuwR
zocL/PdB8djcQcFEPcTR3rarPvsiKIbt3X7H8zfiXGuPCdg/FxTDz4k+CLiJ
OJF7cuU7WkAx8m7x46sLECeu8ZJ1xDJQjG2dV5y2E3GSHy+3u/MRFBN3jrT+
fIY4Lwcjz/x6CopPraLnHvBCHNLX9PJbJCh+Nqq/69yOuFZXk+0ci0Cxfmdo
8hF/xLX5k3T1H3q9xhMmGWekENfOXfGTQCootmQ/LPnPFHH3qZ0Idp0Dij90
T7S1xCPuycUvbqa9B8VRTXlV+x2Im5CGkOthYClI7ky0qUTcPj1r46hwYLFE
X3ZXeCIux+xMcza1soC27kpJxB3aqqLe0wkslfHJIrVtiDth+yh/ew+wtNoT
P3NaEWFMVRVIPwaWYU6/yFUuIgt+BI32lANrReb2zX/DEdE5u8pxaSKwVqW+
iPLVR0RP2ta7IB9Ypndvqu8+hYihepLuImtgbQgxWK0tgIjZj8TvVzKAtdPh
7JHX8og4TR79J3ATsOx3/MxdWYjIXuX3hV/p/ezeajP5xAGR/fqBn7/EAMt5
/byQqAREDm1pLOJrBZbbksp7rtqI+C3YEa7oAyw/fpl6ngki19yaHl7IBdbJ
qcA5vt8QCRNnReBMYJ0a697XE4RIeGpSw+4gYAX2F3A/vEEkpjrkc+hqYF2q
d2b8txWRxIKE5Y2awIpOSTFZ5YrIM+WDS90YwIqtDrNF3xHJ9Zm8j74BK27I
z93cCZH8Uh9u4QFg3TVeF77dDpFiM6Z3wA1gJdd87zpiicirL1VL8keBlTLy
ZuL4W0Re93j63HMGVjorUypgPSJvB/qurcgGVqZr4MqQNYi8bw0iKBpY+eOs
6/eWI1K3Rfzr7Q5gFSnz7qVkIdIgE6Xi5gesYtSTn6mLSGPN6JcPkcDCV3Lb
ixcg0qK7oWTHe2BVqtgaNCgj0v7vrIlHSsCqMltp0XoLkY4x5wf2f4BVfVDN
pVMOkR8eF2TehQGr9iknlEgh0qO/JX6K9rN5/ZU2Ju3XgEPX5vNewGo95D08
6xwi7Bttkqn0/tvCdonK/0GEU5B2ZVElsDqaFvyjOY4IIS8cY+qA9WNa0nzR
cUQG/wrMMqf169EYdVw6iMiwoLJRqzSw+g+XB5v0IzIyVFoIrsBih6fFrzuI
yGir9UUyF1jcvPAsiy5ExoozUtBzYA3zXJrtaD9/7f02FpoDrLH5G7jOjoj8
1nqaEsAB1i+LJYL7m6g7tmGBPmBNRU4t8f6MyKSpqEXtfGBNF3Sa+dP+TrYp
7dZtARbv6zv7M9WITB2fErHeBUoC/E+9Llkg8of/iVaLNCgJLbgVdJXm489l
3ZtKXqAkYnU2NmIdItP8gXMmWkCJ4e32+FYp9fH4NIkvoCQWs7k0wZT6a6h8
yF9Qkniu3/DwOSJ/Tdav2yAOSlLflfsfr6CO/KhQ1gNK0kL8vOxc6nZtf/Un
oCSr3SdX+A8ivPk21gvzQEl+S+2il5nUe8xD194BJUXfgjWvF1NHiMudAVBS
upWw/X0qddHdrhu1oDTnRbDH55nzg6a/7Kp3oKTS4XWm6T410Zu/dJp6qG7y
su6Mcx5+PAdKqgLG/vr5M+cLK8RNTajniXmHvaceWnHl4kbqA6n7149Sj6hZ
FeZT+836Pnx2xlGT7xZTB/s7JTGoR0VupsRTPzLfOaUy427PGkvqn12bss2p
x6/0lM+n/m312qV2xpyKtfdASY2RYyZB55v3a2tIWDv1ogvGB49R/5bAkVep
D6vrqcRRTxwZM/1JfTok/b3mjMv4dej61K6RhaeeUE9KD3ebUj95qV5XNuOM
kPK31Fwn2Ss0X7yp9/5qtF9qf1+Frzgxc74imX2qHJTUZy2W6Po74y2fEhWp
l06KgOyM377aPkIN+y5w6H7Dm+aP7vSltqnk3dGe8arNa7ZQ+9z6PW4y4/te
LkzqIJ7fgzczrmvQ6KSOdB+2taH+KzgvR4w6x3DgiduMHX1NV1C/uuuxe3DG
l3yNjKjrhbpFA2b82P7PKerRum+uYTMerh8sAiUNYWPH2ayZ8yJZL9Ucavn7
X0pm+sv7p0+J1kdjgdiOwzP95VlbddpSG/l8YhXM2CPaf4javHnLG7MZny9v
qaC2h6rj1TOO/SJG66lxMHWjht2M0z+J0vxqnJr1qqZ9xi+eft5PHeoPgZ4z
rj55aIw67lvJopl88Fo0anKp08xXfZnJB687hy+JuigjP3gmHzyyiEfzo1El
r788csbjl9//om4JzGqfO+Opd26u1P1dujdmzqt4f4f+7/MpqzTjf/7/fOx/
eOTnBQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Theta]\"", TraditionalForm], 
    FormBox["\"x\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0, 0.03}],
  Background->RGBColor[0, 1, 0],
  BaseStyle->{18, Italic},
  PlotLabel->FormBox[
    StyleBox[
    "\"x=cos \[Theta]\"", 24, Background -> RGBColor[1, 0, 0], StripOnInput -> 
     False], TraditionalForm],
  PlotRange->
   NCache[{{0, 1 + 2 Pi}, {-1.5, 1.5}}, {{0, 7.283185307179586}, {-1.5, 
     1.5}}],
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{
      NCache[Rational[1, 2] Pi, 1.5707963267948966`], 
      FormBox[
       FractionBox["\[Pi]", "2"], TraditionalForm]}, {
      NCache[Pi, 3.141592653589793], 
      FormBox["\[Pi]", TraditionalForm]}, {
      NCache[Rational[3, 2] Pi, 4.71238898038469], 
      FormBox[
       FractionBox[
        RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
      NCache[2 Pi, 6.283185307179586], 
      FormBox[
       RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]}}, {{-1., 
      FormBox[
       RowBox[{"-", "1.`"}], TraditionalForm]}, {-0.5, 
      FormBox[
       RowBox[{"-", "0.5`"}], TraditionalForm]}, {0., 
      FormBox["0.`", TraditionalForm]}, {0.5, 
      FormBox["0.5`", TraditionalForm]}, {1., 
      FormBox["1.`", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.461604132308948*^9, 3.461604292997622*^9}, {
   3.461604346567624*^9, 3.46160435285086*^9}, 3.4616044192380447`*^9, {
   3.46160450977523*^9, 3.461604579273744*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "2) ",
 StyleBox["Here is the graph of ",
  FontWeight->"Plain"],
 StyleBox[Cell[BoxData[
  RowBox[{
   RowBox[{"f", 
    RowBox[{"(", "x", ")"}]}], "=", 
   RowBox[{
    SuperscriptBox["x", "3"], "-", 
    RowBox[{"3", 
     SuperscriptBox["x", "2"]}], "+", "3"}]}]], "Input",
  CellChangeTimes->{{3.449334877441662*^9, 3.4493348993874702`*^9}}], 
  "Input"],
 StyleBox[", a function whose local extrema and inflection point have integer \
coordinates. On a Math 206 exam you might ask for the coordinates of these \
points and so it is useful to have the grid lines on its graph. What ",
  FontWeight->"Plain"],
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox[" commands can be used to generate this graph? You will need ",
  FontWeight->"Plain"],
 StyleBox["GridLinesStyle", "Input"],
 StyleBox[" and ",
  FontWeight->"Plain"],
 "the ",
 StyleBox["Drawing Tool", "Input"],
 " palette",
 StyleBox[".",
  FontWeight->"Plain"]
}], "Text",
 CellChangeTimes->{{3.449321464695642*^9, 3.4493214870498466`*^9}, {
  3.449321845171569*^9, 3.449322057490389*^9}, {3.4493274180062723`*^9, 
  3.449327424401841*^9}, {3.449334913941525*^9, 3.449334942099094*^9}, {
  3.4493353345697308`*^9, 3.4493353782327337`*^9}, {3.461604709203664*^9, 
  3.4616047741432123`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], "-", 
    RowBox[{"3", 
     RowBox[{"x", "^", "2"}]}], "+", "3"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "4"}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1", ",", "2", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", 
        RowBox[{"-", "1"}], ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}]}],
      "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"GridLinesStyle", "\[Rule]", 
    RowBox[{"Dashing", "[", 
     RowBox[{"{", 
      RowBox[{".02", ",", ".01"}], "}"}], "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"4", "*", "72"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.449327432158292*^9, 3.44932757067731*^9}, {
   3.449327624913291*^9, 3.449327737097856*^9}, {3.449334730238123*^9, 
   3.449334816715068*^9}, {3.4493349668382473`*^9, 3.449335084568021*^9}, {
   3.449335228951336*^9, 3.4493353281398907`*^9}, 3.449335612742922*^9, {
   3.4616048019493504`*^9, 3.461604803166594*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVmHc8lV8YwK/5lkQpoyg7EpFfKqRzoilltBRJWqgkSUoildUQQlEaZISI
siqPFTLK3rJHxn0pMu+9v9Nf7+f7OePZzznvMbtoI3uawWBwMxhcBf++QHM4
tao3LcmXfeWRUzTQE38W7fz9E+g3kV6qC1OAHuozOnnWGug9p2x/GEsA3VBe
GG5yGphhJxJtHrUCnfz04zw5BxhZJ3tmfZQR0Mf/C+kuugWD51Ic9zxjADPn
7OEIoRjomevebPeiEkZufG+ZHzkKdVLP90gsdYTBgtu14vFvUS0+FLpPbAoG
Njkot3vqoSGZMoNY3UrozV65wLfBAY23qYqu3GUI3XxpHSclvqLZpEtr3A/I
QNdsxEJF2xk0W/h1q17LQ+ga89Luz1qLZlsFpAqEhKCrzST4/JEnaE7gzLo1
jzdC14eRHVfCz6G5M7byfXxm0HVqVaKv1GLEkgyp9XFbDp35T12TpI8h9vWk
mx8yU6HDw2PRpOIEZnjrnt9s1AMdzg/qvLSrMeNRy0hipj902D0LX7g3BTMi
LtPOdxdCx/5sefkr9piR4u+WcSsTOpQmtIwLOzCj2XS4uEoA2l/Wp5kUh2Au
1T0/p7hL4ad+8rY0A4y5vk07ldzfDT9Vyyu+2c9irpoHGYtCn8NPscFD7UHp
mKttWdZyAX1oG1K0W9C1BnONSrBXOjyCtuCIB6duiWFu0Q958b9fQmuPT71o
zjDmPm7TmiqfBy3e1mdddcIw93BMVRZPALQ49kixHA5h7gmhF6wKF2ixOFvt
9ZqsZzmkhbY6QIvGRb0H80Mxj5B46vyrJdDcfHPJq8bHmEd94ZbSs3XQvDYC
ylwCMc9F37V+hi7QWN8gsTL1HuYZLF1xnkcLGvOOVkT1GWKe31skuWp3Q2PC
z9urlwtgnum3T+Zb7oNGz17mf7f8Me+8C+LvkR00qowX7jLxxbyKT6y3iN6H
Bg8Rx0vMu5jXyi9p+cokqFfaW/JVxQPzlnYPGz34AvVLDFYrq0Zi3srZrZfM
3kIdZ5PfvbWfMW+D4NapiDdQ1yBvaKo5hXm7JfcsFeWBOu+psjZdJ8w7MxJT
qLAcavuivk8YncF8q099Xx//EmreTNcpOhhhvluxazO4NKEmkNbydbTHfN5/
y7ZdD4Ya956QISc/zHcf6x83ZUPNwR+H3rsUYb7Q3CI5Fw2o4Ytu1PNAmC/B
da+CSD5UnzZuOfhIE/PV5EfhoLtQpfCm827qMswv/T1vi8VbqBIavHRd1xfz
K+Q8G7VaDZXT6lwOhVOYf3Wsi0yUGVRWZMoebmjE/P+dUva88BMqXUpPrGaF
Yv4dfnmte0/Bj8C2vGdBipj/nM85jpcnlDdfzFXLlcD8KUe+FikVQPm7qQ6x
6knM/+H8hH32byi/fYvD6a3H/JnXrN6bPYRy1ceoekEI5s91742nDKHsZia4
HBbB/JVa052VR6FUnisnhymI+ZknOy6raUHxueAvJpIcTCkWVPQ7P4FiA4bm
eNkzTCmXdk3oW0Lx8vNxT902YWpN+bYiqwNQ9G17cFezE6bWfRmv3OkGRasm
7a886cWU3rF1+40aoLDLQjxCtAxT++87PQ3xhcKs4gfoqy2mDmkvOHI/EgoD
13P3XOHFlHnH/P3DJlCIBZlqtVswZbVCVzRRAQqe5xTmBr3HlO2Bl88jiiD/
iNylPuEwTLllluonxkK+xsN+f1iPqZuCDqsuh0M+NXtM3aESU55HAz59CYK8
9Npdrt8FMHWnz0zilRrkLfWWXnDfHVMPPrHPi24HeFHzxEakCFORJ/aw5DIA
9iXeTnBiYOrlMS8X6yWQw7rrMF6ljanXB4wldH5CjsXG7T4BiZiKWZfyJ8Ac
voiF/04SDMJUUkJek5w4ZD+wMZriP46pT5EO3dY3IFuv5hcrhMz/stk91bYH
spjbfXgUZjCVU+coN/sTsoyV84QMHmMqb4ovgakCmYtoLQXPEkyVMCTTNodB
Rp51tcoiUUx9u3Kxp5oLMi5VX1R/YYOp0t60LXv0Ib36Y7zOFxamKjIWqoqO
wMfHN1aYzGpiqmbFht3bjsDHbSPZh/w9MFVrr7pIYxQ+TBw/bLmsHFN1qVJ3
j0bDh0P6gWc3ncVUo+YfvSA+SJOYz+d+hcS7deql7jdJSIkIGYkf5cNUb4iu
rNR/kGJE+Sd7mGGqL8g3QfQNJE/9NrZfgTDV799PswHeZWcWeB51xtSv850X
yu9B4pbtCYm1bZganhgIeDgFCS+UezP+uGJqpGx45xYJSGAISheIiGCK+Xwh
3qAI8XnVwU3GOzA1qpGYpRYHsduP3+D7loKpPyv8VzgVQEyMfvqiAUPC5S+1
Xn2CGEpxVIqf5Nu4S7uoUx9Elwyf0ty2HFMTn1tp5SsQvfpHpJ7NB0z9NY8s
jVKBKP/Uxl239hGmAzSGP8Bro2tGVjm3MTUlzHVCYgBeJVl627WtJBzmLRjY
C6+EUK7zbCampiURP785vHgpaCd2qRlTM0v3xwjthsgT1W2qycKE/VLXbhKH
5/JPTfWHtxGeMSz240B47Crti2eSMDVboT5anQdP97bHREqMY2pu4+vYFbEQ
Nv50SXnZZsLP3L+9b4TQCDPPWfc7hGcL1F/cgxD9BUwVdRIv1kHn5L9/IXjg
q4V511LC8Y9lS4whKOBmic9jS8JT8pby5RCQ1b3921gjpth3nnhnC8AD6pCM
0iFSb+x8L0XRDeB/oGTmTvYU4ZmuAV0r8HmtW9sl7Yspjtrn2M2ZcId+l4zu
SBC2WKy9+hp46cn6PRuII+zVdWVxE3iIKhePh18k/EZTk18QrqUI3Ug++ZBw
PvdOsd3gbDi+zl71HeGmA/fMvsKFsrTy3UMRhIdU6soy4CSXhxa4E/9xJr1Z
gQfBxCFki73Mf4TZ9k1pdWh9mHH22xHSXzicxq0G59HRbD1JCP1BeLZqgYkp
slXar2CvrUz492GhwSx0ybWg7fp+km+c7vPyci3Ipe2nMvgfJPxDRHreCLqh
P+XMm7eB8EfDpiQF5Fk7/3j03ALCoRIq0hnotnfo3Z1hboQvufU7tiBvbfm3
g5pDhHdeHUgpRr5DKZX3vxP/ciSEeOkUdC9S76+6HYkHuxsv0atAD03KJKv5
SPzY8cKDCQfQo1uJMtkmhwjbedjsuoYCm3+n3YsUIqzwyFTxCgper73Dcoj0
G1bztodmbujxA4+mtdo3Cfs/H20vRCF9Rec4PkRfllakcdttFIYF2ZW1TJIP
LTu9LEbRk6f7A1/LxRB2izh+biuK2NORsS1HnORXouEV91Po2RslQ7EFpP/N
bo63fPkaPWdfaO0/QuI7U5xtGPIMvTR3v7Vt5gbJ54rpMK1wFLVAIKY/ZBhT
kxGy15a8QVEZSaMmm0n/meTaJuUfg6JPmWpndkeTerFR8jgogt58CSv3X0f8
MbF0Y7siL4pzVPitWk788Vs79cHVDSheqkQ35DLJlzEXoffGrij+27k77OUk
n0eTdIzm6lGCXKr4D1viL1qQ2iWejZLqkJ4TD+mPQ/cSapYKo3cuB9WHN5J+
Ovju00mjGyhZ/JzcmXOkX/yqMJs5i1GKatntJLvXpN+wZDZx66D3DpO2r6ou
YKpHybKcewal/THW9H9FzpOW2CSNhir0waB5TXH2JKaab48GeoegD49PK/LW
DmKqyaKmZ7E9+qjlJu4xj/irnu155FoKSr8aM3fZkfS/auFw629ZKHOWXWSJ
SX4W28h+Em5FWUZ+8PToKkx9nRaPqLyPsp4vzax3JvVSeO/rkbO8KHuLSoJJ
LJv08+h9p2sAffI89Gi7cCk5D17jyE5rlMP77qhaO+nf76rHz105j/K83/3l
wC5MBYks0s3LQXmph5a66b3AVMC0woKUVJTXxlr399Nfcl612O7gU0H5WnvO
j2SSePgF+oVdd0L53f1dLankvPIsPDXXWI4Kt8p8z4jOwpTDjtV7XLejotmg
mIv+KpjaXqxb8rMfFStpFwzNu4UpA4mFm3/PoGKzjs4z3qRf4FNG8wzLUfFb
daljt70xpUMv0z9xBZWYlwXtudGFKfXvSsEXdqBv6bw3lS6GY0oiLUdexB2V
O7ocbD+4APP3q6z6pt6DyiNMl9/4ZI75u2f9KbVzqLxoTfty2RjM31ECGdeM
UIVkp+0BJsb8zYfio0L5UUWx0fVSH2fMX4HfLpdIRT9Wyr34mPUT86fuG+Ma
iUCVvf3ORcJHMP+1E5qla+6jmuDgnGfOqphvNu9MbIw5qokNcFloPo75Jtve
rn36F9V8uqd2U+8z5vvzN/mFaR6q6fZ6Zk3twXzD0vxiht2o9r9L1+XDyX2v
dbfANqEnqLbGWOttbjzm+8yTPqz1GtUvEUjMWrgK811b0dJUtQk1Bt0Kr4uR
wbyDG5U80++jNlZUUBJPCeZ5EJRo8aMXdXqr2fmeasfcK4qFTxvIoR6DKHG/
Yx8wwxZNyd64jvrG92+MqxtCrPVsuFj+Hv1yqZgT8tqNpt/2+DD230TD6jbf
DbbdQhPvZ5WwhARiZuVvy9HpQGO/llsdOrARjUa8E0toNEXDR62emzvzorEJ
38UdK6VRz94mR5+9MujPpp3HN95koKYutZF4Tw00HrokzcX2Oyoca/daJ2iN
JkbccWHwPkjma7t9Ya0nmlQrl9Fq6ITKY29D1Yp80ZSfMv/D2BPQmr7ZiJnT
gaYr7JDAo3Hodv5Atxtkoulq68zKL0+h28coPVRlAE03mGuGDm6B7qdNsp3K
j9B0585V8ga+0J3z44fO9Vw0PaG4UPevFPTM+69HlVcZzUh1tFyw2A49T6pG
QyfnoZnz5lcrFUOh973ecWa2K5pdsDMlJFsb+r8EzGZGd6DZRQlWV+8KQP93
l0uHMzzRrJiw4BHjZuhv31u/6y8Zl6m3leq9AQOMHyYlW+eh2Q2npaMX5cKA
gZTO184UNHvC62Hq2R0wUNhwVcpsAM1mfDn/Y6kZ/Pr8cr1aN1n/RXZ5Srs8
/CoLtYz4ykCz+XdKguLH4VfzDb8HkxpotsJI4RAKgV9TEjVvguPQbFdzS5t9
IwxqPrJQu78LzS2cMhzKs4LBaOcyznUTNHfqv9XzHOxhyK29IWrTKJqz0zmv
+TUKhnyGvKPea6A5h63Jx6RaYSh4wGN8rgTNuZpovS/bB0MJ6dppRxho7v4F
fQtlTRhqfimXu47s/yHWIqlzFoa14h7L5VsjFp/kw/0H78Nwh83mfefiEEtA
rso98SsMD96Ltwt2RCxhlaVxPGwYHn/zWrrXFrGWbQqfS3WEkXkJK332myOW
2sHYGOGDMKI++8zGxhOxDgbkTn1bCSNuSVdMk5URK4bnT+TmZGBSKj3m1CLE
Srhq36O5FJiL5j8L2+WKWCmDXSpKrsCUqDOMW0/kf6qqTBfRB6bKf3YdF1MQ
q+pFUkV/PTCN5ncsXcFALJbuWVbQHDDvL+OvA1fE5n7XbuB7ApjBBQ+WKWUi
9jy5Q37uRcCMOBqQlk/Gl8zfLmobAMy3e4cCxpQRW7lBTm2LHDCLd6/e29GB
2AecWi1/7QIm656E2uU4xD7St//1zySgeaZrK25IIPbxI6UDtSJACxx4bLjF
F7HtcZZzTgvQYhUst/2OiO0pFHr/sQPQa39EK9rbIvZdr4XVfjVAr38etXTU
GrH9J+5KeGwCWuewrfw42S+k9XK0PRfQ2x+u2trAQOyEtyaf0WOgLajnfSQf
2e9XlHCvnwbaWnNatwkjdnog2qViBfTp3W1/Nqcgdp6rWq2oEtAXdRRVVDYh
dsMOgaHBbKC95Ovl9toiDnfnV8mQTqCjRVf4rcxEHGqq6q34O6BjP5xPrcGI
s1D456anN4BO2Ho9TusR4ojrTR58LgZ0qkL2Zh5fxFkTvjog2hBoEF4+VqyB
OBrvN6xcJQ50vmSazZAj4miVkN+iHqC/ijat+TKFOOivxbeEm0CXVn8QcNiE
OAfMHvKkpgJdd2G6l7ULcY7YhQet9wC6oc+YHdKIOFaesTLpRkA3G3HNtJkg
ju27XL2sPqB/tlv3XGMgzoWv5eW6aUB3LuRyriDynFqbjn7xBLpbqXdt1SLE
cRf4fTVPEuh+xWOne4l8L1kOv/4A0L+o3ruT1ojjo73gcWE60IMNT0Qzyf6B
ZxXel5gAzdxysnRXLuKE3lyHDVcATdc5BkkQf0WE6H0vGwR67EiAcFgl4rwp
ODT04w7Q48oDl2KIvLfNJ6+bmgI94Sw2rTUPcZLHHOfVrAT6b+KWG86EP867
EXZgCOjJKvPybhnEyZb2U6zPBHqq+/hnbrI/bAj5YH4X6OmuvZKmxP7Cva/1
m82Anvm+/LNpCuJ8O/WuylIa6NmYfMdbZPy726fjbcNAz53fMt+G2F8TVMw8
ngU0a6WP+WUSr8b42hud3oS/PFHXIva15XYuOLkfaPZu++NKcYjT1TDytFeG
cN5kVmkJ4vQzZ5TPjADNUdJZFEnkjfDzpw+QfOFcW6Ml74k4v1cs2W7vSzij
cKqJxGtyvXTN8EHC3VxqWAJx5vao2jjIEZ5pimoYxQzGeynXq1P/3vl2rZVl
YAbP5teQ+ZPw6I7nERgz+EpW809/JVzxvaCoAzPm7U/ep5NIOKzZSb4SMwTa
tULcggjvO3ld0xozFtp/av3sSvQdO5nkZIIZwn/15VnHCXvWtp0k60VulZzb
soPYO5fS4iODGaIL96V6qBI+NXbNchFmiD+pnc4l9TmX9cjXhsxfrmCxlUHq
Z3bGp1nyEWZIJXf6bu0grFSF+Yl+0rpnf3gVEf9vPXPvNZmvYOZsxRtM4qVt
uex3LmasqtISP0nsm1zx8KjWS8xYbTxRWUDqb4KZmbCH2L9271UDLxWg/xz+
qTlO1muUb5zrfETyh64omEfm/2c4lY7/Aj3qHCk2RsY37bquzMkHemTbty87
if46xTpdx5WBHnq0zG69BmbobZ+NyHlI8rdE894U2V/fwF3I/SjQvez4XwtS
MMNoi8efmd9At92Z33eK+G/fF5x01BzoFi3utSuJ/0w3c53JygG6sTrELI3I
O6Tt1eTqD3RNjXPvFRIf6/V3c/7KAl0y5CJmRfSzSdvhepDkTxHjtQpFxk9r
Uus+kHwr4NbxDCDy7NV9oy+T/P1c+iTegOjjrHLPb4zUT/LFs993Enku8UYG
JqS+EvrNfjLI+DVlwbkUKaDj9riFviD23VR8eNGB1OPLRoeP94i/fWUCDwyT
+g3k3RSwjujn/8JMaA+p9/ttF8qkifwHK0WKE0g/8H2dKjpBOEjysY69BNAe
Yyb3jhF9n4mFSfcnA30hcmuzBpEXGXK4aedSoG0bjJycyfxXSyWCYq4DfXJu
o0c0kR+zOJzvNMmXo/PDEr4TThF8NthF8nP7ujaNw46YUcj9+uNPIaDF006J
ZJLxogx3d0Hir8XyH/RaSTy+nTffpstP+r3bL65x4o/v9Qurw1jAnOvuenKA
yG+Kd6VNh4HZEbi9TpDYQ5sYK38tBWaUxZ5d68n833yr6fEd5PzZYdunQfJp
PJs3Qy6fnE8S4ypnST7OyGdv98gCppez1kBDLubinVS00Y4DpjV36NI5R8y1
/PlsRJIPMMVcd/YQe7lWmNXbtHIDU7C+4Ns5a8wlQ71XEbgJTB6pDTZKizCX
4qUzmWddYIS26Bwj/uDS2FZVJ3sGRoqSvKxIPLi2D8UJhWyDEcfgs2pLUjDX
Je0Dt9wZMPxeK93OwBNzXYbp4bEUGH6DDbY+J+yy44X5GWsYfrpe0y6wA3O5
7R9UN86FYc9GaTd7ou9dB482OU8YNha+d76AyH8albCpmAND/RutP+oT/fOF
uEZF2DDEj1MPixH9Cx/HWvi8g8HJczVnkjHmKpY0Kpoj95sBjxCrX8SecuWw
5705MFhq3d16kuhXb6C2J9MdBh8IcFUdNsFcg67mscfmYHDh6GS1wyLMLdKV
bBU3CwOsfve3E4RFXzg0DJP72eCz9IuoA3NLWK411fCGgQatp8cMK8m9uS7J
IFMEBlJEtvwudcTcyiUJysUqMGDtsi4uEGPuLe9ifveaQ/+nzhnbrSmY2/56
pI/sB+g7tkTf05yMX9hoxTh9Hfp2rG16+YrwxfEV1+Ix9KmrKZSNm2DuKxee
ndcogz5GVaZHJ5HnaR1uirqg93UWm2uG6BO6I1TSahH0dDJ2PFEh8vNFHiSH
X4DunWqTB95qYO7CfB9yoYJutYVP3UOI/GKnW95WU9AtUrn45rKXmLu8+sox
eS/oamOdHhjwxNwNQccEEkOhy2mqNjyQrB8RUT2dkwudYefPifppYB6JxWWS
3SLQ/lhpyZ56a8zjsHie75pMaIgPZq40z8U8jkEV4rXroMG+2tTMAGOey0sD
Y2+8hYY1zSU9FZ6Yx1VieVHFc6hP2v21a34H5vGSVuO76AV1SZGJJ2XJfqFq
pl5pe6EmelltcjFZn7M73F2nC75X8mX0PmRgXiEvVSdDQchSUN52zYjwYp0F
wnkRkNHQrbj2jifmXTL2K0lbBdL9g3wDeAgvOxEzoLwb0oYr+vZ2kPkKW2Wt
+L0habd1xb6PhHUYYrvzORAgfFPYUpnw6ZsMWd3fKPXi3h6tHsKfr9VUqjWg
yuDrG6JZnpjPqkcBRSagnt+ZWlIq1piPvWLxhmRzNBaXaO0Xkov537beenXX
Dc2EuxgYzLPGlJFQxIqBOMw9f84h7aj5v3eMTUKLjTBVJWoXlPXvXaNVkpvv
LuHKPOZ78h8+M8qamM4h/+/3pRq1yPrZ5QVtXeswVcvdvH/sCWEH46Q0MfK/
P3qZGdKBqTnRs3sPtGOqtVw27ZoJplgnQ+8/ccLUwN2zwRRZz3K95nk/AVO/
ti6OFZIh/MDS2bOH8FzObkGiDytDztLuEKaGnKU3zFViii3wTlVHF1NMG84n
AbI/+/3XslZeTI1v1T1TTPZnF8VBpR5hlpBF/SjhlntphS6Ymsjsbl/y7x2O
zzQi8RemJjVCH8mUEDZvO+f+ndgls/zZr3/vchdyjztR/+zm5vnyb75X1P4z
mNgVNjTV9Ihwop3uvlSil3Dxgwkin5NnpK4/RLgsS23u33716vIbFYhcnyRL
83/vekMi4musyNcgeplg4793t4kF0mH/vs9PScX9DyMDOPw=
      "]]}}, 
   {RGBColor[0., 0.12498664835584039`, 0.06469825284199283], 
    AbsoluteThickness[0.64], 
    StyleBox[InsetBox[
      TagBox[
       RowBox[{
        RowBox[{"f", "(", "x", ")"}], "=", 
        RowBox[{
         SuperscriptBox["x", "3"], "-", 
         RowBox[{"3", 
          SuperscriptBox["x", "2"]}], "+", "3"}]}],
       HoldForm], {1.1368814524741913`, 3.475017380795064}, {-1., 0.}],
     FontSize->14,
     FontWeight->"Bold"]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  GridLines->Automatic,
  GridLinesStyle->Dashing[{0.02, 0.01}],
  ImageSize->288,
  PlotRange->{{-1, 3}, {-2, 4}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {3, 
      FormBox["3", TraditionalForm]}}, {{-2, 
      FormBox[
       RowBox[{"-", "2"}], TraditionalForm]}, {-1, 
      FormBox[
       RowBox[{"-", "1"}], TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {3, 
      FormBox["3", TraditionalForm]}, {4, 
      FormBox["4", TraditionalForm]}}}]], "Input",
 CellChangeTimes->{{3.44933477928356*^9, 3.449334818010653*^9}, {
   3.449334973788979*^9, 3.449334995900532*^9}, {3.449335045930942*^9, 
   3.4493350628770733`*^9}, {3.449335258662841*^9, 3.449335328553*^9}, 
   3.449335613448894*^9, 3.449335990289514*^9, {3.4616048043961573`*^9, 
   3.461604859581316*^9}, {3.4616048947253838`*^9, 3.461604899447023*^9}}]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["Drawing Tool", "Input"],
 " palette was used to insert the formula for the function at 14 pt."
}], "Text",
 CellChangeTimes->{{3.461604985542344*^9, 3.461605016664917*^9}},
 FontSlant->"Italic"]
},
ScreenStyleEnvironment->"Working",
CellGrouping->Manual,
WindowSize->{901, 901},
WindowMargins->{{Automatic, 50}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 220, 3, 67, "Section"],
Cell[791, 26, 406, 12, 38, "Text"],
Cell[CellGroupData[{
Cell[1222, 42, 2043, 57, 88, "Input"],
Cell[3268, 101, 10575, 191, 255, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13880, 297, 1307, 36, 59, "Text"],
Cell[CellGroupData[{
Cell[15212, 337, 1418, 38, 58, "Input"],
Cell[16633, 377, 11001, 197, 204, "Input"]
}, Open  ]]
}, Open  ]],
Cell[27661, 578, 230, 6, 26, "Text"]
}
]
*)

(* End of internal cache information *)