(* 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[      5642,        140]
NotebookOptionsPosition[      5314,        125]
NotebookOutlinePosition[      5655,        140]
CellTagsIndexPosition[      5612,        137]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1"}], 
          "]"}], ",", "White", ",", 
         RowBox[{"Opacity", "[", "0.25", "]"}], ",", 
         RowBox[{"Hue", "[", "n", "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "3.5"}], "}"}], ",", "2"}], "]"}], 
         ",", " ", "Gray", ",", " ", 
         RowBox[{"Opacity", "[", ".75", "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{"-", ".1"}]}], "}"}], ",", 
           RowBox[{"1", "/", "3"}]}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"u", "/", "10"}], ",", 
          RowBox[{".1", 
           RowBox[{"Sin", "[", 
            RowBox[{"5", "u"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{".1", 
            RowBox[{"Cos", "[", 
             RowBox[{"5", "u"}], "]"}]}], "+", "3.5"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"u", ",", 
          RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Hue", "[", "n", "]"}]}]}], "]"}], ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", 
          RowBox[{"{", 
           RowBox[{"Thin", ",", "Black"}], "}"}], "]"}], ",", 
         RowBox[{"Opacity", "[", "0", "]"}], ",", 
         RowBox[{"FaceForm", "[", "White", "]"}], ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", ".8"}], ",", "0", ",", "3.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{".8", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"Boxed", "\[Rule]", " ", "False"}]}], "}"}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.408890494073752*^9, 3.408890559861472*^9}, {
   3.4088905971177683`*^9, 3.408890616518512*^9}, {3.4088906542430477`*^9, 
   3.4088906846162157`*^9}, {3.408890841539048*^9, 3.408890853525992*^9}, {
   3.408891027149384*^9, 3.4088911601763678`*^9}, {3.408891226385504*^9, 
   3.40889127714272*^9}, {3.4088913169119043`*^9, 3.408891351171464*^9}, {
   3.4088914300699043`*^9, 3.408891495857624*^9}, {3.4088926619625196`*^9, 
   3.408892709285976*^9}, {3.408893161683856*^9, 3.408893479837328*^9}, 
   3.4088935181549683`*^9, {3.4088935748276157`*^9, 3.408893622057424*^9}, {
   3.408893757987496*^9, 3.408893963997488*^9}, {3.408894651395832*^9, 
   3.408894698516384*^9}, {3.40889477003224*^9, 3.4088947712184477`*^9}, {
   3.40889529422692*^9, 3.408895609383656*^9}, {3.4088956492777042`*^9, 
   3.40889566421456*^9}, {3.408895696741632*^9, 3.408895708791008*^9}, {
   3.4088957799010563`*^9, 3.408895864418376*^9}, {3.408895936230784*^9, 
   3.408895976952056*^9}, {3.408896521999024*^9, 3.4088965320037518`*^9}, {
   3.408896927807024*^9, 3.408896944117384*^9}, {3.40889697833012*^9, 
   3.4088970095461197`*^9}, {3.4089016062507677`*^9, 3.4089016320664*^9}, {
   3.408909702204*^9, 3.408909705682*^9}}],

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

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.408892694723712*^9, 3.4088927105502243`*^9}, {
   3.408893170876968*^9, 3.408893212253776*^9}, {3.4088932560498238`*^9, 
   3.408893480555296*^9}, {3.408893590981896*^9, 3.408893622728568*^9}, {
   3.408893769178432*^9, 3.408893964715456*^9}, {3.4088946534873037`*^9, 
   3.4088946991250963`*^9}, 3.40889477260756*^9, {3.40889529664616*^9, 
   3.408895610007976*^9}, {3.40889565227444*^9, 3.408895664932528*^9}, {
   3.4088957002534323`*^9, 3.40889571025816*^9}, {3.408895820622328*^9, 
   3.4088958653392477`*^9}, {3.40889594929468*^9, 3.4088959777792797`*^9}, 
   3.408896533096312*^9, {3.4088969397471437`*^9, 3.4088969449446077`*^9}, 
   3.408896981420504*^9, {3.40890163300288*^9, 3.4089016361244802`*^9}, {
   3.4089094045039997`*^9, 3.408909423724*^9}, 3.4089094656289997`*^9, {
   3.408909690648*^9, 3.408909713726*^9}, 3.408909812164*^9, 
   3.408910420392*^9, {3.4089831299819202`*^9, 3.408983136686112*^9}}]
},
WindowSize->{1008, 677},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 3675, 84, 152, "Input"],
Cell[4246, 107, 94, 1, 31, "Input"],
Cell[4343, 110, 967, 13, 31, "Input"]
}
]
*)

(* End of internal cache information *)