(* 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[      3412,        105]
NotebookOptionsPosition[      3006,         88]
NotebookOutlinePosition[      3352,        103]
CellTagsIndexPosition[      3309,        100]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{"\"\< #17 \>\"", "\n", 
 RowBox[{"RevolutionPlot3D", "[", 
  RowBox[{
   SuperscriptBox["r", "2"], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411581707890625*^9, 3.41158171115625*^9}, {
   3.411581795171875*^9, 3.411581797640625*^9}, 3.471194122953125*^9}],

Cell[BoxData[{"\"\< #18 \>\"", "\n", 
 RowBox[{"RevolutionPlot3D", "[", 
  RowBox[{
   RowBox[{"r", " ", 
    RowBox[{"Cos", "[", "theta", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411581707890625*^9, 3.41158171115625*^9}, {
  3.411581795171875*^9, 3.411581797640625*^9}, {3.471194122953125*^9, 
  3.47119412584375*^9}}],

Cell[BoxData[{"\"\< #22 \>\"", "\n", 
 RowBox[{"RevolutionPlot3D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", "theta"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411581707890625*^9, 3.41158171115625*^9}, {
  3.411581795171875*^9, 3.411581797640625*^9}, {3.471194122953125*^9, 
  3.471194128265625*^9}}],

Cell[BoxData[{"\"\< #23 \>\"", "\n", 
 RowBox[{"SphericalPlot3D", "[", 
  RowBox[{"3", ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"phi", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411581707890625*^9, 3.41158171115625*^9}, {
  3.411581795171875*^9, 3.411581797640625*^9}, {3.471194122953125*^9, 
  3.4711941321875*^9}}],

Cell[BoxData[{"\"\< #28 \>\"", "\n", 
 RowBox[{"SphericalPlot3D", "[", 
  RowBox[{
   RowBox[{"Csc", "[", "phi", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"phi", ",", "1", ",", 
     FractionBox["\[Pi]", "2"]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411581707890625*^9, 3.41158171115625*^9}, {
  3.411581795171875*^9, 3.411581797640625*^9}, {3.471194122953125*^9, 
  3.471194138484375*^9}}]
},
WindowSize->{953, 740},
WindowMargins->{{138, Automatic}, {27, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 441, 10, 54, "Input"],
Cell[989, 32, 501, 12, 52, "Input"],
Cell[1493, 46, 554, 14, 54, "Input"],
Cell[2050, 62, 445, 10, 52, "Input"],
Cell[2498, 74, 504, 12, 65, "Input"]
}
]
*)

(* End of internal cache information *)