(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.0'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     48626,       1834]*)
(*NotebookOutlinePosition[     49468,       1863]*)
(*  CellTagsIndexPosition[     49424,       1859]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[StyleBox["Calculus II Lab II.1: Solids of Revolution.",
  FontFamily->"Luxi sans"]], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Avantgarde",
  FontSize->20,
  FontColor->RGBColor[1, 0, 1],
  Background->GrayLevel[1],
  FontVariations->{"Underline"->True}],

Cell[TextData[StyleBox["The purpose of this lab is to help you visualize \
solids of revolution.",
  Evaluatable->False,
  CellGroupingRules->"OutputGrouping",
  AspectRatioFixed->True,
  FontSize->14]], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  Background->GrayLevel[1]],

Cell[TextData[StyleBox["Before continuing, enlarge this window to a size that \
is comfortable for you. In addition, you might wish to alter the \
magnification by using the ``format'' menu at the top, then selecting \
``magnification'' and then the particular magnification you want.   You might \
wish to take notes as you work through this file. Saving this file to your \
disk every few minutes is highly recommended. You should check with your \
instructor to see if any part of this lab is to be submitted for grading and \
find out the due-date.",
  Evaluatable->False,
  CellGroupingRules->"OutputGrouping",
  AspectRatioFixed->True,
  FontSize->14,
  FontColor->RGBColor[0, 0, 1]]], "Text",
  Evaluatable->False,
  CellGroupingRules->"OutputGrouping",
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["Enter input cells by putting the cursor anywhere in the cell and \
press ",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["\[ShiftKey]\[KeyBar]\[EnterKey]", "KeyStroke",
    FontSize->24],
  StyleBox[" .", "KeyStroke"],
  StyleBox[" The only exception is the following cell, which contains some \
\"hidden\" programs.",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  Background->GrayLevel[1]],

Cell[CellGroupData[{

Cell[TextData[{
  StyleBox["\nSTOP!!",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[1, 1, 0],
    Background->GrayLevel[0.500008]],
  StyleBox[" \n",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[0, 1, 1]],
  StyleBox["Click the cursor on the arrowed bracket on the ",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0.054902, 0.423529, 0]],
  StyleBox["far",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0.509804, 0, 0.905882]],
  StyleBox[" RIGHT",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0.509804, 0, 0.905882],
    Background->GrayLevel[1]],
  StyleBox[" ",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0.0705882, 0.556863, 0],
    Background->GrayLevel[1]],
  StyleBox["and then",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0, 0.482353, 0]],
  StyleBox[" ",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0.0705882, 0.556863, 0]],
  StyleBox["press",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[0.117647, 0.431373, 0]],
  StyleBox[" ",
    Evaluatable->False,
    CellGroupingRules->"OutputGrouping",
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[0.117647, 0.431373, 0]],
  StyleBox["\[ShiftKey]\[KeyBar]\[EnterKey]", "KeyStroke",
    FontSize->24,
    FontColor->RGBColor[0.00784314, 0.423529, 0]],
  StyleBox[".", "KeyStroke",
    FontSize->18,
    FontColor->RGBColor[0.00784314, 0.423529, 0]],
  StyleBox["horizontal line ",
    FontColor->RGBColor[0.203922, 0.298039, 0]],
  "will appear directly below this cell."
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->15,
  FontWeight->"Bold",
  FontSlant->"Plain",
  FontTracking->"Plain",
  Background->GrayLevel[1],
  FontVariations->{"Underline"->False,
  "Outline"->False,
  "Shadow"->False}],

Cell[CellGroupData[{

Cell["\<\

YRev[f__,a_,b_,k_]:=
\tWhich[!(Head[f]===List), 
\t\tParametricPlot3D[{(-k + x)*Cos[t], (-k + x)*Sin[t], f},
\t\t\t\t\t\t\t  {t,0,2Pi}, {x,a,b}, Axes->True, Ticks->None, AxesLabel->{x,\" \
\",y}],
\t\tHead[f]===Head[f],
\t\tParametricPlot3D[{{(-k + x)*Cos[t], (-k + x)*Sin[t], f[[1]]},
                           {(-k + x)*Cos[t], (-k + x)*Sin[t], f[[2]]}},
                                 {t,0,2Pi}, {x,a,b}, Axes->True, Ticks->None, \
AxesLabel->{x,\" \",y}]]

XRev[f__,a_,b_,k_]:=
\tWhich[!(Head[f]===List), 
\t\tParametricPlot3D[{x, Cos[t]*(-k + f), (-k + f)*Sin[t]},
\t\t\t                  {t,0,2Pi}, {x,a,b}, Axes->True, Ticks->None, \
AxesLabel->{x,\" \",y}],
\t\tHead[f]===Head[f],
\t\tParametricPlot3D[{{x, Cos[t]*(-k + f[[1]]), (-k + f[[1]])*Sin[t]},
\t\t                  {x, Cos[t]*(-k + f[[2]]), (-k + f[[2]])*Sin[t]}},
\t\t                       {t,0,2Pi}, {x,a,b}, Axes->True, Ticks->None, \
AxesLabel->{x,\" \",y}]
\t\t
\t\t]\
\>", "Input",
  AspectRatioFixed->True,
  Background->GrayLevel[1]],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(XRev\\)\\\" is similar to existing symbol \\\
\"\\!\\(YRev\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"]
}, Open  ]]
}, Closed]],

Cell[TextData[StyleBox["If you restart this notebook at a later date, you \
will need to reenter the previous cell before you can continue successfully!\n\
\n",
  FontFamily->"Nimbus sans l",
  FontSize->14]], "Text",
  Background->GrayLevel[1]],

Cell["Rotation about a Horizontal Line", "Subtitle",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1],
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["To rotate the graph of a function about a line parallel to the ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["-axis, you can use the function",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox[" XRev ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold"],
  StyleBox["as follows.\n\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["EXAMPLE 1",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[0.866667, 0.411765, 0]],
  StyleBox["le 1",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16],
  StyleBox["Example 1",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16,
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16],
  StyleBox["Rotate the graph of  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      FormBox[
        StyleBox[\(\(y\)\(\ \)\),
          FontSlant->"Italic"], TraditionalForm]]],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  " from ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[Equal] 0  to ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[Equal] 1  about the ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis (i.e., about the line ",
  StyleBox["y ",
    FontSlant->"Italic"],
  "\[Equal] 0).\n",
  StyleBox["Solution\n",
    FontSize->12,
    FontColor->RGBColor[0, 0, 1]],
  "The graph of   ",
  Cell[BoxData[
      FormBox[
        StyleBox[\(\(y\)\(\ \)\),
          FontSlant->"Italic"], TraditionalForm]]],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  " from ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[Equal] 0  to ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[Equal] 1  is given by"
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell[BoxData[
    \(\(Plot[x^2, \ {x, \ 0, \ 1}, \ AxesLabel -> {x, y}];\)\)], "Input",
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["and rotating it about the ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["-axis is given by",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell["XRev[x^2,0,1,0];", "Input",
  AspectRatioFixed->True,
  Background->GrayLevel[1]],

Cell[CellGroupData[{

Cell[TextData[{
  StyleBox["Here's the syntax:\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold"],
  StyleBox["XRev[",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["f",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0, 0.411765, 0]],
  StyleBox["[x], ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["a",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0313726, 0.313726, 0]],
  StyleBox[",",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["b",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0431373, 0.458824, 0.0196078]],
  StyleBox[",",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["k",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.054902, 0.431373, 0]],
  StyleBox["]",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" takes the graph of",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["  ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["f",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0.411765, 0]],
  StyleBox[" (",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[")  ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["from",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["= ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["a",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0313726, 0.313726, 0]],
  StyleBox[" to ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["= ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["b",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0431373, 0.458824, 0.0196078]],
  StyleBox[" and rotates it about the horizontal line",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["y ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["k",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.054902, 0.431373, 0]],
  StyleBox[". ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["\nIn Example 1, k \[Equal] 0 since we rotated about the ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["-axis which has equation ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0.\n\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  "\n",
  StyleBox["EXAMPLE 2",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[0.866667, 0.411765, 0]],
  StyleBox["le",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16],
  StyleBox["Example 2",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16,
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16],
  StyleBox["Rotate the graph of  ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  Cell[BoxData[
      FormBox[
        StyleBox[\(\(y\)\(\ \ \)\),
          FontSlant->"Italic"], TraditionalForm]],
    FontSize->14],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)],
    FontSize->14],
  StyleBox[" from ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0  to ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 1  about the line ",
    FontSize->14],
  StyleBox["y ",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["\[Equal] 1.",
    FontSize->14],
  "\n",
  StyleBox["Solution\n",
    FontSize->12,
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["The graph of  ",
    FontSize->14],
  Cell[BoxData[
      FormBox[
        StyleBox[\(\(y\)\(\ \ \)\),
          FontSlant->"Italic"], TraditionalForm]],
    FontSize->14],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)],
    FontSize->14],
  StyleBox[" from ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0  to ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 1 is given above, and rotating it about the line  ",
    FontSize->14],
  StyleBox["y ",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["\[Equal] 1  is given  by setting k \[Equal] 1 in the XRev code:",
    FontSize->14]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  Background->GrayLevel[1]],

Cell["XRev[x^2,0,1,1];", "Input",
  AspectRatioFixed->True,
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["\nEXAMPLE 3",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[0.866667, 0.411765, 0]],
  StyleBox["\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16,
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["Rotate the region bounded by the curves  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["y ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox["  and  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["y ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox["\[Equal]",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(\ \)\(x\^2\)\)\)]],
  StyleBox[" about the line  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 3.\n",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["Solution\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->12,
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["First, the region to be rotated looks like:",
    Evaluatable->False,
    AspectRatioFixed->True]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell[BoxData[
    \(\(Plot[{x, \ x^2}, \ {x, \ \(-1\), \ 2}, \ 
        AxesLabel -> {x, y}];\)\)], "Input",
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["Setting  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["x ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox["= ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  StyleBox[" and solving for ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[", yields that  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0  or  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 1.\nSo the intersection points are (0,0) and (1, 1).  \
We are now ready to see what the solid looks like:",
    Evaluatable->False,
    AspectRatioFixed->True]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell["XRev[{x,x^2},0,1,3];", "Input",
  AspectRatioFixed->True,
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["Notice that the syntax is slightly different. Instead of one \
function entered, both ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" and ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  " ",
  StyleBox["were entered.\n\n",
    Evaluatable->False,
    AspectRatioFixed->True]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell["Rotation about a Vertical Line", "Subtitle",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1],
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["To rotate the graph of a function about a line parallel to the ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["-axis, use the function ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["YRev",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold"],
  StyleBox[": \n ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["YRev[",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["f",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0, 0.411765, 0]],
  StyleBox["[x], ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["a",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0313726, 0.313726, 0]],
  StyleBox[",",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["b",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0431373, 0.458824, 0.0196078]],
  StyleBox[",",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["k",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.054902, 0.431373, 0]],
  StyleBox["]",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" rotates the graph of",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["f",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0.411765, 0]],
  StyleBox[" (",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[")  ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["from",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["= ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["a",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0313726, 0.313726, 0]],
  StyleBox[" to ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["= ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["b",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.0431373, 0.458824, 0.0196078]],
  StyleBox[" about the vertical line",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontColor->RGBColor[1, 0, 1]],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["x ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  StyleBox["k",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontWeight->"Bold",
    FontColor->RGBColor[0.054902, 0.431373, 0]],
  StyleBox[".",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["Example 4",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16,
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->16],
  StyleBox["EXAMPLE 4\n",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->18,
    FontColor->RGBColor[0.866667, 0.411765, 0]],
  StyleBox["Take the graph of  ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  Cell[BoxData[
      FormBox[
        StyleBox[\(\(y\)\(\ \ \)\),
          FontSlant->"Italic"], TraditionalForm]],
    FontSize->14],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)],
    FontSize->14],
  StyleBox[" from ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0  to ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 1  and rotate it about the",
    FontSize->14],
  " ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis (i.e., the line  ",
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0",
    FontSize->14],
  ").\n",
  StyleBox["Solution\n",
    FontSize->12,
    FontColor->RGBColor[0, 0, 1]],
  "The graph of ",
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      FormBox[
        StyleBox[\(\(y\)\(\ \ \)\),
          FontSlant->"Italic"], TraditionalForm]],
    FontSize->14],
  StyleBox["\[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)],
    FontSize->14],
  StyleBox[" from ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0  to ",
    FontSize->14],
  StyleBox["x",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 1",
    FontSize->14],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  " is given by"
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell[BoxData[
    \(\(Plot[x^2, \ {x, \ 0, \ 1}, \ AxesLabel -> {x, y}];\)\)], "Input",
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox[" and rotating it about the ",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox["-axis is given by",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSize->14]
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell["YRev[x^2,0,1,0];", "Input",
  AspectRatioFixed->True,
  Background->GrayLevel[1]],

Cell[BoxData[
    \(\(\(\[IndentingNewLine]\)\(\[IndentingNewLine]\)\)\)], "Input"],

Cell["Exercises", "Subtitle",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1],
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox[" 1.  Revolve the region under the given curve about the specified \
line. \n     (a)  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  "\[Equal]",
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\@x\)]],
  "  for  0 \[LessEqual] ",
  StyleBox["x ",
    FontSlant->"Italic"],
  " \[LessEqual]1  about the ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis.\n     (b)  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  "\[Equal]",
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\@x\%3\)]],
  "  for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 8  about the ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis.\n \n ",
  StyleBox[" 2.  Revolve the region bounded by the given curves about the \
specified line. \n   ",
    Evaluatable->False,
    AspectRatioFixed->True],
  "  (a)  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      FormBox[
        RowBox[{"x", ",", " ", 
          RowBox[{"y", " ", 
            StyleBox["\[Equal]",
              Evaluatable->False,
              AspectRatioFixed->True], " ", \(2  x\)}], ",", " ", 
          RowBox[{"x", " ", 
            StyleBox["\[Equal]",
              Evaluatable->False,
              AspectRatioFixed->True], " ", "1", " "}]}], TraditionalForm]]],
  " about the ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis.\n     (b)  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      FormBox[
        RowBox[{\(sin\ x\), ",", " ", 
          RowBox[{"y", " ", 
            StyleBox["\[Equal]",
              Evaluatable->False,
              AspectRatioFixed->True], " ", \(cos\ x\)}]}], 
        TraditionalForm]]],
  "  for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] ",
  Cell[BoxData[
      \(TraditionalForm\`\[Pi]\/4\)]],
  "  about the ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis.\n            (Recall that  ",
  StyleBox["sin ",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["x ",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox[" is   ",
    FontVariations->{"CompatibilityType"->0}],
  StyleBox["Sin[x]  ",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"CompatibilityType"->0}],
  "and  ",
  StyleBox["cos",
    FontColor->RGBColor[0, 0, 1]],
  " ",
  StyleBox["x",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 1]],
  "  is  ",
  StyleBox["Cos[x]",
    FontColor->RGBColor[0, 0, 1]],
  "  in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " code. )\n     (c)  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      FormBox[
        RowBox[{\(e\^x\), ",", " ", 
          RowBox[{"y", " ", 
            StyleBox["\[Equal]",
              Evaluatable->False,
              AspectRatioFixed->True], " ", \(e\^\(-x\)\)}]}], 
        TraditionalForm]]],
  "  on the interval [0, 2]  about the ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis.\n            (Recall that ",
  StyleBox[" ",
    FontColor->RGBColor[0, 0, 1]],
  Cell[BoxData[
      \(TraditionalForm\`e\^x\)],
    FontColor->RGBColor[0, 0, 1]],
  StyleBox[" ",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox[" is   ",
    FontVariations->{"CompatibilityType"->0}],
  StyleBox["Exp[x] ",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"CompatibilityType"->0}],
  " in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " code. )\n     \n 3.  ",
  StyleBox["Revolve the region bounded by the given curves about  the \
specified line. ",
    Evaluatable->False,
    AspectRatioFixed->True],
  "\n     (a)  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 2",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`x, \ y\  \[Equal] \ 1\)]],
  " and the ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis  about the ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis.\n     (b)  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal]  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`e\^\(-x\^2\), \ y\  \[Equal] \ 1\/2\)]],
  " and the ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis  about the ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis.\n \n 4. Revolve the line  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(4\  - \ x\)\(,\)\(\ \)\)\)]],
  " for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 4,  about the\n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  "\n \n5. Revolve the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(4\  - \ x\^2\)\(,\)\(\ \)\)\)]],
  " for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 2,  about the\n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  " \n \n6. Revolve the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(\@\(4\  - \ x\^2\)\)\(,\)\(\ \)\)\)]],
  " for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 2,  about the\n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  "  \n     \n7. Revolve the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(e\^\(-x\)\)\(,\)\(\ \)\)\)]],
  " for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 1,  about the\n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  "       \n \n8. Revolve the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(x\/\(x + 1\)\)\(,\)\(\ \)\)\)]],
  " for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 1,  about the\n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  "   \n\n  9.  ( Recall that  ",
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(sin\^\(-1\)\)\(\ \)\(x\)\(\ \)\)\)],
    FontColor->RGBColor[0, 0, 1]],
  " is  ",
  StyleBox["ArcSin[",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["x",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["]",
    FontColor->RGBColor[0, 0, 1]],
  "   in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " code. )\n     Revolve the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(sin\^\(-1\)\) \(x\)\(\ \)\)\)]],
  " for  0 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 1,  about the\n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  "   \n \n 10.   ( Recall that  ",
  StyleBox[" ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(ln\)\(\ \)\(x\)\(\ \)\)\)],
    FontColor->RGBColor[0, 0, 1]],
  " is  ",
  StyleBox["Log[",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["x",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 1]],
  StyleBox["]",
    FontColor->RGBColor[0, 0, 1]],
  "   in ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " code. )\n     Revolve the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(ln\ x\)\(\ \)\(,\)\)\)]],
  " for  1 \[LessEqual] ",
  StyleBox["x",
    FontSlant->"Italic"],
  " \[LessEqual] 2,  about the \n     (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n     (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis\n     (c)  line ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 1\)\)]],
  "\n     (d)  line ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(-\ 2. \)\)]],
  "    \n            \n11.  Revolve the region bounded by  ",
  StyleBox["x",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(\ \)\(\(y\^2\ \ \ and\ \ \ y\)\(\ \)\(\[Equal]\)\
\(\ \)\(x\^2\)\(\ \ \)\)\)\)]],
  "about the \n      (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n      (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis.\n\n12.  Revolve the region bounded by  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] 0.1 ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`x\^2\ \ \ and\ \ \ y\  \[Equal] \ \(\(ln\)\(\ \
\)\(x\)\(\ \ \)\)\)]],
  "about the \n      (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n      (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis.\n \n13.  Revolve the region bounded by  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal]  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`e\^x - 
        1, \ \ \(\(y\)\(\ \)\(\[Equal]\)\(\ \)\(2 
           e\^\(-x\)\ \ and\ \ \ x\)\(\ \)\(\[Equal]\)\(\ \)\(0\)\(\ \ \
\)\)\)]],
  " about the \n       (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n       (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis. \n \n14.  Revolve the region bounded by  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal] ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(x\^2\ \ and\ \ \ y\)\(\ \)\(\[Equal]\)\(\ \
\)\(x\^3\)\(\ \ \ \)\)\)]],
  " about the \n       (a)  ",
  StyleBox["x",
    FontSlant->"Italic"],
  "-axis\n       (b)  ",
  StyleBox["y",
    FontSlant->"Italic"],
  "-axis. \n\n15.  Revolve the region under the curve  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" = ",
    Evaluatable->False,
    AspectRatioFixed->True],
  Cell[BoxData[
      \(TraditionalForm\`\(\(x\^\(\(-1\)/
              2\)\)\(\ \ \)\(on\)\(\ \)\(the\)\(\ \)\(interval\ \ [1, \ 
          4]\)\(\ \ \ \)\)\)]],
  "about the line  ",
  StyleBox["y",
    Evaluatable->False,
    AspectRatioFixed->True,
    FontSlant->"Italic"],
  StyleBox[" \[Equal]",
    Evaluatable->False,
    AspectRatioFixed->True],
  " ",
  Cell[BoxData[
      \(TraditionalForm\`\(-2. \)\)]],
  StyleBox["  ",
    Evaluatable->False,
    AspectRatioFixed->True],
  "\n       "
}], "Text",
  Evaluatable->False,
  AspectRatioFixed->True,
  FontFamily->"Swiss721bt",
  FontSize->14,
  Background->GrayLevel[1]],

Cell[TextData[{
  StyleBox["                                                   End of Lab.  \n\
If you wish, save your work (which you might find simpler to do if you first \
",
    FontSize->14],
  StyleBox["delete the reproduceable pictures and reproduceable graphs before \
you attempt to save the lab).",
    FontSize->14],
  StyleBox["  \n                                                Quit ",
    FontSize->14],
  StyleBox["Mathematica",
    FontSize->14,
    FontSlant->"Italic"],
  StyleBox[".\n",
    FontSize->14]
}], "Text",
  FontFamily->"Swiss721bt",
  FontColor->RGBColor[0, 0, 1],
  Background->GrayLevel[1]],

Cell[TextData[StyleBox["This lab was modified from a lab at the University of \
Oregon.",
  FontSize->10,
  FontColor->RGBColor[1, 0, 1]]], "Text",
  FontFamily->"Swiss721bt",
  FontColor->RGBColor[0, 0, 1],
  Background->GrayLevel[1]]
}, Open  ]]
},
FrontEndVersion->"5.0 for X",
ScreenRectangle->{{0, 1024}, {0, 768}},
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{395, 283},
WindowMargins->{{96, Automatic}, {Automatic, 44}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False}
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1754, 51, 297, 8, 72, "Text",
  Evaluatable->False],
Cell[2054, 61, 315, 9, 54, "Text",
  Evaluatable->False],
Cell[2372, 72, 842, 17, 254, "Text",
  Evaluatable->False,
  CellGroupingRules->"OutputGrouping"],
Cell[3217, 91, 651, 20, 105, "Text",
  Evaluatable->False],

Cell[CellGroupData[{
Cell[3893, 115, 2540, 84, 137, "Text",
  Evaluatable->False],

Cell[CellGroupData[{
Cell[6458, 203, 1023, 27, 372, "Input"],
Cell[7484, 232, 356, 5, 70, "Message"]
}, Open  ]]
}, Closed]],
Cell[7867, 241, 245, 5, 99, "Text"],
Cell[8115, 248, 128, 3, 45, "Subtitle"],
Cell[8246, 253, 2303, 91, 157, "Text",
  Evaluatable->False],
Cell[10552, 346, 115, 2, 27, "Input"],
Cell[10670, 350, 473, 19, 34, "Text",
  Evaluatable->False],
Cell[11146, 371, 87, 2, 27, "Input"],

Cell[CellGroupData[{
Cell[11258, 377, 7952, 316, 235, "Text",
  Evaluatable->False],
Cell[19213, 695, 87, 2, 27, "Input"],
Cell[19303, 699, 1601, 60, 122, "Text",
  Evaluatable->False],
Cell[20907, 761, 136, 3, 27, "Input"],
Cell[21046, 766, 1158, 43, 54, "Text",
  Evaluatable->False],
Cell[22207, 811, 91, 2, 27, "Input"],
Cell[22301, 815, 610, 23, 74, "Text",
  Evaluatable->False],
Cell[22914, 840, 126, 3, 45, "Subtitle"],
Cell[23043, 845, 5558, 220, 54, "Text",
  Evaluatable->False],
Cell[28604, 1067, 2196, 93, 180, "Text",
  Evaluatable->False],
Cell[30803, 1162, 115, 2, 43, "Input"],
Cell[30921, 1166, 474, 19, 34, "Text",
  Evaluatable->False],
Cell[31398, 1187, 87, 2, 27, "Input"],
Cell[31488, 1191, 83, 1, 59, "Input"],
Cell[31574, 1194, 105, 3, 45, "Subtitle"],
Cell[31682, 1199, 16063, 604, 2118, "Text",
  Evaluatable->False],
Cell[47748, 1805, 624, 18, 114, "Text"],
Cell[48375, 1825, 235, 6, 30, "Text"]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)